|
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_ccb0b3
└─⟦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 0690 | | .CONST 0x0690 ; 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 0067 | g | .CONST 0x0067 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 0129 | ) | Execute Any,Make_Visible
000d 4805 |H | Short_Literal 0x5
000e 032b | + | Declare_Type Record,Incomplete,Visible
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0015 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0017 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0019 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
001b 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
001d 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
001f 4800 |H | Short_Literal 0x0
0020 4801 |H | Short_Literal 0x1
0021 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
0023 03fe | | Declare_Type Discrete,Defined,Visible
0024 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0026 0092 05ef | | Action Push_String_Extended,0x5ef ; "Ftp failure"
0028 0129 | ) | Execute Any,Make_Visible
0029 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "Transfer failure"
002b 0129 | ) | Execute Any,Make_Visible
002c 4801 |H | Short_Literal 0x1
002d 4900 |I | Short_Literal 0x100
002e 00e9 | | Load_Encached String_Cache
002f 035b | [ | Declare_Type Array,Constrained
0030 00e3 | | Load_Encached Natural_Cache
0031 02a0 | | Declare_Subprogram Null_Subprogram
0032 4802 |H | Short_Literal 0x2
0033 032d | - | Declare_Type Record,Defined
0034 e002 | | Load 0x0,0x2
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 00d9 | | Load_Top At_Offset_1
0037 00da | | Load_Top At_Offset_2
0038 00db | | Load_Top At_Offset_3
0039 e21b | | Load 0x1,0x1b
003a 029f 05db | | Declare_Subprogram INIT_05d8,For_Call
003c e20e | | Load 0x1,0xe
003d 0326 | & | Complete_Type Record,By_Defining
003e 00bf | | Action Accept_Activation
003f 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "*"
0041 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
0043 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
0045 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call
0047 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
0049 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call
004b 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call
004d 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
004f 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0051 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
0053 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0054 00c7 | | Action Elaborate_Subprogram
0055 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call
0057 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0058 00c7 | | Action Elaborate_Subprogram
0059 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005a 00c7 | | Action Elaborate_Subprogram
005b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005c 00c7 | | Action Elaborate_Subprogram
005d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005e 00c7 | | Action Elaborate_Subprogram
005f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0060 00c7 | | Action Elaborate_Subprogram
0061 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0062 00c7 | | Action Elaborate_Subprogram
0063 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0064 00c7 | | Action Elaborate_Subprogram
0065 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0066 00c7 | | Action Elaborate_Subprogram
0067 BODY_0008:
0067 00bc | | Action Signal_Activated
0068 00bb | | Action Signal_Completion
0069 0000 0000 | | .BLANK 0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0084 | | .CONST 0x0084 ; Address of begin
0071 00ee | | .CONST 0x00ee ; Address of exception handler
0072 0008 | | .CONST 0x0008 ; Number of locals
0073 INIT_0070:
0073 e002 | | Load 0x0,0x2
0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0075 02c7 | | Declare_Variable Any
0076 00d8 | | Load_Top At_Offset_0
0077 1c00 | | Execute_Immediate Run_Utility,0x0
0078 e003 | | Load 0x0,0x3
0079 1b19 | | Execute Package,Field_Read,Field_Number 0x19
007a e004 | | Load 0x0,0x4
007b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
007c 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
007e 029f 040b | | Declare_Subprogram INIT_0408,For_Call
0080 029f 042b | +| Declare_Subprogram INIT_0428,For_Call
0082 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
0084 BODY_0070:
0084 e003 | | Load 0x0,0x3
0085 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0086 e402 | | Load 0x2,0x2
0087 0120 | | Execute Any,Is_Value
0088 6803 |h | Jump_Zero 0x8c
0089 e002 | | Load 0x0,0x2
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b 7801 |x | Jump 0x8d
008c e402 | | Load 0x2,0x2
008d e002 | | Load 0x0,0x2
008e 180f | | Execute Package,Field_Execute,Field_Number 0xf
008f c402 | | Store 0x2,0x2
0090 c403 | | Store 0x2,0x3
0091 e403 | | Load 0x2,0x3
0092 6809 |h | Jump_Zero 0x9c
0093 e5fb | | Load 0x2,-0x5
0094 e403 | | Load 0x2,0x3
0095 e003 | | Load 0x0,0x3
0096 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0097 6068 |`h | Indirect_Literal Discrete,0x100,{0x00000000, 0x00006002}
0098 e005 | | Load 0x0,0x5
0099 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
009a e20d | | Load 0x1,0xd
009b 0257 | W | Execute Discrete,Raise
009c e5fb | | Load 0x2,-0x5
009d e5ff | | Load 0x2,-0x1
009e e402 | | Load 0x2,0x2
009f 8225 | % | Call 0x1,0x25
00a0 e5fb | | Load 0x2,-0x5
00a1 e402 | | Load 0x2,0x2
00a2 8223 | # | Call 0x1,0x23
00a3 e5fe | | Load 0x2,-0x2
00a4 e402 | | Load 0x2,0x2
00a5 e002 | | Load 0x0,0x2
00a6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00a7 e5fb | | Load 0x2,-0x5
00a8 e402 | | Load 0x2,0x2
00a9 821f | | Call 0x1,0x1f
00aa a404 | | Store_Unchecked 0x2,0x4
00ab e404 | | Load 0x2,0x4
00ac 0b01 | | Execute_Immediate Case_Compare,0x1
00ad 7007 |p | Jump_Nonzero 0xb5
00ae 0f02 | | Execute_Immediate Equal,0x2
00af 7007 |p | Jump_Nonzero 0xb7
00b0 e5fb | | Load 0x2,-0x5
00b1 e404 | | Load 0x2,0x4
00b2 8221 | ! | Call 0x1,0x21
00b3 e20d | | Load 0x1,0xd
00b4 0257 | W | Execute Discrete,Raise
00b5 00d1 | | Pop_Control Pop_Count_1
00b6 7824 |x$ | Jump 0xdb
00b7 8407 | | Call 0x2,0x7
00b8 e5fb | | Load 0x2,-0x5
00b9 e402 | | Load 0x2,0x2
00ba 821f | | Call 0x1,0x1f
00bb a404 | | Store_Unchecked 0x2,0x4
00bc e404 | | Load 0x2,0x4
00bd 4613 |F | Jump_Case 0x14
00be 7813 |x | Jump 0xd2 ; case 0x0
00bf 781b |x | Jump 0xdb ; case 0x1
00c0 7811 |x | Jump 0xd2 ; case 0x2
00c1 7815 |x | Jump 0xd7 ; case 0x3
00c2 780f |x | Jump 0xd2 ; case 0x4
00c3 780e |x | Jump 0xd2 ; case 0x5
00c4 780d |x | Jump 0xd2 ; case 0x6
00c5 780c |x | Jump 0xd2 ; case 0x7
00c6 780b |x | Jump 0xd2 ; case 0x8
00c7 780a |x | Jump 0xd2 ; case 0x9
00c8 7809 |x | Jump 0xd2 ; case 0xa
00c9 7808 |x | Jump 0xd2 ; case 0xb
00ca 7807 |x | Jump 0xd2 ; case 0xc
00cb 7806 |x | Jump 0xd2 ; case 0xd
00cc 7805 |x | Jump 0xd2 ; case 0xe
00cd 7804 |x | Jump 0xd2 ; case 0xf
00ce 7803 |x | Jump 0xd2 ; case 0x10
00cf 7802 |x | Jump 0xd2 ; case 0x11
00d0 7801 |x | Jump 0xd2 ; case 0x12
00d1 7800 |x | Jump 0xd2 ; case 0x13
00d2 e5fb | | Load 0x2,-0x5
00d3 e404 | | Load 0x2,0x4
00d4 8221 | ! | Call 0x1,0x21
00d5 e20d | | Load 0x1,0xd
00d6 0257 | W | Execute Discrete,Raise
00d7 8408 | | Call 0x2,0x8
00d8 e5fb | | Load 0x2,-0x5
00d9 e402 | | Load 0x2,0x2
00da 8223 | # | Call 0x1,0x23
00db e402 | | Load 0x2,0x2
00dc e5fa | | Load 0x2,-0x6
00dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00de e5fa | | Load 0x2,-0x6
00df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e0 e5ff | | Load 0x2,-0x1
00e1 821d | | Call 0x1,0x1d
00e2 00d1 | | Pop_Control Pop_Count_1
00e3 e5fa | | Load 0x2,-0x6
00e4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e5 e5fe | | Load 0x2,-0x2
00e6 821d | | Call 0x1,0x1d
00e7 00d1 | | Pop_Control Pop_Count_1
00e8 e5fb | | Load 0x2,-0x5
00e9 e5ff | | Load 0x2,-0x1
00ea 6011 |` | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00006007}
00eb e005 | | Load 0x0,0x5
00ec 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00ed 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00ee TRAP_0070:
00ee 0007 | | Action Break_Optional
00ef e5fb | | Load 0x2,-0x5
00f0 e5ff | | Load 0x2,-0x1
00f1 6006 |` | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00006005}
00f2 e005 | | Load 0x0,0x5
00f3 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00f4 00d8 | | Load_Top At_Offset_0
00f5 0101 | | Execute Exception,Reraise
00f6 0000 0000 | | .XXX[0x2]
00f8 0000 0000 | | .LITERAL {0x00000000, 0x00006005}
00fc 0000 0000 | | .LITERAL {0x00000000, 0x00006007}
0100 0000 0000 | | .LITERAL {0x00000000, 0x00006002}
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0127 | ' | .CONST 0x0127 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010d e002 | | Load 0x0,0x2
010e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
010f 00db | | Load_Top At_Offset_3
0110 00db | | Load_Top At_Offset_3
0111 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0112 8222 | " | Call 0x1,0x22
0113 7009 |p | Jump_Nonzero 0x11d
0114 00db | | Load_Top At_Offset_3
0115 00ea | | Load_Encached Null_String_Cache
0116 6035 |`5 | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00006008}
0117 e005 | | Load 0x0,0x5
0118 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0119 00da | | Load_Top At_Offset_2
011a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011b e002 | | Load 0x0,0x2
011c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011d 00da | | Load_Top At_Offset_2
011e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011f e002 | | Load 0x0,0x2
0120 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0121 00db | | Load_Top At_Offset_3
0122 00ea | | Load_Encached Null_String_Cache
0123 6024 |`$ | Indirect_Literal Discrete,0x148,{0x00000000, 0x00006006}
0124 e005 | | Load 0x0,0x5
0125 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0126 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0127 TRAP_0108:
0127 0007 | | Action Break_Optional
0128 e5fe | | Load 0x2,-0x2
0129 4801 |H | Short_Literal 0x1
012a 4802 |H | Short_Literal 0x2
012b e006 | | Load 0x0,0x6
012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012d 035b | [ | Declare_Type Array,Constrained
012e 0337 | 7 | Declare_Variable Array
012f 4800 |H | Short_Literal 0x0
0130 4801 |H | Short_Literal 0x1
0131 e007 | | Load 0x0,0x7
0132 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0133 e006 | | Load 0x0,0x6
0134 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0135 4801 |H | Short_Literal 0x1
0136 00da | | Load_Top At_Offset_2
0137 01d6 | | Execute Vector,Field_Write
0138 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "Close"
013a e006 | | Load 0x0,0x6
013b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
013c 4802 |H | Short_Literal 0x2
013d 00da | | Load_Top At_Offset_2
013e 01d6 | | Execute Vector,Field_Write
013f 6004 |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x0000600f}
0140 e005 | | Load 0x0,0x5
0141 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0142 e20d | | Load 0x1,0xd
0143 0257 | W | Execute Discrete,Raise
0144 0000 0000 | | .LITERAL {0x00000000, 0x0000600f}
0148 0000 0000 | | .LITERAL {0x00000000, 0x00006006}
014c 0000 0000 | | .LITERAL {0x00000000, 0x00006008}
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0155 00d8 | | Load_Top At_Offset_0
0156 0120 | | Execute Any,Is_Value
0157 7002 |p | Jump_Nonzero 0x15a
0158 00d8 | | Load_Top At_Offset_0
0159 011e | | Execute Any,Convert
015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015b 0000 0000 | | .BLANK 0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 e5fe | | Load 0x2,-0x2
0165 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0166 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0167 0000 | | .XXX[0x1]
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 e21c | | Load 0x1,0x1c
016d 01df | | Execute Vector,Equal
016e 6803 |h | Jump_Zero 0x172
016f e008 | | Load 0x0,0x8
0170 180d | | Execute Package,Field_Execute,Field_Number 0xd
0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0172 00da | | Load_Top At_Offset_2
0173 0335 | 5 | Declare_Variable Array,Duplicate
0174 00cd | | Action Spare6_Action
0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c e21c | | Load 0x1,0x1c
017d 01df | | Execute Vector,Equal
017e 6803 |h | Jump_Zero 0x182
017f e008 | | Load 0x0,0x8
0180 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0181 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0182 00da | | Load_Top At_Offset_2
0183 0335 | 5 | Declare_Variable Array,Duplicate
0184 00cd | | Action Spare6_Action
0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0186 0000 0000 | | .XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c e21c | | Load 0x1,0x1c
018d 01df | | Execute Vector,Equal
018e 6803 |h | Jump_Zero 0x192
018f e008 | | Load 0x0,0x8
0190 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0192 00da | | Load_Top At_Offset_2
0193 0335 | 5 | Declare_Variable Array,Duplicate
0194 00cd | | Action Spare6_Action
0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e21c | | Load 0x1,0x1c
019d 01df | | Execute Vector,Equal
019e 6803 |h | Jump_Zero 0x1a2
019f e008 | | Load 0x0,0x8
01a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a2 00da | | Load_Top At_Offset_2
01a3 0335 | 5 | Declare_Variable Array,Duplicate
01a4 00cd | | Action Spare6_Action
01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 4607 |F | Jump_Case 0x8
01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01ad 7806 |x | Jump 0x1b4 ; case 0x1
01ae 7809 |x | Jump 0x1b8 ; case 0x2
01af 780d |x | Jump 0x1bd ; case 0x3
01b0 7810 |x | Jump 0x1c1 ; case 0x4
01b1 7811 |x | Jump 0x1c3 ; case 0x5
01b2 7812 |x | Jump 0x1c5 ; case 0x6
01b3 7815 |x | Jump 0x1c9 ; case 0x7
01b4 00da | | Load_Top At_Offset_2
01b5 0091 05ed | | Action Push_String_Extended_Indexed,0x5ed ; "SEND_TO_REMOTE"
01b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b8 00db | | Load_Top At_Offset_3
01b9 00db | | Load_Top At_Offset_3
01ba 00e0 | | Load_Encached Standard_Cache
01bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bd 00da | | Load_Top At_Offset_2
01be 00e0 | | Load_Encached Standard_Cache
01bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c1 00db | | Load_Top At_Offset_3
01c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c3 00db | | Load_Top At_Offset_3
01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c5 e217 | | Load 0x1,0x17
01c6 00dc | | Load_Top At_Offset_4
01c7 0267 | g | Execute Discrete,Predecessor
01c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c9 e217 | | Load 0x1,0x17
01ca 00dc | | Load_Top At_Offset_4
01cb 0268 | h | Execute Discrete,Successor
01cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01dc | | .CONST 0x01dc ; Address of begin
01d1 0205 | | .CONST 0x0205 ; Address of exception handler
01d2 0006 | | .CONST 0x0006 ; Number of locals
01d3 INIT_01d0:
01d3 e004 | | Load 0x0,0x4
01d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01d5 00e1 | | Load_Encached Boolean_Cache
01d6 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
01d8 029f 0483 | | Declare_Subprogram INIT_0480,For_Call
01da 029f 048b | | Declare_Subprogram INIT_0488,For_Call
01dc BODY_01d0:
01dc e5fc | | Load 0x2,-0x4
01dd 681a |h | Jump_Zero 0x1f8
01de e5fd | | Load 0x2,-0x3
01df e5fa | | Load 0x2,-0x6
01e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e1 e002 | | Load 0x0,0x2
01e2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01e3 e5fb | | Load 0x2,-0x5
01e4 e5fa | | Load 0x2,-0x6
01e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e6 821f | | Call 0x1,0x1f
01e7 0f01 | | Execute_Immediate Equal,0x1
01e8 6806 |h | Jump_Zero 0x1ef
01e9 e5fb | | Load 0x2,-0x5
01ea e5fd | | Load 0x2,-0x3
01eb 6020 |` | Indirect_Literal Discrete,0x20c,{0x00000000, 0x0000600a}
01ec e005 | | Load 0x0,0x5
01ed 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
01ee 7809 |x | Jump 0x1f8
01ef e5f9 | | Load 0x2,-0x7
01f0 4802 |H | Short_Literal 0x2
01f1 00ea | | Load_Encached Null_String_Cache
01f2 e219 | | Load 0x1,0x19
01f3 e009 | | Load 0x0,0x9
01f4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01f5 c5f9 | | Store 0x2,-0x7
01f6 e00a | | Load 0x0,0xa
01f7 0257 | W | Execute Discrete,Raise
01f8 00cf | | Action Mark_Auxiliary
01f9 4802 |H | Short_Literal 0x2
01fa 4801 |H | Short_Literal 0x1
01fb 0007 | | Action Break_Optional
01fc 8406 | | Call 0x2,0x6
01fd 00c8 | | Action Pop_Auxiliary_Range
01fe 3ffd |? | Loop_Increasing 0x1fc
01ff 00ce | | Action Pop_Auxiliary
0200 e5f9 | | Load 0x2,-0x7
0201 e009 | | Load 0x0,0x9
0202 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0203 c5f9 | | Store 0x2,-0x7
0204 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0205 TRAP_01d0:
0205 e00a | | Load 0x0,0xa
0206 010f | | Execute Exception,Equal
0207 6801 |h | Jump_Zero 0x209
0208 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0209 0100 | | Execute Exception,Raise
020a 0000 0000 | | .XXX[0x2]
020c 0000 0000 | | .LITERAL {0x00000000, 0x0000600a}
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0224 | $ | .CONST 0x0224 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 4801 |H | Short_Literal 0x1
0215 e5ff | | Load 0x2,-0x1
0216 01db | | Execute Vector,Length
0217 00d8 | | Load_Top At_Offset_0
0218 00e2 | | Load_Encached Integer_Cache
0219 0260 | ` | Execute Discrete,In_Type
021a 7001 |p | Jump_Nonzero 0x21c
021b 0801 | | Execute_Immediate Raise,0x1
021c e5fe | | Load 0x2,-0x2
021d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021e 01ce | | Execute Vector,Slice_Write
021f 00da | | Load_Top At_Offset_2
0220 01db | | Execute Vector,Length
0221 e5fe | | Load 0x2,-0x2
0222 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0223 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0224 TRAP_0210:
0224 0007 | | Action Break_Optional
0225 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c 4864 |Hd | Short_Literal 0x64
022d 0270 | p | Execute Discrete,Divide
022e 4804 |H | Short_Literal 0x4
022f 4805 |H | Short_Literal 0x5
0230 0262 | b | Execute Discrete,In_Range
0231 7002 |p | Jump_Nonzero 0x234
0232 4802 |H | Short_Literal 0x2
0233 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0234 4807 |H | Short_Literal 0x7
0235 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0243 | C | .CONST 0x0243 ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0004 | | .CONST 0x0004 ; Number of locals
023b INIT_0238:
023b 4801 |H | Short_Literal 0x1
023c 4880 |H | Short_Literal 0x80
023d 00e9 | | Load_Encached String_Cache
023e 035b | [ | Declare_Type Array,Constrained
023f 0337 | 7 | Declare_Variable Array
0240 00e3 | | Load_Encached Natural_Cache
0241 e004 | | Load 0x0,0x4
0242 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0243 BODY_0238:
0243 00cf | | Action Mark_Auxiliary
0244 7817 |x | Jump 0x25c
0245 00e3 | | Load_Encached Natural_Cache
0246 e402 | | Load 0x2,0x2
0247 e5ff | | Load 0x2,-0x1
0248 e002 | | Load 0x0,0x2
0249 1815 | | Execute Package,Field_Execute,Field_Number 0x15
024a 00d1 | | Pop_Control Pop_Count_1
024b 005b | [ | Store_Top Discrete,At_Offset_3
024c 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "<ERRORS>"
024e e00b | | Load 0x0,0xb
024f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0250 4801 |H | Short_Literal 0x1
0251 e403 | | Load 0x2,0x3
0252 e402 | | Load 0x2,0x2
0253 01cf | | Execute Vector,Slice_Read
0254 e5ff | | Load 0x2,-0x1
0255 e002 | | Load 0x0,0x2
0256 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0257 821e | | Call 0x1,0x1e
0258 6013 |` | Indirect_Literal Discrete,0x26c,{0x00000000, 0x00006001}
0259 e005 | | Load 0x0,0x5
025a 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
025b 00c9 | | Action Pop_Auxiliary_Loop
025c e5ff | | Load 0x2,-0x1
025d e002 | | Load 0x0,0x2
025e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
025f 6fe5 |o | Jump_Zero 0x245
0260 00ce | | Action Pop_Auxiliary
0261 e004 | | Load 0x0,0x4
0262 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0263 e5ff | | Load 0x2,-0x1
0264 e002 | | Load 0x0,0x2
0265 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0266 0059 | Y | Store_Top Discrete,At_Offset_1
0267 00d8 | | Load_Top At_Offset_0
0268 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0269 0000 0000 | | .XXX[0x3]
026b 0000 | |
026c 0000 0000 | | .LITERAL {0x00000000, 0x00006001}
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027c | | | .CONST 0x027c ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0005 | | .CONST 0x0005 ; Number of locals
0273 INIT_0270:
0273 4801 |H | Short_Literal 0x1
0274 4880 |H | Short_Literal 0x80
0275 00e9 | | Load_Encached String_Cache
0276 035b | [ | Declare_Type Array,Constrained
0277 0337 | 7 | Declare_Variable Array
0278 00e3 | | Load_Encached Natural_Cache
0279 00e3 | | Load_Encached Natural_Cache
027a 00e1 | | Load_Encached Boolean_Cache
027b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
027c BODY_0270:
027c 00cf | | Action Mark_Auxiliary
027d 7820 |x | Jump 0x29e
027e 00e3 | | Load_Encached Natural_Cache
027f e402 | | Load 0x2,0x2
0280 e5ff | | Load 0x2,-0x1
0281 e002 | | Load 0x0,0x2
0282 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0283 00d1 | | Pop_Control Pop_Count_1
0284 c403 | | Store 0x2,0x3
0285 e5ff | | Load 0x2,-0x1
0286 e002 | | Load 0x0,0x2
0287 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0288 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0289 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "<ERRORS>"
028b e00b | | Load 0x0,0xb
028c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
028d 4801 |H | Short_Literal 0x1
028e e403 | | Load 0x2,0x3
028f e402 | | Load 0x2,0x2
0290 01cf | | Execute Vector,Slice_Read
0291 e404 | | Load 0x2,0x4
0292 821e | | Call 0x1,0x1e
0293 67d8 |g | Indirect_Literal Discrete,0x26c,{0x00000000, 0x00006001}
0294 e005 | | Load 0x0,0x5
0295 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0296 00da | | Load_Top At_Offset_2
0297 4864 |Hd | Short_Literal 0x64
0298 0270 | p | Execute Discrete,Divide
0299 0f05 | | Execute_Immediate Equal,0x5
029a 6802 |h | Jump_Zero 0x29d
029b 4800 |H | Short_Literal 0x0
029c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
029d 00c9 | | Action Pop_Auxiliary_Loop
029e e5ff | | Load 0x2,-0x1
029f e002 | | Load 0x0,0x2
02a0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02a1 6fdc |o | Jump_Zero 0x27e
02a2 00ce | | Action Pop_Auxiliary
02a3 e004 | | Load 0x0,0x4
02a4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02a5 e5ff | | Load 0x2,-0x1
02a6 e002 | | Load 0x0,0x2
02a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a8 c5fd | | Store 0x2,-0x3
02a9 00d8 | | Load_Top At_Offset_0
02aa a5fc | | Store_Unchecked 0x2,-0x4
02ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00db | | Load_Top At_Offset_3
02b4 00db | | Load_Top At_Offset_3
02b5 e004 | | Load 0x0,0x4
02b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02b7 011c | | Execute Any,Convert_Unchecked
02b8 1c01 | | Execute_Immediate Run_Utility,0x1
02b9 6006 |` | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x00006003}
02ba e005 | | Load 0x0,0x5
02bb 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
02bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 0000 0000 | | .LITERAL {0x00000000, 0x00006003}
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cd | | .CONST 0x02cd ; Address of begin
02c9 02db | | .CONST 0x02db ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb e004 | | Load 0x0,0x4
02cc 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02cd BODY_02c8:
02cd e5fe | | Load 0x2,-0x2
02ce e5ff | | Load 0x2,-0x1
02cf 821f | | Call 0x1,0x1f
02d0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02d1 00d8 | | Load_Top At_Offset_0
02d2 0f01 | | Execute_Immediate Equal,0x1
02d3 6802 |h | Jump_Zero 0x2d6
02d4 4801 |H | Short_Literal 0x1
02d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d6 e5fe | | Load 0x2,-0x2
02d7 00d9 | | Load_Top At_Offset_1
02d8 8221 | ! | Call 0x1,0x21
02d9 4800 |H | Short_Literal 0x0
02da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02db TRAP_02c8:
02db 0007 | | Action Break_Optional
02dc e5fe | | Load 0x2,-0x2
02dd 4801 |H | Short_Literal 0x1
02de 4802 |H | Short_Literal 0x2
02df e006 | | Load 0x0,0x6
02e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02e1 035b | [ | Declare_Type Array,Constrained
02e2 0337 | 7 | Declare_Variable Array
02e3 4800 |H | Short_Literal 0x0
02e4 4801 |H | Short_Literal 0x1
02e5 e007 | | Load 0x0,0x7
02e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e7 e006 | | Load 0x0,0x6
02e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e9 4801 |H | Short_Literal 0x1
02ea 00da | | Load_Top At_Offset_2
02eb 01d6 | | Execute Vector,Field_Write
02ec 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "Status_Ok"
02ee e006 | | Load 0x0,0x6
02ef 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f0 4802 |H | Short_Literal 0x2
02f1 00da | | Load_Top At_Offset_2
02f2 01d6 | | Execute Vector,Field_Write
02f3 6004 |` | Indirect_Literal Discrete,0x2f8,{0x00000000, 0x0000600f}
02f4 e005 | | Load 0x0,0x5
02f5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02f6 e20d | | Load 0x1,0xd
02f7 0257 | W | Execute Discrete,Raise
02f8 0000 0000 | | .LITERAL {0x00000000, 0x0000600f}
02fc 0000 0000 | | .BLANK 0000[0x4]
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 00db | | Load_Top At_Offset_3
0304 00db | | Load_Top At_Offset_3
0305 8222 | " | Call 0x1,0x22
0306 7002 |p | Jump_Nonzero 0x309
0307 e20d | | Load 0x1,0xd
0308 0257 | W | Execute Discrete,Raise
0309 4503 |E | Exit_Suprogram New_Top_Offset 0x3
030a 0000 0000 | | .BLANK 0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0325 | % | .CONST 0x0325 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0006 | | .CONST 0x0006 ; Number of locals
0313 INIT_0310:
0313 e00c | | Load 0x0,0xc
0314 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0315 02c7 | | Declare_Variable Any
0316 00d8 | | Load_Top At_Offset_0
0317 1c00 | | Execute_Immediate Run_Utility,0x0
0318 e00c | | Load 0x0,0xc
0319 1b17 | | Execute Package,Field_Read,Field_Number 0x17
031a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031b 02c7 | | Declare_Variable Any
031c 00d8 | | Load_Top At_Offset_0
031d 1c00 | | Execute_Immediate Run_Utility,0x0
031e e00c | | Load 0x0,0xc
031f 192b | + | Execute Package,Field_Reference,Field_Number 0x2b
0320 0007 | | Action Break_Optional
0321 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call
0323 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call
0325 BODY_0310:
0325 e402 | | Load 0x2,0x2
0326 00ea | | Load_Encached Null_String_Cache
0327 e5fe | | Load 0x2,-0x2
0328 4801 |H | Short_Literal 0x1
0329 e00c | | Load 0x0,0xc
032a 180f | | Execute Package,Field_Execute,Field_Number 0xf
032b c402 | | Store 0x2,0x2
032c 4800 |H | Short_Literal 0x0
032d e00c | | Load 0x0,0xc
032e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
032f e5ff | | Load 0x2,-0x1
0330 e402 | | Load 0x2,0x2
0331 e00c | | Load 0x0,0xc
0332 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0333 4800 |H | Short_Literal 0x0
0334 e5ff | | Load 0x2,-0x1
0335 01db | | Execute Vector,Length
0336 0a01 | | Execute_Immediate Plus,0x1
0337 00d8 | | Load_Top At_Offset_0
0338 00e4 | | Load_Encached Positive_Cache
0339 0260 | ` | Execute Discrete,In_Type
033a 7001 |p | Jump_Nonzero 0x33c
033b 0801 | | Execute_Immediate Raise,0x1
033c 4801 |H | Short_Literal 0x1
033d e402 | | Load 0x2,0x2
033e e00c | | Load 0x0,0xc
033f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0340 00db | | Load_Top At_Offset_3
0341 e00c | | Load 0x0,0xc
0342 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0343 180e | | Execute Package,Field_Execute,Field_Number 0xe
0344 c403 | | Store 0x2,0x3
0345 8406 | | Call 0x2,0x6
0346 0831 | 1 | Execute_Immediate Raise,0x31
0347 0000 | | .XXX[0x1]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034d | M | .CONST 0x034d ; Address of begin
0349 034f | O | .CONST 0x034f ; Address of exception handler
034a 0002 | | .CONST 0x0002 ; Number of locals
034b INIT_0348:
034b 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call
034d BODY_0348:
034d 8402 | | Call 0x2,0x2
034e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
034f TRAP_0348:
034f e00d | | Load 0x0,0xd
0350 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0351 010f | | Execute Exception,Equal
0352 6807 |h | Jump_Zero 0x35a
0353 e5fd | | Load 0x2,-0x3
0354 e5fe | | Load 0x2,-0x2
0355 6012 |` | Indirect_Literal Discrete,0x368,{0x00000000, 0x00006009}
0356 e005 | | Load 0x0,0x5
0357 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0358 00d8 | | Load_Top At_Offset_0
0359 0101 | | Execute Exception,Reraise
035a e5fd | | Load 0x2,-0x3
035b e5fe | | Load 0x2,-0x2
035c 6007 |` | Indirect_Literal Discrete,0x364,{0x00000000, 0x00006004}
035d e005 | | Load 0x0,0x5
035e 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
035f 00d8 | | Load_Top At_Offset_0
0360 0101 | | Execute Exception,Reraise
0361 0000 0000 | | .XXX[0x3]
0363 0000 | |
0364 0000 0000 | | .LITERAL {0x00000000, 0x00006004}
0368 0000 0000 | | .LITERAL {0x00000000, 0x00006009}
036c 0000 0000 | | .BLANK 0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0375 | u | .CONST 0x0375 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0002 | | .CONST 0x0002 ; Number of locals
0373 INIT_0370:
0373 e004 | | Load 0x0,0x4
0374 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0375 BODY_0370:
0375 e5fe | | Load 0x2,-0x2
0376 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0377 e002 | | Load 0x0,0x2
0378 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0379 00db | | Load_Top At_Offset_3
037a 4801 |H | Short_Literal 0x1
037b e5fe | | Load 0x2,-0x2
037c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
037d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
037e e5fe | | Load 0x2,-0x2
037f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0380 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0381 01cf | | Execute Vector,Slice_Read
0382 e5fe | | Load 0x2,-0x2
0383 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0384 8225 | % | Call 0x1,0x25
0385 00db | | Load_Top At_Offset_3
0386 e5fe | | Load 0x2,-0x2
0387 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0388 8223 | # | Call 0x1,0x23
0389 4801 |H | Short_Literal 0x1
038a e5fe | | Load 0x2,-0x2
038b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
038c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
038d e5fe | | Load 0x2,-0x2
038e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
038f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0390 01cf | | Execute Vector,Slice_Read
0391 e5fe | | Load 0x2,-0x2
0392 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0393 e002 | | Load 0x0,0x2
0394 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0395 00db | | Load_Top At_Offset_3
0396 e5fe | | Load 0x2,-0x2
0397 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0398 821f | | Call 0x1,0x1f
0399 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
039a 00d8 | | Load_Top At_Offset_0
039b 0b01 | | Execute_Immediate Case_Compare,0x1
039c 7007 |p | Jump_Nonzero 0x3a4
039d 0f02 | | Execute_Immediate Equal,0x2
039e 7007 |p | Jump_Nonzero 0x3a6
039f 00db | | Load_Top At_Offset_3
03a0 00d9 | | Load_Top At_Offset_1
03a1 8221 | ! | Call 0x1,0x21
03a2 e20d | | Load 0x1,0xd
03a3 0257 | W | Execute Discrete,Raise
03a4 00d1 | | Pop_Control Pop_Count_1
03a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a6 4801 |H | Short_Literal 0x1
03a7 e5fe | | Load 0x2,-0x2
03a8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
03a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03aa e5fe | | Load 0x2,-0x2
03ab 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
03ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03ad 01cf | | Execute Vector,Slice_Read
03ae e5fe | | Load 0x2,-0x2
03af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b0 e002 | | Load 0x0,0x2
03b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03b2 00db | | Load_Top At_Offset_3
03b3 e5fe | | Load 0x2,-0x2
03b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b5 821f | | Call 0x1,0x1f
03b6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03b7 00d8 | | Load_Top At_Offset_0
03b8 4613 |F | Jump_Case 0x14
03b9 7813 |x | Jump 0x3cd ; case 0x0
03ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
03bb 7811 |x | Jump 0x3cd ; case 0x2
03bc 7815 |x | Jump 0x3d2 ; case 0x3
03bd 780f |x | Jump 0x3cd ; case 0x4
03be 780e |x | Jump 0x3cd ; case 0x5
03bf 780d |x | Jump 0x3cd ; case 0x6
03c0 780c |x | Jump 0x3cd ; case 0x7
03c1 780b |x | Jump 0x3cd ; case 0x8
03c2 780a |x | Jump 0x3cd ; case 0x9
03c3 7809 |x | Jump 0x3cd ; case 0xa
03c4 7808 |x | Jump 0x3cd ; case 0xb
03c5 7807 |x | Jump 0x3cd ; case 0xc
03c6 7806 |x | Jump 0x3cd ; case 0xd
03c7 7805 |x | Jump 0x3cd ; case 0xe
03c8 7804 |x | Jump 0x3cd ; case 0xf
03c9 7803 |x | Jump 0x3cd ; case 0x10
03ca 7802 |x | Jump 0x3cd ; case 0x11
03cb 7801 |x | Jump 0x3cd ; case 0x12
03cc 7800 |x | Jump 0x3cd ; case 0x13
03cd 00db | | Load_Top At_Offset_3
03ce 00d9 | | Load_Top At_Offset_1
03cf 8221 | ! | Call 0x1,0x21
03d0 e20d | | Load 0x1,0xd
03d1 0257 | W | Execute Discrete,Raise
03d2 4801 |H | Short_Literal 0x1
03d3 e5fe | | Load 0x2,-0x2
03d4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d6 e5fe | | Load 0x2,-0x2
03d7 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03d8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03d9 01cf | | Execute Vector,Slice_Read
03da e5fe | | Load 0x2,-0x2
03db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03dc e002 | | Load 0x0,0x2
03dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03de 00db | | Load_Top At_Offset_3
03df e5fe | | Load 0x2,-0x2
03e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03e1 8223 | # | Call 0x1,0x23
03e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e3 0000 0000 | | .BLANK 0000[0x5]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb e5fd | | Load 0x2,-0x3
03ec 01db | | Execute Vector,Length
03ed 7013 |p | Jump_Nonzero 0x401
03ee e008 | | Load 0x0,0x8
03ef 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03f0 6810 |h | Jump_Zero 0x401
03f1 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "FTP password"
03f3 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "Please enter FTP password for machine "
03f5 e5ff | | Load 0x2,-0x1
03f6 01cc | | Execute Vector,Catenate
03f7 0092 05f7 | | Action Push_String_Extended,0x5f7 ; ", username "
03f9 01cc | | Execute Vector,Catenate
03fa e5fe | | Load 0x2,-0x2
03fb 01cc | | Execute Vector,Catenate
03fc 0092 05f8 | | Action Push_String_Extended,0x5f8 ; ": "
03fe 01cc | | Execute Vector,Catenate
03ff 8224 | $ | Call 0x1,0x24
0400 00ca | | Action Exit_Nullary_Function
0401 e5fd | | Load 0x2,-0x3
0402 0335 | 5 | Declare_Variable Array,Duplicate
0403 00cd | | Action Spare6_Action
0404 00ca | | Action Exit_Nullary_Function
0405 0000 0000 | | .XXX[0x3]
0407 0000 | |
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 e5fc | | Load 0x2,-0x4
040c 01db | | Execute Vector,Length
040d 7013 |p | Jump_Nonzero 0x421
040e e008 | | Load 0x0,0x8
040f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0410 6810 |h | Jump_Zero 0x421
0411 0092 05f9 | | Action Push_String_Extended,0x5f9 ; "FTP account"
0413 0092 05fa | | Action Push_String_Extended,0x5fa ; "Please enter FTP account for machine "
0415 e5ff | | Load 0x2,-0x1
0416 01cc | | Execute Vector,Catenate
0417 0092 05f7 | | Action Push_String_Extended,0x5f7 ; ", username "
0419 01cc | | Execute Vector,Catenate
041a e5fe | | Load 0x2,-0x2
041b 01cc | | Execute Vector,Catenate
041c 0092 05f8 | | Action Push_String_Extended,0x5f8 ; ": "
041e 01cc | | Execute Vector,Catenate
041f 8224 | $ | Call 0x1,0x24
0420 00ca | | Action Exit_Nullary_Function
0421 e5fc | | Load 0x2,-0x4
0422 0335 | 5 | Declare_Variable Array,Duplicate
0423 00cd | | Action Spare6_Action
0424 00ca | | Action Exit_Nullary_Function
0425 0000 0000 | | .XXX[0x3]
0427 0000 | |
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042c | , | .CONST 0x042c ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b 8405 | | Call 0x2,0x5
042c BODY_0428:
042c 00d8 | | Load_Top At_Offset_0
042d e402 | | Load 0x2,0x2
042e e002 | | Load 0x0,0x2
042f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0430 e5fa | | Load 0x2,-0x6
0431 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0432 00d9 | | Load_Top At_Offset_1
0433 821d | | Call 0x1,0x1d
0434 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0435 0000 0000 | | .XXX[0x3]
0437 0000 | |
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043c | < | .CONST 0x043c ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0002 | | .CONST 0x0002 ; Number of locals
043b INIT_0438:
043b 8406 | | Call 0x2,0x6
043c BODY_0438:
043c 00d8 | | Load_Top At_Offset_0
043d e402 | | Load 0x2,0x2
043e e002 | | Load 0x0,0x2
043f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0440 e5fa | | Load 0x2,-0x6
0441 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0442 e5fc | | Load 0x2,-0x4
0443 821d | | Call 0x1,0x1d
0444 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0445 0000 0000 | | .XXX[0x3]
0447 0000 | |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b e5ff | | Load 0x2,-0x1
044c 6817 |h | Jump_Zero 0x464
044d e5fe | | Load 0x2,-0x2
044e 0092 05fb | | Action Push_String_Extended,0x5fb ; "<OPEN>"
0450 01df | | Execute Vector,Equal
0451 6807 |h | Jump_Zero 0x459
0452 4822 |H" | Short_Literal 0x22
0453 e5fd | | Load 0x2,-0x3
0454 01ca | | Execute Vector,Prepend
0455 0092 05fc | | Action Push_String_Extended,0x5fc ; "\x22 to the host"
0457 01cc | | Execute Vector,Catenate
0458 00ca | | Action Exit_Nullary_Function
0459 4822 |H" | Short_Literal 0x22
045a 4822 |H" | Short_Literal 0x22
045b e5fe | | Load 0x2,-0x2
045c 01ca | | Execute Vector,Prepend
045d 0092 05fd | | Action Push_String_Extended,0x5fd ; "\x22 <= \x22"
045f 01cc | | Execute Vector,Catenate
0460 e5fd | | Load 0x2,-0x3
0461 01cc | | Execute Vector,Catenate
0462 01cb | | Execute Vector,Append
0463 00ca | | Action Exit_Nullary_Function
0464 e5fe | | Load 0x2,-0x2
0465 0092 05fb | | Action Push_String_Extended,0x5fb ; "<OPEN>"
0467 01df | | Execute Vector,Equal
0468 6807 |h | Jump_Zero 0x470
0469 4822 |H" | Short_Literal 0x22
046a 0092 05fe | | Action Push_String_Extended,0x5fe ; "host file to \x22"
046c e5fd | | Load 0x2,-0x3
046d 01cc | | Execute Vector,Catenate
046e 01cb | | Execute Vector,Append
046f 00ca | | Action Exit_Nullary_Function
0470 4822 |H" | Short_Literal 0x22
0471 4822 |H" | Short_Literal 0x22
0472 e5fe | | Load 0x2,-0x2
0473 01ca | | Execute Vector,Prepend
0474 0092 05ff | | Action Push_String_Extended,0x5ff ; "\x22 => \x22"
0476 01cc | | Execute Vector,Catenate
0477 e5fd | | Load 0x2,-0x3
0478 01cc | | Execute Vector,Catenate
0479 01cb | | Execute Vector,Append
047a 00ca | | Action Exit_Nullary_Function
047b 0000 0000 | | .BLANK 0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 4801 |H | Short_Literal 0x1
0484 00ca | | Action Exit_Nullary_Function
0485 0000 0000 | | .XXX[0x3]
0487 0000 | |
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 8405 | | Call 0x2,0x5
048c 6809 |h | Jump_Zero 0x496
048d e003 | | Load 0x0,0x3
048e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
048f e003 | | Load 0x0,0x3
0490 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0491 e5fa | | Load 0x2,-0x6
0492 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0493 e002 | | Load 0x0,0x2
0494 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0495 780c |x | Jump 0x4a2
0496 e5fa | | Load 0x2,-0x6
0497 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0498 e002 | | Load 0x0,0x2
0499 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
049a e5fa | | Load 0x2,-0x6
049b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
049c e002 | | Load 0x0,0x2
049d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
049e e5fa | | Load 0x2,-0x6
049f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a0 e002 | | Load 0x0,0x2
04a1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04a2 e5fb | | Load 0x2,-0x5
04a3 e5fa | | Load 0x2,-0x6
04a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a5 821f | | Call 0x1,0x1f
04a6 0f01 | | Execute_Immediate Equal,0x1
04a7 700b |p | Jump_Nonzero 0x4b3
04a8 e5f9 | | Load 0x2,-0x7
04a9 4802 |H | Short_Literal 0x2
04aa 0092 0600 | | Action Push_String_Extended,0x600 ; ": Send_Data_Port"
04ac 0092 0601 | | Action Push_String_Extended,0x601 ; "Bad status to Ftp operation"
04ae e009 | | Load 0x0,0x9
04af 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04b0 c5f9 | | Store 0x2,-0x7
04b1 e00a | | Load 0x0,0xa
04b2 0257 | W | Execute Discrete,Raise
04b3 e5ff | | Load 0x2,-0x1
04b4 6813 |h | Jump_Zero 0x4c8
04b5 e5fe | | Load 0x2,-0x2
04b6 0092 05fb | | Action Push_String_Extended,0x5fb ; "<OPEN>"
04b8 01df | | Execute Vector,Equal
04b9 6806 |h | Jump_Zero 0x4c0
04ba e5fd | | Load 0x2,-0x3
04bb e5fa | | Load 0x2,-0x6
04bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04bd e002 | | Load 0x0,0x2
04be 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04bf 781b |x | Jump 0x4db
04c0 4800 |H | Short_Literal 0x0
04c1 e5fd | | Load 0x2,-0x3
04c2 e5fe | | Load 0x2,-0x2
04c3 e5fa | | Load 0x2,-0x6
04c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04c5 e002 | | Load 0x0,0x2
04c6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
04c7 7813 |x | Jump 0x4db
04c8 e5fe | | Load 0x2,-0x2
04c9 0092 05fb | | Action Push_String_Extended,0x5fb ; "<OPEN>"
04cb 01df | | Execute Vector,Equal
04cc 6807 |h | Jump_Zero 0x4d4
04cd 4800 |H | Short_Literal 0x0
04ce e5fd | | Load 0x2,-0x3
04cf e5fa | | Load 0x2,-0x6
04d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04d1 e002 | | Load 0x0,0x2
04d2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
04d3 7807 |x | Jump 0x4db
04d4 4800 |H | Short_Literal 0x0
04d5 e5fd | | Load 0x2,-0x3
04d6 e5fe | | Load 0x2,-0x2
04d7 e5fa | | Load 0x2,-0x6
04d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04d9 e002 | | Load 0x0,0x2
04da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
04db 00e1 | | Load_Encached Boolean_Cache
04dc e004 | | Load 0x0,0x4
04dd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
04de e5fb | | Load 0x2,-0x5
04df e5fa | | Load 0x2,-0x6
04e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04e1 8220 | | Call 0x1,0x20
04e2 c402 | | Store 0x2,0x2
04e3 c403 | | Store 0x2,0x3
04e4 e402 | | Load 0x2,0x2
04e5 0f06 | | Execute_Immediate Equal,0x6
04e6 7022 |p" | Jump_Nonzero 0x509
04e7 e409 | | Load 0x2,0x9
04e8 0f01 | | Execute_Immediate Equal,0x1
04e9 e403 | | Load 0x2,0x3
04ea 0279 | y | Execute Discrete,And
04eb 680f |h | Jump_Zero 0x4fb
04ec e5fb | | Load 0x2,-0x5
04ed 8404 | | Call 0x2,0x4
04ee 6069 |`i | Indirect_Literal Discrete,0x558,{0x00000000, 0x0000600e}
04ef e005 | | Load 0x0,0x5
04f0 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
04f1 e5fa | | Load 0x2,-0x6
04f2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04f3 e002 | | Load 0x0,0x2
04f4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
04f5 7004 |p | Jump_Nonzero 0x4fa
04f6 e5fa | | Load 0x2,-0x6
04f7 e5fb | | Load 0x2,-0x5
04f8 8226 | & | Call 0x1,0x26
04f9 00d1 | | Pop_Control Pop_Count_1
04fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04fb e5fb | | Load 0x2,-0x5
04fc 8404 | | Call 0x2,0x4
04fd 6056 |`V | Indirect_Literal Discrete,0x554,{0x00000000, 0x0000600d}
04fe e005 | | Load 0x0,0x5
04ff 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0500 e5f9 | | Load 0x2,-0x7
0501 4802 |H | Short_Literal 0x2
0502 00ea | | Load_Encached Null_String_Cache
0503 e219 | | Load 0x1,0x19
0504 e009 | | Load 0x0,0x9
0505 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0506 c5f9 | | Store 0x2,-0x7
0507 e00a | | Load 0x0,0xa
0508 0257 | W | Execute Discrete,Raise
0509 e5fa | | Load 0x2,-0x6
050a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
050b e002 | | Load 0x0,0x2
050c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
050d 0f01 | | Execute_Immediate Equal,0x1
050e 7022 |p" | Jump_Nonzero 0x531
050f e409 | | Load 0x2,0x9
0510 0f01 | | Execute_Immediate Equal,0x1
0511 e403 | | Load 0x2,0x3
0512 0279 | y | Execute Discrete,And
0513 680f |h | Jump_Zero 0x523
0514 e5fb | | Load 0x2,-0x5
0515 8404 | | Call 0x2,0x4
0516 6041 |`A | Indirect_Literal Discrete,0x558,{0x00000000, 0x0000600e}
0517 e005 | | Load 0x0,0x5
0518 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0519 e5fa | | Load 0x2,-0x6
051a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
051b e002 | | Load 0x0,0x2
051c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
051d 7004 |p | Jump_Nonzero 0x522
051e e5fa | | Load 0x2,-0x6
051f e5fb | | Load 0x2,-0x5
0520 8226 | & | Call 0x1,0x26
0521 00d1 | | Pop_Control Pop_Count_1
0522 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0523 e5fb | | Load 0x2,-0x5
0524 8404 | | Call 0x2,0x4
0525 602e |`. | Indirect_Literal Discrete,0x554,{0x00000000, 0x0000600d}
0526 e005 | | Load 0x0,0x5
0527 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0528 e5f9 | | Load 0x2,-0x7
0529 4802 |H | Short_Literal 0x2
052a 00ea | | Load_Encached Null_String_Cache
052b e219 | | Load 0x1,0x19
052c e009 | | Load 0x0,0x9
052d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
052e c5f9 | | Store 0x2,-0x7
052f e00a | | Load 0x0,0xa
0530 0257 | W | Execute Discrete,Raise
0531 e5fb | | Load 0x2,-0x5
0532 4801 |H | Short_Literal 0x1
0533 4802 |H | Short_Literal 0x2
0534 e006 | | Load 0x0,0x6
0535 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0536 035b | [ | Declare_Type Array,Constrained
0537 0337 | 7 | Declare_Variable Array
0538 8404 | | Call 0x2,0x4
0539 e006 | | Load 0x0,0x6
053a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
053b 4801 |H | Short_Literal 0x1
053c 00da | | Load_Top At_Offset_2
053d 01d6 | | Execute Vector,Field_Write
053e e5fa | | Load 0x2,-0x6
053f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0540 e002 | | Load 0x0,0x2
0541 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0542 e006 | | Load 0x0,0x6
0543 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0544 4802 |H | Short_Literal 0x2
0545 00da | | Load_Top At_Offset_2
0546 01d6 | | Execute Vector,Field_Write
0547 6008 |` | Indirect_Literal Discrete,0x550,{0x00000000, 0x0000600c}
0548 e005 | | Load 0x0,0x5
0549 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
054a 00cc | | Action Pop_Block
054b 00d2 | | Pop_Control Pop_Count_2
054c 00a7 01ff | | Action Jump_Extended,0x1ff
054e 0000 0000 | | .XXX[0x2]
0550 0000 0000 | | .LITERAL {0x00000000, 0x0000600c}
0554 0000 0000 | | .LITERAL {0x00000000, 0x0000600d}
0558 0000 0000 | | .LITERAL {0x00000000, 0x0000600e}
055c 0000 0000 | | .BLANK 0000[0x4]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 056e | n | .CONST 0x056e ; Address of begin
0561 05a5 | | .CONST 0x05a5 ; Address of exception handler
0562 0005 | | .CONST 0x0005 ; Number of locals
0563 INIT_0560:
0563 e00c | | Load 0x0,0xc
0564 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0565 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0566 00e8 | | Load_Encached Character_Cache
0567 4801 |H | Short_Literal 0x1
0568 4900 |I | Short_Literal 0x100
0569 00e9 | | Load_Encached String_Cache
056a 035b | [ | Declare_Type Array,Constrained
056b 0337 | 7 | Declare_Variable Array
056c 00e3 | | Load_Encached Natural_Cache
056d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
056e BODY_0560:
056e 00cf | | Action Mark_Auxiliary
056f e00c | | Load 0x0,0xc
0570 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0571 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0572 e7ff | | Load 0x3,-0x1
0573 e00c | | Load 0x0,0xc
0574 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0575 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0576 c602 | | Store 0x3,0x2
0577 e602 | | Load 0x3,0x2
0578 e00c | | Load 0x0,0xc
0579 1b17 | | Execute Package,Field_Read,Field_Number 0x17
057a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
057b 00d9 | | Load_Top At_Offset_1
057c 00d0 | | Action Swap_Control
057d 0260 | ` | Execute Discrete,In_Type
057e 7001 |p | Jump_Nonzero 0x580
057f 0801 | | Execute_Immediate Raise,0x1
0580 e00c | | Load 0x0,0xc
0581 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0582 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0583 a603 | | Store_Unchecked 0x3,0x3
0584 00db | | Load_Top At_Offset_3
0585 4800 |H | Short_Literal 0x0
0586 481f |H | Short_Literal 0x1f
0587 0262 | b | Execute Discrete,In_Range
0588 7014 |p | Jump_Nonzero 0x59d
0589 00d9 | | Load_Top At_Offset_1
058a 0a01 | | Execute_Immediate Plus,0x1
058b 005a | Z | Store_Top Discrete,At_Offset_2
058c 00db | | Load_Top At_Offset_3
058d 00da | | Load_Top At_Offset_2
058e e604 | | Load 0x3,0x4
058f 01d6 | | Execute Vector,Field_Write
0590 00d9 | | Load_Top At_Offset_1
0591 4900 |I | Short_Literal 0x100
0592 027f | | Execute Discrete,Equal
0593 6807 |h | Jump_Zero 0x59b
0594 00da | | Load_Top At_Offset_2
0595 e7ff | | Load 0x3,-0x1
0596 8405 | | Call 0x2,0x5
0597 01cc | | Execute Vector,Catenate
0598 00e9 | | Load_Encached String_Cache
0599 01c6 | | Execute Vector,Convert_To_Formal
059a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
059b 00c9 | | Action Pop_Auxiliary_Loop
059c 7fd2 | | Jump 0x56f
059d 00ce | | Action Pop_Auxiliary
059e 4801 |H | Short_Literal 0x1
059f 00d9 | | Load_Top At_Offset_1
05a0 00db | | Load_Top At_Offset_3
05a1 01cf | | Execute Vector,Slice_Read
05a2 00e9 | | Load_Encached String_Cache
05a3 01c6 | | Execute Vector,Convert_To_Formal
05a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a5 TRAP_0560:
05a5 010e | | Execute Exception,Is_Constraint_Error
05a6 6807 |h | Jump_Zero 0x5ae
05a7 4801 |H | Short_Literal 0x1
05a8 00da | | Load_Top At_Offset_2
05a9 e604 | | Load 0x3,0x4
05aa 01cf | | Execute Vector,Slice_Read
05ab 00e9 | | Load_Encached String_Cache
05ac 01c6 | | Execute Vector,Convert_To_Formal
05ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ae 0100 | | Execute Exception,Raise
05af 0000 | | .XXX[0x1]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b5 | | .CONST 0x05b5 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0002 | | .CONST 0x0002 ; Number of locals
05b3 INIT_05b0:
05b3 e403 | | Load 0x2,0x3
05b4 8405 | | Call 0x2,0x5
05b5 BODY_05b0:
05b5 e403 | | Load 0x2,0x3
05b6 4800 |H | Short_Literal 0x0
05b7 e00c | | Load 0x0,0xc
05b8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
05b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
05ba c403 | | Store 0x2,0x3
05bb 4801 |H | Short_Literal 0x1
05bc e402 | | Load 0x2,0x2
05bd 8404 | | Call 0x2,0x4
05be 00d8 | | Load_Top At_Offset_0
05bf 00e9 | | Load_Encached String_Cache
05c0 01c6 | | Execute Vector,Convert_To_Formal
05c1 00cb | | Action Pop_Block_With_Result
05c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c3 0000 0000 | | .BLANK 0000[0x5]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05ce | | .CONST 0x05ce ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0002 | | .CONST 0x0002 ; Number of locals
05cb INIT_05c8:
05cb e5fe | | Load 0x2,-0x2
05cc e00d | | Load 0x0,0xd
05cd 180e | | Execute Package,Field_Execute,Field_Number 0xe
05ce BODY_05c8:
05ce e002 | | Load 0x0,0x2
05cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d0 00d9 | | Load_Top At_Offset_1
05d1 e5ff | | Load 0x2,-0x1
05d2 e002 | | Load 0x0,0x2
05d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05d5 0000 0000 | | .XXX[0x3]
05d7 0000 | |
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 4608 |F | Jump_Case 0x9
05dc 7808 |x | Jump 0x5e5 ; case 0x0
05dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
05de 780d |x | Jump 0x5ec ; case 0x2
05df 780c |x | Jump 0x5ec ; case 0x3
05e0 780b |x | Jump 0x5ec ; case 0x4
05e1 780a |x | Jump 0x5ec ; case 0x5
05e2 7809 |x | Jump 0x5ec ; case 0x6
05e3 7808 |x | Jump 0x5ec ; case 0x7
05e4 7807 |x | Jump 0x5ec ; case 0x8
05e5 00da | | Load_Top At_Offset_2
05e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05e7 0125 | % | Execute Any,Set_Constraint
05e8 00da | | Load_Top At_Offset_2
05e9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05ea 1c00 | | Execute_Immediate Run_Utility,0x0
05eb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
05ec 0869 | i | Execute_Immediate Raise,0x69
05ed ; --------------------------------------------------------------------------------------
05ed ; STRING TABLE
05ed ; --------------------------------------------------------------------------------------
05ed 002c | , | .STRTAB 0x002c->0x0603 ; "SEND_TO_REMOTE"
05ee 0038 | 8 | .STRTAB 0x0038->0x060a ; "RECEIVE_FROM_REMOTE"
05ef 0049 | I | .STRTAB 0x0049->0x0613 ; "Ftp failure"
05f0 0052 | R | .STRTAB 0x0052->0x0619 ; "Transfer failure"
05f1 0060 | ` | .STRTAB 0x0060->0x0621 ; "*"
05f2 005f | _ | .STRTAB 0x005f->0x0621 ; "Close"
05f3 0062 | b | .STRTAB 0x0062->0x0624 ; "<ERRORS>"
05f4 0068 | h | .STRTAB 0x0068->0x0628 ; "Status_Ok"
05f5 006f | o | .STRTAB 0x006f->0x062c ; "FTP password"
05f6 0079 | y | .STRTAB 0x0079->0x0632 ; "Please enter FTP password for machine "
05f7 009d | | .STRTAB 0x009d->0x0645 ; ", username "
05f8 00a6 | | .STRTAB 0x00a6->0x064b ; ": "
05f9 00a6 | | .STRTAB 0x00a6->0x064c ; "FTP account"
05fa 00af | | .STRTAB 0x00af->0x0651 ; "Please enter FTP account for machine "
05fb 00d2 | | .STRTAB 0x00d2->0x0664 ; "<OPEN>"
05fc 00d6 | | .STRTAB 0x00d6->0x0667 ; "\x22 to the host"
05fd 00e1 | | .STRTAB 0x00e1->0x066d ; "\x22 <= \x22"
05fe 00e5 | | .STRTAB 0x00e5->0x0670 ; "host file to \x22"
05ff 00f1 | | .STRTAB 0x00f1->0x0677 ; "\x22 => \x22"
0600 00f5 | | .STRTAB 0x00f5->0x067a ; ": Send_Data_Port"
0601 0103 | | .STRTAB 0x0103->0x0682 ; "Bad status to Ftp operation"
0602 011c | | .STREND 0x011c->0x0690
0603 5345 4e44 |SEND| .STRTAB_STRINGS
0690 ; --------------------------------------------------------------------------------------
0690 ; Debug Table
0690 ; --------------------------------------------------------------------------------------
0690 0004 000d | | .DEBUG4 0x0004,0x000d,0xd91b,0x0000,0x0001,0x0000
0696 0000 0000 | | .BLANK 0000[0x14d]
07e3 0004 000e | | .XXX[0x4]
07e5 9089 d280 | |
07e7 0000 0000 | | .BLANK 0000[0x19]