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