|
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: 3072 (0xc00) 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 0550 | P | .CONST 0x0550 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 00ae | | .CONST 0x00ae ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 001a | | .CONST 0x001a ; Number of locals 001b INIT_0018: 001b 00e1 | | Load_Encached Boolean_Cache 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d 00e1 | | Load_Encached Boolean_Cache 001e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 001f 029e 010b | | Declare_Subprogram INIT_0108,For_Call,Unelaborated 0021 0093 0000 | | push_full_address 0x0 0023 60dc |` | Indirect_Literal Discrete,0x100,{0x80000000, 0x00030000} 0024 0273 | s | Execute Discrete,Plus 0025 e002 | | Load 0x0,0x2 0026 0273 | s | Execute Discrete,Plus 0027 e003 | | Load 0x0,0x3 0028 0273 | s | Execute Discrete,Plus 0029 4804 |H | Short_Literal 0x4 002a 4802 |H | Short_Literal 0x2 002b 0099 | | Action Reference_Dynamic 002c e5fc | | Load 0x2,-0x4 002d e004 | | Load 0x0,0x4 002e 0387 | | Declare_Variable Package 002f 00d8 | | Load_Top At_Offset_0 0030 020f | | Execute Module,Activate 0031 4800 |H | Short_Literal 0x0 0032 4803 |H | Short_Literal 0x3 0033 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0035 03fd | | Declare_Type Discrete,Defined 0036 00e1 | | Load_Encached Boolean_Cache 0037 e005 | | Load 0x0,0x5 0038 e006 | | Load 0x0,0x6 0039 e405 | | Load 0x2,0x5 003a 0098 | | Execute Package,Field_Read_Dynamic 003b 0098 | | Execute Package,Field_Read_Dynamic 003c e007 | | Load 0x0,0x7 003d e008 | | Load 0x0,0x8 003e e009 | | Load 0x0,0x9 003f e405 | | Load 0x2,0x5 0040 0098 | | Execute Package,Field_Read_Dynamic 0041 0098 | | Execute Package,Field_Read_Dynamic 0042 0098 | | Execute Package,Field_Read_Dynamic 0043 02a0 | | Declare_Subprogram Null_Subprogram 0044 4803 |H | Short_Literal 0x3 0045 032d | - | Declare_Type Record,Defined 0046 00e1 | | Load_Encached Boolean_Cache 0047 e00a | | Load 0x0,0xa 0048 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0049 e00a | | Load 0x0,0xa 004a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 004b e00b | | Load 0x0,0xb 004c 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 004e 4804 |H | Short_Literal 0x4 004f 032d | - | Declare_Type Record,Defined 0050 00da | | Load_Top At_Offset_2 0051 0266 | f | Execute Discrete,Bounds 0052 e00c | | Load 0x0,0xc 0053 e009 | | Load 0x0,0x9 0054 e405 | | Load 0x2,0x5 0055 0098 | | Execute Package,Field_Read_Dynamic 0056 0098 | | Execute Package,Field_Read_Dynamic 0057 02a0 | | Declare_Subprogram Null_Subprogram 0058 4801 |H | Short_Literal 0x1 0059 035d | ] | Declare_Type Array,Defined 005a 00d8 | | Load_Top At_Offset_0 005b 0337 | 7 | Declare_Variable Array 005c e406 | | Load 0x2,0x6 005d 0266 | f | Execute Discrete,Bounds 005e e00d | | Load 0x0,0xd 005f 02a0 | | Declare_Subprogram Null_Subprogram 0060 4801 |H | Short_Literal 0x1 0061 035d | ] | Declare_Type Array,Defined 0062 00d8 | | Load_Top At_Offset_0 0063 0337 | 7 | Declare_Variable Array 0064 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 0066 4804 |H | Short_Literal 0x4 0067 4802 |H | Short_Literal 0x2 0068 0099 | | Action Reference_Dynamic 0069 00c7 | | Action Elaborate_Subprogram 006a 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 006c 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 006e 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 0070 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call 0072 029f 029b | | Declare_Subprogram INIT_0298,For_Call 0074 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call 0076 e00e | | Load 0x0,0xe 0077 e00f | | Load 0x0,0xf 0078 e407 | | Load 0x2,0x7 0079 4810 |H | Short_Literal 0x10 007a 4802 |H | Short_Literal 0x2 007b 0099 | | Action Reference_Dynamic 007c 4813 |H | Short_Literal 0x13 007d 4802 |H | Short_Literal 0x2 007e 0099 | | Action Reference_Dynamic 007f 4811 |H | Short_Literal 0x11 0080 4802 |H | Short_Literal 0x2 0081 0099 | | Action Reference_Dynamic 0082 4812 |H | Short_Literal 0x12 0083 4802 |H | Short_Literal 0x2 0084 0099 | | Action Reference_Dynamic 0085 4804 |H | Short_Literal 0x4 0086 4802 |H | Short_Literal 0x2 0087 0099 | | Action Reference_Dynamic 0088 6073 |`s | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00000400} 0089 e010 | | Load 0x0,0x10 008a 0387 | | Declare_Variable Package 008b 00d8 | | Load_Top At_Offset_0 008c 020f | | Execute Module,Activate 008d 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call 008f 029f 0303 | | Declare_Subprogram INIT_0300,For_Call 0091 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 0093 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call 0095 e011 | | Load 0x0,0x11 0096 e012 | | Load 0x0,0x12 0097 e408 | | Load 0x2,0x8 0098 4816 |H | Short_Literal 0x16 0099 4802 |H | Short_Literal 0x2 009a 0099 | | Action Reference_Dynamic 009b 4818 |H | Short_Literal 0x18 009c 4802 |H | Short_Literal 0x2 009d 0099 | | Action Reference_Dynamic 009e 4817 |H | Short_Literal 0x17 009f 4802 |H | Short_Literal 0x2 00a0 0099 | | Action Reference_Dynamic 00a1 4812 |H | Short_Literal 0x12 00a2 4802 |H | Short_Literal 0x2 00a3 0099 | | Action Reference_Dynamic 00a4 4804 |H | Short_Literal 0x4 00a5 4802 |H | Short_Literal 0x2 00a6 0099 | | Action Reference_Dynamic 00a7 6054 |`T | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00000400} 00a8 e010 | | Load 0x0,0x10 00a9 0387 | | Declare_Variable Package 00aa 00d8 | | Load_Top At_Offset_0 00ab 020f | | Execute Module,Activate 00ac 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 00ae BODY_0018: 00ae e5ff | | Load 0x2,-0x1 00af 01dd | | Execute Vector,First 00b0 e5ff | | Load 0x2,-0x1 00b1 01dd | | Execute Vector,First 00b2 0a01 | | Execute_Immediate Plus,0x1 00b3 00d8 | | Load_Top At_Offset_0 00b4 00e2 | | Load_Encached Integer_Cache 00b5 0260 | ` | Execute Discrete,In_Type 00b6 7001 |p | Jump_Nonzero 0xb8 00b7 0801 | | Execute_Immediate Raise,0x1 00b8 e5ff | | Load 0x2,-0x1 00b9 01cf | | Execute Vector,Slice_Read 00ba 0092 0483 | | Action Push_String_Extended,0x483 ; "!!" 00bc 01df | | Execute Vector,Equal 00bd 6822 |h" | Jump_Zero 0xe0 00be 00e1 | | Load_Encached Boolean_Cache 00bf e5fd | | Load 0x2,-0x3 00c0 e5fe | | Load 0x2,-0x2 00c1 e5ff | | Load 0x2,-0x1 00c2 e013 | | Load 0x0,0x13 00c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00c4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00c5 e014 | | Load 0x0,0x14 00c6 e006 | | Load 0x0,0x6 00c7 e405 | | Load 0x2,0x5 00c8 0098 | | Execute Package,Field_Read_Dynamic 00c9 0096 | | Execute Package,Entry 00ca c403 | | Store 0x2,0x3 00cb e403 | | Load 0x2,0x3 00cc 6812 |h | Jump_Zero 0xdf 00cd e402 | | Load 0x2,0x2 00ce 00e1 | | Load_Encached Boolean_Cache 00cf 602c |`, | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00000400} 00d0 e5fc | | Load 0x2,-0x4 00d1 e5ff | | Load 0x2,-0x1 00d2 e013 | | Load 0x0,0x13 00d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d4 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 00d5 841a | | Call 0x2,0x1a 00d6 e414 | | Load 0x2,0x14 00d7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d8 c403 | | Store 0x2,0x3 00d9 c402 | | Store 0x2,0x2 00da e015 | | Load 0x0,0x15 00db e006 | | Load 0x0,0x6 00dc e405 | | Load 0x2,0x5 00dd 0098 | | Execute Package,Field_Read_Dynamic 00de 0096 | | Execute Package,Entry 00df 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00e0 e5ff | | Load 0x2,-0x1 00e1 01dd | | Execute Vector,First 00e2 e5ff | | Load 0x2,-0x1 00e3 01d7 | | Execute Vector,Field_Read 00e4 0f3a | : | Execute_Immediate Equal,0x3a 00e5 6808 |h | Jump_Zero 0xee 00e6 e016 | | Load 0x0,0x16 00e7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e8 4805 |H | Short_Literal 0x5 00e9 0092 0484 | | Action Push_String_Extended,0x484 ; "Since FTP supports Polymorphic_IO only for Binary files and the MV does not support Binary transfers, this highly optimized transfer procedure cannot be used to transfer segments from an MV. Use the original Release_Tools.Get_Xfer" 00eb e017 | | Load 0x0,0x17 00ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ed 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ee e402 | | Load 0x2,0x2 00ef 00e1 | | Load_Encached Boolean_Cache 00f0 600b |` | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00000400} 00f1 e5fc | | Load 0x2,-0x4 00f2 e5ff | | Load 0x2,-0x1 00f3 841a | | Call 0x2,0x1a 00f4 e419 | | Load 0x2,0x19 00f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f6 c403 | | Store 0x2,0x3 00f7 c402 | | Store 0x2,0x2 00f8 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00f9 0000 0000 | | .XXX[0x3] 00fb 0000 | | 00fc 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0100 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010f | | .CONST 0x010f ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0003 | | .CONST 0x0003 ; Number of locals 010b INIT_0108: 010b 029f 039b | | Declare_Subprogram INIT_0398,For_Call 010d 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 010f BODY_0108: 010f e7ff | | Load 0x3,-0x1 0110 01db | | Execute Vector,Length 0111 0c04 | | Execute_Immediate Greater_Equal,0x4 0112 6801 |h | Jump_Zero 0x114 0113 8602 | | Call 0x3,0x2 0114 8603 | | Call 0x3,0x3 0115 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4607 |F | Jump_Case 0x8 011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 011d 7807 |x | Jump 0x125 ; case 0x1 011e 780a |x | Jump 0x129 ; case 0x2 011f 780e |x | Jump 0x12e ; case 0x3 0120 7811 |x | Jump 0x132 ; case 0x4 0121 7812 |x | Jump 0x134 ; case 0x5 0122 7813 |x | Jump 0x136 ; case 0x6 0123 7816 |x | Jump 0x13a ; case 0x7 0124 4302 |C | .XXX[0x1] 0125 00da | | Load_Top At_Offset_2 0126 0091 047f | | Action Push_String_Extended_Indexed,0x47f ; "XFER" 0128 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0129 00db | | Load_Top At_Offset_3 012a 00db | | Load_Top At_Offset_3 012b 00e0 | | Load_Encached Standard_Cache 012c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012e 00da | | Load_Top At_Offset_2 012f 00e0 | | Load_Encached Standard_Cache 0130 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0131 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0132 00db | | Load_Top At_Offset_3 0133 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0134 00db | | Load_Top At_Offset_3 0135 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0136 e406 | | Load 0x2,0x6 0137 00dc | | Load_Top At_Offset_4 0138 0267 | g | Execute Discrete,Predecessor 0139 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013a e406 | | Load 0x2,0x6 013b 00dc | | Load_Top At_Offset_4 013c 0268 | h | Execute Discrete,Successor 013d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013e 0000 0000 | | .XXX[0x2] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4601 |F | Jump_Case 0x2 0144 7801 |x | Jump 0x146 ; case 0x0 0145 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0146 00da | | Load_Top At_Offset_2 0147 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0148 0125 | % | Execute Any,Set_Constraint 0149 00da | | Load_Top At_Offset_2 014a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 014b 1c00 | | Execute_Immediate Run_Utility,0x0 014c 00da | | Load_Top At_Offset_2 014d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 014e 0125 | % | Execute Any,Set_Constraint 014f 00da | | Load_Top At_Offset_2 0150 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0151 1c00 | | Execute_Immediate Run_Utility,0x0 0152 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0153 0000 0000 | | .BLANK 0000[0x5] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0162 | b | .CONST 0x0162 ; Address of begin 0159 0170 | p | .CONST 0x0170 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b 4800 |H | Short_Literal 0x0 015c 00db | | Load_Top At_Offset_3 015d 482e |H. | Short_Literal 0x2e 015e e018 | | Load 0x0,0x18 015f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0160 00e2 | | Load_Encached Integer_Cache 0161 03f1 | | Declare_Variable Discrete,With_Value 0162 BODY_0158: 0162 00d8 | | Load_Top At_Offset_0 0163 0a01 | | Execute_Immediate Plus,0x1 0164 00d8 | | Load_Top At_Offset_0 0165 00e2 | | Load_Encached Integer_Cache 0166 0260 | ` | Execute Discrete,In_Type 0167 7001 |p | Jump_Nonzero 0x169 0168 0801 | | Execute_Immediate Raise,0x1 0169 e7ff | | Load 0x3,-0x1 016a 01dc | | Execute Vector,Last 016b e7ff | | Load 0x3,-0x1 016c 01cf | | Execute Vector,Slice_Read 016d e406 | | Load 0x2,0x6 016e 1c02 | | Execute_Immediate Run_Utility,0x2 016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0170 TRAP_0158: 0170 0007 | | Action Break_Optional 0171 4803 |H | Short_Literal 0x3 0172 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0173 0000 0000 | | .BLANK 0000[0x5] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 019b | | .CONST 0x019b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0005 | | .CONST 0x0005 ; Number of locals 017b INIT_0178: 017b 4801 |H | Short_Literal 0x1 017c 00db | | Load_Top At_Offset_3 017d 01db | | Execute Vector,Length 017e 00d8 | | Load_Top At_Offset_0 017f 00e2 | | Load_Encached Integer_Cache 0180 0260 | ` | Execute Discrete,In_Type 0181 7001 |p | Jump_Nonzero 0x183 0182 0801 | | Execute_Immediate Raise,0x1 0183 00e9 | | Load_Encached String_Cache 0184 035b | [ | Declare_Type Array,Constrained 0185 0337 | 7 | Declare_Variable Array 0186 00db | | Load_Top At_Offset_3 0187 e018 | | Load 0x0,0x18 0188 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0189 00d9 | | Load_Top At_Offset_1 018a 01d4 | | Execute Vector,Structure_Write 018b 4800 |H | Short_Literal 0x0 018c 00d9 | | Load_Top At_Offset_1 018d 483a |H: | Short_Literal 0x3a 018e e018 | | Load 0x0,0x18 018f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0190 00e2 | | Load_Encached Integer_Cache 0191 03f1 | | Declare_Variable Discrete,With_Value 0192 4800 |H | Short_Literal 0x0 0193 00da | | Load_Top At_Offset_2 0194 482e |H. | Short_Literal 0x2e 0195 e018 | | Load 0x0,0x18 0196 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0197 00e2 | | Load_Encached Integer_Cache 0198 03f1 | | Declare_Variable Discrete,With_Value 0199 00d8 | | Load_Top At_Offset_0 019a 0007 | | Action Break_Optional 019b BODY_0178: 019b 4801 |H | Short_Literal 0x1 019c e602 | | Load 0x3,0x2 019d 01d7 | | Execute Vector,Field_Read 019e 0e3a | : | Execute_Immediate Not_Equal,0x3a 019f 6851 |hQ | Jump_Zero 0x1f1 01a0 00da | | Load_Top At_Offset_2 01a1 0c01 | | Execute_Immediate Greater_Equal,0x1 01a2 6805 |h | Jump_Zero 0x1a8 01a3 482e |H. | Short_Literal 0x2e 01a4 00db | | Load_Top At_Offset_3 01a5 e602 | | Load 0x3,0x2 01a6 01d6 | | Execute Vector,Field_Write 01a7 7804 |x | Jump 0x1ac 01a8 00db | | Load_Top At_Offset_3 01a9 00e9 | | Load_Encached String_Cache 01aa 01c6 | | Execute Vector,Convert_To_Formal 01ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ac 00cf | | Action Mark_Auxiliary 01ad 7814 |x | Jump 0x1c2 01ae 485f |H_ | Short_Literal 0x5f 01af 00db | | Load_Top At_Offset_3 01b0 e602 | | Load 0x3,0x2 01b1 01d6 | | Execute Vector,Field_Write 01b2 4800 |H | Short_Literal 0x0 01b3 e603 | | Load 0x3,0x3 01b4 0a01 | | Execute_Immediate Plus,0x1 01b5 00d8 | | Load_Top At_Offset_0 01b6 00e2 | | Load_Encached Integer_Cache 01b7 0260 | ` | Execute Discrete,In_Type 01b8 7001 |p | Jump_Nonzero 0x1ba 01b9 0801 | | Execute_Immediate Raise,0x1 01ba e604 | | Load 0x3,0x4 01bb e602 | | Load 0x3,0x2 01bc 01cf | | Execute Vector,Slice_Read 01bd 482e |H. | Short_Literal 0x2e 01be e018 | | Load 0x0,0x18 01bf 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01c0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01c1 00c9 | | Action Pop_Auxiliary_Loop 01c2 00da | | Load_Top At_Offset_2 01c3 e603 | | Load 0x3,0x3 01c4 027d | } | Execute Discrete,Greater 01c5 77e8 |w | Jump_Nonzero 0x1ae 01c6 00ce | | Action Pop_Auxiliary 01c7 00d8 | | Load_Top At_Offset_0 01c8 00db | | Load_Top At_Offset_3 01c9 027d | } | Execute Discrete,Greater 01ca 6826 |h& | Jump_Zero 0x1f1 01cb 485f |H_ | Short_Literal 0x5f 01cc 4801 |H | Short_Literal 0x1 01cd e603 | | Load 0x3,0x3 01ce e602 | | Load 0x3,0x2 01cf 01cf | | Execute Vector,Slice_Read 01d0 00da | | Load_Top At_Offset_2 01d1 0a01 | | Execute_Immediate Plus,0x1 01d2 00d8 | | Load_Top At_Offset_0 01d3 00e2 | | Load_Encached Integer_Cache 01d4 0260 | ` | Execute Discrete,In_Type 01d5 7001 |p | Jump_Nonzero 0x1d7 01d6 0801 | | Execute_Immediate Raise,0x1 01d7 e602 | | Load 0x3,0x2 01d8 01dc | | Execute Vector,Last 01d9 e602 | | Load 0x3,0x2 01da 01cf | | Execute Vector,Slice_Read 01db 01cc | | Execute Vector,Catenate 01dc 01cb | | Execute Vector,Append 01dd 00db | | Load_Top At_Offset_3 01de 0a01 | | Execute_Immediate Plus,0x1 01df 00d8 | | Load_Top At_Offset_0 01e0 00e2 | | Load_Encached Integer_Cache 01e1 0260 | ` | Execute Discrete,In_Type 01e2 7001 |p | Jump_Nonzero 0x1e4 01e3 0801 | | Execute_Immediate Raise,0x1 01e4 00da | | Load_Top At_Offset_2 01e5 0aff | | Execute_Immediate Plus,-0x1 01e6 00d8 | | Load_Top At_Offset_0 01e7 00e2 | | Load_Encached Integer_Cache 01e8 0260 | ` | Execute Discrete,In_Type 01e9 7001 |p | Jump_Nonzero 0x1eb 01ea 0801 | | Execute_Immediate Raise,0x1 01eb e602 | | Load 0x3,0x2 01ec 01cf | | Execute Vector,Slice_Read 01ed 01cc | | Execute Vector,Catenate 01ee 00e9 | | Load_Encached String_Cache 01ef 01c6 | | Execute Vector,Convert_To_Formal 01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f1 00db | | Load_Top At_Offset_3 01f2 00e9 | | Load_Encached String_Cache 01f3 01c6 | | Execute Vector,Convert_To_Formal 01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fd | | .CONST 0x01fd ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc 840e | | Call 0x2,0xe 01fd BODY_01f8: 01fd e005 | | Load 0x0,0x5 01fe e006 | | Load 0x0,0x6 01ff e405 | | Load 0x2,0x5 0200 0098 | | Execute Package,Field_Read_Dynamic 0201 0098 | | Execute Package,Field_Read_Dynamic 0202 e019 | | Load 0x0,0x19 0203 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0204 00ea | | Load_Encached Null_String_Cache 0205 00db | | Load_Top At_Offset_3 0206 4800 |H | Short_Literal 0x0 0207 e01a | | Load 0x0,0x1a 0208 e006 | | Load 0x0,0x6 0209 e405 | | Load 0x2,0x5 020a 0098 | | Execute Package,Field_Read_Dynamic 020b 0096 | | Execute Package,Entry 020c c7fe | | Store 0x3,-0x2 020d e7fe | | Load 0x3,-0x2 020e e01b | | Load 0x0,0x1b 020f e006 | | Load 0x0,0x6 0210 e405 | | Load 0x2,0x5 0211 0098 | | Execute Package,Field_Read_Dynamic 0212 0096 | | Execute Package,Entry 0213 6812 |h | Jump_Zero 0x226 0214 e016 | | Load 0x0,0x16 0215 180e | | Execute Package,Field_Execute,Field_Number 0xe 0216 4807 |H | Short_Literal 0x7 0217 00da | | Load_Top At_Offset_2 0218 0092 0485 | | Action Push_String_Extended,0x485 ; " is empty." 021a 01cc | | Execute Vector,Catenate 021b e017 | | Load 0x0,0x17 021c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 021d e016 | | Load 0x0,0x16 021e 180e | | Execute Package,Field_Execute,Field_Number 0xe 021f 4808 |H | Short_Literal 0x8 0220 0092 0486 | | Action Push_String_Extended,0x486 ; "Io_Exceptions.End_Error raised in Get_Xfer.Open." 0222 e017 | | Load 0x0,0x17 0223 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0224 4950 |IP | Short_Literal 0x150 0225 0257 | W | Execute Discrete,Raise 0226 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0227 0000 | | .XXX[0x1] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 4800 |H | Short_Literal 0x0 022c 00db | | Load_Top At_Offset_3 022d 482f |H/ | Short_Literal 0x2f 022e e018 | | Load 0x0,0x18 022f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0230 0c01 | | Execute_Immediate Greater_Equal,0x1 0231 e7fe | | Load 0x3,-0x2 0232 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0233 00db | | Load_Top At_Offset_3 0234 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0235 6833 |h3 | Jump_Zero 0x269 0236 e40a | | Load 0x2,0xa 0237 00db | | Load_Top At_Offset_3 0238 840d | | Call 0x2,0xd 0239 e7fe | | Load 0x3,-0x2 023a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 023b 00d9 | | Load_Top At_Offset_1 023c 00db | | Load_Top At_Offset_3 023d 01d7 | | Execute Vector,Field_Read 023e e7ff | | Load 0x3,-0x1 023f e01c | | Load 0x0,0x1c 0240 e008 | | Load 0x0,0x8 0241 e009 | | Load 0x0,0x9 0242 e405 | | Load 0x2,0x5 0243 0098 | | Execute Package,Field_Read_Dynamic 0244 0098 | | Execute Package,Field_Read_Dynamic 0245 0096 | | Execute Package,Entry 0246 00da | | Load_Top At_Offset_2 0247 e602 | | Load 0x3,0x2 0248 01d6 | | Execute Vector,Field_Write 0249 e7fe | | Load 0x3,-0x2 024a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 024b 00d2 | | Pop_Control Pop_Count_2 024c 00db | | Load_Top At_Offset_3 024d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 024e e01d | | Load 0x0,0x1d 024f e008 | | Load 0x0,0x8 0250 e009 | | Load 0x0,0x9 0251 e405 | | Load 0x2,0x5 0252 0098 | | Execute Package,Field_Read_Dynamic 0253 0098 | | Execute Package,Field_Read_Dynamic 0254 0096 | | Execute Package,Entry 0255 6812 |h | Jump_Zero 0x268 0256 e016 | | Load 0x0,0x16 0257 180e | | Execute Package,Field_Execute,Field_Number 0xe 0258 4807 |H | Short_Literal 0x7 0259 e7ff | | Load 0x3,-0x1 025a 0092 0485 | | Action Push_String_Extended,0x485 ; " is empty." 025c 01cc | | Execute Vector,Catenate 025d e017 | | Load 0x0,0x17 025e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 025f e016 | | Load 0x0,0x16 0260 180e | | Execute Package,Field_Execute,Field_Number 0xe 0261 4808 |H | Short_Literal 0x8 0262 0092 0486 | | Action Push_String_Extended,0x486 ; "Io_Exceptions.End_Error raised in Get_Xfer.Open." 0264 e017 | | Load 0x0,0x17 0265 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0266 4950 |IP | Short_Literal 0x150 0267 0257 | W | Execute Discrete,Raise 0268 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0269 00db | | Load_Top At_Offset_3 026a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 026b 00db | | Load_Top At_Offset_3 026c 840f | | Call 0x2,0xf 026d e7fe | | Load 0x3,-0x2 026e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 026f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0275 6810 |h | Jump_Zero 0x286 0276 00e3 | | Load_Encached Natural_Cache 0277 e7fe | | Load 0x3,-0x2 0278 e7ff | | Load 0x3,-0x1 0279 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 027a e01e | | Load 0x0,0x1e 027b e008 | | Load 0x0,0x8 027c e009 | | Load 0x0,0x9 027d e405 | | Load 0x2,0x5 027e 0098 | | Execute Package,Field_Read_Dynamic 027f 0098 | | Execute Package,Field_Read_Dynamic 0280 0096 | | Execute Package,Entry 0281 e7ff | | Load 0x3,-0x1 0282 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0283 00d1 | | Pop_Control Pop_Count_1 0284 c7fd | | Store 0x3,-0x3 0285 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0286 00e3 | | Load_Encached Natural_Cache 0287 e7fe | | Load 0x3,-0x2 0288 e7ff | | Load 0x3,-0x1 0289 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028a e01f | | Load 0x0,0x1f 028b e006 | | Load 0x0,0x6 028c e405 | | Load 0x2,0x5 028d 0098 | | Execute Package,Field_Read_Dynamic 028e 0096 | | Execute Package,Entry 028f e7ff | | Load 0x3,-0x1 0290 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0291 00d1 | | Pop_Control Pop_Count_1 0292 c7fd | | Store 0x3,-0x3 0293 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0294 0000 0000 | | .BLANK 0000[0x4] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 029c 0000 0000 | | .BLANK 0000[0x4] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00da | | Load_Top At_Offset_2 02a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a5 680c |h | Jump_Zero 0x2b2 02a6 00da | | Load_Top At_Offset_2 02a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02a8 e020 | | Load 0x0,0x20 02a9 e008 | | Load 0x0,0x8 02aa e009 | | Load 0x0,0x9 02ab e405 | | Load 0x2,0x5 02ac 0098 | | Execute Package,Field_Read_Dynamic 02ad 0098 | | Execute Package,Field_Read_Dynamic 02ae 0096 | | Execute Package,Entry 02af 00db | | Load_Top At_Offset_3 02b0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b2 00da | | Load_Top At_Offset_2 02b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02b4 e021 | ! | Load 0x0,0x21 02b5 e006 | | Load 0x0,0x6 02b6 e405 | | Load 0x2,0x5 02b7 0098 | | Execute Package,Field_Read_Dynamic 02b8 0096 | | Execute Package,Entry 02b9 00db | | Load_Top At_Offset_3 02ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02bc 0000 0000 | | .BLANK 0000[0x4] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c7 | | .CONST 0x02c7 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0003 | | .CONST 0x0003 ; Number of locals 02c3 INIT_02c0: 02c3 00da | | Load_Top At_Offset_2 02c4 840e | | Call 0x2,0xe 02c5 e00a | | Load 0x0,0xa 02c6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02c7 BODY_02c0: 02c7 e00a | | Load 0x0,0xa 02c8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02c9 e7fe | | Load 0x3,-0x2 02ca 4800 |H | Short_Literal 0x0 02cb 602c |`, | Indirect_Literal Discrete,0x2f8,{0x00000000, 0x00004000} 02cc e019 | | Load 0x0,0x19 02cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ce e022 | " | Load 0x0,0x22 02cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d0 e00a | | Load 0x0,0xa 02d1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02d2 4800 |H | Short_Literal 0x0 02d3 e602 | | Load 0x3,0x2 02d4 4800 |H | Short_Literal 0x0 02d5 e00a | | Load 0x0,0xa 02d6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02d7 c7fe | | Store 0x3,-0x2 02d8 0059 | Y | Store_Top Discrete,At_Offset_1 02d9 e00a | | Load 0x0,0xa 02da 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02db c7fd | | Store 0x3,-0x3 02dc e00a | | Load 0x0,0xa 02dd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02de e7fe | | Load 0x3,-0x2 02df e00a | | Load 0x0,0xa 02e0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 02e1 6812 |h | Jump_Zero 0x2f4 02e2 e016 | | Load 0x0,0x16 02e3 180e | | Execute Package,Field_Execute,Field_Number 0xe 02e4 4807 |H | Short_Literal 0x7 02e5 00db | | Load_Top At_Offset_3 02e6 0092 0485 | | Action Push_String_Extended,0x485 ; " is empty." 02e8 01cc | | Execute Vector,Catenate 02e9 e017 | | Load 0x0,0x17 02ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02eb e016 | | Load 0x0,0x16 02ec 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ed 4808 |H | Short_Literal 0x8 02ee 0092 0486 | | Action Push_String_Extended,0x486 ; "Io_Exceptions.End_Error raised in Get_Xfer.Open." 02f0 e017 | | Load 0x0,0x17 02f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f2 4950 |IP | Short_Literal 0x150 02f3 0257 | W | Execute Discrete,Raise 02f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f5 0000 0000 | | .XXX[0x3] 02f7 0000 | | 02f8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 4800 |H | Short_Literal 0x0 0304 00db | | Load_Top At_Offset_3 0305 482f |H/ | Short_Literal 0x2f 0306 e018 | | Load 0x0,0x18 0307 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0308 0c01 | | Execute_Immediate Greater_Equal,0x1 0309 e7fe | | Load 0x3,-0x2 030a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 030b 00db | | Load_Top At_Offset_3 030c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 030d 6827 |h' | Jump_Zero 0x335 030e e40c | | Load 0x2,0xc 030f 00db | | Load_Top At_Offset_3 0310 840d | | Call 0x2,0xd 0311 e7fe | | Load 0x3,-0x2 0312 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0313 00d9 | | Load_Top At_Offset_1 0314 00db | | Load_Top At_Offset_3 0315 01d7 | | Execute Vector,Field_Read 0316 e7ff | | Load 0x3,-0x1 0317 8023 | # | Call 0x0,0x23 0318 00da | | Load_Top At_Offset_2 0319 e602 | | Load 0x3,0x2 031a 01d6 | | Execute Vector,Field_Write 031b e7fe | | Load 0x3,-0x2 031c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 031d 00d2 | | Pop_Control Pop_Count_2 031e 00db | | Load_Top At_Offset_3 031f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0320 8024 | $ | Call 0x0,0x24 0321 6812 |h | Jump_Zero 0x334 0322 e016 | | Load 0x0,0x16 0323 180e | | Execute Package,Field_Execute,Field_Number 0xe 0324 4807 |H | Short_Literal 0x7 0325 e7ff | | Load 0x3,-0x1 0326 0092 0485 | | Action Push_String_Extended,0x485 ; " is empty." 0328 01cc | | Execute Vector,Catenate 0329 e017 | | Load 0x0,0x17 032a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 032b e016 | | Load 0x0,0x16 032c 180e | | Execute Package,Field_Execute,Field_Number 0xe 032d 4808 |H | Short_Literal 0x8 032e 0092 0486 | | Action Push_String_Extended,0x486 ; "Io_Exceptions.End_Error raised in Get_Xfer.Open." 0330 e017 | | Load 0x0,0x17 0331 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0332 4950 |IP | Short_Literal 0x150 0333 0257 | W | Execute Discrete,Raise 0334 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0335 00db | | Load_Top At_Offset_3 0336 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0337 0120 | | Execute Any,Is_Value 0338 6803 |h | Jump_Zero 0x33c 0339 e00a | | Load 0x0,0xa 033a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 033b 7802 |x | Jump 0x33e 033c 00db | | Load_Top At_Offset_3 033d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 033e e7fe | | Load 0x3,-0x2 033f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0340 e7ff | | Load 0x3,-0x1 0341 8415 | | Call 0x2,0x15 0342 e7fe | | Load 0x3,-0x2 0343 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0344 e7fe | | Load 0x3,-0x2 0345 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0346 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0347 0000 | | .XXX[0x1] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034d | M | .CONST 0x034d ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0002 | | .CONST 0x0002 ; Number of locals 034b INIT_0348: 034b 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call 034d BODY_0348: 034d 00db | | Load_Top At_Offset_3 034e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 034f 680a |h | Jump_Zero 0x35a 0350 00e3 | | Load_Encached Natural_Cache 0351 e7fe | | Load 0x3,-0x2 0352 e7ff | | Load 0x3,-0x1 0353 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0354 8025 | % | Call 0x0,0x25 0355 e7ff | | Load 0x3,-0x1 0356 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0357 00d1 | | Pop_Control Pop_Count_1 0358 c7fd | | Store 0x3,-0x3 0359 4501 |E | Exit_Suprogram New_Top_Offset 0x1 035a 8602 | | Call 0x3,0x2 035b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 035c 0000 0000 | | .BLANK 0000[0x4] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0365 | e | .CONST 0x0365 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0002 | | .CONST 0x0002 ; Number of locals 0363 INIT_0360: 0363 e00a | | Load 0x0,0xa 0364 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0365 BODY_0360: 0365 00db | | Load_Top At_Offset_3 0366 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0367 6806 |h | Jump_Zero 0x36e 0368 00db | | Load_Top At_Offset_3 0369 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 036a 8026 | & | Call 0x0,0x26 036b e7ff | | Load 0x3,-0x1 036c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 036d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 036e e00a | | Load 0x0,0xa 036f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0370 e7ff | | Load 0x3,-0x1 0371 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0372 e00a | | Load 0x0,0xa 0373 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0374 e7ff | | Load 0x3,-0x1 0375 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0376 0059 | Y | Store_Top Discrete,At_Offset_1 0377 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 038b | | .CONST 0x038b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0004 | | .CONST 0x0004 ; Number of locals 037b INIT_0378: 037b 0092 0487 | | Action Push_String_Extended,0x487 ; ".XFER" 037d 4800 |H | Short_Literal 0x0 037e e7ff | | Load 0x3,-0x1 037f 482e |H. | Short_Literal 0x2e 0380 e018 | | Load 0x0,0x18 0381 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0382 00e2 | | Load_Encached Integer_Cache 0383 03f1 | | Declare_Variable Discrete,With_Value 0384 4800 |H | Short_Literal 0x0 0385 e7ff | | Load 0x3,-0x1 0386 483a |H: | Short_Literal 0x3a 0387 e018 | | Load 0x0,0x18 0388 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0389 00e2 | | Load_Encached Integer_Cache 038a 03f1 | | Declare_Variable Discrete,With_Value 038b BODY_0378: 038b 00d9 | | Load_Top At_Offset_1 038c 00d9 | | Load_Top At_Offset_1 038d 027d | } | Execute Discrete,Greater 038e 6802 |h | Jump_Zero 0x391 038f e7ff | | Load 0x3,-0x1 0390 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0391 e7ff | | Load 0x3,-0x1 0392 00db | | Load_Top At_Offset_3 0393 01cc | | Execute Vector,Catenate 0394 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0395 0000 0000 | | .XXX[0x3] 0397 0000 | | 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a9 | | .CONST 0x03a9 ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0002 | | .CONST 0x0002 ; Number of locals 039b INIT_0398: 039b e7ff | | Load 0x3,-0x1 039c 01dd | | Execute Vector,First 039d e7ff | | Load 0x3,-0x1 039e 01dd | | Execute Vector,First 039f 0a03 | | Execute_Immediate Plus,0x3 03a0 00d8 | | Load_Top At_Offset_0 03a1 00e2 | | Load_Encached Integer_Cache 03a2 0260 | ` | Execute Discrete,In_Type 03a3 7001 |p | Jump_Nonzero 0x3a5 03a4 0801 | | Execute_Immediate Raise,0x1 03a5 00e9 | | Load_Encached String_Cache 03a6 035b | [ | Declare_Type Array,Constrained 03a7 e7ff | | Load 0x3,-0x1 03a8 01cd | | Execute Vector,Slice_Reference 03a9 BODY_0398: 03a9 00cf | | Action Mark_Auxiliary 03aa e016 | | Load 0x0,0x16 03ab 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 03ac 0266 | f | Execute Discrete,Bounds 03ad 0007 | | Action Break_Optional 03ae 00d8 | | Load_Top At_Offset_0 03af e017 | | Load 0x0,0x17 03b0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 03b1 e802 | | Load 0x4,0x2 03b2 01df | | Execute Vector,Equal 03b3 6813 |h | Jump_Zero 0x3c7 03b4 e016 | | Load 0x0,0x16 03b5 180e | | Execute Package,Field_Execute,Field_Number 0xe 03b6 00d9 | | Load_Top At_Offset_1 03b7 e7ff | | Load 0x3,-0x1 03b8 01dd | | Execute Vector,First 03b9 0a04 | | Execute_Immediate Plus,0x4 03ba 00d8 | | Load_Top At_Offset_0 03bb 00e2 | | Load_Encached Integer_Cache 03bc 0260 | ` | Execute Discrete,In_Type 03bd 7001 |p | Jump_Nonzero 0x3bf 03be 0801 | | Execute_Immediate Raise,0x1 03bf e7ff | | Load 0x3,-0x1 03c0 01dc | | Execute Vector,Last 03c1 e7ff | | Load 0x3,-0x1 03c2 01cf | | Execute Vector,Slice_Read 03c3 e017 | | Load 0x0,0x17 03c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c5 00cc | | Action Pop_Block 03c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c7 00c8 | | Action Pop_Auxiliary_Range 03c8 37e5 |7 | Loop_Decreasing 0x3ae 03c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ca 0000 0000 | | .BLANK 0000[0x6] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03e2 | | .CONST 0x03e2 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0004 | | .CONST 0x0004 ; Number of locals 03d3 INIT_03d0: 03d3 4820 |H | Short_Literal 0x20 03d4 e7ff | | Load 0x3,-0x1 03d5 e018 | | Load 0x0,0x18 03d6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03d7 4800 |H | Short_Literal 0x0 03d8 00d9 | | Load_Top At_Offset_1 03d9 4820 |H | Short_Literal 0x20 03da e018 | | Load 0x0,0x18 03db 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03dc 00e2 | | Load_Encached Integer_Cache 03dd 03f1 | | Declare_Variable Discrete,With_Value 03de 00d9 | | Load_Top At_Offset_1 03df 01dd | | Execute Vector,First 03e0 00e2 | | Load_Encached Integer_Cache 03e1 03f1 | | Declare_Variable Discrete,With_Value 03e2 BODY_03d0: 03e2 00d9 | | Load_Top At_Offset_1 03e3 7003 |p | Jump_Nonzero 0x3e7 03e4 00da | | Load_Top At_Offset_2 03e5 01dc | | Execute Vector,Last 03e6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 03e7 4801 |H | Short_Literal 0x1 03e8 0092 0488 | | Action Push_String_Extended,0x488 ; "Unable " 03ea 00da | | Load_Top At_Offset_2 03eb e803 | | Load 0x4,0x3 03ec e802 | | Load 0x4,0x2 03ed 01cf | | Execute Vector,Slice_Read 03ee e018 | | Load 0x0,0x18 03ef 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 03f0 701e |p | Jump_Nonzero 0x40f 03f1 4801 |H | Short_Literal 0x1 03f2 0092 0489 | | Action Push_String_Extended,0x489 ; "Possible " 03f4 00da | | Load_Top At_Offset_2 03f5 e803 | | Load 0x4,0x3 03f6 e802 | | Load 0x4,0x2 03f7 01cf | | Execute Vector,Slice_Read 03f8 e018 | | Load 0x0,0x18 03f9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 03fa 7014 |p | Jump_Nonzero 0x40f 03fb 4801 |H | Short_Literal 0x1 03fc 0092 048a | | Action Push_String_Extended,0x48a ; "Eedb.Configuration.Intolerant_Get_Position." 03fe 00da | | Load_Top At_Offset_2 03ff e803 | | Load 0x4,0x3 0400 e802 | | Load 0x4,0x2 0401 01cf | | Execute Vector,Slice_Read 0402 e018 | | Load 0x0,0x18 0403 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0404 700a |p | Jump_Nonzero 0x40f 0405 4801 |H | Short_Literal 0x1 0406 0092 048b | | Action Push_String_Extended,0x48b ; "Cannot " 0408 00da | | Load_Top At_Offset_2 0409 e803 | | Load 0x4,0x3 040a e802 | | Load 0x4,0x2 040b 01cf | | Execute Vector,Slice_Read 040c e018 | | Load 0x0,0x18 040d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 040e 6807 |h | Jump_Zero 0x416 040f e016 | | Load 0x0,0x16 0410 180e | | Execute Package,Field_Execute,Field_Number 0xe 0411 4807 |H | Short_Literal 0x7 0412 e802 | | Load 0x4,0x2 0413 e017 | | Load 0x0,0x17 0414 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0415 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0416 4801 |H | Short_Literal 0x1 0417 0092 048c | | Action Push_String_Extended,0x48c ; "Warning: " 0419 00da | | Load_Top At_Offset_2 041a e803 | | Load 0x4,0x3 041b e802 | | Load 0x4,0x2 041c 01cf | | Execute Vector,Slice_Read 041d e018 | | Load 0x0,0x18 041e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 041f 6807 |h | Jump_Zero 0x427 0420 e016 | | Load 0x0,0x16 0421 180e | | Execute Package,Field_Execute,Field_Number 0xe 0422 4806 |H | Short_Literal 0x6 0423 e802 | | Load 0x4,0x2 0424 e017 | | Load 0x0,0x17 0425 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0426 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0427 e016 | | Load 0x0,0x16 0428 180e | | Execute Package,Field_Execute,Field_Number 0xe 0429 4802 |H | Short_Literal 0x2 042a e802 | | Load 0x4,0x2 042b e017 | | Load 0x0,0x17 042c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 042d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 042e 0000 0000 | | .XXX[0x2] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0441 | A | .CONST 0x0441 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0002 | | .CONST 0x0002 ; Number of locals 0433 INIT_0430: 0433 e7ff | | Load 0x3,-0x1 0434 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0435 e00a | | Load 0x0,0xa 0436 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0437 e00a | | Load 0x0,0xa 0438 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0439 e7ff | | Load 0x3,-0x1 043a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 043b e00a | | Load 0x0,0xa 043c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 043d 0272 | r | Execute Discrete,Minus 043e 09fd | | Execute_Immediate Binary_Scale,-0x3 043f 00e5 | | Load_Encached Long_Integer_Cache 0440 03f1 | | Declare_Variable Discrete,With_Value 0441 BODY_0430: 0441 00d8 | | Load_Top At_Offset_0 0442 0d01 | | Execute_Immediate Less,0x1 0443 6803 |h | Jump_Zero 0x447 0444 4800 |H | Short_Literal 0x0 0445 a7fd | | Store_Unchecked 0x3,-0x3 0446 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0447 00d8 | | Load_Top At_Offset_0 0448 e7fe | | Load 0x3,-0x2 0449 01db | | Execute Vector,Length 044a 027c | | | Execute Discrete,Less 044b 6825 |h% | Jump_Zero 0x471 044c e7fe | | Load 0x3,-0x2 044d 00d8 | | Load_Top At_Offset_0 044e 01dd | | Execute Vector,First 044f e7fe | | Load 0x3,-0x2 0450 01dd | | Execute Vector,First 0451 00db | | Load_Top At_Offset_3 0452 00d8 | | Load_Top At_Offset_0 0453 00e3 | | Load_Encached Natural_Cache 0454 0260 | ` | Execute Discrete,In_Type 0455 7001 |p | Jump_Nonzero 0x457 0456 0801 | | Execute_Immediate Raise,0x1 0457 0273 | s | Execute Discrete,Plus 0458 0aff | | Execute_Immediate Plus,-0x1 0459 00d8 | | Load_Top At_Offset_0 045a 00e2 | | Load_Encached Integer_Cache 045b 0260 | ` | Execute Discrete,In_Type 045c 7001 |p | Jump_Nonzero 0x45e 045d 0801 | | Execute_Immediate Raise,0x1 045e 00da | | Load_Top At_Offset_2 045f 035b | [ | Declare_Type Array,Constrained 0460 00d0 | | Action Swap_Control 0461 01cd | | Execute Vector,Slice_Reference 0462 00e3 | | Load_Encached Natural_Cache 0463 00d9 | | Load_Top At_Offset_1 0464 e7ff | | Load 0x3,-0x1 0465 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0466 e7ff | | Load 0x3,-0x1 0467 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0468 e00a | | Load 0x0,0xa 0469 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 046a 180f | | Execute Package,Field_Execute,Field_Number 0xf 046b e7ff | | Load 0x3,-0x1 046c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 046d 00d1 | | Pop_Control Pop_Count_1 046e c7fd | | Store 0x3,-0x3 046f 00d1 | | Pop_Control Pop_Count_1 0470 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0471 00e3 | | Load_Encached Natural_Cache 0472 e7fe | | Load 0x3,-0x2 0473 e7ff | | Load 0x3,-0x1 0474 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0475 e7ff | | Load 0x3,-0x1 0476 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0477 e00a | | Load 0x0,0xa 0478 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 0479 180f | | Execute Package,Field_Execute,Field_Number 0xf 047a e7ff | | Load 0x3,-0x1 047b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 047c 00d1 | | Pop_Control Pop_Count_1 047d c7fd | | Store 0x3,-0x3 047e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 047f ; -------------------------------------------------------------------------------------- 047f ; STRING TABLE 047f ; -------------------------------------------------------------------------------------- 047f 001e | | .STRTAB 0x001e->0x048e ; "XFER" 0480 0020 | | .STRTAB 0x0020->0x0490 ; "MLOAD" 0481 0023 | # | .STRTAB 0x0023->0x0492 ; "SEG" 0482 0024 | $ | .STRTAB 0x0024->0x0494 ; "OTHER" 0483 0027 | ' | .STRTAB 0x0027->0x0496 ; "!!" 0484 0027 | ' | .STRTAB 0x0027->0x0497 ; "Since FTP supports Polymorphic_IO only for Binary files and the MV does not support Binary transfers, this highly optimized transfer procedure cannot be used to transfer segments from an MV. Use the original Release_Tools.Get_Xfer" 0485 010b | | .STRTAB 0x010b->0x050a ; " is empty." 0486 0113 | | .STRTAB 0x0113->0x050f ; "Io_Exceptions.End_Error raised in Get_Xfer.Open." 0487 0141 | A | .STRTAB 0x0141->0x0527 ; ".XFER" 0488 0144 | D | .STRTAB 0x0144->0x052a ; "Unable " 0489 0149 | I | .STRTAB 0x0149->0x052d ; "Possible " 048a 0150 | P | .STRTAB 0x0150->0x0532 ; "Eedb.Configuration.Intolerant_Get_Position." 048b 0179 | y | .STRTAB 0x0179->0x0547 ; "Cannot " 048c 017e | ~ | .STRTAB 0x017e->0x054b ; "Warning: " 048d 0185 | | .STREND 0x0185->0x054f 048e 5846 4552 |XFER| .STRTAB_STRINGS 0550 ; -------------------------------------------------------------------------------------- 0550 ; Debug Table 0550 ; -------------------------------------------------------------------------------------- 0550 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b71,0x0000,0x0001,0x0000 0556 0000 0038 | 8| .XXX[0x50] 0558 0000 0000 | | 055a 000f 558e | U | 055c 0268 0004 | h | 055e b678 0000 | x | 0560 0090 0000 | | 0562 0000 003d | =| 0564 5aa8 09a0 |Z | 0566 0053 4780 | SG | 0568 0000 0360 | `| 056a 0000 0000 | | 056c 00f5 7c60 | |`| 056e 2680 014d |& M| 0570 1e00 0000 | | 0572 0c80 0000 | | 0574 0000 03d6 | | 0576 3880 9800 |8 | 0578 0534 7800 | 4x | 057a 0000 1a00 | | 057c 0000 0000 | | 057e 0f59 fe02 | Y | 0580 6000 14d1 |` | 0582 e000 0000 | | 0584 7800 0000 |x | 0586 0000 3d6c | =l| 0588 6809 8000 |h | 058a 5347 8000 |SG | 058c 0002 4000 | @ | 058e 0000 0000 | | 0590 f5c3 6026 | `&| 0592 8000 4b67 | Kg| 0594 8000 000d | | 0596 0000 0000 | | 0598 0003 d754 | T| 059a 809a 0005 | | 059c 3478 0000 |4x | 059e 0030 0000 | 0 | 05a0 0000 000f | | 05a2 5e6e 0400 |^n | 05a4 0001 4270 | Bp| 05a6 0000 0000 | | .BLANK 0000[0x4] 05aa 003d 7e28 | =~(| .XXX[0x5] 05ac 1000 0052 | R| 05ae 0600 | | 05af 0000 0000 | | .BLANK 0000[0x4] 05b3 00f6 0a60 | `| .XXX[0x17] 05b5 1300 0000 | | 05b7 0080 08f9 | | 05b9 1100 0000 | | 05bb 0000 03d8 | | 05bd 7080 4e00 |p N | 05bf 0000 0000 | | 05c1 0000 1400 | | 05c3 0000 0000 | | 05c5 0f62 de04 | b | 05c7 0000 050f | | 05c9 6000 |` | 05ca 0000 0000 | | .BLANK 0000[0x4] 05ce 3d8f e810 |= | .XXX[0x5] 05d0 0000 13a8 | | 05d2 c000 | | 05d3 0000 0000 | | .BLANK 0000[0x4] 05d7 f651 6026 | Q`&| .XXX[0x29] 05d9 8000 4b67 | Kg| 05db 8000 000c | | 05dd 0000 0000 | | 05df 0003 d98c | | 05e1 809a 0001 | | 05e3 2d9e 0000 |- | 05e5 001c 0000 | | 05e7 0000 000f | | 05e9 674e 0268 |gN h| 05eb 0004 b678 | x| 05ed 0000 0078 | x| 05ef 0000 0000 | | 05f1 003d a1a8 | = | 05f3 09a0 0012 | | 05f5 d9e0 0000 | | 05f7 0200 0000 | | 05f9 0000 00f6 | | 05fb 9860 2680 | `& | 05fd 004b 6780 | Kg | 05ff 0000 | |