|
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 0690 | | .CONST 0x0690 ; 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 0067 | g | .CONST 0x0067 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0026 | & | .CONST 0x0026 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 0129 | ) | Execute Any,Make_Visible 000d 4805 |H | Short_Literal 0x5 000e 032b | + | Declare_Type Record,Incomplete,Visible 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0015 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0017 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0019 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001b 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 001d 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 001f 4800 |H | Short_Literal 0x0 0020 4801 |H | Short_Literal 0x1 0021 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0023 03fe | | Declare_Type Discrete,Defined,Visible 0024 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0026 0092 05ef | | Action Push_String_Extended,0x5ef ; "Ftp failure" 0028 0129 | ) | Execute Any,Make_Visible 0029 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "Transfer failure" 002b 0129 | ) | Execute Any,Make_Visible 002c 4801 |H | Short_Literal 0x1 002d 4900 |I | Short_Literal 0x100 002e 00e9 | | Load_Encached String_Cache 002f 035b | [ | Declare_Type Array,Constrained 0030 00e3 | | Load_Encached Natural_Cache 0031 02a0 | | Declare_Subprogram Null_Subprogram 0032 4802 |H | Short_Literal 0x2 0033 032d | - | Declare_Type Record,Defined 0034 e002 | | Load 0x0,0x2 0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0036 00d9 | | Load_Top At_Offset_1 0037 00da | | Load_Top At_Offset_2 0038 00db | | Load_Top At_Offset_3 0039 e21b | | Load 0x1,0x1b 003a 029f 05db | | Declare_Subprogram INIT_05d8,For_Call 003c e20e | | Load 0x1,0xe 003d 0326 | & | Complete_Type Record,By_Defining 003e 00bf | | Action Accept_Activation 003f 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "*" 0041 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 0043 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call 0045 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 0047 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 0049 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 004b 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call 004d 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 004f 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0051 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 0053 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0054 00c7 | | Action Elaborate_Subprogram 0055 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 0057 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0058 00c7 | | Action Elaborate_Subprogram 0059 1d11 | | Execute_Immediate Reference_Lex_1,0x11 005a 00c7 | | Action Elaborate_Subprogram 005b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005c 00c7 | | Action Elaborate_Subprogram 005d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005e 00c7 | | Action Elaborate_Subprogram 005f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0060 00c7 | | Action Elaborate_Subprogram 0061 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0062 00c7 | | Action Elaborate_Subprogram 0063 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0064 00c7 | | Action Elaborate_Subprogram 0065 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0066 00c7 | | Action Elaborate_Subprogram 0067 BODY_0008: 0067 00bc | | Action Signal_Activated 0068 00bb | | Action Signal_Completion 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0084 | | .CONST 0x0084 ; Address of begin 0071 00ee | | .CONST 0x00ee ; Address of exception handler 0072 0008 | | .CONST 0x0008 ; Number of locals 0073 INIT_0070: 0073 e002 | | Load 0x0,0x2 0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0075 02c7 | | Declare_Variable Any 0076 00d8 | | Load_Top At_Offset_0 0077 1c00 | | Execute_Immediate Run_Utility,0x0 0078 e003 | | Load 0x0,0x3 0079 1b19 | | Execute Package,Field_Read,Field_Number 0x19 007a e004 | | Load 0x0,0x4 007b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 007c 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 007e 029f 040b | | Declare_Subprogram INIT_0408,For_Call 0080 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 0082 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call 0084 BODY_0070: 0084 e003 | | Load 0x0,0x3 0085 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0086 e402 | | Load 0x2,0x2 0087 0120 | | Execute Any,Is_Value 0088 6803 |h | Jump_Zero 0x8c 0089 e002 | | Load 0x0,0x2 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b 7801 |x | Jump 0x8d 008c e402 | | Load 0x2,0x2 008d e002 | | Load 0x0,0x2 008e 180f | | Execute Package,Field_Execute,Field_Number 0xf 008f c402 | | Store 0x2,0x2 0090 c403 | | Store 0x2,0x3 0091 e403 | | Load 0x2,0x3 0092 6809 |h | Jump_Zero 0x9c 0093 e5fb | | Load 0x2,-0x5 0094 e403 | | Load 0x2,0x3 0095 e003 | | Load 0x0,0x3 0096 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0097 6068 |`h | Indirect_Literal Discrete,0x100,{0x00000000, 0x00006002} 0098 e005 | | Load 0x0,0x5 0099 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 009a e20d | | Load 0x1,0xd 009b 0257 | W | Execute Discrete,Raise 009c e5fb | | Load 0x2,-0x5 009d e5ff | | Load 0x2,-0x1 009e e402 | | Load 0x2,0x2 009f 8225 | % | Call 0x1,0x25 00a0 e5fb | | Load 0x2,-0x5 00a1 e402 | | Load 0x2,0x2 00a2 8223 | # | Call 0x1,0x23 00a3 e5fe | | Load 0x2,-0x2 00a4 e402 | | Load 0x2,0x2 00a5 e002 | | Load 0x0,0x2 00a6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00a7 e5fb | | Load 0x2,-0x5 00a8 e402 | | Load 0x2,0x2 00a9 821f | | Call 0x1,0x1f 00aa a404 | | Store_Unchecked 0x2,0x4 00ab e404 | | Load 0x2,0x4 00ac 0b01 | | Execute_Immediate Case_Compare,0x1 00ad 7007 |p | Jump_Nonzero 0xb5 00ae 0f02 | | Execute_Immediate Equal,0x2 00af 7007 |p | Jump_Nonzero 0xb7 00b0 e5fb | | Load 0x2,-0x5 00b1 e404 | | Load 0x2,0x4 00b2 8221 | ! | Call 0x1,0x21 00b3 e20d | | Load 0x1,0xd 00b4 0257 | W | Execute Discrete,Raise 00b5 00d1 | | Pop_Control Pop_Count_1 00b6 7824 |x$ | Jump 0xdb 00b7 8407 | | Call 0x2,0x7 00b8 e5fb | | Load 0x2,-0x5 00b9 e402 | | Load 0x2,0x2 00ba 821f | | Call 0x1,0x1f 00bb a404 | | Store_Unchecked 0x2,0x4 00bc e404 | | Load 0x2,0x4 00bd 4613 |F | Jump_Case 0x14 00be 7813 |x | Jump 0xd2 ; case 0x0 00bf 781b |x | Jump 0xdb ; case 0x1 00c0 7811 |x | Jump 0xd2 ; case 0x2 00c1 7815 |x | Jump 0xd7 ; case 0x3 00c2 780f |x | Jump 0xd2 ; case 0x4 00c3 780e |x | Jump 0xd2 ; case 0x5 00c4 780d |x | Jump 0xd2 ; case 0x6 00c5 780c |x | Jump 0xd2 ; case 0x7 00c6 780b |x | Jump 0xd2 ; case 0x8 00c7 780a |x | Jump 0xd2 ; case 0x9 00c8 7809 |x | Jump 0xd2 ; case 0xa 00c9 7808 |x | Jump 0xd2 ; case 0xb 00ca 7807 |x | Jump 0xd2 ; case 0xc 00cb 7806 |x | Jump 0xd2 ; case 0xd 00cc 7805 |x | Jump 0xd2 ; case 0xe 00cd 7804 |x | Jump 0xd2 ; case 0xf 00ce 7803 |x | Jump 0xd2 ; case 0x10 00cf 7802 |x | Jump 0xd2 ; case 0x11 00d0 7801 |x | Jump 0xd2 ; case 0x12 00d1 7800 |x | Jump 0xd2 ; case 0x13 00d2 e5fb | | Load 0x2,-0x5 00d3 e404 | | Load 0x2,0x4 00d4 8221 | ! | Call 0x1,0x21 00d5 e20d | | Load 0x1,0xd 00d6 0257 | W | Execute Discrete,Raise 00d7 8408 | | Call 0x2,0x8 00d8 e5fb | | Load 0x2,-0x5 00d9 e402 | | Load 0x2,0x2 00da 8223 | # | Call 0x1,0x23 00db e402 | | Load 0x2,0x2 00dc e5fa | | Load 0x2,-0x6 00dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00de e5fa | | Load 0x2,-0x6 00df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e0 e5ff | | Load 0x2,-0x1 00e1 821d | | Call 0x1,0x1d 00e2 00d1 | | Pop_Control Pop_Count_1 00e3 e5fa | | Load 0x2,-0x6 00e4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00e5 e5fe | | Load 0x2,-0x2 00e6 821d | | Call 0x1,0x1d 00e7 00d1 | | Pop_Control Pop_Count_1 00e8 e5fb | | Load 0x2,-0x5 00e9 e5ff | | Load 0x2,-0x1 00ea 6011 |` | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00006007} 00eb e005 | | Load 0x0,0x5 00ec 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 00ed 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00ee TRAP_0070: 00ee 0007 | | Action Break_Optional 00ef e5fb | | Load 0x2,-0x5 00f0 e5ff | | Load 0x2,-0x1 00f1 6006 |` | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00006005} 00f2 e005 | | Load 0x0,0x5 00f3 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 00f4 00d8 | | Load_Top At_Offset_0 00f5 0101 | | Execute Exception,Reraise 00f6 0000 0000 | | .XXX[0x2] 00f8 0000 0000 | | .LITERAL {0x00000000, 0x00006005} 00fc 0000 0000 | | .LITERAL {0x00000000, 0x00006007} 0100 0000 0000 | | .LITERAL {0x00000000, 0x00006002} 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0127 | ' | .CONST 0x0127 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010d e002 | | Load 0x0,0x2 010e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 010f 00db | | Load_Top At_Offset_3 0110 00db | | Load_Top At_Offset_3 0111 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0112 8222 | " | Call 0x1,0x22 0113 7009 |p | Jump_Nonzero 0x11d 0114 00db | | Load_Top At_Offset_3 0115 00ea | | Load_Encached Null_String_Cache 0116 6035 |`5 | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00006008} 0117 e005 | | Load 0x0,0x5 0118 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0119 00da | | Load_Top At_Offset_2 011a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011b e002 | | Load 0x0,0x2 011c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 011d 00da | | Load_Top At_Offset_2 011e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011f e002 | | Load 0x0,0x2 0120 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0121 00db | | Load_Top At_Offset_3 0122 00ea | | Load_Encached Null_String_Cache 0123 6024 |`$ | Indirect_Literal Discrete,0x148,{0x00000000, 0x00006006} 0124 e005 | | Load 0x0,0x5 0125 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0126 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0127 TRAP_0108: 0127 0007 | | Action Break_Optional 0128 e5fe | | Load 0x2,-0x2 0129 4801 |H | Short_Literal 0x1 012a 4802 |H | Short_Literal 0x2 012b e006 | | Load 0x0,0x6 012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012d 035b | [ | Declare_Type Array,Constrained 012e 0337 | 7 | Declare_Variable Array 012f 4800 |H | Short_Literal 0x0 0130 4801 |H | Short_Literal 0x1 0131 e007 | | Load 0x0,0x7 0132 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0133 e006 | | Load 0x0,0x6 0134 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0135 4801 |H | Short_Literal 0x1 0136 00da | | Load_Top At_Offset_2 0137 01d6 | | Execute Vector,Field_Write 0138 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "Close" 013a e006 | | Load 0x0,0x6 013b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013c 4802 |H | Short_Literal 0x2 013d 00da | | Load_Top At_Offset_2 013e 01d6 | | Execute Vector,Field_Write 013f 6004 |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x0000600f} 0140 e005 | | Load 0x0,0x5 0141 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0142 e20d | | Load 0x1,0xd 0143 0257 | W | Execute Discrete,Raise 0144 0000 0000 | | .LITERAL {0x00000000, 0x0000600f} 0148 0000 0000 | | .LITERAL {0x00000000, 0x00006006} 014c 0000 0000 | | .LITERAL {0x00000000, 0x00006008} 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0155 00d8 | | Load_Top At_Offset_0 0156 0120 | | Execute Any,Is_Value 0157 7002 |p | Jump_Nonzero 0x15a 0158 00d8 | | Load_Top At_Offset_0 0159 011e | | Execute Any,Convert 015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015b 0000 0000 | | .BLANK 0000[0x5] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 e5fe | | Load 0x2,-0x2 0165 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0166 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0167 0000 | | .XXX[0x1] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c e21c | | Load 0x1,0x1c 016d 01df | | Execute Vector,Equal 016e 6803 |h | Jump_Zero 0x172 016f e008 | | Load 0x0,0x8 0170 180d | | Execute Package,Field_Execute,Field_Number 0xd 0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0172 00da | | Load_Top At_Offset_2 0173 0335 | 5 | Declare_Variable Array,Duplicate 0174 00cd | | Action Spare6_Action 0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c e21c | | Load 0x1,0x1c 017d 01df | | Execute Vector,Equal 017e 6803 |h | Jump_Zero 0x182 017f e008 | | Load 0x0,0x8 0180 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0181 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0182 00da | | Load_Top At_Offset_2 0183 0335 | 5 | Declare_Variable Array,Duplicate 0184 00cd | | Action Spare6_Action 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c e21c | | Load 0x1,0x1c 018d 01df | | Execute Vector,Equal 018e 6803 |h | Jump_Zero 0x192 018f e008 | | Load 0x0,0x8 0190 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0192 00da | | Load_Top At_Offset_2 0193 0335 | 5 | Declare_Variable Array,Duplicate 0194 00cd | | Action Spare6_Action 0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c e21c | | Load 0x1,0x1c 019d 01df | | Execute Vector,Equal 019e 6803 |h | Jump_Zero 0x1a2 019f e008 | | Load 0x0,0x8 01a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a2 00da | | Load_Top At_Offset_2 01a3 0335 | 5 | Declare_Variable Array,Duplicate 01a4 00cd | | Action Spare6_Action 01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 4607 |F | Jump_Case 0x8 01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01ad 7806 |x | Jump 0x1b4 ; case 0x1 01ae 7809 |x | Jump 0x1b8 ; case 0x2 01af 780d |x | Jump 0x1bd ; case 0x3 01b0 7810 |x | Jump 0x1c1 ; case 0x4 01b1 7811 |x | Jump 0x1c3 ; case 0x5 01b2 7812 |x | Jump 0x1c5 ; case 0x6 01b3 7815 |x | Jump 0x1c9 ; case 0x7 01b4 00da | | Load_Top At_Offset_2 01b5 0091 05ed | | Action Push_String_Extended_Indexed,0x5ed ; "SEND_TO_REMOTE" 01b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b8 00db | | Load_Top At_Offset_3 01b9 00db | | Load_Top At_Offset_3 01ba 00e0 | | Load_Encached Standard_Cache 01bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01bd 00da | | Load_Top At_Offset_2 01be 00e0 | | Load_Encached Standard_Cache 01bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01c1 00db | | Load_Top At_Offset_3 01c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c3 00db | | Load_Top At_Offset_3 01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c5 e217 | | Load 0x1,0x17 01c6 00dc | | Load_Top At_Offset_4 01c7 0267 | g | Execute Discrete,Predecessor 01c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01c9 e217 | | Load 0x1,0x17 01ca 00dc | | Load_Top At_Offset_4 01cb 0268 | h | Execute Discrete,Successor 01cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01dc | | .CONST 0x01dc ; Address of begin 01d1 0205 | | .CONST 0x0205 ; Address of exception handler 01d2 0006 | | .CONST 0x0006 ; Number of locals 01d3 INIT_01d0: 01d3 e004 | | Load 0x0,0x4 01d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01d5 00e1 | | Load_Encached Boolean_Cache 01d6 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 01d8 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 01da 029f 048b | | Declare_Subprogram INIT_0488,For_Call 01dc BODY_01d0: 01dc e5fc | | Load 0x2,-0x4 01dd 681a |h | Jump_Zero 0x1f8 01de e5fd | | Load 0x2,-0x3 01df e5fa | | Load 0x2,-0x6 01e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e1 e002 | | Load 0x0,0x2 01e2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01e3 e5fb | | Load 0x2,-0x5 01e4 e5fa | | Load 0x2,-0x6 01e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e6 821f | | Call 0x1,0x1f 01e7 0f01 | | Execute_Immediate Equal,0x1 01e8 6806 |h | Jump_Zero 0x1ef 01e9 e5fb | | Load 0x2,-0x5 01ea e5fd | | Load 0x2,-0x3 01eb 6020 |` | Indirect_Literal Discrete,0x20c,{0x00000000, 0x0000600a} 01ec e005 | | Load 0x0,0x5 01ed 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 01ee 7809 |x | Jump 0x1f8 01ef e5f9 | | Load 0x2,-0x7 01f0 4802 |H | Short_Literal 0x2 01f1 00ea | | Load_Encached Null_String_Cache 01f2 e219 | | Load 0x1,0x19 01f3 e009 | | Load 0x0,0x9 01f4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01f5 c5f9 | | Store 0x2,-0x7 01f6 e00a | | Load 0x0,0xa 01f7 0257 | W | Execute Discrete,Raise 01f8 00cf | | Action Mark_Auxiliary 01f9 4802 |H | Short_Literal 0x2 01fa 4801 |H | Short_Literal 0x1 01fb 0007 | | Action Break_Optional 01fc 8406 | | Call 0x2,0x6 01fd 00c8 | | Action Pop_Auxiliary_Range 01fe 3ffd |? | Loop_Increasing 0x1fc 01ff 00ce | | Action Pop_Auxiliary 0200 e5f9 | | Load 0x2,-0x7 0201 e009 | | Load 0x0,0x9 0202 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0203 c5f9 | | Store 0x2,-0x7 0204 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0205 TRAP_01d0: 0205 e00a | | Load 0x0,0xa 0206 010f | | Execute Exception,Equal 0207 6801 |h | Jump_Zero 0x209 0208 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0209 0100 | | Execute Exception,Raise 020a 0000 0000 | | .XXX[0x2] 020c 0000 0000 | | .LITERAL {0x00000000, 0x0000600a} 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0224 | $ | .CONST 0x0224 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 4801 |H | Short_Literal 0x1 0215 e5ff | | Load 0x2,-0x1 0216 01db | | Execute Vector,Length 0217 00d8 | | Load_Top At_Offset_0 0218 00e2 | | Load_Encached Integer_Cache 0219 0260 | ` | Execute Discrete,In_Type 021a 7001 |p | Jump_Nonzero 0x21c 021b 0801 | | Execute_Immediate Raise,0x1 021c e5fe | | Load 0x2,-0x2 021d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021e 01ce | | Execute Vector,Slice_Write 021f 00da | | Load_Top At_Offset_2 0220 01db | | Execute Vector,Length 0221 e5fe | | Load 0x2,-0x2 0222 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0223 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0224 TRAP_0210: 0224 0007 | | Action Break_Optional 0225 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 022c 4864 |Hd | Short_Literal 0x64 022d 0270 | p | Execute Discrete,Divide 022e 4804 |H | Short_Literal 0x4 022f 4805 |H | Short_Literal 0x5 0230 0262 | b | Execute Discrete,In_Range 0231 7002 |p | Jump_Nonzero 0x234 0232 4802 |H | Short_Literal 0x2 0233 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0234 4807 |H | Short_Literal 0x7 0235 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0243 | C | .CONST 0x0243 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0004 | | .CONST 0x0004 ; Number of locals 023b INIT_0238: 023b 4801 |H | Short_Literal 0x1 023c 4880 |H | Short_Literal 0x80 023d 00e9 | | Load_Encached String_Cache 023e 035b | [ | Declare_Type Array,Constrained 023f 0337 | 7 | Declare_Variable Array 0240 00e3 | | Load_Encached Natural_Cache 0241 e004 | | Load 0x0,0x4 0242 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0243 BODY_0238: 0243 00cf | | Action Mark_Auxiliary 0244 7817 |x | Jump 0x25c 0245 00e3 | | Load_Encached Natural_Cache 0246 e402 | | Load 0x2,0x2 0247 e5ff | | Load 0x2,-0x1 0248 e002 | | Load 0x0,0x2 0249 1815 | | Execute Package,Field_Execute,Field_Number 0x15 024a 00d1 | | Pop_Control Pop_Count_1 024b 005b | [ | Store_Top Discrete,At_Offset_3 024c 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "<ERRORS>" 024e e00b | | Load 0x0,0xb 024f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0250 4801 |H | Short_Literal 0x1 0251 e403 | | Load 0x2,0x3 0252 e402 | | Load 0x2,0x2 0253 01cf | | Execute Vector,Slice_Read 0254 e5ff | | Load 0x2,-0x1 0255 e002 | | Load 0x0,0x2 0256 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0257 821e | | Call 0x1,0x1e 0258 6013 |` | Indirect_Literal Discrete,0x26c,{0x00000000, 0x00006001} 0259 e005 | | Load 0x0,0x5 025a 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 025b 00c9 | | Action Pop_Auxiliary_Loop 025c e5ff | | Load 0x2,-0x1 025d e002 | | Load 0x0,0x2 025e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 025f 6fe5 |o | Jump_Zero 0x245 0260 00ce | | Action Pop_Auxiliary 0261 e004 | | Load 0x0,0x4 0262 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0263 e5ff | | Load 0x2,-0x1 0264 e002 | | Load 0x0,0x2 0265 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0266 0059 | Y | Store_Top Discrete,At_Offset_1 0267 00d8 | | Load_Top At_Offset_0 0268 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0269 0000 0000 | | .XXX[0x3] 026b 0000 | | 026c 0000 0000 | | .LITERAL {0x00000000, 0x00006001} 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 027c | | | .CONST 0x027c ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0005 | | .CONST 0x0005 ; Number of locals 0273 INIT_0270: 0273 4801 |H | Short_Literal 0x1 0274 4880 |H | Short_Literal 0x80 0275 00e9 | | Load_Encached String_Cache 0276 035b | [ | Declare_Type Array,Constrained 0277 0337 | 7 | Declare_Variable Array 0278 00e3 | | Load_Encached Natural_Cache 0279 00e3 | | Load_Encached Natural_Cache 027a 00e1 | | Load_Encached Boolean_Cache 027b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 027c BODY_0270: 027c 00cf | | Action Mark_Auxiliary 027d 7820 |x | Jump 0x29e 027e 00e3 | | Load_Encached Natural_Cache 027f e402 | | Load 0x2,0x2 0280 e5ff | | Load 0x2,-0x1 0281 e002 | | Load 0x0,0x2 0282 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0283 00d1 | | Pop_Control Pop_Count_1 0284 c403 | | Store 0x2,0x3 0285 e5ff | | Load 0x2,-0x1 0286 e002 | | Load 0x0,0x2 0287 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0288 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0289 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "<ERRORS>" 028b e00b | | Load 0x0,0xb 028c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 028d 4801 |H | Short_Literal 0x1 028e e403 | | Load 0x2,0x3 028f e402 | | Load 0x2,0x2 0290 01cf | | Execute Vector,Slice_Read 0291 e404 | | Load 0x2,0x4 0292 821e | | Call 0x1,0x1e 0293 67d8 |g | Indirect_Literal Discrete,0x26c,{0x00000000, 0x00006001} 0294 e005 | | Load 0x0,0x5 0295 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0296 00da | | Load_Top At_Offset_2 0297 4864 |Hd | Short_Literal 0x64 0298 0270 | p | Execute Discrete,Divide 0299 0f05 | | Execute_Immediate Equal,0x5 029a 6802 |h | Jump_Zero 0x29d 029b 4800 |H | Short_Literal 0x0 029c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 029d 00c9 | | Action Pop_Auxiliary_Loop 029e e5ff | | Load 0x2,-0x1 029f e002 | | Load 0x0,0x2 02a0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02a1 6fdc |o | Jump_Zero 0x27e 02a2 00ce | | Action Pop_Auxiliary 02a3 e004 | | Load 0x0,0x4 02a4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02a5 e5ff | | Load 0x2,-0x1 02a6 e002 | | Load 0x0,0x2 02a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02a8 c5fd | | Store 0x2,-0x3 02a9 00d8 | | Load_Top At_Offset_0 02aa a5fc | | Store_Unchecked 0x2,-0x4 02ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ac 0000 0000 | | .BLANK 0000[0x4] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00db | | Load_Top At_Offset_3 02b4 00db | | Load_Top At_Offset_3 02b5 e004 | | Load 0x0,0x4 02b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02b7 011c | | Execute Any,Convert_Unchecked 02b8 1c01 | | Execute_Immediate Run_Utility,0x1 02b9 6006 |` | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x00006003} 02ba e005 | | Load 0x0,0x5 02bb 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 02bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02bd 0000 0000 | | .XXX[0x3] 02bf 0000 | | 02c0 0000 0000 | | .LITERAL {0x00000000, 0x00006003} 02c4 0000 0000 | | .BLANK 0000[0x4] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cd | | .CONST 0x02cd ; Address of begin 02c9 02db | | .CONST 0x02db ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb e004 | | Load 0x0,0x4 02cc 1b17 | | Execute Package,Field_Read,Field_Number 0x17 02cd BODY_02c8: 02cd e5fe | | Load 0x2,-0x2 02ce e5ff | | Load 0x2,-0x1 02cf 821f | | Call 0x1,0x1f 02d0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02d1 00d8 | | Load_Top At_Offset_0 02d2 0f01 | | Execute_Immediate Equal,0x1 02d3 6802 |h | Jump_Zero 0x2d6 02d4 4801 |H | Short_Literal 0x1 02d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02d6 e5fe | | Load 0x2,-0x2 02d7 00d9 | | Load_Top At_Offset_1 02d8 8221 | ! | Call 0x1,0x21 02d9 4800 |H | Short_Literal 0x0 02da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02db TRAP_02c8: 02db 0007 | | Action Break_Optional 02dc e5fe | | Load 0x2,-0x2 02dd 4801 |H | Short_Literal 0x1 02de 4802 |H | Short_Literal 0x2 02df e006 | | Load 0x0,0x6 02e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02e1 035b | [ | Declare_Type Array,Constrained 02e2 0337 | 7 | Declare_Variable Array 02e3 4800 |H | Short_Literal 0x0 02e4 4801 |H | Short_Literal 0x1 02e5 e007 | | Load 0x0,0x7 02e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02e7 e006 | | Load 0x0,0x6 02e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02e9 4801 |H | Short_Literal 0x1 02ea 00da | | Load_Top At_Offset_2 02eb 01d6 | | Execute Vector,Field_Write 02ec 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "Status_Ok" 02ee e006 | | Load 0x0,0x6 02ef 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02f0 4802 |H | Short_Literal 0x2 02f1 00da | | Load_Top At_Offset_2 02f2 01d6 | | Execute Vector,Field_Write 02f3 6004 |` | Indirect_Literal Discrete,0x2f8,{0x00000000, 0x0000600f} 02f4 e005 | | Load 0x0,0x5 02f5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02f6 e20d | | Load 0x1,0xd 02f7 0257 | W | Execute Discrete,Raise 02f8 0000 0000 | | .LITERAL {0x00000000, 0x0000600f} 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 00db | | Load_Top At_Offset_3 0304 00db | | Load_Top At_Offset_3 0305 8222 | " | Call 0x1,0x22 0306 7002 |p | Jump_Nonzero 0x309 0307 e20d | | Load 0x1,0xd 0308 0257 | W | Execute Discrete,Raise 0309 4503 |E | Exit_Suprogram New_Top_Offset 0x3 030a 0000 0000 | | .BLANK 0000[0x6] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0325 | % | .CONST 0x0325 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0006 | | .CONST 0x0006 ; Number of locals 0313 INIT_0310: 0313 e00c | | Load 0x0,0xc 0314 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0315 02c7 | | Declare_Variable Any 0316 00d8 | | Load_Top At_Offset_0 0317 1c00 | | Execute_Immediate Run_Utility,0x0 0318 e00c | | Load 0x0,0xc 0319 1b17 | | Execute Package,Field_Read,Field_Number 0x17 031a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031b 02c7 | | Declare_Variable Any 031c 00d8 | | Load_Top At_Offset_0 031d 1c00 | | Execute_Immediate Run_Utility,0x0 031e e00c | | Load 0x0,0xc 031f 192b | + | Execute Package,Field_Reference,Field_Number 0x2b 0320 0007 | | Action Break_Optional 0321 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call 0323 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call 0325 BODY_0310: 0325 e402 | | Load 0x2,0x2 0326 00ea | | Load_Encached Null_String_Cache 0327 e5fe | | Load 0x2,-0x2 0328 4801 |H | Short_Literal 0x1 0329 e00c | | Load 0x0,0xc 032a 180f | | Execute Package,Field_Execute,Field_Number 0xf 032b c402 | | Store 0x2,0x2 032c 4800 |H | Short_Literal 0x0 032d e00c | | Load 0x0,0xc 032e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 032f e5ff | | Load 0x2,-0x1 0330 e402 | | Load 0x2,0x2 0331 e00c | | Load 0x0,0xc 0332 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0333 4800 |H | Short_Literal 0x0 0334 e5ff | | Load 0x2,-0x1 0335 01db | | Execute Vector,Length 0336 0a01 | | Execute_Immediate Plus,0x1 0337 00d8 | | Load_Top At_Offset_0 0338 00e4 | | Load_Encached Positive_Cache 0339 0260 | ` | Execute Discrete,In_Type 033a 7001 |p | Jump_Nonzero 0x33c 033b 0801 | | Execute_Immediate Raise,0x1 033c 4801 |H | Short_Literal 0x1 033d e402 | | Load 0x2,0x2 033e e00c | | Load 0x0,0xc 033f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0340 00db | | Load_Top At_Offset_3 0341 e00c | | Load 0x0,0xc 0342 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0343 180e | | Execute Package,Field_Execute,Field_Number 0xe 0344 c403 | | Store 0x2,0x3 0345 8406 | | Call 0x2,0x6 0346 0831 | 1 | Execute_Immediate Raise,0x31 0347 0000 | | .XXX[0x1] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034d | M | .CONST 0x034d ; Address of begin 0349 034f | O | .CONST 0x034f ; Address of exception handler 034a 0002 | | .CONST 0x0002 ; Number of locals 034b INIT_0348: 034b 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call 034d BODY_0348: 034d 8402 | | Call 0x2,0x2 034e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 034f TRAP_0348: 034f e00d | | Load 0x0,0xd 0350 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0351 010f | | Execute Exception,Equal 0352 6807 |h | Jump_Zero 0x35a 0353 e5fd | | Load 0x2,-0x3 0354 e5fe | | Load 0x2,-0x2 0355 6012 |` | Indirect_Literal Discrete,0x368,{0x00000000, 0x00006009} 0356 e005 | | Load 0x0,0x5 0357 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0358 00d8 | | Load_Top At_Offset_0 0359 0101 | | Execute Exception,Reraise 035a e5fd | | Load 0x2,-0x3 035b e5fe | | Load 0x2,-0x2 035c 6007 |` | Indirect_Literal Discrete,0x364,{0x00000000, 0x00006004} 035d e005 | | Load 0x0,0x5 035e 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 035f 00d8 | | Load_Top At_Offset_0 0360 0101 | | Execute Exception,Reraise 0361 0000 0000 | | .XXX[0x3] 0363 0000 | | 0364 0000 0000 | | .LITERAL {0x00000000, 0x00006004} 0368 0000 0000 | | .LITERAL {0x00000000, 0x00006009} 036c 0000 0000 | | .BLANK 0000[0x4] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0375 | u | .CONST 0x0375 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0002 | | .CONST 0x0002 ; Number of locals 0373 INIT_0370: 0373 e004 | | Load 0x0,0x4 0374 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0375 BODY_0370: 0375 e5fe | | Load 0x2,-0x2 0376 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0377 e002 | | Load 0x0,0x2 0378 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0379 00db | | Load_Top At_Offset_3 037a 4801 |H | Short_Literal 0x1 037b e5fe | | Load 0x2,-0x2 037c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 037d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 037e e5fe | | Load 0x2,-0x2 037f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0380 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0381 01cf | | Execute Vector,Slice_Read 0382 e5fe | | Load 0x2,-0x2 0383 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0384 8225 | % | Call 0x1,0x25 0385 00db | | Load_Top At_Offset_3 0386 e5fe | | Load 0x2,-0x2 0387 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0388 8223 | # | Call 0x1,0x23 0389 4801 |H | Short_Literal 0x1 038a e5fe | | Load 0x2,-0x2 038b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 038c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 038d e5fe | | Load 0x2,-0x2 038e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 038f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0390 01cf | | Execute Vector,Slice_Read 0391 e5fe | | Load 0x2,-0x2 0392 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0393 e002 | | Load 0x0,0x2 0394 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0395 00db | | Load_Top At_Offset_3 0396 e5fe | | Load 0x2,-0x2 0397 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0398 821f | | Call 0x1,0x1f 0399 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 039a 00d8 | | Load_Top At_Offset_0 039b 0b01 | | Execute_Immediate Case_Compare,0x1 039c 7007 |p | Jump_Nonzero 0x3a4 039d 0f02 | | Execute_Immediate Equal,0x2 039e 7007 |p | Jump_Nonzero 0x3a6 039f 00db | | Load_Top At_Offset_3 03a0 00d9 | | Load_Top At_Offset_1 03a1 8221 | ! | Call 0x1,0x21 03a2 e20d | | Load 0x1,0xd 03a3 0257 | W | Execute Discrete,Raise 03a4 00d1 | | Pop_Control Pop_Count_1 03a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a6 4801 |H | Short_Literal 0x1 03a7 e5fe | | Load 0x2,-0x2 03a8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 03a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03aa e5fe | | Load 0x2,-0x2 03ab 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 03ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03ad 01cf | | Execute Vector,Slice_Read 03ae e5fe | | Load 0x2,-0x2 03af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b0 e002 | | Load 0x0,0x2 03b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03b2 00db | | Load_Top At_Offset_3 03b3 e5fe | | Load 0x2,-0x2 03b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b5 821f | | Call 0x1,0x1f 03b6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03b7 00d8 | | Load_Top At_Offset_0 03b8 4613 |F | Jump_Case 0x14 03b9 7813 |x | Jump 0x3cd ; case 0x0 03ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1 03bb 7811 |x | Jump 0x3cd ; case 0x2 03bc 7815 |x | Jump 0x3d2 ; case 0x3 03bd 780f |x | Jump 0x3cd ; case 0x4 03be 780e |x | Jump 0x3cd ; case 0x5 03bf 780d |x | Jump 0x3cd ; case 0x6 03c0 780c |x | Jump 0x3cd ; case 0x7 03c1 780b |x | Jump 0x3cd ; case 0x8 03c2 780a |x | Jump 0x3cd ; case 0x9 03c3 7809 |x | Jump 0x3cd ; case 0xa 03c4 7808 |x | Jump 0x3cd ; case 0xb 03c5 7807 |x | Jump 0x3cd ; case 0xc 03c6 7806 |x | Jump 0x3cd ; case 0xd 03c7 7805 |x | Jump 0x3cd ; case 0xe 03c8 7804 |x | Jump 0x3cd ; case 0xf 03c9 7803 |x | Jump 0x3cd ; case 0x10 03ca 7802 |x | Jump 0x3cd ; case 0x11 03cb 7801 |x | Jump 0x3cd ; case 0x12 03cc 7800 |x | Jump 0x3cd ; case 0x13 03cd 00db | | Load_Top At_Offset_3 03ce 00d9 | | Load_Top At_Offset_1 03cf 8221 | ! | Call 0x1,0x21 03d0 e20d | | Load 0x1,0xd 03d1 0257 | W | Execute Discrete,Raise 03d2 4801 |H | Short_Literal 0x1 03d3 e5fe | | Load 0x2,-0x2 03d4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 03d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03d6 e5fe | | Load 0x2,-0x2 03d7 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 03d8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03d9 01cf | | Execute Vector,Slice_Read 03da e5fe | | Load 0x2,-0x2 03db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03dc e002 | | Load 0x0,0x2 03dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03de 00db | | Load_Top At_Offset_3 03df e5fe | | Load 0x2,-0x2 03e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03e1 8223 | # | Call 0x1,0x23 03e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e3 0000 0000 | | .BLANK 0000[0x5] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb e5fd | | Load 0x2,-0x3 03ec 01db | | Execute Vector,Length 03ed 7013 |p | Jump_Nonzero 0x401 03ee e008 | | Load 0x0,0x8 03ef 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03f0 6810 |h | Jump_Zero 0x401 03f1 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "FTP password" 03f3 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "Please enter FTP password for machine " 03f5 e5ff | | Load 0x2,-0x1 03f6 01cc | | Execute Vector,Catenate 03f7 0092 05f7 | | Action Push_String_Extended,0x5f7 ; ", username " 03f9 01cc | | Execute Vector,Catenate 03fa e5fe | | Load 0x2,-0x2 03fb 01cc | | Execute Vector,Catenate 03fc 0092 05f8 | | Action Push_String_Extended,0x5f8 ; ": " 03fe 01cc | | Execute Vector,Catenate 03ff 8224 | $ | Call 0x1,0x24 0400 00ca | | Action Exit_Nullary_Function 0401 e5fd | | Load 0x2,-0x3 0402 0335 | 5 | Declare_Variable Array,Duplicate 0403 00cd | | Action Spare6_Action 0404 00ca | | Action Exit_Nullary_Function 0405 0000 0000 | | .XXX[0x3] 0407 0000 | | 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b e5fc | | Load 0x2,-0x4 040c 01db | | Execute Vector,Length 040d 7013 |p | Jump_Nonzero 0x421 040e e008 | | Load 0x0,0x8 040f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0410 6810 |h | Jump_Zero 0x421 0411 0092 05f9 | | Action Push_String_Extended,0x5f9 ; "FTP account" 0413 0092 05fa | | Action Push_String_Extended,0x5fa ; "Please enter FTP account for machine " 0415 e5ff | | Load 0x2,-0x1 0416 01cc | | Execute Vector,Catenate 0417 0092 05f7 | | Action Push_String_Extended,0x5f7 ; ", username " 0419 01cc | | Execute Vector,Catenate 041a e5fe | | Load 0x2,-0x2 041b 01cc | | Execute Vector,Catenate 041c 0092 05f8 | | Action Push_String_Extended,0x5f8 ; ": " 041e 01cc | | Execute Vector,Catenate 041f 8224 | $ | Call 0x1,0x24 0420 00ca | | Action Exit_Nullary_Function 0421 e5fc | | Load 0x2,-0x4 0422 0335 | 5 | Declare_Variable Array,Duplicate 0423 00cd | | Action Spare6_Action 0424 00ca | | Action Exit_Nullary_Function 0425 0000 0000 | | .XXX[0x3] 0427 0000 | | 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042c | , | .CONST 0x042c ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0002 | | .CONST 0x0002 ; Number of locals 042b INIT_0428: 042b 8405 | | Call 0x2,0x5 042c BODY_0428: 042c 00d8 | | Load_Top At_Offset_0 042d e402 | | Load 0x2,0x2 042e e002 | | Load 0x0,0x2 042f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0430 e5fa | | Load 0x2,-0x6 0431 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0432 00d9 | | Load_Top At_Offset_1 0433 821d | | Call 0x1,0x1d 0434 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0435 0000 0000 | | .XXX[0x3] 0437 0000 | | 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043c | < | .CONST 0x043c ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0002 | | .CONST 0x0002 ; Number of locals 043b INIT_0438: 043b 8406 | | Call 0x2,0x6 043c BODY_0438: 043c 00d8 | | Load_Top At_Offset_0 043d e402 | | Load 0x2,0x2 043e e002 | | Load 0x0,0x2 043f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0440 e5fa | | Load 0x2,-0x6 0441 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0442 e5fc | | Load 0x2,-0x4 0443 821d | | Call 0x1,0x1d 0444 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0445 0000 0000 | | .XXX[0x3] 0447 0000 | | 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b e5ff | | Load 0x2,-0x1 044c 6817 |h | Jump_Zero 0x464 044d e5fe | | Load 0x2,-0x2 044e 0092 05fb | | Action Push_String_Extended,0x5fb ; "<OPEN>" 0450 01df | | Execute Vector,Equal 0451 6807 |h | Jump_Zero 0x459 0452 4822 |H" | Short_Literal 0x22 0453 e5fd | | Load 0x2,-0x3 0454 01ca | | Execute Vector,Prepend 0455 0092 05fc | | Action Push_String_Extended,0x5fc ; "\x22 to the host" 0457 01cc | | Execute Vector,Catenate 0458 00ca | | Action Exit_Nullary_Function 0459 4822 |H" | Short_Literal 0x22 045a 4822 |H" | Short_Literal 0x22 045b e5fe | | Load 0x2,-0x2 045c 01ca | | Execute Vector,Prepend 045d 0092 05fd | | Action Push_String_Extended,0x5fd ; "\x22 <= \x22" 045f 01cc | | Execute Vector,Catenate 0460 e5fd | | Load 0x2,-0x3 0461 01cc | | Execute Vector,Catenate 0462 01cb | | Execute Vector,Append 0463 00ca | | Action Exit_Nullary_Function 0464 e5fe | | Load 0x2,-0x2 0465 0092 05fb | | Action Push_String_Extended,0x5fb ; "<OPEN>" 0467 01df | | Execute Vector,Equal 0468 6807 |h | Jump_Zero 0x470 0469 4822 |H" | Short_Literal 0x22 046a 0092 05fe | | Action Push_String_Extended,0x5fe ; "host file to \x22" 046c e5fd | | Load 0x2,-0x3 046d 01cc | | Execute Vector,Catenate 046e 01cb | | Execute Vector,Append 046f 00ca | | Action Exit_Nullary_Function 0470 4822 |H" | Short_Literal 0x22 0471 4822 |H" | Short_Literal 0x22 0472 e5fe | | Load 0x2,-0x2 0473 01ca | | Execute Vector,Prepend 0474 0092 05ff | | Action Push_String_Extended,0x5ff ; "\x22 => \x22" 0476 01cc | | Execute Vector,Catenate 0477 e5fd | | Load 0x2,-0x3 0478 01cc | | Execute Vector,Catenate 0479 01cb | | Execute Vector,Append 047a 00ca | | Action Exit_Nullary_Function 047b 0000 0000 | | .BLANK 0000[0x5] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 4801 |H | Short_Literal 0x1 0484 00ca | | Action Exit_Nullary_Function 0485 0000 0000 | | .XXX[0x3] 0487 0000 | | 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 8405 | | Call 0x2,0x5 048c 6809 |h | Jump_Zero 0x496 048d e003 | | Load 0x0,0x3 048e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 048f e003 | | Load 0x0,0x3 0490 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0491 e5fa | | Load 0x2,-0x6 0492 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0493 e002 | | Load 0x0,0x2 0494 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0495 780c |x | Jump 0x4a2 0496 e5fa | | Load 0x2,-0x6 0497 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0498 e002 | | Load 0x0,0x2 0499 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 049a e5fa | | Load 0x2,-0x6 049b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 049c e002 | | Load 0x0,0x2 049d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 049e e5fa | | Load 0x2,-0x6 049f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04a0 e002 | | Load 0x0,0x2 04a1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 04a2 e5fb | | Load 0x2,-0x5 04a3 e5fa | | Load 0x2,-0x6 04a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04a5 821f | | Call 0x1,0x1f 04a6 0f01 | | Execute_Immediate Equal,0x1 04a7 700b |p | Jump_Nonzero 0x4b3 04a8 e5f9 | | Load 0x2,-0x7 04a9 4802 |H | Short_Literal 0x2 04aa 0092 0600 | | Action Push_String_Extended,0x600 ; ": Send_Data_Port" 04ac 0092 0601 | | Action Push_String_Extended,0x601 ; "Bad status to Ftp operation" 04ae e009 | | Load 0x0,0x9 04af 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04b0 c5f9 | | Store 0x2,-0x7 04b1 e00a | | Load 0x0,0xa 04b2 0257 | W | Execute Discrete,Raise 04b3 e5ff | | Load 0x2,-0x1 04b4 6813 |h | Jump_Zero 0x4c8 04b5 e5fe | | Load 0x2,-0x2 04b6 0092 05fb | | Action Push_String_Extended,0x5fb ; "<OPEN>" 04b8 01df | | Execute Vector,Equal 04b9 6806 |h | Jump_Zero 0x4c0 04ba e5fd | | Load 0x2,-0x3 04bb e5fa | | Load 0x2,-0x6 04bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04bd e002 | | Load 0x0,0x2 04be 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04bf 781b |x | Jump 0x4db 04c0 4800 |H | Short_Literal 0x0 04c1 e5fd | | Load 0x2,-0x3 04c2 e5fe | | Load 0x2,-0x2 04c3 e5fa | | Load 0x2,-0x6 04c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04c5 e002 | | Load 0x0,0x2 04c6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 04c7 7813 |x | Jump 0x4db 04c8 e5fe | | Load 0x2,-0x2 04c9 0092 05fb | | Action Push_String_Extended,0x5fb ; "<OPEN>" 04cb 01df | | Execute Vector,Equal 04cc 6807 |h | Jump_Zero 0x4d4 04cd 4800 |H | Short_Literal 0x0 04ce e5fd | | Load 0x2,-0x3 04cf e5fa | | Load 0x2,-0x6 04d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04d1 e002 | | Load 0x0,0x2 04d2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04d3 7807 |x | Jump 0x4db 04d4 4800 |H | Short_Literal 0x0 04d5 e5fd | | Load 0x2,-0x3 04d6 e5fe | | Load 0x2,-0x2 04d7 e5fa | | Load 0x2,-0x6 04d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04d9 e002 | | Load 0x0,0x2 04da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 04db 00e1 | | Load_Encached Boolean_Cache 04dc e004 | | Load 0x0,0x4 04dd 1b17 | | Execute Package,Field_Read,Field_Number 0x17 04de e5fb | | Load 0x2,-0x5 04df e5fa | | Load 0x2,-0x6 04e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e1 8220 | | Call 0x1,0x20 04e2 c402 | | Store 0x2,0x2 04e3 c403 | | Store 0x2,0x3 04e4 e402 | | Load 0x2,0x2 04e5 0f06 | | Execute_Immediate Equal,0x6 04e6 7022 |p" | Jump_Nonzero 0x509 04e7 e409 | | Load 0x2,0x9 04e8 0f01 | | Execute_Immediate Equal,0x1 04e9 e403 | | Load 0x2,0x3 04ea 0279 | y | Execute Discrete,And 04eb 680f |h | Jump_Zero 0x4fb 04ec e5fb | | Load 0x2,-0x5 04ed 8404 | | Call 0x2,0x4 04ee 6069 |`i | Indirect_Literal Discrete,0x558,{0x00000000, 0x0000600e} 04ef e005 | | Load 0x0,0x5 04f0 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 04f1 e5fa | | Load 0x2,-0x6 04f2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04f3 e002 | | Load 0x0,0x2 04f4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 04f5 7004 |p | Jump_Nonzero 0x4fa 04f6 e5fa | | Load 0x2,-0x6 04f7 e5fb | | Load 0x2,-0x5 04f8 8226 | & | Call 0x1,0x26 04f9 00d1 | | Pop_Control Pop_Count_1 04fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04fb e5fb | | Load 0x2,-0x5 04fc 8404 | | Call 0x2,0x4 04fd 6056 |`V | Indirect_Literal Discrete,0x554,{0x00000000, 0x0000600d} 04fe e005 | | Load 0x0,0x5 04ff 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0500 e5f9 | | Load 0x2,-0x7 0501 4802 |H | Short_Literal 0x2 0502 00ea | | Load_Encached Null_String_Cache 0503 e219 | | Load 0x1,0x19 0504 e009 | | Load 0x0,0x9 0505 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0506 c5f9 | | Store 0x2,-0x7 0507 e00a | | Load 0x0,0xa 0508 0257 | W | Execute Discrete,Raise 0509 e5fa | | Load 0x2,-0x6 050a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 050b e002 | | Load 0x0,0x2 050c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 050d 0f01 | | Execute_Immediate Equal,0x1 050e 7022 |p" | Jump_Nonzero 0x531 050f e409 | | Load 0x2,0x9 0510 0f01 | | Execute_Immediate Equal,0x1 0511 e403 | | Load 0x2,0x3 0512 0279 | y | Execute Discrete,And 0513 680f |h | Jump_Zero 0x523 0514 e5fb | | Load 0x2,-0x5 0515 8404 | | Call 0x2,0x4 0516 6041 |`A | Indirect_Literal Discrete,0x558,{0x00000000, 0x0000600e} 0517 e005 | | Load 0x0,0x5 0518 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0519 e5fa | | Load 0x2,-0x6 051a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 051b e002 | | Load 0x0,0x2 051c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 051d 7004 |p | Jump_Nonzero 0x522 051e e5fa | | Load 0x2,-0x6 051f e5fb | | Load 0x2,-0x5 0520 8226 | & | Call 0x1,0x26 0521 00d1 | | Pop_Control Pop_Count_1 0522 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0523 e5fb | | Load 0x2,-0x5 0524 8404 | | Call 0x2,0x4 0525 602e |`. | Indirect_Literal Discrete,0x554,{0x00000000, 0x0000600d} 0526 e005 | | Load 0x0,0x5 0527 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0528 e5f9 | | Load 0x2,-0x7 0529 4802 |H | Short_Literal 0x2 052a 00ea | | Load_Encached Null_String_Cache 052b e219 | | Load 0x1,0x19 052c e009 | | Load 0x0,0x9 052d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 052e c5f9 | | Store 0x2,-0x7 052f e00a | | Load 0x0,0xa 0530 0257 | W | Execute Discrete,Raise 0531 e5fb | | Load 0x2,-0x5 0532 4801 |H | Short_Literal 0x1 0533 4802 |H | Short_Literal 0x2 0534 e006 | | Load 0x0,0x6 0535 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0536 035b | [ | Declare_Type Array,Constrained 0537 0337 | 7 | Declare_Variable Array 0538 8404 | | Call 0x2,0x4 0539 e006 | | Load 0x0,0x6 053a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 053b 4801 |H | Short_Literal 0x1 053c 00da | | Load_Top At_Offset_2 053d 01d6 | | Execute Vector,Field_Write 053e e5fa | | Load 0x2,-0x6 053f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0540 e002 | | Load 0x0,0x2 0541 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0542 e006 | | Load 0x0,0x6 0543 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0544 4802 |H | Short_Literal 0x2 0545 00da | | Load_Top At_Offset_2 0546 01d6 | | Execute Vector,Field_Write 0547 6008 |` | Indirect_Literal Discrete,0x550,{0x00000000, 0x0000600c} 0548 e005 | | Load 0x0,0x5 0549 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 054a 00cc | | Action Pop_Block 054b 00d2 | | Pop_Control Pop_Count_2 054c 00a7 01ff | | Action Jump_Extended,0x1ff 054e 0000 0000 | | .XXX[0x2] 0550 0000 0000 | | .LITERAL {0x00000000, 0x0000600c} 0554 0000 0000 | | .LITERAL {0x00000000, 0x0000600d} 0558 0000 0000 | | .LITERAL {0x00000000, 0x0000600e} 055c 0000 0000 | | .BLANK 0000[0x4] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 056e | n | .CONST 0x056e ; Address of begin 0561 05a5 | | .CONST 0x05a5 ; Address of exception handler 0562 0005 | | .CONST 0x0005 ; Number of locals 0563 INIT_0560: 0563 e00c | | Load 0x0,0xc 0564 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0565 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0566 00e8 | | Load_Encached Character_Cache 0567 4801 |H | Short_Literal 0x1 0568 4900 |I | Short_Literal 0x100 0569 00e9 | | Load_Encached String_Cache 056a 035b | [ | Declare_Type Array,Constrained 056b 0337 | 7 | Declare_Variable Array 056c 00e3 | | Load_Encached Natural_Cache 056d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 056e BODY_0560: 056e 00cf | | Action Mark_Auxiliary 056f e00c | | Load 0x0,0xc 0570 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0571 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0572 e7ff | | Load 0x3,-0x1 0573 e00c | | Load 0x0,0xc 0574 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0575 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0576 c602 | | Store 0x3,0x2 0577 e602 | | Load 0x3,0x2 0578 e00c | | Load 0x0,0xc 0579 1b17 | | Execute Package,Field_Read,Field_Number 0x17 057a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 057b 00d9 | | Load_Top At_Offset_1 057c 00d0 | | Action Swap_Control 057d 0260 | ` | Execute Discrete,In_Type 057e 7001 |p | Jump_Nonzero 0x580 057f 0801 | | Execute_Immediate Raise,0x1 0580 e00c | | Load 0x0,0xc 0581 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0582 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0583 a603 | | Store_Unchecked 0x3,0x3 0584 00db | | Load_Top At_Offset_3 0585 4800 |H | Short_Literal 0x0 0586 481f |H | Short_Literal 0x1f 0587 0262 | b | Execute Discrete,In_Range 0588 7014 |p | Jump_Nonzero 0x59d 0589 00d9 | | Load_Top At_Offset_1 058a 0a01 | | Execute_Immediate Plus,0x1 058b 005a | Z | Store_Top Discrete,At_Offset_2 058c 00db | | Load_Top At_Offset_3 058d 00da | | Load_Top At_Offset_2 058e e604 | | Load 0x3,0x4 058f 01d6 | | Execute Vector,Field_Write 0590 00d9 | | Load_Top At_Offset_1 0591 4900 |I | Short_Literal 0x100 0592 027f | | Execute Discrete,Equal 0593 6807 |h | Jump_Zero 0x59b 0594 00da | | Load_Top At_Offset_2 0595 e7ff | | Load 0x3,-0x1 0596 8405 | | Call 0x2,0x5 0597 01cc | | Execute Vector,Catenate 0598 00e9 | | Load_Encached String_Cache 0599 01c6 | | Execute Vector,Convert_To_Formal 059a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 059b 00c9 | | Action Pop_Auxiliary_Loop 059c 7fd2 | | Jump 0x56f 059d 00ce | | Action Pop_Auxiliary 059e 4801 |H | Short_Literal 0x1 059f 00d9 | | Load_Top At_Offset_1 05a0 00db | | Load_Top At_Offset_3 05a1 01cf | | Execute Vector,Slice_Read 05a2 00e9 | | Load_Encached String_Cache 05a3 01c6 | | Execute Vector,Convert_To_Formal 05a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05a5 TRAP_0560: 05a5 010e | | Execute Exception,Is_Constraint_Error 05a6 6807 |h | Jump_Zero 0x5ae 05a7 4801 |H | Short_Literal 0x1 05a8 00da | | Load_Top At_Offset_2 05a9 e604 | | Load 0x3,0x4 05aa 01cf | | Execute Vector,Slice_Read 05ab 00e9 | | Load_Encached String_Cache 05ac 01c6 | | Execute Vector,Convert_To_Formal 05ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ae 0100 | | Execute Exception,Raise 05af 0000 | | .XXX[0x1] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b5 | | .CONST 0x05b5 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0002 | | .CONST 0x0002 ; Number of locals 05b3 INIT_05b0: 05b3 e403 | | Load 0x2,0x3 05b4 8405 | | Call 0x2,0x5 05b5 BODY_05b0: 05b5 e403 | | Load 0x2,0x3 05b6 4800 |H | Short_Literal 0x0 05b7 e00c | | Load 0x0,0xc 05b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05b9 180f | | Execute Package,Field_Execute,Field_Number 0xf 05ba c403 | | Store 0x2,0x3 05bb 4801 |H | Short_Literal 0x1 05bc e402 | | Load 0x2,0x2 05bd 8404 | | Call 0x2,0x4 05be 00d8 | | Load_Top At_Offset_0 05bf 00e9 | | Load_Encached String_Cache 05c0 01c6 | | Execute Vector,Convert_To_Formal 05c1 00cb | | Action Pop_Block_With_Result 05c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05c3 0000 0000 | | .BLANK 0000[0x5] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05ce | | .CONST 0x05ce ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0002 | | .CONST 0x0002 ; Number of locals 05cb INIT_05c8: 05cb e5fe | | Load 0x2,-0x2 05cc e00d | | Load 0x0,0xd 05cd 180e | | Execute Package,Field_Execute,Field_Number 0xe 05ce BODY_05c8: 05ce e002 | | Load 0x0,0x2 05cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05d0 00d9 | | Load_Top At_Offset_1 05d1 e5ff | | Load 0x2,-0x1 05d2 e002 | | Load 0x0,0x2 05d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05d5 0000 0000 | | .XXX[0x3] 05d7 0000 | | 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 4608 |F | Jump_Case 0x9 05dc 7808 |x | Jump 0x5e5 ; case 0x0 05dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05de 780d |x | Jump 0x5ec ; case 0x2 05df 780c |x | Jump 0x5ec ; case 0x3 05e0 780b |x | Jump 0x5ec ; case 0x4 05e1 780a |x | Jump 0x5ec ; case 0x5 05e2 7809 |x | Jump 0x5ec ; case 0x6 05e3 7808 |x | Jump 0x5ec ; case 0x7 05e4 7807 |x | Jump 0x5ec ; case 0x8 05e5 00da | | Load_Top At_Offset_2 05e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05e7 0125 | % | Execute Any,Set_Constraint 05e8 00da | | Load_Top At_Offset_2 05e9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ea 1c00 | | Execute_Immediate Run_Utility,0x0 05eb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05ec 0869 | i | Execute_Immediate Raise,0x69 05ed ; -------------------------------------------------------------------------------------- 05ed ; STRING TABLE 05ed ; -------------------------------------------------------------------------------------- 05ed 002c | , | .STRTAB 0x002c->0x0603 ; "SEND_TO_REMOTE" 05ee 0038 | 8 | .STRTAB 0x0038->0x060a ; "RECEIVE_FROM_REMOTE" 05ef 0049 | I | .STRTAB 0x0049->0x0613 ; "Ftp failure" 05f0 0052 | R | .STRTAB 0x0052->0x0619 ; "Transfer failure" 05f1 0060 | ` | .STRTAB 0x0060->0x0621 ; "*" 05f2 005f | _ | .STRTAB 0x005f->0x0621 ; "Close" 05f3 0062 | b | .STRTAB 0x0062->0x0624 ; "<ERRORS>" 05f4 0068 | h | .STRTAB 0x0068->0x0628 ; "Status_Ok" 05f5 006f | o | .STRTAB 0x006f->0x062c ; "FTP password" 05f6 0079 | y | .STRTAB 0x0079->0x0632 ; "Please enter FTP password for machine " 05f7 009d | | .STRTAB 0x009d->0x0645 ; ", username " 05f8 00a6 | | .STRTAB 0x00a6->0x064b ; ": " 05f9 00a6 | | .STRTAB 0x00a6->0x064c ; "FTP account" 05fa 00af | | .STRTAB 0x00af->0x0651 ; "Please enter FTP account for machine " 05fb 00d2 | | .STRTAB 0x00d2->0x0664 ; "<OPEN>" 05fc 00d6 | | .STRTAB 0x00d6->0x0667 ; "\x22 to the host" 05fd 00e1 | | .STRTAB 0x00e1->0x066d ; "\x22 <= \x22" 05fe 00e5 | | .STRTAB 0x00e5->0x0670 ; "host file to \x22" 05ff 00f1 | | .STRTAB 0x00f1->0x0677 ; "\x22 => \x22" 0600 00f5 | | .STRTAB 0x00f5->0x067a ; ": Send_Data_Port" 0601 0103 | | .STRTAB 0x0103->0x0682 ; "Bad status to Ftp operation" 0602 011c | | .STREND 0x011c->0x0690 0603 5345 4e44 |SEND| .STRTAB_STRINGS 0690 ; -------------------------------------------------------------------------------------- 0690 ; Debug Table 0690 ; -------------------------------------------------------------------------------------- 0690 0004 000d | | .DEBUG4 0x0004,0x000d,0xd91b,0x0000,0x0001,0x0000 0696 6d70 6f72 |mpor| .XXX[0x2f] 0698 745f 506f |t_Po| 069a 7374 7072 |stpr| 069c 6f63 6573 |oces| 069e 732e 3600 |s.6 | 06a0 0000 0000 | | 06a2 0000 4020 | @ | 06a4 2020 2070 | p| 06a6 726f 6365 |roce| 06a8 6475 7265 |dure| 06aa 2042 7569 | Bui| 06ac 6c64 5f52 |ld_R| 06ae 656d 6f74 |emot| 06b0 655f 4c69 |e_Li| 06b2 6272 6172 |brar| 06b4 7920 2856 |y (V| 06b6 6965 7720 |iew | 06b8 3a20 5374 |: St| 06ba 7269 6e67 |ring| 06bc 203a 3d20 | := | 06be 223c 4355 |"<CU| 06c0 5253 4f52 |RSOR| 06c2 3e22 3b40 |>";@| 06c4 004b | K | 06c5 2020 2020 | | .BLANK 2020[0x12] 06d7 5265 6d6f |Remo| .XXX[0x15] 06d9 7465 5f4d |te_M| 06db 6163 6869 |achi| 06dd 6e65 203a |ne :| 06df 2053 7472 | Str| 06e1 696e 6720 |ing | 06e3 3a3d 2022 |:= "| 06e5 3c44 4546 |<DEF| 06e7 4155 4c54 |AULT| 06e9 3e22 3b4b |>";K| 06eb 004d | M | 06ec 2020 2020 | | .BLANK 2020[0x12] 06fe 5265 6d6f |Remo| .XXX[0x16] 0700 7465 5f44 |te_D| 0702 6972 6563 |irec| 0704 746f 7279 |tory| 0706 203a 2053 | : S| 0708 7472 696e |trin| 070a 6720 3a3d |g :=| 070c 2022 3c44 | "<D| 070e 4546 4155 |EFAU| 0710 4c54 3e22 |LT>"| 0712 3b4d 0046 |;M F| 0714 2020 2020 | | .BLANK 2020[0x12] 0726 5265 7370 |Resp| .XXX[0xda] 0728 6f6e 7365 |onse| 072a 203a 2053 | : S| 072c 7472 696e |trin| 072e 6720 3a3d |g :=| 0730 2022 3c50 | "<P| 0732 524f 4649 |ROFI| 0734 4c45 3e22 |LE>"| 0736 293b 4600 |);F | 0738 0000 0049 | I| 073a 2020 2020 | | 073c 2d2d 2020 |-- | 073e 4769 7665 |Give| 0740 6e20 616e |n an| 0742 2065 7869 | exi| 0744 7374 696e |stin| 0746 6720 5243 |g RC| 0748 4620 7669 |F vi| 074a 6577 2c20 |ew, | 074c 6275 696c |buil| 074e 6420 7468 |d th| 0750 6520 7265 |e re| 0752 6d6f 7465 |mote| 0754 206c 6962 | lib| 0756 7261 7279 |rary| 0758 2e20 2054 |. T| 075a 6865 2072 |he r| 075c 656d 6f74 |emot| 075e 6549 004b |eI K| 0760 2020 2020 | | 0762 2d2d 2020 |-- | 0764 6c69 6272 |libr| 0766 6172 7920 |ary | 0768 636f 6e73 |cons| 076a 6973 7473 |ists| 076c 206f 6620 | of | 076e 626f 7468 |both| 0770 2074 6865 | the| 0772 2072 656d | rem| 0774 6f74 6520 |ote | 0776 6469 7265 |dire| 0778 6374 6f72 |ctor| 077a 792c 2077 |y, w| 077c 6865 7265 |here| 077e 2073 6f75 | sou| 0780 7263 6520 |rce | 0782 7769 6c6c |will| 0784 2062 654b | beK| 0786 0047 2020 | G | 0788 2020 2d2d | --| 078a 2020 7374 | st| 078c 6f72 6564 |ored| 078e 2c20 616e |, an| 0790 6420 7468 |d th| 0792 6520 7072 |e pr| 0794 6f67 7261 |ogra| 0796 6d20 6c69 |m li| 0798 6272 6172 |brar| 079a 7920 696e |y in| 079c 746f 2077 |to w| 079e 6869 6368 |hich| 07a0 2069 7420 | it | 07a2 7769 6c6c |will| 07a4 2062 6520 | be | 07a6 636f 6d70 |comp| 07a8 696c 6564 |iled| 07aa 2e47 0006 |.G | 07ac 2020 2020 | | 07ae 2d2d 0600 |-- | 07b0 4e20 2020 |N | 07b2 202d 2d20 | -- | 07b4 2049 6620 | If | 07b6 7468 6520 |the | 07b8 6465 6661 |defa| 07ba 756c 7473 |ults| 07bc 2061 7265 | are| 07be 2067 6976 | giv| 07c0 656e 2066 |en f| 07c2 6f72 2074 |or t| 07c4 6865 2052 |he R| 07c6 656d 6f74 |emot| 07c8 655f 4d61 |e_Ma| 07ca 6368 696e |chin| 07cc 6520 616e |e an| 07ce 6420 5265 |d Re| 07d0 6d6f 7465 |mote| 07d2 5f44 6972 |_Dir| 07d4 6563 746f |ecto| 07d6 7279 2c4e |ry,N| 07d8 004a 2020 | J | 07da 2020 2d2d | --| 07dc 2020 7468 | th| 07de 6579 2077 |ey w| 07e0 696c 6c20 |ill | 07e2 6265 2062 |be b| 07e4 6520 7461 |e ta| 07e6 6b65 6e20 |ken | 07e8 6672 6f6d |from| 07ea 2074 6865 | the| 07ec 2076 6965 | vie| 07ee 7727 7320 |w's | 07f0 636f 6d70 |comp| 07f2 696c 6572 |iler| 07f4 2073 7769 | swi| 07f6 7463 6865 |tche| 07f8 732e 2020 |s. | 07fa 4966 2074 |If t| 07fc 6865 7365 |hese| 07fe 4a00 0000 |J |