|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0270 | p | .CONST 0x0270 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0059 | Y | .CONST 0x0059 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0010 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0012 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0014 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0016 e002 | | Load 0x0,0x2 0017 0129 | ) | Execute Any,Make_Visible 0018 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001a 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 001c 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 001e 00e3 | | Load_Encached Natural_Cache 001f 0266 | f | Execute Discrete,Bounds 0020 e003 | | Load 0x0,0x3 0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0022 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0024 4801 |H | Short_Literal 0x1 0025 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0026 00e3 | | Load_Encached Natural_Cache 0027 e004 | | Load 0x0,0x4 0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0029 4801 |H | Short_Literal 0x1 002a 6041 |`A | Indirect_Literal Discrete,0x6c,{0x00000000, 0x7fffffff} 002b e216 | | Load 0x1,0x16 002c 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 002d 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call 002f 4800 |H | Short_Literal 0x0 0030 4801 |H | Short_Literal 0x1 0031 4801 |H | Short_Literal 0x1 0032 4800 |H | Short_Literal 0x0 0033 4801 |H | Short_Literal 0x1 0034 4801 |H | Short_Literal 0x1 0035 031e | | Declare_Type Variant_Record,Defined,Visible 0036 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0038 00bf | | Action Accept_Activation 0039 e005 | | Load 0x0,0x5 003a e006 | | Load 0x0,0x6 003b e003 | | Load 0x0,0x3 003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003d e007 | | Load 0x0,0x7 003e 0387 | | Declare_Variable Package 003f 00d8 | | Load_Top At_Offset_0 0040 020f | | Execute Module,Activate 0041 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0042 00c7 | | Action Elaborate_Subprogram 0043 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0044 00c7 | | Action Elaborate_Subprogram 0045 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0046 00c7 | | Action Elaborate_Subprogram 0047 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0048 00c7 | | Action Elaborate_Subprogram 0049 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004a 00c7 | | Action Elaborate_Subprogram 004b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004c 00c7 | | Action Elaborate_Subprogram 004d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004e 00c7 | | Action Elaborate_Subprogram 004f 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 0051 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call 0053 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 0055 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0057 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0058 00c7 | | Action Elaborate_Subprogram 0059 BODY_0008: 0059 00bc | | Action Signal_Activated 005a 00bb | | Action Signal_Completion 005b 0000 0000 | | .BLANK 0000[0x5] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 00da | | Load_Top At_Offset_2 0064 e001 | | Load 0x0,0x1 0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0066 011e | | Execute Any,Convert 0067 e001 | | Load 0x0,0x1 0068 180e | | Execute Package,Field_Execute,Field_Number 0xe 0069 c5ff | | Store 0x2,-0x1 006a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006b 0000 | | .XXX[0x1] 006c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 e001 | | Load 0x0,0x1 0075 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0076 011e | | Execute Any,Convert 0077 e001 | | Load 0x0,0x1 0078 180f | | Execute Package,Field_Execute,Field_Number 0xf 0079 c5ff | | Store 0x2,-0x1 007a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007b 0000 0000 | | .BLANK 0000[0x5] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 e001 | | Load 0x0,0x1 0085 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0086 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0087 0000 | | .XXX[0x1] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c e001 | | Load 0x0,0x1 008d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008f 0000 | | .XXX[0x1] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0099 | | .CONST 0x0099 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 e008 | | Load 0x0,0x8 0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0096 180d | | Execute Package,Field_Execute,Field_Number 0xd 0097 e009 | | Load 0x0,0x9 0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0099 BODY_0090: 0099 e009 | | Load 0x0,0x9 009a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009b e5fc | | Load 0x2,-0x4 009c 0120 | | Execute Any,Is_Value 009d 6804 |h | Jump_Zero 0xa2 009e e003 | | Load 0x0,0x3 009f 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 00a0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00a1 7801 |x | Jump 0xa3 00a2 e5fc | | Load 0x2,-0x4 00a3 e5fd | | Load 0x2,-0x3 00a4 e402 | | Load 0x2,0x2 00a5 e5fe | | Load 0x2,-0x2 00a6 e5fd | | Load 0x2,-0x3 00a7 4800 |H | Short_Literal 0x0 00a8 e5ff | | Load 0x2,-0x1 00a9 e00a | | Load 0x0,0xa 00aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00ab e001 | | Load 0x0,0x1 00ac 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00ad c5fc | | Store 0x2,-0x4 00ae 0059 | Y | Store_Top Discrete,At_Offset_1 00af e5fb | | Load 0x2,-0x5 00b0 00d9 | | Load_Top At_Offset_1 00b1 e00b | | Load 0x0,0xb 00b2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b3 c5fb | | Store 0x2,-0x5 00b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c1 | | .CONST 0x00c1 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0003 | | .CONST 0x0003 ; Number of locals 00bb INIT_00b8: 00bb 00da | | Load_Top At_Offset_2 00bc e008 | | Load 0x0,0x8 00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00be 180d | | Execute Package,Field_Execute,Field_Number 0xd 00bf e009 | | Load 0x0,0x9 00c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c1 BODY_00b8: 00c1 e009 | | Load 0x0,0x9 00c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c3 e5fc | | Load 0x2,-0x4 00c4 e001 | | Load 0x0,0x1 00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c6 011e | | Execute Any,Convert 00c7 e5fd | | Load 0x2,-0x3 00c8 e402 | | Load 0x2,0x2 00c9 e5fe | | Load 0x2,-0x2 00ca e5fd | | Load 0x2,-0x3 00cb 4800 |H | Short_Literal 0x0 00cc e5ff | | Load 0x2,-0x1 00cd e00a | | Load 0x0,0xa 00ce 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00cf e001 | | Load 0x0,0x1 00d0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00d1 c5fc | | Store 0x2,-0x4 00d2 0059 | Y | Store_Top Discrete,At_Offset_1 00d3 e5fb | | Load 0x2,-0x5 00d4 00d9 | | Load_Top At_Offset_1 00d5 e00b | | Load 0x0,0xb 00d6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d7 c5fb | | Store 0x2,-0x5 00d8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d9 0000 0000 | | .BLANK 0000[0x7] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e9 | | .CONST 0x00e9 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 e008 | | Load 0x0,0x8 00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e6 180d | | Execute Package,Field_Execute,Field_Number 0xd 00e7 e009 | | Load 0x0,0x9 00e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e9 BODY_00e0: 00e9 e009 | | Load 0x0,0x9 00ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00eb 00e1 | | Load_Encached Boolean_Cache 00ec e5fe | | Load 0x2,-0x2 00ed e402 | | Load 0x2,0x2 00ee e5fe | | Load 0x2,-0x2 00ef 4800 |H | Short_Literal 0x0 00f0 e5ff | | Load 0x2,-0x1 00f1 e00a | | Load 0x0,0xa 00f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f3 e001 | | Load 0x0,0x1 00f4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00f5 c5fd | | Store 0x2,-0x3 00f6 0059 | Y | Store_Top Discrete,At_Offset_1 00f7 e5fc | | Load 0x2,-0x4 00f8 00d9 | | Load_Top At_Offset_1 00f9 e00b | | Load 0x0,0xb 00fa 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00fb c5fc | | Store 0x2,-0x4 00fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00d1 | | Pop_Control Pop_Count_1 0104 00da | | Load_Top At_Offset_2 0105 01dc | | Execute Vector,Last 0106 00db | | Load_Top At_Offset_3 0107 01dd | | Execute Vector,First 0108 0263 | c | Execute Discrete,Above_Bound 0109 700a |p | Jump_Nonzero 0x114 010a 00d8 | | Load_Top At_Offset_0 010b e5ff | | Load 0x2,-0x1 010c 01d5 | | Execute Vector,Field_Reference 010d 0125 | % | Execute Any,Set_Constraint 010e 00d8 | | Load_Top At_Offset_0 010f e5ff | | Load 0x2,-0x1 0110 01d5 | | Execute Vector,Field_Reference 0111 1c00 | | Execute_Immediate Run_Utility,0x0 0112 0a01 | | Execute_Immediate Plus,0x1 0113 7ff4 | | Jump 0x108 0114 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0129 | ) | .CONST 0x0129 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0004 | | .CONST 0x0004 ; Number of locals 011b INIT_0118: 011b e219 | | Load 0x1,0x19 011c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 011d e003 | | Load 0x0,0x3 011e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011f 02c7 | | Declare_Variable Any 0120 e00c | | Load 0x0,0xc 0121 180e | | Execute Package,Field_Execute,Field_Number 0xe 0122 e5ff | | Load 0x2,-0x1 0123 e008 | | Load 0x0,0x8 0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0125 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0126 a403 | | Store_Unchecked 0x2,0x3 0127 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 0129 BODY_0118: 0129 e219 | | Load 0x1,0x19 012a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 012b e219 | | Load 0x1,0x19 012c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012d 003b | ; | Store_Top Access,At_Offset_3 012e e5ff | | Load 0x2,-0x1 012f 8404 | | Call 0x2,0x4 0130 00da | | Load_Top At_Offset_2 0131 821a | | Call 0x1,0x1a 0132 00db | | Load_Top At_Offset_3 0133 821b | | Call 0x1,0x1b 0134 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013f | ? | .CONST 0x013f ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0003 | | .CONST 0x0003 ; Number of locals 013b INIT_0138: 013b e219 | | Load 0x1,0x19 013c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 013d 00e2 | | Load_Encached Integer_Cache 013e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 013f BODY_0138: 013f e219 | | Load 0x1,0x19 0140 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0141 e5ff | | Load 0x2,-0x1 0142 e219 | | Load 0x1,0x19 0143 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0144 003a | : | Store_Top Access,At_Offset_2 0145 00cf | | Action Mark_Auxiliary 0146 7808 |x | Jump 0x14f 0147 00d9 | | Load_Top At_Offset_1 0148 0a01 | | Execute_Immediate Plus,0x1 0149 005a | Z | Store_Top Discrete,At_Offset_2 014a 00da | | Load_Top At_Offset_2 014b e219 | | Load 0x1,0x19 014c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 014d 003b | ; | Store_Top Access,At_Offset_3 014e 00c9 | | Action Pop_Auxiliary_Loop 014f 00da | | Load_Top At_Offset_2 0150 e219 | | Load 0x1,0x19 0151 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0152 6ff4 |o | Jump_Zero 0x147 0153 00ce | | Action Pop_Auxiliary 0154 00d8 | | Load_Top At_Offset_0 0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0164 | d | .CONST 0x0164 ; Address of begin 0159 018b | | .CONST 0x018b ; Address of exception handler 015a 0004 | | .CONST 0x0004 ; Number of locals 015b INIT_0158: 015b 00db | | Load_Top At_Offset_3 015c e217 | | Load 0x1,0x17 015d 1c08 | | Execute_Immediate Run_Utility,0x8 015e 00d8 | | Load_Top At_Offset_0 015f 1c00 | | Execute_Immediate Run_Utility,0x0 0160 e219 | | Load 0x1,0x19 0161 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0162 00e2 | | Load_Encached Integer_Cache 0163 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0164 BODY_0158: 0164 e219 | | Load 0x1,0x19 0165 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0166 e5ff | | Load 0x2,-0x1 0167 e219 | | Load 0x1,0x19 0168 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0169 003a | : | Store_Top Access,At_Offset_2 016a 00cf | | Action Mark_Auxiliary 016b 780f |x | Jump 0x17b 016c 00da | | Load_Top At_Offset_2 016d e219 | | Load 0x1,0x19 016e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 016f 00da | | Load_Top At_Offset_2 0170 e402 | | Load 0x2,0x2 0171 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0172 01d6 | | Execute Vector,Field_Write 0173 00d9 | | Load_Top At_Offset_1 0174 0a01 | | Execute_Immediate Plus,0x1 0175 005a | Z | Store_Top Discrete,At_Offset_2 0176 00da | | Load_Top At_Offset_2 0177 e219 | | Load 0x1,0x19 0178 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0179 003b | ; | Store_Top Access,At_Offset_3 017a 00c9 | | Action Pop_Auxiliary_Loop 017b 00da | | Load_Top At_Offset_2 017c e219 | | Load 0x1,0x19 017d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 017e 6fed |o | Jump_Zero 0x16c 017f 00ce | | Action Pop_Auxiliary 0180 00da | | Load_Top At_Offset_2 0181 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0182 4800 |H | Short_Literal 0x0 0183 00ea | | Load_Encached Null_String_Cache 0184 00ea | | Load_Encached Null_String_Cache 0185 e004 | | Load 0x0,0x4 0186 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0187 00db | | Load_Top At_Offset_3 0188 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0189 00da | | Load_Top At_Offset_2 018a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 018b TRAP_0158: 018b 0007 | | Action Break_Optional 018c 00db | | Load_Top At_Offset_3 018d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 018e 4802 |H | Short_Literal 0x2 018f 00ea | | Load_Encached Null_String_Cache 0190 00ea | | Load_Encached Null_String_Cache 0191 e004 | | Load 0x0,0x4 0192 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0193 e402 | | Load 0x2,0x2 0194 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0195 00db | | Load_Top At_Offset_3 0196 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a0 | | .CONST 0x01a0 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e003 | | Load 0x0,0x3 019c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 019d 02c7 | | Declare_Variable Any 019e 00d8 | | Load_Top At_Offset_0 019f 1c00 | | Execute_Immediate Run_Utility,0x0 01a0 BODY_0198: 01a0 e00c | | Load 0x0,0xc 01a1 180e | | Execute Package,Field_Execute,Field_Number 0xe 01a2 e00c | | Load 0x0,0xc 01a3 180e | | Execute Package,Field_Execute,Field_Number 0xe 01a4 e5ff | | Load 0x2,-0x1 01a5 e008 | | Load 0x0,0x8 01a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01a8 e003 | | Load 0x0,0x3 01a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01aa 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01ab 0092 025a | Z| Action Push_String_Extended,0x25a ; ".state." 01ad 01cc | | Execute Vector,Catenate 01ae e5fe | | Load 0x2,-0x2 01af 01cc | | Execute Vector,Catenate 01b0 e008 | | Load 0x0,0x8 01b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01b3 c402 | | Store 0x2,0x2 01b4 e003 | | Load 0x0,0x3 01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b6 e5fd | | Load 0x2,-0x3 01b7 0120 | | Execute Any,Is_Value 01b8 6803 |h | Jump_Zero 0x1bc 01b9 e00d | | Load 0x0,0xd 01ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01bb 7801 |x | Jump 0x1bd 01bc e5fd | | Load 0x2,-0x3 01bd 4800 |H | Short_Literal 0x0 01be 4800 |H | Short_Literal 0x0 01bf e00e | | Load 0x0,0xe 01c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c1 e402 | | Load 0x2,0x2 01c2 e00d | | Load 0x0,0xd 01c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c4 c5fd | | Store 0x2,-0x3 01c5 c5fc | | Store 0x2,-0x4 01c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cd | | .CONST 0x01cd ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb e003 | | Load 0x0,0x3 01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cd BODY_01c8: 01cd e003 | | Load 0x0,0x3 01ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cf e5ff | | Load 0x2,-0x1 01d0 e00d | | Load 0x0,0xd 01d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d2 0059 | Y | Store_Top Discrete,At_Offset_1 01d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d4 0000 0000 | | .BLANK 0000[0x4] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01ec | | .CONST 0x01ec ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0005 | | .CONST 0x0005 ; Number of locals 01db INIT_01d8: 01db e003 | | Load 0x0,0x3 01dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01dd 02c7 | | Declare_Variable Any 01de 00d8 | | Load_Top At_Offset_0 01df 1c00 | | Execute_Immediate Run_Utility,0x0 01e0 e00d | | Load 0x0,0xd 01e1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01e2 02c7 | | Declare_Variable Any 01e3 00d8 | | Load_Top At_Offset_0 01e4 1c00 | | Execute_Immediate Run_Utility,0x0 01e5 e00d | | Load 0x0,0xd 01e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e7 02c7 | | Declare_Variable Any 01e8 00d8 | | Load_Top At_Offset_0 01e9 1c00 | | Execute_Immediate Run_Utility,0x0 01ea e003 | | Load 0x0,0x3 01eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ec BODY_01d8: 01ec 00be | | Action Activate_Tasks 01ed e003 | | Load 0x0,0x3 01ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ef 00da | | Load_Top At_Offset_2 01f0 0092 025b | [| Action Push_String_Extended,0x25b ; "referencers" 01f2 e7ff | | Load 0x3,-0x1 01f3 821c | | Call 0x1,0x1c 01f4 c604 | | Store 0x3,0x4 01f5 0059 | Y | Store_Top Discrete,At_Offset_1 01f6 00d8 | | Load_Top At_Offset_0 01f7 6801 |h | Jump_Zero 0x1f9 01f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f9 00da | | Load_Top At_Offset_2 01fa 0120 | | Execute Any,Is_Value 01fb 6803 |h | Jump_Zero 0x1ff 01fc e00d | | Load 0x0,0xd 01fd 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01fe 7801 |x | Jump 0x200 01ff 00da | | Load_Top At_Offset_2 0200 00da | | Load_Top At_Offset_2 0201 e00d | | Load 0x0,0xd 0202 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0203 c603 | | Store 0x3,0x3 0204 00cf | | Action Mark_Auxiliary 0205 7821 |x! | Jump 0x227 0206 00db | | Load_Top At_Offset_3 0207 e00d | | Load 0x0,0xd 0208 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0209 c602 | | Store 0x3,0x2 020a 4801 |H | Short_Literal 0x1 020b 0092 025c | \| Action Push_String_Extended,0x25c ; "[VERSION_ERROR]" 020d e602 | | Load 0x3,0x2 020e e003 | | Load 0x0,0x3 020f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0210 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0211 e00f | | Load 0x0,0xf 0212 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0213 700e |p | Jump_Nonzero 0x222 0214 e602 | | Load 0x3,0x2 0215 e402 | | Load 0x2,0x2 0216 e219 | | Load 0x1,0x19 0217 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0218 7009 |p | Jump_Nonzero 0x222 0219 e402 | | Load 0x2,0x2 021a e602 | | Load 0x3,0x2 021b e219 | | Load 0x1,0x19 021c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 021d c402 | | Store 0x2,0x2 021e e5fe | | Load 0x2,-0x2 021f 6802 |h | Jump_Zero 0x222 0220 e602 | | Load 0x3,0x2 0221 8404 | | Call 0x2,0x4 0222 00db | | Load_Top At_Offset_3 0223 e00d | | Load 0x0,0xd 0224 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0225 c603 | | Store 0x3,0x3 0226 00c9 | | Action Pop_Auxiliary_Loop 0227 00db | | Load_Top At_Offset_3 0228 e00d | | Load 0x0,0xd 0229 181b | | Execute Package,Field_Execute,Field_Number 0x1b 022a 6fdb |o | Jump_Zero 0x206 022b 00ce | | Action Pop_Auxiliary 022c 00d9 | | Load_Top At_Offset_1 022d 821d | | Call 0x1,0x1d 022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 022f 0000 | | .XXX[0x1] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 4608 |F | Jump_Case 0x9 0234 7808 |x | Jump 0x23d ; case 0x0 0235 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0236 7822 |x" | Jump 0x259 ; case 0x2 0237 7821 |x! | Jump 0x259 ; case 0x3 0238 7820 |x | Jump 0x259 ; case 0x4 0239 781f |x | Jump 0x259 ; case 0x5 023a 781e |x | Jump 0x259 ; case 0x6 023b 780a |x | Jump 0x246 ; case 0x7 023c 7812 |x | Jump 0x24f ; case 0x8 023d 00da | | Load_Top At_Offset_2 023e 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 023f 00da | | Load_Top At_Offset_2 0240 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0241 1c00 | | Execute_Immediate Run_Utility,0x0 0242 00da | | Load_Top At_Offset_2 0243 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0244 1c00 | | Execute_Immediate Run_Utility,0x0 0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0246 00db | | Load_Top At_Offset_3 0247 4801 |H | Short_Literal 0x1 0248 e5fe | | Load 0x2,-0x2 0249 e216 | | Load 0x1,0x16 024a 035b | [ | Declare_Type Array,Constrained 024b 4801 |H | Short_Literal 0x1 024c e5ff | | Load 0x2,-0x1 024d 031b | | Declare_Type Variant_Record,Constrained 024e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 024f 00db | | Load_Top At_Offset_3 0250 00db | | Load_Top At_Offset_3 0251 02fc | | Declare_Variable Variant_Record,With_Constraint 0252 4801 |H | Short_Literal 0x1 0253 e5fe | | Load 0x2,-0x2 0254 e216 | | Load 0x1,0x16 0255 0334 | 4 | Declare_Variable Array,With_Constraint 0256 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0257 016a | j | QQ_execute Variant_Record,XXX 0258 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0259 0869 | i | Execute_Immediate Raise,0x69 025a ; -------------------------------------------------------------------------------------- 025a ; STRING TABLE 025a ; -------------------------------------------------------------------------------------- 025a 0008 | | .STRTAB 0x0008->0x025e ; ".state." 025b 000d | | .STRTAB 0x000d->0x0261 ; "referencers" 025c 0016 | | .STRTAB 0x0016->0x0267 ; "[VERSION_ERROR]" 025d 0023 | # | .STREND 0x0023->0x026e 025e 2e73 7461 |.sta| .STRTAB_STRINGS 026f 0000 | | .XXX[0x1] 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug Table 0270 ; -------------------------------------------------------------------------------------- 0270 0004 000e | | .DEBUG4 0x0004,0x000e,0xa660,0x0000,0x0001,0x0000 0276 0000 0180 | | .XXX[0x1e] 0278 fed1 01e3 | | 027a 1800 1001 | | 027c 0000 0000 | | 027e 03ff 0000 | | 0280 1a3f f000 | ? | 0282 0000 5d90 | ] | 0284 234e 2350 |#N#P| 0286 3970 c84f |9p O| 0288 00d0 3cb3 | < | 028a 0000 0821 | !| 028c 00d0 02c3 | | 028e 0000 0801 | | 0290 0000 0000 | | 0292 8000 31a9 | 1 | 0294 0000 0000 | | .BLANK 0000[0x4] 0298 7044 cb57 |pD W| .XXX[0x14] 029a c5e5 8622 | "| 029c fd3c fd3d | < =| 029e 3970 fadc |9p | 02a0 f970 c622 | p "| 02a2 d093 d094 | | 02a4 234c 2350 |#L#P| 02a6 38b0 c9e2 |8 | 02a8 0000 007a | z| 02aa 0247 b170 | G p| 02ac 0000 0000 | | .BLANK 0000[0x5] 02b1 005e 120e | ^ | .XXX[0x8] 02b3 005e 169e | ^ | 02b5 0200 0a40 | @| 02b7 0891 8000 | | 02b9 0000 0000 | | .BLANK 0000[0xa] 02c3 0005 e145 | E| .XXX[0xe] 02c5 6005 e18e |` | 02c7 6020 010b |` | 02c9 0091 e400 | | 02cb 0001 0000 | | 02cd 0000 7a02 | z | 02cf 4791 f000 |G | 02d1 0000 0000 | | .BLANK 0000[0x5] 02d6 5e16 9e00 |^ | .XXX[0x7] 02d8 5e1b 2e02 |^ . | 02da 000a 4008 | @ | 02dc 9180 | | 02dd 0000 0000 | | .BLANK 0000[0xb] 02e8 05e1 8e60 | `| .XXX[0xd] 02ea 05e1 d760 | `| 02ec 2001 0b00 | | 02ee 91e4 0000 | | 02f0 0100 0000 | | 02f2 007a 0247 | z G| 02f4 9200 | | 02f5 0000 0000 | | .BLANK 0000[0x5] 02fa 005e 1b2e | ^ .| .XXX[0x6] 02fc 005e 1fbe | ^ | 02fe 0200 0a40 | @| 0300 0000 0000 | | .BLANK 0000[0x7] 0307 0001 | | .XXX[0x1] 0308 0000 0000 | | .BLANK 0000[0x17] 031f 0001 | | .XXX[0x1] 0320 0000 0000 | | .BLANK 0000[0x7] 0327 0004 | | .XXX[0x1] 0328 0000 0000 | | .BLANK 0000[0x9] 0331 05e2 2060 | `| .XXX[0xd] 0333 05e2 6960 | i`| 0335 2001 0b00 | | 0337 91e4 0000 | | 0339 0100 0000 | | 033b 007a 0247 | z G| 033d 9280 | | 033e 0000 0000 | | .BLANK 0000[0x5] 0343 005e 244e | ^$N| .XXX[0x8] 0345 005e 28de | ^( | 0347 0200 0a40 | @| 0349 0891 8000 | | 034b 0000 0000 | | .BLANK 0000[0xa] 0355 0005 e269 | i| .XXX[0xe] 0357 6005 e2b2 |` | 0359 6020 010b |` | 035b 0091 e400 | | 035d 0001 0000 | | 035f 0000 7a02 | z | 0361 4792 9000 |G | 0363 0000 0000 | | .BLANK 0000[0x5] 0368 5e28 de00 |^( | .XXX[0x7] 036a 5e2d 6e02 |^-n | 036c 000a 4008 | @ | 036e 9180 | | 036f 0000 0000 | | .BLANK 0000[0xb] 037a 05e2 b260 | `| .XXX[0xd] 037c 05e2 fb60 | `| 037e 2001 0b00 | | 0380 91ec 0000 | | 0382 0100 0000 | | 0384 007a 0247 | z G| 0386 b2a0 | | 0387 0000 0000 | | .BLANK 0000[0x5] 038c 005e 2d6e | ^-n| .XXX[0x8] 038e 005e 31fe | ^1 | 0390 0200 0a40 | @| 0392 0891 8000 | | 0394 0000 0000 | | .BLANK 0000[0xa] 039e 0005 e2fb | | .XXX[0xe] 03a0 6005 e344 |` D| 03a2 6020 010b |` | 03a4 0091 e400 | | 03a6 0001 0000 | | 03a8 0000 7a02 | z | 03aa 4792 4000 |G @ | 03ac 0000 0000 | | .BLANK 0000[0x5] 03b1 5e31 fe00 |^1 | .XXX[0x7] 03b3 5e36 8e02 |^6 | 03b5 000a 4008 | @ | 03b7 8c00 | | 03b8 0000 0000 | | .BLANK 0000[0xb] 03c3 05e3 4460 | D`| .XXX[0xd] 03c5 05e3 8d60 | `| 03c7 2001 0b00 | | 03c9 91e4 0000 | | 03cb 0100 0000 | | 03cd 007a 0247 | z G| 03cf 90d0 | | 03d0 0000 0000 | | .BLANK 0000[0x5] 03d5 005e 368e | ^6 | .XXX[0x8] 03d7 005e 3b1e | ^; | 03d9 0200 0a40 | @| 03db 0884 4000 | @ | 03dd 0000 0000 | | .BLANK 0000[0xa] 03e7 0005 | | .XXX[0x1] 03e8 0000 0000 | | .BLANK 0000[0x4] 03ec 00d0 44b3 | D | .XXX[0x14] 03ee 0000 0000 | | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 0000 0000 | | 03f6 0000 0024 | $| 03f8 ff69 0038 | i 8| 03fa 0800 0001 | | 03fc 0000 0000 | | 03fe 0000 0008 | |