|
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: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦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 08c0 | | .CONST 0x08c0 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 011e | | .CONST 0x011e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0043 | C | .CONST 0x0043 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4802 |H | Short_Literal 0x2 000d 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0012 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0014 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0016 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0018 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 001a 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 001c 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 001e 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 0020 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 0022 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0024 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 0026 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 0028 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 002a 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated 002c 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated 002e 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 0030 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 0032 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated 0034 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated 0036 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated 0038 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated 003a 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated 003c e002 | | Load 0x0,0x2 003d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003e e002 | | Load 0x0,0x2 003f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0040 e002 | | Load 0x0,0x2 0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0042 00e2 | | Load_Encached Integer_Cache 0043 e003 | | Load 0x0,0x3 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 029f 0833 | 3| Declare_Subprogram INIT_0830,For_Call 0047 4805 |H | Short_Literal 0x5 0048 032e | . | Declare_Type Record,Defined,Visible 0049 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 004a 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 004b 00bf | | Action Accept_Activation 004c 00e9 | | Load_Encached String_Cache 004d 02a0 | | Declare_Subprogram Null_Subprogram 004e 03ad | | Declare_Type Heap_Access,Defined 004f e004 | | Load 0x0,0x4 0050 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0051 02a0 | | Declare_Subprogram Null_Subprogram 0052 03ad | | Declare_Type Heap_Access,Defined 0053 00e1 | | Load_Encached Boolean_Cache 0054 e005 | | Load 0x0,0x5 0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0056 00da | | Load_Top At_Offset_2 0057 00db | | Load_Top At_Offset_3 0058 e229 | ) | Load 0x1,0x29 0059 00d8 | | Load_Top At_Offset_0 005a 00e1 | | Load_Encached Boolean_Cache 005b e006 | | Load 0x0,0x6 005c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 005d e227 | ' | Load 0x1,0x27 005e e007 | | Load 0x0,0x7 005f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0060 029f 059b | | Declare_Subprogram INIT_0598,For_Call 0062 480a |H | Short_Literal 0xa 0063 032d | - | Declare_Type Record,Defined 0064 00d8 | | Load_Top At_Offset_0 0065 02a0 | | Declare_Subprogram Null_Subprogram 0066 e228 | ( | Load 0x1,0x28 0067 03a3 | | Complete_Type Heap_Access,By_Defining 0068 00db | | Load_Top At_Offset_3 0069 4801 |H | Short_Literal 0x1 006a 60ed |` | Indirect_Literal Discrete,0x158,{0x00000000, 0x00000400} 006b 00e9 | | Load_Encached String_Cache 006c 035b | [ | Declare_Type Array,Constrained 006d 00e2 | | Load_Encached Integer_Cache 006e e008 | | Load 0x0,0x8 006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0070 00e1 | | Load_Encached Boolean_Cache 0071 e20f | | Load 0x1,0xf 0072 e227 | ' | Load 0x1,0x27 0073 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call 0075 4807 |H | Short_Literal 0x7 0076 032d | - | Declare_Type Record,Defined 0077 00d8 | | Load_Top At_Offset_0 0078 02a0 | | Declare_Subprogram Null_Subprogram 0079 e227 | ' | Load 0x1,0x27 007a 03a3 | | Complete_Type Heap_Access,By_Defining 007b e008 | | Load 0x0,0x8 007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007d 02c7 | | Declare_Variable Any 007e 00d8 | | Load_Top At_Offset_0 007f 1c00 | | Execute_Immediate Run_Utility,0x0 0080 00d9 | | Load_Top At_Offset_1 0081 0322 | " | Declare_Variable Record 0082 e228 | ( | Load 0x1,0x28 0083 00d9 | | Load_Top At_Offset_1 0084 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0085 00da | | Load_Top At_Offset_2 0086 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0087 0337 | 7 | Declare_Variable Array 0088 60cf |` | Indirect_Literal Discrete,0x158,{0x00000000, 0x00000400} 0089 4801 |H | Short_Literal 0x1 008a 4800 |H | Short_Literal 0x0 008b 00d9 | | Load_Top At_Offset_1 008c e22f | / | Load 0x1,0x2f 008d 01d6 | | Execute Vector,Field_Write 008e 3ffb |? | Loop_Increasing 0x8a 008f 00db | | Load_Top At_Offset_3 0090 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0091 0119 | | Execute Any,Check_In_Formal_Type 0092 00d9 | | Load_Top At_Offset_1 0093 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0094 4800 |H | Short_Literal 0x0 0095 00d9 | | Load_Top At_Offset_1 0096 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0097 e227 | ' | Load 0x1,0x27 0098 00d9 | | Load_Top At_Offset_1 0099 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 009a 00d9 | | Load_Top At_Offset_1 009b 00db | | Load_Top At_Offset_3 009c 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 009d 0119 | | Execute Any,Check_In_Formal_Type 009e 00d9 | | Load_Top At_Offset_1 009f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00a0 4800 |H | Short_Literal 0x0 00a1 00d9 | | Load_Top At_Offset_1 00a2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00a3 4800 |H | Short_Literal 0x0 00a4 00d9 | | Load_Top At_Offset_1 00a5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00a6 487f |H | Short_Literal 0x7f 00a7 e009 | | Load 0x0,0x9 00a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a9 e00a | | Load 0x0,0xa 00aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ab e002 | | Load 0x0,0x2 00ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ad e00b | | Load 0x0,0xb 00ae e00c | | Load 0x0,0xc 00af 4865 |He | Short_Literal 0x65 00b0 e002 | | Load 0x0,0x2 00b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b2 e226 | & | Load 0x1,0x26 00b3 e002 | | Load 0x0,0x2 00b4 1919 | | Execute Package,Field_Reference,Field_Number 0x19 00b5 e00d | | Load 0x0,0xd 00b6 0387 | | Declare_Variable Package 00b7 00d8 | | Load_Top At_Offset_0 00b8 020f | | Execute Module,Activate 00b9 e00e | | Load 0x0,0xe 00ba e00f | | Load 0x0,0xf 00bb 4865 |He | Short_Literal 0x65 00bc e002 | | Load 0x0,0x2 00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00be e230 | 0 | Load 0x1,0x30 00bf 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c0 e002 | | Load 0x0,0x2 00c1 1919 | | Execute Package,Field_Reference,Field_Number 0x19 00c2 e00d | | Load 0x0,0xd 00c3 0387 | | Declare_Variable Package 00c4 00d8 | | Load_Top At_Offset_0 00c5 020f | | Execute Module,Activate 00c6 00d8 | | Load_Top At_Offset_0 00c7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c8 00e1 | | Load_Encached Boolean_Cache 00c9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00ca 4a00 |J | Short_Literal 0x200 00cb e010 | | Load 0x0,0x10 00cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00cd 1c08 | | Execute_Immediate Run_Utility,0x8 00ce 00d8 | | Load_Top At_Offset_0 00cf 1c00 | | Execute_Immediate Run_Utility,0x0 00d0 4a00 |J | Short_Literal 0x200 00d1 e010 | | Load 0x0,0x10 00d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d3 1c08 | | Execute_Immediate Run_Utility,0x8 00d4 00d8 | | Load_Top At_Offset_0 00d5 1c00 | | Execute_Immediate Run_Utility,0x0 00d6 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call 00d8 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call 00da 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call 00dc 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 00de 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00df 00c7 | | Action Elaborate_Subprogram 00e0 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call 00e2 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call 00e4 029d 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call 00e6 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call 00e8 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call 00ea 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call 00ec 029d 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call 00ee 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call 00f0 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00f1 00c7 | | Action Elaborate_Subprogram 00f2 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00f3 00c7 | | Action Elaborate_Subprogram 00f4 029d 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call 00f6 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00f7 00c7 | | Action Elaborate_Subprogram 00f8 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00f9 00c7 | | Action Elaborate_Subprogram 00fa 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00fb 00c7 | | Action Elaborate_Subprogram 00fc 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00fd 00c7 | | Action Elaborate_Subprogram 00fe 029d 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call 0100 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0101 00c7 | | Action Elaborate_Subprogram 0102 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0103 00c7 | | Action Elaborate_Subprogram 0104 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0105 00c7 | | Action Elaborate_Subprogram 0106 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0107 00c7 | | Action Elaborate_Subprogram 0108 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0109 00c7 | | Action Elaborate_Subprogram 010a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 010b 00c7 | | Action Elaborate_Subprogram 010c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 010d 00c7 | | Action Elaborate_Subprogram 010e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 010f 00c7 | | Action Elaborate_Subprogram 0110 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0111 00c7 | | Action Elaborate_Subprogram 0112 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0113 00c7 | | Action Elaborate_Subprogram 0114 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0115 00c7 | | Action Elaborate_Subprogram 0116 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0117 00c7 | | Action Elaborate_Subprogram 0118 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0119 00c7 | | Action Elaborate_Subprogram 011a 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 011b 00c7 | | Action Elaborate_Subprogram 011c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 011d 00c7 | | Action Elaborate_Subprogram 011e BODY_0008: 011e e231 | 1 | Load 0x1,0x31 011f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0120 480a |H | Short_Literal 0xa 0121 e009 | | Load 0x0,0x9 0122 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0123 e00a | | Load 0x0,0xa 0124 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0125 e231 | 1 | Load 0x1,0x31 0126 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0127 c232 | 2 | Store 0x1,0x32 0128 00bc | | Action Signal_Activated 0129 00bb | | Action Signal_Completion 012a 0000 0000 | | .BLANK 0000[0x6] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 4607 |F | Jump_Case 0x8 0134 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0135 7807 |x | Jump 0x13d ; case 0x1 0136 780a |x | Jump 0x141 ; case 0x2 0137 780e |x | Jump 0x146 ; case 0x3 0138 7811 |x | Jump 0x14a ; case 0x4 0139 7812 |x | Jump 0x14c ; case 0x5 013a 7813 |x | Jump 0x14e ; case 0x6 013b 7816 |x | Jump 0x152 ; case 0x7 013c 4302 |C | .XXX[0x1] 013d 00da | | Load_Top At_Offset_2 013e 0091 083d | =| Action Push_String_Extended_Indexed,0x83d ; "IN_FILE" 0140 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0141 00db | | Load_Top At_Offset_3 0142 00db | | Load_Top At_Offset_3 0143 00e0 | | Load_Encached Standard_Cache 0144 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0145 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0146 00da | | Load_Top At_Offset_2 0147 00e0 | | Load_Encached Standard_Cache 0148 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0149 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 014a 00db | | Load_Top At_Offset_3 014b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 014c 00db | | Load_Top At_Offset_3 014d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 014e e20f | | Load 0x1,0xf 014f 00dc | | Load_Top At_Offset_4 0150 0267 | g | Execute Discrete,Predecessor 0151 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0152 e20f | | Load 0x1,0xf 0153 00dc | | Load_Top At_Offset_4 0154 0268 | h | Execute Discrete,Successor 0155 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0156 0000 0000 | | .XXX[0x2] 0158 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 015c 0000 0000 | | .BLANK 0000[0x4] 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 0217 | | Execute Heap_Access,All_Reference 0165 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0167 0000 | | .XXX[0x1] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016d | m | .CONST 0x016d ; Address of begin 0169 01f3 | | .CONST 0x01f3 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b e004 | | Load 0x0,0x4 016c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 016d BODY_0168: 016d e5fb | | Load 0x2,-0x5 016e 700a |p | Jump_Nonzero 0x179 016f e228 | ( | Load 0x1,0x28 0170 e009 | | Load 0x0,0x9 0171 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0172 e00a | | Load 0x0,0xa 0173 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0174 039c | | Declare_Variable Heap_Access,By_Allocation 0175 00d8 | | Load_Top At_Offset_0 0176 0217 | | Execute Heap_Access,All_Reference 0177 1c00 | | Execute_Immediate Run_Utility,0x0 0178 a5fb | | Store_Unchecked 0x2,-0x5 0179 4801 |H | Short_Literal 0x1 017a e5fb | | Load 0x2,-0x5 017b 0217 | | Execute Heap_Access,All_Reference 017c 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 017d e5fc | | Load 0x2,-0x4 017e e5fb | | Load 0x2,-0x5 017f 0217 | | Execute Heap_Access,All_Reference 0180 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0181 e5fb | | Load 0x2,-0x5 0182 0219 | | Execute Heap_Access,All_Read 0183 e004 | | Load 0x0,0x4 0184 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0185 00d9 | | Load_Top At_Offset_1 0186 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0187 0120 | | Execute Any,Is_Value 0188 6803 |h | Jump_Zero 0x18c 0189 e005 | | Load 0x0,0x5 018a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018b 7802 |x | Jump 0x18e 018c 00d9 | | Load_Top At_Offset_1 018d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018e e005 | | Load 0x0,0x5 018f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0190 00da | | Load_Top At_Offset_2 0191 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0192 005a | Z | Store_Top Discrete,At_Offset_2 0193 00d1 | | Pop_Control Pop_Count_1 0194 e5fb | | Load 0x2,-0x5 0195 0217 | | Execute Heap_Access,All_Reference 0196 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0197 e005 | | Load 0x0,0x5 0198 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0199 7006 |p | Jump_Nonzero 0x1a0 019a 4805 |H | Short_Literal 0x5 019b 0092 0840 | @| Action Push_String_Extended,0x840 ; "File_Transfer.Open failed" 019d e5fb | | Load 0x2,-0x5 019e 823a | : | Call 0x1,0x3a 019f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01a0 4801 |H | Short_Literal 0x1 01a1 0092 0841 | A| Action Push_String_Extended,0x841 ; "<MV>" 01a3 e5ff | | Load 0x2,-0x1 01a4 e011 | | Load 0x0,0x11 01a5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01a6 e5fb | | Load 0x2,-0x5 01a7 0217 | | Execute Heap_Access,All_Reference 01a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a9 e5fb | | Load 0x2,-0x5 01aa 0217 | | Execute Heap_Access,All_Reference 01ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ac 6823 |h# | Jump_Zero 0x1d0 01ad 0092 0842 | B| Action Push_String_Extended,0x842 ; "moe_ftp" 01af 8241 | A | Call 0x1,0x41 01b0 e5fb | | Load 0x2,-0x5 01b1 0217 | | Execute Heap_Access,All_Reference 01b2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b3 0092 0843 | C| Action Push_String_Extended,0x843 ; "curly_ftp" 01b5 8241 | A | Call 0x1,0x41 01b6 e5fb | | Load 0x2,-0x5 01b7 0217 | | Execute Heap_Access,All_Reference 01b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01b9 0092 0844 | D| Action Push_String_Extended,0x844 ; "ratnet" 01bb e229 | ) | Load 0x1,0x29 01bc e009 | | Load 0x0,0x9 01bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01be e00a | | Load 0x0,0xa 01bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c0 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01c1 e5fb | | Load 0x2,-0x5 01c2 0217 | | Execute Heap_Access,All_Reference 01c3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01c4 0092 0845 | E| Action Push_String_Extended,0x845 ; "netrat" 01c6 e229 | ) | Load 0x1,0x29 01c7 e009 | | Load 0x0,0x9 01c8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c9 e00a | | Load 0x0,0xa 01ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01cb 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01cc e5fb | | Load 0x2,-0x5 01cd 0217 | | Execute Heap_Access,All_Reference 01ce 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 01cf 781f |x | Jump 0x1ef 01d0 00db | | Load_Top At_Offset_3 01d1 8241 | A | Call 0x1,0x41 01d2 e5fb | | Load 0x2,-0x5 01d3 0217 | | Execute Heap_Access,All_Reference 01d4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01d5 e5fb | | Load 0x2,-0x5 01d6 0217 | | Execute Heap_Access,All_Reference 01d7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01d8 e5fb | | Load 0x2,-0x5 01d9 0217 | | Execute Heap_Access,All_Reference 01da 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01db e5fe | | Load 0x2,-0x2 01dc e229 | ) | Load 0x1,0x29 01dd e009 | | Load 0x0,0x9 01de 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01df e00a | | Load 0x0,0xa 01e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e1 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01e2 e5fb | | Load 0x2,-0x5 01e3 0217 | | Execute Heap_Access,All_Reference 01e4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01e5 e5fd | | Load 0x2,-0x3 01e6 e229 | ) | Load 0x1,0x29 01e7 e009 | | Load 0x0,0x9 01e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e9 e00a | | Load 0x0,0xa 01ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01eb 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01ec e5fb | | Load 0x2,-0x5 01ed 0217 | | Execute Heap_Access,All_Reference 01ee 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 01ef 4805 |H | Short_Literal 0x5 01f0 e5fb | | Load 0x2,-0x5 01f1 8240 | @ | Call 0x1,0x40 01f2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01f3 TRAP_0168: 01f3 00d8 | | Load_Top At_Offset_0 01f4 0107 | | Execute Exception,Get_Name 01f5 4940 |I@ | Short_Literal 0x140 01f6 494f |IO | Short_Literal 0x14f 01f7 0262 | b | Execute Discrete,In_Range 01f8 6805 |h | Jump_Zero 0x1fe 01f9 4800 |H | Short_Literal 0x0 01fa e5fb | | Load 0x2,-0x5 01fb 0217 | | Execute Heap_Access,All_Reference 01fc 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 01fd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01fe 0100 | | Execute Exception,Raise 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0206 | | .CONST 0x0206 ; Address of begin 0201 022c | , | .CONST 0x022c ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 0217 | | Execute Heap_Access,All_Reference 0205 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0206 BODY_0200: 0206 00cf | | Action Mark_Auxiliary 0207 7816 |x | Jump 0x21e 0208 00d9 | | Load_Top At_Offset_1 0209 0217 | | Execute Heap_Access,All_Reference 020a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 020b 6809 |h | Jump_Zero 0x215 020c 00d9 | | Load_Top At_Offset_1 020d 0219 | | Execute Heap_Access,All_Read 020e 00d8 | | Load_Top At_Offset_0 020f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0210 e008 | | Load 0x0,0x8 0211 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0212 00d9 | | Load_Top At_Offset_1 0213 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0214 00d1 | | Pop_Control Pop_Count_1 0215 4800 |H | Short_Literal 0x0 0216 00da | | Load_Top At_Offset_2 0217 0217 | | Execute Heap_Access,All_Reference 0218 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0219 00d9 | | Load_Top At_Offset_1 021a 0217 | | Execute Heap_Access,All_Reference 021b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 021c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 021d 00c9 | | Action Pop_Auxiliary_Loop 021e 00d9 | | Load_Top At_Offset_1 021f 77e8 |w | Jump_Nonzero 0x208 0220 00ce | | Action Pop_Auxiliary 0221 00db | | Load_Top At_Offset_3 0222 0217 | | Execute Heap_Access,All_Reference 0223 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0224 e005 | | Load 0x0,0x5 0225 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0226 00db | | Load_Top At_Offset_3 0227 0217 | | Execute Heap_Access,All_Reference 0228 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0229 e005 | | Load 0x0,0x5 022a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 022b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022c TRAP_0200: 022c 0007 | | Action Break_Optional 022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0257 | W | .CONST 0x0257 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 4801 |H | Short_Literal 0x1 0234 00db | | Load_Top At_Offset_3 0235 0217 | | Execute Heap_Access,All_Reference 0236 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0237 4805 |H | Short_Literal 0x5 0238 00db | | Load_Top At_Offset_3 0239 8240 | @ | Call 0x1,0x40 023a e5fd | | Load 0x2,-0x3 023b 00db | | Load_Top At_Offset_3 023c 0217 | | Execute Heap_Access,All_Reference 023d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 023e e005 | | Load 0x0,0x5 023f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0240 00da | | Load_Top At_Offset_2 0241 8242 | B | Call 0x1,0x42 0242 4800 |H | Short_Literal 0x0 0243 e5fd | | Load 0x2,-0x3 0244 e5fe | | Load 0x2,-0x2 0245 e5ff | | Load 0x2,-0x1 0246 0217 | | Execute Heap_Access,All_Reference 0247 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0248 e005 | | Load 0x0,0x5 0249 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 024a 4806 |H | Short_Literal 0x6 024b 00db | | Load_Top At_Offset_3 024c 823f | ? | Call 0x1,0x3f 024d 00da | | Load_Top At_Offset_2 024e 0217 | | Execute Heap_Access,All_Reference 024f 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0250 4803 |H | Short_Literal 0x3 0251 0092 0846 | F| Action Push_String_Extended,0x846 ; "stored " 0253 e5fd | | Load 0x2,-0x3 0254 01cc | | Execute Vector,Catenate 0255 820e | | Call 0x1,0xe 0256 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0257 TRAP_0230: 0257 00d8 | | Load_Top At_Offset_0 0258 0107 | | Execute Exception,Get_Name 0259 4940 |I@ | Short_Literal 0x140 025a 494f |IO | Short_Literal 0x14f 025b 0262 | b | Execute Discrete,In_Range 025c 6805 |h | Jump_Zero 0x262 025d 4800 |H | Short_Literal 0x0 025e e5ff | | Load 0x2,-0x1 025f 0217 | | Execute Heap_Access,All_Reference 0260 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0261 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0262 0100 | | Execute Exception,Raise 0263 0000 0000 | | .BLANK 0000[0x5] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0281 | | .CONST 0x0281 ; Address of begin 0269 02ee | | .CONST 0x02ee ; Address of exception handler 026a 0008 | | .CONST 0x0008 ; Number of locals 026b INIT_0268: 026b 4801 |H | Short_Literal 0x1 026c 6093 |` | Indirect_Literal Discrete,0x300,{0x00000000, 0x00001000} 026d e012 | | Load 0x0,0x12 026e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 026f 035b | [ | Declare_Type Array,Constrained 0270 0337 | 7 | Declare_Variable Array 0271 00e2 | | Load_Encached Integer_Cache 0272 e227 | ' | Load 0x1,0x27 0273 0007 | | Action Break_Optional 0274 e5fc | | Load 0x2,-0x4 0275 00e2 | | Load_Encached Integer_Cache 0276 03f1 | | Declare_Variable Discrete,With_Value 0277 6088 |` | Indirect_Literal Discrete,0x300,{0x00000000, 0x00001000} 0278 00e2 | | Load_Encached Integer_Cache 0279 03f1 | | Declare_Variable Discrete,With_Value 027a e006 | | Load 0x0,0x6 027b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 027c e008 | | Load 0x0,0x8 027d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 027e 02c7 | | Declare_Variable Any 027f 00d8 | | Load_Top At_Offset_0 0280 1c00 | | Execute_Immediate Run_Utility,0x0 0281 BODY_0268: 0281 e5fc | | Load 0x2,-0x4 0282 6079 |`y | Indirect_Literal Discrete,0x2fc,{0x00000000, 0x7fffffff} 0283 027f | | Execute Discrete,Equal 0284 6832 |h2 | Jump_Zero 0x2b7 0285 4801 |H | Short_Literal 0x1 0286 e5ff | | Load 0x2,-0x1 0287 0217 | | Execute Heap_Access,All_Reference 0288 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0289 4805 |H | Short_Literal 0x5 028a e5ff | | Load 0x2,-0x1 028b 8240 | @ | Call 0x1,0x40 028c e5fd | | Load 0x2,-0x3 028d e5ff | | Load 0x2,-0x1 028e 0217 | | Execute Heap_Access,All_Reference 028f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0290 e005 | | Load 0x0,0x5 0291 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0292 e5ff | | Load 0x2,-0x1 0293 8242 | B | Call 0x1,0x42 0294 e5ff | | Load 0x2,-0x1 0295 0217 | | Execute Heap_Access,All_Reference 0296 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0297 e005 | | Load 0x0,0x5 0298 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0299 003a | : | Store_Top Access,At_Offset_2 029a 00d9 | | Load_Top At_Offset_1 029b 0229 | ) | Execute Access,All_Read 029c c408 | | Store 0x2,0x8 029d e5fe | | Load 0x2,-0x2 029e 00da | | Load_Top At_Offset_2 029f 0228 | ( | Execute Access,All_Write 02a0 4800 |H | Short_Literal 0x0 02a1 e5fd | | Load 0x2,-0x3 02a2 e5ff | | Load 0x2,-0x1 02a3 0217 | | Execute Heap_Access,All_Reference 02a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a5 e005 | | Load 0x0,0x5 02a6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02a7 4806 |H | Short_Literal 0x6 02a8 e5ff | | Load 0x2,-0x1 02a9 823f | ? | Call 0x1,0x3f 02aa 00d8 | | Load_Top At_Offset_0 02ab 00da | | Load_Top At_Offset_2 02ac 0228 | ( | Execute Access,All_Write 02ad e5ff | | Load 0x2,-0x1 02ae 0217 | | Execute Heap_Access,All_Reference 02af 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02b0 4803 |H | Short_Literal 0x3 02b1 0092 0846 | F| Action Push_String_Extended,0x846 ; "stored " 02b3 e5fd | | Load 0x2,-0x3 02b4 01cc | | Execute Vector,Catenate 02b5 820e | | Call 0x1,0xe 02b6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02b7 e227 | ' | Load 0x1,0x27 02b8 e013 | | Load 0x0,0x13 02b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ba 00ea | | Load_Encached Null_String_Cache 02bb e5fd | | Load 0x2,-0x3 02bc 4801 |H | Short_Literal 0x1 02bd e5ff | | Load 0x2,-0x1 02be 8217 | | Call 0x1,0x17 02bf c404 | | Store 0x2,0x4 02c0 00cf | | Action Mark_Auxiliary 02c1 7824 |x$ | Jump 0x2e6 02c2 e5fe | | Load 0x2,-0x2 02c3 e008 | | Load 0x0,0x8 02c4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02c5 7023 |p# | Jump_Nonzero 0x2e9 02c6 e405 | | Load 0x2,0x5 02c7 6038 |`8 | Indirect_Literal Discrete,0x300,{0x00000000, 0x00001000} 02c8 027c | | | Execute Discrete,Less 02c9 6802 |h | Jump_Zero 0x2cc 02ca e405 | | Load 0x2,0x5 02cb a406 | | Store_Unchecked 0x2,0x6 02cc e402 | | Load 0x2,0x2 02cd 4801 |H | Short_Literal 0x1 02ce e406 | | Load 0x2,0x6 02cf 00da | | Load_Top At_Offset_2 02d0 035b | [ | Declare_Type Array,Constrained 02d1 00d0 | | Action Swap_Control 02d2 01cd | | Execute Vector,Slice_Reference 02d3 00e3 | | Load_Encached Natural_Cache 02d4 00d9 | | Load_Top At_Offset_1 02d5 e5fe | | Load 0x2,-0x2 02d6 e008 | | Load 0x0,0x8 02d7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02d8 00d1 | | Pop_Control Pop_Count_1 02d9 c403 | | Store 0x2,0x3 02da 00d1 | | Pop_Control Pop_Count_1 02db 4801 |H | Short_Literal 0x1 02dc e403 | | Load 0x2,0x3 02dd e402 | | Load 0x2,0x2 02de 01cf | | Execute Vector,Slice_Read 02df e404 | | Load 0x2,0x4 02e0 8222 | " | Call 0x1,0x22 02e1 e405 | | Load 0x2,0x5 02e2 e403 | | Load 0x2,0x3 02e3 0272 | r | Execute Discrete,Minus 02e4 c405 | | Store 0x2,0x5 02e5 00c9 | | Action Pop_Auxiliary_Loop 02e6 e405 | | Load 0x2,0x5 02e7 0c01 | | Execute_Immediate Greater_Equal,0x1 02e8 77d9 |w | Jump_Nonzero 0x2c2 02e9 00ce | | Action Pop_Auxiliary 02ea e404 | | Load 0x2,0x4 02eb 8218 | | Call 0x1,0x18 02ec c404 | | Store 0x2,0x4 02ed 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02ee TRAP_0268: 02ee 00d8 | | Load_Top At_Offset_0 02ef 0107 | | Execute Exception,Get_Name 02f0 4940 |I@ | Short_Literal 0x140 02f1 494f |IO | Short_Literal 0x14f 02f2 0262 | b | Execute Discrete,In_Range 02f3 6805 |h | Jump_Zero 0x2f9 02f4 4800 |H | Short_Literal 0x0 02f5 e5ff | | Load 0x2,-0x1 02f6 0217 | | Execute Heap_Access,All_Reference 02f7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 02f8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02f9 0100 | | Execute Exception,Raise 02fa 0000 0000 | | .XXX[0x2] 02fc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0300 0000 0000 | | .LITERAL {0x00000000, 0x00001000} 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 032f | / | .CONST 0x032f ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4801 |H | Short_Literal 0x1 030c 00db | | Load_Top At_Offset_3 030d 0217 | | Execute Heap_Access,All_Reference 030e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 030f 4805 |H | Short_Literal 0x5 0310 00db | | Load_Top At_Offset_3 0311 8240 | @ | Call 0x1,0x40 0312 00da | | Load_Top At_Offset_2 0313 8242 | B | Call 0x1,0x42 0314 4800 |H | Short_Literal 0x0 0315 e5fe | | Load 0x2,-0x2 0316 e5fd | | Load 0x2,-0x3 0317 e5ff | | Load 0x2,-0x1 0318 0217 | | Execute Heap_Access,All_Reference 0319 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 031a e005 | | Load 0x0,0x5 031b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 031c 4806 |H | Short_Literal 0x6 031d 00db | | Load_Top At_Offset_3 031e 823f | ? | Call 0x1,0x3f 031f 00da | | Load_Top At_Offset_2 0320 0217 | | Execute Heap_Access,All_Reference 0321 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0322 e005 | | Load 0x0,0x5 0323 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0324 a5fc | | Store_Unchecked 0x2,-0x4 0325 00da | | Load_Top At_Offset_2 0326 0217 | | Execute Heap_Access,All_Reference 0327 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0328 4803 |H | Short_Literal 0x3 0329 0092 0847 | G| Action Push_String_Extended,0x847 ; "retrieved " 032b e5fe | | Load 0x2,-0x2 032c 01cc | | Execute Vector,Catenate 032d 820e | | Call 0x1,0xe 032e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 032f TRAP_0308: 032f 00d8 | | Load_Top At_Offset_0 0330 0107 | | Execute Exception,Get_Name 0331 4940 |I@ | Short_Literal 0x140 0332 494f |IO | Short_Literal 0x14f 0333 0262 | b | Execute Discrete,In_Range 0334 6805 |h | Jump_Zero 0x33a 0335 4800 |H | Short_Literal 0x0 0336 e5ff | | Load 0x2,-0x1 0337 0217 | | Execute Heap_Access,All_Reference 0338 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0339 4504 |E | Exit_Suprogram New_Top_Offset 0x4 033a 0100 | | Execute Exception,Raise 033b 0000 0000 | | .BLANK 0000[0x5] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 034a | J | .CONST 0x034a ; Address of begin 0341 037b | { | .CONST 0x037b ; Address of exception handler 0342 0003 | | .CONST 0x0003 ; Number of locals 0343 INIT_0340: 0343 e006 | | Load 0x0,0x6 0344 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0345 e008 | | Load 0x0,0x8 0346 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0347 02c7 | | Declare_Variable Any 0348 00d8 | | Load_Top At_Offset_0 0349 1c00 | | Execute_Immediate Run_Utility,0x0 034a BODY_0340: 034a 4801 |H | Short_Literal 0x1 034b e5ff | | Load 0x2,-0x1 034c 0217 | | Execute Heap_Access,All_Reference 034d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 034e 4805 |H | Short_Literal 0x5 034f e5ff | | Load 0x2,-0x1 0350 8240 | @ | Call 0x1,0x40 0351 e5ff | | Load 0x2,-0x1 0352 8242 | B | Call 0x1,0x42 0353 e5ff | | Load 0x2,-0x1 0354 0217 | | Execute Heap_Access,All_Reference 0355 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0356 e005 | | Load 0x0,0x5 0357 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0358 003a | : | Store_Top Access,At_Offset_2 0359 00d9 | | Load_Top At_Offset_1 035a 0229 | ) | Execute Access,All_Read 035b c403 | | Store 0x2,0x3 035c e5fd | | Load 0x2,-0x3 035d 00da | | Load_Top At_Offset_2 035e 0228 | ( | Execute Access,All_Write 035f e5fe | | Load 0x2,-0x2 0360 e5ff | | Load 0x2,-0x1 0361 0217 | | Execute Heap_Access,All_Reference 0362 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0363 e005 | | Load 0x0,0x5 0364 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0365 4806 |H | Short_Literal 0x6 0366 e5ff | | Load 0x2,-0x1 0367 823f | ? | Call 0x1,0x3f 0368 00d8 | | Load_Top At_Offset_0 0369 00da | | Load_Top At_Offset_2 036a 0228 | ( | Execute Access,All_Write 036b e5ff | | Load 0x2,-0x1 036c 0217 | | Execute Heap_Access,All_Reference 036d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 036e e005 | | Load 0x0,0x5 036f 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0370 a5fc | | Store_Unchecked 0x2,-0x4 0371 e5ff | | Load 0x2,-0x1 0372 0217 | | Execute Heap_Access,All_Reference 0373 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0374 4803 |H | Short_Literal 0x3 0375 0092 0847 | G| Action Push_String_Extended,0x847 ; "retrieved " 0377 e5fe | | Load 0x2,-0x2 0378 01cc | | Execute Vector,Catenate 0379 820e | | Call 0x1,0xe 037a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 037b TRAP_0340: 037b 00d8 | | Load_Top At_Offset_0 037c 0107 | | Execute Exception,Get_Name 037d 4940 |I@ | Short_Literal 0x140 037e 494f |IO | Short_Literal 0x14f 037f 0262 | b | Execute Discrete,In_Range 0380 6808 |h | Jump_Zero 0x389 0381 00d9 | | Load_Top At_Offset_1 0382 00db | | Load_Top At_Offset_3 0383 0228 | ( | Execute Access,All_Write 0384 4800 |H | Short_Literal 0x0 0385 e5ff | | Load 0x2,-0x1 0386 0217 | | Execute Heap_Access,All_Reference 0387 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0388 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0389 0100 | | Execute Exception,Raise 038a 0000 0000 | | .BLANK 0000[0x6] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0398 | | .CONST 0x0398 ; Address of begin 0391 0429 | ) | .CONST 0x0429 ; Address of exception handler 0392 0003 | | .CONST 0x0003 ; Number of locals 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 0217 | | Execute Heap_Access,All_Reference 0395 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0396 0007 | | Action Break_Optional 0397 00e3 | | Load_Encached Natural_Cache 0398 BODY_0390: 0398 00cf | | Action Mark_Auxiliary 0399 00da | | Load_Top At_Offset_2 039a 7015 |p | Jump_Nonzero 0x3b0 039b e227 | ' | Load 0x1,0x27 039c e009 | | Load 0x0,0x9 039d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 039e e00a | | Load 0x0,0xa 039f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03a0 039c | | Declare_Variable Heap_Access,By_Allocation 03a1 00d8 | | Load_Top At_Offset_0 03a2 0217 | | Execute Heap_Access,All_Reference 03a3 1c00 | | Execute_Immediate Run_Utility,0x0 03a4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03a5 e5ff | | Load 0x2,-0x1 03a6 0217 | | Execute Heap_Access,All_Reference 03a7 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 03a8 00db | | Load_Top At_Offset_3 03a9 0217 | | Execute Heap_Access,All_Reference 03aa 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 03ab 00da | | Load_Top At_Offset_2 03ac e5ff | | Load 0x2,-0x1 03ad 0217 | | Execute Heap_Access,All_Reference 03ae 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 03af 780b |x | Jump 0x3bb 03b0 00da | | Load_Top At_Offset_2 03b1 0217 | | Execute Heap_Access,All_Reference 03b2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03b3 7001 |p | Jump_Nonzero 0x3b5 03b4 7806 |x | Jump 0x3bb 03b5 00da | | Load_Top At_Offset_2 03b6 0217 | | Execute Heap_Access,All_Reference 03b7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 03b8 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03b9 00c9 | | Action Pop_Auxiliary_Loop 03ba 7fde | | Jump 0x399 03bb 00ce | | Action Pop_Auxiliary 03bc e5ff | | Load 0x2,-0x1 03bd 00da | | Load_Top At_Offset_2 03be 0217 | | Execute Heap_Access,All_Reference 03bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03c0 e5fd | | Load 0x2,-0x3 03c1 01db | | Execute Vector,Length 03c2 00da | | Load_Top At_Offset_2 03c3 0217 | | Execute Heap_Access,All_Reference 03c4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03c5 e5fd | | Load 0x2,-0x3 03c6 4801 |H | Short_Literal 0x1 03c7 00db | | Load_Top At_Offset_3 03c8 0217 | | Execute Heap_Access,All_Reference 03c9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03ca e402 | | Load 0x2,0x2 03cb 0219 | | Execute Heap_Access,All_Read 03cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03cd 01ce | | Execute Vector,Slice_Write 03ce e5fe | | Load 0x2,-0x2 03cf 00da | | Load_Top At_Offset_2 03d0 0217 | | Execute Heap_Access,All_Reference 03d1 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 03d2 4800 |H | Short_Literal 0x0 03d3 00da | | Load_Top At_Offset_2 03d4 0217 | | Execute Heap_Access,All_Reference 03d5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 03d6 00d9 | | Load_Top At_Offset_1 03d7 0217 | | Execute Heap_Access,All_Reference 03d8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03d9 e008 | | Load 0x0,0x8 03da 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03db 680b |h | Jump_Zero 0x3e7 03dc 00d9 | | Load_Top At_Offset_1 03dd 0219 | | Execute Heap_Access,All_Read 03de 00d8 | | Load_Top At_Offset_0 03df 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03e0 4801 |H | Short_Literal 0x1 03e1 e008 | | Load 0x0,0x8 03e2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03e3 00d9 | | Load_Top At_Offset_1 03e4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03e5 00d1 | | Pop_Control Pop_Count_1 03e6 7812 |x | Jump 0x3f9 03e7 00d9 | | Load_Top At_Offset_1 03e8 0219 | | Execute Heap_Access,All_Read 03e9 00d8 | | Load_Top At_Offset_0 03ea 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03eb e013 | | Load 0x0,0x13 03ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ed e014 | | Load 0x0,0x14 03ee 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03ef e014 | | Load 0x0,0x14 03f0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03f1 00ea | | Load_Encached Null_String_Cache 03f2 00ea | | Load_Encached Null_String_Cache 03f3 4801 |H | Short_Literal 0x1 03f4 e008 | | Load 0x0,0x8 03f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03f6 00d9 | | Load_Top At_Offset_1 03f7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 03f8 00d1 | | Pop_Control Pop_Count_1 03f9 e5fe | | Load 0x2,-0x2 03fa 4602 |F | Jump_Case 0x3 03fb 7814 |x | Jump 0x410 ; case 0x0 03fc 7825 |x% | Jump 0x422 ; case 0x1 03fd 7800 |x | Jump 0x3fe ; case 0x2 03fe 4801 |H | Short_Literal 0x1 03ff 00da | | Load_Top At_Offset_2 0400 0217 | | Execute Heap_Access,All_Reference 0401 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0402 e5fd | | Load 0x2,-0x3 0403 e5ff | | Load 0x2,-0x1 0404 8243 | C | Call 0x1,0x43 0405 00d9 | | Load_Top At_Offset_1 0406 0219 | | Execute Heap_Access,All_Read 0407 00d8 | | Load_Top At_Offset_0 0408 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0409 4800 |H | Short_Literal 0x0 040a e008 | | Load 0x0,0x8 040b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 040c 00d9 | | Load_Top At_Offset_1 040d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 040e 00d1 | | Pop_Control Pop_Count_1 040f 7812 |x | Jump 0x422 0410 00e3 | | Load_Encached Natural_Cache 0411 00da | | Load_Top At_Offset_2 0412 0217 | | Execute Heap_Access,All_Reference 0413 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0414 e5fd | | Load 0x2,-0x3 0415 e5ff | | Load 0x2,-0x1 0416 8216 | | Call 0x1,0x16 0417 0059 | Y | Store_Top Discrete,At_Offset_1 0418 00d9 | | Load_Top At_Offset_1 0419 0219 | | Execute Heap_Access,All_Read 041a 00d8 | | Load_Top At_Offset_0 041b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 041c 4800 |H | Short_Literal 0x0 041d e008 | | Load 0x0,0x8 041e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 041f 00d9 | | Load_Top At_Offset_1 0420 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0421 00d1 | | Pop_Control Pop_Count_1 0422 4801 |H | Short_Literal 0x1 0423 00da | | Load_Top At_Offset_2 0424 0217 | | Execute Heap_Access,All_Reference 0425 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0426 00d9 | | Load_Top At_Offset_1 0427 a5fa | | Store_Unchecked 0x2,-0x6 0428 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0429 TRAP_0390: 0429 0007 | | Action Break_Optional 042a 0092 0848 | H| Action Push_String_Extended,0x848 ; "in Remote_Io.Open" 042c e5ff | | Load 0x2,-0x1 042d 823b | ; | Call 0x1,0x3b 042e 00d8 | | Load_Top At_Offset_0 042f 0101 | | Execute Exception,Reraise 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0454 | T | .CONST 0x0454 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 00da | | Load_Top At_Offset_2 0434 0217 | | Execute Heap_Access,All_Reference 0435 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0436 0f01 | | Execute_Immediate Equal,0x1 0437 7001 |p | Jump_Nonzero 0x439 0438 7814 |x | Jump 0x44d 0439 00da | | Load_Top At_Offset_2 043a 0219 | | Execute Heap_Access,All_Read 043b 00d8 | | Load_Top At_Offset_0 043c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 043d 4800 |H | Short_Literal 0x0 043e e008 | | Load 0x0,0x8 043f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0440 00d9 | | Load_Top At_Offset_1 0441 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0442 00d1 | | Pop_Control Pop_Count_1 0443 6018 |` | Indirect_Literal Discrete,0x45c,{0x00000000, 0x7fffffff} 0444 00db | | Load_Top At_Offset_3 0445 8219 | | Call 0x1,0x19 0446 e5ff | | Load 0x2,-0x1 0447 0217 | | Execute Heap_Access,All_Reference 0448 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0449 e5ff | | Load 0x2,-0x1 044a 0217 | | Execute Heap_Access,All_Reference 044b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 044c 8214 | | Call 0x1,0x14 044d 4800 |H | Short_Literal 0x0 044e 00db | | Load_Top At_Offset_3 044f 0217 | | Execute Heap_Access,All_Reference 0450 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0451 e227 | ' | Load 0x1,0x27 0452 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0453 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0454 TRAP_0430: 0454 0007 | | Action Break_Optional 0455 0092 0849 | I| Action Push_String_Extended,0x849 ; "in Remote_Io.Close" 0457 e5ff | | Load 0x2,-0x1 0458 0217 | | Execute Heap_Access,All_Reference 0459 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 045a 823b | ; | Call 0x1,0x3b 045b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 045c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 4801 |H | Short_Literal 0x1 0464 00db | | Load_Top At_Offset_3 0465 0217 | | Execute Heap_Access,All_Reference 0466 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0467 e5ff | | Load 0x2,-0x1 0468 0217 | | Execute Heap_Access,All_Reference 0469 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 046a 01cf | | Execute Vector,Slice_Read 046b e011 | | Load 0x0,0x11 046c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 046d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 046e 0000 0000 | | .XXX[0x2] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 00da | | Load_Top At_Offset_2 0474 6804 |h | Jump_Zero 0x479 0475 00da | | Load_Top At_Offset_2 0476 0217 | | Execute Heap_Access,All_Reference 0477 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0478 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0479 4800 |H | Short_Literal 0x0 047a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 0484 0217 | | Execute Heap_Access,All_Reference 0485 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0486 e008 | | Load 0x0,0x8 0487 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0488 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0489 0000 0000 | | .BLANK 0000[0x7] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 00e3 | | Load_Encached Natural_Cache 0494 e5fe | | Load 0x2,-0x2 0495 e5ff | | Load 0x2,-0x1 0496 0217 | | Execute Heap_Access,All_Reference 0497 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0498 e008 | | Load 0x0,0x8 0499 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 049a 00d1 | | Pop_Control Pop_Count_1 049b c5fd | | Store 0x2,-0x3 049c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 049d 0000 0000 | | .XXX[0x3] 049f 0000 | | 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a3 | | .CONST 0x04a3 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0001 | | .CONST 0x0001 ; Number of locals 04a3 BODY_04a0: 04a3 INIT_04a0: 04a3 e008 | | Load 0x0,0x8 04a4 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04a5 00db | | Load_Top At_Offset_3 04a6 0217 | | Execute Heap_Access,All_Reference 04a7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04a8 e008 | | Load 0x0,0x8 04a9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04aa c5fe | | Store 0x2,-0x2 04ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04ac 0000 0000 | | .BLANK 0000[0x4] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b3 | | .CONST 0x04b3 ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0001 | | .CONST 0x0001 ; Number of locals 04b3 BODY_04b0: 04b3 INIT_04b0: 04b3 00e3 | | Load_Encached Natural_Cache 04b4 e5fe | | Load 0x2,-0x2 04b5 e5ff | | Load 0x2,-0x1 04b6 0217 | | Execute Heap_Access,All_Reference 04b7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04b8 e008 | | Load 0x0,0x8 04b9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 04ba 00d1 | | Pop_Control Pop_Count_1 04bb c5fd | | Store 0x2,-0x3 04bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04bd 0000 0000 | | .XXX[0x3] 04bf 0000 | | 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 00e8 | | Load_Encached Character_Cache 04c4 00db | | Load_Top At_Offset_3 04c5 0217 | | Execute Heap_Access,All_Reference 04c6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04c7 e008 | | Load 0x0,0x8 04c8 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 04c9 c5fe | | Store 0x2,-0x2 04ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04cb 0000 0000 | | .BLANK 0000[0x5] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d6 | | .CONST 0x04d6 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0002 | | .CONST 0x0002 ; Number of locals 04d3 INIT_04d0: 04d3 e012 | | Load 0x0,0x12 04d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 04d5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04d6 BODY_04d0: 04d6 00cf | | Action Mark_Auxiliary 04d7 e5fd | | Load 0x2,-0x3 04d8 01d9 | | Execute Vector,Reverse_Bounds 04d9 0263 | c | Execute Discrete,Above_Bound 04da 7029 |p) | Jump_Nonzero 0x504 04db e5ff | | Load 0x2,-0x1 04dc 0217 | | Execute Heap_Access,All_Reference 04dd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04de e008 | | Load 0x0,0x8 04df 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04e0 6806 |h | Jump_Zero 0x4e7 04e1 00d8 | | Load_Top At_Offset_0 04e2 e5fd | | Load 0x2,-0x3 04e3 01dd | | Execute Vector,First 04e4 0272 | r | Execute Discrete,Minus 04e5 c5fc | | Store 0x2,-0x4 04e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04e7 e008 | | Load 0x0,0x8 04e8 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04e9 e5ff | | Load 0x2,-0x1 04ea 0217 | | Execute Heap_Access,All_Reference 04eb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04ec e008 | | Load 0x0,0x8 04ed 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04ee c402 | | Store 0x2,0x2 04ef 00db | | Load_Top At_Offset_3 04f0 e5fe | | Load 0x2,-0x2 04f1 027f | | Execute Discrete,Equal 04f2 6806 |h | Jump_Zero 0x4f9 04f3 00d8 | | Load_Top At_Offset_0 04f4 e5fd | | Load 0x2,-0x3 04f5 01dd | | Execute Vector,First 04f6 0272 | r | Execute Discrete,Minus 04f7 c5fc | | Store 0x2,-0x4 04f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04f9 00db | | Load_Top At_Offset_3 04fa 00d8 | | Load_Top At_Offset_0 04fb 00e8 | | Load_Encached Character_Cache 04fc 0260 | ` | Execute Discrete,In_Type 04fd 7001 |p | Jump_Nonzero 0x4ff 04fe 0801 | | Execute_Immediate Raise,0x1 04ff 00d9 | | Load_Top At_Offset_1 0500 e5fd | | Load 0x2,-0x3 0501 01d6 | | Execute Vector,Field_Write 0502 00c8 | | Action Pop_Auxiliary_Range 0503 3fd7 |? | Loop_Increasing 0x4db 0504 00ce | | Action Pop_Auxiliary 0505 e5fd | | Load 0x2,-0x3 0506 01db | | Execute Vector,Length 0507 c5fc | | Store 0x2,-0x4 0508 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0509 0000 0000 | | .BLANK 0000[0x7] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 051b | | .CONST 0x051b ; Address of begin 0511 0004 | | .CONST 0x0004 ; Address of exception handler 0512 0003 | | .CONST 0x0003 ; Number of locals 0513 INIT_0510: 0513 e012 | | Load 0x0,0x12 0514 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0515 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0516 4801 |H | Short_Literal 0x1 0517 4a00 |J | Short_Literal 0x200 0518 00e9 | | Load_Encached String_Cache 0519 035b | [ | Declare_Type Array,Constrained 051a 0337 | 7 | Declare_Variable Array 051b BODY_0510: 051b 00cf | | Action Mark_Auxiliary 051c 00d9 | | Load_Top At_Offset_1 051d 01d9 | | Execute Vector,Reverse_Bounds 051e 0007 | | Action Break_Optional 051f e5ff | | Load 0x2,-0x1 0520 0217 | | Execute Heap_Access,All_Reference 0521 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0522 e008 | | Load 0x0,0x8 0523 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0524 6808 |h | Jump_Zero 0x52d 0525 4801 |H | Short_Literal 0x1 0526 00d9 | | Load_Top At_Offset_1 0527 0aff | | Execute_Immediate Plus,-0x1 0528 e403 | | Load 0x2,0x3 0529 01cf | | Execute Vector,Slice_Read 052a 00e9 | | Load_Encached String_Cache 052b 01c6 | | Execute Vector,Convert_To_Formal 052c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 052d e008 | | Load 0x0,0x8 052e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 052f e5ff | | Load 0x2,-0x1 0530 0217 | | Execute Heap_Access,All_Reference 0531 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0532 e008 | | Load 0x0,0x8 0533 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0534 c402 | | Store 0x2,0x2 0535 e402 | | Load 0x2,0x2 0536 e5fe | | Load 0x2,-0x2 0537 027f | | Execute Discrete,Equal 0538 6808 |h | Jump_Zero 0x541 0539 4801 |H | Short_Literal 0x1 053a 00d9 | | Load_Top At_Offset_1 053b 0aff | | Execute_Immediate Plus,-0x1 053c e403 | | Load 0x2,0x3 053d 01cf | | Execute Vector,Slice_Read 053e 00e9 | | Load_Encached String_Cache 053f 01c6 | | Execute Vector,Convert_To_Formal 0540 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0541 e402 | | Load 0x2,0x2 0542 00d8 | | Load_Top At_Offset_0 0543 00e8 | | Load_Encached Character_Cache 0544 0260 | ` | Execute Discrete,In_Type 0545 7001 |p | Jump_Nonzero 0x547 0546 0801 | | Execute_Immediate Raise,0x1 0547 00d9 | | Load_Top At_Offset_1 0548 e403 | | Load 0x2,0x3 0549 01d6 | | Execute Vector,Field_Write 054a 00c8 | | Action Pop_Auxiliary_Range 054b 3fd3 |? | Loop_Increasing 0x51f 054c 00ce | | Action Pop_Auxiliary 054d 00d8 | | Load_Top At_Offset_0 054e 480a |H | Short_Literal 0xa 054f e5ff | | Load 0x2,-0x1 0550 8221 | ! | Call 0x1,0x21 0551 01cc | | Execute Vector,Catenate 0552 00e9 | | Load_Encached String_Cache 0553 01c6 | | Execute Vector,Convert_To_Formal 0554 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0555 0000 0000 | | .XXX[0x3] 0557 0000 | | 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 055b | [ | .CONST 0x055b ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0001 | | .CONST 0x0001 ; Number of locals 055b BODY_0558: 055b INIT_0558: 055b 00db | | Load_Top At_Offset_3 055c 00db | | Load_Top At_Offset_3 055d 0217 | | Execute Heap_Access,All_Reference 055e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 055f e008 | | Load 0x0,0x8 0560 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0561 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0562 0000 0000 | | .BLANK 0000[0x6] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b 00db | | Load_Top At_Offset_3 056c 00db | | Load_Top At_Offset_3 056d 0217 | | Execute Heap_Access,All_Reference 056e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 056f e008 | | Load 0x0,0x8 0570 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0571 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0572 0000 0000 | | .BLANK 0000[0x6] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b 00db | | Load_Top At_Offset_3 057c 00db | | Load_Top At_Offset_3 057d 0217 | | Execute Heap_Access,All_Reference 057e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 057f e008 | | Load 0x0,0x8 0580 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0581 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0582 0000 0000 | | .BLANK 0000[0x6] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 058b | | .CONST 0x058b ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0001 | | .CONST 0x0001 ; Number of locals 058b BODY_0588: 058b INIT_0588: 058b 00db | | Load_Top At_Offset_3 058c 00db | | Load_Top At_Offset_3 058d 0217 | | Execute Heap_Access,All_Reference 058e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 058f e008 | | Load 0x0,0x8 0590 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0591 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0592 0000 0000 | | .BLANK 0000[0x6] 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 059b | | .CONST 0x059b ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0001 | | .CONST 0x0001 ; Number of locals 059b BODY_0598: 059b INIT_0598: 059b 4601 |F | Jump_Case 0x2 059c 7801 |x | Jump 0x59e ; case 0x0 059d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 059e 00da | | Load_Top At_Offset_2 059f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05a0 0125 | % | Execute Any,Set_Constraint 05a1 00da | | Load_Top At_Offset_2 05a2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05a3 1c00 | | Execute_Immediate Run_Utility,0x0 05a4 00da | | Load_Top At_Offset_2 05a5 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 05a6 0125 | % | Execute Any,Set_Constraint 05a7 00da | | Load_Top At_Offset_2 05a8 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9 05a9 1c00 | | Execute_Immediate Run_Utility,0x0 05aa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05ab 0000 0000 | | .BLANK 0000[0x5] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b3 | | .CONST 0x05b3 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0001 | | .CONST 0x0001 ; Number of locals 05b3 BODY_05b0: 05b3 INIT_05b0: 05b3 4601 |F | Jump_Case 0x2 05b4 7801 |x | Jump 0x5b6 ; case 0x0 05b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05b6 00da | | Load_Top At_Offset_2 05b7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 05b8 0125 | % | Execute Any,Set_Constraint 05b9 00da | | Load_Top At_Offset_2 05ba 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 05bb 1c00 | | Execute_Immediate Run_Utility,0x0 05bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05bd 0000 0000 | | .XXX[0x3] 05bf 0000 | | 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05ca | | .CONST 0x05ca ; Address of begin 05c1 0004 | | .CONST 0x0004 ; Address of exception handler 05c2 0002 | | .CONST 0x0002 ; Number of locals 05c3 INIT_05c0: 05c3 4801 |H | Short_Literal 0x1 05c4 00db | | Load_Top At_Offset_3 05c5 483a |H: | Short_Literal 0x3a 05c6 e011 | | Load 0x0,0x11 05c7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05c8 00e2 | | Load_Encached Integer_Cache 05c9 03f1 | | Declare_Variable Discrete,With_Value 05ca BODY_05c0: 05ca 00d8 | | Load_Top At_Offset_0 05cb 0c01 | | Execute_Immediate Greater_Equal,0x1 05cc 6810 |h | Jump_Zero 0x5dd 05cd 4801 |H | Short_Literal 0x1 05ce e22f | / | Load 0x1,0x2f 05cf e5ff | | Load 0x2,-0x1 05d0 01dd | | Execute Vector,First 05d1 00db | | Load_Top At_Offset_3 05d2 0aff | | Execute_Immediate Plus,-0x1 05d3 00d8 | | Load_Top At_Offset_0 05d4 00e2 | | Load_Encached Integer_Cache 05d5 0260 | ` | Execute Discrete,In_Type 05d6 7001 |p | Jump_Nonzero 0x5d8 05d7 0801 | | Execute_Immediate Raise,0x1 05d8 e5ff | | Load 0x2,-0x1 05d9 01cf | | Execute Vector,Slice_Read 05da e002 | | Load 0x0,0x2 05db 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05dd 4801 |H | Short_Literal 0x1 05de e22f | / | Load 0x1,0x2f 05df e5ff | | Load 0x2,-0x1 05e0 01dd | | Execute Vector,First 05e1 4801 |H | Short_Literal 0x1 05e2 e5ff | | Load 0x2,-0x1 05e3 482e |H. | Short_Literal 0x2e 05e4 e011 | | Load 0x0,0x11 05e5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05e6 0aff | | Execute_Immediate Plus,-0x1 05e7 e5ff | | Load 0x2,-0x1 05e8 01cf | | Execute Vector,Slice_Read 05e9 e002 | | Load 0x0,0x2 05ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ec 0000 0000 | | .BLANK 0000[0x4] 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 0601 | | .CONST 0x0601 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0003 | | .CONST 0x0003 ; Number of locals 05f3 INIT_05f0: 05f3 4801 |H | Short_Literal 0x1 05f4 00db | | Load_Top At_Offset_3 05f5 483a |H: | Short_Literal 0x3a 05f6 e011 | | Load 0x0,0x11 05f7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05f8 00e2 | | Load_Encached Integer_Cache 05f9 03f1 | | Declare_Variable Discrete,With_Value 05fa 4801 |H | Short_Literal 0x1 05fb e5ff | | Load 0x2,-0x1 05fc 482e |H. | Short_Literal 0x2e 05fd e011 | | Load 0x0,0x11 05fe 1820 | | Execute Package,Field_Execute,Field_Number 0x20 05ff 00e2 | | Load_Encached Integer_Cache 0600 03f1 | | Declare_Variable Discrete,With_Value 0601 BODY_05f0: 0601 00d9 | | Load_Top At_Offset_1 0602 0c01 | | Execute_Immediate Greater_Equal,0x1 0603 6826 |h& | Jump_Zero 0x62a 0604 00d8 | | Load_Top At_Offset_0 0605 00da | | Load_Top At_Offset_2 0606 027d | } | Execute Discrete,Greater 0607 6812 |h | Jump_Zero 0x61a 0608 4801 |H | Short_Literal 0x1 0609 e22f | / | Load 0x1,0x2f 060a 482b |H+ | Short_Literal 0x2b 060b e5ff | | Load 0x2,-0x1 060c 01dd | | Execute Vector,First 060d e402 | | Load 0x2,0x2 060e e5ff | | Load 0x2,-0x1 060f 01cf | | Execute Vector,Slice_Read 0610 01cb | | Execute Vector,Append 0611 00db | | Load_Top At_Offset_3 0612 e5ff | | Load 0x2,-0x1 0613 01dc | | Execute Vector,Last 0614 e5ff | | Load 0x2,-0x1 0615 01cf | | Execute Vector,Slice_Read 0616 01cc | | Execute Vector,Catenate 0617 e002 | | Load 0x0,0x2 0618 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0619 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 061a 4801 |H | Short_Literal 0x1 061b e22f | / | Load 0x1,0x2f 061c e5ff | | Load 0x2,-0x1 061d 01dd | | Execute Vector,First 061e e402 | | Load 0x2,0x2 061f 0aff | | Execute_Immediate Plus,-0x1 0620 00d8 | | Load_Top At_Offset_0 0621 00e2 | | Load_Encached Integer_Cache 0622 0260 | ` | Execute Discrete,In_Type 0623 7001 |p | Jump_Nonzero 0x625 0624 0801 | | Execute_Immediate Raise,0x1 0625 e5ff | | Load 0x2,-0x1 0626 01cf | | Execute Vector,Slice_Read 0627 e002 | | Load 0x0,0x2 0628 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0629 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 062a 00d8 | | Load_Top At_Offset_0 062b 00da | | Load_Top At_Offset_2 062c 027d | } | Execute Discrete,Greater 062d 6810 |h | Jump_Zero 0x63e 062e 4801 |H | Short_Literal 0x1 062f e22f | / | Load 0x1,0x2f 0630 e5ff | | Load 0x2,-0x1 0631 01dd | | Execute Vector,First 0632 00db | | Load_Top At_Offset_3 0633 0aff | | Execute_Immediate Plus,-0x1 0634 00d8 | | Load_Top At_Offset_0 0635 00e2 | | Load_Encached Integer_Cache 0636 0260 | ` | Execute Discrete,In_Type 0637 7001 |p | Jump_Nonzero 0x639 0638 0801 | | Execute_Immediate Raise,0x1 0639 e5ff | | Load 0x2,-0x1 063a 01cf | | Execute Vector,Slice_Read 063b e002 | | Load 0x0,0x2 063c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 063d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 063e 4801 |H | Short_Literal 0x1 063f e22f | / | Load 0x1,0x2f 0640 e5ff | | Load 0x2,-0x1 0641 e002 | | Load 0x0,0x2 0642 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0643 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0644 0000 0000 | | .BLANK 0000[0x4] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 0652 | R | .CONST 0x0652 ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0002 | | .CONST 0x0002 ; Number of locals 064b INIT_0648: 064b 4801 |H | Short_Literal 0x1 064c 00db | | Load_Top At_Offset_3 064d 483a |H: | Short_Literal 0x3a 064e e011 | | Load 0x0,0x11 064f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0650 00e2 | | Load_Encached Integer_Cache 0651 03f1 | | Declare_Variable Discrete,With_Value 0652 BODY_0648: 0652 00d8 | | Load_Top At_Offset_0 0653 0c01 | | Execute_Immediate Greater_Equal,0x1 0654 6810 |h | Jump_Zero 0x665 0655 4801 |H | Short_Literal 0x1 0656 e22f | / | Load 0x1,0x2f 0657 00da | | Load_Top At_Offset_2 0658 0a01 | | Execute_Immediate Plus,0x1 0659 00d8 | | Load_Top At_Offset_0 065a 00e2 | | Load_Encached Integer_Cache 065b 0260 | ` | Execute Discrete,In_Type 065c 7001 |p | Jump_Nonzero 0x65e 065d 0801 | | Execute_Immediate Raise,0x1 065e e5ff | | Load 0x2,-0x1 065f 01dc | | Execute Vector,Last 0660 e5ff | | Load 0x2,-0x1 0661 01cf | | Execute Vector,Slice_Read 0662 e002 | | Load 0x0,0x2 0663 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0664 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0665 4801 |H | Short_Literal 0x1 0666 e22f | / | Load 0x1,0x2f 0667 4801 |H | Short_Literal 0x1 0668 e5ff | | Load 0x2,-0x1 0669 482e |H. | Short_Literal 0x2e 066a e011 | | Load 0x0,0x11 066b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 066c 0a01 | | Execute_Immediate Plus,0x1 066d 00d8 | | Load_Top At_Offset_0 066e 00e2 | | Load_Encached Integer_Cache 066f 0260 | ` | Execute Discrete,In_Type 0670 7001 |p | Jump_Nonzero 0x672 0671 0801 | | Execute_Immediate Raise,0x1 0672 e5ff | | Load 0x2,-0x1 0673 01dc | | Execute Vector,Last 0674 e5ff | | Load 0x2,-0x1 0675 01cf | | Execute Vector,Slice_Read 0676 e002 | | Load 0x0,0x2 0677 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0678 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0679 0000 0000 | | .BLANK 0000[0x7] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 068a | | .CONST 0x068a ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0002 | | .CONST 0x0002 ; Number of locals 0683 INIT_0680: 0683 4801 |H | Short_Literal 0x1 0684 00db | | Load_Top At_Offset_3 0685 483a |H: | Short_Literal 0x3a 0686 e011 | | Load 0x0,0x11 0687 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0688 00e2 | | Load_Encached Integer_Cache 0689 03f1 | | Declare_Variable Discrete,With_Value 068a BODY_0680: 068a 00d8 | | Load_Top At_Offset_0 068b 7002 |p | Jump_Nonzero 0x68e 068c 00db | | Load_Top At_Offset_3 068d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 068e 00d8 | | Load_Top At_Offset_0 068f 0a01 | | Execute_Immediate Plus,0x1 0690 00d8 | | Load_Top At_Offset_0 0691 00e2 | | Load_Encached Integer_Cache 0692 0260 | ` | Execute Discrete,In_Type 0693 7001 |p | Jump_Nonzero 0x695 0694 0801 | | Execute_Immediate Raise,0x1 0695 e5ff | | Load 0x2,-0x1 0696 01dc | | Execute Vector,Last 0697 e5ff | | Load 0x2,-0x1 0698 01cf | | Execute Vector,Slice_Read 0699 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 069a 0000 0000 | | .BLANK 0000[0x6] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a3 | | .CONST 0x06a3 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0001 | | .CONST 0x0001 ; Number of locals 06a3 BODY_06a0: 06a3 INIT_06a0: 06a3 00db | | Load_Top At_Offset_3 06a4 01db | | Execute Vector,Length 06a5 7008 |p | Jump_Nonzero 0x6ae 06a6 00da | | Load_Top At_Offset_2 06a7 0217 | | Execute Heap_Access,All_Reference 06a8 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 06a9 e5fd | | Load 0x2,-0x3 06aa 0092 084a | J| Action Push_String_Extended,0x84a ; "Command failed" 06ac 820e | | Call 0x1,0xe 06ad 7806 |x | Jump 0x6b4 06ae 00da | | Load_Top At_Offset_2 06af 0217 | | Execute Heap_Access,All_Reference 06b0 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 06b1 e5fd | | Load 0x2,-0x3 06b2 e5fe | | Load 0x2,-0x2 06b3 820e | | Call 0x1,0xe 06b4 4940 |I@ | Short_Literal 0x140 06b5 0257 | W | Execute Discrete,Raise 06b6 0000 0000 | | .XXX[0x2] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06bb | | .CONST 0x06bb ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0001 | | .CONST 0x0001 ; Number of locals 06bb BODY_06b8: 06bb INIT_06b8: 06bb 00da | | Load_Top At_Offset_2 06bc 0217 | | Execute Heap_Access,All_Reference 06bd 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 06be 4808 |H | Short_Literal 0x8 06bf 4800 |H | Short_Literal 0x0 06c0 4801 |H | Short_Literal 0x1 06c1 e015 | | Load 0x0,0x15 06c2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06c3 0092 084b | K| Action Push_String_Extended,0x84b ; " was raised " 06c5 01cc | | Execute Vector,Catenate 06c6 e5fe | | Load 0x2,-0x2 06c7 01cc | | Execute Vector,Catenate 06c8 820e | | Call 0x1,0xe 06c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06ca 0000 0000 | | .BLANK 0000[0x6] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d3 | | .CONST 0x06d3 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0001 | | .CONST 0x0001 ; Number of locals 06d3 BODY_06d0: 06d3 INIT_06d0: 06d3 00da | | Load_Top At_Offset_2 06d4 4864 |Hd | Short_Literal 0x64 06d5 0270 | p | Execute Discrete,Divide 06d6 4804 |H | Short_Literal 0x4 06d7 4805 |H | Short_Literal 0x5 06d8 0262 | b | Execute Discrete,In_Range 06d9 7003 |p | Jump_Nonzero 0x6dd 06da 0092 084c | L| Action Push_String_Extended,0x84c ; "--- " 06dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06dd 0092 084d | M| Action Push_String_Extended,0x84d ; "*** " 06df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06e3 | | .CONST 0x06e3 ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0001 | | .CONST 0x0001 ; Number of locals 06e3 BODY_06e0: 06e3 INIT_06e0: 06e3 00da | | Load_Top At_Offset_2 06e4 4864 |Hd | Short_Literal 0x64 06e5 0270 | p | Execute Discrete,Divide 06e6 4804 |H | Short_Literal 0x4 06e7 4805 |H | Short_Literal 0x5 06e8 0262 | b | Execute Discrete,In_Range 06e9 7002 |p | Jump_Nonzero 0x6ec 06ea 4802 |H | Short_Literal 0x2 06eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06ec 4807 |H | Short_Literal 0x7 06ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06ee 0000 0000 | | .XXX[0x2] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06fd | | .CONST 0x06fd ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0005 | | .CONST 0x0005 ; Number of locals 06f3 INIT_06f0: 06f3 4801 |H | Short_Literal 0x1 06f4 4a00 |J | Short_Literal 0x200 06f5 00e9 | | Load_Encached String_Cache 06f6 035b | [ | Declare_Type Array,Constrained 06f7 0337 | 7 | Declare_Variable Array 06f8 00e2 | | Load_Encached Integer_Cache 06f9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06fa 00e3 | | Load_Encached Natural_Cache 06fb e007 | | Load 0x0,0x7 06fc 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 06fd BODY_06f0: 06fd 00cf | | Action Mark_Auxiliary 06fe 7831 |x1 | Jump 0x730 06ff e402 | | Load 0x2,0x2 0700 e403 | | Load 0x2,0x3 0701 0a01 | | Execute_Immediate Plus,0x1 0702 00d8 | | Load_Top At_Offset_0 0703 00e2 | | Load_Encached Integer_Cache 0704 0260 | ` | Execute Discrete,In_Type 0705 7001 |p | Jump_Nonzero 0x707 0706 0801 | | Execute_Immediate Raise,0x1 0707 4a00 |J | Short_Literal 0x200 0708 00da | | Load_Top At_Offset_2 0709 035b | [ | Declare_Type Array,Constrained 070a 00d0 | | Action Swap_Control 070b 01cd | | Execute Vector,Slice_Reference 070c 00e3 | | Load_Encached Natural_Cache 070d 00d9 | | Load_Top At_Offset_1 070e e5ff | | Load 0x2,-0x1 070f 0217 | | Execute Heap_Access,All_Reference 0710 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0711 e005 | | Load 0x0,0x5 0712 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0713 00d1 | | Pop_Control Pop_Count_1 0714 c404 | | Store 0x2,0x4 0715 00d1 | | Pop_Control Pop_Count_1 0716 e5ff | | Load 0x2,-0x1 0717 0217 | | Execute Heap_Access,All_Reference 0718 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0719 e005 | | Load 0x0,0x5 071a 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 071b 823d | = | Call 0x1,0x3d 071c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 071d e5ff | | Load 0x2,-0x1 071e 0217 | | Execute Heap_Access,All_Reference 071f 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0720 00da | | Load_Top At_Offset_2 0721 4801 |H | Short_Literal 0x1 0722 e403 | | Load 0x2,0x3 0723 e404 | | Load 0x2,0x4 0724 0273 | s | Execute Discrete,Plus 0725 00d8 | | Load_Top At_Offset_0 0726 00e2 | | Load_Encached Integer_Cache 0727 0260 | ` | Execute Discrete,In_Type 0728 7001 |p | Jump_Nonzero 0x72a 0729 0801 | | Execute_Immediate Raise,0x1 072a e402 | | Load 0x2,0x2 072b 01cf | | Execute Vector,Slice_Read 072c 820e | | Call 0x1,0xe 072d 4800 |H | Short_Literal 0x0 072e a403 | | Store_Unchecked 0x2,0x3 072f 00c9 | | Action Pop_Auxiliary_Loop 0730 e5ff | | Load 0x2,-0x1 0731 0217 | | Execute Heap_Access,All_Reference 0732 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0733 e005 | | Load 0x0,0x5 0734 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0735 6fc9 |o | Jump_Zero 0x6ff 0736 00ce | | Action Pop_Auxiliary 0737 00da | | Load_Top At_Offset_2 0738 0c01 | | Execute_Immediate Greater_Equal,0x1 0739 6809 |h | Jump_Zero 0x743 073a e5ff | | Load 0x2,-0x1 073b 0217 | | Execute Heap_Access,All_Reference 073c 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 073d 00d9 | | Load_Top At_Offset_1 073e 4801 |H | Short_Literal 0x1 073f e403 | | Load 0x2,0x3 0740 e402 | | Load 0x2,0x2 0741 01cf | | Execute Vector,Slice_Read 0742 820e | | Call 0x1,0xe 0743 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0744 0000 0000 | | .BLANK 0000[0x4] 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074b | K | .CONST 0x074b ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0001 | | .CONST 0x0001 ; Number of locals 074b BODY_0748: 074b INIT_0748: 074b 00da | | Load_Top At_Offset_2 074c 823e | > | Call 0x1,0x3e 074d 00da | | Load_Top At_Offset_2 074e 0219 | | Execute Heap_Access,All_Read 074f e006 | | Load 0x0,0x6 0750 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0751 e5ff | | Load 0x2,-0x1 0752 0217 | | Execute Heap_Access,All_Reference 0753 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0754 e005 | | Load 0x0,0x5 0755 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0756 00d9 | | Load_Top At_Offset_1 0757 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0758 00d1 | | Pop_Control Pop_Count_1 0759 00da | | Load_Top At_Offset_2 075a 0217 | | Execute Heap_Access,All_Reference 075b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 075c e5fe | | Load 0x2,-0x2 075d 027e | ~ | Execute Discrete,Not_Equal 075e 680d |h | Jump_Zero 0x76c 075f 4807 |H | Short_Literal 0x7 0760 0092 084e | N| Action Push_String_Extended,0x84e ; "FTP command status => " 0762 e5ff | | Load 0x2,-0x1 0763 0217 | | Execute Heap_Access,All_Reference 0764 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0765 e006 | | Load 0x0,0x6 0766 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0767 011c | | Execute Any,Convert_Unchecked 0768 1c01 | | Execute_Immediate Run_Utility,0x1 0769 01cc | | Execute Vector,Catenate 076a e5ff | | Load 0x2,-0x1 076b 823a | : | Call 0x1,0x3a 076c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 076d 0000 0000 | | .XXX[0x3] 076f 0000 | | 0770 ; -------------------------------------------------------------------------------------- 0770 ; SUBPROGRAM 0770 ; -------------------------------------------------------------------------------------- 0770 0778 | x | .CONST 0x0778 ; Address of begin 0771 0004 | | .CONST 0x0004 ; Address of exception handler 0772 0002 | | .CONST 0x0002 ; Number of locals 0773 INIT_0770: 0773 e22a | * | Load 0x1,0x2a 0774 00db | | Load_Top At_Offset_3 0775 0217 | | Execute Heap_Access,All_Reference 0776 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0777 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0778 BODY_0770: 0778 00cf | | Action Mark_Auxiliary 0779 e5fe | | Load 0x2,-0x2 077a 4801 |H | Short_Literal 0x1 077b 0263 | c | Execute Discrete,Above_Bound 077c 7045 |pE | Jump_Nonzero 0x7c2 077d e5ff | | Load 0x2,-0x1 077e 0217 | | Execute Heap_Access,All_Reference 077f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0780 e005 | | Load 0x0,0x5 0781 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0782 6801 |h | Jump_Zero 0x784 0783 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0784 e005 | | Load 0x0,0x5 0785 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0786 e402 | | Load 0x2,0x2 0787 0217 | | Execute Heap_Access,All_Reference 0788 e5ff | | Load 0x2,-0x1 0789 0217 | | Execute Heap_Access,All_Reference 078a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 078b e005 | | Load 0x0,0x5 078c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 078d 4801 |H | Short_Literal 0x1 078e e5ff | | Load 0x2,-0x1 078f 823f | ? | Call 0x1,0x3f 0790 e5ff | | Load 0x2,-0x1 0791 0217 | | Execute Heap_Access,All_Reference 0792 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0793 0217 | | Execute Heap_Access,All_Reference 0794 e5ff | | Load 0x2,-0x1 0795 0217 | | Execute Heap_Access,All_Reference 0796 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0797 e005 | | Load 0x0,0x5 0798 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0799 4802 |H | Short_Literal 0x2 079a e5ff | | Load 0x2,-0x1 079b 823f | ? | Call 0x1,0x3f 079c e5ff | | Load 0x2,-0x1 079d 0217 | | Execute Heap_Access,All_Reference 079e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 079f 0217 | | Execute Heap_Access,All_Reference 07a0 e5ff | | Load 0x2,-0x1 07a1 0217 | | Execute Heap_Access,All_Reference 07a2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07a3 e005 | | Load 0x0,0x5 07a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 07a5 4801 |H | Short_Literal 0x1 07a6 e5ff | | Load 0x2,-0x1 07a7 823f | ? | Call 0x1,0x3f 07a8 4802 |H | Short_Literal 0x2 07a9 e5ff | | Load 0x2,-0x1 07aa 0217 | | Execute Heap_Access,All_Reference 07ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07ac e005 | | Load 0x0,0x5 07ad 181e | | Execute Package,Field_Execute,Field_Number 0x1e 07ae 4801 |H | Short_Literal 0x1 07af e5ff | | Load 0x2,-0x1 07b0 823f | ? | Call 0x1,0x3f 07b1 00db | | Load_Top At_Offset_3 07b2 e5ff | | Load 0x2,-0x1 07b3 0217 | | Execute Heap_Access,All_Reference 07b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07b5 021f | | Execute Heap_Access,Equal 07b6 6805 |h | Jump_Zero 0x7bc 07b7 e5ff | | Load 0x2,-0x1 07b8 0217 | | Execute Heap_Access,All_Reference 07b9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 07ba a402 | | Store_Unchecked 0x2,0x2 07bb 7804 |x | Jump 0x7c0 07bc e5ff | | Load 0x2,-0x1 07bd 0217 | | Execute Heap_Access,All_Reference 07be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07bf a402 | | Store_Unchecked 0x2,0x2 07c0 00c8 | | Action Pop_Auxiliary_Range 07c1 3fbb |? | Loop_Increasing 0x77d 07c2 00ce | | Action Pop_Auxiliary 07c3 4940 |I@ | Short_Literal 0x140 07c4 0257 | W | Execute Discrete,Raise 07c5 0000 0000 | | .XXX[0x3] 07c7 0000 | | 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07cb | | .CONST 0x07cb ; Address of begin 07c9 0004 | | .CONST 0x0004 ; Address of exception handler 07ca 0001 | | .CONST 0x0001 ; Number of locals 07cb BODY_07c8: 07cb INIT_07c8: 07cb 00da | | Load_Top At_Offset_2 07cc e016 | | Load 0x0,0x16 07cd 180e | | Execute Package,Field_Execute,Field_Number 0xe 07ce e22a | * | Load 0x1,0x2a 07cf e009 | | Load 0x0,0x9 07d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 07d1 e00a | | Load 0x0,0xa 07d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 07d3 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 07d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07d5 0000 0000 | | .XXX[0x3] 07d7 0000 | | 07d8 ; -------------------------------------------------------------------------------------- 07d8 ; SUBPROGRAM 07d8 ; -------------------------------------------------------------------------------------- 07d8 07db | | .CONST 0x07db ; Address of begin 07d9 0004 | | .CONST 0x0004 ; Address of exception handler 07da 0001 | | .CONST 0x0001 ; Number of locals 07db BODY_07d8: 07db INIT_07d8: 07db e004 | | Load 0x0,0x4 07dc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07dd e004 | | Load 0x0,0x4 07de 1b12 | | Execute Package,Field_Read,Field_Number 0x12 07df e5ff | | Load 0x2,-0x1 07e0 0217 | | Execute Heap_Access,All_Reference 07e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07e2 e005 | | Load 0x0,0x5 07e3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 07e4 4801 |H | Short_Literal 0x1 07e5 00db | | Load_Top At_Offset_3 07e6 823f | ? | Call 0x1,0x3f 07e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07f2 | | .CONST 0x07f2 ; Address of begin 07e9 081e | | .CONST 0x081e ; Address of exception handler 07ea 0003 | | .CONST 0x0003 ; Number of locals 07eb INIT_07e8: 07eb e006 | | Load 0x0,0x6 07ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07ed e008 | | Load 0x0,0x8 07ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07ef 02c7 | | Declare_Variable Any 07f0 00d8 | | Load_Top At_Offset_0 07f1 1c00 | | Execute_Immediate Run_Utility,0x0 07f2 BODY_07e8: 07f2 4801 |H | Short_Literal 0x1 07f3 e5ff | | Load 0x2,-0x1 07f4 0217 | | Execute Heap_Access,All_Reference 07f5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 07f6 4805 |H | Short_Literal 0x5 07f7 e5ff | | Load 0x2,-0x1 07f8 8240 | @ | Call 0x1,0x40 07f9 e5ff | | Load 0x2,-0x1 07fa 8242 | B | Call 0x1,0x42 07fb e5ff | | Load 0x2,-0x1 07fc 0217 | | Execute Heap_Access,All_Reference 07fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07fe e005 | | Load 0x0,0x5 07ff 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0800 003a | : | Store_Top Access,At_Offset_2 0801 00d9 | | Load_Top At_Offset_1 0802 0229 | ) | Execute Access,All_Read 0803 c403 | | Store 0x2,0x3 0804 e5fd | | Load 0x2,-0x3 0805 00da | | Load_Top At_Offset_2 0806 0228 | ( | Execute Access,All_Write 0807 e5fc | | Load 0x2,-0x4 0808 e5fe | | Load 0x2,-0x2 0809 e5ff | | Load 0x2,-0x1 080a 0217 | | Execute Heap_Access,All_Reference 080b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 080c e005 | | Load 0x0,0x5 080d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 080e 4806 |H | Short_Literal 0x6 080f e5ff | | Load 0x2,-0x1 0810 823f | ? | Call 0x1,0x3f 0811 00d8 | | Load_Top At_Offset_0 0812 00da | | Load_Top At_Offset_2 0813 0228 | ( | Execute Access,All_Write 0814 e5ff | | Load 0x2,-0x1 0815 0217 | | Execute Heap_Access,All_Reference 0816 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0817 4802 |H | Short_Literal 0x2 0818 0092 084f | O| Action Push_String_Extended,0x84f ; "Retrieved listing of " 081a e5fe | | Load 0x2,-0x2 081b 01cc | | Execute Vector,Catenate 081c 820e | | Call 0x1,0xe 081d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 081e TRAP_07e8: 081e 00d8 | | Load_Top At_Offset_0 081f 0107 | | Execute Exception,Get_Name 0820 4940 |I@ | Short_Literal 0x140 0821 494f |IO | Short_Literal 0x14f 0822 0262 | b | Execute Discrete,In_Range 0823 6805 |h | Jump_Zero 0x829 0824 4800 |H | Short_Literal 0x0 0825 e5ff | | Load 0x2,-0x1 0826 0217 | | Execute Heap_Access,All_Reference 0827 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0828 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0829 0100 | | Execute Exception,Raise 082a 0000 0000 | | .BLANK 0000[0x6] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 0833 | 3 | .CONST 0x0833 ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 0001 | | .CONST 0x0001 ; Number of locals 0833 BODY_0830: 0833 INIT_0830: 0833 4601 |F | Jump_Case 0x2 0834 7801 |x | Jump 0x836 ; case 0x0 0835 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0836 00da | | Load_Top At_Offset_2 0837 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0838 0125 | % | Execute Any,Set_Constraint 0839 00da | | Load_Top At_Offset_2 083a 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 083b 1c00 | | Execute_Immediate Run_Utility,0x0 083c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 083d ; -------------------------------------------------------------------------------------- 083d ; STRING TABLE 083d ; -------------------------------------------------------------------------------------- 083d 0028 | ( | .STRTAB 0x0028->0x0851 ; "IN_FILE" 083e 002d | - | .STRTAB 0x002d->0x0854 ; "OUT_FILE" 083f 0033 | 3 | .STRTAB 0x0033->0x0858 ; "LIST_FILE" 0840 003a | : | .STRTAB 0x003a->0x085d ; "File_Transfer.Open failed" 0841 0051 | Q | .STRTAB 0x0051->0x0869 ; "<MV>" 0842 0053 | S | .STRTAB 0x0053->0x086b ; "moe_ftp" 0843 0058 | X | .STRTAB 0x0058->0x086f ; "curly_ftp" 0844 005f | _ | .STRTAB 0x005f->0x0873 ; "ratnet" 0845 0063 | c | .STRTAB 0x0063->0x0876 ; "netrat" 0846 0067 | g | .STRTAB 0x0067->0x0879 ; "stored " 0847 006c | l | .STRTAB 0x006c->0x087d ; "retrieved " 0848 0074 | t | .STRTAB 0x0074->0x0882 ; "in Remote_Io.Open" 0849 0083 | | .STRTAB 0x0083->0x088a ; "in Remote_Io.Close" 084a 0093 | | .STRTAB 0x0093->0x0893 ; "Command failed" 084b 009f | | .STRTAB 0x009f->0x089a ; " was raised " 084c 00a9 | | .STRTAB 0x00a9->0x08a0 ; "--- " 084d 00ab | | .STRTAB 0x00ab->0x08a2 ; "*** " 084e 00ad | | .STRTAB 0x00ad->0x08a4 ; "FTP command status => " 084f 00c1 | | .STRTAB 0x00c1->0x08af ; "Retrieved listing of " 0850 00d4 | | .STREND 0x00d4->0x08ba 0851 494e 5f46 |IN_F| .STRTAB_STRINGS 08ba 0000 0000 | | .BLANK 0000[0x6] 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; Debug Table 08c0 ; -------------------------------------------------------------------------------------- 08c0 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf232,0x0000,0x0001,0x0000 08c6 858d adcc | | .XXX[0xb5] 08c8 a428 8080 | ( | 08ca 8081 5da5 | ] | 08cc 919d 95d0 | | 08ce 2480 8080 |$ | 08d0 81dd a591 | | 08d2 9d95 d0ec | | 08d4 2880 8080 |( | 08d6 814d d1c9 | M | 08d8 a5b9 9c24 | $| 08da 8080 8081 | | 08dc b985 b594 | | 08de ec28 8080 | ( | 08e0 8081 61d1 | a | 08e2 0d85 b1b1 | | 08e4 8985 8dad | | 08e6 31a5 cdd0 |1 | 08e8 8080 8080 | | 08ea 81e1 d18d | | 08ec 85b1 b189 | | 08ee 858d adcc | | 08f0 ec29 ec28 | ) (| 08f2 8080 8081 | | 08f4 0d85 b1b1 | | 08f6 8985 8dad | | 08f8 31a5 cdd0 |1 | 08fa 80a9 8d85 | | 08fc b1b1 8985 | | 08fe 8dad ccec | | 0900 2880 8080 |( | 0902 810d 85b1 | | 0904 b189 858d | | 0906 ad4d d1c9 | M | 0908 d58d d080 | | 090a a985 9191 | | 090c 7d8d 85b1 |} | 090e b189 858d | | 0910 adcc ec28 | (| 0912 2880 8080 |( | 0914 818d 85b1 | | 0916 b189 858d | | 0918 adcc 80f4 | | 091a 8119 95d1 | | 091c 8da1 0d85 | | 091e b1b1 8985 | | 0920 8dad 31a5 | 1 | 0922 cdd0 a1dd | | 0924 a591 9d95 | | 0926 d0b0 81b9 | | 0928 85b5 94b0 | | 092a 8151 c9d5 | Q | 092c 94a4 ec28 | (| 092e 8080 8081 | | 0930 a598 80a1 | | 0932 8d85 b1b1 | | 0934 8985 8dad | | 0936 cc80 f4f4 | | 0938 8139 5531 | 9U1| 093a 30a4 81ec |0 | 093c 2880 8080 |( | 093e 8080 8081 | | 0940 61d1 05c1 |a | 0942 c15d 85c9 | ] | 0944 b9a5 b99d | | 0946 35cd 9ca1 |5 | 0948 61d1 5da5 |a ] | 094a 919d 95d1 | | 094c 51bd 05c1 |Q | 094e c1b1 a58d | | 0950 85d1 a5bd | | 0952 b90d bdb9 | | 0954 d195 e1d0 | | 0956 a1dd a591 | | 0958 9d95 d0a4 | | 095a b028 2480 | ($ | 095c 8080 8080 | | 095e 8080 89a5 | | 0960 b9d9 85b1 | | 0962 a591 0d85 | | 0964 b1b1 8985 | | 0966 8dad 31a5 | 1 | 0968 cdd0 88b0 | | 096a 89e1 d105 | | 096c 9191 0d85 | | 096e b1b1 8985 | | 0970 8dac 88b0 | | 0972 8961 d151 | a Q| 0974 bdbd b1ad | | 0976 a5d1 15c9 | | 0978 c9bd c888 | | 097a b028 | ( | 097b 8080 8080 | | .BLANK 8080[0x7] 0982 890d 85b9 | | .XXX[0x7e] 0984 b9bd d081 | | 0986 99a5 b990 | | 0988 818d 85b1 | | 098a b189 858d | | 098c ac81 b1a5 | | 098e cdd0 81a5 | | 0990 b881 61d1 | a | 0992 0591 910d | | 0994 85b1 b189 | | 0996 858d adcc | | 0998 88b0 2824 | ($| 099a 8080 8080 | | 099c 8080 a14d | M| 099e d1c9 a5b9 | | 09a0 9c80 a8a5 | | 09a2 3955 3130 |9U10| 09a4 b080 a10d | | 09a6 85c9 91a5 | | 09a8 b985 b080 | | 09aa a8a5 3955 | 9U| 09ac 3130 a4ec |10 | 09ae 2880 8080 |( | 09b0 8080 8081 | | 09b2 c995 d1d5 | | 09b4 c9b8 ec28 | (| 09b6 8080 8081 | | 09b8 f428 8080 | ( | 09ba 8081 8591 | | 09bc 917d 8d85 | } | 09be b1b1 8985 | | 09c0 8dad cc80 | | 09c2 f481 7d61 | }a| 09c4 d10d bdb5 | | 09c6 c1a5 b195 | | 09c8 0d85 b1b1 | | 09ca 8985 8dad | | 09cc 31a5 cdd0 |1 | 09ce a1dd a591 | | 09d0 9d95 d0b0 | | 09d2 81e1 d18d | | 09d4 85b1 b189 | | 09d6 858d adcc | | 09d8 a4ec 2880 | ( | 09da 8080 8105 | | 09dc 9191 0d85 | | 09de b1b1 8985 | | 09e0 8dad cca1 | | 09e2 dda5 919d | | 09e4 95d0 b081 | | 09e6 8d85 b1b1 | | 09e8 8985 8dad | | 09ea ccb0 8185 | | 09ec 9191 7d8d | } | 09ee 85b1 b189 | | 09f0 858d adcc | | 09f2 b4f9 a5b9 | | 09f4 d195 c9b9 | | 09f6 85b1 7d99 | } | 09f8 bdc9 b4a4 | | 09fa ec28 8080 | ( | 09fc 8081 61d1 | a | 09fe 19c9 9594 | |