|
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: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_160bcc0
└─⟦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 06d8 | | .CONST 0x06d8 ; 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 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0081 | | .CONST 0x0081 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0091 | | .CONST 0x0091 ; Number of locals 000b INIT_0008: 000b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 4801 |H | Short_Literal 0x1 000f 481e |H | Short_Literal 0x1e 0010 00e3 | | Load_Encached Natural_Cache 0011 02a0 | | Declare_Subprogram Null_Subprogram 0012 4801 |H | Short_Literal 0x1 0013 035d | ] | Declare_Type Array,Defined 0014 00d8 | | Load_Top At_Offset_0 0015 00e3 | | Load_Encached Natural_Cache 0016 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0018 4802 |H | Short_Literal 0x2 0019 032d | - | Declare_Type Record,Defined 001a 00d8 | | Load_Top At_Offset_0 001b 0322 | " | Declare_Variable Record 001c 00d8 | | Load_Top At_Offset_0 001d 1c00 | | Execute_Immediate Run_Utility,0x0 001e e001 | | Load 0x0,0x1 001f 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0020 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0021 02ff | | Declare_Variable Variant_Record 0022 00d8 | | Load_Top At_Offset_0 0023 1c00 | | Execute_Immediate Run_Utility,0x0 0024 e001 | | Load 0x0,0x1 0025 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0026 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0027 02ff | | Declare_Variable Variant_Record 0028 00d8 | | Load_Top At_Offset_0 0029 1c00 | | Execute_Immediate Run_Utility,0x0 002a 00e3 | | Load_Encached Natural_Cache 002b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002c e001 | | Load 0x0,0x1 002d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 002e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002f 02ff | | Declare_Variable Variant_Record 0030 00d8 | | Load_Top At_Offset_0 0031 1c00 | | Execute_Immediate Run_Utility,0x0 0032 e001 | | Load 0x0,0x1 0033 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0034 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0035 02ff | | Declare_Variable Variant_Record 0036 00d8 | | Load_Top At_Offset_0 0037 1c00 | | Execute_Immediate Run_Utility,0x0 0038 e001 | | Load 0x0,0x1 0039 1b20 | | Execute Package,Field_Read,Field_Number 0x20 003a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003b 02ff | | Declare_Variable Variant_Record 003c 00d8 | | Load_Top At_Offset_0 003d 1c00 | | Execute_Immediate Run_Utility,0x0 003e e001 | | Load 0x0,0x1 003f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0040 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 0042 e001 | | Load 0x0,0x1 0043 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0044 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 0045 00c6 | | Action Check_Subprogram_Elaborated 0046 1d77 | w | Execute_Immediate Reference_Lex_1,0x77 0047 e002 | | Load 0x0,0x2 0048 e003 | | Load 0x0,0x3 0049 4800 |H | Short_Literal 0x0 004a 0007 | | Action Break_Optional 004b 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 004d 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call 004f 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call 0051 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call 0053 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call 0055 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call 0057 029b 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Unelaborated 0059 1d82 | | Execute_Immediate Reference_Lex_1,0x82 005a 00c7 | | Action Elaborate_Subprogram 005b 1d82 | | Execute_Immediate Reference_Lex_1,0x82 005c 00c6 | | Action Check_Subprogram_Elaborated 005d 1d80 | | Execute_Immediate Reference_Lex_1,0x80 005e 0092 06bd | | Action Push_String_Extended,0x6bd ; " /// " 0060 e001 | | Load 0x0,0x1 0061 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0062 01c7 | | Execute Vector,Convert 0063 e004 | | Load 0x0,0x4 0064 e005 | | Load 0x0,0x5 0065 4800 |H | Short_Literal 0x0 0066 0007 | | Action Break_Optional 0067 1d82 | | Execute_Immediate Reference_Lex_1,0x82 0068 00c6 | | Action Check_Subprogram_Elaborated 0069 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 006a 0092 06be | | Action Push_String_Extended,0x6be ; " LRU " 006c e001 | | Load 0x0,0x1 006d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 006e 01c7 | | Execute Vector,Convert 006f e006 | | Load 0x0,0x6 0070 e007 | | Load 0x0,0x7 0071 4800 |H | Short_Literal 0x0 0072 0007 | | Action Break_Optional 0073 1d82 | | Execute_Immediate Reference_Lex_1,0x82 0074 00c6 | | Action Check_Subprogram_Elaborated 0075 1d81 | | Execute_Immediate Reference_Lex_1,0x81 0076 0092 06bf | | Action Push_String_Extended,0x6bf ; "FIRST" 0078 e001 | | Load 0x0,0x1 0079 1b13 | | Execute Package,Field_Read,Field_Number 0x13 007a 01c7 | | Execute Vector,Convert 007b e008 | | Load 0x0,0x8 007c e009 | | Load 0x0,0x9 007d 4800 |H | Short_Literal 0x0 007e 0007 | | Action Break_Optional 007f 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c 0080 00c7 | | Action Elaborate_Subprogram 0081 BODY_0008: 0081 e20f | | Load 0x1,0xf 0082 e00a | | Load 0x0,0xa 0083 180f | | Execute Package,Field_Execute,Field_Number 0xf 0084 c276 | v | Store 0x1,0x76 0085 e268 | h | Load 0x1,0x68 0086 e265 | e | Load 0x1,0x65 0087 e262 | b | Load 0x1,0x62 0088 e25f | _ | Load 0x1,0x5f 0089 e25c | \ | Load 0x1,0x5c 008a e259 | Y | Load 0x1,0x59 008b e256 | V | Load 0x1,0x56 008c e253 | S | Load 0x1,0x53 008d e250 | P | Load 0x1,0x50 008e e24d | M | Load 0x1,0x4d 008f e24a | J | Load 0x1,0x4a 0090 e247 | G | Load 0x1,0x47 0091 e244 | D | Load 0x1,0x44 0092 e241 | A | Load 0x1,0x41 0093 e23e | > | Load 0x1,0x3e 0094 e23b | ; | Load 0x1,0x3b 0095 e238 | 8 | Load 0x1,0x38 0096 e235 | 5 | Load 0x1,0x35 0097 e232 | 2 | Load 0x1,0x32 0098 e22f | / | Load 0x1,0x2f 0099 e22c | , | Load 0x1,0x2c 009a e229 | ) | Load 0x1,0x29 009b e226 | & | Load 0x1,0x26 009c e223 | # | Load 0x1,0x23 009d e220 | | Load 0x1,0x20 009e e21d | | Load 0x1,0x1d 009f e21a | | Load 0x1,0x1a 00a0 e217 | | Load 0x1,0x17 00a1 e214 | | Load 0x1,0x14 00a2 e211 | | Load 0x1,0x11 00a3 e20f | | Load 0x1,0xf 00a4 e276 | v | Load 0x1,0x76 00a5 e001 | | Load 0x0,0x1 00a6 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00a7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00a8 00bc | | Action Signal_Activated 00a9 00bb | | Action Signal_Completion 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e276 | v | Load 0x1,0x76 00b4 e20f | | Load 0x1,0xf 00b5 e001 | | Load 0x0,0x1 00b6 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b8 e210 | | Load 0x1,0x10 00b9 0f00 | | Execute_Immediate Equal,0x0 00ba e210 | | Load 0x1,0x10 00bb 0f01 | | Execute_Immediate Equal,0x1 00bc 0278 | x | Execute Discrete,Or 00bd 6806 |h | Jump_Zero 0xc4 00be 00da | | Load_Top At_Offset_2 00bf 1d83 | | Execute_Immediate Reference_Lex_1,0x83 00c0 e284 | | Load 0x1,0x84 00c1 1d85 | | Execute_Immediate Reference_Lex_1,0x85 00c2 8282 | | Call 0x1,0x82 00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c4 e210 | | Load 0x1,0x10 00c5 0f02 | | Execute_Immediate Equal,0x2 00c6 6806 |h | Jump_Zero 0xcd 00c7 00da | | Load_Top At_Offset_2 00c8 1d88 | | Execute_Immediate Reference_Lex_1,0x88 00c9 e289 | | Load 0x1,0x89 00ca 1d8a | | Execute_Immediate Reference_Lex_1,0x8a 00cb 8282 | | Call 0x1,0x82 00cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cd 00da | | Load_Top At_Offset_2 00ce 1d8d | | Execute_Immediate Reference_Lex_1,0x8d 00cf e28e | | Load 0x1,0x8e 00d0 1d8f | | Execute_Immediate Reference_Lex_1,0x8f 00d1 8282 | | Call 0x1,0x82 00d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4608 |F | Jump_Case 0x9 00dc 7808 |x | Jump 0xe5 ; case 0x0 00dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00de 781b |x | Jump 0xfa ; case 0x2 00df 781a |x | Jump 0xfa ; case 0x3 00e0 7819 |x | Jump 0xfa ; case 0x4 00e1 7818 |x | Jump 0xfa ; case 0x5 00e2 7817 |x | Jump 0xfa ; case 0x6 00e3 7816 |x | Jump 0xfa ; case 0x7 00e4 7815 |x | Jump 0xfa ; case 0x8 00e5 e26e | n | Load 0x1,0x6e 00e6 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00e7 0337 | 7 | Declare_Variable Array 00e8 481e |H | Short_Literal 0x1e 00e9 4801 |H | Short_Literal 0x1 00ea 4800 |H | Short_Literal 0x0 00eb 00d9 | | Load_Top At_Offset_1 00ec e402 | | Load 0x2,0x2 00ed 01d6 | | Execute Vector,Field_Write 00ee 3ffb |? | Loop_Increasing 0xea 00ef 00db | | Load_Top At_Offset_3 00f0 00d9 | | Load_Top At_Offset_1 00f1 00d9 | | Load_Top At_Offset_1 00f2 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00f3 0119 | | Execute Any,Check_In_Formal_Type 00f4 00d1 | | Pop_Control Pop_Count_1 00f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00f6 4800 |H | Short_Literal 0x0 00f7 00db | | Load_Top At_Offset_3 00f8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00fa 0869 | i | Execute_Immediate Raise,0x69 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0105 e5fe | | Load 0x2,-0x2 0106 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0107 027c | | | Execute Discrete,Less 0108 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0115 | | .CONST 0x0115 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call 0115 BODY_0110: 0115 00db | | Load_Top At_Offset_3 0116 e001 | | Load 0x0,0x1 0117 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0118 00d9 | | Load_Top At_Offset_1 0119 00d0 | | Action Swap_Control 011a 0260 | ` | Execute Discrete,In_Type 011b 7001 |p | Jump_Nonzero 0x11d 011c 0801 | | Execute_Immediate Raise,0x1 011d e20f | | Load 0x1,0xf 011e e001 | | Load 0x0,0x1 011f 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0120 180d | | Execute Package,Field_Execute,Field_Number 0xd 0121 709e |p | Jump_Nonzero 0x1c0 0122 00db | | Load_Top At_Offset_3 0123 00d8 | | Load_Top At_Offset_0 0124 0c1f | | Execute_Immediate Greater_Equal,0x1f 0125 7024 |p$ | Jump_Nonzero 0x14a 0126 0aff | | Execute_Immediate Plus,-0x1 0127 461d |F | Jump_Case 0x1e 0128 7893 |x | Jump 0x1bc ; case 0x0 0129 7822 |x" | Jump 0x14c ; case 0x1 012a 7825 |x% | Jump 0x150 ; case 0x2 012b 7828 |x( | Jump 0x154 ; case 0x3 012c 782b |x+ | Jump 0x158 ; case 0x4 012d 782e |x. | Jump 0x15c ; case 0x5 012e 7831 |x1 | Jump 0x160 ; case 0x6 012f 7834 |x4 | Jump 0x164 ; case 0x7 0130 7837 |x7 | Jump 0x168 ; case 0x8 0131 783a |x: | Jump 0x16c ; case 0x9 0132 783d |x= | Jump 0x170 ; case 0xa 0133 7840 |x@ | Jump 0x174 ; case 0xb 0134 7843 |xC | Jump 0x178 ; case 0xc 0135 7846 |xF | Jump 0x17c ; case 0xd 0136 7849 |xI | Jump 0x180 ; case 0xe 0137 784c |xL | Jump 0x184 ; case 0xf 0138 784f |xO | Jump 0x188 ; case 0x10 0139 7852 |xR | Jump 0x18c ; case 0x11 013a 7855 |xU | Jump 0x190 ; case 0x12 013b 7858 |xX | Jump 0x194 ; case 0x13 013c 785b |x[ | Jump 0x198 ; case 0x14 013d 785e |x^ | Jump 0x19c ; case 0x15 013e 7861 |xa | Jump 0x1a0 ; case 0x16 013f 7864 |xd | Jump 0x1a4 ; case 0x17 0140 7867 |xg | Jump 0x1a8 ; case 0x18 0141 786a |xj | Jump 0x1ac ; case 0x19 0142 786d |xm | Jump 0x1b0 ; case 0x1a 0143 7870 |xp | Jump 0x1b4 ; case 0x1b 0144 7873 |xs | Jump 0x1b8 ; case 0x1c 0145 7800 |x | Jump 0x146 ; case 0x1d 0146 8269 | i | Call 0x1,0x69 0147 e273 | s | Load 0x1,0x73 0148 016d | m | Execute Variant_Record,Structure_Write 0149 7877 |xw | Jump 0x1c1 014a 00d1 | | Pop_Control Pop_Count_1 014b 7875 |xu | Jump 0x1c1 014c 8215 | | Call 0x1,0x15 014d e273 | s | Load 0x1,0x73 014e 016d | m | Execute Variant_Record,Structure_Write 014f 7871 |xq | Jump 0x1c1 0150 8218 | | Call 0x1,0x18 0151 e273 | s | Load 0x1,0x73 0152 016d | m | Execute Variant_Record,Structure_Write 0153 786d |xm | Jump 0x1c1 0154 821b | | Call 0x1,0x1b 0155 e273 | s | Load 0x1,0x73 0156 016d | m | Execute Variant_Record,Structure_Write 0157 7869 |xi | Jump 0x1c1 0158 821e | | Call 0x1,0x1e 0159 e273 | s | Load 0x1,0x73 015a 016d | m | Execute Variant_Record,Structure_Write 015b 7865 |xe | Jump 0x1c1 015c 8221 | ! | Call 0x1,0x21 015d e273 | s | Load 0x1,0x73 015e 016d | m | Execute Variant_Record,Structure_Write 015f 7861 |xa | Jump 0x1c1 0160 8224 | $ | Call 0x1,0x24 0161 e273 | s | Load 0x1,0x73 0162 016d | m | Execute Variant_Record,Structure_Write 0163 785d |x] | Jump 0x1c1 0164 8227 | ' | Call 0x1,0x27 0165 e273 | s | Load 0x1,0x73 0166 016d | m | Execute Variant_Record,Structure_Write 0167 7859 |xY | Jump 0x1c1 0168 822a | * | Call 0x1,0x2a 0169 e273 | s | Load 0x1,0x73 016a 016d | m | Execute Variant_Record,Structure_Write 016b 7855 |xU | Jump 0x1c1 016c 822d | - | Call 0x1,0x2d 016d e273 | s | Load 0x1,0x73 016e 016d | m | Execute Variant_Record,Structure_Write 016f 7851 |xQ | Jump 0x1c1 0170 8230 | 0 | Call 0x1,0x30 0171 e273 | s | Load 0x1,0x73 0172 016d | m | Execute Variant_Record,Structure_Write 0173 784d |xM | Jump 0x1c1 0174 8233 | 3 | Call 0x1,0x33 0175 e273 | s | Load 0x1,0x73 0176 016d | m | Execute Variant_Record,Structure_Write 0177 7849 |xI | Jump 0x1c1 0178 8236 | 6 | Call 0x1,0x36 0179 e273 | s | Load 0x1,0x73 017a 016d | m | Execute Variant_Record,Structure_Write 017b 7845 |xE | Jump 0x1c1 017c 8239 | 9 | Call 0x1,0x39 017d e273 | s | Load 0x1,0x73 017e 016d | m | Execute Variant_Record,Structure_Write 017f 7841 |xA | Jump 0x1c1 0180 823c | < | Call 0x1,0x3c 0181 e273 | s | Load 0x1,0x73 0182 016d | m | Execute Variant_Record,Structure_Write 0183 783d |x= | Jump 0x1c1 0184 823f | ? | Call 0x1,0x3f 0185 e273 | s | Load 0x1,0x73 0186 016d | m | Execute Variant_Record,Structure_Write 0187 7839 |x9 | Jump 0x1c1 0188 8242 | B | Call 0x1,0x42 0189 e273 | s | Load 0x1,0x73 018a 016d | m | Execute Variant_Record,Structure_Write 018b 7835 |x5 | Jump 0x1c1 018c 8245 | E | Call 0x1,0x45 018d e273 | s | Load 0x1,0x73 018e 016d | m | Execute Variant_Record,Structure_Write 018f 7831 |x1 | Jump 0x1c1 0190 8248 | H | Call 0x1,0x48 0191 e273 | s | Load 0x1,0x73 0192 016d | m | Execute Variant_Record,Structure_Write 0193 782d |x- | Jump 0x1c1 0194 824b | K | Call 0x1,0x4b 0195 e273 | s | Load 0x1,0x73 0196 016d | m | Execute Variant_Record,Structure_Write 0197 7829 |x) | Jump 0x1c1 0198 824e | N | Call 0x1,0x4e 0199 e273 | s | Load 0x1,0x73 019a 016d | m | Execute Variant_Record,Structure_Write 019b 7825 |x% | Jump 0x1c1 019c 8251 | Q | Call 0x1,0x51 019d e273 | s | Load 0x1,0x73 019e 016d | m | Execute Variant_Record,Structure_Write 019f 7821 |x! | Jump 0x1c1 01a0 8254 | T | Call 0x1,0x54 01a1 e273 | s | Load 0x1,0x73 01a2 016d | m | Execute Variant_Record,Structure_Write 01a3 781d |x | Jump 0x1c1 01a4 8257 | W | Call 0x1,0x57 01a5 e273 | s | Load 0x1,0x73 01a6 016d | m | Execute Variant_Record,Structure_Write 01a7 7819 |x | Jump 0x1c1 01a8 825a | Z | Call 0x1,0x5a 01a9 e273 | s | Load 0x1,0x73 01aa 016d | m | Execute Variant_Record,Structure_Write 01ab 7815 |x | Jump 0x1c1 01ac 825d | ] | Call 0x1,0x5d 01ad e273 | s | Load 0x1,0x73 01ae 016d | m | Execute Variant_Record,Structure_Write 01af 7811 |x | Jump 0x1c1 01b0 8260 | ` | Call 0x1,0x60 01b1 e273 | s | Load 0x1,0x73 01b2 016d | m | Execute Variant_Record,Structure_Write 01b3 780d |x | Jump 0x1c1 01b4 8263 | c | Call 0x1,0x63 01b5 e273 | s | Load 0x1,0x73 01b6 016d | m | Execute Variant_Record,Structure_Write 01b7 7809 |x | Jump 0x1c1 01b8 8266 | f | Call 0x1,0x66 01b9 e273 | s | Load 0x1,0x73 01ba 016d | m | Execute Variant_Record,Structure_Write 01bb 7805 |x | Jump 0x1c1 01bc 8212 | | Call 0x1,0x12 01bd e273 | s | Load 0x1,0x73 01be 016d | m | Execute Variant_Record,Structure_Write 01bf 7801 |x | Jump 0x1c1 01c0 8402 | | Call 0x2,0x2 01c1 4804 |H | Short_Literal 0x4 01c2 e001 | | Load 0x0,0x1 01c3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01c4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01c5 696f |io | Jump_Zero 0x335 01c6 00db | | Load_Top At_Offset_3 01c7 00d8 | | Load_Top At_Offset_0 01c8 0c1f | | Execute_Immediate Greater_Equal,0x1f 01c9 702b |p+ | Jump_Nonzero 0x1f5 01ca 0aff | | Execute_Immediate Plus,-0x1 01cb 461d |F | Jump_Case 0x1e 01cc 795e |y^ | Jump 0x32b ; case 0x0 01cd 7829 |x) | Jump 0x1f7 ; case 0x1 01ce 7833 |x3 | Jump 0x202 ; case 0x2 01cf 783d |x= | Jump 0x20d ; case 0x3 01d0 7847 |xG | Jump 0x218 ; case 0x4 01d1 7851 |xQ | Jump 0x223 ; case 0x5 01d2 785b |x[ | Jump 0x22e ; case 0x6 01d3 7865 |xe | Jump 0x239 ; case 0x7 01d4 786f |xo | Jump 0x244 ; case 0x8 01d5 7879 |xy | Jump 0x24f ; case 0x9 01d6 7883 |x | Jump 0x25a ; case 0xa 01d7 788d |x | Jump 0x265 ; case 0xb 01d8 7897 |x | Jump 0x270 ; case 0xc 01d9 78a1 |x | Jump 0x27b ; case 0xd 01da 78ab |x | Jump 0x286 ; case 0xe 01db 78b5 |x | Jump 0x291 ; case 0xf 01dc 78bf |x | Jump 0x29c ; case 0x10 01dd 78c9 |x | Jump 0x2a7 ; case 0x11 01de 78d3 |x | Jump 0x2b2 ; case 0x12 01df 78dd |x | Jump 0x2bd ; case 0x13 01e0 78e7 |x | Jump 0x2c8 ; case 0x14 01e1 78f1 |x | Jump 0x2d3 ; case 0x15 01e2 78fb |x | Jump 0x2de ; case 0x16 01e3 7905 |y | Jump 0x2e9 ; case 0x17 01e4 790f |y | Jump 0x2f4 ; case 0x18 01e5 7919 |y | Jump 0x2ff ; case 0x19 01e6 7923 |y# | Jump 0x30a ; case 0x1a 01e7 792d |y- | Jump 0x315 ; case 0x1b 01e8 7937 |y7 | Jump 0x320 ; case 0x1c 01e9 7800 |x | Jump 0x1ea ; case 0x1d 01ea e273 | s | Load 0x1,0x73 01eb 00d8 | | Load_Top At_Offset_0 01ec e001 | | Load 0x0,0x1 01ed 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01ee 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ef 481e |H | Short_Literal 0x1e 01f0 e268 | h | Load 0x1,0x68 01f1 e001 | | Load 0x0,0x1 01f2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f5 00d1 | | Pop_Control Pop_Count_1 01f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f7 e273 | s | Load 0x1,0x73 01f8 00d8 | | Load_Top At_Offset_0 01f9 e001 | | Load 0x0,0x1 01fa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01fc 4802 |H | Short_Literal 0x2 01fd e214 | | Load 0x1,0x14 01fe e001 | | Load 0x0,0x1 01ff 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0200 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0201 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0202 e273 | s | Load 0x1,0x73 0203 00d8 | | Load_Top At_Offset_0 0204 e001 | | Load 0x0,0x1 0205 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0206 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0207 4803 |H | Short_Literal 0x3 0208 e217 | | Load 0x1,0x17 0209 e001 | | Load 0x0,0x1 020a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 020b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020d e273 | s | Load 0x1,0x73 020e 00d8 | | Load_Top At_Offset_0 020f e001 | | Load 0x0,0x1 0210 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0211 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0212 4804 |H | Short_Literal 0x4 0213 e21a | | Load 0x1,0x1a 0214 e001 | | Load 0x0,0x1 0215 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0216 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0217 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0218 e273 | s | Load 0x1,0x73 0219 00d8 | | Load_Top At_Offset_0 021a e001 | | Load 0x0,0x1 021b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 021c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 021d 4805 |H | Short_Literal 0x5 021e e21d | | Load 0x1,0x1d 021f e001 | | Load 0x0,0x1 0220 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0221 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0222 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0223 e273 | s | Load 0x1,0x73 0224 00d8 | | Load_Top At_Offset_0 0225 e001 | | Load 0x0,0x1 0226 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0227 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0228 4806 |H | Short_Literal 0x6 0229 e220 | | Load 0x1,0x20 022a e001 | | Load 0x0,0x1 022b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 022c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 022d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 022e e273 | s | Load 0x1,0x73 022f 00d8 | | Load_Top At_Offset_0 0230 e001 | | Load 0x0,0x1 0231 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0232 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0233 4807 |H | Short_Literal 0x7 0234 e223 | # | Load 0x1,0x23 0235 e001 | | Load 0x0,0x1 0236 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0237 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0238 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0239 e273 | s | Load 0x1,0x73 023a 00d8 | | Load_Top At_Offset_0 023b e001 | | Load 0x0,0x1 023c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 023d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 023e 4808 |H | Short_Literal 0x8 023f e226 | & | Load 0x1,0x26 0240 e001 | | Load 0x0,0x1 0241 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0242 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0243 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0244 e273 | s | Load 0x1,0x73 0245 00d8 | | Load_Top At_Offset_0 0246 e001 | | Load 0x0,0x1 0247 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0248 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0249 4809 |H | Short_Literal 0x9 024a e229 | ) | Load 0x1,0x29 024b e001 | | Load 0x0,0x1 024c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 024d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 024e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 024f e273 | s | Load 0x1,0x73 0250 00d8 | | Load_Top At_Offset_0 0251 e001 | | Load 0x0,0x1 0252 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0253 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0254 480a |H | Short_Literal 0xa 0255 e22c | , | Load 0x1,0x2c 0256 e001 | | Load 0x0,0x1 0257 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0258 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0259 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025a e273 | s | Load 0x1,0x73 025b 00d8 | | Load_Top At_Offset_0 025c e001 | | Load 0x0,0x1 025d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 025e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 025f 480b |H | Short_Literal 0xb 0260 e22f | / | Load 0x1,0x2f 0261 e001 | | Load 0x0,0x1 0262 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0263 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0264 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0265 e273 | s | Load 0x1,0x73 0266 00d8 | | Load_Top At_Offset_0 0267 e001 | | Load 0x0,0x1 0268 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0269 1811 | | Execute Package,Field_Execute,Field_Number 0x11 026a 480c |H | Short_Literal 0xc 026b e232 | 2 | Load 0x1,0x32 026c e001 | | Load 0x0,0x1 026d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 026e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 026f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0270 e273 | s | Load 0x1,0x73 0271 00d8 | | Load_Top At_Offset_0 0272 e001 | | Load 0x0,0x1 0273 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0274 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0275 480d |H | Short_Literal 0xd 0276 e235 | 5 | Load 0x1,0x35 0277 e001 | | Load 0x0,0x1 0278 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0279 1814 | | Execute Package,Field_Execute,Field_Number 0x14 027a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027b e273 | s | Load 0x1,0x73 027c 00d8 | | Load_Top At_Offset_0 027d e001 | | Load 0x0,0x1 027e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 027f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0280 480e |H | Short_Literal 0xe 0281 e238 | 8 | Load 0x1,0x38 0282 e001 | | Load 0x0,0x1 0283 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0284 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0285 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0286 e273 | s | Load 0x1,0x73 0287 00d8 | | Load_Top At_Offset_0 0288 e001 | | Load 0x0,0x1 0289 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 028a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 028b 480f |H | Short_Literal 0xf 028c e23b | ; | Load 0x1,0x3b 028d e001 | | Load 0x0,0x1 028e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 028f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0290 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0291 e273 | s | Load 0x1,0x73 0292 00d8 | | Load_Top At_Offset_0 0293 e001 | | Load 0x0,0x1 0294 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0295 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0296 4810 |H | Short_Literal 0x10 0297 e23e | > | Load 0x1,0x3e 0298 e001 | | Load 0x0,0x1 0299 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 029a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 029b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 029c e273 | s | Load 0x1,0x73 029d 00d8 | | Load_Top At_Offset_0 029e e001 | | Load 0x0,0x1 029f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02a1 4811 |H | Short_Literal 0x11 02a2 e241 | A | Load 0x1,0x41 02a3 e001 | | Load 0x0,0x1 02a4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a7 e273 | s | Load 0x1,0x73 02a8 00d8 | | Load_Top At_Offset_0 02a9 e001 | | Load 0x0,0x1 02aa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02ac 4812 |H | Short_Literal 0x12 02ad e244 | D | Load 0x1,0x44 02ae e001 | | Load 0x0,0x1 02af 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b2 e273 | s | Load 0x1,0x73 02b3 00d8 | | Load_Top At_Offset_0 02b4 e001 | | Load 0x0,0x1 02b5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02b7 4813 |H | Short_Literal 0x13 02b8 e247 | G | Load 0x1,0x47 02b9 e001 | | Load 0x0,0x1 02ba 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02bd e273 | s | Load 0x1,0x73 02be 00d8 | | Load_Top At_Offset_0 02bf e001 | | Load 0x0,0x1 02c0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c2 4814 |H | Short_Literal 0x14 02c3 e24a | J | Load 0x1,0x4a 02c4 e001 | | Load 0x0,0x1 02c5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02c6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c8 e273 | s | Load 0x1,0x73 02c9 00d8 | | Load_Top At_Offset_0 02ca e001 | | Load 0x0,0x1 02cb 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02cd 4815 |H | Short_Literal 0x15 02ce e24d | M | Load 0x1,0x4d 02cf e001 | | Load 0x0,0x1 02d0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02d1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d3 e273 | s | Load 0x1,0x73 02d4 00d8 | | Load_Top At_Offset_0 02d5 e001 | | Load 0x0,0x1 02d6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02d8 4816 |H | Short_Literal 0x16 02d9 e250 | P | Load 0x1,0x50 02da e001 | | Load 0x0,0x1 02db 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02dc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02de e273 | s | Load 0x1,0x73 02df 00d8 | | Load_Top At_Offset_0 02e0 e001 | | Load 0x0,0x1 02e1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e3 4817 |H | Short_Literal 0x17 02e4 e253 | S | Load 0x1,0x53 02e5 e001 | | Load 0x0,0x1 02e6 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e9 e273 | s | Load 0x1,0x73 02ea 00d8 | | Load_Top At_Offset_0 02eb e001 | | Load 0x0,0x1 02ec 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02ee 4818 |H | Short_Literal 0x18 02ef e256 | V | Load 0x1,0x56 02f0 e001 | | Load 0x0,0x1 02f1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f4 e273 | s | Load 0x1,0x73 02f5 00d8 | | Load_Top At_Offset_0 02f6 e001 | | Load 0x0,0x1 02f7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f9 4819 |H | Short_Literal 0x19 02fa e259 | Y | Load 0x1,0x59 02fb e001 | | Load 0x0,0x1 02fc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ff e273 | s | Load 0x1,0x73 0300 00d8 | | Load_Top At_Offset_0 0301 e001 | | Load 0x0,0x1 0302 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0303 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0304 481a |H | Short_Literal 0x1a 0305 e25c | \ | Load 0x1,0x5c 0306 e001 | | Load 0x0,0x1 0307 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0308 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0309 4502 |E | Exit_Suprogram New_Top_Offset 0x2 030a e273 | s | Load 0x1,0x73 030b 00d8 | | Load_Top At_Offset_0 030c e001 | | Load 0x0,0x1 030d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 030e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 030f 481b |H | Short_Literal 0x1b 0310 e25f | _ | Load 0x1,0x5f 0311 e001 | | Load 0x0,0x1 0312 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0313 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0314 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0315 e273 | s | Load 0x1,0x73 0316 00d8 | | Load_Top At_Offset_0 0317 e001 | | Load 0x0,0x1 0318 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0319 1811 | | Execute Package,Field_Execute,Field_Number 0x11 031a 481c |H | Short_Literal 0x1c 031b e262 | b | Load 0x1,0x62 031c e001 | | Load 0x0,0x1 031d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 031e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 031f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0320 e273 | s | Load 0x1,0x73 0321 00d8 | | Load_Top At_Offset_0 0322 e001 | | Load 0x0,0x1 0323 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0324 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0325 481d |H | Short_Literal 0x1d 0326 e265 | e | Load 0x1,0x65 0327 e001 | | Load 0x0,0x1 0328 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0329 1814 | | Execute Package,Field_Execute,Field_Number 0x14 032a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 032b e273 | s | Load 0x1,0x73 032c 00d8 | | Load_Top At_Offset_0 032d e001 | | Load 0x0,0x1 032e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 032f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0330 4801 |H | Short_Literal 0x1 0331 e211 | | Load 0x1,0x11 0332 e001 | | Load 0x0,0x1 0333 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0334 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0335 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0336 0000 0000 | | .XXX[0x2] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c 00d8 | | Load_Top At_Offset_0 033d 0c1f | | Execute_Immediate Greater_Equal,0x1f 033e 7023 |p# | Jump_Nonzero 0x362 033f 461e |F | Jump_Case 0x1f 0340 7879 |xy | Jump 0x3ba ; case 0x0 0341 7876 |xv | Jump 0x3b8 ; case 0x1 0342 7821 |x! | Jump 0x364 ; case 0x2 0343 7823 |x# | Jump 0x367 ; case 0x3 0344 7825 |x% | Jump 0x36a ; case 0x4 0345 7827 |x' | Jump 0x36d ; case 0x5 0346 7829 |x) | Jump 0x370 ; case 0x6 0347 782b |x+ | Jump 0x373 ; case 0x7 0348 782d |x- | Jump 0x376 ; case 0x8 0349 782f |x/ | Jump 0x379 ; case 0x9 034a 7831 |x1 | Jump 0x37c ; case 0xa 034b 7833 |x3 | Jump 0x37f ; case 0xb 034c 7835 |x5 | Jump 0x382 ; case 0xc 034d 7837 |x7 | Jump 0x385 ; case 0xd 034e 7839 |x9 | Jump 0x388 ; case 0xe 034f 783b |x; | Jump 0x38b ; case 0xf 0350 783d |x= | Jump 0x38e ; case 0x10 0351 783f |x? | Jump 0x391 ; case 0x11 0352 7841 |xA | Jump 0x394 ; case 0x12 0353 7843 |xC | Jump 0x397 ; case 0x13 0354 7845 |xE | Jump 0x39a ; case 0x14 0355 7847 |xG | Jump 0x39d ; case 0x15 0356 7849 |xI | Jump 0x3a0 ; case 0x16 0357 784b |xK | Jump 0x3a3 ; case 0x17 0358 784d |xM | Jump 0x3a6 ; case 0x18 0359 784f |xO | Jump 0x3a9 ; case 0x19 035a 7851 |xQ | Jump 0x3ac ; case 0x1a 035b 7853 |xS | Jump 0x3af ; case 0x1b 035c 7855 |xU | Jump 0x3b2 ; case 0x1c 035d 7857 |xW | Jump 0x3b5 ; case 0x1d 035e 7800 |x | Jump 0x35f ; case 0x1e 035f e270 | p | Load 0x1,0x70 0360 826a | j | Call 0x1,0x6a 0361 7858 |xX | Jump 0x3ba 0362 00d1 | | Pop_Control Pop_Count_1 0363 7856 |xV | Jump 0x3ba 0364 e270 | p | Load 0x1,0x70 0365 8216 | | Call 0x1,0x16 0366 7853 |xS | Jump 0x3ba 0367 e270 | p | Load 0x1,0x70 0368 8219 | | Call 0x1,0x19 0369 7850 |xP | Jump 0x3ba 036a e270 | p | Load 0x1,0x70 036b 821c | | Call 0x1,0x1c 036c 784d |xM | Jump 0x3ba 036d e270 | p | Load 0x1,0x70 036e 821f | | Call 0x1,0x1f 036f 784a |xJ | Jump 0x3ba 0370 e270 | p | Load 0x1,0x70 0371 8222 | " | Call 0x1,0x22 0372 7847 |xG | Jump 0x3ba 0373 e270 | p | Load 0x1,0x70 0374 8225 | % | Call 0x1,0x25 0375 7844 |xD | Jump 0x3ba 0376 e270 | p | Load 0x1,0x70 0377 8228 | ( | Call 0x1,0x28 0378 7841 |xA | Jump 0x3ba 0379 e270 | p | Load 0x1,0x70 037a 822b | + | Call 0x1,0x2b 037b 783e |x> | Jump 0x3ba 037c e270 | p | Load 0x1,0x70 037d 822e | . | Call 0x1,0x2e 037e 783b |x; | Jump 0x3ba 037f e270 | p | Load 0x1,0x70 0380 8231 | 1 | Call 0x1,0x31 0381 7838 |x8 | Jump 0x3ba 0382 e270 | p | Load 0x1,0x70 0383 8234 | 4 | Call 0x1,0x34 0384 7835 |x5 | Jump 0x3ba 0385 e270 | p | Load 0x1,0x70 0386 8237 | 7 | Call 0x1,0x37 0387 7832 |x2 | Jump 0x3ba 0388 e270 | p | Load 0x1,0x70 0389 823a | : | Call 0x1,0x3a 038a 782f |x/ | Jump 0x3ba 038b e270 | p | Load 0x1,0x70 038c 823d | = | Call 0x1,0x3d 038d 782c |x, | Jump 0x3ba 038e e270 | p | Load 0x1,0x70 038f 8240 | @ | Call 0x1,0x40 0390 7829 |x) | Jump 0x3ba 0391 e270 | p | Load 0x1,0x70 0392 8243 | C | Call 0x1,0x43 0393 7826 |x& | Jump 0x3ba 0394 e270 | p | Load 0x1,0x70 0395 8246 | F | Call 0x1,0x46 0396 7823 |x# | Jump 0x3ba 0397 e270 | p | Load 0x1,0x70 0398 8249 | I | Call 0x1,0x49 0399 7820 |x | Jump 0x3ba 039a e270 | p | Load 0x1,0x70 039b 824c | L | Call 0x1,0x4c 039c 781d |x | Jump 0x3ba 039d e270 | p | Load 0x1,0x70 039e 824f | O | Call 0x1,0x4f 039f 781a |x | Jump 0x3ba 03a0 e270 | p | Load 0x1,0x70 03a1 8252 | R | Call 0x1,0x52 03a2 7817 |x | Jump 0x3ba 03a3 e270 | p | Load 0x1,0x70 03a4 8255 | U | Call 0x1,0x55 03a5 7814 |x | Jump 0x3ba 03a6 e270 | p | Load 0x1,0x70 03a7 8258 | X | Call 0x1,0x58 03a8 7811 |x | Jump 0x3ba 03a9 e270 | p | Load 0x1,0x70 03aa 825b | [ | Call 0x1,0x5b 03ab 780e |x | Jump 0x3ba 03ac e270 | p | Load 0x1,0x70 03ad 825e | ^ | Call 0x1,0x5e 03ae 780b |x | Jump 0x3ba 03af e270 | p | Load 0x1,0x70 03b0 8261 | a | Call 0x1,0x61 03b1 7808 |x | Jump 0x3ba 03b2 e270 | p | Load 0x1,0x70 03b3 8264 | d | Call 0x1,0x64 03b4 7805 |x | Jump 0x3ba 03b5 e270 | p | Load 0x1,0x70 03b6 8267 | g | Call 0x1,0x67 03b7 7802 |x | Jump 0x3ba 03b8 e270 | p | Load 0x1,0x70 03b9 8213 | | Call 0x1,0x13 03ba 00da | | Load_Top At_Offset_2 03bb 690b |i | Jump_Zero 0x4c7 03bc 4806 |H | Short_Literal 0x6 03bd e001 | | Load 0x0,0x1 03be 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03bf 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03c0 4808 |H | Short_Literal 0x8 03c1 e001 | | Load 0x0,0x1 03c2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03c4 0278 | x | Execute Discrete,Or 03c5 6901 |i | Jump_Zero 0x4c7 03c6 00da | | Load_Top At_Offset_2 03c7 00d8 | | Load_Top At_Offset_0 03c8 0c1f | | Execute_Immediate Greater_Equal,0x1f 03c9 7027 |p' | Jump_Nonzero 0x3f1 03ca 461e |F | Jump_Case 0x1f 03cb 7826 |x& | Jump 0x3f2 ; case 0x0 03cc 7830 |x0 | Jump 0x3fd ; case 0x1 03cd 7836 |x6 | Jump 0x404 ; case 0x2 03ce 783c |x< | Jump 0x40b ; case 0x3 03cf 7842 |xB | Jump 0x412 ; case 0x4 03d0 7848 |xH | Jump 0x419 ; case 0x5 03d1 784e |xN | Jump 0x420 ; case 0x6 03d2 7854 |xT | Jump 0x427 ; case 0x7 03d3 785a |xZ | Jump 0x42e ; case 0x8 03d4 7860 |x` | Jump 0x435 ; case 0x9 03d5 7866 |xf | Jump 0x43c ; case 0xa 03d6 786c |xl | Jump 0x443 ; case 0xb 03d7 7872 |xr | Jump 0x44a ; case 0xc 03d8 7878 |xx | Jump 0x451 ; case 0xd 03d9 787e |x~ | Jump 0x458 ; case 0xe 03da 7884 |x | Jump 0x45f ; case 0xf 03db 788a |x | Jump 0x466 ; case 0x10 03dc 7890 |x | Jump 0x46d ; case 0x11 03dd 7896 |x | Jump 0x474 ; case 0x12 03de 789c |x | Jump 0x47b ; case 0x13 03df 78a2 |x | Jump 0x482 ; case 0x14 03e0 78a8 |x | Jump 0x489 ; case 0x15 03e1 78ae |x | Jump 0x490 ; case 0x16 03e2 78b4 |x | Jump 0x497 ; case 0x17 03e3 78ba |x | Jump 0x49e ; case 0x18 03e4 78c0 |x | Jump 0x4a5 ; case 0x19 03e5 78c6 |x | Jump 0x4ac ; case 0x1a 03e6 78cc |x | Jump 0x4b3 ; case 0x1b 03e7 78d2 |x | Jump 0x4ba ; case 0x1c 03e8 78d8 |x | Jump 0x4c1 ; case 0x1d 03e9 7800 |x | Jump 0x3ea ; case 0x1e 03ea e270 | p | Load 0x1,0x70 03eb 481e |H | Short_Literal 0x1e 03ec e268 | h | Load 0x1,0x68 03ed e001 | | Load 0x0,0x1 03ee 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f0 78d6 |x | Jump 0x4c7 03f1 00d1 | | Pop_Control Pop_Count_1 03f2 e270 | p | Load 0x1,0x70 03f3 4800 |H | Short_Literal 0x0 03f4 0092 06c0 | | Action Push_String_Extended,0x6c0 ; "NO OPERATION ! " 03f6 e001 | | Load 0x0,0x1 03f7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03f8 01c3 | | Execute Vector,Check_In_Type 03f9 e001 | | Load 0x0,0x1 03fa 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03fb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03fc 78ca |x | Jump 0x4c7 03fd e270 | p | Load 0x1,0x70 03fe 4801 |H | Short_Literal 0x1 03ff e211 | | Load 0x1,0x11 0400 e001 | | Load 0x0,0x1 0401 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0402 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0403 78c3 |x | Jump 0x4c7 0404 e270 | p | Load 0x1,0x70 0405 4802 |H | Short_Literal 0x2 0406 e214 | | Load 0x1,0x14 0407 e001 | | Load 0x0,0x1 0408 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0409 1816 | | Execute Package,Field_Execute,Field_Number 0x16 040a 78bc |x | Jump 0x4c7 040b e270 | p | Load 0x1,0x70 040c 4803 |H | Short_Literal 0x3 040d e217 | | Load 0x1,0x17 040e e001 | | Load 0x0,0x1 040f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0410 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0411 78b5 |x | Jump 0x4c7 0412 e270 | p | Load 0x1,0x70 0413 4804 |H | Short_Literal 0x4 0414 e21a | | Load 0x1,0x1a 0415 e001 | | Load 0x0,0x1 0416 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0417 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0418 78ae |x | Jump 0x4c7 0419 e270 | p | Load 0x1,0x70 041a 4805 |H | Short_Literal 0x5 041b e21d | | Load 0x1,0x1d 041c e001 | | Load 0x0,0x1 041d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 041e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 041f 78a7 |x | Jump 0x4c7 0420 e270 | p | Load 0x1,0x70 0421 4806 |H | Short_Literal 0x6 0422 e220 | | Load 0x1,0x20 0423 e001 | | Load 0x0,0x1 0424 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0425 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0426 78a0 |x | Jump 0x4c7 0427 e270 | p | Load 0x1,0x70 0428 4807 |H | Short_Literal 0x7 0429 e223 | # | Load 0x1,0x23 042a e001 | | Load 0x0,0x1 042b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 042c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 042d 7899 |x | Jump 0x4c7 042e e270 | p | Load 0x1,0x70 042f 4808 |H | Short_Literal 0x8 0430 e226 | & | Load 0x1,0x26 0431 e001 | | Load 0x0,0x1 0432 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0433 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0434 7892 |x | Jump 0x4c7 0435 e270 | p | Load 0x1,0x70 0436 4809 |H | Short_Literal 0x9 0437 e229 | ) | Load 0x1,0x29 0438 e001 | | Load 0x0,0x1 0439 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 043a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 043b 788b |x | Jump 0x4c7 043c e270 | p | Load 0x1,0x70 043d 480a |H | Short_Literal 0xa 043e e22c | , | Load 0x1,0x2c 043f e001 | | Load 0x0,0x1 0440 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0441 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0442 7884 |x | Jump 0x4c7 0443 e270 | p | Load 0x1,0x70 0444 480b |H | Short_Literal 0xb 0445 e22f | / | Load 0x1,0x2f 0446 e001 | | Load 0x0,0x1 0447 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0448 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0449 787d |x} | Jump 0x4c7 044a e270 | p | Load 0x1,0x70 044b 480c |H | Short_Literal 0xc 044c e232 | 2 | Load 0x1,0x32 044d e001 | | Load 0x0,0x1 044e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 044f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0450 7876 |xv | Jump 0x4c7 0451 e270 | p | Load 0x1,0x70 0452 480d |H | Short_Literal 0xd 0453 e235 | 5 | Load 0x1,0x35 0454 e001 | | Load 0x0,0x1 0455 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0456 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0457 786f |xo | Jump 0x4c7 0458 e270 | p | Load 0x1,0x70 0459 480e |H | Short_Literal 0xe 045a e238 | 8 | Load 0x1,0x38 045b e001 | | Load 0x0,0x1 045c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 045d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 045e 7868 |xh | Jump 0x4c7 045f e270 | p | Load 0x1,0x70 0460 480f |H | Short_Literal 0xf 0461 e23b | ; | Load 0x1,0x3b 0462 e001 | | Load 0x0,0x1 0463 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0464 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0465 7861 |xa | Jump 0x4c7 0466 e270 | p | Load 0x1,0x70 0467 4810 |H | Short_Literal 0x10 0468 e23e | > | Load 0x1,0x3e 0469 e001 | | Load 0x0,0x1 046a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 046b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 046c 785a |xZ | Jump 0x4c7 046d e270 | p | Load 0x1,0x70 046e 4811 |H | Short_Literal 0x11 046f e241 | A | Load 0x1,0x41 0470 e001 | | Load 0x0,0x1 0471 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0472 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0473 7853 |xS | Jump 0x4c7 0474 e270 | p | Load 0x1,0x70 0475 4812 |H | Short_Literal 0x12 0476 e244 | D | Load 0x1,0x44 0477 e001 | | Load 0x0,0x1 0478 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0479 1816 | | Execute Package,Field_Execute,Field_Number 0x16 047a 784c |xL | Jump 0x4c7 047b e270 | p | Load 0x1,0x70 047c 4813 |H | Short_Literal 0x13 047d e247 | G | Load 0x1,0x47 047e e001 | | Load 0x0,0x1 047f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0480 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0481 7845 |xE | Jump 0x4c7 0482 e270 | p | Load 0x1,0x70 0483 4814 |H | Short_Literal 0x14 0484 e24a | J | Load 0x1,0x4a 0485 e001 | | Load 0x0,0x1 0486 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0487 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0488 783e |x> | Jump 0x4c7 0489 e270 | p | Load 0x1,0x70 048a 4815 |H | Short_Literal 0x15 048b e24d | M | Load 0x1,0x4d 048c e001 | | Load 0x0,0x1 048d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 048e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 048f 7837 |x7 | Jump 0x4c7 0490 e270 | p | Load 0x1,0x70 0491 4816 |H | Short_Literal 0x16 0492 e250 | P | Load 0x1,0x50 0493 e001 | | Load 0x0,0x1 0494 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0495 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0496 7830 |x0 | Jump 0x4c7 0497 e270 | p | Load 0x1,0x70 0498 4817 |H | Short_Literal 0x17 0499 e253 | S | Load 0x1,0x53 049a e001 | | Load 0x0,0x1 049b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 049c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 049d 7829 |x) | Jump 0x4c7 049e e270 | p | Load 0x1,0x70 049f 4818 |H | Short_Literal 0x18 04a0 e256 | V | Load 0x1,0x56 04a1 e001 | | Load 0x0,0x1 04a2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04a3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04a4 7822 |x" | Jump 0x4c7 04a5 e270 | p | Load 0x1,0x70 04a6 4819 |H | Short_Literal 0x19 04a7 e259 | Y | Load 0x1,0x59 04a8 e001 | | Load 0x0,0x1 04a9 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04aa 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04ab 781b |x | Jump 0x4c7 04ac e270 | p | Load 0x1,0x70 04ad 481a |H | Short_Literal 0x1a 04ae e25c | \ | Load 0x1,0x5c 04af e001 | | Load 0x0,0x1 04b0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04b2 7814 |x | Jump 0x4c7 04b3 e270 | p | Load 0x1,0x70 04b4 481b |H | Short_Literal 0x1b 04b5 e25f | _ | Load 0x1,0x5f 04b6 e001 | | Load 0x0,0x1 04b7 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04b9 780d |x | Jump 0x4c7 04ba e270 | p | Load 0x1,0x70 04bb 481c |H | Short_Literal 0x1c 04bc e262 | b | Load 0x1,0x62 04bd e001 | | Load 0x0,0x1 04be 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04c0 7806 |x | Jump 0x4c7 04c1 e270 | p | Load 0x1,0x70 04c2 481d |H | Short_Literal 0x1d 04c3 e265 | e | Load 0x1,0x65 04c4 e001 | | Load 0x0,0x1 04c5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04c7 e001 | | Load 0x0,0x1 04c8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04ca 00da | | Load_Top At_Offset_2 04cb 7003 |p | Jump_Nonzero 0x4cf 04cc e001 | | Load 0x0,0x1 04cd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 00cf | | Action Mark_Auxiliary 04d4 481e |H | Short_Literal 0x1e 04d5 4801 |H | Short_Literal 0x1 04d6 0007 | | Action Break_Optional 04d7 4800 |H | Short_Literal 0x0 04d8 00d9 | | Load_Top At_Offset_1 04d9 e26f | o | Load 0x1,0x6f 04da 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04db 01d6 | | Execute Vector,Field_Write 04dc 00c8 | | Action Pop_Auxiliary_Range 04dd 3ff9 |? | Loop_Increasing 0x4d7 04de 00ce | | Action Pop_Auxiliary 04df 4800 |H | Short_Literal 0x0 04e0 e26f | o | Load 0x1,0x6f 04e1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e3 0000 0000 | | .BLANK 0000[0x5] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04f2 | | .CONST 0x04f2 ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0004 | | .CONST 0x0004 ; Number of locals 04eb INIT_04e8: 04eb 00e3 | | Load_Encached Natural_Cache 04ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04ed 00e3 | | Load_Encached Natural_Cache 04ee 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04ef 608c |` | Indirect_Literal Discrete,0x57c,{0x00000000, 0x7fffffff} 04f0 00e3 | | Load_Encached Natural_Cache 04f1 03f1 | | Declare_Variable Discrete,With_Value 04f2 BODY_04e8: 04f2 e001 | | Load 0x0,0x1 04f3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 04f4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04f5 00cf | | Action Mark_Auxiliary 04f6 e26b | k | Load 0x1,0x6b 04f7 4801 |H | Short_Literal 0x1 04f8 0263 | c | Execute Discrete,Above_Bound 04f9 702e |p. | Jump_Nonzero 0x528 04fa 00d8 | | Load_Top At_Offset_0 04fb 827c | | | Call 0x1,0x7c 04fc e273 | s | Load 0x1,0x73 04fd e001 | | Load 0x0,0x1 04fe 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 04ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0500 6825 |h% | Jump_Zero 0x526 0501 4800 |H | Short_Literal 0x0 0502 a403 | | Store_Unchecked 0x2,0x3 0503 00cf | | Action Mark_Auxiliary 0504 e26f | o | Load 0x1,0x6f 0505 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0506 4801 |H | Short_Literal 0x1 0507 0263 | c | Execute Discrete,Above_Bound 0508 700b |p | Jump_Nonzero 0x514 0509 00d8 | | Load_Top At_Offset_0 050a e26f | o | Load 0x1,0x6f 050b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 050c 01d7 | | Execute Vector,Field_Read 050d e407 | | Load 0x2,0x7 050e 027f | | Execute Discrete,Equal 050f 6802 |h | Jump_Zero 0x512 0510 00d8 | | Load_Top At_Offset_0 0511 a403 | | Store_Unchecked 0x2,0x3 0512 00c8 | | Action Pop_Auxiliary_Range 0513 3ff5 |? | Loop_Increasing 0x509 0514 00ce | | Action Pop_Auxiliary 0515 e403 | | Load 0x2,0x3 0516 7004 |p | Jump_Nonzero 0x51b 0517 00d8 | | Load_Top At_Offset_0 0518 a402 | | Store_Unchecked 0x2,0x2 0519 00d2 | | Pop_Control Pop_Count_2 051a 780d |x | Jump 0x528 051b e403 | | Load 0x2,0x3 051c e404 | | Load 0x2,0x4 051d 027c | | | Execute Discrete,Less 051e 6807 |h | Jump_Zero 0x526 051f e403 | | Load 0x2,0x3 0520 a404 | | Store_Unchecked 0x2,0x4 0521 00db | | Load_Top At_Offset_3 0522 e26f | o | Load 0x1,0x6f 0523 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0524 01d7 | | Execute Vector,Field_Read 0525 a402 | | Store_Unchecked 0x2,0x2 0526 00c8 | | Action Pop_Auxiliary_Range 0527 3fd2 |? | Loop_Increasing 0x4fa 0528 00ce | | Action Pop_Auxiliary 0529 e001 | | Load 0x0,0x1 052a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 052b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 052c 00da | | Load_Top At_Offset_2 052d 7009 |p | Jump_Nonzero 0x537 052e 827e | ~ | Call 0x1,0x7e 052f e001 | | Load 0x0,0x1 0530 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0531 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0532 e001 | | Load 0x0,0x1 0533 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0534 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0535 4800 |H | Short_Literal 0x0 0536 00ca | | Action Exit_Nullary_Function 0537 e26f | o | Load 0x1,0x6f 0538 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0539 0a01 | | Execute_Immediate Plus,0x1 053a e26f | o | Load 0x1,0x6f 053b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 053c e26f | o | Load 0x1,0x6f 053d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 053e 0c1f | | Execute_Immediate Greater_Equal,0x1f 053f 6813 |h | Jump_Zero 0x553 0540 481e |H | Short_Literal 0x1e 0541 e26f | o | Load 0x1,0x6f 0542 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0543 00cf | | Action Mark_Auxiliary 0544 481d |H | Short_Literal 0x1d 0545 4801 |H | Short_Literal 0x1 0546 0007 | | Action Break_Optional 0547 00d8 | | Load_Top At_Offset_0 0548 0a01 | | Execute_Immediate Plus,0x1 0549 e26f | o | Load 0x1,0x6f 054a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 054b 01d7 | | Execute Vector,Field_Read 054c 00d9 | | Load_Top At_Offset_1 054d e26f | o | Load 0x1,0x6f 054e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 054f 01d6 | | Execute Vector,Field_Write 0550 00c8 | | Action Pop_Auxiliary_Range 0551 3ff5 |? | Loop_Increasing 0x547 0552 00ce | | Action Pop_Auxiliary 0553 00da | | Load_Top At_Offset_2 0554 e26f | o | Load 0x1,0x6f 0555 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0556 e26f | o | Load 0x1,0x6f 0557 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0558 01d6 | | Execute Vector,Field_Write 0559 00da | | Load_Top At_Offset_2 055a 00d8 | | Load_Top At_Offset_0 055b 00e4 | | Load_Encached Positive_Cache 055c 0260 | ` | Execute Discrete,In_Type 055d 7001 |p | Jump_Nonzero 0x55f 055e 0801 | | Execute_Immediate Raise,0x1 055f 827c | | | Call 0x1,0x7c 0560 e273 | s | Load 0x1,0x73 0561 e001 | | Load 0x0,0x1 0562 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0563 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0564 e270 | p | Load 0x1,0x70 0565 016d | m | Execute Variant_Record,Structure_Write 0566 4805 |H | Short_Literal 0x5 0567 e001 | | Load 0x0,0x1 0568 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0569 1819 | | Execute Package,Field_Execute,Field_Number 0x19 056a 4807 |H | Short_Literal 0x7 056b e001 | | Load 0x0,0x1 056c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 056d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 056e 0278 | x | Execute Discrete,Or 056f 6805 |h | Jump_Zero 0x575 0570 e270 | p | Load 0x1,0x70 0571 00db | | Load_Top At_Offset_3 0572 e001 | | Load 0x0,0x1 0573 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0574 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0575 00da | | Load_Top At_Offset_2 0576 827d | } | Call 0x1,0x7d 0577 4801 |H | Short_Literal 0x1 0578 00ca | | Action Exit_Nullary_Function 0579 0000 0000 | | .XXX[0x3] 057b 0000 | | 057c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0585 | | .CONST 0x0585 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0002 | | .CONST 0x0002 ; Number of locals 0583 INIT_0580: 0583 00e1 | | Load_Encached Boolean_Cache 0584 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0585 BODY_0580: 0585 4800 |H | Short_Literal 0x0 0586 a272 | r | Store_Unchecked 0x1,0x72 0587 e001 | | Load 0x0,0x1 0588 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0589 1812 | | Execute Package,Field_Execute,Field_Number 0x12 058a 00cf | | Action Mark_Auxiliary 058b e26b | k | Load 0x1,0x6b 058c 4801 |H | Short_Literal 0x1 058d 0263 | c | Execute Discrete,Above_Bound 058e 7085 |p | Jump_Nonzero 0x614 058f 00d8 | | Load_Top At_Offset_0 0590 827c | | | Call 0x1,0x7c 0591 00cf | | Action Mark_Auxiliary 0592 e273 | s | Load 0x1,0x73 0593 e001 | | Load 0x0,0x1 0594 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0595 180f | | Execute Package,Field_Execute,Field_Number 0xf 0596 4801 |H | Short_Literal 0x1 0597 0263 | c | Execute Discrete,Above_Bound 0598 7078 |px | Jump_Nonzero 0x611 0599 00d8 | | Load_Top At_Offset_0 059a e273 | s | Load 0x1,0x73 059b e001 | | Load 0x0,0x1 059c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 059d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 059e e274 | t | Load 0x1,0x74 059f 016d | m | Execute Variant_Record,Structure_Write 05a0 e402 | | Load 0x2,0x2 05a1 6812 |h | Jump_Zero 0x5b4 05a2 e274 | t | Load 0x1,0x74 05a3 e270 | p | Load 0x1,0x70 05a4 016d | m | Execute Variant_Record,Structure_Write 05a5 e274 | t | Load 0x1,0x74 05a6 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 05a7 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 05a8 e001 | | Load 0x0,0x1 05a9 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05aa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05ab 00d1 | | Pop_Control Pop_Count_1 05ac e274 | t | Load 0x1,0x74 05ad e271 | q | Load 0x1,0x71 05ae 016d | m | Execute Variant_Record,Structure_Write 05af 00db | | Load_Top At_Offset_3 05b0 a272 | r | Store_Unchecked 0x1,0x72 05b1 4800 |H | Short_Literal 0x0 05b2 a402 | | Store_Unchecked 0x2,0x2 05b3 785b |x[ | Jump 0x60f 05b4 e210 | | Load 0x1,0x10 05b5 0f01 | | Execute_Immediate Equal,0x1 05b6 e274 | t | Load 0x1,0x74 05b7 e001 | | Load 0x0,0x1 05b8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05ba 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05bb e270 | p | Load 0x1,0x70 05bc e001 | | Load 0x0,0x1 05bd 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05bf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05c0 027d | } | Execute Discrete,Greater 05c1 0279 | y | Execute Discrete,And 05c2 6806 |h | Jump_Zero 0x5c9 05c3 00db | | Load_Top At_Offset_3 05c4 a272 | r | Store_Unchecked 0x1,0x72 05c5 e274 | t | Load 0x1,0x74 05c6 e270 | p | Load 0x1,0x70 05c7 016d | m | Execute Variant_Record,Structure_Write 05c8 7846 |xF | Jump 0x60f 05c9 e274 | t | Load 0x1,0x74 05ca e275 | u | Load 0x1,0x75 05cb 016d | m | Execute Variant_Record,Structure_Write 05cc e274 | t | Load 0x1,0x74 05cd 1d78 | x | Execute_Immediate Reference_Lex_1,0x78 05ce 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 05cf e001 | | Load 0x0,0x1 05d0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05d1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 05d2 00d1 | | Pop_Control Pop_Count_1 05d3 00cf | | Action Mark_Auxiliary 05d4 e274 | t | Load 0x1,0x74 05d5 e001 | | Load 0x0,0x1 05d6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05d7 180f | | Execute Package,Field_Execute,Field_Number 0xf 05d8 4801 |H | Short_Literal 0x1 05d9 0263 | c | Execute Discrete,Above_Bound 05da 7033 |p3 | Jump_Nonzero 0x60e 05db 00d8 | | Load_Top At_Offset_0 05dc e274 | t | Load 0x1,0x74 05dd e001 | | Load 0x0,0x1 05de 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05df 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05e1 00d9 | | Load_Top At_Offset_1 05e2 e271 | q | Load 0x1,0x71 05e3 e001 | | Load 0x0,0x1 05e4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05e7 027d | } | Execute Discrete,Greater 05e8 680a |h | Jump_Zero 0x5f3 05e9 e405 | | Load 0x2,0x5 05ea a272 | r | Store_Unchecked 0x1,0x72 05eb e275 | u | Load 0x1,0x75 05ec e270 | p | Load 0x1,0x70 05ed 016d | m | Execute Variant_Record,Structure_Write 05ee e274 | t | Load 0x1,0x74 05ef e271 | q | Load 0x1,0x71 05f0 016d | m | Execute Variant_Record,Structure_Write 05f1 00d2 | | Pop_Control Pop_Count_2 05f2 781b |x | Jump 0x60e 05f3 00d8 | | Load_Top At_Offset_0 05f4 e274 | t | Load 0x1,0x74 05f5 e001 | | Load 0x0,0x1 05f6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05f7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05f8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05f9 00d9 | | Load_Top At_Offset_1 05fa e271 | q | Load 0x1,0x71 05fb e001 | | Load 0x0,0x1 05fc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05fd 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05fe 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05ff 027c | | | Execute Discrete,Less 0600 6802 |h | Jump_Zero 0x603 0601 00d2 | | Pop_Control Pop_Count_2 0602 780b |x | Jump 0x60e 0603 00d8 | | Load_Top At_Offset_0 0604 e270 | p | Load 0x1,0x70 0605 e001 | | Load 0x0,0x1 0606 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0607 180f | | Execute Package,Field_Execute,Field_Number 0xf 0608 027f | | Execute Discrete,Equal 0609 6802 |h | Jump_Zero 0x60c 060a 00d2 | | Pop_Control Pop_Count_2 060b 7802 |x | Jump 0x60e 060c 00c8 | | Action Pop_Auxiliary_Range 060d 3fcd |? | Loop_Increasing 0x5db 060e 00ce | | Action Pop_Auxiliary 060f 00c8 | | Action Pop_Auxiliary_Range 0610 3f88 |? | Loop_Increasing 0x599 0611 00ce | | Action Pop_Auxiliary 0612 00c8 | | Action Pop_Auxiliary_Range 0613 3f7b |?{ | Loop_Increasing 0x58f 0614 00ce | | Action Pop_Auxiliary 0615 e001 | | Load 0x0,0x1 0616 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0617 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0618 e272 | r | Load 0x1,0x72 0619 680f |h | Jump_Zero 0x629 061a 4805 |H | Short_Literal 0x5 061b e001 | | Load 0x0,0x1 061c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 061d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 061e 4807 |H | Short_Literal 0x7 061f e001 | | Load 0x0,0x1 0620 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0621 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0622 0278 | x | Execute Discrete,Or 0623 6805 |h | Jump_Zero 0x629 0624 e270 | p | Load 0x1,0x70 0625 e272 | r | Load 0x1,0x72 0626 e001 | | Load 0x0,0x1 0627 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0628 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0629 e272 | r | Load 0x1,0x72 062a 827d | } | Call 0x1,0x7d 062b e272 | r | Load 0x1,0x72 062c 0e00 | | Execute_Immediate Not_Equal,0x0 062d 00ca | | Action Exit_Nullary_Function 062e 0000 0000 | | .XXX[0x2] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0633 | 3 | .CONST 0x0633 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0001 | | .CONST 0x0001 ; Number of locals 0633 BODY_0630: 0633 INIT_0630: 0633 e001 | | Load 0x0,0x1 0634 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0635 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0636 00cf | | Action Mark_Auxiliary 0637 e26b | k | Load 0x1,0x6b 0638 4801 |H | Short_Literal 0x1 0639 0263 | c | Execute Discrete,Above_Bound 063a 7025 |p% | Jump_Nonzero 0x660 063b 00d8 | | Load_Top At_Offset_0 063c 827c | | | Call 0x1,0x7c 063d e273 | s | Load 0x1,0x73 063e e001 | | Load 0x0,0x1 063f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0640 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0641 681c |h | Jump_Zero 0x65e 0642 e001 | | Load 0x0,0x1 0643 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0644 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0645 e273 | s | Load 0x1,0x73 0646 e001 | | Load 0x0,0x1 0647 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0648 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0649 e270 | p | Load 0x1,0x70 064a 016d | m | Execute Variant_Record,Structure_Write 064b 4805 |H | Short_Literal 0x5 064c e001 | | Load 0x0,0x1 064d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 064e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 064f 4807 |H | Short_Literal 0x7 0650 e001 | | Load 0x0,0x1 0651 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0652 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0653 0278 | x | Execute Discrete,Or 0654 6805 |h | Jump_Zero 0x65a 0655 e270 | p | Load 0x1,0x70 0656 00d9 | | Load_Top At_Offset_1 0657 e001 | | Load 0x0,0x1 0658 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0659 1815 | | Execute Package,Field_Execute,Field_Number 0x15 065a 00d8 | | Load_Top At_Offset_0 065b 827d | } | Call 0x1,0x7d 065c 4801 |H | Short_Literal 0x1 065d 00ca | | Action Exit_Nullary_Function 065e 00c8 | | Action Pop_Auxiliary_Range 065f 3fdb |? | Loop_Increasing 0x63b 0660 00ce | | Action Pop_Auxiliary 0661 e001 | | Load 0x0,0x1 0662 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0663 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0664 e001 | | Load 0x0,0x1 0665 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0666 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0667 4800 |H | Short_Literal 0x0 0668 00ca | | Action Exit_Nullary_Function 0669 0000 0000 | | .BLANK 0000[0x7] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0674 | t | .CONST 0x0674 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0002 | | .CONST 0x0002 ; Number of locals 0673 INIT_0670: 0673 00e1 | | Load_Encached Boolean_Cache 0674 BODY_0670: 0674 e210 | | Load 0x1,0x10 0675 7009 |p | Jump_Nonzero 0x67f 0676 0092 06c1 | | Action Push_String_Extended,0x6c1 ; " LEX " 0678 e001 | | Load 0x0,0x1 0679 1b13 | | Execute Package,Field_Read,Field_Number 0x13 067a 01c3 | | Execute Vector,Check_In_Type 067b e001 | | Load 0x0,0x1 067c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 067d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 067e 7810 |x | Jump 0x68f 067f e210 | | Load 0x1,0x10 0680 0f01 | | Execute_Immediate Equal,0x1 0681 6809 |h | Jump_Zero 0x68b 0682 0092 06c2 | | Action Push_String_Extended,0x6c2 ; " MEA " 0684 e001 | | Load 0x0,0x1 0685 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0686 01c3 | | Execute Vector,Check_In_Type 0687 e001 | | Load 0x0,0x1 0688 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0689 1811 | | Execute Package,Field_Execute,Field_Number 0x11 068a 7804 |x | Jump 0x68f 068b e5fe | | Load 0x2,-0x2 068c e001 | | Load 0x0,0x1 068d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 068e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 068f e5fc | | Load 0x2,-0x4 0690 7009 |p | Jump_Nonzero 0x69a 0691 00cf | | Action Mark_Auxiliary 0692 85fd | | Call 0x2,-0x3 0693 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0694 00d9 | | Load_Top At_Offset_1 0695 6802 |h | Jump_Zero 0x698 0696 00c9 | | Action Pop_Auxiliary_Loop 0697 7ffa | | Jump 0x692 0698 00ce | | Action Pop_Auxiliary 0699 780e |x | Jump 0x6a8 069a 00cf | | Action Mark_Auxiliary 069b e5fc | | Load 0x2,-0x4 069c 4801 |H | Short_Literal 0x1 069d 0263 | c | Execute Discrete,Above_Bound 069e 7008 |p | Jump_Nonzero 0x6a7 069f 85fd | | Call 0x2,-0x3 06a0 a402 | | Store_Unchecked 0x2,0x2 06a1 00db | | Load_Top At_Offset_3 06a2 7002 |p | Jump_Nonzero 0x6a5 06a3 00d2 | | Pop_Control Pop_Count_2 06a4 7802 |x | Jump 0x6a7 06a5 00c8 | | Action Pop_Auxiliary_Range 06a6 3ff8 |? | Loop_Increasing 0x69f 06a7 00ce | | Action Pop_Auxiliary 06a8 00d8 | | Load_Top At_Offset_0 06a9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 06aa 0000 0000 | | .BLANK 0000[0x6] 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b9 | | .CONST 0x06b9 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0002 | | .CONST 0x0002 ; Number of locals 06b3 INIT_06b0: 06b3 e001 | | Load 0x0,0x1 06b4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 06b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06b6 02ff | | Declare_Variable Variant_Record 06b7 00d8 | | Load_Top At_Offset_0 06b8 1c00 | | Execute_Immediate Run_Utility,0x0 06b9 BODY_06b0: 06b9 00d8 | | Load_Top At_Offset_0 06ba e273 | s | Load 0x1,0x73 06bb 016d | m | Execute Variant_Record,Structure_Write 06bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06bd ; -------------------------------------------------------------------------------------- 06bd ; STRING TABLE 06bd ; -------------------------------------------------------------------------------------- 06bd 000e | | .STRTAB 0x000e->0x06c4 ; " /// " 06be 0011 | | .STRTAB 0x0011->0x06c6 ; " LRU " 06bf 0014 | | .STRTAB 0x0014->0x06c9 ; "FIRST" 06c0 0017 | | .STRTAB 0x0017->0x06cb ; "NO OPERATION ! " 06c1 0024 | $ | .STRTAB 0x0024->0x06d3 ; " LEX " 06c2 0027 | ' | .STRTAB 0x0027->0x06d5 ; " MEA " 06c3 002a | * | .STREND 0x002a->0x06d8 06c4 202f 2f2f | ///| .STRTAB_STRINGS 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; Debug Table 06d8 ; -------------------------------------------------------------------------------------- 06d8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x63ff,0x0000,0x0001,0x000d 06de 000b 0712 | | .DBG4T 0x000b,0x0712,0x4000,0x0000 06e2 000e 0715 | | .DBG4T 0x000e,0x0715,0x4000,0x8000 06e6 00b3 0749 | I| .DBG4T 0x00b3,0x0749,0x1002,0x0000 06ea 00db 0000 | | .DBG4T 0x00db,0x0000,0x1005,0x0000 06ee 0103 0751 | Q| .DBG4T 0x0103,0x0751,0x1002,0x0000 06f2 0113 0754 | T| .DBG4T 0x0113,0x0754,0x1001,0x4000 06f6 033b 07d8 | ; | .DBG4T 0x033b,0x07d8,0x1001,0x4000 06fa 04d3 0860 | `| .DBG4T 0x04d3,0x0860,0x1001,0x0000 06fe 04eb 0865 | e| .DBG4T 0x04eb,0x0865,0x1002,0x0000 0702 0583 088a | | .DBG4T 0x0583,0x088a,0x1002,0x0000 0706 0633 08ad | 3 | .DBG4T 0x0633,0x08ad,0x1002,0x0000 070a 0673 08bc | s | .DBG4T 0x0673,0x08bc,0x3802,0x4002 070e 06b3 08d7 | | .DBG4T 0x06b3,0x08d7,0x1004,0x0000 0712 ; -------------------------------------------------------------------------------------- 0712 ; Debug chain 0712 ; -------------------------------------------------------------------------------------- 0712 0001 0000 | | .DBGLEN 0x0001,0x0000 0714 000b | | .DBGLNO 0x000b 0715 ; -------------------------------------------------------------------------------------- 0715 ; Debug chain 0715 ; -------------------------------------------------------------------------------------- 0715 0018 0002 | | .DBGLEN 0x0018,0x0002 0717 000e 0014 | | .DBGLNO 0x000e,0x0014,0x001a,0x001e,0x0024,0x002a,0x002c,0x0032,0x0038,0x003e,0x0040,0x0042,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x0067,0x0073,0x007f,0x0081,0x0085 0731 0003 0004 | | .XXX[0x18] 0733 0005 0006 | | 0735 0007 0008 | | 0737 0009 000a | | 0739 000b 000c | | 073b 000d 000e | | 073d 000f 0010 | | 073f 0011 0012 | | 0741 0013 0014 | | 0743 0015 0016 | | 0745 0017 0018 | | 0747 0019 001a | | 0749 ; -------------------------------------------------------------------------------------- 0749 ; Debug chain 0749 ; -------------------------------------------------------------------------------------- 0749 0000 0006 | | .DBGLEN 0x0000,0x0006 074b 00b3 00b8 | | .DBGLNO 0x00b3,0x00b8,0x00be,0x00c4,0x00c7,0x00cd 0751 ; -------------------------------------------------------------------------------------- 0751 ; Debug chain 0751 ; -------------------------------------------------------------------------------------- 0751 0000 0001 | | .DBGLEN 0x0000,0x0001 0753 0103 | | .DBGLNO 0x0103 0754 ; -------------------------------------------------------------------------------------- 0754 ; Debug chain 0754 ; -------------------------------------------------------------------------------------- 0754 0000 0041 | A| .DBGLEN 0x0000,0x0041 0756 0115 0122 | "| .DBGLNO 0x0115,0x0122,0x0146,0x014c,0x0150,0x0154,0x0158,0x015c,0x0160,0x0164,0x0168,0x016c,0x0170,0x0174,0x0178,0x017c,0x0180,0x0184,0x0188,0x018c,0x0190,0x0194,0x0198,0x019c,0x01a0,0x01a4,0x01a8,0x01ac,0x01b0,0x01b4,0x01b8,0x01bc,0x01c0,0x01c1,0x01c6,0x01ea,0x01f7,0x0202,0x020d,0x0218,0x0223,0x022e,0x0239,0x0244,0x024f,0x025a,0x0265,0x0270,0x027b,0x0286,0x0291,0x029c,0x02a7,0x02b2,0x02bd,0x02c8,0x02d3,0x02de,0x02e9,0x02f4,0x02ff,0x030a,0x0315,0x0320,0x032b 0797 0001 0002 | | .XXX[0x41] 0799 0020 0004 | | 079b 0005 0006 | | 079d 0007 0008 | | 079f 0009 000a | | 07a1 000b 000c | | 07a3 000d 000e | | 07a5 000f 0010 | | 07a7 0011 0012 | | 07a9 0013 0014 | | 07ab 0015 0016 | | 07ad 0017 0018 | | 07af 0019 001a | | 07b1 001b 001c | | 07b3 001d 001e | | 07b5 001f 0003 | | 07b7 0022 0023 | " #| 07b9 0024 0042 | $ B| 07bb 0026 0027 | & '| 07bd 0028 0029 | ( )| 07bf 002a 002b | * +| 07c1 002c 002d | , -| 07c3 002e 002f | . /| 07c5 0030 0031 | 0 1| 07c7 0032 0033 | 2 3| 07c9 0034 0035 | 4 5| 07cb 0036 0037 | 6 7| 07cd 0038 0039 | 8 9| 07cf 003a 003b | : ;| 07d1 003c 003d | < =| 07d3 003e 003f | > ?| 07d5 0040 0041 | @ A| 07d7 0025 | % | 07d8 ; -------------------------------------------------------------------------------------- 07d8 ; Debug chain 07d8 ; -------------------------------------------------------------------------------------- 07d8 0000 0043 | C| .DBGLEN 0x0000,0x0043 07da 033b 035f | ; _| .DBGLNO 0x033b,0x035f,0x0364,0x0367,0x036a,0x036d,0x0370,0x0373,0x0376,0x0379,0x037c,0x037f,0x0382,0x0385,0x0388,0x038b,0x038e,0x0391,0x0394,0x0397,0x039a,0x039d,0x03a0,0x03a3,0x03a6,0x03a9,0x03ac,0x03af,0x03b2,0x03b5,0x03b8,0x03ba,0x03c6,0x03ea,0x03f2,0x03fd,0x0404,0x040b,0x0412,0x0419,0x0420,0x0427,0x042e,0x0435,0x043c,0x0443,0x044a,0x0451,0x0458,0x045f,0x0466,0x046d,0x0474,0x047b,0x0482,0x0489,0x0490,0x0497,0x049e,0x04a5,0x04ac,0x04b3,0x04ba,0x04c1,0x04c7,0x04ca,0x04cc 081d 0001 001f | | .XXX[0x43] 081f 0003 0004 | | 0821 0005 0006 | | 0823 0007 0008 | | 0825 0009 000a | | 0827 000b 000c | | 0829 000d 000e | | 082b 000f 0010 | | 082d 0011 0012 | | 082f 0013 0014 | | 0831 0015 0016 | | 0833 0017 0018 | | 0835 0019 001a | | 0837 001b 001c | | 0839 001d 001e | | 083b 0002 0021 | !| 083d 0022 0040 | " @| 083f 0041 0023 | A #| 0841 0024 0025 | $ %| 0843 0026 0027 | & '| 0845 0028 0029 | ( )| 0847 002a 002b | * +| 0849 002c 002d | , -| 084b 002e 002f | . /| 084d 0030 0031 | 0 1| 084f 0032 0033 | 2 3| 0851 0034 0035 | 4 5| 0853 0036 0037 | 6 7| 0855 0038 0039 | 8 9| 0857 003a 003b | : ;| 0859 003c 003d | < =| 085b 003e 003f | > ?| 085d 0042 0043 | B C| 085f 0044 | D | 0860 ; -------------------------------------------------------------------------------------- 0860 ; Debug chain 0860 ; -------------------------------------------------------------------------------------- 0860 0000 0003 | | .DBGLEN 0x0000,0x0003 0862 04d4 04d7 | | .DBGLNO 0x04d4,0x04d7,0x04df 0865 ; -------------------------------------------------------------------------------------- 0865 ; Debug chain 0865 ; -------------------------------------------------------------------------------------- 0865 0003 0020 | | .DBGLEN 0x0003,0x0020 0867 04eb 04ed | | .DBGLNO 0x04eb,0x04ed,0x04ef,0x04f2,0x04f6,0x04fa,0x04fc,0x0501,0x0504,0x0509,0x0510,0x0515,0x0517,0x0519,0x051b,0x051f,0x0521,0x0529,0x052c,0x052e,0x052f,0x0532,0x0535,0x0537,0x053c,0x0540,0x0544,0x0547,0x0553,0x0559,0x0560,0x0566,0x0570,0x0575,0x0577 088a ; -------------------------------------------------------------------------------------- 088a ; Debug chain 088a ; -------------------------------------------------------------------------------------- 088a 0001 0020 | | .DBGLEN 0x0001,0x0020 088c 0583 0585 | | .DBGLNO 0x0583,0x0585,0x0587,0x058b,0x058f,0x0592,0x0599,0x05a0,0x05a2,0x05a5,0x05ac,0x05af,0x05b1,0x05b4,0x05c3,0x05c5,0x05c9,0x05cc,0x05d4,0x05db,0x05e9,0x05eb,0x05ee,0x05f1,0x05f3,0x0601,0x0603,0x060a,0x0615,0x0618,0x0624,0x0629,0x062b 08ad ; -------------------------------------------------------------------------------------- 08ad ; Debug chain 08ad ; -------------------------------------------------------------------------------------- 08ad 0000 000d | | .DBGLEN 0x0000,0x000d 08af 0633 0637 | 3 7| .DBGLNO 0x0633,0x0637,0x063b,0x063d,0x0642,0x0645,0x064b,0x0655,0x065a,0x065c,0x0661,0x0664,0x0667 08bc ; -------------------------------------------------------------------------------------- 08bc ; Debug chain 08bc ; -------------------------------------------------------------------------------------- 08bc 0001 000c | | .DBGLEN 0x0001,0x000c 08be 0673 0674 | s t| .DBGLNO 0x0673,0x0674,0x0676,0x067f,0x0682,0x068b,0x068f,0x0692,0x0694,0x069b,0x069f,0x06a1,0x06a8 08cb 0001 0002 | | .XXX[0xc] 08cd 0003 0004 | | 08cf 0005 0006 | | 08d1 0008 0009 | | 08d3 000a 000b | | 08d5 000c 000d | | 08d7 ; -------------------------------------------------------------------------------------- 08d7 ; Debug chain 08d7 ; -------------------------------------------------------------------------------------- 08d7 0001 0001 | | .DBGLEN 0x0001,0x0001 08d9 06b3 06b9 | | .DBGLNO 0x06b3,0x06b9 08db 0000 0000 | | .BLANK 0000[0x125]