|
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_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 08e0 | | .CONST 0x08e0 ; 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 012a | * | .CONST 0x012a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0047 | G | .CONST 0x0047 ; Number of locals
000b INIT_0008:
000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
000c 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
000d 4800 |H | Short_Literal 0x0
000e 4802 |H | Short_Literal 0x2
000f 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0014 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0016 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0018 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
001a 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
001c 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
001e 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0020 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
0022 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
0024 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
0026 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated
0028 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
002a 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
002c 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated
002e 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated
0030 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
0032 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated
0034 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
0036 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated
0038 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
003a 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated
003c 029a 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call,Visible,Unelaborated
003e e001 | | Load 0x0,0x1
003f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0040 0129 | ) | Execute Any,Make_Visible
0041 00d8 | | Load_Top At_Offset_0
0042 00d9 | | Load_Top At_Offset_1
0043 00da | | Load_Top At_Offset_2
0044 00e2 | | Load_Encached Integer_Cache
0045 e002 | | Load 0x0,0x2
0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0047 029f 084b | K| Declare_Subprogram INIT_0848,For_Call
0049 4805 |H | Short_Literal 0x5
004a 032e | . | Declare_Type Record,Defined,Visible
004b e001 | | Load 0x0,0x1
004c 191b | | Execute Package,Field_Reference,Field_Number 0x1b
004d 0129 | ) | Execute Any,Make_Visible
004e 4807 |H | Short_Literal 0x7
004f 032a | * | Declare_Type Record,Incomplete
0050 00d8 | | Load_Top At_Offset_0
0051 02a0 | | Declare_Subprogram Null_Subprogram
0052 e211 | | Load 0x1,0x11
0053 03a3 | | Complete_Type Heap_Access,By_Defining
0054 480a |H | Short_Literal 0xa
0055 032a | * | Declare_Type Record,Incomplete
0056 00d8 | | Load_Top At_Offset_0
0057 02a0 | | Declare_Subprogram Null_Subprogram
0058 e210 | | Load 0x1,0x10
0059 03a3 | | Complete_Type Heap_Access,By_Defining
005a 00bf | | Action Accept_Activation
005b 00e9 | | Load_Encached String_Cache
005c 02a0 | | Declare_Subprogram Null_Subprogram
005d 03ad | | Declare_Type Heap_Access,Defined
005e e003 | | Load 0x0,0x3
005f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0060 02a0 | | Declare_Subprogram Null_Subprogram
0061 03ad | | Declare_Type Heap_Access,Defined
0062 00e1 | | Load_Encached Boolean_Cache
0063 e004 | | Load 0x0,0x4
0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0065 00da | | Load_Top At_Offset_2
0066 00db | | Load_Top At_Offset_3
0067 e22e | . | Load 0x1,0x2e
0068 00d8 | | Load_Top At_Offset_0
0069 00e1 | | Load_Encached Boolean_Cache
006a e005 | | Load 0x0,0x5
006b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
006c e211 | | Load 0x1,0x11
006d e006 | | Load 0x0,0x6
006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006f 029f 05a3 | | Declare_Subprogram INIT_05a0,For_Call
0071 e22d | - | Load 0x1,0x2d
0072 0326 | & | Complete_Type Record,By_Defining
0073 e210 | | Load 0x1,0x10
0074 4801 |H | Short_Literal 0x1
0075 60ea |` | Indirect_Literal Discrete,0x160,{0x00000000, 0x00000400}
0076 00e9 | | Load_Encached String_Cache
0077 035b | [ | Declare_Type Array,Constrained
0078 00e2 | | Load_Encached Integer_Cache
0079 e007 | | Load 0x0,0x7
007a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007b 00e1 | | Load_Encached Boolean_Cache
007c e212 | | Load 0x1,0x12
007d e211 | | Load 0x1,0x11
007e 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call
0080 e22c | , | Load 0x1,0x2c
0081 0326 | & | Complete_Type Record,By_Defining
0082 e007 | | Load 0x0,0x7
0083 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0084 02c7 | | Declare_Variable Any
0085 00d8 | | Load_Top At_Offset_0
0086 1c00 | | Execute_Immediate Run_Utility,0x0
0087 e22c | , | Load 0x1,0x2c
0088 0322 | " | Declare_Variable Record
0089 e210 | | Load 0x1,0x10
008a 00d9 | | Load_Top At_Offset_1
008b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008c e22c | , | Load 0x1,0x2c
008d 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
008e 0337 | 7 | Declare_Variable Array
008f 60d0 |` | Indirect_Literal Discrete,0x160,{0x00000000, 0x00000400}
0090 4801 |H | Short_Literal 0x1
0091 4800 |H | Short_Literal 0x0
0092 00d9 | | Load_Top At_Offset_1
0093 e232 | 2 | Load 0x1,0x32
0094 01d6 | | Execute Vector,Field_Write
0095 3ffb |? | Loop_Increasing 0x91
0096 e22c | , | Load 0x1,0x2c
0097 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0098 0119 | | Execute Any,Check_In_Formal_Type
0099 00d9 | | Load_Top At_Offset_1
009a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
009b 4800 |H | Short_Literal 0x0
009c 00d9 | | Load_Top At_Offset_1
009d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
009e e211 | | Load 0x1,0x11
009f 00d9 | | Load_Top At_Offset_1
00a0 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
00a1 00d9 | | Load_Top At_Offset_1
00a2 e22c | , | Load 0x1,0x2c
00a3 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
00a4 0119 | | Execute Any,Check_In_Formal_Type
00a5 00d9 | | Load_Top At_Offset_1
00a6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00a7 4800 |H | Short_Literal 0x0
00a8 00d9 | | Load_Top At_Offset_1
00a9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00aa 4800 |H | Short_Literal 0x0
00ab 00d9 | | Load_Top At_Offset_1
00ac 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00ad e001 | | Load 0x0,0x1
00ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00af 02c7 | | Declare_Variable Any
00b0 487f |H | Short_Literal 0x7f
00b1 e008 | | Load 0x0,0x8
00b2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b3 e009 | | Load 0x0,0x9
00b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b5 e001 | | Load 0x0,0x1
00b6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b7 a232 | 2 | Store_Unchecked 0x1,0x32
00b8 e00a | | Load 0x0,0xa
00b9 e00b | | Load 0x0,0xb
00ba 4865 |He | Short_Literal 0x65
00bb e001 | | Load 0x0,0x1
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd e22a | * | Load 0x1,0x2a
00be e001 | | Load 0x0,0x1
00bf 1919 | | Execute Package,Field_Reference,Field_Number 0x19
00c0 e00c | | Load 0x0,0xc
00c1 0387 | | Declare_Variable Package
00c2 00d8 | | Load_Top At_Offset_0
00c3 020f | | Execute Module,Activate
00c4 00d8 | | Load_Top At_Offset_0
00c5 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c6 e00d | | Load 0x0,0xd
00c7 e00e | | Load 0x0,0xe
00c8 4865 |He | Short_Literal 0x65
00c9 e001 | | Load 0x0,0x1
00ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cb e234 | 4 | Load 0x1,0x34
00cc e001 | | Load 0x0,0x1
00cd 1919 | | Execute Package,Field_Reference,Field_Number 0x19
00ce e00c | | Load 0x0,0xc
00cf 0387 | | Declare_Variable Package
00d0 00d8 | | Load_Top At_Offset_0
00d1 020f | | Execute Module,Activate
00d2 00d8 | | Load_Top At_Offset_0
00d3 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00d4 00e1 | | Load_Encached Boolean_Cache
00d5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00d6 4a00 |J | Short_Literal 0x200
00d7 e00f | | Load 0x0,0xf
00d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d9 1c08 | | Execute_Immediate Run_Utility,0x8
00da 00d8 | | Load_Top At_Offset_0
00db 1c00 | | Execute_Immediate Run_Utility,0x0
00dc 4a00 |J | Short_Literal 0x200
00dd e00f | | Load 0x0,0xf
00de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00df 1c08 | | Execute_Immediate Run_Utility,0x8
00e0 00d8 | | Load_Top At_Offset_0
00e1 1c00 | | Execute_Immediate Run_Utility,0x0
00e2 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call
00e4 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
00e6 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call
00e8 029d 069b | | Declare_Subprogram INIT_0698,For_Outer_Call
00ea 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00eb 00c7 | | Action Elaborate_Subprogram
00ec 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call
00ee 029d 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call
00f0 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call
00f2 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call
00f4 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call
00f6 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call
00f8 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call
00fa 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call
00fc 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00fd 00c7 | | Action Elaborate_Subprogram
00fe 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00ff 00c7 | | Action Elaborate_Subprogram
0100 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call
0102 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0103 00c7 | | Action Elaborate_Subprogram
0104 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0105 00c7 | | Action Elaborate_Subprogram
0106 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0107 00c7 | | Action Elaborate_Subprogram
0108 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0109 00c7 | | Action Elaborate_Subprogram
010a 029d 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call
010c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
010d 00c7 | | Action Elaborate_Subprogram
010e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
010f 00c7 | | Action Elaborate_Subprogram
0110 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0111 00c7 | | Action Elaborate_Subprogram
0112 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0113 00c7 | | Action Elaborate_Subprogram
0114 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0115 00c7 | | Action Elaborate_Subprogram
0116 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0117 00c7 | | Action Elaborate_Subprogram
0118 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0119 00c7 | | Action Elaborate_Subprogram
011a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
011b 00c7 | | Action Elaborate_Subprogram
011c 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
011d 00c7 | | Action Elaborate_Subprogram
011e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
011f 00c7 | | Action Elaborate_Subprogram
0120 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0121 00c7 | | Action Elaborate_Subprogram
0122 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0123 00c7 | | Action Elaborate_Subprogram
0124 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0125 00c7 | | Action Elaborate_Subprogram
0126 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0127 00c7 | | Action Elaborate_Subprogram
0128 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0129 00c7 | | Action Elaborate_Subprogram
012a BODY_0008:
012a e235 | 5 | Load 0x1,0x35
012b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
012c 480a |H | Short_Literal 0xa
012d e008 | | Load 0x0,0x8
012e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012f e009 | | Load 0x0,0x9
0130 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0131 e235 | 5 | Load 0x1,0x35
0132 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0133 c236 | 6 | Store 0x1,0x36
0134 00bc | | Action Signal_Activated
0135 00bb | | Action Signal_Completion
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 4607 |F | Jump_Case 0x8
013c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
013d 7806 |x | Jump 0x144 ; case 0x1
013e 7809 |x | Jump 0x148 ; case 0x2
013f 780d |x | Jump 0x14d ; case 0x3
0140 7810 |x | Jump 0x151 ; case 0x4
0141 7811 |x | Jump 0x153 ; case 0x5
0142 7812 |x | Jump 0x155 ; case 0x6
0143 7815 |x | Jump 0x159 ; case 0x7
0144 00da | | Load_Top At_Offset_2
0145 0091 085d | ]| Action Push_String_Extended_Indexed,0x85d ; "IN_FILE"
0147 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0148 00db | | Load_Top At_Offset_3
0149 00db | | Load_Top At_Offset_3
014a 00e0 | | Load_Encached Standard_Cache
014b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
014c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
014d 00da | | Load_Top At_Offset_2
014e 00e0 | | Load_Encached Standard_Cache
014f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0150 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0151 00db | | Load_Top At_Offset_3
0152 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0153 00db | | Load_Top At_Offset_3
0154 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0155 e212 | | Load 0x1,0x12
0156 00dc | | Load_Top At_Offset_4
0157 0267 | g | Execute Discrete,Predecessor
0158 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0159 e212 | | Load 0x1,0x12
015a 00dc | | Load_Top At_Offset_4
015b 0268 | h | Execute Discrete,Successor
015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c 0217 | | Execute Heap_Access,All_Reference
016d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016f 0000 | | .XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175 | u | .CONST 0x0175 ; Address of begin
0171 01fb | | .CONST 0x01fb ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e003 | | Load 0x0,0x3
0174 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0175 BODY_0170:
0175 e5fb | | Load 0x2,-0x5
0176 700a |p | Jump_Nonzero 0x181
0177 e210 | | Load 0x1,0x10
0178 e008 | | Load 0x0,0x8
0179 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017a e009 | | Load 0x0,0x9
017b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017c 039c | | Declare_Variable Heap_Access,By_Allocation
017d 00d8 | | Load_Top At_Offset_0
017e 0217 | | Execute Heap_Access,All_Reference
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 a5fb | | Store_Unchecked 0x2,-0x5
0181 4801 |H | Short_Literal 0x1
0182 e5fb | | Load 0x2,-0x5
0183 0217 | | Execute Heap_Access,All_Reference
0184 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0185 e5fc | | Load 0x2,-0x4
0186 e5fb | | Load 0x2,-0x5
0187 0217 | | Execute Heap_Access,All_Reference
0188 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0189 e5fb | | Load 0x2,-0x5
018a 0219 | | Execute Heap_Access,All_Read
018b e003 | | Load 0x0,0x3
018c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
018d 00d9 | | Load_Top At_Offset_1
018e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018f 0120 | | Execute Any,Is_Value
0190 6803 |h | Jump_Zero 0x194
0191 e004 | | Load 0x0,0x4
0192 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0193 7802 |x | Jump 0x196
0194 00d9 | | Load_Top At_Offset_1
0195 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0196 e004 | | Load 0x0,0x4
0197 180f | | Execute Package,Field_Execute,Field_Number 0xf
0198 00da | | Load_Top At_Offset_2
0199 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019a 005a | Z | Store_Top Discrete,At_Offset_2
019b 00d1 | | Pop_Control Pop_Count_1
019c e5fb | | Load 0x2,-0x5
019d 0217 | | Execute Heap_Access,All_Reference
019e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019f e004 | | Load 0x0,0x4
01a0 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01a1 7006 |p | Jump_Nonzero 0x1a8
01a2 4805 |H | Short_Literal 0x5
01a3 0092 0860 | `| Action Push_String_Extended,0x860 ; "File_Transfer.Open failed"
01a5 e5fb | | Load 0x2,-0x5
01a6 823e | > | Call 0x1,0x3e
01a7 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01a8 4801 |H | Short_Literal 0x1
01a9 0092 0861 | a| Action Push_String_Extended,0x861 ; "<MV>"
01ab e5ff | | Load 0x2,-0x1
01ac e010 | | Load 0x0,0x10
01ad 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01ae e5fb | | Load 0x2,-0x5
01af 0217 | | Execute Heap_Access,All_Reference
01b0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01b1 e5fb | | Load 0x2,-0x5
01b2 0217 | | Execute Heap_Access,All_Reference
01b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b4 6823 |h# | Jump_Zero 0x1d8
01b5 0092 0862 | b| Action Push_String_Extended,0x862 ; "moe_ftp"
01b7 8245 | E | Call 0x1,0x45
01b8 e5fb | | Load 0x2,-0x5
01b9 0217 | | Execute Heap_Access,All_Reference
01ba 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01bb 0092 0863 | c| Action Push_String_Extended,0x863 ; "curly_ftp"
01bd 8245 | E | Call 0x1,0x45
01be e5fb | | Load 0x2,-0x5
01bf 0217 | | Execute Heap_Access,All_Reference
01c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01c1 0092 0864 | d| Action Push_String_Extended,0x864 ; "ratnet"
01c3 e22e | . | Load 0x1,0x2e
01c4 e008 | | Load 0x0,0x8
01c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c6 e009 | | Load 0x0,0x9
01c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01c9 e5fb | | Load 0x2,-0x5
01ca 0217 | | Execute Heap_Access,All_Reference
01cb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01cc 0092 0865 | e| Action Push_String_Extended,0x865 ; "netrat"
01ce e22e | . | Load 0x1,0x2e
01cf e008 | | Load 0x0,0x8
01d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d1 e009 | | Load 0x0,0x9
01d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d3 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01d4 e5fb | | Load 0x2,-0x5
01d5 0217 | | Execute Heap_Access,All_Reference
01d6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
01d7 781f |x | Jump 0x1f7
01d8 00db | | Load_Top At_Offset_3
01d9 8245 | E | Call 0x1,0x45
01da e5fb | | Load 0x2,-0x5
01db 0217 | | Execute Heap_Access,All_Reference
01dc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01dd e5fb | | Load 0x2,-0x5
01de 0217 | | Execute Heap_Access,All_Reference
01df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01e0 e5fb | | Load 0x2,-0x5
01e1 0217 | | Execute Heap_Access,All_Reference
01e2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01e3 e5fe | | Load 0x2,-0x2
01e4 e22e | . | Load 0x1,0x2e
01e5 e008 | | Load 0x0,0x8
01e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e7 e009 | | Load 0x0,0x9
01e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e9 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01ea e5fb | | Load 0x2,-0x5
01eb 0217 | | Execute Heap_Access,All_Reference
01ec 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01ed e5fd | | Load 0x2,-0x3
01ee e22e | . | Load 0x1,0x2e
01ef e008 | | Load 0x0,0x8
01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f1 e009 | | Load 0x0,0x9
01f2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f3 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01f4 e5fb | | Load 0x2,-0x5
01f5 0217 | | Execute Heap_Access,All_Reference
01f6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
01f7 4805 |H | Short_Literal 0x5
01f8 e5fb | | Load 0x2,-0x5
01f9 8244 | D | Call 0x1,0x44
01fa 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01fb TRAP_0170:
01fb 00d8 | | Load_Top At_Offset_0
01fc 0107 | | Execute Exception,Get_Name
01fd 4940 |I@ | Short_Literal 0x140
01fe 494f |IO | Short_Literal 0x14f
01ff 0262 | b | Execute Discrete,In_Range
0200 6805 |h | Jump_Zero 0x206
0201 4800 |H | Short_Literal 0x0
0202 e5fb | | Load 0x2,-0x5
0203 0217 | | Execute Heap_Access,All_Reference
0204 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0205 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0206 0100 | | Execute Exception,Raise
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020e | | .CONST 0x020e ; Address of begin
0209 0234 | 4 | .CONST 0x0234 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c 0217 | | Execute Heap_Access,All_Reference
020d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
020e BODY_0208:
020e 00cf | | Action Mark_Auxiliary
020f 7816 |x | Jump 0x226
0210 00d9 | | Load_Top At_Offset_1
0211 0217 | | Execute Heap_Access,All_Reference
0212 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0213 6809 |h | Jump_Zero 0x21d
0214 00d9 | | Load_Top At_Offset_1
0215 0219 | | Execute Heap_Access,All_Read
0216 00d8 | | Load_Top At_Offset_0
0217 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0218 e007 | | Load 0x0,0x7
0219 181a | | Execute Package,Field_Execute,Field_Number 0x1a
021a 00d9 | | Load_Top At_Offset_1
021b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
021c 00d1 | | Pop_Control Pop_Count_1
021d 4800 |H | Short_Literal 0x0
021e 00da | | Load_Top At_Offset_2
021f 0217 | | Execute Heap_Access,All_Reference
0220 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0221 00d9 | | Load_Top At_Offset_1
0222 0217 | | Execute Heap_Access,All_Reference
0223 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0224 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0225 00c9 | | Action Pop_Auxiliary_Loop
0226 00d9 | | Load_Top At_Offset_1
0227 77e8 |w | Jump_Nonzero 0x210
0228 00ce | | Action Pop_Auxiliary
0229 00db | | Load_Top At_Offset_3
022a 0217 | | Execute Heap_Access,All_Reference
022b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
022c e004 | | Load 0x0,0x4
022d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
022e 00db | | Load_Top At_Offset_3
022f 0217 | | Execute Heap_Access,All_Reference
0230 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0231 e004 | | Load 0x0,0x4
0232 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0233 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0234 TRAP_0208:
0234 0007 | | Action Break_Optional
0235 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 025f | _ | .CONST 0x025f ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 4801 |H | Short_Literal 0x1
023c 00db | | Load_Top At_Offset_3
023d 0217 | | Execute Heap_Access,All_Reference
023e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
023f 4805 |H | Short_Literal 0x5
0240 00db | | Load_Top At_Offset_3
0241 8244 | D | Call 0x1,0x44
0242 e5fd | | Load 0x2,-0x3
0243 00db | | Load_Top At_Offset_3
0244 0217 | | Execute Heap_Access,All_Reference
0245 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0246 e004 | | Load 0x0,0x4
0247 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0248 00da | | Load_Top At_Offset_2
0249 8246 | F | Call 0x1,0x46
024a 4800 |H | Short_Literal 0x0
024b e5fd | | Load 0x2,-0x3
024c e5fe | | Load 0x2,-0x2
024d e5ff | | Load 0x2,-0x1
024e 0217 | | Execute Heap_Access,All_Reference
024f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0250 e004 | | Load 0x0,0x4
0251 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0252 4806 |H | Short_Literal 0x6
0253 00db | | Load_Top At_Offset_3
0254 8243 | C | Call 0x1,0x43
0255 00da | | Load_Top At_Offset_2
0256 0217 | | Execute Heap_Access,All_Reference
0257 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0258 4803 |H | Short_Literal 0x3
0259 0092 0866 | f| Action Push_String_Extended,0x866 ; "stored "
025b e5fd | | Load 0x2,-0x3
025c 01cc | | Execute Vector,Catenate
025d 820f | | Call 0x1,0xf
025e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
025f TRAP_0238:
025f 00d8 | | Load_Top At_Offset_0
0260 0107 | | Execute Exception,Get_Name
0261 4940 |I@ | Short_Literal 0x140
0262 494f |IO | Short_Literal 0x14f
0263 0262 | b | Execute Discrete,In_Range
0264 6805 |h | Jump_Zero 0x26a
0265 4800 |H | Short_Literal 0x0
0266 e5ff | | Load 0x2,-0x1
0267 0217 | | Execute Heap_Access,All_Reference
0268 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0269 4504 |E | Exit_Suprogram New_Top_Offset 0x4
026a 0100 | | Execute Exception,Raise
026b 0000 0000 | | .BLANK 0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0289 | | .CONST 0x0289 ; Address of begin
0271 02f6 | | .CONST 0x02f6 ; Address of exception handler
0272 0008 | | .CONST 0x0008 ; Number of locals
0273 INIT_0270:
0273 4801 |H | Short_Literal 0x1
0274 6093 |` | Indirect_Literal Discrete,0x308,{0x00000000, 0x00001000}
0275 e011 | | Load 0x0,0x11
0276 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0277 035b | [ | Declare_Type Array,Constrained
0278 0337 | 7 | Declare_Variable Array
0279 00e2 | | Load_Encached Integer_Cache
027a e211 | | Load 0x1,0x11
027b 0007 | | Action Break_Optional
027c e5fc | | Load 0x2,-0x4
027d 00e2 | | Load_Encached Integer_Cache
027e 03f1 | | Declare_Variable Discrete,With_Value
027f 6088 |` | Indirect_Literal Discrete,0x308,{0x00000000, 0x00001000}
0280 00e2 | | Load_Encached Integer_Cache
0281 03f1 | | Declare_Variable Discrete,With_Value
0282 e005 | | Load 0x0,0x5
0283 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0284 e007 | | Load 0x0,0x7
0285 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0286 02c7 | | Declare_Variable Any
0287 00d8 | | Load_Top At_Offset_0
0288 1c00 | | Execute_Immediate Run_Utility,0x0
0289 BODY_0270:
0289 e5fc | | Load 0x2,-0x4
028a 6079 |`y | Indirect_Literal Discrete,0x304,{0x00000000, 0x7fffffff}
028b 027f | | Execute Discrete,Equal
028c 6832 |h2 | Jump_Zero 0x2bf
028d 4801 |H | Short_Literal 0x1
028e e5ff | | Load 0x2,-0x1
028f 0217 | | Execute Heap_Access,All_Reference
0290 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0291 4805 |H | Short_Literal 0x5
0292 e5ff | | Load 0x2,-0x1
0293 8244 | D | Call 0x1,0x44
0294 e5fd | | Load 0x2,-0x3
0295 e5ff | | Load 0x2,-0x1
0296 0217 | | Execute Heap_Access,All_Reference
0297 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0298 e004 | | Load 0x0,0x4
0299 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
029a e5ff | | Load 0x2,-0x1
029b 8246 | F | Call 0x1,0x46
029c e5ff | | Load 0x2,-0x1
029d 0217 | | Execute Heap_Access,All_Reference
029e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
029f e004 | | Load 0x0,0x4
02a0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02a1 003a | : | Store_Top Access,At_Offset_2
02a2 00d9 | | Load_Top At_Offset_1
02a3 0229 | ) | Execute Access,All_Read
02a4 c408 | | Store 0x2,0x8
02a5 e5fe | | Load 0x2,-0x2
02a6 00da | | Load_Top At_Offset_2
02a7 0228 | ( | Execute Access,All_Write
02a8 4800 |H | Short_Literal 0x0
02a9 e5fd | | Load 0x2,-0x3
02aa e5ff | | Load 0x2,-0x1
02ab 0217 | | Execute Heap_Access,All_Reference
02ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ad e004 | | Load 0x0,0x4
02ae 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02af 4806 |H | Short_Literal 0x6
02b0 e5ff | | Load 0x2,-0x1
02b1 8243 | C | Call 0x1,0x43
02b2 00d8 | | Load_Top At_Offset_0
02b3 00da | | Load_Top At_Offset_2
02b4 0228 | ( | Execute Access,All_Write
02b5 e5ff | | Load 0x2,-0x1
02b6 0217 | | Execute Heap_Access,All_Reference
02b7 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
02b8 4803 |H | Short_Literal 0x3
02b9 0092 0866 | f| Action Push_String_Extended,0x866 ; "stored "
02bb e5fd | | Load 0x2,-0x3
02bc 01cc | | Execute Vector,Catenate
02bd 820f | | Call 0x1,0xf
02be 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02bf e211 | | Load 0x1,0x11
02c0 e012 | | Load 0x0,0x12
02c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c2 00ea | | Load_Encached Null_String_Cache
02c3 e5fd | | Load 0x2,-0x3
02c4 4801 |H | Short_Literal 0x1
02c5 e5ff | | Load 0x2,-0x1
02c6 821a | | Call 0x1,0x1a
02c7 c404 | | Store 0x2,0x4
02c8 00cf | | Action Mark_Auxiliary
02c9 7824 |x$ | Jump 0x2ee
02ca e5fe | | Load 0x2,-0x2
02cb e007 | | Load 0x0,0x7
02cc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02cd 7023 |p# | Jump_Nonzero 0x2f1
02ce e405 | | Load 0x2,0x5
02cf 6038 |`8 | Indirect_Literal Discrete,0x308,{0x00000000, 0x00001000}
02d0 027c | | | Execute Discrete,Less
02d1 6802 |h | Jump_Zero 0x2d4
02d2 e405 | | Load 0x2,0x5
02d3 a406 | | Store_Unchecked 0x2,0x6
02d4 e402 | | Load 0x2,0x2
02d5 4801 |H | Short_Literal 0x1
02d6 e406 | | Load 0x2,0x6
02d7 00da | | Load_Top At_Offset_2
02d8 035b | [ | Declare_Type Array,Constrained
02d9 00d0 | | Action Swap_Control
02da 01cd | | Execute Vector,Slice_Reference
02db 00e3 | | Load_Encached Natural_Cache
02dc 00d9 | | Load_Top At_Offset_1
02dd e5fe | | Load 0x2,-0x2
02de e007 | | Load 0x0,0x7
02df 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02e0 00d1 | | Pop_Control Pop_Count_1
02e1 c403 | | Store 0x2,0x3
02e2 00d1 | | Pop_Control Pop_Count_1
02e3 4801 |H | Short_Literal 0x1
02e4 e403 | | Load 0x2,0x3
02e5 e402 | | Load 0x2,0x2
02e6 01cf | | Execute Vector,Slice_Read
02e7 e404 | | Load 0x2,0x4
02e8 8225 | % | Call 0x1,0x25
02e9 e405 | | Load 0x2,0x5
02ea e403 | | Load 0x2,0x3
02eb 0272 | r | Execute Discrete,Minus
02ec c405 | | Store 0x2,0x5
02ed 00c9 | | Action Pop_Auxiliary_Loop
02ee e405 | | Load 0x2,0x5
02ef 0c01 | | Execute_Immediate Greater_Equal,0x1
02f0 77d9 |w | Jump_Nonzero 0x2ca
02f1 00ce | | Action Pop_Auxiliary
02f2 e404 | | Load 0x2,0x4
02f3 821b | | Call 0x1,0x1b
02f4 c404 | | Store 0x2,0x4
02f5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02f6 TRAP_0270:
02f6 00d8 | | Load_Top At_Offset_0
02f7 0107 | | Execute Exception,Get_Name
02f8 4940 |I@ | Short_Literal 0x140
02f9 494f |IO | Short_Literal 0x14f
02fa 0262 | b | Execute Discrete,In_Range
02fb 6805 |h | Jump_Zero 0x301
02fc 4800 |H | Short_Literal 0x0
02fd e5ff | | Load 0x2,-0x1
02fe 0217 | | Execute Heap_Access,All_Reference
02ff 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0300 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0301 0100 | | Execute Exception,Raise
0302 0000 0000 | | .XXX[0x2]
0304 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0308 0000 0000 | | .LITERAL {0x00000000, 0x00001000}
030c 0000 0000 | | .BLANK 0000[0x4]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0337 | 7 | .CONST 0x0337 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 4801 |H | Short_Literal 0x1
0314 00db | | Load_Top At_Offset_3
0315 0217 | | Execute Heap_Access,All_Reference
0316 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0317 4805 |H | Short_Literal 0x5
0318 00db | | Load_Top At_Offset_3
0319 8244 | D | Call 0x1,0x44
031a 00da | | Load_Top At_Offset_2
031b 8246 | F | Call 0x1,0x46
031c 4800 |H | Short_Literal 0x0
031d e5fe | | Load 0x2,-0x2
031e e5fd | | Load 0x2,-0x3
031f e5ff | | Load 0x2,-0x1
0320 0217 | | Execute Heap_Access,All_Reference
0321 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0322 e004 | | Load 0x0,0x4
0323 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0324 4806 |H | Short_Literal 0x6
0325 00db | | Load_Top At_Offset_3
0326 8243 | C | Call 0x1,0x43
0327 00da | | Load_Top At_Offset_2
0328 0217 | | Execute Heap_Access,All_Reference
0329 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
032a e004 | | Load 0x0,0x4
032b 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
032c a5fc | | Store_Unchecked 0x2,-0x4
032d 00da | | Load_Top At_Offset_2
032e 0217 | | Execute Heap_Access,All_Reference
032f 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0330 4803 |H | Short_Literal 0x3
0331 0092 0867 | g| Action Push_String_Extended,0x867 ; "retrieved "
0333 e5fe | | Load 0x2,-0x2
0334 01cc | | Execute Vector,Catenate
0335 820f | | Call 0x1,0xf
0336 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0337 TRAP_0310:
0337 00d8 | | Load_Top At_Offset_0
0338 0107 | | Execute Exception,Get_Name
0339 4940 |I@ | Short_Literal 0x140
033a 494f |IO | Short_Literal 0x14f
033b 0262 | b | Execute Discrete,In_Range
033c 6805 |h | Jump_Zero 0x342
033d 4800 |H | Short_Literal 0x0
033e e5ff | | Load 0x2,-0x1
033f 0217 | | Execute Heap_Access,All_Reference
0340 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0341 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0342 0100 | | Execute Exception,Raise
0343 0000 0000 | | .BLANK 0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0352 | R | .CONST 0x0352 ; Address of begin
0349 0383 | | .CONST 0x0383 ; Address of exception handler
034a 0003 | | .CONST 0x0003 ; Number of locals
034b INIT_0348:
034b e005 | | Load 0x0,0x5
034c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
034d e007 | | Load 0x0,0x7
034e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
034f 02c7 | | Declare_Variable Any
0350 00d8 | | Load_Top At_Offset_0
0351 1c00 | | Execute_Immediate Run_Utility,0x0
0352 BODY_0348:
0352 4801 |H | Short_Literal 0x1
0353 e5ff | | Load 0x2,-0x1
0354 0217 | | Execute Heap_Access,All_Reference
0355 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0356 4805 |H | Short_Literal 0x5
0357 e5ff | | Load 0x2,-0x1
0358 8244 | D | Call 0x1,0x44
0359 e5ff | | Load 0x2,-0x1
035a 8246 | F | Call 0x1,0x46
035b e5ff | | Load 0x2,-0x1
035c 0217 | | Execute Heap_Access,All_Reference
035d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
035e e004 | | Load 0x0,0x4
035f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0360 003a | : | Store_Top Access,At_Offset_2
0361 00d9 | | Load_Top At_Offset_1
0362 0229 | ) | Execute Access,All_Read
0363 c403 | | Store 0x2,0x3
0364 e5fd | | Load 0x2,-0x3
0365 00da | | Load_Top At_Offset_2
0366 0228 | ( | Execute Access,All_Write
0367 e5fe | | Load 0x2,-0x2
0368 e5ff | | Load 0x2,-0x1
0369 0217 | | Execute Heap_Access,All_Reference
036a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
036b e004 | | Load 0x0,0x4
036c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
036d 4806 |H | Short_Literal 0x6
036e e5ff | | Load 0x2,-0x1
036f 8243 | C | Call 0x1,0x43
0370 00d8 | | Load_Top At_Offset_0
0371 00da | | Load_Top At_Offset_2
0372 0228 | ( | Execute Access,All_Write
0373 e5ff | | Load 0x2,-0x1
0374 0217 | | Execute Heap_Access,All_Reference
0375 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0376 e004 | | Load 0x0,0x4
0377 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0378 a5fc | | Store_Unchecked 0x2,-0x4
0379 e5ff | | Load 0x2,-0x1
037a 0217 | | Execute Heap_Access,All_Reference
037b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
037c 4803 |H | Short_Literal 0x3
037d 0092 0867 | g| Action Push_String_Extended,0x867 ; "retrieved "
037f e5fe | | Load 0x2,-0x2
0380 01cc | | Execute Vector,Catenate
0381 820f | | Call 0x1,0xf
0382 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0383 TRAP_0348:
0383 00d8 | | Load_Top At_Offset_0
0384 0107 | | Execute Exception,Get_Name
0385 4940 |I@ | Short_Literal 0x140
0386 494f |IO | Short_Literal 0x14f
0387 0262 | b | Execute Discrete,In_Range
0388 6808 |h | Jump_Zero 0x391
0389 00d9 | | Load_Top At_Offset_1
038a 00db | | Load_Top At_Offset_3
038b 0228 | ( | Execute Access,All_Write
038c 4800 |H | Short_Literal 0x0
038d e5ff | | Load 0x2,-0x1
038e 0217 | | Execute Heap_Access,All_Reference
038f 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0390 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0391 0100 | | Execute Exception,Raise
0392 0000 0000 | | .BLANK 0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a0 | | .CONST 0x03a0 ; Address of begin
0399 0431 | 1 | .CONST 0x0431 ; Address of exception handler
039a 0003 | | .CONST 0x0003 ; Number of locals
039b INIT_0398:
039b 00da | | Load_Top At_Offset_2
039c 0217 | | Execute Heap_Access,All_Reference
039d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
039e 0007 | | Action Break_Optional
039f 00e3 | | Load_Encached Natural_Cache
03a0 BODY_0398:
03a0 00cf | | Action Mark_Auxiliary
03a1 00da | | Load_Top At_Offset_2
03a2 7015 |p | Jump_Nonzero 0x3b8
03a3 e211 | | Load 0x1,0x11
03a4 e008 | | Load 0x0,0x8
03a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03a6 e009 | | Load 0x0,0x9
03a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03a8 039c | | Declare_Variable Heap_Access,By_Allocation
03a9 00d8 | | Load_Top At_Offset_0
03aa 0217 | | Execute Heap_Access,All_Reference
03ab 1c00 | | Execute_Immediate Run_Utility,0x0
03ac 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03ad e5ff | | Load 0x2,-0x1
03ae 0217 | | Execute Heap_Access,All_Reference
03af 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03b0 00db | | Load_Top At_Offset_3
03b1 0217 | | Execute Heap_Access,All_Reference
03b2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
03b3 00da | | Load_Top At_Offset_2
03b4 e5ff | | Load 0x2,-0x1
03b5 0217 | | Execute Heap_Access,All_Reference
03b6 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
03b7 780b |x | Jump 0x3c3
03b8 00da | | Load_Top At_Offset_2
03b9 0217 | | Execute Heap_Access,All_Reference
03ba 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03bb 7001 |p | Jump_Nonzero 0x3bd
03bc 7806 |x | Jump 0x3c3
03bd 00da | | Load_Top At_Offset_2
03be 0217 | | Execute Heap_Access,All_Reference
03bf 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
03c0 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03c1 00c9 | | Action Pop_Auxiliary_Loop
03c2 7fde | | Jump 0x3a1
03c3 00ce | | Action Pop_Auxiliary
03c4 e5ff | | Load 0x2,-0x1
03c5 00da | | Load_Top At_Offset_2
03c6 0217 | | Execute Heap_Access,All_Reference
03c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03c8 e5fd | | Load 0x2,-0x3
03c9 01db | | Execute Vector,Length
03ca 00da | | Load_Top At_Offset_2
03cb 0217 | | Execute Heap_Access,All_Reference
03cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03cd e5fd | | Load 0x2,-0x3
03ce 4801 |H | Short_Literal 0x1
03cf 00db | | Load_Top At_Offset_3
03d0 0217 | | Execute Heap_Access,All_Reference
03d1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03d2 e402 | | Load 0x2,0x2
03d3 0219 | | Execute Heap_Access,All_Read
03d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d5 01ce | | Execute Vector,Slice_Write
03d6 e5fe | | Load 0x2,-0x2
03d7 00da | | Load_Top At_Offset_2
03d8 0217 | | Execute Heap_Access,All_Reference
03d9 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03da 4800 |H | Short_Literal 0x0
03db 00da | | Load_Top At_Offset_2
03dc 0217 | | Execute Heap_Access,All_Reference
03dd 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03de 00d9 | | Load_Top At_Offset_1
03df 0217 | | Execute Heap_Access,All_Reference
03e0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03e1 e007 | | Load 0x0,0x7
03e2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03e3 680b |h | Jump_Zero 0x3ef
03e4 00d9 | | Load_Top At_Offset_1
03e5 0219 | | Execute Heap_Access,All_Read
03e6 00d8 | | Load_Top At_Offset_0
03e7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03e8 4801 |H | Short_Literal 0x1
03e9 e007 | | Load 0x0,0x7
03ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03eb 00d9 | | Load_Top At_Offset_1
03ec 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03ed 00d1 | | Pop_Control Pop_Count_1
03ee 7812 |x | Jump 0x401
03ef 00d9 | | Load_Top At_Offset_1
03f0 0219 | | Execute Heap_Access,All_Read
03f1 00d8 | | Load_Top At_Offset_0
03f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03f3 e012 | | Load 0x0,0x12
03f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f5 e013 | | Load 0x0,0x13
03f6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03f7 e013 | | Load 0x0,0x13
03f8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03f9 00ea | | Load_Encached Null_String_Cache
03fa 00ea | | Load_Encached Null_String_Cache
03fb 4801 |H | Short_Literal 0x1
03fc e007 | | Load 0x0,0x7
03fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03fe 00d9 | | Load_Top At_Offset_1
03ff 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0400 00d1 | | Pop_Control Pop_Count_1
0401 e5fe | | Load 0x2,-0x2
0402 4602 |F | Jump_Case 0x3
0403 7814 |x | Jump 0x418 ; case 0x0
0404 7825 |x% | Jump 0x42a ; case 0x1
0405 7800 |x | Jump 0x406 ; case 0x2
0406 4801 |H | Short_Literal 0x1
0407 00da | | Load_Top At_Offset_2
0408 0217 | | Execute Heap_Access,All_Reference
0409 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
040a e5fd | | Load 0x2,-0x3
040b e5ff | | Load 0x2,-0x1
040c 8247 | G | Call 0x1,0x47
040d 00d9 | | Load_Top At_Offset_1
040e 0219 | | Execute Heap_Access,All_Read
040f 00d8 | | Load_Top At_Offset_0
0410 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0411 4800 |H | Short_Literal 0x0
0412 e007 | | Load 0x0,0x7
0413 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0414 00d9 | | Load_Top At_Offset_1
0415 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0416 00d1 | | Pop_Control Pop_Count_1
0417 7812 |x | Jump 0x42a
0418 00e3 | | Load_Encached Natural_Cache
0419 00da | | Load_Top At_Offset_2
041a 0217 | | Execute Heap_Access,All_Reference
041b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
041c e5fd | | Load 0x2,-0x3
041d e5ff | | Load 0x2,-0x1
041e 8219 | | Call 0x1,0x19
041f 0059 | Y | Store_Top Discrete,At_Offset_1
0420 00d9 | | Load_Top At_Offset_1
0421 0219 | | Execute Heap_Access,All_Read
0422 00d8 | | Load_Top At_Offset_0
0423 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0424 4800 |H | Short_Literal 0x0
0425 e007 | | Load 0x0,0x7
0426 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0427 00d9 | | Load_Top At_Offset_1
0428 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0429 00d1 | | Pop_Control Pop_Count_1
042a 4801 |H | Short_Literal 0x1
042b 00da | | Load_Top At_Offset_2
042c 0217 | | Execute Heap_Access,All_Reference
042d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
042e 00d9 | | Load_Top At_Offset_1
042f a5fa | | Store_Unchecked 0x2,-0x6
0430 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0431 TRAP_0398:
0431 0007 | | Action Break_Optional
0432 0092 0868 | h| Action Push_String_Extended,0x868 ; "in Mt_Remote_Io.Open"
0434 e5ff | | Load 0x2,-0x1
0435 823f | ? | Call 0x1,0x3f
0436 00d8 | | Load_Top At_Offset_0
0437 0101 | | Execute Exception,Reraise
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 045c | \ | .CONST 0x045c ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 00da | | Load_Top At_Offset_2
043c 0217 | | Execute Heap_Access,All_Reference
043d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
043e 0f01 | | Execute_Immediate Equal,0x1
043f 7001 |p | Jump_Nonzero 0x441
0440 7814 |x | Jump 0x455
0441 00da | | Load_Top At_Offset_2
0442 0219 | | Execute Heap_Access,All_Read
0443 00d8 | | Load_Top At_Offset_0
0444 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0445 4800 |H | Short_Literal 0x0
0446 e007 | | Load 0x0,0x7
0447 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0448 00d9 | | Load_Top At_Offset_1
0449 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
044a 00d1 | | Pop_Control Pop_Count_1
044b 6018 |` | Indirect_Literal Discrete,0x464,{0x00000000, 0x7fffffff}
044c 00db | | Load_Top At_Offset_3
044d 821c | | Call 0x1,0x1c
044e e5ff | | Load 0x2,-0x1
044f 0217 | | Execute Heap_Access,All_Reference
0450 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0451 e5ff | | Load 0x2,-0x1
0452 0217 | | Execute Heap_Access,All_Reference
0453 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0454 8217 | | Call 0x1,0x17
0455 4800 |H | Short_Literal 0x0
0456 00db | | Load_Top At_Offset_3
0457 0217 | | Execute Heap_Access,All_Reference
0458 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0459 e211 | | Load 0x1,0x11
045a 0033 | 3 | Store_Top Heap_Access,At_Offset_3
045b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
045c TRAP_0438:
045c 0007 | | Action Break_Optional
045d 0092 0869 | i| Action Push_String_Extended,0x869 ; "in Mt_Remote_Io.Close"
045f e5ff | | Load 0x2,-0x1
0460 0217 | | Execute Heap_Access,All_Reference
0461 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0462 823f | ? | Call 0x1,0x3f
0463 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0464 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 4801 |H | Short_Literal 0x1
046c 00db | | Load_Top At_Offset_3
046d 0217 | | Execute Heap_Access,All_Reference
046e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
046f e5ff | | Load 0x2,-0x1
0470 0217 | | Execute Heap_Access,All_Reference
0471 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0472 01cf | | Execute Vector,Slice_Read
0473 e010 | | Load 0x0,0x10
0474 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0475 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0476 0000 0000 | | .XXX[0x2]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 00da | | Load_Top At_Offset_2
047c 6804 |h | Jump_Zero 0x481
047d 00da | | Load_Top At_Offset_2
047e 0217 | | Execute Heap_Access,All_Reference
047f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0480 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0481 4800 |H | Short_Literal 0x0
0482 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0483 0000 0000 | | .BLANK 0000[0x5]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 00da | | Load_Top At_Offset_2
048c 0217 | | Execute Heap_Access,All_Reference
048d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
048e e007 | | Load 0x0,0x7
048f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0490 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0491 0000 0000 | | .BLANK 0000[0x7]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 00e3 | | Load_Encached Natural_Cache
049c e5fe | | Load 0x2,-0x2
049d e5ff | | Load 0x2,-0x1
049e 0217 | | Execute Heap_Access,All_Reference
049f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04a0 e007 | | Load 0x0,0x7
04a1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
04a2 00d1 | | Pop_Control Pop_Count_1
04a3 c5fd | | Store 0x2,-0x3
04a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04a5 0000 0000 | | .XXX[0x3]
04a7 0000 | |
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab e007 | | Load 0x0,0x7
04ac 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04ad 00db | | Load_Top At_Offset_3
04ae 0217 | | Execute Heap_Access,All_Reference
04af 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04b0 e007 | | Load 0x0,0x7
04b1 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04b2 c5fe | | Store 0x2,-0x2
04b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04b4 0000 0000 | | .BLANK 0000[0x4]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 00e3 | | Load_Encached Natural_Cache
04bc e5fe | | Load 0x2,-0x2
04bd e5ff | | Load 0x2,-0x1
04be 0217 | | Execute Heap_Access,All_Reference
04bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04c0 e007 | | Load 0x0,0x7
04c1 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
04c2 00d1 | | Pop_Control Pop_Count_1
04c3 c5fd | | Store 0x2,-0x3
04c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04c5 0000 0000 | | .XXX[0x3]
04c7 0000 | |
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00e8 | | Load_Encached Character_Cache
04cc 00db | | Load_Top At_Offset_3
04cd 0217 | | Execute Heap_Access,All_Reference
04ce 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04cf e007 | | Load 0x0,0x7
04d0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
04d1 c5fe | | Store 0x2,-0x2
04d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d3 0000 0000 | | .BLANK 0000[0x5]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04de | | .CONST 0x04de ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0002 | | .CONST 0x0002 ; Number of locals
04db INIT_04d8:
04db e011 | | Load 0x0,0x11
04dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04de BODY_04d8:
04de 00cf | | Action Mark_Auxiliary
04df e5fd | | Load 0x2,-0x3
04e0 01d9 | | Execute Vector,Reverse_Bounds
04e1 0263 | c | Execute Discrete,Above_Bound
04e2 7029 |p) | Jump_Nonzero 0x50c
04e3 e5ff | | Load 0x2,-0x1
04e4 0217 | | Execute Heap_Access,All_Reference
04e5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04e6 e007 | | Load 0x0,0x7
04e7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04e8 6806 |h | Jump_Zero 0x4ef
04e9 00d8 | | Load_Top At_Offset_0
04ea e5fd | | Load 0x2,-0x3
04eb 01dd | | Execute Vector,First
04ec 0272 | r | Execute Discrete,Minus
04ed c5fc | | Store 0x2,-0x4
04ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04ef e007 | | Load 0x0,0x7
04f0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04f1 e5ff | | Load 0x2,-0x1
04f2 0217 | | Execute Heap_Access,All_Reference
04f3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04f4 e007 | | Load 0x0,0x7
04f5 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04f6 c402 | | Store 0x2,0x2
04f7 00db | | Load_Top At_Offset_3
04f8 e5fe | | Load 0x2,-0x2
04f9 027f | | Execute Discrete,Equal
04fa 6806 |h | Jump_Zero 0x501
04fb 00d8 | | Load_Top At_Offset_0
04fc e5fd | | Load 0x2,-0x3
04fd 01dd | | Execute Vector,First
04fe 0272 | r | Execute Discrete,Minus
04ff c5fc | | Store 0x2,-0x4
0500 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0501 00db | | Load_Top At_Offset_3
0502 00d8 | | Load_Top At_Offset_0
0503 00e8 | | Load_Encached Character_Cache
0504 0260 | ` | Execute Discrete,In_Type
0505 7001 |p | Jump_Nonzero 0x507
0506 0801 | | Execute_Immediate Raise,0x1
0507 00d9 | | Load_Top At_Offset_1
0508 e5fd | | Load 0x2,-0x3
0509 01d6 | | Execute Vector,Field_Write
050a 00c8 | | Action Pop_Auxiliary_Range
050b 3fd7 |? | Loop_Increasing 0x4e3
050c 00ce | | Action Pop_Auxiliary
050d e5fd | | Load 0x2,-0x3
050e 01db | | Execute Vector,Length
050f c5fc | | Store 0x2,-0x4
0510 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0511 0000 0000 | | .BLANK 0000[0x7]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0523 | # | .CONST 0x0523 ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0003 | | .CONST 0x0003 ; Number of locals
051b INIT_0518:
051b e011 | | Load 0x0,0x11
051c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
051d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
051e 4801 |H | Short_Literal 0x1
051f 4a00 |J | Short_Literal 0x200
0520 00e9 | | Load_Encached String_Cache
0521 035b | [ | Declare_Type Array,Constrained
0522 0337 | 7 | Declare_Variable Array
0523 BODY_0518:
0523 00cf | | Action Mark_Auxiliary
0524 00d9 | | Load_Top At_Offset_1
0525 01d9 | | Execute Vector,Reverse_Bounds
0526 0007 | | Action Break_Optional
0527 e5ff | | Load 0x2,-0x1
0528 0217 | | Execute Heap_Access,All_Reference
0529 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
052a e007 | | Load 0x0,0x7
052b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
052c 6808 |h | Jump_Zero 0x535
052d 4801 |H | Short_Literal 0x1
052e 00d9 | | Load_Top At_Offset_1
052f 0aff | | Execute_Immediate Plus,-0x1
0530 e403 | | Load 0x2,0x3
0531 01cf | | Execute Vector,Slice_Read
0532 00e9 | | Load_Encached String_Cache
0533 01c6 | | Execute Vector,Convert_To_Formal
0534 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0535 e007 | | Load 0x0,0x7
0536 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0537 e5ff | | Load 0x2,-0x1
0538 0217 | | Execute Heap_Access,All_Reference
0539 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
053a e007 | | Load 0x0,0x7
053b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
053c c402 | | Store 0x2,0x2
053d e402 | | Load 0x2,0x2
053e e5fe | | Load 0x2,-0x2
053f 027f | | Execute Discrete,Equal
0540 6808 |h | Jump_Zero 0x549
0541 4801 |H | Short_Literal 0x1
0542 00d9 | | Load_Top At_Offset_1
0543 0aff | | Execute_Immediate Plus,-0x1
0544 e403 | | Load 0x2,0x3
0545 01cf | | Execute Vector,Slice_Read
0546 00e9 | | Load_Encached String_Cache
0547 01c6 | | Execute Vector,Convert_To_Formal
0548 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0549 e402 | | Load 0x2,0x2
054a 00d8 | | Load_Top At_Offset_0
054b 00e8 | | Load_Encached Character_Cache
054c 0260 | ` | Execute Discrete,In_Type
054d 7001 |p | Jump_Nonzero 0x54f
054e 0801 | | Execute_Immediate Raise,0x1
054f 00d9 | | Load_Top At_Offset_1
0550 e403 | | Load 0x2,0x3
0551 01d6 | | Execute Vector,Field_Write
0552 00c8 | | Action Pop_Auxiliary_Range
0553 3fd3 |? | Loop_Increasing 0x527
0554 00ce | | Action Pop_Auxiliary
0555 00d8 | | Load_Top At_Offset_0
0556 480a |H | Short_Literal 0xa
0557 e5ff | | Load 0x2,-0x1
0558 8224 | $ | Call 0x1,0x24
0559 01cc | | Execute Vector,Catenate
055a 00e9 | | Load_Encached String_Cache
055b 01c6 | | Execute Vector,Convert_To_Formal
055c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
055d 0000 0000 | | .XXX[0x3]
055f 0000 | |
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563 | c | .CONST 0x0563 ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0001 | | .CONST 0x0001 ; Number of locals
0563 BODY_0560:
0563 INIT_0560:
0563 00db | | Load_Top At_Offset_3
0564 00db | | Load_Top At_Offset_3
0565 0217 | | Execute Heap_Access,All_Reference
0566 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0567 e007 | | Load 0x0,0x7
0568 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0569 4503 |E | Exit_Suprogram New_Top_Offset 0x3
056a 0000 0000 | | .BLANK 0000[0x6]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573 | s | .CONST 0x0573 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0001 | | .CONST 0x0001 ; Number of locals
0573 BODY_0570:
0573 INIT_0570:
0573 00db | | Load_Top At_Offset_3
0574 00db | | Load_Top At_Offset_3
0575 0217 | | Execute Heap_Access,All_Reference
0576 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0577 e007 | | Load 0x0,0x7
0578 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0579 4503 |E | Exit_Suprogram New_Top_Offset 0x3
057a 0000 0000 | | .BLANK 0000[0x6]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 00db | | Load_Top At_Offset_3
0584 00db | | Load_Top At_Offset_3
0585 0217 | | Execute Heap_Access,All_Reference
0586 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0587 e007 | | Load 0x0,0x7
0588 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0589 4503 |E | Exit_Suprogram New_Top_Offset 0x3
058a 0000 0000 | | .BLANK 0000[0x6]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593 | | .CONST 0x0593 ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0001 | | .CONST 0x0001 ; Number of locals
0593 BODY_0590:
0593 INIT_0590:
0593 00db | | Load_Top At_Offset_3
0594 00db | | Load_Top At_Offset_3
0595 0217 | | Execute Heap_Access,All_Reference
0596 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0597 e007 | | Load 0x0,0x7
0598 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0599 4503 |E | Exit_Suprogram New_Top_Offset 0x3
059a 0000 0000 | | .BLANK 0000[0x6]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3 | | .CONST 0x05a3 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0001 | | .CONST 0x0001 ; Number of locals
05a3 BODY_05a0:
05a3 INIT_05a0:
05a3 4608 |F | Jump_Case 0x9
05a4 7808 |x | Jump 0x5ad ; case 0x0
05a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
05a6 7813 |x | Jump 0x5ba ; case 0x2
05a7 7812 |x | Jump 0x5ba ; case 0x3
05a8 7811 |x | Jump 0x5ba ; case 0x4
05a9 7810 |x | Jump 0x5ba ; case 0x5
05aa 780f |x | Jump 0x5ba ; case 0x6
05ab 780e |x | Jump 0x5ba ; case 0x7
05ac 780d |x | Jump 0x5ba ; case 0x8
05ad 00da | | Load_Top At_Offset_2
05ae 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05af 0125 | % | Execute Any,Set_Constraint
05b0 00da | | Load_Top At_Offset_2
05b1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05b2 1c00 | | Execute_Immediate Run_Utility,0x0
05b3 00da | | Load_Top At_Offset_2
05b4 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
05b5 0125 | % | Execute Any,Set_Constraint
05b6 00da | | Load_Top At_Offset_2
05b7 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
05b8 1c00 | | Execute_Immediate Run_Utility,0x0
05b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
05ba 0869 | i | Execute_Immediate Raise,0x69
05bb 0000 0000 | | .BLANK 0000[0x5]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3 | | .CONST 0x05c3 ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0001 | | .CONST 0x0001 ; Number of locals
05c3 BODY_05c0:
05c3 INIT_05c0:
05c3 4608 |F | Jump_Case 0x9
05c4 7808 |x | Jump 0x5cd ; case 0x0
05c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
05c6 780d |x | Jump 0x5d4 ; case 0x2
05c7 780c |x | Jump 0x5d4 ; case 0x3
05c8 780b |x | Jump 0x5d4 ; case 0x4
05c9 780a |x | Jump 0x5d4 ; case 0x5
05ca 7809 |x | Jump 0x5d4 ; case 0x6
05cb 7808 |x | Jump 0x5d4 ; case 0x7
05cc 7807 |x | Jump 0x5d4 ; case 0x8
05cd 00da | | Load_Top At_Offset_2
05ce 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05cf 0125 | % | Execute Any,Set_Constraint
05d0 00da | | Load_Top At_Offset_2
05d1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05d2 1c00 | | Execute_Immediate Run_Utility,0x0
05d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
05d4 0869 | i | Execute_Immediate Raise,0x69
05d5 0000 0000 | | .XXX[0x3]
05d7 0000 | |
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05e2 | | .CONST 0x05e2 ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0002 | | .CONST 0x0002 ; Number of locals
05db INIT_05d8:
05db 4801 |H | Short_Literal 0x1
05dc 00db | | Load_Top At_Offset_3
05dd 483a |H: | Short_Literal 0x3a
05de e010 | | Load 0x0,0x10
05df 1820 | | Execute Package,Field_Execute,Field_Number 0x20
05e0 00e2 | | Load_Encached Integer_Cache
05e1 03f1 | | Declare_Variable Discrete,With_Value
05e2 BODY_05d8:
05e2 00d8 | | Load_Top At_Offset_0
05e3 0c01 | | Execute_Immediate Greater_Equal,0x1
05e4 6810 |h | Jump_Zero 0x5f5
05e5 4801 |H | Short_Literal 0x1
05e6 e232 | 2 | Load 0x1,0x32
05e7 e5ff | | Load 0x2,-0x1
05e8 01dd | | Execute Vector,First
05e9 00db | | Load_Top At_Offset_3
05ea 0aff | | Execute_Immediate Plus,-0x1
05eb 00d8 | | Load_Top At_Offset_0
05ec 00e2 | | Load_Encached Integer_Cache
05ed 0260 | ` | Execute Discrete,In_Type
05ee 7001 |p | Jump_Nonzero 0x5f0
05ef 0801 | | Execute_Immediate Raise,0x1
05f0 e5ff | | Load 0x2,-0x1
05f1 01cf | | Execute Vector,Slice_Read
05f2 e001 | | Load 0x0,0x1
05f3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f5 4801 |H | Short_Literal 0x1
05f6 e232 | 2 | Load 0x1,0x32
05f7 e5ff | | Load 0x2,-0x1
05f8 01dd | | Execute Vector,First
05f9 4801 |H | Short_Literal 0x1
05fa e5ff | | Load 0x2,-0x1
05fb 482e |H. | Short_Literal 0x2e
05fc e010 | | Load 0x0,0x10
05fd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
05fe 0aff | | Execute_Immediate Plus,-0x1
05ff e5ff | | Load 0x2,-0x1
0600 01cf | | Execute Vector,Slice_Read
0601 e001 | | Load 0x0,0x1
0602 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0603 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0604 0000 0000 | | .BLANK 0000[0x4]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0619 | | .CONST 0x0619 ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0003 | | .CONST 0x0003 ; Number of locals
060b INIT_0608:
060b 4801 |H | Short_Literal 0x1
060c 00db | | Load_Top At_Offset_3
060d 483a |H: | Short_Literal 0x3a
060e e010 | | Load 0x0,0x10
060f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0610 00e2 | | Load_Encached Integer_Cache
0611 03f1 | | Declare_Variable Discrete,With_Value
0612 4801 |H | Short_Literal 0x1
0613 e5ff | | Load 0x2,-0x1
0614 482e |H. | Short_Literal 0x2e
0615 e010 | | Load 0x0,0x10
0616 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0617 00e2 | | Load_Encached Integer_Cache
0618 03f1 | | Declare_Variable Discrete,With_Value
0619 BODY_0608:
0619 00d9 | | Load_Top At_Offset_1
061a 0c01 | | Execute_Immediate Greater_Equal,0x1
061b 6826 |h& | Jump_Zero 0x642
061c 00d8 | | Load_Top At_Offset_0
061d 00da | | Load_Top At_Offset_2
061e 027d | } | Execute Discrete,Greater
061f 6812 |h | Jump_Zero 0x632
0620 4801 |H | Short_Literal 0x1
0621 e232 | 2 | Load 0x1,0x32
0622 482b |H+ | Short_Literal 0x2b
0623 e5ff | | Load 0x2,-0x1
0624 01dd | | Execute Vector,First
0625 e402 | | Load 0x2,0x2
0626 e5ff | | Load 0x2,-0x1
0627 01cf | | Execute Vector,Slice_Read
0628 01cb | | Execute Vector,Append
0629 00db | | Load_Top At_Offset_3
062a e5ff | | Load 0x2,-0x1
062b 01dc | | Execute Vector,Last
062c e5ff | | Load 0x2,-0x1
062d 01cf | | Execute Vector,Slice_Read
062e 01cc | | Execute Vector,Catenate
062f e001 | | Load 0x0,0x1
0630 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0631 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0632 4801 |H | Short_Literal 0x1
0633 e232 | 2 | Load 0x1,0x32
0634 e5ff | | Load 0x2,-0x1
0635 01dd | | Execute Vector,First
0636 e402 | | Load 0x2,0x2
0637 0aff | | Execute_Immediate Plus,-0x1
0638 00d8 | | Load_Top At_Offset_0
0639 00e2 | | Load_Encached Integer_Cache
063a 0260 | ` | Execute Discrete,In_Type
063b 7001 |p | Jump_Nonzero 0x63d
063c 0801 | | Execute_Immediate Raise,0x1
063d e5ff | | Load 0x2,-0x1
063e 01cf | | Execute Vector,Slice_Read
063f e001 | | Load 0x0,0x1
0640 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0641 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0642 00d8 | | Load_Top At_Offset_0
0643 00da | | Load_Top At_Offset_2
0644 027d | } | Execute Discrete,Greater
0645 6810 |h | Jump_Zero 0x656
0646 4801 |H | Short_Literal 0x1
0647 e232 | 2 | Load 0x1,0x32
0648 e5ff | | Load 0x2,-0x1
0649 01dd | | Execute Vector,First
064a 00db | | Load_Top At_Offset_3
064b 0aff | | Execute_Immediate Plus,-0x1
064c 00d8 | | Load_Top At_Offset_0
064d 00e2 | | Load_Encached Integer_Cache
064e 0260 | ` | Execute Discrete,In_Type
064f 7001 |p | Jump_Nonzero 0x651
0650 0801 | | Execute_Immediate Raise,0x1
0651 e5ff | | Load 0x2,-0x1
0652 01cf | | Execute Vector,Slice_Read
0653 e001 | | Load 0x0,0x1
0654 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0655 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0656 4801 |H | Short_Literal 0x1
0657 e232 | 2 | Load 0x1,0x32
0658 e5ff | | Load 0x2,-0x1
0659 e001 | | Load 0x0,0x1
065a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
065b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
065c 0000 0000 | | .BLANK 0000[0x4]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 066a | j | .CONST 0x066a ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0002 | | .CONST 0x0002 ; Number of locals
0663 INIT_0660:
0663 4801 |H | Short_Literal 0x1
0664 00db | | Load_Top At_Offset_3
0665 483a |H: | Short_Literal 0x3a
0666 e010 | | Load 0x0,0x10
0667 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0668 00e2 | | Load_Encached Integer_Cache
0669 03f1 | | Declare_Variable Discrete,With_Value
066a BODY_0660:
066a 00d8 | | Load_Top At_Offset_0
066b 0c01 | | Execute_Immediate Greater_Equal,0x1
066c 6810 |h | Jump_Zero 0x67d
066d 4801 |H | Short_Literal 0x1
066e e232 | 2 | Load 0x1,0x32
066f 00da | | Load_Top At_Offset_2
0670 0a01 | | Execute_Immediate Plus,0x1
0671 00d8 | | Load_Top At_Offset_0
0672 00e2 | | Load_Encached Integer_Cache
0673 0260 | ` | Execute Discrete,In_Type
0674 7001 |p | Jump_Nonzero 0x676
0675 0801 | | Execute_Immediate Raise,0x1
0676 e5ff | | Load 0x2,-0x1
0677 01dc | | Execute Vector,Last
0678 e5ff | | Load 0x2,-0x1
0679 01cf | | Execute Vector,Slice_Read
067a e001 | | Load 0x0,0x1
067b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
067c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
067d 4801 |H | Short_Literal 0x1
067e e232 | 2 | Load 0x1,0x32
067f 4801 |H | Short_Literal 0x1
0680 e5ff | | Load 0x2,-0x1
0681 482e |H. | Short_Literal 0x2e
0682 e010 | | Load 0x0,0x10
0683 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0684 0a01 | | Execute_Immediate Plus,0x1
0685 00d8 | | Load_Top At_Offset_0
0686 00e2 | | Load_Encached Integer_Cache
0687 0260 | ` | Execute Discrete,In_Type
0688 7001 |p | Jump_Nonzero 0x68a
0689 0801 | | Execute_Immediate Raise,0x1
068a e5ff | | Load 0x2,-0x1
068b 01dc | | Execute Vector,Last
068c e5ff | | Load 0x2,-0x1
068d 01cf | | Execute Vector,Slice_Read
068e e001 | | Load 0x0,0x1
068f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0690 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0691 0000 0000 | | .BLANK 0000[0x7]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 06a2 | | .CONST 0x06a2 ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0002 | | .CONST 0x0002 ; Number of locals
069b INIT_0698:
069b 4801 |H | Short_Literal 0x1
069c 00db | | Load_Top At_Offset_3
069d 483a |H: | Short_Literal 0x3a
069e e010 | | Load 0x0,0x10
069f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
06a0 00e2 | | Load_Encached Integer_Cache
06a1 03f1 | | Declare_Variable Discrete,With_Value
06a2 BODY_0698:
06a2 00d8 | | Load_Top At_Offset_0
06a3 7002 |p | Jump_Nonzero 0x6a6
06a4 00db | | Load_Top At_Offset_3
06a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06a6 00d8 | | Load_Top At_Offset_0
06a7 0a01 | | Execute_Immediate Plus,0x1
06a8 00d8 | | Load_Top At_Offset_0
06a9 00e2 | | Load_Encached Integer_Cache
06aa 0260 | ` | Execute Discrete,In_Type
06ab 7001 |p | Jump_Nonzero 0x6ad
06ac 0801 | | Execute_Immediate Raise,0x1
06ad e5ff | | Load 0x2,-0x1
06ae 01dc | | Execute Vector,Last
06af e5ff | | Load 0x2,-0x1
06b0 01cf | | Execute Vector,Slice_Read
06b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06b2 0000 0000 | | .BLANK 0000[0x6]
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 00db | | Load_Top At_Offset_3
06bc 01db | | Execute Vector,Length
06bd 7008 |p | Jump_Nonzero 0x6c6
06be 00da | | Load_Top At_Offset_2
06bf 0217 | | Execute Heap_Access,All_Reference
06c0 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06c1 e5fd | | Load 0x2,-0x3
06c2 0092 086a | j| Action Push_String_Extended,0x86a ; "Command failed"
06c4 820f | | Call 0x1,0xf
06c5 7806 |x | Jump 0x6cc
06c6 00da | | Load_Top At_Offset_2
06c7 0217 | | Execute Heap_Access,All_Reference
06c8 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06c9 e5fd | | Load 0x2,-0x3
06ca e5fe | | Load 0x2,-0x2
06cb 820f | | Call 0x1,0xf
06cc 4940 |I@ | Short_Literal 0x140
06cd 0257 | W | Execute Discrete,Raise
06ce 0000 0000 | | .XXX[0x2]
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 0217 | | Execute Heap_Access,All_Reference
06d5 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
06d6 4808 |H | Short_Literal 0x8
06d7 4800 |H | Short_Literal 0x0
06d8 4801 |H | Short_Literal 0x1
06d9 e014 | | Load 0x0,0x14
06da 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06db 0092 086b | k| Action Push_String_Extended,0x86b ; " was raised "
06dd 01cc | | Execute Vector,Catenate
06de e5fe | | Load 0x2,-0x2
06df 01cc | | Execute Vector,Catenate
06e0 820f | | Call 0x1,0xf
06e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06e2 0000 0000 | | .BLANK 0000[0x6]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb | | .CONST 0x06eb ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0001 | | .CONST 0x0001 ; Number of locals
06eb BODY_06e8:
06eb INIT_06e8:
06eb 00da | | Load_Top At_Offset_2
06ec 4864 |Hd | Short_Literal 0x64
06ed 0270 | p | Execute Discrete,Divide
06ee 4804 |H | Short_Literal 0x4
06ef 4805 |H | Short_Literal 0x5
06f0 0262 | b | Execute Discrete,In_Range
06f1 7003 |p | Jump_Nonzero 0x6f5
06f2 0092 086c | l| Action Push_String_Extended,0x86c ; "--- "
06f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06f5 0092 086d | m| Action Push_String_Extended,0x86d ; "*** "
06f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb | | .CONST 0x06fb ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0001 | | .CONST 0x0001 ; Number of locals
06fb BODY_06f8:
06fb INIT_06f8:
06fb 00da | | Load_Top At_Offset_2
06fc 4864 |Hd | Short_Literal 0x64
06fd 0270 | p | Execute Discrete,Divide
06fe 4804 |H | Short_Literal 0x4
06ff 4805 |H | Short_Literal 0x5
0700 0262 | b | Execute Discrete,In_Range
0701 7002 |p | Jump_Nonzero 0x704
0702 4802 |H | Short_Literal 0x2
0703 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0704 4807 |H | Short_Literal 0x7
0705 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0706 0000 0000 | | .XXX[0x2]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0715 | | .CONST 0x0715 ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0005 | | .CONST 0x0005 ; Number of locals
070b INIT_0708:
070b 4801 |H | Short_Literal 0x1
070c 4a00 |J | Short_Literal 0x200
070d 00e9 | | Load_Encached String_Cache
070e 035b | [ | Declare_Type Array,Constrained
070f 0337 | 7 | Declare_Variable Array
0710 00e2 | | Load_Encached Integer_Cache
0711 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0712 00e3 | | Load_Encached Natural_Cache
0713 e006 | | Load 0x0,0x6
0714 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0715 BODY_0708:
0715 00cf | | Action Mark_Auxiliary
0716 7831 |x1 | Jump 0x748
0717 e402 | | Load 0x2,0x2
0718 e403 | | Load 0x2,0x3
0719 0a01 | | Execute_Immediate Plus,0x1
071a 00d8 | | Load_Top At_Offset_0
071b 00e2 | | Load_Encached Integer_Cache
071c 0260 | ` | Execute Discrete,In_Type
071d 7001 |p | Jump_Nonzero 0x71f
071e 0801 | | Execute_Immediate Raise,0x1
071f 4a00 |J | Short_Literal 0x200
0720 00da | | Load_Top At_Offset_2
0721 035b | [ | Declare_Type Array,Constrained
0722 00d0 | | Action Swap_Control
0723 01cd | | Execute Vector,Slice_Reference
0724 00e3 | | Load_Encached Natural_Cache
0725 00d9 | | Load_Top At_Offset_1
0726 e5ff | | Load 0x2,-0x1
0727 0217 | | Execute Heap_Access,All_Reference
0728 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0729 e004 | | Load 0x0,0x4
072a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
072b 00d1 | | Pop_Control Pop_Count_1
072c c404 | | Store 0x2,0x4
072d 00d1 | | Pop_Control Pop_Count_1
072e e5ff | | Load 0x2,-0x1
072f 0217 | | Execute Heap_Access,All_Reference
0730 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0731 e004 | | Load 0x0,0x4
0732 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0733 8241 | A | Call 0x1,0x41
0734 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0735 e5ff | | Load 0x2,-0x1
0736 0217 | | Execute Heap_Access,All_Reference
0737 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0738 00da | | Load_Top At_Offset_2
0739 4801 |H | Short_Literal 0x1
073a e403 | | Load 0x2,0x3
073b e404 | | Load 0x2,0x4
073c 0273 | s | Execute Discrete,Plus
073d 00d8 | | Load_Top At_Offset_0
073e 00e2 | | Load_Encached Integer_Cache
073f 0260 | ` | Execute Discrete,In_Type
0740 7001 |p | Jump_Nonzero 0x742
0741 0801 | | Execute_Immediate Raise,0x1
0742 e402 | | Load 0x2,0x2
0743 01cf | | Execute Vector,Slice_Read
0744 820f | | Call 0x1,0xf
0745 4800 |H | Short_Literal 0x0
0746 a403 | | Store_Unchecked 0x2,0x3
0747 00c9 | | Action Pop_Auxiliary_Loop
0748 e5ff | | Load 0x2,-0x1
0749 0217 | | Execute Heap_Access,All_Reference
074a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
074b e004 | | Load 0x0,0x4
074c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
074d 6fc9 |o | Jump_Zero 0x717
074e 00ce | | Action Pop_Auxiliary
074f 00da | | Load_Top At_Offset_2
0750 0c01 | | Execute_Immediate Greater_Equal,0x1
0751 6809 |h | Jump_Zero 0x75b
0752 e5ff | | Load 0x2,-0x1
0753 0217 | | Execute Heap_Access,All_Reference
0754 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0755 00d9 | | Load_Top At_Offset_1
0756 4801 |H | Short_Literal 0x1
0757 e403 | | Load 0x2,0x3
0758 e402 | | Load 0x2,0x2
0759 01cf | | Execute Vector,Slice_Read
075a 820f | | Call 0x1,0xf
075b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
075c 0000 0000 | | .BLANK 0000[0x4]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763 | c | .CONST 0x0763 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0001 | | .CONST 0x0001 ; Number of locals
0763 BODY_0760:
0763 INIT_0760:
0763 00da | | Load_Top At_Offset_2
0764 8242 | B | Call 0x1,0x42
0765 00da | | Load_Top At_Offset_2
0766 0219 | | Execute Heap_Access,All_Read
0767 e005 | | Load 0x0,0x5
0768 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0769 e5ff | | Load 0x2,-0x1
076a 0217 | | Execute Heap_Access,All_Reference
076b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
076c e004 | | Load 0x0,0x4
076d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
076e 00d9 | | Load_Top At_Offset_1
076f 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0770 00d1 | | Pop_Control Pop_Count_1
0771 00da | | Load_Top At_Offset_2
0772 0217 | | Execute Heap_Access,All_Reference
0773 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0774 e5fe | | Load 0x2,-0x2
0775 027e | ~ | Execute Discrete,Not_Equal
0776 680d |h | Jump_Zero 0x784
0777 4807 |H | Short_Literal 0x7
0778 0092 086e | n| Action Push_String_Extended,0x86e ; "FTP command status => "
077a e5ff | | Load 0x2,-0x1
077b 0217 | | Execute Heap_Access,All_Reference
077c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
077d e005 | | Load 0x0,0x5
077e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
077f 011c | | Execute Any,Convert_Unchecked
0780 1c01 | | Execute_Immediate Run_Utility,0x1
0781 01cc | | Execute Vector,Catenate
0782 e5ff | | Load 0x2,-0x1
0783 823e | > | Call 0x1,0x3e
0784 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0785 0000 0000 | | .XXX[0x3]
0787 0000 | |
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 0790 | | .CONST 0x0790 ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0002 | | .CONST 0x0002 ; Number of locals
078b INIT_0788:
078b e22f | / | Load 0x1,0x2f
078c 00db | | Load_Top At_Offset_3
078d 0217 | | Execute Heap_Access,All_Reference
078e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
078f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0790 BODY_0788:
0790 00cf | | Action Mark_Auxiliary
0791 e5fe | | Load 0x2,-0x2
0792 4801 |H | Short_Literal 0x1
0793 0263 | c | Execute Discrete,Above_Bound
0794 7045 |pE | Jump_Nonzero 0x7da
0795 e5ff | | Load 0x2,-0x1
0796 0217 | | Execute Heap_Access,All_Reference
0797 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0798 e004 | | Load 0x0,0x4
0799 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
079a 6801 |h | Jump_Zero 0x79c
079b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
079c e004 | | Load 0x0,0x4
079d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
079e e402 | | Load 0x2,0x2
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 e004 | | Load 0x0,0x4
07a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07a5 4801 |H | Short_Literal 0x1
07a6 e5ff | | Load 0x2,-0x1
07a7 8243 | C | Call 0x1,0x43
07a8 e5ff | | Load 0x2,-0x1
07a9 0217 | | Execute Heap_Access,All_Reference
07aa 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
07ab 0217 | | Execute Heap_Access,All_Reference
07ac e5ff | | Load 0x2,-0x1
07ad 0217 | | Execute Heap_Access,All_Reference
07ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07af e004 | | Load 0x0,0x4
07b0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
07b1 4802 |H | Short_Literal 0x2
07b2 e5ff | | Load 0x2,-0x1
07b3 8243 | C | Call 0x1,0x43
07b4 e5ff | | Load 0x2,-0x1
07b5 0217 | | Execute Heap_Access,All_Reference
07b6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
07b7 0217 | | Execute Heap_Access,All_Reference
07b8 e5ff | | Load 0x2,-0x1
07b9 0217 | | Execute Heap_Access,All_Reference
07ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07bb e004 | | Load 0x0,0x4
07bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07bd 4801 |H | Short_Literal 0x1
07be e5ff | | Load 0x2,-0x1
07bf 8243 | C | Call 0x1,0x43
07c0 4802 |H | Short_Literal 0x2
07c1 e5ff | | Load 0x2,-0x1
07c2 0217 | | Execute Heap_Access,All_Reference
07c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07c4 e004 | | Load 0x0,0x4
07c5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
07c6 4801 |H | Short_Literal 0x1
07c7 e5ff | | Load 0x2,-0x1
07c8 8243 | C | Call 0x1,0x43
07c9 00db | | Load_Top At_Offset_3
07ca e5ff | | Load 0x2,-0x1
07cb 0217 | | Execute Heap_Access,All_Reference
07cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07cd 021f | | Execute Heap_Access,Equal
07ce 6805 |h | Jump_Zero 0x7d4
07cf e5ff | | Load 0x2,-0x1
07d0 0217 | | Execute Heap_Access,All_Reference
07d1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
07d2 a402 | | Store_Unchecked 0x2,0x2
07d3 7804 |x | Jump 0x7d8
07d4 e5ff | | Load 0x2,-0x1
07d5 0217 | | Execute Heap_Access,All_Reference
07d6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07d7 a402 | | Store_Unchecked 0x2,0x2
07d8 00c8 | | Action Pop_Auxiliary_Range
07d9 3fbb |? | Loop_Increasing 0x795
07da 00ce | | Action Pop_Auxiliary
07db 4940 |I@ | Short_Literal 0x140
07dc 0257 | W | Execute Discrete,Raise
07dd 0000 0000 | | .XXX[0x3]
07df 0000 | |
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 00da | | Load_Top At_Offset_2
07e4 e015 | | Load 0x0,0x15
07e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
07e6 e22f | / | Load 0x1,0x2f
07e7 e008 | | Load 0x0,0x8
07e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07e9 e009 | | Load 0x0,0x9
07ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07eb 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
07ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07ed 0000 0000 | | .XXX[0x3]
07ef 0000 | |
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3 | | .CONST 0x07f3 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0001 | | .CONST 0x0001 ; Number of locals
07f3 BODY_07f0:
07f3 INIT_07f0:
07f3 e003 | | Load 0x0,0x3
07f4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
07f5 e003 | | Load 0x0,0x3
07f6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
07f7 e5ff | | Load 0x2,-0x1
07f8 0217 | | Execute Heap_Access,All_Reference
07f9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07fa e004 | | Load 0x0,0x4
07fb 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
07fc 4801 |H | Short_Literal 0x1
07fd 00db | | Load_Top At_Offset_3
07fe 8243 | C | Call 0x1,0x43
07ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 080a | | .CONST 0x080a ; Address of begin
0801 0836 | 6 | .CONST 0x0836 ; Address of exception handler
0802 0003 | | .CONST 0x0003 ; Number of locals
0803 INIT_0800:
0803 e005 | | Load 0x0,0x5
0804 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0805 e007 | | Load 0x0,0x7
0806 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0807 02c7 | | Declare_Variable Any
0808 00d8 | | Load_Top At_Offset_0
0809 1c00 | | Execute_Immediate Run_Utility,0x0
080a BODY_0800:
080a 4801 |H | Short_Literal 0x1
080b e5ff | | Load 0x2,-0x1
080c 0217 | | Execute Heap_Access,All_Reference
080d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
080e 4805 |H | Short_Literal 0x5
080f e5ff | | Load 0x2,-0x1
0810 8244 | D | Call 0x1,0x44
0811 e5ff | | Load 0x2,-0x1
0812 8246 | F | Call 0x1,0x46
0813 e5ff | | Load 0x2,-0x1
0814 0217 | | Execute Heap_Access,All_Reference
0815 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0816 e004 | | Load 0x0,0x4
0817 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0818 003a | : | Store_Top Access,At_Offset_2
0819 00d9 | | Load_Top At_Offset_1
081a 0229 | ) | Execute Access,All_Read
081b c403 | | Store 0x2,0x3
081c e5fd | | Load 0x2,-0x3
081d 00da | | Load_Top At_Offset_2
081e 0228 | ( | Execute Access,All_Write
081f e5fc | | Load 0x2,-0x4
0820 e5fe | | Load 0x2,-0x2
0821 e5ff | | Load 0x2,-0x1
0822 0217 | | Execute Heap_Access,All_Reference
0823 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0824 e004 | | Load 0x0,0x4
0825 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0826 4806 |H | Short_Literal 0x6
0827 e5ff | | Load 0x2,-0x1
0828 8243 | C | Call 0x1,0x43
0829 00d8 | | Load_Top At_Offset_0
082a 00da | | Load_Top At_Offset_2
082b 0228 | ( | Execute Access,All_Write
082c e5ff | | Load 0x2,-0x1
082d 0217 | | Execute Heap_Access,All_Reference
082e 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
082f 4802 |H | Short_Literal 0x2
0830 0092 086f | o| Action Push_String_Extended,0x86f ; "Retrieved listing of "
0832 e5fe | | Load 0x2,-0x2
0833 01cc | | Execute Vector,Catenate
0834 820f | | Call 0x1,0xf
0835 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0836 TRAP_0800:
0836 00d8 | | Load_Top At_Offset_0
0837 0107 | | Execute Exception,Get_Name
0838 4940 |I@ | Short_Literal 0x140
0839 494f |IO | Short_Literal 0x14f
083a 0262 | b | Execute Discrete,In_Range
083b 6805 |h | Jump_Zero 0x841
083c 4800 |H | Short_Literal 0x0
083d e5ff | | Load 0x2,-0x1
083e 0217 | | Execute Heap_Access,All_Reference
083f 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0840 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0841 0100 | | Execute Exception,Raise
0842 0000 0000 | | .BLANK 0000[0x6]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b | K | .CONST 0x084b ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0001 | | .CONST 0x0001 ; Number of locals
084b BODY_0848:
084b INIT_0848:
084b 4608 |F | Jump_Case 0x9
084c 7808 |x | Jump 0x855 ; case 0x0
084d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
084e 780d |x | Jump 0x85c ; case 0x2
084f 780c |x | Jump 0x85c ; case 0x3
0850 780b |x | Jump 0x85c ; case 0x4
0851 780a |x | Jump 0x85c ; case 0x5
0852 7809 |x | Jump 0x85c ; case 0x6
0853 7808 |x | Jump 0x85c ; case 0x7
0854 7807 |x | Jump 0x85c ; case 0x8
0855 00da | | Load_Top At_Offset_2
0856 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0857 0125 | % | Execute Any,Set_Constraint
0858 00da | | Load_Top At_Offset_2
0859 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
085a 1c00 | | Execute_Immediate Run_Utility,0x0
085b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
085c 0869 | i | Execute_Immediate Raise,0x69
085d ; --------------------------------------------------------------------------------------
085d ; STRING TABLE
085d ; --------------------------------------------------------------------------------------
085d 0028 | ( | .STRTAB 0x0028->0x0871 ; "IN_FILE"
085e 002d | - | .STRTAB 0x002d->0x0874 ; "OUT_FILE"
085f 0033 | 3 | .STRTAB 0x0033->0x0878 ; "LIST_FILE"
0860 003a | : | .STRTAB 0x003a->0x087d ; "File_Transfer.Open failed"
0861 0051 | Q | .STRTAB 0x0051->0x0889 ; "<MV>"
0862 0053 | S | .STRTAB 0x0053->0x088b ; "moe_ftp"
0863 0058 | X | .STRTAB 0x0058->0x088f ; "curly_ftp"
0864 005f | _ | .STRTAB 0x005f->0x0893 ; "ratnet"
0865 0063 | c | .STRTAB 0x0063->0x0896 ; "netrat"
0866 0067 | g | .STRTAB 0x0067->0x0899 ; "stored "
0867 006c | l | .STRTAB 0x006c->0x089d ; "retrieved "
0868 0074 | t | .STRTAB 0x0074->0x08a2 ; "in Mt_Remote_Io.Open"
0869 0086 | | .STRTAB 0x0086->0x08ac ; "in Mt_Remote_Io.Close"
086a 0099 | | .STRTAB 0x0099->0x08b6 ; "Command failed"
086b 00a5 | | .STRTAB 0x00a5->0x08bd ; " was raised "
086c 00af | | .STRTAB 0x00af->0x08c3 ; "--- "
086d 00b1 | | .STRTAB 0x00b1->0x08c5 ; "*** "
086e 00b3 | | .STRTAB 0x00b3->0x08c7 ; "FTP command status => "
086f 00c7 | | .STRTAB 0x00c7->0x08d2 ; "Retrieved listing of "
0870 00da | | .STREND 0x00da->0x08dd
0871 494e 5f46 |IN_F| .STRTAB_STRINGS
08dd 0000 0000 | | .XXX[0x3]
08df 0000 | |
08e0 ; --------------------------------------------------------------------------------------
08e0 ; Debug Table
08e0 ; --------------------------------------------------------------------------------------
08e0 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8c7e,0x0000,0x0001,0x0000
08e6 8008 6e40 | n@| .XXX[0x11a]
08e8 0754 0754 | T T|
08ea f01f 8008 | |
08ec 6d4c e01c |mL |
08ee 0249 97a5 | I |
08f0 202f 8008 | / |
08f2 6d4c f01f |mL |
08f4 8008 6c80 | l |
08f6 073c 0731 | < 1|
08f8 2007 8008 | |
08fa 6d4c f01f |mL |
08fc 8008 6d4c | mL|
08fe f018 0739 | 9|
0900 2005 2005 | |
0902 2007 9813 | |
0904 8008 6d4f | mO|
0906 8008 62ab | b |
0908 981b 8008 | |
090a 6d4c f01c |mL |
090c 09cc 0922 | "|
090e 9818 0320 | |
0910 faac 033b | ;|
0912 8004 6087 | ` |
0914 97e4 3c07 | < |
0916 97f7 8008 | |
0918 6e58 0754 |nX T|
091a f028 3c04 | (< |
091c 09e5 a013 | |
091e 97f7 980f | |
0920 980a 08d5 | |
0922 1404 0001 | |
0924 42ac 0010 |B |
0926 0014 0388 | |
0928 1807 8008 | |
092a 6e38 0388 |n8 |
092c 0fc4 0388 | |
092e 038b 97fc | |
0930 3407 97ff |4 |
0932 8008 6e38 | n8|
0934 2bfc 09f4 |+ |
0936 09e1 a00d | |
0938 2006 9809 | |
093a e00b 97fe | |
093c 980b 97f8 | |
093e 3407 97fb |4 |
0940 8008 6e38 | n8|
0942 09f4 09e1 | |
0944 a013 8008 | |
0946 6e3a 980d |n: |
0948 e00b 97fa | |
094a 980c 033f | ?|
094c 980f 9808 | |
094e 098d c1c0 | |
0950 0362 9813 | b |
0952 97f0 3c05 | < |
0954 a0e7 8008 | |
0956 6d5b 9813 |m[ |
0958 8008 6e40 | n@|
095a 0754 0757 | T W|
095c 8008 694f | iO|
095e 8008 6d4c | mL|
0960 f000 3007 | 0 |
0962 8008 6d4c | mL|
0964 f01c 3007 | 0 |
0966 8008 6d4c | mL|
0968 f004 3004 | 0 |
096a 09e4 09e5 | |
096c a085 2007 | |
096e 97eb 8010 | |
0970 60b0 0249 |` I|
0972 9007 97eb | |
0974 8010 6129 | a)|
0976 2007 8008 | |
0978 6d4c f01f |mL |
097a 8008 6d4c | mL|
097c d018 073f | ?|
097e 97eb 8010 | |
0980 612b 9813 |a+ |
0982 9808 09fd | |
0984 a025 2007 | % |
0986 97eb 8010 | |
0988 60b0 0249 |` I|
098a 97ab 97eb | |
098c 8010 6128 | a(|
098e 001f 8008 | |
0990 6d5f 9813 |m_ |
0992 8008 6e40 | n@|
0994 0754 0757 | T W|
0996 8008 694f | iO|
0998 8008 6d4c | mL|
099a f000 3007 | 0 |
099c 8008 6d4c | mL|
099e f01c 3004 | 0 |
09a0 09e5 a073 | s|
09a2 8008 6d4c | mL|
09a4 f01f 8008 | |
09a6 6d5b 9813 |m[ |
09a8 8008 6e40 | n@|
09aa 0754 0754 | T T|
09ac f01c 09cc | |
09ae 3145 a00d |1E |
09b0 2007 8010 | |
09b2 60b5 2007 |` |
09b4 8008 6d4c | mL|
09b6 f01f 8008 | |
09b8 6d4c d018 |mL |
09ba 073f 97eb | ? |
09bc 8010 6128 | a(|
09be 0320 fe40 | @|
09c0 0339 2007 | 9 |
09c2 97eb 8010 | |
09c4 60b1 2007 |` |
09c6 97eb 8010 | |
09c8 60b3 97eb |` |
09ca 97ef 97f3 | |
09cc 97f7 97fb | |
09ce 97fe 0921 | !|
09d0 2007 97eb | |
09d2 8010 60b3 | ` |
09d4 97eb 8010 | |
09d6 60c9 1404 |` |
09d8 0000 0000 | |
09da 0000 0001 | |
09dc 456d 4598 |EmE |
09de 0007 9014 | |
09e0 03a9 2007 | |
09e2 900f 9008 | |
09e4 073d 2003 | = |
09e6 8010 6057 | `W|
09e8 1015 1404 | |
09ea 001c 0249 | I|
09ec 97af 9010 | |
09ee 0731 2007 | 1 |
09f0 901f 9018 | |
09f2 073c 0730 | < 0|
09f4 0249 9084 | I |
09f6 0733 97eb | 3 |
09f8 8010 6138 | a8|
09fa 0331 141d | 1 |
09fc 45fc 0010 |E |
09fe 000c 0388 | |