|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05f8 | | .CONST 0x05f8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0024 | $ | .CONST 0x0024 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
000f 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0011 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0013 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0015 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
0017 00bf | | Action Accept_Activation
0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0019 00c7 | | Action Elaborate_Subprogram
001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001b 00c7 | | Action Elaborate_Subprogram
001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001d 00c7 | | Action Elaborate_Subprogram
001e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001f 00c7 | | Action Elaborate_Subprogram
0020 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0021 00c7 | | Action Elaborate_Subprogram
0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0023 00c7 | | Action Elaborate_Subprogram
0024 BODY_0008:
0024 00bc | | Action Signal_Activated
0025 00bb | | Action Signal_Completion
0026 0000 0000 | | .XXX[0x2]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0030 | 0 | .CONST 0x0030 ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0002 | | .CONST 0x0002 ; Number of locals
002b INIT_0028:
002b 00da | | Load_Top At_Offset_2
002c 01dd | | Execute Vector,First
002d 0aff | | Execute_Immediate Plus,-0x1
002e 00e2 | | Load_Encached Integer_Cache
002f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0030 BODY_0028:
0030 00cf | | Action Mark_Auxiliary
0031 794c |yL | Jump 0x17e
0032 00d9 | | Load_Top At_Offset_1
0033 0a01 | | Execute_Immediate Plus,0x1
0034 005a | Z | Store_Top Discrete,At_Offset_2
0035 00d9 | | Load_Top At_Offset_1
0036 e5ff | | Load 0x2,-0x1
0037 01d7 | | Execute Vector,Field_Read
0038 00d8 | | Load_Top At_Offset_0
0039 0d09 | | Execute_Immediate Less,0x9
003a 7051 |pQ | Jump_Nonzero 0x8c
003b 00d8 | | Load_Top At_Offset_0
003c 0c41 | A | Execute_Immediate Greater_Equal,0x41
003d 7046 |pF | Jump_Nonzero 0x84
003e 0af7 | | Execute_Immediate Plus,-0x9
003f 4637 |F7 | Jump_Case 0x38
0040 793c |y< | Jump 0x17d ; case 0x0
0041 793b |y; | Jump 0x17d ; case 0x1
0042 7835 |x5 | Jump 0x78 ; case 0x2
0043 7834 |x4 | Jump 0x78 ; case 0x3
0044 7833 |x3 | Jump 0x78 ; case 0x4
0045 7832 |x2 | Jump 0x78 ; case 0x5
0046 7831 |x1 | Jump 0x78 ; case 0x6
0047 7830 |x0 | Jump 0x78 ; case 0x7
0048 782f |x/ | Jump 0x78 ; case 0x8
0049 782e |x. | Jump 0x78 ; case 0x9
004a 782d |x- | Jump 0x78 ; case 0xa
004b 782c |x, | Jump 0x78 ; case 0xb
004c 782b |x+ | Jump 0x78 ; case 0xc
004d 782a |x* | Jump 0x78 ; case 0xd
004e 7829 |x) | Jump 0x78 ; case 0xe
004f 7828 |x( | Jump 0x78 ; case 0xf
0050 7827 |x' | Jump 0x78 ; case 0x10
0051 7826 |x& | Jump 0x78 ; case 0x11
0052 7825 |x% | Jump 0x78 ; case 0x12
0053 7824 |x$ | Jump 0x78 ; case 0x13
0054 7823 |x# | Jump 0x78 ; case 0x14
0055 7822 |x" | Jump 0x78 ; case 0x15
0056 7821 |x! | Jump 0x78 ; case 0x16
0057 7925 |y% | Jump 0x17d ; case 0x17
0058 781f |x | Jump 0x78 ; case 0x18
0059 7878 |xx | Jump 0xd2 ; case 0x19
005a 781d |x | Jump 0x78 ; case 0x1a
005b 781c |x | Jump 0x78 ; case 0x1b
005c 781b |x | Jump 0x78 ; case 0x1c
005d 781a |x | Jump 0x78 ; case 0x1d
005e 7899 |x | Jump 0xf8 ; case 0x1e
005f 7818 |x | Jump 0x78 ; case 0x1f
0060 7817 |x | Jump 0x78 ; case 0x20
0061 7816 |x | Jump 0x78 ; case 0x21
0062 7815 |x | Jump 0x78 ; case 0x22
0063 7814 |x | Jump 0x78 ; case 0x23
0064 78ca |x | Jump 0x12f ; case 0x24
0065 7812 |x | Jump 0x78 ; case 0x25
0066 7811 |x | Jump 0x78 ; case 0x26
0067 7827 |x' | Jump 0x8f ; case 0x27
0068 7826 |x& | Jump 0x8f ; case 0x28
0069 7825 |x% | Jump 0x8f ; case 0x29
006a 7824 |x$ | Jump 0x8f ; case 0x2a
006b 7823 |x# | Jump 0x8f ; case 0x2b
006c 7822 |x" | Jump 0x8f ; case 0x2c
006d 7821 |x! | Jump 0x8f ; case 0x2d
006e 7820 |x | Jump 0x8f ; case 0x2e
006f 781f |x | Jump 0x8f ; case 0x2f
0070 781e |x | Jump 0x8f ; case 0x30
0071 7806 |x | Jump 0x78 ; case 0x31
0072 7805 |x | Jump 0x78 ; case 0x32
0073 7804 |x | Jump 0x78 ; case 0x33
0074 7803 |x | Jump 0x78 ; case 0x34
0075 7802 |x | Jump 0x78 ; case 0x35
0076 7801 |x | Jump 0x78 ; case 0x36
0077 7800 |x | Jump 0x78 ; case 0x37
0078 e5fc | | Load 0x2,-0x4
0079 0a01 | | Execute_Immediate Plus,0x1
007a c5fc | | Store 0x2,-0x4
007b 00d9 | | Load_Top At_Offset_1
007c e5ff | | Load 0x2,-0x1
007d 01d7 | | Execute Vector,Field_Read
007e e5fc | | Load 0x2,-0x4
007f e5fd | | Load 0x2,-0x3
0080 01d6 | | Execute Vector,Field_Write
0081 4800 |H | Short_Literal 0x0
0082 a5fb | | Store_Unchecked 0x2,-0x5
0083 78f9 |x | Jump 0x17d
0084 00d8 | | Load_Top At_Offset_0
0085 0c5b | [ | Execute_Immediate Greater_Equal,0x5b
0086 6807 |h | Jump_Zero 0x8e
0087 4861 |Ha | Short_Literal 0x61
0088 487a |Hz | Short_Literal 0x7a
0089 0262 | b | Execute Discrete,In_Range
008a 7004 |p | Jump_Nonzero 0x8f
008b 7fec | | Jump 0x78
008c 00d1 | | Pop_Control Pop_Count_1
008d 7fea | | Jump 0x78
008e 00d1 | | Pop_Control Pop_Count_1
008f e5fb | | Load 0x2,-0x5
0090 6808 |h | Jump_Zero 0x99
0091 e5fc | | Load 0x2,-0x4
0092 0a01 | | Execute_Immediate Plus,0x1
0093 c5fc | | Store 0x2,-0x4
0094 4820 |H | Short_Literal 0x20
0095 e5fc | | Load 0x2,-0x4
0096 e5fd | | Load 0x2,-0x3
0097 01d6 | | Execute Vector,Field_Write
0098 7802 |x | Jump 0x9b
0099 4801 |H | Short_Literal 0x1
009a a5fb | | Store_Unchecked 0x2,-0x5
009b 00cf | | Action Mark_Auxiliary
009c 782e |x. | Jump 0xcb
009d 00da | | Load_Top At_Offset_2
009e e5ff | | Load 0x2,-0x1
009f 01d7 | | Execute Vector,Field_Read
00a0 00d8 | | Load_Top At_Offset_0
00a1 0d5b | [ | Execute_Immediate Less,0x5b
00a2 7009 |p | Jump_Nonzero 0xac
00a3 00d8 | | Load_Top At_Offset_0
00a4 0c61 | a | Execute_Immediate Greater_Equal,0x61
00a5 7003 |p | Jump_Nonzero 0xa9
00a6 0f5f | _ | Execute_Immediate Equal,0x5f
00a7 700f |p | Jump_Nonzero 0xb7
00a8 781d |x | Jump 0xc6
00a9 0c7b | { | Execute_Immediate Greater_Equal,0x7b
00aa 680c |h | Jump_Zero 0xb7
00ab 781a |x | Jump 0xc6
00ac 00d8 | | Load_Top At_Offset_0
00ad 4830 |H0 | Short_Literal 0x30
00ae 4839 |H9 | Short_Literal 0x39
00af 0262 | b | Execute Discrete,In_Range
00b0 7005 |p | Jump_Nonzero 0xb6
00b1 4841 |HA | Short_Literal 0x41
00b2 485a |HZ | Short_Literal 0x5a
00b3 0262 | b | Execute Discrete,In_Range
00b4 7002 |p | Jump_Nonzero 0xb7
00b5 7810 |x | Jump 0xc6
00b6 00d1 | | Pop_Control Pop_Count_1
00b7 e5fc | | Load 0x2,-0x4
00b8 0a01 | | Execute_Immediate Plus,0x1
00b9 c5fc | | Store 0x2,-0x4
00ba 00da | | Load_Top At_Offset_2
00bb e5ff | | Load 0x2,-0x1
00bc 01d7 | | Execute Vector,Field_Read
00bd e002 | | Load 0x0,0x2
00be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00bf e5fc | | Load 0x2,-0x4
00c0 e5fd | | Load 0x2,-0x3
00c1 01d6 | | Execute Vector,Field_Write
00c2 00da | | Load_Top At_Offset_2
00c3 0a01 | | Execute_Immediate Plus,0x1
00c4 005b | [ | Store_Top Discrete,At_Offset_3
00c5 7804 |x | Jump 0xca
00c6 00da | | Load_Top At_Offset_2
00c7 0aff | | Execute_Immediate Plus,-0x1
00c8 005b | [ | Store_Top Discrete,At_Offset_3
00c9 7806 |x | Jump 0xd0
00ca 00c9 | | Action Pop_Auxiliary_Loop
00cb 00da | | Load_Top At_Offset_2
00cc e5ff | | Load 0x2,-0x1
00cd 01dc | | Execute Vector,Last
00ce 027a | z | Execute Discrete,Less_Equal
00cf 77cd |w | Jump_Nonzero 0x9d
00d0 00ce | | Action Pop_Auxiliary
00d1 78ab |x | Jump 0x17d
00d2 e5fc | | Load 0x2,-0x4
00d3 0a01 | | Execute_Immediate Plus,0x1
00d4 c5fc | | Store 0x2,-0x4
00d5 00d9 | | Load_Top At_Offset_1
00d6 e5ff | | Load 0x2,-0x1
00d7 01d7 | | Execute Vector,Field_Read
00d8 e5fc | | Load 0x2,-0x4
00d9 e5fd | | Load 0x2,-0x3
00da 01d6 | | Execute Vector,Field_Write
00db 00cf | | Action Mark_Auxiliary
00dc 7812 |x | Jump 0xef
00dd 00da | | Load_Top At_Offset_2
00de 0a01 | | Execute_Immediate Plus,0x1
00df 005b | [ | Store_Top Discrete,At_Offset_3
00e0 e5fc | | Load 0x2,-0x4
00e1 0a01 | | Execute_Immediate Plus,0x1
00e2 c5fc | | Store 0x2,-0x4
00e3 00da | | Load_Top At_Offset_2
00e4 e5ff | | Load 0x2,-0x1
00e5 01d7 | | Execute Vector,Field_Read
00e6 e5fc | | Load 0x2,-0x4
00e7 e5fd | | Load 0x2,-0x3
00e8 01d6 | | Execute Vector,Field_Write
00e9 00da | | Load_Top At_Offset_2
00ea e5ff | | Load 0x2,-0x1
00eb 01d7 | | Execute Vector,Field_Read
00ec 0f22 | " | Execute_Immediate Equal,0x22
00ed 7006 |p | Jump_Nonzero 0xf4
00ee 00c9 | | Action Pop_Auxiliary_Loop
00ef 00da | | Load_Top At_Offset_2
00f0 e5ff | | Load 0x2,-0x1
00f1 01dc | | Execute Vector,Last
00f2 027c | | | Execute Discrete,Less
00f3 77e9 |w | Jump_Nonzero 0xdd
00f4 00ce | | Action Pop_Auxiliary
00f5 4800 |H | Short_Literal 0x0
00f6 a5fb | | Store_Unchecked 0x2,-0x5
00f7 7885 |x | Jump 0x17d
00f8 00d9 | | Load_Top At_Offset_1
00f9 0a01 | | Execute_Immediate Plus,0x1
00fa e5ff | | Load 0x2,-0x1
00fb 01dc | | Execute Vector,Last
00fc 027c | | | Execute Discrete,Less
00fd 6827 |h' | Jump_Zero 0x125
00fe 00d9 | | Load_Top At_Offset_1
00ff 0a02 | | Execute_Immediate Plus,0x2
0100 e5ff | | Load 0x2,-0x1
0101 01d7 | | Execute Vector,Field_Read
0102 0f27 | ' | Execute_Immediate Equal,0x27
0103 6821 |h! | Jump_Zero 0x125
0104 00d9 | | Load_Top At_Offset_1
0105 00da | | Load_Top At_Offset_2
0106 0a02 | | Execute_Immediate Plus,0x2
0107 00d8 | | Load_Top At_Offset_0
0108 00e2 | | Load_Encached Integer_Cache
0109 0260 | ` | Execute Discrete,In_Type
010a 7001 |p | Jump_Nonzero 0x10c
010b 0801 | | Execute_Immediate Raise,0x1
010c e5ff | | Load 0x2,-0x1
010d 01cf | | Execute Vector,Slice_Read
010e e5fc | | Load 0x2,-0x4
010f 0a01 | | Execute_Immediate Plus,0x1
0110 00d8 | | Load_Top At_Offset_0
0111 00e2 | | Load_Encached Integer_Cache
0112 0260 | ` | Execute Discrete,In_Type
0113 7001 |p | Jump_Nonzero 0x115
0114 0801 | | Execute_Immediate Raise,0x1
0115 e5fc | | Load 0x2,-0x4
0116 0a03 | | Execute_Immediate Plus,0x3
0117 00d8 | | Load_Top At_Offset_0
0118 00e2 | | Load_Encached Integer_Cache
0119 0260 | ` | Execute Discrete,In_Type
011a 7001 |p | Jump_Nonzero 0x11c
011b 0801 | | Execute_Immediate Raise,0x1
011c e5fd | | Load 0x2,-0x3
011d 01ce | | Execute Vector,Slice_Write
011e e5fc | | Load 0x2,-0x4
011f 0a03 | | Execute_Immediate Plus,0x3
0120 c5fc | | Store 0x2,-0x4
0121 00d9 | | Load_Top At_Offset_1
0122 0a02 | | Execute_Immediate Plus,0x2
0123 005a | Z | Store_Top Discrete,At_Offset_2
0124 7807 |x | Jump 0x12c
0125 e5fc | | Load 0x2,-0x4
0126 0a01 | | Execute_Immediate Plus,0x1
0127 c5fc | | Store 0x2,-0x4
0128 4827 |H' | Short_Literal 0x27
0129 e5fc | | Load 0x2,-0x4
012a e5fd | | Load 0x2,-0x3
012b 01d6 | | Execute Vector,Field_Write
012c 4800 |H | Short_Literal 0x0
012d a5fb | | Store_Unchecked 0x2,-0x5
012e 784e |xN | Jump 0x17d
012f 00d9 | | Load_Top At_Offset_1
0130 e5ff | | Load 0x2,-0x1
0131 01dc | | Execute Vector,Last
0132 027c | | | Execute Discrete,Less
0133 683e |h> | Jump_Zero 0x172
0134 00d9 | | Load_Top At_Offset_1
0135 0a01 | | Execute_Immediate Plus,0x1
0136 e5ff | | Load 0x2,-0x1
0137 01d7 | | Execute Vector,Field_Read
0138 0f2d | - | Execute_Immediate Equal,0x2d
0139 6838 |h8 | Jump_Zero 0x172
013a e5fe | | Load 0x2,-0x2
013b 6812 |h | Jump_Zero 0x14e
013c 00cf | | Action Mark_Auxiliary
013d 7804 |x | Jump 0x142
013e 00da | | Load_Top At_Offset_2
013f 0a01 | | Execute_Immediate Plus,0x1
0140 005b | [ | Store_Top Discrete,At_Offset_3
0141 00c9 | | Action Pop_Auxiliary_Loop
0142 00da | | Load_Top At_Offset_2
0143 e5ff | | Load 0x2,-0x1
0144 01dc | | Execute Vector,Last
0145 027a | z | Execute Discrete,Less_Equal
0146 6805 |h | Jump_Zero 0x14c
0147 00da | | Load_Top At_Offset_2
0148 e5ff | | Load 0x2,-0x1
0149 01d7 | | Execute Vector,Field_Read
014a 0e0a | | Execute_Immediate Not_Equal,0xa
014b 77f2 |w | Jump_Nonzero 0x13e
014c 00ce | | Action Pop_Auxiliary
014d 782f |x/ | Jump 0x17d
014e 00cf | | Action Mark_Auxiliary
014f 780d |x | Jump 0x15d
0150 e5fc | | Load 0x2,-0x4
0151 0a01 | | Execute_Immediate Plus,0x1
0152 c5fc | | Store 0x2,-0x4
0153 00da | | Load_Top At_Offset_2
0154 e5ff | | Load 0x2,-0x1
0155 01d7 | | Execute Vector,Field_Read
0156 e5fc | | Load 0x2,-0x4
0157 e5fd | | Load 0x2,-0x3
0158 01d6 | | Execute Vector,Field_Write
0159 00da | | Load_Top At_Offset_2
015a 0a01 | | Execute_Immediate Plus,0x1
015b 005b | [ | Store_Top Discrete,At_Offset_3
015c 00c9 | | Action Pop_Auxiliary_Loop
015d 00da | | Load_Top At_Offset_2
015e e5ff | | Load 0x2,-0x1
015f 01dc | | Execute Vector,Last
0160 027a | z | Execute Discrete,Less_Equal
0161 6805 |h | Jump_Zero 0x167
0162 00da | | Load_Top At_Offset_2
0163 e5ff | | Load 0x2,-0x1
0164 01d7 | | Execute Vector,Field_Read
0165 0e0a | | Execute_Immediate Not_Equal,0xa
0166 77e9 |w | Jump_Nonzero 0x150
0167 00ce | | Action Pop_Auxiliary
0168 e5fc | | Load 0x2,-0x4
0169 0a01 | | Execute_Immediate Plus,0x1
016a c5fc | | Store 0x2,-0x4
016b 480a |H | Short_Literal 0xa
016c e5fc | | Load 0x2,-0x4
016d e5fd | | Load 0x2,-0x3
016e 01d6 | | Execute Vector,Field_Write
016f 4800 |H | Short_Literal 0x0
0170 a5fb | | Store_Unchecked 0x2,-0x5
0171 780b |x | Jump 0x17d
0172 e5fc | | Load 0x2,-0x4
0173 0a01 | | Execute_Immediate Plus,0x1
0174 c5fc | | Store 0x2,-0x4
0175 00d9 | | Load_Top At_Offset_1
0176 e5ff | | Load 0x2,-0x1
0177 01d7 | | Execute Vector,Field_Read
0178 e5fc | | Load 0x2,-0x4
0179 e5fd | | Load 0x2,-0x3
017a 01d6 | | Execute Vector,Field_Write
017b 4800 |H | Short_Literal 0x0
017c a5fb | | Store_Unchecked 0x2,-0x5
017d 00c9 | | Action Pop_Auxiliary_Loop
017e 00d9 | | Load_Top At_Offset_1
017f e5ff | | Load 0x2,-0x1
0180 01dc | | Execute Vector,Last
0181 027c | | | Execute Discrete,Less
0182 76af |v | Jump_Nonzero 0x32
0183 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 019a | | .CONST 0x019a ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0004 | | .CONST 0x0004 ; Number of locals
018b INIT_0188:
018b 4801 |H | Short_Literal 0x1
018c 00db | | Load_Top At_Offset_3
018d 01db | | Execute Vector,Length
018e 00d8 | | Load_Top At_Offset_0
018f 00e2 | | Load_Encached Integer_Cache
0190 0260 | ` | Execute Discrete,In_Type
0191 7001 |p | Jump_Nonzero 0x193
0192 0801 | | Execute_Immediate Raise,0x1
0193 00e9 | | Load_Encached String_Cache
0194 035b | [ | Declare_Type Array,Constrained
0195 0337 | 7 | Declare_Variable Array
0196 00e2 | | Load_Encached Integer_Cache
0197 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0198 00e1 | | Load_Encached Boolean_Cache
0199 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
019a BODY_0188:
019a 00d8 | | Load_Top At_Offset_0
019b 00da | | Load_Top At_Offset_2
019c e402 | | Load 0x2,0x2
019d e5fe | | Load 0x2,-0x2
019e e5ff | | Load 0x2,-0x1
019f 820d | | Call 0x1,0xd
01a0 00d1 | | Pop_Control Pop_Count_1
01a1 005b | [ | Store_Top Discrete,At_Offset_3
01a2 0059 | Y | Store_Top Discrete,At_Offset_1
01a3 4801 |H | Short_Literal 0x1
01a4 00da | | Load_Top At_Offset_2
01a5 e402 | | Load 0x2,0x2
01a6 01cf | | Execute Vector,Slice_Read
01a7 00e9 | | Load_Encached String_Cache
01a8 01c6 | | Execute Vector,Convert_To_Formal
01a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5 | | .CONST 0x01b5 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 029f 039b | | Declare_Subprogram INIT_0398,For_Call
01b5 BODY_01b0:
01b5 00db | | Load_Top At_Offset_3
01b6 8402 | | Call 0x2,0x2
01b7 e5fe | | Load 0x2,-0x2
01b8 8402 | | Call 0x2,0x2
01b9 01df | | Execute Vector,Equal
01ba 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01d3 | | .CONST 0x01d3 ; Address of begin
01c1 01ee | | .CONST 0x01ee ; Address of exception handler
01c2 0006 | | .CONST 0x0006 ; Number of locals
01c3 INIT_01c0:
01c3 4800 |H | Short_Literal 0x0
01c4 4802 |H | Short_Literal 0x2
01c5 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
01c7 03fd | | Declare_Type Discrete,Defined
01c8 e003 | | Load 0x0,0x3
01c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ca 02c7 | | Declare_Variable Any
01cb 00d8 | | Load_Top At_Offset_0
01cc 1c00 | | Execute_Immediate Run_Utility,0x0
01cd 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
01cf 029f 042b | +| Declare_Subprogram INIT_0428,For_Call
01d1 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
01d3 BODY_01c0:
01d3 4800 |H | Short_Literal 0x0
01d4 a5fb | | Store_Unchecked 0x2,-0x5
01d5 00db | | Load_Top At_Offset_3
01d6 00ea | | Load_Encached Null_String_Cache
01d7 e5ff | | Load 0x2,-0x1
01d8 4800 |H | Short_Literal 0x0
01d9 e003 | | Load 0x0,0x3
01da 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01db c403 | | Store 0x2,0x3
01dc 4802 |H | Short_Literal 0x2
01dd e403 | | Load 0x2,0x3
01de e003 | | Load 0x0,0x3
01df 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
01e0 00cf | | Action Mark_Auxiliary
01e1 7805 |x | Jump 0x1e7
01e2 e403 | | Load 0x2,0x3
01e3 e003 | | Load 0x0,0x3
01e4 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01e5 8406 | | Call 0x2,0x6
01e6 00c9 | | Action Pop_Auxiliary_Loop
01e7 e403 | | Load 0x2,0x3
01e8 e003 | | Load 0x0,0x3
01e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01ea 6ff7 |o | Jump_Zero 0x1e2
01eb 00ce | | Action Pop_Auxiliary
01ec 4950 |IP | Short_Literal 0x150
01ed 0257 | W | Execute Discrete,Raise
01ee TRAP_01c0:
01ee 00d8 | | Load_Top At_Offset_0
01ef 0107 | | Execute Exception,Get_Name
01f0 4950 |IP | Short_Literal 0x150
01f1 495f |I_ | Short_Literal 0x15f
01f2 0262 | b | Execute Discrete,In_Range
01f3 681d |h | Jump_Zero 0x211
01f4 e403 | | Load 0x2,0x3
01f5 e003 | | Load 0x0,0x3
01f6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01f7 c403 | | Store 0x2,0x3
01f8 e5fb | | Load 0x2,-0x5
01f9 e5fd | | Load 0x2,-0x3
01fa 0279 | y | Execute Discrete,And
01fb 6814 |h | Jump_Zero 0x210
01fc 0092 0596 | | Action Push_String_Extended,0x596 ; "# Finish "
01fe 480a |H | Short_Literal 0xa
01ff 484c |HL | Short_Literal 0x4c
0200 00e9 | | Load_Encached String_Cache
0201 035b | [ | Declare_Type Array,Constrained
0202 0337 | 7 | Declare_Variable Array
0203 484c |HL | Short_Literal 0x4c
0204 480a |H | Short_Literal 0xa
0205 4823 |H# | Short_Literal 0x23
0206 00d9 | | Load_Top At_Offset_1
0207 e409 | | Load 0x2,0x9
0208 01d6 | | Execute Vector,Field_Write
0209 3ffb |? | Loop_Increasing 0x205
020a 01cc | | Execute Vector,Catenate
020b e003 | | Load 0x0,0x3
020c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
020d 4801 |H | Short_Literal 0x1
020e e003 | | Load 0x0,0x3
020f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0210 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0211 0100 | | Execute Exception,Raise
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 024c | L | .CONST 0x024c ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 000f | | .CONST 0x000f ; Number of locals
021b INIT_0218:
021b e004 | | Load 0x0,0x4
021c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021d 02c7 | | Declare_Variable Any
021e 00d8 | | Load_Top At_Offset_0
021f 1c00 | | Execute_Immediate Run_Utility,0x0
0220 e004 | | Load 0x0,0x4
0221 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0222 02ff | | Declare_Variable Variant_Record
0223 00d8 | | Load_Top At_Offset_0
0224 1c00 | | Execute_Immediate Run_Utility,0x0
0225 00e1 | | Load_Encached Boolean_Cache
0226 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0227 e004 | | Load 0x0,0x4
0228 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0229 e004 | | Load 0x0,0x4
022a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
022b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
022c e005 | | Load 0x0,0x5
022d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022e 02c7 | | Declare_Variable Any
022f 00d8 | | Load_Top At_Offset_0
0230 1c00 | | Execute_Immediate Run_Utility,0x0
0231 e004 | | Load 0x0,0x4
0232 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0233 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0234 e004 | | Load 0x0,0x4
0235 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0236 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0237 e004 | | Load 0x0,0x4
0238 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0239 1b16 | | Execute Package,Field_Read,Field_Number 0x16
023a 039d | | Declare_Variable Heap_Access,Duplicate
023b 00e1 | | Load_Encached Boolean_Cache
023c e004 | | Load 0x0,0x4
023d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
023e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
023f 02c7 | | Declare_Variable Any
0240 00d8 | | Load_Top At_Offset_0
0241 1c00 | | Execute_Immediate Run_Utility,0x0
0242 00e2 | | Load_Encached Integer_Cache
0243 0605 | | Execute_Immediate Set_Value_Unchecked,0x5
0244 e006 | | Load 0x0,0x6
0245 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0246 02c7 | | Declare_Variable Any
0247 e007 | | Load 0x0,0x7
0248 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0249 e006 | | Load 0x0,0x6
024a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
024b a40f | | Store_Unchecked 0x2,0xf
024c BODY_0218:
024c e004 | | Load 0x0,0x4
024d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
024e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024f e402 | | Load 0x2,0x2
0250 0120 | | Execute Any,Is_Value
0251 6803 |h | Jump_Zero 0x255
0252 e004 | | Load 0x0,0x4
0253 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0254 7801 |x | Jump 0x256
0255 e402 | | Load 0x2,0x2
0256 611d |a | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
0257 e006 | | Load 0x0,0x6
0258 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0259 e008 | | Load 0x0,0x8
025a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
025b e004 | | Load 0x0,0x4
025c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
025d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
025e e5ff | | Load 0x2,-0x1
025f e004 | | Load 0x0,0x4
0260 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0261 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0262 c402 | | Store 0x2,0x2
0263 c406 | | Store 0x2,0x6
0264 e004 | | Load 0x0,0x4
0265 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0266 e403 | | Load 0x2,0x3
0267 610c |a | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
0268 e006 | | Load 0x0,0x6
0269 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026a 4800 |H | Short_Literal 0x0
026b e402 | | Load 0x2,0x2
026c e004 | | Load 0x0,0x4
026d 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
026e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
026f 00d1 | | Pop_Control Pop_Count_1
0270 c405 | | Store 0x2,0x5
0271 e004 | | Load 0x0,0x4
0272 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0273 00e1 | | Load_Encached Boolean_Cache
0274 60ff |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
0275 e006 | | Load 0x0,0x6
0276 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0277 e402 | | Load 0x2,0x2
0278 e004 | | Load 0x0,0x4
0279 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
027a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
027b c404 | | Store 0x2,0x4
027c c405 | | Store 0x2,0x5
027d e404 | | Load 0x2,0x4
027e 680a |h | Jump_Zero 0x289
027f e004 | | Load 0x0,0x4
0280 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0281 60f2 |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
0282 e006 | | Load 0x0,0x6
0283 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0284 e402 | | Load 0x2,0x2
0285 e004 | | Load 0x0,0x4
0286 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0287 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0288 c405 | | Store 0x2,0x5
0289 e004 | | Load 0x0,0x4
028a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028b 00db | | Load_Top At_Offset_3
028c 0120 | | Execute Any,Is_Value
028d 6804 |h | Jump_Zero 0x292
028e e004 | | Load 0x0,0x4
028f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0290 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0291 7801 |x | Jump 0x293
0292 00db | | Load_Top At_Offset_3
0293 e004 | | Load 0x0,0x4
0294 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0295 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0296 e403 | | Load 0x2,0x3
0297 60dc |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
0298 4801 |H | Short_Literal 0x1
0299 4800 |H | Short_Literal 0x0
029a e006 | | Load 0x0,0x6
029b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029c 4800 |H | Short_Literal 0x0
029d e004 | | Load 0x0,0x4
029e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
029f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02a0 00d1 | | Pop_Control Pop_Count_1
02a1 c40b | | Store 0x2,0xb
02a2 c40d | | Store 0x2,0xd
02a3 c405 | | Store 0x2,0x5
02a4 e004 | | Load 0x0,0x4
02a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a6 00f1 | | Load_Encached Diana_Temp_Seq
02a7 e004 | | Load 0x0,0x4
02a8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
02a9 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02aa 00ec | | Load_Encached Diana_Tree_Cache
02ab e407 | | Load 0x2,0x7
02ac 0120 | | Execute Any,Is_Value
02ad 6803 |h | Jump_Zero 0x2b1
02ae e005 | | Load 0x0,0x5
02af 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b0 7801 |x | Jump 0x2b2
02b1 e407 | | Load 0x2,0x7
02b2 60c1 |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
02b3 e40f | | Load 0x2,0xf
02b4 4800 |H | Short_Literal 0x0
02b5 e004 | | Load 0x0,0x4
02b6 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
02b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b8 e004 | | Load 0x0,0x4
02b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02ba 4802 |H | Short_Literal 0x2
02bb 4801 |H | Short_Literal 0x1
02bc e40b | | Load 0x2,0xb
02bd e004 | | Load 0x0,0x4
02be 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
02bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02c0 c407 | | Store 0x2,0x7
02c1 c40a | | Store 0x2,0xa
02c2 c408 | | Store 0x2,0x8
02c3 c409 | | Store 0x2,0x9
02c4 c405 | | Store 0x2,0x5
02c5 e405 | | Load 0x2,0x5
02c6 0f04 | | Execute_Immediate Equal,0x4
02c7 a40c | | Store_Unchecked 0x2,0xc
02c8 00db | | Load_Top At_Offset_3
02c9 688f |h | Jump_Zero 0x359
02ca e009 | | Load 0x0,0x9
02cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cc 4804 |H | Short_Literal 0x4
02cd e402 | | Load 0x2,0x2
02ce e004 | | Load 0x0,0x4
02cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02d1 0092 0597 | | Action Push_String_Extended,0x597 ; " has"
02d3 01cc | | Execute Vector,Catenate
02d4 e408 | | Load 0x2,0x8
02d5 4975 |Iu | Short_Literal 0x175
02d6 00eb | | Load_Encached Diana_Cache
02d7 0098 | | Execute Package,Field_Read_Dynamic
02d8 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
02d9 e409 | | Load 0x2,0x9
02da 4975 |Iu | Short_Literal 0x175
02db 00eb | | Load_Encached Diana_Cache
02dc 0098 | | Execute Package,Field_Read_Dynamic
02dd 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
02de 0273 | s | Execute Discrete,Plus
02df 00d8 | | Load_Top At_Offset_0
02e0 00e2 | | Load_Encached Integer_Cache
02e1 0260 | ` | Execute Discrete,In_Type
02e2 7001 |p | Jump_Nonzero 0x2e4
02e3 0801 | | Execute_Immediate Raise,0x1
02e4 00e0 | | Load_Encached Standard_Cache
02e5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02e6 01cc | | Execute Vector,Catenate
02e7 0092 0598 | | Action Push_String_Extended,0x598 ; " IMMEDIATE dependents ("
02e9 01cc | | Execute Vector,Catenate
02ea e408 | | Load 0x2,0x8
02eb 8212 | | Call 0x1,0x12
02ec e409 | | Load 0x2,0x9
02ed 8212 | | Call 0x1,0x12
02ee 0273 | s | Execute Discrete,Plus
02ef 00d8 | | Load_Top At_Offset_0
02f0 00e2 | | Load_Encached Integer_Cache
02f1 0260 | ` | Execute Discrete,In_Type
02f2 7001 |p | Jump_Nonzero 0x2f4
02f3 0801 | | Execute_Immediate Raise,0x1
02f4 00e0 | | Load_Encached Standard_Cache
02f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02f6 01cc | | Execute Vector,Catenate
02f7 0092 0599 | | Action Push_String_Extended,0x599 ; " specs):"
02f9 01cc | | Execute Vector,Catenate
02fa e00a | | Load 0x0,0xa
02fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02fc 00cf | | Action Mark_Auxiliary
02fd 4801 |H | Short_Literal 0x1
02fe 00db | | Load_Top At_Offset_3
02ff 0264 | d | Execute Discrete,Below_Bound
0300 7029 |p) | Jump_Nonzero 0x32a
0301 e408 | | Load 0x2,0x8
0302 7002 |p | Jump_Nonzero 0x305
0303 00d2 | | Pop_Control Pop_Count_2
0304 7825 |x% | Jump 0x32a
0305 e408 | | Load 0x2,0x8
0306 0217 | | Execute Heap_Access,All_Reference
0307 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0308 a40a | | Store_Unchecked 0x2,0xa
0309 e009 | | Load 0x0,0x9
030a 180e | | Execute Package,Field_Execute,Field_Number 0xe
030b 4804 |H | Short_Literal 0x4
030c 0092 059a | | Action Push_String_Extended,0x59a ; " "
030e e40a | | Load 0x2,0xa
030f e004 | | Load 0x0,0x4
0310 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0311 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0312 01cc | | Execute Vector,Catenate
0313 e00a | | Load 0x0,0xa
0314 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0315 e408 | | Load 0x2,0x8
0316 0217 | | Execute Heap_Access,All_Reference
0317 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0318 a408 | | Store_Unchecked 0x2,0x8
0319 e40e | | Load 0x2,0xe
031a 0aff | | Execute_Immediate Plus,-0x1
031b c40e | | Store 0x2,0xe
031c 00d8 | | Load_Top At_Offset_0
031d 0f01 | | Execute_Immediate Equal,0x1
031e 6809 |h | Jump_Zero 0x328
031f e408 | | Load 0x2,0x8
0320 6807 |h | Jump_Zero 0x328
0321 e009 | | Load 0x0,0x9
0322 180e | | Execute Package,Field_Execute,Field_Number 0xe
0323 4804 |H | Short_Literal 0x4
0324 0092 059b | | Action Push_String_Extended,0x59b ; " etc..."
0326 e00a | | Load 0x0,0xa
0327 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0328 00c8 | | Action Pop_Auxiliary_Range
0329 37d7 |7 | Loop_Decreasing 0x301
032a 00c9 | | Action Pop_Auxiliary_Loop
032b 4801 |H | Short_Literal 0x1
032c 00db | | Load_Top At_Offset_3
032d 0264 | d | Execute Discrete,Below_Bound
032e 7029 |p) | Jump_Nonzero 0x358
032f e409 | | Load 0x2,0x9
0330 7002 |p | Jump_Nonzero 0x333
0331 00d2 | | Pop_Control Pop_Count_2
0332 7825 |x% | Jump 0x358
0333 e409 | | Load 0x2,0x9
0334 0217 | | Execute Heap_Access,All_Reference
0335 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0336 a40a | | Store_Unchecked 0x2,0xa
0337 e009 | | Load 0x0,0x9
0338 180e | | Execute Package,Field_Execute,Field_Number 0xe
0339 4804 |H | Short_Literal 0x4
033a 0092 059a | | Action Push_String_Extended,0x59a ; " "
033c e40a | | Load 0x2,0xa
033d e004 | | Load 0x0,0x4
033e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
033f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0340 01cc | | Execute Vector,Catenate
0341 e00a | | Load 0x0,0xa
0342 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0343 e409 | | Load 0x2,0x9
0344 0217 | | Execute Heap_Access,All_Reference
0345 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0346 a408 | | Store_Unchecked 0x2,0x8
0347 e40e | | Load 0x2,0xe
0348 0aff | | Execute_Immediate Plus,-0x1
0349 c40e | | Store 0x2,0xe
034a 00d8 | | Load_Top At_Offset_0
034b 0f01 | | Execute_Immediate Equal,0x1
034c 6809 |h | Jump_Zero 0x356
034d e409 | | Load 0x2,0x9
034e 6807 |h | Jump_Zero 0x356
034f e009 | | Load 0x0,0x9
0350 180e | | Execute Package,Field_Execute,Field_Number 0xe
0351 4804 |H | Short_Literal 0x4
0352 0092 059c | | Action Push_String_Extended,0x59c ; " etc... "
0354 e00a | | Load 0x0,0xa
0355 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0356 00c8 | | Action Pop_Auxiliary_Range
0357 37d7 |7 | Loop_Decreasing 0x32f
0358 00ce | | Action Pop_Auxiliary
0359 e404 | | Load 0x2,0x4
035a 680a |h | Jump_Zero 0x365
035b e004 | | Load 0x0,0x4
035c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035d 6016 |` | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000}
035e e006 | | Load 0x0,0x6
035f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0360 e402 | | Load 0x2,0x2
0361 e004 | | Load 0x0,0x4
0362 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0363 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0364 c405 | | Store 0x2,0x5
0365 00d8 | | Load_Top At_Offset_0
0366 4801 |H | Short_Literal 0x1
0367 4800 |H | Short_Literal 0x0
0368 e006 | | Load 0x0,0x6
0369 1818 | | Execute Package,Field_Execute,Field_Number 0x18
036a c40f | | Store 0x2,0xf
036b e403 | | Load 0x2,0x3
036c e5fd | | Load 0x2,-0x3
036d 016d | m | Execute Variant_Record,Structure_Write
036e e402 | | Load 0x2,0x2
036f c5fe | | Store 0x2,-0x2
0370 00db | | Load_Top At_Offset_3
0371 a5fc | | Store_Unchecked 0x2,-0x4
0372 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0373 0000 | | .XXX[0x1]
0374 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0381 | | .CONST 0x0381 ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0004 | | .CONST 0x0004 ; Number of locals
037b INIT_0378:
037b 00e2 | | Load_Encached Integer_Cache
037c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
037d 00db | | Load_Top At_Offset_3
037e 0007 | | Action Break_Optional
037f 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call
0381 BODY_0378:
0381 00cf | | Action Mark_Auxiliary
0382 780d |x | Jump 0x390
0383 00da | | Load_Top At_Offset_2
0384 0217 | | Execute Heap_Access,All_Reference
0385 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0386 8404 | | Call 0x2,0x4
0387 6803 |h | Jump_Zero 0x38b
0388 00db | | Load_Top At_Offset_3
0389 0a01 | | Execute_Immediate Plus,0x1
038a c402 | | Store 0x2,0x2
038b 00da | | Load_Top At_Offset_2
038c 0217 | | Execute Heap_Access,All_Reference
038d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
038e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
038f 00c9 | | Action Pop_Auxiliary_Loop
0390 00da | | Load_Top At_Offset_2
0391 77f1 |w | Jump_Nonzero 0x383
0392 00ce | | Action Pop_Auxiliary
0393 00da | | Load_Top At_Offset_2
0394 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0395 0000 0000 | | .XXX[0x3]
0397 0000 | |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03b4 | | .CONST 0x03b4 ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0008 | | .CONST 0x0008 ; Number of locals
039b INIT_0398:
039b e003 | | Load 0x0,0x3
039c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
039d 02c7 | | Declare_Variable Any
039e 00d8 | | Load_Top At_Offset_0
039f 1c00 | | Execute_Immediate Run_Utility,0x0
03a0 e004 | | Load 0x0,0x4
03a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a2 02c7 | | Declare_Variable Any
03a3 00d8 | | Load_Top At_Offset_0
03a4 1c00 | | Execute_Immediate Run_Utility,0x0
03a5 e004 | | Load 0x0,0x4
03a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a7 e004 | | Load 0x0,0x4
03a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03aa e004 | | Load 0x0,0x4
03ab 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
03ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ad 02c7 | | Declare_Variable Any
03ae 00d8 | | Load_Top At_Offset_0
03af 1c00 | | Execute_Immediate Run_Utility,0x0
03b0 00e2 | | Load_Encached Integer_Cache
03b1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03b2 029f 04b3 | | Declare_Subprogram INIT_04b0,For_Call
03b4 BODY_0398:
03b4 e602 | | Load 0x3,0x2
03b5 00ea | | Load_Encached Null_String_Cache
03b6 e7ff | | Load 0x3,-0x1
03b7 4800 |H | Short_Literal 0x0
03b8 e003 | | Load 0x0,0x3
03b9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03ba c602 | | Store 0x3,0x2
03bb 00cf | | Action Mark_Auxiliary
03bc 7809 |x | Jump 0x3c6
03bd 00da | | Load_Top At_Offset_2
03be e602 | | Load 0x3,0x2
03bf e003 | | Load 0x0,0x3
03c0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
03c1 01db | | Execute Vector,Length
03c2 0273 | s | Execute Discrete,Plus
03c3 0a01 | | Execute_Immediate Plus,0x1
03c4 005b | [ | Store_Top Discrete,At_Offset_3
03c5 00c9 | | Action Pop_Auxiliary_Loop
03c6 e602 | | Load 0x3,0x2
03c7 e003 | | Load 0x0,0x3
03c8 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03c9 6ff3 |o | Jump_Zero 0x3bd
03ca 00ce | | Action Pop_Auxiliary
03cb 8608 | | Call 0x3,0x8
03cc 0831 | 1 | Execute_Immediate Raise,0x31
03cd 0000 0000 | | .XXX[0x3]
03cf 0000 | |
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 4607 |F | Jump_Case 0x8
03d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03d5 7807 |x | Jump 0x3dd ; case 0x1
03d6 780a |x | Jump 0x3e1 ; case 0x2
03d7 780e |x | Jump 0x3e6 ; case 0x3
03d8 7811 |x | Jump 0x3ea ; case 0x4
03d9 7812 |x | Jump 0x3ec ; case 0x5
03da 7813 |x | Jump 0x3ee ; case 0x6
03db 7816 |x | Jump 0x3f2 ; case 0x7
03dc 4302 |C | .XXX[0x1]
03dd 00da | | Load_Top At_Offset_2
03de 0091 0593 | | Action Push_String_Extended_Indexed,0x593 ; "CHANGE"
03e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03e1 00db | | Load_Top At_Offset_3
03e2 00db | | Load_Top At_Offset_3
03e3 00e0 | | Load_Encached Standard_Cache
03e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03e6 00da | | Load_Top At_Offset_2
03e7 00e0 | | Load_Encached Standard_Cache
03e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03ea 00db | | Load_Top At_Offset_3
03eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ec 00db | | Load_Top At_Offset_3
03ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ee e402 | | Load 0x2,0x2
03ef 00dc | | Load_Top At_Offset_4
03f0 0267 | g | Execute Discrete,Predecessor
03f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03f2 e402 | | Load 0x2,0x2
03f3 00dc | | Load_Top At_Offset_4
03f4 0268 | h | Execute Discrete,Successor
03f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03f6 0000 0000 | | .XXX[0x2]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0406 | | .CONST 0x0406 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0003 | | .CONST 0x0003 ; Number of locals
03fb INIT_03f8:
03fb 4800 |H | Short_Literal 0x0
03fc e7fe | | Load 0x3,-0x2
03fd 480a |H | Short_Literal 0xa
03fe e002 | | Load 0x0,0x2
03ff 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0400 00e2 | | Load_Encached Integer_Cache
0401 03f1 | | Declare_Variable Discrete,With_Value
0402 e7fe | | Load 0x3,-0x2
0403 01dd | | Execute Vector,First
0404 00e2 | | Load_Encached Integer_Cache
0405 03f1 | | Declare_Variable Discrete,With_Value
0406 BODY_03f8:
0406 00cf | | Action Mark_Auxiliary
0407 781c |x | Jump 0x424
0408 e7ff | | Load 0x3,-0x1
0409 00da | | Load_Top At_Offset_2
040a e602 | | Load 0x3,0x2
040b 0aff | | Execute_Immediate Plus,-0x1
040c 00d8 | | Load_Top At_Offset_0
040d 00e2 | | Load_Encached Integer_Cache
040e 0260 | ` | Execute Discrete,In_Type
040f 7001 |p | Jump_Nonzero 0x411
0410 0801 | | Execute_Immediate Raise,0x1
0411 e7fe | | Load 0x3,-0x2
0412 01cf | | Execute Vector,Slice_Read
0413 01ca | | Execute Vector,Prepend
0414 e003 | | Load 0x0,0x3
0415 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0416 00da | | Load_Top At_Offset_2
0417 0a01 | | Execute_Immediate Plus,0x1
0418 005a | Z | Store_Top Discrete,At_Offset_2
0419 4800 |H | Short_Literal 0x0
041a 00da | | Load_Top At_Offset_2
041b e7fe | | Load 0x3,-0x2
041c 01dc | | Execute Vector,Last
041d e7fe | | Load 0x3,-0x2
041e 01cf | | Execute Vector,Slice_Read
041f 480a |H | Short_Literal 0xa
0420 e002 | | Load 0x0,0x2
0421 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0422 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0423 00c9 | | Action Pop_Auxiliary_Loop
0424 00da | | Load_Top At_Offset_2
0425 0c01 | | Execute_Immediate Greater_Equal,0x1
0426 77e1 |w | Jump_Nonzero 0x408
0427 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042d | - | .CONST 0x042d ; Address of begin
0429 043d | = | .CONST 0x043d ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call
042d BODY_0428:
042d e7fe | | Load 0x3,-0x2
042e 0f02 | | Execute_Immediate Equal,0x2
042f 6803 |h | Jump_Zero 0x433
0430 00db | | Load_Top At_Offset_3
0431 0f32 | 2 | Execute_Immediate Equal,0x32
0432 7006 |p | Jump_Nonzero 0x439
0433 e7fe | | Load 0x3,-0x2
0434 0f01 | | Execute_Immediate Equal,0x1
0435 6805 |h | Jump_Zero 0x43b
0436 00db | | Load_Top At_Offset_3
0437 0f31 | 1 | Execute_Immediate Equal,0x31
0438 6802 |h | Jump_Zero 0x43b
0439 00ea | | Load_Encached Null_String_Cache
043a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
043b 8602 | | Call 0x3,0x2
043c 0831 | 1 | Execute_Immediate Raise,0x31
043d TRAP_0428:
043d 00d8 | | Load_Top At_Offset_0
043e 0107 | | Execute Exception,Get_Name
043f 4950 |IP | Short_Literal 0x150
0440 495f |I_ | Short_Literal 0x15f
0441 0262 | b | Execute Discrete,In_Range
0442 6802 |h | Jump_Zero 0x445
0443 00ea | | Load_Encached Null_String_Cache
0444 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0445 0100 | | Execute Exception,Raise
0446 0000 0000 | | .XXX[0x2]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044d | M | .CONST 0x044d ; Address of begin
0449 045d | ] | .CONST 0x045d ; Address of exception handler
044a 0002 | | .CONST 0x0002 ; Number of locals
044b INIT_0448:
044b 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
044d BODY_0448:
044d 00db | | Load_Top At_Offset_3
044e 01dd | | Execute Vector,First
044f e7ff | | Load 0x3,-0x1
0450 01d7 | | Execute Vector,Field_Read
0451 0f2a | * | Execute_Immediate Equal,0x2a
0452 6802 |h | Jump_Zero 0x455
0453 8602 | | Call 0x3,0x2
0454 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0455 e009 | | Load 0x0,0x9
0456 180e | | Execute Package,Field_Execute,Field_Number 0xe
0457 4808 |H | Short_Literal 0x8
0458 0092 059d | | Action Push_String_Extended,0x59d ; "Unexpected format in diff file."
045a e00a | | Load 0x0,0xa
045b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
045c 08e2 | | Execute_Immediate Raise,0xe2
045d TRAP_0448:
045d 010e | | Execute Exception,Is_Constraint_Error
045e 680a |h | Jump_Zero 0x469
045f e009 | | Load 0x0,0x9
0460 180e | | Execute Package,Field_Execute,Field_Number 0xe
0461 4808 |H | Short_Literal 0x8
0462 0092 059e | | Action Push_String_Extended,0x59e ; "Unexpected diff command: "
0464 e7ff | | Load 0x3,-0x1
0465 01cc | | Execute Vector,Catenate
0466 e00a | | Load 0x0,0xa
0467 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0468 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0469 0100 | | Execute Exception,Raise
046a 0000 0000 | | .BLANK 0000[0x6]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00da | | Load_Top At_Offset_2
0474 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0475 00d8 | | Load_Top At_Offset_0
0476 0d29 | ) | Execute_Immediate Less,0x29
0477 7023 |p# | Jump_Nonzero 0x49b
0478 00d8 | | Load_Top At_Offset_0
0479 0c42 | B | Execute_Immediate Greater_Equal,0x42
047a 701d |p | Jump_Nonzero 0x498
047b 0ad7 | | Execute_Immediate Plus,-0x29
047c 4618 |F | Jump_Case 0x19
047d 7822 |x" | Jump 0x4a0 ; case 0x0
047e 782b |x+ | Jump 0x4aa ; case 0x1
047f 782a |x* | Jump 0x4aa ; case 0x2
0480 781f |x | Jump 0x4a0 ; case 0x3
0481 7828 |x( | Jump 0x4aa ; case 0x4
0482 7827 |x' | Jump 0x4aa ; case 0x5
0483 7826 |x& | Jump 0x4aa ; case 0x6
0484 7825 |x% | Jump 0x4aa ; case 0x7
0485 7824 |x$ | Jump 0x4aa ; case 0x8
0486 7823 |x# | Jump 0x4aa ; case 0x9
0487 7822 |x" | Jump 0x4aa ; case 0xa
0488 7821 |x! | Jump 0x4aa ; case 0xb
0489 7820 |x | Jump 0x4aa ; case 0xc
048a 781f |x | Jump 0x4aa ; case 0xd
048b 781e |x | Jump 0x4aa ; case 0xe
048c 781d |x | Jump 0x4aa ; case 0xf
048d 781c |x | Jump 0x4aa ; case 0x10
048e 781b |x | Jump 0x4aa ; case 0x11
048f 781a |x | Jump 0x4aa ; case 0x12
0490 7819 |x | Jump 0x4aa ; case 0x13
0491 7804 |x | Jump 0x496 ; case 0x14
0492 7803 |x | Jump 0x496 ; case 0x15
0493 7816 |x | Jump 0x4aa ; case 0x16
0494 7815 |x | Jump 0x4aa ; case 0x17
0495 7800 |x | Jump 0x496 ; case 0x18
0496 4801 |H | Short_Literal 0x1
0497 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0498 0fa8 | | Execute_Immediate Equal,-0x58
0499 700b |p | Jump_Nonzero 0x4a5
049a 780f |x | Jump 0x4aa
049b 4821 |H! | Short_Literal 0x21
049c 4822 |H" | Short_Literal 0x22
049d 0262 | b | Execute Discrete,In_Range
049e 7001 |p | Jump_Nonzero 0x4a0
049f 780a |x | Jump 0x4aa
04a0 00da | | Load_Top At_Offset_2
04a1 00eb | | Load_Encached Diana_Cache
04a2 18ec | | Execute Package,Field_Execute,Field_Number 0xec
04a3 8404 | | Call 0x2,0x4
04a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a5 00da | | Load_Top At_Offset_2
04a6 00eb | | Load_Encached Diana_Cache
04a7 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
04a8 8404 | | Call 0x2,0x4
04a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04aa 4800 |H | Short_Literal 0x0
04ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ac 0000 0000 | | .BLANK 0000[0x4]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04bc | | .CONST 0x04bc ; Address of begin
04b1 04e2 | | .CONST 0x04e2 ; Address of exception handler
04b2 0004 | | .CONST 0x0004 ; Number of locals
04b3 INIT_04b0:
04b3 4801 |H | Short_Literal 0x1
04b4 e607 | | Load 0x3,0x7
04b5 00e9 | | Load_Encached String_Cache
04b6 035b | [ | Declare_Type Array,Constrained
04b7 0337 | 7 | Declare_Variable Array
04b8 00e2 | | Load_Encached Integer_Cache
04b9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04ba 00e1 | | Load_Encached Boolean_Cache
04bb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04bc BODY_04b0:
04bc e602 | | Load 0x3,0x2
04bd e003 | | Load 0x0,0x3
04be 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04bf c602 | | Store 0x3,0x2
04c0 00cf | | Action Mark_Auxiliary
04c1 780f |x | Jump 0x4d1
04c2 00d9 | | Load_Top At_Offset_1
04c3 00db | | Load_Top At_Offset_3
04c4 e802 | | Load 0x4,0x2
04c5 e5fd | | Load 0x2,-0x3
04c6 4820 |H | Short_Literal 0x20
04c7 e602 | | Load 0x3,0x2
04c8 e003 | | Load 0x0,0x3
04c9 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
04ca e002 | | Load 0x0,0x2
04cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04cc 820d | | Call 0x1,0xd
04cd 00d1 | | Pop_Control Pop_Count_1
04ce c803 | | Store 0x4,0x3
04cf 005a | Z | Store_Top Discrete,At_Offset_2
04d0 00c9 | | Action Pop_Auxiliary_Loop
04d1 e602 | | Load 0x3,0x2
04d2 e003 | | Load 0x0,0x3
04d3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
04d4 6fed |o | Jump_Zero 0x4c2
04d5 00ce | | Action Pop_Auxiliary
04d6 e602 | | Load 0x3,0x2
04d7 e003 | | Load 0x0,0x3
04d8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04d9 c602 | | Store 0x3,0x2
04da 4801 |H | Short_Literal 0x1
04db 00da | | Load_Top At_Offset_2
04dc e802 | | Load 0x4,0x2
04dd 01cf | | Execute Vector,Slice_Read
04de 00e9 | | Load_Encached String_Cache
04df 01c6 | | Execute Vector,Convert_To_Formal
04e0 00cb | | Action Pop_Block_With_Result
04e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04e2 TRAP_04b0:
04e2 00d8 | | Load_Top At_Offset_0
04e3 0107 | | Execute Exception,Get_Name
04e4 4950 |IP | Short_Literal 0x150
04e5 495f |I_ | Short_Literal 0x15f
04e6 0262 | b | Execute Discrete,In_Range
04e7 680c |h | Jump_Zero 0x4f4
04e8 e602 | | Load 0x3,0x2
04e9 e003 | | Load 0x0,0x3
04ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04eb c602 | | Store 0x3,0x2
04ec 4801 |H | Short_Literal 0x1
04ed 00db | | Load_Top At_Offset_3
04ee e802 | | Load 0x4,0x2
04ef 01cf | | Execute Vector,Slice_Read
04f0 00e9 | | Load_Encached String_Cache
04f1 01c6 | | Execute Vector,Convert_To_Formal
04f2 00cb | | Action Pop_Block_With_Result
04f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04f4 0100 | | Execute Exception,Raise
04f5 0000 0000 | | .XXX[0x3]
04f7 0000 | |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fe | | .CONST 0x04fe ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0002 | | .CONST 0x0002 ; Number of locals
04fb INIT_04f8:
04fb e403 | | Load 0x2,0x3
04fc e003 | | Load 0x0,0x3
04fd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
04fe BODY_04f8:
04fe 00d8 | | Load_Top At_Offset_0
04ff 01db | | Execute Vector,Length
0500 0c01 | | Execute_Immediate Greater_Equal,0x1
0501 681b |h | Jump_Zero 0x51d
0502 00d8 | | Load_Top At_Offset_0
0503 01dd | | Execute Vector,First
0504 00d9 | | Load_Top At_Offset_1
0505 01d7 | | Execute Vector,Field_Read
0506 e7ff | | Load 0x3,-0x1
0507 027f | | Execute Discrete,Equal
0508 6814 |h | Jump_Zero 0x51d
0509 480a |H | Short_Literal 0xa
050a 00d9 | | Load_Top At_Offset_1
050b 01dd | | Execute Vector,First
050c 0a01 | | Execute_Immediate Plus,0x1
050d 00d8 | | Load_Top At_Offset_0
050e 00e2 | | Load_Encached Integer_Cache
050f 0260 | ` | Execute Discrete,In_Type
0510 7001 |p | Jump_Nonzero 0x512
0511 0801 | | Execute_Immediate Raise,0x1
0512 00da | | Load_Top At_Offset_2
0513 01dc | | Execute Vector,Last
0514 00db | | Load_Top At_Offset_3
0515 01cf | | Execute Vector,Slice_Read
0516 01cb | | Execute Vector,Append
0517 e7fe | | Load 0x3,-0x2
0518 e7ff | | Load 0x3,-0x1
0519 8405 | | Call 0x2,0x5
051a 01cc | | Execute Vector,Catenate
051b 00cb | | Action Pop_Block_With_Result
051c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
051d 00ea | | Load_Encached Null_String_Cache
051e 00cb | | Action Pop_Block_With_Result
051f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 053d | = | .CONST 0x053d ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0004 | | .CONST 0x0004 ; Number of locals
0523 INIT_0520:
0523 e7ff | | Load 0x3,-0x1
0524 01dd | | Execute Vector,First
0525 0a01 | | Execute_Immediate Plus,0x1
0526 00d8 | | Load_Top At_Offset_0
0527 00e2 | | Load_Encached Integer_Cache
0528 0260 | ` | Execute Discrete,In_Type
0529 7001 |p | Jump_Nonzero 0x52b
052a 0801 | | Execute_Immediate Raise,0x1
052b e7ff | | Load 0x3,-0x1
052c 01dd | | Execute Vector,First
052d 0a07 | | Execute_Immediate Plus,0x7
052e 00d8 | | Load_Top At_Offset_0
052f 00e2 | | Load_Encached Integer_Cache
0530 0260 | ` | Execute Discrete,In_Type
0531 7001 |p | Jump_Nonzero 0x533
0532 0801 | | Execute_Immediate Raise,0x1
0533 e7ff | | Load 0x3,-0x1
0534 01cf | | Execute Vector,Slice_Read
0535 e402 | | Load 0x2,0x2
0536 1c02 | | Execute_Immediate Run_Utility,0x2
0537 00d8 | | Load_Top At_Offset_0
0538 4831 |H1 | Short_Literal 0x31
0539 8405 | | Call 0x2,0x5
053a 00d9 | | Load_Top At_Offset_1
053b 4832 |H2 | Short_Literal 0x32
053c 8405 | | Call 0x2,0x5
053d BODY_0520:
053d e5fc | | Load 0x2,-0x4
053e 00da | | Load_Top At_Offset_2
053f 820e | | Call 0x1,0xe
0540 e5fc | | Load 0x2,-0x4
0541 00da | | Load_Top At_Offset_2
0542 820e | | Call 0x1,0xe
0543 01de | | Execute Vector,Not_Equal
0544 684d |hM | Jump_Zero 0x592
0545 e5fb | | Load 0x2,-0x5
0546 7024 |p$ | Jump_Nonzero 0x56b
0547 e5fd | | Load 0x2,-0x3
0548 6820 |h | Jump_Zero 0x569
0549 4801 |H | Short_Literal 0x1
054a e003 | | Load 0x0,0x3
054b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
054c 4820 |H | Short_Literal 0x20
054d 0092 059f | | Action Push_String_Extended,0x59f ; "# Update "
054f e5fe | | Load 0x2,-0x2
0550 01cc | | Execute Vector,Catenate
0551 01cb | | Execute Vector,Append
0552 e5fe | | Load 0x2,-0x2
0553 01db | | Execute Vector,Length
0554 0a0b | | Execute_Immediate Plus,0xb
0555 484c |HL | Short_Literal 0x4c
0556 00e9 | | Load_Encached String_Cache
0557 035b | [ | Declare_Type Array,Constrained
0558 0337 | 7 | Declare_Variable Array
0559 484c |HL | Short_Literal 0x4c
055a 00d9 | | Load_Top At_Offset_1
055b 01dd | | Execute Vector,First
055c 0263 | c | Execute Discrete,Above_Bound
055d 7005 |p | Jump_Nonzero 0x563
055e 4823 |H# | Short_Literal 0x23
055f 00d9 | | Load_Top At_Offset_1
0560 e806 | | Load 0x4,0x6
0561 01d6 | | Execute Vector,Field_Write
0562 3ffb |? | Loop_Increasing 0x55e
0563 01cc | | Execute Vector,Catenate
0564 e003 | | Load 0x0,0x3
0565 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0566 4801 |H | Short_Literal 0x1
0567 e003 | | Load 0x0,0x3
0568 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0569 4801 |H | Short_Literal 0x1
056a a5fb | | Store_Unchecked 0x2,-0x5
056b e5fd | | Load 0x2,-0x3
056c 6825 |h% | Jump_Zero 0x592
056d 4823 |H# | Short_Literal 0x23
056e e7ff | | Load 0x3,-0x1
056f 01dd | | Execute Vector,First
0570 0a01 | | Execute_Immediate Plus,0x1
0571 00d8 | | Load_Top At_Offset_0
0572 00e2 | | Load_Encached Integer_Cache
0573 0260 | ` | Execute Discrete,In_Type
0574 7001 |p | Jump_Nonzero 0x576
0575 0801 | | Execute_Immediate Raise,0x1
0576 e7ff | | Load 0x3,-0x1
0577 01dc | | Execute Vector,Last
0578 e7ff | | Load 0x3,-0x1
0579 01cf | | Execute Vector,Slice_Read
057a 01ca | | Execute Vector,Prepend
057b e003 | | Load 0x0,0x3
057c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
057d 00da | | Load_Top At_Offset_2
057e 0e01 | | Execute_Immediate Not_Equal,0x1
057f 6803 |h | Jump_Zero 0x583
0580 00d9 | | Load_Top At_Offset_1
0581 4823 |H# | Short_Literal 0x23
0582 8404 | | Call 0x2,0x4
0583 00da | | Load_Top At_Offset_2
0584 7004 |p | Jump_Nonzero 0x589
0585 0092 05a0 | | Action Push_String_Extended,0x5a0 ; "# to be:"
0587 e003 | | Load 0x0,0x3
0588 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0589 00da | | Load_Top At_Offset_2
058a 0e02 | | Execute_Immediate Not_Equal,0x2
058b 6803 |h | Jump_Zero 0x58f
058c 00d8 | | Load_Top At_Offset_0
058d 4820 |H | Short_Literal 0x20
058e 8404 | | Call 0x2,0x4
058f 4801 |H | Short_Literal 0x1
0590 e003 | | Load 0x0,0x3
0591 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0592 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0593 ; --------------------------------------------------------------------------------------
0593 ; STRING TABLE
0593 ; --------------------------------------------------------------------------------------
0593 001e | | .STRTAB 0x001e->0x05a2 ; "CHANGE"
0594 0022 | " | .STRTAB 0x0022->0x05a5 ; "INSERT"
0595 0026 | & | .STRTAB 0x0026->0x05a8 ; "DELETE"
0596 002a | * | .STRTAB 0x002a->0x05ab ; "# Finish "
0597 0031 | 1 | .STRTAB 0x0031->0x05af ; " has"
0598 0033 | 3 | .STRTAB 0x0033->0x05b1 ; " IMMEDIATE dependents ("
0599 0048 | H | .STRTAB 0x0048->0x05bd ; " specs):"
059a 004e | N | .STRTAB 0x004e->0x05c1 ; " "
059b 004f | O | .STRTAB 0x004f->0x05c2 ; " etc..."
059c 0056 | V | .STRTAB 0x0056->0x05c7 ; " etc... "
059d 005e | ^ | .STRTAB 0x005e->0x05cc ; "Unexpected format in diff file."
059e 007b | { | .STRTAB 0x007b->0x05db ; "Unexpected diff command: "
059f 0092 | | .STRTAB 0x0092->0x05e8 ; "# Update "
05a0 0099 | | .STRTAB 0x0099->0x05ec ; "# to be:"
05a1 009f | | .STREND 0x009f->0x05f0
05a2 4348 414e |CHAN| .STRTAB_STRINGS
05f1 0000 0000 | | .BLANK 0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug Table
05f8 ; --------------------------------------------------------------------------------------
05f8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b80,0x0000,0x0001,0x0000
05fe 9dcc b935 | 5| .XXX[0x2]