|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0660 | ` | .CONST 0x0660 ; 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 8003 | | .CONST 0x8003 ; 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 05ab | | Declare_Subprogram INIT_05a8,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 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
003a c21c | | Store 0x1,0x1c
003b 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
003d c21d | | Store 0x1,0x1d
003e 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0040 c21e | | Store 0x1,0x1e
0041 029a 029b | | Declare_Subprogram INIT_0298,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 02a3 | | Declare_Subprogram INIT_02a0,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 02d3 | | Declare_Subprogram INIT_02d0,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 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
006e 029d 03c3 | | Declare_Subprogram INIT_03c0,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 00cd | | .CONST 0x00cd ; 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 0473 | s| Declare_Subprogram INIT_0470,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 7819 |x | Jump 0xb7
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 00da | | Load_Top At_Offset_2
00b3 6803 |h | Jump_Zero 0xb7
00b4 00da | | Load_Top At_Offset_2
00b5 a5f1 | | Store_Unchecked 0x2,-0xf
00b6 450f |E | Exit_Suprogram New_Top_Offset 0xf
00b7 e001 | | Load 0x0,0x1
00b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b9 e5f2 | | Load 0x2,-0xe
00ba e5fa | | Load 0x2,-0x6
00bb e5fe | | Load 0x2,-0x2
00bc e5ff | | Load 0x2,-0x1
00bd 8219 | | Call 0x1,0x19
00be 005b | [ | Store_Top Discrete,At_Offset_3
00bf 00da | | Load_Top At_Offset_2
00c0 6803 |h | Jump_Zero 0xc4
00c1 00da | | Load_Top At_Offset_2
00c2 a5f1 | | Store_Unchecked 0x2,-0xf
00c3 450f |E | Exit_Suprogram New_Top_Offset 0xf
00c4 e001 | | Load 0x0,0x1
00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c6 e5f2 | | Load 0x2,-0xe
00c7 e5fa | | Load 0x2,-0x6
00c8 e5fd | | Load 0x2,-0x3
00c9 e5ff | | Load 0x2,-0x1
00ca 821a | | Call 0x1,0x1a
00cb c5f1 | | Store 0x2,-0xf
00cc 450f |E | Exit_Suprogram New_Top_Offset 0xf
00cd TRAP_0088:
00cd e001 | | Load 0x0,0x1
00ce 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00cf 010f | | Execute Exception,Equal
00d0 6804 |h | Jump_Zero 0xd5
00d1 e001 | | Load 0x0,0x1
00d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d3 a5f1 | | Store_Unchecked 0x2,-0xf
00d4 450f |E | Exit_Suprogram New_Top_Offset 0xf
00d5 0092 05c9 | | Action Push_String_Extended,0x5c9 ; "Initialize"
00d7 e008 | | Load 0x0,0x8
00d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d9 a5f1 | | Store_Unchecked 0x2,-0xf
00da 450f |E | Exit_Suprogram New_Top_Offset 0xf
00db 0000 0000 | | .BLANK 0000[0x5]
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 05ca | | Action Push_String_Extended,0x5ca ; "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 05cb | | Action Push_String_Extended,0x5cb ; "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 05cc | | Action Push_String_Extended,0x5cc ; "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 05cd | | Action Push_String_Extended,0x5cd ; "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 01ae | | .CONST 0x01ae ; 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 05ce | | Action Push_String_Extended,0x5ce ; "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 00da | | Load_Top At_Offset_2
017e 6803 |h | Jump_Zero 0x182
017f 00da | | Load_Top At_Offset_2
0180 a5fb | | Store_Unchecked 0x2,-0x5
0181 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0182 00db | | Load_Top At_Offset_3
0183 e00c | | Load 0x0,0xc
0184 180f | | Execute Package,Field_Execute,Field_Number 0xf
0185 6807 |h | Jump_Zero 0x18d
0186 e00d | | Load 0x0,0xd
0187 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0188 604b |`K | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x00008147}
0189 e001 | | Load 0x0,0x1
018a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
018b a5fb | | Store_Unchecked 0x2,-0x5
018c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
018d e001 | | Load 0x0,0x1
018e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018f e402 | | Load 0x2,0x2
0190 e5fc | | Load 0x2,-0x4
0191 00db | | Load_Top At_Offset_3
0192 e5fe | | Load 0x2,-0x2
0193 e007 | | Load 0x0,0x7
0194 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0195 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0196 c402 | | Store 0x2,0x2
0197 005a | Z | Store_Top Discrete,At_Offset_2
0198 00d9 | | Load_Top At_Offset_1
0199 a5fb | | Store_Unchecked 0x2,-0x5
019a 00d9 | | Load_Top At_Offset_1
019b 6809 |h | Jump_Zero 0x1a5
019c e001 | | Load 0x0,0x1
019d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019e e402 | | Load 0x2,0x2
019f e5fc | | Load 0x2,-0x4
01a0 e00c | | Load 0x0,0xc
01a1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01a2 c402 | | Store 0x2,0x2
01a3 005b | [ | Store_Top Discrete,At_Offset_3
01a4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01a5 e001 | | Load 0x0,0x1
01a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a7 e402 | | Load 0x2,0x2
01a8 e5fc | | Load 0x2,-0x4
01a9 e00c | | Load 0x0,0xc
01aa 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ab c402 | | Store 0x2,0x2
01ac c5fb | | Store 0x2,-0x5
01ad 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01ae TRAP_0158:
01ae e001 | | Load 0x0,0x1
01af 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01b0 010f | | Execute Exception,Equal
01b1 6810 |h | Jump_Zero 0x1c2
01b2 e001 | | Load 0x0,0x1
01b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b4 a5fb | | Store_Unchecked 0x2,-0x5
01b5 e402 | | Load 0x2,0x2
01b6 e00c | | Load 0x0,0xc
01b7 180f | | Execute Package,Field_Execute,Field_Number 0xf
01b8 7008 |p | Jump_Nonzero 0x1c1
01b9 e001 | | Load 0x0,0x1
01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bb e402 | | Load 0x2,0x2
01bc e5fc | | Load 0x2,-0x4
01bd e00c | | Load 0x0,0xc
01be 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01bf c402 | | Store 0x2,0x2
01c0 005b | [ | Store_Top Discrete,At_Offset_3
01c1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01c2 0092 05ce | | Action Push_String_Extended,0x5ce ; "Set_Remote_Library"
01c4 e008 | | Load 0x0,0x8
01c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c6 a5fb | | Store_Unchecked 0x2,-0x5
01c7 e402 | | Load 0x2,0x2
01c8 e00c | | Load 0x0,0xc
01c9 180f | | Execute Package,Field_Execute,Field_Number 0xf
01ca 7008 |p | Jump_Nonzero 0x1d3
01cb e001 | | Load 0x0,0x1
01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cd e402 | | Load 0x2,0x2
01ce e5fc | | Load 0x2,-0x4
01cf e00c | | Load 0x0,0xc
01d0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01d1 c402 | | Store 0x2,0x2
01d2 005b | [ | Store_Top Discrete,At_Offset_3
01d3 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01d4 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e5 | | .CONST 0x01e5 ; Address of begin
01d9 01ee | | .CONST 0x01ee ; Address of exception handler
01da 0004 | | .CONST 0x0004 ; Number of locals
01db INIT_01d8:
01db e004 | | Load 0x0,0x4
01dc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01dd 02ff | | Declare_Variable Variant_Record
01de 00d8 | | Load_Top At_Offset_0
01df 1c00 | | Execute_Immediate Run_Utility,0x0
01e0 4800 |H | Short_Literal 0x0
01e1 e20d | | Load 0x1,0xd
01e2 1c08 | | Execute_Immediate Run_Utility,0x8
01e3 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
01e5 BODY_01d8:
01e5 e5fd | | Load 0x2,-0x3
01e6 4801 |H | Short_Literal 0x1
01e7 e5ff | | Load 0x2,-0x1
01e8 e009 | | Load 0x0,0x9
01e9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01ea 00db | | Load_Top At_Offset_3
01eb 016d | m | Execute Variant_Record,Structure_Write
01ec 8404 | | Call 0x2,0x4
01ed 0831 | 1 | Execute_Immediate Raise,0x31
01ee TRAP_01d8:
01ee e001 | | Load 0x0,0x1
01ef 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01f0 010f | | Execute Exception,Equal
01f1 6806 |h | Jump_Zero 0x1f8
01f2 e001 | | Load 0x0,0x1
01f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01f4 00db | | Load_Top At_Offset_3
01f5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f6 00da | | Load_Top At_Offset_2
01f7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01f8 0092 05cf | | Action Push_String_Extended,0x5cf ; "Remote_Machine"
01fa e008 | | Load 0x0,0x8
01fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
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 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020d | | .CONST 0x020d ; Address of begin
0201 0216 | | .CONST 0x0216 ; Address of exception handler
0202 0004 | | .CONST 0x0004 ; Number of locals
0203 INIT_0200:
0203 e004 | | Load 0x0,0x4
0204 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0205 02ff | | Declare_Variable Variant_Record
0206 00d8 | | Load_Top At_Offset_0
0207 1c00 | | Execute_Immediate Run_Utility,0x0
0208 4800 |H | Short_Literal 0x0
0209 e20d | | Load 0x1,0xd
020a 1c08 | | Execute_Immediate Run_Utility,0x8
020b 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call
020d BODY_0200:
020d e5fd | | Load 0x2,-0x3
020e 4801 |H | Short_Literal 0x1
020f e5ff | | Load 0x2,-0x1
0210 e009 | | Load 0x0,0x9
0211 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0212 00db | | Load_Top At_Offset_3
0213 016d | m | Execute Variant_Record,Structure_Write
0214 8404 | | Call 0x2,0x4
0215 0831 | 1 | Execute_Immediate Raise,0x31
0216 TRAP_0200:
0216 e001 | | Load 0x0,0x1
0217 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0218 010f | | Execute Exception,Equal
0219 6806 |h | Jump_Zero 0x220
021a e001 | | Load 0x0,0x1
021b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
021c 00db | | Load_Top At_Offset_3
021d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
021e 00da | | Load_Top At_Offset_2
021f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0220 0092 05d0 | | Action Push_String_Extended,0x5d0 ; "Remote_Directory"
0222 e008 | | Load 0x0,0x8
0223 1810 | | Execute Package,Field_Execute,Field_Number 0x10
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 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 023c | < | .CONST 0x023c ; Address of begin
0229 0264 | d | .CONST 0x0264 ; Address of exception handler
022a 0006 | | .CONST 0x0006 ; Number of locals
022b INIT_0228:
022b e00c | | Load 0x0,0xc
022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022d e001 | | Load 0x0,0x1
022e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022f 4800 |H | Short_Literal 0x0
0230 e20d | | Load 0x1,0xd
0231 1c08 | | Execute_Immediate Run_Utility,0x8
0232 e006 | | Load 0x0,0x6
0233 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0234 0322 | " | Declare_Variable Record
0235 e5fe | | Load 0x2,-0x2
0236 e006 | | Load 0x0,0x6
0237 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0238 00d9 | | Load_Top At_Offset_1
0239 017d | } | Execute Record,Structure_Write
023a 029f 04db | | Declare_Subprogram INIT_04d8,For_Call
023c BODY_0228:
023c e5fd | | Load 0x2,-0x3
023d 0092 05d1 | | Action Push_String_Extended,0x5d1 ; "Remote_Library"
023f e008 | | Load 0x0,0x8
0240 180e | | Execute Package,Field_Execute,Field_Number 0xe
0241 e001 | | Load 0x0,0x1
0242 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0243 e00c | | Load 0x0,0xc
0244 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0245 e5fd | | Load 0x2,-0x3
0246 4801 |H | Short_Literal 0x1
0247 4801 |H | Short_Literal 0x1
0248 4800 |H | Short_Literal 0x0
0249 e405 | | Load 0x2,0x5
024a e5ff | | Load 0x2,-0x1
024b e00c | | Load 0x0,0xc
024c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
024d c402 | | Store 0x2,0x2
024e c403 | | Store 0x2,0x3
024f 00db | | Load_Top At_Offset_3
0250 700e |p | Jump_Nonzero 0x25f
0251 e402 | | Load 0x2,0x2
0252 e00c | | Load 0x0,0xc
0253 180f | | Execute Package,Field_Execute,Field_Number 0xf
0254 6809 |h | Jump_Zero 0x25e
0255 e00d | | Load 0x0,0xd
0256 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0257 6038 |`8 | Indirect_Literal Discrete,0x290,{0x00000000, 0x00008147}
0258 e001 | | Load 0x0,0x1
0259 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025a 00db | | Load_Top At_Offset_3
025b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
025c 00da | | Load_Top At_Offset_2
025d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
025e 8406 | | Call 0x2,0x6
025f 00db | | Load_Top At_Offset_3
0260 00db | | Load_Top At_Offset_3
0261 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0262 00da | | Load_Top At_Offset_2
0263 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0264 TRAP_0228:
0264 e001 | | Load 0x0,0x1
0265 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0266 010f | | Execute Exception,Equal
0267 6812 |h | Jump_Zero 0x27a
0268 e001 | | Load 0x0,0x1
0269 181b | | Execute Package,Field_Execute,Field_Number 0x1b
026a e404 | | Load 0x2,0x4
026b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
026c e402 | | Load 0x2,0x2
026d e00c | | Load 0x0,0xc
026e 180f | | Execute Package,Field_Execute,Field_Number 0xf
026f 7008 |p | Jump_Nonzero 0x278
0270 e001 | | Load 0x0,0x1
0271 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0272 e402 | | Load 0x2,0x2
0273 e5fd | | Load 0x2,-0x3
0274 e00c | | Load 0x0,0xc
0275 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0276 c402 | | Store 0x2,0x2
0277 c403 | | Store 0x2,0x3
0278 00db | | Load_Top At_Offset_3
0279 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
027a 0092 05d1 | | Action Push_String_Extended,0x5d1 ; "Remote_Library"
027c e008 | | Load 0x0,0x8
027d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
027e e404 | | Load 0x2,0x4
027f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0280 e402 | | Load 0x2,0x2
0281 e00c | | Load 0x0,0xc
0282 180f | | Execute Package,Field_Execute,Field_Number 0xf
0283 7008 |p | Jump_Nonzero 0x28c
0284 e001 | | Load 0x0,0x1
0285 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0286 e402 | | Load 0x2,0x2
0287 e5fd | | Load 0x2,-0x3
0288 e00c | | Load 0x0,0xc
0289 1817 | | Execute Package,Field_Execute,Field_Number 0x17
028a c402 | | Store 0x2,0x2
028b c403 | | Store 0x2,0x3
028c 00db | | Load_Top At_Offset_3
028d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
028e 0000 0000 | | .XXX[0x2]
0290 0000 0000 | | .LITERAL {0x00000000, 0x00008147}
0294 0000 0000 | | .BLANK 0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e20e | | Load 0x1,0xe
029c 0257 | W | Execute Discrete,Raise
029d 0000 0000 | | .XXX[0x3]
029f 0000 | |
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 4608 |F | Jump_Case 0x9
02a4 7808 |x | Jump 0x2ad ; case 0x0
02a5 7820 |x | Jump 0x2c6 ; case 0x1
02a6 7826 |x& | Jump 0x2cd ; case 0x2
02a7 7825 |x% | Jump 0x2cd ; case 0x3
02a8 7824 |x$ | Jump 0x2cd ; case 0x4
02a9 7823 |x# | Jump 0x2cd ; case 0x5
02aa 7822 |x" | Jump 0x2cd ; case 0x6
02ab 7821 |x! | Jump 0x2cd ; case 0x7
02ac 7820 |x | Jump 0x2cd ; case 0x8
02ad 00da | | Load_Top At_Offset_2
02ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02af 0125 | % | Execute Any,Set_Constraint
02b0 00da | | Load_Top At_Offset_2
02b1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02b2 1c00 | | Execute_Immediate Run_Utility,0x0
02b3 00da | | Load_Top At_Offset_2
02b4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02b5 0125 | % | Execute Any,Set_Constraint
02b6 00da | | Load_Top At_Offset_2
02b7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02b8 1c00 | | Execute_Immediate Run_Utility,0x0
02b9 00da | | Load_Top At_Offset_2
02ba 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02bb 0125 | % | Execute Any,Set_Constraint
02bc 00da | | Load_Top At_Offset_2
02bd 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02be 1c00 | | Execute_Immediate Run_Utility,0x0
02bf 00da | | Load_Top At_Offset_2
02c0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02c1 0125 | % | Execute Any,Set_Constraint
02c2 00da | | Load_Top At_Offset_2
02c3 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02c4 1c00 | | Execute_Immediate Run_Utility,0x0
02c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02c6 00da | | Load_Top At_Offset_2
02c7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02c8 0125 | % | Execute Any,Set_Constraint
02c9 00da | | Load_Top At_Offset_2
02ca 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
02cb 0125 | % | Execute Any,Set_Constraint
02cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02cd 0869 | i | Execute_Immediate Raise,0x69
02ce 0000 0000 | | .XXX[0x2]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4605 |F | Jump_Case 0x6
02d4 7804 |x | Jump 0x2d9 ; case 0x0
02d5 7810 |x | Jump 0x2e6 ; case 0x1
02d6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
02d7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
02d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
02d9 00da | | Load_Top At_Offset_2 ; case 0x5
02da 01dc | | Execute Vector,Last
02db 00db | | Load_Top At_Offset_3
02dc 01dd | | Execute Vector,First
02dd 0263 | c | Execute Discrete,Above_Bound
02de 7006 |p | Jump_Nonzero 0x2e5
02df 00d8 | | Load_Top At_Offset_0
02e0 e5ff | | Load 0x2,-0x1
02e1 01d5 | | Execute Vector,Field_Reference
02e2 1c00 | | Execute_Immediate Run_Utility,0x0
02e3 0a01 | | Execute_Immediate Plus,0x1
02e4 7ff8 | | Jump 0x2dd
02e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02e6 00da | | Load_Top At_Offset_2
02e7 01dc | | Execute Vector,Last
02e8 00db | | Load_Top At_Offset_3
02e9 01dd | | Execute Vector,First
02ea 0263 | c | Execute Discrete,Above_Bound
02eb 7006 |p | Jump_Nonzero 0x2f2
02ec 00d8 | | Load_Top At_Offset_0
02ed e5ff | | Load 0x2,-0x1
02ee 01d7 | | Execute Vector,Field_Read
02ef 1c01 | | Execute_Immediate Run_Utility,0x1
02f0 0a01 | | Execute_Immediate Plus,0x1
02f1 7ff8 | | Jump 0x2ea
02f2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02f3 0000 0000 | | .BLANK 0000[0x5]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 031d | | .CONST 0x031d ; Address of begin
02f9 038b | | .CONST 0x038b ; Address of exception handler
02fa 000a | | .CONST 0x000a ; Number of locals
02fb INIT_02f8:
02fb e004 | | Load 0x0,0x4
02fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02fe 02c7 | | Declare_Variable Any
02ff 00d8 | | Load_Top At_Offset_0
0300 1c00 | | Execute_Immediate Run_Utility,0x0
0301 e004 | | Load 0x0,0x4
0302 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0303 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0304 02c7 | | Declare_Variable Any
0305 00d8 | | Load_Top At_Offset_0
0306 1c00 | | Execute_Immediate Run_Utility,0x0
0307 e004 | | Load 0x0,0x4
0308 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0309 02c7 | | Declare_Variable Any
030a 00d8 | | Load_Top At_Offset_0
030b 1c00 | | Execute_Immediate Run_Utility,0x0
030c e007 | | Load 0x0,0x7
030d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
030e 00e3 | | Load_Encached Natural_Cache
030f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0310 e004 | | Load 0x0,0x4
0311 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0312 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0313 02c7 | | Declare_Variable Any
0314 00d8 | | Load_Top At_Offset_0
0315 1c00 | | Execute_Immediate Run_Utility,0x0
0316 e004 | | Load 0x0,0x4
0317 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0318 e001 | | Load 0x0,0x1
0319 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
031b 029f 050b | | Declare_Subprogram INIT_0508,For_Call
031d BODY_02f8:
031d e5fe | | Load 0x2,-0x2
031e 4800 |H | Short_Literal 0x0
031f e5ff | | Load 0x2,-0x1
0320 e009 | | Load 0x0,0x9
0321 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0322 c402 | | Store 0x2,0x2
0323 e403 | | Load 0x2,0x3
0324 0120 | | Execute Any,Is_Value
0325 6804 |h | Jump_Zero 0x32a
0326 e004 | | Load 0x0,0x4
0327 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0328 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0329 7801 |x | Jump 0x32b
032a e403 | | Load 0x2,0x3
032b e00e | | Load 0x0,0xe
032c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
032d e00f | | Load 0x0,0xf
032e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
032f e004 | | Load 0x0,0x4
0330 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0331 180f | | Execute Package,Field_Execute,Field_Number 0xf
0332 c403 | | Store 0x2,0x3
0333 00cf | | Action Mark_Auxiliary
0334 784e |xN | Jump 0x383
0335 e004 | | Load 0x0,0x4
0336 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0337 e404 | | Load 0x2,0x4
0338 0120 | | Execute Any,Is_Value
0339 6803 |h | Jump_Zero 0x33d
033a e004 | | Load 0x0,0x4
033b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
033c 7801 |x | Jump 0x33e
033d e404 | | Load 0x2,0x4
033e e402 | | Load 0x2,0x2
033f e004 | | Load 0x0,0x4
0340 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0341 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0342 c404 | | Store 0x2,0x4
0343 c408 | | Store 0x2,0x8
0344 00db | | Load_Top At_Offset_3
0345 6832 |h2 | Jump_Zero 0x378
0346 e010 | | Load 0x0,0x10
0347 180e | | Execute Package,Field_Execute,Field_Number 0xe
0348 4801 |H | Short_Literal 0x1
0349 4803 |H | Short_Literal 0x3
034a e00d | | Load 0x0,0xd
034b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
034c 0334 | 4 | Declare_Variable Array,With_Constraint
034d e402 | | Load 0x2,0x2
034e e004 | | Load 0x0,0x4
034f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0350 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0351 e402 | | Load 0x2,0x2
0352 e004 | | Load 0x0,0x4
0353 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0354 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0355 e00d | | Load 0x0,0xd
0356 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0357 e00d | | Load 0x0,0xd
0358 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0359 0119 | | Execute Any,Check_In_Formal_Type
035a 4801 |H | Short_Literal 0x1
035b 00da | | Load_Top At_Offset_2
035c 01d6 | | Execute Vector,Field_Write
035d e402 | | Load 0x2,0x2
035e e004 | | Load 0x0,0x4
035f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0360 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0361 e00d | | Load 0x0,0xd
0362 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0363 e00d | | Load 0x0,0xd
0364 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0365 0119 | | Execute Any,Check_In_Formal_Type
0366 4802 |H | Short_Literal 0x2
0367 00da | | Load_Top At_Offset_2
0368 01d6 | | Execute Vector,Field_Write
0369 e408 | | Load 0x2,0x8
036a e00d | | Load 0x0,0xd
036b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
036c e00d | | Load 0x0,0xd
036d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
036e 0119 | | Execute Any,Check_In_Formal_Type
036f 4803 |H | Short_Literal 0x3
0370 00da | | Load_Top At_Offset_2
0371 01d6 | | Execute Vector,Field_Write
0372 4806 |H | Short_Literal 0x6
0373 6048 |`H | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00008155}
0374 e001 | | Load 0x0,0x1
0375 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0376 e011 | | Load 0x0,0x11
0377 0257 | W | Execute Discrete,Raise
0378 e404 | | Load 0x2,0x4
0379 e403 | | Load 0x2,0x3
037a e004 | | Load 0x0,0x4
037b 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
037c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
037d e402 | | Load 0x2,0x2
037e e004 | | Load 0x0,0x4
037f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0380 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0381 c402 | | Store 0x2,0x2
0382 00c9 | | Action Pop_Auxiliary_Loop
0383 e402 | | Load 0x2,0x2
0384 e004 | | Load 0x0,0x4
0385 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0386 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0387 6fad |o | Jump_Zero 0x335
0388 00ce | | Action Pop_Auxiliary
0389 840a | | Call 0x2,0xa
038a 0831 | 1 | Execute_Immediate Raise,0x31
038b TRAP_02f8:
038b e011 | | Load 0x0,0x11
038c 010f | | Execute Exception,Equal
038d 6814 |h | Jump_Zero 0x3a2
038e e5fe | | Load 0x2,-0x2
038f 4801 |H | Short_Literal 0x1
0390 4801 |H | Short_Literal 0x1
0391 e00d | | Load 0x0,0xd
0392 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0393 0334 | 4 | Declare_Variable Array,With_Constraint
0394 e5ff | | Load 0x2,-0x1
0395 e00d | | Load 0x0,0xd
0396 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0397 e00d | | Load 0x0,0xd
0398 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0399 0119 | | Execute Any,Check_In_Formal_Type
039a 4801 |H | Short_Literal 0x1
039b 00da | | Load_Top At_Offset_2
039c 01d6 | | Execute Vector,Field_Write
039d 601a |` | Indirect_Literal Discrete,0x3b8,{0x00000000, 0x000081cc}
039e e001 | | Load 0x0,0x1
039f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03a0 e225 | % | Load 0x1,0x25
03a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a2 e001 | | Load 0x0,0x1
03a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a4 e405 | | Load 0x2,0x5
03a5 e5fe | | Load 0x2,-0x2
03a6 e007 | | Load 0x0,0x7
03a7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03a8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03a9 c405 | | Store 0x2,0x5
03aa 005b | [ | Store_Top Discrete,At_Offset_3
03ab e5fe | | Load 0x2,-0x2
03ac 4806 |H | Short_Literal 0x6
03ad 0092 05d2 | | Action Push_String_Extended,0x5d2 ; "Rcf_Library.Get_Nonreconstructables"
03af e008 | | Load 0x0,0x8
03b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b1 e001 | | Load 0x0,0x1
03b2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
03b3 e225 | % | Load 0x1,0x25
03b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03b5 0000 0000 | | .XXX[0x3]
03b7 0000 | |
03b8 0000 0000 | | .LITERAL {0x00000000, 0x000081cc}
03bc 0000 0000 | | .LITERAL {0x00000000, 0x00008155}
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03d9 | | .CONST 0x03d9 ; Address of begin
03c1 045a | Z | .CONST 0x045a ; Address of exception handler
03c2 0006 | | .CONST 0x0006 ; Number of locals
03c3 INIT_03c0:
03c3 e007 | | Load 0x0,0x7
03c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c5 00e3 | | Load_Encached Natural_Cache
03c6 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
03c7 e222 | " | Load 0x1,0x22
03c8 0322 | " | Declare_Variable Record
03c9 00d8 | | Load_Top At_Offset_0
03ca 1c00 | | Execute_Immediate Run_Utility,0x0
03cb e006 | | Load 0x0,0x6
03cc 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
03cd 0322 | " | Declare_Variable Record
03ce e5fd | | Load 0x2,-0x3
03cf e5ff | | Load 0x2,-0x1
03d0 e009 | | Load 0x0,0x9
03d1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
03d2 e006 | | Load 0x0,0x6
03d3 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
03d4 00d9 | | Load_Top At_Offset_1
03d5 017d | } | Execute Record,Structure_Write
03d6 e001 | | Load 0x0,0x1
03d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03d9 BODY_03c0:
03d9 4800 |H | Short_Literal 0x0
03da a5fc | | Store_Unchecked 0x2,-0x4
03db e5fe | | Load 0x2,-0x2
03dc e225 | % | Load 0x1,0x25
03dd 01df | | Execute Vector,Equal
03de 6801 |h | Jump_Zero 0x3e0
03df 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03e0 e001 | | Load 0x0,0x1
03e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e2 e007 | | Load 0x0,0x7
03e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e4 4801 |H | Short_Literal 0x1
03e5 4801 |H | Short_Literal 0x1
03e6 4801 |H | Short_Literal 0x1
03e7 e5fd | | Load 0x2,-0x3
03e8 e405 | | Load 0x2,0x5
03e9 e5ff | | Load 0x2,-0x1
03ea e007 | | Load 0x0,0x7
03eb 1b19 | | Execute Package,Field_Read,Field_Number 0x19
03ec 186a | j | Execute Package,Field_Execute,Field_Number 0x6a
03ed c402 | | Store 0x2,0x2
03ee 0059 | Y | Store_Top Discrete,At_Offset_1
03ef 00d8 | | Load_Top At_Offset_0
03f0 6803 |h | Jump_Zero 0x3f4
03f1 00d8 | | Load_Top At_Offset_0
03f2 a5fc | | Store_Unchecked 0x2,-0x4
03f3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03f4 00cf | | Action Mark_Auxiliary
03f5 784a |xJ | Jump 0x440
03f6 e403 | | Load 0x2,0x3
03f7 e5fe | | Load 0x2,-0x2
03f8 01d5 | | Execute Vector,Field_Reference
03f9 e404 | | Load 0x2,0x4
03fa 017d | } | Execute Record,Structure_Write
03fb e001 | | Load 0x0,0x1
03fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fd e404 | | Load 0x2,0x4
03fe 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03ff e003 | | Load 0x0,0x3
0400 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0401 e5fd | | Load 0x2,-0x3
0402 e404 | | Load 0x2,0x4
0403 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0404 e402 | | Load 0x2,0x2
0405 e007 | | Load 0x0,0x7
0406 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0407 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0408 005a | Z | Store_Top Discrete,At_Offset_2
0409 00d9 | | Load_Top At_Offset_1
040a 6805 |h | Jump_Zero 0x410
040b e5fd | | Load 0x2,-0x3
040c 4806 |H | Short_Literal 0x6
040d 00db | | Load_Top At_Offset_3
040e e001 | | Load 0x0,0x1
040f 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0410 e001 | | Load 0x0,0x1
0411 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0412 e402 | | Load 0x2,0x2
0413 e5fd | | Load 0x2,-0x3
0414 e405 | | Load 0x2,0x5
0415 e404 | | Load 0x2,0x4
0416 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0417 e003 | | Load 0x0,0x3
0418 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0419 e404 | | Load 0x2,0x4
041a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
041b e007 | | Load 0x0,0x7
041c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
041d 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
041e c402 | | Store 0x2,0x2
041f 005a | Z | Store_Top Discrete,At_Offset_2
0420 00d9 | | Load_Top At_Offset_1
0421 6805 |h | Jump_Zero 0x427
0422 e5fd | | Load 0x2,-0x3
0423 4806 |H | Short_Literal 0x6
0424 00db | | Load_Top At_Offset_3
0425 e001 | | Load 0x0,0x1
0426 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0427 e001 | | Load 0x0,0x1
0428 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0429 e402 | | Load 0x2,0x2
042a e5fd | | Load 0x2,-0x3
042b e405 | | Load 0x2,0x5
042c e404 | | Load 0x2,0x4
042d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
042e e404 | | Load 0x2,0x4
042f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0430 e007 | | Load 0x0,0x7
0431 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0432 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0433 c402 | | Store 0x2,0x2
0434 005a | Z | Store_Top Discrete,At_Offset_2
0435 00d9 | | Load_Top At_Offset_1
0436 6805 |h | Jump_Zero 0x43c
0437 e5fd | | Load 0x2,-0x3
0438 4806 |H | Short_Literal 0x6
0439 00db | | Load_Top At_Offset_3
043a e001 | | Load 0x0,0x1
043b 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
043c e403 | | Load 0x2,0x3
043d 0a01 | | Execute_Immediate Plus,0x1
043e c403 | | Store 0x2,0x3
043f 00c9 | | Action Pop_Auxiliary_Loop
0440 e403 | | Load 0x2,0x3
0441 e5fe | | Load 0x2,-0x2
0442 01db | | Execute Vector,Length
0443 027a | z | Execute Discrete,Less_Equal
0444 77b1 |w | Jump_Nonzero 0x3f6
0445 00ce | | Action Pop_Auxiliary
0446 e001 | | Load 0x0,0x1
0447 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0448 e402 | | Load 0x2,0x2
0449 e5fd | | Load 0x2,-0x3
044a e007 | | Load 0x0,0x7
044b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
044c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
044d c402 | | Store 0x2,0x2
044e 0059 | Y | Store_Top Discrete,At_Offset_1
044f 00d8 | | Load_Top At_Offset_0
0450 6803 |h | Jump_Zero 0x454
0451 00d8 | | Load_Top At_Offset_0
0452 a5fc | | Store_Unchecked 0x2,-0x4
0453 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0454 e5fd | | Load 0x2,-0x3
0455 0092 05d3 | | Action Push_String_Extended,0x5d3 ; "Successfully restored nonreconstructable data"
0457 e008 | | Load 0x0,0x8
0458 180e | | Execute Package,Field_Execute,Field_Number 0xe
0459 4504 |E | Exit_Suprogram New_Top_Offset 0x4
045a TRAP_03c0:
045a 0007 | | Action Break_Optional
045b e001 | | Load 0x0,0x1
045c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045d e402 | | Load 0x2,0x2
045e e5fd | | Load 0x2,-0x3
045f e007 | | Load 0x0,0x7
0460 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0461 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0462 c402 | | Store 0x2,0x2
0463 005a | Z | Store_Top Discrete,At_Offset_2
0464 0092 05d4 | | Action Push_String_Extended,0x5d4 ; "Rcf_Library.Set_Nonreconstructables"
0466 e008 | | Load 0x0,0x8
0467 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0468 a5fc | | Store_Unchecked 0x2,-0x4
0469 4504 |E | Exit_Suprogram New_Top_Offset 0x4
046a 0000 0000 | | .BLANK 0000[0x6]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0476 | v | .CONST 0x0476 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0002 | | .CONST 0x0002 ; Number of locals
0473 INIT_0470:
0473 e5f2 | | Load 0x2,-0xe
0474 e5ff | | Load 0x2,-0x1
0475 8226 | & | Call 0x1,0x26
0476 BODY_0470:
0476 e001 | | Load 0x0,0x1
0477 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0478 4801 |H | Short_Literal 0x1
0479 e5f2 | | Load 0x2,-0xe
047a e5f3 | | Load 0x2,-0xd
047b e403 | | Load 0x2,0x3
047c e5f4 | | Load 0x2,-0xc
047d e5f5 | | Load 0x2,-0xb
047e e5f6 | | Load 0x2,-0xa
047f e5f7 | | Load 0x2,-0x9
0480 e5f8 | | Load 0x2,-0x8
0481 e5fb | | Load 0x2,-0x5
0482 00ea | | Load_Encached Null_String_Cache
0483 00ea | | Load_Encached Null_String_Cache
0484 00ea | | Load_Encached Null_String_Cache
0485 e5ff | | Load 0x2,-0x1
0486 e007 | | Load 0x0,0x7
0487 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0488 1869 | i | Execute Package,Field_Execute,Field_Number 0x69
0489 c402 | | Store 0x2,0x2
048a e402 | | Load 0x2,0x2
048b 6804 |h | Jump_Zero 0x490
048c e402 | | Load 0x2,0x2
048d a5f1 | | Store_Unchecked 0x2,-0xf
048e 00cc | | Action Pop_Block
048f 450f |E | Exit_Suprogram New_Top_Offset 0xf
0490 e001 | | Load 0x0,0x1
0491 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0492 e5f2 | | Load 0x2,-0xe
0493 00da | | Load_Top At_Offset_2
0494 e5ff | | Load 0x2,-0x1
0495 8227 | ' | Call 0x1,0x27
0496 c402 | | Store 0x2,0x2
0497 e402 | | Load 0x2,0x2
0498 6805 |h | Jump_Zero 0x49e
0499 e5f2 | | Load 0x2,-0xe
049a 4806 |H | Short_Literal 0x6
049b e402 | | Load 0x2,0x2
049c e001 | | Load 0x0,0x1
049d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
049e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
049f 0000 | | .XXX[0x1]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04af | | .CONST 0x04af ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0003 | | .CONST 0x0003 ; Number of locals
04a3 INIT_04a0:
04a3 6014 |` | Indirect_Literal Discrete,0x4b8,{0x00000000, 0x00004000}
04a4 e00a | | Load 0x0,0xa
04a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a6 0092 05ca | | Action Push_String_Extended,0x5ca ; "Ftp.Remote_Machine"
04a8 e402 | | Load 0x2,0x2
04a9 e00b | | Load 0x0,0xb
04aa 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
04ab 00d8 | | Load_Top At_Offset_0
04ac 01db | | Execute Vector,Length
04ad e20d | | Load 0x1,0xd
04ae 1c08 | | Execute_Immediate Run_Utility,0x8
04af BODY_04a0:
04af 4800 |H | Short_Literal 0x0
04b0 00d9 | | Load_Top At_Offset_1
04b1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04b2 00d9 | | Load_Top At_Offset_1
04b3 00d9 | | Load_Top At_Offset_1
04b4 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
04b5 00d8 | | Load_Top At_Offset_0
04b6 00cb | | Action Pop_Block_With_Result
04b7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
04bc 0000 0000 | | .BLANK 0000[0x4]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04cf | | .CONST 0x04cf ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0003 | | .CONST 0x0003 ; Number of locals
04c3 INIT_04c0:
04c3 67f4 |g | Indirect_Literal Discrete,0x4b8,{0x00000000, 0x00004000}
04c4 e00a | | Load 0x0,0xa
04c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c6 0092 05cc | | Action Push_String_Extended,0x5cc ; "Ftp.Remote_Directory"
04c8 e402 | | Load 0x2,0x2
04c9 e00b | | Load 0x0,0xb
04ca 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
04cb 00d8 | | Load_Top At_Offset_0
04cc 01db | | Execute Vector,Length
04cd e20d | | Load 0x1,0xd
04ce 1c08 | | Execute_Immediate Run_Utility,0x8
04cf BODY_04c0:
04cf 4800 |H | Short_Literal 0x0
04d0 00d9 | | Load_Top At_Offset_1
04d1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04d2 00d9 | | Load_Top At_Offset_1
04d3 00d9 | | Load_Top At_Offset_1
04d4 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
04d5 00d8 | | Load_Top At_Offset_0
04d6 00cb | | Action Pop_Block_With_Result
04d7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04e5 | | .CONST 0x04e5 ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0003 | | .CONST 0x0003 ; Number of locals
04db INIT_04d8:
04db e5fd | | Load 0x2,-0x3
04dc e405 | | Load 0x2,0x5
04dd e402 | | Load 0x2,0x2
04de e007 | | Load 0x0,0x7
04df 1b19 | | Execute Package,Field_Read,Field_Number 0x19
04e0 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
04e1 00d8 | | Load_Top At_Offset_0
04e2 01db | | Execute Vector,Length
04e3 e20d | | Load 0x1,0xd
04e4 1c08 | | Execute_Immediate Run_Utility,0x8
04e5 BODY_04d8:
04e5 e001 | | Load 0x0,0x1
04e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e7 e402 | | Load 0x2,0x2
04e8 e5fd | | Load 0x2,-0x3
04e9 e00c | | Load 0x0,0xc
04ea 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04eb c402 | | Store 0x2,0x2
04ec c403 | | Store 0x2,0x3
04ed 00d9 | | Load_Top At_Offset_1
04ee 0092 05d5 | | Action Push_String_Extended,0x5d5 ; "<error>"
04f0 01df | | Execute Vector,Equal
04f1 6808 |h | Jump_Zero 0x4fa
04f2 e00d | | Load 0x0,0xd
04f3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04f4 600f |` | Indirect_Literal Discrete,0x504,{0x00000000, 0x000084e9}
04f5 e001 | | Load 0x0,0x1
04f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04f7 00d9 | | Load_Top At_Offset_1
04f8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04f9 7803 |x | Jump 0x4fd
04fa 4800 |H | Short_Literal 0x0
04fb 00d9 | | Load_Top At_Offset_1
04fc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04fd 00d9 | | Load_Top At_Offset_1
04fe 00d9 | | Load_Top At_Offset_1
04ff 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0500 00d8 | | Load_Top At_Offset_0
0501 00cb | | Action Pop_Block_With_Result
0502 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0503 0000 | | .XXX[0x1]
0504 0000 0000 | | .LITERAL {0x00000000, 0x000084e9}
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0520 | | .CONST 0x0520 ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0003 | | .CONST 0x0003 ; Number of locals
050b INIT_0508:
050b 4801 |H | Short_Literal 0x1
050c e403 | | Load 0x2,0x3
050d e004 | | Load 0x0,0x4
050e 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
050f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0510 e224 | $ | Load 0x1,0x24
0511 035b | [ | Declare_Type Array,Constrained
0512 0337 | 7 | Declare_Variable Array
0513 00d8 | | Load_Top At_Offset_0
0514 1c00 | | Execute_Immediate Run_Utility,0x0
0515 e006 | | Load 0x0,0x6
0516 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
0517 0322 | " | Declare_Variable Record
0518 e5fe | | Load 0x2,-0x2
0519 e5ff | | Load 0x2,-0x1
051a e009 | | Load 0x0,0x9
051b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
051c e006 | | Load 0x0,0x6
051d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
051e 00d9 | | Load_Top At_Offset_1
051f 017d | } | Execute Record,Structure_Write
0520 BODY_0508:
0520 e001 | | Load 0x0,0x1
0521 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0522 e007 | | Load 0x0,0x7
0523 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0524 4801 |H | Short_Literal 0x1
0525 4801 |H | Short_Literal 0x1
0526 4800 |H | Short_Literal 0x0
0527 e5fe | | Load 0x2,-0x2
0528 e603 | | Load 0x3,0x3
0529 e5ff | | Load 0x2,-0x1
052a e007 | | Load 0x0,0x7
052b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
052c 186a | j | Execute Package,Field_Execute,Field_Number 0x6a
052d c405 | | Store 0x2,0x5
052e c409 | | Store 0x2,0x9
052f e409 | | Load 0x2,0x9
0530 6807 |h | Jump_Zero 0x538
0531 e5fe | | Load 0x2,-0x2
0532 4806 |H | Short_Literal 0x6
0533 e409 | | Load 0x2,0x9
0534 e001 | | Load 0x0,0x1
0535 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0536 e011 | | Load 0x0,0x11
0537 0257 | W | Execute Discrete,Raise
0538 e407 | | Load 0x2,0x7
0539 0120 | | Execute Any,Is_Value
053a 6804 |h | Jump_Zero 0x53f
053b e004 | | Load 0x0,0x4
053c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
053d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
053e 7801 |x | Jump 0x540
053f e407 | | Load 0x2,0x7
0540 e00e | | Load 0x0,0xe
0541 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0542 e00f | | Load 0x0,0xf
0543 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0544 e403 | | Load 0x2,0x3
0545 e004 | | Load 0x0,0x4
0546 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0547 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0548 c407 | | Store 0x2,0x7
0549 00cf | | Action Mark_Auxiliary
054a 783b |x; | Jump 0x586
054b e406 | | Load 0x2,0x6
054c 0a01 | | Execute_Immediate Plus,0x1
054d c406 | | Store 0x2,0x6
054e e407 | | Load 0x2,0x7
054f e004 | | Load 0x0,0x4
0550 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0551 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0552 c404 | | Store 0x2,0x4
0553 e404 | | Load 0x2,0x4
0554 e406 | | Load 0x2,0x6
0555 e602 | | Load 0x3,0x2
0556 01d5 | | Execute Vector,Field_Reference
0557 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0558 e406 | | Load 0x2,0x6
0559 00db | | Load_Top At_Offset_3
055a 01d5 | | Execute Vector,Field_Reference
055b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
055c 00d8 | | Load_Top At_Offset_0
055d e5fe | | Load 0x2,-0x2
055e e404 | | Load 0x2,0x4
055f e405 | | Load 0x2,0x5
0560 e007 | | Load 0x0,0x7
0561 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0562 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0563 e003 | | Load 0x0,0x3
0564 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0565 00d2 | | Pop_Control Pop_Count_2
0566 e406 | | Load 0x2,0x6
0567 00db | | Load_Top At_Offset_3
0568 01d5 | | Execute Vector,Field_Reference
0569 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
056a 00d8 | | Load_Top At_Offset_0
056b e5fe | | Load 0x2,-0x2
056c e603 | | Load 0x3,0x3
056d e404 | | Load 0x2,0x4
056e e405 | | Load 0x2,0x5
056f e007 | | Load 0x0,0x7
0570 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0571 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
0572 e003 | | Load 0x0,0x3
0573 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0574 00d2 | | Pop_Control Pop_Count_2
0575 e5fe | | Load 0x2,-0x2
0576 00da | | Load_Top At_Offset_2
0577 e404 | | Load 0x2,0x4
0578 e405 | | Load 0x2,0x5
0579 e007 | | Load 0x0,0x7
057a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
057b 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
057c e406 | | Load 0x2,0x6
057d e602 | | Load 0x3,0x2
057e 01d5 | | Execute Vector,Field_Reference
057f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0580 e407 | | Load 0x2,0x7
0581 e004 | | Load 0x0,0x4
0582 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0583 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0584 c407 | | Store 0x2,0x7
0585 00c9 | | Action Pop_Auxiliary_Loop
0586 e407 | | Load 0x2,0x7
0587 e004 | | Load 0x0,0x4
0588 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0589 181b | | Execute Package,Field_Execute,Field_Number 0x1b
058a 6fc0 |o | Jump_Zero 0x54b
058b 00ce | | Action Pop_Auxiliary
058c e001 | | Load 0x0,0x1
058d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058e e405 | | Load 0x2,0x5
058f e5fe | | Load 0x2,-0x2
0590 e007 | | Load 0x0,0x7
0591 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0592 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0593 c405 | | Store 0x2,0x5
0594 c409 | | Store 0x2,0x9
0595 e409 | | Load 0x2,0x9
0596 6807 |h | Jump_Zero 0x59e
0597 e5fe | | Load 0x2,-0x2
0598 4806 |H | Short_Literal 0x6
0599 e409 | | Load 0x2,0x9
059a e001 | | Load 0x0,0x1
059b 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
059c e011 | | Load 0x0,0x11
059d 0257 | W | Execute Discrete,Raise
059e 00d9 | | Load_Top At_Offset_1
059f e224 | $ | Load 0x1,0x24
05a0 01c6 | | Execute Vector,Convert_To_Formal
05a1 00cb | | Action Pop_Block_With_Result
05a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a3 0000 0000 | | .BLANK 0000[0x5]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab | | .CONST 0x05ab ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0001 | | .CONST 0x0001 ; Number of locals
05ab BODY_05a8:
05ab INIT_05a8:
05ab 4608 |F | Jump_Case 0x9
05ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
05ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
05ae 7819 |x | Jump 0x5c8 ; case 0x2
05af 7818 |x | Jump 0x5c8 ; case 0x3
05b0 7817 |x | Jump 0x5c8 ; case 0x4
05b1 7816 |x | Jump 0x5c8 ; case 0x5
05b2 7815 |x | Jump 0x5c8 ; case 0x6
05b3 7801 |x | Jump 0x5b5 ; case 0x7
05b4 7809 |x | Jump 0x5be ; case 0x8
05b5 00db | | Load_Top At_Offset_3
05b6 4801 |H | Short_Literal 0x1
05b7 e5fe | | Load 0x2,-0x2
05b8 00e9 | | Load_Encached String_Cache
05b9 035b | [ | Declare_Type Array,Constrained
05ba 4801 |H | Short_Literal 0x1
05bb e5ff | | Load 0x2,-0x1
05bc 031b | | Declare_Type Variant_Record,Constrained
05bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
05be 00db | | Load_Top At_Offset_3
05bf 00db | | Load_Top At_Offset_3
05c0 02fc | | Declare_Variable Variant_Record,With_Constraint
05c1 4801 |H | Short_Literal 0x1
05c2 e5fe | | Load 0x2,-0x2
05c3 00e9 | | Load_Encached String_Cache
05c4 0334 | 4 | Declare_Variable Array,With_Constraint
05c5 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
05c6 016a | j | QQ_execute Variant_Record,XXX
05c7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
05c8 0869 | i | Execute_Immediate Raise,0x69
05c9 ; --------------------------------------------------------------------------------------
05c9 ; STRING TABLE
05c9 ; --------------------------------------------------------------------------------------
05c9 001c | | .STRTAB 0x001c->0x05d7 ; "Initialize"
05ca 0024 | $ | .STRTAB 0x0024->0x05dc ; "Ftp.Remote_Machine"
05cb 0034 | 4 | .STRTAB 0x0034->0x05e5 ; "Set_Remote_Machine"
05cc 0044 | D | .STRTAB 0x0044->0x05ee ; "Ftp.Remote_Directory"
05cd 0056 | V | .STRTAB 0x0056->0x05f8 ; "Set_Remote_Directory"
05ce 0068 | h | .STRTAB 0x0068->0x0602 ; "Set_Remote_Library"
05cf 0078 | x | .STRTAB 0x0078->0x060b ; "Remote_Machine"
05d0 0084 | | .STRTAB 0x0084->0x0612 ; "Remote_Directory"
05d1 0092 | | .STRTAB 0x0092->0x061a ; "Remote_Library"
05d2 009e | | .STRTAB 0x009e->0x0621 ; "Rcf_Library.Get_Nonreconstructables"
05d3 00bf | | .STRTAB 0x00bf->0x0632 ; "Successfully restored nonreconstructable data"
05d4 00ea | | .STRTAB 0x00ea->0x0649 ; "Rcf_Library.Set_Nonreconstructables"
05d5 010b | | .STRTAB 0x010b->0x065a ; "<error>"
05d6 0110 | | .STREND 0x0110->0x065e
05d7 496e 6974 |Init| .STRTAB_STRINGS
065e 0000 0000 | | .XXX[0x2]
0660 ; --------------------------------------------------------------------------------------
0660 ; Debug Table
0660 ; --------------------------------------------------------------------------------------
0660 0004 000c | | .DEBUG4 0x0004,0x000c,0x2de0,0x0000,0x0001,0x0000
0666 9f42 8000 | B | .XXX[0x4]
0668 0c05 9f44 | D|
066a 0000 0000 | | .BLANK 0000[0x6]
0670 8000 0c05 | | .XXX[0x6]
0672 9f46 8000 | F |
0674 0c05 9f48 | H|
0676 0000 0000 | | .BLANK 0000[0x9]
067f 0200 00f8 | | .XXX[0x3]
0681 3200 |2 |
0682 0000 0000 | | .BLANK 0000[0xd]
068f 0801 4000 | @ | .XXX[0xc]
0691 0000 0000 | |
0693 0010 0000 | |
0695 0088 0000 | |
0697 0000 4000 | @ |
0699 0002 8000 | |
069b 0000 0000 | | .BLANK 0000[0x2d]
06c8 0100 2800 | ( | .XXX[0xc]
06ca 0000 0000 | |
06cc 0002 0000 | |
06ce 0011 0000 | |
06d0 0000 0800 | |
06d2 0000 5000 | P |
06d4 0000 0000 | | .BLANK 0000[0x2d]
0701 0020 0500 | | .XXX[0xc]
0703 0000 0000 | |
0705 0000 4000 | @ |
0707 0002 2000 | |
0709 0000 0100 | |
070b 0000 0a00 | |
070d 0000 0000 | | .BLANK 0000[0x2d]
073a 0004 00a0 | | .XXX[0xc]
073c 0000 0000 | |
073e 0000 0800 | |
0740 0000 4400 | D |
0742 0000 0020 | |
0744 0000 0140 | @|
0746 0000 0000 | | .BLANK 0000[0x2e]
0774 8014 0000 | | .XXX[0xb]
0776 0000 0000 | |
0778 0100 0000 | |
077a 0880 0000 | |
077c 0004 0000 | |
077e 0028 | ( |
077f 0000 0000 | | .BLANK 0000[0x2e]
07ad 1002 8000 | | .XXX[0xb]
07af 0000 0000 | |
07b1 0020 0000 | |
07b3 0110 0000 | |
07b5 0000 8000 | |
07b7 0005 | |
07b8 0000 0000 | | .BLANK 0000[0x48]