|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 06a8 | | .CONST 0x06a8 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0080 | | .CONST 0x0080 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0027 | ' | .CONST 0x0027 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c e001 | | Load 0x0,0x1 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e 00e9 | | Load_Encached String_Cache 000f 029f 05f3 | | Declare_Subprogram INIT_05f0,For_Call 0011 4800 |H | Short_Literal 0x0 0012 4801 |H | Short_Literal 0x1 0013 4801 |H | Short_Literal 0x1 0014 4800 |H | Short_Literal 0x0 0015 4801 |H | Short_Literal 0x1 0016 4801 |H | Short_Literal 0x1 0017 031e | | Declare_Type Variant_Record,Defined,Visible 0018 e002 | | Load 0x0,0x2 0019 0129 | ) | Execute Any,Make_Visible 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 002e c220 | | Store 0x1,0x20 002f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0031 c219 | | Store 0x1,0x19 0032 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0034 c21a | | Store 0x1,0x1a 0035 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0037 c21b | | Store 0x1,0x1b 0038 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 003a c21c | | Store 0x1,0x1c 003b 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 003d c21d | | Store 0x1,0x1d 003e 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0040 c21e | | Store 0x1,0x1e 0041 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0043 c21f | | Store 0x1,0x1f 0044 00bf | | Action Accept_Activation 0045 4900 |I | Short_Literal 0x100 0046 e003 | | Load 0x0,0x3 0047 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0048 1c07 | | Execute_Immediate Run_Utility,0x7 0049 e004 | | Load 0x0,0x4 004a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 004b 00d9 | | Load_Top At_Offset_1 004c 00da | | Load_Top At_Offset_2 004d e005 | | Load 0x0,0x5 004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004f 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call 0051 4804 |H | Short_Literal 0x4 0052 032d | - | Declare_Type Record,Defined 0053 00d8 | | Load_Top At_Offset_0 0054 0322 | " | Declare_Variable Record 0055 00d8 | | Load_Top At_Offset_0 0056 1c00 | | Execute_Immediate Run_Utility,0x0 0057 00e3 | | Load_Encached Natural_Cache 0058 0266 | f | Execute Discrete,Bounds 0059 00db | | Load_Top At_Offset_3 005a 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 005c 4801 |H | Short_Literal 0x1 005d 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 005e 4801 |H | Short_Literal 0x1 005f 4800 |H | Short_Literal 0x0 0060 00da | | Load_Top At_Offset_2 0061 035b | [ | Declare_Type Array,Constrained 0062 0337 | 7 | Declare_Variable Array 0063 00d8 | | Load_Top At_Offset_0 0064 1c01 | | Execute_Immediate Run_Utility,0x1 0065 00d8 | | Load_Top At_Offset_0 0066 0335 | 5 | Declare_Variable Array,Duplicate 0067 00cd | | Action Spare6_Action 0068 00d8 | | Load_Top At_Offset_0 0069 1c01 | | Execute_Immediate Run_Utility,0x1 006a 00d9 | | Load_Top At_Offset_1 006b 01d4 | | Execute Vector,Structure_Write 006c 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 006e 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 0070 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0071 00c7 | | Action Elaborate_Subprogram 0072 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0073 00c7 | | Action Elaborate_Subprogram 0074 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0075 00c7 | | Action Elaborate_Subprogram 0076 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0077 00c7 | | Action Elaborate_Subprogram 0078 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0079 00c7 | | Action Elaborate_Subprogram 007a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 007b 00c7 | | Action Elaborate_Subprogram 007c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 007d 00c7 | | Action Elaborate_Subprogram 007e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 007f 00c7 | | Action Elaborate_Subprogram 0080 BODY_0008: 0080 00bc | | Action Signal_Activated 0081 00bb | | Action Signal_Completion 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0098 | | .CONST 0x0098 ; Address of begin 0089 00d1 | | .CONST 0x00d1 ; Address of exception handler 008a 0004 | | .CONST 0x0004 ; Number of locals 008b INIT_0088: 008b e001 | | Load 0x0,0x1 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 008e e006 | | Load 0x0,0x6 008f 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0090 0322 | " | Declare_Variable Record 0091 e5fa | | Load 0x2,-0x6 0092 e006 | | Load 0x0,0x6 0093 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0094 00d9 | | Load_Top At_Offset_1 0095 017d | } | Execute Record,Structure_Write 0096 029f 049b | | Declare_Subprogram INIT_0498,For_Call 0098 BODY_0088: 0098 4800 |H | Short_Literal 0x0 0099 a5f1 | | Store_Unchecked 0x2,-0xf 009a e5f9 | | Load 0x2,-0x7 009b 6802 |h | Jump_Zero 0x9e 009c 8404 | | Call 0x2,0x4 009d 781b |x | Jump 0xb9 009e e001 | | Load 0x0,0x1 009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a0 4801 |H | Short_Literal 0x1 00a1 e5f2 | | Load 0x2,-0xe 00a2 e5f3 | | Load 0x2,-0xd 00a3 e403 | | Load 0x2,0x3 00a4 e5f4 | | Load 0x2,-0xc 00a5 e5f5 | | Load 0x2,-0xb 00a6 e5f6 | | Load 0x2,-0xa 00a7 e5f7 | | Load 0x2,-0x9 00a8 e5f8 | | Load 0x2,-0x8 00a9 e5fb | | Load 0x2,-0x5 00aa 00ea | | Load_Encached Null_String_Cache 00ab 00ea | | Load_Encached Null_String_Cache 00ac 00ea | | Load_Encached Null_String_Cache 00ad e5ff | | Load 0x2,-0x1 00ae e007 | | Load 0x0,0x7 00af 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00b0 1869 | i | Execute Package,Field_Execute,Field_Number 0x69 00b1 005b | [ | Store_Top Discrete,At_Offset_3 00b2 4800 |H | Short_Literal 0x0 00b3 00db | | Load_Top At_Offset_3 00b4 e001 | | Load 0x0,0x1 00b5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00b6 7002 |p | Jump_Nonzero 0xb9 00b7 00da | | Load_Top At_Offset_2 00b8 a5f1 | | Store_Unchecked 0x2,-0xf 00b9 e001 | | Load 0x0,0x1 00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bb e5f2 | | Load 0x2,-0xe 00bc e5fa | | Load 0x2,-0x6 00bd e5fe | | Load 0x2,-0x2 00be e5ff | | Load 0x2,-0x1 00bf 8219 | | Call 0x1,0x19 00c0 005b | [ | Store_Top Discrete,At_Offset_3 00c1 4800 |H | Short_Literal 0x0 00c2 00db | | Load_Top At_Offset_3 00c3 e001 | | Load 0x0,0x1 00c4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00c5 7002 |p | Jump_Nonzero 0xc8 00c6 00da | | Load_Top At_Offset_2 00c7 a5f1 | | Store_Unchecked 0x2,-0xf 00c8 e001 | | Load 0x0,0x1 00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ca e5f2 | | Load 0x2,-0xe 00cb e5fa | | Load 0x2,-0x6 00cc e5fd | | Load 0x2,-0x3 00cd e5ff | | Load 0x2,-0x1 00ce 821a | | Call 0x1,0x1a 00cf c5f1 | | Store 0x2,-0xf 00d0 450f |E | Exit_Suprogram New_Top_Offset 0xf 00d1 TRAP_0088: 00d1 e001 | | Load 0x0,0x1 00d2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00d3 010f | | Execute Exception,Equal 00d4 6804 |h | Jump_Zero 0xd9 00d5 e001 | | Load 0x0,0x1 00d6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d7 a5f1 | | Store_Unchecked 0x2,-0xf 00d8 450f |E | Exit_Suprogram New_Top_Offset 0xf 00d9 0092 0611 | | Action Push_String_Extended,0x611 ; "Initialize" 00db e008 | | Load 0x0,0x8 00dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00dd a5f1 | | Store_Unchecked 0x2,-0xf 00de 450f |E | Exit_Suprogram New_Top_Offset 0xf 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00f3 | | .CONST 0x00f3 ; Address of begin 00e1 010a | | .CONST 0x010a ; Address of exception handler 00e2 0004 | | .CONST 0x0004 ; Number of locals 00e3 INIT_00e0: 00e3 e001 | | Load 0x0,0x1 00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e6 e004 | | Load 0x0,0x4 00e7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00e8 02ff | | Declare_Variable Variant_Record 00e9 00d8 | | Load_Top At_Offset_0 00ea 1c00 | | Execute_Immediate Run_Utility,0x0 00eb e006 | | Load 0x0,0x6 00ec 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 00ed 0322 | " | Declare_Variable Record 00ee e5fd | | Load 0x2,-0x3 00ef e006 | | Load 0x0,0x6 00f0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00f1 00d9 | | Load_Top At_Offset_1 00f2 017d | } | Execute Record,Structure_Write 00f3 BODY_00e0: 00f3 e5fc | | Load 0x2,-0x4 00f4 4801 |H | Short_Literal 0x1 00f5 e5ff | | Load 0x2,-0x1 00f6 e009 | | Load 0x0,0x9 00f7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00f8 00da | | Load_Top At_Offset_2 00f9 016d | m | Execute Variant_Record,Structure_Write 00fa 601d |` | Indirect_Literal Discrete,0x118,{0x00000000, 0x00004000} 00fb e00a | | Load 0x0,0xa 00fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fd 4822 |H" | Short_Literal 0x22 00fe 4822 |H" | Short_Literal 0x22 00ff e5fe | | Load 0x2,-0x2 0100 01ca | | Execute Vector,Prepend 0101 01cb | | Execute Vector,Append 0102 0092 0612 | | Action Push_String_Extended,0x612 ; "Ftp.Remote_Machine" 0104 e403 | | Load 0x2,0x3 0105 e00b | | Load 0x0,0xb 0106 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0107 4800 |H | Short_Literal 0x0 0108 a5fb | | Store_Unchecked 0x2,-0x5 0109 4505 |E | Exit_Suprogram New_Top_Offset 0x5 010a TRAP_00e0: 010a e001 | | Load 0x0,0x1 010b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 010c 010f | | Execute Exception,Equal 010d 6804 |h | Jump_Zero 0x112 010e e001 | | Load 0x0,0x1 010f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0110 a5fb | | Store_Unchecked 0x2,-0x5 0111 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0112 0092 0613 | | Action Push_String_Extended,0x613 ; "Set_Remote_Machine" 0114 e008 | | Load 0x0,0x8 0115 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0116 a5fb | | Store_Unchecked 0x2,-0x5 0117 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0118 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0133 | 3 | .CONST 0x0133 ; Address of begin 0121 014a | J | .CONST 0x014a ; Address of exception handler 0122 0004 | | .CONST 0x0004 ; Number of locals 0123 INIT_0120: 0123 e004 | | Load 0x0,0x4 0124 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0125 02ff | | Declare_Variable Variant_Record 0126 00d8 | | Load_Top At_Offset_0 0127 1c00 | | Execute_Immediate Run_Utility,0x0 0128 e001 | | Load 0x0,0x1 0129 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 012b e006 | | Load 0x0,0x6 012c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 012d 0322 | " | Declare_Variable Record 012e e5fd | | Load 0x2,-0x3 012f e006 | | Load 0x0,0x6 0130 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0131 00d9 | | Load_Top At_Offset_1 0132 017d | } | Execute Record,Structure_Write 0133 BODY_0120: 0133 e5fc | | Load 0x2,-0x4 0134 4801 |H | Short_Literal 0x1 0135 e5ff | | Load 0x2,-0x1 0136 e009 | | Load 0x0,0x9 0137 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0138 00db | | Load_Top At_Offset_3 0139 016d | m | Execute Variant_Record,Structure_Write 013a 67dd |g | Indirect_Literal Discrete,0x118,{0x00000000, 0x00004000} 013b e00a | | Load 0x0,0xa 013c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013d 4822 |H" | Short_Literal 0x22 013e 4822 |H" | Short_Literal 0x22 013f e5fe | | Load 0x2,-0x2 0140 01ca | | Execute Vector,Prepend 0141 01cb | | Execute Vector,Append 0142 0092 0614 | | Action Push_String_Extended,0x614 ; "Ftp.Remote_Directory" 0144 e402 | | Load 0x2,0x2 0145 e00b | | Load 0x0,0xb 0146 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0147 4800 |H | Short_Literal 0x0 0148 a5fb | | Store_Unchecked 0x2,-0x5 0149 4505 |E | Exit_Suprogram New_Top_Offset 0x5 014a TRAP_0120: 014a e001 | | Load 0x0,0x1 014b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 014c 010f | | Execute Exception,Equal 014d 6804 |h | Jump_Zero 0x152 014e e001 | | Load 0x0,0x1 014f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0150 a5fb | | Store_Unchecked 0x2,-0x5 0151 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0152 0092 0615 | | Action Push_String_Extended,0x615 ; "Set_Remote_Directory" 0154 e008 | | Load 0x0,0x8 0155 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0156 a5fb | | Store_Unchecked 0x2,-0x5 0157 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 016a | j | .CONST 0x016a ; Address of begin 0159 01b4 | | .CONST 0x01b4 ; Address of exception handler 015a 0005 | | .CONST 0x0005 ; Number of locals 015b INIT_0158: 015b e00c | | Load 0x0,0xc 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d e001 | | Load 0x0,0x1 015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015f e001 | | Load 0x0,0x1 0160 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0161 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0162 e006 | | Load 0x0,0x6 0163 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0164 0322 | " | Declare_Variable Record 0165 e5fd | | Load 0x2,-0x3 0166 e006 | | Load 0x0,0x6 0167 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0168 00d9 | | Load_Top At_Offset_1 0169 017d | } | Execute Record,Structure_Write 016a BODY_0158: 016a e5fc | | Load 0x2,-0x4 016b 0092 0616 | | Action Push_String_Extended,0x616 ; "Set_Remote_Library" 016d e008 | | Load 0x0,0x8 016e 180e | | Execute Package,Field_Execute,Field_Number 0xe 016f e001 | | Load 0x0,0x1 0170 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0171 e00c | | Load 0x0,0xc 0172 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0173 e5fc | | Load 0x2,-0x4 0174 4800 |H | Short_Literal 0x0 0175 4801 |H | Short_Literal 0x1 0176 4801 |H | Short_Literal 0x1 0177 e405 | | Load 0x2,0x5 0178 e5ff | | Load 0x2,-0x1 0179 e00c | | Load 0x0,0xc 017a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 017b c402 | | Store 0x2,0x2 017c 005b | [ | Store_Top Discrete,At_Offset_3 017d 4800 |H | Short_Literal 0x0 017e 00db | | Load_Top At_Offset_3 017f e001 | | Load 0x0,0x1 0180 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0181 7003 |p | Jump_Nonzero 0x185 0182 00da | | Load_Top At_Offset_2 0183 a5fb | | Store_Unchecked 0x2,-0x5 0184 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0185 00db | | Load_Top At_Offset_3 0186 e00c | | Load 0x0,0xc 0187 180f | | Execute Package,Field_Execute,Field_Number 0xf 0188 6807 |h | Jump_Zero 0x190 0189 e00d | | Load 0x0,0xd 018a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 018b 6050 |`P | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x00008147} 018c e001 | | Load 0x0,0x1 018d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018e a5fb | | Store_Unchecked 0x2,-0x5 018f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0190 e001 | | Load 0x0,0x1 0191 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0192 e402 | | Load 0x2,0x2 0193 e5fc | | Load 0x2,-0x4 0194 00db | | Load_Top At_Offset_3 0195 e5fe | | Load 0x2,-0x2 0196 e007 | | Load 0x0,0x7 0197 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0198 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0199 c402 | | Store 0x2,0x2 019a 005a | Z | Store_Top Discrete,At_Offset_2 019b 00d9 | | Load_Top At_Offset_1 019c a5fb | | Store_Unchecked 0x2,-0x5 019d 4800 |H | Short_Literal 0x0 019e 00da | | Load_Top At_Offset_2 019f e001 | | Load 0x0,0x1 01a0 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 01a1 7009 |p | Jump_Nonzero 0x1ab 01a2 e001 | | Load 0x0,0x1 01a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a4 e402 | | Load 0x2,0x2 01a5 e5fc | | Load 0x2,-0x4 01a6 e00c | | Load 0x0,0xc 01a7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01a8 c402 | | Store 0x2,0x2 01a9 005b | [ | Store_Top Discrete,At_Offset_3 01aa 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01ab e001 | | Load 0x0,0x1 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad e402 | | Load 0x2,0x2 01ae e5fc | | Load 0x2,-0x4 01af e00c | | Load 0x0,0xc 01b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b1 c402 | | Store 0x2,0x2 01b2 c5fb | | Store 0x2,-0x5 01b3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01b4 TRAP_0158: 01b4 e001 | | Load 0x0,0x1 01b5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01b6 010f | | Execute Exception,Equal 01b7 6810 |h | Jump_Zero 0x1c8 01b8 e001 | | Load 0x0,0x1 01b9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ba a5fb | | Store_Unchecked 0x2,-0x5 01bb e402 | | Load 0x2,0x2 01bc e00c | | Load 0x0,0xc 01bd 180f | | Execute Package,Field_Execute,Field_Number 0xf 01be 7008 |p | Jump_Nonzero 0x1c7 01bf e001 | | Load 0x0,0x1 01c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c1 e402 | | Load 0x2,0x2 01c2 e5fc | | Load 0x2,-0x4 01c3 e00c | | Load 0x0,0xc 01c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01c5 c402 | | Store 0x2,0x2 01c6 005b | [ | Store_Top Discrete,At_Offset_3 01c7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01c8 0092 0616 | | Action Push_String_Extended,0x616 ; "Set_Remote_Library" 01ca e008 | | Load 0x0,0x8 01cb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01cc a5fb | | Store_Unchecked 0x2,-0x5 01cd e402 | | Load 0x2,0x2 01ce e00c | | Load 0x0,0xc 01cf 180f | | Execute Package,Field_Execute,Field_Number 0xf 01d0 7008 |p | Jump_Nonzero 0x1d9 01d1 e001 | | Load 0x0,0x1 01d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d3 e402 | | Load 0x2,0x2 01d4 e5fc | | Load 0x2,-0x4 01d5 e00c | | Load 0x0,0xc 01d6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01d7 c402 | | Store 0x2,0x2 01d8 005b | [ | Store_Top Discrete,At_Offset_3 01d9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01da 0000 0000 | | .XXX[0x2] 01dc 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ed | | .CONST 0x01ed ; Address of begin 01e1 01f6 | | .CONST 0x01f6 ; Address of exception handler 01e2 0004 | | .CONST 0x0004 ; Number of locals 01e3 INIT_01e0: 01e3 e004 | | Load 0x0,0x4 01e4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01e5 02ff | | Declare_Variable Variant_Record 01e6 00d8 | | Load_Top At_Offset_0 01e7 1c00 | | Execute_Immediate Run_Utility,0x0 01e8 4800 |H | Short_Literal 0x0 01e9 e20d | | Load 0x1,0xd 01ea 1c08 | | Execute_Immediate Run_Utility,0x8 01eb 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call 01ed BODY_01e0: 01ed e5fd | | Load 0x2,-0x3 01ee 4801 |H | Short_Literal 0x1 01ef e5ff | | Load 0x2,-0x1 01f0 e009 | | Load 0x0,0x9 01f1 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01f2 00db | | Load_Top At_Offset_3 01f3 016d | m | Execute Variant_Record,Structure_Write 01f4 8404 | | Call 0x2,0x4 01f5 0831 | 1 | Execute_Immediate Raise,0x31 01f6 TRAP_01e0: 01f6 e001 | | Load 0x0,0x1 01f7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01f8 010f | | Execute Exception,Equal 01f9 6806 |h | Jump_Zero 0x200 01fa e001 | | Load 0x0,0x1 01fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01fc 00db | | Load_Top At_Offset_3 01fd 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01fe 00da | | Load_Top At_Offset_2 01ff 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0200 0092 0617 | | Action Push_String_Extended,0x617 ; "Remote_Machine" 0202 e008 | | Load 0x0,0x8 0203 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0204 00db | | Load_Top At_Offset_3 0205 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0206 00da | | Load_Top At_Offset_2 0207 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0215 | | .CONST 0x0215 ; Address of begin 0209 021e | | .CONST 0x021e ; Address of exception handler 020a 0004 | | .CONST 0x0004 ; Number of locals 020b INIT_0208: 020b e004 | | Load 0x0,0x4 020c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 020d 02ff | | Declare_Variable Variant_Record 020e 00d8 | | Load_Top At_Offset_0 020f 1c00 | | Execute_Immediate Run_Utility,0x0 0210 4800 |H | Short_Literal 0x0 0211 e20d | | Load 0x1,0xd 0212 1c08 | | Execute_Immediate Run_Utility,0x8 0213 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call 0215 BODY_0208: 0215 e5fd | | Load 0x2,-0x3 0216 4801 |H | Short_Literal 0x1 0217 e5ff | | Load 0x2,-0x1 0218 e009 | | Load 0x0,0x9 0219 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 021a 00db | | Load_Top At_Offset_3 021b 016d | m | Execute Variant_Record,Structure_Write 021c 8404 | | Call 0x2,0x4 021d 0831 | 1 | Execute_Immediate Raise,0x31 021e TRAP_0208: 021e e001 | | Load 0x0,0x1 021f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0220 010f | | Execute Exception,Equal 0221 6806 |h | Jump_Zero 0x228 0222 e001 | | Load 0x0,0x1 0223 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0224 00db | | Load_Top At_Offset_3 0225 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0226 00da | | Load_Top At_Offset_2 0227 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0228 0092 0618 | | Action Push_String_Extended,0x618 ; "Remote_Directory" 022a e008 | | Load 0x0,0x8 022b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 022c 00db | | Load_Top At_Offset_3 022d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 022e 00da | | Load_Top At_Offset_2 022f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0244 | D | .CONST 0x0244 ; Address of begin 0231 026f | o | .CONST 0x026f ; Address of exception handler 0232 0006 | | .CONST 0x0006 ; Number of locals 0233 INIT_0230: 0233 e00c | | Load 0x0,0xc 0234 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0235 e001 | | Load 0x0,0x1 0236 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0237 4800 |H | Short_Literal 0x0 0238 e20d | | Load 0x1,0xd 0239 1c08 | | Execute_Immediate Run_Utility,0x8 023a e006 | | Load 0x0,0x6 023b 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 023c 0322 | " | Declare_Variable Record 023d e5fe | | Load 0x2,-0x2 023e e006 | | Load 0x0,0x6 023f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0240 00d9 | | Load_Top At_Offset_1 0241 017d | } | Execute Record,Structure_Write 0242 029f 050b | | Declare_Subprogram INIT_0508,For_Call 0244 BODY_0230: 0244 e5fd | | Load 0x2,-0x3 0245 0092 0619 | | Action Push_String_Extended,0x619 ; "Remote_Library" 0247 e008 | | Load 0x0,0x8 0248 180e | | Execute Package,Field_Execute,Field_Number 0xe 0249 e001 | | Load 0x0,0x1 024a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024b e00c | | Load 0x0,0xc 024c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024d e5fd | | Load 0x2,-0x3 024e 4801 |H | Short_Literal 0x1 024f 4801 |H | Short_Literal 0x1 0250 4800 |H | Short_Literal 0x0 0251 e405 | | Load 0x2,0x5 0252 e5ff | | Load 0x2,-0x1 0253 e00c | | Load 0x0,0xc 0254 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0255 c402 | | Store 0x2,0x2 0256 c403 | | Store 0x2,0x3 0257 4800 |H | Short_Literal 0x0 0258 e403 | | Load 0x2,0x3 0259 e001 | | Load 0x0,0x1 025a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 025b 680e |h | Jump_Zero 0x26a 025c e402 | | Load 0x2,0x2 025d e00c | | Load 0x0,0xc 025e 180f | | Execute Package,Field_Execute,Field_Number 0xf 025f 6809 |h | Jump_Zero 0x269 0260 e00d | | Load 0x0,0xd 0261 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0262 6039 |`9 | Indirect_Literal Discrete,0x29c,{0x00000000, 0x00008147} 0263 e001 | | Load 0x0,0x1 0264 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0265 00db | | Load_Top At_Offset_3 0266 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0267 00da | | Load_Top At_Offset_2 0268 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0269 8406 | | Call 0x2,0x6 026a 00db | | Load_Top At_Offset_3 026b 00db | | Load_Top At_Offset_3 026c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 026d 00da | | Load_Top At_Offset_2 026e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 026f TRAP_0230: 026f e001 | | Load 0x0,0x1 0270 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0271 010f | | Execute Exception,Equal 0272 6812 |h | Jump_Zero 0x285 0273 e001 | | Load 0x0,0x1 0274 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0275 e404 | | Load 0x2,0x4 0276 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0277 e402 | | Load 0x2,0x2 0278 e00c | | Load 0x0,0xc 0279 180f | | Execute Package,Field_Execute,Field_Number 0xf 027a 7008 |p | Jump_Nonzero 0x283 027b e001 | | Load 0x0,0x1 027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 027d e402 | | Load 0x2,0x2 027e e5fd | | Load 0x2,-0x3 027f e00c | | Load 0x0,0xc 0280 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0281 c402 | | Store 0x2,0x2 0282 c403 | | Store 0x2,0x3 0283 00db | | Load_Top At_Offset_3 0284 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0285 0092 0619 | | Action Push_String_Extended,0x619 ; "Remote_Library" 0287 e008 | | Load 0x0,0x8 0288 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0289 e404 | | Load 0x2,0x4 028a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 028b e402 | | Load 0x2,0x2 028c e00c | | Load 0x0,0xc 028d 180f | | Execute Package,Field_Execute,Field_Number 0xf 028e 7008 |p | Jump_Nonzero 0x297 028f e001 | | Load 0x0,0x1 0290 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0291 e402 | | Load 0x2,0x2 0292 e5fd | | Load 0x2,-0x3 0293 e00c | | Load 0x0,0xc 0294 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0295 c402 | | Store 0x2,0x2 0296 c403 | | Store 0x2,0x3 0297 00db | | Load_Top At_Offset_3 0298 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0299 0000 0000 | | .XXX[0x3] 029b 0000 | | 029c 0000 0000 | | .LITERAL {0x00000000, 0x00008147} 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 e20e | | Load 0x1,0xe 02a4 0257 | W | Execute Discrete,Raise 02a5 0000 0000 | | .XXX[0x3] 02a7 0000 | | 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 4608 |F | Jump_Case 0x9 02ac 7808 |x | Jump 0x2b5 ; case 0x0 02ad 7820 |x | Jump 0x2ce ; case 0x1 02ae 7826 |x& | Jump 0x2d5 ; case 0x2 02af 7825 |x% | Jump 0x2d5 ; case 0x3 02b0 7824 |x$ | Jump 0x2d5 ; case 0x4 02b1 7823 |x# | Jump 0x2d5 ; case 0x5 02b2 7822 |x" | Jump 0x2d5 ; case 0x6 02b3 7821 |x! | Jump 0x2d5 ; case 0x7 02b4 7820 |x | Jump 0x2d5 ; case 0x8 02b5 00da | | Load_Top At_Offset_2 02b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02b7 0125 | % | Execute Any,Set_Constraint 02b8 00da | | Load_Top At_Offset_2 02b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02ba 1c00 | | Execute_Immediate Run_Utility,0x0 02bb 00da | | Load_Top At_Offset_2 02bc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02bd 0125 | % | Execute Any,Set_Constraint 02be 00da | | Load_Top At_Offset_2 02bf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02c0 1c00 | | Execute_Immediate Run_Utility,0x0 02c1 00da | | Load_Top At_Offset_2 02c2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02c3 0125 | % | Execute Any,Set_Constraint 02c4 00da | | Load_Top At_Offset_2 02c5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02c6 1c00 | | Execute_Immediate Run_Utility,0x0 02c7 00da | | Load_Top At_Offset_2 02c8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02c9 0125 | % | Execute Any,Set_Constraint 02ca 00da | | Load_Top At_Offset_2 02cb 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02cc 1c00 | | Execute_Immediate Run_Utility,0x0 02cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02ce 00da | | Load_Top At_Offset_2 02cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02d0 0125 | % | Execute Any,Set_Constraint 02d1 00da | | Load_Top At_Offset_2 02d2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02d3 0125 | % | Execute Any,Set_Constraint 02d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02d5 0869 | i | Execute_Immediate Raise,0x69 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 4605 |F | Jump_Case 0x6 02dc 7804 |x | Jump 0x2e1 ; case 0x0 02dd 7810 |x | Jump 0x2ee ; case 0x1 02de 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 02df 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 02e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 02e1 00da | | Load_Top At_Offset_2 ; case 0x5 02e2 01dc | | Execute Vector,Last 02e3 00db | | Load_Top At_Offset_3 02e4 01dd | | Execute Vector,First 02e5 0263 | c | Execute Discrete,Above_Bound 02e6 7006 |p | Jump_Nonzero 0x2ed 02e7 00d8 | | Load_Top At_Offset_0 02e8 e5ff | | Load 0x2,-0x1 02e9 01d5 | | Execute Vector,Field_Reference 02ea 1c00 | | Execute_Immediate Run_Utility,0x0 02eb 0a01 | | Execute_Immediate Plus,0x1 02ec 7ff8 | | Jump 0x2e5 02ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02ee 00da | | Load_Top At_Offset_2 02ef 01dc | | Execute Vector,Last 02f0 00db | | Load_Top At_Offset_3 02f1 01dd | | Execute Vector,First 02f2 0263 | c | Execute Discrete,Above_Bound 02f3 7006 |p | Jump_Nonzero 0x2fa 02f4 00d8 | | Load_Top At_Offset_0 02f5 e5ff | | Load 0x2,-0x1 02f6 01d7 | | Execute Vector,Field_Read 02f7 1c01 | | Execute_Immediate Run_Utility,0x1 02f8 0a01 | | Execute_Immediate Plus,0x1 02f9 7ff8 | | Jump 0x2f2 02fa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02fb 0000 0000 | | .BLANK 0000[0x5] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0325 | % | .CONST 0x0325 ; Address of begin 0301 039e | | .CONST 0x039e ; Address of exception handler 0302 000a | | .CONST 0x000a ; Number of locals 0303 INIT_0300: 0303 e004 | | Load 0x0,0x4 0304 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0305 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0306 02c7 | | Declare_Variable Any 0307 00d8 | | Load_Top At_Offset_0 0308 1c00 | | Execute_Immediate Run_Utility,0x0 0309 e004 | | Load 0x0,0x4 030a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 030b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030c 02c7 | | Declare_Variable Any 030d 00d8 | | Load_Top At_Offset_0 030e 1c00 | | Execute_Immediate Run_Utility,0x0 030f e004 | | Load 0x0,0x4 0310 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0311 02c7 | | Declare_Variable Any 0312 00d8 | | Load_Top At_Offset_0 0313 1c00 | | Execute_Immediate Run_Utility,0x0 0314 e007 | | Load 0x0,0x7 0315 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0316 00e3 | | Load_Encached Natural_Cache 0317 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0318 e004 | | Load 0x0,0x4 0319 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 031a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 031b 02c7 | | Declare_Variable Any 031c 00d8 | | Load_Top At_Offset_0 031d 1c00 | | Execute_Immediate Run_Utility,0x0 031e e004 | | Load 0x0,0x4 031f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0320 e001 | | Load 0x0,0x1 0321 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0322 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0323 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call 0325 BODY_0300: 0325 e5fe | | Load 0x2,-0x2 0326 e5ff | | Load 0x2,-0x1 0327 e009 | | Load 0x0,0x9 0328 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0329 e5ff | | Load 0x2,-0x1 032a e009 | | Load 0x0,0x9 032b 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 032c 7002 |p | Jump_Nonzero 0x32f 032d e00e | | Load 0x0,0xe 032e 0257 | W | Execute Discrete,Raise 032f e5fe | | Load 0x2,-0x2 0330 4800 |H | Short_Literal 0x0 0331 e5ff | | Load 0x2,-0x1 0332 e009 | | Load 0x0,0x9 0333 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0334 c402 | | Store 0x2,0x2 0335 e403 | | Load 0x2,0x3 0336 0120 | | Execute Any,Is_Value 0337 6804 |h | Jump_Zero 0x33c 0338 e004 | | Load 0x0,0x4 0339 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 033a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033b 7801 |x | Jump 0x33d 033c e403 | | Load 0x2,0x3 033d e00f | | Load 0x0,0xf 033e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 033f e010 | | Load 0x0,0x10 0340 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0341 e004 | | Load 0x0,0x4 0342 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0343 180f | | Execute Package,Field_Execute,Field_Number 0xf 0344 c403 | | Store 0x2,0x3 0345 00cf | | Action Mark_Auxiliary 0346 784f |xO | Jump 0x396 0347 e004 | | Load 0x0,0x4 0348 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0349 e404 | | Load 0x2,0x4 034a 0120 | | Execute Any,Is_Value 034b 6803 |h | Jump_Zero 0x34f 034c e004 | | Load 0x0,0x4 034d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 034e 7801 |x | Jump 0x350 034f e404 | | Load 0x2,0x4 0350 e402 | | Load 0x2,0x2 0351 e004 | | Load 0x0,0x4 0352 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0353 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0354 c404 | | Store 0x2,0x4 0355 c408 | | Store 0x2,0x8 0356 00db | | Load_Top At_Offset_3 0357 6833 |h3 | Jump_Zero 0x38b 0358 e011 | | Load 0x0,0x11 0359 180e | | Execute Package,Field_Execute,Field_Number 0xe 035a 4801 |H | Short_Literal 0x1 035b 4803 |H | Short_Literal 0x3 035c e00d | | Load 0x0,0xd 035d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 035e 035b | [ | Declare_Type Array,Constrained 035f 0337 | 7 | Declare_Variable Array 0360 e402 | | Load 0x2,0x2 0361 e004 | | Load 0x0,0x4 0362 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0363 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0364 e402 | | Load 0x2,0x2 0365 e004 | | Load 0x0,0x4 0366 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0367 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0368 e00d | | Load 0x0,0xd 0369 1810 | | Execute Package,Field_Execute,Field_Number 0x10 036a e00d | | Load 0x0,0xd 036b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 036c 0119 | | Execute Any,Check_In_Formal_Type 036d 4801 |H | Short_Literal 0x1 036e 00da | | Load_Top At_Offset_2 036f 01d6 | | Execute Vector,Field_Write 0370 e402 | | Load 0x2,0x2 0371 e004 | | Load 0x0,0x4 0372 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0373 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0374 e00d | | Load 0x0,0xd 0375 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0376 e00d | | Load 0x0,0xd 0377 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0378 0119 | | Execute Any,Check_In_Formal_Type 0379 4802 |H | Short_Literal 0x2 037a 00da | | Load_Top At_Offset_2 037b 01d6 | | Execute Vector,Field_Write 037c e408 | | Load 0x2,0x8 037d e00d | | Load 0x0,0xd 037e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 037f e00d | | Load 0x0,0xd 0380 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0381 0119 | | Execute Any,Check_In_Formal_Type 0382 4803 |H | Short_Literal 0x3 0383 00da | | Load_Top At_Offset_2 0384 01d6 | | Execute Vector,Field_Write 0385 4806 |H | Short_Literal 0x6 0386 6049 |`I | Indirect_Literal Discrete,0x3d0,{0x00000000, 0x00008155} 0387 e001 | | Load 0x0,0x1 0388 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0389 e00e | | Load 0x0,0xe 038a 0257 | W | Execute Discrete,Raise 038b e404 | | Load 0x2,0x4 038c e403 | | Load 0x2,0x3 038d e004 | | Load 0x0,0x4 038e 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 038f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0390 e402 | | Load 0x2,0x2 0391 e004 | | Load 0x0,0x4 0392 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0393 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0394 c402 | | Store 0x2,0x2 0395 00c9 | | Action Pop_Auxiliary_Loop 0396 e402 | | Load 0x2,0x2 0397 e004 | | Load 0x0,0x4 0398 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0399 181e | | Execute Package,Field_Execute,Field_Number 0x1e 039a 6fac |o | Jump_Zero 0x347 039b 00ce | | Action Pop_Auxiliary 039c 840a | | Call 0x2,0xa 039d 0831 | 1 | Execute_Immediate Raise,0x31 039e TRAP_0300: 039e e00e | | Load 0x0,0xe 039f 010f | | Execute Exception,Equal 03a0 6815 |h | Jump_Zero 0x3b6 03a1 e5fe | | Load 0x2,-0x2 03a2 4801 |H | Short_Literal 0x1 03a3 4801 |H | Short_Literal 0x1 03a4 e00d | | Load 0x0,0xd 03a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03a6 035b | [ | Declare_Type Array,Constrained 03a7 0337 | 7 | Declare_Variable Array 03a8 e5ff | | Load 0x2,-0x1 03a9 e00d | | Load 0x0,0xd 03aa 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03ab e00d | | Load 0x0,0xd 03ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ad 0119 | | Execute Any,Check_In_Formal_Type 03ae 4801 |H | Short_Literal 0x1 03af 00da | | Load_Top At_Offset_2 03b0 01d6 | | Execute Vector,Field_Write 03b1 601a |` | Indirect_Literal Discrete,0x3cc,{0x00000000, 0x000081cc} 03b2 e001 | | Load 0x0,0x1 03b3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03b4 e225 | % | Load 0x1,0x25 03b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b6 e001 | | Load 0x0,0x1 03b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b8 e405 | | Load 0x2,0x5 03b9 e5fe | | Load 0x2,-0x2 03ba e007 | | Load 0x0,0x7 03bb 1b19 | | Execute Package,Field_Read,Field_Number 0x19 03bc 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03bd c405 | | Store 0x2,0x5 03be 005b | [ | Store_Top Discrete,At_Offset_3 03bf e5fe | | Load 0x2,-0x2 03c0 4806 |H | Short_Literal 0x6 03c1 0092 061a | | Action Push_String_Extended,0x61a ; "Rcf_Library.Get_Nonreconstructables" 03c3 e008 | | Load 0x0,0x8 03c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03c5 e001 | | Load 0x0,0x1 03c6 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 03c7 e225 | % | Load 0x1,0x25 03c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c9 0000 0000 | | .XXX[0x3] 03cb 0000 | | 03cc 0000 0000 | | .LITERAL {0x00000000, 0x000081cc} 03d0 0000 0000 | | .LITERAL {0x00000000, 0x00008155} 03d4 0000 0000 | | .BLANK 0000[0x4] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03f1 | | .CONST 0x03f1 ; Address of begin 03d9 0481 | | .CONST 0x0481 ; Address of exception handler 03da 0006 | | .CONST 0x0006 ; Number of locals 03db INIT_03d8: 03db e007 | | Load 0x0,0x7 03dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03dd 00e3 | | Load_Encached Natural_Cache 03de 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 03df e222 | " | Load 0x1,0x22 03e0 0322 | " | Declare_Variable Record 03e1 00d8 | | Load_Top At_Offset_0 03e2 1c00 | | Execute_Immediate Run_Utility,0x0 03e3 e006 | | Load 0x0,0x6 03e4 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 03e5 0322 | " | Declare_Variable Record 03e6 e5fd | | Load 0x2,-0x3 03e7 e5ff | | Load 0x2,-0x1 03e8 e009 | | Load 0x0,0x9 03e9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03ea e006 | | Load 0x0,0x6 03eb 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 03ec 00d9 | | Load_Top At_Offset_1 03ed 017d | } | Execute Record,Structure_Write 03ee e001 | | Load 0x0,0x1 03ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03f0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03f1 BODY_03d8: 03f1 4800 |H | Short_Literal 0x0 03f2 a5fc | | Store_Unchecked 0x2,-0x4 03f3 e5fe | | Load 0x2,-0x2 03f4 e225 | % | Load 0x1,0x25 03f5 01df | | Execute Vector,Equal 03f6 6801 |h | Jump_Zero 0x3f8 03f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f8 e001 | | Load 0x0,0x1 03f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03fa e007 | | Load 0x0,0x7 03fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03fc 4801 |H | Short_Literal 0x1 03fd 4801 |H | Short_Literal 0x1 03fe 4801 |H | Short_Literal 0x1 03ff e5fd | | Load 0x2,-0x3 0400 e405 | | Load 0x2,0x5 0401 e5ff | | Load 0x2,-0x1 0402 e007 | | Load 0x0,0x7 0403 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0404 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 0405 c402 | | Store 0x2,0x2 0406 0059 | Y | Store_Top Discrete,At_Offset_1 0407 4800 |H | Short_Literal 0x0 0408 00d9 | | Load_Top At_Offset_1 0409 e001 | | Load 0x0,0x1 040a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 040b 7003 |p | Jump_Nonzero 0x40f 040c 00d8 | | Load_Top At_Offset_0 040d a5fc | | Store_Unchecked 0x2,-0x4 040e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 040f 00cf | | Action Mark_Auxiliary 0410 7853 |xS | Jump 0x464 0411 e403 | | Load 0x2,0x3 0412 e5fe | | Load 0x2,-0x2 0413 01d5 | | Execute Vector,Field_Reference 0414 e404 | | Load 0x2,0x4 0415 017d | } | Execute Record,Structure_Write 0416 e001 | | Load 0x0,0x1 0417 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0418 e404 | | Load 0x2,0x4 0419 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 041a e003 | | Load 0x0,0x3 041b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 041c e5fd | | Load 0x2,-0x3 041d e404 | | Load 0x2,0x4 041e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 041f e402 | | Load 0x2,0x2 0420 e007 | | Load 0x0,0x7 0421 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0422 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0423 005a | Z | Store_Top Discrete,At_Offset_2 0424 4800 |H | Short_Literal 0x0 0425 00da | | Load_Top At_Offset_2 0426 e001 | | Load 0x0,0x1 0427 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0428 7005 |p | Jump_Nonzero 0x42e 0429 e5fd | | Load 0x2,-0x3 042a 4806 |H | Short_Literal 0x6 042b 00db | | Load_Top At_Offset_3 042c e001 | | Load 0x0,0x1 042d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 042e e001 | | Load 0x0,0x1 042f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0430 e402 | | Load 0x2,0x2 0431 e5fd | | Load 0x2,-0x3 0432 e405 | | Load 0x2,0x5 0433 e404 | | Load 0x2,0x4 0434 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0435 e003 | | Load 0x0,0x3 0436 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0437 e404 | | Load 0x2,0x4 0438 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0439 e007 | | Load 0x0,0x7 043a 1b18 | | Execute Package,Field_Read,Field_Number 0x18 043b 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 043c c402 | | Store 0x2,0x2 043d 005a | Z | Store_Top Discrete,At_Offset_2 043e 4800 |H | Short_Literal 0x0 043f 00da | | Load_Top At_Offset_2 0440 e001 | | Load 0x0,0x1 0441 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0442 7005 |p | Jump_Nonzero 0x448 0443 e5fd | | Load 0x2,-0x3 0444 4806 |H | Short_Literal 0x6 0445 00db | | Load_Top At_Offset_3 0446 e001 | | Load 0x0,0x1 0447 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0448 e001 | | Load 0x0,0x1 0449 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044a e402 | | Load 0x2,0x2 044b e5fd | | Load 0x2,-0x3 044c e405 | | Load 0x2,0x5 044d e404 | | Load 0x2,0x4 044e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 044f e404 | | Load 0x2,0x4 0450 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0451 e007 | | Load 0x0,0x7 0452 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0453 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0454 c402 | | Store 0x2,0x2 0455 005a | Z | Store_Top Discrete,At_Offset_2 0456 4800 |H | Short_Literal 0x0 0457 00da | | Load_Top At_Offset_2 0458 e001 | | Load 0x0,0x1 0459 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 045a 7005 |p | Jump_Nonzero 0x460 045b e5fd | | Load 0x2,-0x3 045c 4806 |H | Short_Literal 0x6 045d 00db | | Load_Top At_Offset_3 045e e001 | | Load 0x0,0x1 045f 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0460 e403 | | Load 0x2,0x3 0461 0a01 | | Execute_Immediate Plus,0x1 0462 c403 | | Store 0x2,0x3 0463 00c9 | | Action Pop_Auxiliary_Loop 0464 e403 | | Load 0x2,0x3 0465 e5fe | | Load 0x2,-0x2 0466 01db | | Execute Vector,Length 0467 027a | z | Execute Discrete,Less_Equal 0468 77a8 |w | Jump_Nonzero 0x411 0469 00ce | | Action Pop_Auxiliary 046a e001 | | Load 0x0,0x1 046b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046c e402 | | Load 0x2,0x2 046d e5fd | | Load 0x2,-0x3 046e e007 | | Load 0x0,0x7 046f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0470 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0471 c402 | | Store 0x2,0x2 0472 0059 | Y | Store_Top Discrete,At_Offset_1 0473 4800 |H | Short_Literal 0x0 0474 00d9 | | Load_Top At_Offset_1 0475 e001 | | Load 0x0,0x1 0476 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0477 7003 |p | Jump_Nonzero 0x47b 0478 00d8 | | Load_Top At_Offset_0 0479 a5fc | | Store_Unchecked 0x2,-0x4 047a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 047b e5fd | | Load 0x2,-0x3 047c 0092 061b | | Action Push_String_Extended,0x61b ; "Successfully restored nonreconstructable data" 047e e008 | | Load 0x0,0x8 047f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0480 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0481 TRAP_03d8: 0481 0007 | | Action Break_Optional 0482 e001 | | Load 0x0,0x1 0483 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0484 e402 | | Load 0x2,0x2 0485 e5fd | | Load 0x2,-0x3 0486 e007 | | Load 0x0,0x7 0487 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0488 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0489 c402 | | Store 0x2,0x2 048a 005a | Z | Store_Top Discrete,At_Offset_2 048b 0092 061c | | Action Push_String_Extended,0x61c ; "Rcf_Library.Set_Nonreconstructables" 048d e008 | | Load 0x0,0x8 048e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 048f a5fc | | Store_Unchecked 0x2,-0x4 0490 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0491 0000 0000 | | .BLANK 0000[0x7] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049e | | .CONST 0x049e ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0002 | | .CONST 0x0002 ; Number of locals 049b INIT_0498: 049b e5f2 | | Load 0x2,-0xe 049c e5ff | | Load 0x2,-0x1 049d 8226 | & | Call 0x1,0x26 049e BODY_0498: 049e e001 | | Load 0x0,0x1 049f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a0 4801 |H | Short_Literal 0x1 04a1 e5f2 | | Load 0x2,-0xe 04a2 e5f3 | | Load 0x2,-0xd 04a3 e403 | | Load 0x2,0x3 04a4 e5f4 | | Load 0x2,-0xc 04a5 e5f5 | | Load 0x2,-0xb 04a6 e5f6 | | Load 0x2,-0xa 04a7 e5f7 | | Load 0x2,-0x9 04a8 e5f8 | | Load 0x2,-0x8 04a9 e5fb | | Load 0x2,-0x5 04aa 00ea | | Load_Encached Null_String_Cache 04ab 00ea | | Load_Encached Null_String_Cache 04ac 00ea | | Load_Encached Null_String_Cache 04ad e5ff | | Load 0x2,-0x1 04ae e007 | | Load 0x0,0x7 04af 1b19 | | Execute Package,Field_Read,Field_Number 0x19 04b0 1869 | i | Execute Package,Field_Execute,Field_Number 0x69 04b1 c402 | | Store 0x2,0x2 04b2 4800 |H | Short_Literal 0x0 04b3 e402 | | Load 0x2,0x2 04b4 e001 | | Load 0x0,0x1 04b5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04b6 7004 |p | Jump_Nonzero 0x4bb 04b7 e402 | | Load 0x2,0x2 04b8 a5f1 | | Store_Unchecked 0x2,-0xf 04b9 00cc | | Action Pop_Block 04ba 450f |E | Exit_Suprogram New_Top_Offset 0xf 04bb e001 | | Load 0x0,0x1 04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04bd e5f2 | | Load 0x2,-0xe 04be 00da | | Load_Top At_Offset_2 04bf e5ff | | Load 0x2,-0x1 04c0 8227 | ' | Call 0x1,0x27 04c1 c402 | | Store 0x2,0x2 04c2 4800 |H | Short_Literal 0x0 04c3 e402 | | Load 0x2,0x2 04c4 e001 | | Load 0x0,0x1 04c5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04c6 7005 |p | Jump_Nonzero 0x4cc 04c7 e5f2 | | Load 0x2,-0xe 04c8 4806 |H | Short_Literal 0x6 04c9 e402 | | Load 0x2,0x2 04ca e001 | | Load 0x0,0x1 04cb 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 04cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04cd 0000 0000 | | .XXX[0x3] 04cf 0000 | | 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04df | | .CONST 0x04df ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0003 | | .CONST 0x0003 ; Number of locals 04d3 INIT_04d0: 04d3 6014 |` | Indirect_Literal Discrete,0x4e8,{0x00000000, 0x00004000} 04d4 e00a | | Load 0x0,0xa 04d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04d6 0092 0612 | | Action Push_String_Extended,0x612 ; "Ftp.Remote_Machine" 04d8 e402 | | Load 0x2,0x2 04d9 e00b | | Load 0x0,0xb 04da 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 04db 00d8 | | Load_Top At_Offset_0 04dc 01db | | Execute Vector,Length 04dd e20d | | Load 0x1,0xd 04de 1c08 | | Execute_Immediate Run_Utility,0x8 04df BODY_04d0: 04df 4800 |H | Short_Literal 0x0 04e0 00d9 | | Load_Top At_Offset_1 04e1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 04e2 00d9 | | Load_Top At_Offset_1 04e3 00d9 | | Load_Top At_Offset_1 04e4 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 04e5 00d8 | | Load_Top At_Offset_0 04e6 00cb | | Action Pop_Block_With_Result 04e7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 04ec 0000 0000 | | .BLANK 0000[0x4] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04ff | | .CONST 0x04ff ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0003 | | .CONST 0x0003 ; Number of locals 04f3 INIT_04f0: 04f3 67f4 |g | Indirect_Literal Discrete,0x4e8,{0x00000000, 0x00004000} 04f4 e00a | | Load 0x0,0xa 04f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04f6 0092 0614 | | Action Push_String_Extended,0x614 ; "Ftp.Remote_Directory" 04f8 e402 | | Load 0x2,0x2 04f9 e00b | | Load 0x0,0xb 04fa 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 04fb 00d8 | | Load_Top At_Offset_0 04fc 01db | | Execute Vector,Length 04fd e20d | | Load 0x1,0xd 04fe 1c08 | | Execute_Immediate Run_Utility,0x8 04ff BODY_04f0: 04ff 4800 |H | Short_Literal 0x0 0500 00d9 | | Load_Top At_Offset_1 0501 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0502 00d9 | | Load_Top At_Offset_1 0503 00d9 | | Load_Top At_Offset_1 0504 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0505 00d8 | | Load_Top At_Offset_0 0506 00cb | | Action Pop_Block_With_Result 0507 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 0515 | | .CONST 0x0515 ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0003 | | .CONST 0x0003 ; Number of locals 050b INIT_0508: 050b e5fd | | Load 0x2,-0x3 050c e405 | | Load 0x2,0x5 050d e402 | | Load 0x2,0x2 050e e007 | | Load 0x0,0x7 050f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0510 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0511 00d8 | | Load_Top At_Offset_0 0512 01db | | Execute Vector,Length 0513 e20d | | Load 0x1,0xd 0514 1c08 | | Execute_Immediate Run_Utility,0x8 0515 BODY_0508: 0515 e001 | | Load 0x0,0x1 0516 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0517 e402 | | Load 0x2,0x2 0518 e5fd | | Load 0x2,-0x3 0519 e00c | | Load 0x0,0xc 051a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 051b c402 | | Store 0x2,0x2 051c c403 | | Store 0x2,0x3 051d 00d9 | | Load_Top At_Offset_1 051e 0092 061d | | Action Push_String_Extended,0x61d ; "<error>" 0520 01df | | Execute Vector,Equal 0521 6808 |h | Jump_Zero 0x52a 0522 e00d | | Load 0x0,0xd 0523 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0524 600f |` | Indirect_Literal Discrete,0x534,{0x00000000, 0x000084e9} 0525 e001 | | Load 0x0,0x1 0526 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0527 00d9 | | Load_Top At_Offset_1 0528 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0529 7803 |x | Jump 0x52d 052a 4800 |H | Short_Literal 0x0 052b 00d9 | | Load_Top At_Offset_1 052c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 052d 00d9 | | Load_Top At_Offset_1 052e 00d9 | | Load_Top At_Offset_1 052f 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0530 00d8 | | Load_Top At_Offset_0 0531 00cb | | Action Pop_Block_With_Result 0532 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0533 0000 | | .XXX[0x1] 0534 0000 0000 | | .LITERAL {0x00000000, 0x000084e9} 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 0550 | P | .CONST 0x0550 ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0003 | | .CONST 0x0003 ; Number of locals 053b INIT_0538: 053b 4801 |H | Short_Literal 0x1 053c e403 | | Load 0x2,0x3 053d e004 | | Load 0x0,0x4 053e 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 053f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0540 e224 | $ | Load 0x1,0x24 0541 035b | [ | Declare_Type Array,Constrained 0542 0337 | 7 | Declare_Variable Array 0543 00d8 | | Load_Top At_Offset_0 0544 1c00 | | Execute_Immediate Run_Utility,0x0 0545 e006 | | Load 0x0,0x6 0546 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0547 0322 | " | Declare_Variable Record 0548 e5fe | | Load 0x2,-0x2 0549 e5ff | | Load 0x2,-0x1 054a e009 | | Load 0x0,0x9 054b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 054c e006 | | Load 0x0,0x6 054d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 054e 00d9 | | Load_Top At_Offset_1 054f 017d | } | Execute Record,Structure_Write 0550 BODY_0538: 0550 e001 | | Load 0x0,0x1 0551 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0552 e007 | | Load 0x0,0x7 0553 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0554 4801 |H | Short_Literal 0x1 0555 4801 |H | Short_Literal 0x1 0556 4800 |H | Short_Literal 0x0 0557 e011 | | Load 0x0,0x11 0558 180e | | Execute Package,Field_Execute,Field_Number 0xe 0559 e011 | | Load 0x0,0x11 055a 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 055b e011 | | Load 0x0,0x11 055c 180e | | Execute Package,Field_Execute,Field_Number 0xe 055d e011 | | Load 0x0,0x11 055e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 055f e011 | | Load 0x0,0x11 0560 180e | | Execute Package,Field_Execute,Field_Number 0xe 0561 e011 | | Load 0x0,0x11 0562 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0563 e011 | | Load 0x0,0x11 0564 180e | | Execute Package,Field_Execute,Field_Number 0xe 0565 e011 | | Load 0x0,0x11 0566 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0567 e011 | | Load 0x0,0x11 0568 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0569 4802 |H | Short_Literal 0x2 056a e011 | | Load 0x0,0x11 056b 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 056c e603 | | Load 0x3,0x3 056d e5ff | | Load 0x2,-0x1 056e e007 | | Load 0x0,0x7 056f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0570 186a | j | Execute Package,Field_Execute,Field_Number 0x6a 0571 c405 | | Store 0x2,0x5 0572 c409 | | Store 0x2,0x9 0573 4800 |H | Short_Literal 0x0 0574 e409 | | Load 0x2,0x9 0575 e001 | | Load 0x0,0x1 0576 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0577 7007 |p | Jump_Nonzero 0x57f 0578 e5fe | | Load 0x2,-0x2 0579 4806 |H | Short_Literal 0x6 057a e409 | | Load 0x2,0x9 057b e001 | | Load 0x0,0x1 057c 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 057d e00e | | Load 0x0,0xe 057e 0257 | W | Execute Discrete,Raise 057f e407 | | Load 0x2,0x7 0580 0120 | | Execute Any,Is_Value 0581 6804 |h | Jump_Zero 0x586 0582 e004 | | Load 0x0,0x4 0583 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0584 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0585 7801 |x | Jump 0x587 0586 e407 | | Load 0x2,0x7 0587 e00f | | Load 0x0,0xf 0588 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0589 e010 | | Load 0x0,0x10 058a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 058b e403 | | Load 0x2,0x3 058c e004 | | Load 0x0,0x4 058d 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 058e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 058f c407 | | Store 0x2,0x7 0590 00cf | | Action Mark_Auxiliary 0591 783b |x; | Jump 0x5cd 0592 e406 | | Load 0x2,0x6 0593 0a01 | | Execute_Immediate Plus,0x1 0594 c406 | | Store 0x2,0x6 0595 e407 | | Load 0x2,0x7 0596 e004 | | Load 0x0,0x4 0597 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0598 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0599 c404 | | Store 0x2,0x4 059a e404 | | Load 0x2,0x4 059b e406 | | Load 0x2,0x6 059c e602 | | Load 0x3,0x2 059d 01d5 | | Execute Vector,Field_Reference 059e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 059f e406 | | Load 0x2,0x6 05a0 00db | | Load_Top At_Offset_3 05a1 01d5 | | Execute Vector,Field_Reference 05a2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05a3 00d8 | | Load_Top At_Offset_0 05a4 e5fe | | Load 0x2,-0x2 05a5 e404 | | Load 0x2,0x4 05a6 e405 | | Load 0x2,0x5 05a7 e007 | | Load 0x0,0x7 05a8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05a9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05aa e003 | | Load 0x0,0x3 05ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05ac 00d2 | | Pop_Control Pop_Count_2 05ad e406 | | Load 0x2,0x6 05ae 00db | | Load_Top At_Offset_3 05af 01d5 | | Execute Vector,Field_Reference 05b0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05b1 00d8 | | Load_Top At_Offset_0 05b2 e5fe | | Load 0x2,-0x2 05b3 e603 | | Load 0x3,0x3 05b4 e404 | | Load 0x2,0x4 05b5 e405 | | Load 0x2,0x5 05b6 e007 | | Load 0x0,0x7 05b7 1b18 | | Execute Package,Field_Read,Field_Number 0x18 05b8 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 05b9 e003 | | Load 0x0,0x3 05ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05bb 00d2 | | Pop_Control Pop_Count_2 05bc e5fe | | Load 0x2,-0x2 05bd 00da | | Load_Top At_Offset_2 05be e404 | | Load 0x2,0x4 05bf e405 | | Load 0x2,0x5 05c0 e007 | | Load 0x0,0x7 05c1 1b18 | | Execute Package,Field_Read,Field_Number 0x18 05c2 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 05c3 e406 | | Load 0x2,0x6 05c4 e602 | | Load 0x3,0x2 05c5 01d5 | | Execute Vector,Field_Reference 05c6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 05c7 e407 | | Load 0x2,0x7 05c8 e004 | | Load 0x0,0x4 05c9 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 05ca 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05cb c407 | | Store 0x2,0x7 05cc 00c9 | | Action Pop_Auxiliary_Loop 05cd e407 | | Load 0x2,0x7 05ce e004 | | Load 0x0,0x4 05cf 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 05d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05d1 6fc0 |o | Jump_Zero 0x592 05d2 00ce | | Action Pop_Auxiliary 05d3 e001 | | Load 0x0,0x1 05d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d5 e405 | | Load 0x2,0x5 05d6 e5fe | | Load 0x2,-0x2 05d7 e007 | | Load 0x0,0x7 05d8 1b19 | | Execute Package,Field_Read,Field_Number 0x19 05d9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05da c405 | | Store 0x2,0x5 05db c409 | | Store 0x2,0x9 05dc 4800 |H | Short_Literal 0x0 05dd e409 | | Load 0x2,0x9 05de e001 | | Load 0x0,0x1 05df 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 05e0 7007 |p | Jump_Nonzero 0x5e8 05e1 e5fe | | Load 0x2,-0x2 05e2 4806 |H | Short_Literal 0x6 05e3 e409 | | Load 0x2,0x9 05e4 e001 | | Load 0x0,0x1 05e5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 05e6 e00e | | Load 0x0,0xe 05e7 0257 | W | Execute Discrete,Raise 05e8 00d9 | | Load_Top At_Offset_1 05e9 e224 | $ | Load 0x1,0x24 05ea 01c6 | | Execute Vector,Convert_To_Formal 05eb 00cb | | Action Pop_Block_With_Result 05ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05ed 0000 0000 | | .XXX[0x3] 05ef 0000 | | 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f3 | | .CONST 0x05f3 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0001 | | .CONST 0x0001 ; Number of locals 05f3 BODY_05f0: 05f3 INIT_05f0: 05f3 4608 |F | Jump_Case 0x9 05f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 05f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05f6 7819 |x | Jump 0x610 ; case 0x2 05f7 7818 |x | Jump 0x610 ; case 0x3 05f8 7817 |x | Jump 0x610 ; case 0x4 05f9 7816 |x | Jump 0x610 ; case 0x5 05fa 7815 |x | Jump 0x610 ; case 0x6 05fb 7801 |x | Jump 0x5fd ; case 0x7 05fc 7809 |x | Jump 0x606 ; case 0x8 05fd 00db | | Load_Top At_Offset_3 05fe 4801 |H | Short_Literal 0x1 05ff e5fe | | Load 0x2,-0x2 0600 00e9 | | Load_Encached String_Cache 0601 035b | [ | Declare_Type Array,Constrained 0602 4801 |H | Short_Literal 0x1 0603 e5ff | | Load 0x2,-0x1 0604 031b | | Declare_Type Variant_Record,Constrained 0605 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0606 00db | | Load_Top At_Offset_3 0607 00db | | Load_Top At_Offset_3 0608 02fc | | Declare_Variable Variant_Record,With_Constraint 0609 4801 |H | Short_Literal 0x1 060a e5fe | | Load 0x2,-0x2 060b 00e9 | | Load_Encached String_Cache 060c 0334 | 4 | Declare_Variable Array,With_Constraint 060d 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 060e 016a | j | QQ_execute Variant_Record,XXX 060f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0610 0869 | i | Execute_Immediate Raise,0x69 0611 ; -------------------------------------------------------------------------------------- 0611 ; STRING TABLE 0611 ; -------------------------------------------------------------------------------------- 0611 001c | | .STRTAB 0x001c->0x061f ; "Initialize" 0612 0024 | $ | .STRTAB 0x0024->0x0624 ; "Ftp.Remote_Machine" 0613 0034 | 4 | .STRTAB 0x0034->0x062d ; "Set_Remote_Machine" 0614 0044 | D | .STRTAB 0x0044->0x0636 ; "Ftp.Remote_Directory" 0615 0056 | V | .STRTAB 0x0056->0x0640 ; "Set_Remote_Directory" 0616 0068 | h | .STRTAB 0x0068->0x064a ; "Set_Remote_Library" 0617 0078 | x | .STRTAB 0x0078->0x0653 ; "Remote_Machine" 0618 0084 | | .STRTAB 0x0084->0x065a ; "Remote_Directory" 0619 0092 | | .STRTAB 0x0092->0x0662 ; "Remote_Library" 061a 009e | | .STRTAB 0x009e->0x0669 ; "Rcf_Library.Get_Nonreconstructables" 061b 00bf | | .STRTAB 0x00bf->0x067a ; "Successfully restored nonreconstructable data" 061c 00ea | | .STRTAB 0x00ea->0x0691 ; "Rcf_Library.Set_Nonreconstructables" 061d 010b | | .STRTAB 0x010b->0x06a2 ; "<error>" 061e 0110 | | .STREND 0x0110->0x06a6 061f 496e 6974 |Init| .STRTAB_STRINGS 06a6 0000 0000 | | .XXX[0x2] 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; Debug Table 06a8 ; -------------------------------------------------------------------------------------- 06a8 0004 000d | | .DEBUG4 0x0004,0x000d,0x4e5f,0x0000,0x0001,0x0000 06ae 0000 0000 | | .BLANK 0000[0x152]