|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 06c0 | | .CONST 0x06c0 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 01e8 | | .CONST 0x01e8 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 00bc | | .CONST 0x00bc ; Number of locals 000b INIT_0008: 000b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 000d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 000f 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0011 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0013 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0015 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0017 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0019 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 001b 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 001d 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 001f 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0021 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0023 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0025 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0027 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0029 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 002b 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 002d 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 002f 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 0031 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0033 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 0035 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 0037 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0039 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 003b 0093 0000 | | push_full_address 0x0 003d 61be |a | Indirect_Literal Discrete,0x1fc,{0x80000000, 0x00010000} 003e 0273 | s | Execute Discrete,Plus 003f 0129 | ) | Execute Any,Make_Visible 0040 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 0042 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 0044 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0046 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 0048 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 004a 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated 004c 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 004e 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 0050 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 0052 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated 0054 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0056 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated 0058 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 005a 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated 005c 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 005e 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 0060 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0062 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 0064 029a 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call,Visible,Unelaborated 0066 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 0068 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 006a 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 006c 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated 006e 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated 0070 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated 0072 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated 0074 4818 |H | Short_Literal 0x18 0075 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0076 00d8 | | Load_Top At_Offset_0 0077 02a0 | | Declare_Subprogram Null_Subprogram 0078 4818 |H | Short_Literal 0x18 0079 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 007a 00bf | | Action Accept_Activation 007b 029b 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Unelaborated 007d 029b 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call,Unelaborated 007f 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call 0081 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call 0083 e002 | | Load 0x0,0x2 0084 e003 | | Load 0x0,0x3 0085 e004 | | Load 0x0,0x4 0086 e005 | | Load 0x0,0x5 0087 e006 | | Load 0x0,0x6 0088 e007 | | Load 0x0,0x7 0089 e008 | | Load 0x0,0x8 008a 4800 |H | Short_Literal 0x0 008b e009 | | Load 0x0,0x9 008c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 008d 800a | | Call 0x0,0xa 008e a00b | | Store_Unchecked 0x0,0xb 008f a00c | | Store_Unchecked 0x0,0xc 0090 e00d | | Load 0x0,0xd 0091 800e | | Call 0x0,0xe 0092 e00f | | Load 0x0,0xf 0093 480c |H | Short_Literal 0xc 0094 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 0095 e010 | | Load 0x0,0x10 0096 4800 |H | Short_Literal 0x0 0097 4800 |H | Short_Literal 0x0 0098 4801 |H | Short_Literal 0x1 0099 4803 |H | Short_Literal 0x3 009a 4802 |H | Short_Literal 0x2 009b 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 009c 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 009d e011 | | Load 0x0,0x11 009e 8012 | | Call 0x0,0x12 009f 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 00a0 4850 |HP | Short_Literal 0x50 00a1 e013 | | Load 0x0,0x13 00a2 0387 | | Declare_Variable Package 00a3 00d8 | | Load_Top At_Offset_0 00a4 020f | | Execute Module,Activate 00a5 00d8 | | Load_Top At_Offset_0 00a6 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 00a7 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00ae 00c7 | | Action Elaborate_Subprogram 00af 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00b0 00c7 | | Action Elaborate_Subprogram 00b1 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00b2 00c7 | | Action Elaborate_Subprogram 00b3 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00b4 00c7 | | Action Elaborate_Subprogram 00b5 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00b6 00c7 | | Action Elaborate_Subprogram 00b7 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b8 00c7 | | Action Elaborate_Subprogram 00b9 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00ba 00c7 | | Action Elaborate_Subprogram 00bb 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00bc 00c7 | | Action Elaborate_Subprogram 00bd 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00be 00c7 | | Action Elaborate_Subprogram 00bf 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00c0 00c7 | | Action Elaborate_Subprogram 00c1 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00c4 00c7 | | Action Elaborate_Subprogram 00c5 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00c8 00c7 | | Action Elaborate_Subprogram 00c9 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00ca 00c7 | | Action Elaborate_Subprogram 00cb 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00cc 00c7 | | Action Elaborate_Subprogram 00cd 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00ce 00c7 | | Action Elaborate_Subprogram 00cf 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00d0 00c7 | | Action Elaborate_Subprogram 00d1 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00d2 00c7 | | Action Elaborate_Subprogram 00d3 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00d4 00c7 | | Action Elaborate_Subprogram 00d5 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00d6 00c7 | | Action Elaborate_Subprogram 00d7 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00d8 00c7 | | Action Elaborate_Subprogram 00d9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00da 00c7 | | Action Elaborate_Subprogram 00db 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00dc 00c7 | | Action Elaborate_Subprogram 00dd 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00de 00c7 | | Action Elaborate_Subprogram 00df 00d9 | | Load_Top At_Offset_1 00e0 1b46 | F | Execute Package,Field_Read,Field_Number 0x46 00e1 02a0 | | Declare_Subprogram Null_Subprogram 00e2 e240 | @ | Load 0x1,0x40 00e3 03c7 | | Complete_Type Access,By_Defining 00e4 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00ed 00c7 | | Action Elaborate_Subprogram 00ee 00e2 | | Load_Encached Integer_Cache 00ef 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00f0 e00d | | Load 0x0,0xd 00f1 e014 | | Load 0x0,0x14 00f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f3 02a0 | | Declare_Subprogram Null_Subprogram 00f4 4802 |H | Short_Literal 0x2 00f5 032d | - | Declare_Type Record,Defined 00f6 e00d | | Load 0x0,0xd 00f7 e014 | | Load 0x0,0x14 00f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f9 e014 | | Load 0x0,0x14 00fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fb 02a0 | | Declare_Subprogram Null_Subprogram 00fc 4803 |H | Short_Literal 0x3 00fd 032d | - | Declare_Type Record,Defined 00fe 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call 0100 e246 | F | Load 0x1,0x46 0101 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0102 00c6 | | Action Check_Subprogram_Elaborated 0103 e015 | | Load 0x0,0x15 0104 00e2 | | Load_Encached Integer_Cache 0105 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0106 4800 |H | Short_Literal 0x0 0107 e016 | | Load 0x0,0x16 0108 e017 | | Load 0x0,0x17 0109 4800 |H | Short_Literal 0x0 010a 0007 | | Action Break_Optional 010b 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 010c 00c7 | | Action Elaborate_Subprogram 010d 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 010e 00c7 | | Action Elaborate_Subprogram 010f 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call 0111 e246 | F | Load 0x1,0x46 0112 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0113 00c6 | | Action Check_Subprogram_Elaborated 0114 e00d | | Load 0x0,0xd 0115 00e2 | | Load_Encached Integer_Cache 0116 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 0117 4800 |H | Short_Literal 0x0 0118 e018 | | Load 0x0,0x18 0119 e019 | | Load 0x0,0x19 011a 4800 |H | Short_Literal 0x0 011b 0007 | | Action Break_Optional 011c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 011d 00c7 | | Action Elaborate_Subprogram 011e 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call 0120 e246 | F | Load 0x1,0x46 0121 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0122 00c6 | | Action Check_Subprogram_Elaborated 0123 e014 | | Load 0x0,0x14 0124 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0125 00e2 | | Load_Encached Integer_Cache 0126 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 0127 4800 |H | Short_Literal 0x0 0128 e01a | | Load 0x0,0x1a 0129 e01b | | Load 0x0,0x1b 012a 4800 |H | Short_Literal 0x0 012b 0007 | | Action Break_Optional 012c 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 012d 00c7 | | Action Elaborate_Subprogram 012e 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call 0130 e246 | F | Load 0x1,0x46 0131 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0132 00c6 | | Action Check_Subprogram_Elaborated 0133 e00d | | Load 0x0,0xd 0134 00e2 | | Load_Encached Integer_Cache 0135 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 0136 4800 |H | Short_Literal 0x0 0137 e01c | | Load 0x0,0x1c 0138 e01d | | Load 0x0,0x1d 0139 4800 |H | Short_Literal 0x0 013a 0007 | | Action Break_Optional 013b 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 013c 00c7 | | Action Elaborate_Subprogram 013d 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call 013f e246 | F | Load 0x1,0x46 0140 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0141 00c6 | | Action Check_Subprogram_Elaborated 0142 e014 | | Load 0x0,0x14 0143 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0144 00e2 | | Load_Encached Integer_Cache 0145 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b 0146 4800 |H | Short_Literal 0x0 0147 e01e | | Load 0x0,0x1e 0148 e01f | | Load 0x0,0x1f 0149 4800 |H | Short_Literal 0x0 014a 0007 | | Action Break_Optional 014b 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 014c 00c7 | | Action Elaborate_Subprogram 014d 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call 014f e246 | F | Load 0x1,0x46 0150 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0151 00c6 | | Action Check_Subprogram_Elaborated 0152 e014 | | Load 0x0,0x14 0153 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0154 00e2 | | Load_Encached Integer_Cache 0155 1d73 | s | Execute_Immediate Reference_Lex_1,0x73 0156 4800 |H | Short_Literal 0x0 0157 e020 | | Load 0x0,0x20 0158 e021 | ! | Load 0x0,0x21 0159 4800 |H | Short_Literal 0x0 015a 0007 | | Action Break_Optional 015b 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 015c 00c7 | | Action Elaborate_Subprogram 015d 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 015e 00c7 | | Action Elaborate_Subprogram 015f 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call 0161 e246 | F | Load 0x1,0x46 0162 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0163 00c6 | | Action Check_Subprogram_Elaborated 0164 e014 | | Load 0x0,0x14 0165 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0166 00e2 | | Load_Encached Integer_Cache 0167 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b 0168 4800 |H | Short_Literal 0x0 0169 e022 | " | Load 0x0,0x22 016a e023 | # | Load 0x0,0x23 016b 4800 |H | Short_Literal 0x0 016c 0007 | | Action Break_Optional 016d 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 016e 00c7 | | Action Elaborate_Subprogram 016f 029d 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call 0171 e246 | F | Load 0x1,0x46 0172 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0173 00c6 | | Action Check_Subprogram_Elaborated 0174 e024 | $ | Load 0x0,0x24 0175 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0176 00e2 | | Load_Encached Integer_Cache 0177 1d83 | | Execute_Immediate Reference_Lex_1,0x83 0178 4800 |H | Short_Literal 0x0 0179 e025 | % | Load 0x0,0x25 017a e026 | & | Load 0x0,0x26 017b 4800 |H | Short_Literal 0x0 017c 0007 | | Action Break_Optional 017d 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 017e 00c7 | | Action Elaborate_Subprogram 017f 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call 0181 e246 | F | Load 0x1,0x46 0182 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0183 00c6 | | Action Check_Subprogram_Elaborated 0184 00e1 | | Load_Encached Boolean_Cache 0185 00e2 | | Load_Encached Integer_Cache 0186 1d8b | | Execute_Immediate Reference_Lex_1,0x8b 0187 4800 |H | Short_Literal 0x0 0188 e027 | ' | Load 0x0,0x27 0189 e028 | ( | Load 0x0,0x28 018a 4800 |H | Short_Literal 0x0 018b 0007 | | Action Break_Optional 018c 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 018d 00c7 | | Action Elaborate_Subprogram 018e 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 0190 e246 | F | Load 0x1,0x46 0191 1942 | B | Execute Package,Field_Reference,Field_Number 0x42 0192 00c6 | | Action Check_Subprogram_Elaborated 0193 00e1 | | Load_Encached Boolean_Cache 0194 1d93 | | Execute_Immediate Reference_Lex_1,0x93 0195 4800 |H | Short_Literal 0x0 0196 e029 | ) | Load 0x0,0x29 0197 e02a | * | Load 0x0,0x2a 0198 4800 |H | Short_Literal 0x0 0199 0007 | | Action Break_Optional 019a 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 019b 00c7 | | Action Elaborate_Subprogram 019c 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 019d 00c7 | | Action Elaborate_Subprogram 019e 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call 01a0 e246 | F | Load 0x1,0x46 01a1 1942 | B | Execute Package,Field_Reference,Field_Number 0x42 01a2 00c6 | | Action Check_Subprogram_Elaborated 01a3 e015 | | Load 0x0,0x15 01a4 1d9a | | Execute_Immediate Reference_Lex_1,0x9a 01a5 4800 |H | Short_Literal 0x0 01a6 e02b | + | Load 0x0,0x2b 01a7 e02c | , | Load 0x0,0x2c 01a8 4800 |H | Short_Literal 0x0 01a9 0007 | | Action Break_Optional 01aa 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 01ab 00c7 | | Action Elaborate_Subprogram 01ac 029d 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call 01ae e246 | F | Load 0x1,0x46 01af 1942 | B | Execute Package,Field_Reference,Field_Number 0x42 01b0 00c6 | | Action Check_Subprogram_Elaborated 01b1 e249 | I | Load 0x1,0x49 01b2 1da1 | | Execute_Immediate Reference_Lex_1,0xa1 01b3 4800 |H | Short_Literal 0x0 01b4 e02d | - | Load 0x0,0x2d 01b5 e02e | . | Load 0x0,0x2e 01b6 4800 |H | Short_Literal 0x0 01b7 0007 | | Action Break_Optional 01b8 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 01b9 00c7 | | Action Elaborate_Subprogram 01ba 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call 01bc e246 | F | Load 0x1,0x46 01bd 1942 | B | Execute Package,Field_Reference,Field_Number 0x42 01be 00c6 | | Action Check_Subprogram_Elaborated 01bf e24a | J | Load 0x1,0x4a 01c0 1da8 | | Execute_Immediate Reference_Lex_1,0xa8 01c1 4800 |H | Short_Literal 0x0 01c2 e02f | / | Load 0x0,0x2f 01c3 e030 | 0 | Load 0x0,0x30 01c4 4800 |H | Short_Literal 0x0 01c5 0007 | | Action Break_Optional 01c6 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 01c7 00c7 | | Action Elaborate_Subprogram 01c8 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call 01ca e246 | F | Load 0x1,0x46 01cb 1942 | B | Execute Package,Field_Reference,Field_Number 0x42 01cc 00c6 | | Action Check_Subprogram_Elaborated 01cd e014 | | Load 0x0,0x14 01ce 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 01cf 1daf | | Execute_Immediate Reference_Lex_1,0xaf 01d0 4800 |H | Short_Literal 0x0 01d1 e031 | 1 | Load 0x0,0x31 01d2 e032 | 2 | Load 0x0,0x32 01d3 4800 |H | Short_Literal 0x0 01d4 0007 | | Action Break_Optional 01d5 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 01d6 00c7 | | Action Elaborate_Subprogram 01d7 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 01d8 00c7 | | Action Elaborate_Subprogram 01d9 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call 01db e246 | F | Load 0x1,0x46 01dc 1942 | B | Execute Package,Field_Reference,Field_Number 0x42 01dd 00c6 | | Action Check_Subprogram_Elaborated 01de e024 | $ | Load 0x0,0x24 01df 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e0 1db6 | | Execute_Immediate Reference_Lex_1,0xb6 01e1 4800 |H | Short_Literal 0x0 01e2 e033 | 3 | Load 0x0,0x33 01e3 e034 | 4 | Load 0x0,0x34 01e4 4800 |H | Short_Literal 0x0 01e5 0007 | | Action Break_Optional 01e6 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 01e7 00c7 | | Action Elaborate_Subprogram 01e8 BODY_0008: 01e8 00bc | | Action Signal_Activated 01e9 00bb | | Action Signal_Completion 01ea 0000 0000 | | .BLANK 0000[0x6] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 e247 | G | Load 0x1,0x47 01f4 00db | | Load_Top At_Offset_3 01f5 e246 | F | Load 0x1,0x46 01f6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01f7 c247 | G | Store 0x1,0x47 01f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f9 0000 0000 | | .XXX[0x3] 01fb 0000 | | 01fc 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 e247 | G | Load 0x1,0x47 0204 e246 | F | Load 0x1,0x46 0205 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0206 00ca | | Action Exit_Nullary_Function 0207 0000 | | .XXX[0x1] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 020c e247 | G | Load 0x1,0x47 020d e246 | F | Load 0x1,0x46 020e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 e247 | G | Load 0x1,0x47 0215 e246 | F | Load 0x1,0x46 0216 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0217 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00da | | Load_Top At_Offset_2 021c e247 | G | Load 0x1,0x47 021d e246 | F | Load 0x1,0x46 021e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 021f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 e247 | G | Load 0x1,0x47 0225 e246 | F | Load 0x1,0x46 0226 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0227 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0230 | 0 | .CONST 0x0230 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c e247 | G | Load 0x1,0x47 022d e246 | F | Load 0x1,0x46 022e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0230 TRAP_0228: 0230 e246 | F | Load 0x1,0x46 0231 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0232 010f | | Execute Exception,Equal 0233 6802 |h | Jump_Zero 0x236 0234 e225 | % | Load 0x1,0x25 0235 0257 | W | Execute Discrete,Raise 0236 0100 | | Execute Exception,Raise 0237 0000 | | .XXX[0x1] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0240 | @ | .CONST 0x0240 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c e247 | G | Load 0x1,0x47 023d e246 | F | Load 0x1,0x46 023e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 023f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0240 TRAP_0238: 0240 e246 | F | Load 0x1,0x46 0241 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0242 010f | | Execute Exception,Equal 0243 6802 |h | Jump_Zero 0x246 0244 e225 | % | Load 0x1,0x25 0245 0257 | W | Execute Discrete,Raise 0246 0100 | | Execute Exception,Raise 0247 0000 | | .XXX[0x1] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0250 | P | .CONST 0x0250 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c e247 | G | Load 0x1,0x47 024d e246 | F | Load 0x1,0x46 024e 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 024f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0250 TRAP_0248: 0250 e246 | F | Load 0x1,0x46 0251 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0252 010f | | Execute Exception,Equal 0253 6802 |h | Jump_Zero 0x256 0254 e225 | % | Load 0x1,0x25 0255 0257 | W | Execute Discrete,Raise 0256 0100 | | Execute Exception,Raise 0257 0000 | | .XXX[0x1] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0260 | ` | .CONST 0x0260 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 00da | | Load_Top At_Offset_2 025c e247 | G | Load 0x1,0x47 025d e246 | F | Load 0x1,0x46 025e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 025f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0260 TRAP_0258: 0260 e246 | F | Load 0x1,0x46 0261 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0262 010f | | Execute Exception,Equal 0263 6802 |h | Jump_Zero 0x266 0264 e225 | % | Load 0x1,0x25 0265 0257 | W | Execute Discrete,Raise 0266 0100 | | Execute Exception,Raise 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00da | | Load_Top At_Offset_2 026c e247 | G | Load 0x1,0x47 026d e246 | F | Load 0x1,0x46 026e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 026f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0278 | x | .CONST 0x0278 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 e247 | G | Load 0x1,0x47 0275 e246 | F | Load 0x1,0x46 0276 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0277 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0278 TRAP_0270: 0278 e246 | F | Load 0x1,0x46 0279 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 027a 010f | | Execute Exception,Equal 027b 6802 |h | Jump_Zero 0x27e 027c e225 | % | Load 0x1,0x25 027d 0257 | W | Execute Discrete,Raise 027e 0100 | | Execute Exception,Raise 027f 0000 | | .XXX[0x1] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0288 | | .CONST 0x0288 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 e247 | G | Load 0x1,0x47 0285 e246 | F | Load 0x1,0x46 0286 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0287 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0288 TRAP_0280: 0288 e246 | F | Load 0x1,0x46 0289 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 028a 010f | | Execute Exception,Equal 028b 6802 |h | Jump_Zero 0x28e 028c e225 | % | Load 0x1,0x25 028d 0257 | W | Execute Discrete,Raise 028e 0100 | | Execute Exception,Raise 028f 0000 | | .XXX[0x1] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0298 | | .CONST 0x0298 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 0294 e247 | G | Load 0x1,0x47 0295 e246 | F | Load 0x1,0x46 0296 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0297 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0298 TRAP_0290: 0298 e246 | F | Load 0x1,0x46 0299 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 029a 010f | | Execute Exception,Equal 029b 6802 |h | Jump_Zero 0x29e 029c e225 | % | Load 0x1,0x25 029d 0257 | W | Execute Discrete,Raise 029e 0100 | | Execute Exception,Raise 029f 0000 | | .XXX[0x1] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 02a8 | | .CONST 0x02a8 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00da | | Load_Top At_Offset_2 02a4 e247 | G | Load 0x1,0x47 02a5 e246 | F | Load 0x1,0x46 02a6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 02a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a8 TRAP_02a0: 02a8 e246 | F | Load 0x1,0x46 02a9 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 02aa 010f | | Execute Exception,Equal 02ab 6802 |h | Jump_Zero 0x2ae 02ac e225 | % | Load 0x1,0x25 02ad 0257 | W | Execute Discrete,Raise 02ae 0100 | | Execute Exception,Raise 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 02b8 | | .CONST 0x02b8 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 e247 | G | Load 0x1,0x47 02b5 e246 | F | Load 0x1,0x46 02b6 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 02b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b8 TRAP_02b0: 02b8 e246 | F | Load 0x1,0x46 02b9 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 02ba 010f | | Execute Exception,Equal 02bb 6802 |h | Jump_Zero 0x2be 02bc e225 | % | Load 0x1,0x25 02bd 0257 | W | Execute Discrete,Raise 02be 0100 | | Execute Exception,Raise 02bf 0000 | | .XXX[0x1] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 02c8 | | .CONST 0x02c8 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 00da | | Load_Top At_Offset_2 02c4 e247 | G | Load 0x1,0x47 02c5 e246 | F | Load 0x1,0x46 02c6 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 02c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c8 TRAP_02c0: 02c8 e246 | F | Load 0x1,0x46 02c9 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 02ca 010f | | Execute Exception,Equal 02cb 6802 |h | Jump_Zero 0x2ce 02cc e225 | % | Load 0x1,0x25 02cd 0257 | W | Execute Discrete,Raise 02ce 0100 | | Execute Exception,Raise 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 e247 | G | Load 0x1,0x47 02d4 e5fe | | Load 0x2,-0x2 02d5 e5ff | | Load 0x2,-0x1 02d6 e246 | F | Load 0x1,0x46 02d7 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 02d8 c247 | G | Store 0x1,0x47 02d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02da 0000 0000 | | .BLANK 0000[0x6] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 02ed | | .CONST 0x02ed ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 e247 | G | Load 0x1,0x47 02e4 e5fb | | Load 0x2,-0x5 02e5 e5fc | | Load 0x2,-0x4 02e6 e5fd | | Load 0x2,-0x3 02e7 e5fe | | Load 0x2,-0x2 02e8 e5ff | | Load 0x2,-0x1 02e9 e246 | F | Load 0x1,0x46 02ea 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 02eb c247 | G | Store 0x1,0x47 02ec 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02ed TRAP_02e0: 02ed e246 | F | Load 0x1,0x46 02ee 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 02ef 010f | | Execute Exception,Equal 02f0 6802 |h | Jump_Zero 0x2f3 02f1 e225 | % | Load 0x1,0x25 02f2 0257 | W | Execute Discrete,Raise 02f3 0100 | | Execute Exception,Raise 02f4 0000 0000 | | .BLANK 0000[0x4] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0302 | | .CONST 0x0302 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb e247 | G | Load 0x1,0x47 02fc e5fe | | Load 0x2,-0x2 02fd e5ff | | Load 0x2,-0x1 02fe e246 | F | Load 0x1,0x46 02ff 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0300 c247 | G | Store 0x1,0x47 0301 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0302 TRAP_02f8: 0302 e246 | F | Load 0x1,0x46 0303 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0304 010f | | Execute Exception,Equal 0305 6802 |h | Jump_Zero 0x308 0306 e225 | % | Load 0x1,0x25 0307 0257 | W | Execute Discrete,Raise 0308 0100 | | Execute Exception,Raise 0309 0000 0000 | | .BLANK 0000[0x7] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 031b | | .CONST 0x031b ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 e247 | G | Load 0x1,0x47 0314 e5fd | | Load 0x2,-0x3 0315 e5fe | | Load 0x2,-0x2 0316 e5ff | | Load 0x2,-0x1 0317 e246 | F | Load 0x1,0x46 0318 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0319 c247 | G | Store 0x1,0x47 031a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 031b TRAP_0310: 031b e246 | F | Load 0x1,0x46 031c 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 031d 010f | | Execute Exception,Equal 031e 6802 |h | Jump_Zero 0x321 031f e225 | % | Load 0x1,0x25 0320 0257 | W | Execute Discrete,Raise 0321 0100 | | Execute Exception,Raise 0322 0000 0000 | | .BLANK 0000[0x6] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0333 | 3 | .CONST 0x0333 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b e247 | G | Load 0x1,0x47 032c e5fd | | Load 0x2,-0x3 032d e5fe | | Load 0x2,-0x2 032e e5ff | | Load 0x2,-0x1 032f e246 | F | Load 0x1,0x46 0330 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0331 c247 | G | Store 0x1,0x47 0332 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0333 TRAP_0328: 0333 e246 | F | Load 0x1,0x46 0334 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0335 010f | | Execute Exception,Equal 0336 6802 |h | Jump_Zero 0x339 0337 e225 | % | Load 0x1,0x25 0338 0257 | W | Execute Discrete,Raise 0339 0100 | | Execute Exception,Raise 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0349 | I | .CONST 0x0349 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 e247 | G | Load 0x1,0x47 0344 00db | | Load_Top At_Offset_3 0345 e246 | F | Load 0x1,0x46 0346 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0347 c247 | G | Store 0x1,0x47 0348 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0349 TRAP_0340: 0349 e246 | F | Load 0x1,0x46 034a 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 034b 010f | | Execute Exception,Equal 034c 6802 |h | Jump_Zero 0x34f 034d e225 | % | Load 0x1,0x25 034e 0257 | W | Execute Discrete,Raise 034f 0100 | | Execute Exception,Raise 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 035f | _ | .CONST 0x035f ; Address of begin 0351 0377 | w | .CONST 0x0377 ; Address of exception handler 0352 0007 | | .CONST 0x0007 ; Number of locals 0353 INIT_0350: 0353 e246 | F | Load 0x1,0x46 0354 1942 | B | Execute Package,Field_Reference,Field_Number 0x42 0355 00c6 | | Action Check_Subprogram_Elaborated 0356 e5fc | | Load 0x2,-0x4 0357 4ffd |O | Short_Literal -0x3 0358 4802 |H | Short_Literal 0x2 0359 0099 | | Action Reference_Dynamic 035a e5fe | | Load 0x2,-0x2 035b e035 | 5 | Load 0x0,0x35 035c e036 | 6 | Load 0x0,0x36 035d 4807 |H | Short_Literal 0x7 035e 0007 | | Action Break_Optional 035f BODY_0350: 035f e5fa | | Load 0x2,-0x6 0360 00d8 | | Load_Top At_Offset_0 0361 0120 | | Execute Any,Is_Value 0362 6803 |h | Jump_Zero 0x366 0363 e402 | | Load 0x2,0x2 0364 011e | | Execute Any,Convert 0365 7802 |x | Jump 0x368 0366 e5fc | | Load 0x2,-0x4 0367 0119 | | Execute Any,Check_In_Formal_Type 0368 e247 | G | Load 0x1,0x47 0369 e5fb | | Load 0x2,-0x5 036a e402 | | Load 0x2,0x2 036b 4803 |H | Short_Literal 0x3 036c 4802 |H | Short_Literal 0x2 036d 0099 | | Action Reference_Dynamic 036e e404 | | Load 0x2,0x4 036f 4805 |H | Short_Literal 0x5 0370 4802 |H | Short_Literal 0x2 0371 0099 | | Action Reference_Dynamic 0372 e246 | F | Load 0x1,0x46 0373 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0374 c247 | G | Store 0x1,0x47 0375 c5fa | | Store 0x2,-0x6 0376 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0377 TRAP_0350: 0377 e246 | F | Load 0x1,0x46 0378 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0379 010f | | Execute Exception,Equal 037a 6802 |h | Jump_Zero 0x37d 037b e225 | % | Load 0x1,0x25 037c 0257 | W | Execute Discrete,Raise 037d 0100 | | Execute Exception,Raise 037e 0000 0000 | | .XXX[0x2] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0390 | | .CONST 0x0390 ; Address of begin 0381 03a3 | | .CONST 0x03a3 ; Address of exception handler 0382 0008 | | .CONST 0x0008 ; Number of locals 0383 INIT_0380: 0383 e246 | F | Load 0x1,0x46 0384 1944 | D | Execute Package,Field_Reference,Field_Number 0x44 0385 00c6 | | Action Check_Subprogram_Elaborated 0386 e5fb | | Load 0x2,-0x5 0387 e5fc | | Load 0x2,-0x4 0388 4ffd |O | Short_Literal -0x3 0389 4802 |H | Short_Literal 0x2 038a 0099 | | Action Reference_Dynamic 038b e5fe | | Load 0x2,-0x2 038c e037 | 7 | Load 0x0,0x37 038d e038 | 8 | Load 0x0,0x38 038e 4808 |H | Short_Literal 0x8 038f 0007 | | Action Break_Optional 0390 BODY_0380: 0390 e5f9 | | Load 0x2,-0x7 0391 e5fc | | Load 0x2,-0x4 0392 0119 | | Execute Any,Check_In_Formal_Type 0393 e5fa | | Load 0x2,-0x6 0394 e247 | G | Load 0x1,0x47 0395 e402 | | Load 0x2,0x2 0396 e403 | | Load 0x2,0x3 0397 4804 |H | Short_Literal 0x4 0398 4802 |H | Short_Literal 0x2 0399 0099 | | Action Reference_Dynamic 039a e405 | | Load 0x2,0x5 039b 4806 |H | Short_Literal 0x6 039c 4802 |H | Short_Literal 0x2 039d 0099 | | Action Reference_Dynamic 039e e246 | F | Load 0x1,0x46 039f 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 03a0 e5fb | | Load 0x2,-0x5 03a1 011d | | Execute Any,Convert_To_Formal 03a2 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 03a3 TRAP_0380: 03a3 e246 | F | Load 0x1,0x46 03a4 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 03a5 010f | | Execute Exception,Equal 03a6 6802 |h | Jump_Zero 0x3a9 03a7 e225 | % | Load 0x1,0x25 03a8 0257 | W | Execute Discrete,Raise 03a9 0100 | | Execute Exception,Raise 03aa 0000 0000 | | .BLANK 0000[0x6] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03c2 | | .CONST 0x03c2 ; Address of begin 03b1 03df | | .CONST 0x03df ; Address of exception handler 03b2 0008 | | .CONST 0x0008 ; Number of locals 03b3 INIT_03b0: 03b3 e246 | F | Load 0x1,0x46 03b4 1945 | E | Execute Package,Field_Reference,Field_Number 0x45 03b5 00c6 | | Action Check_Subprogram_Elaborated 03b6 e5fb | | Load 0x2,-0x5 03b7 e5fc | | Load 0x2,-0x4 03b8 4ffd |O | Short_Literal -0x3 03b9 4802 |H | Short_Literal 0x2 03ba 0099 | | Action Reference_Dynamic 03bb 4ffe |O | Short_Literal -0x2 03bc 4802 |H | Short_Literal 0x2 03bd 0099 | | Action Reference_Dynamic 03be e039 | 9 | Load 0x0,0x39 03bf e03a | : | Load 0x0,0x3a 03c0 4808 |H | Short_Literal 0x8 03c1 0007 | | Action Break_Optional 03c2 BODY_03b0: 03c2 e5f9 | | Load 0x2,-0x7 03c3 00d8 | | Load_Top At_Offset_0 03c4 0120 | | Execute Any,Is_Value 03c5 6803 |h | Jump_Zero 0x3c9 03c6 e403 | | Load 0x2,0x3 03c7 011e | | Execute Any,Convert 03c8 7802 |x | Jump 0x3cb 03c9 e5fc | | Load 0x2,-0x4 03ca 0119 | | Execute Any,Check_In_Formal_Type 03cb e247 | G | Load 0x1,0x47 03cc e5fa | | Load 0x2,-0x6 03cd e5fb | | Load 0x2,-0x5 03ce 0119 | | Execute Any,Check_In_Formal_Type 03cf e402 | | Load 0x2,0x2 03d0 e403 | | Load 0x2,0x3 03d1 4804 |H | Short_Literal 0x4 03d2 4802 |H | Short_Literal 0x2 03d3 0099 | | Action Reference_Dynamic 03d4 4805 |H | Short_Literal 0x5 03d5 4802 |H | Short_Literal 0x2 03d6 0099 | | Action Reference_Dynamic 03d7 4806 |H | Short_Literal 0x6 03d8 4802 |H | Short_Literal 0x2 03d9 0099 | | Action Reference_Dynamic 03da e246 | F | Load 0x1,0x46 03db 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 03dc c247 | G | Store 0x1,0x47 03dd c5f9 | | Store 0x2,-0x7 03de 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03df TRAP_03b0: 03df e246 | F | Load 0x1,0x46 03e0 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 03e1 010f | | Execute Exception,Equal 03e2 6802 |h | Jump_Zero 0x3e5 03e3 e225 | % | Load 0x1,0x25 03e4 0257 | W | Execute Discrete,Raise 03e5 0100 | | Execute Exception,Raise 03e6 0000 0000 | | .XXX[0x2] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb e241 | A | Load 0x1,0x41 03ec 03bc | | Declare_Variable Access,By_Allocation 03ed 003b | ; | Store_Top Access,At_Offset_3 03ee e240 | @ | Load 0x1,0x40 03ef 03bc | | Declare_Variable Access,By_Allocation 03f0 00db | | Load_Top At_Offset_3 03f1 0228 | ( | Execute Access,All_Write 03f2 00da | | Load_Top At_Offset_2 03f3 0229 | ) | Execute Access,All_Read 03f4 e246 | F | Load 0x1,0x46 03f5 1b46 | F | Execute Package,Field_Read,Field_Number 0x46 03f6 00d9 | | Load_Top At_Offset_1 03f7 0229 | ) | Execute Access,All_Read 03f8 00d1 | | Pop_Control Pop_Count_1 03f9 e247 | G | Load 0x1,0x47 03fa e246 | F | Load 0x1,0x46 03fb 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 03fc 00d9 | | Load_Top At_Offset_1 03fd 0228 | ( | Execute Access,All_Write 03fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ff 0000 | | .XXX[0x1] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 0229 | ) | Execute Access,All_Read 0405 00d8 | | Load_Top At_Offset_0 0406 0229 | ) | Execute Access,All_Read 0407 e246 | F | Load 0x1,0x46 0408 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0409 00d9 | | Load_Top At_Offset_1 040a 0228 | ( | Execute Access,All_Write 040b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 040c 0000 0000 | | .BLANK 0000[0x4] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 00da | | Load_Top At_Offset_2 0414 0229 | ) | Execute Access,All_Read 0415 0229 | ) | Execute Access,All_Read 0416 e246 | F | Load 0x1,0x46 0417 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0418 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0419 0000 0000 | | .BLANK 0000[0x7] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 INIT_0420: 0423 00da | | Load_Top At_Offset_2 0424 0229 | ) | Execute Access,All_Read 0425 0229 | ) | Execute Access,All_Read 0426 e246 | F | Load 0x1,0x46 0427 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0428 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0429 0000 0000 | | .BLANK 0000[0x7] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 e247 | G | Load 0x1,0x47 0434 e246 | F | Load 0x1,0x46 0435 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0436 c247 | G | Store 0x1,0x47 0437 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0446 | F | .CONST 0x0446 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b e248 | H | Load 0x1,0x48 043c 00db | | Load_Top At_Offset_3 043d e247 | G | Load 0x1,0x47 043e e24c | L | Load 0x1,0x4c 043f e24d | M | Load 0x1,0x4d 0440 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0441 e24f | O | Load 0x1,0x4f 0442 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0443 e246 | F | Load 0x1,0x46 0444 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0445 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0446 TRAP_0438: 0446 e246 | F | Load 0x1,0x46 0447 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0448 010f | | Execute Exception,Equal 0449 6802 |h | Jump_Zero 0x44c 044a e225 | % | Load 0x1,0x25 044b 0257 | W | Execute Discrete,Raise 044c 0100 | | Execute Exception,Raise 044d 0000 0000 | | .XXX[0x3] 044f 0000 | | 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 00da | | Load_Top At_Offset_2 0454 822d | - | Call 0x1,0x2d 0455 803b | ; | Call 0x0,0x3b 0456 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0457 0000 | | .XXX[0x1] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 00da | | Load_Top At_Offset_2 045c 8230 | 0 | Call 0x1,0x30 045d e014 | | Load 0x0,0x14 045e 181f | | Execute Package,Field_Execute,Field_Number 0x1f 045f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 046e | n | .CONST 0x046e ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 e248 | H | Load 0x1,0x48 0464 00db | | Load_Top At_Offset_3 0465 e247 | G | Load 0x1,0x47 0466 e27c | | | Load 0x1,0x7c 0467 e27d | } | Load 0x1,0x7d 0468 1d7e | ~ | Execute_Immediate Reference_Lex_1,0x7e 0469 e27f | | Load 0x1,0x7f 046a 1d80 | | Execute_Immediate Reference_Lex_1,0x80 046b e246 | F | Load 0x1,0x46 046c 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 046d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 046e TRAP_0460: 046e e246 | F | Load 0x1,0x46 046f 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0470 010f | | Execute Exception,Equal 0471 6802 |h | Jump_Zero 0x474 0472 e225 | % | Load 0x1,0x25 0473 0257 | W | Execute Discrete,Raise 0474 0100 | | Execute Exception,Raise 0475 0000 0000 | | .XXX[0x3] 0477 0000 | | 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047b | { | .CONST 0x047b ; Address of begin 0479 0486 | | .CONST 0x0486 ; Address of exception handler 047a 0001 | | .CONST 0x0001 ; Number of locals 047b BODY_0478: 047b INIT_0478: 047b e248 | H | Load 0x1,0x48 047c 00db | | Load_Top At_Offset_3 047d e247 | G | Load 0x1,0x47 047e e254 | T | Load 0x1,0x54 047f e255 | U | Load 0x1,0x55 0480 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 0481 e257 | W | Load 0x1,0x57 0482 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 0483 e246 | F | Load 0x1,0x46 0484 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0485 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0486 TRAP_0478: 0486 e246 | F | Load 0x1,0x46 0487 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0488 010f | | Execute Exception,Equal 0489 6802 |h | Jump_Zero 0x48c 048a e225 | % | Load 0x1,0x25 048b 0257 | W | Execute Discrete,Raise 048c 0100 | | Execute Exception,Raise 048d 0000 0000 | | .XXX[0x3] 048f 0000 | | 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 049e | | .CONST 0x049e ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 e248 | H | Load 0x1,0x48 0494 00db | | Load_Top At_Offset_3 0495 e247 | G | Load 0x1,0x47 0496 e25c | \ | Load 0x1,0x5c 0497 e25d | ] | Load 0x1,0x5d 0498 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 0499 e25f | _ | Load 0x1,0x5f 049a 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 049b e246 | F | Load 0x1,0x46 049c 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 049d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 049e TRAP_0490: 049e e246 | F | Load 0x1,0x46 049f 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 04a0 010f | | Execute Exception,Equal 04a1 6802 |h | Jump_Zero 0x4a4 04a2 e225 | % | Load 0x1,0x25 04a3 0257 | W | Execute Discrete,Raise 04a4 0100 | | Execute Exception,Raise 04a5 0000 0000 | | .XXX[0x3] 04a7 0000 | | 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 04b6 | | .CONST 0x04b6 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab e248 | H | Load 0x1,0x48 04ac 00db | | Load_Top At_Offset_3 04ad e247 | G | Load 0x1,0x47 04ae e284 | | Load 0x1,0x84 04af e285 | | Load 0x1,0x85 04b0 1d86 | | Execute_Immediate Reference_Lex_1,0x86 04b1 e287 | | Load 0x1,0x87 04b2 1d88 | | Execute_Immediate Reference_Lex_1,0x88 04b3 e246 | F | Load 0x1,0x46 04b4 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 04b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b6 TRAP_04a8: 04b6 e246 | F | Load 0x1,0x46 04b7 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 04b8 010f | | Execute Exception,Equal 04b9 6802 |h | Jump_Zero 0x4bc 04ba e225 | % | Load 0x1,0x25 04bb 0257 | W | Execute Discrete,Raise 04bc 0100 | | Execute Exception,Raise 04bd 0000 0000 | | .XXX[0x3] 04bf 0000 | | 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 04ce | | .CONST 0x04ce ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 e248 | H | Load 0x1,0x48 04c4 00db | | Load_Top At_Offset_3 04c5 e247 | G | Load 0x1,0x47 04c6 e28c | | Load 0x1,0x8c 04c7 e28d | | Load 0x1,0x8d 04c8 1d8e | | Execute_Immediate Reference_Lex_1,0x8e 04c9 e28f | | Load 0x1,0x8f 04ca 1d90 | | Execute_Immediate Reference_Lex_1,0x90 04cb e246 | F | Load 0x1,0x46 04cc 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 04cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ce TRAP_04c0: 04ce e246 | F | Load 0x1,0x46 04cf 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 04d0 010f | | Execute Exception,Equal 04d1 6802 |h | Jump_Zero 0x4d4 04d2 e225 | % | Load 0x1,0x25 04d3 0257 | W | Execute Discrete,Raise 04d4 0100 | | Execute Exception,Raise 04d5 0000 0000 | | .XXX[0x3] 04d7 0000 | | 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 04e6 | | .CONST 0x04e6 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db e248 | H | Load 0x1,0x48 04dc 00db | | Load_Top At_Offset_3 04dd e247 | G | Load 0x1,0x47 04de e264 | d | Load 0x1,0x64 04df e265 | e | Load 0x1,0x65 04e0 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 04e1 e267 | g | Load 0x1,0x67 04e2 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 04e3 e246 | F | Load 0x1,0x46 04e4 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 04e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e6 TRAP_04d8: 04e6 e246 | F | Load 0x1,0x46 04e7 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 04e8 010f | | Execute Exception,Equal 04e9 6802 |h | Jump_Zero 0x4ec 04ea e225 | % | Load 0x1,0x25 04eb 0257 | W | Execute Discrete,Raise 04ec 0100 | | Execute Exception,Raise 04ed 0000 0000 | | .XXX[0x3] 04ef 0000 | | 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 04fe | | .CONST 0x04fe ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 e248 | H | Load 0x1,0x48 04f4 00db | | Load_Top At_Offset_3 04f5 e247 | G | Load 0x1,0x47 04f6 e26c | l | Load 0x1,0x6c 04f7 e26d | m | Load 0x1,0x6d 04f8 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 04f9 e26f | o | Load 0x1,0x6f 04fa 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 04fb e246 | F | Load 0x1,0x46 04fc 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 04fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04fe TRAP_04f0: 04fe e246 | F | Load 0x1,0x46 04ff 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0500 010f | | Execute Exception,Equal 0501 6802 |h | Jump_Zero 0x504 0502 e225 | % | Load 0x1,0x25 0503 0257 | W | Execute Discrete,Raise 0504 0100 | | Execute Exception,Raise 0505 0000 0000 | | .XXX[0x3] 0507 0000 | | 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0516 | | .CONST 0x0516 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b e248 | H | Load 0x1,0x48 050c 00db | | Load_Top At_Offset_3 050d e247 | G | Load 0x1,0x47 050e e274 | t | Load 0x1,0x74 050f e275 | u | Load 0x1,0x75 0510 1d76 | v | Execute_Immediate Reference_Lex_1,0x76 0511 e277 | w | Load 0x1,0x77 0512 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 0513 e246 | F | Load 0x1,0x46 0514 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0515 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0516 TRAP_0508: 0516 e246 | F | Load 0x1,0x46 0517 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0518 010f | | Execute Exception,Equal 0519 6802 |h | Jump_Zero 0x51c 051a e225 | % | Load 0x1,0x25 051b 0257 | W | Execute Discrete,Raise 051c 0100 | | Execute Exception,Raise 051d 0000 0000 | | .XXX[0x3] 051f 0000 | | 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 e247 | G | Load 0x1,0x47 0524 4800 |H | Short_Literal 0x0 0525 e5fe | | Load 0x2,-0x2 0526 e5ff | | Load 0x2,-0x1 0527 e246 | F | Load 0x1,0x46 0528 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0529 c247 | G | Store 0x1,0x47 052a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 052b 0000 0000 | | .BLANK 0000[0x5] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0537 | 7 | .CONST 0x0537 ; Address of begin 0531 0545 | E | .CONST 0x0545 ; Address of exception handler 0532 0002 | | .CONST 0x0002 ; Number of locals 0533 INIT_0530: 0533 e015 | | Load 0x0,0x15 0534 0322 | " | Declare_Variable Record 0535 00d8 | | Load_Top At_Offset_0 0536 1c00 | | Execute_Immediate Run_Utility,0x0 0537 BODY_0530: 0537 e5fe | | Load 0x2,-0x2 0538 00d9 | | Load_Top At_Offset_1 0539 017d | } | Execute Record,Structure_Write 053a 00d8 | | Load_Top At_Offset_0 053b e247 | G | Load 0x1,0x47 053c e5ff | | Load 0x2,-0x1 053d e29b | | Load 0x1,0x9b 053e 1d9c | | Execute_Immediate Reference_Lex_1,0x9c 053f e29d | | Load 0x1,0x9d 0540 1d9e | | Execute_Immediate Reference_Lex_1,0x9e 0541 e246 | F | Load 0x1,0x46 0542 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0543 c247 | G | Store 0x1,0x47 0544 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0545 TRAP_0530: 0545 e246 | F | Load 0x1,0x46 0546 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0547 010f | | Execute Exception,Equal 0548 6802 |h | Jump_Zero 0x54b 0549 e225 | % | Load 0x1,0x25 054a 0257 | W | Execute Discrete,Raise 054b 0100 | | Execute Exception,Raise 054c 0000 0000 | | .BLANK 0000[0x4] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 055b | [ | .CONST 0x055b ; Address of begin 0551 0566 | f | .CONST 0x0566 ; Address of exception handler 0552 0002 | | .CONST 0x0002 ; Number of locals 0553 INIT_0550: 0553 e249 | I | Load 0x1,0x49 0554 0322 | " | Declare_Variable Record 0555 e5fe | | Load 0x2,-0x2 0556 00d9 | | Load_Top At_Offset_1 0557 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0558 e5fd | | Load 0x2,-0x3 0559 00d9 | | Load_Top At_Offset_1 055a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 055b BODY_0550: 055b 00d8 | | Load_Top At_Offset_0 055c e247 | G | Load 0x1,0x47 055d e5ff | | Load 0x2,-0x1 055e e2a2 | | Load 0x1,0xa2 055f 1da3 | | Execute_Immediate Reference_Lex_1,0xa3 0560 e2a4 | | Load 0x1,0xa4 0561 1da5 | | Execute_Immediate Reference_Lex_1,0xa5 0562 e246 | F | Load 0x1,0x46 0563 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0564 c247 | G | Store 0x1,0x47 0565 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0566 TRAP_0550: 0566 e246 | F | Load 0x1,0x46 0567 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0568 010f | | Execute Exception,Equal 0569 6802 |h | Jump_Zero 0x56c 056a e225 | % | Load 0x1,0x25 056b 0257 | W | Execute Discrete,Raise 056c 0100 | | Execute Exception,Raise 056d 0000 0000 | | .XXX[0x3] 056f 0000 | | 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0579 | y | .CONST 0x0579 ; Address of begin 0571 0585 | | .CONST 0x0585 ; Address of exception handler 0572 0002 | | .CONST 0x0002 ; Number of locals 0573 INIT_0570: 0573 00db | | Load_Top At_Offset_3 0574 e014 | | Load 0x0,0x14 0575 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0576 e014 | | Load 0x0,0x14 0577 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0578 03f1 | | Declare_Variable Discrete,With_Value 0579 BODY_0570: 0579 00d8 | | Load_Top At_Offset_0 057a e247 | G | Load 0x1,0x47 057b e5ff | | Load 0x2,-0x1 057c e2b0 | | Load 0x1,0xb0 057d 1db1 | | Execute_Immediate Reference_Lex_1,0xb1 057e e2b2 | | Load 0x1,0xb2 057f 1db3 | | Execute_Immediate Reference_Lex_1,0xb3 0580 e246 | F | Load 0x1,0x46 0581 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0582 c247 | G | Store 0x1,0x47 0583 0059 | Y | Store_Top Discrete,At_Offset_1 0584 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0585 TRAP_0570: 0585 e246 | F | Load 0x1,0x46 0586 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 0587 010f | | Execute Exception,Equal 0588 6802 |h | Jump_Zero 0x58b 0589 e225 | % | Load 0x1,0x25 058a 0257 | W | Execute Discrete,Raise 058b 0100 | | Execute Exception,Raise 058c 0000 0000 | | .BLANK 0000[0x4] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0597 | | .CONST 0x0597 ; Address of begin 0591 05a3 | | .CONST 0x05a3 ; Address of exception handler 0592 0002 | | .CONST 0x0002 ; Number of locals 0593 INIT_0590: 0593 00db | | Load_Top At_Offset_3 0594 e014 | | Load 0x0,0x14 0595 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0596 03f1 | | Declare_Variable Discrete,With_Value 0597 BODY_0590: 0597 00d8 | | Load_Top At_Offset_0 0598 e247 | G | Load 0x1,0x47 0599 e5ff | | Load 0x2,-0x1 059a e2b0 | | Load 0x1,0xb0 059b 1db1 | | Execute_Immediate Reference_Lex_1,0xb1 059c e2b2 | | Load 0x1,0xb2 059d 1db3 | | Execute_Immediate Reference_Lex_1,0xb3 059e e246 | F | Load 0x1,0x46 059f 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 05a0 c247 | G | Store 0x1,0x47 05a1 0059 | Y | Store_Top Discrete,At_Offset_1 05a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05a3 TRAP_0590: 05a3 e246 | F | Load 0x1,0x46 05a4 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 05a5 010f | | Execute Exception,Equal 05a6 6802 |h | Jump_Zero 0x5a9 05a7 e225 | % | Load 0x1,0x25 05a8 0257 | W | Execute Discrete,Raise 05a9 0100 | | Execute Exception,Raise 05aa 0000 0000 | | .BLANK 0000[0x6] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b7 | | .CONST 0x05b7 ; Address of begin 05b1 05c3 | | .CONST 0x05c3 ; Address of exception handler 05b2 0002 | | .CONST 0x0002 ; Number of locals 05b3 INIT_05b0: 05b3 00db | | Load_Top At_Offset_3 05b4 e024 | $ | Load 0x0,0x24 05b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b6 03f1 | | Declare_Variable Discrete,With_Value 05b7 BODY_05b0: 05b7 00d8 | | Load_Top At_Offset_0 05b8 e247 | G | Load 0x1,0x47 05b9 e5ff | | Load 0x2,-0x1 05ba e2b7 | | Load 0x1,0xb7 05bb 1db8 | | Execute_Immediate Reference_Lex_1,0xb8 05bc e2b9 | | Load 0x1,0xb9 05bd 1dba | | Execute_Immediate Reference_Lex_1,0xba 05be e246 | F | Load 0x1,0x46 05bf 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 05c0 c247 | G | Store 0x1,0x47 05c1 0059 | Y | Store_Top Discrete,At_Offset_1 05c2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05c3 TRAP_05b0: 05c3 e246 | F | Load 0x1,0x46 05c4 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 05c5 010f | | Execute Exception,Equal 05c6 6802 |h | Jump_Zero 0x5c9 05c7 e225 | % | Load 0x1,0x25 05c8 0257 | W | Execute Discrete,Raise 05c9 0100 | | Execute Exception,Raise 05ca 0000 0000 | | .BLANK 0000[0x6] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d6 | | .CONST 0x05d6 ; Address of begin 05d1 05e2 | | .CONST 0x05e2 ; Address of exception handler 05d2 0002 | | .CONST 0x0002 ; Number of locals 05d3 INIT_05d0: 05d3 00db | | Load_Top At_Offset_3 05d4 00e1 | | Load_Encached Boolean_Cache 05d5 03f1 | | Declare_Variable Discrete,With_Value 05d6 BODY_05d0: 05d6 00d8 | | Load_Top At_Offset_0 05d7 e247 | G | Load 0x1,0x47 05d8 e5ff | | Load 0x2,-0x1 05d9 e294 | | Load 0x1,0x94 05da 1d95 | | Execute_Immediate Reference_Lex_1,0x95 05db e296 | | Load 0x1,0x96 05dc 1d97 | | Execute_Immediate Reference_Lex_1,0x97 05dd e246 | F | Load 0x1,0x46 05de 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 05df c247 | G | Store 0x1,0x47 05e0 0059 | Y | Store_Top Discrete,At_Offset_1 05e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05e2 TRAP_05d0: 05e2 e246 | F | Load 0x1,0x46 05e3 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 05e4 010f | | Execute Exception,Equal 05e5 6802 |h | Jump_Zero 0x5e8 05e6 e225 | % | Load 0x1,0x25 05e7 0257 | W | Execute Discrete,Raise 05e8 0100 | | Execute Exception,Raise 05e9 0000 0000 | | .BLANK 0000[0x7] 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05fe | | .CONST 0x05fe ; Address of begin 05f1 0609 | | .CONST 0x0609 ; Address of exception handler 05f2 0002 | | .CONST 0x0002 ; Number of locals 05f3 INIT_05f0: 05f3 e24a | J | Load 0x1,0x4a 05f4 0322 | " | Declare_Variable Record 05f5 e5fe | | Load 0x2,-0x2 05f6 00d9 | | Load_Top At_Offset_1 05f7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05f8 e5fd | | Load 0x2,-0x3 05f9 00d9 | | Load_Top At_Offset_1 05fa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05fb e5fc | | Load 0x2,-0x4 05fc 00d9 | | Load_Top At_Offset_1 05fd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05fe BODY_05f0: 05fe 00d8 | | Load_Top At_Offset_0 05ff e247 | G | Load 0x1,0x47 0600 e5ff | | Load 0x2,-0x1 0601 e2a9 | | Load 0x1,0xa9 0602 1daa | | Execute_Immediate Reference_Lex_1,0xaa 0603 e2ab | | Load 0x1,0xab 0604 1dac | | Execute_Immediate Reference_Lex_1,0xac 0605 e246 | F | Load 0x1,0x46 0606 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0607 c247 | G | Store 0x1,0x47 0608 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0609 TRAP_05f0: 0609 e246 | F | Load 0x1,0x46 060a 1b43 | C | Execute Package,Field_Read,Field_Number 0x43 060b 010f | | Execute Exception,Equal 060c 6802 |h | Jump_Zero 0x60f 060d e225 | % | Load 0x1,0x25 060e 0257 | W | Execute Discrete,Raise 060f 0100 | | Execute Exception,Raise 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0613 | | .CONST 0x0613 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0001 | | .CONST 0x0001 ; Number of locals 0613 BODY_0610: 0613 INIT_0610: 0613 00da | | Load_Top At_Offset_2 0614 e014 | | Load 0x0,0x14 0615 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0616 6806 |h | Jump_Zero 0x61d 0617 00da | | Load_Top At_Offset_2 0618 e014 | | Load 0x0,0x14 0619 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 061a 0f07 | | Execute_Immediate Equal,0x7 061b 0f00 | | Execute_Immediate Equal,0x0 061c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 061d 4800 |H | Short_Literal 0x0 061e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 061f 0000 | | .XXX[0x1] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0623 | # | .CONST 0x0623 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0001 | | .CONST 0x0001 ; Number of locals 0623 BODY_0620: 0623 INIT_0620: 0623 00ea | | Load_Encached Null_String_Cache 0624 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0625 0000 0000 | | .XXX[0x3] 0627 0000 | | 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b 00da | | Load_Top At_Offset_2 062c e00f | | Load 0x0,0xf 062d 011c | | Execute Any,Convert_Unchecked 062e 1c01 | | Execute_Immediate Run_Utility,0x1 062f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0633 | 3 | .CONST 0x0633 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0001 | | .CONST 0x0001 ; Number of locals 0633 BODY_0630: 0633 INIT_0630: 0633 00da | | Load_Top At_Offset_2 0634 e010 | | Load 0x0,0x10 0635 011c | | Execute Any,Convert_Unchecked 0636 1c01 | | Execute_Immediate Run_Utility,0x1 0637 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b 00db | | Load_Top At_Offset_3 063c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 063d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 063e 0000 0000 | | .XXX[0x2] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0643 | C | .CONST 0x0643 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0001 | | .CONST 0x0001 ; Number of locals 0643 BODY_0640: 0643 INIT_0640: 0643 00db | | Load_Top At_Offset_3 0644 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0645 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0646 0000 0000 | | .XXX[0x2] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064b | K | .CONST 0x064b ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0001 | | .CONST 0x0001 ; Number of locals 064b BODY_0648: 064b INIT_0648: 064b 00db | | Load_Top At_Offset_3 064c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 064d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 064e 0000 0000 | | .XXX[0x2] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0653 | S | .CONST 0x0653 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0001 | | .CONST 0x0001 ; Number of locals 0653 BODY_0650: 0653 INIT_0650: 0653 00db | | Load_Top At_Offset_3 0654 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0655 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0656 0000 0000 | | .XXX[0x2] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b 00db | | Load_Top At_Offset_3 065c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 065d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 065e 0000 0000 | | .XXX[0x2] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0663 | c | .CONST 0x0663 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0001 | | .CONST 0x0001 ; Number of locals 0663 BODY_0660: 0663 INIT_0660: 0663 00db | | Load_Top At_Offset_3 0664 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0665 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0666 0000 0000 | | .XXX[0x2] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b INIT_0668: 066b 00db | | Load_Top At_Offset_3 066c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 066d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 066e 0000 0000 | | .XXX[0x2] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0673 | s | .CONST 0x0673 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0001 | | .CONST 0x0001 ; Number of locals 0673 BODY_0670: 0673 INIT_0670: 0673 00db | | Load_Top At_Offset_3 0674 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0675 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0676 0000 0000 | | .XXX[0x2] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 067b | { | .CONST 0x067b ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0001 | | .CONST 0x0001 ; Number of locals 067b BODY_0678: 067b INIT_0678: 067b 00db | | Load_Top At_Offset_3 067c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 067d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 067e 0000 0000 | | .XXX[0x2] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0683 | | .CONST 0x0683 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0001 | | .CONST 0x0001 ; Number of locals 0683 BODY_0680: 0683 INIT_0680: 0683 e5fd | | Load 0x2,-0x3 0684 e5fe | | Load 0x2,-0x2 0685 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0686 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0687 0000 | | .XXX[0x1] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 068b | | .CONST 0x068b ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0001 | | .CONST 0x0001 ; Number of locals 068b BODY_0688: 068b INIT_0688: 068b e5fd | | Load 0x2,-0x3 068c e5fe | | Load 0x2,-0x2 068d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 068e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 068f 0000 | | .XXX[0x1] 0690 ; -------------------------------------------------------------------------------------- 0690 ; SUBPROGRAM 0690 ; -------------------------------------------------------------------------------------- 0690 0693 | | .CONST 0x0693 ; Address of begin 0691 0004 | | .CONST 0x0004 ; Address of exception handler 0692 0001 | | .CONST 0x0001 ; Number of locals 0693 BODY_0690: 0693 INIT_0690: 0693 e5fd | | Load 0x2,-0x3 0694 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0695 e5fe | | Load 0x2,-0x2 0696 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0697 e5fd | | Load 0x2,-0x3 0698 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0699 e5fe | | Load 0x2,-0x2 069a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 069b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 069c 0000 0000 | | .BLANK 0000[0x4] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a3 | | .CONST 0x06a3 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0001 | | .CONST 0x0001 ; Number of locals 06a3 BODY_06a0: 06a3 INIT_06a0: 06a3 e5fd | | Load 0x2,-0x3 06a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06a5 e5fe | | Load 0x2,-0x2 06a6 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06a7 e5fd | | Load 0x2,-0x3 06a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06a9 e5fe | | Load 0x2,-0x2 06aa 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 06ab e5fd | | Load 0x2,-0x3 06ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 06ad e5fe | | Load 0x2,-0x2 06ae 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 06af 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b3 | | .CONST 0x06b3 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0001 | | .CONST 0x0001 ; Number of locals 06b3 BODY_06b0: 06b3 INIT_06b0: 06b3 e5fd | | Load 0x2,-0x3 06b4 e5fe | | Load 0x2,-0x2 06b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b7 0000 | | .XXX[0x1] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06bb | | .CONST 0x06bb ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0001 | | .CONST 0x0001 ; Number of locals 06bb BODY_06b8: 06bb INIT_06b8: 06bb e5fd | | Load 0x2,-0x3 06bc e5fe | | Load 0x2,-0x2 06bd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06bf 0000 | | .XXX[0x1] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; Debug Table 06c0 ; -------------------------------------------------------------------------------------- 06c0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a94,0x0000,0x0001,0x0000 06c6 0600 0000 | | .XXX[0x14] 06c8 0500 2800 | ( | 06ca 0000 0800 | | 06cc 0002 0000 | | 06ce 0011 0000 | | 06d0 0000 0800 | | 06d2 0000 5200 | R | 06d4 0020 2181 | ! | 06d6 7a00 0020 |z | 06d8 2181 8000 |! | 06da 0000 0000 | | .BLANK 0000[0x17] 06f1 0018 0009 | | .XXX[0x22] 06f3 79ea 0500 |y | 06f5 82b2 0000 | | 06f7 d88e d132 | 2| 06f9 0200 1000 | | 06fb 07c0 0000 | | 06fd 009a 1000 | | 06ff 00c0 0000 | | 0701 00a0 0500 | | 0703 0000 0100 | | 0705 0000 4000 | @ | 0707 0002 2000 | | 0709 0000 0100 | | 070b 0000 0a40 | @| 070d 0006 062a | *| 070f c040 0006 | @ | 0711 062a c100 | * | 0713 0000 0000 | | .BLANK 0000[0x17] 072a 0003 0000 | | .XXX[0x28] 072c 18af 40a0 | @ | 072e 1056 8000 | V | 0730 1b11 db26 | &| 0732 4040 0200 |@@ | 0734 0020 0000 | | 0736 0018 1900 | | 0738 0018 0000 | | 073a 0024 00a0 | $ | 073c 0000 0020 | | 073e 0000 0800 | | 0740 0000 4400 | D | 0742 0000 0020 | | 0744 0000 0148 | H| 0746 0000 8086 | | 0748 0728 0000 | ( | 074a 8086 0b28 | (| 074c 0000 8086 | | 074e 0bc8 0000 | | 0750 8086 0e40 | @| 0752 0000 0000 | | .BLANK 0000[0x12] 0764 6000 25e7 |` % | .XXX[0x27] 0766 c814 020a | | 0768 d800 0362 | b| 076a 3b44 c808 |;D | 076c 0040 0004 | @ | 076e 0000 0003 | | 0770 0320 0003 | | 0772 0000 0004 | | 0774 8014 0000 | | 0776 0004 0000 | | 0778 0100 0000 | | 077a 0880 0000 | | 077c 0004 0000 | | 077e 0029 0000 | ) | 0780 1818 ab1d | | 0782 0000 1818 | | 0784 ab21 0000 | ! | 0786 1818 ab25 | %| 0788 0000 1818 | | 078a ab28 | ( | 078b 0000 0000 | | .BLANK 0000[0x12] 079d 0c00 002b | +| .XXX[0x1f] 079f 1902 8041 | A| 07a1 5c00 006c |\ l| 07a3 476c 9901 |Gl | 07a5 0008 0005 | | 07a7 2000 0000 | | 07a9 2f84 0000 |/ | 07ab 6000 0000 |` | 07ad 3002 8000 |0 | 07af 0000 8000 | | 07b1 0020 0000 | | 07b3 0110 0000 | | 07b5 0000 8000 | | 07b7 0005 2000 | | 07b9 0202 1895 | | 07bb 8000 | | 07bc 0000 0000 | | .BLANK 0000[0x1a] 07d6 0180 0097 | | .XXX[0x3] 07d8 9f80 | | 07d9 0000 0000 | | .BLANK 0000[0x27]