|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5e40f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0648 | H | .CONST 0x0648 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ec | | .CONST 0x00ec ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0037 | 7 | .CONST 0x0037 ; Number of locals
000b INIT_0008:
000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
000c 4800 |H | Short_Literal 0x0
000d 4802 |H | Short_Literal 0x2
000e 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0010 03fe | | Declare_Type Discrete,Defined,Visible
0011 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0013 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0015 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0017 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0019 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0029 c223 | # | Store 0x1,0x23
002a 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
002c c219 | | Store 0x1,0x19
002d 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
002f c21a | | Store 0x1,0x1a
0030 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
0032 c21b | | Store 0x1,0x1b
0033 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0035 c21c | | Store 0x1,0x1c
0036 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0038 c21d | | Store 0x1,0x1d
0039 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
003b c21e | | Store 0x1,0x1e
003c 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
003e c21f | | Store 0x1,0x1f
003f 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
0041 c220 | | Store 0x1,0x20
0042 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0044 c221 | ! | Store 0x1,0x21
0045 4808 |H | Short_Literal 0x8
0046 032a | * | Declare_Type Record,Incomplete
0047 c222 | " | Store 0x1,0x22
0048 00d9 | | Load_Top At_Offset_1
0049 02a0 | | Declare_Subprogram Null_Subprogram
004a e211 | | Load 0x1,0x11
004b 03a3 | | Complete_Type Heap_Access,By_Defining
004c 00bf | | Action Accept_Activation
004d e001 | | Load 0x0,0x1
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 02c7 | | Declare_Variable Any
0050 00d8 | | Load_Top At_Offset_0
0051 1c00 | | Execute_Immediate Run_Utility,0x0
0052 00e9 | | Load_Encached String_Cache
0053 02a0 | | Declare_Subprogram Null_Subprogram
0054 4818 |H | Short_Literal 0x18
0055 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0056 00d8 | | Load_Top At_Offset_0
0057 0007 | | Action Break_Optional
0058 00d9 | | Load_Top At_Offset_1
0059 0007 | | Action Break_Optional
005a 00da | | Load_Top At_Offset_2
005b 0007 | | Action Break_Optional
005c 4801 |H | Short_Literal 0x1
005d 60ba |` | Indirect_Literal Discrete,0x118,{0x00000000, 0x00000400}
005e 00e9 | | Load_Encached String_Cache
005f 035b | [ | Declare_Type Array,Constrained
0060 00e2 | | Load_Encached Integer_Cache
0061 e002 | | Load 0x0,0x2
0062 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0063 e002 | | Load 0x0,0x2
0064 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0065 e002 | | Load 0x0,0x2
0066 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0067 e002 | | Load 0x0,0x2
0068 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0069 00e1 | | Load_Encached Boolean_Cache
006a e212 | | Load 0x1,0x12
006b 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
006d e222 | " | Load 0x1,0x22
006e 0326 | & | Complete_Type Record,By_Defining
006f e222 | " | Load 0x1,0x22
0070 0322 | " | Declare_Variable Record
0071 e222 | " | Load 0x1,0x22
0072 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0073 0337 | 7 | Declare_Variable Array
0074 60a3 |` | Indirect_Literal Discrete,0x118,{0x00000000, 0x00000400}
0075 4801 |H | Short_Literal 0x1
0076 4800 |H | Short_Literal 0x0
0077 00d9 | | Load_Top At_Offset_1
0078 e22a | * | Load 0x1,0x2a
0079 01d6 | | Execute Vector,Field_Write
007a 3ffb |? | Loop_Increasing 0x76
007b e222 | " | Load 0x1,0x22
007c 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
007d 0119 | | Execute Any,Check_In_Formal_Type
007e 00d9 | | Load_Top At_Offset_1
007f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0080 4800 |H | Short_Literal 0x0
0081 00d9 | | Load_Top At_Offset_1
0082 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0083 e002 | | Load 0x0,0x2
0084 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0085 e222 | " | Load 0x1,0x22
0086 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
0087 0119 | | Execute Any,Check_In_Formal_Type
0088 00d9 | | Load_Top At_Offset_1
0089 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
008a e002 | | Load 0x0,0x2
008b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
008c e222 | " | Load 0x1,0x22
008d 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
008e 0119 | | Execute Any,Check_In_Formal_Type
008f 00d9 | | Load_Top At_Offset_1
0090 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0091 e002 | | Load 0x0,0x2
0092 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0093 e222 | " | Load 0x1,0x22
0094 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
0095 0119 | | Execute Any,Check_In_Formal_Type
0096 00d9 | | Load_Top At_Offset_1
0097 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0098 e002 | | Load 0x0,0x2
0099 1816 | | Execute Package,Field_Execute,Field_Number 0x16
009a e222 | " | Load 0x1,0x22
009b 3005 |0 | Execute Record,Field_Type,Field_Number 0x5
009c 0119 | | Execute Any,Check_In_Formal_Type
009d 00d9 | | Load_Top At_Offset_1
009e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
009f 4800 |H | Short_Literal 0x0
00a0 00d9 | | Load_Top At_Offset_1
00a1 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
00a2 4800 |H | Short_Literal 0x0
00a3 00d9 | | Load_Top At_Offset_1
00a4 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
00a5 e003 | | Load 0x0,0x3
00a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a7 e211 | | Load 0x1,0x11
00a8 0007 | | Action Break_Optional
00a9 e004 | | Load 0x0,0x4
00aa e005 | | Load 0x0,0x5
00ab e222 | " | Load 0x1,0x22
00ac e002 | | Load 0x0,0x2
00ad 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
00ae 0387 | | Declare_Variable Package
00af 00d8 | | Load_Top At_Offset_0
00b0 020f | | Execute Module,Activate
00b1 e006 | | Load 0x0,0x6
00b2 e007 | | Load 0x0,0x7
00b3 e222 | " | Load 0x1,0x22
00b4 e211 | | Load 0x1,0x11
00b5 e002 | | Load 0x0,0x2
00b6 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
00b7 0387 | | Declare_Variable Package
00b8 00d8 | | Load_Top At_Offset_0
00b9 020f | | Execute Module,Activate
00ba 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call
00bc 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call
00be 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call
00c0 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call
00c2 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call
00c4 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
00c6 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call
00c8 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00cb 00c7 | | Action Elaborate_Subprogram
00cc 029d 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call
00ce 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00d1 00c7 | | Action Elaborate_Subprogram
00d2 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call
00d4 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call
00d6 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00eb 00c7 | | Action Elaborate_Subprogram
00ec BODY_0008:
00ec 00bc | | Action Signal_Activated
00ed 00bb | | Action Signal_Completion
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4607 |F | Jump_Case 0x8
00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00f5 7806 |x | Jump 0xfc ; case 0x1
00f6 7809 |x | Jump 0x100 ; case 0x2
00f7 780d |x | Jump 0x105 ; case 0x3
00f8 7810 |x | Jump 0x109 ; case 0x4
00f9 7811 |x | Jump 0x10b ; case 0x5
00fa 7812 |x | Jump 0x10d ; case 0x6
00fb 7815 |x | Jump 0x111 ; case 0x7
00fc 00da | | Load_Top At_Offset_2
00fd 0091 05ae | | Action Push_String_Extended_Indexed,0x5ae ; "IN_FILE"
00ff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0100 00db | | Load_Top At_Offset_3
0101 00db | | Load_Top At_Offset_3
0102 00e0 | | Load_Encached Standard_Cache
0103 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0105 00da | | Load_Top At_Offset_2
0106 00e0 | | Load_Encached Standard_Cache
0107 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0108 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0109 00db | | Load_Top At_Offset_3
010a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010b 00db | | Load_Top At_Offset_3
010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010d e212 | | Load 0x1,0x12
010e 00dc | | Load_Top At_Offset_4
010f 0267 | g | Execute Discrete,Predecessor
0110 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0111 e212 | | Load 0x1,0x12
0112 00dc | | Load_Top At_Offset_4
0113 0268 | h | Execute Discrete,Successor
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012f | / | .CONST 0x012f ; Address of begin
0121 01b9 | | .CONST 0x01b9 ; Address of exception handler
0122 0005 | | .CONST 0x0005 ; Number of locals
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 e008 | | Load 0x0,0x8
0125 180e | | Execute Package,Field_Execute,Field_Number 0xe
0126 e009 | | Load 0x0,0x9
0127 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0128 e002 | | Load 0x0,0x2
0129 1b10 | | Execute Package,Field_Read,Field_Number 0x10
012a e00a | | Load 0x0,0xa
012b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
012c 02ff | | Declare_Variable Variant_Record
012d 00d8 | | Load_Top At_Offset_0
012e 1c00 | | Execute_Immediate Run_Utility,0x0
012f BODY_0120:
012f 4801 |H | Short_Literal 0x1
0130 a5fc | | Store_Unchecked 0x2,-0x4
0131 e009 | | Load 0x0,0x9
0132 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0133 e224 | $ | Load 0x1,0x24
0134 0120 | | Execute Any,Is_Value
0135 6803 |h | Jump_Zero 0x139
0136 e001 | | Load 0x0,0x1
0137 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0138 7801 |x | Jump 0x13a
0139 e224 | $ | Load 0x1,0x24
013a e001 | | Load 0x0,0x1
013b 180f | | Execute Package,Field_Execute,Field_Number 0xf
013c c224 | $ | Store 0x1,0x24
013d 005b | [ | Store_Top Discrete,At_Offset_3
013e e224 | $ | Load 0x1,0x24
013f e001 | | Load 0x0,0x1
0140 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0141 7004 |p | Jump_Nonzero 0x146
0142 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "*** File_Transfer.Open failed"
0144 822e | . | Call 0x1,0x2e
0145 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0146 e001 | | Load 0x0,0x1
0147 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0148 e402 | | Load 0x2,0x2
0149 e224 | $ | Load 0x1,0x24
014a e001 | | Load 0x0,0x1
014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014c 4801 |H | Short_Literal 0x1
014d e210 | | Load 0x1,0x10
014e 8232 | 2 | Call 0x1,0x32
014f e5fe | | Load 0x2,-0x2
0150 e224 | $ | Load 0x1,0x24
0151 e001 | | Load 0x0,0x1
0152 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0153 4802 |H | Short_Literal 0x2
0154 e210 | | Load 0x1,0x10
0155 8232 | 2 | Call 0x1,0x32
0156 e5fd | | Load 0x2,-0x3
0157 e224 | $ | Load 0x1,0x24
0158 e001 | | Load 0x0,0x1
0159 181b | | Execute Package,Field_Execute,Field_Number 0x1b
015a 4801 |H | Short_Literal 0x1
015b e210 | | Load 0x1,0x10
015c 8232 | 2 | Call 0x1,0x32
015d 4803 |H | Short_Literal 0x3
015e e224 | $ | Load 0x1,0x24
015f e001 | | Load 0x0,0x1
0160 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0161 4801 |H | Short_Literal 0x1
0162 e210 | | Load 0x1,0x10
0163 8232 | 2 | Call 0x1,0x32
0164 e5ff | | Load 0x2,-0x1
0165 e225 | % | Load 0x1,0x25
0166 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0167 a226 | & | Store_Unchecked 0x1,0x26
0168 e5fe | | Load 0x2,-0x2
0169 e225 | % | Load 0x1,0x25
016a 03b6 | | Declare_Variable Access,By_Allocation,With_Value
016b a227 | ' | Store_Unchecked 0x1,0x27
016c e5fd | | Load 0x2,-0x3
016d e225 | % | Load 0x1,0x25
016e 03b6 | | Declare_Variable Access,By_Allocation,With_Value
016f a228 | ( | Store_Unchecked 0x1,0x28
0170 e224 | $ | Load 0x1,0x24
0171 e001 | | Load 0x0,0x1
0172 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0173 a22a | * | Store_Unchecked 0x1,0x2a
0174 e22a | * | Load 0x1,0x2a
0175 0229 | ) | Execute Access,All_Read
0176 00d8 | | Load_Top At_Offset_0
0177 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0178 0092 05b2 | | Action Push_String_Extended,0x5b2 ; "!Machine.Temporary.Get_Xfer_"
017a e5ff | | Load 0x2,-0x1
017b 01cc | | Execute Vector,Catenate
017c 0092 05b3 | | Action Push_String_Extended,0x5b3 ; "_"
017e 01cc | | Execute Vector,Catenate
017f e5fe | | Load 0x2,-0x2
0180 01cc | | Execute Vector,Catenate
0181 4802 |H | Short_Literal 0x2
0182 8233 | 3 | Call 0x1,0x33
0183 00d9 | | Load_Top At_Offset_1
0184 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0185 00d1 | | Pop_Control Pop_Count_1
0186 e229 | ) | Load 0x1,0x29
0187 e002 | | Load 0x0,0x2
0188 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0189 e22a | * | Load 0x1,0x2a
018a 0227 | ' | Execute Access,All_Reference
018b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018c e22c | , | Load 0x1,0x2c
018d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
018e e002 | | Load 0x0,0x2
018f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0190 e22a | * | Load 0x1,0x2a
0191 0227 | ' | Execute Access,All_Reference
0192 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0193 e22d | - | Load 0x1,0x2d
0194 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0195 a22b | + | Store_Unchecked 0x1,0x2b
0196 4801 |H | Short_Literal 0x1
0197 e22b | + | Load 0x1,0x2b
0198 0217 | | Execute Heap_Access,All_Reference
0199 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
019a 4800 |H | Short_Literal 0x0
019b e22b | + | Load 0x1,0x2b
019c 0217 | | Execute Heap_Access,All_Reference
019d 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
019e e22a | * | Load 0x1,0x2a
019f 0227 | ' | Execute Access,All_Reference
01a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a1 e002 | | Load 0x0,0x2
01a2 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
01a3 e22b | + | Load 0x1,0x2b
01a4 0217 | | Execute Heap_Access,All_Reference
01a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01a6 e22b | + | Load 0x1,0x2b
01a7 0217 | | Execute Heap_Access,All_Reference
01a8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a9 e22b | + | Load 0x1,0x2b
01aa 0217 | | Execute Heap_Access,All_Reference
01ab 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01ac e22b | + | Load 0x1,0x2b
01ad 0217 | | Execute Heap_Access,All_Reference
01ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01af e22b | + | Load 0x1,0x2b
01b0 0217 | | Execute Heap_Access,All_Reference
01b1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01b2 e22b | + | Load 0x1,0x2b
01b3 0217 | | Execute Heap_Access,All_Reference
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 e22a | * | Load 0x1,0x2a
01b6 0227 | ' | Execute Access,All_Reference
01b7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01b9 TRAP_0120:
01b9 00d8 | | Load_Top At_Offset_0
01ba 0107 | | Execute Exception,Get_Name
01bb 4940 |I@ | Short_Literal 0x140
01bc 494f |IO | Short_Literal 0x14f
01bd 0262 | b | Execute Discrete,In_Range
01be 6803 |h | Jump_Zero 0x1c2
01bf 4800 |H | Short_Literal 0x0
01c0 a5fc | | Store_Unchecked 0x2,-0x4
01c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01c2 0100 | | Execute Exception,Raise
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cd | | .CONST 0x01cd ; Address of begin
01c9 01e2 | | .CONST 0x01e2 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e002 | | Load 0x0,0x2
01cc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01cd BODY_01c8:
01cd e224 | $ | Load 0x1,0x24
01ce e001 | | Load 0x0,0x1
01cf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01d0 0229 | ) | Execute Access,All_Read
01d1 e002 | | Load 0x0,0x2
01d2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01d3 00d9 | | Load_Top At_Offset_1
01d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d5 e002 | | Load 0x0,0x2
01d6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01d7 00da | | Load_Top At_Offset_2
01d8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d9 005a | Z | Store_Top Discrete,At_Offset_2
01da 00d1 | | Pop_Control Pop_Count_1
01db e224 | $ | Load 0x1,0x24
01dc e001 | | Load 0x0,0x1
01dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01de e224 | $ | Load 0x1,0x24
01df e001 | | Load 0x0,0x1
01e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e2 TRAP_01c8:
01e2 0007 | | Action Break_Optional
01e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0203 | | .CONST 0x0203 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4801 |H | Short_Literal 0x1
01ec a5fd | | Store_Unchecked 0x2,-0x3
01ed 4805 |H | Short_Literal 0x5
01ee 8234 | 4 | Call 0x1,0x34
01ef 00db | | Load_Top At_Offset_3
01f0 e224 | $ | Load 0x1,0x24
01f1 e001 | | Load 0x0,0x1
01f2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01f3 8235 | 5 | Call 0x1,0x35
01f4 4800 |H | Short_Literal 0x0
01f5 e5fe | | Load 0x2,-0x2
01f6 e5ff | | Load 0x2,-0x1
01f7 e224 | $ | Load 0x1,0x24
01f8 e001 | | Load 0x0,0x1
01f9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01fa 4806 |H | Short_Literal 0x6
01fb e210 | | Load 0x1,0x10
01fc 8232 | 2 | Call 0x1,0x32
01fd 0092 05b4 | | Action Push_String_Extended,0x5b4 ; "+++ stored "
01ff e5fe | | Load 0x2,-0x2
0200 01cc | | Execute Vector,Catenate
0201 820f | | Call 0x1,0xf
0202 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0203 TRAP_01e8:
0203 00d8 | | Load_Top At_Offset_0
0204 0107 | | Execute Exception,Get_Name
0205 4940 |I@ | Short_Literal 0x140
0206 494f |IO | Short_Literal 0x14f
0207 0262 | b | Execute Discrete,In_Range
0208 6803 |h | Jump_Zero 0x20c
0209 4800 |H | Short_Literal 0x0
020a a5fd | | Store_Unchecked 0x2,-0x3
020b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020c 0100 | | Execute Exception,Raise
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0227 | ' | .CONST 0x0227 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 4801 |H | Short_Literal 0x1
0214 a5fd | | Store_Unchecked 0x2,-0x3
0215 4805 |H | Short_Literal 0x5
0216 8234 | 4 | Call 0x1,0x34
0217 8235 | 5 | Call 0x1,0x35
0218 4800 |H | Short_Literal 0x0
0219 00db | | Load_Top At_Offset_3
021a e5fe | | Load 0x2,-0x2
021b e224 | $ | Load 0x1,0x24
021c e001 | | Load 0x0,0x1
021d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
021e 4806 |H | Short_Literal 0x6
021f e210 | | Load 0x1,0x10
0220 8232 | 2 | Call 0x1,0x32
0221 0092 05b5 | | Action Push_String_Extended,0x5b5 ; "+++ retrieved "
0223 00db | | Load_Top At_Offset_3
0224 01cc | | Execute Vector,Catenate
0225 820f | | Call 0x1,0xf
0226 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0227 TRAP_0210:
0227 00d8 | | Load_Top At_Offset_0
0228 0107 | | Execute Exception,Get_Name
0229 4940 |I@ | Short_Literal 0x140
022a 494f |IO | Short_Literal 0x14f
022b 0262 | b | Execute Discrete,In_Range
022c 6803 |h | Jump_Zero 0x230
022d 4800 |H | Short_Literal 0x0
022e a5fd | | Store_Unchecked 0x2,-0x3
022f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0230 0100 | | Execute Exception,Raise
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0246 | F | .CONST 0x0246 ; Address of begin
0239 029d | | .CONST 0x029d ; Address of exception handler
023a 0003 | | .CONST 0x0003 ; Number of locals
023b INIT_0238:
023b e002 | | Load 0x0,0x2
023c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
023d 02c7 | | Declare_Variable Any
023e e22a | * | Load 0x1,0x2a
023f 0227 | ' | Execute Access,All_Reference
0240 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0241 e002 | | Load 0x0,0x2
0242 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0243 a402 | | Store_Unchecked 0x2,0x2
0244 e211 | | Load 0x1,0x11
0245 0007 | | Action Break_Optional
0246 BODY_0238:
0246 e229 | ) | Load 0x1,0x29
0247 00da | | Load_Top At_Offset_2
0248 e22a | * | Load 0x1,0x2a
0249 0227 | ' | Execute Access,All_Reference
024a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
024b e22c | , | Load 0x1,0x2c
024c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
024d 00d9 | | Load_Top At_Offset_1
024e e22a | * | Load 0x1,0x2a
024f 0227 | ' | Execute Access,All_Reference
0250 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0251 e22d | - | Load 0x1,0x2d
0252 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0253 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0254 e5fe | | Load 0x2,-0x2
0255 01db | | Execute Vector,Length
0256 00d9 | | Load_Top At_Offset_1
0257 0217 | | Execute Heap_Access,All_Reference
0258 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0259 e5fe | | Load 0x2,-0x2
025a 4801 |H | Short_Literal 0x1
025b 00da | | Load_Top At_Offset_2
025c 0217 | | Execute Heap_Access,All_Reference
025d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025e 00db | | Load_Top At_Offset_3
025f 0219 | | Execute Heap_Access,All_Read
0260 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0261 01ce | | Execute Vector,Slice_Write
0262 e22a | * | Load 0x1,0x2a
0263 0227 | ' | Execute Access,All_Reference
0264 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0265 e002 | | Load 0x0,0x2
0266 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0267 00d9 | | Load_Top At_Offset_1
0268 0217 | | Execute Heap_Access,All_Reference
0269 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
026a 00d8 | | Load_Top At_Offset_0
026b 0217 | | Execute Heap_Access,All_Reference
026c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
026d 00d9 | | Load_Top At_Offset_1
026e 0217 | | Execute Heap_Access,All_Reference
026f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0270 00d8 | | Load_Top At_Offset_0
0271 0217 | | Execute Heap_Access,All_Reference
0272 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0273 00d9 | | Load_Top At_Offset_1
0274 0217 | | Execute Heap_Access,All_Reference
0275 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0276 e5ff | | Load 0x2,-0x1
0277 00d9 | | Load_Top At_Offset_1
0278 0217 | | Execute Heap_Access,All_Reference
0279 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
027a 4800 |H | Short_Literal 0x0
027b 00d9 | | Load_Top At_Offset_1
027c 0217 | | Execute Heap_Access,All_Reference
027d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
027e e22b | + | Load 0x1,0x2b
027f e22a | * | Load 0x1,0x2a
0280 0227 | ' | Execute Access,All_Reference
0281 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0282 e22d | - | Load 0x1,0x2d
0283 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0284 00d9 | | Load_Top At_Offset_1
0285 0217 | | Execute Heap_Access,All_Reference
0286 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0287 00d8 | | Load_Top At_Offset_0
0288 a22b | + | Store_Unchecked 0x1,0x2b
0289 e22b | + | Load 0x1,0x2b
028a 0217 | | Execute Heap_Access,All_Reference
028b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
028c 6803 |h | Jump_Zero 0x290
028d 7800 |x | Jump 0x28e
028e 4930 |I0 | Short_Literal 0x130
028f 0257 | W | Execute Discrete,Raise
0290 e5ff | | Load 0x2,-0x1
0291 0f01 | | Execute_Immediate Equal,0x1
0292 7003 |p | Jump_Nonzero 0x296
0293 7800 |x | Jump 0x294
0294 00d8 | | Load_Top At_Offset_0
0295 8237 | 7 | Call 0x1,0x37
0296 4801 |H | Short_Literal 0x1
0297 00d9 | | Load_Top At_Offset_1
0298 0217 | | Execute Heap_Access,All_Reference
0299 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
029a 00d8 | | Load_Top At_Offset_0
029b a5fb | | Store_Unchecked 0x2,-0x5
029c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
029d TRAP_0238:
029d 0007 | | Action Break_Optional
029e 0092 05b6 | | Action Push_String_Extended,0x5b6 ; "in Remote_Generic.Open"
02a0 822f | / | Call 0x1,0x2f
02a1 00d8 | | Load_Top At_Offset_0
02a2 0101 | | Execute Exception,Reraise
02a3 0000 0000 | | .BLANK 0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ad | | .CONST 0x02ad ; Address of begin
02a9 02cb | | .CONST 0x02cb ; Address of exception handler
02aa 0002 | | .CONST 0x0002 ; Number of locals
02ab INIT_02a8:
02ab 029f 0583 | | Declare_Subprogram INIT_0580,For_Call
02ad BODY_02a8:
02ad 00db | | Load_Top At_Offset_3
02ae 0217 | | Execute Heap_Access,All_Reference
02af 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02b0 6803 |h | Jump_Zero 0x2b4
02b1 7800 |x | Jump 0x2b2
02b2 00db | | Load_Top At_Offset_3
02b3 8236 | 6 | Call 0x1,0x36
02b4 4800 |H | Short_Literal 0x0
02b5 e5ff | | Load 0x2,-0x1
02b6 0217 | | Execute Heap_Access,All_Reference
02b7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02b8 00cf | | Action Mark_Auxiliary
02b9 780a |x | Jump 0x2c4
02ba e22b | + | Load 0x1,0x2b
02bb 0217 | | Execute Heap_Access,All_Reference
02bc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
02bd e22a | * | Load 0x1,0x2a
02be 0227 | ' | Execute Access,All_Reference
02bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c0 e22d | - | Load 0x1,0x2d
02c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c2 a22b | + | Store_Unchecked 0x1,0x2b
02c3 00c9 | | Action Pop_Auxiliary_Loop
02c4 e22b | + | Load 0x1,0x2b
02c5 0217 | | Execute Heap_Access,All_Reference
02c6 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02c7 6ff2 |o | Jump_Zero 0x2ba
02c8 00ce | | Action Pop_Auxiliary
02c9 8402 | | Call 0x2,0x2
02ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02cb TRAP_02a8:
02cb 0007 | | Action Break_Optional
02cc 0092 05b7 | | Action Push_String_Extended,0x5b7 ; "in Remote_Generic.Close"
02ce 822f | / | Call 0x1,0x2f
02cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4801 |H | Short_Literal 0x1
02d4 00db | | Load_Top At_Offset_3
02d5 0217 | | Execute Heap_Access,All_Reference
02d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d7 e5ff | | Load 0x2,-0x1
02d8 0217 | | Execute Heap_Access,All_Reference
02d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02da 01cf | | Execute Vector,Slice_Read
02db e00b | | Load 0x0,0xb
02dc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02de 0000 0000 | | .XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02f0 | | .CONST 0x02f0 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0002 | | .CONST 0x0002 ; Number of locals
02e3 INIT_02e0:
02e3 e002 | | Load 0x0,0x2
02e4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02e5 02c7 | | Declare_Variable Any
02e6 00db | | Load_Top At_Offset_3
02e7 e5fe | | Load 0x2,-0x2
02e8 0217 | | Execute Heap_Access,All_Reference
02e9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02ea e002 | | Load 0x0,0x2
02eb 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02ec 0273 | s | Execute Discrete,Plus
02ed e002 | | Load 0x0,0x2
02ee 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02ef a402 | | Store_Unchecked 0x2,0x2
02f0 BODY_02e0:
02f0 e5fe | | Load 0x2,-0x2
02f1 0217 | | Execute Heap_Access,All_Reference
02f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02f3 00d9 | | Load_Top At_Offset_1
02f4 e002 | | Load 0x0,0x2
02f5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02f6 6804 |h | Jump_Zero 0x2fb
02f7 00d8 | | Load_Top At_Offset_0
02f8 e5fe | | Load 0x2,-0x2
02f9 0217 | | Execute Heap_Access,All_Reference
02fa 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02fb 00d8 | | Load_Top At_Offset_0
02fc e5fe | | Load 0x2,-0x2
02fd 0217 | | Execute Heap_Access,All_Reference
02fe 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 0217 | | Execute Heap_Access,All_Reference
0305 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0306 e002 | | Load 0x0,0x2
0307 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0308 00db | | Load_Top At_Offset_3
0309 0217 | | Execute Heap_Access,All_Reference
030a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
030b e002 | | Load 0x0,0x2
030c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
030d 0272 | r | Execute Discrete,Minus
030e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030f 0000 | | .XXX[0x1]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 0217 | | Execute Heap_Access,All_Reference
0315 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0316 00db | | Load_Top At_Offset_3
0317 0217 | | Execute Heap_Access,All_Reference
0318 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0319 e002 | | Load 0x0,0x2
031a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
031b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031c 0000 0000 | | .BLANK 0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0331 | 1 | .CONST 0x0331 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0002 | | .CONST 0x0002 ; Number of locals
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 0217 | | Execute Heap_Access,All_Reference
0325 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0326 e002 | | Load 0x0,0x2
0327 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0328 00db | | Load_Top At_Offset_3
0329 0217 | | Execute Heap_Access,All_Reference
032a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
032b e002 | | Load 0x0,0x2
032c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
032d 0272 | r | Execute Discrete,Minus
032e 09fd | | Execute_Immediate Binary_Scale,-0x3
032f 00e5 | | Load_Encached Long_Integer_Cache
0330 03f1 | | Declare_Variable Discrete,With_Value
0331 BODY_0320:
0331 00d8 | | Load_Top At_Offset_0
0332 0d01 | | Execute_Immediate Less,0x1
0333 6803 |h | Jump_Zero 0x337
0334 4800 |H | Short_Literal 0x0
0335 a5fd | | Store_Unchecked 0x2,-0x3
0336 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0337 00d8 | | Load_Top At_Offset_0
0338 e5fe | | Load 0x2,-0x2
0339 01db | | Execute Vector,Length
033a 027c | | | Execute Discrete,Less
033b 6828 |h( | Jump_Zero 0x364
033c e5fe | | Load 0x2,-0x2
033d 00d8 | | Load_Top At_Offset_0
033e 01dd | | Execute Vector,First
033f e5fe | | Load 0x2,-0x2
0340 01dd | | Execute Vector,First
0341 00db | | Load_Top At_Offset_3
0342 00d8 | | Load_Top At_Offset_0
0343 00e2 | | Load_Encached Integer_Cache
0344 0260 | ` | Execute Discrete,In_Type
0345 7001 |p | Jump_Nonzero 0x347
0346 0801 | | Execute_Immediate Raise,0x1
0347 0273 | s | Execute Discrete,Plus
0348 0aff | | Execute_Immediate Plus,-0x1
0349 00d8 | | Load_Top At_Offset_0
034a 00e2 | | Load_Encached Integer_Cache
034b 0260 | ` | Execute Discrete,In_Type
034c 7001 |p | Jump_Nonzero 0x34e
034d 0801 | | Execute_Immediate Raise,0x1
034e 00da | | Load_Top At_Offset_2
034f 035b | [ | Declare_Type Array,Constrained
0350 00d0 | | Action Swap_Control
0351 01cd | | Execute Vector,Slice_Reference
0352 e5ff | | Load 0x2,-0x1
0353 0219 | | Execute Heap_Access,All_Read
0354 00e3 | | Load_Encached Natural_Cache
0355 00da | | Load_Top At_Offset_2
0356 00da | | Load_Top At_Offset_2
0357 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0358 e22a | * | Load 0x1,0x2a
0359 0227 | ' | Execute Access,All_Reference
035a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
035b e002 | | Load 0x0,0x2
035c 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
035d 180f | | Execute Package,Field_Execute,Field_Number 0xf
035e 00db | | Load_Top At_Offset_3
035f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0360 00d1 | | Pop_Control Pop_Count_1
0361 c5fd | | Store 0x2,-0x3
0362 00d2 | | Pop_Control Pop_Count_2
0363 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0364 00db | | Load_Top At_Offset_3
0365 0219 | | Execute Heap_Access,All_Read
0366 00e3 | | Load_Encached Natural_Cache
0367 e5fe | | Load 0x2,-0x2
0368 00da | | Load_Top At_Offset_2
0369 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
036a e22a | * | Load 0x1,0x2a
036b 0227 | ' | Execute Access,All_Reference
036c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
036d e002 | | Load 0x0,0x2
036e 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
036f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0370 00db | | Load_Top At_Offset_3
0371 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0372 00d1 | | Pop_Control Pop_Count_1
0373 c5fd | | Store 0x2,-0x3
0374 00d1 | | Pop_Control Pop_Count_1
0375 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0376 0000 0000 | | .XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00db | | Load_Top At_Offset_3
037c 0219 | | Execute Heap_Access,All_Read
037d 00d8 | | Load_Top At_Offset_0
037e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
037f e5ff | | Load 0x2,-0x1
0380 e22a | * | Load 0x1,0x2a
0381 0227 | ' | Execute Access,All_Reference
0382 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0383 e002 | | Load 0x0,0x2
0384 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0385 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0386 00d9 | | Load_Top At_Offset_1
0387 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0388 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0389 0000 0000 | | .BLANK 0000[0x7]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 e22a | * | Load 0x1,0x2a
0394 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0395 0000 0000 | | .XXX[0x3]
0397 0000 | |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00da | | Load_Top At_Offset_2
039c 0217 | | Execute Heap_Access,All_Reference
039d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
039e 00d8 | | Load_Top At_Offset_0
039f 0120 | | Execute Any,Is_Value
03a0 7002 |p | Jump_Nonzero 0x3a3
03a1 00d8 | | Load_Top At_Offset_0
03a2 011e | | Execute Any,Convert
03a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 00da | | Load_Top At_Offset_2
03ac 0217 | | Execute Heap_Access,All_Reference
03ad 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03ae 00d8 | | Load_Top At_Offset_0
03af 0120 | | Execute Any,Is_Value
03b0 7002 |p | Jump_Nonzero 0x3b3
03b1 00d8 | | Load_Top At_Offset_0
03b2 011e | | Execute Any,Convert
03b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b4 0000 0000 | | .BLANK 0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 4608 |F | Jump_Case 0x9
03bc 7808 |x | Jump 0x3c5 ; case 0x0
03bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03be 781f |x | Jump 0x3de ; case 0x2
03bf 781e |x | Jump 0x3de ; case 0x3
03c0 781d |x | Jump 0x3de ; case 0x4
03c1 781c |x | Jump 0x3de ; case 0x5
03c2 781b |x | Jump 0x3de ; case 0x6
03c3 781a |x | Jump 0x3de ; case 0x7
03c4 7819 |x | Jump 0x3de ; case 0x8
03c5 00da | | Load_Top At_Offset_2
03c6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03c7 0125 | % | Execute Any,Set_Constraint
03c8 00da | | Load_Top At_Offset_2
03c9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03ca 1c00 | | Execute_Immediate Run_Utility,0x0
03cb 00da | | Load_Top At_Offset_2
03cc 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
03cd 0125 | % | Execute Any,Set_Constraint
03ce 00da | | Load_Top At_Offset_2
03cf 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
03d0 1c00 | | Execute_Immediate Run_Utility,0x0
03d1 00da | | Load_Top At_Offset_2
03d2 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03d3 0125 | % | Execute Any,Set_Constraint
03d4 00da | | Load_Top At_Offset_2
03d5 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03d6 1c00 | | Execute_Immediate Run_Utility,0x0
03d7 00da | | Load_Top At_Offset_2
03d8 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
03d9 0125 | % | Execute Any,Set_Constraint
03da 00da | | Load_Top At_Offset_2
03db 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
03dc 1c00 | | Execute_Immediate Run_Utility,0x0
03dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03de 0869 | i | Execute_Immediate Raise,0x69
03df 0000 | | .XXX[0x1]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00da | | Load_Top At_Offset_2
03e4 01db | | Execute Vector,Length
03e5 7004 |p | Jump_Nonzero 0x3ea
03e6 0092 05b8 | | Action Push_String_Extended,0x5b8 ; "++* command failed."
03e8 820f | | Call 0x1,0xf
03e9 7802 |x | Jump 0x3ec
03ea 00da | | Load_Top At_Offset_2
03eb 820f | | Call 0x1,0xf
03ec 4940 |I@ | Short_Literal 0x140
03ed 0257 | W | Execute Discrete,Raise
03ee 0000 0000 | | .XXX[0x2]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 0092 05b9 | | Action Push_String_Extended,0x5b9 ; "%%% "
03f5 4800 |H | Short_Literal 0x0
03f6 4801 |H | Short_Literal 0x1
03f7 e00c | | Load 0x0,0xc
03f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03f9 01cc | | Execute Vector,Catenate
03fa 0092 05ba | | Action Push_String_Extended,0x5ba ; " was raised "
03fc 01cc | | Execute Vector,Catenate
03fd 00db | | Load_Top At_Offset_3
03fe 01cc | | Execute Vector,Catenate
03ff 820f | | Call 0x1,0xf
0400 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0401 0000 0000 | | .BLANK 0000[0x7]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 00da | | Load_Top At_Offset_2
040c 4864 |Hd | Short_Literal 0x64
040d 0270 | p | Execute Discrete,Divide
040e 4804 |H | Short_Literal 0x4
040f 4805 |H | Short_Literal 0x5
0410 0262 | b | Execute Discrete,In_Range
0411 7003 |p | Jump_Nonzero 0x415
0412 0092 05bb | | Action Push_String_Extended,0x5bb ; "--- "
0414 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0415 0092 05bc | | Action Push_String_Extended,0x5bc ; "*** "
0417 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0423 | # | .CONST 0x0423 ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0004 | | .CONST 0x0004 ; Number of locals
041b INIT_0418:
041b 4801 |H | Short_Literal 0x1
041c 4850 |HP | Short_Literal 0x50
041d 00e9 | | Load_Encached String_Cache
041e 035b | [ | Declare_Type Array,Constrained
041f 0337 | 7 | Declare_Variable Array
0420 00e3 | | Load_Encached Natural_Cache
0421 029f 059b | | Declare_Subprogram INIT_0598,For_Call
0423 BODY_0418:
0423 00cf | | Action Mark_Auxiliary
0424 7809 |x | Jump 0x42e
0425 00e3 | | Load_Encached Natural_Cache
0426 e402 | | Load 0x2,0x2
0427 e224 | $ | Load 0x1,0x24
0428 e001 | | Load 0x0,0x1
0429 1815 | | Execute Package,Field_Execute,Field_Number 0x15
042a 00d1 | | Pop_Control Pop_Count_1
042b 005b | [ | Store_Top Discrete,At_Offset_3
042c 8404 | | Call 0x2,0x4
042d 00c9 | | Action Pop_Auxiliary_Loop
042e e224 | $ | Load 0x1,0x24
042f e001 | | Load 0x0,0x1
0430 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0431 6ff3 |o | Jump_Zero 0x425
0432 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0433 0000 0000 | | .BLANK 0000[0x5]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043d | = | .CONST 0x043d ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0002 | | .CONST 0x0002 ; Number of locals
043b INIT_0438:
043b e003 | | Load 0x0,0x3
043c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
043d BODY_0438:
043d 00db | | Load_Top At_Offset_3
043e 8231 | 1 | Call 0x1,0x31
043f e003 | | Load 0x0,0x3
0440 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0441 e224 | $ | Load 0x1,0x24
0442 e001 | | Load 0x0,0x1
0443 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0444 0059 | Y | Store_Top Discrete,At_Offset_1
0445 00d8 | | Load_Top At_Offset_0
0446 e5fe | | Load 0x2,-0x2
0447 027e | ~ | Execute Discrete,Not_Equal
0448 6809 |h | Jump_Zero 0x452
0449 0092 05bd | | Action Push_String_Extended,0x5bd ; "*** FTP command status => "
044b 00d9 | | Load_Top At_Offset_1
044c e003 | | Load 0x0,0x3
044d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
044e 011c | | Execute Any,Convert_Unchecked
044f 1c01 | | Execute_Immediate Run_Utility,0x1
0450 01cc | | Execute Vector,Catenate
0451 822e | . | Call 0x1,0x2e
0452 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0453 0000 0000 | | .BLANK 0000[0x5]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0473 | s | .CONST 0x0473 ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0006 | | .CONST 0x0006 ; Number of locals
045b INIT_0458:
045b e00d | | Load 0x0,0xd
045c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
045d 02c7 | | Declare_Variable Any
045e 00d8 | | Load_Top At_Offset_0
045f 1c00 | | Execute_Immediate Run_Utility,0x0
0460 e00a | | Load 0x0,0xa
0461 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0462 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0463 02c7 | | Declare_Variable Any
0464 00d8 | | Load_Top At_Offset_0
0465 1c00 | | Execute_Immediate Run_Utility,0x0
0466 e00a | | Load 0x0,0xa
0467 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0468 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0469 02c7 | | Declare_Variable Any
046a 00d8 | | Load_Top At_Offset_0
046b 1c00 | | Execute_Immediate Run_Utility,0x0
046c e00a | | Load 0x0,0xa
046d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046e e00a | | Load 0x0,0xa
046f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0470 02ff | | Declare_Variable Variant_Record
0471 00d8 | | Load_Top At_Offset_0
0472 1c00 | | Execute_Immediate Run_Utility,0x0
0473 BODY_0458:
0473 e002 | | Load 0x0,0x2
0474 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0475 e5fd | | Load 0x2,-0x3
0476 4800 |H | Short_Literal 0x0
0477 6070 |`p | Indirect_Literal Discrete,0x4e8,{0x00000000, 0x00004000}
0478 e00e | | Load 0x0,0xe
0479 1b0e | | Execute Package,Field_Read,Field_Number 0xe
047a e00a | | Load 0x0,0xa
047b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
047c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
047d 4800 |H | Short_Literal 0x0
047e e5fe | | Load 0x2,-0x2
047f e5ff | | Load 0x2,-0x1
0480 e002 | | Load 0x0,0x2
0481 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0482 c5fd | | Store 0x2,-0x3
0483 005a | Z | Store_Top Discrete,At_Offset_2
0484 00d9 | | Load_Top At_Offset_1
0485 460e |F | Jump_Case 0xf
0486 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0
0487 780d |x | Jump 0x495 ; case 0x1
0488 780c |x | Jump 0x495 ; case 0x2
0489 780b |x | Jump 0x495 ; case 0x3
048a 780a |x | Jump 0x495 ; case 0x4
048b 7809 |x | Jump 0x495 ; case 0x5
048c 7808 |x | Jump 0x495 ; case 0x6
048d 7807 |x | Jump 0x495 ; case 0x7
048e 7806 |x | Jump 0x495 ; case 0x8
048f 7807 |x | Jump 0x497 ; case 0x9
0490 7804 |x | Jump 0x495 ; case 0xa
0491 7803 |x | Jump 0x495 ; case 0xb
0492 7802 |x | Jump 0x495 ; case 0xc
0493 7801 |x | Jump 0x495 ; case 0xd
0494 7800 |x | Jump 0x495 ; case 0xe
0495 4940 |I@ | Short_Literal 0x140
0496 0257 | W | Execute Discrete,Raise
0497 e00a | | Load 0x0,0xa
0498 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0499 00db | | Load_Top At_Offset_3
049a 0120 | | Execute Any,Is_Value
049b 6802 |h | Jump_Zero 0x49e
049c 00f1 | | Load_Encached Diana_Temp_Seq
049d 7801 |x | Jump 0x49f
049e 00db | | Load_Top At_Offset_3
049f e403 | | Load 0x2,0x3
04a0 0120 | | Execute Any,Is_Value
04a1 6804 |h | Jump_Zero 0x4a6
04a2 e00a | | Load 0x0,0xa
04a3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
04a4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04a5 7801 |x | Jump 0x4a7
04a6 e403 | | Load 0x2,0x3
04a7 e402 | | Load 0x2,0x2
04a8 0120 | | Execute Any,Is_Value
04a9 6803 |h | Jump_Zero 0x4ad
04aa e00d | | Load 0x0,0xd
04ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04ac 7801 |x | Jump 0x4ae
04ad e402 | | Load 0x2,0x2
04ae e406 | | Load 0x2,0x6
04af 6038 |`8 | Indirect_Literal Discrete,0x4e8,{0x00000000, 0x00004000}
04b0 e00e | | Load 0x0,0xe
04b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b2 4800 |H | Short_Literal 0x0
04b3 e00a | | Load 0x0,0xa
04b4 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
04b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b6 e00a | | Load 0x0,0xa
04b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04b8 602b |`+ | Indirect_Literal Discrete,0x4e4,{0x00000000, 0x7fffffff}
04b9 4ffc |O | Short_Literal -0x4
04ba 4ffd |O | Short_Literal -0x3
04bb e00a | | Load 0x0,0xa
04bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04be e00a | | Load 0x0,0xa
04bf 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04c0 e002 | | Load 0x0,0x2
04c1 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c2 e5fe | | Load 0x2,-0x2
04c3 e00a | | Load 0x0,0xa
04c4 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
04c5 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c6 00d1 | | Pop_Control Pop_Count_1
04c7 c402 | | Store 0x2,0x2
04c8 c403 | | Store 0x2,0x3
04c9 c404 | | Store 0x2,0x4
04ca 005a | Z | Store_Top Discrete,At_Offset_2
04cb 00d9 | | Load_Top At_Offset_1
04cc 6802 |h | Jump_Zero 0x4cf
04cd 4940 |I@ | Short_Literal 0x140
04ce 0257 | W | Execute Discrete,Raise
04cf e002 | | Load 0x0,0x2
04d0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04d1 00d9 | | Load_Top At_Offset_1
04d2 e5fd | | Load 0x2,-0x3
04d3 4801 |H | Short_Literal 0x1
04d4 6013 |` | Indirect_Literal Discrete,0x4e8,{0x00000000, 0x00004000}
04d5 e00e | | Load 0x0,0xe
04d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d7 e5ff | | Load 0x2,-0x1
04d8 e002 | | Load 0x0,0x2
04d9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04da c5fd | | Store 0x2,-0x3
04db 00d1 | | Pop_Control Pop_Count_1
04dc 005a | Z | Store_Top Discrete,At_Offset_2
04dd 00d9 | | Load_Top At_Offset_1
04de 6802 |h | Jump_Zero 0x4e1
04df 4940 |I@ | Short_Literal 0x140
04e0 0257 | W | Execute Discrete,Raise
04e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04e2 0000 0000 | | .XXX[0x2]
04e4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
04e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
04ec 0000 0000 | | .BLANK 0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 00cf | | Action Mark_Auxiliary
04f4 00db | | Load_Top At_Offset_3
04f5 4801 |H | Short_Literal 0x1
04f6 0263 | c | Execute Discrete,Above_Bound
04f7 702a |p* | Jump_Nonzero 0x522
04f8 e224 | $ | Load 0x1,0x24
04f9 e001 | | Load 0x0,0x1
04fa 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
04fb 6801 |h | Jump_Zero 0x4fd
04fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04fd e001 | | Load 0x0,0x1
04fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ff e226 | & | Load 0x1,0x26
0500 0227 | ' | Execute Access,All_Reference
0501 e008 | | Load 0x0,0x8
0502 180e | | Execute Package,Field_Execute,Field_Number 0xe
0503 e224 | $ | Load 0x1,0x24
0504 e001 | | Load 0x0,0x1
0505 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0506 4801 |H | Short_Literal 0x1
0507 e210 | | Load 0x1,0x10
0508 8232 | 2 | Call 0x1,0x32
0509 e227 | ' | Load 0x1,0x27
050a 0227 | ' | Execute Access,All_Reference
050b e224 | $ | Load 0x1,0x24
050c e001 | | Load 0x0,0x1
050d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
050e 4802 |H | Short_Literal 0x2
050f e210 | | Load 0x1,0x10
0510 8232 | 2 | Call 0x1,0x32
0511 e228 | ( | Load 0x1,0x28
0512 0227 | ' | Execute Access,All_Reference
0513 e224 | $ | Load 0x1,0x24
0514 e001 | | Load 0x0,0x1
0515 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0516 4801 |H | Short_Literal 0x1
0517 e210 | | Load 0x1,0x10
0518 8232 | 2 | Call 0x1,0x32
0519 4803 |H | Short_Literal 0x3
051a e224 | $ | Load 0x1,0x24
051b e001 | | Load 0x0,0x1
051c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
051d 4801 |H | Short_Literal 0x1
051e e210 | | Load 0x1,0x10
051f 8232 | 2 | Call 0x1,0x32
0520 00c8 | | Action Pop_Auxiliary_Range
0521 3fd6 |? | Loop_Increasing 0x4f8
0522 00ce | | Action Pop_Auxiliary
0523 4940 |I@ | Short_Literal 0x140
0524 0257 | W | Execute Discrete,Raise
0525 0000 0000 | | .XXX[0x3]
0527 0000 | |
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b e009 | | Load 0x0,0x9
052c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
052d e009 | | Load 0x0,0x9
052e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
052f e224 | $ | Load 0x1,0x24
0530 e001 | | Load 0x0,0x1
0531 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0532 4801 |H | Short_Literal 0x1
0533 e210 | | Load 0x1,0x10
0534 8232 | 2 | Call 0x1,0x32
0535 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0536 0000 0000 | | .XXX[0x2]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 4805 |H | Short_Literal 0x5
053c 8234 | 4 | Call 0x1,0x34
053d 00da | | Load_Top At_Offset_2
053e 0217 | | Execute Heap_Access,All_Reference
053f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0540 e22a | * | Load 0x1,0x2a
0541 0227 | ' | Execute Access,All_Reference
0542 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0543 8235 | 5 | Call 0x1,0x35
0544 4800 |H | Short_Literal 0x0
0545 4801 |H | Short_Literal 0x1
0546 e5ff | | Load 0x2,-0x1
0547 0217 | | Execute Heap_Access,All_Reference
0548 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0549 e5ff | | Load 0x2,-0x1
054a 0217 | | Execute Heap_Access,All_Reference
054b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
054c 01cf | | Execute Vector,Slice_Read
054d e224 | $ | Load 0x1,0x24
054e e001 | | Load 0x0,0x1
054f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0550 4806 |H | Short_Literal 0x6
0551 e210 | | Load 0x1,0x10
0552 8232 | 2 | Call 0x1,0x32
0553 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0554 0000 0000 | | .BLANK 0000[0x4]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b | [ | .CONST 0x055b ; Address of begin
0559 057b | { | .CONST 0x057b ; Address of exception handler
055a 0001 | | .CONST 0x0001 ; Number of locals
055b BODY_0558:
055b INIT_0558:
055b 4805 |H | Short_Literal 0x5
055c 8234 | 4 | Call 0x1,0x34
055d 00da | | Load_Top At_Offset_2
055e 0217 | | Execute Heap_Access,All_Reference
055f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0560 e22a | * | Load 0x1,0x2a
0561 0227 | ' | Execute Access,All_Reference
0562 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0563 8235 | 5 | Call 0x1,0x35
0564 4801 |H | Short_Literal 0x1
0565 00db | | Load_Top At_Offset_3
0566 0217 | | Execute Heap_Access,All_Reference
0567 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0568 e5ff | | Load 0x2,-0x1
0569 0217 | | Execute Heap_Access,All_Reference
056a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
056b 01cf | | Execute Vector,Slice_Read
056c e224 | $ | Load 0x1,0x24
056d e001 | | Load 0x0,0x1
056e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
056f 4806 |H | Short_Literal 0x6
0570 e210 | | Load 0x1,0x10
0571 8232 | 2 | Call 0x1,0x32
0572 e22a | * | Load 0x1,0x2a
0573 0227 | ' | Execute Access,All_Reference
0574 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0575 e002 | | Load 0x0,0x2
0576 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0577 00db | | Load_Top At_Offset_3
0578 0217 | | Execute Heap_Access,All_Reference
0579 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
057a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
057b TRAP_0558:
057b 0007 | | Action Break_Optional
057c 00d8 | | Load_Top At_Offset_0
057d 0101 | | Execute Exception,Reraise
057e 0000 0000 | | .XXX[0x2]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 058c | | .CONST 0x058c ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 e22b | + | Load 0x1,0x2b
0584 0217 | | Execute Heap_Access,All_Reference
0585 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0586 e22a | * | Load 0x1,0x2a
0587 0227 | ' | Execute Access,All_Reference
0588 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0589 e002 | | Load 0x0,0x2
058a 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
058b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
058c TRAP_0580:
058c 0007 | | Action Break_Optional
058d 0092 05be | | Action Push_String_Extended,0x5be ; "by Pio.Truncate in Remote_Generic"
058f 822f | / | Call 0x1,0x2f
0590 00d8 | | Load_Top At_Offset_0
0591 0101 | | Execute Exception,Reraise
0592 0000 0000 | | .BLANK 0000[0x6]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059f | | .CONST 0x059f ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0002 | | .CONST 0x0002 ; Number of locals
059b INIT_0598:
059b e224 | $ | Load 0x1,0x24
059c e001 | | Load 0x0,0x1
059d 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
059e 8230 | 0 | Call 0x1,0x30
059f BODY_0598:
059f e5ff | | Load 0x2,-0x1
05a0 7005 |p | Jump_Nonzero 0x5a6
05a1 00d8 | | Load_Top At_Offset_0
05a2 0092 05bf | | Action Push_String_Extended,0x5bf ; " "
05a4 01de | | Execute Vector,Not_Equal
05a5 6807 |h | Jump_Zero 0x5ad
05a6 00d8 | | Load_Top At_Offset_0
05a7 4801 |H | Short_Literal 0x1
05a8 e403 | | Load 0x2,0x3
05a9 e402 | | Load 0x2,0x2
05aa 01cf | | Execute Vector,Slice_Read
05ab 01cc | | Execute Vector,Catenate
05ac 820f | | Call 0x1,0xf
05ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05ae ; --------------------------------------------------------------------------------------
05ae ; STRING TABLE
05ae ; --------------------------------------------------------------------------------------
05ae 0026 | & | .STRTAB 0x0026->0x05c1 ; "IN_FILE"
05af 002b | + | .STRTAB 0x002b->0x05c4 ; "OUT_FILE"
05b0 0031 | 1 | .STRTAB 0x0031->0x05c8 ; "IN_OUT_FILE"
05b1 003a | : | .STRTAB 0x003a->0x05ce ; "*** File_Transfer.Open failed"
05b2 0055 | U | .STRTAB 0x0055->0x05dc ; "!Machine.Temporary.Get_Xfer_"
05b3 006f | o | .STRTAB 0x006f->0x05ea ; "_"
05b4 006e | n | .STRTAB 0x006e->0x05eb ; "+++ stored "
05b5 0077 | w | .STRTAB 0x0077->0x05f0 ; "+++ retrieved "
05b6 0083 | | .STRTAB 0x0083->0x05f7 ; "in Remote_Generic.Open"
05b7 0097 | | .STRTAB 0x0097->0x0602 ; "in Remote_Generic.Close"
05b8 00ac | | .STRTAB 0x00ac->0x060e ; "++* command failed."
05b9 00bd | | .STRTAB 0x00bd->0x0617 ; "%%% "
05ba 00bf | | .STRTAB 0x00bf->0x0619 ; " was raised "
05bb 00c9 | | .STRTAB 0x00c9->0x061f ; "--- "
05bc 00cb | | .STRTAB 0x00cb->0x0621 ; "*** "
05bd 00cd | | .STRTAB 0x00cd->0x0623 ; "*** FTP command status => "
05be 00e5 | | .STRTAB 0x00e5->0x0630 ; "by Pio.Truncate in Remote_Generic"
05bf 0104 | | .STRTAB 0x0104->0x0641 ; " "
05c0 0106 | | .STREND 0x0106->0x0643
05c1 494e 5f46 |IN_F| .STRTAB_STRINGS
0643 0000 0000 | | .BLANK 0000[0x5]
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug Table
0648 ; --------------------------------------------------------------------------------------
0648 0004 000d | | .DEBUG4 0x0004,0x000d,0xdd50,0x0000,0x0001,0x0000
064e 2006 4fff | O | .XXX[0x33]
0650 fc06 6fff | o |
0652 f807 07ff | |
0654 f407 2400 | $ |
0656 0407 3c00 | < |
0658 0807 4400 | D |
065a 0c07 5800 | X |
065c 1007 6c00 | l |
065e 1407 8c00 | |
0660 1807 9400 | |
0662 1c07 a800 | |
0664 2000 0c00 | |
0666 2007 cfff | |
0668 fc07 f7ff | |
066a f808 0bff | |
066c f408 1000 | |
066e 0408 2c00 | , |
0670 0c08 4800 | H |
0672 1008 8400 | |
0674 1408 8c00 | |
0676 1808 a000 | |
0678 0808 b400 | |
067a 1c08 bc00 | |
067c 2000 0000 | |
067e 0409 0c00 | |
0680 0400 | |
0681 0000 0000 | | .BLANK 0000[0x7]
0688 080a 4c00 | L | .XXX[0x111]
068a 040a 6800 | h |
068c 0800 0000 | |
068e 040a ec00 | |
0690 0400 0000 | |
0692 040b 2c00 | , |
0694 0400 0000 | |
0696 0c0b 8c00 | |
0698 040b 9400 | |
069a 080b a000 | |
069c 0c00 0000 | |
069e 0c0b cc00 | |
06a0 040b d800 | |
06a2 080b e400 | |
06a4 0c00 1000 | |
06a6 040c 0fff | |
06a8 fc0c 23ff | # |
06aa f80c 33ff | 3 |
06ac f40c 43ff | C |
06ae f00c 4800 | H |
06b0 0400 0400 | |
06b2 100c efff | |
06b4 fc0d 0000 | |
06b6 040d 1c00 | |
06b8 0c0d 2000 | |
06ba 100d 3400 | 4 |
06bc 0800 1000 | |
06be 440d 6fff |D o |
06c0 fc0d 77ff | w |
06c2 f80d 87ff | |
06c4 f40d 8bff | |
06c6 f00d b000 | |
06c8 040d b800 | |
06ca 080d c000 | |
06cc 0c0d e800 | |
06ce 100d f000 | |
06d0 140e 1000 | |
06d2 180e 1800 | |
06d4 1c0e 2000 | |
06d6 200e 2c00 | , |
06d8 240e 4000 |$ @ |
06da 280e 6800 |( h |
06dc 2c0e 6c00 |, l |
06de 300e 9000 |0 |
06e0 340e 9800 |4 |
06e2 380e a000 |8 |
06e4 3c0e c400 |< |
06e6 400e e800 |@ |
06e8 4400 1000 |D |
06ea 0c0f 2fff | / |
06ec fc0f 37ff | 7 |
06ee f80f 5fff | _ |
06f0 f40f 67ff | g |
06f2 f00f 8c00 | |
06f4 040f c000 | |
06f6 080f c800 | |
06f8 0c00 0800 | |
06fa 0410 0fff | |
06fc fc10 3fff | ? |
06fe f810 6c00 | l |
0700 0400 0000 | |
0702 0c10 8c00 | |
0704 0410 a000 | |
0706 0810 b000 | |
0708 0c00 0000 | |
070a 1411 0c00 | |
070c 0411 2000 | |
070e 0811 3800 | 8 |
0710 0c11 4c00 | L |
0712 1011 6000 | ` |
0714 1400 0800 | |
0716 0811 cfff | |
0718 fc11 d7ff | |
071a f811 fc00 | |
071c 0412 0c00 | |
071e 0800 0400 | |
0720 1012 6fff | o |
0722 fc12 7800 | x |
0724 0412 9400 | |
0726 0c12 d400 | |
0728 1012 e800 | |
072a 0800 0400 | |
072c 1013 0fff | |
072e fc13 1800 | |
0730 0413 3c00 | < |
0732 0c13 7c00 | | |
0734 1013 9000 | |
0736 0800 0400 | |
0738 0413 cfff | |
073a fc13 ec00 | |
073c 0400 0000 | |
073e 0c14 3000 | 0 |
0740 0414 4400 | D |
0742 0814 7000 | p |
0744 0c00 0800 | |
0746 1414 cfff | |
0748 fc14 dfff | |
074a f814 f800 | |
074c 0415 2c00 | , |
074e 0815 3400 | 4 |
0750 0c15 3c00 | < |
0752 1015 4400 | D |
0754 1400 0400 | |
0756 0815 8fff | |
0758 fc15 a800 | |
075a 0415 b800 | |
075c 0800 0000 | |
075e 0c16 2c00 | , |
0760 0416 4800 | H |
0762 0816 5800 | X |
0764 0c00 0800 | |
0766 0c16 6fff | o |
0768 fc16 73ff | s |
076a f816 7400 | t |
076c 0416 a000 | |
076e 0816 a800 | |
0770 0c00 0800 | |
0772 0c16 efff | |
0774 fc16 f3ff | |
0776 f816 f400 | |
0778 0417 2000 | |
077a 0817 2800 | ( |
077c 0c00 1000 | |
077e 2417 6fff |$ o |
0780 fc17 8fff | |
0782 f817 97ff | |
0784 f417 a7ff | |
0786 f017 a800 | |
0788 0417 c800 | |
078a 0817 d000 | |
078c 0c17 fc00 | |
078e 1018 1c00 | |
0790 1418 2400 | $ |
0792 1818 5000 | P |
0794 1c18 6400 | d |
0796 2018 9000 | |
0798 2400 |$ |
0799 0000 0000 | | .BLANK 0000[0x67]