|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0340 | @ | .CONST 0x0340 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0057 | W | .CONST 0x0057 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 000d 0266 | f | Execute Discrete,Bounds 000e e001 | | Load 0x0,0x1 000f 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0010 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0011 02a0 | | Declare_Subprogram Null_Subprogram 0012 4801 |H | Short_Literal 0x1 0013 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0014 e001 | | Load 0x0,0x1 0015 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0016 0266 | f | Execute Discrete,Bounds 0017 e001 | | Load 0x0,0x1 0018 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0019 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 001a 02a0 | | Declare_Subprogram Null_Subprogram 001b 4801 |H | Short_Literal 0x1 001c 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 001d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 001f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0021 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0023 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0025 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0027 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0029 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 002b 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 002d 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 002f 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0031 00bf | | Action Accept_Activation 0032 e001 | | Load 0x0,0x1 0033 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0034 0266 | f | Execute Discrete,Bounds 0035 00e1 | | Load_Encached Boolean_Cache 0036 02a0 | | Declare_Subprogram Null_Subprogram 0037 4801 |H | Short_Literal 0x1 0038 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0039 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 003b 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 003d 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 003f 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 0041 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0042 00c7 | | Action Elaborate_Subprogram 0043 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0044 00c7 | | Action Elaborate_Subprogram 0045 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0046 00c7 | | Action Elaborate_Subprogram 0047 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0048 00c7 | | Action Elaborate_Subprogram 0049 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004a 00c7 | | Action Elaborate_Subprogram 004b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004c 00c7 | | Action Elaborate_Subprogram 004d 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call 004f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0050 00c7 | | Action Elaborate_Subprogram 0051 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0052 00c7 | | Action Elaborate_Subprogram 0053 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0054 00c7 | | Action Elaborate_Subprogram 0055 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0056 00c7 | | Action Elaborate_Subprogram 0057 BODY_0008: 0057 00bc | | Action Signal_Activated 0058 00bb | | Action Signal_Completion 0059 0000 0000 | | .BLANK 0000[0x7] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0064 | d | .CONST 0x0064 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 00e1 | | Load_Encached Boolean_Cache 0064 BODY_0060: 0064 e001 | | Load 0x0,0x1 0065 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0066 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0067 e5fe | | Load 0x2,-0x2 0068 017d | } | Execute Record,Structure_Write 0069 00db | | Load_Top At_Offset_3 006a e002 | | Load 0x0,0x2 006b 180f | | Execute Package,Field_Execute,Field_Number 0xf 006c 700b |p | Jump_Nonzero 0x78 006d 00e1 | | Load_Encached Boolean_Cache 006e e5fe | | Load 0x2,-0x2 006f 4803 |H | Short_Literal 0x3 0070 e5ff | | Load 0x2,-0x1 0071 e003 | | Load 0x0,0x3 0072 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0073 e001 | | Load 0x0,0x1 0074 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0075 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0076 00d1 | | Pop_Control Pop_Count_1 0077 0059 | Y | Store_Top Discrete,At_Offset_1 0078 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0079 0000 0000 | | .BLANK 0000[0x7] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008d | | .CONST 0x008d ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0003 | | .CONST 0x0003 ; Number of locals 0083 INIT_0080: 0083 00e1 | | Load_Encached Boolean_Cache 0084 e001 | | Load 0x0,0x1 0085 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0086 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0087 0322 | " | Declare_Variable Record 0088 e001 | | Load 0x0,0x1 0089 1b20 | | Execute Package,Field_Read,Field_Number 0x20 008a 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 008b 00d9 | | Load_Top At_Offset_1 008c 017d | } | Execute Record,Structure_Write 008d BODY_0080: 008d e5ff | | Load 0x2,-0x1 008e e002 | | Load 0x0,0x2 008f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0090 7009 |p | Jump_Nonzero 0x9a 0091 00e1 | | Load_Encached Boolean_Cache 0092 00d9 | | Load_Top At_Offset_1 0093 4803 |H | Short_Literal 0x3 0094 e5ff | | Load 0x2,-0x1 0095 e001 | | Load 0x0,0x1 0096 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0097 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0098 00d1 | | Pop_Control Pop_Count_1 0099 005a | Z | Store_Top Discrete,At_Offset_2 009a 00d8 | | Load_Top At_Offset_0 009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00aa | | .CONST 0x00aa ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e001 | | Load 0x0,0x1 00a4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00a5 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 00a6 0322 | " | Declare_Variable Record 00a7 00db | | Load_Top At_Offset_3 00a8 00d9 | | Load_Top At_Offset_1 00a9 017d | } | Execute Record,Structure_Write 00aa BODY_00a0: 00aa 00d8 | | Load_Top At_Offset_0 00ab e001 | | Load 0x0,0x1 00ac 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00ad 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00ae 00d1 | | Pop_Control Pop_Count_1 00af 00cf | | Action Mark_Auxiliary 00b0 7812 |x | Jump 0xc3 00b1 00d9 | | Load_Top At_Offset_1 00b2 e001 | | Load 0x0,0x1 00b3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00b5 a5fe | | Store_Unchecked 0x2,-0x2 00b6 e5fe | | Load 0x2,-0x2 00b7 e001 | | Load 0x0,0x1 00b8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00ba 0f01 | | Execute_Immediate Equal,0x1 00bb 7001 |p | Jump_Nonzero 0xbd 00bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bd 00d9 | | Load_Top At_Offset_1 00be e001 | | Load 0x0,0x1 00bf 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00c0 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00c1 00d1 | | Pop_Control Pop_Count_1 00c2 00c9 | | Action Pop_Auxiliary_Loop 00c3 00d9 | | Load_Top At_Offset_1 00c4 e001 | | Load 0x0,0x1 00c5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00c6 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00c7 6fe9 |o | Jump_Zero 0xb1 00c8 00ce | | Action Pop_Auxiliary 00c9 e001 | | Load 0x0,0x1 00ca 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00cb 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00cc a5fe | | Store_Unchecked 0x2,-0x2 00cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00da | | .CONST 0x00da ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 e001 | | Load 0x0,0x1 00d4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00d5 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 00d6 0322 | " | Declare_Variable Record 00d7 e5fe | | Load 0x2,-0x2 00d8 00d9 | | Load_Top At_Offset_1 00d9 017d | } | Execute Record,Structure_Write 00da BODY_00d0: 00da 00d8 | | Load_Top At_Offset_0 00db e001 | | Load 0x0,0x1 00dc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00dd 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 00de 00d1 | | Pop_Control Pop_Count_1 00df 00cf | | Action Mark_Auxiliary 00e0 7819 |x | Jump 0xfa 00e1 00d9 | | Load_Top At_Offset_1 00e2 e001 | | Load 0x0,0x1 00e3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00e4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00e5 a5fd | | Store_Unchecked 0x2,-0x3 00e6 e5fd | | Load 0x2,-0x3 00e7 e001 | | Load 0x0,0x1 00e8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00e9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00ea 0f01 | | Execute_Immediate Equal,0x1 00eb 6808 |h | Jump_Zero 0xf4 00ec e5fd | | Load 0x2,-0x3 00ed e001 | | Load 0x0,0x1 00ee 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00ef 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00f0 e5ff | | Load 0x2,-0x1 00f1 027f | | Execute Discrete,Equal 00f2 6801 |h | Jump_Zero 0xf4 00f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f4 00d9 | | Load_Top At_Offset_1 00f5 e001 | | Load 0x0,0x1 00f6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00f7 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00f8 00d1 | | Pop_Control Pop_Count_1 00f9 00c9 | | Action Pop_Auxiliary_Loop 00fa 00d9 | | Load_Top At_Offset_1 00fb e001 | | Load 0x0,0x1 00fc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00fd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00fe 6fe2 |o | Jump_Zero 0xe1 00ff 00ce | | Action Pop_Auxiliary 0100 e001 | | Load 0x0,0x1 0101 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0102 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0103 a5fd | | Store_Unchecked 0x2,-0x3 0104 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0115 | | .CONST 0x0115 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0003 | | .CONST 0x0003 ; Number of locals 010b INIT_0108: 010b e001 | | Load 0x0,0x1 010c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 010d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 010e 0322 | " | Declare_Variable Record 010f e5fe | | Load 0x2,-0x2 0110 00d9 | | Load_Top At_Offset_1 0111 017d | } | Execute Record,Structure_Write 0112 e001 | | Load 0x0,0x1 0113 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0114 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0115 BODY_0108: 0115 00d9 | | Load_Top At_Offset_1 0116 e001 | | Load 0x0,0x1 0117 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0118 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0119 00d1 | | Pop_Control Pop_Count_1 011a 00cf | | Action Mark_Auxiliary 011b 781e |x | Jump 0x13a 011c 00da | | Load_Top At_Offset_2 011d e001 | | Load 0x0,0x1 011e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 011f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0120 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0121 00d9 | | Load_Top At_Offset_1 0122 e001 | | Load 0x0,0x1 0123 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0124 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0125 0f01 | | Execute_Immediate Equal,0x1 0126 680d |h | Jump_Zero 0x134 0127 00d9 | | Load_Top At_Offset_1 0128 e001 | | Load 0x0,0x1 0129 1b20 | | Execute Package,Field_Read,Field_Number 0x20 012a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 012b e5ff | | Load 0x2,-0x1 012c 027f | | Execute Discrete,Equal 012d 6806 |h | Jump_Zero 0x134 012e e5fd | | Load 0x2,-0x3 012f 00da | | Load_Top At_Offset_2 0130 e001 | | Load 0x0,0x1 0131 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0132 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0133 00d1 | | Pop_Control Pop_Count_1 0134 00da | | Load_Top At_Offset_2 0135 e001 | | Load 0x0,0x1 0136 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0137 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0138 00d1 | | Pop_Control Pop_Count_1 0139 00c9 | | Action Pop_Auxiliary_Loop 013a 00da | | Load_Top At_Offset_2 013b e001 | | Load 0x0,0x1 013c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 013d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 013e 6fdd |o | Jump_Zero 0x11c 013f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 017e | ~ | .CONST 0x017e ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0007 | | .CONST 0x0007 ; Number of locals 0143 INIT_0140: 0143 e001 | | Load 0x0,0x1 0144 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0145 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0146 0322 | " | Declare_Variable Record 0147 00db | | Load_Top At_Offset_3 0148 00d9 | | Load_Top At_Offset_1 0149 017d | } | Execute Record,Structure_Write 014a e001 | | Load 0x0,0x1 014b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 014c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 014d e5fe | | Load 0x2,-0x2 014e 01da | | Execute Vector,Bounds 014f e001 | | Load 0x0,0x1 0150 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0151 03f8 | | Declare_Type Discrete,Constrained 0152 00d8 | | Load_Top At_Offset_0 0153 0266 | f | Execute Discrete,Bounds 0154 e219 | | Load 0x1,0x19 0155 035b | [ | Declare_Type Array,Constrained 0156 0337 | 7 | Declare_Variable Array 0157 e5fe | | Load 0x2,-0x2 0158 01da | | Execute Vector,Bounds 0159 e219 | | Load 0x1,0x19 015a 035b | [ | Declare_Type Array,Constrained 015b 0337 | 7 | Declare_Variable Array 015c 00d8 | | Load_Top At_Offset_0 015d 01d9 | | Execute Vector,Reverse_Bounds 015e 0263 | c | Execute Discrete,Above_Bound 015f 7005 |p | Jump_Nonzero 0x165 0160 4800 |H | Short_Literal 0x0 0161 00d9 | | Load_Top At_Offset_1 0162 e406 | | Load 0x2,0x6 0163 01d6 | | Execute Vector,Field_Write 0164 3ffb |? | Loop_Increasing 0x160 0165 00d9 | | Load_Top At_Offset_1 0166 01d4 | | Execute Vector,Structure_Write 0167 00d9 | | Load_Top At_Offset_1 0168 0266 | f | Execute Discrete,Bounds 0169 e219 | | Load 0x1,0x19 016a 035b | [ | Declare_Type Array,Constrained 016b 0337 | 7 | Declare_Variable Array 016c e5fe | | Load 0x2,-0x2 016d 01da | | Execute Vector,Bounds 016e e219 | | Load 0x1,0x19 016f 035b | [ | Declare_Type Array,Constrained 0170 0337 | 7 | Declare_Variable Array 0171 00d8 | | Load_Top At_Offset_0 0172 01d9 | | Execute Vector,Reverse_Bounds 0173 0263 | c | Execute Discrete,Above_Bound 0174 7005 |p | Jump_Nonzero 0x17a 0175 4801 |H | Short_Literal 0x1 0176 00d9 | | Load_Top At_Offset_1 0177 e407 | | Load 0x2,0x7 0178 01d6 | | Execute Vector,Field_Write 0179 3ffb |? | Loop_Increasing 0x175 017a 00d9 | | Load_Top At_Offset_1 017b 01d4 | | Execute Vector,Structure_Write 017c e001 | | Load 0x0,0x1 017d 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 017e BODY_0140: 017e e5fe | | Load 0x2,-0x2 017f 821b | | Call 0x1,0x1b 0180 00d1 | | Pop_Control Pop_Count_1 0181 e402 | | Load 0x2,0x2 0182 e001 | | Load 0x0,0x1 0183 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0184 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0185 00d1 | | Pop_Control Pop_Count_1 0186 00cf | | Action Mark_Auxiliary 0187 7829 |x) | Jump 0x1b1 0188 e402 | | Load 0x2,0x2 0189 e001 | | Load 0x0,0x1 018a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 018b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 018c a403 | | Store_Unchecked 0x2,0x3 018d e403 | | Load 0x2,0x3 018e e001 | | Load 0x0,0x1 018f 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0190 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0191 0f01 | | Execute_Immediate Equal,0x1 0192 6818 |h | Jump_Zero 0x1ab 0193 e403 | | Load 0x2,0x3 0194 e001 | | Load 0x0,0x1 0195 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0196 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0197 e404 | | Load 0x2,0x4 0198 0260 | ` | Execute Discrete,In_Type 0199 6811 |h | Jump_Zero 0x1ab 019a e403 | | Load 0x2,0x3 019b e001 | | Load 0x0,0x1 019c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 019d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 019e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 019f e403 | | Load 0x2,0x3 01a0 00da | | Load_Top At_Offset_2 01a1 e5fe | | Load 0x2,-0x2 01a2 01d6 | | Execute Vector,Field_Write 01a3 4801 |H | Short_Literal 0x1 01a4 00da | | Load_Top At_Offset_2 01a5 e405 | | Load 0x2,0x5 01a6 01d6 | | Execute Vector,Field_Write 01a7 00db | | Load_Top At_Offset_3 01a8 00db | | Load_Top At_Offset_3 01a9 01df | | Execute Vector,Equal 01aa 700b |p | Jump_Nonzero 0x1b6 01ab e402 | | Load 0x2,0x2 01ac e001 | | Load 0x0,0x1 01ad 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01ae 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 01af 00d1 | | Pop_Control Pop_Count_1 01b0 00c9 | | Action Pop_Auxiliary_Loop 01b1 e402 | | Load 0x2,0x2 01b2 e001 | | Load 0x0,0x1 01b3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01b4 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 01b5 6fd2 |o | Jump_Zero 0x188 01b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c5 | | .CONST 0x01c5 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0004 | | .CONST 0x0004 ; Number of locals 01bb INIT_01b8: 01bb 00db | | Load_Top At_Offset_3 01bc 01da | | Execute Vector,Bounds 01bd e20e | | Load 0x1,0xe 01be 035b | [ | Declare_Type Array,Constrained 01bf 0337 | 7 | Declare_Variable Array 01c0 e001 | | Load 0x0,0x1 01c1 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01c2 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 01c3 0322 | " | Declare_Variable Record 01c4 00e1 | | Load_Encached Boolean_Cache 01c5 BODY_01b8: 01c5 e5fe | | Load 0x2,-0x2 01c6 821a | | Call 0x1,0x1a 01c7 00d1 | | Pop_Control Pop_Count_1 01c8 00e1 | | Load_Encached Boolean_Cache 01c9 00da | | Load_Top At_Offset_2 01ca 4803 |H | Short_Literal 0x3 01cb e5ff | | Load 0x2,-0x1 01cc e001 | | Load 0x0,0x1 01cd 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01ce 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 01cf 00d1 | | Pop_Control Pop_Count_1 01d0 0059 | Y | Store_Top Discrete,At_Offset_1 01d1 00da | | Load_Top At_Offset_2 01d2 00da | | Load_Top At_Offset_2 01d3 8214 | | Call 0x1,0x14 01d4 00d1 | | Pop_Control Pop_Count_1 01d5 e5fe | | Load 0x2,-0x2 01d6 00d9 | | Load_Top At_Offset_1 01d7 e402 | | Load 0x2,0x2 01d8 821c | | Call 0x1,0x1c 01d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01f7 | | .CONST 0x01f7 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0005 | | .CONST 0x0005 ; Number of locals 01e3 INIT_01e0: 01e3 00db | | Load_Top At_Offset_3 01e4 01da | | Execute Vector,Bounds 01e5 e20d | | Load 0x1,0xd 01e6 035b | [ | Declare_Type Array,Constrained 01e7 0337 | 7 | Declare_Variable Array 01e8 e002 | | Load 0x0,0x2 01e9 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01ea 02c7 | | Declare_Variable Any 01eb e5ff | | Load 0x2,-0x1 01ec a403 | | Store_Unchecked 0x2,0x3 01ed e001 | | Load 0x0,0x1 01ee 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01ef 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 01f0 0322 | " | Declare_Variable Record 01f1 e001 | | Load 0x0,0x1 01f2 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01f3 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 01f4 00d9 | | Load_Top At_Offset_1 01f5 017d | } | Execute Record,Structure_Write 01f6 00e1 | | Load_Encached Boolean_Cache 01f7 BODY_01e0: 01f7 e5fe | | Load 0x2,-0x2 01f8 821a | | Call 0x1,0x1a 01f9 00d1 | | Pop_Control Pop_Count_1 01fa 00cf | | Action Mark_Auxiliary 01fb 7819 |x | Jump 0x215 01fc 00e1 | | Load_Encached Boolean_Cache 01fd 00db | | Load_Top At_Offset_3 01fe 4803 |H | Short_Literal 0x3 01ff e403 | | Load 0x2,0x3 0200 e002 | | Load 0x0,0x2 0201 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0202 e001 | | Load 0x0,0x1 0203 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0204 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0205 00d1 | | Pop_Control Pop_Count_1 0206 005a | Z | Store_Top Discrete,At_Offset_2 0207 e402 | | Load 0x2,0x2 0208 00db | | Load_Top At_Offset_3 0209 821e | | Call 0x1,0x1e 020a 00d1 | | Pop_Control Pop_Count_1 020b e5fe | | Load 0x2,-0x2 020c 00da | | Load_Top At_Offset_2 020d e402 | | Load 0x2,0x2 020e 821d | | Call 0x1,0x1d 020f 00d1 | | Pop_Control Pop_Count_1 0210 00db | | Load_Top At_Offset_3 0211 e002 | | Load 0x0,0x2 0212 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0213 c403 | | Store 0x2,0x3 0214 00c9 | | Action Pop_Auxiliary_Loop 0215 00db | | Load_Top At_Offset_3 0216 e002 | | Load 0x0,0x2 0217 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0218 6fe3 |o | Jump_Zero 0x1fc 0219 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0226 | & | .CONST 0x0226 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 e001 | | Load 0x0,0x1 0224 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0225 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0226 BODY_0220: 0226 00d8 | | Load_Top At_Offset_0 0227 e5fe | | Load 0x2,-0x2 0228 8210 | | Call 0x1,0x10 0229 e5ff | | Load 0x2,-0x1 022a 8212 | | Call 0x1,0x12 022b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 022c 00d8 | | Load_Top At_Offset_0 022d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 e001 | | Load 0x0,0x1 0235 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0236 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0237 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0238 4801 |H | Short_Literal 0x1 0239 4807 |H | Short_Literal 0x7 023a 0262 | b | Execute Discrete,In_Range 023b 7006 |p | Jump_Nonzero 0x242 023c 7800 |x | Jump 0x23d 023d e001 | | Load 0x0,0x1 023e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 023f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0240 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0241 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0242 00da | | Load_Top At_Offset_2 0243 e001 | | Load 0x0,0x1 0244 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0245 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0246 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0247 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00da | | Load_Top At_Offset_2 024c 00d8 | | Load_Top At_Offset_0 024d 0335 | 5 | Declare_Variable Array,Duplicate 024e 00cd | | Action Spare6_Action 024f 00d9 | | Load_Top At_Offset_1 0250 01d9 | | Execute Vector,Reverse_Bounds 0251 0263 | c | Execute Discrete,Above_Bound 0252 7007 |p | Jump_Nonzero 0x25a 0253 e001 | | Load 0x0,0x1 0254 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0255 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0256 00d9 | | Load_Top At_Offset_1 0257 e403 | | Load 0x2,0x3 0258 01d6 | | Execute Vector,Field_Write 0259 3ff9 |? | Loop_Increasing 0x253 025a 00cd | | Action Spare6_Action 025b 00db | | Load_Top At_Offset_3 025c 01d4 | | Execute Vector,Structure_Write 025d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 00d8 | | Load_Top At_Offset_0 0265 0335 | 5 | Declare_Variable Array,Duplicate 0266 00cd | | Action Spare6_Action 0267 00d9 | | Load_Top At_Offset_1 0268 01d9 | | Execute Vector,Reverse_Bounds 0269 0263 | c | Execute Discrete,Above_Bound 026a 7007 |p | Jump_Nonzero 0x272 026b e001 | | Load 0x0,0x1 026c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 026d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 026e 00d9 | | Load_Top At_Offset_1 026f e403 | | Load 0x2,0x3 0270 01d6 | | Execute Vector,Field_Write 0271 3ff9 |? | Loop_Increasing 0x26b 0272 00cd | | Action Spare6_Action 0273 00db | | Load_Top At_Offset_3 0274 01d4 | | Execute Vector,Structure_Write 0275 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0276 0000 0000 | | .XXX[0x2] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00cf | | Action Mark_Auxiliary 027c 00db | | Load_Top At_Offset_3 027d 01d9 | | Execute Vector,Reverse_Bounds 027e 0263 | c | Execute Discrete,Above_Bound 027f 701f |p | Jump_Nonzero 0x29f 0280 00d8 | | Load_Top At_Offset_0 0281 e5ff | | Load 0x2,-0x1 0282 01d7 | | Execute Vector,Field_Read 0283 e001 | | Load 0x0,0x1 0284 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0285 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0286 021f | | Execute Heap_Access,Equal 0287 7015 |p | Jump_Nonzero 0x29d 0288 e5fe | | Load 0x2,-0x2 0289 6808 |h | Jump_Zero 0x292 028a 00d8 | | Load_Top At_Offset_0 028b e5ff | | Load 0x2,-0x1 028c 01d7 | | Execute Vector,Field_Read 028d e001 | | Load 0x0,0x1 028e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 028f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0290 01db | | Execute Vector,Length 0291 700b |p | Jump_Nonzero 0x29d 0292 00d8 | | Load_Top At_Offset_0 0293 e5fd | | Load 0x2,-0x3 0294 01d5 | | Execute Vector,Field_Reference 0295 00d8 | | Load_Top At_Offset_0 0296 00da | | Load_Top At_Offset_2 0297 e5ff | | Load 0x2,-0x1 0298 01d7 | | Execute Vector,Field_Read 0299 e001 | | Load 0x0,0x1 029a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 029b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 029c 00d2 | | Pop_Control Pop_Count_2 029d 00c8 | | Action Pop_Auxiliary_Range 029e 3fe1 |? | Loop_Increasing 0x280 029f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02af | | .CONST 0x02af ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0003 | | .CONST 0x0003 ; Number of locals 02a3 INIT_02a0: 02a3 e001 | | Load 0x0,0x1 02a4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02a5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 02a6 e001 | | Load 0x0,0x1 02a7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02a8 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 02a9 0322 | " | Declare_Variable Record 02aa e001 | | Load 0x0,0x1 02ab 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02ac 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 02ad 00d9 | | Load_Top At_Offset_1 02ae 017d | } | Execute Record,Structure_Write 02af BODY_02a0: 02af 00cf | | Action Mark_Auxiliary 02b0 e5ff | | Load 0x2,-0x1 02b1 01d9 | | Execute Vector,Reverse_Bounds 02b2 0263 | c | Execute Discrete,Above_Bound 02b3 7038 |p8 | Jump_Nonzero 0x2ec 02b4 00d8 | | Load_Top At_Offset_0 02b5 e5ff | | Load 0x2,-0x1 02b6 01d5 | | Execute Vector,Field_Reference 02b7 e001 | | Load 0x0,0x1 02b8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02b9 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 02ba 017f | | Execute Record,Equal 02bb 702e |p. | Jump_Nonzero 0x2ea 02bc 00d8 | | Load_Top At_Offset_0 02bd e5ff | | Load 0x2,-0x1 02be 01d5 | | Execute Vector,Field_Reference 02bf e403 | | Load 0x2,0x3 02c0 017d | } | Execute Record,Structure_Write 02c1 00db | | Load_Top At_Offset_3 02c2 e001 | | Load 0x0,0x1 02c3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02c4 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 02c5 00d1 | | Pop_Control Pop_Count_1 02c6 00cf | | Action Mark_Auxiliary 02c7 781c |x | Jump 0x2e4 02c8 e403 | | Load 0x2,0x3 02c9 e001 | | Load 0x0,0x1 02ca 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02cb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 02cc a402 | | Store_Unchecked 0x2,0x2 02cd e5fe | | Load 0x2,-0x2 02ce 6806 |h | Jump_Zero 0x2d5 02cf e402 | | Load 0x2,0x2 02d0 e001 | | Load 0x0,0x1 02d1 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02d2 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 02d3 01db | | Execute Vector,Length 02d4 7009 |p | Jump_Nonzero 0x2de 02d5 00d9 | | Load_Top At_Offset_1 02d6 e5fd | | Load 0x2,-0x3 02d7 01d5 | | Execute Vector,Field_Reference 02d8 00d8 | | Load_Top At_Offset_0 02d9 e402 | | Load 0x2,0x2 02da e001 | | Load 0x0,0x1 02db 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02dc 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02dd 00d2 | | Pop_Control Pop_Count_2 02de e403 | | Load 0x2,0x3 02df e001 | | Load 0x0,0x1 02e0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02e1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02e2 00d1 | | Pop_Control Pop_Count_1 02e3 00c9 | | Action Pop_Auxiliary_Loop 02e4 e403 | | Load 0x2,0x3 02e5 e001 | | Load 0x0,0x1 02e6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02e7 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02e8 6fdf |o | Jump_Zero 0x2c8 02e9 00ce | | Action Pop_Auxiliary 02ea 00c8 | | Action Pop_Auxiliary_Range 02eb 3fc8 |? | Loop_Increasing 0x2b4 02ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ed 0000 0000 | | .XXX[0x3] 02ef 0000 | | 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 0304 | | .CONST 0x0304 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0005 | | .CONST 0x0005 ; Number of locals 02f3 INIT_02f0: 02f3 e001 | | Load 0x0,0x1 02f4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02f5 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 02f6 0322 | " | Declare_Variable Record 02f7 00db | | Load_Top At_Offset_3 02f8 00d9 | | Load_Top At_Offset_1 02f9 017d | } | Execute Record,Structure_Write 02fa e001 | | Load 0x0,0x1 02fb 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02fc 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 02fd e5fe | | Load 0x2,-0x2 02fe 01da | | Execute Vector,Bounds 02ff e001 | | Load 0x0,0x1 0300 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0301 03f8 | | Declare_Type Discrete,Constrained 0302 e001 | | Load 0x0,0x1 0303 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0304 BODY_02f0: 0304 e5fe | | Load 0x2,-0x2 0305 821a | | Call 0x1,0x1a 0306 00d1 | | Pop_Control Pop_Count_1 0307 00db | | Load_Top At_Offset_3 0308 e001 | | Load 0x0,0x1 0309 1b20 | | Execute Package,Field_Read,Field_Number 0x20 030a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 030b 00d1 | | Pop_Control Pop_Count_1 030c 00cf | | Action Mark_Auxiliary 030d 7826 |x& | Jump 0x334 030e e402 | | Load 0x2,0x2 030f e001 | | Load 0x0,0x1 0310 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0311 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0312 a403 | | Store_Unchecked 0x2,0x3 0313 00db | | Load_Top At_Offset_3 0314 e001 | | Load 0x0,0x1 0315 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0316 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0317 0f01 | | Execute_Immediate Equal,0x1 0318 6815 |h | Jump_Zero 0x32e 0319 00db | | Load_Top At_Offset_3 031a e001 | | Load 0x0,0x1 031b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 031c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 031d 00db | | Load_Top At_Offset_3 031e 0260 | ` | Execute Discrete,In_Type 031f 680e |h | Jump_Zero 0x32e 0320 00db | | Load_Top At_Offset_3 0321 e001 | | Load 0x0,0x1 0322 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0323 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0324 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0325 00d9 | | Load_Top At_Offset_1 0326 e5fe | | Load 0x2,-0x2 0327 01d5 | | Execute Vector,Field_Reference 0328 00d8 | | Load_Top At_Offset_0 0329 e403 | | Load 0x2,0x3 032a e001 | | Load 0x0,0x1 032b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 032c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 032d 00d2 | | Pop_Control Pop_Count_2 032e e402 | | Load 0x2,0x2 032f e001 | | Load 0x0,0x1 0330 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0331 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0332 00d1 | | Pop_Control Pop_Count_1 0333 00c9 | | Action Pop_Auxiliary_Loop 0334 e402 | | Load 0x2,0x2 0335 e001 | | Load 0x0,0x1 0336 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0337 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0338 6fd5 |o | Jump_Zero 0x30e 0339 4502 |E | Exit_Suprogram New_Top_Offset 0x2 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug Table 0340 ; -------------------------------------------------------------------------------------- 0340 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc571,0x0000,0x0001,0x0000 0346 1eb1 312c | 1,| .XXX[0xba] 0348 9ab3 6a6a | jj| 034a 0220 a6b2 | | 034c 5d86 8184 |] | 034e b2b1 6073 | `s| 0350 cdd6 7d86 | } | 0352 d622 6e21 | "n!| 0354 852f b190 | / | 0356 d6b3 edd4 | | 0358 acce 312f | 1/| 035a b668 19da | h | 035c c584 0eb3 | | 035e dec3 68cc | h | 0360 b2b3 052f | /| 0362 1223 7da3 | #} | 0364 e26a ac36 | j 6| 0366 8e21 a455 | ! U| 0368 22b1 c4cf |" | 036a cc52 192d | R -| 036c 5006 aa21 |P !| 036e 7057 4221 |pWB!| 0370 c4ce c9d5 | | 0372 46b2 85ee |F | 0374 34cc 55d8 |4 U | 0376 8074 2a6c | t*l| 0378 99da 7455 | tU| 037a 66b1 0eb1 |f | 037c 6eb3 8221 |n !| 037e 1ab3 6d84 | m | 0380 566c c1d9 |Vl | 0382 2ccc 626d |, bm| 0384 32b1 96b3 |2 | 0386 8d85 52b2 | R | 0388 892f b620 | / | 038a c627 2221 | '"!| 038c b2b3 b5d6 | | 038e ec7a d8ce | z | 0390 6ac9 11d8 |j | 0392 a26d d2b2 | m | 0394 c9a6 0854 | T| 0396 787f e186 |x | 0398 fd2e 3c55 | .<U| 039a eab3 8854 | T| 039c e66c 0e25 | l %| 039e fab2 5454 | TT| 03a0 1eb3 292c | ),| 03a2 198a 686f | ho| 03a4 c456 12b0 | V | 03a6 0d88 3a26 | :&| 03a8 1eb3 312d | 1-| 03aa 026d 65d9 | me | 03ac eeb0 2d8a | - | 03ae 36b3 712c |6 q,| 03b0 0989 99da | | 03b2 46b0 198b |F | 03b4 0054 7624 | Tv$| 03b6 2989 606a |) `j| 03b8 62b3 40ce |b @ | 03ba 6ab0 9627 |j '| 03bc bd2e b056 | . V| 03be 8ccd 5a6d | Zm| 03c0 f5d8 8059 | Y| 03c2 cdd9 f5d9 | | 03c4 2879 726c |(yrl| 03c6 7e6c ad89 |~l | 03c8 e5d8 f058 | X| 03ca d224 b98b | $ | 03cc 18b9 fdd9 | | 03ce 1458 3cd1 | X< | 03d0 d184 1d30 | 0| 03d2 4225 aa6e |B% n| 03d4 d2b2 45d9 | E | 03d6 b66c 8ade | l | 03d8 51d9 14d2 |Q | 03da 41d9 8069 |A i| 03dc ce6c 9566 | l f| 03de 92b1 da6c | l| 03e0 7130 5533 |q0U3| 03e2 0ab0 393b | 9;| 03e4 61ad f26c |a l| 03e6 f06a 99da | j | 03e8 c1db 2ab2 | * | 03ea cab1 7458 | tX| 03ec ad30 69d9 | 0i | 03ee 8988 8cd1 | | 03f0 7a26 266c |z&&l| 03f2 e458 f0dc | X | 03f4 d933 5ab0 | 3Z | 03f6 b0d3 e056 | V| 03f8 3a6c e459 |:l Y| 03fa d5ed c18b | | 03fc 72b2 a058 |r X| 03fe dcd3 7eb2 | ~ |