|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 05d0 | | .CONST 0x05d0 ; 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 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call 005e 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call 0060 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 0062 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call 0064 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call 0066 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call 0068 029d 0313 | | Declare_Subprogram INIT_0310,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 0094 | | .CONST 0x0094 ; 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 7010 |p | Jump_Nonzero 0x93 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 00db | | Load_Top At_Offset_3 008c 6804 |h | Jump_Zero 0x91 008d 00db | | Load_Top At_Offset_3 008e a5fd | | Store_Unchecked 0x2,-0x3 008f 00d2 | | Pop_Control Pop_Count_2 0090 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0091 00c8 | | Action Pop_Auxiliary_Range 0092 3ff0 |? | Loop_Increasing 0x83 0093 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0094 TRAP_0070: 0094 0007 | | Action Break_Optional 0095 e5fe | | Load 0x2,-0x2 0096 0092 0525 | %| Action Push_String_Extended,0x525 ; "Associated_Files.Check_Files" 0098 e004 | | Load 0x0,0x4 0099 180f | | Execute Package,Field_Execute,Field_Number 0xf 009a e005 | | Load 0x0,0x5 009b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 009c 6007 |` | Indirect_Literal Discrete,0xa4,{0x00000000, 0x0000813b} 009d e003 | | Load 0x0,0x3 009e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009f a5fd | | Store_Unchecked 0x2,-0x3 00a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a1 0000 0000 | | .XXX[0x3] 00a3 0000 | | 00a4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ae | | .CONST 0x00ae ; Address of begin 00a9 011e | | .CONST 0x011e ; 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 7019 |p | Jump_Nonzero 0xd3 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 0334 | 4 | Declare_Variable Array,With_Constraint 00c0 e5fc | | Load 0x2,-0x4 00c1 e007 | | Load 0x0,0x7 00c2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00c3 e005 | | Load 0x0,0x5 00c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c5 0119 | | Execute Any,Check_In_Formal_Type 00c6 4801 |H | Short_Literal 0x1 00c7 00da | | Load_Top At_Offset_2 00c8 01d6 | | Execute Vector,Field_Write 00c9 6066 |`f | Indirect_Literal Discrete,0x130,{0x00000000, 0x000081c3} 00ca e003 | | Load 0x0,0x3 00cb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00cc e005 | | Load 0x0,0x5 00cd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00ce 6061 |`a | Indirect_Literal Discrete,0x130,{0x00000000, 0x000081c3} 00cf e003 | | Load 0x0,0x3 00d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d1 a5f2 | | Store_Unchecked 0x2,-0xe 00d2 450d |E | Exit_Suprogram New_Top_Offset 0xd 00d3 e5f4 | | Load 0x2,-0xc 00d4 e5f5 | | Load 0x2,-0xb 00d5 e5f6 | | Load 0x2,-0xa 00d6 e5fc | | Load 0x2,-0x4 00d7 e5fd | | Load 0x2,-0x3 00d8 e5fe | | Load 0x2,-0x2 00d9 e5ff | | Load 0x2,-0x1 00da 8252 | R | Call 0x1,0x52 00db 4802 |H | Short_Literal 0x2 00dc e5fd | | Load 0x2,-0x3 00dd 01d7 | | Execute Vector,Field_Read 00de 7014 |p | Jump_Nonzero 0xf3 00df 00d8 | | Load_Top At_Offset_0 00e0 e5f3 | | Load 0x2,-0xd 00e1 e5f4 | | Load 0x2,-0xc 00e2 e5f5 | | Load 0x2,-0xb 00e3 e5f6 | | Load 0x2,-0xa 00e4 e5f7 | | Load 0x2,-0x9 00e5 e5fa | | Load 0x2,-0x6 00e6 e5fb | | Load 0x2,-0x5 00e7 e5ff | | Load 0x2,-0x1 00e8 e008 | | Load 0x0,0x8 00e9 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00ea e008 | | Load 0x0,0x8 00eb 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 00ec e5fc | | Load 0x2,-0x4 00ed e5fd | | Load 0x2,-0x3 00ee e5fe | | Load 0x2,-0x2 00ef e5ff | | Load 0x2,-0x1 00f0 8254 | T | Call 0x1,0x54 00f1 c5f3 | | Store 0x2,-0xd 00f2 0059 | Y | Store_Top Discrete,At_Offset_1 00f3 00d8 | | Load_Top At_Offset_0 00f4 6803 |h | Jump_Zero 0xf8 00f5 00d8 | | Load_Top At_Offset_0 00f6 a5f2 | | Store_Unchecked 0x2,-0xe 00f7 450d |E | Exit_Suprogram New_Top_Offset 0xd 00f8 00db | | Load_Top At_Offset_3 00f9 e5fd | | Load 0x2,-0x3 00fa e5fe | | Load 0x2,-0x2 00fb e5f3 | | Load 0x2,-0xd 00fc e5fa | | Load 0x2,-0x6 00fd e5f9 | | Load 0x2,-0x7 00fe e5f8 | | Load 0x2,-0x8 00ff e5fb | | Load 0x2,-0x5 0100 e5fc | | Load 0x2,-0x4 0101 e006 | | Load 0x0,0x6 0102 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0103 7019 |p | Jump_Nonzero 0x11d 0104 e5f4 | | Load 0x2,-0xc 0105 4801 |H | Short_Literal 0x1 0106 4801 |H | Short_Literal 0x1 0107 e005 | | Load 0x0,0x5 0108 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0109 0334 | 4 | Declare_Variable Array,With_Constraint 010a e5fc | | Load 0x2,-0x4 010b e007 | | Load 0x0,0x7 010c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 010d e005 | | Load 0x0,0x5 010e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010f 0119 | | Execute Any,Check_In_Formal_Type 0110 4801 |H | Short_Literal 0x1 0111 00da | | Load_Top At_Offset_2 0112 01d6 | | Execute Vector,Field_Write 0113 6018 |` | Indirect_Literal Discrete,0x12c,{0x00000000, 0x000081c4} 0114 e003 | | Load 0x0,0x3 0115 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0116 e005 | | Load 0x0,0x5 0117 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0118 6013 |` | Indirect_Literal Discrete,0x12c,{0x00000000, 0x000081c4} 0119 e003 | | Load 0x0,0x3 011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011b a5f2 | | Store_Unchecked 0x2,-0xe 011c 450d |E | Exit_Suprogram New_Top_Offset 0xd 011d 450d |E | Exit_Suprogram New_Top_Offset 0xd 011e TRAP_00a8: 011e 0007 | | Action Break_Optional 011f e5f4 | | Load 0x2,-0xc 0120 0092 0526 | &| Action Push_String_Extended,0x526 ; "Associated_Files.Destroy_And_Retrieve" 0122 e004 | | Load 0x0,0x4 0123 180f | | Execute Package,Field_Execute,Field_Number 0xf 0124 e005 | | Load 0x0,0x5 0125 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0126 677d |g} | Indirect_Literal Discrete,0xa4,{0x00000000, 0x0000813b} 0127 e003 | | Load 0x0,0x3 0128 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0129 a5f2 | | Store_Unchecked 0x2,-0xe 012a 450d |E | Exit_Suprogram New_Top_Offset 0xd 012b 0000 | | .XXX[0x1] 012c 0000 0000 | | .LITERAL {0x00000000, 0x000081c4} 0130 0000 0000 | | .LITERAL {0x00000000, 0x000081c3} 0134 0000 0000 | | .BLANK 0000[0x4] 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 0527 | '| Action Push_String_Extended,0x527 ; ".<" 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 0528 | (| Action Push_String_Extended,0x528 ; ">" 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 0393 | | Declare_Subprogram INIT_0390,For_Call 018e 029f 03cb | | Declare_Subprogram INIT_03c8,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 0529 | )| Action Push_String_Extended,0x529 ; "&" 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 0529 | )| Action Push_String_Extended,0x529 ; "&" 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 7809 |x | Jump 0x1e1 ; 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 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01e1 e5fc | | Load 0x2,-0x4 01e2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01fb | | .CONST 0x01fb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0005 | | .CONST 0x0005 ; Number of locals 01eb INIT_01e8: 01eb e002 | | Load 0x0,0x2 01ec 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 01ed 02c7 | | Declare_Variable Any 01ee 00db | | Load_Top At_Offset_3 01ef e001 | | Load 0x0,0x1 01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f1 a402 | | Store_Unchecked 0x2,0x2 01f2 00d8 | | Load_Top At_Offset_0 01f3 e002 | | Load 0x0,0x2 01f4 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 01f5 00d9 | | Load_Top At_Offset_1 01f6 e002 | | Load 0x0,0x2 01f7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01f8 00da | | Load_Top At_Offset_2 01f9 e002 | | Load 0x0,0x2 01fa 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 01fb BODY_01e8: 01fb e5fd | | Load 0x2,-0x3 01fc 01db | | Execute Vector,Length 01fd 7002 |p | Jump_Nonzero 0x200 01fe e5fe | | Load 0x2,-0x2 01ff 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0200 e5fe | | Load 0x2,-0x2 0201 01dd | | Execute Vector,First 0202 e5fe | | Load 0x2,-0x2 0203 01dc | | Execute Vector,Last 0204 00db | | Load_Top At_Offset_3 0205 01db | | Execute Vector,Length 0206 0272 | r | Execute Discrete,Minus 0207 00d8 | | Load_Top At_Offset_0 0208 00e2 | | Load_Encached Integer_Cache 0209 0260 | ` | Execute Discrete,In_Type 020a 7001 |p | Jump_Nonzero 0x20c 020b 0801 | | Execute_Immediate Raise,0x1 020c e5fe | | Load 0x2,-0x2 020d 01cf | | Execute Vector,Slice_Read 020e e5fd | | Load 0x2,-0x3 020f 01dd | | Execute Vector,First 0210 e403 | | Load 0x2,0x3 0211 01db | | Execute Vector,Length 0212 0273 | s | Execute Discrete,Plus 0213 00d8 | | Load_Top At_Offset_0 0214 00e2 | | Load_Encached Integer_Cache 0215 0260 | ` | Execute Discrete,In_Type 0216 7001 |p | Jump_Nonzero 0x218 0217 0801 | | Execute_Immediate Raise,0x1 0218 e5fd | | Load 0x2,-0x3 0219 01dc | | Execute Vector,Last 021a e5fd | | Load 0x2,-0x3 021b 01cf | | Execute Vector,Slice_Read 021c 01cc | | Execute Vector,Catenate 021d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 021e 0000 0000 | | .XXX[0x2] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022f | / | .CONST 0x022f ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0004 | | .CONST 0x0004 ; Number of locals 0223 INIT_0220: 0223 e008 | | Load 0x0,0x8 0224 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0225 0322 | " | Declare_Variable Record 0226 e5fe | | Load 0x2,-0x2 0227 e008 | | Load 0x0,0x8 0228 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0229 00d9 | | Load_Top At_Offset_1 022a 017d | } | Execute Record,Structure_Write 022b 00db | | Load_Top At_Offset_3 022c 824c | L | Call 0x1,0x4c 022d 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call 022f BODY_0220: 022f e5ff | | Load 0x2,-0x1 0230 e002 | | Load 0x0,0x2 0231 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0232 e5ff | | Load 0x2,-0x1 0233 e002 | | Load 0x0,0x2 0234 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0235 0279 | y | Execute Discrete,And 0236 6801 |h | Jump_Zero 0x238 0237 8404 | | Call 0x2,0x4 0238 00d9 | | Load_Top At_Offset_1 0239 e5fb | | Load 0x2,-0x5 023a e5fe | | Load 0x2,-0x2 023b 824f | O | Call 0x1,0x4f 023c e5fc | | Load 0x2,-0x4 023d e5fd | | Load 0x2,-0x3 023e e5ff | | Load 0x2,-0x1 023f e5fe | | Load 0x2,-0x2 0240 824e | N | Call 0x1,0x4e 0241 e5ff | | Load 0x2,-0x1 0242 e002 | | Load 0x0,0x2 0243 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0244 e402 | | Load 0x2,0x2 0245 e008 | | Load 0x0,0x8 0246 187c | | | Execute Package,Field_Execute,Field_Number 0x7c 0247 01cc | | Execute Vector,Catenate 0248 e402 | | Load 0x2,0x2 0249 e008 | | Load 0x0,0x8 024a 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 024b 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 026e | n | .CONST 0x026e ; Address of begin 0251 0285 | | .CONST 0x0285 ; Address of exception handler 0252 0006 | | .CONST 0x0006 ; Number of locals 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 e001 | | Load 0x0,0x1 0255 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0256 e002 | | Load 0x0,0x2 0257 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 0258 011e | | Execute Any,Convert 0259 00d8 | | Load_Top At_Offset_0 025a e002 | | Load 0x0,0x2 025b 1861 | a | Execute Package,Field_Execute,Field_Number 0x61 025c 00e3 | | Load_Encached Natural_Cache 025d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 025e 4801 |H | Short_Literal 0x1 025f 00da | | Load_Top At_Offset_2 0260 01db | | Execute Vector,Length 0261 00d8 | | Load_Top At_Offset_0 0262 00e2 | | Load_Encached Integer_Cache 0263 0260 | ` | Execute Discrete,In_Type 0264 7001 |p | Jump_Nonzero 0x266 0265 0801 | | Execute_Immediate Raise,0x1 0266 e002 | | Load 0x0,0x2 0267 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0268 035b | [ | Declare_Type Array,Constrained 0269 0337 | 7 | Declare_Variable Array 026a 00d8 | | Load_Top At_Offset_0 026b 1c00 | | Execute_Immediate Run_Utility,0x0 026c 029f 041b | | Declare_Subprogram INIT_0418,For_Call 026e BODY_0250: 026e 4802 |H | Short_Literal 0x2 026f e5fd | | Load 0x2,-0x3 0270 01d7 | | Execute Vector,Field_Read 0271 6802 |h | Jump_Zero 0x274 0272 00db | | Load_Top At_Offset_3 0273 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 0274 00cf | | Action Mark_Auxiliary 0275 e403 | | Load 0x2,0x3 0276 01d9 | | Execute Vector,Reverse_Bounds 0277 0263 | c | Execute Discrete,Above_Bound 0278 7003 |p | Jump_Nonzero 0x27c 0279 8406 | | Call 0x2,0x6 027a 00c8 | | Action Pop_Auxiliary_Range 027b 3ffd |? | Loop_Increasing 0x279 027c 00ce | | Action Pop_Auxiliary 027d 4801 |H | Short_Literal 0x1 027e 00db | | Load_Top At_Offset_3 027f 00db | | Load_Top At_Offset_3 0280 01cf | | Execute Vector,Slice_Read 0281 e002 | | Load 0x0,0x2 0282 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0283 01c6 | | Execute Vector,Convert_To_Formal 0284 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 0285 TRAP_0250: 0285 0007 | | Action Break_Optional 0286 e5f8 | | Load 0x2,-0x8 0287 0092 052a | *| Action Push_String_Extended,0x52a ; "Associated_Files.Filter" 0289 e004 | | Load 0x0,0x4 028a 180f | | Execute Package,Field_Execute,Field_Number 0xf 028b 4801 |H | Short_Literal 0x1 028c 4800 |H | Short_Literal 0x0 028d e405 | | Load 0x2,0x5 028e 01cf | | Execute Vector,Slice_Read 028f e002 | | Load 0x0,0x2 0290 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0291 01c6 | | Execute Vector,Convert_To_Formal 0292 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a6 | | .CONST 0x02a6 ; Address of begin 0299 02af | | .CONST 0x02af ; Address of exception handler 029a 0003 | | .CONST 0x0003 ; Number of locals 029b INIT_0298: 029b e5f9 | | Load 0x2,-0x7 029c e5fa | | Load 0x2,-0x6 029d e5fb | | Load 0x2,-0x5 029e e5fc | | Load 0x2,-0x4 029f 4800 |H | Short_Literal 0x0 02a0 e5fd | | Load 0x2,-0x3 02a1 e5fe | | Load 0x2,-0x2 02a2 e5ff | | Load 0x2,-0x1 02a3 8251 | Q | Call 0x1,0x51 02a4 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call 02a6 BODY_0298: 02a6 00cf | | Action Mark_Auxiliary 02a7 00da | | Load_Top At_Offset_2 02a8 01d9 | | Execute Vector,Reverse_Bounds 02a9 0263 | c | Execute Discrete,Above_Bound 02aa 7003 |p | Jump_Nonzero 0x2ae 02ab 8403 | | Call 0x2,0x3 02ac 00c8 | | Action Pop_Auxiliary_Range 02ad 3ffd |? | Loop_Increasing 0x2ab 02ae 4508 |E | Exit_Suprogram New_Top_Offset 0x8 02af TRAP_0298: 02af 0007 | | Action Break_Optional 02b0 e5f9 | | Load 0x2,-0x7 02b1 0092 052b | +| Action Push_String_Extended,0x52b ; "Associated_Files.Filter_And_Destroy" 02b3 e004 | | Load 0x0,0x4 02b4 180f | | Execute Package,Field_Execute,Field_Number 0xf 02b5 4508 |E | Exit_Suprogram New_Top_Offset 0x8 02b6 0000 0000 | | .XXX[0x2] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 0f01 | | Execute_Immediate Equal,0x1 02bd 6802 |h | Jump_Zero 0x2c0 02be 4801 |H | Short_Literal 0x1 02bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c0 4800 |H | Short_Literal 0x0 02c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c2 0000 0000 | | .BLANK 0000[0x6] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02f0 | | .CONST 0x02f0 ; Address of begin 02c9 02fe | | .CONST 0x02fe ; Address of exception handler 02ca 0008 | | .CONST 0x0008 ; Number of locals 02cb INIT_02c8: 02cb e5f6 | | Load 0x2,-0xa 02cc e5f7 | | Load 0x2,-0x9 02cd e5f8 | | Load 0x2,-0x8 02ce e5fc | | Load 0x2,-0x4 02cf 4801 |H | Short_Literal 0x1 02d0 e5fd | | Load 0x2,-0x3 02d1 e5fe | | Load 0x2,-0x2 02d2 e5ff | | Load 0x2,-0x1 02d3 8251 | Q | Call 0x1,0x51 02d4 e003 | | Load 0x0,0x3 02d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02d7 e009 | | Load 0x0,0x9 02d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02d9 02c7 | | Declare_Variable Any 02da e5f6 | | Load 0x2,-0xa 02db 4800 |H | Short_Literal 0x0 02dc e5fc | | Load 0x2,-0x4 02dd e007 | | Load 0x0,0x7 02de 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02df a404 | | Store_Unchecked 0x2,0x4 02e0 e5f6 | | Load 0x2,-0xa 02e1 00d9 | | Load_Top At_Offset_1 02e2 e007 | | Load 0x0,0x7 02e3 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 02e4 00e1 | | Load_Encached Boolean_Cache 02e5 03f1 | | Declare_Variable Discrete,With_Value 02e6 e5f6 | | Load 0x2,-0xa 02e7 00da | | Load_Top At_Offset_2 02e8 e007 | | Load 0x0,0x7 02e9 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 02ea 00e1 | | Load_Encached Boolean_Cache 02eb 03f1 | | Declare_Variable Discrete,With_Value 02ec 029f 047b | {| Declare_Subprogram INIT_0478,For_Call 02ee 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 02f0 BODY_02c8: 02f0 00cf | | Action Mark_Auxiliary 02f1 e402 | | Load 0x2,0x2 02f2 01d9 | | Execute Vector,Reverse_Bounds 02f3 0263 | c | Execute Discrete,Above_Bound 02f4 7003 |p | Jump_Nonzero 0x2f8 02f5 8407 | | Call 0x2,0x7 02f6 00c8 | | Action Pop_Auxiliary_Range 02f7 3ffd |? | Loop_Increasing 0x2f5 02f8 00ce | | Action Pop_Auxiliary 02f9 e5f9 | | Load 0x2,-0x7 02fa 01db | | Execute Vector,Length 02fb 6801 |h | Jump_Zero 0x2fd 02fc 8408 | | Call 0x2,0x8 02fd 450b |E | Exit_Suprogram New_Top_Offset 0xb 02fe TRAP_02c8: 02fe 0007 | | Action Break_Optional 02ff e5f6 | | Load 0x2,-0xa 0300 0092 052c | ,| Action Push_String_Extended,0x52c ; "Associated_Files.Filter_And_Retrieve" 0302 e004 | | Load 0x0,0x4 0303 180f | | Execute Package,Field_Execute,Field_Number 0xf 0304 e005 | | Load 0x0,0x5 0305 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0306 6005 |` | Indirect_Literal Discrete,0x30c,{0x00000000, 0x0000813b} 0307 e003 | | Load 0x0,0x3 0308 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0309 a5f4 | | Store_Unchecked 0x2,-0xc 030a 450b |E | Exit_Suprogram New_Top_Offset 0xb 030b 0000 | | .XXX[0x1] 030c 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 037b | { | .CONST 0x037b ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00db | | Load_Top At_Offset_3 0314 e002 | | Load 0x0,0x2 0315 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0316 6863 |hc | Jump_Zero 0x37a 0317 e5fd | | Load 0x2,-0x3 0318 e5fe | | Load 0x2,-0x2 0319 e002 | | Load 0x0,0x2 031a 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 031b e5ff | | Load 0x2,-0x1 031c e00b | | Load 0x0,0xb 031d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 031e 7028 |p( | Jump_Nonzero 0x347 031f e00c | | Load 0x0,0xc 0320 180e | | Execute Package,Field_Execute,Field_Number 0xe 0321 4801 |H | Short_Literal 0x1 0322 4802 |H | Short_Literal 0x2 0323 e005 | | Load 0x0,0x5 0324 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0325 0334 | 4 | Declare_Variable Array,With_Constraint 0326 e5fe | | Load 0x2,-0x2 0327 e002 | | Load 0x0,0x2 0328 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0329 e005 | | Load 0x0,0x5 032a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 032b e005 | | Load 0x0,0x5 032c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 032d 0119 | | Execute Any,Check_In_Formal_Type 032e 4801 |H | Short_Literal 0x1 032f 00da | | Load_Top At_Offset_2 0330 01d6 | | Execute Vector,Field_Write 0331 e5fe | | Load 0x2,-0x2 0332 e002 | | Load 0x0,0x2 0333 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0334 e005 | | Load 0x0,0x5 0335 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0336 e005 | | Load 0x0,0x5 0337 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0338 0119 | | Execute Any,Check_In_Formal_Type 0339 4802 |H | Short_Literal 0x2 033a 00da | | Load_Top At_Offset_2 033b 01d6 | | Execute Vector,Field_Write 033c 4806 |H | Short_Literal 0x6 033d 604e |`N | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0000814a} 033e e003 | | Load 0x0,0x3 033f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0340 e005 | | Load 0x0,0x5 0341 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0342 6049 |`I | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0000814a} 0343 e003 | | Load 0x0,0x3 0344 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0345 a5fc | | Store_Unchecked 0x2,-0x4 0346 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0347 00db | | Load_Top At_Offset_3 0348 e002 | | Load 0x0,0x2 0349 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 034a 682f |h/ | Jump_Zero 0x37a 034b e5fd | | Load 0x2,-0x3 034c e5fe | | Load 0x2,-0x2 034d e002 | | Load 0x0,0x2 034e 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 034f e5ff | | Load 0x2,-0x1 0350 e00b | | Load 0x0,0xb 0351 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0352 7027 |p' | Jump_Nonzero 0x37a 0353 e00c | | Load 0x0,0xc 0354 180e | | Execute Package,Field_Execute,Field_Number 0xe 0355 4801 |H | Short_Literal 0x1 0356 4802 |H | Short_Literal 0x2 0357 e005 | | Load 0x0,0x5 0358 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0359 0334 | 4 | Declare_Variable Array,With_Constraint 035a e5fe | | Load 0x2,-0x2 035b e002 | | Load 0x0,0x2 035c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 035d e005 | | Load 0x0,0x5 035e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 035f e005 | | Load 0x0,0x5 0360 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0361 0119 | | Execute Any,Check_In_Formal_Type 0362 4801 |H | Short_Literal 0x1 0363 00da | | Load_Top At_Offset_2 0364 01d6 | | Execute Vector,Field_Write 0365 e5fe | | Load 0x2,-0x2 0366 e002 | | Load 0x0,0x2 0367 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0368 e005 | | Load 0x0,0x5 0369 1810 | | Execute Package,Field_Execute,Field_Number 0x10 036a e005 | | Load 0x0,0x5 036b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 036c 0119 | | Execute Any,Check_In_Formal_Type 036d 4802 |H | Short_Literal 0x2 036e 00da | | Load_Top At_Offset_2 036f 01d6 | | Execute Vector,Field_Write 0370 4806 |H | Short_Literal 0x6 0371 6016 |` | Indirect_Literal Discrete,0x388,{0x00000000, 0x0000814b} 0372 e003 | | Load 0x0,0x3 0373 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0374 e005 | | Load 0x0,0x5 0375 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0376 6011 |` | Indirect_Literal Discrete,0x388,{0x00000000, 0x0000814b} 0377 e003 | | Load 0x0,0x3 0378 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0379 a5fc | | Store_Unchecked 0x2,-0x4 037a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 037b TRAP_0310: 037b 0007 | | Action Break_Optional 037c e5fd | | Load 0x2,-0x3 037d 0092 052d | -| Action Push_String_Extended,0x52d ; "Associated_Files.Check_File" 037f e004 | | Load 0x0,0x4 0380 180f | | Execute Package,Field_Execute,Field_Number 0xf 0381 e005 | | Load 0x0,0x5 0382 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0383 6788 |g | Indirect_Literal Discrete,0x30c,{0x00000000, 0x0000813b} 0384 e003 | | Load 0x0,0x3 0385 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0386 a5fc | | Store_Unchecked 0x2,-0x4 0387 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0388 0000 0000 | | .LITERAL {0x00000000, 0x0000814b} 038c 0000 0000 | | .LITERAL {0x00000000, 0x0000814a} 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 03a3 | | .CONST 0x03a3 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0003 | | .CONST 0x0003 ; Number of locals 0393 INIT_0390: 0393 4800 |H | Short_Literal 0x0 0394 00db | | Load_Top At_Offset_3 0395 0092 052e | .| Action Push_String_Extended,0x52e ; "." 0397 e00a | | Load 0x0,0xa 0398 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0399 00e3 | | Load_Encached Natural_Cache 039a 03f1 | | Declare_Variable Discrete,With_Value 039b 4800 |H | Short_Literal 0x0 039c e7ff | | Load 0x3,-0x1 039d 0092 052e | .| Action Push_String_Extended,0x52e ; "." 039f e00a | | Load 0x0,0xa 03a0 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03a1 00e3 | | Load_Encached Natural_Cache 03a2 03f1 | | Declare_Variable Discrete,With_Value 03a3 BODY_0390: 03a3 e404 | | Load 0x2,0x4 03a4 01db | | Execute Vector,Length 03a5 0f00 | | Execute_Immediate Equal,0x0 03a6 00da | | Load_Top At_Offset_2 03a7 0f00 | | Execute_Immediate Equal,0x0 03a8 0278 | x | Execute Discrete,Or 03a9 6802 |h | Jump_Zero 0x3ac 03aa e7ff | | Load 0x3,-0x1 03ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ac e7ff | | Load 0x3,-0x1 03ad 01dd | | Execute Vector,First 03ae 00da | | Load_Top At_Offset_2 03af 0aff | | Execute_Immediate Plus,-0x1 03b0 e7ff | | Load 0x3,-0x1 03b1 01cf | | Execute Vector,Slice_Read 03b2 e404 | | Load 0x2,0x4 03b3 01cc | | Execute Vector,Catenate 03b4 00d9 | | Load_Top At_Offset_1 03b5 0a01 | | Execute_Immediate Plus,0x1 03b6 00d8 | | Load_Top At_Offset_0 03b7 00e2 | | Load_Encached Integer_Cache 03b8 0260 | ` | Execute Discrete,In_Type 03b9 7001 |p | Jump_Nonzero 0x3bb 03ba 0801 | | Execute_Immediate Raise,0x1 03bb e7ff | | Load 0x3,-0x1 03bc 01dc | | Execute Vector,Last 03bd e7ff | | Load 0x3,-0x1 03be 01cf | | Execute Vector,Slice_Read 03bf 01cc | | Execute Vector,Catenate 03c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c1 0000 0000 | | .BLANK 0000[0x7] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03d6 | | .CONST 0x03d6 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0003 | | .CONST 0x0003 ; Number of locals 03cb INIT_03c8: 03cb e403 | | Load 0x2,0x3 03cc 8407 | | Call 0x2,0x7 03cd 4800 |H | Short_Literal 0x0 03ce 00d9 | | Load_Top At_Offset_1 03cf 0092 052f | /| Action Push_String_Extended,0x52f ; "'" 03d1 e00a | | Load 0x0,0xa 03d2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03d3 0aff | | Execute_Immediate Plus,-0x1 03d4 00e2 | | Load_Encached Integer_Cache 03d5 03f1 | | Declare_Variable Discrete,With_Value 03d6 BODY_03c8: 03d6 00d8 | | Load_Top At_Offset_0 03d7 0d00 | | Execute_Immediate Less,0x0 03d8 6803 |h | Jump_Zero 0x3dc 03d9 00d9 | | Load_Top At_Offset_1 03da 01dc | | Execute Vector,Last 03db 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03dc 4801 |H | Short_Literal 0x1 03dd e402 | | Load 0x2,0x2 03de 0092 0530 | 0| Action Push_String_Extended,0x530 ; "'spec" 03e0 e00a | | Load 0x0,0xa 03e1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03e2 0c01 | | Execute_Immediate Greater_Equal,0x1 03e3 6809 |h | Jump_Zero 0x3ed 03e4 00d9 | | Load_Top At_Offset_1 03e5 01dd | | Execute Vector,First 03e6 00d9 | | Load_Top At_Offset_1 03e7 00db | | Load_Top At_Offset_3 03e8 01cf | | Execute Vector,Slice_Read 03e9 e405 | | Load 0x2,0x5 03ea 01cc | | Execute Vector,Catenate 03eb 00cb | | Action Pop_Block_With_Result 03ec 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03ed 00d9 | | Load_Top At_Offset_1 03ee 01dd | | Execute Vector,First 03ef 00d9 | | Load_Top At_Offset_1 03f0 00db | | Load_Top At_Offset_3 03f1 01cf | | Execute Vector,Slice_Read 03f2 e406 | | Load 0x2,0x6 03f3 01cc | | Execute Vector,Catenate 03f4 00cb | | Action Pop_Block_With_Result 03f5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03f6 0000 0000 | | .XXX[0x2] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0405 | | .CONST 0x0405 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0002 | | .CONST 0x0002 ; Number of locals 03fb INIT_03f8: 03fb e5f8 | | Load 0x2,-0x8 03fc e5f9 | | Load 0x2,-0x7 03fd e5fd | | Load 0x2,-0x3 03fe e5ff | | Load 0x2,-0x1 03ff e002 | | Load 0x0,0x2 0400 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0401 e5fe | | Load 0x2,-0x2 0402 e5fa | | Load 0x2,-0x6 0403 e00b | | Load 0x0,0xb 0404 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0405 BODY_03f8: 0405 00d8 | | Load_Top At_Offset_0 0406 01db | | Execute Vector,Length 0407 680a |h | Jump_Zero 0x412 0408 e403 | | Load 0x2,0x3 0409 e5fb | | Load 0x2,-0x5 040a e5fe | | Load 0x2,-0x2 040b 824f | O | Call 0x1,0x4f 040c 00d9 | | Load_Top At_Offset_1 040d e402 | | Load 0x2,0x2 040e e008 | | Load 0x0,0x8 040f 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0410 00cb | | Action Pop_Block_With_Result 0411 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 0412 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0413 0000 0000 | | .BLANK 0000[0x5] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 0422 | " | .CONST 0x0422 ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0002 | | .CONST 0x0002 ; Number of locals 041b INIT_0418: 041b e002 | | Load 0x0,0x2 041c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 041d 02c7 | | Declare_Variable Any 041e e409 | | Load 0x2,0x9 041f e403 | | Load 0x2,0x3 0420 01d7 | | Execute Vector,Field_Read 0421 a602 | | Store_Unchecked 0x3,0x2 0422 BODY_0418: 0422 e5fc | | Load 0x2,-0x4 0423 6816 |h | Jump_Zero 0x43a 0424 00d8 | | Load_Top At_Offset_0 0425 e002 | | Load 0x0,0x2 0426 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0427 8249 | I | Call 0x1,0x49 0428 e5fd | | Load 0x2,-0x3 0429 01d7 | | Execute Vector,Field_Read 042a 680f |h | Jump_Zero 0x43a 042b e5fe | | Load 0x2,-0x2 042c 0f03 | | Execute_Immediate Equal,0x3 042d 7015 |p | Jump_Nonzero 0x443 042e 00d8 | | Load_Top At_Offset_0 042f e002 | | Load 0x0,0x2 0430 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0431 0f03 | | Execute_Immediate Equal,0x3 0432 7010 |p | Jump_Nonzero 0x443 0433 e5fe | | Load 0x2,-0x2 0434 00d9 | | Load_Top At_Offset_1 0435 e002 | | Load 0x0,0x2 0436 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0437 8247 | G | Call 0x1,0x47 0438 027f | | Execute Discrete,Equal 0439 7009 |p | Jump_Nonzero 0x443 043a e5fc | | Load 0x2,-0x4 043b 701f |p | Jump_Nonzero 0x45b 043c 00d8 | | Load_Top At_Offset_0 043d e002 | | Load 0x0,0x2 043e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 043f 8249 | I | Call 0x1,0x49 0440 e5fd | | Load 0x2,-0x3 0441 01d7 | | Execute Vector,Field_Read 0442 6818 |h | Jump_Zero 0x45b 0443 e5fc | | Load 0x2,-0x4 0444 680f |h | Jump_Zero 0x454 0445 00d8 | | Load_Top At_Offset_0 0446 e002 | | Load 0x0,0x2 0447 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0448 680b |h | Jump_Zero 0x454 0449 e5f8 | | Load 0x2,-0x8 044a e5f9 | | Load 0x2,-0x7 044b e5fb | | Load 0x2,-0x5 044c 00db | | Load_Top At_Offset_3 044d e002 | | Load 0x0,0x2 044e 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 044f e5ff | | Load 0x2,-0x1 0450 e5fa | | Load 0x2,-0x6 0451 e00b | | Load 0x0,0xb 0452 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0453 6807 |h | Jump_Zero 0x45b 0454 e404 | | Load 0x2,0x4 0455 0a01 | | Execute_Immediate Plus,0x1 0456 c404 | | Store 0x2,0x4 0457 00d8 | | Load_Top At_Offset_0 0458 e404 | | Load 0x2,0x4 0459 e405 | | Load 0x2,0x5 045a 01d6 | | Execute Vector,Field_Write 045b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 045c 0000 0000 | | .BLANK 0000[0x4] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 046b | k | .CONST 0x046b ; Address of begin 0461 0473 | s | .CONST 0x0473 ; Address of exception handler 0462 0002 | | .CONST 0x0002 ; Number of locals 0463 INIT_0460: 0463 e5fc | | Load 0x2,-0x4 0464 e009 | | Load 0x0,0x9 0465 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0466 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0467 e406 | | Load 0x2,0x6 0468 e402 | | Load 0x2,0x2 0469 01d7 | | Execute Vector,Field_Read 046a 824a | J | Call 0x1,0x4a 046b BODY_0460: 046b 00ea | | Load_Encached Null_String_Cache 046c 0092 0531 | 1| Action Push_String_Extended,0x531 ; "<WORLDS>" 046e 4801 |H | Short_Literal 0x1 046f 00db | | Load_Top At_Offset_3 0470 e00d | | Load 0x0,0xd 0471 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0472 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0473 TRAP_0460: 0473 0007 | | Action Break_Optional 0474 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0475 0000 0000 | | .XXX[0x3] 0477 0000 | | 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 0491 | | .CONST 0x0491 ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0004 | | .CONST 0x0004 ; Number of locals 047b INIT_0478: 047b e002 | | Load 0x0,0x2 047c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 047d 02c7 | | Declare_Variable Any 047e e40b | | Load 0x2,0xb 047f e402 | | Load 0x2,0x2 0480 01d7 | | Execute Vector,Field_Read 0481 a602 | | Store_Unchecked 0x3,0x2 0482 e5fc | | Load 0x2,-0x4 0483 e009 | | Load 0x0,0x9 0484 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0485 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0486 00d9 | | Load_Top At_Offset_1 0487 824a | J | Call 0x1,0x4a 0488 e5f6 | | Load 0x2,-0xa 0489 e5f7 | | Load 0x2,-0x9 048a e5f8 | | Load 0x2,-0x8 048b e5fa | | Load 0x2,-0x6 048c e5fb | | Load 0x2,-0x5 048d e5fc | | Load 0x2,-0x4 048e e5ff | | Load 0x2,-0x1 048f e602 | | Load 0x3,0x2 0490 8250 | P | Call 0x1,0x50 0491 BODY_0478: 0491 4801 |H | Short_Literal 0x1 0492 0092 0532 | 2| Action Push_String_Extended,0x532 ; "exe" 0494 e602 | | Load 0x3,0x2 0495 e002 | | Load 0x0,0x2 0496 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0497 e00a | | Load 0x0,0xa 0498 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0499 6804 |h | Jump_Zero 0x49e 049a e5f9 | | Load 0x2,-0x7 049b 01db | | Execute Vector,Length 049c 6801 |h | Jump_Zero 0x49e 049d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 049e e405 | | Load 0x2,0x5 049f 681f |h | Jump_Zero 0x4bf 04a0 e00c | | Load 0x0,0xc 04a1 180e | | Execute Package,Field_Execute,Field_Number 0xe 04a2 4801 |H | Short_Literal 0x1 04a3 4801 |H | Short_Literal 0x1 04a4 e005 | | Load 0x0,0x5 04a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04a6 0334 | 4 | Declare_Variable Array,With_Constraint 04a7 0092 0533 | 3| Action Push_String_Extended,0x533 ; "Not retrieving host file \x22" 04a9 e603 | | Load 0x3,0x3 04aa 01cc | | Execute Vector,Catenate 04ab 0092 0534 | 4| Action Push_String_Extended,0x534 ; "\x22 from remote file \x22" 04ad 01cc | | Execute Vector,Catenate 04ae 00db | | Load_Top At_Offset_3 04af 01cc | | Execute Vector,Catenate 04b0 0092 0535 | 5| Action Push_String_Extended,0x535 ; "\x22" 04b2 01cc | | Execute Vector,Catenate 04b3 e005 | | Load 0x0,0x5 04b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04b5 e005 | | Load 0x0,0x5 04b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04b7 0119 | | Execute Any,Check_In_Formal_Type 04b8 4801 |H | Short_Literal 0x1 04b9 00da | | Load_Top At_Offset_2 04ba 01d6 | | Execute Vector,Field_Write 04bb 601c |` | Indirect_Literal Discrete,0x4d8,{0x00000000, 0x0000818f} 04bc e003 | | Load 0x0,0x3 04bd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 04be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04bf e003 | | Load 0x0,0x3 04c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c1 e406 | | Load 0x2,0x6 04c2 e602 | | Load 0x3,0x2 04c3 e002 | | Load 0x0,0x2 04c4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 04c5 8253 | S | Call 0x1,0x53 04c6 e5f5 | | Load 0x2,-0xb 04c7 e604 | | Load 0x3,0x4 04c8 e603 | | Load 0x3,0x3 04c9 e00e | | Load 0x0,0xe 04ca 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 04cb c403 | | Store 0x2,0x3 04cc e403 | | Load 0x2,0x3 04cd 6808 |h | Jump_Zero 0x4d6 04ce e5f6 | | Load 0x2,-0xa 04cf 4806 |H | Short_Literal 0x6 04d0 e403 | | Load 0x2,0x3 04d1 e003 | | Load 0x0,0x3 04d2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 04d3 00cc | | Action Pop_Block 04d4 00d2 | | Pop_Control Pop_Count_2 04d5 7e22 |~" | Jump 0x2f8 04d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d7 0000 | | .XXX[0x1] 04d8 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 04dc 0000 0000 | | .BLANK 0000[0x4] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04f2 | | .CONST 0x04f2 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0003 | | .CONST 0x0003 ; Number of locals 04e3 INIT_04e0: 04e3 e5fc | | Load 0x2,-0x4 04e4 e009 | | Load 0x0,0x9 04e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04e6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 04e7 0092 0536 | 6| Action Push_String_Extended,0x536 ; ".<EXE>" 04e9 01cc | | Execute Vector,Catenate 04ea 0007 | | Action Break_Optional 04eb e5fa | | Load 0x2,-0x6 04ec e5f9 | | Load 0x2,-0x7 04ed e5ff | | Load 0x2,-0x1 04ee e008 | | Load 0x0,0x8 04ef 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 04f0 e008 | | Load 0x0,0x8 04f1 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 04f2 BODY_04e0: 04f2 e405 | | Load 0x2,0x5 04f3 681f |h | Jump_Zero 0x513 04f4 e00c | | Load 0x0,0xc 04f5 180e | | Execute Package,Field_Execute,Field_Number 0xe 04f6 4801 |H | Short_Literal 0x1 04f7 4801 |H | Short_Literal 0x1 04f8 e005 | | Load 0x0,0x5 04f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04fa 0334 | 4 | Declare_Variable Array,With_Constraint 04fb 0092 0533 | 3| Action Push_String_Extended,0x533 ; "Not retrieving host file \x22" 04fd e602 | | Load 0x3,0x2 04fe 01cc | | Execute Vector,Catenate 04ff 0092 0537 | 7| Action Push_String_Extended,0x537 ; "\x22 from remote executable \x22" 0501 01cc | | Execute Vector,Catenate 0502 00db | | Load_Top At_Offset_3 0503 01cc | | Execute Vector,Catenate 0504 0092 0535 | 5| Action Push_String_Extended,0x535 ; "\x22" 0506 01cc | | Execute Vector,Catenate 0507 e005 | | Load 0x0,0x5 0508 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0509 e005 | | Load 0x0,0x5 050a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 050b 0119 | | Execute Any,Check_In_Formal_Type 050c 4801 |H | Short_Literal 0x1 050d 00da | | Load_Top At_Offset_2 050e 01d6 | | Execute Vector,Field_Write 050f 67c8 |g | Indirect_Literal Discrete,0x4d8,{0x00000000, 0x0000818f} 0510 e003 | | Load 0x0,0x3 0511 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0512 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0513 e003 | | Load 0x0,0x3 0514 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0515 e406 | | Load 0x2,0x6 0516 4801 |H | Short_Literal 0x1 0517 e5f5 | | Load 0x2,-0xb 0518 e603 | | Load 0x3,0x3 0519 e602 | | Load 0x3,0x2 051a e00e | | Load 0x0,0xe 051b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 051c c403 | | Store 0x2,0x3 051d e403 | | Load 0x2,0x3 051e 6805 |h | Jump_Zero 0x524 051f e5f6 | | Load 0x2,-0xa 0520 4806 |H | Short_Literal 0x6 0521 e403 | | Load 0x2,0x3 0522 e003 | | Load 0x0,0x3 0523 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0524 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0525 ; -------------------------------------------------------------------------------------- 0525 ; STRING TABLE 0525 ; -------------------------------------------------------------------------------------- 0525 0028 | ( | .STRTAB 0x0028->0x0539 ; "Associated_Files.Check_Files" 0526 0042 | B | .STRTAB 0x0042->0x0547 ; "Associated_Files.Destroy_And_Retrieve" 0527 0065 | e | .STRTAB 0x0065->0x0559 ; ".<" 0528 0065 | e | .STRTAB 0x0065->0x055a ; ">" 0529 0064 | d | .STRTAB 0x0064->0x055b ; "&" 052a 0063 | c | .STRTAB 0x0063->0x055b ; "Associated_Files.Filter" 052b 0078 | x | .STRTAB 0x0078->0x0567 ; "Associated_Files.Filter_And_Destroy" 052c 0099 | | .STRTAB 0x0099->0x0578 ; "Associated_Files.Filter_And_Retrieve" 052d 00bb | | .STRTAB 0x00bb->0x058a ; "Associated_Files.Check_File" 052e 00d4 | | .STRTAB 0x00d4->0x0598 ; "." 052f 00d3 | | .STRTAB 0x00d3->0x0598 ; "'" 0530 00d2 | | .STRTAB 0x00d2->0x0599 ; "'spec" 0531 00d5 | | .STRTAB 0x00d5->0x059b ; "<WORLDS>" 0532 00db | | .STRTAB 0x00db->0x059f ; "exe" 0533 00dc | | .STRTAB 0x00dc->0x05a1 ; "Not retrieving host file \x22" 0534 00f4 | | .STRTAB 0x00f4->0x05ae ; "\x22 from remote file \x22" 0535 0106 | | .STRTAB 0x0106->0x05b8 ; "\x22" 0536 0105 | | .STRTAB 0x0105->0x05b8 ; ".<EXE>" 0537 0109 | | .STRTAB 0x0109->0x05bb ; "\x22 from remote executable \x22" 0538 0121 | ! | .STREND 0x0121->0x05c8 0539 4173 736f |Asso| .STRTAB_STRINGS 05c9 0000 0000 | | .BLANK 0000[0x7] 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; Debug Table 05d0 ; -------------------------------------------------------------------------------------- 05d0 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dc0,0x0000,0x0001,0x0000 05d6 0000 0000 | | .BLANK 0000[0x2a]