|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01d0 | | .CONST 0x01d0 ; 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 0017 | | .CONST 0x0017 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 0007 | | Action Break_Optional 0011 0007 | | Action Break_Optional 0012 0007 | | Action Break_Optional 0013 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0014 00c7 | | Action Elaborate_Subprogram 0015 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0016 00c7 | | Action Elaborate_Subprogram 0017 BODY_0008: 0017 00bc | | Action Signal_Activated 0018 00bb | | Action Signal_Completion 0019 0000 0000 | | .BLANK 0000[0x7] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 004b | K | .CONST 0x004b ; Address of begin 0021 0064 | d | .CONST 0x0064 ; Address of exception handler 0022 000a | | .CONST 0x000a ; Number of locals 0023 INIT_0020: 0023 e001 | | Load 0x0,0x1 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 0007 | | Action Break_Optional 0026 e002 | | Load 0x0,0x2 0027 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0028 0124 | $ | Execute Any,Is_Constrained 0029 700b |p | Jump_Nonzero 0x35 002a e002 | | Load 0x0,0x2 002b 1b15 | | Execute Package,Field_Read,Field_Number 0x15 002c 1c09 | | Execute_Immediate Run_Utility,0x9 002d e002 | | Load 0x0,0x2 002e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 002f e003 | | Load 0x0,0x3 0030 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0031 e004 | | Load 0x0,0x4 0032 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0033 0398 | | Declare_Variable Heap_Access,By_Allocation,With_Subtype 0034 7807 |x | Jump 0x3c 0035 e002 | | Load 0x0,0x2 0036 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0037 e003 | | Load 0x0,0x3 0038 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0039 e004 | | Load 0x0,0x4 003a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 003b 039c | | Declare_Variable Heap_Access,By_Allocation 003c 0007 | | Action Break_Optional 003d 029f 008b | | Declare_Subprogram INIT_0088,For_Call 003f 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 0041 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0043 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0045 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0047 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0049 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 004b BODY_0020: 004b e5ff | | Load 0x2,-0x1 004c e002 | | Load 0x0,0x2 004d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004e 012f | / | Execute Any,Equal 004f 6801 |h | Jump_Zero 0x51 0050 8408 | | Call 0x2,0x8 0051 e403 | | Load 0x2,0x3 0052 e001 | | Load 0x0,0x1 0053 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0054 00d9 | | Load_Top At_Offset_1 0055 0219 | | Execute Heap_Access,All_Read 0056 4801 |H | Short_Literal 0x1 0057 4800 |H | Short_Literal 0x0 0058 e005 | | Load 0x0,0x5 0059 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005a e5ff | | Load 0x2,-0x1 005b e002 | | Load 0x0,0x2 005c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005d 00da | | Load_Top At_Offset_2 005e 0218 | | Execute Heap_Access,All_Write 005f c402 | | Store 0x2,0x2 0060 00d1 | | Pop_Control Pop_Count_1 0061 8407 | | Call 0x2,0x7 0062 8409 | | Call 0x2,0x9 0063 0831 | 1 | Execute_Immediate Raise,0x31 0064 TRAP_0020: 0064 0007 | | Action Break_Optional 0065 840a | | Call 0x2,0xa 0066 00d8 | | Load_Top At_Offset_0 0067 0101 | | Execute Exception,Reraise 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0074 | t | .CONST 0x0074 ; Address of begin 0069 007e | ~ | .CONST 0x007e ; Address of exception handler 006a 0004 | | .CONST 0x0004 ; Number of locals 006b INIT_0068: 006b e006 | | Load 0x0,0x6 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d 02c7 | | Declare_Variable Any 006e 00d8 | | Load_Top At_Offset_0 006f 1c00 | | Execute_Immediate Run_Utility,0x0 0070 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0072 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 0074 BODY_0068: 0074 00da | | Load_Top At_Offset_2 0075 00ea | | Load_Encached Null_String_Cache 0076 0092 01be | | Action Push_String_Extended,0x1be ; "!machine.machine_name" 0078 4800 |H | Short_Literal 0x0 0079 e006 | | Load 0x0,0x6 007a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 007b c402 | | Store 0x2,0x2 007c 8403 | | Call 0x2,0x3 007d 0831 | 1 | Execute_Immediate Raise,0x31 007e TRAP_0068: 007e 0007 | | Action Break_Optional 007f 8404 | | Call 0x2,0x4 0080 00ea | | Load_Encached Null_String_Cache 0081 00ca | | Action Exit_Nullary_Function 0082 0000 0000 | | .BLANK 0000[0x6] 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 e002 | | Load 0x0,0x2 008d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 008e 012e | . | Execute Any,Not_Equal 008f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009a | | .CONST 0x009a ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 e002 | | Load 0x0,0x2 0094 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0095 02c7 | | Declare_Variable Any 0096 00d8 | | Load_Top At_Offset_0 0097 1c00 | | Execute_Immediate Run_Utility,0x0 0098 00e3 | | Load_Encached Natural_Cache 0099 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 009a BODY_0090: 009a 00be | | Action Activate_Tasks 009b 00d9 | | Load_Top At_Offset_1 009c 0120 | | Execute Any,Is_Value 009d 6803 |h | Jump_Zero 0xa1 009e e002 | | Load 0x0,0x2 009f 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 00a0 7801 |x | Jump 0xa2 00a1 00d9 | | Load_Top At_Offset_1 00a2 e403 | | Load 0x2,0x3 00a3 e002 | | Load 0x0,0x2 00a4 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 00a5 c602 | | Store 0x3,0x2 00a6 00cf | | Action Mark_Auxiliary 00a7 780d |x | Jump 0xb5 00a8 00da | | Load_Top At_Offset_2 00a9 e002 | | Load 0x0,0x2 00aa 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00ab 8404 | | Call 0x2,0x4 00ac 6803 |h | Jump_Zero 0xb0 00ad 00d9 | | Load_Top At_Offset_1 00ae 0a01 | | Execute_Immediate Plus,0x1 00af 005a | Z | Store_Top Discrete,At_Offset_2 00b0 00da | | Load_Top At_Offset_2 00b1 e002 | | Load 0x0,0x2 00b2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00b3 c602 | | Store 0x3,0x2 00b4 00c9 | | Action Pop_Auxiliary_Loop 00b5 00da | | Load_Top At_Offset_2 00b6 e002 | | Load 0x0,0x2 00b7 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 00b8 6fef |o | Jump_Zero 0xa8 00b9 00ce | | Action Pop_Auxiliary 00ba 00d8 | | Load_Top At_Offset_0 00bb 00ca | | Action Exit_Nullary_Function 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c5 | | .CONST 0x00c5 ; Address of begin 00c1 00c7 | | .CONST 0x00c7 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 00c5 BODY_00c0: 00c5 8602 | | Call 0x3,0x2 00c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c7 TRAP_00c0: 00c7 0007 | | Action Break_Optional 00c8 00ea | | Load_Encached Null_String_Cache 00c9 00ea | | Load_Encached Null_String_Cache 00ca 00ea | | Load_Encached Null_String_Cache 00cb 00ea | | Load_Encached Null_String_Cache 00cc e007 | | Load 0x0,0x7 00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 00cf a7fe | | Store_Unchecked 0x3,-0x2 00d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d1 0000 0000 | | .BLANK 0000[0x7] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e402 | | Load 0x2,0x2 00dc 6802 |h | Jump_Zero 0xdf 00dd e008 | | Load 0x0,0x8 00de 0257 | W | Execute Discrete,Raise 00df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e9 | | .CONST 0x00e9 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 4801 |H | Short_Literal 0x1 00e4 4800 |H | Short_Literal 0x0 00e5 e007 | | Load 0x0,0x7 00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e8 0334 | 4 | Declare_Variable Array,With_Constraint 00e9 BODY_00e0: 00e9 00d8 | | Load_Top At_Offset_0 00ea 00cb | | Action Pop_Block_With_Result 00eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0103 | | .CONST 0x0103 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0004 | | .CONST 0x0004 ; Number of locals 00f3 INIT_00f0: 00f3 4801 |H | Short_Literal 0x1 00f4 8405 | | Call 0x2,0x5 00f5 e007 | | Load 0x0,0x7 00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f8 0334 | 4 | Declare_Variable Array,With_Constraint 00f9 e002 | | Load 0x0,0x2 00fa 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 00fb 02c7 | | Declare_Variable Any 00fc 00d8 | | Load_Top At_Offset_0 00fd 1c00 | | Execute_Immediate Run_Utility,0x0 00fe e002 | | Load 0x0,0x2 00ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0100 02c7 | | Declare_Variable Any 0101 00d8 | | Load_Top At_Offset_0 0102 1c00 | | Execute_Immediate Run_Utility,0x0 0103 BODY_00f0: 0103 00be | | Action Activate_Tasks 0104 00d9 | | Load_Top At_Offset_1 0105 0120 | | Execute Any,Is_Value 0106 6803 |h | Jump_Zero 0x10a 0107 e002 | | Load 0x0,0x2 0108 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0109 7801 |x | Jump 0x10b 010a 00d9 | | Load_Top At_Offset_1 010b e403 | | Load 0x2,0x3 010c e002 | | Load 0x0,0x2 010d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 010e c603 | | Store 0x3,0x3 010f 00cf | | Action Mark_Auxiliary 0110 00db | | Load_Top At_Offset_3 0111 01d9 | | Execute Vector,Reverse_Bounds 0112 0263 | c | Execute Discrete,Above_Bound 0113 7025 |p% | Jump_Nonzero 0x139 0114 00cf | | Action Mark_Auxiliary 0115 0007 | | Action Break_Optional 0116 e603 | | Load 0x3,0x3 0117 e002 | | Load 0x0,0x2 0118 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0119 c604 | | Store 0x3,0x4 011a e604 | | Load 0x3,0x4 011b 8404 | | Call 0x2,0x4 011c 7006 |p | Jump_Nonzero 0x123 011d e603 | | Load 0x3,0x3 011e e002 | | Load 0x0,0x2 011f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0120 c603 | | Store 0x3,0x3 0121 00c9 | | Action Pop_Auxiliary_Loop 0122 7ff3 | | Jump 0x116 0123 00ce | | Action Pop_Auxiliary 0124 e602 | | Load 0x3,0x2 0125 00d9 | | Load_Top At_Offset_1 0126 e007 | | Load 0x0,0x7 0127 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 00d9 | | Load_Top At_Offset_1 012a 00db | | Load_Top At_Offset_3 012b 01d7 | | Execute Vector,Field_Read 012c 00d1 | | Pop_Control Pop_Count_1 012d e604 | | Load 0x3,0x4 012e 8406 | | Call 0x2,0x6 012f 00d9 | | Load_Top At_Offset_1 0130 00db | | Load_Top At_Offset_3 0131 01d6 | | Execute Vector,Field_Write 0132 00d2 | | Pop_Control Pop_Count_2 0133 e603 | | Load 0x3,0x3 0134 e002 | | Load 0x0,0x2 0135 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0136 c603 | | Store 0x3,0x3 0137 00c8 | | Action Pop_Auxiliary_Range 0138 3fdb |? | Loop_Increasing 0x114 0139 00c9 | | Action Pop_Auxiliary_Loop 013a 780b |x | Jump 0x146 013b 00da | | Load_Top At_Offset_2 013c e002 | | Load 0x0,0x2 013d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 013e 8404 | | Call 0x2,0x4 013f 6801 |h | Jump_Zero 0x141 0140 0887 | | Execute_Immediate Raise,0x87 0141 00da | | Load_Top At_Offset_2 0142 e002 | | Load 0x0,0x2 0143 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0144 c603 | | Store 0x3,0x3 0145 00c9 | | Action Pop_Auxiliary_Loop 0146 00da | | Load_Top At_Offset_2 0147 e002 | | Load 0x0,0x2 0148 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0149 6ff1 |o | Jump_Zero 0x13b 014a 00ce | | Action Pop_Auxiliary 014b e403 | | Load 0x2,0x3 014c e001 | | Load 0x0,0x1 014d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014e 00d9 | | Load_Top At_Offset_1 014f 0219 | | Execute Heap_Access,All_Read 0150 e002 | | Load 0x0,0x2 0151 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0152 00da | | Load_Top At_Offset_2 0153 0218 | | Execute Heap_Access,All_Write 0154 c402 | | Store 0x2,0x2 0155 00d1 | | Pop_Control Pop_Count_1 0156 00da | | Load_Top At_Offset_2 0157 00cb | | Action Pop_Block_With_Result 0158 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0159 0000 0000 | | .BLANK 0000[0x7] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 016e | n | .CONST 0x016e ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 e403 | | Load 0x2,0x3 0164 e001 | | Load 0x0,0x1 0165 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0166 00d9 | | Load_Top At_Offset_1 0167 0219 | | Execute Heap_Access,All_Read 0168 e002 | | Load 0x0,0x2 0169 181c | | Execute Package,Field_Execute,Field_Number 0x1c 016a 00da | | Load_Top At_Offset_2 016b 0218 | | Execute Heap_Access,All_Write 016c c402 | | Store 0x2,0x2 016d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016e TRAP_0160: 016e 0007 | | Action Break_Optional 016f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0176 | v | .CONST 0x0176 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e402 | | Load 0x2,0x2 0174 e006 | | Load 0x0,0x6 0175 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0176 BODY_0170: 0176 e402 | | Load 0x2,0x2 0177 e006 | | Load 0x0,0x6 0178 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0179 c402 | | Store 0x2,0x2 017a 00d8 | | Load_Top At_Offset_0 017b 00cb | | Action Pop_Block_With_Result 017c 00ca | | Action Exit_Nullary_Function 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0188 | | .CONST 0x0188 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 e402 | | Load 0x2,0x2 0184 e006 | | Load 0x0,0x6 0185 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0186 c402 | | Store 0x2,0x2 0187 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0188 TRAP_0180: 0188 0007 | | Action Break_Optional 0189 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 01a9 | | .CONST 0x01a9 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0004 | | .CONST 0x0004 ; Number of locals 0193 INIT_0190: 0193 e7ff | | Load 0x3,-0x1 0194 e001 | | Load 0x0,0x1 0195 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0196 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0197 e002 | | Load 0x0,0x2 0198 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0199 02c7 | | Declare_Variable Any 019a e403 | | Load 0x2,0x3 019b 0219 | | Execute Heap_Access,All_Read 019c e7ff | | Load 0x3,-0x1 019d e002 | | Load 0x0,0x2 019e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 019f a803 | | Store_Unchecked 0x4,0x3 01a0 e002 | | Load 0x0,0x2 01a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a2 02c7 | | Declare_Variable Any 01a3 e403 | | Load 0x2,0x3 01a4 0219 | | Execute Heap_Access,All_Read 01a5 e7ff | | Load 0x3,-0x1 01a6 e002 | | Load 0x0,0x2 01a7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01a8 a804 | | Store_Unchecked 0x4,0x4 01a9 BODY_0190: 01a9 00d8 | | Load_Top At_Offset_0 01aa e001 | | Load 0x0,0x1 01ab 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01ac 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 01ad 00da | | Load_Top At_Offset_2 01ae e001 | | Load 0x0,0x1 01af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b0 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 01b1 e802 | | Load 0x4,0x2 01b2 e001 | | Load 0x0,0x1 01b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b4 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 01b5 e802 | | Load 0x4,0x2 01b6 e001 | | Load 0x0,0x1 01b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01b8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 01b9 e007 | | Load 0x0,0x7 01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bb 180f | | Execute Package,Field_Execute,Field_Number 0xf 01bc a7fe | | Store_Unchecked 0x3,-0x2 01bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01be ; -------------------------------------------------------------------------------------- 01be ; STRING TABLE 01be ; -------------------------------------------------------------------------------------- 01be 0004 | | .STRTAB 0x0004->0x01c0 ; "!machine.machine_name" 01bf 0017 | | .STREND 0x0017->0x01ca 01c0 216d 6163 |!mac| .STRTAB_STRINGS 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; Debug Table 01d0 ; -------------------------------------------------------------------------------------- 01d0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x28c7,0x0000,0x0001,0x0000 01d6 0000 0000 | | .BLANK 0000[0x2a]