|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 0740 | @ | .CONST 0x0740 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 018c | | .CONST 0x018c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0065 | e | .CONST 0x0065 ; Number of locals 000b INIT_0008: 000b 00e5 | | Load_Encached Long_Integer_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 000f 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0011 4800 |H | Short_Literal 0x0 0012 6189 |a | Indirect_Literal Discrete,0x19c,{0x00000000, 0x0000ffff} 0013 00e3 | | Load_Encached Natural_Cache 0014 03f9 | | Declare_Type Discrete,Constrained,Visible 0015 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0017 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0019 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 001b 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 001d e001 | | Load 0x0,0x1 001e 0129 | ) | Execute Any,Make_Visible 001f e002 | | Load 0x0,0x2 0020 0129 | ) | Execute Any,Make_Visible 0021 e003 | | Load 0x0,0x3 0022 0129 | ) | Execute Any,Make_Visible 0023 4800 |H | Short_Literal 0x0 0024 4803 |H | Short_Literal 0x3 0025 029f 021b | | Declare_Subprogram INIT_0218,For_Call 0027 03fe | | Declare_Type Discrete,Defined,Visible 0028 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 002a 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 002c 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 002e 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0030 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0032 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0034 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0036 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 0038 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 003a 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 003c 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 003e 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 0040 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 0042 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 0044 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 0046 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 0048 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 004a 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 004c 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 004e 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 0050 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 0052 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 0054 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 0056 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated 0058 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated 005a 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated 005c 00c4 | | Action Make_Default 005d 00c4 | | Action Make_Default 005e 00c4 | | Action Make_Default 005f 00c4 | | Action Make_Default 0060 00c4 | | Action Make_Default 0061 00c4 | | Action Make_Default 0062 00c4 | | Action Make_Default 0063 00c4 | | Action Make_Default 0064 00c4 | | Action Make_Default 0065 00c4 | | Action Make_Default 0066 00c4 | | Action Make_Default 0067 00c4 | | Action Make_Default 0068 00c4 | | Action Make_Default 0069 00c4 | | Action Make_Default 006a 00c4 | | Action Make_Default 006b 00c4 | | Action Make_Default 006c 00c4 | | Action Make_Default 006d 00c4 | | Action Make_Default 006e 00c4 | | Action Make_Default 006f 00c4 | | Action Make_Default 0070 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated 0072 c241 | A | Store 0x1,0x41 0073 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 0075 c242 | B | Store 0x1,0x42 0076 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated 0078 c233 | 3 | Store 0x1,0x33 0079 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 007b c234 | 4 | Store 0x1,0x34 007c 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 007e c243 | C | Store 0x1,0x43 007f 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated 0081 c244 | D | Store 0x1,0x44 0082 0092 071b | | Action Push_String_Extended,0x71b ; "<ERROR>" 0084 0129 | ) | Execute Any,Make_Visible 0085 c235 | 5 | Store 0x1,0x35 0086 4800 |H | Short_Literal 0x0 0087 481f |H | Short_Literal 0x1f 0088 480c |H | Short_Literal 0xc 0089 610e |a | Indirect_Literal Discrete,0x198,{0x00000000, 0x00000833} 008a e004 | | Load 0x0,0x4 008b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 008c e004 | | Load 0x0,0x4 008d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008e 011e | | Execute Any,Convert 008f 0129 | ) | Execute Any,Make_Visible 0090 c236 | 6 | Store 0x1,0x36 0091 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated 0093 c237 | 7 | Store 0x1,0x37 0094 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated 0096 c238 | 8 | Store 0x1,0x38 0097 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated 0099 c239 | 9 | Store 0x1,0x39 009a 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated 009c c23a | : | Store 0x1,0x3a 009d 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated 009f c23b | ; | Store 0x1,0x3b 00a0 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated 00a2 c23c | < | Store 0x1,0x3c 00a3 e005 | | Load 0x0,0x5 00a4 0129 | ) | Execute Any,Make_Visible 00a5 c23d | = | Store 0x1,0x3d 00a6 e006 | | Load 0x0,0x6 00a7 0129 | ) | Execute Any,Make_Visible 00a8 c23e | > | Store 0x1,0x3e 00a9 00bf | | Action Accept_Activation 00aa 4800 |H | Short_Literal 0x0 00ab 48ff |H | Short_Literal 0xff 00ac 00e2 | | Load_Encached Integer_Cache 00ad 03f8 | | Declare_Type Discrete,Constrained 00ae 4800 |H | Short_Literal 0x0 00af 4807 |H | Short_Literal 0x7 00b0 00e2 | | Load_Encached Integer_Cache 00b1 03f8 | | Declare_Type Discrete,Constrained 00b2 e210 | | Load 0x1,0x10 00b3 00e1 | | Load_Encached Boolean_Cache 00b4 e007 | | Load 0x0,0x7 00b5 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00b6 00db | | Load_Top At_Offset_3 00b7 e008 | | Load 0x0,0x8 00b8 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 00b9 02a0 | | Declare_Subprogram Null_Subprogram 00ba 4805 |H | Short_Literal 0x5 00bb 032d | - | Declare_Type Record,Defined 00bc e009 | | Load 0x0,0x9 00bd e00a | | Load 0x0,0xa 00be 00da | | Load_Top At_Offset_2 00bf e20d | | Load 0x1,0xd 00c0 e00b | | Load 0x0,0xb 00c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c2 0387 | | Declare_Variable Package 00c3 00d8 | | Load_Top At_Offset_0 00c4 020f | | Execute Module,Activate 00c5 e00c | | Load 0x0,0xc 00c6 e00d | | Load 0x0,0xd 00c7 e20d | | Load 0x1,0xd 00c8 e249 | I | Load 0x1,0x49 00c9 e00b | | Load 0x0,0xb 00ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00cb 0387 | | Declare_Variable Package 00cc 00d8 | | Load_Top At_Offset_0 00cd 020f | | Execute Module,Activate 00ce 00e1 | | Load_Encached Boolean_Cache 00cf 00e1 | | Load_Encached Boolean_Cache 00d0 e20d | | Load 0x1,0xd 00d1 e218 | | Load 0x1,0x18 00d2 e00e | | Load 0x0,0xe 00d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d4 00e2 | | Load_Encached Integer_Cache 00d5 00e2 | | Load_Encached Integer_Cache 00d6 00e2 | | Load_Encached Integer_Cache 00d7 00e2 | | Load_Encached Integer_Cache 00d8 00e2 | | Load_Encached Integer_Cache 00d9 02a0 | | Declare_Subprogram Null_Subprogram 00da 480a |H | Short_Literal 0xa 00db 032d | - | Declare_Type Record,Defined 00dc 00d8 | | Load_Top At_Offset_0 00dd 0322 | " | Declare_Variable Record 00de 4800 |H | Short_Literal 0x0 00df 00d9 | | Load_Top At_Offset_1 00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e1 4800 |H | Short_Literal 0x0 00e2 00d9 | | Load_Top At_Offset_1 00e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e4 4800 |H | Short_Literal 0x0 00e5 00d9 | | Load_Top At_Offset_1 00e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00e7 4800 |H | Short_Literal 0x0 00e8 00d9 | | Load_Top At_Offset_1 00e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00ea e00e | | Load 0x0,0xe 00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ec 00d9 | | Load_Top At_Offset_1 00ed 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00ee 4800 |H | Short_Literal 0x0 00ef 00d9 | | Load_Top At_Offset_1 00f0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00f1 4800 |H | Short_Literal 0x0 00f2 00d9 | | Load_Top At_Offset_1 00f3 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 00f4 4800 |H | Short_Literal 0x0 00f5 00d9 | | Load_Top At_Offset_1 00f6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 00f7 4800 |H | Short_Literal 0x0 00f8 00d9 | | Load_Top At_Offset_1 00f9 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 00fa 4800 |H | Short_Literal 0x0 00fb 00d9 | | Load_Top At_Offset_1 00fc 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 00fd 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call 00ff 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call 0101 e00f | | Load 0x0,0xf 0102 e010 | | Load 0x0,0x10 0103 e24c | L | Load 0x1,0x4c 0104 e24d | M | Load 0x1,0x4d 0105 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0106 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 0107 0092 071c | | Action Push_String_Extended,0x71c ; "TBU Error State" 0109 e011 | | Load 0x0,0x11 010a 0387 | | Declare_Variable Package 010b 00d8 | | Load_Top At_Offset_0 010c 020f | | Execute Module,Activate 010d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 010e 00c7 | | Action Elaborate_Subprogram 010f 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call 0111 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0112 00c7 | | Action Elaborate_Subprogram 0113 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0114 00c7 | | Action Elaborate_Subprogram 0115 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0116 00c7 | | Action Elaborate_Subprogram 0117 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0118 00c7 | | Action Elaborate_Subprogram 0119 1d11 | | Execute_Immediate Reference_Lex_1,0x11 011a 00c7 | | Action Elaborate_Subprogram 011b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 011c 00c7 | | Action Elaborate_Subprogram 011d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 011e 00c7 | | Action Elaborate_Subprogram 011f 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0120 00c7 | | Action Elaborate_Subprogram 0121 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0122 00c7 | | Action Elaborate_Subprogram 0123 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0124 00c7 | | Action Elaborate_Subprogram 0125 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0126 00c7 | | Action Elaborate_Subprogram 0127 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0128 00c7 | | Action Elaborate_Subprogram 0129 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 012a 00c7 | | Action Elaborate_Subprogram 012b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 012c 00c7 | | Action Elaborate_Subprogram 012d 1d20 | | Execute_Immediate Reference_Lex_1,0x20 012e 00c7 | | Action Elaborate_Subprogram 012f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0130 00c7 | | Action Elaborate_Subprogram 0131 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0132 00c7 | | Action Elaborate_Subprogram 0133 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0134 00c7 | | Action Elaborate_Subprogram 0135 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0136 00c7 | | Action Elaborate_Subprogram 0137 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0138 00c7 | | Action Elaborate_Subprogram 0139 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 013a 00c7 | | Action Elaborate_Subprogram 013b 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 013c 00c7 | | Action Elaborate_Subprogram 013d 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 013e 00c7 | | Action Elaborate_Subprogram 013f 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0140 00c7 | | Action Elaborate_Subprogram 0141 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 0142 00c7 | | Action Elaborate_Subprogram 0143 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call 0145 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call 0147 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 0148 00c7 | | Action Elaborate_Subprogram 0149 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 014a 00c7 | | Action Elaborate_Subprogram 014b 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 014c 00c7 | | Action Elaborate_Subprogram 014d 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call 014f 029d 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call 0151 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 0153 e008 | | Load 0x0,0x8 0154 193e | > | Execute Package,Field_Reference,Field_Number 0x3e 0155 00c6 | | Action Check_Subprogram_Elaborated 0156 e20d | | Load 0x1,0xd 0157 480e |H | Short_Literal 0xe 0158 e012 | | Load 0x0,0x12 0159 e013 | | Load 0x0,0x13 015a 4800 |H | Short_Literal 0x0 015b 0007 | | Action Break_Optional 015c e008 | | Load 0x0,0x8 015d 193f | ? | Execute Package,Field_Reference,Field_Number 0x3f 015e 00c6 | | Action Check_Subprogram_Elaborated 015f e20d | | Load 0x1,0xd 0160 480e |H | Short_Literal 0xe 0161 4800 |H | Short_Literal 0x0 0162 e014 | | Load 0x0,0x14 0163 e015 | | Load 0x0,0x15 0164 4800 |H | Short_Literal 0x0 0165 0007 | | Action Break_Optional 0166 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0167 00c7 | | Action Elaborate_Subprogram 0168 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0169 00c7 | | Action Elaborate_Subprogram 016a 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 016b 00c7 | | Action Elaborate_Subprogram 016c 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call 016e 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 016f 00c7 | | Action Elaborate_Subprogram 0170 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call 0172 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call 0174 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call 0176 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0177 00c7 | | Action Elaborate_Subprogram 0178 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0179 00c7 | | Action Elaborate_Subprogram 017a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 017b 00c7 | | Action Elaborate_Subprogram 017c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 017d 00c7 | | Action Elaborate_Subprogram 017e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 017f 00c7 | | Action Elaborate_Subprogram 0180 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 0181 00c7 | | Action Elaborate_Subprogram 0182 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 0183 00c7 | | Action Elaborate_Subprogram 0184 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0185 00c7 | | Action Elaborate_Subprogram 0186 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0187 00c7 | | Action Elaborate_Subprogram 0188 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0189 00c7 | | Action Elaborate_Subprogram 018a 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 018b 00c7 | | Action Elaborate_Subprogram 018c BODY_0008: 018c 00bc | | Action Signal_Activated 018d 00bb | | Action Signal_Completion 018e 0000 0000 | | .XXX[0x2] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 4800 |H | Short_Literal 0x0 0194 00ca | | Action Exit_Nullary_Function 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 0000 0000 | | .LITERAL {0x00000000, 0x00000833} 019c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 6806 |h | Jump_Zero 0x1ab 01a5 00da | | Load_Top At_Offset_2 01a6 e24b | K | Load 0x1,0x4b 01a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a9 0f00 | | Execute_Immediate Equal,0x0 01aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ab 4801 |H | Short_Literal 0x1 01ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00db | | Load_Top At_Offset_3 01b4 00db | | Load_Top At_Offset_3 01b5 01db | | Execute Vector,Length 01b6 027d | } | Execute Discrete,Greater 01b7 6802 |h | Jump_Zero 0x1ba 01b8 4800 |H | Short_Literal 0x0 01b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ba 00da | | Load_Top At_Offset_2 01bb 01dd | | Execute Vector,First 01bc e5fe | | Load 0x2,-0x2 01bd 0273 | s | Execute Discrete,Plus 01be 0aff | | Execute_Immediate Plus,-0x1 01bf 00db | | Load_Top At_Offset_3 01c0 01d7 | | Execute Vector,Field_Read 01c1 e008 | | Load 0x0,0x8 01c2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c4 0000 0000 | | .BLANK 0000[0x4] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00db | | Load_Top At_Offset_3 01cc 00d8 | | Load_Top At_Offset_0 01cd 00e4 | | Load_Encached Positive_Cache 01ce 0260 | ` | Execute Discrete,In_Type 01cf 7001 |p | Jump_Nonzero 0x1d1 01d0 0801 | | Execute_Immediate Raise,0x1 01d1 00db | | Load_Top At_Offset_3 01d2 e24b | K | Load 0x1,0x4b 01d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 01d5 e008 | | Load 0x0,0x8 01d6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01d7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01dd | | .CONST 0x01dd ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db e249 | I | Load 0x1,0x49 01dc 0322 | " | Declare_Variable Record 01dd BODY_01d8: 01dd 00db | | Load_Top At_Offset_3 01de 00d9 | | Load_Top At_Offset_1 01df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01e0 4800 |H | Short_Literal 0x0 01e1 00d9 | | Load_Top At_Offset_1 01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e3 4800 |H | Short_Literal 0x0 01e4 00d9 | | Load_Top At_Offset_1 01e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01e6 e5fe | | Load 0x2,-0x2 01e7 e008 | | Load 0x0,0x8 01e8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 01e9 00d9 | | Load_Top At_Offset_1 01ea 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01eb 4800 |H | Short_Literal 0x0 01ec 00d9 | | Load_Top At_Offset_1 01ed 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01ee 00d8 | | Load_Top At_Offset_0 01ef e24a | J | Load 0x1,0x4a 01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f2 0000 0000 | | .BLANK 0000[0x6] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fd | | .CONST 0x01fd ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb e249 | I | Load 0x1,0x49 01fc 0322 | " | Declare_Variable Record 01fd BODY_01f8: 01fd 00db | | Load_Top At_Offset_3 01fe 00d9 | | Load_Top At_Offset_1 01ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0200 4801 |H | Short_Literal 0x1 0201 00d9 | | Load_Top At_Offset_1 0202 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0203 e5fe | | Load 0x2,-0x2 0204 00d9 | | Load_Top At_Offset_1 0205 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0206 e5fd | | Load 0x2,-0x3 0207 e008 | | Load 0x0,0x8 0208 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0209 00d9 | | Load_Top At_Offset_1 020a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 020b 4800 |H | Short_Literal 0x0 020c 00d9 | | Load_Top At_Offset_1 020d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 020e 00d8 | | Load_Top At_Offset_0 020f e24a | J | Load 0x1,0x4a 0210 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0211 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0212 0000 0000 | | .BLANK 0000[0x6] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 4607 |F | Jump_Case 0x8 021c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 021d 7806 |x | Jump 0x224 ; case 0x1 021e 7809 |x | Jump 0x228 ; case 0x2 021f 780d |x | Jump 0x22d ; case 0x3 0220 7810 |x | Jump 0x231 ; case 0x4 0221 7811 |x | Jump 0x233 ; case 0x5 0222 7812 |x | Jump 0x235 ; case 0x6 0223 7815 |x | Jump 0x239 ; case 0x7 0224 00da | | Load_Top At_Offset_2 0225 0091 0717 | | Action Push_String_Extended_Indexed,0x717 ; "NIL" 0227 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0228 00db | | Load_Top At_Offset_3 0229 00db | | Load_Top At_Offset_3 022a 00e0 | | Load_Encached Standard_Cache 022b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 022c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 022d 00da | | Load_Top At_Offset_2 022e 00e0 | | Load_Encached Standard_Cache 022f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0230 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0231 00db | | Load_Top At_Offset_3 0232 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0233 00db | | Load_Top At_Offset_3 0234 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0235 e218 | | Load 0x1,0x18 0236 00dc | | Load_Top At_Offset_4 0237 0267 | g | Execute Discrete,Predecessor 0238 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0239 e218 | | Load 0x1,0x18 023a 00dc | | Load_Top At_Offset_4 023b 0268 | h | Execute Discrete,Successor 023c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 023d 0000 0000 | | .XXX[0x3] 023f 0000 | | 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 024b | K | .CONST 0x024b ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0002 | | .CONST 0x0002 ; Number of locals 0243 INIT_0240: 0243 e24c | L | Load 0x1,0x4c 0244 0322 | " | Declare_Variable Record 0245 e016 | | Load 0x0,0x16 0246 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0247 e250 | P | Load 0x1,0x50 0248 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0249 00d9 | | Load_Top At_Offset_1 024a 017d | } | Execute Record,Structure_Write 024b BODY_0240: 024b 00db | | Load_Top At_Offset_3 024c 00d9 | | Load_Top At_Offset_1 024d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 024e e5fe | | Load 0x2,-0x2 024f 00d9 | | Load_Top At_Offset_1 0250 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0251 4800 |H | Short_Literal 0x0 0252 e016 | | Load 0x0,0x16 0253 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0254 00da | | Load_Top At_Offset_2 0255 e250 | P | Load 0x1,0x50 0256 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0257 00db | | Load_Top At_Offset_3 0258 820f | | Call 0x1,0xf 0259 700c |p | Jump_Nonzero 0x266 025a e5fe | | Load 0x2,-0x2 025b 4603 |F | Jump_Case 0x4 025c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0 025d 7806 |x | Jump 0x264 ; case 0x1 025e 7803 |x | Jump 0x262 ; case 0x2 025f 7800 |x | Jump 0x260 ; case 0x3 0260 e217 | | Load 0x1,0x17 0261 0257 | W | Execute Discrete,Raise 0262 e216 | | Load 0x1,0x16 0263 0257 | W | Execute Discrete,Raise 0264 e215 | | Load 0x1,0x15 0265 0257 | W | Execute Discrete,Raise 0266 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e016 | | Load 0x0,0x16 026c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 026d e250 | P | Load 0x1,0x50 026e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 026f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0270 00ca | | Action Exit_Nullary_Function 0271 0000 0000 | | .BLANK 0000[0x7] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b e016 | | Load 0x0,0x16 027c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 027d e250 | P | Load 0x1,0x50 027e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 027f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0280 00ca | | Action Exit_Nullary_Function 0281 0000 0000 | | .BLANK 0000[0x7] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 0297 | | .CONST 0x0297 ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0003 | | .CONST 0x0003 ; Number of locals 028b INIT_0288: 028b e24c | L | Load 0x1,0x4c 028c 0322 | " | Declare_Variable Record 028d e016 | | Load 0x0,0x16 028e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 028f e250 | P | Load 0x1,0x50 0290 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0291 00d9 | | Load_Top At_Offset_1 0292 017d | } | Execute Record,Structure_Write 0293 00d8 | | Load_Top At_Offset_0 0294 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0295 00e1 | | Load_Encached Boolean_Cache 0296 03f1 | | Declare_Variable Discrete,With_Value 0297 BODY_0288: 0297 e5ff | | Load 0x2,-0x1 0298 00da | | Load_Top At_Offset_2 0299 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 029a 4800 |H | Short_Literal 0x0 029b e016 | | Load 0x0,0x16 029c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 029d 00db | | Load_Top At_Offset_3 029e e250 | P | Load 0x1,0x50 029f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a0 00d8 | | Load_Top At_Offset_0 02a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02b3 | | .CONST 0x02b3 ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0002 | | .CONST 0x0002 ; Number of locals 02ab INIT_02a8: 02ab e24c | L | Load 0x1,0x4c 02ac 0322 | " | Declare_Variable Record 02ad e016 | | Load 0x0,0x16 02ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02af e250 | P | Load 0x1,0x50 02b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02b1 00d9 | | Load_Top At_Offset_1 02b2 017d | } | Execute Record,Structure_Write 02b3 BODY_02a8: 02b3 00db | | Load_Top At_Offset_3 02b4 00d9 | | Load_Top At_Offset_1 02b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02b6 4800 |H | Short_Literal 0x0 02b7 e016 | | Load 0x0,0x16 02b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02b9 00da | | Load_Top At_Offset_2 02ba e250 | P | Load 0x1,0x50 02bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02bd 0000 0000 | | .XXX[0x3] 02bf 0000 | | 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 e016 | | Load 0x0,0x16 02c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c5 e250 | P | Load 0x1,0x50 02c6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c8 00ca | | Action Exit_Nullary_Function 02c9 0000 0000 | | .BLANK 0000[0x7] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02df | | .CONST 0x02df ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0003 | | .CONST 0x0003 ; Number of locals 02d3 INIT_02d0: 02d3 e24c | L | Load 0x1,0x4c 02d4 0322 | " | Declare_Variable Record 02d5 e016 | | Load 0x0,0x16 02d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d7 e250 | P | Load 0x1,0x50 02d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02d9 00d9 | | Load_Top At_Offset_1 02da 017d | } | Execute Record,Structure_Write 02db 00d8 | | Load_Top At_Offset_0 02dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02dd 00e1 | | Load_Encached Boolean_Cache 02de 03f1 | | Declare_Variable Discrete,With_Value 02df BODY_02d0: 02df e5ff | | Load 0x2,-0x1 02e0 00da | | Load_Top At_Offset_2 02e1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02e2 4800 |H | Short_Literal 0x0 02e3 e016 | | Load 0x0,0x16 02e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e5 00db | | Load_Top At_Offset_3 02e6 e250 | P | Load 0x1,0x50 02e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02e8 00d8 | | Load_Top At_Offset_0 02e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ea 0000 0000 | | .BLANK 0000[0x6] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02fb | | .CONST 0x02fb ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0002 | | .CONST 0x0002 ; Number of locals 02f3 INIT_02f0: 02f3 e24c | L | Load 0x1,0x4c 02f4 0322 | " | Declare_Variable Record 02f5 e016 | | Load 0x0,0x16 02f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f7 e250 | P | Load 0x1,0x50 02f8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02f9 00d9 | | Load_Top At_Offset_1 02fa 017d | } | Execute Record,Structure_Write 02fb BODY_02f0: 02fb 00db | | Load_Top At_Offset_3 02fc 00d9 | | Load_Top At_Offset_1 02fd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02fe 4800 |H | Short_Literal 0x0 02ff e016 | | Load 0x0,0x16 0300 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0301 00da | | Load_Top At_Offset_2 0302 e250 | P | Load 0x1,0x50 0303 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0304 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b e016 | | Load 0x0,0x16 030c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 030d e250 | P | Load 0x1,0x50 030e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 030f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0310 00ca | | Action Exit_Nullary_Function 0311 0000 0000 | | .BLANK 0000[0x7] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0320 | | .CONST 0x0320 ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0002 | | .CONST 0x0002 ; Number of locals 031b INIT_0318: 031b 00db | | Load_Top At_Offset_3 031c 00db | | Load_Top At_Offset_3 031d 8213 | | Call 0x1,0x13 031e e20d | | Load 0x1,0xd 031f 03f1 | | Declare_Variable Discrete,With_Value 0320 BODY_0318: 0320 00d8 | | Load_Top At_Offset_0 0321 a5fd | | Store_Unchecked 0x2,-0x3 0322 00d8 | | Load_Top At_Offset_0 0323 8226 | & | Call 0x1,0x26 0324 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0325 0000 0000 | | .XXX[0x3] 0327 0000 | | 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0331 | 1 | .CONST 0x0331 ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0002 | | .CONST 0x0002 ; Number of locals 032b INIT_0328: 032b e5fd | | Load 0x2,-0x3 032c e5fe | | Load 0x2,-0x2 032d e5ff | | Load 0x2,-0x1 032e 8214 | | Call 0x1,0x14 032f e20d | | Load 0x1,0xd 0330 03f1 | | Declare_Variable Discrete,With_Value 0331 BODY_0328: 0331 00d8 | | Load_Top At_Offset_0 0332 a5fc | | Store_Unchecked 0x2,-0x4 0333 00d8 | | Load_Top At_Offset_0 0334 8226 | & | Call 0x1,0x26 0335 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0336 0000 0000 | | .XXX[0x2] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c 6804 |h | Jump_Zero 0x341 033d 00db | | Load_Top At_Offset_3 033e 00db | | Load_Top At_Offset_3 033f 8213 | | Call 0x1,0x13 0340 8226 | & | Call 0x1,0x26 0341 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0342 0000 0000 | | .BLANK 0000[0x6] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 00da | | Load_Top At_Offset_2 034c 6805 |h | Jump_Zero 0x352 034d e5fd | | Load 0x2,-0x3 034e e5fe | | Load 0x2,-0x2 034f e5ff | | Load 0x2,-0x1 0350 8214 | | Call 0x1,0x14 0351 8226 | & | Call 0x1,0x26 0352 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0353 0000 0000 | | .BLANK 0000[0x5] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 0363 | c | .CONST 0x0363 ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0002 | | .CONST 0x0002 ; Number of locals 035b INIT_0358: 035b e24c | L | Load 0x1,0x4c 035c 0322 | " | Declare_Variable Record 035d e016 | | Load 0x0,0x16 035e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 035f e250 | P | Load 0x1,0x50 0360 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0361 00d9 | | Load_Top At_Offset_1 0362 017d | } | Execute Record,Structure_Write 0363 BODY_0358: 0363 00db | | Load_Top At_Offset_3 0364 6820 |h | Jump_Zero 0x385 0365 00d8 | | Load_Top At_Offset_0 0366 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0367 6804 |h | Jump_Zero 0x36c 0368 e007 | | Load 0x0,0x7 0369 180e | | Execute Package,Field_Execute,Field_Number 0xe 036a e5ff | | Load 0x2,-0x1 036b 822f | / | Call 0x1,0x2f 036c 00d8 | | Load_Top At_Offset_0 036d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 036e 6804 |h | Jump_Zero 0x373 036f 4803 |H | Short_Literal 0x3 0370 e5ff | | Load 0x2,-0x1 0371 8219 | | Call 0x1,0x19 0372 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0373 e016 | | Load 0x0,0x16 0374 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0375 e250 | P | Load 0x1,0x50 0376 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0377 00d9 | | Load_Top At_Offset_1 0378 017d | } | Execute Record,Structure_Write 0379 00db | | Load_Top At_Offset_3 037a 00d9 | | Load_Top At_Offset_1 037b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 037c 4800 |H | Short_Literal 0x0 037d 00d9 | | Load_Top At_Offset_1 037e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 037f 4800 |H | Short_Literal 0x0 0380 e016 | | Load 0x0,0x16 0381 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0382 00da | | Load_Top At_Offset_2 0383 e250 | P | Load 0x1,0x50 0384 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0385 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0386 0000 0000 | | .XXX[0x2] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00da | | Load_Top At_Offset_2 038c e24b | K | Load 0x1,0x4b 038d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 038e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 038f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00db | | Load_Top At_Offset_3 0394 00d8 | | Load_Top At_Offset_0 0395 00e4 | | Load_Encached Positive_Cache 0396 0260 | ` | Execute Discrete,In_Type 0397 7001 |p | Jump_Nonzero 0x399 0398 0801 | | Execute_Immediate Raise,0x1 0399 00db | | Load_Top At_Offset_3 039a e24b | K | Load 0x1,0x4b 039b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 039c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 039d e008 | | Load 0x0,0x8 039e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 039f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 e24b | K | Load 0x1,0x4b 03a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03a6 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 03a7 e008 | | Load 0x0,0x8 03a8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03aa 0000 0000 | | .BLANK 0000[0x6] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03c5 | | .CONST 0x03c5 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0002 | | .CONST 0x0002 ; Number of locals 03b3 INIT_03b0: 03b3 e249 | I | Load 0x1,0x49 03b4 0322 | " | Declare_Variable Record 03b5 00db | | Load_Top At_Offset_3 03b6 00d9 | | Load_Top At_Offset_1 03b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03b8 4800 |H | Short_Literal 0x0 03b9 00d9 | | Load_Top At_Offset_1 03ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03bb 4800 |H | Short_Literal 0x0 03bc 00d9 | | Load_Top At_Offset_1 03bd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03be 4800 |H | Short_Literal 0x0 03bf 00d9 | | Load_Top At_Offset_1 03c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03c1 e008 | | Load 0x0,0x8 03c2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 03c3 00d9 | | Load_Top At_Offset_1 03c4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03c5 BODY_03b0: 03c5 00d8 | | Load_Top At_Offset_0 03c6 e24a | J | Load 0x1,0x4a 03c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03c8 e257 | W | Load 0x1,0x57 03c9 e258 | X | Load 0x1,0x58 03ca 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 03cb e008 | | Load 0x0,0x8 03cc 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 03cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ce 0000 0000 | | .XXX[0x2] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 00da | | Load_Top At_Offset_2 03d4 e257 | W | Load 0x1,0x57 03d5 e258 | X | Load 0x1,0x58 03d6 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 03d7 e008 | | Load 0x0,0x8 03d8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 03d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03da 0000 0000 | | .BLANK 0000[0x6] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 e25c | \ | Load 0x1,0x5c 03e5 e25d | ] | Load 0x1,0x5d 03e6 e25e | ^ | Load 0x1,0x5e 03e7 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 03e8 e008 | | Load 0x0,0x8 03e9 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 03ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03eb 0000 0000 | | .BLANK 0000[0x5] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00da | | Load_Top At_Offset_2 03f4 8262 | b | Call 0x1,0x62 03f5 e00e | | Load 0x0,0xe 03f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0402 | | .CONST 0x0402 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0002 | | .CONST 0x0002 ; Number of locals 03fb INIT_03f8: 03fb e249 | I | Load 0x1,0x49 03fc 0322 | " | Declare_Variable Record 03fd 00db | | Load_Top At_Offset_3 03fe e24b | K | Load 0x1,0x4b 03ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0400 00d9 | | Load_Top At_Offset_1 0401 017d | } | Execute Record,Structure_Write 0402 BODY_03f8: 0402 4800 |H | Short_Literal 0x0 0403 4801 |H | Short_Literal 0x1 0404 00da | | Load_Top At_Offset_2 0405 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0406 8264 | d | Call 0x1,0x64 0407 00da | | Load_Top At_Offset_2 0408 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0409 8262 | b | Call 0x1,0x62 040a e00e | | Load 0x0,0xe 040b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 040c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 040d 0000 0000 | | .XXX[0x3] 040f 0000 | | 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 041a | | .CONST 0x041a ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0002 | | .CONST 0x0002 ; Number of locals 0413 INIT_0410: 0413 e249 | I | Load 0x1,0x49 0414 0322 | " | Declare_Variable Record 0415 00db | | Load_Top At_Offset_3 0416 e24b | K | Load 0x1,0x4b 0417 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0418 00d9 | | Load_Top At_Offset_1 0419 017d | } | Execute Record,Structure_Write 041a BODY_0410: 041a 00d8 | | Load_Top At_Offset_0 041b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 041c 6805 |h | Jump_Zero 0x422 041d e5fe | | Load 0x2,-0x2 041e e5ff | | Load 0x2,-0x1 041f 8263 | c | Call 0x1,0x63 0420 e5ff | | Load 0x2,-0x1 0421 8230 | 0 | Call 0x1,0x30 0422 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0423 0000 0000 | | .BLANK 0000[0x5] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 0432 | 2 | .CONST 0x0432 ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0002 | | .CONST 0x0002 ; Number of locals 042b INIT_0428: 042b e249 | I | Load 0x1,0x49 042c 0322 | " | Declare_Variable Record 042d 00db | | Load_Top At_Offset_3 042e e24b | K | Load 0x1,0x4b 042f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0430 00d9 | | Load_Top At_Offset_1 0431 017d | } | Execute Record,Structure_Write 0432 BODY_0428: 0432 00d8 | | Load_Top At_Offset_0 0433 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0434 682b |h+ | Jump_Zero 0x460 0435 e5fd | | Load 0x2,-0x3 0436 e5fe | | Load 0x2,-0x2 0437 e007 | | Load 0x0,0x7 0438 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0439 680c |h | Jump_Zero 0x446 043a e5fd | | Load 0x2,-0x3 043b 4800 |H | Short_Literal 0x0 043c 4801 |H | Short_Literal 0x1 043d 00db | | Load_Top At_Offset_3 043e 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 043f 8264 | d | Call 0x1,0x64 0440 00db | | Load_Top At_Offset_3 0441 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0442 e5fe | | Load 0x2,-0x2 0443 8262 | b | Call 0x1,0x62 0444 e00e | | Load 0x0,0xe 0445 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0446 e5fe | | Load 0x2,-0x2 0447 e007 | | Load 0x0,0x7 0448 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0449 01d7 | | Execute Vector,Field_Read 044a 6815 |h | Jump_Zero 0x460 044b e5fd | | Load 0x2,-0x3 044c e007 | | Load 0x0,0x7 044d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 044e 4603 |F | Jump_Case 0x4 044f 7809 |x | Jump 0x459 ; case 0x0 0450 780c |x | Jump 0x45d ; case 0x1 0451 7801 |x | Jump 0x453 ; case 0x2 0452 7800 |x | Jump 0x453 ; case 0x3 0453 4801 |H | Short_Literal 0x1 0454 8233 | 3 | Call 0x1,0x33 0455 4801 |H | Short_Literal 0x1 0456 e5fe | | Load 0x2,-0x2 0457 8243 | C | Call 0x1,0x43 0458 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0459 4801 |H | Short_Literal 0x1 045a e5ff | | Load 0x2,-0x1 045b 8219 | | Call 0x1,0x19 045c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 045d 4802 |H | Short_Literal 0x2 045e e5ff | | Load 0x2,-0x1 045f 8219 | | Call 0x1,0x19 0460 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0461 0000 0000 | | .BLANK 0000[0x7] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b 00da | | Load_Top At_Offset_2 046c 6806 |h | Jump_Zero 0x473 046d e5fd | | Load 0x2,-0x3 046e e5fe | | Load 0x2,-0x2 046f e5ff | | Load 0x2,-0x1 0470 822d | - | Call 0x1,0x2d 0471 e5ff | | Load 0x2,-0x1 0472 8232 | 2 | Call 0x1,0x32 0473 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0474 0000 0000 | | .BLANK 0000[0x4] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047b | { | .CONST 0x047b ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0001 | | .CONST 0x0001 ; Number of locals 047b BODY_0478: 047b INIT_0478: 047b 00da | | Load_Top At_Offset_2 047c 6835 |h5 | Jump_Zero 0x4b2 047d e5fc | | Load 0x2,-0x4 047e e5fe | | Load 0x2,-0x2 047f e007 | | Load 0x0,0x7 0480 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0481 6810 |h | Jump_Zero 0x492 0482 e5fc | | Load 0x2,-0x4 0483 4800 |H | Short_Literal 0x0 0484 e5fd | | Load 0x2,-0x3 0485 01dd | | Execute Vector,First 0486 00d8 | | Load_Top At_Offset_0 0487 e247 | G | Load 0x1,0x47 0488 0260 | ` | Execute Discrete,In_Type 0489 7001 |p | Jump_Nonzero 0x48b 048a 0801 | | Execute_Immediate Raise,0x1 048b e5fd | | Load 0x2,-0x3 048c 8265 | e | Call 0x1,0x65 048d e5ff | | Load 0x2,-0x1 048e e5fe | | Load 0x2,-0x2 048f 8262 | b | Call 0x1,0x62 0490 e00e | | Load 0x0,0xe 0491 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0492 00db | | Load_Top At_Offset_3 0493 e007 | | Load 0x0,0x7 0494 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0495 01d7 | | Execute Vector,Field_Read 0496 681b |h | Jump_Zero 0x4b2 0497 e5fc | | Load 0x2,-0x4 0498 e007 | | Load 0x0,0x7 0499 1817 | | Execute Package,Field_Execute,Field_Number 0x17 049a 4603 |F | Jump_Case 0x4 049b 7809 |x | Jump 0x4a5 ; case 0x0 049c 780f |x | Jump 0x4ac ; case 0x1 049d 7801 |x | Jump 0x49f ; case 0x2 049e 7800 |x | Jump 0x49f ; case 0x3 049f 4801 |H | Short_Literal 0x1 04a0 8233 | 3 | Call 0x1,0x33 04a1 4801 |H | Short_Literal 0x1 04a2 e5fe | | Load 0x2,-0x2 04a3 8243 | C | Call 0x1,0x43 04a4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04a5 4801 |H | Short_Literal 0x1 04a6 e5fd | | Load 0x2,-0x3 04a7 e5fe | | Load 0x2,-0x2 04a8 e5ff | | Load 0x2,-0x1 04a9 8214 | | Call 0x1,0x14 04aa 8219 | | Call 0x1,0x19 04ab 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04ac 4802 |H | Short_Literal 0x2 04ad e5fd | | Load 0x2,-0x3 04ae e5fe | | Load 0x2,-0x2 04af e5ff | | Load 0x2,-0x1 04b0 8214 | | Call 0x1,0x14 04b1 8219 | | Call 0x1,0x19 04b2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04b3 0000 0000 | | .BLANK 0000[0x5] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb 00da | | Load_Top At_Offset_2 04bc 6806 |h | Jump_Zero 0x4c3 04bd e5fd | | Load 0x2,-0x3 04be e5fe | | Load 0x2,-0x2 04bf e5ff | | Load 0x2,-0x1 04c0 822d | - | Call 0x1,0x2d 04c1 e5ff | | Load 0x2,-0x1 04c2 8242 | B | Call 0x1,0x42 04c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04c4 0000 0000 | | .BLANK 0000[0x4] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc 6841 |hA | Jump_Zero 0x50e 04cd e5fc | | Load 0x2,-0x4 04ce e5fe | | Load 0x2,-0x2 04cf e007 | | Load 0x0,0x7 04d0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 04d1 6808 |h | Jump_Zero 0x4da 04d2 e5fc | | Load 0x2,-0x4 04d3 4800 |H | Short_Literal 0x0 04d4 e5fd | | Load 0x2,-0x3 04d5 e5ff | | Load 0x2,-0x1 04d6 e5fe | | Load 0x2,-0x2 04d7 8262 | b | Call 0x1,0x62 04d8 e00e | | Load 0x0,0xe 04d9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 04da 00db | | Load_Top At_Offset_3 04db e007 | | Load 0x0,0x7 04dc 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 04dd 01d7 | | Execute Vector,Field_Read 04de 682f |h/ | Jump_Zero 0x50e 04df e5fc | | Load 0x2,-0x4 04e0 e007 | | Load 0x0,0x7 04e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04e2 4603 |F | Jump_Case 0x4 04e3 7809 |x | Jump 0x4ed ; case 0x0 04e4 7819 |x | Jump 0x4fe ; case 0x1 04e5 7801 |x | Jump 0x4e7 ; case 0x2 04e6 7800 |x | Jump 0x4e7 ; case 0x3 04e7 4801 |H | Short_Literal 0x1 04e8 8233 | 3 | Call 0x1,0x33 04e9 4801 |H | Short_Literal 0x1 04ea e5fe | | Load 0x2,-0x2 04eb 8243 | C | Call 0x1,0x43 04ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04ed 4801 |H | Short_Literal 0x1 04ee 4801 |H | Short_Literal 0x1 04ef 4801 |H | Short_Literal 0x1 04f0 e008 | | Load 0x0,0x8 04f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04f2 0334 | 4 | Declare_Variable Array,With_Constraint 04f3 e5fd | | Load 0x2,-0x3 04f4 e008 | | Load 0x0,0x8 04f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04f6 4801 |H | Short_Literal 0x1 04f7 00da | | Load_Top At_Offset_2 04f8 01d6 | | Execute Vector,Field_Write 04f9 e5fe | | Load 0x2,-0x2 04fa e5ff | | Load 0x2,-0x1 04fb 8214 | | Call 0x1,0x14 04fc 8219 | | Call 0x1,0x19 04fd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 04fe 4802 |H | Short_Literal 0x2 04ff 4801 |H | Short_Literal 0x1 0500 4801 |H | Short_Literal 0x1 0501 e008 | | Load 0x0,0x8 0502 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0503 0334 | 4 | Declare_Variable Array,With_Constraint 0504 e5fd | | Load 0x2,-0x3 0505 e008 | | Load 0x0,0x8 0506 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0507 4801 |H | Short_Literal 0x1 0508 00da | | Load_Top At_Offset_2 0509 01d6 | | Execute Vector,Field_Write 050a e5fe | | Load 0x2,-0x2 050b e5ff | | Load 0x2,-0x1 050c 8214 | | Call 0x1,0x14 050d 8219 | | Call 0x1,0x19 050e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 050f 0000 | | .XXX[0x1] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 051b | | .CONST 0x051b ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0002 | | .CONST 0x0002 ; Number of locals 0513 INIT_0510: 0513 e24c | L | Load 0x1,0x4c 0514 0322 | " | Declare_Variable Record 0515 e016 | | Load 0x0,0x16 0516 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0517 e250 | P | Load 0x1,0x50 0518 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0519 00d9 | | Load_Top At_Offset_1 051a 017d | } | Execute Record,Structure_Write 051b BODY_0510: 051b 00db | | Load_Top At_Offset_3 051c 0c01 | | Execute_Immediate Greater_Equal,0x1 051d 6807 |h | Jump_Zero 0x525 051e 00d8 | | Load_Top At_Offset_0 051f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0520 e5ff | | Load 0x2,-0x1 0521 0273 | s | Execute Discrete,Plus 0522 00d9 | | Load_Top At_Offset_1 0523 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0524 7812 |x | Jump 0x537 0525 00db | | Load_Top At_Offset_3 0526 0274 | t | Execute Discrete,Absolute_Value 0527 00d9 | | Load_Top At_Offset_1 0528 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0529 00db | | Load_Top At_Offset_3 052a 700c |p | Jump_Nonzero 0x537 052b 4800 |H | Short_Literal 0x0 052c 00d9 | | Load_Top At_Offset_1 052d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 052e 4800 |H | Short_Literal 0x0 052f 00d9 | | Load_Top At_Offset_1 0530 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0531 4800 |H | Short_Literal 0x0 0532 00d9 | | Load_Top At_Offset_1 0533 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0534 4800 |H | Short_Literal 0x0 0535 00d9 | | Load_Top At_Offset_1 0536 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0537 4800 |H | Short_Literal 0x0 0538 e016 | | Load 0x0,0x16 0539 1811 | | Execute Package,Field_Execute,Field_Number 0x11 053a 00da | | Load_Top At_Offset_2 053b e250 | P | Load 0x1,0x50 053c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 053d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 053e 0000 0000 | | .XXX[0x2] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 054b | K | .CONST 0x054b ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0002 | | .CONST 0x0002 ; Number of locals 0543 INIT_0540: 0543 e24c | L | Load 0x1,0x4c 0544 0322 | " | Declare_Variable Record 0545 e016 | | Load 0x0,0x16 0546 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0547 e250 | P | Load 0x1,0x50 0548 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0549 00d9 | | Load_Top At_Offset_1 054a 017d | } | Execute Record,Structure_Write 054b BODY_0540: 054b 00d8 | | Load_Top At_Offset_0 054c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 054d 00ca | | Action Exit_Nullary_Function 054e 0000 0000 | | .XXX[0x2] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 055b | [ | .CONST 0x055b ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0002 | | .CONST 0x0002 ; Number of locals 0553 INIT_0550: 0553 e24c | L | Load 0x1,0x4c 0554 0322 | " | Declare_Variable Record 0555 e016 | | Load 0x0,0x16 0556 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0557 e250 | P | Load 0x1,0x50 0558 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0559 00d9 | | Load_Top At_Offset_1 055a 017d | } | Execute Record,Structure_Write 055b BODY_0550: 055b 00db | | Load_Top At_Offset_3 055c 460b |F | Jump_Case 0xc 055d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0 055e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x1 055f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x2 0560 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x3 0561 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x4 0562 7806 |x | Jump 0x569 ; case 0x5 0563 7814 |x | Jump 0x578 ; case 0x6 0564 7822 |x" | Jump 0x587 ; case 0x7 0565 7830 |x0 | Jump 0x596 ; case 0x8 0566 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x9 0567 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xa 0568 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xb 0569 e5fe | | Load 0x2,-0x2 056a 0c01 | | Execute_Immediate Greater_Equal,0x1 056b 6807 |h | Jump_Zero 0x573 056c 00d8 | | Load_Top At_Offset_0 056d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 056e e5fe | | Load 0x2,-0x2 056f 0273 | s | Execute Discrete,Plus 0570 00d9 | | Load_Top At_Offset_1 0571 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0572 7831 |x1 | Jump 0x5a4 0573 e5fe | | Load 0x2,-0x2 0574 0274 | t | Execute Discrete,Absolute_Value 0575 00d9 | | Load_Top At_Offset_1 0576 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0577 782c |x, | Jump 0x5a4 0578 e5fe | | Load 0x2,-0x2 0579 0c01 | | Execute_Immediate Greater_Equal,0x1 057a 6807 |h | Jump_Zero 0x582 057b 00d8 | | Load_Top At_Offset_0 057c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 057d e5fe | | Load 0x2,-0x2 057e 0273 | s | Execute Discrete,Plus 057f 00d9 | | Load_Top At_Offset_1 0580 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0581 7822 |x" | Jump 0x5a4 0582 e5fe | | Load 0x2,-0x2 0583 0274 | t | Execute Discrete,Absolute_Value 0584 00d9 | | Load_Top At_Offset_1 0585 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0586 781d |x | Jump 0x5a4 0587 e5fe | | Load 0x2,-0x2 0588 0c01 | | Execute_Immediate Greater_Equal,0x1 0589 6807 |h | Jump_Zero 0x591 058a 00d8 | | Load_Top At_Offset_0 058b 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 058c e5fe | | Load 0x2,-0x2 058d 0273 | s | Execute Discrete,Plus 058e 00d9 | | Load_Top At_Offset_1 058f 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0590 7813 |x | Jump 0x5a4 0591 e5fe | | Load 0x2,-0x2 0592 0274 | t | Execute Discrete,Absolute_Value 0593 00d9 | | Load_Top At_Offset_1 0594 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0595 780e |x | Jump 0x5a4 0596 e5fe | | Load 0x2,-0x2 0597 0c01 | | Execute_Immediate Greater_Equal,0x1 0598 6807 |h | Jump_Zero 0x5a0 0599 00d8 | | Load_Top At_Offset_0 059a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 059b e5fe | | Load 0x2,-0x2 059c 0273 | s | Execute Discrete,Plus 059d 00d9 | | Load_Top At_Offset_1 059e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 059f 7804 |x | Jump 0x5a4 05a0 e5fe | | Load 0x2,-0x2 05a1 0274 | t | Execute Discrete,Absolute_Value 05a2 00d9 | | Load_Top At_Offset_1 05a3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 05a4 4800 |H | Short_Literal 0x0 05a5 e016 | | Load 0x0,0x16 05a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05a7 00da | | Load_Top At_Offset_2 05a8 e250 | P | Load 0x1,0x50 05a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05aa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05ab 0000 0000 | | .BLANK 0000[0x5] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05bb | | .CONST 0x05bb ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0002 | | .CONST 0x0002 ; Number of locals 05b3 INIT_05b0: 05b3 e24c | L | Load 0x1,0x4c 05b4 0322 | " | Declare_Variable Record 05b5 e016 | | Load 0x0,0x16 05b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05b7 e250 | P | Load 0x1,0x50 05b8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05b9 00d9 | | Load_Top At_Offset_1 05ba 017d | } | Execute Record,Structure_Write 05bb BODY_05b0: 05bb 00db | | Load_Top At_Offset_3 05bc 460b |F | Jump_Case 0xc 05bd 780b |x | Jump 0x5c9 ; case 0x0 05be 780a |x | Jump 0x5c9 ; case 0x1 05bf 7809 |x | Jump 0x5c9 ; case 0x2 05c0 7808 |x | Jump 0x5c9 ; case 0x3 05c1 7807 |x | Jump 0x5c9 ; case 0x4 05c2 7808 |x | Jump 0x5cb ; case 0x5 05c3 780a |x | Jump 0x5ce ; case 0x6 05c4 780c |x | Jump 0x5d1 ; case 0x7 05c5 780e |x | Jump 0x5d4 ; case 0x8 05c6 7802 |x | Jump 0x5c9 ; case 0x9 05c7 7801 |x | Jump 0x5c9 ; case 0xa 05c8 7800 |x | Jump 0x5c9 ; case 0xb 05c9 4800 |H | Short_Literal 0x0 05ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05cb 00d8 | | Load_Top At_Offset_0 05cc 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 05cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ce 00d8 | | Load_Top At_Offset_0 05cf 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 05d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d1 00d8 | | Load_Top At_Offset_0 05d2 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 05d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d4 00d8 | | Load_Top At_Offset_0 05d5 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 05d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d7 0000 | | .XXX[0x1] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 00db | | Load_Top At_Offset_3 05dc 00db | | Load_Top At_Offset_3 05dd 8224 | $ | Call 0x1,0x24 05de 4800 |H | Short_Literal 0x0 05df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 00db | | Load_Top At_Offset_3 05e4 00db | | Load_Top At_Offset_3 05e5 8224 | $ | Call 0x1,0x24 05e6 e236 | 6 | Load 0x1,0x36 05e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05eb | | .CONST 0x05eb ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0001 | | .CONST 0x0001 ; Number of locals 05eb BODY_05e8: 05eb INIT_05e8: 05eb 00db | | Load_Top At_Offset_3 05ec 00db | | Load_Top At_Offset_3 05ed 8224 | $ | Call 0x1,0x24 05ee 4fff |O | Short_Literal -0x1 05ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f3 | | .CONST 0x05f3 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0001 | | .CONST 0x0001 ; Number of locals 05f3 BODY_05f0: 05f3 INIT_05f0: 05f3 00db | | Load_Top At_Offset_3 05f4 00db | | Load_Top At_Offset_3 05f5 8224 | $ | Call 0x1,0x24 05f6 e235 | 5 | Load 0x1,0x35 05f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb 00da | | Load_Top At_Offset_2 05fc 6809 |h | Jump_Zero 0x606 05fd 00da | | Load_Top At_Offset_2 05fe e008 | | Load 0x0,0x8 05ff 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0600 e5fd | | Load 0x2,-0x3 0601 01cb | | Execute Vector,Append 0602 e5fe | | Load 0x2,-0x2 0603 8224 | $ | Call 0x1,0x24 0604 e23d | = | Load 0x1,0x3d 0605 0257 | W | Execute Discrete,Raise 0606 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0607 0000 | | .XXX[0x1] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 060b | | .CONST 0x060b ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0001 | | .CONST 0x0001 ; Number of locals 060b BODY_0608: 060b INIT_0608: 060b 00da | | Load_Top At_Offset_2 060c 6819 |h | Jump_Zero 0x626 060d 4801 |H | Short_Literal 0x1 060e 0092 071d | | Action Push_String_Extended,0x71d ; "<EMPTY>" 0610 e5fd | | Load 0x2,-0x3 0611 e017 | | Load 0x0,0x17 0612 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0613 6808 |h | Jump_Zero 0x61c 0614 00da | | Load_Top At_Offset_2 0615 e008 | | Load 0x0,0x8 0616 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0617 e5fc | | Load 0x2,-0x4 0618 01cb | | Execute Vector,Append 0619 e5fe | | Load 0x2,-0x2 061a 8224 | $ | Call 0x1,0x24 061b 7808 |x | Jump 0x624 061c e5fd | | Load 0x2,-0x3 061d 00db | | Load_Top At_Offset_3 061e e008 | | Load 0x0,0x8 061f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0620 e5fc | | Load 0x2,-0x4 0621 01cb | | Execute Vector,Append 0622 e5fe | | Load 0x2,-0x2 0623 8224 | $ | Call 0x1,0x24 0624 e23e | > | Load 0x1,0x3e 0625 0257 | W | Execute Discrete,Raise 0626 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0627 0000 | | .XXX[0x1] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b e24d | M | Load 0x1,0x4d 062c 00db | | Load_Top At_Offset_3 062d 017d | } | Execute Record,Structure_Write 062e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 062f 0000 | | .XXX[0x1] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0633 | 3 | .CONST 0x0633 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0001 | | .CONST 0x0001 ; Number of locals 0633 BODY_0630: 0633 INIT_0630: 0633 00da | | Load_Top At_Offset_2 0634 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0635 e00e | | Load 0x0,0xe 0636 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0637 6804 |h | Jump_Zero 0x63c 0638 00da | | Load_Top At_Offset_2 0639 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 063a e00e | | Load 0x0,0xe 063b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 063c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 063d 0000 0000 | | .XXX[0x3] 063f 0000 | | 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 064a | J | .CONST 0x064a ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0002 | | .CONST 0x0002 ; Number of locals 0643 INIT_0640: 0643 e249 | I | Load 0x1,0x49 0644 0322 | " | Declare_Variable Record 0645 00db | | Load_Top At_Offset_3 0646 e24b | K | Load 0x1,0x4b 0647 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0648 00d9 | | Load_Top At_Offset_1 0649 017d | } | Execute Record,Structure_Write 064a BODY_0640: 064a 00db | | Load_Top At_Offset_3 064b 6004 |` | Indirect_Literal Discrete,0x650,{0x80000000, 0x00000000} 064c 027f | | Execute Discrete,Equal 064d 6801 |h | Jump_Zero 0x64f 064e 08e0 | | Execute_Immediate Raise,0xe0 064f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0650 8000 0000 | | .LITERAL {0x80000000, 0x00000000} 0654 0000 0000 | | .BLANK 0000[0x4] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b 00da | | Load_Top At_Offset_2 065c 0f00 | | Execute_Immediate Equal,0x0 065d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 065e 0000 0000 | | .XXX[0x2] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0663 | c | .CONST 0x0663 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0001 | | .CONST 0x0001 ; Number of locals 0663 BODY_0660: 0663 INIT_0660: 0663 00da | | Load_Top At_Offset_2 0664 0f00 | | Execute_Immediate Equal,0x0 0665 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0666 0000 0000 | | .XXX[0x2] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b INIT_0668: 066b e018 | | Load 0x0,0x18 066c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 066d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 066e 0000 0000 | | .XXX[0x2] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0673 | s | .CONST 0x0673 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0001 | | .CONST 0x0001 ; Number of locals 0673 BODY_0670: 0673 INIT_0670: 0673 00da | | Load_Top At_Offset_2 0674 00d8 | | Load_Top At_Offset_0 0675 e018 | | Load 0x0,0x18 0676 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0677 0260 | ` | Execute Discrete,In_Type 0678 7001 |p | Jump_Nonzero 0x67a 0679 0801 | | Execute_Immediate Raise,0x1 067a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 067b 0000 0000 | | .BLANK 0000[0x5] 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 00db | | Load_Top At_Offset_3 0684 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0685 0000 0000 | | .XXX[0x3] 0687 0000 | | 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 0693 | | .CONST 0x0693 ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0002 | | .CONST 0x0002 ; Number of locals 068b INIT_0688: 068b e24c | L | Load 0x1,0x4c 068c 0322 | " | Declare_Variable Record 068d e016 | | Load 0x0,0x16 068e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 068f e250 | P | Load 0x1,0x50 0690 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0691 00d9 | | Load_Top At_Offset_1 0692 017d | } | Execute Record,Structure_Write 0693 BODY_0688: 0693 00d8 | | Load_Top At_Offset_0 0694 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0695 e00e | | Load 0x0,0xe 0696 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0697 7012 |p | Jump_Nonzero 0x6aa 0698 e00e | | Load 0x0,0xe 0699 1b0e | | Execute Package,Field_Read,Field_Number 0xe 069a e019 | | Load 0x0,0x19 069b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 069c 4807 |H | Short_Literal 0x7 069d 4802 |H | Short_Literal 0x2 069e e019 | | Load 0x0,0x19 069f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06a0 e00e | | Load 0x0,0xe 06a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06a2 00d9 | | Load_Top At_Offset_1 06a3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 06a4 4800 |H | Short_Literal 0x0 06a5 e016 | | Load 0x0,0x16 06a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06a7 00da | | Load_Top At_Offset_2 06a8 e250 | P | Load 0x1,0x50 06a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06aa 00d8 | | Load_Top At_Offset_0 06ab 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06ac 00ca | | Action Exit_Nullary_Function 06ad 0000 0000 | | .XXX[0x3] 06af 0000 | | 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06ba | | .CONST 0x06ba ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0002 | | .CONST 0x0002 ; Number of locals 06b3 INIT_06b0: 06b3 e249 | I | Load 0x1,0x49 06b4 0322 | " | Declare_Variable Record 06b5 00db | | Load_Top At_Offset_3 06b6 e24b | K | Load 0x1,0x4b 06b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06b8 00d9 | | Load_Top At_Offset_1 06b9 017d | } | Execute Record,Structure_Write 06ba BODY_06b0: 06ba 00d8 | | Load_Top At_Offset_0 06bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 06bc 6803 |h | Jump_Zero 0x6c0 06bd 00d8 | | Load_Top At_Offset_0 06be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 06bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06c0 00d8 | | Load_Top At_Offset_0 06c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06c2 8262 | b | Call 0x1,0x62 06c3 e00e | | Load 0x0,0xe 06c4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06c6 0000 0000 | | .XXX[0x2] 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06cb | | .CONST 0x06cb ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0001 | | .CONST 0x0001 ; Number of locals 06cb BODY_06c8: 06cb INIT_06c8: 06cb 00db | | Load_Top At_Offset_3 06cc 00db | | Load_Top At_Offset_3 06cd e008 | | Load 0x0,0x8 06ce 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 06cf 027d | } | Execute Discrete,Greater 06d0 6802 |h | Jump_Zero 0x6d3 06d1 00ea | | Load_Encached Null_String_Cache 06d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06d3 480a |H | Short_Literal 0xa 06d4 e5fe | | Load 0x2,-0x2 06d5 00d8 | | Load_Top At_Offset_0 06d6 00e4 | | Load_Encached Positive_Cache 06d7 0260 | ` | Execute Discrete,In_Type 06d8 7001 |p | Jump_Nonzero 0x6da 06d9 0801 | | Execute_Immediate Raise,0x1 06da e5ff | | Load 0x2,-0x1 06db e008 | | Load 0x0,0x8 06dc 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 06dd e008 | | Load 0x0,0x8 06de 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 06df 01cb | | Execute Vector,Append 06e0 e5fe | | Load 0x2,-0x2 06e1 0a01 | | Execute_Immediate Plus,0x1 06e2 00d8 | | Load_Top At_Offset_0 06e3 e247 | G | Load 0x1,0x47 06e4 0260 | ` | Execute Discrete,In_Type 06e5 7001 |p | Jump_Nonzero 0x6e7 06e6 0801 | | Execute_Immediate Raise,0x1 06e7 e5ff | | Load 0x2,-0x1 06e8 8264 | d | Call 0x1,0x64 06e9 01cc | | Execute Vector,Catenate 06ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06eb 0000 0000 | | .BLANK 0000[0x5] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f3 | | .CONST 0x06f3 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0001 | | .CONST 0x0001 ; Number of locals 06f3 BODY_06f0: 06f3 INIT_06f0: 06f3 00db | | Load_Top At_Offset_3 06f4 00db | | Load_Top At_Offset_3 06f5 01dc | | Execute Vector,Last 06f6 027d | } | Execute Discrete,Greater 06f7 6802 |h | Jump_Zero 0x6fa 06f8 00ea | | Load_Encached Null_String_Cache 06f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06fa 00db | | Load_Top At_Offset_3 06fb 00db | | Load_Top At_Offset_3 06fc 01dc | | Execute Vector,Last 06fd 027f | | Execute Discrete,Equal 06fe 6806 |h | Jump_Zero 0x705 06ff 00db | | Load_Top At_Offset_3 0700 00db | | Load_Top At_Offset_3 0701 01d7 | | Execute Vector,Field_Read 0702 e008 | | Load 0x0,0x8 0703 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0704 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0705 480a |H | Short_Literal 0xa 0706 e5fe | | Load 0x2,-0x2 0707 e5ff | | Load 0x2,-0x1 0708 01d7 | | Execute Vector,Field_Read 0709 e008 | | Load 0x0,0x8 070a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 070b 01cb | | Execute Vector,Append 070c e5fe | | Load 0x2,-0x2 070d 0a01 | | Execute_Immediate Plus,0x1 070e 00d8 | | Load_Top At_Offset_0 070f e247 | G | Load 0x1,0x47 0710 0260 | ` | Execute Discrete,In_Type 0711 7001 |p | Jump_Nonzero 0x713 0712 0801 | | Execute_Immediate Raise,0x1 0713 e5ff | | Load 0x2,-0x1 0714 8265 | e | Call 0x1,0x65 0715 01cc | | Execute Vector,Catenate 0716 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0717 ; -------------------------------------------------------------------------------------- 0717 ; STRING TABLE 0717 ; -------------------------------------------------------------------------------------- 0717 0010 | | .STRTAB 0x0010->0x071f ; "NIL" 0718 0011 | | .STRTAB 0x0011->0x0720 ; "QUIT" 0719 0013 | | .STRTAB 0x0013->0x0722 ; "PROPAGATE" 071a 001a | | .STRTAB 0x001a->0x0727 ; "ERROR_CONDITION" 071b 0027 | ' | .STRTAB 0x0027->0x072e ; "<ERROR>" 071c 002c | , | .STRTAB 0x002c->0x0732 ; "TBU Error State" 071d 0039 | 9 | .STRTAB 0x0039->0x0739 ; "<EMPTY>" 071e 003e | > | .STREND 0x003e->0x073d 071f 4e49 4c51 |NILQ| .STRTAB_STRINGS 073d 0000 0000 | | .XXX[0x3] 073f 0000 | | 0740 ; -------------------------------------------------------------------------------------- 0740 ; Debug Table 0740 ; -------------------------------------------------------------------------------------- 0740 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb1b,0x0000,0x0001,0x0000 0746 0000 0001 | | .XXX[0x1a] 0748 39d5 b589 |9 | 074a 95ca 0000 | | 074c 0018 0000 | | 074e 0100 0000 | | 0750 00e0 0000 | | 0752 0160 0000 | ` | 0754 00d4 0000 | | 0756 0002 0000 | | 0758 000c 9cea | | 075a dac4 cae4 | | 075c 0000 0002 | | 075e 0000 000c | | 0760 0000 0000 | | .BLANK 0000[0x4] 0764 0080 0000 | | .XXX[0x15] 0766 007f ffff | | 0768 ff80 0000 | | 076a 0080 0000 | | 076c 0210 1717 | | 076e 177f ffff | | 0770 8000 0000 | | 0772 0000 0000 | | 0774 0888 8880 | | 0776 aaaa 68aa | h | 0778 4a64 |Jd | 0779 0404 0404 | | .BLANK 0404[0x7e] 07f7 0400 | | .XXX[0x1] 07f8 0202 0202 | | .BLANK 0202[0x8]