|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 05e8 | | .CONST 0x05e8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006e | n | .CONST 0x006e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0055 | U | .CONST 0x0055 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
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 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0047 c240 | @ | Store 0x1,0x40
0048 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
004a c246 | F | Store 0x1,0x46
004b 00bf | | Action Accept_Activation
004c 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
004e 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call
0050 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
0052 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call
0054 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
0056 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
0058 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
005a 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
005c 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
005e 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
0060 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call
0062 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call
0064 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call
0066 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call
0068 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call
006a 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
006b 00c7 | | Action Elaborate_Subprogram
006c 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
006d 00c7 | | Action Elaborate_Subprogram
006e BODY_0008:
006e 00bc | | Action Signal_Activated
006f 00bb | | Action Signal_Completion
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007e | ~ | .CONST 0x007e ; Address of begin
0071 0097 | | .CONST 0x0097 ; Address of exception handler
0072 0004 | | .CONST 0x0004 ; Number of locals
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2
0074 e001 | | Load 0x0,0x1
0075 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0076 e002 | | Load 0x0,0x2
0077 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
0078 011e | | Execute Any,Convert
0079 00d8 | | Load_Top At_Offset_0
007a e002 | | Load 0x0,0x2
007b 1861 | a | Execute Package,Field_Execute,Field_Number 0x61
007c e003 | | Load 0x0,0x3
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e BODY_0070:
007e 00cf | | Action Mark_Auxiliary
007f 00da | | Load_Top At_Offset_2
0080 01d9 | | Execute Vector,Reverse_Bounds
0081 0263 | c | Execute Discrete,Above_Bound
0082 7013 |p | Jump_Nonzero 0x96
0083 00db | | Load_Top At_Offset_3
0084 e5fe | | Load 0x2,-0x2
0085 00da | | Load_Top At_Offset_2
0086 e403 | | Load 0x2,0x3
0087 01d7 | | Execute Vector,Field_Read
0088 e5ff | | Load 0x2,-0x1
0089 8255 | U | Call 0x1,0x55
008a c404 | | Store 0x2,0x4
008b 4800 |H | Short_Literal 0x0
008c e404 | | Load 0x2,0x4
008d e003 | | Load 0x0,0x3
008e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
008f 7004 |p | Jump_Nonzero 0x94
0090 00db | | Load_Top At_Offset_3
0091 a5fd | | Store_Unchecked 0x2,-0x3
0092 00d2 | | Pop_Control Pop_Count_2
0093 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0094 00c8 | | Action Pop_Auxiliary_Range
0095 3fed |? | Loop_Increasing 0x83
0096 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0097 TRAP_0070:
0097 0007 | | Action Break_Optional
0098 e5fe | | Load 0x2,-0x2
0099 0092 0541 | A| Action Push_String_Extended,0x541 ; "Associated_Files.Check_Files"
009b e004 | | Load 0x0,0x4
009c 180f | | Execute Package,Field_Execute,Field_Number 0xf
009d e005 | | Load 0x0,0x5
009e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
009f 6004 |` | Indirect_Literal Discrete,0xa4,{0x00000000, 0x0000813b}
00a0 e003 | | Load 0x0,0x3
00a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a2 a5fd | | Store_Unchecked 0x2,-0x3
00a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ae | | .CONST 0x00ae ; Address of begin
00a9 0123 | # | .CONST 0x0123 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab e003 | | Load 0x0,0x3
00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ad 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ae BODY_00a8:
00ae 00db | | Load_Top At_Offset_3
00af e5fd | | Load 0x2,-0x3
00b0 e5fe | | Load 0x2,-0x2
00b1 e5f3 | | Load 0x2,-0xd
00b2 e5fa | | Load 0x2,-0x6
00b3 e5f9 | | Load 0x2,-0x7
00b4 e5f8 | | Load 0x2,-0x8
00b5 e5fb | | Load 0x2,-0x5
00b6 e5fc | | Load 0x2,-0x4
00b7 e006 | | Load 0x0,0x6
00b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b9 701a |p | Jump_Nonzero 0xd4
00ba e5f4 | | Load 0x2,-0xc
00bb 4801 |H | Short_Literal 0x1
00bc 4801 |H | Short_Literal 0x1
00bd e005 | | Load 0x0,0x5
00be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00bf 035b | [ | Declare_Type Array,Constrained
00c0 0337 | 7 | Declare_Variable Array
00c1 e5fc | | Load 0x2,-0x4
00c2 e007 | | Load 0x0,0x7
00c3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00c4 e005 | | Load 0x0,0x5
00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c6 0119 | | Execute Any,Check_In_Formal_Type
00c7 4801 |H | Short_Literal 0x1
00c8 00da | | Load_Top At_Offset_2
00c9 01d6 | | Execute Vector,Field_Write
00ca 6069 |`i | Indirect_Literal Discrete,0x134,{0x00000000, 0x000081c3}
00cb e003 | | Load 0x0,0x3
00cc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00cd e005 | | Load 0x0,0x5
00ce 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00cf 6064 |`d | Indirect_Literal Discrete,0x134,{0x00000000, 0x000081c3}
00d0 e003 | | Load 0x0,0x3
00d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d2 a5f2 | | Store_Unchecked 0x2,-0xe
00d3 450d |E | Exit_Suprogram New_Top_Offset 0xd
00d4 e5f4 | | Load 0x2,-0xc
00d5 e5f5 | | Load 0x2,-0xb
00d6 e5f6 | | Load 0x2,-0xa
00d7 e5fc | | Load 0x2,-0x4
00d8 e5fd | | Load 0x2,-0x3
00d9 e5fe | | Load 0x2,-0x2
00da e5ff | | Load 0x2,-0x1
00db 8252 | R | Call 0x1,0x52
00dc 4802 |H | Short_Literal 0x2
00dd e5fd | | Load 0x2,-0x3
00de 01d7 | | Execute Vector,Field_Read
00df 7014 |p | Jump_Nonzero 0xf4
00e0 00d8 | | Load_Top At_Offset_0
00e1 e5f3 | | Load 0x2,-0xd
00e2 e5f4 | | Load 0x2,-0xc
00e3 e5f5 | | Load 0x2,-0xb
00e4 e5f6 | | Load 0x2,-0xa
00e5 e5f7 | | Load 0x2,-0x9
00e6 e5fa | | Load 0x2,-0x6
00e7 e5fb | | Load 0x2,-0x5
00e8 e5ff | | Load 0x2,-0x1
00e9 e008 | | Load 0x0,0x8
00ea 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
00eb e008 | | Load 0x0,0x8
00ec 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
00ed e5fc | | Load 0x2,-0x4
00ee e5fd | | Load 0x2,-0x3
00ef e5fe | | Load 0x2,-0x2
00f0 e5ff | | Load 0x2,-0x1
00f1 8254 | T | Call 0x1,0x54
00f2 c5f3 | | Store 0x2,-0xd
00f3 0059 | Y | Store_Top Discrete,At_Offset_1
00f4 4800 |H | Short_Literal 0x0
00f5 00d9 | | Load_Top At_Offset_1
00f6 e003 | | Load 0x0,0x3
00f7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00f8 7003 |p | Jump_Nonzero 0xfc
00f9 00d8 | | Load_Top At_Offset_0
00fa a5f2 | | Store_Unchecked 0x2,-0xe
00fb 450d |E | Exit_Suprogram New_Top_Offset 0xd
00fc 00db | | Load_Top At_Offset_3
00fd e5fd | | Load 0x2,-0x3
00fe e5fe | | Load 0x2,-0x2
00ff e5f3 | | Load 0x2,-0xd
0100 e5fa | | Load 0x2,-0x6
0101 e5f9 | | Load 0x2,-0x7
0102 e5f8 | | Load 0x2,-0x8
0103 e5fb | | Load 0x2,-0x5
0104 e5fc | | Load 0x2,-0x4
0105 e006 | | Load 0x0,0x6
0106 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0107 701a |p | Jump_Nonzero 0x122
0108 e5f4 | | Load 0x2,-0xc
0109 4801 |H | Short_Literal 0x1
010a 4801 |H | Short_Literal 0x1
010b e005 | | Load 0x0,0x5
010c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010d 035b | [ | Declare_Type Array,Constrained
010e 0337 | 7 | Declare_Variable Array
010f e5fc | | Load 0x2,-0x4
0110 e007 | | Load 0x0,0x7
0111 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0112 e005 | | Load 0x0,0x5
0113 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0114 0119 | | Execute Any,Check_In_Formal_Type
0115 4801 |H | Short_Literal 0x1
0116 00da | | Load_Top At_Offset_2
0117 01d6 | | Execute Vector,Field_Write
0118 6017 |` | Indirect_Literal Discrete,0x130,{0x00000000, 0x000081c4}
0119 e003 | | Load 0x0,0x3
011a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
011b e005 | | Load 0x0,0x5
011c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
011d 6012 |` | Indirect_Literal Discrete,0x130,{0x00000000, 0x000081c4}
011e e003 | | Load 0x0,0x3
011f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0120 a5f2 | | Store_Unchecked 0x2,-0xe
0121 450d |E | Exit_Suprogram New_Top_Offset 0xd
0122 450d |E | Exit_Suprogram New_Top_Offset 0xd
0123 TRAP_00a8:
0123 0007 | | Action Break_Optional
0124 e5f4 | | Load 0x2,-0xc
0125 0092 0542 | B| Action Push_String_Extended,0x542 ; "Associated_Files.Destroy_And_Retrieve"
0127 e004 | | Load 0x0,0x4
0128 180f | | Execute Package,Field_Execute,Field_Number 0xf
0129 e005 | | Load 0x0,0x5
012a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
012b 6778 |gx | Indirect_Literal Discrete,0xa4,{0x00000000, 0x0000813b}
012c e003 | | Load 0x0,0x3
012d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012e a5f2 | | Store_Unchecked 0x2,-0xe
012f 450d |E | Exit_Suprogram New_Top_Offset 0xd
0130 0000 0000 | | .LITERAL {0x00000000, 0x000081c4}
0134 0000 0000 | | .LITERAL {0x00000000, 0x000081c3}
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c e002 | | Load 0x0,0x2
013d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
013e 011c | | Execute Any,Convert_Unchecked
013f 1c01 | | Execute_Immediate Run_Utility,0x1
0140 e008 | | Load 0x0,0x8
0141 1bc6 | | Execute Package,Field_Read,Field_Number 0xc6
0142 1c02 | | Execute_Immediate Run_Utility,0x2
0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c e008 | | Load 0x0,0x8
014d 1bc6 | | Execute Package,Field_Read,Field_Number 0xc6
014e 011c | | Execute Any,Convert_Unchecked
014f 1c01 | | Execute_Immediate Run_Utility,0x1
0150 e002 | | Load 0x0,0x2
0151 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0152 1c02 | | Execute_Immediate Run_Utility,0x2
0153 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c e002 | | Load 0x0,0x2
015d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015e 011c | | Execute Any,Convert_Unchecked
015f 1c01 | | Execute_Immediate Run_Utility,0x1
0160 e008 | | Load 0x0,0x8
0161 1bc4 | | Execute Package,Field_Read,Field_Number 0xc4
0162 1c02 | | Execute_Immediate Run_Utility,0x2
0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00db | | Load_Top At_Offset_3
016c 0092 0543 | C| Action Push_String_Extended,0x543 ; ".<"
016e 01cc | | Execute Vector,Catenate
016f 00db | | Load_Top At_Offset_3
0170 e002 | | Load 0x0,0x2
0171 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0172 01cc | | Execute Vector,Catenate
0173 0092 0544 | D| Action Push_String_Extended,0x544 ; ">"
0175 01cc | | Execute Vector,Catenate
0176 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0190 | | .CONST 0x0190 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0008 | | .CONST 0x0008 ; Number of locals
017b INIT_0178:
017b e5fd | | Load 0x2,-0x3
017c e009 | | Load 0x0,0x9
017d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
017f e5fd | | Load 0x2,-0x3
0180 e009 | | Load 0x0,0x9
0181 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0182 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0183 e5ff | | Load 0x2,-0x1
0184 e002 | | Load 0x0,0x2
0185 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0186 e5ff | | Load 0x2,-0x1
0187 e002 | | Load 0x0,0x2
0188 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0189 e5ff | | Load 0x2,-0x1
018a e002 | | Load 0x0,0x2
018b 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
018c 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call
018e 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call
0190 BODY_0178:
0190 8408 | | Call 0x2,0x8
0191 0831 | 1 | Execute_Immediate Raise,0x31
0192 0000 0000 | | .BLANK 0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a4 | | .CONST 0x01a4 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0003 | | .CONST 0x0003 ; Number of locals
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c e002 | | Load 0x0,0x2
019d 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
019e 4800 |H | Short_Literal 0x0
019f 00d9 | | Load_Top At_Offset_1
01a0 0092 0545 | E| Action Push_String_Extended,0x545 ; "&"
01a2 e00a | | Load 0x0,0xa
01a3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01a4 BODY_0198:
01a4 00d9 | | Load_Top At_Offset_1
01a5 01dd | | Execute Vector,First
01a6 00d9 | | Load_Top At_Offset_1
01a7 0aff | | Execute_Immediate Plus,-0x1
01a8 00db | | Load_Top At_Offset_3
01a9 01cf | | Execute Vector,Slice_Read
01aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bc | | .CONST 0x01bc ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0003 | | .CONST 0x0003 ; Number of locals
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 e002 | | Load 0x0,0x2
01b5 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
01b6 4800 |H | Short_Literal 0x0
01b7 00d9 | | Load_Top At_Offset_1
01b8 0092 0545 | E| Action Push_String_Extended,0x545 ; "&"
01ba e00a | | Load 0x0,0xa
01bb 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01bc BODY_01b0:
01bc 00d8 | | Load_Top At_Offset_0
01bd 0a01 | | Execute_Immediate Plus,0x1
01be 00d8 | | Load_Top At_Offset_0
01bf 00e2 | | Load_Encached Integer_Cache
01c0 0260 | ` | Execute Discrete,In_Type
01c1 7001 |p | Jump_Nonzero 0x1c3
01c2 0801 | | Execute_Immediate Raise,0x1
01c3 00da | | Load_Top At_Offset_2
01c4 01dc | | Execute Vector,Last
01c5 00db | | Load_Top At_Offset_3
01c6 01cf | | Execute Vector,Slice_Read
01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d2 | | .CONST 0x01d2 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e002 | | Load 0x0,0x2
01cc 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
01cd 02c7 | | Declare_Variable Any
01ce 00db | | Load_Top At_Offset_3
01cf e001 | | Load 0x0,0x1
01d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d1 a402 | | Store_Unchecked 0x2,0x2
01d2 BODY_01c8:
01d2 e5fe | | Load 0x2,-0x2
01d3 e002 | | Load 0x0,0x2
01d4 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01d5 4602 |F | Jump_Case 0x3
01d6 7805 |x | Jump 0x1dc ; case 0x0
01d7 780c |x | Jump 0x1e4 ; case 0x1
01d8 7800 |x | Jump 0x1d9 ; case 0x2
01d9 e5fe | | Load 0x2,-0x2
01da 824d | M | Call 0x1,0x4d
01db 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01dc e5fd | | Load 0x2,-0x3
01dd e5fe | | Load 0x2,-0x2
01de 00da | | Load_Top At_Offset_2
01df 824b | K | Call 0x1,0x4b
01e0 e5fe | | Load 0x2,-0x2
01e1 824d | M | Call 0x1,0x4d
01e2 01cc | | Execute Vector,Catenate
01e3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01e4 e5fc | | Load 0x2,-0x4
01e5 e5fe | | Load 0x2,-0x2
01e6 824d | M | Call 0x1,0x4d
01e7 01cc | | Execute Vector,Catenate
01e8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01e9 0000 0000 | | .BLANK 0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0203 | | .CONST 0x0203 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0005 | | .CONST 0x0005 ; Number of locals
01f3 INIT_01f0:
01f3 e002 | | Load 0x0,0x2
01f4 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
01f5 02c7 | | Declare_Variable Any
01f6 00db | | Load_Top At_Offset_3
01f7 e001 | | Load 0x0,0x1
01f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f9 a402 | | Store_Unchecked 0x2,0x2
01fa 00d8 | | Load_Top At_Offset_0
01fb e002 | | Load 0x0,0x2
01fc 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01fd 00d9 | | Load_Top At_Offset_1
01fe e002 | | Load 0x0,0x2
01ff 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0200 00da | | Load_Top At_Offset_2
0201 e002 | | Load 0x0,0x2
0202 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0203 BODY_01f0:
0203 e5fd | | Load 0x2,-0x3
0204 01db | | Execute Vector,Length
0205 7002 |p | Jump_Nonzero 0x208
0206 e5fe | | Load 0x2,-0x2
0207 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0208 e5fe | | Load 0x2,-0x2
0209 01dd | | Execute Vector,First
020a e5fe | | Load 0x2,-0x2
020b 01dc | | Execute Vector,Last
020c 00db | | Load_Top At_Offset_3
020d 01db | | Execute Vector,Length
020e 0272 | r | Execute Discrete,Minus
020f 00d8 | | Load_Top At_Offset_0
0210 00e2 | | Load_Encached Integer_Cache
0211 0260 | ` | Execute Discrete,In_Type
0212 7001 |p | Jump_Nonzero 0x214
0213 0801 | | Execute_Immediate Raise,0x1
0214 e5fe | | Load 0x2,-0x2
0215 01cf | | Execute Vector,Slice_Read
0216 e5fd | | Load 0x2,-0x3
0217 01dd | | Execute Vector,First
0218 e403 | | Load 0x2,0x3
0219 01db | | Execute Vector,Length
021a 0273 | s | Execute Discrete,Plus
021b 00d8 | | Load_Top At_Offset_0
021c 00e2 | | Load_Encached Integer_Cache
021d 0260 | ` | Execute Discrete,In_Type
021e 7001 |p | Jump_Nonzero 0x220
021f 0801 | | Execute_Immediate Raise,0x1
0220 e5fd | | Load 0x2,-0x3
0221 01dc | | Execute Vector,Last
0222 e5fd | | Load 0x2,-0x3
0223 01cf | | Execute Vector,Slice_Read
0224 01cc | | Execute Vector,Catenate
0225 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0237 | 7 | .CONST 0x0237 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0004 | | .CONST 0x0004 ; Number of locals
022b INIT_0228:
022b e008 | | Load 0x0,0x8
022c 1b62 | b | Execute Package,Field_Read,Field_Number 0x62
022d 0322 | " | Declare_Variable Record
022e e5fe | | Load 0x2,-0x2
022f e008 | | Load 0x0,0x8
0230 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0231 00d9 | | Load_Top At_Offset_1
0232 017d | } | Execute Record,Structure_Write
0233 00db | | Load_Top At_Offset_3
0234 824c | L | Call 0x1,0x4c
0235 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
0237 BODY_0228:
0237 e5ff | | Load 0x2,-0x1
0238 e002 | | Load 0x0,0x2
0239 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
023a e5ff | | Load 0x2,-0x1
023b e002 | | Load 0x0,0x2
023c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
023d 0279 | y | Execute Discrete,And
023e 6801 |h | Jump_Zero 0x240
023f 8404 | | Call 0x2,0x4
0240 00d9 | | Load_Top At_Offset_1
0241 e5fb | | Load 0x2,-0x5
0242 e5fe | | Load 0x2,-0x2
0243 824f | O | Call 0x1,0x4f
0244 e5fc | | Load 0x2,-0x4
0245 e5fd | | Load 0x2,-0x3
0246 e5ff | | Load 0x2,-0x1
0247 e5fe | | Load 0x2,-0x2
0248 824e | N | Call 0x1,0x4e
0249 e5ff | | Load 0x2,-0x1
024a e002 | | Load 0x0,0x2
024b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
024c e402 | | Load 0x2,0x2
024d e008 | | Load 0x0,0x8
024e 187c | | | Execute Package,Field_Execute,Field_Number 0x7c
024f 01cc | | Execute Vector,Catenate
0250 e402 | | Load 0x2,0x2
0251 e008 | | Load 0x0,0x8
0252 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
0253 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0276 | v | .CONST 0x0276 ; Address of begin
0259 0294 | | .CONST 0x0294 ; Address of exception handler
025a 0006 | | .CONST 0x0006 ; Number of locals
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c e001 | | Load 0x0,0x1
025d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
025e e002 | | Load 0x0,0x2
025f 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
0260 011e | | Execute Any,Convert
0261 00d8 | | Load_Top At_Offset_0
0262 e002 | | Load 0x0,0x2
0263 1861 | a | Execute Package,Field_Execute,Field_Number 0x61
0264 00e3 | | Load_Encached Natural_Cache
0265 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0266 4801 |H | Short_Literal 0x1
0267 00da | | Load_Top At_Offset_2
0268 01db | | Execute Vector,Length
0269 00d8 | | Load_Top At_Offset_0
026a 00e2 | | Load_Encached Integer_Cache
026b 0260 | ` | Execute Discrete,In_Type
026c 7001 |p | Jump_Nonzero 0x26e
026d 0801 | | Execute_Immediate Raise,0x1
026e e002 | | Load 0x0,0x2
026f 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0270 035b | [ | Declare_Type Array,Constrained
0271 0337 | 7 | Declare_Variable Array
0272 00d8 | | Load_Top At_Offset_0
0273 1c00 | | Execute_Immediate Run_Utility,0x0
0274 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call
0276 BODY_0258:
0276 00cf | | Action Mark_Auxiliary
0277 e403 | | Load 0x2,0x3
0278 01d9 | | Execute Vector,Reverse_Bounds
0279 0263 | c | Execute Discrete,Above_Bound
027a 7010 |p | Jump_Nonzero 0x28b
027b 00d8 | | Load_Top At_Offset_0
027c e403 | | Load 0x2,0x3
027d 01d7 | | Execute Vector,Field_Read
027e 8406 | | Call 0x2,0x6
027f 6809 |h | Jump_Zero 0x289
0280 e404 | | Load 0x2,0x4
0281 0a01 | | Execute_Immediate Plus,0x1
0282 c404 | | Store 0x2,0x4
0283 00d8 | | Load_Top At_Offset_0
0284 e403 | | Load 0x2,0x3
0285 01d7 | | Execute Vector,Field_Read
0286 e404 | | Load 0x2,0x4
0287 e405 | | Load 0x2,0x5
0288 01d6 | | Execute Vector,Field_Write
0289 00c8 | | Action Pop_Auxiliary_Range
028a 3ff0 |? | Loop_Increasing 0x27b
028b 00ce | | Action Pop_Auxiliary
028c 4801 |H | Short_Literal 0x1
028d 00db | | Load_Top At_Offset_3
028e 00db | | Load_Top At_Offset_3
028f 01cf | | Execute Vector,Slice_Read
0290 e002 | | Load 0x0,0x2
0291 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
0292 01c6 | | Execute Vector,Convert_To_Formal
0293 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
0294 TRAP_0258:
0294 0007 | | Action Break_Optional
0295 e5f8 | | Load 0x2,-0x8
0296 0092 0546 | F| Action Push_String_Extended,0x546 ; "Associated_Files.Filter"
0298 e004 | | Load 0x0,0x4
0299 180f | | Execute Package,Field_Execute,Field_Number 0xf
029a 4801 |H | Short_Literal 0x1
029b 4800 |H | Short_Literal 0x0
029c e405 | | Load 0x2,0x5
029d 01cf | | Execute Vector,Slice_Read
029e e002 | | Load 0x0,0x2
029f 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
02a0 01c6 | | Execute Vector,Convert_To_Formal
02a1 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
02a2 0000 0000 | | .BLANK 0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b6 | | .CONST 0x02b6 ; Address of begin
02a9 02bf | | .CONST 0x02bf ; Address of exception handler
02aa 0003 | | .CONST 0x0003 ; Number of locals
02ab INIT_02a8:
02ab e5f9 | | Load 0x2,-0x7
02ac e5fa | | Load 0x2,-0x6
02ad e5fb | | Load 0x2,-0x5
02ae e5fc | | Load 0x2,-0x4
02af 4800 |H | Short_Literal 0x0
02b0 e5fd | | Load 0x2,-0x3
02b1 e5fe | | Load 0x2,-0x2
02b2 e5ff | | Load 0x2,-0x1
02b3 8251 | Q | Call 0x1,0x51
02b4 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
02b6 BODY_02a8:
02b6 00cf | | Action Mark_Auxiliary
02b7 00da | | Load_Top At_Offset_2
02b8 01d9 | | Execute Vector,Reverse_Bounds
02b9 0263 | c | Execute Discrete,Above_Bound
02ba 7003 |p | Jump_Nonzero 0x2be
02bb 8403 | | Call 0x2,0x3
02bc 00c8 | | Action Pop_Auxiliary_Range
02bd 3ffd |? | Loop_Increasing 0x2bb
02be 4508 |E | Exit_Suprogram New_Top_Offset 0x8
02bf TRAP_02a8:
02bf 0007 | | Action Break_Optional
02c0 e5f9 | | Load 0x2,-0x7
02c1 0092 0547 | G| Action Push_String_Extended,0x547 ; "Associated_Files.Filter_And_Destroy"
02c3 e004 | | Load 0x0,0x4
02c4 180f | | Execute Package,Field_Execute,Field_Number 0xf
02c5 4508 |E | Exit_Suprogram New_Top_Offset 0x8
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 0f01 | | Execute_Immediate Equal,0x1
02cd 6802 |h | Jump_Zero 0x2d0
02ce 4801 |H | Short_Literal 0x1
02cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d0 4800 |H | Short_Literal 0x0
02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d2 0000 0000 | | .BLANK 0000[0x6]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 0300 | | .CONST 0x0300 ; Address of begin
02d9 030e | | .CONST 0x030e ; Address of exception handler
02da 0008 | | .CONST 0x0008 ; Number of locals
02db INIT_02d8:
02db e5f6 | | Load 0x2,-0xa
02dc e5f7 | | Load 0x2,-0x9
02dd e5f8 | | Load 0x2,-0x8
02de e5fc | | Load 0x2,-0x4
02df 4801 |H | Short_Literal 0x1
02e0 e5fd | | Load 0x2,-0x3
02e1 e5fe | | Load 0x2,-0x2
02e2 e5ff | | Load 0x2,-0x1
02e3 8251 | Q | Call 0x1,0x51
02e4 e003 | | Load 0x0,0x3
02e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02e7 e009 | | Load 0x0,0x9
02e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02e9 02c7 | | Declare_Variable Any
02ea e5f6 | | Load 0x2,-0xa
02eb 4800 |H | Short_Literal 0x0
02ec e5fc | | Load 0x2,-0x4
02ed e007 | | Load 0x0,0x7
02ee 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02ef a404 | | Store_Unchecked 0x2,0x4
02f0 e5f6 | | Load 0x2,-0xa
02f1 00d9 | | Load_Top At_Offset_1
02f2 e007 | | Load 0x0,0x7
02f3 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
02f4 00e1 | | Load_Encached Boolean_Cache
02f5 03f1 | | Declare_Variable Discrete,With_Value
02f6 e5f6 | | Load 0x2,-0xa
02f7 00da | | Load_Top At_Offset_2
02f8 e007 | | Load 0x0,0x7
02f9 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
02fa 00e1 | | Load_Encached Boolean_Cache
02fb 03f1 | | Declare_Variable Discrete,With_Value
02fc 029f 0493 | | Declare_Subprogram INIT_0490,For_Call
02fe 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call
0300 BODY_02d8:
0300 00cf | | Action Mark_Auxiliary
0301 e402 | | Load 0x2,0x2
0302 01d9 | | Execute Vector,Reverse_Bounds
0303 0263 | c | Execute Discrete,Above_Bound
0304 7003 |p | Jump_Nonzero 0x308
0305 8407 | | Call 0x2,0x7
0306 00c8 | | Action Pop_Auxiliary_Range
0307 3ffd |? | Loop_Increasing 0x305
0308 00ce | | Action Pop_Auxiliary
0309 e5f9 | | Load 0x2,-0x7
030a 01db | | Execute Vector,Length
030b 6801 |h | Jump_Zero 0x30d
030c 8408 | | Call 0x2,0x8
030d 450b |E | Exit_Suprogram New_Top_Offset 0xb
030e TRAP_02d8:
030e 0007 | | Action Break_Optional
030f e5f6 | | Load 0x2,-0xa
0310 0092 0548 | H| Action Push_String_Extended,0x548 ; "Associated_Files.Filter_And_Retrieve"
0312 e004 | | Load 0x0,0x4
0313 180f | | Execute Package,Field_Execute,Field_Number 0xf
0314 e005 | | Load 0x0,0x5
0315 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0316 6005 |` | Indirect_Literal Discrete,0x31c,{0x00000000, 0x0000813b}
0317 e003 | | Load 0x0,0x3
0318 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0319 a5f4 | | Store_Unchecked 0x2,-0xc
031a 450b |E | Exit_Suprogram New_Top_Offset 0xb
031b 0000 | | .XXX[0x1]
031c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b}
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 038d | | .CONST 0x038d ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00db | | Load_Top At_Offset_3
0324 e002 | | Load 0x0,0x2
0325 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0326 6865 |he | Jump_Zero 0x38c
0327 e5fd | | Load 0x2,-0x3
0328 e5fe | | Load 0x2,-0x2
0329 e002 | | Load 0x0,0x2
032a 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
032b e5ff | | Load 0x2,-0x1
032c e00b | | Load 0x0,0xb
032d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
032e 7029 |p) | Jump_Nonzero 0x358
032f e00c | | Load 0x0,0xc
0330 180e | | Execute Package,Field_Execute,Field_Number 0xe
0331 4801 |H | Short_Literal 0x1
0332 4802 |H | Short_Literal 0x2
0333 e005 | | Load 0x0,0x5
0334 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0335 035b | [ | Declare_Type Array,Constrained
0336 0337 | 7 | Declare_Variable Array
0337 e5fe | | Load 0x2,-0x2
0338 e002 | | Load 0x0,0x2
0339 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
033a e005 | | Load 0x0,0x5
033b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
033c e005 | | Load 0x0,0x5
033d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033e 0119 | | Execute Any,Check_In_Formal_Type
033f 4801 |H | Short_Literal 0x1
0340 00da | | Load_Top At_Offset_2
0341 01d6 | | Execute Vector,Field_Write
0342 e5fe | | Load 0x2,-0x2
0343 e002 | | Load 0x0,0x2
0344 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0345 e005 | | Load 0x0,0x5
0346 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0347 e005 | | Load 0x0,0x5
0348 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0349 0119 | | Execute Any,Check_In_Formal_Type
034a 4802 |H | Short_Literal 0x2
034b 00da | | Load_Top At_Offset_2
034c 01d6 | | Execute Vector,Field_Write
034d 4806 |H | Short_Literal 0x6
034e 6051 |`Q | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x0000814a}
034f e003 | | Load 0x0,0x3
0350 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0351 e005 | | Load 0x0,0x5
0352 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0353 604c |`L | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x0000814a}
0354 e003 | | Load 0x0,0x3
0355 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0356 a5fc | | Store_Unchecked 0x2,-0x4
0357 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0358 00db | | Load_Top At_Offset_3
0359 e002 | | Load 0x0,0x2
035a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
035b 6830 |h0 | Jump_Zero 0x38c
035c e5fd | | Load 0x2,-0x3
035d e5fe | | Load 0x2,-0x2
035e e002 | | Load 0x0,0x2
035f 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0360 e5ff | | Load 0x2,-0x1
0361 e00b | | Load 0x0,0xb
0362 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0363 7028 |p( | Jump_Nonzero 0x38c
0364 e00c | | Load 0x0,0xc
0365 180e | | Execute Package,Field_Execute,Field_Number 0xe
0366 4801 |H | Short_Literal 0x1
0367 4802 |H | Short_Literal 0x2
0368 e005 | | Load 0x0,0x5
0369 1b0f | | Execute Package,Field_Read,Field_Number 0xf
036a 035b | [ | Declare_Type Array,Constrained
036b 0337 | 7 | Declare_Variable Array
036c e5fe | | Load 0x2,-0x2
036d e002 | | Load 0x0,0x2
036e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
036f e005 | | Load 0x0,0x5
0370 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0371 e005 | | Load 0x0,0x5
0372 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0373 0119 | | Execute Any,Check_In_Formal_Type
0374 4801 |H | Short_Literal 0x1
0375 00da | | Load_Top At_Offset_2
0376 01d6 | | Execute Vector,Field_Write
0377 e5fe | | Load 0x2,-0x2
0378 e002 | | Load 0x0,0x2
0379 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
037a e005 | | Load 0x0,0x5
037b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
037c e005 | | Load 0x0,0x5
037d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037e 0119 | | Execute Any,Check_In_Formal_Type
037f 4802 |H | Short_Literal 0x2
0380 00da | | Load_Top At_Offset_2
0381 01d6 | | Execute Vector,Field_Write
0382 4806 |H | Short_Literal 0x6
0383 6018 |` | Indirect_Literal Discrete,0x39c,{0x00000000, 0x0000814b}
0384 e003 | | Load 0x0,0x3
0385 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0386 e005 | | Load 0x0,0x5
0387 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0388 6013 |` | Indirect_Literal Discrete,0x39c,{0x00000000, 0x0000814b}
0389 e003 | | Load 0x0,0x3
038a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038b a5fc | | Store_Unchecked 0x2,-0x4
038c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
038d TRAP_0320:
038d 0007 | | Action Break_Optional
038e e5fd | | Load 0x2,-0x3
038f 0092 0549 | I| Action Push_String_Extended,0x549 ; "Associated_Files.Check_File"
0391 e004 | | Load 0x0,0x4
0392 180f | | Execute Package,Field_Execute,Field_Number 0xf
0393 e005 | | Load 0x0,0x5
0394 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0395 6786 |g | Indirect_Literal Discrete,0x31c,{0x00000000, 0x0000813b}
0396 e003 | | Load 0x0,0x3
0397 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0398 a5fc | | Store_Unchecked 0x2,-0x4
0399 4504 |E | Exit_Suprogram New_Top_Offset 0x4
039a 0000 0000 | | .XXX[0x2]
039c 0000 0000 | | .LITERAL {0x00000000, 0x0000814b}
03a0 0000 0000 | | .LITERAL {0x00000000, 0x0000814a}
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03bb | | .CONST 0x03bb ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0003 | | .CONST 0x0003 ; Number of locals
03ab INIT_03a8:
03ab 4800 |H | Short_Literal 0x0
03ac 00db | | Load_Top At_Offset_3
03ad 0092 054a | J| Action Push_String_Extended,0x54a ; "."
03af e00a | | Load 0x0,0xa
03b0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03b1 00e3 | | Load_Encached Natural_Cache
03b2 03f1 | | Declare_Variable Discrete,With_Value
03b3 4800 |H | Short_Literal 0x0
03b4 e7ff | | Load 0x3,-0x1
03b5 0092 054a | J| Action Push_String_Extended,0x54a ; "."
03b7 e00a | | Load 0x0,0xa
03b8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03b9 00e3 | | Load_Encached Natural_Cache
03ba 03f1 | | Declare_Variable Discrete,With_Value
03bb BODY_03a8:
03bb e404 | | Load 0x2,0x4
03bc 01db | | Execute Vector,Length
03bd 0f00 | | Execute_Immediate Equal,0x0
03be 00da | | Load_Top At_Offset_2
03bf 0f00 | | Execute_Immediate Equal,0x0
03c0 0278 | x | Execute Discrete,Or
03c1 6802 |h | Jump_Zero 0x3c4
03c2 e7ff | | Load 0x3,-0x1
03c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c4 e7ff | | Load 0x3,-0x1
03c5 01dd | | Execute Vector,First
03c6 00da | | Load_Top At_Offset_2
03c7 0aff | | Execute_Immediate Plus,-0x1
03c8 e7ff | | Load 0x3,-0x1
03c9 01cf | | Execute Vector,Slice_Read
03ca e404 | | Load 0x2,0x4
03cb 01cc | | Execute Vector,Catenate
03cc 00d9 | | Load_Top At_Offset_1
03cd 0a01 | | Execute_Immediate Plus,0x1
03ce 00d8 | | Load_Top At_Offset_0
03cf 00e2 | | Load_Encached Integer_Cache
03d0 0260 | ` | Execute Discrete,In_Type
03d1 7001 |p | Jump_Nonzero 0x3d3
03d2 0801 | | Execute_Immediate Raise,0x1
03d3 e7ff | | Load 0x3,-0x1
03d4 01dc | | Execute Vector,Last
03d5 e7ff | | Load 0x3,-0x1
03d6 01cf | | Execute Vector,Slice_Read
03d7 01cc | | Execute Vector,Catenate
03d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d9 0000 0000 | | .BLANK 0000[0x7]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03ee | | .CONST 0x03ee ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0003 | | .CONST 0x0003 ; Number of locals
03e3 INIT_03e0:
03e3 e403 | | Load 0x2,0x3
03e4 8407 | | Call 0x2,0x7
03e5 4800 |H | Short_Literal 0x0
03e6 00d9 | | Load_Top At_Offset_1
03e7 0092 054b | K| Action Push_String_Extended,0x54b ; "'"
03e9 e00a | | Load 0x0,0xa
03ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03eb 0aff | | Execute_Immediate Plus,-0x1
03ec 00e2 | | Load_Encached Integer_Cache
03ed 03f1 | | Declare_Variable Discrete,With_Value
03ee BODY_03e0:
03ee 00d8 | | Load_Top At_Offset_0
03ef 0d00 | | Execute_Immediate Less,0x0
03f0 6803 |h | Jump_Zero 0x3f4
03f1 00d9 | | Load_Top At_Offset_1
03f2 01dc | | Execute Vector,Last
03f3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03f4 4801 |H | Short_Literal 0x1
03f5 e402 | | Load 0x2,0x2
03f6 0092 054c | L| Action Push_String_Extended,0x54c ; "'spec"
03f8 e00a | | Load 0x0,0xa
03f9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03fa 0c01 | | Execute_Immediate Greater_Equal,0x1
03fb 6809 |h | Jump_Zero 0x405
03fc 00d9 | | Load_Top At_Offset_1
03fd 01dd | | Execute Vector,First
03fe 00d9 | | Load_Top At_Offset_1
03ff 00db | | Load_Top At_Offset_3
0400 01cf | | Execute Vector,Slice_Read
0401 e405 | | Load 0x2,0x5
0402 01cc | | Execute Vector,Catenate
0403 00cb | | Action Pop_Block_With_Result
0404 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0405 00d9 | | Load_Top At_Offset_1
0406 01dd | | Execute Vector,First
0407 00d9 | | Load_Top At_Offset_1
0408 00db | | Load_Top At_Offset_3
0409 01cf | | Execute Vector,Slice_Read
040a e406 | | Load 0x2,0x6
040b 01cc | | Execute Vector,Catenate
040c 00cb | | Action Pop_Block_With_Result
040d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
040e 0000 0000 | | .XXX[0x2]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041d | | .CONST 0x041d ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 e5f8 | | Load 0x2,-0x8
0414 e5f9 | | Load 0x2,-0x7
0415 e5fd | | Load 0x2,-0x3
0416 e5ff | | Load 0x2,-0x1
0417 e002 | | Load 0x0,0x2
0418 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0419 e5fe | | Load 0x2,-0x2
041a e5fa | | Load 0x2,-0x6
041b e00b | | Load 0x0,0xb
041c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
041d BODY_0410:
041d 00d8 | | Load_Top At_Offset_0
041e 01db | | Execute Vector,Length
041f 680a |h | Jump_Zero 0x42a
0420 e403 | | Load 0x2,0x3
0421 e5fb | | Load 0x2,-0x5
0422 e5fe | | Load 0x2,-0x2
0423 824f | O | Call 0x1,0x4f
0424 00d9 | | Load_Top At_Offset_1
0425 e402 | | Load 0x2,0x2
0426 e008 | | Load 0x0,0x8
0427 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
0428 00cb | | Action Pop_Block_With_Result
0429 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
042a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
042b 0000 0000 | | .BLANK 0000[0x5]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0435 | 5 | .CONST 0x0435 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0002 | | .CONST 0x0002 ; Number of locals
0433 INIT_0430:
0433 00e1 | | Load_Encached Boolean_Cache
0434 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0435 BODY_0430:
0435 e5fc | | Load 0x2,-0x4
0436 6828 |h( | Jump_Zero 0x45f
0437 00db | | Load_Top At_Offset_3
0438 e002 | | Load 0x0,0x2
0439 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
043a 8249 | I | Call 0x1,0x49
043b e5fd | | Load 0x2,-0x3
043c 01d7 | | Execute Vector,Field_Read
043d 6837 |h7 | Jump_Zero 0x475
043e e5fe | | Load 0x2,-0x2
043f 0f03 | | Execute_Immediate Equal,0x3
0440 700c |p | Jump_Nonzero 0x44d
0441 00db | | Load_Top At_Offset_3
0442 e002 | | Load 0x0,0x2
0443 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0444 0f03 | | Execute_Immediate Equal,0x3
0445 7007 |p | Jump_Nonzero 0x44d
0446 e5fe | | Load 0x2,-0x2
0447 e7ff | | Load 0x3,-0x1
0448 e002 | | Load 0x0,0x2
0449 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
044a 8247 | G | Call 0x1,0x47
044b 027f | | Execute Discrete,Equal
044c 6828 |h( | Jump_Zero 0x475
044d 00db | | Load_Top At_Offset_3
044e e002 | | Load 0x0,0x2
044f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0450 680b |h | Jump_Zero 0x45c
0451 e5f8 | | Load 0x2,-0x8
0452 e5f9 | | Load 0x2,-0x7
0453 e5fb | | Load 0x2,-0x5
0454 e7ff | | Load 0x3,-0x1
0455 e002 | | Load 0x0,0x2
0456 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0457 e5ff | | Load 0x2,-0x1
0458 e5fa | | Load 0x2,-0x6
0459 e00b | | Load 0x0,0xb
045a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
045b 6819 |h | Jump_Zero 0x475
045c 4801 |H | Short_Literal 0x1
045d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
045e 7816 |x | Jump 0x475
045f 4802 |H | Short_Literal 0x2
0460 e5fd | | Load 0x2,-0x3
0461 01d7 | | Execute Vector,Field_Read
0462 6809 |h | Jump_Zero 0x46c
0463 00db | | Load_Top At_Offset_3
0464 e002 | | Load 0x0,0x2
0465 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0466 8247 | G | Call 0x1,0x47
0467 e5fe | | Load 0x2,-0x2
0468 027f | | Execute Discrete,Equal
0469 680b |h | Jump_Zero 0x475
046a 4801 |H | Short_Literal 0x1
046b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
046c 00db | | Load_Top At_Offset_3
046d e002 | | Load 0x0,0x2
046e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
046f 8249 | I | Call 0x1,0x49
0470 e5fd | | Load 0x2,-0x3
0471 01d7 | | Execute Vector,Field_Read
0472 6802 |h | Jump_Zero 0x475
0473 4801 |H | Short_Literal 0x1
0474 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0475 00d8 | | Load_Top At_Offset_0
0476 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0477 0000 | | .XXX[0x1]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0483 | | .CONST 0x0483 ; Address of begin
0479 048b | | .CONST 0x048b ; Address of exception handler
047a 0002 | | .CONST 0x0002 ; Number of locals
047b INIT_0478:
047b e5fc | | Load 0x2,-0x4
047c e009 | | Load 0x0,0x9
047d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
047e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
047f e406 | | Load 0x2,0x6
0480 e402 | | Load 0x2,0x2
0481 01d7 | | Execute Vector,Field_Read
0482 824a | J | Call 0x1,0x4a
0483 BODY_0478:
0483 00ea | | Load_Encached Null_String_Cache
0484 0092 054d | M| Action Push_String_Extended,0x54d ; "<WORLDS>"
0486 4801 |H | Short_Literal 0x1
0487 00db | | Load_Top At_Offset_3
0488 e00d | | Load 0x0,0xd
0489 181c | | Execute Package,Field_Execute,Field_Number 0x1c
048a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
048b TRAP_0478:
048b 0007 | | Action Break_Optional
048c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
048d 0000 0000 | | .XXX[0x3]
048f 0000 | |
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 04a9 | | .CONST 0x04a9 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0004 | | .CONST 0x0004 ; Number of locals
0493 INIT_0490:
0493 e002 | | Load 0x0,0x2
0494 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0495 02c7 | | Declare_Variable Any
0496 e40b | | Load 0x2,0xb
0497 e402 | | Load 0x2,0x2
0498 01d7 | | Execute Vector,Field_Read
0499 a602 | | Store_Unchecked 0x3,0x2
049a e5fc | | Load 0x2,-0x4
049b e009 | | Load 0x0,0x9
049c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
049d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
049e 00d9 | | Load_Top At_Offset_1
049f 824a | J | Call 0x1,0x4a
04a0 e5f6 | | Load 0x2,-0xa
04a1 e5f7 | | Load 0x2,-0x9
04a2 e5f8 | | Load 0x2,-0x8
04a3 e5fa | | Load 0x2,-0x6
04a4 e5fb | | Load 0x2,-0x5
04a5 e5fc | | Load 0x2,-0x4
04a6 e5ff | | Load 0x2,-0x1
04a7 e602 | | Load 0x3,0x2
04a8 8250 | P | Call 0x1,0x50
04a9 BODY_0490:
04a9 4801 |H | Short_Literal 0x1
04aa 0092 054e | N| Action Push_String_Extended,0x54e ; "exe"
04ac e602 | | Load 0x3,0x2
04ad e002 | | Load 0x0,0x2
04ae 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04af e00a | | Load 0x0,0xa
04b0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04b1 6804 |h | Jump_Zero 0x4b6
04b2 e5f9 | | Load 0x2,-0x7
04b3 01db | | Execute Vector,Length
04b4 6801 |h | Jump_Zero 0x4b6
04b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b6 e405 | | Load 0x2,0x5
04b7 6820 |h | Jump_Zero 0x4d8
04b8 e00c | | Load 0x0,0xc
04b9 180e | | Execute Package,Field_Execute,Field_Number 0xe
04ba 4801 |H | Short_Literal 0x1
04bb 4801 |H | Short_Literal 0x1
04bc e005 | | Load 0x0,0x5
04bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04be 035b | [ | Declare_Type Array,Constrained
04bf 0337 | 7 | Declare_Variable Array
04c0 0092 054f | O| Action Push_String_Extended,0x54f ; "Not retrieving host file \x22"
04c2 e603 | | Load 0x3,0x3
04c3 01cc | | Execute Vector,Catenate
04c4 0092 0550 | P| Action Push_String_Extended,0x550 ; "\x22 from remote file \x22"
04c6 01cc | | Execute Vector,Catenate
04c7 00db | | Load_Top At_Offset_3
04c8 01cc | | Execute Vector,Catenate
04c9 0092 0551 | Q| Action Push_String_Extended,0x551 ; "\x22"
04cb 01cc | | Execute Vector,Catenate
04cc e005 | | Load 0x0,0x5
04cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04ce e005 | | Load 0x0,0x5
04cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04d0 0119 | | Execute Any,Check_In_Formal_Type
04d1 4801 |H | Short_Literal 0x1
04d2 00da | | Load_Top At_Offset_2
04d3 01d6 | | Execute Vector,Field_Write
04d4 601b |` | Indirect_Literal Discrete,0x4f0,{0x00000000, 0x0000818f}
04d5 e003 | | Load 0x0,0x3
04d6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04d8 e003 | | Load 0x0,0x3
04d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04da e406 | | Load 0x2,0x6
04db e602 | | Load 0x3,0x2
04dc e002 | | Load 0x0,0x2
04dd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04de 8253 | S | Call 0x1,0x53
04df e5f5 | | Load 0x2,-0xb
04e0 e604 | | Load 0x3,0x4
04e1 e603 | | Load 0x3,0x3
04e2 e00e | | Load 0x0,0xe
04e3 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04e4 c403 | | Store 0x2,0x3
04e5 4800 |H | Short_Literal 0x0
04e6 e403 | | Load 0x2,0x3
04e7 e003 | | Load 0x0,0x3
04e8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
04e9 7005 |p | Jump_Nonzero 0x4ef
04ea e5f6 | | Load 0x2,-0xa
04eb 4806 |H | Short_Literal 0x6
04ec e403 | | Load 0x2,0x3
04ed e003 | | Load 0x0,0x3
04ee 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
04ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04f0 0000 0000 | | .LITERAL {0x00000000, 0x0000818f}
04f4 0000 0000 | | .BLANK 0000[0x4]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 050a | | .CONST 0x050a ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0003 | | .CONST 0x0003 ; Number of locals
04fb INIT_04f8:
04fb e5fc | | Load 0x2,-0x4
04fc e009 | | Load 0x0,0x9
04fd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04fe 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04ff 0092 0552 | R| Action Push_String_Extended,0x552 ; ".<EXE>"
0501 01cc | | Execute Vector,Catenate
0502 0007 | | Action Break_Optional
0503 e5fa | | Load 0x2,-0x6
0504 e5f9 | | Load 0x2,-0x7
0505 e5ff | | Load 0x2,-0x1
0506 e008 | | Load 0x0,0x8
0507 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0508 e008 | | Load 0x0,0x8
0509 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
050a BODY_04f8:
050a e405 | | Load 0x2,0x5
050b 6820 |h | Jump_Zero 0x52c
050c e00c | | Load 0x0,0xc
050d 180e | | Execute Package,Field_Execute,Field_Number 0xe
050e 4801 |H | Short_Literal 0x1
050f 4801 |H | Short_Literal 0x1
0510 e005 | | Load 0x0,0x5
0511 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0512 035b | [ | Declare_Type Array,Constrained
0513 0337 | 7 | Declare_Variable Array
0514 0092 054f | O| Action Push_String_Extended,0x54f ; "Not retrieving host file \x22"
0516 e602 | | Load 0x3,0x2
0517 01cc | | Execute Vector,Catenate
0518 0092 0553 | S| Action Push_String_Extended,0x553 ; "\x22 from remote executable \x22"
051a 01cc | | Execute Vector,Catenate
051b 00db | | Load_Top At_Offset_3
051c 01cc | | Execute Vector,Catenate
051d 0092 0551 | Q| Action Push_String_Extended,0x551 ; "\x22"
051f 01cc | | Execute Vector,Catenate
0520 e005 | | Load 0x0,0x5
0521 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0522 e005 | | Load 0x0,0x5
0523 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0524 0119 | | Execute Any,Check_In_Formal_Type
0525 4801 |H | Short_Literal 0x1
0526 00da | | Load_Top At_Offset_2
0527 01d6 | | Execute Vector,Field_Write
0528 67c7 |g | Indirect_Literal Discrete,0x4f0,{0x00000000, 0x0000818f}
0529 e003 | | Load 0x0,0x3
052a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
052b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
052c e003 | | Load 0x0,0x3
052d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
052e e406 | | Load 0x2,0x6
052f 4801 |H | Short_Literal 0x1
0530 e5f5 | | Load 0x2,-0xb
0531 e603 | | Load 0x3,0x3
0532 e602 | | Load 0x3,0x2
0533 e00e | | Load 0x0,0xe
0534 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0535 c403 | | Store 0x2,0x3
0536 4800 |H | Short_Literal 0x0
0537 e403 | | Load 0x2,0x3
0538 e003 | | Load 0x0,0x3
0539 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
053a 7005 |p | Jump_Nonzero 0x540
053b e5f6 | | Load 0x2,-0xa
053c 4806 |H | Short_Literal 0x6
053d e403 | | Load 0x2,0x3
053e e003 | | Load 0x0,0x3
053f 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0540 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0541 ; --------------------------------------------------------------------------------------
0541 ; STRING TABLE
0541 ; --------------------------------------------------------------------------------------
0541 0028 | ( | .STRTAB 0x0028->0x0555 ; "Associated_Files.Check_Files"
0542 0042 | B | .STRTAB 0x0042->0x0563 ; "Associated_Files.Destroy_And_Retrieve"
0543 0065 | e | .STRTAB 0x0065->0x0575 ; ".<"
0544 0065 | e | .STRTAB 0x0065->0x0576 ; ">"
0545 0064 | d | .STRTAB 0x0064->0x0577 ; "&"
0546 0063 | c | .STRTAB 0x0063->0x0577 ; "Associated_Files.Filter"
0547 0078 | x | .STRTAB 0x0078->0x0583 ; "Associated_Files.Filter_And_Destroy"
0548 0099 | | .STRTAB 0x0099->0x0594 ; "Associated_Files.Filter_And_Retrieve"
0549 00bb | | .STRTAB 0x00bb->0x05a6 ; "Associated_Files.Check_File"
054a 00d4 | | .STRTAB 0x00d4->0x05b4 ; "."
054b 00d3 | | .STRTAB 0x00d3->0x05b4 ; "'"
054c 00d2 | | .STRTAB 0x00d2->0x05b5 ; "'spec"
054d 00d5 | | .STRTAB 0x00d5->0x05b7 ; "<WORLDS>"
054e 00db | | .STRTAB 0x00db->0x05bb ; "exe"
054f 00dc | | .STRTAB 0x00dc->0x05bd ; "Not retrieving host file \x22"
0550 00f4 | | .STRTAB 0x00f4->0x05ca ; "\x22 from remote file \x22"
0551 0106 | | .STRTAB 0x0106->0x05d4 ; "\x22"
0552 0105 | | .STRTAB 0x0105->0x05d4 ; ".<EXE>"
0553 0109 | | .STRTAB 0x0109->0x05d7 ; "\x22 from remote executable \x22"
0554 0121 | ! | .STREND 0x0121->0x05e4
0555 4173 736f |Asso| .STRTAB_STRINGS
05e5 0000 0000 | | .XXX[0x3]
05e7 0000 | |
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug Table
05e8 ; --------------------------------------------------------------------------------------
05e8 0004 000d | | .DEBUG4 0x0004,0x000d,0xf667,0x0000,0x0001,0x0000
05ee f000 0000 | | .XXX[0x12]
05f0 0000 0000 | |
05f2 0009 c200 | |
05f4 2800 0a11 |( |
05f6 a013 83d2 | |
05f8 d013 8412 | |
05fa d000 0000 | |
05fc 0009 c200 | |
05fe 2800 cc0e |( |