|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0638 | 8 | .CONST 0x0638 ; 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 0079 | y | .CONST 0x0079 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0058 | X | .CONST 0x0058 ; 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 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 004c c240 | @ | Store 0x1,0x40 004d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 004f c249 | I | Store 0x1,0x49 0050 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0052 c24a | J | Store 0x1,0x4a 0053 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0055 c24b | K | Store 0x1,0x4b 0056 00bf | | Action Accept_Activation 0057 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0059 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 005b 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 005d 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 005f 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 0061 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call 0063 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 0065 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 0067 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 0069 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 006b 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 006d 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 006e 00c7 | | Action Elaborate_Subprogram 006f 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call 0071 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 0072 00c7 | | Action Elaborate_Subprogram 0073 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 0075 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0076 00c7 | | Action Elaborate_Subprogram 0077 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 0078 00c7 | | Action Elaborate_Subprogram 0079 BODY_0008: 0079 00bc | | Action Signal_Activated 007a 00bb | | Action Signal_Completion 007b 0000 0000 | | .BLANK 0000[0x5] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008e | | .CONST 0x008e ; Address of begin 0081 00a7 | | .CONST 0x00a7 ; Address of exception handler 0082 0004 | | .CONST 0x0004 ; Number of locals 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 e001 | | Load 0x0,0x1 0085 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0086 e002 | | Load 0x0,0x2 0087 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0088 011e | | Execute Any,Convert 0089 00d8 | | Load_Top At_Offset_0 008a e002 | | Load 0x0,0x2 008b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 008c e003 | | Load 0x0,0x3 008d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008e BODY_0080: 008e 00cf | | Action Mark_Auxiliary 008f 00da | | Load_Top At_Offset_2 0090 01d9 | | Execute Vector,Reverse_Bounds 0091 0263 | c | Execute Discrete,Above_Bound 0092 7013 |p | Jump_Nonzero 0xa6 0093 00db | | Load_Top At_Offset_3 0094 e5fe | | Load 0x2,-0x2 0095 00da | | Load_Top At_Offset_2 0096 e403 | | Load 0x2,0x3 0097 01d7 | | Execute Vector,Field_Read 0098 e5ff | | Load 0x2,-0x1 0099 8258 | X | Call 0x1,0x58 009a c404 | | Store 0x2,0x4 009b 4800 |H | Short_Literal 0x0 009c e404 | | Load 0x2,0x4 009d e003 | | Load 0x0,0x3 009e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 009f 7004 |p | Jump_Nonzero 0xa4 00a0 00db | | Load_Top At_Offset_3 00a1 a5fd | | Store_Unchecked 0x2,-0x3 00a2 00d2 | | Pop_Control Pop_Count_2 00a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a4 00c8 | | Action Pop_Auxiliary_Range 00a5 3fed |? | Loop_Increasing 0x93 00a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a7 TRAP_0080: 00a7 0007 | | Action Break_Optional 00a8 e5fe | | Load 0x2,-0x2 00a9 0092 058e | | Action Push_String_Extended,0x58e ; "Associated_Files.Check_Files" 00ab e004 | | Load 0x0,0x4 00ac 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ad e005 | | Load 0x0,0x5 00ae 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00af 6004 |` | Indirect_Literal Discrete,0xb4,{0x00000000, 0x0000813b} 00b0 e003 | | Load 0x0,0x3 00b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b2 a5fd | | Store_Unchecked 0x2,-0x3 00b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b4 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00be | | .CONST 0x00be ; Address of begin 00b9 0131 | 1 | .CONST 0x0131 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb e003 | | Load 0x0,0x3 00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00be BODY_00b8: 00be 00db | | Load_Top At_Offset_3 00bf e5fd | | Load 0x2,-0x3 00c0 e5fe | | Load 0x2,-0x2 00c1 e5f4 | | Load 0x2,-0xc 00c2 e5fa | | Load 0x2,-0x6 00c3 e5f9 | | Load 0x2,-0x7 00c4 e5f8 | | Load 0x2,-0x8 00c5 e5fb | | Load 0x2,-0x5 00c6 e5fc | | Load 0x2,-0x4 00c7 e006 | | Load 0x0,0x6 00c8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c9 701a |p | Jump_Nonzero 0xe4 00ca e5f5 | | Load 0x2,-0xb 00cb 4801 |H | Short_Literal 0x1 00cc 4801 |H | Short_Literal 0x1 00cd e005 | | Load 0x0,0x5 00ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00cf 035b | [ | Declare_Type Array,Constrained 00d0 0337 | 7 | Declare_Variable Array 00d1 e5fc | | Load 0x2,-0x4 00d2 e007 | | Load 0x0,0x7 00d3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00d4 e005 | | Load 0x0,0x5 00d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d6 0119 | | Execute Any,Check_In_Formal_Type 00d7 4801 |H | Short_Literal 0x1 00d8 00da | | Load_Top At_Offset_2 00d9 01d6 | | Execute Vector,Field_Write 00da 6069 |`i | Indirect_Literal Discrete,0x144,{0x00000000, 0x000081c3} 00db e003 | | Load 0x0,0x3 00dc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00dd e005 | | Load 0x0,0x5 00de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00df 6064 |`d | Indirect_Literal Discrete,0x144,{0x00000000, 0x000081c3} 00e0 e003 | | Load 0x0,0x3 00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e2 a5f3 | | Store_Unchecked 0x2,-0xd 00e3 450c |E | Exit_Suprogram New_Top_Offset 0xc 00e4 e5f5 | | Load 0x2,-0xb 00e5 e5f6 | | Load 0x2,-0xa 00e6 e5fc | | Load 0x2,-0x4 00e7 e5fd | | Load 0x2,-0x3 00e8 e5fe | | Load 0x2,-0x2 00e9 e5ff | | Load 0x2,-0x1 00ea 824b | K | Call 0x1,0x4b 00eb 4802 |H | Short_Literal 0x2 00ec e5fd | | Load 0x2,-0x3 00ed 01d7 | | Execute Vector,Field_Read 00ee 7013 |p | Jump_Nonzero 0x102 00ef 00d8 | | Load_Top At_Offset_0 00f0 e5f4 | | Load 0x2,-0xc 00f1 e5f5 | | Load 0x2,-0xb 00f2 e5f6 | | Load 0x2,-0xa 00f3 e5f7 | | Load 0x2,-0x9 00f4 e5fa | | Load 0x2,-0x6 00f5 e5fb | | Load 0x2,-0x5 00f6 e5ff | | Load 0x2,-0x1 00f7 e008 | | Load 0x0,0x8 00f8 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00f9 e008 | | Load 0x0,0x8 00fa 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 00fb e5fc | | Load 0x2,-0x4 00fc e5fd | | Load 0x2,-0x3 00fd e5fe | | Load 0x2,-0x2 00fe e5ff | | Load 0x2,-0x1 00ff 824a | J | Call 0x1,0x4a 0100 c5f4 | | Store 0x2,-0xc 0101 0059 | Y | Store_Top Discrete,At_Offset_1 0102 4800 |H | Short_Literal 0x0 0103 00d9 | | Load_Top At_Offset_1 0104 e003 | | Load 0x0,0x3 0105 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0106 7003 |p | Jump_Nonzero 0x10a 0107 00d8 | | Load_Top At_Offset_0 0108 a5f3 | | Store_Unchecked 0x2,-0xd 0109 450c |E | Exit_Suprogram New_Top_Offset 0xc 010a 00db | | Load_Top At_Offset_3 010b e5fd | | Load 0x2,-0x3 010c e5fe | | Load 0x2,-0x2 010d e5f4 | | Load 0x2,-0xc 010e e5fa | | Load 0x2,-0x6 010f e5f9 | | Load 0x2,-0x7 0110 e5f8 | | Load 0x2,-0x8 0111 e5fb | | Load 0x2,-0x5 0112 e5fc | | Load 0x2,-0x4 0113 e006 | | Load 0x0,0x6 0114 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0115 701a |p | Jump_Nonzero 0x130 0116 e5f5 | | Load 0x2,-0xb 0117 4801 |H | Short_Literal 0x1 0118 4801 |H | Short_Literal 0x1 0119 e005 | | Load 0x0,0x5 011a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011b 035b | [ | Declare_Type Array,Constrained 011c 0337 | 7 | Declare_Variable Array 011d e5fc | | Load 0x2,-0x4 011e e007 | | Load 0x0,0x7 011f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0120 e005 | | Load 0x0,0x5 0121 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0122 0119 | | Execute Any,Check_In_Formal_Type 0123 4801 |H | Short_Literal 0x1 0124 00da | | Load_Top At_Offset_2 0125 01d6 | | Execute Vector,Field_Write 0126 6019 |` | Indirect_Literal Discrete,0x140,{0x00000000, 0x000081c4} 0127 e003 | | Load 0x0,0x3 0128 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0129 e005 | | Load 0x0,0x5 012a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 012b 6014 |` | Indirect_Literal Discrete,0x140,{0x00000000, 0x000081c4} 012c e003 | | Load 0x0,0x3 012d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012e a5f3 | | Store_Unchecked 0x2,-0xd 012f 450c |E | Exit_Suprogram New_Top_Offset 0xc 0130 450c |E | Exit_Suprogram New_Top_Offset 0xc 0131 TRAP_00b8: 0131 0007 | | Action Break_Optional 0132 e5f5 | | Load 0x2,-0xb 0133 0092 058f | | Action Push_String_Extended,0x58f ; "Associated_Files.Destroy_And_Retrieve" 0135 e004 | | Load 0x0,0x4 0136 180f | | Execute Package,Field_Execute,Field_Number 0xf 0137 e005 | | Load 0x0,0x5 0138 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0139 677a |gz | Indirect_Literal Discrete,0xb4,{0x00000000, 0x0000813b} 013a e003 | | Load 0x0,0x3 013b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013c a5f3 | | Store_Unchecked 0x2,-0xd 013d 450c |E | Exit_Suprogram New_Top_Offset 0xc 013e 0000 0000 | | .XXX[0x2] 0140 0000 0000 | | .LITERAL {0x00000000, 0x000081c4} 0144 0000 0000 | | .LITERAL {0x00000000, 0x000081c3} 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 017a | z | .CONST 0x017a ; Address of begin 0149 018a | | .CONST 0x018a ; Address of exception handler 014a 0009 | | .CONST 0x0009 ; Number of locals 014b INIT_0148: 014b e5f7 | | Load 0x2,-0x9 014c e5f8 | | Load 0x2,-0x8 014d e5fc | | Load 0x2,-0x4 014e 4801 |H | Short_Literal 0x1 014f e5fd | | Load 0x2,-0x3 0150 e5fe | | Load 0x2,-0x2 0151 e5ff | | Load 0x2,-0x1 0152 8256 | V | Call 0x1,0x56 0153 e003 | | Load 0x0,0x3 0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0155 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0156 e009 | | Load 0x0,0x9 0157 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0158 02c7 | | Declare_Variable Any 0159 e5f7 | | Load 0x2,-0x9 015a 4800 |H | Short_Literal 0x0 015b e5fc | | Load 0x2,-0x4 015c e007 | | Load 0x0,0x7 015d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 015e a404 | | Store_Unchecked 0x2,0x4 015f e5f7 | | Load 0x2,-0x9 0160 00d9 | | Load_Top At_Offset_1 0161 e007 | | Load 0x0,0x7 0162 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0163 00e1 | | Load_Encached Boolean_Cache 0164 03f1 | | Declare_Variable Discrete,With_Value 0165 e5f7 | | Load 0x2,-0x9 0166 00da | | Load_Top At_Offset_2 0167 e007 | | Load 0x0,0x7 0168 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0169 00e1 | | Load_Encached Boolean_Cache 016a 03f1 | | Declare_Variable Discrete,With_Value 016b 4801 |H | Short_Literal 0x1 016c e00a | | Load 0x0,0xa 016d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 016e e007 | | Load 0x0,0x7 016f 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0170 e00b | | Load 0x0,0xb 0171 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0172 e00b | | Load 0x0,0xb 0173 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0174 00e1 | | Load_Encached Boolean_Cache 0175 03f1 | | Declare_Variable Discrete,With_Value 0176 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call 0178 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call 017a BODY_0148: 017a 00cf | | Action Mark_Auxiliary 017b e402 | | Load 0x2,0x2 017c 01d9 | | Execute Vector,Reverse_Bounds 017d 0263 | c | Execute Discrete,Above_Bound 017e 7003 |p | Jump_Nonzero 0x182 017f 8408 | | Call 0x2,0x8 0180 00c8 | | Action Pop_Auxiliary_Range 0181 3ffd |? | Loop_Increasing 0x17f 0182 00ce | | Action Pop_Auxiliary 0183 e5f9 | | Load 0x2,-0x7 0184 01db | | Execute Vector,Length 0185 6803 |h | Jump_Zero 0x189 0186 00da | | Load_Top At_Offset_2 0187 6801 |h | Jump_Zero 0x189 0188 8409 | | Call 0x2,0x9 0189 450a |E | Exit_Suprogram New_Top_Offset 0xa 018a TRAP_0148: 018a 0007 | | Action Break_Optional 018b e5f7 | | Load 0x2,-0x9 018c 0092 0590 | | Action Push_String_Extended,0x590 ; "Associated_Files.Filter_And_Retrieve" 018e e004 | | Load 0x0,0x4 018f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0190 e005 | | Load 0x0,0x5 0191 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0192 6005 |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x0000813b} 0193 e003 | | Load 0x0,0x3 0194 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0195 a5f5 | | Store_Unchecked 0x2,-0xb 0196 450a |E | Exit_Suprogram New_Top_Offset 0xa 0197 0000 | | .XXX[0x1] 0198 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ad | | .CONST 0x01ad ; Address of begin 01a1 01b6 | | .CONST 0x01b6 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 e5fa | | Load 0x2,-0x6 01a4 e5fb | | Load 0x2,-0x5 01a5 e5fc | | Load 0x2,-0x4 01a6 4800 |H | Short_Literal 0x0 01a7 e5fd | | Load 0x2,-0x3 01a8 e5fe | | Load 0x2,-0x2 01a9 e5ff | | Load 0x2,-0x1 01aa 8256 | V | Call 0x1,0x56 01ab 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 01ad BODY_01a0: 01ad 00cf | | Action Mark_Auxiliary 01ae 00da | | Load_Top At_Offset_2 01af 01d9 | | Execute Vector,Reverse_Bounds 01b0 0263 | c | Execute Discrete,Above_Bound 01b1 7003 |p | Jump_Nonzero 0x1b5 01b2 8403 | | Call 0x2,0x3 01b3 00c8 | | Action Pop_Auxiliary_Range 01b4 3ffd |? | Loop_Increasing 0x1b2 01b5 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01b6 TRAP_01a0: 01b6 0007 | | Action Break_Optional 01b7 e5fa | | Load 0x2,-0x6 01b8 0092 0591 | | Action Push_String_Extended,0x591 ; "Associated_Files.Filter_And_Destroy" 01ba e004 | | Load 0x0,0x4 01bb 180f | | Execute Package,Field_Execute,Field_Number 0xf 01bc 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 e002 | | Load 0x0,0x2 01c5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01c6 011c | | Execute Any,Convert_Unchecked 01c7 1c01 | | Execute_Immediate Run_Utility,0x1 01c8 e008 | | Load 0x0,0x8 01c9 1bc6 | | Execute Package,Field_Read,Field_Number 0xc6 01ca 1c02 | | Execute_Immediate Run_Utility,0x2 01cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cc 0000 0000 | | .BLANK 0000[0x4] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 e008 | | Load 0x0,0x8 01d5 1bc6 | | Execute Package,Field_Read,Field_Number 0xc6 01d6 011c | | Execute Any,Convert_Unchecked 01d7 1c01 | | Execute_Immediate Run_Utility,0x1 01d8 e002 | | Load 0x0,0x2 01d9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01da 1c02 | | Execute_Immediate Run_Utility,0x2 01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 01e4 e002 | | Load 0x0,0x2 01e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e6 011c | | Execute Any,Convert_Unchecked 01e7 1c01 | | Execute_Immediate Run_Utility,0x1 01e8 e008 | | Load 0x0,0x8 01e9 1be0 | | Execute Package,Field_Read,Field_Number 0xe0 01ea 1c02 | | Execute_Immediate Run_Utility,0x2 01eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00db | | Load_Top At_Offset_3 01f4 0092 0592 | | Action Push_String_Extended,0x592 ; ".<" 01f6 01cc | | Execute Vector,Catenate 01f7 00db | | Load_Top At_Offset_3 01f8 e002 | | Load 0x0,0x2 01f9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 01fa 01cc | | Execute Vector,Catenate 01fb 0092 0593 | | Action Push_String_Extended,0x593 ; ">" 01fd 01cc | | Execute Vector,Catenate 01fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0218 | | .CONST 0x0218 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0008 | | .CONST 0x0008 ; Number of locals 0203 INIT_0200: 0203 e5fd | | Load 0x2,-0x3 0204 e009 | | Load 0x0,0x9 0205 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0206 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0207 e5fd | | Load 0x2,-0x3 0208 e009 | | Load 0x0,0x9 0209 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 020a 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 020b e5ff | | Load 0x2,-0x1 020c e002 | | Load 0x0,0x2 020d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 020e e5ff | | Load 0x2,-0x1 020f e002 | | Load 0x0,0x2 0210 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0211 e5ff | | Load 0x2,-0x1 0212 e002 | | Load 0x0,0x2 0213 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0214 029f 049b | | Declare_Subprogram INIT_0498,For_Call 0216 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call 0218 BODY_0200: 0218 8408 | | Call 0x2,0x8 0219 0831 | 1 | Execute_Immediate Raise,0x31 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022c | , | .CONST 0x022c ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0003 | | .CONST 0x0003 ; Number of locals 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 e002 | | Load 0x0,0x2 0225 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0226 4800 |H | Short_Literal 0x0 0227 00d9 | | Load_Top At_Offset_1 0228 0092 0594 | | Action Push_String_Extended,0x594 ; "&" 022a e00c | | Load 0x0,0xc 022b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 022c BODY_0220: 022c 00d9 | | Load_Top At_Offset_1 022d 01dd | | Execute Vector,First 022e 00d9 | | Load_Top At_Offset_1 022f 0aff | | Execute_Immediate Plus,-0x1 0230 00db | | Load_Top At_Offset_3 0231 01cf | | Execute Vector,Slice_Read 0232 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0233 0000 0000 | | .BLANK 0000[0x5] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0244 | D | .CONST 0x0244 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c e002 | | Load 0x0,0x2 023d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 023e 4800 |H | Short_Literal 0x0 023f 00d9 | | Load_Top At_Offset_1 0240 0092 0594 | | Action Push_String_Extended,0x594 ; "&" 0242 e00c | | Load 0x0,0xc 0243 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0244 BODY_0238: 0244 00d8 | | Load_Top At_Offset_0 0245 0a01 | | Execute_Immediate Plus,0x1 0246 00d8 | | Load_Top At_Offset_0 0247 00e2 | | Load_Encached Integer_Cache 0248 0260 | ` | Execute Discrete,In_Type 0249 7001 |p | Jump_Nonzero 0x24b 024a 0801 | | Execute_Immediate Raise,0x1 024b 00da | | Load_Top At_Offset_2 024c 01dc | | Execute Vector,Last 024d 00db | | Load_Top At_Offset_3 024e 01cf | | Execute Vector,Slice_Read 024f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 025a | Z | .CONST 0x025a ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0002 | | .CONST 0x0002 ; Number of locals 0253 INIT_0250: 0253 e002 | | Load 0x0,0x2 0254 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0255 02c7 | | Declare_Variable Any 0256 00db | | Load_Top At_Offset_3 0257 e001 | | Load 0x0,0x1 0258 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0259 a402 | | Store_Unchecked 0x2,0x2 025a BODY_0250: 025a e5fe | | Load 0x2,-0x2 025b e002 | | Load 0x0,0x2 025c 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 025d 4602 |F | Jump_Case 0x3 025e 7805 |x | Jump 0x264 ; case 0x0 025f 780c |x | Jump 0x26c ; case 0x1 0260 7800 |x | Jump 0x261 ; case 0x2 0261 e5fe | | Load 0x2,-0x2 0262 8252 | R | Call 0x1,0x52 0263 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0264 e5fd | | Load 0x2,-0x3 0265 e5fe | | Load 0x2,-0x2 0266 00da | | Load_Top At_Offset_2 0267 8250 | P | Call 0x1,0x50 0268 e5fe | | Load 0x2,-0x2 0269 8252 | R | Call 0x1,0x52 026a 01cc | | Execute Vector,Catenate 026b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 026c e5fc | | Load 0x2,-0x4 026d e5fe | | Load 0x2,-0x2 026e 8252 | R | Call 0x1,0x52 026f 01cc | | Execute Vector,Catenate 0270 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0271 0000 0000 | | .BLANK 0000[0x7] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 028b | | .CONST 0x028b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0005 | | .CONST 0x0005 ; Number of locals 027b INIT_0278: 027b e002 | | Load 0x0,0x2 027c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 027d 02c7 | | Declare_Variable Any 027e 00db | | Load_Top At_Offset_3 027f e001 | | Load 0x0,0x1 0280 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0281 a402 | | Store_Unchecked 0x2,0x2 0282 00d8 | | Load_Top At_Offset_0 0283 e002 | | Load 0x0,0x2 0284 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0285 00d9 | | Load_Top At_Offset_1 0286 e002 | | Load 0x0,0x2 0287 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0288 00da | | Load_Top At_Offset_2 0289 e002 | | Load 0x0,0x2 028a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 028b BODY_0278: 028b e5fd | | Load 0x2,-0x3 028c 01db | | Execute Vector,Length 028d 7002 |p | Jump_Nonzero 0x290 028e e5fe | | Load 0x2,-0x2 028f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0290 e5fe | | Load 0x2,-0x2 0291 01dd | | Execute Vector,First 0292 e5fe | | Load 0x2,-0x2 0293 01dc | | Execute Vector,Last 0294 00db | | Load_Top At_Offset_3 0295 01db | | Execute Vector,Length 0296 0272 | r | Execute Discrete,Minus 0297 00d8 | | Load_Top At_Offset_0 0298 00e2 | | Load_Encached Integer_Cache 0299 0260 | ` | Execute Discrete,In_Type 029a 7001 |p | Jump_Nonzero 0x29c 029b 0801 | | Execute_Immediate Raise,0x1 029c e5fe | | Load 0x2,-0x2 029d 01cf | | Execute Vector,Slice_Read 029e e5fd | | Load 0x2,-0x3 029f 01dd | | Execute Vector,First 02a0 e403 | | Load 0x2,0x3 02a1 01db | | Execute Vector,Length 02a2 0273 | s | Execute Discrete,Plus 02a3 00d8 | | Load_Top At_Offset_0 02a4 00e2 | | Load_Encached Integer_Cache 02a5 0260 | ` | Execute Discrete,In_Type 02a6 7001 |p | Jump_Nonzero 0x2a8 02a7 0801 | | Execute_Immediate Raise,0x1 02a8 e5fd | | Load 0x2,-0x3 02a9 01dc | | Execute Vector,Last 02aa e5fd | | Load 0x2,-0x3 02ab 01cf | | Execute Vector,Slice_Read 02ac 01cc | | Execute Vector,Catenate 02ad 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02bf | | .CONST 0x02bf ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0004 | | .CONST 0x0004 ; Number of locals 02b3 INIT_02b0: 02b3 e008 | | Load 0x0,0x8 02b4 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 02b5 0322 | " | Declare_Variable Record 02b6 e5fe | | Load 0x2,-0x2 02b7 e008 | | Load 0x0,0x8 02b8 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 02b9 00d9 | | Load_Top At_Offset_1 02ba 017d | } | Execute Record,Structure_Write 02bb 00db | | Load_Top At_Offset_3 02bc 8251 | Q | Call 0x1,0x51 02bd 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call 02bf BODY_02b0: 02bf e5ff | | Load 0x2,-0x1 02c0 e002 | | Load 0x0,0x2 02c1 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 02c2 e5ff | | Load 0x2,-0x1 02c3 e002 | | Load 0x0,0x2 02c4 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02c5 0279 | y | Execute Discrete,And 02c6 6801 |h | Jump_Zero 0x2c8 02c7 8404 | | Call 0x2,0x4 02c8 00d9 | | Load_Top At_Offset_1 02c9 e5fb | | Load 0x2,-0x5 02ca e5fe | | Load 0x2,-0x2 02cb 8254 | T | Call 0x1,0x54 02cc e5fc | | Load 0x2,-0x4 02cd e5fd | | Load 0x2,-0x3 02ce e5ff | | Load 0x2,-0x1 02cf e5fe | | Load 0x2,-0x2 02d0 8253 | S | Call 0x1,0x53 02d1 e5ff | | Load 0x2,-0x1 02d2 e002 | | Load 0x0,0x2 02d3 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02d4 e402 | | Load 0x2,0x2 02d5 e008 | | Load 0x0,0x8 02d6 187c | | | Execute Package,Field_Execute,Field_Number 0x7c 02d7 01cc | | Execute Vector,Catenate 02d8 e402 | | Load 0x2,0x2 02d9 e008 | | Load 0x0,0x8 02da 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 02db 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 02dc 0000 0000 | | .BLANK 0000[0x4] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02fe | | .CONST 0x02fe ; Address of begin 02e1 031c | | .CONST 0x031c ; Address of exception handler 02e2 0006 | | .CONST 0x0006 ; Number of locals 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 e001 | | Load 0x0,0x1 02e5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e6 e002 | | Load 0x0,0x2 02e7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02e8 011e | | Execute Any,Convert 02e9 00d8 | | Load_Top At_Offset_0 02ea e002 | | Load 0x0,0x2 02eb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 02ec 00e3 | | Load_Encached Natural_Cache 02ed 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02ee 4801 |H | Short_Literal 0x1 02ef 00da | | Load_Top At_Offset_2 02f0 01db | | Execute Vector,Length 02f1 00d8 | | Load_Top At_Offset_0 02f2 00e2 | | Load_Encached Integer_Cache 02f3 0260 | ` | Execute Discrete,In_Type 02f4 7001 |p | Jump_Nonzero 0x2f6 02f5 0801 | | Execute_Immediate Raise,0x1 02f6 e002 | | Load 0x0,0x2 02f7 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 02f8 035b | [ | Declare_Type Array,Constrained 02f9 0337 | 7 | Declare_Variable Array 02fa 00d8 | | Load_Top At_Offset_0 02fb 1c00 | | Execute_Immediate Run_Utility,0x0 02fc 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call 02fe BODY_02e0: 02fe 00cf | | Action Mark_Auxiliary 02ff e403 | | Load 0x2,0x3 0300 01d9 | | Execute Vector,Reverse_Bounds 0301 0263 | c | Execute Discrete,Above_Bound 0302 7010 |p | Jump_Nonzero 0x313 0303 00d8 | | Load_Top At_Offset_0 0304 e403 | | Load 0x2,0x3 0305 01d7 | | Execute Vector,Field_Read 0306 8406 | | Call 0x2,0x6 0307 6809 |h | Jump_Zero 0x311 0308 e404 | | Load 0x2,0x4 0309 0a01 | | Execute_Immediate Plus,0x1 030a c404 | | Store 0x2,0x4 030b 00d8 | | Load_Top At_Offset_0 030c e403 | | Load 0x2,0x3 030d 01d7 | | Execute Vector,Field_Read 030e e404 | | Load 0x2,0x4 030f e405 | | Load 0x2,0x5 0310 01d6 | | Execute Vector,Field_Write 0311 00c8 | | Action Pop_Auxiliary_Range 0312 3ff0 |? | Loop_Increasing 0x303 0313 00ce | | Action Pop_Auxiliary 0314 4801 |H | Short_Literal 0x1 0315 00db | | Load_Top At_Offset_3 0316 00db | | Load_Top At_Offset_3 0317 01cf | | Execute Vector,Slice_Read 0318 e002 | | Load 0x0,0x2 0319 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 031a 01c6 | | Execute Vector,Convert_To_Formal 031b 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 031c TRAP_02e0: 031c 0007 | | Action Break_Optional 031d e5f9 | | Load 0x2,-0x7 031e 0092 0595 | | Action Push_String_Extended,0x595 ; "Associated_Files.Filter" 0320 e004 | | Load 0x0,0x4 0321 180f | | Execute Package,Field_Execute,Field_Number 0xf 0322 4801 |H | Short_Literal 0x1 0323 4800 |H | Short_Literal 0x0 0324 e405 | | Load 0x2,0x5 0325 01cf | | Execute Vector,Slice_Read 0326 e002 | | Load 0x0,0x2 0327 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 0328 01c6 | | Execute Vector,Convert_To_Formal 0329 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 032a 0000 0000 | | .BLANK 0000[0x6] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 00da | | Load_Top At_Offset_2 0334 0f01 | | Execute_Immediate Equal,0x1 0335 6802 |h | Jump_Zero 0x338 0336 4801 |H | Short_Literal 0x1 0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0338 4800 |H | Short_Literal 0x0 0339 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 03ad | | .CONST 0x03ad ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00db | | Load_Top At_Offset_3 0344 e002 | | Load 0x0,0x2 0345 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0346 6865 |he | Jump_Zero 0x3ac 0347 e5fd | | Load 0x2,-0x3 0348 e5fe | | Load 0x2,-0x2 0349 e002 | | Load 0x0,0x2 034a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 034b e5ff | | Load 0x2,-0x1 034c e00d | | Load 0x0,0xd 034d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 034e 7029 |p) | Jump_Nonzero 0x378 034f e00e | | Load 0x0,0xe 0350 180e | | Execute Package,Field_Execute,Field_Number 0xe 0351 4801 |H | Short_Literal 0x1 0352 4802 |H | Short_Literal 0x2 0353 e005 | | Load 0x0,0x5 0354 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0355 035b | [ | Declare_Type Array,Constrained 0356 0337 | 7 | Declare_Variable Array 0357 e5fe | | Load 0x2,-0x2 0358 e002 | | Load 0x0,0x2 0359 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 035a e005 | | Load 0x0,0x5 035b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 035c e005 | | Load 0x0,0x5 035d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035e 0119 | | Execute Any,Check_In_Formal_Type 035f 4801 |H | Short_Literal 0x1 0360 00da | | Load_Top At_Offset_2 0361 01d6 | | Execute Vector,Field_Write 0362 e5fe | | Load 0x2,-0x2 0363 e002 | | Load 0x0,0x2 0364 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0365 e005 | | Load 0x0,0x5 0366 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0367 e005 | | Load 0x0,0x5 0368 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0369 0119 | | Execute Any,Check_In_Formal_Type 036a 4802 |H | Short_Literal 0x2 036b 00da | | Load_Top At_Offset_2 036c 01d6 | | Execute Vector,Field_Write 036d 4806 |H | Short_Literal 0x6 036e 6055 |`U | Indirect_Literal Discrete,0x3c4,{0x00000000, 0x0000814a} 036f e003 | | Load 0x0,0x3 0370 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0371 e005 | | Load 0x0,0x5 0372 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0373 6050 |`P | Indirect_Literal Discrete,0x3c4,{0x00000000, 0x0000814a} 0374 e003 | | Load 0x0,0x3 0375 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0376 a5fc | | Store_Unchecked 0x2,-0x4 0377 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0378 00db | | Load_Top At_Offset_3 0379 e002 | | Load 0x0,0x2 037a 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 037b 6830 |h0 | Jump_Zero 0x3ac 037c e5fd | | Load 0x2,-0x3 037d e5fe | | Load 0x2,-0x2 037e e002 | | Load 0x0,0x2 037f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0380 e5ff | | Load 0x2,-0x1 0381 e00d | | Load 0x0,0xd 0382 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0383 7028 |p( | Jump_Nonzero 0x3ac 0384 e00e | | Load 0x0,0xe 0385 180e | | Execute Package,Field_Execute,Field_Number 0xe 0386 4801 |H | Short_Literal 0x1 0387 4802 |H | Short_Literal 0x2 0388 e005 | | Load 0x0,0x5 0389 1b0f | | Execute Package,Field_Read,Field_Number 0xf 038a 035b | [ | Declare_Type Array,Constrained 038b 0337 | 7 | Declare_Variable Array 038c e5fe | | Load 0x2,-0x2 038d e002 | | Load 0x0,0x2 038e 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 038f e005 | | Load 0x0,0x5 0390 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0391 e005 | | Load 0x0,0x5 0392 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0393 0119 | | Execute Any,Check_In_Formal_Type 0394 4801 |H | Short_Literal 0x1 0395 00da | | Load_Top At_Offset_2 0396 01d6 | | Execute Vector,Field_Write 0397 e5fe | | Load 0x2,-0x2 0398 e002 | | Load 0x0,0x2 0399 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 039a e005 | | Load 0x0,0x5 039b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 039c e005 | | Load 0x0,0x5 039d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 039e 0119 | | Execute Any,Check_In_Formal_Type 039f 4802 |H | Short_Literal 0x2 03a0 00da | | Load_Top At_Offset_2 03a1 01d6 | | Execute Vector,Field_Write 03a2 4806 |H | Short_Literal 0x6 03a3 601c |` | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x0000814b} 03a4 e003 | | Load 0x0,0x3 03a5 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 03a6 e005 | | Load 0x0,0x5 03a7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03a8 6017 |` | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x0000814b} 03a9 e003 | | Load 0x0,0x3 03aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ab a5fc | | Store_Unchecked 0x2,-0x4 03ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ad TRAP_0340: 03ad 0007 | | Action Break_Optional 03ae e5fd | | Load 0x2,-0x3 03af 0092 0596 | | Action Push_String_Extended,0x596 ; "Associated_Files.Check_File" 03b1 e004 | | Load 0x0,0x4 03b2 180f | | Execute Package,Field_Execute,Field_Number 0xf 03b3 e005 | | Load 0x0,0x5 03b4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03b5 6006 |` | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x0000813b} 03b6 e003 | | Load 0x0,0x3 03b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03b8 a5fc | | Store_Unchecked 0x2,-0x4 03b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ba 0000 0000 | | .XXX[0x2] 03bc 0000 0000 | | .LITERAL {0x00000000, 0x0000813b} 03c0 0000 0000 | | .LITERAL {0x00000000, 0x0000814b} 03c4 0000 0000 | | .LITERAL {0x00000000, 0x0000814a} 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03e0 | | .CONST 0x03e0 ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0004 | | .CONST 0x0004 ; Number of locals 03cb INIT_03c8: 03cb e002 | | Load 0x0,0x2 03cc 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 03cd 02c7 | | Declare_Variable Any 03ce e40c | | Load 0x2,0xc 03cf e402 | | Load 0x2,0x2 03d0 01d7 | | Execute Vector,Field_Read 03d1 a602 | | Store_Unchecked 0x3,0x2 03d2 e5fc | | Load 0x2,-0x4 03d3 e009 | | Load 0x0,0x9 03d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03d5 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 03d6 00d9 | | Load_Top At_Offset_1 03d7 824f | O | Call 0x1,0x4f 03d8 e5f7 | | Load 0x2,-0x9 03d9 e5f8 | | Load 0x2,-0x8 03da e5fa | | Load 0x2,-0x6 03db e5fb | | Load 0x2,-0x5 03dc e5fc | | Load 0x2,-0x4 03dd e5ff | | Load 0x2,-0x1 03de e602 | | Load 0x3,0x2 03df 8255 | U | Call 0x1,0x55 03e0 BODY_03c8: 03e0 4801 |H | Short_Literal 0x1 03e1 0092 0597 | | Action Push_String_Extended,0x597 ; "exe" 03e3 e602 | | Load 0x3,0x2 03e4 e002 | | Load 0x0,0x2 03e5 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 03e6 e00c | | Load 0x0,0xc 03e7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 03e8 6808 |h | Jump_Zero 0x3f1 03e9 e5f9 | | Load 0x2,-0x7 03ea 01db | | Execute Vector,Length 03eb 0e00 | | Execute_Immediate Not_Equal,0x0 03ec e407 | | Load 0x2,0x7 03ed 0f00 | | Execute_Immediate Equal,0x0 03ee 0278 | x | Execute Discrete,Or 03ef 6801 |h | Jump_Zero 0x3f1 03f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03f1 e405 | | Load 0x2,0x5 03f2 6820 |h | Jump_Zero 0x413 03f3 e00e | | Load 0x0,0xe 03f4 180e | | Execute Package,Field_Execute,Field_Number 0xe 03f5 4801 |H | Short_Literal 0x1 03f6 4801 |H | Short_Literal 0x1 03f7 e005 | | Load 0x0,0x5 03f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03f9 035b | [ | Declare_Type Array,Constrained 03fa 0337 | 7 | Declare_Variable Array 03fb 0092 0598 | | Action Push_String_Extended,0x598 ; "Not retrieving host file \x22" 03fd e603 | | Load 0x3,0x3 03fe 01cc | | Execute Vector,Catenate 03ff 0092 0599 | | Action Push_String_Extended,0x599 ; "\x22 from remote file \x22" 0401 01cc | | Execute Vector,Catenate 0402 00db | | Load_Top At_Offset_3 0403 01cc | | Execute Vector,Catenate 0404 0092 059a | | Action Push_String_Extended,0x59a ; "\x22" 0406 01cc | | Execute Vector,Catenate 0407 e005 | | Load 0x0,0x5 0408 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0409 e005 | | Load 0x0,0x5 040a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 040b 0119 | | Execute Any,Check_In_Formal_Type 040c 4801 |H | Short_Literal 0x1 040d 00da | | Load_Top At_Offset_2 040e 01d6 | | Execute Vector,Field_Write 040f 601c |` | Indirect_Literal Discrete,0x42c,{0x00000000, 0x0000818f} 0410 e003 | | Load 0x0,0x3 0411 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0412 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0413 e003 | | Load 0x0,0x3 0414 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0415 e406 | | Load 0x2,0x6 0416 e602 | | Load 0x3,0x2 0417 e002 | | Load 0x0,0x2 0418 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0419 8257 | W | Call 0x1,0x57 041a e5f6 | | Load 0x2,-0xa 041b e604 | | Load 0x3,0x4 041c e603 | | Load 0x3,0x3 041d e00f | | Load 0x0,0xf 041e 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 041f c403 | | Store 0x2,0x3 0420 4800 |H | Short_Literal 0x0 0421 e403 | | Load 0x2,0x3 0422 e003 | | Load 0x0,0x3 0423 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0424 7005 |p | Jump_Nonzero 0x42a 0425 e5f7 | | Load 0x2,-0x9 0426 4806 |H | Short_Literal 0x6 0427 e403 | | Load 0x2,0x3 0428 e003 | | Load 0x0,0x3 0429 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 042a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 042b 0000 | | .XXX[0x1] 042c 0000 0000 | | .LITERAL {0x00000000, 0x0000818f} 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0442 | B | .CONST 0x0442 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0003 | | .CONST 0x0003 ; Number of locals 0433 INIT_0430: 0433 e5fc | | Load 0x2,-0x4 0434 e009 | | Load 0x0,0x9 0435 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0436 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0437 0092 059b | | Action Push_String_Extended,0x59b ; ".<EXE>" 0439 01cc | | Execute Vector,Catenate 043a 0007 | | Action Break_Optional 043b e5fa | | Load 0x2,-0x6 043c e5f9 | | Load 0x2,-0x7 043d e5ff | | Load 0x2,-0x1 043e e008 | | Load 0x0,0x8 043f 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0440 e008 | | Load 0x0,0x8 0441 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0442 BODY_0430: 0442 e405 | | Load 0x2,0x5 0443 6820 |h | Jump_Zero 0x464 0444 e00e | | Load 0x0,0xe 0445 180e | | Execute Package,Field_Execute,Field_Number 0xe 0446 4801 |H | Short_Literal 0x1 0447 4801 |H | Short_Literal 0x1 0448 e005 | | Load 0x0,0x5 0449 1b0f | | Execute Package,Field_Read,Field_Number 0xf 044a 035b | [ | Declare_Type Array,Constrained 044b 0337 | 7 | Declare_Variable Array 044c 0092 0598 | | Action Push_String_Extended,0x598 ; "Not retrieving host file \x22" 044e e602 | | Load 0x3,0x2 044f 01cc | | Execute Vector,Catenate 0450 0092 059c | | Action Push_String_Extended,0x59c ; "\x22 from remote executable \x22" 0452 01cc | | Execute Vector,Catenate 0453 00db | | Load_Top At_Offset_3 0454 01cc | | Execute Vector,Catenate 0455 0092 059a | | Action Push_String_Extended,0x59a ; "\x22" 0457 01cc | | Execute Vector,Catenate 0458 e005 | | Load 0x0,0x5 0459 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045a e005 | | Load 0x0,0x5 045b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 045c 0119 | | Execute Any,Check_In_Formal_Type 045d 4801 |H | Short_Literal 0x1 045e 00da | | Load_Top At_Offset_2 045f 01d6 | | Execute Vector,Field_Write 0460 67cb |g | Indirect_Literal Discrete,0x42c,{0x00000000, 0x0000818f} 0461 e003 | | Load 0x0,0x3 0462 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0463 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0464 e003 | | Load 0x0,0x3 0465 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0466 e406 | | Load 0x2,0x6 0467 4801 |H | Short_Literal 0x1 0468 e5f6 | | Load 0x2,-0xa 0469 e603 | | Load 0x3,0x3 046a e602 | | Load 0x3,0x2 046b e00f | | Load 0x0,0xf 046c 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 046d c403 | | Store 0x2,0x3 046e 4800 |H | Short_Literal 0x0 046f e403 | | Load 0x2,0x3 0470 e003 | | Load 0x0,0x3 0471 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0472 7005 |p | Jump_Nonzero 0x478 0473 e5f7 | | Load 0x2,-0x9 0474 4806 |H | Short_Literal 0x6 0475 e403 | | Load 0x2,0x3 0476 e003 | | Load 0x0,0x3 0477 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0478 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0479 0000 0000 | | .BLANK 0000[0x7] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 048b | | .CONST 0x048b ; Address of begin 0481 0493 | | .CONST 0x0493 ; Address of exception handler 0482 0002 | | .CONST 0x0002 ; Number of locals 0483 INIT_0480: 0483 e5fc | | Load 0x2,-0x4 0484 e009 | | Load 0x0,0x9 0485 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0486 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0487 e406 | | Load 0x2,0x6 0488 e402 | | Load 0x2,0x2 0489 01d7 | | Execute Vector,Field_Read 048a 824f | O | Call 0x1,0x4f 048b BODY_0480: 048b 00ea | | Load_Encached Null_String_Cache 048c 0092 059d | | Action Push_String_Extended,0x59d ; "<WORLDS>" 048e 4801 |H | Short_Literal 0x1 048f 00db | | Load_Top At_Offset_3 0490 e010 | | Load 0x0,0x10 0491 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0492 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0493 TRAP_0480: 0493 0007 | | Action Break_Optional 0494 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0495 0000 0000 | | .XXX[0x3] 0497 0000 | | 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 04ab | | .CONST 0x04ab ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0003 | | .CONST 0x0003 ; Number of locals 049b INIT_0498: 049b 4800 |H | Short_Literal 0x0 049c 00db | | Load_Top At_Offset_3 049d 0092 059e | | Action Push_String_Extended,0x59e ; "." 049f e00c | | Load 0x0,0xc 04a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04a1 00e3 | | Load_Encached Natural_Cache 04a2 03f1 | | Declare_Variable Discrete,With_Value 04a3 4800 |H | Short_Literal 0x0 04a4 e7ff | | Load 0x3,-0x1 04a5 0092 059e | | Action Push_String_Extended,0x59e ; "." 04a7 e00c | | Load 0x0,0xc 04a8 181f | | Execute Package,Field_Execute,Field_Number 0x1f 04a9 00e3 | | Load_Encached Natural_Cache 04aa 03f1 | | Declare_Variable Discrete,With_Value 04ab BODY_0498: 04ab e404 | | Load 0x2,0x4 04ac 01db | | Execute Vector,Length 04ad 0f00 | | Execute_Immediate Equal,0x0 04ae 00da | | Load_Top At_Offset_2 04af 0f00 | | Execute_Immediate Equal,0x0 04b0 0278 | x | Execute Discrete,Or 04b1 6802 |h | Jump_Zero 0x4b4 04b2 e7ff | | Load 0x3,-0x1 04b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b4 e7ff | | Load 0x3,-0x1 04b5 01dd | | Execute Vector,First 04b6 00da | | Load_Top At_Offset_2 04b7 0aff | | Execute_Immediate Plus,-0x1 04b8 e7ff | | Load 0x3,-0x1 04b9 01cf | | Execute Vector,Slice_Read 04ba e404 | | Load 0x2,0x4 04bb 01cc | | Execute Vector,Catenate 04bc 00d9 | | Load_Top At_Offset_1 04bd 0a01 | | Execute_Immediate Plus,0x1 04be 00d8 | | Load_Top At_Offset_0 04bf 00e2 | | Load_Encached Integer_Cache 04c0 0260 | ` | Execute Discrete,In_Type 04c1 7001 |p | Jump_Nonzero 0x4c3 04c2 0801 | | Execute_Immediate Raise,0x1 04c3 e7ff | | Load 0x3,-0x1 04c4 01dc | | Execute Vector,Last 04c5 e7ff | | Load 0x3,-0x1 04c6 01cf | | Execute Vector,Slice_Read 04c7 01cc | | Execute Vector,Catenate 04c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04c9 0000 0000 | | .BLANK 0000[0x7] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04de | | .CONST 0x04de ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0003 | | .CONST 0x0003 ; Number of locals 04d3 INIT_04d0: 04d3 e403 | | Load 0x2,0x3 04d4 8407 | | Call 0x2,0x7 04d5 4800 |H | Short_Literal 0x0 04d6 00d9 | | Load_Top At_Offset_1 04d7 0092 059f | | Action Push_String_Extended,0x59f ; "'" 04d9 e00c | | Load 0x0,0xc 04da 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04db 0aff | | Execute_Immediate Plus,-0x1 04dc 00e2 | | Load_Encached Integer_Cache 04dd 03f1 | | Declare_Variable Discrete,With_Value 04de BODY_04d0: 04de 00d8 | | Load_Top At_Offset_0 04df 0d00 | | Execute_Immediate Less,0x0 04e0 6803 |h | Jump_Zero 0x4e4 04e1 00d9 | | Load_Top At_Offset_1 04e2 01dc | | Execute Vector,Last 04e3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 04e4 4801 |H | Short_Literal 0x1 04e5 e402 | | Load 0x2,0x2 04e6 0092 05a0 | | Action Push_String_Extended,0x5a0 ; "'spec" 04e8 e00c | | Load 0x0,0xc 04e9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04ea 0c01 | | Execute_Immediate Greater_Equal,0x1 04eb 6818 |h | Jump_Zero 0x504 04ec e5ff | | Load 0x2,-0x1 04ed e002 | | Load 0x0,0x2 04ee 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 04ef 680b |h | Jump_Zero 0x4fb 04f0 00d9 | | Load_Top At_Offset_1 04f1 01dd | | Execute Vector,First 04f2 00d9 | | Load_Top At_Offset_1 04f3 00db | | Load_Top At_Offset_3 04f4 01cf | | Execute Vector,Slice_Read 04f5 e00c | | Load 0x0,0xc 04f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04f7 e405 | | Load 0x2,0x5 04f8 01cc | | Execute Vector,Catenate 04f9 00cb | | Action Pop_Block_With_Result 04fa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04fb 00d9 | | Load_Top At_Offset_1 04fc 01dd | | Execute Vector,First 04fd 00d9 | | Load_Top At_Offset_1 04fe 00db | | Load_Top At_Offset_3 04ff 01cf | | Execute Vector,Slice_Read 0500 e405 | | Load 0x2,0x5 0501 01cc | | Execute Vector,Catenate 0502 00cb | | Action Pop_Block_With_Result 0503 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0504 e5ff | | Load 0x2,-0x1 0505 e002 | | Load 0x0,0x2 0506 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0507 680b |h | Jump_Zero 0x513 0508 00d9 | | Load_Top At_Offset_1 0509 01dd | | Execute Vector,First 050a 00d9 | | Load_Top At_Offset_1 050b 00db | | Load_Top At_Offset_3 050c 01cf | | Execute Vector,Slice_Read 050d e00c | | Load 0x0,0xc 050e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 050f e406 | | Load 0x2,0x6 0510 01cc | | Execute Vector,Catenate 0511 00cb | | Action Pop_Block_With_Result 0512 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0513 00d9 | | Load_Top At_Offset_1 0514 01dd | | Execute Vector,First 0515 00d9 | | Load_Top At_Offset_1 0516 00db | | Load_Top At_Offset_3 0517 01cf | | Execute Vector,Slice_Read 0518 e406 | | Load 0x2,0x6 0519 01cc | | Execute Vector,Catenate 051a 00cb | | Action Pop_Block_With_Result 051b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 051c 0000 0000 | | .BLANK 0000[0x4] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 052c | , | .CONST 0x052c ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0002 | | .CONST 0x0002 ; Number of locals 0523 INIT_0520: 0523 e5f9 | | Load 0x2,-0x7 0524 e5fa | | Load 0x2,-0x6 0525 e5fd | | Load 0x2,-0x3 0526 e5ff | | Load 0x2,-0x1 0527 e002 | | Load 0x0,0x2 0528 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0529 e5fe | | Load 0x2,-0x2 052a e00d | | Load 0x0,0xd 052b 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 052c BODY_0520: 052c 00d8 | | Load_Top At_Offset_0 052d 01db | | Execute Vector,Length 052e 680a |h | Jump_Zero 0x539 052f e403 | | Load 0x2,0x3 0530 e5fb | | Load 0x2,-0x5 0531 e5fe | | Load 0x2,-0x2 0532 8254 | T | Call 0x1,0x54 0533 00d9 | | Load_Top At_Offset_1 0534 e402 | | Load 0x2,0x2 0535 e008 | | Load 0x0,0x8 0536 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0537 00cb | | Action Pop_Block_With_Result 0538 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7 0539 4501 |E | Exit_Suprogram New_Top_Offset 0x1 053a 0000 0000 | | .BLANK 0000[0x6] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 054c | L | .CONST 0x054c ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0003 | | .CONST 0x0003 ; Number of locals 0543 INIT_0540: 0543 00e1 | | Load_Encached Boolean_Cache 0544 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0545 00db | | Load_Top At_Offset_3 0546 e002 | | Load 0x0,0x2 0547 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0548 824c | L | Call 0x1,0x4c 0549 e008 | | Load 0x0,0x8 054a 1bc6 | | Execute Package,Field_Read,Field_Number 0xc6 054b 03f1 | | Declare_Variable Discrete,With_Value 054c BODY_0540: 054c e5fc | | Load 0x2,-0x4 054d 6828 |h( | Jump_Zero 0x576 054e e7ff | | Load 0x3,-0x1 054f e002 | | Load 0x0,0x2 0550 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0551 824e | N | Call 0x1,0x4e 0552 e5fd | | Load 0x2,-0x3 0553 01d7 | | Execute Vector,Field_Read 0554 6837 |h7 | Jump_Zero 0x58c 0555 e5fe | | Load 0x2,-0x2 0556 0f03 | | Execute_Immediate Equal,0x3 0557 700d |p | Jump_Nonzero 0x565 0558 00d8 | | Load_Top At_Offset_0 0559 0f03 | | Execute_Immediate Equal,0x3 055a 700a |p | Jump_Nonzero 0x565 055b e5fe | | Load 0x2,-0x2 055c 00d9 | | Load_Top At_Offset_1 055d 027f | | Execute Discrete,Equal 055e 7006 |p | Jump_Nonzero 0x565 055f e5fe | | Load 0x2,-0x2 0560 0f02 | | Execute_Immediate Equal,0x2 0561 00d9 | | Load_Top At_Offset_1 0562 0f00 | | Execute_Immediate Equal,0x0 0563 0279 | y | Execute Discrete,And 0564 6827 |h' | Jump_Zero 0x58c 0565 e7ff | | Load 0x3,-0x1 0566 e002 | | Load 0x0,0x2 0567 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0568 680a |h | Jump_Zero 0x573 0569 e5f9 | | Load 0x2,-0x7 056a e5fa | | Load 0x2,-0x6 056b e5fb | | Load 0x2,-0x5 056c e7ff | | Load 0x3,-0x1 056d e002 | | Load 0x0,0x2 056e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 056f e5ff | | Load 0x2,-0x1 0570 e00d | | Load 0x0,0xd 0571 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0572 6819 |h | Jump_Zero 0x58c 0573 4801 |H | Short_Literal 0x1 0574 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0575 7816 |x | Jump 0x58c 0576 4802 |H | Short_Literal 0x2 0577 e5fd | | Load 0x2,-0x3 0578 01d7 | | Execute Vector,Field_Read 0579 6809 |h | Jump_Zero 0x583 057a e7ff | | Load 0x3,-0x1 057b e002 | | Load 0x0,0x2 057c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 057d 824c | L | Call 0x1,0x4c 057e e5fe | | Load 0x2,-0x2 057f 027f | | Execute Discrete,Equal 0580 680b |h | Jump_Zero 0x58c 0581 4801 |H | Short_Literal 0x1 0582 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0583 e7ff | | Load 0x3,-0x1 0584 e002 | | Load 0x0,0x2 0585 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0586 824e | N | Call 0x1,0x4e 0587 e5fd | | Load 0x2,-0x3 0588 01d7 | | Execute Vector,Field_Read 0589 6802 |h | Jump_Zero 0x58c 058a 4801 |H | Short_Literal 0x1 058b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 058c 00d9 | | Load_Top At_Offset_1 058d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 058e ; -------------------------------------------------------------------------------------- 058e ; STRING TABLE 058e ; -------------------------------------------------------------------------------------- 058e 0028 | ( | .STRTAB 0x0028->0x05a2 ; "Associated_Files.Check_Files" 058f 0042 | B | .STRTAB 0x0042->0x05b0 ; "Associated_Files.Destroy_And_Retrieve" 0590 0065 | e | .STRTAB 0x0065->0x05c2 ; "Associated_Files.Filter_And_Retrieve" 0591 0087 | | .STRTAB 0x0087->0x05d4 ; "Associated_Files.Filter_And_Destroy" 0592 00a8 | | .STRTAB 0x00a8->0x05e6 ; ".<" 0593 00a8 | | .STRTAB 0x00a8->0x05e7 ; ">" 0594 00a7 | | .STRTAB 0x00a7->0x05e7 ; "&" 0595 00a6 | | .STRTAB 0x00a6->0x05e8 ; "Associated_Files.Filter" 0596 00bb | | .STRTAB 0x00bb->0x05f3 ; "Associated_Files.Check_File" 0597 00d4 | | .STRTAB 0x00d4->0x0601 ; "exe" 0598 00d5 | | .STRTAB 0x00d5->0x0602 ; "Not retrieving host file \x22" 0599 00ed | | .STRTAB 0x00ed->0x060f ; "\x22 from remote file \x22" 059a 00ff | | .STRTAB 0x00ff->0x0619 ; "\x22" 059b 00fe | | .STRTAB 0x00fe->0x061a ; ".<EXE>" 059c 0102 | | .STRTAB 0x0102->0x061d ; "\x22 from remote executable \x22" 059d 011a | | .STRTAB 0x011a->0x062a ; "<WORLDS>" 059e 0120 | | .STRTAB 0x0120->0x062e ; "." 059f 011f | | .STRTAB 0x011f->0x062e ; "'" 05a0 011e | | .STRTAB 0x011e->0x062f ; "'spec" 05a1 0121 | ! | .STREND 0x0121->0x0631 05a2 4173 736f |Asso| .STRTAB_STRINGS 0632 0000 0000 | | .BLANK 0000[0x6] 0638 ; -------------------------------------------------------------------------------------- 0638 ; Debug Table 0638 ; -------------------------------------------------------------------------------------- 0638 0004 000e | | .DEBUG4 0x0004,0x000e,0xba27,0x0000,0x0001,0x0000 063e a2a9 a980 | | .XXX[0x1c2] 0640 3dca 3f48 |= ?H| 0642 1180 07ab | | 0644 24a2 aba9 |$ | 0646 afaa 27af | ' | 0648 a4a6 a827 | '| 064a a92a 0b80 | * | 064c 0ca2 24a9 | $ | 064e 22a1 aa27 |" '| 0650 a92c 9727 | , '| 0652 20a6 a4a7 | | 0654 2397 24aa |# $ | 0656 22a9 20aa |" | 0658 27a9 003f |' ?| 065a 4811 8004 |H | 065c a4a7 2a27 | *'| 065e afab 24a2 | $ | 0660 ab8b 8007 | | 0662 a9aa 20a7 | | 0664 2220 a922 |" "| 0666 1729 aa29 | ) )| 0668 24a7 2380 |$ # | 066a 3fc8 1200 |? | 066c 0329 aa20 | ) | 066e aa2a a98b | * | 0670 800b a9a4 | | 0672 a6a8 2622 | &"| 0674 afa9 aa20 | | 0676 aa2a a997 | * | 0678 21a7 a722 |! "| 067a 24aa 24a7 |$ $ | 067c a700 1a9e | | 067e 9600 0924 | $| 0680 a6a8 27a9 | ' | 0682 2a2f a827 |*/ '| 0684 a9aa 2829 | ()| 0686 27a1 a2a9 |' | 0688 a980 3dca | = | 068a 3f48 1180 |?H | 068c 07ab 24a2 | $ | 068e aba9 afaa | | 0690 27af a4a6 |' | 0692 a827 a92a | ' *| 0694 0b80 0ca2 | | 0696 24a9 22a1 |$ " | 0698 aa27 a92c | ' ,| 069a 9727 20a6 | ' | 069c a4a7 2397 | # | 069e 24aa 22a9 |$ " | 06a0 20aa 27a9 | ' | 06a2 003f 4811 | ?H | 06a4 8004 a4a7 | | 06a6 2a27 afab |*' | 06a8 24a2 ab8b |$ | 06aa 8007 a9aa | | 06ac 20a7 2220 | " | 06ae a922 1729 | " )| 06b0 aa29 24a7 | )$ | 06b2 2380 3fc8 |# ? | 06b4 1200 0329 | )| 06b6 aa20 aa2a | *| 06b8 a98b 800b | | 06ba a9a4 a6a8 | | 06bc 2622 afa9 |&" | 06be aa20 aa2a | *| 06c0 a997 21a7 | ! | 06c2 a722 24aa | "$ | 06c4 24a7 a700 |$ | 06c6 1a9e 9600 | | 06c8 0c29 22a6 | )" | 06ca a7ab 22af | " | 06cc a4a6 a827 | '| 06ce a92a 2fa8 | */ | 06d0 2922 a829 |)" )| 06d2 27a1 a2a9 |' | 06d4 a980 3dca | = | 06d6 3f48 1180 |?H | 06d8 072b 24a2 | +$ | 06da abaf aa27 | '| 06dc afa9 22a6 | " | 06de a7ab 228b | " | 06e0 8008 2224 | "$| 06e2 a922 a1aa | " | 06e4 27a9 2c97 |' , | 06e6 27a1 2522 |' %"| 06e8 a1aa 003f | ?| 06ea 4811 8004 |H | 06ec a329 27a6 | )' | 06ee afab 24a2 | $ | 06f0 ab8b 8007 | | 06f2 a9aa 20a7 | | 06f4 2220 a922 |" "| 06f6 1729 aa29 | ) )| 06f8 24a7 2380 |$ # | 06fa 3fc8 1200 |? | 06fc 0329 aa20 | ) | 06fe aa2a a98b | * | 0700 800b a9a4 | | 0702 a6a8 2622 | &"| 0704 afa9 aa20 | | 0706 aa2a a997 | * | 0708 21a7 a722 |! "| 070a 24aa 24a7 |$ $ | 070c a700 1a9e | | 070e 9600 0ca9 | | 0710 22a6 a7ab |" | 0712 22af a4a6 |" | 0714 a827 a92a | ' *| 0716 2fa8 27a9 |/ ' | 0718 aa28 2927 | ()'| 071a a1a2 a9a9 | | 071c 803d ca3f | = ?| 071e 4811 8007 |H | 0720 2b24 a2ab |+$ | 0722 afaa 27af | ' | 0724 a922 a6a7 | " | 0726 ab22 8b80 | " | 0728 0822 24a9 | "$ | 072a 22a1 aa27 |" '| 072c a92c 9727 | , '| 072e a125 22a1 | %" | 0730 aa00 3f48 | ?H| 0732 1180 04a3 | | 0734 2927 a6af |)' | 0736 ab24 a2ab | $ | 0738 8b80 07a9 | | 073a aa20 a722 | "| 073c 20a9 2217 | " | 073e 29aa 2924 |) )$| 0740 a723 803f | # ?| 0742 c812 0003 | | 0744 29aa 20aa |) | 0746 2aa9 8b80 |* | 0748 0ba9 a4a6 | | 074a a826 22af | &" | 074c a9aa 20aa | | 074e 2aa9 9721 |* !| 0750 a7a7 2224 | "$| 0752 aa24 a7a7 | $ | 0754 001a 9e96 | | 0756 0009 2922 | )"| 0758 a622 a0a9 | " | 075a a2af a829 | )| 075c 22a8 2927 |" )'| 075e a1a2 a9a9 | | 0760 803d ca3f | = ?| 0762 4811 8008 |H | 0764 a329 27a6 | )' | 0766 afab a7a9 | | 0768 25a4 a723 |% #| 076a afab 24a2 | $ | 076c ab8b 8007 | | 076e a9aa 20a7 | | 0770 2220 a922 |" "| 0772 1729 aa29 | ) )| 0774 24a7 2380 |$ # | 0776 3f48 1180 |?H | 0778 06a9 22a6 | " | 077a 22a0 a9a2 |" | 077c a22f ab24 | / $| 077e a2ab 8b80 | | 0780 07a9 aa20 | | 0782 a722 20a9 | " | 0784 2217 29aa |" ) | 0786 2924 a723 |)$ #| 0788 803f 4811 | ?H | 078a 8007 2922 | )"| 078c a6a7 aa22 | "| 078e afa6 a0a1 | | 0790 a424 a722 | $ "| 0792 8b80 07a9 | | 0794 aa20 a722 | "| 0796 20a9 2217 | " | 0798 29aa 2924 |) )$| 079a a723 803f | # ?| 079c 4811 8008 |H | 079e 2922 a6a7 |)" | 07a0 aa22 afa2 | " | 07a2 24a9 22a1 |$ " | 07a4 aa27 a92c | ' ,| 07a6 8b80 07a9 | | 07a8 aa20 a722 | "| 07aa 20a9 2217 | " | 07ac 29aa 2924 |) )$| 07ae a723 803f | # ?| 07b0 4811 800b |H | 07b2 2922 a6a7 |)" | 07b4 aa22 afa8 | " | 07b6 2927 a3a9 |)' | 07b8 20a6 afa6 | | 07ba 24a1 2920 |$ ) | 07bc a92c 8b80 | , | 07be 07a9 aa20 | | 07c0 a722 20a9 | " | 07c2 2217 29aa |" ) | 07c4 2924 a723 |)$ #| 07c6 803f c812 | ? | 07c8 0003 29aa | ) | 07ca 20aa 2aa9 | * | 07cc 8b80 0ba9 | | 07ce a4a6 a826 | &| 07d0 22af a9aa |" | 07d2 20aa 2aa9 | * | 07d4 9721 a7a7 | ! | 07d6 2224 aa24 |"$ $| 07d8 a7a7 001a | | 07da 9e96 0009 | | 07dc a922 a622 | " "| 07de a0a9 a2af | | 07e0 a827 a9aa | ' | 07e2 2829 27a1 |()' | 07e4 a2a9 a980 | | 07e6 3dca 3f48 |= ?H| 07e8 1180 072b | +| 07ea 24a2 abaf |$ | 07ec aa27 afa9 | ' | 07ee 22a6 a7ab |" | 07f0 228b 8007 |" | 07f2 a9aa 20a7 | | 07f4 2220 a922 |" "| 07f6 1729 aa29 | ) )| 07f8 24a7 2380 |$ # | 07fa 3f48 1180 |?H | 07fc 06a9 22a6 | " | 07fe 22a0 a9a2 |" |