|
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 0000 | | .BLANK 0000[0x6]
055c 330c 0010 |3 | .XXX[0x11]
055e 0007 97f3 | |
0560 97f6 08b3 | |
0562 97f8 2804 | ( |
0564 0360 038c | ` |
0566 0981 c004 | |
0568 2007 97fe | |
056a 0918 0731 | 1|
056c 1010 | |
056d 0000 0000 | | .BLANK 0000[0x7]
0574 3388 0010 |3 | .XXX[0x33]
0576 0008 0369 | i|
0578 25d4 03ac |% |
057a 0260 6090 | `` |
057c 038c 0fb3 | |
057e 97f8 0364 | d|
0580 09f1 a043 | C|
0582 97f8 2804 | ( |
0584 0360 038c | ` |
0586 0981 c004 | |
0588 2007 97fe | |
058a 091a 0917 | |
058c 97f4 0730 | 0|
058e 0248 4480 | HD |
0590 0731 100f | 1 |
0592 97f8 0364 | d|
0594 09fd a03d | =|
0596 2007 97fb | |
0598 97fd 25d4 | % |
059a 03ac 0260 | `|
059c 60b7 803c |` <|
059e 60eb 97f4 |` |
05a0 0730 0248 | 0 H|
05a2 4480 0731 |D 1|
05a4 100c 03a9 | |
05a6 100c | |
05a7 0000 0000 | | .BLANK 0000[0x5]
05ac 3480 0010 |4 | .XXX[0x54]
05ae 0024 03bc | $ |
05b0 038c 038f | |
05b2 80c4 0b1c | |
05b4 0360 7000 | `p |
05b6 0388 03b0 | |
05b8 0a7c 414c | |AL|
05ba 0a7c 418f | |A |
05bc 97fe 97e7 | |
05be 97f7 97fb | |
05c0 97fe 08f9 | |
05c2 a017 97f7 | |
05c4 97fa 08b2 | |
05c6 1025 141b | % |
05c8 97fc 03ac | |
05ca 6050 3c99 |`P< |
05cc a00f 97fc | |
05ce 00cd e00c | |
05d0 03ac 6048 | `H|
05d2 00cf 97fa | |
05d4 08ff 1017 | |
05d6 97ff 803c | <|
05d8 60ee 900b |` |
05da 9009 25d4 | % |
05dc 03ac 0260 | `|
05de 6093 1010 |` |
05e0 038f 9013 | |
05e2 900a 0913 | |
05e4 100f 900d | |
05e6 a0cf 97e0 | |
05e8 038f 901f | |
05ea 97f7 9017 | |
05ec 900f 9009 | |
05ee 25d4 03ac |% |
05f0 0260 60b6 | `` |
05f2 08d3 101b | |
05f4 17e1 200b | |
05f6 97e3 8008 | |
05f8 6041 a05f |`A _|
05fa 97e9 2007 | |
05fc 97fe 0857 | W|
05fe 97ec 0733 | 3|