|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0b90 | | .CONST 0x0b90 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0080 | | .CONST 0x0080 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0026 | & | .CONST 0x0026 ; Number of locals 000b INIT_0008: 000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 4800 |H | Short_Literal 0x0 000f 4864 |Hd | Short_Literal 0x64 0010 e002 | | Load 0x0,0x2 0011 029f 051b | | Declare_Subprogram INIT_0518,For_Call 0013 4801 |H | Short_Literal 0x1 0014 035d | ] | Declare_Type Array,Defined 0015 00d8 | | Load_Top At_Offset_0 0016 0337 | 7 | Declare_Variable Array 0017 00d8 | | Load_Top At_Offset_0 0018 1c00 | | Execute_Immediate Run_Utility,0x0 0019 4800 |H | Short_Literal 0x0 001a 4864 |Hd | Short_Literal 0x64 001b 00e2 | | Load_Encached Integer_Cache 001c 03f8 | | Declare_Type Discrete,Constrained 001d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 001e 4800 |H | Short_Literal 0x0 001f 48c8 |H | Short_Literal 0xc8 0020 00e2 | | Load_Encached Integer_Cache 0021 02a0 | | Declare_Subprogram Null_Subprogram 0022 4801 |H | Short_Literal 0x1 0023 035d | ] | Declare_Type Array,Defined 0024 00d8 | | Load_Top At_Offset_0 0025 0337 | 7 | Declare_Variable Array 0026 4800 |H | Short_Literal 0x0 0027 48c8 |H | Short_Literal 0xc8 0028 00e2 | | Load_Encached Integer_Cache 0029 02a0 | | Declare_Subprogram Null_Subprogram 002a 4801 |H | Short_Literal 0x1 002b 035d | ] | Declare_Type Array,Defined 002c 00d8 | | Load_Top At_Offset_0 002d 0337 | 7 | Declare_Variable Array 002e 0093 0000 | | push_full_address 0x0 0030 00a2 0514 | | Action Push_Discrete_Extended 0032 0273 | s | Execute Discrete,Plus 0033 0007 | | Action Break_Optional 0034 0093 0000 | | push_full_address 0x0 0036 00a2 0510 | | Action Push_Discrete_Extended 0038 0273 | s | Execute Discrete,Plus 0039 0007 | | Action Break_Optional 003a 0093 0000 | | push_full_address 0x0 003c 00a2 050c | | Action Push_Discrete_Extended 003e 0273 | s | Execute Discrete,Plus 003f 0007 | | Action Break_Optional 0040 0093 0000 | | push_full_address 0x0 0042 00a2 0508 | | Action Push_Discrete_Extended 0044 0273 | s | Execute Discrete,Plus 0045 0007 | | Action Break_Optional 0046 0093 0000 | | push_full_address 0x0 0048 00a2 0504 | | Action Push_Discrete_Extended 004a 0273 | s | Execute Discrete,Plus 004b 0007 | | Action Break_Optional 004c 0093 0000 | | push_full_address 0x0 004e 00a2 0500 | | Action Push_Discrete_Extended 0050 0273 | s | Execute Discrete,Plus 0051 0007 | | Action Break_Optional 0052 0093 0000 | | push_full_address 0x0 0054 00a2 04fc | | Action Push_Discrete_Extended 0056 0273 | s | Execute Discrete,Plus 0057 0007 | | Action Break_Optional 0058 0093 0000 | | push_full_address 0x0 005a 00a2 04f8 | | Action Push_Discrete_Extended 005c 0273 | s | Execute Discrete,Plus 005d 0007 | | Action Break_Optional 005e 0093 0000 | | push_full_address 0x0 0060 00a2 04f4 | | Action Push_Discrete_Extended 0062 0273 | s | Execute Discrete,Plus 0063 0007 | | Action Break_Optional 0064 0093 0000 | | push_full_address 0x0 0066 00a2 04f0 | | Action Push_Discrete_Extended 0068 0273 | s | Execute Discrete,Plus 0069 0007 | | Action Break_Optional 006a 0093 0000 | | push_full_address 0x0 006c 00a2 04ec | | Action Push_Discrete_Extended 006e 0273 | s | Execute Discrete,Plus 006f 0007 | | Action Break_Optional 0070 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call 0072 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call 0074 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call 0076 029d 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call 0078 029d 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call 007a 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call 007c 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call 007e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 007f 00c7 | | Action Elaborate_Subprogram 0080 BODY_0008: 0080 00bc | | Action Signal_Activated 0081 00bb | | Action Signal_Completion 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 010e | | .CONST 0x010e ; Address of begin 0089 0427 | ' | .CONST 0x0427 ; Address of exception handler 008a 003f | ? | .CONST 0x003f ; Number of locals 008b INIT_0088: 008b e003 | | Load 0x0,0x3 008c 0322 | " | Declare_Variable Record 008d e004 | | Load 0x0,0x4 008e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008f e004 | | Load 0x0,0x4 0090 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0091 02c7 | | Declare_Variable Any 0092 00d8 | | Load_Top At_Offset_0 0093 1c00 | | Execute_Immediate Run_Utility,0x0 0094 00e3 | | Load_Encached Natural_Cache 0095 00e2 | | Load_Encached Integer_Cache 0096 e005 | | Load 0x0,0x5 0097 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0098 00e2 | | Load_Encached Integer_Cache 0099 00e3 | | Load_Encached Natural_Cache 009a 00e3 | | Load_Encached Natural_Cache 009b 00e5 | | Load_Encached Long_Integer_Cache 009c 00e5 | | Load_Encached Long_Integer_Cache 009d 00e6 | | Load_Encached Float_Cache 009e 00e1 | | Load_Encached Boolean_Cache 009f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00a0 00e1 | | Load_Encached Boolean_Cache 00a1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00a2 e006 | | Load 0x0,0x6 00a3 0322 | " | Declare_Variable Record 00a4 00e3 | | Load_Encached Natural_Cache 00a5 00e3 | | Load_Encached Natural_Cache 00a6 e004 | | Load 0x0,0x4 00a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00a8 e004 | | Load 0x0,0x4 00a9 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00aa 02c7 | | Declare_Variable Any 00ab 00d8 | | Load_Top At_Offset_0 00ac 1c00 | | Execute_Immediate Run_Utility,0x0 00ad e004 | | Load 0x0,0x4 00ae 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00af 00e5 | | Load_Encached Long_Integer_Cache 00b0 e004 | | Load 0x0,0x4 00b1 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00b2 02c7 | | Declare_Variable Any 00b3 00d8 | | Load_Top At_Offset_0 00b4 1c00 | | Execute_Immediate Run_Utility,0x0 00b5 e004 | | Load 0x0,0x4 00b6 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00b7 02c7 | | Declare_Variable Any 00b8 00d8 | | Load_Top At_Offset_0 00b9 1c00 | | Execute_Immediate Run_Utility,0x0 00ba 00e3 | | Load_Encached Natural_Cache 00bb e004 | | Load 0x0,0x4 00bc 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 00bd 0322 | " | Declare_Variable Record 00be 00e5 | | Load_Encached Long_Integer_Cache 00bf 00e6 | | Load_Encached Float_Cache 00c0 00e2 | | Load_Encached Integer_Cache 00c1 e004 | | Load 0x0,0x4 00c2 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00c3 02c7 | | Declare_Variable Any 00c4 e004 | | Load 0x0,0x4 00c5 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 00c6 a41e | | Store_Unchecked 0x2,0x1e 00c7 e004 | | Load 0x0,0x4 00c8 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 00c9 e002 | | Load 0x0,0x2 00ca 0322 | " | Declare_Variable Record 00cb 00d8 | | Load_Top At_Offset_0 00cc 1c00 | | Execute_Immediate Run_Utility,0x0 00cd 00e3 | | Load_Encached Natural_Cache 00ce 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00cf 00e3 | | Load_Encached Natural_Cache 00d0 00e3 | | Load_Encached Natural_Cache 00d1 00e3 | | Load_Encached Natural_Cache 00d2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d3 00e3 | | Load_Encached Natural_Cache 00d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d5 00e1 | | Load_Encached Boolean_Cache 00d6 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00d7 0092 09b4 | | Action Push_String_Extended,0x9b4 ; "interpreter_dump" 00d9 8007 | | Call 0x0,0x7 00da 00e1 | | Load_Encached Boolean_Cache 00db 03f1 | | Declare_Variable Discrete,With_Value 00dc 0092 09b5 | | Action Push_String_Extended,0x9b5 ; "interpreter_trace" 00de 8007 | | Call 0x0,0x7 00df 00e1 | | Load_Encached Boolean_Cache 00e0 03f1 | | Declare_Variable Discrete,With_Value 00e1 00e1 | | Load_Encached Boolean_Cache 00e2 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call 00e4 029f 064b | K| Declare_Subprogram INIT_0648,For_Call 00e6 029f 066b | k| Declare_Subprogram INIT_0668,For_Call 00e8 029f 0683 | | Declare_Subprogram INIT_0680,For_Call 00ea 029f 068b | | Declare_Subprogram INIT_0688,For_Call 00ec 029f 069b | | Declare_Subprogram INIT_0698,For_Call 00ee 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call 00f0 029f 06bb | | Declare_Subprogram INIT_06b8,For_Call 00f2 029f 06fb | | Declare_Subprogram INIT_06f8,For_Call 00f4 029f 07ab | | Declare_Subprogram INIT_07a8,For_Call 00f6 029f 0823 | #| Declare_Subprogram INIT_0820,For_Call 00f8 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call 00fa 029f 086b | k| Declare_Subprogram INIT_0868,For_Call 00fc 029f 087b | {| Declare_Subprogram INIT_0878,For_Call 00fe 029f 088b | | Declare_Subprogram INIT_0888,For_Call 0100 029f 089b | | Declare_Subprogram INIT_0898,For_Call 0102 029f 08a3 | | Declare_Subprogram INIT_08a0,For_Call 0104 029f 08ab | | Declare_Subprogram INIT_08a8,For_Call 0106 029f 08bb | | Declare_Subprogram INIT_08b8,For_Call 0108 029f 08e3 | | Declare_Subprogram INIT_08e0,For_Call 010a 029f 0913 | | Declare_Subprogram INIT_0910,For_Call 010c 029f 092b | +| Declare_Subprogram INIT_0928,For_Call 010e BODY_0088: 010e e5fd | | Load 0x2,-0x3 010f 4800 |H | Short_Literal 0x0 0110 8008 | | Call 0x0,0x8 0111 00d1 | | Pop_Control Pop_Count_1 0112 4800 |H | Short_Literal 0x0 0113 a425 | % | Store_Unchecked 0x2,0x25 0114 4801 |H | Short_Literal 0x1 0115 4800 |H | Short_Literal 0x0 0116 e214 | | Load 0x1,0x14 0117 01d6 | | Execute Vector,Field_Write 0118 4800 |H | Short_Literal 0x0 0119 a424 | $ | Store_Unchecked 0x2,0x24 011a 4801 |H | Short_Literal 0x1 011b a426 | & | Store_Unchecked 0x2,0x26 011c e426 | & | Load 0x2,0x26 011d 680b |h | Jump_Zero 0x129 011e e421 | ! | Load 0x2,0x21 011f 00d8 | | Load_Top At_Offset_0 0120 00e4 | | Load_Encached Positive_Cache 0121 0260 | ` | Execute Discrete,In_Type 0122 7001 |p | Jump_Nonzero 0x124 0123 0801 | | Execute_Immediate Raise,0x1 0124 e5fe | | Load 0x2,-0x2 0125 8009 | | Call 0x0,0x9 0126 e420 | | Load 0x2,0x20 0127 017d | } | Execute Record,Structure_Write 0128 7818 |x | Jump 0x141 0129 e421 | ! | Load 0x2,0x21 012a e423 | # | Load 0x2,0x23 012b 027b | { | Execute Discrete,Greater_Equal 012c 680f |h | Jump_Zero 0x13c 012d e422 | " | Load 0x2,0x22 012e a421 | ! | Store_Unchecked 0x2,0x21 012f 4801 |H | Short_Literal 0x1 0130 a426 | & | Store_Unchecked 0x2,0x26 0131 e421 | ! | Load 0x2,0x21 0132 00d8 | | Load_Top At_Offset_0 0133 00e4 | | Load_Encached Positive_Cache 0134 0260 | ` | Execute Discrete,In_Type 0135 7001 |p | Jump_Nonzero 0x137 0136 0801 | | Execute_Immediate Raise,0x1 0137 e5fe | | Load 0x2,-0x2 0138 8009 | | Call 0x0,0x9 0139 e420 | | Load 0x2,0x20 013a 017d | } | Execute Record,Structure_Write 013b 7805 |x | Jump 0x141 013c e421 | ! | Load 0x2,0x21 013d e20f | | Load 0x1,0xf 013e 01d5 | | Execute Vector,Field_Reference 013f e420 | | Load 0x2,0x20 0140 017d | } | Execute Record,Structure_Write 0141 e428 | ( | Load 0x2,0x28 0142 e427 | ' | Load 0x2,0x27 0143 e425 | % | Load 0x2,0x25 0144 e424 | $ | Load 0x2,0x24 0145 e426 | & | Load 0x2,0x26 0146 e420 | | Load 0x2,0x20 0147 e421 | ! | Load 0x2,0x21 0148 8220 | | Call 0x1,0x20 0149 e420 | | Load 0x2,0x20 014a 800a | | Call 0x0,0xa 014b 6802 |h | Jump_Zero 0x14e 014c e420 | | Load 0x2,0x20 014d 842c | , | Call 0x2,0x2c 014e e420 | | Load 0x2,0x20 014f 800b | | Call 0x0,0xb 0150 461b |F | Jump_Case 0x1c 0151 7ad0 |z | Jump 0x422 ; case 0x0 0152 781e |x | Jump 0x171 ; case 0x1 0153 7821 |x! | Jump 0x175 ; case 0x2 0154 7828 |x( | Jump 0x17d ; case 0x3 0155 7896 |x | Jump 0x1ec ; case 0x4 0156 78fb |x | Jump 0x252 ; case 0x5 0157 791b |y | Jump 0x273 ; case 0x6 0158 7a66 |zf | Jump 0x3bf ; case 0x7 0159 7a77 |zw | Jump 0x3d1 ; case 0x8 015a 7924 |y$ | Jump 0x27f ; case 0x9 015b 7944 |yD | Jump 0x2a0 ; case 0xa 015c 7943 |yC | Jump 0x2a0 ; case 0xb 015d 797a |yz | Jump 0x2d8 ; case 0xc 015e 799a |y | Jump 0x2f9 ; case 0xd 015f 79ba |y | Jump 0x31a ; case 0xe 0160 79db |y | Jump 0x33c ; case 0xf 0161 79fc |y | Jump 0x35e ; case 0x10 0162 7a21 |z! | Jump 0x384 ; case 0x11 0163 7a18 |z | Jump 0x37c ; case 0x12 0164 7a4b |zK | Jump 0x3b0 ; case 0x13 0165 7a7d |z} | Jump 0x3e3 ; case 0x14 0166 7a97 |z | Jump 0x3fe ; case 0x15 0167 7a9a |z | Jump 0x402 ; case 0x16 0168 7a9b |z | Jump 0x404 ; case 0x17 0169 7a9c |z | Jump 0x406 ; case 0x18 016a 7a9d |z | Jump 0x408 ; case 0x19 016b 7aad |z | Jump 0x419 ; case 0x1a 016c 7800 |x | Jump 0x16d ; case 0x1b 016d e00c | | Load 0x0,0xc 016e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 016f c5fc | | Store 0x2,-0x4 0170 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0171 00d8 | | Load_Top At_Offset_0 0172 020a | | Execute Module,Get_Name 0173 c41e | | Store 0x2,0x1e 0174 7aad |z | Jump 0x422 0175 e420 | | Load 0x2,0x20 0176 800d | | Call 0x0,0xd 0177 a416 | | Store_Unchecked 0x2,0x16 0178 e416 | | Load 0x2,0x16 0179 8222 | " | Call 0x1,0x22 017a 4801 |H | Short_Literal 0x1 017b 8430 | 0 | Call 0x2,0x30 017c 7aa5 |z | Jump 0x422 017d 843f | ? | Call 0x2,0x3f 017e 4802 |H | Short_Literal 0x2 017f e5fc | | Load 0x2,-0x4 0180 e00c | | Load 0x0,0xc 0181 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0182 6802 |h | Jump_Zero 0x185 0183 e21c | | Load 0x1,0x1c 0184 0257 | W | Execute Discrete,Raise 0185 e402 | | Load 0x2,0x2 0186 e420 | | Load 0x2,0x20 0187 800e | | Call 0x0,0xe 0188 017f | | Execute Record,Equal 0189 e404 | | Load 0x2,0x4 018a e420 | | Load 0x2,0x20 018b 800f | | Call 0x0,0xf 018c 012f | / | Execute Any,Equal 018d 0279 | y | Execute Discrete,And 018e 7002 |p | Jump_Nonzero 0x191 018f e21d | | Load 0x1,0x1d 0190 0257 | W | Execute Discrete,Raise 0191 e420 | | Load 0x2,0x20 0192 8010 | | Call 0x0,0x10 0193 a408 | | Store_Unchecked 0x2,0x8 0194 e420 | | Load 0x2,0x20 0195 842a | * | Call 0x2,0x2a 0196 c417 | | Store 0x2,0x17 0197 4800 |H | Short_Literal 0x0 0198 a406 | | Store_Unchecked 0x2,0x6 0199 e417 | | Load 0x2,0x17 019a e004 | | Load 0x0,0x4 019b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 019c 8011 | | Call 0x0,0x11 019d 700c |p | Jump_Nonzero 0x1aa 019e e417 | | Load 0x2,0x17 019f e004 | | Load 0x0,0x4 01a0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 01a1 8012 | | Call 0x0,0x12 01a2 8013 | | Call 0x0,0x13 01a3 e5ff | | Load 0x2,-0x1 01a4 e417 | | Load 0x2,0x17 01a5 e004 | | Load 0x0,0x4 01a6 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01a7 0aff | | Execute_Immediate Plus,-0x1 01a8 a406 | | Store_Unchecked 0x2,0x6 01a9 7802 |x | Jump 0x1ac 01aa 4fff |O | Short_Literal -0x1 01ab a406 | | Store_Unchecked 0x2,0x6 01ac e420 | | Load 0x2,0x20 01ad 8014 | | Call 0x0,0x14 01ae e406 | | Load 0x2,0x6 01af 0273 | s | Execute Discrete,Plus 01b0 c419 | | Store 0x2,0x19 01b1 e405 | | Load 0x2,0x5 01b2 00d8 | | Load_Top At_Offset_0 01b3 e005 | | Load 0x0,0x5 01b4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 01b5 0260 | ` | Execute Discrete,In_Type 01b6 7001 |p | Jump_Nonzero 0x1b8 01b7 0801 | | Execute_Immediate Raise,0x1 01b8 a407 | | Store_Unchecked 0x2,0x7 01b9 e408 | | Load 0x2,0x8 01ba e404 | | Load 0x2,0x4 01bb e004 | | Load 0x0,0x4 01bc 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 01bd e419 | | Load 0x2,0x19 01be e417 | | Load 0x2,0x17 01bf 8225 | % | Call 0x1,0x25 01c0 7007 |p | Jump_Nonzero 0x1c8 01c1 e403 | | Load 0x2,0x3 01c2 8015 | | Call 0x0,0x15 01c3 6802 |h | Jump_Zero 0x1c6 01c4 e219 | | Load 0x1,0x19 01c5 0257 | W | Execute Discrete,Raise 01c6 e218 | | Load 0x1,0x18 01c7 0257 | W | Execute Discrete,Raise 01c8 e408 | | Load 0x2,0x8 01c9 0007 | | Action Break_Optional 01ca e420 | | Load 0x2,0x20 01cb 8016 | | Call 0x0,0x16 01cc 6810 |h | Jump_Zero 0x1dd 01cd e40e | | Load 0x2,0xe 01ce 6807 |h | Jump_Zero 0x1d6 01cf e407 | | Load 0x2,0x7 01d0 843b | ; | Call 0x2,0x3b 01d1 00d8 | | Load_Top At_Offset_0 01d2 e419 | | Load 0x2,0x19 01d3 e417 | | Load 0x2,0x17 01d4 0068 | h | Action Establish_Frame 01d5 7a4c |zL | Jump 0x422 01d6 e407 | | Load 0x2,0x7 01d7 8439 | 9 | Call 0x2,0x39 01d8 00d8 | | Load_Top At_Offset_0 01d9 e419 | | Load 0x2,0x19 01da e417 | | Load 0x2,0x17 01db 0068 | h | Action Establish_Frame 01dc 7a45 |zE | Jump 0x422 01dd e407 | | Load 0x2,0x7 01de 843a | : | Call 0x2,0x3a 01df 00d8 | | Load_Top At_Offset_0 01e0 e419 | | Load 0x2,0x19 01e1 e417 | | Load 0x2,0x17 01e2 0068 | h | Action Establish_Frame 01e3 4801 |H | Short_Literal 0x1 01e4 8430 | 0 | Call 0x2,0x30 01e5 e420 | | Load 0x2,0x20 01e6 8017 | | Call 0x0,0x17 01e7 6a3a |j: | Jump_Zero 0x422 01e8 4800 |H | Short_Literal 0x0 01e9 a429 | ) | Store_Unchecked 0x2,0x29 01ea 8432 | 2 | Call 0x2,0x32 01eb 7a36 |z6 | Jump 0x422 01ec e414 | | Load 0x2,0x14 01ed 0120 | | Execute Any,Is_Value 01ee 6803 |h | Jump_Zero 0x1f2 01ef e004 | | Load 0x0,0x4 01f0 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01f1 7801 |x | Jump 0x1f3 01f2 e414 | | Load 0x2,0x14 01f3 e004 | | Load 0x0,0x4 01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f5 00e3 | | Load_Encached Natural_Cache 01f6 e420 | | Load 0x2,0x20 01f7 8018 | | Call 0x0,0x18 01f8 8223 | # | Call 0x1,0x23 01f9 c412 | | Store 0x2,0x12 01fa c413 | | Store 0x2,0x13 01fb c414 | | Store 0x2,0x14 01fc e414 | | Load 0x2,0x14 01fd e004 | | Load 0x0,0x4 01fe 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 01ff e019 | | Load 0x0,0x19 0200 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0201 c418 | | Store 0x2,0x18 0202 e414 | | Load 0x2,0x14 0203 e004 | | Load 0x0,0x4 0204 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0205 e412 | | Load 0x2,0x12 0206 0273 | s | Execute Discrete,Plus 0207 c415 | | Store 0x2,0x15 0208 e415 | | Load 0x2,0x15 0209 e418 | | Load 0x2,0x18 020a e004 | | Load 0x0,0x4 020b 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 020c e41a | | Load 0x2,0x1a 020d 017d | } | Execute Record,Structure_Write 020e e41a | | Load 0x2,0x1a 020f e004 | | Load 0x0,0x4 0210 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0211 0b0a | | Execute_Immediate Case_Compare,0xa 0212 7004 |p | Jump_Nonzero 0x217 0213 0f58 | X | Execute_Immediate Equal,0x58 0214 702a |p* | Jump_Nonzero 0x23f 0215 e217 | | Load 0x1,0x17 0216 0257 | W | Execute Discrete,Raise 0217 00d1 | | Pop_Control Pop_Count_1 0218 e41a | | Load 0x2,0x1a 0219 e004 | | Load 0x0,0x4 021a 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 021b 09e0 | | Execute_Immediate Binary_Scale,-0x20 021c 00d8 | | Load_Top At_Offset_0 021d e01a | | Load 0x0,0x1a 021e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 021f 0260 | ` | Execute Discrete,In_Type 0220 7001 |p | Jump_Nonzero 0x222 0221 0801 | | Execute_Immediate Raise,0x1 0222 e019 | | Load 0x0,0x19 0223 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0224 c418 | | Store 0x2,0x18 0225 e41a | | Load 0x2,0x1a 0226 e004 | | Load 0x0,0x4 0227 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0228 62bf |b | Indirect_Literal Discrete,0x4e8,{0x00000000, 0xffffffff} 0229 0279 | y | Execute Discrete,And 022a 09f9 | | Execute_Immediate Binary_Scale,-0x7 022b 00d8 | | Load_Top At_Offset_0 022c e004 | | Load 0x0,0x4 022d 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 022e 0260 | ` | Execute Discrete,In_Type 022f 7001 |p | Jump_Nonzero 0x231 0230 0801 | | Execute_Immediate Raise,0x1 0231 a415 | | Store_Unchecked 0x2,0x15 0232 e415 | | Load 0x2,0x15 0233 e418 | | Load 0x2,0x18 0234 e004 | | Load 0x0,0x4 0235 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0236 e41a | | Load 0x2,0x1a 0237 017d | } | Execute Record,Structure_Write 0238 e41a | | Load 0x2,0x1a 0239 e004 | | Load 0x0,0x4 023a 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 023b 0f58 | X | Execute_Immediate Equal,0x58 023c 7002 |p | Jump_Nonzero 0x23f 023d e217 | | Load 0x1,0x17 023e 0257 | W | Execute Discrete,Raise 023f 4820 |H | Short_Literal 0x20 0240 4800 |H | Short_Literal 0x0 0241 e41a | | Load 0x2,0x1a 0242 e004 | | Load 0x0,0x4 0243 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0244 e019 | | Load 0x0,0x19 0245 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0246 a416 | | Store_Unchecked 0x2,0x16 0247 e416 | | Load 0x2,0x16 0248 8222 | " | Call 0x1,0x22 0249 4801 |H | Short_Literal 0x1 024a 8430 | 0 | Call 0x2,0x30 024b e420 | | Load 0x2,0x20 024c 8017 | | Call 0x0,0x17 024d 69d4 |i | Jump_Zero 0x422 024e 4800 |H | Short_Literal 0x0 024f a429 | ) | Store_Unchecked 0x2,0x29 0250 8432 | 2 | Call 0x2,0x32 0251 79d0 |y | Jump 0x422 0252 e420 | | Load 0x2,0x20 0253 8016 | | Call 0x0,0x16 0254 6812 |h | Jump_Zero 0x267 0255 e40e | | Load 0x2,0xe 0256 6809 |h | Jump_Zero 0x260 0257 015e | ^ | Execute Variant_Record,Field_Reference_Dynamic 0258 e40f | | Load 0x2,0xf 0259 6802 |h | Jump_Zero 0x25c 025a 021b | | Execute Heap_Access,Set_Null 025b 7801 |x | Jump 0x25d 025c 022b | + | Execute Access,Set_Null 025d 4802 |H | Short_Literal 0x2 025e 842f | / | Call 0x2,0x2f 025f 79c2 |y | Jump 0x422 0260 00da | | Load_Top At_Offset_2 0261 00da | | Load_Top At_Offset_2 0262 015f | _ | Execute Variant_Record,Field_Write_Dynamic 0263 00d2 | | Pop_Control Pop_Count_2 0264 4803 |H | Short_Literal 0x3 0265 842f | / | Call 0x2,0x2f 0266 79bb |y | Jump 0x422 0267 c411 | | Store 0x2,0x11 0268 00d8 | | Load_Top At_Offset_0 0269 e411 | | Load 0x2,0x11 026a 0160 | ` | Execute Variant_Record,Field_Read_Dynamic 026b 0007 | | Action Break_Optional 026c e420 | | Load 0x2,0x20 026d 8017 | | Call 0x0,0x17 026e 69b3 |i | Jump_Zero 0x422 026f 4800 |H | Short_Literal 0x0 0270 a429 | ) | Store_Unchecked 0x2,0x29 0271 8432 | 2 | Call 0x2,0x32 0272 79af |y | Jump 0x422 0273 00d8 | | Load_Top At_Offset_0 0274 016b | k | Execute Variant_Record,Read_Variant 0275 0007 | | Action Break_Optional 0276 4801 |H | Short_Literal 0x1 0277 8430 | 0 | Call 0x2,0x30 0278 e420 | | Load 0x2,0x20 0279 8017 | | Call 0x0,0x17 027a 69a7 |i | Jump_Zero 0x422 027b 4800 |H | Short_Literal 0x0 027c a429 | ) | Store_Unchecked 0x2,0x29 027d 8432 | 2 | Call 0x2,0x32 027e 79a3 |y | Jump 0x422 027f e420 | | Load 0x2,0x20 0280 8016 | | Call 0x0,0x16 0281 6812 |h | Jump_Zero 0x294 0282 e40e | | Load 0x2,0xe 0283 6809 |h | Jump_Zero 0x28d 0284 0178 | x | Execute Record,Field_Reference_Dynamic 0285 e40f | | Load 0x2,0xf 0286 6802 |h | Jump_Zero 0x289 0287 021b | | Execute Heap_Access,Set_Null 0288 7801 |x | Jump 0x28a 0289 022b | + | Execute Access,Set_Null 028a 4802 |H | Short_Literal 0x2 028b 842f | / | Call 0x2,0x2f 028c 7995 |y | Jump 0x422 028d 00da | | Load_Top At_Offset_2 028e 00da | | Load_Top At_Offset_2 028f 0179 | y | Execute Record,Field_Write_Dynamic 0290 00d2 | | Pop_Control Pop_Count_2 0291 4803 |H | Short_Literal 0x3 0292 842f | / | Call 0x2,0x2f 0293 798e |y | Jump 0x422 0294 c411 | | Store 0x2,0x11 0295 00d8 | | Load_Top At_Offset_0 0296 e411 | | Load 0x2,0x11 0297 017a | z | Execute Record,Field_Read_Dynamic 0298 0007 | | Action Break_Optional 0299 e420 | | Load 0x2,0x20 029a 8017 | | Call 0x0,0x17 029b 6986 |i | Jump_Zero 0x422 029c 4800 |H | Short_Literal 0x0 029d a429 | ) | Store_Unchecked 0x2,0x29 029e 8432 | 2 | Call 0x2,0x32 029f 7982 |y | Jump 0x422 02a0 e420 | | Load 0x2,0x20 02a1 801b | | Call 0x0,0x1b 02a2 00d8 | | Load_Top At_Offset_0 02a3 00e3 | | Load_Encached Natural_Cache 02a4 0260 | ` | Execute Discrete,In_Type 02a5 7001 |p | Jump_Nonzero 0x2a7 02a6 0801 | | Execute_Immediate Raise,0x1 02a7 a411 | | Store_Unchecked 0x2,0x11 02a8 e420 | | Load 0x2,0x20 02a9 8016 | | Call 0x0,0x16 02aa 6815 |h | Jump_Zero 0x2c0 02ab e40e | | Load 0x2,0xe 02ac 680b |h | Jump_Zero 0x2b8 02ad e411 | | Load 0x2,0x11 02ae 00d0 | | Action Swap_Control 02af 0095 | | Execute Package,Field_Reference_Dynamic 02b0 e40f | | Load 0x2,0xf 02b1 6802 |h | Jump_Zero 0x2b4 02b2 021b | | Execute Heap_Access,Set_Null 02b3 7801 |x | Jump 0x2b5 02b4 022b | + | Execute Access,Set_Null 02b5 4801 |H | Short_Literal 0x1 02b6 842f | / | Call 0x2,0x2f 02b7 796a |yj | Jump 0x422 02b8 0008 | | Action Idle 02b9 e411 | | Load 0x2,0x11 02ba 00da | | Load_Top At_Offset_2 02bb 0097 | | Execute Package,Field_Write_Dynamic 02bc 00d1 | | Pop_Control Pop_Count_1 02bd 4802 |H | Short_Literal 0x2 02be 842f | / | Call 0x2,0x2f 02bf 7962 |yb | Jump 0x422 02c0 8434 | 4 | Call 0x2,0x34 02c1 8431 | 1 | Call 0x2,0x31 02c2 a41d | | Store_Unchecked 0x2,0x1d 02c3 e411 | | Load 0x2,0x11 02c4 e41d | | Load 0x2,0x1d 02c5 e019 | | Load 0x0,0x19 02c6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02c7 8226 | & | Call 0x1,0x26 02c8 7002 |p | Jump_Nonzero 0x2cb 02c9 e218 | | Load 0x1,0x18 02ca 0257 | W | Execute Discrete,Raise 02cb e411 | | Load 0x2,0x11 02cc 00d9 | | Load_Top At_Offset_1 02cd 0098 | | Execute Package,Field_Read_Dynamic 02ce 0007 | | Action Break_Optional 02cf 4801 |H | Short_Literal 0x1 02d0 8430 | 0 | Call 0x2,0x30 02d1 e420 | | Load 0x2,0x20 02d2 8017 | | Call 0x0,0x17 02d3 694e |iN | Jump_Zero 0x422 02d4 4800 |H | Short_Literal 0x0 02d5 a429 | ) | Store_Unchecked 0x2,0x29 02d6 8432 | 2 | Call 0x2,0x32 02d7 794a |yJ | Jump 0x422 02d8 e420 | | Load 0x2,0x20 02d9 8016 | | Call 0x0,0x16 02da 6812 |h | Jump_Zero 0x2ed 02db e40e | | Load 0x2,0xe 02dc 680b |h | Jump_Zero 0x2e8 02dd 0008 | | Action Idle 02de e40f | | Load 0x2,0xf 02df 6803 |h | Jump_Zero 0x2e3 02e0 0217 | | Execute Heap_Access,All_Reference 02e1 021b | | Execute Heap_Access,Set_Null 02e2 7802 |x | Jump 0x2e5 02e3 0227 | ' | Execute Access,All_Reference 02e4 022b | + | Execute Access,Set_Null 02e5 4801 |H | Short_Literal 0x1 02e6 842f | / | Call 0x2,0x2f 02e7 793a |y: | Jump 0x422 02e8 00d0 | | Action Swap_Control 02e9 0228 | ( | Execute Access,All_Write 02ea 4802 |H | Short_Literal 0x2 02eb 842f | / | Call 0x2,0x2f 02ec 7935 |y5 | Jump 0x422 02ed 00d8 | | Load_Top At_Offset_0 02ee 0229 | ) | Execute Access,All_Read 02ef 0007 | | Action Break_Optional 02f0 4801 |H | Short_Literal 0x1 02f1 8430 | 0 | Call 0x2,0x30 02f2 e420 | | Load 0x2,0x20 02f3 8017 | | Call 0x0,0x17 02f4 692d |i- | Jump_Zero 0x422 02f5 4800 |H | Short_Literal 0x0 02f6 a429 | ) | Store_Unchecked 0x2,0x29 02f7 8432 | 2 | Call 0x2,0x32 02f8 7929 |y) | Jump 0x422 02f9 e420 | | Load 0x2,0x20 02fa 8016 | | Call 0x0,0x16 02fb 6812 |h | Jump_Zero 0x30e 02fc e40e | | Load 0x2,0xe 02fd 680b |h | Jump_Zero 0x309 02fe 0008 | | Action Idle 02ff e40f | | Load 0x2,0xf 0300 6803 |h | Jump_Zero 0x304 0301 0217 | | Execute Heap_Access,All_Reference 0302 021b | | Execute Heap_Access,Set_Null 0303 7802 |x | Jump 0x306 0304 0227 | ' | Execute Access,All_Reference 0305 022b | + | Execute Access,Set_Null 0306 4801 |H | Short_Literal 0x1 0307 842f | / | Call 0x2,0x2f 0308 7919 |y | Jump 0x422 0309 00d0 | | Action Swap_Control 030a 0218 | | Execute Heap_Access,All_Write 030b 4802 |H | Short_Literal 0x2 030c 842f | / | Call 0x2,0x2f 030d 7914 |y | Jump 0x422 030e 00d8 | | Load_Top At_Offset_0 030f 0219 | | Execute Heap_Access,All_Read 0310 0007 | | Action Break_Optional 0311 4801 |H | Short_Literal 0x1 0312 8430 | 0 | Call 0x2,0x30 0313 e420 | | Load 0x2,0x20 0314 8017 | | Call 0x0,0x17 0315 690c |i | Jump_Zero 0x422 0316 4800 |H | Short_Literal 0x0 0317 a429 | ) | Store_Unchecked 0x2,0x29 0318 8432 | 2 | Call 0x2,0x32 0319 7908 |y | Jump 0x422 031a e420 | | Load 0x2,0x20 031b 8016 | | Call 0x0,0x16 031c 6804 |h | Jump_Zero 0x321 031d e40e | | Load 0x2,0xe 031e 7002 |p | Jump_Nonzero 0x321 031f 00d9 | | Load_Top At_Offset_1 0320 0007 | | Action Break_Optional 0321 c409 | | Store 0x2,0x9 0322 4801 |H | Short_Literal 0x1 0323 842f | / | Call 0x2,0x2f 0324 e409 | | Load 0x2,0x9 0325 0f01 | | Execute_Immediate Equal,0x1 0326 6802 |h | Jump_Zero 0x329 0327 e21f | | Load 0x1,0x1f 0328 0257 | W | Execute Discrete,Raise 0329 e409 | | Load 0x2,0x9 032a 0f02 | | Execute_Immediate Equal,0x2 032b 6808 |h | Jump_Zero 0x334 032c 843c | < | Call 0x2,0x3c 032d e420 | | Load 0x2,0x20 032e 8017 | | Call 0x0,0x17 032f 68f2 |h | Jump_Zero 0x422 0330 4800 |H | Short_Literal 0x0 0331 a429 | ) | Store_Unchecked 0x2,0x29 0332 8432 | 2 | Call 0x2,0x32 0333 78ee |x | Jump 0x422 0334 843d | = | Call 0x2,0x3d 0335 e420 | | Load 0x2,0x20 0336 8017 | | Call 0x0,0x17 0337 68ea |h | Jump_Zero 0x422 0338 4800 |H | Short_Literal 0x0 0339 a429 | ) | Store_Unchecked 0x2,0x29 033a 8432 | 2 | Call 0x2,0x32 033b 78e6 |x | Jump 0x422 033c e420 | | Load 0x2,0x20 033d 8016 | | Call 0x0,0x16 033e 6813 |h | Jump_Zero 0x352 033f e40e | | Load 0x2,0xe 0340 680a |h | Jump_Zero 0x34b 0341 00d0 | | Action Swap_Control 0342 01d5 | | Execute Vector,Field_Reference 0343 e40f | | Load 0x2,0xf 0344 6802 |h | Jump_Zero 0x347 0345 021b | | Execute Heap_Access,Set_Null 0346 7801 |x | Jump 0x348 0347 022b | + | Execute Access,Set_Null 0348 4802 |H | Short_Literal 0x2 0349 842f | / | Call 0x2,0x2f 034a 78d7 |x | Jump 0x422 034b 00d9 | | Load_Top At_Offset_1 034c 00db | | Load_Top At_Offset_3 034d 01d6 | | Execute Vector,Field_Write 034e 00d2 | | Pop_Control Pop_Count_2 034f 4803 |H | Short_Literal 0x3 0350 842f | / | Call 0x2,0x2f 0351 78d0 |x | Jump 0x422 0352 c40b | | Store 0x2,0xb 0353 e40b | | Load 0x2,0xb 0354 00d9 | | Load_Top At_Offset_1 0355 01d7 | | Execute Vector,Field_Read 0356 0007 | | Action Break_Optional 0357 e420 | | Load 0x2,0x20 0358 8017 | | Call 0x0,0x17 0359 68c8 |h | Jump_Zero 0x422 035a 4800 |H | Short_Literal 0x0 035b a429 | ) | Store_Unchecked 0x2,0x29 035c 8432 | 2 | Call 0x2,0x32 035d 78c4 |x | Jump 0x422 035e c409 | | Store 0x2,0x9 035f e409 | | Load 0x2,0x9 0360 0f01 | | Execute_Immediate Equal,0x1 0361 6803 |h | Jump_Zero 0x365 0362 00d8 | | Load_Top At_Offset_0 0363 01d9 | | Execute Vector,Reverse_Bounds 0364 780d |x | Jump 0x372 0365 e420 | | Load 0x2,0x20 0366 801c | | Call 0x0,0x1c 0367 a40a | | Store_Unchecked 0x2,0xa 0368 00d8 | | Load_Top At_Offset_0 0369 e40a | | Load 0x2,0xa 036a 00d0 | | Action Swap_Control 036b e409 | | Load 0x2,0x9 036c 0f02 | | Execute_Immediate Equal,0x2 036d 6802 |h | Jump_Zero 0x370 036e 01a9 | | Execute Matrix,Reverse_Bounds 036f 7802 |x | Jump 0x372 0370 01f9 | | Execute Array,Reverse_Bounds 0371 0007 | | Action Break_Optional 0372 4801 |H | Short_Literal 0x1 0373 8430 | 0 | Call 0x2,0x30 0374 e420 | | Load 0x2,0x20 0375 8017 | | Call 0x0,0x17 0376 68ab |h | Jump_Zero 0x422 0377 4800 |H | Short_Literal 0x0 0378 a429 | ) | Store_Unchecked 0x2,0x29 0379 8432 | 2 | Call 0x2,0x32 037a 8432 | 2 | Call 0x2,0x32 037b 78a6 |x | Jump 0x422 037c e420 | | Load 0x2,0x20 037d 801d | | Call 0x0,0x1d 037e a40d | | Store_Unchecked 0x2,0xd 037f e40d | | Load 0x2,0xd 0380 0007 | | Action Break_Optional 0381 4801 |H | Short_Literal 0x1 0382 8430 | 0 | Call 0x2,0x30 0383 789e |x | Jump 0x422 0384 e420 | | Load 0x2,0x20 0385 801e | | Call 0x0,0x1e 0386 e410 | | Load 0x2,0x10 0387 017d | } | Execute Record,Structure_Write 0388 e410 | | Load 0x2,0x10 0389 801f | | Call 0x0,0x1f 038a 4606 |F | Jump_Case 0x7 038b 780b |x | Jump 0x397 ; case 0x0 038c 780a |x | Jump 0x397 ; case 0x1 038d 7804 |x | Jump 0x392 ; case 0x2 038e 7810 |x | Jump 0x39f ; case 0x3 038f 7807 |x | Jump 0x397 ; case 0x4 0390 7801 |x | Jump 0x392 ; case 0x5 0391 7800 |x | Jump 0x392 ; case 0x6 0392 0092 09b6 | | Action Push_String_Extended,0x9b6 ; "Load_Discrete_Constant: unknown scalar type" 0394 e020 | | Load 0x0,0x20 0395 180f | | Execute Package,Field_Execute,Field_Number 0xf 0396 788b |x | Jump 0x422 0397 e420 | | Load 0x2,0x20 0398 8021 | ! | Call 0x0,0x21 0399 a40c | | Store_Unchecked 0x2,0xc 039a e40c | | Load 0x2,0xc 039b 0007 | | Action Break_Optional 039c 4801 |H | Short_Literal 0x1 039d 8430 | 0 | Call 0x2,0x30 039e 7883 |x | Jump 0x422 039f 0092 09b7 | | Action Push_String_Extended,0x9b7 ; "Load_Discrete_Constant: non-null access type" 03a1 e410 | | Load 0x2,0x10 03a2 8022 | " | Call 0x0,0x22 03a3 e020 | | Load 0x0,0x20 03a4 180e | | Execute Package,Field_Execute,Field_Number 0xe 03a5 4801 |H | Short_Literal 0x1 03a6 a40e | | Store_Unchecked 0x2,0xe 03a7 e410 | | Load 0x2,0x10 03a8 8023 | # | Call 0x0,0x23 03a9 6803 |h | Jump_Zero 0x3ad 03aa 4801 |H | Short_Literal 0x1 03ab a40f | | Store_Unchecked 0x2,0xf 03ac 7875 |xu | Jump 0x422 03ad 4800 |H | Short_Literal 0x0 03ae a40f | | Store_Unchecked 0x2,0xf 03af 7872 |xr | Jump 0x422 03b0 e41e | | Load 0x2,0x1e 03b1 e004 | | Load 0x0,0x4 03b2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03b3 a41f | | Store_Unchecked 0x2,0x1f 03b4 e41f | | Load 0x2,0x1f 03b5 0007 | | Action Break_Optional 03b6 4801 |H | Short_Literal 0x1 03b7 8430 | 0 | Call 0x2,0x30 03b8 e420 | | Load 0x2,0x20 03b9 8017 | | Call 0x0,0x17 03ba 6867 |hg | Jump_Zero 0x422 03bb 4800 |H | Short_Literal 0x0 03bc a429 | ) | Store_Unchecked 0x2,0x29 03bd 8432 | 2 | Call 0x2,0x32 03be 7863 |xc | Jump 0x422 03bf 00d8 | | Load_Top At_Offset_0 03c0 00d8 | | Load_Top At_Offset_0 03c1 6803 |h | Jump_Zero 0x3c5 03c2 0227 | ' | Execute Access,All_Reference 03c3 012d | - | Execute Any,Address 03c4 7803 |x | Jump 0x3c8 03c5 00d1 | | Pop_Control Pop_Count_1 03c6 4800 |H | Short_Literal 0x0 03c7 0007 | | Action Break_Optional 03c8 4801 |H | Short_Literal 0x1 03c9 8430 | 0 | Call 0x2,0x30 03ca e420 | | Load 0x2,0x20 03cb 8017 | | Call 0x0,0x17 03cc 6855 |hU | Jump_Zero 0x422 03cd 4801 |H | Short_Literal 0x1 03ce a429 | ) | Store_Unchecked 0x2,0x29 03cf 8432 | 2 | Call 0x2,0x32 03d0 7851 |xQ | Jump 0x422 03d1 00d8 | | Load_Top At_Offset_0 03d2 00d8 | | Load_Top At_Offset_0 03d3 6803 |h | Jump_Zero 0x3d7 03d4 0217 | | Execute Heap_Access,All_Reference 03d5 012d | - | Execute Any,Address 03d6 7803 |x | Jump 0x3da 03d7 00d1 | | Pop_Control Pop_Count_1 03d8 4800 |H | Short_Literal 0x0 03d9 0007 | | Action Break_Optional 03da 4801 |H | Short_Literal 0x1 03db 8430 | 0 | Call 0x2,0x30 03dc e420 | | Load 0x2,0x20 03dd 8017 | | Call 0x0,0x17 03de 6843 |hC | Jump_Zero 0x422 03df 4801 |H | Short_Literal 0x1 03e0 a429 | ) | Store_Unchecked 0x2,0x29 03e1 8432 | 2 | Call 0x2,0x32 03e2 783f |x? | Jump 0x422 03e3 0008 | | Action Idle 03e4 e420 | | Load 0x2,0x20 03e5 8024 | $ | Call 0x0,0x24 03e6 7002 |p | Jump_Nonzero 0x3e9 03e7 00d1 | | Pop_Control Pop_Count_1 03e8 7839 |x9 | Jump 0x422 03e9 e424 | $ | Load 0x2,0x24 03ea 7007 |p | Jump_Nonzero 0x3f2 03eb e425 | % | Load 0x2,0x25 03ec 0aff | | Execute_Immediate Plus,-0x1 03ed c425 | % | Store 0x2,0x25 03ee e425 | % | Load 0x2,0x25 03ef e212 | | Load 0x1,0x12 03f0 01d7 | | Execute Vector,Field_Read 03f1 c424 | $ | Store 0x2,0x24 03f2 e424 | $ | Load 0x2,0x24 03f3 6805 |h | Jump_Zero 0x3f9 03f4 e424 | $ | Load 0x2,0x24 03f5 0aff | | Execute_Immediate Plus,-0x1 03f6 c424 | $ | Store 0x2,0x24 03f7 00d1 | | Pop_Control Pop_Count_1 03f8 7ff9 | | Jump 0x3f2 03f9 e425 | % | Load 0x2,0x25 03fa e214 | | Load 0x1,0x14 03fb 01d7 | | Execute Vector,Field_Read 03fc c210 | | Store 0x1,0x10 03fd 7824 |x$ | Jump 0x422 03fe 4800 |H | Short_Literal 0x0 03ff a429 | ) | Store_Unchecked 0x2,0x29 0400 8432 | 2 | Call 0x2,0x32 0401 7820 |x | Jump 0x422 0402 842d | - | Call 0x2,0x2d 0403 781e |x | Jump 0x422 0404 842e | . | Call 0x2,0x2e 0405 781c |x | Jump 0x422 0406 e21a | | Load 0x1,0x1a 0407 0257 | W | Execute Discrete,Raise 0408 4801 |H | Short_Literal 0x1 0409 8430 | 0 | Call 0x2,0x30 040a e420 | | Load 0x2,0x20 040b 8010 | | Call 0x0,0x10 040c 00d8 | | Load_Top At_Offset_0 040d 00e3 | | Load_Encached Natural_Cache 040e 0260 | ` | Execute Discrete,In_Type 040f 7001 |p | Jump_Nonzero 0x411 0410 0801 | | Execute_Immediate Raise,0x1 0411 843e | > | Call 0x2,0x3e 0412 e420 | | Load 0x2,0x20 0413 8017 | | Call 0x0,0x17 0414 680d |h | Jump_Zero 0x422 0415 4800 |H | Short_Literal 0x0 0416 a429 | ) | Store_Unchecked 0x2,0x29 0417 8432 | 2 | Call 0x2,0x32 0418 7809 |x | Jump 0x422 0419 e420 | | Load 0x2,0x20 041a 8025 | % | Call 0x0,0x25 041b e420 | | Load 0x2,0x20 041c 8026 | & | Call 0x0,0x26 041d e420 | | Load 0x2,0x20 041e 8027 | ' | Call 0x0,0x27 041f e420 | | Load 0x2,0x20 0420 8018 | | Call 0x0,0x18 0421 8433 | 3 | Call 0x2,0x33 0422 e421 | ! | Load 0x2,0x21 0423 0a01 | | Execute_Immediate Plus,0x1 0424 c421 | ! | Store 0x2,0x21 0425 842b | + | Call 0x2,0x2b 0426 7cf5 || | Jump 0x11c 0427 TRAP_0088: 0427 e217 | | Load 0x1,0x17 0428 010f | | Execute Exception,Equal 0429 6808 |h | Jump_Zero 0x432 042a e420 | | Load 0x2,0x20 042b 8028 | ( | Call 0x0,0x28 042c 0092 09b8 | | Action Push_String_Extended,0x9b8 ; "Library unit not elaborated" 042e e00c | | Load 0x0,0xc 042f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0430 c5fc | | Store 0x2,-0x4 0431 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0432 e216 | | Load 0x1,0x16 0433 010f | | Execute Exception,Equal 0434 6808 |h | Jump_Zero 0x43d 0435 e420 | | Load 0x2,0x20 0436 8028 | ( | Call 0x0,0x28 0437 0092 09b9 | | Action Push_String_Extended,0x9b9 ; "Library unit is part of system" 0439 e00c | | Load 0x0,0xc 043a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 043b c5fc | | Store 0x2,-0x4 043c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 043d e21b | | Load 0x1,0x1b 043e 010f | | Execute Exception,Equal 043f 6808 |h | Jump_Zero 0x448 0440 e420 | | Load 0x2,0x20 0441 8028 | ( | Call 0x0,0x28 0442 0092 09ba | | Action Push_String_Extended,0x9ba ; "Invalid Program detected by Interpreter" 0444 e00c | | Load 0x0,0xc 0445 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0446 c5fc | | Store 0x2,-0x4 0447 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0448 e21c | | Load 0x1,0x1c 0449 010f | | Execute Exception,Equal 044a 6808 |h | Jump_Zero 0x453 044b e420 | | Load 0x2,0x20 044c 8028 | ( | Call 0x0,0x28 044d 0092 09bb | | Action Push_String_Extended,0x9bb ; "Inaccessible Frame Access" 044f e00c | | Load 0x0,0xc 0450 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0451 c5fc | | Store 0x2,-0x4 0452 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0453 e21d | | Load 0x1,0x1d 0454 010f | | Execute Exception,Equal 0455 6808 |h | Jump_Zero 0x45e 0456 e420 | | Load 0x2,0x20 0457 8028 | ( | Call 0x0,0x28 0458 0092 09bc | | Action Push_String_Extended,0x9bc ; "Task is executing a different subprogram" 045a e00c | | Load 0x0,0xc 045b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 045c c5fc | | Store 0x2,-0x4 045d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 045e e21e | | Load 0x1,0x1e 045f 010f | | Execute Exception,Equal 0460 6808 |h | Jump_Zero 0x469 0461 e420 | | Load 0x2,0x20 0462 8028 | ( | Call 0x0,0x28 0463 0092 09bd | | Action Push_String_Extended,0x9bd ; "Uninitialized Value" 0465 e00c | | Load 0x0,0xc 0466 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0467 c5fc | | Store 0x2,-0x4 0468 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0469 010e | | Execute Exception,Is_Constraint_Error 046a 6839 |h9 | Jump_Zero 0x4a4 046b 8221 | ! | Call 0x1,0x21 046c 00d8 | | Load_Top At_Offset_0 046d 4801 |H | Short_Literal 0x1 046e 4808 |H | Short_Literal 0x8 046f 0262 | b | Execute Discrete,In_Range 0470 682a |h* | Jump_Zero 0x49b 0471 0aff | | Execute_Immediate Plus,-0x1 0472 4607 |F | Jump_Case 0x8 0473 780f |x | Jump 0x483 ; case 0x0 0474 7827 |x' | Jump 0x49c ; case 0x1 0475 7826 |x& | Jump 0x49c ; case 0x2 0476 7814 |x | Jump 0x48b ; case 0x3 0477 781b |x | Jump 0x493 ; case 0x4 0478 7823 |x# | Jump 0x49c ; case 0x5 0479 7801 |x | Jump 0x47b ; case 0x6 047a 7800 |x | Jump 0x47b ; case 0x7 047b e420 | | Load 0x2,0x20 047c 8028 | ( | Call 0x0,0x28 047d 0092 09be | | Action Push_String_Extended,0x9be ; "Record field is in an inactive variant part" 047f e00c | | Load 0x0,0xc 0480 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0481 c5fc | | Store 0x2,-0x4 0482 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0483 e420 | | Load 0x2,0x20 0484 8028 | ( | Call 0x0,0x28 0485 0092 09bf | | Action Push_String_Extended,0x9bf ; "Value out of range" 0487 e00c | | Load 0x0,0xc 0488 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0489 c5fc | | Store 0x2,-0x4 048a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 048b e420 | | Load 0x2,0x20 048c 8028 | ( | Call 0x0,0x28 048d 0092 09c0 | | Action Push_String_Extended,0x9c0 ; "Null pointer dereferenced" 048f e00c | | Load 0x0,0xc 0490 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0491 c5fc | | Store 0x2,-0x4 0492 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0493 e420 | | Load 0x2,0x20 0494 8028 | ( | Call 0x0,0x28 0495 0092 09c1 | | Action Push_String_Extended,0x9c1 ; "Array index out of bounds" 0497 e00c | | Load 0x0,0xc 0498 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0499 c5fc | | Store 0x2,-0x4 049a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 049b 00d1 | | Pop_Control Pop_Count_1 049c e420 | | Load 0x2,0x20 049d 8028 | ( | Call 0x0,0x28 049e 0092 09c2 | | Action Push_String_Extended,0x9c2 ; "Constraint_Error " 04a0 e00c | | Load 0x0,0xc 04a1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04a2 c5fc | | Store 0x2,-0x4 04a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04a4 e21a | | Load 0x1,0x1a 04a5 010f | | Execute Exception,Equal 04a6 6808 |h | Jump_Zero 0x4af 04a7 e420 | | Load 0x2,0x20 04a8 8028 | ( | Call 0x0,0x28 04a9 0092 09c3 | | Action Push_String_Extended,0x9c3 ; "Unimplemented Interpreter Function" 04ab e00c | | Load 0x0,0xc 04ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04ad c5fc | | Store 0x2,-0x4 04ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04af e21f | | Load 0x1,0x1f 04b0 010f | | Execute Exception,Equal 04b1 6808 |h | Jump_Zero 0x4ba 04b2 e420 | | Load 0x2,0x20 04b3 8028 | ( | Call 0x0,0x28 04b4 0092 09c4 | | Action Push_String_Extended,0x9c4 ; "Invalid Abstract Program (Array Access)" 04b6 e00c | | Load 0x0,0xc 04b7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04b8 c5fc | | Store 0x2,-0x4 04b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04ba e215 | | Load 0x1,0x15 04bb 010f | | Execute Exception,Equal 04bc 680a |h | Jump_Zero 0x4c7 04bd e5fc | | Load 0x2,-0x4 04be 00ea | | Load_Encached Null_String_Cache 04bf 0092 09c5 | | Action Push_String_Extended,0x9c5 ; "Attempt to access generic module, task type, or unelaborated package" 04c1 0092 09c6 | | Action Push_String_Extended,0x9c6 ; "Illegal Module" 04c3 e00c | | Load 0x0,0xc 04c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04c5 c5fc | | Store 0x2,-0x4 04c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04c7 e218 | | Load 0x1,0x18 04c8 010f | | Execute Exception,Equal 04c9 6808 |h | Jump_Zero 0x4d2 04ca e420 | | Load 0x2,0x20 04cb 8028 | ( | Call 0x0,0x28 04cc 0092 09c7 | | Action Push_String_Extended,0x9c7 ; "Attempt to access unelaborated variable" 04ce e00c | | Load 0x0,0xc 04cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04d0 c5fc | | Store 0x2,-0x4 04d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04d2 e219 | | Load 0x1,0x19 04d3 010f | | Execute Exception,Equal 04d4 6808 |h | Jump_Zero 0x4dd 04d5 e420 | | Load 0x2,0x20 04d6 8028 | ( | Call 0x0,0x28 04d7 0092 09c8 | | Action Push_String_Extended,0x9c8 ; "For-loop variable not accessible after exception raised" 04d9 e00c | | Load 0x0,0xc 04da 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04db c5fc | | Store 0x2,-0x4 04dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04dd e5fc | | Load 0x2,-0x4 04de 00ea | | Load_Encached Null_String_Cache 04df e029 | ) | Load 0x0,0x29 04e0 180d | | Execute Package,Field_Execute,Field_Number 0xd 04e1 0092 09c9 | | Action Push_String_Extended,0x9c9 ; "Unexpected exception" 04e3 e00c | | Load 0x0,0xc 04e4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04e5 c5fc | | Store 0x2,-0x4 04e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04e7 0000 | | .XXX[0x1] 04e8 0000 0000 | | .LITERAL {0x00000000, 0xffffffff} 04ec 8000 0000 | | .XXX[0x2c] 04ee 000b 0000 | | 04f0 8000 0000 | | 04f2 000a 0000 | | 04f4 8000 0000 | | 04f6 0009 0000 | | 04f8 8000 0000 | | 04fa 0008 0000 | | 04fc 8000 0000 | | 04fe 0007 0000 | | 0500 8000 0000 | | 0502 0006 0000 | | 0504 8000 0000 | | 0506 0005 0000 | | 0508 8000 0000 | | 050a 0004 0000 | | 050c 8000 0000 | | 050e 0003 0000 | | 0510 8000 0000 | | 0512 0002 0000 | | 0514 8000 0000 | | 0516 0001 0000 | | 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051b | | .CONST 0x051b ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0001 | | .CONST 0x0001 ; Number of locals 051b BODY_0518: 051b INIT_0518: 051b 00d1 | | Pop_Control Pop_Count_1 051c 00da | | Load_Top At_Offset_2 051d 01dc | | Execute Vector,Last 051e 00db | | Load_Top At_Offset_3 051f 01dd | | Execute Vector,First 0520 0263 | c | Execute Discrete,Above_Bound 0521 7006 |p | Jump_Nonzero 0x528 0522 00d8 | | Load_Top At_Offset_0 0523 e5ff | | Load 0x2,-0x1 0524 01d5 | | Execute Vector,Field_Reference 0525 1c00 | | Execute_Immediate Run_Utility,0x0 0526 0a01 | | Execute_Immediate Plus,0x1 0527 7ff8 | | Jump 0x520 0528 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0529 0000 0000 | | .BLANK 0000[0x7] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0537 | 7 | .CONST 0x0537 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0003 | | .CONST 0x0003 ; Number of locals 0533 INIT_0530: 0533 029f 0973 | s| Declare_Subprogram INIT_0970,For_Call 0535 029f 0983 | | Declare_Subprogram INIT_0980,For_Call 0537 BODY_0530: 0537 e5fa | | Load 0x2,-0x6 0538 680f |h | Jump_Zero 0x548 0539 0092 09ca | | Action Push_String_Extended,0x9ca ; "Pop_Count: " 053b e5fc | | Load 0x2,-0x4 053c 00e0 | | Load_Encached Standard_Cache 053d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 053e 01cc | | Execute Vector,Catenate 053f 0092 09cb | | Action Push_String_Extended,0x9cb ; ", Mark_Count: " 0541 01cc | | Execute Vector,Catenate 0542 e5fb | | Load 0x2,-0x5 0543 00e0 | | Load_Encached Standard_Cache 0544 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0545 01cc | | Execute Vector,Catenate 0546 802a | * | Call 0x0,0x2a 0547 8403 | | Call 0x2,0x3 0548 e5f9 | | Load 0x2,-0x7 0549 680c |h | Jump_Zero 0x556 054a e5ff | | Load 0x2,-0x1 054b 00e0 | | Load_Encached Standard_Cache 054c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 054d 8402 | | Call 0x2,0x2 054e 01cc | | Execute Vector,Catenate 054f 0092 09cc | | Action Push_String_Extended,0x9cc ; ": " 0551 01cc | | Execute Vector,Catenate 0552 e5fe | | Load 0x2,-0x2 0553 802b | + | Call 0x0,0x2b 0554 01cc | | Execute Vector,Catenate 0555 802a | * | Call 0x0,0x2a 0556 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0557 0000 | | .XXX[0x1] 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 055c | \ | .CONST 0x055c ; Address of begin 0559 0561 | a | .CONST 0x0561 ; Address of exception handler 055a 0002 | | .CONST 0x0002 ; Number of locals 055b INIT_0558: 055b 00e5 | | Load_Encached Long_Integer_Cache 055c BODY_0558: 055c e5ff | | Load 0x2,-0x1 055d 0107 | | Execute Exception,Get_Name 055e c402 | | Store 0x2,0x2 055f 00d8 | | Load_Top At_Offset_0 0560 00ca | | Action Exit_Nullary_Function 0561 TRAP_0558: 0561 0007 | | Action Break_Optional 0562 4800 |H | Short_Literal 0x0 0563 00ca | | Action Exit_Nullary_Function 0564 0000 0000 | | .BLANK 0000[0x4] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b 4800 |H | Short_Literal 0x0 056c 00db | | Load_Top At_Offset_3 056d e004 | | Load 0x0,0x4 056e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 056f e004 | | Load 0x0,0x4 0570 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0571 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0572 0000 0000 | | .BLANK 0000[0x6] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 0581 | | .CONST 0x0581 ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0003 | | .CONST 0x0003 ; Number of locals 057b INIT_0578: 057b e00c | | Load 0x0,0xc 057c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 057d 02c7 | | Declare_Variable Any 057e 00d8 | | Load_Top At_Offset_0 057f 1c00 | | Execute_Immediate Run_Utility,0x0 0580 00e3 | | Load_Encached Natural_Cache 0581 BODY_0578: 0581 00d9 | | Load_Top At_Offset_1 0582 e004 | | Load 0x0,0x4 0583 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0584 e004 | | Load 0x0,0x4 0585 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0586 e5fc | | Load 0x2,-0x4 0587 0120 | | Execute Any,Is_Value 0588 6803 |h | Jump_Zero 0x58c 0589 e004 | | Load 0x0,0x4 058a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 058b 7801 |x | Jump 0x58d 058c e5fc | | Load 0x2,-0x4 058d e5ff | | Load 0x2,-0x1 058e 802c | , | Call 0x0,0x2c 058f c5fc | | Store 0x2,-0x4 0590 005b | [ | Store_Top Discrete,At_Offset_3 0591 c5fd | | Store 0x2,-0x3 0592 c402 | | Store 0x2,0x2 0593 4802 |H | Short_Literal 0x2 0594 00da | | Load_Top At_Offset_2 0595 e00c | | Load 0x0,0xc 0596 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0597 6802 |h | Jump_Zero 0x59a 0598 e217 | | Load 0x1,0x17 0599 0257 | W | Execute Discrete,Raise 059a 00d8 | | Load_Top At_Offset_0 059b 7002 |p | Jump_Nonzero 0x59e 059c e216 | | Load 0x1,0x16 059d 0257 | W | Execute Discrete,Raise 059e 00d8 | | Load_Top At_Offset_0 059f a5fe | | Store_Unchecked 0x2,-0x2 05a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05a1 0000 0000 | | .BLANK 0000[0x7] 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05ae | | .CONST 0x05ae ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 0002 | | .CONST 0x0002 ; Number of locals 05ab INIT_05a8: 05ab e004 | | Load 0x0,0x4 05ac 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 05ad 0322 | " | Declare_Variable Record 05ae BODY_05a8: 05ae 4802 |H | Short_Literal 0x2 05af e5ff | | Load 0x2,-0x1 05b0 e004 | | Load 0x0,0x4 05b1 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 05b2 00d9 | | Load_Top At_Offset_1 05b3 017d | } | Execute Record,Structure_Write 05b4 4814 |H | Short_Literal 0x14 05b5 4825 |H% | Short_Literal 0x25 05b6 00da | | Load_Top At_Offset_2 05b7 e004 | | Load 0x0,0x4 05b8 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 05b9 e019 | | Load 0x0,0x19 05ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05bb 00d8 | | Load_Top At_Offset_0 05bc e004 | | Load 0x0,0x4 05bd 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 05be 0260 | ` | Execute Discrete,In_Type 05bf 7001 |p | Jump_Nonzero 0x5c1 05c0 0801 | | Execute_Immediate Raise,0x1 05c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05c2 0000 0000 | | .BLANK 0000[0x6] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05d6 | | .CONST 0x05d6 ; Address of begin 05c9 0609 | | .CONST 0x0609 ; Address of exception handler 05ca 0007 | | .CONST 0x0007 ; Number of locals 05cb INIT_05c8: 05cb e004 | | Load 0x0,0x4 05cc 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 05cd e004 | | Load 0x0,0x4 05ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05cf e004 | | Load 0x0,0x4 05d0 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 05d1 00e3 | | Load_Encached Natural_Cache 05d2 e004 | | Load 0x0,0x4 05d3 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 05d4 e004 | | Load 0x0,0x4 05d5 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 05d6 BODY_05c8: 05d6 e5fe | | Load 0x2,-0x2 05d7 7005 |p | Jump_Nonzero 0x5dd 05d8 e5ff | | Load 0x2,-0x1 05d9 8224 | $ | Call 0x1,0x24 05da 0a01 | | Execute_Immediate Plus,0x1 05db 0059 | Y | Store_Top Discrete,At_Offset_1 05dc 7826 |x& | Jump 0x603 05dd e004 | | Load 0x0,0x4 05de 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 05df 00e3 | | Load_Encached Natural_Cache 05e0 e004 | | Load 0x0,0x4 05e1 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 05e2 e004 | | Load 0x0,0x4 05e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05e4 e004 | | Load 0x0,0x4 05e5 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 05e6 e5fe | | Load 0x2,-0x2 05e7 0aff | | Execute_Immediate Plus,-0x1 05e8 00d8 | | Load_Top At_Offset_0 05e9 00e3 | | Load_Encached Natural_Cache 05ea 0260 | ` | Execute Discrete,In_Type 05eb 7001 |p | Jump_Nonzero 0x5ed 05ec 0801 | | Execute_Immediate Raise,0x1 05ed e019 | | Load 0x0,0x19 05ee 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 05ef e5ff | | Load 0x2,-0x1 05f0 e004 | | Load 0x0,0x4 05f1 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 05f2 c402 | | Store 0x2,0x2 05f3 c403 | | Store 0x2,0x3 05f4 c404 | | Store 0x2,0x4 05f5 c405 | | Store 0x2,0x5 05f6 005a | Z | Store_Top Discrete,At_Offset_2 05f7 00d9 | | Load_Top At_Offset_1 05f8 0f02 | | Execute_Immediate Equal,0x2 05f9 6805 |h | Jump_Zero 0x5ff 05fa e402 | | Load 0x2,0x2 05fb e004 | | Load 0x0,0x4 05fc 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 05fd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 05fe 7804 |x | Jump 0x603 05ff e5ff | | Load 0x2,-0x1 0600 8224 | $ | Call 0x1,0x24 0601 0a01 | | Execute_Immediate Plus,0x1 0602 0059 | Y | Store_Top Discrete,At_Offset_1 0603 e5fd | | Load 0x2,-0x3 0604 e5fc | | Load 0x2,-0x4 0605 0273 | s | Execute Discrete,Plus 0606 00d9 | | Load_Top At_Offset_1 0607 027c | | | Execute Discrete,Less 0608 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0609 TRAP_05c8: 0609 0007 | | Action Break_Optional 060a 4801 |H | Short_Literal 0x1 060b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 060c 0000 0000 | | .BLANK 0000[0x4] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 061a | | .CONST 0x061a ; Address of begin 0611 0637 | 7 | .CONST 0x0637 ; Address of exception handler 0612 0004 | | .CONST 0x0004 ; Number of locals 0613 INIT_0610: 0613 e004 | | Load 0x0,0x4 0614 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0615 e004 | | Load 0x0,0x4 0616 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0617 e004 | | Load 0x0,0x4 0618 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0619 0322 | " | Declare_Variable Record 061a BODY_0610: 061a e5ff | | Load 0x2,-0x1 061b 8224 | $ | Call 0x1,0x24 061c 0a01 | | Execute_Immediate Plus,0x1 061d 005b | [ | Store_Top Discrete,At_Offset_3 061e 480d |H | Short_Literal 0xd 061f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0620 00d9 | | Load_Top At_Offset_1 0621 00db | | Load_Top At_Offset_3 0622 027b | { | Execute Discrete,Greater_Equal 0623 700f |p | Jump_Nonzero 0x633 0624 00d9 | | Load_Top At_Offset_1 0625 e5ff | | Load 0x2,-0x1 0626 e004 | | Load 0x0,0x4 0627 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0628 00d9 | | Load_Top At_Offset_1 0629 017d | } | Execute Record,Structure_Write 062a 00d8 | | Load_Top At_Offset_0 062b e004 | | Load 0x0,0x4 062c 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 062d 0f7f | | Execute_Immediate Equal,0x7f 062e 7004 |p | Jump_Nonzero 0x633 062f 00d9 | | Load_Top At_Offset_1 0630 0a01 | | Execute_Immediate Plus,0x1 0631 005a | Z | Store_Top Discrete,At_Offset_2 0632 7fed | | Jump 0x620 0633 e5fe | | Load 0x2,-0x2 0634 00da | | Load_Top At_Offset_2 0635 027c | | | Execute Discrete,Less 0636 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0637 TRAP_0610: 0637 0007 | | Action Break_Optional 0638 4801 |H | Short_Literal 0x1 0639 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 063a 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 0644 800d | | Call 0x0,0xd 0645 e019 | | Load 0x0,0x19 0646 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0647 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064b | K | .CONST 0x064b ; Address of begin 0649 0661 | a | .CONST 0x0661 ; Address of exception handler 064a 0001 | | .CONST 0x0001 ; Number of locals 064b BODY_0648: 064b INIT_0648: 064b e420 | | Load 0x2,0x20 064c 8024 | $ | Call 0x0,0x24 064d 6812 |h | Jump_Zero 0x660 064e e420 | | Load 0x2,0x20 064f 800b | | Call 0x0,0xb 0650 0f14 | | Execute_Immediate Equal,0x14 0651 700e |p | Jump_Nonzero 0x660 0652 e425 | % | Load 0x2,0x25 0653 0a01 | | Execute_Immediate Plus,0x1 0654 c425 | % | Store 0x2,0x25 0655 e210 | | Load 0x1,0x10 0656 e425 | % | Load 0x2,0x25 0657 e214 | | Load 0x1,0x14 0658 01d6 | | Execute Vector,Field_Write 0659 e424 | $ | Load 0x2,0x24 065a e425 | % | Load 0x2,0x25 065b 0aff | | Execute_Immediate Plus,-0x1 065c e212 | | Load 0x1,0x12 065d 01d6 | | Execute Vector,Field_Write 065e 4800 |H | Short_Literal 0x0 065f a424 | $ | Store_Unchecked 0x2,0x24 0660 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0661 TRAP_0648: 0661 0007 | | Action Break_Optional 0662 00d8 | | Load_Top At_Offset_0 0663 0101 | | Execute Exception,Reraise 0664 0000 0000 | | .BLANK 0000[0x4] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0673 | s | .CONST 0x0673 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b INIT_0668: 066b 00da | | Load_Top At_Offset_2 066c e210 | | Load 0x1,0x10 066d e20f | | Load 0x1,0xf 066e 01d6 | | Execute Vector,Field_Write 066f e210 | | Load 0x1,0x10 0670 0a01 | | Execute_Immediate Plus,0x1 0671 c210 | | Store 0x1,0x10 0672 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0673 TRAP_0668: 0673 0007 | | Action Break_Optional 0674 e420 | | Load 0x2,0x20 0675 8028 | ( | Call 0x0,0x28 0676 0092 09cd | | Action Push_String_Extended,0x9cd ; "Instruction Buffer Overflow" 0678 e00c | | Load 0x0,0xc 0679 1814 | | Execute Package,Field_Execute,Field_Number 0x14 067a c5fc | | Store 0x2,-0x4 067b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 067c 0000 0000 | | .BLANK 0000[0x4] 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 4801 |H | Short_Literal 0x1 0684 a210 | | Store_Unchecked 0x1,0x10 0685 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0686 0000 0000 | | .XXX[0x2] 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 4800 |H | Short_Literal 0x0 068c a426 | & | Store_Unchecked 0x2,0x26 068d e421 | ! | Load 0x2,0x21 068e 0a01 | | Execute_Immediate Plus,0x1 068f c422 | " | Store 0x2,0x22 0690 e210 | | Load 0x1,0x10 0691 a423 | # | Store_Unchecked 0x2,0x23 0692 4801 |H | Short_Literal 0x1 0693 a210 | | Store_Unchecked 0x1,0x10 0694 4800 |H | Short_Literal 0x0 0695 a421 | ! | Store_Unchecked 0x2,0x21 0696 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0697 0000 | | .XXX[0x1] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 069b | | .CONST 0x069b ; Address of begin 0699 06a0 | | .CONST 0x06a0 ; Address of exception handler 069a 0001 | | .CONST 0x0001 ; Number of locals 069b BODY_0698: 069b INIT_0698: 069b e424 | $ | Load 0x2,0x24 069c 00db | | Load_Top At_Offset_3 069d 0272 | r | Execute Discrete,Minus 069e c424 | $ | Store 0x2,0x24 069f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06a0 TRAP_0698: 06a0 0007 | | Action Break_Optional 06a1 e420 | | Load 0x2,0x20 06a2 8028 | ( | Call 0x0,0x28 06a3 0092 09ce | | Action Push_String_Extended,0x9ce ; "Popped Stack below zero" 06a5 e00c | | Load 0x0,0xc 06a6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06a7 c5fc | | Store 0x2,-0x4 06a8 e21b | | Load 0x1,0x1b 06a9 0257 | W | Execute Discrete,Raise 06aa 0000 0000 | | .BLANK 0000[0x6] 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 e424 | $ | Load 0x2,0x24 06b4 00db | | Load_Top At_Offset_3 06b5 0273 | s | Execute Discrete,Plus 06b6 c424 | $ | Store 0x2,0x24 06b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06ca | | .CONST 0x06ca ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0005 | | .CONST 0x0005 ; Number of locals 06bb INIT_06b8: 06bb e004 | | Load 0x0,0x4 06bc 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 06bd e004 | | Load 0x0,0x4 06be 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 06bf 02c7 | | Declare_Variable Any 06c0 00d8 | | Load_Top At_Offset_0 06c1 1c00 | | Execute_Immediate Run_Utility,0x0 06c2 e004 | | Load 0x0,0x4 06c3 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 06c4 0322 | " | Declare_Variable Record 06c5 e004 | | Load 0x0,0x4 06c6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 06c7 02c7 | | Declare_Variable Any 06c8 00d8 | | Load_Top At_Offset_0 06c9 1c00 | | Execute_Immediate Run_Utility,0x0 06ca BODY_06b8: 06ca e004 | | Load 0x0,0x4 06cb 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 06cc e019 | | Load 0x0,0x19 06cd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 06ce c603 | | Store 0x3,0x3 06cf e019 | | Load 0x0,0x19 06d0 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 06d1 00db | | Load_Top At_Offset_3 06d2 e004 | | Load 0x0,0x4 06d3 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 06d4 c605 | | Store 0x3,0x5 06d5 00d8 | | Load_Top At_Offset_0 06d6 e004 | | Load 0x0,0x4 06d7 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 06d8 a602 | | Store_Unchecked 0x3,0x2 06d9 00db | | Load_Top At_Offset_3 06da 0aff | | Execute_Immediate Plus,-0x1 06db e004 | | Load 0x0,0x4 06dc 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 06dd 00d9 | | Load_Top At_Offset_1 06de 00d0 | | Action Swap_Control 06df 0260 | ` | Execute Discrete,In_Type 06e0 7001 |p | Jump_Nonzero 0x6e2 06e1 0801 | | Execute_Immediate Raise,0x1 06e2 00db | | Load_Top At_Offset_3 06e3 e004 | | Load 0x0,0x4 06e4 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 06e5 00da | | Load_Top At_Offset_2 06e6 017d | } | Execute Record,Structure_Write 06e7 4820 |H | Short_Literal 0x20 06e8 4800 |H | Short_Literal 0x0 06e9 00db | | Load_Top At_Offset_3 06ea e004 | | Load 0x0,0x4 06eb 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 06ec e019 | | Load 0x0,0x19 06ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06ee 00d8 | | Load_Top At_Offset_0 06ef 00e2 | | Load_Encached Integer_Cache 06f0 0260 | ` | Execute Discrete,In_Type 06f1 7001 |p | Jump_Nonzero 0x6f3 06f2 0801 | | Execute_Immediate Raise,0x1 06f3 00ca | | Action Exit_Nullary_Function 06f4 0000 0000 | | .BLANK 0000[0x4] 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 0710 | | .CONST 0x0710 ; Address of begin 06f9 078d | | .CONST 0x078d ; Address of exception handler 06fa 0007 | | .CONST 0x0007 ; Number of locals 06fb INIT_06f8: 06fb 00e1 | | Load_Encached Boolean_Cache 06fc e02d | - | Load 0x0,0x2d 06fd 0322 | " | Declare_Variable Record 06fe 802e | . | Call 0x0,0x2e 06ff 00d9 | | Load_Top At_Offset_1 0700 017d | } | Execute Record,Structure_Write 0701 e004 | | Load 0x0,0x4 0702 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0703 e004 | | Load 0x0,0x4 0704 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0705 02c7 | | Declare_Variable Any 0706 00d8 | | Load_Top At_Offset_0 0707 1c00 | | Execute_Immediate Run_Utility,0x0 0708 e004 | | Load 0x0,0x4 0709 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 070a 0322 | " | Declare_Variable Record 070b e004 | | Load 0x0,0x4 070c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 070d 02c7 | | Declare_Variable Any 070e 00d8 | | Load_Top At_Offset_0 070f 1c00 | | Execute_Immediate Run_Utility,0x0 0710 BODY_06f8: 0710 e426 | & | Load 0x2,0x26 0711 6804 |h | Jump_Zero 0x716 0712 e425 | % | Load 0x2,0x25 0713 e214 | | Load 0x1,0x14 0714 01d7 | | Execute Vector,Field_Read 0715 c210 | | Store 0x1,0x10 0716 e004 | | Load 0x0,0x4 0717 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0718 e019 | | Load 0x0,0x19 0719 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 071a c605 | | Store 0x3,0x5 071b e019 | | Load 0x0,0x19 071c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 071d 00db | | Load_Top At_Offset_3 071e e004 | | Load 0x0,0x4 071f 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0720 c607 | | Store 0x3,0x7 0721 00d8 | | Load_Top At_Offset_0 0722 e004 | | Load 0x0,0x4 0723 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0724 a604 | | Store_Unchecked 0x3,0x4 0725 00db | | Load_Top At_Offset_3 0726 0aff | | Execute_Immediate Plus,-0x1 0727 e004 | | Load 0x0,0x4 0728 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0729 00d9 | | Load_Top At_Offset_1 072a 00d0 | | Action Swap_Control 072b 0260 | ` | Execute Discrete,In_Type 072c 7001 |p | Jump_Nonzero 0x72e 072d 0801 | | Execute_Immediate Raise,0x1 072e 00db | | Load_Top At_Offset_3 072f e004 | | Load 0x0,0x4 0730 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0731 00da | | Load_Top At_Offset_2 0732 017d | } | Execute Record,Structure_Write 0733 00d9 | | Load_Top At_Offset_1 0734 e004 | | Load 0x0,0x4 0735 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0736 00d8 | | Load_Top At_Offset_0 0737 0d18 | | Execute_Immediate Less,0x18 0738 701d |p | Jump_Nonzero 0x756 0739 00d8 | | Load_Top At_Offset_0 073a 0c19 | | Execute_Immediate Greater_Equal,0x19 073b 7017 |p | Jump_Nonzero 0x753 073c 00d1 | | Pop_Control Pop_Count_1 073d 4820 |H | Short_Literal 0x20 073e 4800 |H | Short_Literal 0x0 073f 00db | | Load_Top At_Offset_3 0740 e004 | | Load 0x0,0x4 0741 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0742 e019 | | Load 0x0,0x19 0743 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0744 00d8 | | Load_Top At_Offset_0 0745 e01a | | Load 0x0,0x1a 0746 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0747 0260 | ` | Execute Discrete,In_Type 0748 7001 |p | Jump_Nonzero 0x74a 0749 0801 | | Execute_Immediate Raise,0x1 074a 802f | / | Call 0x0,0x2f 074b 8030 | 0 | Call 0x0,0x30 074c e603 | | Load 0x3,0x3 074d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 074e e00c | | Load 0x0,0xc 074f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0750 e603 | | Load 0x3,0x3 0751 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0752 782a |x* | Jump 0x77d 0753 0f58 | X | Execute_Immediate Equal,0x58 0754 77e8 |w | Jump_Nonzero 0x73d 0755 780e |x | Jump 0x764 0756 0f08 | | Execute_Immediate Equal,0x8 0757 7001 |p | Jump_Nonzero 0x759 0758 780b |x | Jump 0x764 0759 e7ff | | Load 0x3,-0x1 075a c41c | | Store 0x2,0x1c 075b e00c | | Load 0x0,0xc 075c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 075d e603 | | Load 0x3,0x3 075e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 075f e41c | | Load 0x2,0x1c 0760 8031 | 1 | Call 0x0,0x31 0761 e603 | | Load 0x3,0x3 0762 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0763 7819 |x | Jump 0x77d 0764 e7ff | | Load 0x3,-0x1 0765 00d8 | | Load_Top At_Offset_0 0766 0260 | ` | Execute Discrete,In_Type 0767 c602 | | Store 0x3,0x2 0768 e602 | | Load 0x3,0x2 0769 7009 |p | Jump_Nonzero 0x773 076a e420 | | Load 0x2,0x20 076b 8028 | ( | Call 0x0,0x28 076c 0092 09bd | | Action Push_String_Extended,0x9bd ; "Uninitialized Value" 076e e00c | | Load 0x0,0xc 076f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0770 e603 | | Load 0x3,0x3 0771 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0772 780a |x | Jump 0x77d 0773 e7ff | | Load 0x3,-0x1 0774 c41b | | Store 0x2,0x1b 0775 e00c | | Load 0x0,0xc 0776 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0777 e603 | | Load 0x3,0x3 0778 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0779 e41b | | Load 0x2,0x1b 077a 8032 | 2 | Call 0x0,0x32 077b e603 | | Load 0x3,0x3 077c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 077d e429 | ) | Load 0x2,0x29 077e 6806 |h | Jump_Zero 0x785 077f e603 | | Load 0x3,0x3 0780 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0781 8033 | 3 | Call 0x0,0x33 0782 8034 | 4 | Call 0x0,0x34 0783 e603 | | Load 0x3,0x3 0784 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0785 e5fd | | Load 0x2,-0x3 0786 e603 | | Load 0x3,0x3 0787 8035 | 5 | Call 0x0,0x35 0788 00d1 | | Pop_Control Pop_Count_1 0789 4801 |H | Short_Literal 0x1 078a 842f | / | Call 0x2,0x2f 078b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 078c 4501 |E | .XXX[0x1] 078d TRAP_06f8: 078d 0007 | | Action Break_Optional 078e e7ff | | Load 0x3,-0x1 078f c41b | | Store 0x2,0x1b 0790 e00c | | Load 0x0,0xc 0791 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0792 e603 | | Load 0x3,0x3 0793 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0794 e41b | | Load 0x2,0x1b 0795 8032 | 2 | Call 0x0,0x32 0796 e603 | | Load 0x3,0x3 0797 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0798 e429 | ) | Load 0x2,0x29 0799 6806 |h | Jump_Zero 0x7a0 079a e603 | | Load 0x3,0x3 079b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 079c 8033 | 3 | Call 0x0,0x33 079d 8034 | 4 | Call 0x0,0x34 079e e603 | | Load 0x3,0x3 079f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07a0 e5fd | | Load 0x2,-0x3 07a1 e603 | | Load 0x3,0x3 07a2 8035 | 5 | Call 0x0,0x35 07a3 00d1 | | Pop_Control Pop_Count_1 07a4 4801 |H | Short_Literal 0x1 07a5 842f | / | Call 0x2,0x2f 07a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07a7 4501 |E | .XXX[0x1] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07bf | | .CONST 0x07bf ; Address of begin 07a9 080b | | .CONST 0x080b ; Address of exception handler 07aa 0007 | | .CONST 0x0007 ; Number of locals 07ab INIT_07a8: 07ab 00e1 | | Load_Encached Boolean_Cache 07ac e036 | 6 | Load 0x0,0x36 07ad 0007 | | Action Break_Optional 07ae e02d | - | Load 0x0,0x2d 07af 0322 | " | Declare_Variable Record 07b0 00d8 | | Load_Top At_Offset_0 07b1 1c00 | | Execute_Immediate Run_Utility,0x0 07b2 4802 |H | Short_Literal 0x2 07b3 4801 |H | Short_Literal 0x1 07b4 00e9 | | Load_Encached String_Cache 07b5 035b | [ | Declare_Type Array,Constrained 07b6 0337 | 7 | Declare_Variable Array 07b7 e037 | 7 | Load 0x0,0x37 07b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07b9 02c7 | | Declare_Variable Any 07ba 00d8 | | Load_Top At_Offset_0 07bb 1c00 | | Execute_Immediate Run_Utility,0x0 07bc e004 | | Load 0x0,0x4 07bd 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 07be 0322 | " | Declare_Variable Record 07bf BODY_07a8: 07bf 00d9 | | Load_Top At_Offset_1 07c0 0120 | | Execute Any,Is_Value 07c1 6803 |h | Jump_Zero 0x7c5 07c2 e037 | 7 | Load 0x0,0x37 07c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07c4 7801 |x | Jump 0x7c6 07c5 00d9 | | Load_Top At_Offset_1 07c6 00e1 | | Load_Encached Boolean_Cache 07c7 e7ff | | Load 0x3,-0x1 07c8 8038 | 8 | Call 0x0,0x38 07c9 c602 | | Store 0x3,0x2 07ca c606 | | Store 0x3,0x6 07cb e602 | | Load 0x3,0x2 07cc 700f |p | Jump_Nonzero 0x7dc 07cd 8039 | 9 | Call 0x0,0x39 07ce e604 | | Load 0x3,0x4 07cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07d0 00db | | Load_Top At_Offset_3 07d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07d2 0092 09cf | | Action Push_String_Extended,0x9cf ; "User Image function not callable." 07d4 e00c | | Load 0x0,0xc 07d5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07d6 e604 | | Load 0x3,0x4 07d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07d8 e5fd | | Load 0x2,-0x3 07d9 e604 | | Load 0x3,0x4 07da 8035 | 5 | Call 0x0,0x35 07db 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07dc 00d9 | | Load_Top At_Offset_1 07dd e037 | 7 | Load 0x0,0x37 07de 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07df 00d9 | | Load_Top At_Offset_1 07e0 017d | } | Execute Record,Structure_Write 07e1 00d8 | | Load_Top At_Offset_0 07e2 e037 | 7 | Load 0x0,0x37 07e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07e4 700f |p | Jump_Nonzero 0x7f4 07e5 8039 | 9 | Call 0x0,0x39 07e6 e604 | | Load 0x3,0x4 07e7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07e8 00db | | Load_Top At_Offset_3 07e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07ea 0092 09d0 | | Action Push_String_Extended,0x9d0 ; "Internal error: image function not callable." 07ec e00c | | Load 0x0,0xc 07ed 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07ee e604 | | Load 0x3,0x4 07ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07f0 e5fd | | Load 0x2,-0x3 07f1 e604 | | Load 0x3,0x4 07f2 8035 | 5 | Call 0x0,0x35 07f3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07f4 e03a | : | Load 0x0,0x3a 07f5 186f | o | Execute Package,Field_Execute,Field_Number 0x6f 07f6 e7fc | | Load 0x3,-0x4 07f7 e605 | | Load 0x3,0x5 07f8 e7fd | | Load 0x3,-0x3 07f9 e7fb | | Load 0x3,-0x5 07fa 8607 | | Call 0x3,0x7 07fb e036 | 6 | Load 0x0,0x36 07fc e7fe | | Load 0x3,-0x2 07fd 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 07fe c603 | | Store 0x3,0x3 07ff e00c | | Load 0x0,0xc 0800 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0801 e604 | | Load 0x3,0x4 0802 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0803 e603 | | Load 0x3,0x3 0804 803b | ; | Call 0x0,0x3b 0805 e604 | | Load 0x3,0x4 0806 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0807 e5fd | | Load 0x2,-0x3 0808 e604 | | Load 0x3,0x4 0809 8035 | 5 | Call 0x0,0x35 080a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 080b TRAP_07a8: 080b 0007 | | Action Break_Optional 080c 8039 | 9 | Call 0x0,0x39 080d e604 | | Load 0x3,0x4 080e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 080f e604 | | Load 0x3,0x4 0810 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0811 0092 09d1 | | Action Push_String_Extended,0x9d1 ; "Exception in user type image: " 0813 e029 | ) | Load 0x0,0x29 0814 180d | | Execute Package,Field_Execute,Field_Number 0xd 0815 01cc | | Execute Vector,Catenate 0816 e00c | | Load 0x0,0xc 0817 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0818 e604 | | Load 0x3,0x4 0819 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 081a e5fd | | Load 0x2,-0x3 081b e604 | | Load 0x3,0x4 081c 8035 | 5 | Call 0x0,0x35 081d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 081e 0000 0000 | | .XXX[0x2] 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 0836 | 6 | .CONST 0x0836 ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0007 | | .CONST 0x0007 ; Number of locals 0823 INIT_0820: 0823 e004 | | Load 0x0,0x4 0824 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0825 02c7 | | Declare_Variable Any 0826 00d8 | | Load_Top At_Offset_0 0827 1c00 | | Execute_Immediate Run_Utility,0x0 0828 e004 | | Load 0x0,0x4 0829 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 082a 02c7 | | Declare_Variable Any 082b 00d8 | | Load_Top At_Offset_0 082c 1c00 | | Execute_Immediate Run_Utility,0x0 082d 4fff |O | Short_Literal -0x1 082e 00e2 | | Load_Encached Integer_Cache 082f 03f1 | | Declare_Variable Discrete,With_Value 0830 e004 | | Load 0x0,0x4 0831 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0832 e004 | | Load 0x0,0x4 0833 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0834 0322 | " | Declare_Variable Record 0835 00e5 | | Load_Encached Long_Integer_Cache 0836 BODY_0820: 0836 e019 | | Load 0x0,0x19 0837 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0838 e004 | | Load 0x0,0x4 0839 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 083a e004 | | Load 0x0,0x4 083b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 083c c602 | | Store 0x3,0x2 083d e019 | | Load 0x0,0x19 083e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 083f e602 | | Load 0x3,0x2 0840 e004 | | Load 0x0,0x4 0841 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0842 c603 | | Store 0x3,0x3 0843 e603 | | Load 0x3,0x3 0844 e004 | | Load 0x0,0x4 0845 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0846 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0847 00da | | Load_Top At_Offset_2 0848 e604 | | Load 0x3,0x4 0849 0273 | s | Execute Discrete,Plus 084a e004 | | Load 0x0,0x4 084b 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 084c 00d9 | | Load_Top At_Offset_1 084d 00d0 | | Action Swap_Control 084e 0260 | ` | Execute Discrete,In_Type 084f 7001 |p | Jump_Nonzero 0x851 0850 0801 | | Execute_Immediate Raise,0x1 0851 e602 | | Load 0x3,0x2 0852 e004 | | Load 0x0,0x4 0853 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0854 00da | | Load_Top At_Offset_2 0855 017d | } | Execute Record,Structure_Write 0856 00d9 | | Load_Top At_Offset_1 0857 e004 | | Load 0x0,0x4 0858 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0859 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 085a 00d8 | | Load_Top At_Offset_0 085b 7002 |p | Jump_Nonzero 0x85e 085c e215 | | Load 0x1,0x15 085d 0257 | W | Execute Discrete,Raise 085e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 085f 0000 | | .XXX[0x1] 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0863 | c | .CONST 0x0863 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0001 | | .CONST 0x0001 ; Number of locals 0863 BODY_0860: 0863 INIT_0860: 0863 00dc | | Load_Top At_Offset_4 0864 00dc | | Load_Top At_Offset_4 0865 009c | | Action Load_Dynamic 0866 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0867 4501 |E | .XXX[0x1] 0868 ; -------------------------------------------------------------------------------------- 0868 ; SUBPROGRAM 0868 ; -------------------------------------------------------------------------------------- 0868 086b | k | .CONST 0x086b ; Address of begin 0869 0004 | | .CONST 0x0004 ; Address of exception handler 086a 0001 | | .CONST 0x0001 ; Number of locals 086b BODY_0868: 086b INIT_0868: 086b 00dc | | Load_Top At_Offset_4 086c 00dc | | Load_Top At_Offset_4 086d 0099 | | Action Reference_Dynamic 086e 022b | + | Execute Access,Set_Null 086f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0870 4501 |E | .XXX[0x1] 0871 0000 0000 | | .BLANK 0000[0x7] 0878 ; -------------------------------------------------------------------------------------- 0878 ; SUBPROGRAM 0878 ; -------------------------------------------------------------------------------------- 0878 087b | { | .CONST 0x087b ; Address of begin 0879 0004 | | .CONST 0x0004 ; Address of exception handler 087a 0001 | | .CONST 0x0001 ; Number of locals 087b BODY_0878: 087b INIT_0878: 087b 00dc | | Load_Top At_Offset_4 087c 00dc | | Load_Top At_Offset_4 087d 0099 | | Action Reference_Dynamic 087e 021b | | Execute Heap_Access,Set_Null 087f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0880 4501 |E | .XXX[0x1] 0881 0000 0000 | | .BLANK 0000[0x7] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 088b | | .CONST 0x088b ; Address of begin 0889 0004 | | .CONST 0x0004 ; Address of exception handler 088a 0001 | | .CONST 0x0001 ; Number of locals 088b BODY_0888: 088b INIT_0888: 088b 00dd | | Load_Top At_Offset_5 088c 00dd | | Load_Top At_Offset_5 088d 00dd | | Load_Top At_Offset_5 088e 009b | | Action Store_Dynamic 088f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0890 4501 |E | .XXX[0x1] 0891 0000 0000 | | .BLANK 0000[0x7] 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 089b | | .CONST 0x089b ; Address of begin 0899 0004 | | .CONST 0x0004 ; Address of exception handler 089a 0001 | | .CONST 0x0001 ; Number of locals 089b BODY_0898: 089b INIT_0898: 089b 4838 |H8 | Short_Literal 0x38 089c 4802 |H | Short_Literal 0x2 089d 0099 | | Action Reference_Dynamic 089e 012d | - | Execute Any,Address 089f 00ca | | Action Exit_Nullary_Function 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a3 | | .CONST 0x08a3 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0001 | | .CONST 0x0001 ; Number of locals 08a3 BODY_08a0: 08a3 INIT_08a0: 08a3 4835 |H5 | Short_Literal 0x35 08a4 4802 |H | Short_Literal 0x2 08a5 0099 | | Action Reference_Dynamic 08a6 012d | - | Execute Any,Address 08a7 00ca | | Action Exit_Nullary_Function 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08ab | | .CONST 0x08ab ; Address of begin 08a9 0004 | | .CONST 0x0004 ; Address of exception handler 08aa 0001 | | .CONST 0x0001 ; Number of locals 08ab BODY_08a8: 08ab INIT_08a8: 08ab e40f | | Load 0x2,0xf 08ac 6805 |h | Jump_Zero 0x8b2 08ad 4837 |H7 | Short_Literal 0x37 08ae 4802 |H | Short_Literal 0x2 08af 0099 | | Action Reference_Dynamic 08b0 012d | - | Execute Any,Address 08b1 00ca | | Action Exit_Nullary_Function 08b2 4836 |H6 | Short_Literal 0x36 08b3 4802 |H | Short_Literal 0x2 08b4 0099 | | Action Reference_Dynamic 08b5 012d | - | Execute Any,Address 08b6 00ca | | Action Exit_Nullary_Function 08b7 0000 | | .XXX[0x1] 08b8 ; -------------------------------------------------------------------------------------- 08b8 ; SUBPROGRAM 08b8 ; -------------------------------------------------------------------------------------- 08b8 08bb | | .CONST 0x08bb ; Address of begin 08b9 0004 | | .CONST 0x0004 ; Address of exception handler 08ba 0001 | | .CONST 0x0001 ; Number of locals 08bb BODY_08b8: 08bb INIT_08b8: 08bb e420 | | Load 0x2,0x20 08bc 8016 | | Call 0x0,0x16 08bd 6819 |h | Jump_Zero 0x8d7 08be e40e | | Load 0x2,0xe 08bf 680e |h | Jump_Zero 0x8ce 08c0 4803 |H | Short_Literal 0x3 08c1 842f | / | Call 0x2,0x2f 08c2 e7ff | | Load 0x3,-0x1 08c3 e7fe | | Load 0x3,-0x2 08c4 e7fd | | Load 0x3,-0x3 08c5 01a5 | | Execute Matrix,Field_Reference 08c6 0007 | | Action Break_Optional 08c7 e40f | | Load 0x2,0xf 08c8 6802 |h | Jump_Zero 0x8cb 08c9 021b | | Execute Heap_Access,Set_Null 08ca 7801 |x | Jump 0x8cc 08cb 022b | + | Execute Access,Set_Null 08cc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 08cd 4501 |E | .XXX[0x1] 08ce 4804 |H | Short_Literal 0x4 08cf 842f | / | Call 0x2,0x2f 08d0 e7ff | | Load 0x3,-0x1 08d1 e7fd | | Load 0x3,-0x3 08d2 e7fc | | Load 0x3,-0x4 08d3 e7fb | | Load 0x3,-0x5 08d4 01a6 | | Execute Matrix,Field_Write 08d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 08d6 4501 |E | .XXX[0x1] 08d7 4802 |H | Short_Literal 0x2 08d8 842f | / | Call 0x2,0x2f 08d9 e7ff | | Load 0x3,-0x1 08da e7fe | | Load 0x3,-0x2 08db e7fd | | Load 0x3,-0x3 08dc 01a7 | | Execute Matrix,Field_Read 08dd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08de 4501 0000 |E | .XXX[0x2] 08e0 ; -------------------------------------------------------------------------------------- 08e0 ; SUBPROGRAM 08e0 ; -------------------------------------------------------------------------------------- 08e0 08e3 | | .CONST 0x08e3 ; Address of begin 08e1 090a | | .CONST 0x090a ; Address of exception handler 08e2 0001 | | .CONST 0x0001 ; Number of locals 08e3 BODY_08e0: 08e3 INIT_08e0: 08e3 e420 | | Load 0x2,0x20 08e4 8016 | | Call 0x0,0x16 08e5 681b |h | Jump_Zero 0x901 08e6 e40e | | Load 0x2,0xe 08e7 680f |h | Jump_Zero 0x8f7 08e8 4804 |H | Short_Literal 0x4 08e9 842f | / | Call 0x2,0x2f 08ea e7ff | | Load 0x3,-0x1 08eb e7fe | | Load 0x3,-0x2 08ec e7fd | | Load 0x3,-0x3 08ed e7fc | | Load 0x3,-0x4 08ee 01f5 | | Execute Array,Field_Reference 08ef 0007 | | Action Break_Optional 08f0 e40f | | Load 0x2,0xf 08f1 6802 |h | Jump_Zero 0x8f4 08f2 021b | | Execute Heap_Access,Set_Null 08f3 7801 |x | Jump 0x8f5 08f4 022b | + | Execute Access,Set_Null 08f5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 08f6 4501 |E | .XXX[0x1] 08f7 4805 |H | Short_Literal 0x5 08f8 842f | / | Call 0x2,0x2f 08f9 e7ff | | Load 0x3,-0x1 08fa e7fd | | Load 0x3,-0x3 08fb e7fc | | Load 0x3,-0x4 08fc e7fb | | Load 0x3,-0x5 08fd e7fa | | Load 0x3,-0x6 08fe 01f6 | | Execute Array,Field_Write 08ff 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0900 4501 |E | .XXX[0x1] 0901 4803 |H | Short_Literal 0x3 0902 842f | / | Call 0x2,0x2f 0903 e7ff | | Load 0x3,-0x1 0904 e7fe | | Load 0x3,-0x2 0905 e7fd | | Load 0x3,-0x3 0906 e7fc | | Load 0x3,-0x4 0907 01f7 | | Execute Array,Field_Read 0908 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0909 4501 |E | .XXX[0x1] 090a TRAP_08e0: 090a 010e | | Execute Exception,Is_Constraint_Error 090b 6802 |h | Jump_Zero 0x90e 090c 00d8 | | Load_Top At_Offset_0 090d 0101 | | Execute Exception,Reraise 090e e21a | | Load 0x1,0x1a 090f 0257 | W | Execute Discrete,Raise 0910 ; -------------------------------------------------------------------------------------- 0910 ; SUBPROGRAM 0910 ; -------------------------------------------------------------------------------------- 0910 091d | | .CONST 0x091d ; Address of begin 0911 0004 | | .CONST 0x0004 ; Address of exception handler 0912 0002 | | .CONST 0x0002 ; Number of locals 0913 INIT_0910: 0913 00da | | Load_Top At_Offset_2 0914 0275 | u | Execute Discrete,Unary_Minus 0915 0afe | | Execute_Immediate Plus,-0x2 0916 00d8 | | Load_Top At_Offset_0 0917 00e5 | | Load_Encached Long_Integer_Cache 0918 0260 | ` | Execute Discrete,In_Type 0919 7001 |p | Jump_Nonzero 0x91b 091a 0801 | | Execute_Immediate Raise,0x1 091b 00e5 | | Load_Encached Long_Integer_Cache 091c 03f1 | | Declare_Variable Discrete,With_Value 091d BODY_0910: 091d e602 | | Load 0x3,0x2 091e 4803 |H | Short_Literal 0x3 091f 009c | | Action Load_Dynamic 0920 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0921 4502 |E | .XXX[0x1] 0922 0000 0000 | | .BLANK 0000[0x6] 0928 ; -------------------------------------------------------------------------------------- 0928 ; SUBPROGRAM 0928 ; -------------------------------------------------------------------------------------- 0928 093c | < | .CONST 0x093c ; Address of begin 0929 0004 | | .CONST 0x0004 ; Address of exception handler 092a 0008 | | .CONST 0x0008 ; Number of locals 092b INIT_0928: 092b e03c | < | Load 0x0,0x3c 092c 0322 | " | Declare_Variable Record 092d 00d8 | | Load_Top At_Offset_0 092e 1c00 | | Execute_Immediate Run_Utility,0x0 092f e03d | = | Load 0x0,0x3d 0930 0007 | | Action Break_Optional 0931 e004 | | Load 0x0,0x4 0932 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0933 e004 | | Load 0x0,0x4 0934 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0935 02c7 | | Declare_Variable Any 0936 00d8 | | Load_Top At_Offset_0 0937 1c00 | | Execute_Immediate Run_Utility,0x0 0938 00e1 | | Load_Encached Boolean_Cache 0939 00e3 | | Load_Encached Natural_Cache 093a e03e | > | Load 0x0,0x3e 093b 0007 | | Action Break_Optional 093c BODY_0928: 093c e5fc | | Load 0x2,-0x4 093d e03e | > | Load 0x0,0x3e 093e 00e3 | | Load_Encached Natural_Cache 093f e004 | | Load 0x0,0x4 0940 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0941 00e1 | | Load_Encached Boolean_Cache 0942 e404 | | Load 0x2,0x4 0943 0120 | | Execute Any,Is_Value 0944 6803 |h | Jump_Zero 0x948 0945 e004 | | Load 0x0,0x4 0946 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0947 7801 |x | Jump 0x949 0948 e404 | | Load 0x2,0x4 0949 00e3 | | Load_Encached Natural_Cache 094a e605 | | Load 0x3,0x5 094b 0120 | | Execute Any,Is_Value 094c 6803 |h | Jump_Zero 0x950 094d e004 | | Load 0x0,0x4 094e 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 094f 7801 |x | Jump 0x951 0950 e605 | | Load 0x3,0x5 0951 e004 | | Load 0x0,0x4 0952 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0953 e03d | = | Load 0x0,0x3d 0954 e402 | | Load 0x2,0x2 0955 e602 | | Load 0x3,0x2 0956 e420 | | Load 0x2,0x20 0957 8014 | | Call 0x0,0x14 0958 00d8 | | Load_Top At_Offset_0 0959 00e4 | | Load_Encached Positive_Cache 095a 0260 | ` | Execute Discrete,In_Type 095b 7001 |p | Jump_Nonzero 0x95d 095c 0801 | | Execute_Immediate Raise,0x1 095d e420 | | Load 0x2,0x20 095e 800d | | Call 0x0,0xd 095f 803f | ? | Call 0x0,0x3f 0960 00d2 | | Pop_Control Pop_Count_2 0961 c603 | | Store 0x3,0x3 0962 c403 | | Store 0x2,0x3 0963 c605 | | Store 0x3,0x5 0964 c405 | | Store 0x2,0x5 0965 c404 | | Store 0x2,0x4 0966 c606 | | Store 0x3,0x6 0967 c604 | | Store 0x3,0x4 0968 c607 | | Store 0x3,0x7 0969 005a | Z | Store_Top Discrete,At_Offset_2 096a c5fc | | Store 0x2,-0x4 096b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 096c 0000 0000 | | .BLANK 0000[0x4] 0970 ; -------------------------------------------------------------------------------------- 0970 ; SUBPROGRAM 0970 ; -------------------------------------------------------------------------------------- 0970 0973 | s | .CONST 0x0973 ; Address of begin 0971 0004 | | .CONST 0x0004 ; Address of exception handler 0972 0001 | | .CONST 0x0001 ; Number of locals 0973 BODY_0970: 0973 INIT_0970: 0973 e5fd | | Load 0x2,-0x3 0974 6802 |h | Jump_Zero 0x977 0975 00ea | | Load_Encached Null_String_Cache 0976 00ca | | Action Exit_Nullary_Function 0977 0092 09d2 | | Action Push_String_Extended,0x9d2 ; "(Buf)" 0979 00ca | | Action Exit_Nullary_Function 097a 0000 0000 | | .BLANK 0000[0x6] 0980 ; -------------------------------------------------------------------------------------- 0980 ; SUBPROGRAM 0980 ; -------------------------------------------------------------------------------------- 0980 0996 | | .CONST 0x0996 ; Address of begin 0981 09b2 | | .CONST 0x09b2 ; Address of exception handler 0982 0003 | | .CONST 0x0003 ; Number of locals 0983 INIT_0980: 0983 e004 | | Load 0x0,0x4 0984 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0985 02c7 | | Declare_Variable Any 0986 e004 | | Load 0x0,0x4 0987 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0988 e019 | | Load 0x0,0x19 0989 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 098a a602 | | Store_Unchecked 0x3,0x2 098b e019 | | Load 0x0,0x19 098c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 098d 00d9 | | Load_Top At_Offset_1 098e e004 | | Load 0x0,0x4 098f 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0990 e004 | | Load 0x0,0x4 0991 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0992 0af4 | | Execute_Immediate Plus,-0xc 0993 e004 | | Load 0x0,0x4 0994 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0995 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0996 BODY_0980: 0996 e5fc | | Load 0x2,-0x4 0997 0a04 | | Execute_Immediate Plus,0x4 0998 00d8 | | Load_Top At_Offset_0 0999 00e2 | | Load_Encached Integer_Cache 099a 0260 | ` | Execute Discrete,In_Type 099b 7001 |p | Jump_Nonzero 0x99d 099c 0801 | | Execute_Immediate Raise,0x1 099d 4800 |H | Short_Literal 0x0 099e 0263 | c | Execute Discrete,Above_Bound 099f 7011 |p | Jump_Nonzero 0x9b1 09a0 00da | | Load_Top At_Offset_2 09a1 00d9 | | Load_Top At_Offset_1 09a2 0272 | r | Execute Discrete,Minus 09a3 e004 | | Load 0x0,0x4 09a4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 09a5 00d9 | | Load_Top At_Offset_1 09a6 00d0 | | Action Swap_Control 09a7 0260 | ` | Execute Discrete,In_Type 09a8 7001 |p | Jump_Nonzero 0x9aa 09a9 0801 | | Execute_Immediate Raise,0x1 09aa e602 | | Load 0x3,0x2 09ab e004 | | Load 0x0,0x4 09ac 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 09ad e004 | | Load 0x0,0x4 09ae 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d 09af 802a | * | Call 0x0,0x2a 09b0 3fef |? | Loop_Increasing 0x9a0 09b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09b2 TRAP_0980: 09b2 0007 | | Action Break_Optional 09b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09b4 ; -------------------------------------------------------------------------------------- 09b4 ; STRING TABLE 09b4 ; -------------------------------------------------------------------------------------- 09b4 0040 | @ | .STRTAB 0x0040->0x09d4 ; "interpreter_dump" 09b5 004e | N | .STRTAB 0x004e->0x09dc ; "interpreter_trace" 09b6 005d | ] | .STRTAB 0x005d->0x09e4 ; "Load_Discrete_Constant: unknown scalar type" 09b7 0086 | | .STRTAB 0x0086->0x09fa ; "Load_Discrete_Constant: non-null access type" 09b8 00b0 | | .STRTAB 0x00b0->0x0a10 ; "Library unit not elaborated" 09b9 00c9 | | .STRTAB 0x00c9->0x0a1d ; "Library unit is part of system" 09ba 00e5 | | .STRTAB 0x00e5->0x0a2c ; "Invalid Program detected by Interpreter" 09bb 010a | | .STRTAB 0x010a->0x0a40 ; "Inaccessible Frame Access" 09bc 0121 | ! | .STRTAB 0x0121->0x0a4c ; "Task is executing a different subprogram" 09bd 0147 | G | .STRTAB 0x0147->0x0a60 ; "Uninitialized Value" 09be 0158 | X | .STRTAB 0x0158->0x0a6a ; "Record field is in an inactive variant part" 09bf 0181 | | .STRTAB 0x0181->0x0a7f ; "Value out of range" 09c0 0191 | | .STRTAB 0x0191->0x0a88 ; "Null pointer dereferenced" 09c1 01a8 | | .STRTAB 0x01a8->0x0a95 ; "Array index out of bounds" 09c2 01bf | | .STRTAB 0x01bf->0x0aa1 ; "Constraint_Error " 09c3 01ce | | .STRTAB 0x01ce->0x0aaa ; "Unimplemented Interpreter Function" 09c4 01ee | | .STRTAB 0x01ee->0x0abb ; "Invalid Abstract Program (Array Access)" 09c5 0213 | | .STRTAB 0x0213->0x0ace ; "Attempt to access generic module, task type, or unelaborated package" 09c6 0255 | U | .STRTAB 0x0255->0x0af0 ; "Illegal Module" 09c7 0261 | a | .STRTAB 0x0261->0x0af7 ; "Attempt to access unelaborated variable" 09c8 0286 | | .STRTAB 0x0286->0x0b0b ; "For-loop variable not accessible after exception raised" 09c9 02bb | | .STRTAB 0x02bb->0x0b26 ; "Unexpected exception" 09ca 02cd | | .STRTAB 0x02cd->0x0b30 ; "Pop_Count: " 09cb 02d6 | | .STRTAB 0x02d6->0x0b36 ; ", Mark_Count: " 09cc 02e2 | | .STRTAB 0x02e2->0x0b3d ; ": " 09cd 02e2 | | .STRTAB 0x02e2->0x0b3e ; "Instruction Buffer Overflow" 09ce 02fb | | .STRTAB 0x02fb->0x0b4b ; "Popped Stack below zero" 09cf 0310 | | .STRTAB 0x0310->0x0b57 ; "User Image function not callable." 09d0 032f | / | .STRTAB 0x032f->0x0b67 ; "Internal error: image function not callable." 09d1 0359 | Y | .STRTAB 0x0359->0x0b7d ; "Exception in user type image: " 09d2 0375 | u | .STRTAB 0x0375->0x0b8c ; "(Buf)" 09d3 0378 | x | .STREND 0x0378->0x0b8f 09d4 696e 7465 |inte| .STRTAB_STRINGS 0b8f 0000 | | .XXX[0x1] 0b90 ; -------------------------------------------------------------------------------------- 0b90 ; Debug Table 0b90 ; -------------------------------------------------------------------------------------- 0b90 0004 0007 | | .DEBUG4 0x0004,0x0007,0x8190,0x0000,0x0001,0x0000 0b96 1906 4190 | A | .XXX[0x6a] 0b98 6419 0641 |d A| 0b9a 9064 1906 | d | 0b9c 4190 6419 |A d | 0b9e 0641 9064 | A d| 0ba0 1906 4190 | A | 0ba2 6419 0641 |d A| 0ba4 9064 1906 | d | 0ba6 4190 6419 |A d | 0ba8 0641 9064 | A d| 0baa 1906 4190 | A | 0bac 6419 0641 |d A| 0bae 9064 1906 | d | 0bb0 4190 6419 |A d | 0bb2 0641 9064 | A d| 0bb4 1906 4190 | A | 0bb6 6419 0641 |d A| 0bb8 9064 1906 | d | 0bba 4190 6419 |A d | 0bbc 0641 9064 | A d| 0bbe 1906 4190 | A | 0bc0 6419 0641 |d A| 0bc2 9064 1906 | d | 0bc4 4190 6419 |A d | 0bc6 0641 9064 | A d| 0bc8 1906 4190 | A | 0bca 6419 0641 |d A| 0bcc 9064 1906 | d | 0bce 4190 6419 |A d | 0bd0 0641 9064 | A d| 0bd2 1906 4190 | A | 0bd4 6419 0641 |d A| 0bd6 9064 1906 | d | 0bd8 4190 6419 |A d | 0bda 0641 9064 | A d| 0bdc 1906 4190 | A | 0bde 6419 0641 |d A| 0be0 9064 1906 | d | 0be2 4190 6419 |A d | 0be4 0641 9064 | A d| 0be6 1906 4190 | A | 0be8 6419 0641 |d A| 0bea 9064 1906 | d | 0bec 4190 6419 |A d | 0bee 0641 9064 | A d| 0bf0 1906 4190 | A | 0bf2 6419 0641 |d A| 0bf4 9064 1906 | d | 0bf6 4190 6419 |A d | 0bf8 0641 9064 | A d| 0bfa 1906 4190 | A | 0bfc 6419 0641 |d A| 0bfe 9064 1906 | d |