|
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_5e40f2
└─⟦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 0548 | H | .CONST 0x0548 ; 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 00a9 | | .CONST 0x00a9 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 001b | | .CONST 0x001b ; 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 e001 | | Load 0x0,0x1
0020 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0021 0007 | | Action Break_Optional
0022 029e 00fb | | Declare_Subprogram INIT_00f8,For_Call,Unelaborated
0024 e002 | | Load 0x0,0x2
0025 e003 | | Load 0x0,0x3
0026 4805 |H | Short_Literal 0x5
0027 4802 |H | Short_Literal 0x2
0028 0099 | | Action Reference_Dynamic
0029 e5fc | | Load 0x2,-0x4
002a e004 | | Load 0x0,0x4
002b 0387 | | Declare_Variable Package
002c 00d8 | | Load_Top At_Offset_0
002d 020f | | Execute Module,Activate
002e 4800 |H | Short_Literal 0x0
002f 4803 |H | Short_Literal 0x3
0030 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0032 03fd | | Declare_Type Discrete,Defined
0033 00e1 | | Load_Encached Boolean_Cache
0034 00da | | Load_Top At_Offset_2
0035 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0036 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0037 00db | | Load_Top At_Offset_3
0038 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0039 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
003a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003b 02a0 | | Declare_Subprogram Null_Subprogram
003c 4803 |H | Short_Literal 0x3
003d 032d | - | Declare_Type Record,Defined
003e 00e1 | | Load_Encached Boolean_Cache
003f e005 | | Load 0x0,0x5
0040 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0041 e005 | | Load 0x0,0x5
0042 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0043 e006 | | Load 0x0,0x6
0044 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0045 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0047 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0049 4804 |H | Short_Literal 0x4
004a 032d | - | Declare_Type Record,Defined
004b 00da | | Load_Top At_Offset_2
004c 0266 | f | Execute Discrete,Bounds
004d e406 | | Load 0x2,0x6
004e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
004f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0050 02a0 | | Declare_Subprogram Null_Subprogram
0051 4801 |H | Short_Literal 0x1
0052 035d | ] | Declare_Type Array,Defined
0053 00d8 | | Load_Top At_Offset_0
0054 0337 | 7 | Declare_Variable Array
0055 e407 | | Load 0x2,0x7
0056 0266 | f | Execute Discrete,Bounds
0057 e006 | | Load 0x0,0x6
0058 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0059 1b17 | | Execute Package,Field_Read,Field_Number 0x17
005a 02a0 | | Declare_Subprogram Null_Subprogram
005b 4801 |H | Short_Literal 0x1
005c 035d | ] | Declare_Type Array,Defined
005d 00d8 | | Load_Top At_Offset_0
005e 0337 | 7 | Declare_Variable Array
005f 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
0061 4805 |H | Short_Literal 0x5
0062 4802 |H | Short_Literal 0x2
0063 0099 | | Action Reference_Dynamic
0064 00c7 | | Action Elaborate_Subprogram
0065 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0067 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0069 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
006b 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
006d 029f 028b | | Declare_Subprogram INIT_0288,For_Call
006f 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
0071 e007 | | Load 0x0,0x7
0072 e008 | | Load 0x0,0x8
0073 e408 | | Load 0x2,0x8
0074 4811 |H | Short_Literal 0x11
0075 4802 |H | Short_Literal 0x2
0076 0099 | | Action Reference_Dynamic
0077 4814 |H | Short_Literal 0x14
0078 4802 |H | Short_Literal 0x2
0079 0099 | | Action Reference_Dynamic
007a 4812 |H | Short_Literal 0x12
007b 4802 |H | Short_Literal 0x2
007c 0099 | | Action Reference_Dynamic
007d 4813 |H | Short_Literal 0x13
007e 4802 |H | Short_Literal 0x2
007f 0099 | | Action Reference_Dynamic
0080 4805 |H | Short_Literal 0x5
0081 4802 |H | Short_Literal 0x2
0082 0099 | | Action Reference_Dynamic
0083 606c |`l | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000400}
0084 e009 | | Load 0x0,0x9
0085 0387 | | Declare_Variable Package
0086 00d8 | | Load_Top At_Offset_0
0087 020f | | Execute Module,Activate
0088 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
008a 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
008c 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
008e 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
0090 e00a | | Load 0x0,0xa
0091 e00b | | Load 0x0,0xb
0092 e409 | | Load 0x2,0x9
0093 4817 |H | Short_Literal 0x17
0094 4802 |H | Short_Literal 0x2
0095 0099 | | Action Reference_Dynamic
0096 4819 |H | Short_Literal 0x19
0097 4802 |H | Short_Literal 0x2
0098 0099 | | Action Reference_Dynamic
0099 4818 |H | Short_Literal 0x18
009a 4802 |H | Short_Literal 0x2
009b 0099 | | Action Reference_Dynamic
009c 4813 |H | Short_Literal 0x13
009d 4802 |H | Short_Literal 0x2
009e 0099 | | Action Reference_Dynamic
009f 4805 |H | Short_Literal 0x5
00a0 4802 |H | Short_Literal 0x2
00a1 0099 | | Action Reference_Dynamic
00a2 604d |`M | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000400}
00a3 e009 | | Load 0x0,0x9
00a4 0387 | | Declare_Variable Package
00a5 00d8 | | Load_Top At_Offset_0
00a6 020f | | Execute Module,Activate
00a7 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
00a9 BODY_0018:
00a9 e5ff | | Load 0x2,-0x1
00aa 01dd | | Execute Vector,First
00ab e5ff | | Load 0x2,-0x1
00ac 01dd | | Execute Vector,First
00ad 0a01 | | Execute_Immediate Plus,0x1
00ae 00d8 | | Load_Top At_Offset_0
00af 00e2 | | Load_Encached Integer_Cache
00b0 0260 | ` | Execute Discrete,In_Type
00b1 7001 |p | Jump_Nonzero 0xb3
00b2 0801 | | Execute_Immediate Raise,0x1
00b3 e5ff | | Load 0x2,-0x1
00b4 01cf | | Execute Vector,Slice_Read
00b5 0092 047b | {| Action Push_String_Extended,0x47b ; "!!"
00b7 01df | | Execute Vector,Equal
00b8 681e |h | Jump_Zero 0xd7
00b9 00e1 | | Load_Encached Boolean_Cache
00ba e5fd | | Load 0x2,-0x3
00bb e5fe | | Load 0x2,-0x2
00bc e5ff | | Load 0x2,-0x1
00bd e00c | | Load 0x0,0xc
00be 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00bf 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c0 e406 | | Load 0x2,0x6
00c1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c3 c403 | | Store 0x2,0x3
00c4 e403 | | Load 0x2,0x3
00c5 6810 |h | Jump_Zero 0xd6
00c6 e402 | | Load 0x2,0x2
00c7 00e1 | | Load_Encached Boolean_Cache
00c8 6027 |`' | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000400}
00c9 e5fc | | Load 0x2,-0x4
00ca e5ff | | Load 0x2,-0x1
00cb e00c | | Load 0x0,0xc
00cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cd 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00ce 841b | | Call 0x2,0x1b
00cf e415 | | Load 0x2,0x15
00d0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d1 c403 | | Store 0x2,0x3
00d2 c402 | | Store 0x2,0x2
00d3 e406 | | Load 0x2,0x6
00d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00d7 e5ff | | Load 0x2,-0x1
00d8 01dd | | Execute Vector,First
00d9 e5ff | | Load 0x2,-0x1
00da 01d7 | | Execute Vector,Field_Read
00db 0f3a | : | Execute_Immediate Equal,0x3a
00dc 6808 |h | Jump_Zero 0xe5
00dd e00d | | Load 0x0,0xd
00de 180e | | Execute Package,Field_Execute,Field_Number 0xe
00df 4805 |H | Short_Literal 0x5
00e0 0092 047c | || Action Push_String_Extended,0x47c ; "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"
00e2 e00e | | Load 0x0,0xe
00e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00e5 e402 | | Load 0x2,0x2
00e6 00e1 | | Load_Encached Boolean_Cache
00e7 6008 |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00000400}
00e8 e5fc | | Load 0x2,-0x4
00e9 e5ff | | Load 0x2,-0x1
00ea 841b | | Call 0x2,0x1b
00eb e41a | | Load 0x2,0x1a
00ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ed c403 | | Store 0x2,0x3
00ee c402 | | Store 0x2,0x2
00ef 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00f0 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00ff | | .CONST 0x00ff ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
00fd 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
00ff BODY_00f8:
00ff e7ff | | Load 0x3,-0x1
0100 01db | | Execute Vector,Length
0101 0c04 | | Execute_Immediate Greater_Equal,0x4
0102 6801 |h | Jump_Zero 0x104
0103 8602 | | Call 0x3,0x2
0104 8603 | | Call 0x3,0x3
0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4607 |F | Jump_Case 0x8
010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
010d 7806 |x | Jump 0x114 ; case 0x1
010e 7809 |x | Jump 0x118 ; case 0x2
010f 780d |x | Jump 0x11d ; case 0x3
0110 7810 |x | Jump 0x121 ; case 0x4
0111 7811 |x | Jump 0x123 ; case 0x5
0112 7812 |x | Jump 0x125 ; case 0x6
0113 7815 |x | Jump 0x129 ; case 0x7
0114 00da | | Load_Top At_Offset_2
0115 0091 0477 | w| Action Push_String_Extended_Indexed,0x477 ; "XFER"
0117 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0118 00db | | Load_Top At_Offset_3
0119 00db | | Load_Top At_Offset_3
011a 00e0 | | Load_Encached Standard_Cache
011b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011d 00da | | Load_Top At_Offset_2
011e 00e0 | | Load_Encached Standard_Cache
011f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0120 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0121 00db | | Load_Top At_Offset_3
0122 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0123 00db | | Load_Top At_Offset_3
0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0125 e407 | | Load 0x2,0x7
0126 00dc | | Load_Top At_Offset_4
0127 0267 | g | Execute Discrete,Predecessor
0128 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0129 e407 | | Load 0x2,0x7
012a 00dc | | Load_Top At_Offset_4
012b 0268 | h | Execute Discrete,Successor
012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 4608 |F | Jump_Case 0x9
0134 7808 |x | Jump 0x13d ; case 0x0
0135 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0136 7813 |x | Jump 0x14a ; case 0x2
0137 7812 |x | Jump 0x14a ; case 0x3
0138 7811 |x | Jump 0x14a ; case 0x4
0139 7810 |x | Jump 0x14a ; case 0x5
013a 780f |x | Jump 0x14a ; case 0x6
013b 780e |x | Jump 0x14a ; case 0x7
013c 780d |x | Jump 0x14a ; case 0x8
013d 00da | | Load_Top At_Offset_2
013e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
013f 0125 | % | Execute Any,Set_Constraint
0140 00da | | Load_Top At_Offset_2
0141 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0142 1c00 | | Execute_Immediate Run_Utility,0x0
0143 00da | | Load_Top At_Offset_2
0144 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0145 0125 | % | Execute Any,Set_Constraint
0146 00da | | Load_Top At_Offset_2
0147 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0148 1c00 | | Execute_Immediate Run_Utility,0x0
0149 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
014a 0869 | i | Execute_Immediate Raise,0x69
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015a | Z | .CONST 0x015a ; Address of begin
0151 0168 | h | .CONST 0x0168 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 4800 |H | Short_Literal 0x0
0154 00db | | Load_Top At_Offset_3
0155 482e |H. | Short_Literal 0x2e
0156 e001 | | Load 0x0,0x1
0157 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0158 00e2 | | Load_Encached Integer_Cache
0159 03f1 | | Declare_Variable Discrete,With_Value
015a BODY_0150:
015a 00d8 | | Load_Top At_Offset_0
015b 0a01 | | Execute_Immediate Plus,0x1
015c 00d8 | | Load_Top At_Offset_0
015d 00e2 | | Load_Encached Integer_Cache
015e 0260 | ` | Execute Discrete,In_Type
015f 7001 |p | Jump_Nonzero 0x161
0160 0801 | | Execute_Immediate Raise,0x1
0161 e7ff | | Load 0x3,-0x1
0162 01dc | | Execute Vector,Last
0163 e7ff | | Load 0x3,-0x1
0164 01cf | | Execute Vector,Slice_Read
0165 e407 | | Load 0x2,0x7
0166 1c02 | | Execute_Immediate Run_Utility,0x2
0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0168 TRAP_0150:
0168 0007 | | Action Break_Optional
0169 4803 |H | Short_Literal 0x3
016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0192 | | .CONST 0x0192 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0005 | | .CONST 0x0005 ; Number of locals
0173 INIT_0170:
0173 4801 |H | Short_Literal 0x1
0174 00db | | Load_Top At_Offset_3
0175 01db | | Execute Vector,Length
0176 00d8 | | Load_Top At_Offset_0
0177 00e2 | | Load_Encached Integer_Cache
0178 0260 | ` | Execute Discrete,In_Type
0179 7001 |p | Jump_Nonzero 0x17b
017a 0801 | | Execute_Immediate Raise,0x1
017b 00e9 | | Load_Encached String_Cache
017c 035b | [ | Declare_Type Array,Constrained
017d 0337 | 7 | Declare_Variable Array
017e 00db | | Load_Top At_Offset_3
017f 8404 | | Call 0x2,0x4
0180 00d9 | | Load_Top At_Offset_1
0181 01d4 | | Execute Vector,Structure_Write
0182 4800 |H | Short_Literal 0x0
0183 00d9 | | Load_Top At_Offset_1
0184 483a |H: | Short_Literal 0x3a
0185 e001 | | Load 0x0,0x1
0186 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0187 00e2 | | Load_Encached Integer_Cache
0188 03f1 | | Declare_Variable Discrete,With_Value
0189 4800 |H | Short_Literal 0x0
018a 00da | | Load_Top At_Offset_2
018b 482e |H. | Short_Literal 0x2e
018c e001 | | Load 0x0,0x1
018d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
018e 00e2 | | Load_Encached Integer_Cache
018f 03f1 | | Declare_Variable Discrete,With_Value
0190 00d8 | | Load_Top At_Offset_0
0191 0007 | | Action Break_Optional
0192 BODY_0170:
0192 4801 |H | Short_Literal 0x1
0193 e602 | | Load 0x3,0x2
0194 01d7 | | Execute Vector,Field_Read
0195 0e3a | : | Execute_Immediate Not_Equal,0x3a
0196 6851 |hQ | Jump_Zero 0x1e8
0197 00da | | Load_Top At_Offset_2
0198 0c01 | | Execute_Immediate Greater_Equal,0x1
0199 6805 |h | Jump_Zero 0x19f
019a 482e |H. | Short_Literal 0x2e
019b 00db | | Load_Top At_Offset_3
019c e602 | | Load 0x3,0x2
019d 01d6 | | Execute Vector,Field_Write
019e 7804 |x | Jump 0x1a3
019f 00db | | Load_Top At_Offset_3
01a0 00e9 | | Load_Encached String_Cache
01a1 01c6 | | Execute Vector,Convert_To_Formal
01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a3 00cf | | Action Mark_Auxiliary
01a4 7814 |x | Jump 0x1b9
01a5 485f |H_ | Short_Literal 0x5f
01a6 00db | | Load_Top At_Offset_3
01a7 e602 | | Load 0x3,0x2
01a8 01d6 | | Execute Vector,Field_Write
01a9 4800 |H | Short_Literal 0x0
01aa e603 | | Load 0x3,0x3
01ab 0a01 | | Execute_Immediate Plus,0x1
01ac 00d8 | | Load_Top At_Offset_0
01ad 00e2 | | Load_Encached Integer_Cache
01ae 0260 | ` | Execute Discrete,In_Type
01af 7001 |p | Jump_Nonzero 0x1b1
01b0 0801 | | Execute_Immediate Raise,0x1
01b1 e604 | | Load 0x3,0x4
01b2 e602 | | Load 0x3,0x2
01b3 01cf | | Execute Vector,Slice_Read
01b4 482e |H. | Short_Literal 0x2e
01b5 e001 | | Load 0x0,0x1
01b6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01b8 00c9 | | Action Pop_Auxiliary_Loop
01b9 00da | | Load_Top At_Offset_2
01ba e603 | | Load 0x3,0x3
01bb 027d | } | Execute Discrete,Greater
01bc 77e8 |w | Jump_Nonzero 0x1a5
01bd 00ce | | Action Pop_Auxiliary
01be 00d8 | | Load_Top At_Offset_0
01bf 00db | | Load_Top At_Offset_3
01c0 027d | } | Execute Discrete,Greater
01c1 6826 |h& | Jump_Zero 0x1e8
01c2 485f |H_ | Short_Literal 0x5f
01c3 4801 |H | Short_Literal 0x1
01c4 e603 | | Load 0x3,0x3
01c5 e602 | | Load 0x3,0x2
01c6 01cf | | Execute Vector,Slice_Read
01c7 00da | | Load_Top At_Offset_2
01c8 0a01 | | Execute_Immediate Plus,0x1
01c9 00d8 | | Load_Top At_Offset_0
01ca 00e2 | | Load_Encached Integer_Cache
01cb 0260 | ` | Execute Discrete,In_Type
01cc 7001 |p | Jump_Nonzero 0x1ce
01cd 0801 | | Execute_Immediate Raise,0x1
01ce e602 | | Load 0x3,0x2
01cf 01dc | | Execute Vector,Last
01d0 e602 | | Load 0x3,0x2
01d1 01cf | | Execute Vector,Slice_Read
01d2 01cc | | Execute Vector,Catenate
01d3 01cb | | Execute Vector,Append
01d4 00db | | Load_Top At_Offset_3
01d5 0a01 | | Execute_Immediate Plus,0x1
01d6 00d8 | | Load_Top At_Offset_0
01d7 00e2 | | Load_Encached Integer_Cache
01d8 0260 | ` | Execute Discrete,In_Type
01d9 7001 |p | Jump_Nonzero 0x1db
01da 0801 | | Execute_Immediate Raise,0x1
01db 00da | | Load_Top At_Offset_2
01dc 0aff | | Execute_Immediate Plus,-0x1
01dd 00d8 | | Load_Top At_Offset_0
01de 00e2 | | Load_Encached Integer_Cache
01df 0260 | ` | Execute Discrete,In_Type
01e0 7001 |p | Jump_Nonzero 0x1e2
01e1 0801 | | Execute_Immediate Raise,0x1
01e2 e602 | | Load 0x3,0x2
01e3 01cf | | Execute Vector,Slice_Read
01e4 01cc | | Execute Vector,Catenate
01e5 00e9 | | Load_Encached String_Cache
01e6 01c6 | | Execute Vector,Convert_To_Formal
01e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e8 00db | | Load_Top At_Offset_3
01e9 00e9 | | Load_Encached String_Cache
01ea 01c6 | | Execute Vector,Convert_To_Formal
01eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5 | | .CONST 0x01f5 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 00da | | Load_Top At_Offset_2
01f4 840f | | Call 0x2,0xf
01f5 BODY_01f0:
01f5 e406 | | Load 0x2,0x6
01f6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f8 e00f | | Load 0x0,0xf
01f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fa 00ea | | Load_Encached Null_String_Cache
01fb 00db | | Load_Top At_Offset_3
01fc 4800 |H | Short_Literal 0x0
01fd e406 | | Load 0x2,0x6
01fe 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ff 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0200 c7fe | | Store 0x3,-0x2
0201 e7fe | | Load 0x3,-0x2
0202 e406 | | Load 0x2,0x6
0203 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0204 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0205 6812 |h | Jump_Zero 0x218
0206 e00d | | Load 0x0,0xd
0207 180e | | Execute Package,Field_Execute,Field_Number 0xe
0208 4807 |H | Short_Literal 0x7
0209 00da | | Load_Top At_Offset_2
020a 0092 047d | }| Action Push_String_Extended,0x47d ; " is empty."
020c 01cc | | Execute Vector,Catenate
020d e00e | | Load 0x0,0xe
020e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020f e00d | | Load 0x0,0xd
0210 180e | | Execute Package,Field_Execute,Field_Number 0xe
0211 4808 |H | Short_Literal 0x8
0212 0092 047e | ~| Action Push_String_Extended,0x47e ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
0214 e00e | | Load 0x0,0xe
0215 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0216 4950 |IP | Short_Literal 0x150
0217 0257 | W | Execute Discrete,Raise
0218 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 4800 |H | Short_Literal 0x0
0224 00db | | Load_Top At_Offset_3
0225 482f |H/ | Short_Literal 0x2f
0226 e001 | | Load 0x0,0x1
0227 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0228 0c01 | | Execute_Immediate Greater_Equal,0x1
0229 e7fe | | Load 0x3,-0x2
022a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
022b 00db | | Load_Top At_Offset_3
022c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
022d 682d |h- | Jump_Zero 0x25b
022e e40b | | Load 0x2,0xb
022f 00db | | Load_Top At_Offset_3
0230 840e | | Call 0x2,0xe
0231 e7fe | | Load 0x3,-0x2
0232 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0233 00d9 | | Load_Top At_Offset_1
0234 00db | | Load_Top At_Offset_3
0235 01d7 | | Execute Vector,Field_Read
0236 e7ff | | Load 0x3,-0x1
0237 e406 | | Load 0x2,0x6
0238 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0239 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
023a 180e | | Execute Package,Field_Execute,Field_Number 0xe
023b 00da | | Load_Top At_Offset_2
023c e602 | | Load 0x3,0x2
023d 01d6 | | Execute Vector,Field_Write
023e e7fe | | Load 0x3,-0x2
023f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0240 00d2 | | Pop_Control Pop_Count_2
0241 00db | | Load_Top At_Offset_3
0242 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0243 e406 | | Load 0x2,0x6
0244 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0245 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0246 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0247 6812 |h | Jump_Zero 0x25a
0248 e00d | | Load 0x0,0xd
0249 180e | | Execute Package,Field_Execute,Field_Number 0xe
024a 4807 |H | Short_Literal 0x7
024b e7ff | | Load 0x3,-0x1
024c 0092 047d | }| Action Push_String_Extended,0x47d ; " is empty."
024e 01cc | | Execute Vector,Catenate
024f e00e | | Load 0x0,0xe
0250 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0251 e00d | | Load 0x0,0xd
0252 180e | | Execute Package,Field_Execute,Field_Number 0xe
0253 4808 |H | Short_Literal 0x8
0254 0092 047e | ~| Action Push_String_Extended,0x47e ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
0256 e00e | | Load 0x0,0xe
0257 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0258 4950 |IP | Short_Literal 0x150
0259 0257 | W | Execute Discrete,Raise
025a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025b 00db | | Load_Top At_Offset_3
025c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025d 00db | | Load_Top At_Offset_3
025e 8410 | | Call 0x2,0x10
025f e7fe | | Load 0x3,-0x2
0260 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0261 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0262 0000 0000 | | .BLANK 0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026d 680d |h | Jump_Zero 0x27b
026e 00e3 | | Load_Encached Natural_Cache
026f e7fe | | Load 0x3,-0x2
0270 e7ff | | Load 0x3,-0x1
0271 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0272 e406 | | Load 0x2,0x6
0273 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0274 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0275 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0276 e7ff | | Load 0x3,-0x1
0277 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0278 00d1 | | Pop_Control Pop_Count_1
0279 c7fd | | Store 0x3,-0x3
027a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027b 00e3 | | Load_Encached Natural_Cache
027c e7fe | | Load 0x3,-0x2
027d e7ff | | Load 0x3,-0x1
027e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027f e406 | | Load 0x2,0x6
0280 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0281 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0282 e7ff | | Load 0x3,-0x1
0283 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0284 00d1 | | Pop_Control Pop_Count_1
0285 c7fd | | Store 0x3,-0x3
0286 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
028c 0000 0000 | | .BLANK 0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00da | | Load_Top At_Offset_2
0294 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0295 6809 |h | Jump_Zero 0x29f
0296 00da | | Load_Top At_Offset_2
0297 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0298 e406 | | Load 0x2,0x6
0299 1b18 | | Execute Package,Field_Read,Field_Number 0x18
029a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
029b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029c 00db | | Load_Top At_Offset_3
029d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
029e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029f 00da | | Load_Top At_Offset_2
02a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a1 e406 | | Load 0x2,0x6
02a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02a3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02a4 00db | | Load_Top At_Offset_3
02a5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a7 0000 | | .XXX[0x1]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02af | | .CONST 0x02af ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0003 | | .CONST 0x0003 ; Number of locals
02ab INIT_02a8:
02ab 00da | | Load_Top At_Offset_2
02ac 840f | | Call 0x2,0xf
02ad e005 | | Load 0x0,0x5
02ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02af BODY_02a8:
02af e005 | | Load 0x0,0x5
02b0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02b1 e7fe | | Load 0x3,-0x2
02b2 4800 |H | Short_Literal 0x0
02b3 602c |`, | Indirect_Literal Discrete,0x2e0,{0x00000000, 0x00004000}
02b4 e00f | | Load 0x0,0xf
02b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b6 e010 | | Load 0x0,0x10
02b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b8 e005 | | Load 0x0,0x5
02b9 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02ba 4800 |H | Short_Literal 0x0
02bb e602 | | Load 0x3,0x2
02bc 4800 |H | Short_Literal 0x0
02bd e005 | | Load 0x0,0x5
02be 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02bf c7fe | | Store 0x3,-0x2
02c0 0059 | Y | Store_Top Discrete,At_Offset_1
02c1 e005 | | Load 0x0,0x5
02c2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c3 c7fd | | Store 0x3,-0x3
02c4 e005 | | Load 0x0,0x5
02c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c6 e7fe | | Load 0x3,-0x2
02c7 e005 | | Load 0x0,0x5
02c8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02c9 6812 |h | Jump_Zero 0x2dc
02ca e00d | | Load 0x0,0xd
02cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cc 4807 |H | Short_Literal 0x7
02cd 00db | | Load_Top At_Offset_3
02ce 0092 047d | }| Action Push_String_Extended,0x47d ; " is empty."
02d0 01cc | | Execute Vector,Catenate
02d1 e00e | | Load 0x0,0xe
02d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d3 e00d | | Load 0x0,0xd
02d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d5 4808 |H | Short_Literal 0x8
02d6 0092 047e | ~| Action Push_String_Extended,0x47e ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
02d8 e00e | | Load 0x0,0xe
02d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02da 4950 |IP | Short_Literal 0x150
02db 0257 | W | Execute Discrete,Raise
02dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02dd 0000 0000 | | .XXX[0x3]
02df 0000 | |
02e0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02e4 0000 0000 | | .BLANK 0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4800 |H | Short_Literal 0x0
02ec 00db | | Load_Top At_Offset_3
02ed 482f |H/ | Short_Literal 0x2f
02ee e001 | | Load 0x0,0x1
02ef 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02f0 0c01 | | Execute_Immediate Greater_Equal,0x1
02f1 e7fe | | Load 0x3,-0x2
02f2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f3 00db | | Load_Top At_Offset_3
02f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f5 682d |h- | Jump_Zero 0x323
02f6 e40d | | Load 0x2,0xd
02f7 00db | | Load_Top At_Offset_3
02f8 840e | | Call 0x2,0xe
02f9 e7fe | | Load 0x3,-0x2
02fa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02fb 00d9 | | Load_Top At_Offset_1
02fc 00db | | Load_Top At_Offset_3
02fd 01d7 | | Execute Vector,Field_Read
02fe e7ff | | Load 0x3,-0x1
02ff e006 | | Load 0x0,0x6
0300 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0301 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0302 180e | | Execute Package,Field_Execute,Field_Number 0xe
0303 00da | | Load_Top At_Offset_2
0304 e602 | | Load 0x3,0x2
0305 01d6 | | Execute Vector,Field_Write
0306 e7fe | | Load 0x3,-0x2
0307 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0308 00d2 | | Pop_Control Pop_Count_2
0309 00db | | Load_Top At_Offset_3
030a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
030b e006 | | Load 0x0,0x6
030c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
030d 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
030e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
030f 6812 |h | Jump_Zero 0x322
0310 e00d | | Load 0x0,0xd
0311 180e | | Execute Package,Field_Execute,Field_Number 0xe
0312 4807 |H | Short_Literal 0x7
0313 e7ff | | Load 0x3,-0x1
0314 0092 047d | }| Action Push_String_Extended,0x47d ; " is empty."
0316 01cc | | Execute Vector,Catenate
0317 e00e | | Load 0x0,0xe
0318 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0319 e00d | | Load 0x0,0xd
031a 180e | | Execute Package,Field_Execute,Field_Number 0xe
031b 4808 |H | Short_Literal 0x8
031c 0092 047e | ~| Action Push_String_Extended,0x47e ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
031e e00e | | Load 0x0,0xe
031f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0320 4950 |IP | Short_Literal 0x150
0321 0257 | W | Execute Discrete,Raise
0322 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0323 00db | | Load_Top At_Offset_3
0324 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0325 0120 | | Execute Any,Is_Value
0326 6803 |h | Jump_Zero 0x32a
0327 e005 | | Load 0x0,0x5
0328 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0329 7802 |x | Jump 0x32c
032a 00db | | Load_Top At_Offset_3
032b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
032c e7fe | | Load 0x3,-0x2
032d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
032e e7ff | | Load 0x3,-0x1
032f 8416 | | Call 0x2,0x16
0330 e7fe | | Load 0x3,-0x2
0331 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0332 e7fe | | Load 0x3,-0x2
0333 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0334 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0335 0000 0000 | | .XXX[0x3]
0337 0000 | |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033d | = | .CONST 0x033d ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0002 | | .CONST 0x0002 ; Number of locals
033b INIT_0338:
033b 029f 042b | +| Declare_Subprogram INIT_0428,For_Call
033d BODY_0338:
033d 00db | | Load_Top At_Offset_3
033e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
033f 680d |h | Jump_Zero 0x34d
0340 00e3 | | Load_Encached Natural_Cache
0341 e7fe | | Load 0x3,-0x2
0342 e7ff | | Load 0x3,-0x1
0343 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0344 e006 | | Load 0x0,0x6
0345 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0346 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0347 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0348 e7ff | | Load 0x3,-0x1
0349 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
034a 00d1 | | Pop_Control Pop_Count_1
034b c7fd | | Store 0x3,-0x3
034c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034d 8602 | | Call 0x3,0x2
034e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034f 0000 | | .XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0355 | U | .CONST 0x0355 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 e005 | | Load 0x0,0x5
0354 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0355 BODY_0350:
0355 00db | | Load_Top At_Offset_3
0356 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0357 6809 |h | Jump_Zero 0x361
0358 00db | | Load_Top At_Offset_3
0359 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
035a e006 | | Load 0x0,0x6
035b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
035c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
035d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
035e e7ff | | Load 0x3,-0x1
035f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0360 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0361 e005 | | Load 0x0,0x5
0362 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0363 e7ff | | Load 0x3,-0x1
0364 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0365 e005 | | Load 0x0,0x5
0366 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0367 e7ff | | Load 0x3,-0x1
0368 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0369 0059 | Y | Store_Top Discrete,At_Offset_1
036a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
036b 0000 0000 | | .BLANK 0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0383 | | .CONST 0x0383 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0004 | | .CONST 0x0004 ; Number of locals
0373 INIT_0370:
0373 0092 047f | | Action Push_String_Extended,0x47f ; ".XFER"
0375 4800 |H | Short_Literal 0x0
0376 e7ff | | Load 0x3,-0x1
0377 482e |H. | Short_Literal 0x2e
0378 e001 | | Load 0x0,0x1
0379 1820 | | Execute Package,Field_Execute,Field_Number 0x20
037a 00e2 | | Load_Encached Integer_Cache
037b 03f1 | | Declare_Variable Discrete,With_Value
037c 4800 |H | Short_Literal 0x0
037d e7ff | | Load 0x3,-0x1
037e 483a |H: | Short_Literal 0x3a
037f e001 | | Load 0x0,0x1
0380 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0381 00e2 | | Load_Encached Integer_Cache
0382 03f1 | | Declare_Variable Discrete,With_Value
0383 BODY_0370:
0383 00d9 | | Load_Top At_Offset_1
0384 00d9 | | Load_Top At_Offset_1
0385 027d | } | Execute Discrete,Greater
0386 6802 |h | Jump_Zero 0x389
0387 e7ff | | Load 0x3,-0x1
0388 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0389 e7ff | | Load 0x3,-0x1
038a 00db | | Load_Top At_Offset_3
038b 01cc | | Execute Vector,Catenate
038c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038d 0000 0000 | | .XXX[0x3]
038f 0000 | |
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 03a1 | | .CONST 0x03a1 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0002 | | .CONST 0x0002 ; Number of locals
0393 INIT_0390:
0393 e7ff | | Load 0x3,-0x1
0394 01dd | | Execute Vector,First
0395 e7ff | | Load 0x3,-0x1
0396 01dd | | Execute Vector,First
0397 0a03 | | Execute_Immediate Plus,0x3
0398 00d8 | | Load_Top At_Offset_0
0399 00e2 | | Load_Encached Integer_Cache
039a 0260 | ` | Execute Discrete,In_Type
039b 7001 |p | Jump_Nonzero 0x39d
039c 0801 | | Execute_Immediate Raise,0x1
039d 00e9 | | Load_Encached String_Cache
039e 035b | [ | Declare_Type Array,Constrained
039f e7ff | | Load 0x3,-0x1
03a0 01cd | | Execute Vector,Slice_Reference
03a1 BODY_0390:
03a1 00cf | | Action Mark_Auxiliary
03a2 e00d | | Load 0x0,0xd
03a3 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
03a4 0266 | f | Execute Discrete,Bounds
03a5 0007 | | Action Break_Optional
03a6 00d8 | | Load_Top At_Offset_0
03a7 e00e | | Load 0x0,0xe
03a8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03a9 e802 | | Load 0x4,0x2
03aa 01df | | Execute Vector,Equal
03ab 6813 |h | Jump_Zero 0x3bf
03ac e00d | | Load 0x0,0xd
03ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
03ae 00d9 | | Load_Top At_Offset_1
03af e7ff | | Load 0x3,-0x1
03b0 01dd | | Execute Vector,First
03b1 0a04 | | Execute_Immediate Plus,0x4
03b2 00d8 | | Load_Top At_Offset_0
03b3 00e2 | | Load_Encached Integer_Cache
03b4 0260 | ` | Execute Discrete,In_Type
03b5 7001 |p | Jump_Nonzero 0x3b7
03b6 0801 | | Execute_Immediate Raise,0x1
03b7 e7ff | | Load 0x3,-0x1
03b8 01dc | | Execute Vector,Last
03b9 e7ff | | Load 0x3,-0x1
03ba 01cf | | Execute Vector,Slice_Read
03bb e00e | | Load 0x0,0xe
03bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03bd 00cc | | Action Pop_Block
03be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bf 00c8 | | Action Pop_Auxiliary_Range
03c0 37e5 |7 | Loop_Decreasing 0x3a6
03c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c2 0000 0000 | | .BLANK 0000[0x6]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03da | | .CONST 0x03da ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0004 | | .CONST 0x0004 ; Number of locals
03cb INIT_03c8:
03cb 4820 |H | Short_Literal 0x20
03cc e7ff | | Load 0x3,-0x1
03cd e001 | | Load 0x0,0x1
03ce 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03cf 4800 |H | Short_Literal 0x0
03d0 00d9 | | Load_Top At_Offset_1
03d1 4820 |H | Short_Literal 0x20
03d2 e001 | | Load 0x0,0x1
03d3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03d4 00e2 | | Load_Encached Integer_Cache
03d5 03f1 | | Declare_Variable Discrete,With_Value
03d6 00d9 | | Load_Top At_Offset_1
03d7 01dd | | Execute Vector,First
03d8 00e2 | | Load_Encached Integer_Cache
03d9 03f1 | | Declare_Variable Discrete,With_Value
03da BODY_03c8:
03da 00d9 | | Load_Top At_Offset_1
03db 7003 |p | Jump_Nonzero 0x3df
03dc 00da | | Load_Top At_Offset_2
03dd 01dc | | Execute Vector,Last
03de 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03df 4801 |H | Short_Literal 0x1
03e0 0092 0480 | | Action Push_String_Extended,0x480 ; "Unable "
03e2 00da | | Load_Top At_Offset_2
03e3 e803 | | Load 0x4,0x3
03e4 e802 | | Load 0x4,0x2
03e5 01cf | | Execute Vector,Slice_Read
03e6 e001 | | Load 0x0,0x1
03e7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03e8 701e |p | Jump_Nonzero 0x407
03e9 4801 |H | Short_Literal 0x1
03ea 0092 0481 | | Action Push_String_Extended,0x481 ; "Possible "
03ec 00da | | Load_Top At_Offset_2
03ed e803 | | Load 0x4,0x3
03ee e802 | | Load 0x4,0x2
03ef 01cf | | Execute Vector,Slice_Read
03f0 e001 | | Load 0x0,0x1
03f1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03f2 7014 |p | Jump_Nonzero 0x407
03f3 4801 |H | Short_Literal 0x1
03f4 0092 0482 | | Action Push_String_Extended,0x482 ; "Eedb.Configuration.Intolerant_Get_Position."
03f6 00da | | Load_Top At_Offset_2
03f7 e803 | | Load 0x4,0x3
03f8 e802 | | Load 0x4,0x2
03f9 01cf | | Execute Vector,Slice_Read
03fa e001 | | Load 0x0,0x1
03fb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03fc 700a |p | Jump_Nonzero 0x407
03fd 4801 |H | Short_Literal 0x1
03fe 0092 0483 | | Action Push_String_Extended,0x483 ; "Cannot "
0400 00da | | Load_Top At_Offset_2
0401 e803 | | Load 0x4,0x3
0402 e802 | | Load 0x4,0x2
0403 01cf | | Execute Vector,Slice_Read
0404 e001 | | Load 0x0,0x1
0405 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0406 6807 |h | Jump_Zero 0x40e
0407 e00d | | Load 0x0,0xd
0408 180e | | Execute Package,Field_Execute,Field_Number 0xe
0409 4807 |H | Short_Literal 0x7
040a e802 | | Load 0x4,0x2
040b e00e | | Load 0x0,0xe
040c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
040d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
040e 4801 |H | Short_Literal 0x1
040f 0092 0484 | | Action Push_String_Extended,0x484 ; "Warning: "
0411 00da | | Load_Top At_Offset_2
0412 e803 | | Load 0x4,0x3
0413 e802 | | Load 0x4,0x2
0414 01cf | | Execute Vector,Slice_Read
0415 e001 | | Load 0x0,0x1
0416 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0417 6807 |h | Jump_Zero 0x41f
0418 e00d | | Load 0x0,0xd
0419 180e | | Execute Package,Field_Execute,Field_Number 0xe
041a 4806 |H | Short_Literal 0x6
041b e802 | | Load 0x4,0x2
041c e00e | | Load 0x0,0xe
041d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
041e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
041f e00d | | Load 0x0,0xd
0420 180e | | Execute Package,Field_Execute,Field_Number 0xe
0421 4802 |H | Short_Literal 0x2
0422 e802 | | Load 0x4,0x2
0423 e00e | | Load 0x0,0xe
0424 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0425 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0426 0000 0000 | | .XXX[0x2]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0439 | 9 | .CONST 0x0439 ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b e7ff | | Load 0x3,-0x1
042c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
042d e005 | | Load 0x0,0x5
042e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
042f e005 | | Load 0x0,0x5
0430 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0431 e7ff | | Load 0x3,-0x1
0432 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0433 e005 | | Load 0x0,0x5
0434 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0435 0272 | r | Execute Discrete,Minus
0436 09fd | | Execute_Immediate Binary_Scale,-0x3
0437 00e5 | | Load_Encached Long_Integer_Cache
0438 03f1 | | Declare_Variable Discrete,With_Value
0439 BODY_0428:
0439 00d8 | | Load_Top At_Offset_0
043a 0d01 | | Execute_Immediate Less,0x1
043b 6803 |h | Jump_Zero 0x43f
043c 4800 |H | Short_Literal 0x0
043d a7fd | | Store_Unchecked 0x3,-0x3
043e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
043f 00d8 | | Load_Top At_Offset_0
0440 e7fe | | Load 0x3,-0x2
0441 01db | | Execute Vector,Length
0442 027c | | | Execute Discrete,Less
0443 6825 |h% | Jump_Zero 0x469
0444 e7fe | | Load 0x3,-0x2
0445 00d8 | | Load_Top At_Offset_0
0446 01dd | | Execute Vector,First
0447 e7fe | | Load 0x3,-0x2
0448 01dd | | Execute Vector,First
0449 00db | | Load_Top At_Offset_3
044a 00d8 | | Load_Top At_Offset_0
044b 00e3 | | Load_Encached Natural_Cache
044c 0260 | ` | Execute Discrete,In_Type
044d 7001 |p | Jump_Nonzero 0x44f
044e 0801 | | Execute_Immediate Raise,0x1
044f 0273 | s | Execute Discrete,Plus
0450 0aff | | Execute_Immediate Plus,-0x1
0451 00d8 | | Load_Top At_Offset_0
0452 00e2 | | Load_Encached Integer_Cache
0453 0260 | ` | Execute Discrete,In_Type
0454 7001 |p | Jump_Nonzero 0x456
0455 0801 | | Execute_Immediate Raise,0x1
0456 00da | | Load_Top At_Offset_2
0457 035b | [ | Declare_Type Array,Constrained
0458 00d0 | | Action Swap_Control
0459 01cd | | Execute Vector,Slice_Reference
045a 00e3 | | Load_Encached Natural_Cache
045b 00d9 | | Load_Top At_Offset_1
045c e7ff | | Load 0x3,-0x1
045d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
045e e7ff | | Load 0x3,-0x1
045f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0460 e005 | | Load 0x0,0x5
0461 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0462 180f | | Execute Package,Field_Execute,Field_Number 0xf
0463 e7ff | | Load 0x3,-0x1
0464 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0465 00d1 | | Pop_Control Pop_Count_1
0466 c7fd | | Store 0x3,-0x3
0467 00d1 | | Pop_Control Pop_Count_1
0468 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0469 00e3 | | Load_Encached Natural_Cache
046a e7fe | | Load 0x3,-0x2
046b e7ff | | Load 0x3,-0x1
046c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
046d e7ff | | Load 0x3,-0x1
046e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
046f e005 | | Load 0x0,0x5
0470 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0471 180f | | Execute Package,Field_Execute,Field_Number 0xf
0472 e7ff | | Load 0x3,-0x1
0473 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0474 00d1 | | Pop_Control Pop_Count_1
0475 c7fd | | Store 0x3,-0x3
0476 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0477 ; --------------------------------------------------------------------------------------
0477 ; STRING TABLE
0477 ; --------------------------------------------------------------------------------------
0477 001e | | .STRTAB 0x001e->0x0486 ; "XFER"
0478 0020 | | .STRTAB 0x0020->0x0488 ; "MLOAD"
0479 0023 | # | .STRTAB 0x0023->0x048a ; "SEG"
047a 0024 | $ | .STRTAB 0x0024->0x048c ; "OTHER"
047b 0027 | ' | .STRTAB 0x0027->0x048e ; "!!"
047c 0027 | ' | .STRTAB 0x0027->0x048f ; "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"
047d 010b | | .STRTAB 0x010b->0x0502 ; " is empty."
047e 0113 | | .STRTAB 0x0113->0x0507 ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
047f 0141 | A | .STRTAB 0x0141->0x051f ; ".XFER"
0480 0144 | D | .STRTAB 0x0144->0x0522 ; "Unable "
0481 0149 | I | .STRTAB 0x0149->0x0525 ; "Possible "
0482 0150 | P | .STRTAB 0x0150->0x052a ; "Eedb.Configuration.Intolerant_Get_Position."
0483 0179 | y | .STRTAB 0x0179->0x053f ; "Cannot "
0484 017e | ~ | .STRTAB 0x017e->0x0543 ; "Warning: "
0485 0185 | | .STREND 0x0185->0x0547
0486 5846 4552 |XFER| .STRTAB_STRINGS
0548 ; --------------------------------------------------------------------------------------
0548 ; Debug Table
0548 ; --------------------------------------------------------------------------------------
0548 0004 000d | | .DEBUG4 0x0004,0x000d,0xe9f0,0x0000,0x0001,0x0000
054e 0000 0000 | | .BLANK 0000[0x7]
0555 3aea 8000 |: | .XXX[0x3]
0557 41a9 |A |
0558 0000 0000 | | .BLANK 0000[0x11]
0569 57fb 0000 |W | .XXX[0x10]
056b 0000 0000 | |
056d 5919 8000 |Y |
056f 0000 0000 | |
0571 3126 0000 |1& |
0573 2a57 8000 |*W |
0575 0000 0000 | |
0577 3264 8000 |2d |
0579 0000 0000 | | .BLANK 0000[0x8]
0581 33f0 8000 |3 | .XXX[0x7]
0583 5a44 0000 |ZD |
0585 0000 0000 | |
0587 4488 |D |
0588 0000 0000 | | .BLANK 0000[0x5]
058d 234c |#L | .XXX[0x1]
058e 0000 0000 | | .BLANK 0000[0x27]
05b5 4569 8000 |Ei | .XXX[0x11]
05b7 0000 0000 | |
05b9 4369 8000 |Ci |
05bb 2110 8000 |! |
05bd 219f 0000 |! |
05bf 222d 8000 |"- |
05c1 0000 0000 | |
05c3 3303 0000 |3 |
05c5 45f8 |E |
05c6 0000 0000 | | .BLANK 0000[0xf]
05d5 4909 8000 |I | .XXX[0x2]
05d7 0000 0000 | | .BLANK 0000[0x6]
05dd 4a03 8000 |J | .XXX[0x2]
05df 0000 0000 | | .BLANK 0000[0x21]