|
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_0d2ce3
└─⟦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 0338 | 8 | .CONST 0x0338 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001e | | .CONST 0x001e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 000f 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0011 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0017 00c7 | | Action Elaborate_Subprogram 0018 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001d 00c7 | | Action Elaborate_Subprogram 001e BODY_0008: 001e 00bc | | Action Signal_Activated 001f 00bb | | Action Signal_Completion 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0038 | 8 | .CONST 0x0038 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 000b | | .CONST 0x000b ; Number of locals 0023 INIT_0020: 0023 e001 | | Load 0x0,0x1 0024 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0025 0337 | 7 | Declare_Variable Array 0026 00d8 | | Load_Top At_Offset_0 0027 0337 | 7 | Declare_Variable Array 0028 e001 | | Load 0x0,0x1 0029 1b14 | | Execute Package,Field_Read,Field_Number 0x14 002a e001 | | Load 0x0,0x1 002b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 002c e002 | | Load 0x0,0x2 002d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 002e 0322 | " | Declare_Variable Record 002f 00e2 | | Load_Encached Integer_Cache 0030 03e9 | | Declare_Variable Discrete,Duplicate 0031 03e9 | | Declare_Variable Discrete,Duplicate 0032 e003 | | Load 0x0,0x3 0033 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0034 0322 | " | Declare_Variable Record 0035 00d8 | | Load_Top At_Offset_0 0036 1c00 | | Execute_Immediate Run_Utility,0x0 0037 00e1 | | Load_Encached Boolean_Cache 0038 BODY_0020: 0038 4801 |H | Short_Literal 0x1 0039 a5fc | | Store_Unchecked 0x2,-0x4 003a 4801 |H | Short_Literal 0x1 003b e5ff | | Load 0x2,-0x1 003c 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "!!" 003e e004 | | Load 0x0,0x4 003f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0040 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0041 00da | | Load_Top At_Offset_2 0042 6808 |h | Jump_Zero 0x4b 0043 e005 | | Load 0x0,0x5 0044 180e | | Execute Package,Field_Execute,Field_Number 0xe 0045 4802 |H | Short_Literal 0x2 0046 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "Remote access is not currently supported" 0048 e006 | | Load 0x0,0x6 0049 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 004b e405 | | Load 0x2,0x5 004c e404 | | Load 0x2,0x4 004d 4801 |H | Short_Literal 0x1 004e 4800 |H | Short_Literal 0x0 004f 4800 |H | Short_Literal 0x0 0050 e5ff | | Load 0x2,-0x1 0051 e001 | | Load 0x0,0x1 0052 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0053 c404 | | Store 0x2,0x4 0054 c405 | | Store 0x2,0x5 0055 e405 | | Load 0x2,0x5 0056 7084 |p | Jump_Nonzero 0xdb 0057 e5fe | | Load 0x2,-0x2 0058 e007 | | Load 0x0,0x7 0059 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005a 683a |h: | Jump_Zero 0x95 005b e5fd | | Load 0x2,-0x3 005c 01db | | Execute Vector,Length 005d 7007 |p | Jump_Nonzero 0x65 005e 00d9 | | Load_Top At_Offset_1 005f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0060 e5ff | | Load 0x2,-0x1 0061 e008 | | Load 0x0,0x8 0062 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0063 00d1 | | Pop_Control Pop_Count_1 0064 7806 |x | Jump 0x6b 0065 00d9 | | Load_Top At_Offset_1 0066 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0067 e5fd | | Load 0x2,-0x3 0068 e008 | | Load 0x0,0x8 0069 1810 | | Execute Package,Field_Execute,Field_Number 0x10 006a 00d1 | | Pop_Control Pop_Count_1 006b e406 | | Load 0x2,0x6 006c 00e1 | | Load_Encached Boolean_Cache 006d 00e1 | | Load_Encached Boolean_Cache 006e 00e1 | | Load_Encached Boolean_Cache 006f 00e2 | | Load_Encached Integer_Cache 0070 e404 | | Load 0x2,0x4 0071 e001 | | Load 0x0,0x1 0072 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0073 c408 | | Store 0x2,0x8 0074 e40a | | Load 0x2,0xa 0075 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0076 e40a | | Load 0x2,0xa 0077 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0078 005a | Z | Store_Top Discrete,At_Offset_2 0079 00d1 | | Pop_Control Pop_Count_1 007a 00d9 | | Load_Top At_Offset_1 007b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 007c 0120 | | Execute Any,Is_Value 007d 6803 |h | Jump_Zero 0x81 007e e009 | | Load 0x0,0x9 007f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0080 7802 |x | Jump 0x83 0081 00d9 | | Load_Top At_Offset_1 0082 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0083 e406 | | Load 0x2,0x6 0084 e00a | | Load 0x0,0xa 0085 180e | | Execute Package,Field_Execute,Field_Number 0xe 0086 00da | | Load_Top At_Offset_2 0087 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0088 00db | | Load_Top At_Offset_3 0089 090a | | Execute_Immediate Binary_Scale,0xa 008a 00da | | Load_Top At_Offset_2 008b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 008c 4801 |H | Short_Literal 0x1 008d 00da | | Load_Top At_Offset_2 008e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 008f 00d9 | | Load_Top At_Offset_1 0090 4800 |H | Short_Literal 0x0 0091 e5fe | | Load 0x2,-0x2 0092 e007 | | Load 0x0,0x7 0093 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0094 00d1 | | Pop_Control Pop_Count_1 0095 e5fe | | Load 0x2,-0x2 0096 e007 | | Load 0x0,0x7 0097 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0098 6842 |hB | Jump_Zero 0xdb 0099 e005 | | Load 0x0,0x5 009a 180e | | Execute Package,Field_Execute,Field_Number 0xe 009b 4802 |H | Short_Literal 0x2 009c 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "Copying file " 009e e40a | | Load 0x2,0xa 009f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00a0 e008 | | Load 0x0,0x8 00a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a2 01cc | | Execute Vector,Catenate 00a3 e006 | | Load 0x0,0x6 00a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a5 e405 | | Load 0x2,0x5 00a6 e402 | | Load 0x2,0x2 00a7 e404 | | Load 0x2,0x4 00a8 4801 |H | Short_Literal 0x1 00a9 e001 | | Load 0x0,0x1 00aa 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ab c404 | | Store 0x2,0x4 00ac 00d1 | | Pop_Control Pop_Count_1 00ad c405 | | Store 0x2,0x5 00ae 00cf | | Action Mark_Auxiliary 00af 7828 |x( | Jump 0xd8 00b0 e402 | | Load 0x2,0x2 00b1 00d8 | | Load_Top At_Offset_0 00b2 01da | | Execute Vector,Bounds 00b3 e00b | | Load 0x0,0xb 00b4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00b5 0334 | 4 | Declare_Variable Array,With_Constraint 00b6 00d0 | | Action Swap_Control 00b7 00d8 | | Load_Top At_Offset_0 00b8 01dd | | Execute Vector,First 00b9 00da | | Load_Top At_Offset_2 00ba 01dd | | Execute Vector,First 00bb 0272 | r | Execute Discrete,Minus 00bc 00da | | Load_Top At_Offset_2 00bd 01d9 | | Execute Vector,Reverse_Bounds 00be 0263 | c | Execute Discrete,Above_Bound 00bf 700a |p | Jump_Nonzero 0xca 00c0 00d8 | | Load_Top At_Offset_0 00c1 00db | | Load_Top At_Offset_3 00c2 0273 | s | Execute Discrete,Plus 00c3 e40e | | Load 0x2,0xe 00c4 01d7 | | Execute Vector,Field_Read 00c5 00d9 | | Load_Top At_Offset_1 00c6 e40d | | Load 0x2,0xd 00c7 01d5 | | Execute Vector,Field_Reference 00c8 0118 | | Execute Any,Write_Unchecked 00c9 3ff6 |? | Loop_Increasing 0xc0 00ca 00d2 | | Pop_Control Pop_Count_2 00cb e5fe | | Load 0x2,-0x2 00cc e007 | | Load 0x0,0x7 00cd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00ce e405 | | Load 0x2,0x5 00cf e402 | | Load 0x2,0x2 00d0 e404 | | Load 0x2,0x4 00d1 4801 |H | Short_Literal 0x1 00d2 e001 | | Load 0x0,0x1 00d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d4 c404 | | Store 0x2,0x4 00d5 00d1 | | Pop_Control Pop_Count_1 00d6 c405 | | Store 0x2,0x5 00d7 00c9 | | Action Pop_Auxiliary_Loop 00d8 e405 | | Load 0x2,0x5 00d9 6fd6 |o | Jump_Zero 0xb0 00da 00ce | | Action Pop_Auxiliary 00db 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00f5 | | .CONST 0x00f5 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0007 | | .CONST 0x0007 ; Number of locals 00e3 INIT_00e0: 00e3 0092 02ca | | Action Push_String_Extended,0x2ca ; "*.MLOAD" 00e5 e00c | | Load 0x0,0xc 00e6 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00e7 0322 | " | Declare_Variable Record 00e8 00d8 | | Load_Top At_Offset_0 00e9 1c00 | | Execute_Immediate Run_Utility,0x0 00ea e007 | | Load 0x0,0x7 00eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ec 481e |H | Short_Literal 0x1e 00ed e00d | | Load 0x0,0xd 00ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ef 1c08 | | Execute_Immediate Run_Utility,0x8 00f0 00d8 | | Load_Top At_Offset_0 00f1 1c00 | | Execute_Immediate Run_Utility,0x0 00f2 00e1 | | Load_Encached Boolean_Cache 00f3 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 00f5 BODY_00e0: 00f5 e007 | | Load 0x0,0x7 00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f7 4801 |H | Short_Literal 0x1 00f8 e5ff | | Load 0x2,-0x1 00f9 e008 | | Load 0x0,0x8 00fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fb e007 | | Load 0x0,0x7 00fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00fd c404 | | Store 0x2,0x4 00fe e403 | | Load 0x2,0x3 00ff e402 | | Load 0x2,0x2 0100 e00c | | Load 0x0,0xc 0101 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0102 00d1 | | Pop_Control Pop_Count_1 0103 00da | | Load_Top At_Offset_2 0104 e403 | | Load 0x2,0x3 0105 e00c | | Load 0x0,0xc 0106 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0107 00d2 | | Pop_Control Pop_Count_2 0108 00cf | | Action Mark_Auxiliary 0109 7812 |x | Jump 0x11c 010a 00db | | Load_Top At_Offset_3 010b e00d | | Load 0x0,0xd 010c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010d e5fe | | Load 0x2,-0x2 010e e00e | | Load 0x0,0xe 010f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0110 7005 |p | Jump_Nonzero 0x116 0111 e5fd | | Load 0x2,-0x3 0112 e405 | | Load 0x2,0x5 0113 e00d | | Load 0x0,0xd 0114 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0115 8407 | | Call 0x2,0x7 0116 00db | | Load_Top At_Offset_3 0117 e403 | | Load 0x2,0x3 0118 e00c | | Load 0x0,0xc 0119 181f | | Execute Package,Field_Execute,Field_Number 0x1f 011a 00d2 | | Pop_Control Pop_Count_2 011b 00c9 | | Action Pop_Auxiliary_Loop 011c e403 | | Load 0x2,0x3 011d e00c | | Load 0x0,0xc 011e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 011f 6fea |o | Jump_Zero 0x10a 0120 00ce | | Action Pop_Auxiliary 0121 00db | | Load_Top At_Offset_3 0122 4801 |H | Short_Literal 0x1 0123 e007 | | Load 0x0,0x7 0124 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0125 c404 | | Store 0x2,0x4 0126 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0142 | B | .CONST 0x0142 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0004 | | .CONST 0x0004 ; Number of locals 012b INIT_0128: 012b 4801 |H | Short_Literal 0x1 012c 00db | | Load_Top At_Offset_3 012d 483a |H: | Short_Literal 0x3a 012e e004 | | Load 0x0,0x4 012f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0130 00e2 | | Load_Encached Integer_Cache 0131 03f1 | | Declare_Variable Discrete,With_Value 0132 4801 |H | Short_Literal 0x1 0133 e5ff | | Load 0x2,-0x1 0134 482a |H* | Short_Literal 0x2a 0135 e004 | | Load 0x0,0x4 0136 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0137 00e2 | | Load_Encached Integer_Cache 0138 03f1 | | Declare_Variable Discrete,With_Value 0139 4801 |H | Short_Literal 0x1 013a e5ff | | Load 0x2,-0x1 013b 01dc | | Execute Vector,Last 013c 00e9 | | Load_Encached String_Cache 013d 035b | [ | Declare_Type Array,Constrained 013e 0337 | 7 | Declare_Variable Array 013f e5ff | | Load 0x2,-0x1 0140 00d9 | | Load_Top At_Offset_1 0141 01d4 | | Execute Vector,Structure_Write 0142 BODY_0128: 0142 00d9 | | Load_Top At_Offset_1 0143 0c01 | | Execute_Immediate Greater_Equal,0x1 0144 6804 |h | Jump_Zero 0x149 0145 4840 |H@ | Short_Literal 0x40 0146 00da | | Load_Top At_Offset_2 0147 00da | | Load_Top At_Offset_2 0148 01d6 | | Execute Vector,Field_Write 0149 00da | | Load_Top At_Offset_2 014a 0c01 | | Execute_Immediate Greater_Equal,0x1 014b 6813 |h | Jump_Zero 0x15f 014c 4820 |H | Short_Literal 0x20 014d 00db | | Load_Top At_Offset_3 014e 0a01 | | Execute_Immediate Plus,0x1 014f 00d8 | | Load_Top At_Offset_0 0150 00e2 | | Load_Encached Integer_Cache 0151 0260 | ` | Execute Discrete,In_Type 0152 7001 |p | Jump_Nonzero 0x154 0153 0801 | | Execute_Immediate Raise,0x1 0154 00da | | Load_Top At_Offset_2 0155 01dc | | Execute Vector,Last 0156 00db | | Load_Top At_Offset_3 0157 01cf | | Execute Vector,Slice_Read 0158 e004 | | Load 0x0,0x4 0159 181c | | Execute Package,Field_Execute,Field_Number 0x1c 015a e004 | | Load 0x0,0x4 015b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015c 00e9 | | Load_Encached String_Cache 015d 01c6 | | Execute Vector,Convert_To_Formal 015e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015f 0092 02cb | | Action Push_String_Extended,0x2cb ; "?" 0161 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0172 | r | .CONST 0x0172 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b 4801 |H | Short_Literal 0x1 016c 00db | | Load_Top At_Offset_3 016d 483a |H: | Short_Literal 0x3a 016e e004 | | Load 0x0,0x4 016f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0170 00e2 | | Load_Encached Integer_Cache 0171 03f1 | | Declare_Variable Discrete,With_Value 0172 BODY_0168: 0172 00d8 | | Load_Top At_Offset_0 0173 0c01 | | Execute_Immediate Greater_Equal,0x1 0174 680e |h | Jump_Zero 0x183 0175 00db | | Load_Top At_Offset_3 0176 01dd | | Execute Vector,First 0177 00d9 | | Load_Top At_Offset_1 0178 0aff | | Execute_Immediate Plus,-0x1 0179 00d8 | | Load_Top At_Offset_0 017a 00e2 | | Load_Encached Integer_Cache 017b 0260 | ` | Execute Discrete,In_Type 017c 7001 |p | Jump_Nonzero 0x17e 017d 0801 | | Execute_Immediate Raise,0x1 017e e5ff | | Load 0x2,-0x1 017f 01cf | | Execute Vector,Slice_Read 0180 0335 | 5 | Declare_Variable Array,Duplicate 0181 00cd | | Action Spare6_Action 0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0183 00db | | Load_Top At_Offset_3 0184 0335 | 5 | Declare_Variable Array,Duplicate 0185 00cd | | Action Spare6_Action 0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0187 0000 | | .XXX[0x1] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0191 | | .CONST 0x0191 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0003 | | .CONST 0x0003 ; Number of locals 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 01dd | | Execute Vector,First 018d 00e2 | | Load_Encached Integer_Cache 018e 03f1 | | Declare_Variable Discrete,With_Value 018f 00e2 | | Load_Encached Integer_Cache 0190 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0191 BODY_0188: 0191 00cf | | Action Mark_Auxiliary 0192 e5ff | | Load 0x2,-0x1 0193 01d9 | | Execute Vector,Reverse_Bounds 0194 0263 | c | Execute Discrete,Above_Bound 0195 701f |p | Jump_Nonzero 0x1b5 0196 00d8 | | Load_Top At_Offset_0 0197 e5ff | | Load 0x2,-0x1 0198 01d7 | | Execute Vector,Field_Read 0199 0f20 | | Execute_Immediate Equal,0x20 019a 6818 |h | Jump_Zero 0x1b3 019b e402 | | Load 0x2,0x2 019c 00d9 | | Load_Top At_Offset_1 019d 027f | | Execute Discrete,Equal 019e 6804 |h | Jump_Zero 0x1a3 019f 00d8 | | Load_Top At_Offset_0 01a0 0a01 | | Execute_Immediate Plus,0x1 01a1 c402 | | Store 0x2,0x2 01a2 7810 |x | Jump 0x1b3 01a3 00db | | Load_Top At_Offset_3 01a4 0a01 | | Execute_Immediate Plus,0x1 01a5 c403 | | Store 0x2,0x3 01a6 00db | | Load_Top At_Offset_3 01a7 e5fe | | Load 0x2,-0x2 01a8 027f | | Execute Discrete,Equal 01a9 6806 |h | Jump_Zero 0x1b0 01aa e402 | | Load 0x2,0x2 01ab 00d9 | | Load_Top At_Offset_1 01ac 0aff | | Execute_Immediate Plus,-0x1 01ad e5ff | | Load 0x2,-0x1 01ae 01cf | | Execute Vector,Slice_Read 01af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b0 00d8 | | Load_Top At_Offset_0 01b1 0a01 | | Execute_Immediate Plus,0x1 01b2 c402 | | Store 0x2,0x2 01b3 00c8 | | Action Pop_Auxiliary_Range 01b4 3fe1 |? | Loop_Increasing 0x196 01b5 00ce | | Action Pop_Auxiliary 01b6 00d8 | | Load_Top At_Offset_0 01b7 0a01 | | Execute_Immediate Plus,0x1 01b8 0059 | Y | Store_Top Discrete,At_Offset_1 01b9 00d8 | | Load_Top At_Offset_0 01ba e5fe | | Load 0x2,-0x2 01bb 027f | | Execute Discrete,Equal 01bc 6806 |h | Jump_Zero 0x1c3 01bd 00d9 | | Load_Top At_Offset_1 01be e5ff | | Load 0x2,-0x1 01bf 01dc | | Execute Vector,Last 01c0 e5ff | | Load 0x2,-0x1 01c1 01cf | | Execute Vector,Slice_Read 01c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c3 00ea | | Load_Encached Null_String_Cache 01c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01ef | | .CONST 0x01ef ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 000d | | .CONST 0x000d ; Number of locals 01cb INIT_01c8: 01cb 4802 |H | Short_Literal 0x2 01cc 032a | * | Declare_Type Record,Incomplete 01cd 00d8 | | Load_Top At_Offset_0 01ce 02a0 | | Declare_Subprogram Null_Subprogram 01cf 4818 |H | Short_Literal 0x18 01d0 03d3 | | Declare_Type Access,Defined,Accesses_Protected 01d1 481e |H | Short_Literal 0x1e 01d2 e008 | | Load 0x0,0x8 01d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d4 1c07 | | Execute_Immediate Run_Utility,0x7 01d5 00d9 | | Load_Top At_Offset_1 01d6 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 01d8 e602 | | Load 0x3,0x2 01d9 0326 | & | Complete_Type Record,By_Defining 01da e001 | | Load 0x0,0x1 01db 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01dc 00e1 | | Load_Encached Boolean_Cache 01dd e001 | | Load 0x0,0x1 01de 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01df e001 | | Load 0x0,0x1 01e0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e1 e00f | | Load 0x0,0xf 01e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e3 02c7 | | Declare_Variable Any 01e4 00d8 | | Load_Top At_Offset_0 01e5 1c00 | | Execute_Immediate Run_Utility,0x0 01e6 e603 | | Load 0x3,0x3 01e7 0007 | | Action Break_Optional 01e8 00d8 | | Load_Top At_Offset_0 01e9 0007 | | Action Break_Optional 01ea 0092 02cc | | Action Push_String_Extended,0x2cc ; "!Machine.Temporary.temp_mload" 01ec 00ea | | Load_Encached Null_String_Cache 01ed 029f 028b | | Declare_Subprogram INIT_0288,For_Call 01ef BODY_01c8: 01ef e606 | | Load 0x3,0x6 01f0 4801 |H | Short_Literal 0x1 01f1 e60b | | Load 0x3,0xb 01f2 e7ff | | Load 0x3,-0x1 01f3 e001 | | Load 0x0,0x1 01f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f5 c606 | | Store 0x3,0x6 01f6 e608 | | Load 0x3,0x8 01f7 00ea | | Load_Encached Null_String_Cache 01f8 e60b | | Load 0x3,0xb 01f9 4800 |H | Short_Literal 0x0 01fa e00f | | Load 0x0,0xf 01fb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01fc c608 | | Store 0x3,0x8 01fd 00cf | | Action Mark_Auxiliary 01fe 7802 |x | Jump 0x201 01ff 860d | | Call 0x3,0xd 0200 00c9 | | Action Pop_Auxiliary_Loop 0201 e608 | | Load 0x3,0x8 0202 e00f | | Load 0x0,0xf 0203 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0204 6ffa |o | Jump_Zero 0x1ff 0205 00ce | | Action Pop_Auxiliary 0206 e608 | | Load 0x3,0x8 0207 e00f | | Load 0x0,0xf 0208 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0209 c608 | | Store 0x3,0x8 020a e005 | | Load 0x0,0x5 020b 180e | | Execute Package,Field_Execute,Field_Number 0xe 020c 4802 |H | Short_Literal 0x2 020d 0092 02cd | | Action Push_String_Extended,0x2cd ; "Files referenced by " 020f e7ff | | Load 0x3,-0x1 0210 01cc | | Execute Vector,Catenate 0211 0092 02ce | | Action Push_String_Extended,0x2ce ; " are being traversed" 0213 01cc | | Execute Vector,Catenate 0214 e006 | | Load 0x0,0x6 0215 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0216 00cf | | Action Mark_Auxiliary 0217 784d |xM | Jump 0x265 0218 e7fe | | Load 0x3,-0x2 0219 7039 |p9 | Jump_Nonzero 0x253 021a e607 | | Load 0x3,0x7 021b e604 | | Load 0x3,0x4 021c 4801 |H | Short_Literal 0x1 021d 4800 |H | Short_Literal 0x0 021e 4800 |H | Short_Literal 0x0 021f e609 | | Load 0x3,0x9 0220 0227 | ' | Execute Access,All_Reference 0221 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0222 e008 | | Load 0x0,0x8 0223 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0224 e001 | | Load 0x0,0x1 0225 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0226 c604 | | Store 0x3,0x4 0227 c607 | | Store 0x3,0x7 0228 e607 | | Load 0x3,0x7 0229 6813 |h | Jump_Zero 0x23d 022a e005 | | Load 0x0,0x5 022b 180e | | Execute Package,Field_Execute,Field_Number 0xe 022c 4807 |H | Short_Literal 0x7 022d e609 | | Load 0x3,0x9 022e 0227 | ' | Execute Access,All_Reference 022f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0230 e008 | | Load 0x0,0x8 0231 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0232 0092 02cf | | Action Push_String_Extended,0x2cf ; " referenced by " 0234 01cc | | Execute Vector,Catenate 0235 e7ff | | Load 0x3,-0x1 0236 01cc | | Execute Vector,Catenate 0237 0092 02d0 | | Action Push_String_Extended,0x2d0 ; ", is not in the Dfs" 0239 01cc | | Execute Vector,Catenate 023a e006 | | Load 0x0,0x6 023b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 023c 7823 |x# | Jump 0x260 023d e604 | | Load 0x3,0x4 023e e607 | | Load 0x3,0x7 023f e60c | | Load 0x3,0xc 0240 4801 |H | Short_Literal 0x1 0241 4800 |H | Short_Literal 0x0 0242 e001 | | Load 0x0,0x1 0243 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0244 c607 | | Store 0x3,0x7 0245 c604 | | Store 0x3,0x4 0246 e605 | | Load 0x3,0x5 0247 e5ff | | Load 0x2,-0x1 0248 e008 | | Load 0x0,0x8 0249 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024a e404 | | Load 0x2,0x4 024b e609 | | Load 0x3,0x9 024c 0227 | ' | Execute Access,All_Reference 024d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 024e e008 | | Load 0x0,0x8 024f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0250 820d | | Call 0x1,0xd 0251 c605 | | Store 0x3,0x5 0252 780d |x | Jump 0x260 0253 e005 | | Load 0x0,0x5 0254 180e | | Execute Package,Field_Execute,Field_Number 0xe 0255 4802 |H | Short_Literal 0x2 0256 e609 | | Load 0x3,0x9 0257 0227 | ' | Execute Access,All_Reference 0258 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0259 e008 | | Load 0x0,0x8 025a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 025b 0092 02d1 | | Action Push_String_Extended,0x2d1 ; " would have been copied" 025d 01cc | | Execute Vector,Catenate 025e e006 | | Load 0x0,0x6 025f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0260 e609 | | Load 0x3,0x9 0261 0227 | ' | Execute Access,All_Reference 0262 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0263 a609 | | Store_Unchecked 0x3,0x9 0264 00c9 | | Action Pop_Auxiliary_Loop 0265 e609 | | Load 0x3,0x9 0266 77b1 |w | Jump_Nonzero 0x218 0267 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 4608 |F | Jump_Case 0x9 026c 7808 |x | Jump 0x275 ; case 0x0 026d 780e |x | Jump 0x27c ; case 0x1 026e 7811 |x | Jump 0x280 ; case 0x2 026f 7810 |x | Jump 0x280 ; case 0x3 0270 780f |x | Jump 0x280 ; case 0x4 0271 780e |x | Jump 0x280 ; case 0x5 0272 780d |x | Jump 0x280 ; case 0x6 0273 780c |x | Jump 0x280 ; case 0x7 0274 780b |x | Jump 0x280 ; case 0x8 0275 00da | | Load_Top At_Offset_2 0276 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0277 0125 | % | Execute Any,Set_Constraint 0278 00da | | Load_Top At_Offset_2 0279 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 027a 1c00 | | Execute_Immediate Run_Utility,0x0 027b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 027c 00da | | Load_Top At_Offset_2 027d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 027e 0125 | % | Execute Any,Set_Constraint 027f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0280 0869 | i | Execute_Immediate Raise,0x69 0281 0000 0000 | | .BLANK 0000[0x7] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028e | | .CONST 0x028e ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b e608 | | Load 0x3,0x8 028c e00f | | Load 0x0,0xf 028d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 028e BODY_0288: 028e 4801 |H | Short_Literal 0x1 028f 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "LOAD" 0291 4801 |H | Short_Literal 0x1 0292 00db | | Load_Top At_Offset_3 0293 8211 | | Call 0x1,0x11 0294 e004 | | Load 0x0,0x4 0295 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0296 682f |h/ | Jump_Zero 0x2c6 0297 e60a | | Load 0x3,0xa 0298 7015 |p | Jump_Nonzero 0x2ae 0299 e602 | | Load 0x3,0x2 029a 0322 | " | Declare_Variable Record 029b 00d8 | | Load_Top At_Offset_0 029c 1c01 | | Execute_Immediate Run_Utility,0x1 029d 481e |H | Short_Literal 0x1e 029e 4802 |H | Short_Literal 0x2 029f 00db | | Load_Top At_Offset_3 02a0 8211 | | Call 0x1,0x11 02a1 e008 | | Load 0x0,0x8 02a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02a3 00d9 | | Load_Top At_Offset_1 02a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02a5 e603 | | Load 0x3,0x3 02a6 00d9 | | Load_Top At_Offset_1 02a7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02a8 e603 | | Load 0x3,0x3 02a9 03b6 | | Declare_Variable Access,By_Allocation,With_Value 02aa a60a | | Store_Unchecked 0x3,0xa 02ab e60a | | Load 0x3,0xa 02ac a609 | | Store_Unchecked 0x3,0x9 02ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ae e602 | | Load 0x3,0x2 02af 0322 | " | Declare_Variable Record 02b0 00d8 | | Load_Top At_Offset_0 02b1 1c01 | | Execute_Immediate Run_Utility,0x1 02b2 481e |H | Short_Literal 0x1e 02b3 4802 |H | Short_Literal 0x2 02b4 00db | | Load_Top At_Offset_3 02b5 8211 | | Call 0x1,0x11 02b6 e008 | | Load 0x0,0x8 02b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02b8 00d9 | | Load_Top At_Offset_1 02b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02ba e603 | | Load 0x3,0x3 02bb 00d9 | | Load_Top At_Offset_1 02bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02bd e603 | | Load 0x3,0x3 02be 03b6 | | Declare_Variable Access,By_Allocation,With_Value 02bf e60a | | Load 0x3,0xa 02c0 0227 | ' | Execute Access,All_Reference 02c1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02c2 e60a | | Load 0x3,0xa 02c3 0227 | ' | Execute Access,All_Reference 02c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02c5 a60a | | Store_Unchecked 0x3,0xa 02c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c7 ; -------------------------------------------------------------------------------------- 02c7 ; STRING TABLE 02c7 ; -------------------------------------------------------------------------------------- 02c7 001a | | .STRTAB 0x001a->0x02d4 ; "!!" 02c8 001a | | .STRTAB 0x001a->0x02d5 ; "Remote access is not currently supported" 02c9 0040 | @ | .STRTAB 0x0040->0x02e9 ; "Copying file " 02ca 004b | K | .STRTAB 0x004b->0x02ef ; "*.MLOAD" 02cb 0050 | P | .STRTAB 0x0050->0x02f3 ; "?" 02cc 004f | O | .STRTAB 0x004f->0x02f3 ; "!Machine.Temporary.temp_mload" 02cd 006a | j | .STRTAB 0x006a->0x0302 ; "Files referenced by " 02ce 007c | | | .STRTAB 0x007c->0x030c ; " are being traversed" 02cf 008e | | .STRTAB 0x008e->0x0316 ; " referenced by " 02d0 009b | | .STRTAB 0x009b->0x031d ; ", is not in the Dfs" 02d1 00ac | | .STRTAB 0x00ac->0x0327 ; " would have been copied" 02d2 00c1 | | .STRTAB 0x00c1->0x0332 ; "LOAD" 02d3 00c3 | | .STREND 0x00c3->0x0334 02d4 2121 5265 |!!Re| .STRTAB_STRINGS 0335 0000 0000 | | .XXX[0x3] 0337 0000 | | 0338 ; -------------------------------------------------------------------------------------- 0338 ; Debug Table 0338 ; -------------------------------------------------------------------------------------- 0338 0004 0010 | | .DEBUG4 0x0004,0x0010,0x9c06,0x0000,0x0001,0x0000 033e 0000 0000 | | .XXX[0x14] 0340 e70c 6140 | a@| 0342 7385 1740 |s @| 0344 000c a800 | | 0346 0e70 a4e8 | p | 0348 0e70 af80 | p | 034a 0003 4820 | H | 034c 1cc7 f4d0 | | 034e 0000 0000 | | 0350 1ce1 7430 | t0| 0352 0000 0000 | | .BLANK 0000[0x4] 0356 000b 0da0 | | .XXX[0x9] 0358 1000 0346 | F| 035a d0c3 d42e | .| 035c 0047 0000 | G | 035e 68da |h | 035f 0000 0000 | | .BLANK 0000[0xe] 036d 0200 | | .XXX[0x1] 036e 0000 0000 | | .BLANK 0000[0x4] 0372 e000 0000 | | .XXX[0x17] 0374 0039 c2f8 | 9 | 0376 8000 0000 | | 0378 0000 0000 | | 037a 8000 0000 | | 037c 0000 0000 | | 037e 2000 161b | | 0380 8000 0000 | | 0382 0073 8610 | s | 0384 e000 0000 | | 0386 8000 2c36 | ,6| 0388 8000 | | 0389 0000 0000 | | .BLANK 0000[0x4] 038d 0002 4000 | @ | .XXX[0x1a] 038f 0d20 8073 | s| 0391 8506 8000 | | 0393 0000 0000 | | 0395 0000 0039 | 9| 0397 c334 c000 | 4 | 0399 00a8 7c07 | | | 039b 3867 9807 |8g | 039d 386c e400 |8l | 039f 006b 600e | k` | 03a1 6ec9 a800 |n | 03a3 0000 000e | | 03a5 70e4 6000 |p ` | 03a7 0000 0000 | | .BLANK 0000[0x4] 03ab 0168 b008 | h | .XXX[0x11] 03ad 0000 6b40 | k@| 03af 206a 0100 | j | 03b1 2200 000d |" | 03b3 6800 000d |h | 03b5 6c01 cdd9 |l | 03b7 3500 0000 |5 | 03b9 0001 ce1e | | 03bb 0b00 | | 03bc 0000 0000 | | .BLANK 0000[0x4] 03c0 002d 1601 | - | .XXX[0x1d] 03c2 0000 0d68 | h| 03c4 040d 4020 | @ | 03c6 0440 0001 | @ | 03c8 ad00 1ce1 | | 03ca d0d0 0000 | | 03cc 0000 0000 | | 03ce 0040 0000 | @ | 03d0 0000 0000 | | 03d2 0010 0003 | | 03d4 62e0 0000 |b | 03d6 0000 39c3 | 9 | 03d8 b190 0000 | | 03da 0040 0005 | @ | 03dc a2c0 | | 03dd 0000 0000 | | .BLANK 0000[0x4] 03e1 39c3 d180 |9 | .XXX[0xc] 03e3 0000 0000 | | 03e5 0000 0040 | @| 03e7 0000 0000 | | 03e9 0000 0020 | | 03eb 0005 a2c0 | | 03ed 0000 0000 | | .BLANK 0000[0x5] 03f2 0120 0001 | | .XXX[0x5] 03f4 ad80 39c3 | 9 | 03f6 2c60 |,` | 03f7 0000 0000 | | .BLANK 0000[0x4] 03fb 1ce1 fef0 | | .XXX[0x5] 03fd 0003 2a00 | * | 03ff 039c | |