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