|
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 |( |