|
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: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_08f0ad
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0260 | ` | .CONST 0x0260 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0040 | @ | .CONST 0x0040 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0266 | f | Execute Discrete,Bounds 000d e002 | | Load 0x0,0x2 000e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000f 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0011 4801 |H | Short_Literal 0x1 0012 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0013 00e3 | | Load_Encached Natural_Cache 0014 e003 | | Load 0x0,0x3 0015 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0016 4801 |H | Short_Literal 0x1 0017 6048 |`H | Indirect_Literal Discrete,0x60,{0x00000000, 0x7fffffff} 0018 e20d | | Load 0x1,0xd 0019 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 001a 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 001c 4800 |H | Short_Literal 0x0 001d 4801 |H | Short_Literal 0x1 001e 4801 |H | Short_Literal 0x1 001f 4800 |H | Short_Literal 0x0 0020 4801 |H | Short_Literal 0x1 0021 4801 |H | Short_Literal 0x1 0022 031e | | Declare_Type Variant_Record,Defined,Visible 0023 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0025 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0027 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0029 00bf | | Action Accept_Activation 002a e004 | | Load 0x0,0x4 002b e005 | | Load 0x0,0x5 002c e002 | | Load 0x0,0x2 002d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002e e006 | | Load 0x0,0x6 002f 0387 | | Declare_Variable Package 0030 00d8 | | Load_Top At_Offset_0 0031 020f | | Execute Module,Activate 0032 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call 0034 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call 0036 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 0038 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call 003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003b 00c7 | | Action Elaborate_Subprogram 003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003d 00c7 | | Action Elaborate_Subprogram 003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003f 00c7 | | Action Elaborate_Subprogram 0040 BODY_0008: 0040 00bc | | Action Signal_Activated 0041 00bb | | Action Signal_Completion 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00d1 | | Pop_Control Pop_Count_1 004c 00da | | Load_Top At_Offset_2 004d 01dc | | Execute Vector,Last 004e 00db | | Load_Top At_Offset_3 004f 01dd | | Execute Vector,First 0050 0263 | c | Execute Discrete,Above_Bound 0051 700a |p | Jump_Nonzero 0x5c 0052 00d8 | | Load_Top At_Offset_0 0053 e5ff | | Load 0x2,-0x1 0054 01d5 | | Execute Vector,Field_Reference 0055 0125 | % | Execute Any,Set_Constraint 0056 00d8 | | Load_Top At_Offset_0 0057 e5ff | | Load 0x2,-0x1 0058 01d5 | | Execute Vector,Field_Reference 0059 1c00 | | Execute_Immediate Run_Utility,0x0 005a 0a01 | | Execute_Immediate Plus,0x1 005b 7ff4 | | Jump 0x50 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0075 | u | .CONST 0x0075 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0004 | | .CONST 0x0004 ; Number of locals 006b INIT_0068: 006b e212 | | Load 0x1,0x12 006c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 006d e002 | | Load 0x0,0x2 006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006f 02c7 | | Declare_Variable Any 0070 e5ff | | Load 0x2,-0x1 0071 8007 | | Call 0x0,0x7 0072 a403 | | Store_Unchecked 0x2,0x3 0073 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 0075 BODY_0068: 0075 e212 | | Load 0x1,0x12 0076 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0077 e212 | | Load 0x1,0x12 0078 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0079 003b | ; | Store_Top Access,At_Offset_3 007a e5ff | | Load 0x2,-0x1 007b 8404 | | Call 0x2,0x4 007c 00da | | Load_Top At_Offset_2 007d 8213 | | Call 0x1,0x13 007e 00db | | Load_Top At_Offset_3 007f 8214 | | Call 0x1,0x14 0080 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0081 0000 0000 | | .BLANK 0000[0x7] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0095 | | .CONST 0x0095 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0004 | | .CONST 0x0004 ; Number of locals 008b INIT_0088: 008b e212 | | Load 0x1,0x12 008c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 008d e002 | | Load 0x0,0x2 008e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008f 02c7 | | Declare_Variable Any 0090 e5ff | | Load 0x2,-0x1 0091 8007 | | Call 0x0,0x7 0092 a403 | | Store_Unchecked 0x2,0x3 0093 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0095 BODY_0088: 0095 e212 | | Load 0x1,0x12 0096 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0097 e212 | | Load 0x1,0x12 0098 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0099 003b | ; | Store_Top Access,At_Offset_3 009a e5ff | | Load 0x2,-0x1 009b 8404 | | Call 0x2,0x4 009c 00da | | Load_Top At_Offset_2 009d 8213 | | Call 0x1,0x13 009e 00db | | Load_Top At_Offset_3 009f 8214 | | Call 0x1,0x14 00a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a1 0000 0000 | | .BLANK 0000[0x7] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 4801 |H | Short_Literal 0x1 00ac e5fe | | Load 0x2,-0x2 00ad 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00ae e003 | | Load 0x0,0x3 00af 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b0 7013 |p | Jump_Nonzero 0xc4 00b1 00cf | | Action Mark_Auxiliary 00b2 e5fe | | Load 0x2,-0x2 00b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00b4 01dc | | Execute Vector,Last 00b5 4801 |H | Short_Literal 0x1 00b6 0263 | c | Execute Discrete,Above_Bound 00b7 700b |p | Jump_Nonzero 0xc3 00b8 e5ff | | Load 0x2,-0x1 00b9 00d9 | | Load_Top At_Offset_1 00ba e5fe | | Load 0x2,-0x2 00bb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00bc 01d7 | | Execute Vector,Field_Read 00bd 012f | / | Execute Any,Equal 00be 6802 |h | Jump_Zero 0xc1 00bf 4801 |H | Short_Literal 0x1 00c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c1 00c8 | | Action Pop_Auxiliary_Range 00c2 3ff5 |? | Loop_Increasing 0xb8 00c3 00ce | | Action Pop_Auxiliary 00c4 4800 |H | Short_Literal 0x0 00c5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cf | | .CONST 0x00cf ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb e212 | | Load 0x1,0x12 00cc 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00cd 00e2 | | Load_Encached Integer_Cache 00ce 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00cf BODY_00c8: 00cf e212 | | Load 0x1,0x12 00d0 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00d1 e5ff | | Load 0x2,-0x1 00d2 e212 | | Load 0x1,0x12 00d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d4 003a | : | Store_Top Access,At_Offset_2 00d5 00cf | | Action Mark_Auxiliary 00d6 7808 |x | Jump 0xdf 00d7 00d9 | | Load_Top At_Offset_1 00d8 0a01 | | Execute_Immediate Plus,0x1 00d9 005a | Z | Store_Top Discrete,At_Offset_2 00da 00da | | Load_Top At_Offset_2 00db e212 | | Load 0x1,0x12 00dc 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00dd 003b | ; | Store_Top Access,At_Offset_3 00de 00c9 | | Action Pop_Auxiliary_Loop 00df 00da | | Load_Top At_Offset_2 00e0 e212 | | Load 0x1,0x12 00e1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e2 6ff4 |o | Jump_Zero 0xd7 00e3 00ce | | Action Pop_Auxiliary 00e4 00d8 | | Load_Top At_Offset_0 00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f4 | | .CONST 0x00f4 ; Address of begin 00e9 011b | | .CONST 0x011b ; Address of exception handler 00ea 0004 | | .CONST 0x0004 ; Number of locals 00eb INIT_00e8: 00eb 00db | | Load_Top At_Offset_3 00ec e20e | | Load 0x1,0xe 00ed 1c08 | | Execute_Immediate Run_Utility,0x8 00ee 00d8 | | Load_Top At_Offset_0 00ef 1c00 | | Execute_Immediate Run_Utility,0x0 00f0 e212 | | Load 0x1,0x12 00f1 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00f2 00e2 | | Load_Encached Integer_Cache 00f3 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00f4 BODY_00e8: 00f4 e212 | | Load 0x1,0x12 00f5 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00f6 e5ff | | Load 0x2,-0x1 00f7 e212 | | Load 0x1,0x12 00f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f9 003a | : | Store_Top Access,At_Offset_2 00fa 00cf | | Action Mark_Auxiliary 00fb 780f |x | Jump 0x10b 00fc 00da | | Load_Top At_Offset_2 00fd e212 | | Load 0x1,0x12 00fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ff 00da | | Load_Top At_Offset_2 0100 e402 | | Load 0x2,0x2 0101 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0102 01d6 | | Execute Vector,Field_Write 0103 00d9 | | Load_Top At_Offset_1 0104 0a01 | | Execute_Immediate Plus,0x1 0105 005a | Z | Store_Top Discrete,At_Offset_2 0106 00da | | Load_Top At_Offset_2 0107 e212 | | Load 0x1,0x12 0108 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0109 003b | ; | Store_Top Access,At_Offset_3 010a 00c9 | | Action Pop_Auxiliary_Loop 010b 00da | | Load_Top At_Offset_2 010c e212 | | Load 0x1,0x12 010d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 010e 6fed |o | Jump_Zero 0xfc 010f 00ce | | Action Pop_Auxiliary 0110 00da | | Load_Top At_Offset_2 0111 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0112 4800 |H | Short_Literal 0x0 0113 00ea | | Load_Encached Null_String_Cache 0114 00ea | | Load_Encached Null_String_Cache 0115 e003 | | Load 0x0,0x3 0116 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0117 00db | | Load_Top At_Offset_3 0118 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0119 00da | | Load_Top At_Offset_2 011a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011b TRAP_00e8: 011b 0007 | | Action Break_Optional 011c 00db | | Load_Top At_Offset_3 011d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 011e 4802 |H | Short_Literal 0x2 011f 00ea | | Load_Encached Null_String_Cache 0120 00ea | | Load_Encached Null_String_Cache 0121 e003 | | Load 0x0,0x3 0122 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0123 e402 | | Load 0x2,0x2 0124 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0125 00db | | Load_Top At_Offset_3 0126 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0130 | 0 | .CONST 0x0130 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e002 | | Load 0x0,0x2 012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012d 02c7 | | Declare_Variable Any 012e 00d8 | | Load_Top At_Offset_0 012f 1c00 | | Execute_Immediate Run_Utility,0x0 0130 BODY_0128: 0130 00db | | Load_Top At_Offset_3 0131 8007 | | Call 0x0,0x7 0132 e002 | | Load 0x0,0x2 0133 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0134 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0135 0092 0245 | E| Action Push_String_Extended,0x245 ; ".state." 0137 01cc | | Execute Vector,Catenate 0138 e5fe | | Load 0x2,-0x2 0139 01cc | | Execute Vector,Catenate 013a 8008 | | Call 0x0,0x8 013b c402 | | Store 0x2,0x2 013c e002 | | Load 0x0,0x2 013d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013e e5fd | | Load 0x2,-0x3 013f 0120 | | Execute Any,Is_Value 0140 6803 |h | Jump_Zero 0x144 0141 e009 | | Load 0x0,0x9 0142 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0143 7801 |x | Jump 0x145 0144 e5fd | | Load 0x2,-0x3 0145 4800 |H | Short_Literal 0x0 0146 4800 |H | Short_Literal 0x0 0147 e00a | | Load 0x0,0xa 0148 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0149 e402 | | Load 0x2,0x2 014a e009 | | Load 0x0,0x9 014b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 014c c5fd | | Store 0x2,-0x3 014d c5fc | | Store 0x2,-0x4 014e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 e002 | | Load 0x0,0x2 0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0155 BODY_0150: 0155 e002 | | Load 0x0,0x2 0156 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0157 e5ff | | Load 0x2,-0x1 0158 e009 | | Load 0x0,0x9 0159 1811 | | Execute Package,Field_Execute,Field_Number 0x11 015a 0059 | Y | Store_Top Discrete,At_Offset_1 015b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0174 | t | .CONST 0x0174 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0005 | | .CONST 0x0005 ; Number of locals 0163 INIT_0160: 0163 e002 | | Load 0x0,0x2 0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0165 02c7 | | Declare_Variable Any 0166 00d8 | | Load_Top At_Offset_0 0167 1c00 | | Execute_Immediate Run_Utility,0x0 0168 e009 | | Load 0x0,0x9 0169 1b17 | | Execute Package,Field_Read,Field_Number 0x17 016a 02c7 | | Declare_Variable Any 016b 00d8 | | Load_Top At_Offset_0 016c 1c00 | | Execute_Immediate Run_Utility,0x0 016d e009 | | Load 0x0,0x9 016e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 016f 02c7 | | Declare_Variable Any 0170 00d8 | | Load_Top At_Offset_0 0171 1c00 | | Execute_Immediate Run_Utility,0x0 0172 e002 | | Load 0x0,0x2 0173 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0174 BODY_0160: 0174 00be | | Action Activate_Tasks 0175 e002 | | Load 0x0,0x2 0176 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0177 00da | | Load_Top At_Offset_2 0178 0092 0246 | F| Action Push_String_Extended,0x246 ; "referencers" 017a e7ff | | Load 0x3,-0x1 017b 8215 | | Call 0x1,0x15 017c c604 | | Store 0x3,0x4 017d 0059 | Y | Store_Top Discrete,At_Offset_1 017e 00d8 | | Load_Top At_Offset_0 017f 6801 |h | Jump_Zero 0x181 0180 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0181 00da | | Load_Top At_Offset_2 0182 0120 | | Execute Any,Is_Value 0183 6803 |h | Jump_Zero 0x187 0184 e009 | | Load 0x0,0x9 0185 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0186 7801 |x | Jump 0x188 0187 00da | | Load_Top At_Offset_2 0188 00da | | Load_Top At_Offset_2 0189 e009 | | Load 0x0,0x9 018a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 018b c603 | | Store 0x3,0x3 018c 00cf | | Action Mark_Auxiliary 018d 7821 |x! | Jump 0x1af 018e 00db | | Load_Top At_Offset_3 018f e009 | | Load 0x0,0x9 0190 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0191 c602 | | Store 0x3,0x2 0192 4801 |H | Short_Literal 0x1 0193 0092 0247 | G| Action Push_String_Extended,0x247 ; "[VERSION_ERROR]" 0195 e602 | | Load 0x3,0x2 0196 e002 | | Load 0x0,0x2 0197 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0198 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0199 e00b | | Load 0x0,0xb 019a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 019b 700e |p | Jump_Nonzero 0x1aa 019c e602 | | Load 0x3,0x2 019d e402 | | Load 0x2,0x2 019e e212 | | Load 0x1,0x12 019f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a0 7009 |p | Jump_Nonzero 0x1aa 01a1 e402 | | Load 0x2,0x2 01a2 e602 | | Load 0x3,0x2 01a3 e212 | | Load 0x1,0x12 01a4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01a5 c402 | | Store 0x2,0x2 01a6 e5fe | | Load 0x2,-0x2 01a7 6802 |h | Jump_Zero 0x1aa 01a8 e602 | | Load 0x3,0x2 01a9 8404 | | Call 0x2,0x4 01aa 00db | | Load_Top At_Offset_3 01ab e009 | | Load 0x0,0x9 01ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ad c603 | | Store 0x3,0x3 01ae 00c9 | | Action Pop_Auxiliary_Loop 01af 00db | | Load_Top At_Offset_3 01b0 e009 | | Load 0x0,0x9 01b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01b2 6fdb |o | Jump_Zero 0x18e 01b3 00ce | | Action Pop_Auxiliary 01b4 00d9 | | Load_Top At_Offset_1 01b5 8216 | | Call 0x1,0x16 01b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01cc | | .CONST 0x01cc ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0005 | | .CONST 0x0005 ; Number of locals 01bb INIT_01b8: 01bb e002 | | Load 0x0,0x2 01bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01bd 02c7 | | Declare_Variable Any 01be 00d8 | | Load_Top At_Offset_0 01bf 1c00 | | Execute_Immediate Run_Utility,0x0 01c0 e009 | | Load 0x0,0x9 01c1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01c2 02c7 | | Declare_Variable Any 01c3 00d8 | | Load_Top At_Offset_0 01c4 1c00 | | Execute_Immediate Run_Utility,0x0 01c5 e009 | | Load 0x0,0x9 01c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c7 02c7 | | Declare_Variable Any 01c8 00d8 | | Load_Top At_Offset_0 01c9 1c00 | | Execute_Immediate Run_Utility,0x0 01ca e002 | | Load 0x0,0x2 01cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cc BODY_01b8: 01cc 00be | | Action Activate_Tasks 01cd e002 | | Load 0x0,0x2 01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cf 00da | | Load_Top At_Offset_2 01d0 0092 0248 | H| Action Push_String_Extended,0x248 ; "imports" 01d2 e7ff | | Load 0x3,-0x1 01d3 8215 | | Call 0x1,0x15 01d4 c604 | | Store 0x3,0x4 01d5 0059 | Y | Store_Top Discrete,At_Offset_1 01d6 00d8 | | Load_Top At_Offset_0 01d7 6801 |h | Jump_Zero 0x1d9 01d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d9 00da | | Load_Top At_Offset_2 01da 0120 | | Execute Any,Is_Value 01db 6803 |h | Jump_Zero 0x1df 01dc e009 | | Load 0x0,0x9 01dd 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01de 7801 |x | Jump 0x1e0 01df 00da | | Load_Top At_Offset_2 01e0 00da | | Load_Top At_Offset_2 01e1 e009 | | Load 0x0,0x9 01e2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01e3 c603 | | Store 0x3,0x3 01e4 00cf | | Action Mark_Auxiliary 01e5 7821 |x! | Jump 0x207 01e6 00db | | Load_Top At_Offset_3 01e7 e009 | | Load 0x0,0x9 01e8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01e9 c602 | | Store 0x3,0x2 01ea 4801 |H | Short_Literal 0x1 01eb 0092 0247 | G| Action Push_String_Extended,0x247 ; "[VERSION_ERROR]" 01ed e602 | | Load 0x3,0x2 01ee e002 | | Load 0x0,0x2 01ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01f0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01f1 e00b | | Load 0x0,0xb 01f2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01f3 700e |p | Jump_Nonzero 0x202 01f4 e602 | | Load 0x3,0x2 01f5 e402 | | Load 0x2,0x2 01f6 e212 | | Load 0x1,0x12 01f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01f8 7009 |p | Jump_Nonzero 0x202 01f9 e402 | | Load 0x2,0x2 01fa e602 | | Load 0x3,0x2 01fb e212 | | Load 0x1,0x12 01fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01fd c402 | | Store 0x2,0x2 01fe e5fe | | Load 0x2,-0x2 01ff 6802 |h | Jump_Zero 0x202 0200 e602 | | Load 0x3,0x2 0201 8404 | | Call 0x2,0x4 0202 00db | | Load_Top At_Offset_3 0203 e009 | | Load 0x0,0x9 0204 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0205 c603 | | Store 0x3,0x3 0206 00c9 | | Action Pop_Auxiliary_Loop 0207 00db | | Load_Top At_Offset_3 0208 e009 | | Load 0x0,0x9 0209 181b | | Execute Package,Field_Execute,Field_Number 0x1b 020a 6fdb |o | Jump_Zero 0x1e6 020b 00ce | | Action Pop_Auxiliary 020c 00d9 | | Load_Top At_Offset_1 020d 8216 | | Call 0x1,0x16 020e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020f 0000 | | .XXX[0x1] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4609 |F | Jump_Case 0xa 0214 7809 |x | Jump 0x21e ; case 0x0 0215 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0216 7810 |x | Jump 0x227 ; case 0x2 0217 7813 |x | Jump 0x22b ; case 0x3 0218 782b |x+ | Jump 0x244 ; case 0x4 0219 782a |x* | Jump 0x244 ; case 0x5 021a 7829 |x) | Jump 0x244 ; case 0x6 021b 7815 |x | Jump 0x231 ; case 0x7 021c 781d |x | Jump 0x23a ; case 0x8 021d 7826 |x& | Jump 0x244 ; case 0x9 021e 00da | | Load_Top At_Offset_2 021f 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 0220 00da | | Load_Top At_Offset_2 0221 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0222 1c00 | | Execute_Immediate Run_Utility,0x0 0223 00da | | Load_Top At_Offset_2 0224 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0225 1c00 | | Execute_Immediate Run_Utility,0x0 0226 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0227 4801 |H | Short_Literal 0x1 0228 4803 |H | Short_Literal 0x3 0229 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 022a 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 022b e5fd | | Load 0x2,-0x3 022c 00db | | Load_Top At_Offset_3 022d 1c07 | | Execute_Immediate Run_Utility,0x7 022e e5fe | | Load 0x2,-0x2 022f 0306 | | Complete_Type Variant_Record,By_Renaming 0230 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0231 00db | | Load_Top At_Offset_3 0232 4801 |H | Short_Literal 0x1 0233 e5fe | | Load 0x2,-0x2 0234 e20d | | Load 0x1,0xd 0235 035b | [ | Declare_Type Array,Constrained 0236 4801 |H | Short_Literal 0x1 0237 e5ff | | Load 0x2,-0x1 0238 031b | | Declare_Type Variant_Record,Constrained 0239 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 023a 00db | | Load_Top At_Offset_3 023b 00db | | Load_Top At_Offset_3 023c 02fc | | Declare_Variable Variant_Record,With_Constraint 023d 4801 |H | Short_Literal 0x1 023e e5fe | | Load 0x2,-0x2 023f e20d | | Load 0x1,0xd 0240 0334 | 4 | Declare_Variable Array,With_Constraint 0241 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0242 016a | j | QQ_execute Variant_Record,XXX 0243 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0244 0869 | i | Execute_Immediate Raise,0x69 0245 ; -------------------------------------------------------------------------------------- 0245 ; STRING TABLE 0245 ; -------------------------------------------------------------------------------------- 0245 000a | | .STRTAB 0x000a->0x024a ; ".state." 0246 000f | | .STRTAB 0x000f->0x024d ; "referencers" 0247 0018 | | .STRTAB 0x0018->0x0253 ; "[VERSION_ERROR]" 0248 0025 | % | .STRTAB 0x0025->0x025a ; "imports" 0249 002a | * | .STREND 0x002a->0x025e 024a 2e73 7461 |.sta| .STRTAB_STRINGS 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0009 | | .DEBUG4 0x0004,0x0009,0x9271,0x0000,0x0001,0x000d 0266 000b 029a | | .DBG4T 0x000b,0x029a,0x8000,0x0000 026a 002a 02a1 | * | .DBG4T 0x002a,0x02a1,0x8000,0x8000 026e 004b 0000 | K | .DBG4T 0x004b,0x0000,0x0005,0x0000 0272 006b 02b3 | k | .DBG4T 0x006b,0x02b3,0x0002,0x0000 0276 008b 02bb | | .DBG4T 0x008b,0x02bb,0x0002,0x0000 027a 00ab 02c3 | | .DBG4T 0x00ab,0x02c3,0x0002,0x0000 027e 00cb 02ca | | .DBG4T 0x00cb,0x02ca,0x0002,0x4000 0282 00eb 02d8 | | .DBG4T 0x00eb,0x02d8,0x0002,0x4000 0286 012b 02ef | + | .DBG4T 0x012b,0x02ef,0x0001,0x0000 028a 0153 02f4 | S | .DBG4T 0x0153,0x02f4,0x0001,0x0000 028e 0163 02f8 | c | .DBG4T 0x0163,0x02f8,0x0001,0x4000 0292 01bb 0318 | | .DBG4T 0x01bb,0x0318,0x0001,0x4000 0296 0213 0000 | | .DBG4T 0x0213,0x0000,0x0005,0x0000 029a ; -------------------------------------------------------------------------------------- 029a ; Debug chain 029a ; -------------------------------------------------------------------------------------- 029a 0005 0000 | | .DBGLEN 0x0005,0x0000 029c 000b 0013 | | .DBGLNO 0x000b,0x0013,0x0023,0x0025,0x0027 02a1 ; -------------------------------------------------------------------------------------- 02a1 ; Debug chain 02a1 ; -------------------------------------------------------------------------------------- 02a1 0008 0000 | | .DBGLEN 0x0008,0x0000 02a3 002a 0032 | * 2| .DBGLNO 0x002a,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e 02ab 0003 0004 | | .XXX[0x8] 02ad 0005 0006 | | 02af 0007 0008 | | 02b1 0009 000a | | 02b3 ; -------------------------------------------------------------------------------------- 02b3 ; Debug chain 02b3 ; -------------------------------------------------------------------------------------- 02b3 0003 0003 | | .DBGLEN 0x0003,0x0003 02b5 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x0073,0x0075,0x007a,0x007c 02bb ; -------------------------------------------------------------------------------------- 02bb ; Debug chain 02bb ; -------------------------------------------------------------------------------------- 02bb 0003 0003 | | .DBGLEN 0x0003,0x0003 02bd 008b 008d | | .DBGLNO 0x008b,0x008d,0x0093,0x0095,0x009a,0x009c 02c3 ; -------------------------------------------------------------------------------------- 02c3 ; Debug chain 02c3 ; -------------------------------------------------------------------------------------- 02c3 0000 0005 | | .DBGLEN 0x0000,0x0005 02c5 00ab 00b2 | | .DBGLNO 0x00ab,0x00b2,0x00b8,0x00bf,0x00c4 02ca ; -------------------------------------------------------------------------------------- 02ca ; Debug chain 02ca ; -------------------------------------------------------------------------------------- 02ca 0002 0005 | | .DBGLEN 0x0002,0x0005 02cc 00cb 00cd | | .DBGLNO 0x00cb,0x00cd,0x00cf,0x00d7,0x00da,0x00df,0x00e4 02d3 0001 0003 | | .XXX[0x5] 02d5 0004 0002 | | 02d7 0005 | | 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug chain 02d8 ; -------------------------------------------------------------------------------------- 02d8 0003 0009 | | .DBGLEN 0x0003,0x0009 02da 00eb 00f0 | | .DBGLNO 0x00eb,0x00f0,0x00f2,0x00f4,0x00fc,0x0103,0x0106,0x010b,0x0110,0x0119,0x011c,0x0125 02e6 0001 0003 | | .XXX[0x9] 02e8 0004 0005 | | 02ea 0002 0006 | | 02ec 0007 0008 | | 02ee 0009 | | 02ef ; -------------------------------------------------------------------------------------- 02ef ; Debug chain 02ef ; -------------------------------------------------------------------------------------- 02ef 0001 0002 | | .DBGLEN 0x0001,0x0002 02f1 012b 0130 | + 0| .DBGLNO 0x012b,0x0130,0x013c 02f4 ; -------------------------------------------------------------------------------------- 02f4 ; Debug chain 02f4 ; -------------------------------------------------------------------------------------- 02f4 0001 0001 | | .DBGLEN 0x0001,0x0001 02f6 0153 0155 | S U| .DBGLNO 0x0153,0x0155 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; Debug chain 02f8 ; -------------------------------------------------------------------------------------- 02f8 0004 000d | | .DBGLEN 0x0004,0x000d 02fa 0163 0168 | c h| .DBGLNO 0x0163,0x0168,0x016d,0x0172,0x0175,0x017e,0x0180,0x0181,0x018e,0x0192,0x019c,0x01a1,0x01a6,0x01a8,0x01aa,0x01af,0x01b4 030b 0001 0002 | | .XXX[0xd] 030d 0003 0004 | | 030f 0006 0007 | | 0311 0008 0009 | | 0313 000a 000b | | 0315 000c 0005 | | 0317 000d | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; Debug chain 0318 ; -------------------------------------------------------------------------------------- 0318 0004 000d | | .DBGLEN 0x0004,0x000d 031a 01bb 01c0 | | .DBGLNO 0x01bb,0x01c0,0x01c5,0x01ca,0x01cd,0x01d6,0x01d8,0x01d9,0x01e6,0x01ea,0x01f4,0x01f9,0x01fe,0x0200,0x0202,0x0207,0x020c 032b 0001 0002 | | .XXX[0xd] 032d 0003 0004 | | 032f 0006 0007 | | 0331 0008 0009 | | 0333 000a 000b | | 0335 000c 0005 | | 0337 000d | | 0338 0000 0000 | | .BLANK 0000[0xc8]