|
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_03bcfe
└─⟦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 0318 | | .CONST 0x0318 ; 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 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0011 029a 0153 | S| Declare_Subprogram INIT_0150,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 0173 | s| Declare_Subprogram INIT_0170,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 0035 | 5 | .CONST 0x0035 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 000b | | .CONST 0x000b ; Number of locals 0023 INIT_0020: 0023 e002 | | Load 0x0,0x2 0024 0337 | 7 | Declare_Variable Array 0025 00d8 | | Load_Top At_Offset_0 0026 0337 | 7 | Declare_Variable Array 0027 e003 | | Load 0x0,0x3 0028 0007 | | Action Break_Optional 0029 e004 | | Load 0x0,0x4 002a 0007 | | Action Break_Optional 002b e005 | | Load 0x0,0x5 002c 0322 | " | Declare_Variable Record 002d 00e2 | | Load_Encached Integer_Cache 002e 03e9 | | Declare_Variable Discrete,Duplicate 002f 03e9 | | Declare_Variable Discrete,Duplicate 0030 e006 | | Load 0x0,0x6 0031 0322 | " | Declare_Variable Record 0032 00d8 | | Load_Top At_Offset_0 0033 1c00 | | Execute_Immediate Run_Utility,0x0 0034 00e1 | | Load_Encached Boolean_Cache 0035 BODY_0020: 0035 4801 |H | Short_Literal 0x1 0036 a5fc | | Store_Unchecked 0x2,-0x4 0037 4801 |H | Short_Literal 0x1 0038 e5ff | | Load 0x2,-0x1 0039 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "!!" 003b e007 | | Load 0x0,0x7 003c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 003d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 003e 00da | | Load_Top At_Offset_2 003f 6808 |h | Jump_Zero 0x48 0040 e008 | | Load 0x0,0x8 0041 180e | | Execute Package,Field_Execute,Field_Number 0xe 0042 4802 |H | Short_Literal 0x2 0043 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "Remote access is not currently supported" 0045 e009 | | Load 0x0,0x9 0046 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0047 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0048 e405 | | Load 0x2,0x5 0049 e404 | | Load 0x2,0x4 004a 4801 |H | Short_Literal 0x1 004b 4800 |H | Short_Literal 0x0 004c 4800 |H | Short_Literal 0x0 004d e5ff | | Load 0x2,-0x1 004e 800a | | Call 0x0,0xa 004f c404 | | Store 0x2,0x4 0050 c405 | | Store 0x2,0x5 0051 e405 | | Load 0x2,0x5 0052 707c |p| | Jump_Nonzero 0xcf 0053 e5fe | | Load 0x2,-0x2 0054 800b | | Call 0x0,0xb 0055 6837 |h7 | Jump_Zero 0x8d 0056 e5fd | | Load 0x2,-0x3 0057 01db | | Execute Vector,Length 0058 7007 |p | Jump_Nonzero 0x60 0059 00d9 | | Load_Top At_Offset_1 005a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 005b e5ff | | Load 0x2,-0x1 005c e00c | | Load 0x0,0xc 005d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005e 00d1 | | Pop_Control Pop_Count_1 005f 7806 |x | Jump 0x66 0060 00d9 | | Load_Top At_Offset_1 0061 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0062 e5fd | | Load 0x2,-0x3 0063 e00c | | Load 0x0,0xc 0064 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0065 00d1 | | Pop_Control Pop_Count_1 0066 e406 | | Load 0x2,0x6 0067 00e1 | | Load_Encached Boolean_Cache 0068 00e1 | | Load_Encached Boolean_Cache 0069 00e1 | | Load_Encached Boolean_Cache 006a 00e2 | | Load_Encached Integer_Cache 006b e404 | | Load 0x2,0x4 006c 800d | | Call 0x0,0xd 006d c408 | | Store 0x2,0x8 006e e40a | | Load 0x2,0xa 006f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0070 e40a | | Load 0x2,0xa 0071 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0072 005a | Z | Store_Top Discrete,At_Offset_2 0073 00d1 | | Pop_Control Pop_Count_1 0074 00d9 | | Load_Top At_Offset_1 0075 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0076 0120 | | Execute Any,Is_Value 0077 6803 |h | Jump_Zero 0x7b 0078 e00e | | Load 0x0,0xe 0079 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007a 7802 |x | Jump 0x7d 007b 00d9 | | Load_Top At_Offset_1 007c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 007d e406 | | Load 0x2,0x6 007e 800f | | Call 0x0,0xf 007f 00da | | Load_Top At_Offset_2 0080 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0081 00db | | Load_Top At_Offset_3 0082 090a | | Execute_Immediate Binary_Scale,0xa 0083 00da | | Load_Top At_Offset_2 0084 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0085 4801 |H | Short_Literal 0x1 0086 00da | | Load_Top At_Offset_2 0087 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0088 00d9 | | Load_Top At_Offset_1 0089 4800 |H | Short_Literal 0x0 008a e5fe | | Load 0x2,-0x2 008b 8010 | | Call 0x0,0x10 008c 00d1 | | Pop_Control Pop_Count_1 008d e5fe | | Load 0x2,-0x2 008e 8011 | | Call 0x0,0x11 008f 683f |h? | Jump_Zero 0xcf 0090 e008 | | Load 0x0,0x8 0091 180e | | Execute Package,Field_Execute,Field_Number 0xe 0092 4802 |H | Short_Literal 0x2 0093 0092 02a9 | | Action Push_String_Extended,0x2a9 ; "Copying file " 0095 e40a | | Load 0x2,0xa 0096 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0097 e00c | | Load 0x0,0xc 0098 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0099 01cc | | Execute Vector,Catenate 009a e009 | | Load 0x0,0x9 009b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009c e405 | | Load 0x2,0x5 009d e402 | | Load 0x2,0x2 009e e404 | | Load 0x2,0x4 009f 4801 |H | Short_Literal 0x1 00a0 8012 | | Call 0x0,0x12 00a1 c404 | | Store 0x2,0x4 00a2 00d1 | | Pop_Control Pop_Count_1 00a3 c405 | | Store 0x2,0x5 00a4 00cf | | Action Mark_Auxiliary 00a5 7826 |x& | Jump 0xcc 00a6 e402 | | Load 0x2,0x2 00a7 00d8 | | Load_Top At_Offset_0 00a8 01da | | Execute Vector,Bounds 00a9 e013 | | Load 0x0,0x13 00aa 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ab 0334 | 4 | Declare_Variable Array,With_Constraint 00ac 00d0 | | Action Swap_Control 00ad 00d8 | | Load_Top At_Offset_0 00ae 01dd | | Execute Vector,First 00af 00da | | Load_Top At_Offset_2 00b0 01dd | | Execute Vector,First 00b1 0272 | r | Execute Discrete,Minus 00b2 00da | | Load_Top At_Offset_2 00b3 01d9 | | Execute Vector,Reverse_Bounds 00b4 0263 | c | Execute Discrete,Above_Bound 00b5 700a |p | Jump_Nonzero 0xc0 00b6 00d8 | | Load_Top At_Offset_0 00b7 00db | | Load_Top At_Offset_3 00b8 0273 | s | Execute Discrete,Plus 00b9 e40e | | Load 0x2,0xe 00ba 01d7 | | Execute Vector,Field_Read 00bb 00d9 | | Load_Top At_Offset_1 00bc e40d | | Load 0x2,0xd 00bd 01d5 | | Execute Vector,Field_Reference 00be 0118 | | Execute Any,Write_Unchecked 00bf 3ff6 |? | Loop_Increasing 0xb6 00c0 00d2 | | Pop_Control Pop_Count_2 00c1 e5fe | | Load 0x2,-0x2 00c2 8014 | | Call 0x0,0x14 00c3 e405 | | Load 0x2,0x5 00c4 e402 | | Load 0x2,0x2 00c5 e404 | | Load 0x2,0x4 00c6 4801 |H | Short_Literal 0x1 00c7 8012 | | Call 0x0,0x12 00c8 c404 | | Store 0x2,0x4 00c9 00d1 | | Pop_Control Pop_Count_1 00ca c405 | | Store 0x2,0x5 00cb 00c9 | | Action Pop_Auxiliary_Loop 00cc e405 | | Load 0x2,0x5 00cd 6fd8 |o | Jump_Zero 0xa6 00ce 00ce | | Action Pop_Auxiliary 00cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e4 | | .CONST 0x00e4 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0007 | | .CONST 0x0007 ; Number of locals 00d3 INIT_00d0: 00d3 0092 02aa | | Action Push_String_Extended,0x2aa ; "*.MLOAD" 00d5 e015 | | Load 0x0,0x15 00d6 0322 | " | Declare_Variable Record 00d7 00d8 | | Load_Top At_Offset_0 00d8 1c00 | | Execute_Immediate Run_Utility,0x0 00d9 e016 | | Load 0x0,0x16 00da 0007 | | Action Break_Optional 00db 481e |H | Short_Literal 0x1e 00dc e017 | | Load 0x0,0x17 00dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00de 1c08 | | Execute_Immediate Run_Utility,0x8 00df 00d8 | | Load_Top At_Offset_0 00e0 1c00 | | Execute_Immediate Run_Utility,0x0 00e1 00e1 | | Load_Encached Boolean_Cache 00e2 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 00e4 BODY_00d0: 00e4 e016 | | Load 0x0,0x16 00e5 4801 |H | Short_Literal 0x1 00e6 e5ff | | Load 0x2,-0x1 00e7 e00c | | Load 0x0,0xc 00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e9 8018 | | Call 0x0,0x18 00ea c404 | | Store 0x2,0x4 00eb e403 | | Load 0x2,0x3 00ec e402 | | Load 0x2,0x2 00ed 8019 | | Call 0x0,0x19 00ee 00d1 | | Pop_Control Pop_Count_1 00ef 00da | | Load_Top At_Offset_2 00f0 e403 | | Load 0x2,0x3 00f1 801a | | Call 0x0,0x1a 00f2 00d2 | | Pop_Control Pop_Count_2 00f3 00cf | | Action Mark_Auxiliary 00f4 7811 |x | Jump 0x106 00f5 00db | | Load_Top At_Offset_3 00f6 e017 | | Load 0x0,0x17 00f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f8 e5fe | | Load 0x2,-0x2 00f9 e01b | | Load 0x0,0x1b 00fa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00fb 7005 |p | Jump_Nonzero 0x101 00fc e5fd | | Load 0x2,-0x3 00fd e405 | | Load 0x2,0x5 00fe e017 | | Load 0x0,0x17 00ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0100 8407 | | Call 0x2,0x7 0101 00db | | Load_Top At_Offset_3 0102 e403 | | Load 0x2,0x3 0103 801a | | Call 0x0,0x1a 0104 00d2 | | Pop_Control Pop_Count_2 0105 00c9 | | Action Pop_Auxiliary_Loop 0106 e403 | | Load 0x2,0x3 0107 801c | | Call 0x0,0x1c 0108 6fec |o | Jump_Zero 0xf5 0109 00ce | | Action Pop_Auxiliary 010a 00db | | Load_Top At_Offset_3 010b 4801 |H | Short_Literal 0x1 010c 801d | | Call 0x0,0x1d 010d c404 | | Store 0x2,0x4 010e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010f 0000 | | .XXX[0x1] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 012a | * | .CONST 0x012a ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0004 | | .CONST 0x0004 ; Number of locals 0113 INIT_0110: 0113 4801 |H | Short_Literal 0x1 0114 00db | | Load_Top At_Offset_3 0115 483a |H: | Short_Literal 0x3a 0116 e007 | | Load 0x0,0x7 0117 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0118 00e2 | | Load_Encached Integer_Cache 0119 03f1 | | Declare_Variable Discrete,With_Value 011a 4801 |H | Short_Literal 0x1 011b e5ff | | Load 0x2,-0x1 011c 482a |H* | Short_Literal 0x2a 011d e007 | | Load 0x0,0x7 011e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 011f 00e2 | | Load_Encached Integer_Cache 0120 03f1 | | Declare_Variable Discrete,With_Value 0121 4801 |H | Short_Literal 0x1 0122 e5ff | | Load 0x2,-0x1 0123 01dc | | Execute Vector,Last 0124 00e9 | | Load_Encached String_Cache 0125 035b | [ | Declare_Type Array,Constrained 0126 0337 | 7 | Declare_Variable Array 0127 e5ff | | Load 0x2,-0x1 0128 00d9 | | Load_Top At_Offset_1 0129 01d4 | | Execute Vector,Structure_Write 012a BODY_0110: 012a 00d9 | | Load_Top At_Offset_1 012b 0c01 | | Execute_Immediate Greater_Equal,0x1 012c 6804 |h | Jump_Zero 0x131 012d 4840 |H@ | Short_Literal 0x40 012e 00da | | Load_Top At_Offset_2 012f 00da | | Load_Top At_Offset_2 0130 01d6 | | Execute Vector,Field_Write 0131 00da | | Load_Top At_Offset_2 0132 0c01 | | Execute_Immediate Greater_Equal,0x1 0133 6813 |h | Jump_Zero 0x147 0134 4820 |H | Short_Literal 0x20 0135 00db | | Load_Top At_Offset_3 0136 0a01 | | Execute_Immediate Plus,0x1 0137 00d8 | | Load_Top At_Offset_0 0138 00e2 | | Load_Encached Integer_Cache 0139 0260 | ` | Execute Discrete,In_Type 013a 7001 |p | Jump_Nonzero 0x13c 013b 0801 | | Execute_Immediate Raise,0x1 013c 00da | | Load_Top At_Offset_2 013d 01dc | | Execute Vector,Last 013e 00db | | Load_Top At_Offset_3 013f 01cf | | Execute Vector,Slice_Read 0140 e007 | | Load 0x0,0x7 0141 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0142 e007 | | Load 0x0,0x7 0143 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0144 00e9 | | Load_Encached String_Cache 0145 01c6 | | Execute Vector,Convert_To_Formal 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 0092 02ab | | Action Push_String_Extended,0x2ab ; "?" 0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014a 0000 0000 | | .BLANK 0000[0x6] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 015a | Z | .CONST 0x015a ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 4801 |H | Short_Literal 0x1 0154 00db | | Load_Top At_Offset_3 0155 483a |H: | Short_Literal 0x3a 0156 e007 | | Load 0x0,0x7 0157 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0158 00e2 | | Load_Encached Integer_Cache 0159 03f1 | | Declare_Variable Discrete,With_Value 015a BODY_0150: 015a 00d8 | | Load_Top At_Offset_0 015b 0c01 | | Execute_Immediate Greater_Equal,0x1 015c 680e |h | Jump_Zero 0x16b 015d 00db | | Load_Top At_Offset_3 015e 01dd | | Execute Vector,First 015f 00d9 | | Load_Top At_Offset_1 0160 0aff | | Execute_Immediate Plus,-0x1 0161 00d8 | | Load_Top At_Offset_0 0162 00e2 | | Load_Encached Integer_Cache 0163 0260 | ` | Execute Discrete,In_Type 0164 7001 |p | Jump_Nonzero 0x166 0165 0801 | | Execute_Immediate Raise,0x1 0166 e5ff | | Load 0x2,-0x1 0167 01cf | | Execute Vector,Slice_Read 0168 0335 | 5 | Declare_Variable Array,Duplicate 0169 00cd | | Action Spare6_Action 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b 00db | | Load_Top At_Offset_3 016c 0335 | 5 | Declare_Variable Array,Duplicate 016d 00cd | | Action Spare6_Action 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0179 | y | .CONST 0x0179 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 01dd | | Execute Vector,First 0175 00e2 | | Load_Encached Integer_Cache 0176 03f1 | | Declare_Variable Discrete,With_Value 0177 00e2 | | Load_Encached Integer_Cache 0178 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0179 BODY_0170: 0179 00cf | | Action Mark_Auxiliary 017a e5ff | | Load 0x2,-0x1 017b 01d9 | | Execute Vector,Reverse_Bounds 017c 0263 | c | Execute Discrete,Above_Bound 017d 701f |p | Jump_Nonzero 0x19d 017e 00d8 | | Load_Top At_Offset_0 017f e5ff | | Load 0x2,-0x1 0180 01d7 | | Execute Vector,Field_Read 0181 0f20 | | Execute_Immediate Equal,0x20 0182 6818 |h | Jump_Zero 0x19b 0183 e402 | | Load 0x2,0x2 0184 00d9 | | Load_Top At_Offset_1 0185 027f | | Execute Discrete,Equal 0186 6804 |h | Jump_Zero 0x18b 0187 00d8 | | Load_Top At_Offset_0 0188 0a01 | | Execute_Immediate Plus,0x1 0189 c402 | | Store 0x2,0x2 018a 7810 |x | Jump 0x19b 018b 00db | | Load_Top At_Offset_3 018c 0a01 | | Execute_Immediate Plus,0x1 018d c403 | | Store 0x2,0x3 018e 00db | | Load_Top At_Offset_3 018f e5fe | | Load 0x2,-0x2 0190 027f | | Execute Discrete,Equal 0191 6806 |h | Jump_Zero 0x198 0192 e402 | | Load 0x2,0x2 0193 00d9 | | Load_Top At_Offset_1 0194 0aff | | Execute_Immediate Plus,-0x1 0195 e5ff | | Load 0x2,-0x1 0196 01cf | | Execute Vector,Slice_Read 0197 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0198 00d8 | | Load_Top At_Offset_0 0199 0a01 | | Execute_Immediate Plus,0x1 019a c402 | | Store 0x2,0x2 019b 00c8 | | Action Pop_Auxiliary_Range 019c 3fe1 |? | Loop_Increasing 0x17e 019d 00ce | | Action Pop_Auxiliary 019e 00d8 | | Load_Top At_Offset_0 019f 0a01 | | Execute_Immediate Plus,0x1 01a0 0059 | Y | Store_Top Discrete,At_Offset_1 01a1 00d8 | | Load_Top At_Offset_0 01a2 e5fe | | Load 0x2,-0x2 01a3 027f | | Execute Discrete,Equal 01a4 6806 |h | Jump_Zero 0x1ab 01a5 00d9 | | Load_Top At_Offset_1 01a6 e5ff | | Load 0x2,-0x1 01a7 01dc | | Execute Vector,Last 01a8 e5ff | | Load 0x2,-0x1 01a9 01cf | | Execute Vector,Slice_Read 01aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ab 00ea | | Load_Encached Null_String_Cache 01ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01d7 | | .CONST 0x01d7 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 000d | | .CONST 0x000d ; Number of locals 01b3 INIT_01b0: 01b3 4818 |H | Short_Literal 0x18 01b4 03cc | | Declare_Type Access,Incomplete,Accesses_Protected 01b5 481e |H | Short_Literal 0x1e 01b6 e00c | | Load 0x0,0xc 01b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b8 1c07 | | Execute_Immediate Run_Utility,0x7 01b9 00d9 | | Load_Top At_Offset_1 01ba 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 01bc 4802 |H | Short_Literal 0x2 01bd 032d | - | Declare_Type Record,Defined 01be 00d8 | | Load_Top At_Offset_0 01bf 02a0 | | Declare_Subprogram Null_Subprogram 01c0 00db | | Load_Top At_Offset_3 01c1 03c7 | | Complete_Type Access,By_Defining 01c2 e003 | | Load 0x0,0x3 01c3 0007 | | Action Break_Optional 01c4 00e1 | | Load_Encached Boolean_Cache 01c5 e01e | | Load 0x0,0x1e 01c6 0007 | | Action Break_Optional 01c7 e004 | | Load 0x0,0x4 01c8 0007 | | Action Break_Optional 01c9 e01f | | Load 0x0,0x1f 01ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cb 02c7 | | Declare_Variable Any 01cc 00d8 | | Load_Top At_Offset_0 01cd 1c00 | | Execute_Immediate Run_Utility,0x0 01ce e602 | | Load 0x3,0x2 01cf 0007 | | Action Break_Optional 01d0 00d8 | | Load_Top At_Offset_0 01d1 0007 | | Action Break_Optional 01d2 0092 02ac | | Action Push_String_Extended,0x2ac ; "!Machine.Temporary.temp_mload" 01d4 00ea | | Load_Encached Null_String_Cache 01d5 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 01d7 BODY_01b0: 01d7 e606 | | Load 0x3,0x6 01d8 4801 |H | Short_Literal 0x1 01d9 e60b | | Load 0x3,0xb 01da e7ff | | Load 0x3,-0x1 01db 8020 | | Call 0x0,0x20 01dc c606 | | Store 0x3,0x6 01dd e608 | | Load 0x3,0x8 01de 00ea | | Load_Encached Null_String_Cache 01df e60b | | Load 0x3,0xb 01e0 4800 |H | Short_Literal 0x0 01e1 e01f | | Load 0x0,0x1f 01e2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01e3 c608 | | Store 0x3,0x8 01e4 00cf | | Action Mark_Auxiliary 01e5 7802 |x | Jump 0x1e8 01e6 860d | | Call 0x3,0xd 01e7 00c9 | | Action Pop_Auxiliary_Loop 01e8 e608 | | Load 0x3,0x8 01e9 e01f | | Load 0x0,0x1f 01ea 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01eb 6ffa |o | Jump_Zero 0x1e6 01ec 00ce | | Action Pop_Auxiliary 01ed e608 | | Load 0x3,0x8 01ee e01f | | Load 0x0,0x1f 01ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f0 c608 | | Store 0x3,0x8 01f1 e008 | | Load 0x0,0x8 01f2 180e | | Execute Package,Field_Execute,Field_Number 0xe 01f3 4802 |H | Short_Literal 0x2 01f4 0092 02ad | | Action Push_String_Extended,0x2ad ; "Files referenced by " 01f6 e7ff | | Load 0x3,-0x1 01f7 01cc | | Execute Vector,Catenate 01f8 0092 02ae | | Action Push_String_Extended,0x2ae ; " are being traversed" 01fa 01cc | | Execute Vector,Catenate 01fb e009 | | Load 0x0,0x9 01fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01fd 00cf | | Action Mark_Auxiliary 01fe 784b |xK | Jump 0x24a 01ff e7fe | | Load 0x3,-0x2 0200 7037 |p7 | Jump_Nonzero 0x238 0201 e607 | | Load 0x3,0x7 0202 e604 | | Load 0x3,0x4 0203 4801 |H | Short_Literal 0x1 0204 4800 |H | Short_Literal 0x0 0205 4800 |H | Short_Literal 0x0 0206 e609 | | Load 0x3,0x9 0207 0227 | ' | Execute Access,All_Reference 0208 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0209 e00c | | Load 0x0,0xc 020a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 020b 800a | | Call 0x0,0xa 020c c604 | | Store 0x3,0x4 020d c607 | | Store 0x3,0x7 020e e607 | | Load 0x3,0x7 020f 6813 |h | Jump_Zero 0x223 0210 e008 | | Load 0x0,0x8 0211 180e | | Execute Package,Field_Execute,Field_Number 0xe 0212 4807 |H | Short_Literal 0x7 0213 e609 | | Load 0x3,0x9 0214 0227 | ' | Execute Access,All_Reference 0215 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0216 e00c | | Load 0x0,0xc 0217 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0218 0092 02af | | Action Push_String_Extended,0x2af ; " referenced by " 021a 01cc | | Execute Vector,Catenate 021b e7ff | | Load 0x3,-0x1 021c 01cc | | Execute Vector,Catenate 021d 0092 02b0 | | Action Push_String_Extended,0x2b0 ; ", is not in the Dfs" 021f 01cc | | Execute Vector,Catenate 0220 e009 | | Load 0x0,0x9 0221 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0222 7822 |x" | Jump 0x245 0223 e604 | | Load 0x3,0x4 0224 e607 | | Load 0x3,0x7 0225 e60c | | Load 0x3,0xc 0226 4801 |H | Short_Literal 0x1 0227 4800 |H | Short_Literal 0x0 0228 8021 | ! | Call 0x0,0x21 0229 c607 | | Store 0x3,0x7 022a c604 | | Store 0x3,0x4 022b e605 | | Load 0x3,0x5 022c e5ff | | Load 0x2,-0x1 022d e00c | | Load 0x0,0xc 022e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 022f e404 | | Load 0x2,0x4 0230 e609 | | Load 0x3,0x9 0231 0227 | ' | Execute Access,All_Reference 0232 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0233 e00c | | Load 0x0,0xc 0234 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0235 820d | | Call 0x1,0xd 0236 c605 | | Store 0x3,0x5 0237 780d |x | Jump 0x245 0238 e008 | | Load 0x0,0x8 0239 180e | | Execute Package,Field_Execute,Field_Number 0xe 023a 4802 |H | Short_Literal 0x2 023b e609 | | Load 0x3,0x9 023c 0227 | ' | Execute Access,All_Reference 023d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 023e e00c | | Load 0x0,0xc 023f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0240 0092 02b1 | | Action Push_String_Extended,0x2b1 ; " would have been copied" 0242 01cc | | Execute Vector,Catenate 0243 e009 | | Load 0x0,0x9 0244 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0245 e609 | | Load 0x3,0x9 0246 0227 | ' | Execute Access,All_Reference 0247 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0248 a609 | | Store_Unchecked 0x3,0x9 0249 00c9 | | Action Pop_Auxiliary_Loop 024a e609 | | Load 0x3,0x9 024b 77b3 |w | Jump_Nonzero 0x1ff 024c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024d 0000 0000 | | .XXX[0x3] 024f 0000 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 4601 |F | Jump_Case 0x2 0254 7801 |x | Jump 0x256 ; case 0x0 0255 7807 |x | Jump 0x25d ; case 0x1 0256 00da | | Load_Top At_Offset_2 0257 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0258 0125 | % | Execute Any,Set_Constraint 0259 00da | | Load_Top At_Offset_2 025a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 025b 1c00 | | Execute_Immediate Run_Utility,0x0 025c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 025d 00da | | Load_Top At_Offset_2 025e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 025f 0125 | % | Execute Any,Set_Constraint 0260 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0261 0000 0000 | | .BLANK 0000[0x7] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026e | n | .CONST 0x026e ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0002 | | .CONST 0x0002 ; Number of locals 026b INIT_0268: 026b e608 | | Load 0x3,0x8 026c e01f | | Load 0x0,0x1f 026d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 026e BODY_0268: 026e 4801 |H | Short_Literal 0x1 026f 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "LOAD" 0271 4801 |H | Short_Literal 0x1 0272 00db | | Load_Top At_Offset_3 0273 8211 | | Call 0x1,0x11 0274 e007 | | Load 0x0,0x7 0275 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0276 682f |h/ | Jump_Zero 0x2a6 0277 e60a | | Load 0x3,0xa 0278 7015 |p | Jump_Nonzero 0x28e 0279 e603 | | Load 0x3,0x3 027a 0322 | " | Declare_Variable Record 027b 00d8 | | Load_Top At_Offset_0 027c 1c01 | | Execute_Immediate Run_Utility,0x1 027d 481e |H | Short_Literal 0x1e 027e 4802 |H | Short_Literal 0x2 027f 00db | | Load_Top At_Offset_3 0280 8211 | | Call 0x1,0x11 0281 e00c | | Load 0x0,0xc 0282 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0283 00d9 | | Load_Top At_Offset_1 0284 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0285 e602 | | Load 0x3,0x2 0286 00d9 | | Load_Top At_Offset_1 0287 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0288 e602 | | Load 0x3,0x2 0289 03b6 | | Declare_Variable Access,By_Allocation,With_Value 028a a60a | | Store_Unchecked 0x3,0xa 028b e60a | | Load 0x3,0xa 028c a609 | | Store_Unchecked 0x3,0x9 028d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028e e603 | | Load 0x3,0x3 028f 0322 | " | Declare_Variable Record 0290 00d8 | | Load_Top At_Offset_0 0291 1c01 | | Execute_Immediate Run_Utility,0x1 0292 481e |H | Short_Literal 0x1e 0293 4802 |H | Short_Literal 0x2 0294 00db | | Load_Top At_Offset_3 0295 8211 | | Call 0x1,0x11 0296 e00c | | Load 0x0,0xc 0297 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0298 00d9 | | Load_Top At_Offset_1 0299 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 029a e602 | | Load 0x3,0x2 029b 00d9 | | Load_Top At_Offset_1 029c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 029d e602 | | Load 0x3,0x2 029e 03b6 | | Declare_Variable Access,By_Allocation,With_Value 029f e60a | | Load 0x3,0xa 02a0 0227 | ' | Execute Access,All_Reference 02a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02a2 e60a | | Load 0x3,0xa 02a3 0227 | ' | Execute Access,All_Reference 02a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a5 a60a | | Store_Unchecked 0x3,0xa 02a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a7 ; -------------------------------------------------------------------------------------- 02a7 ; STRING TABLE 02a7 ; -------------------------------------------------------------------------------------- 02a7 001a | | .STRTAB 0x001a->0x02b4 ; "!!" 02a8 001a | | .STRTAB 0x001a->0x02b5 ; "Remote access is not currently supported" 02a9 0040 | @ | .STRTAB 0x0040->0x02c9 ; "Copying file " 02aa 004b | K | .STRTAB 0x004b->0x02cf ; "*.MLOAD" 02ab 0050 | P | .STRTAB 0x0050->0x02d3 ; "?" 02ac 004f | O | .STRTAB 0x004f->0x02d3 ; "!Machine.Temporary.temp_mload" 02ad 006a | j | .STRTAB 0x006a->0x02e2 ; "Files referenced by " 02ae 007c | | | .STRTAB 0x007c->0x02ec ; " are being traversed" 02af 008e | | .STRTAB 0x008e->0x02f6 ; " referenced by " 02b0 009b | | .STRTAB 0x009b->0x02fd ; ", is not in the Dfs" 02b1 00ac | | .STRTAB 0x00ac->0x0307 ; " would have been copied" 02b2 00c1 | | .STRTAB 0x00c1->0x0312 ; "LOAD" 02b3 00c3 | | .STREND 0x00c3->0x0314 02b4 2121 5265 |!!Re| .STRTAB_STRINGS 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; Debug Table 0318 ; -------------------------------------------------------------------------------------- 0318 0004 0011 | | .DEBUG4 0x0004,0x0011,0x34c0,0x0000,0x0001,0x0000 031e 0000 0000 | | .BLANK 0000[0xe2]