|
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_5f28f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0540 | @ | .CONST 0x0540 ; 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 01eb | | Declare_Subprogram INIT_01e8,For_Call
0069 029f 021b | | Declare_Subprogram INIT_0218,For_Call
006b 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
006d 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
006f 029f 028b | | Declare_Subprogram INIT_0288,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 02a3 | | Declare_Subprogram INIT_02a0,For_Call
008a 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call
008c 029f 0333 | 3| Declare_Subprogram INIT_0330,For_Call
008e 029f 034b | K| Declare_Subprogram INIT_0348,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 036b | k| Declare_Subprogram INIT_0368,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 0473 | s| Action Push_String_Extended,0x473 ; "!!"
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 0474 | t| Action Push_String_Extended,0x474 ; "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 038b | | Declare_Subprogram INIT_0388,For_Call
00fd 029f 03c3 | | Declare_Subprogram INIT_03c0,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 046f | o| Action Push_String_Extended_Indexed,0x46f ; "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 4801 |H | Short_Literal 0x1
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 4801 |H | Short_Literal 0x1
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 4801 |H | Short_Literal 0x1
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 684c |hL | Jump_Zero 0x1e3
0197 00da | | Load_Top At_Offset_2
0198 0c01 | | Execute_Immediate Greater_Equal,0x1
0199 6804 |h | Jump_Zero 0x19e
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 00cf | | Action Mark_Auxiliary
019f 7814 |x | Jump 0x1b4
01a0 485f |H_ | Short_Literal 0x5f
01a1 00db | | Load_Top At_Offset_3
01a2 e602 | | Load 0x3,0x2
01a3 01d6 | | Execute Vector,Field_Write
01a4 4801 |H | Short_Literal 0x1
01a5 e603 | | Load 0x3,0x3
01a6 0a01 | | Execute_Immediate Plus,0x1
01a7 00d8 | | Load_Top At_Offset_0
01a8 00e2 | | Load_Encached Integer_Cache
01a9 0260 | ` | Execute Discrete,In_Type
01aa 7001 |p | Jump_Nonzero 0x1ac
01ab 0801 | | Execute_Immediate Raise,0x1
01ac e604 | | Load 0x3,0x4
01ad e602 | | Load 0x3,0x2
01ae 01cf | | Execute Vector,Slice_Read
01af 482e |H. | Short_Literal 0x2e
01b0 e001 | | Load 0x0,0x1
01b1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01b2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01b3 00c9 | | Action Pop_Auxiliary_Loop
01b4 00da | | Load_Top At_Offset_2
01b5 e603 | | Load 0x3,0x3
01b6 027d | } | Execute Discrete,Greater
01b7 77e8 |w | Jump_Nonzero 0x1a0
01b8 00ce | | Action Pop_Auxiliary
01b9 00d8 | | Load_Top At_Offset_0
01ba 00db | | Load_Top At_Offset_3
01bb 027d | } | Execute Discrete,Greater
01bc 6826 |h& | Jump_Zero 0x1e3
01bd 485f |H_ | Short_Literal 0x5f
01be 4801 |H | Short_Literal 0x1
01bf e603 | | Load 0x3,0x3
01c0 e602 | | Load 0x3,0x2
01c1 01cf | | Execute Vector,Slice_Read
01c2 00da | | Load_Top At_Offset_2
01c3 0a01 | | Execute_Immediate Plus,0x1
01c4 00d8 | | Load_Top At_Offset_0
01c5 00e2 | | Load_Encached Integer_Cache
01c6 0260 | ` | Execute Discrete,In_Type
01c7 7001 |p | Jump_Nonzero 0x1c9
01c8 0801 | | Execute_Immediate Raise,0x1
01c9 e602 | | Load 0x3,0x2
01ca 01dc | | Execute Vector,Last
01cb e602 | | Load 0x3,0x2
01cc 01cf | | Execute Vector,Slice_Read
01cd 01cc | | Execute Vector,Catenate
01ce 01cb | | Execute Vector,Append
01cf 00db | | Load_Top At_Offset_3
01d0 0a01 | | Execute_Immediate Plus,0x1
01d1 00d8 | | Load_Top At_Offset_0
01d2 00e2 | | Load_Encached Integer_Cache
01d3 0260 | ` | Execute Discrete,In_Type
01d4 7001 |p | Jump_Nonzero 0x1d6
01d5 0801 | | Execute_Immediate Raise,0x1
01d6 00da | | Load_Top At_Offset_2
01d7 0aff | | Execute_Immediate Plus,-0x1
01d8 00d8 | | Load_Top At_Offset_0
01d9 00e2 | | Load_Encached Integer_Cache
01da 0260 | ` | Execute Discrete,In_Type
01db 7001 |p | Jump_Nonzero 0x1dd
01dc 0801 | | Execute_Immediate Raise,0x1
01dd e602 | | Load 0x3,0x2
01de 01cf | | Execute Vector,Slice_Read
01df 01cc | | Execute Vector,Catenate
01e0 00e9 | | Load_Encached String_Cache
01e1 01c6 | | Execute Vector,Convert_To_Formal
01e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e3 00db | | Load_Top At_Offset_3
01e4 00e9 | | Load_Encached String_Cache
01e5 01c6 | | Execute Vector,Convert_To_Formal
01e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ed | | .CONST 0x01ed ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 840f | | Call 0x2,0xf
01ed BODY_01e8:
01ed e406 | | Load 0x2,0x6
01ee 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ef 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f0 e00f | | Load 0x0,0xf
01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f2 00ea | | Load_Encached Null_String_Cache
01f3 00db | | Load_Top At_Offset_3
01f4 4800 |H | Short_Literal 0x0
01f5 e406 | | Load 0x2,0x6
01f6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f8 c7fe | | Store 0x3,-0x2
01f9 e7fe | | Load 0x3,-0x2
01fa e406 | | Load 0x2,0x6
01fb 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01fc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01fd 6812 |h | Jump_Zero 0x210
01fe e00d | | Load 0x0,0xd
01ff 180e | | Execute Package,Field_Execute,Field_Number 0xe
0200 4807 |H | Short_Literal 0x7
0201 00da | | Load_Top At_Offset_2
0202 0092 0475 | u| Action Push_String_Extended,0x475 ; " is empty."
0204 01cc | | Execute Vector,Catenate
0205 e00e | | Load 0x0,0xe
0206 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0207 e00d | | Load 0x0,0xd
0208 180e | | Execute Package,Field_Execute,Field_Number 0xe
0209 4808 |H | Short_Literal 0x8
020a 0092 0476 | v| Action Push_String_Extended,0x476 ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
020c e00e | | Load 0x0,0xe
020d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020e 4950 |IP | Short_Literal 0x150
020f 0257 | W | Execute Discrete,Raise
0210 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0211 0000 0000 | | .BLANK 0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4801 |H | Short_Literal 0x1
021c 00db | | Load_Top At_Offset_3
021d 482f |H/ | Short_Literal 0x2f
021e e001 | | Load 0x0,0x1
021f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0220 0c01 | | Execute_Immediate Greater_Equal,0x1
0221 e7fe | | Load 0x3,-0x2
0222 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0223 00db | | Load_Top At_Offset_3
0224 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0225 682d |h- | Jump_Zero 0x253
0226 e40b | | Load 0x2,0xb
0227 00db | | Load_Top At_Offset_3
0228 840e | | Call 0x2,0xe
0229 e7fe | | Load 0x3,-0x2
022a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
022b 00d9 | | Load_Top At_Offset_1
022c 00db | | Load_Top At_Offset_3
022d 01d7 | | Execute Vector,Field_Read
022e e7ff | | Load 0x3,-0x1
022f e406 | | Load 0x2,0x6
0230 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0231 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0232 180e | | Execute Package,Field_Execute,Field_Number 0xe
0233 00da | | Load_Top At_Offset_2
0234 e602 | | Load 0x3,0x2
0235 01d6 | | Execute Vector,Field_Write
0236 e7fe | | Load 0x3,-0x2
0237 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0238 00d2 | | Pop_Control Pop_Count_2
0239 00db | | Load_Top At_Offset_3
023a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
023b e406 | | Load 0x2,0x6
023c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
023d 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
023e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
023f 6812 |h | Jump_Zero 0x252
0240 e00d | | Load 0x0,0xd
0241 180e | | Execute Package,Field_Execute,Field_Number 0xe
0242 4807 |H | Short_Literal 0x7
0243 e7ff | | Load 0x3,-0x1
0244 0092 0475 | u| Action Push_String_Extended,0x475 ; " is empty."
0246 01cc | | Execute Vector,Catenate
0247 e00e | | Load 0x0,0xe
0248 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0249 e00d | | Load 0x0,0xd
024a 180e | | Execute Package,Field_Execute,Field_Number 0xe
024b 4808 |H | Short_Literal 0x8
024c 0092 0476 | v| Action Push_String_Extended,0x476 ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
024e e00e | | Load 0x0,0xe
024f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0250 4950 |IP | Short_Literal 0x150
0251 0257 | W | Execute Discrete,Raise
0252 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0253 00db | | Load_Top At_Offset_3
0254 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0255 00db | | Load_Top At_Offset_3
0256 8410 | | Call 0x2,0x10
0257 e7fe | | Load 0x3,-0x2
0258 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0259 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0265 680d |h | Jump_Zero 0x273
0266 00e3 | | Load_Encached Natural_Cache
0267 e7fe | | Load 0x3,-0x2
0268 e7ff | | Load 0x3,-0x1
0269 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
026a e406 | | Load 0x2,0x6
026b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
026c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
026d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
026e e7ff | | Load 0x3,-0x1
026f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0270 00d1 | | Pop_Control Pop_Count_1
0271 c7fd | | Store 0x3,-0x3
0272 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0273 00e3 | | Load_Encached Natural_Cache
0274 e7fe | | Load 0x3,-0x2
0275 e7ff | | Load 0x3,-0x1
0276 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0277 e406 | | Load 0x2,0x6
0278 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0279 181d | | Execute Package,Field_Execute,Field_Number 0x1d
027a e7ff | | Load 0x3,-0x1
027b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
027c 00d1 | | Pop_Control Pop_Count_1
027d c7fd | | Store 0x3,-0x3
027e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027f 0000 | | .XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0284 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
028c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
028d 6809 |h | Jump_Zero 0x297
028e 00da | | Load_Top At_Offset_2
028f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0290 e406 | | Load 0x2,0x6
0291 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0292 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0293 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0294 00db | | Load_Top At_Offset_3
0295 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0296 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0297 00da | | Load_Top At_Offset_2
0298 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0299 e406 | | Load 0x2,0x6
029a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
029b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
029c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029d 0000 0000 | | .XXX[0x3]
029f 0000 | |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a7 | | .CONST 0x02a7 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0003 | | .CONST 0x0003 ; Number of locals
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 840f | | Call 0x2,0xf
02a5 e005 | | Load 0x0,0x5
02a6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02a7 BODY_02a0:
02a7 e005 | | Load 0x0,0x5
02a8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02a9 e7fe | | Load 0x3,-0x2
02aa 4800 |H | Short_Literal 0x0
02ab 602c |`, | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x00004000}
02ac e00f | | Load 0x0,0xf
02ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ae e010 | | Load 0x0,0x10
02af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b0 e005 | | Load 0x0,0x5
02b1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02b2 4800 |H | Short_Literal 0x0
02b3 e602 | | Load 0x3,0x2
02b4 4800 |H | Short_Literal 0x0
02b5 e005 | | Load 0x0,0x5
02b6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02b7 c7fe | | Store 0x3,-0x2
02b8 0059 | Y | Store_Top Discrete,At_Offset_1
02b9 e005 | | Load 0x0,0x5
02ba 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02bb c7fd | | Store 0x3,-0x3
02bc e005 | | Load 0x0,0x5
02bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02be e7fe | | Load 0x3,-0x2
02bf e005 | | Load 0x0,0x5
02c0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02c1 6812 |h | Jump_Zero 0x2d4
02c2 e00d | | Load 0x0,0xd
02c3 180e | | Execute Package,Field_Execute,Field_Number 0xe
02c4 4807 |H | Short_Literal 0x7
02c5 00db | | Load_Top At_Offset_3
02c6 0092 0475 | u| Action Push_String_Extended,0x475 ; " is empty."
02c8 01cc | | Execute Vector,Catenate
02c9 e00e | | Load 0x0,0xe
02ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02cb e00d | | Load 0x0,0xd
02cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cd 4808 |H | Short_Literal 0x8
02ce 0092 0476 | v| Action Push_String_Extended,0x476 ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
02d0 e00e | | Load 0x0,0xe
02d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d2 4950 |IP | Short_Literal 0x150
02d3 0257 | W | Execute Discrete,Raise
02d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d5 0000 0000 | | .XXX[0x3]
02d7 0000 | |
02d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02dc 0000 0000 | | .BLANK 0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 4801 |H | Short_Literal 0x1
02e4 00db | | Load_Top At_Offset_3
02e5 482f |H/ | Short_Literal 0x2f
02e6 e001 | | Load 0x0,0x1
02e7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02e8 0c01 | | Execute_Immediate Greater_Equal,0x1
02e9 e7fe | | Load 0x3,-0x2
02ea 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02eb 00db | | Load_Top At_Offset_3
02ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ed 682d |h- | Jump_Zero 0x31b
02ee e40d | | Load 0x2,0xd
02ef 00db | | Load_Top At_Offset_3
02f0 840e | | Call 0x2,0xe
02f1 e7fe | | Load 0x3,-0x2
02f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02f3 00d9 | | Load_Top At_Offset_1
02f4 00db | | Load_Top At_Offset_3
02f5 01d7 | | Execute Vector,Field_Read
02f6 e7ff | | Load 0x3,-0x1
02f7 e006 | | Load 0x0,0x6
02f8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02f9 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
02fa 180e | | Execute Package,Field_Execute,Field_Number 0xe
02fb 00da | | Load_Top At_Offset_2
02fc e602 | | Load 0x3,0x2
02fd 01d6 | | Execute Vector,Field_Write
02fe e7fe | | Load 0x3,-0x2
02ff 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0300 00d2 | | Pop_Control Pop_Count_2
0301 00db | | Load_Top At_Offset_3
0302 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0303 e006 | | Load 0x0,0x6
0304 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0305 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0306 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0307 6812 |h | Jump_Zero 0x31a
0308 e00d | | Load 0x0,0xd
0309 180e | | Execute Package,Field_Execute,Field_Number 0xe
030a 4807 |H | Short_Literal 0x7
030b e7ff | | Load 0x3,-0x1
030c 0092 0475 | u| Action Push_String_Extended,0x475 ; " is empty."
030e 01cc | | Execute Vector,Catenate
030f e00e | | Load 0x0,0xe
0310 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0311 e00d | | Load 0x0,0xd
0312 180e | | Execute Package,Field_Execute,Field_Number 0xe
0313 4808 |H | Short_Literal 0x8
0314 0092 0476 | v| Action Push_String_Extended,0x476 ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
0316 e00e | | Load 0x0,0xe
0317 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0318 4950 |IP | Short_Literal 0x150
0319 0257 | W | Execute Discrete,Raise
031a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031b 00db | | Load_Top At_Offset_3
031c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
031d 0120 | | Execute Any,Is_Value
031e 6803 |h | Jump_Zero 0x322
031f e005 | | Load 0x0,0x5
0320 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0321 7802 |x | Jump 0x324
0322 00db | | Load_Top At_Offset_3
0323 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0324 e7fe | | Load 0x3,-0x2
0325 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0326 e7ff | | Load 0x3,-0x1
0327 8416 | | Call 0x2,0x16
0328 e7fe | | Load 0x3,-0x2
0329 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
032a e7fe | | Load 0x3,-0x2
032b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
032c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0335 | 5 | .CONST 0x0335 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0002 | | .CONST 0x0002 ; Number of locals
0333 INIT_0330:
0333 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
0335 BODY_0330:
0335 00db | | Load_Top At_Offset_3
0336 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0337 680d |h | Jump_Zero 0x345
0338 00e3 | | Load_Encached Natural_Cache
0339 e7fe | | Load 0x3,-0x2
033a e7ff | | Load 0x3,-0x1
033b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
033c e006 | | Load 0x0,0x6
033d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
033e 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
033f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0340 e7ff | | Load 0x3,-0x1
0341 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0342 00d1 | | Pop_Control Pop_Count_1
0343 c7fd | | Store 0x3,-0x3
0344 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0345 8602 | | Call 0x3,0x2
0346 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 e005 | | Load 0x0,0x5
034c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
034d BODY_0348:
034d 00db | | Load_Top At_Offset_3
034e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
034f 6809 |h | Jump_Zero 0x359
0350 00db | | Load_Top At_Offset_3
0351 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0352 e006 | | Load 0x0,0x6
0353 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0354 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0355 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0356 e7ff | | Load 0x3,-0x1
0357 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0358 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0359 e005 | | Load 0x0,0x5
035a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
035b e7ff | | Load 0x3,-0x1
035c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
035d e005 | | Load 0x0,0x5
035e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
035f e7ff | | Load 0x3,-0x1
0360 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0361 0059 | Y | Store_Top Discrete,At_Offset_1
0362 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0363 0000 0000 | | .BLANK 0000[0x5]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 037b | { | .CONST 0x037b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0004 | | .CONST 0x0004 ; Number of locals
036b INIT_0368:
036b 0092 0477 | w| Action Push_String_Extended,0x477 ; ".XFER"
036d 4801 |H | Short_Literal 0x1
036e e7ff | | Load 0x3,-0x1
036f 482e |H. | Short_Literal 0x2e
0370 e001 | | Load 0x0,0x1
0371 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0372 00e2 | | Load_Encached Integer_Cache
0373 03f1 | | Declare_Variable Discrete,With_Value
0374 4801 |H | Short_Literal 0x1
0375 e7ff | | Load 0x3,-0x1
0376 483a |H: | Short_Literal 0x3a
0377 e001 | | Load 0x0,0x1
0378 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0379 00e2 | | Load_Encached Integer_Cache
037a 03f1 | | Declare_Variable Discrete,With_Value
037b BODY_0368:
037b 00d9 | | Load_Top At_Offset_1
037c 00d9 | | Load_Top At_Offset_1
037d 027d | } | Execute Discrete,Greater
037e 6802 |h | Jump_Zero 0x381
037f e7ff | | Load 0x3,-0x1
0380 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0381 e7ff | | Load 0x3,-0x1
0382 00db | | Load_Top At_Offset_3
0383 01cc | | Execute Vector,Catenate
0384 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0385 0000 0000 | | .XXX[0x3]
0387 0000 | |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0399 | | .CONST 0x0399 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0002 | | .CONST 0x0002 ; Number of locals
038b INIT_0388:
038b e7ff | | Load 0x3,-0x1
038c 01dd | | Execute Vector,First
038d e7ff | | Load 0x3,-0x1
038e 01dd | | Execute Vector,First
038f 0a03 | | Execute_Immediate Plus,0x3
0390 00d8 | | Load_Top At_Offset_0
0391 00e2 | | Load_Encached Integer_Cache
0392 0260 | ` | Execute Discrete,In_Type
0393 7001 |p | Jump_Nonzero 0x395
0394 0801 | | Execute_Immediate Raise,0x1
0395 00e9 | | Load_Encached String_Cache
0396 035b | [ | Declare_Type Array,Constrained
0397 e7ff | | Load 0x3,-0x1
0398 01cd | | Execute Vector,Slice_Reference
0399 BODY_0388:
0399 00cf | | Action Mark_Auxiliary
039a e00d | | Load 0x0,0xd
039b 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
039c 0266 | f | Execute Discrete,Bounds
039d 0007 | | Action Break_Optional
039e 00d8 | | Load_Top At_Offset_0
039f e00e | | Load 0x0,0xe
03a0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03a1 e802 | | Load 0x4,0x2
03a2 01df | | Execute Vector,Equal
03a3 6813 |h | Jump_Zero 0x3b7
03a4 e00d | | Load 0x0,0xd
03a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
03a6 00d9 | | Load_Top At_Offset_1
03a7 e7ff | | Load 0x3,-0x1
03a8 01dd | | Execute Vector,First
03a9 0a04 | | Execute_Immediate Plus,0x4
03aa 00d8 | | Load_Top At_Offset_0
03ab 00e2 | | Load_Encached Integer_Cache
03ac 0260 | ` | Execute Discrete,In_Type
03ad 7001 |p | Jump_Nonzero 0x3af
03ae 0801 | | Execute_Immediate Raise,0x1
03af e7ff | | Load 0x3,-0x1
03b0 01dc | | Execute Vector,Last
03b1 e7ff | | Load 0x3,-0x1
03b2 01cf | | Execute Vector,Slice_Read
03b3 e00e | | Load 0x0,0xe
03b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b5 00cc | | Action Pop_Block
03b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b7 00c8 | | Action Pop_Auxiliary_Range
03b8 37e5 |7 | Loop_Decreasing 0x39e
03b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ba 0000 0000 | | .BLANK 0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03d2 | | .CONST 0x03d2 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0004 | | .CONST 0x0004 ; Number of locals
03c3 INIT_03c0:
03c3 4820 |H | Short_Literal 0x20
03c4 e7ff | | Load 0x3,-0x1
03c5 e001 | | Load 0x0,0x1
03c6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03c7 4801 |H | Short_Literal 0x1
03c8 00d9 | | Load_Top At_Offset_1
03c9 4820 |H | Short_Literal 0x20
03ca e001 | | Load 0x0,0x1
03cb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03cc 00e2 | | Load_Encached Integer_Cache
03cd 03f1 | | Declare_Variable Discrete,With_Value
03ce 00d9 | | Load_Top At_Offset_1
03cf 01dd | | Execute Vector,First
03d0 00e2 | | Load_Encached Integer_Cache
03d1 03f1 | | Declare_Variable Discrete,With_Value
03d2 BODY_03c0:
03d2 00d9 | | Load_Top At_Offset_1
03d3 7003 |p | Jump_Nonzero 0x3d7
03d4 00da | | Load_Top At_Offset_2
03d5 01dc | | Execute Vector,Last
03d6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03d7 4801 |H | Short_Literal 0x1
03d8 0092 0478 | x| Action Push_String_Extended,0x478 ; "Unable "
03da 00da | | Load_Top At_Offset_2
03db e803 | | Load 0x4,0x3
03dc e802 | | Load 0x4,0x2
03dd 01cf | | Execute Vector,Slice_Read
03de e001 | | Load 0x0,0x1
03df 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03e0 701e |p | Jump_Nonzero 0x3ff
03e1 4801 |H | Short_Literal 0x1
03e2 0092 0479 | y| Action Push_String_Extended,0x479 ; "Possible "
03e4 00da | | Load_Top At_Offset_2
03e5 e803 | | Load 0x4,0x3
03e6 e802 | | Load 0x4,0x2
03e7 01cf | | Execute Vector,Slice_Read
03e8 e001 | | Load 0x0,0x1
03e9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03ea 7014 |p | Jump_Nonzero 0x3ff
03eb 4801 |H | Short_Literal 0x1
03ec 0092 047a | z| Action Push_String_Extended,0x47a ; "Eedb.Configuration.Intolerant_Get_Position."
03ee 00da | | Load_Top At_Offset_2
03ef e803 | | Load 0x4,0x3
03f0 e802 | | Load 0x4,0x2
03f1 01cf | | Execute Vector,Slice_Read
03f2 e001 | | Load 0x0,0x1
03f3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03f4 700a |p | Jump_Nonzero 0x3ff
03f5 4801 |H | Short_Literal 0x1
03f6 0092 047b | {| Action Push_String_Extended,0x47b ; "Cannot "
03f8 00da | | Load_Top At_Offset_2
03f9 e803 | | Load 0x4,0x3
03fa e802 | | Load 0x4,0x2
03fb 01cf | | Execute Vector,Slice_Read
03fc e001 | | Load 0x0,0x1
03fd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03fe 6807 |h | Jump_Zero 0x406
03ff e00d | | Load 0x0,0xd
0400 180e | | Execute Package,Field_Execute,Field_Number 0xe
0401 4807 |H | Short_Literal 0x7
0402 e802 | | Load 0x4,0x2
0403 e00e | | Load 0x0,0xe
0404 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0405 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0406 4801 |H | Short_Literal 0x1
0407 0092 047c | || Action Push_String_Extended,0x47c ; "Warning: "
0409 00da | | Load_Top At_Offset_2
040a e803 | | Load 0x4,0x3
040b e802 | | Load 0x4,0x2
040c 01cf | | Execute Vector,Slice_Read
040d e001 | | Load 0x0,0x1
040e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
040f 6807 |h | Jump_Zero 0x417
0410 e00d | | Load 0x0,0xd
0411 180e | | Execute Package,Field_Execute,Field_Number 0xe
0412 4806 |H | Short_Literal 0x6
0413 e802 | | Load 0x4,0x2
0414 e00e | | Load 0x0,0xe
0415 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0416 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0417 e00d | | Load 0x0,0xd
0418 180e | | Execute Package,Field_Execute,Field_Number 0xe
0419 4802 |H | Short_Literal 0x2
041a e802 | | Load 0x4,0x2
041b e00e | | Load 0x0,0xe
041c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
041d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
041e 0000 0000 | | .XXX[0x2]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0431 | 1 | .CONST 0x0431 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0002 | | .CONST 0x0002 ; Number of locals
0423 INIT_0420:
0423 e7ff | | Load 0x3,-0x1
0424 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0425 e005 | | Load 0x0,0x5
0426 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0427 e005 | | Load 0x0,0x5
0428 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0429 e7ff | | Load 0x3,-0x1
042a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
042b e005 | | Load 0x0,0x5
042c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
042d 0272 | r | Execute Discrete,Minus
042e 09fd | | Execute_Immediate Binary_Scale,-0x3
042f 00e5 | | Load_Encached Long_Integer_Cache
0430 03f1 | | Declare_Variable Discrete,With_Value
0431 BODY_0420:
0431 00d8 | | Load_Top At_Offset_0
0432 0d01 | | Execute_Immediate Less,0x1
0433 6803 |h | Jump_Zero 0x437
0434 4800 |H | Short_Literal 0x0
0435 a7fd | | Store_Unchecked 0x3,-0x3
0436 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0437 00d8 | | Load_Top At_Offset_0
0438 e7fe | | Load 0x3,-0x2
0439 01db | | Execute Vector,Length
043a 027c | | | Execute Discrete,Less
043b 6825 |h% | Jump_Zero 0x461
043c e7fe | | Load 0x3,-0x2
043d 00d8 | | Load_Top At_Offset_0
043e 01dd | | Execute Vector,First
043f e7fe | | Load 0x3,-0x2
0440 01dd | | Execute Vector,First
0441 00db | | Load_Top At_Offset_3
0442 00d8 | | Load_Top At_Offset_0
0443 00e3 | | Load_Encached Natural_Cache
0444 0260 | ` | Execute Discrete,In_Type
0445 7001 |p | Jump_Nonzero 0x447
0446 0801 | | Execute_Immediate Raise,0x1
0447 0273 | s | Execute Discrete,Plus
0448 0aff | | Execute_Immediate Plus,-0x1
0449 00d8 | | Load_Top At_Offset_0
044a 00e2 | | Load_Encached Integer_Cache
044b 0260 | ` | Execute Discrete,In_Type
044c 7001 |p | Jump_Nonzero 0x44e
044d 0801 | | Execute_Immediate Raise,0x1
044e 00da | | Load_Top At_Offset_2
044f 035b | [ | Declare_Type Array,Constrained
0450 00d0 | | Action Swap_Control
0451 01cd | | Execute Vector,Slice_Reference
0452 00e3 | | Load_Encached Natural_Cache
0453 00d9 | | Load_Top At_Offset_1
0454 e7ff | | Load 0x3,-0x1
0455 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0456 e7ff | | Load 0x3,-0x1
0457 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0458 e005 | | Load 0x0,0x5
0459 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
045a 180f | | Execute Package,Field_Execute,Field_Number 0xf
045b e7ff | | Load 0x3,-0x1
045c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
045d 00d1 | | Pop_Control Pop_Count_1
045e c7fd | | Store 0x3,-0x3
045f 00d1 | | Pop_Control Pop_Count_1
0460 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0461 00e3 | | Load_Encached Natural_Cache
0462 e7fe | | Load 0x3,-0x2
0463 e7ff | | Load 0x3,-0x1
0464 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0465 e7ff | | Load 0x3,-0x1
0466 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0467 e005 | | Load 0x0,0x5
0468 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0469 180f | | Execute Package,Field_Execute,Field_Number 0xf
046a e7ff | | Load 0x3,-0x1
046b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
046c 00d1 | | Pop_Control Pop_Count_1
046d c7fd | | Store 0x3,-0x3
046e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
046f ; --------------------------------------------------------------------------------------
046f ; STRING TABLE
046f ; --------------------------------------------------------------------------------------
046f 001e | | .STRTAB 0x001e->0x047e ; "XFER"
0470 0020 | | .STRTAB 0x0020->0x0480 ; "MLOAD"
0471 0023 | # | .STRTAB 0x0023->0x0482 ; "SEG"
0472 0024 | $ | .STRTAB 0x0024->0x0484 ; "OTHER"
0473 0027 | ' | .STRTAB 0x0027->0x0486 ; "!!"
0474 0027 | ' | .STRTAB 0x0027->0x0487 ; "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"
0475 010b | | .STRTAB 0x010b->0x04fa ; " is empty."
0476 0113 | | .STRTAB 0x0113->0x04ff ; "Io_Exceptions.End_Error raised in Get_Xfer.Open."
0477 0141 | A | .STRTAB 0x0141->0x0517 ; ".XFER"
0478 0144 | D | .STRTAB 0x0144->0x051a ; "Unable "
0479 0149 | I | .STRTAB 0x0149->0x051d ; "Possible "
047a 0150 | P | .STRTAB 0x0150->0x0522 ; "Eedb.Configuration.Intolerant_Get_Position."
047b 0179 | y | .STRTAB 0x0179->0x0537 ; "Cannot "
047c 017e | ~ | .STRTAB 0x017e->0x053b ; "Warning: "
047d 0185 | | .STREND 0x0185->0x053f
047e 5846 4552 |XFER| .STRTAB_STRINGS
0540 ; --------------------------------------------------------------------------------------
0540 ; Debug Table
0540 ; --------------------------------------------------------------------------------------
0540 0004 0014 | | .DEBUG4 0x0004,0x0014,0xd49f,0x0000,0x0001,0x0000
0546 0000 0000 | | .BLANK 0000[0xba]