|
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]