|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0658fb
└─⟦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 0670 | p | .CONST 0x0670 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00af | | .CONST 0x00af ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002c | , | .CONST 0x002c ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 0129 | ) | Execute Any,Make_Visible 000d e002 | | Load 0x0,0x2 000e 190f | | Execute Package,Field_Reference,Field_Number 0xf 000f 0129 | ) | Execute Any,Make_Visible 0010 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0012 00bf | | Action Accept_Activation 0013 e003 | | Load 0x0,0x3 0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0015 02c7 | | Declare_Variable Any 0016 00d8 | | Load_Top At_Offset_0 0017 1c00 | | Execute_Immediate Run_Utility,0x0 0018 e003 | | Load 0x0,0x3 0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001a 02c7 | | Declare_Variable Any 001b 00d8 | | Load_Top At_Offset_0 001c 1c00 | | Execute_Immediate Run_Utility,0x0 001d e004 | | Load 0x0,0x4 001e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001f 4a00 |J | Short_Literal 0x200 0020 e005 | | Load 0x0,0x5 0021 180d | | Execute Package,Field_Execute,Field_Number 0xd 0022 0039 | 9 | Store_Top Access,At_Offset_1 0023 00e1 | | Load_Encached Boolean_Cache 0024 e004 | | Load 0x0,0x4 0025 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0026 4a00 |J | Short_Literal 0x200 0027 e005 | | Load 0x0,0x5 0028 180d | | Execute Package,Field_Execute,Field_Number 0xd 0029 0039 | 9 | Store_Top Access,At_Offset_1 002a 00e3 | | Load_Encached Natural_Cache 002b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002c 00e3 | | Load_Encached Natural_Cache 002d e006 | | Load 0x0,0x6 002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002f 0613 | | Execute_Immediate Set_Value_Unchecked,0x13 0030 e004 | | Load 0x0,0x4 0031 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0032 4840 |H@ | Short_Literal 0x40 0033 e005 | | Load 0x0,0x5 0034 180d | | Execute Package,Field_Execute,Field_Number 0xd 0035 0039 | 9 | Store_Top Access,At_Offset_1 0036 e006 | | Load 0x0,0x6 0037 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0038 02ff | | Declare_Variable Variant_Record 0039 00d8 | | Load_Top At_Offset_0 003a 1c00 | | Execute_Immediate Run_Utility,0x0 003b e006 | | Load 0x0,0x6 003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003d 02ff | | Declare_Variable Variant_Record 003e 00d8 | | Load_Top At_Offset_0 003f 1c00 | | Execute_Immediate Run_Utility,0x0 0040 e007 | | Load 0x0,0x7 0041 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0042 0337 | 7 | Declare_Variable Array 0043 e006 | | Load 0x0,0x6 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 0266 | f | Execute Discrete,Bounds 0046 00e1 | | Load_Encached Boolean_Cache 0047 02a0 | | Declare_Subprogram Null_Subprogram 0048 4801 |H | Short_Literal 0x1 0049 035d | ] | Declare_Type Array,Defined 004a 00d8 | | Load_Top At_Offset_0 004b 0337 | 7 | Declare_Variable Array 004c 4801 |H | Short_Literal 0x1 004d 4808 |H | Short_Literal 0x8 004e 00da | | Load_Top At_Offset_2 004f 01d6 | | Execute Vector,Field_Write 0050 4801 |H | Short_Literal 0x1 0051 4809 |H | Short_Literal 0x9 0052 00da | | Load_Top At_Offset_2 0053 01d6 | | Execute Vector,Field_Write 0054 4801 |H | Short_Literal 0x1 0055 480a |H | Short_Literal 0xa 0056 00da | | Load_Top At_Offset_2 0057 01d6 | | Execute Vector,Field_Write 0058 4807 |H | Short_Literal 0x7 0059 4800 |H | Short_Literal 0x0 005a 4800 |H | Short_Literal 0x0 005b 00d9 | | Load_Top At_Offset_1 005c e21d | | Load 0x1,0x1d 005d 01d6 | | Execute Vector,Field_Write 005e 3ffb |? | Loop_Increasing 0x5a 005f 4814 |H | Short_Literal 0x14 0060 480b |H | Short_Literal 0xb 0061 4800 |H | Short_Literal 0x0 0062 00d9 | | Load_Top At_Offset_1 0063 e21d | | Load 0x1,0x1d 0064 01d6 | | Execute Vector,Field_Write 0065 3ffb |? | Loop_Increasing 0x61 0066 00d9 | | Load_Top At_Offset_1 0067 01c3 | | Execute Vector,Check_In_Type 0068 0007 | | Action Break_Optional 0069 e006 | | Load 0x0,0x6 006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006b 0266 | f | Execute Discrete,Bounds 006c 00e3 | | Load_Encached Natural_Cache 006d 02a0 | | Declare_Subprogram Null_Subprogram 006e 4801 |H | Short_Literal 0x1 006f 035d | ] | Declare_Type Array,Defined 0070 00d8 | | Load_Top At_Offset_0 0071 0337 | 7 | Declare_Variable Array 0072 4801 |H | Short_Literal 0x1 0073 4808 |H | Short_Literal 0x8 0074 00da | | Load_Top At_Offset_2 0075 01d6 | | Execute Vector,Field_Write 0076 4801 |H | Short_Literal 0x1 0077 4809 |H | Short_Literal 0x9 0078 00da | | Load_Top At_Offset_2 0079 01d6 | | Execute Vector,Field_Write 007a 4801 |H | Short_Literal 0x1 007b 480a |H | Short_Literal 0xa 007c 00da | | Load_Top At_Offset_2 007d 01d6 | | Execute Vector,Field_Write 007e 4807 |H | Short_Literal 0x7 007f 4800 |H | Short_Literal 0x0 0080 4800 |H | Short_Literal 0x0 0081 00d9 | | Load_Top At_Offset_1 0082 e21f | | Load 0x1,0x1f 0083 01d6 | | Execute Vector,Field_Write 0084 3ffb |? | Loop_Increasing 0x80 0085 4814 |H | Short_Literal 0x14 0086 480b |H | Short_Literal 0xb 0087 4800 |H | Short_Literal 0x0 0088 00d9 | | Load_Top At_Offset_1 0089 e21f | | Load 0x1,0x1f 008a 01d6 | | Execute Vector,Field_Write 008b 3ffb |? | Loop_Increasing 0x87 008c 00d9 | | Load_Top At_Offset_1 008d 01c3 | | Execute Vector,Check_In_Type 008e 0007 | | Action Break_Optional 008f 029b 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Unelaborated 0091 029b 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Unelaborated 0093 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 0095 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 0097 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call 0099 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call 009b 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call 009d 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 009f 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call 00a1 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call 00a3 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 00a5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00a6 00c7 | | Action Elaborate_Subprogram 00a7 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 00a9 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00aa 00c7 | | Action Elaborate_Subprogram 00ab 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 00ad 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00ae 00c7 | | Action Elaborate_Subprogram 00af BODY_0008: 00af e21b | | Load 0x1,0x1b 00b0 0092 04e2 | | Action Push_String_Extended,0x4e2 ; "XR" 00b2 00ea | | Load_Encached Null_String_Cache 00b3 0092 04e3 | | Action Push_String_Extended,0x4e3 ; " \x09\x0d\x0a\x0c\x0b" 00b5 e007 | | Load 0x0,0x7 00b6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b7 00d1 | | Pop_Control Pop_Count_1 00b8 00bc | | Action Signal_Activated 00b9 00bb | | Action Signal_Completion 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c5 | | .CONST 0x00c5 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 00c5 BODY_00c0: 00c5 e210 | | Load 0x1,0x10 00c6 00ea | | Load_Encached Null_String_Cache 00c7 e5ff | | Load 0x2,-0x1 00c8 4800 |H | Short_Literal 0x0 00c9 e003 | | Load 0x0,0x3 00ca 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00cb c210 | | Store 0x1,0x10 00cc 8402 | | Call 0x2,0x2 00cd 822c | , | Call 0x1,0x2c 00ce e210 | | Load 0x1,0x10 00cf e003 | | Load 0x0,0x3 00d0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d1 c210 | | Store 0x1,0x10 00d2 e211 | | Load 0x1,0x11 00d3 e003 | | Load 0x0,0x3 00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d5 c211 | | Store 0x1,0x11 00d6 e008 | | Load 0x0,0x8 00d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d8 6802 |h | Jump_Zero 0xdb 00d9 e20d | | Load 0x1,0xd 00da 0257 | W | Execute Discrete,Raise 00db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 e217 | | Load 0x1,0x17 00e4 6817 |h | Jump_Zero 0xfc 00e5 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "Lexeme kind: " 00e7 e217 | | Load 0x1,0x17 00e8 e006 | | Load 0x0,0x6 00e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ea 011c | | Execute Any,Convert_Unchecked 00eb 1c01 | | Execute_Immediate Run_Utility,0x1 00ec 8224 | $ | Call 0x1,0x24 00ed 01cc | | Execute Vector,Catenate 00ee 0092 04e5 | | Action Push_String_Extended,0x4e5 ; " [" 00f0 01cc | | Execute Vector,Catenate 00f1 e218 | | Load 0x1,0x18 00f2 e009 | | Load 0x0,0x9 00f3 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00f4 01cc | | Execute Vector,Catenate 00f5 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "]" 00f7 01cc | | Execute Vector,Catenate 00f8 0092 04e7 | | Action Push_String_Extended,0x4e7 ; "Unexpected control token found." 00fa 8223 | # | Call 0x1,0x23 00fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fc 00da | | Load_Top At_Offset_2 00fd 822b | + | Call 0x1,0x2b 00fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ff 0000 | | .XXX[0x1] 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 8229 | ) | Call 0x1,0x29 0104 6802 |h | Jump_Zero 0x107 0105 4801 |H | Short_Literal 0x1 0106 00ca | | Action Exit_Nullary_Function 0107 4800 |H | Short_Literal 0x0 0108 8228 | ( | Call 0x1,0x28 0109 e21d | | Load 0x1,0x1d 010a 01d7 | | Execute Vector,Field_Read 010b 7002 |p | Jump_Nonzero 0x10e 010c 4800 |H | Short_Literal 0x0 010d 00ca | | Action Exit_Nullary_Function 010e e217 | | Load 0x1,0x17 010f 822a | * | Call 0x1,0x2a 0110 6802 |h | Jump_Zero 0x113 0111 4801 |H | Short_Literal 0x1 0112 00ca | | Action Exit_Nullary_Function 0113 4800 |H | Short_Literal 0x0 0114 00ca | | Action Exit_Nullary_Function 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 0092 04e8 | | Action Push_String_Extended,0x4e8 ; "Line:" 011d e215 | | Load 0x1,0x15 011e 00e0 | | Load_Encached Standard_Cache 011f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0120 01cc | | Execute Vector,Catenate 0121 e008 | | Load 0x0,0x8 0122 180d | | Execute Package,Field_Execute,Field_Number 0xd 0123 00da | | Load_Top At_Offset_2 0124 e008 | | Load 0x0,0x8 0125 180d | | Execute Package,Field_Execute,Field_Number 0xd 0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 0092 04e8 | | Action Push_String_Extended,0x4e8 ; "Line:" 012d e215 | | Load 0x1,0x15 012e 00e0 | | Load_Encached Standard_Cache 012f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0130 01cc | | Execute Vector,Catenate 0131 e008 | | Load 0x0,0x8 0132 180d | | Execute Package,Field_Execute,Field_Number 0xd 0133 00da | | Load_Top At_Offset_2 0134 e008 | | Load 0x0,0x8 0135 180d | | Execute Package,Field_Execute,Field_Number 0xd 0136 00db | | Load_Top At_Offset_3 0137 e008 | | Load 0x0,0x8 0138 180d | | Execute Package,Field_Execute,Field_Number 0xd 0139 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 01dd | | Execute Vector,First 0145 0a03 | | Execute_Immediate Plus,0x3 0146 00d8 | | Load_Top At_Offset_0 0147 00e2 | | Load_Encached Integer_Cache 0148 0260 | ` | Execute Discrete,In_Type 0149 7001 |p | Jump_Nonzero 0x14b 014a 0801 | | Execute_Immediate Raise,0x1 014b 00db | | Load_Top At_Offset_3 014c 01dc | | Execute Vector,Last 014d e5ff | | Load 0x2,-0x1 014e 01cf | | Execute Vector,Slice_Read 014f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0156 | V | .CONST 0x0156 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0004 | | .CONST 0x0004 ; Number of locals 0153 INIT_0150: 0153 00e1 | | Load_Encached Boolean_Cache 0154 00e1 | | Load_Encached Boolean_Cache 0155 00e1 | | Load_Encached Boolean_Cache 0156 BODY_0150: 0156 e215 | | Load 0x1,0x15 0157 0a01 | | Execute_Immediate Plus,0x1 0158 c215 | | Store 0x1,0x15 0159 00d8 | | Load_Top At_Offset_0 015a 00da | | Load_Top At_Offset_2 015b e402 | | Load 0x2,0x2 015c e212 | | Load 0x1,0x12 015d 4900 |I | Short_Literal 0x100 015e e210 | | Load 0x1,0x10 015f e00a | | Load 0x0,0xa 0160 180f | | Execute Package,Field_Execute,Field_Number 0xf 0161 c212 | | Store 0x1,0x12 0162 c402 | | Store 0x2,0x2 0163 005b | [ | Store_Top Discrete,At_Offset_3 0164 0059 | Y | Store_Top Discrete,At_Offset_1 0165 e212 | | Load 0x1,0x12 0166 0227 | ' | Execute Access,All_Reference 0167 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0168 7004 |p | Jump_Nonzero 0x16d 0169 00d8 | | Load_Top At_Offset_0 016a 6802 |h | Jump_Zero 0x16d 016b 4801 |H | Short_Literal 0x1 016c 00ca | | Action Exit_Nullary_Function 016d 00d9 | | Load_Top At_Offset_1 016e 6803 |h | Jump_Zero 0x172 016f 00d8 | | Load_Top At_Offset_0 0170 0f00 | | Execute_Immediate Equal,0x0 0171 7801 |x | Jump 0x173 0172 4800 |H | Short_Literal 0x0 0173 a213 | | Store_Unchecked 0x1,0x13 0174 4800 |H | Short_Literal 0x0 0175 e214 | | Load 0x1,0x14 0176 0227 | ' | Execute Access,All_Reference 0177 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0178 e214 | | Load 0x1,0x14 0179 4900 |I | Short_Literal 0x100 017a e212 | | Load 0x1,0x12 017b e00b | | Load 0x0,0xb 017c 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 017d c214 | | Store 0x1,0x14 017e 4800 |H | Short_Literal 0x0 017f 00ca | | Action Exit_Nullary_Function 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 e213 | | Load 0x1,0x13 0184 7005 |p | Jump_Nonzero 0x18a 0185 00da | | Load_Top At_Offset_2 0186 e211 | | Load 0x1,0x11 0187 e00a | | Load 0x0,0xa 0188 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0189 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018a 00da | | Load_Top At_Offset_2 018b e211 | | Load 0x1,0x11 018c e00a | | Load 0x0,0xa 018d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 018e 480c |H | Short_Literal 0xc 018f e211 | | Load 0x1,0x11 0190 e003 | | Load 0x0,0x3 0191 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0192 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0193 0000 0000 | | .BLANK 0000[0x5] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019c | | .CONST 0x019c ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b 00e8 | | Load_Encached Character_Cache 019c BODY_0198: 019c 00e8 | | Load_Encached Character_Cache 019d e21b | | Load 0x1,0x1b 019e e214 | | Load 0x1,0x14 019f e007 | | Load 0x0,0x7 01a0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01a1 0059 | Y | Store_Top Discrete,At_Offset_1 01a2 00d8 | | Load_Top At_Offset_0 01a3 0e2d | - | Execute_Immediate Not_Equal,0x2d 01a4 7013 |p | Jump_Nonzero 0x1b8 01a5 e214 | | Load 0x1,0x14 01a6 0227 | ' | Execute Access,All_Reference 01a7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01a8 0d03 | | Execute_Immediate Less,0x3 01a9 700e |p | Jump_Nonzero 0x1b8 01aa 4802 |H | Short_Literal 0x2 01ab e214 | | Load 0x1,0x14 01ac 0227 | ' | Execute Access,All_Reference 01ad 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01ae 01d7 | | Execute Vector,Field_Read 01af 0e2d | - | Execute_Immediate Not_Equal,0x2d 01b0 7007 |p | Jump_Nonzero 0x1b8 01b1 4803 |H | Short_Literal 0x3 01b2 e214 | | Load 0x1,0x14 01b3 0227 | ' | Execute Access,All_Reference 01b4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01b5 01d7 | | Execute Vector,Field_Read 01b6 0e2f | / | Execute_Immediate Not_Equal,0x2f 01b7 6802 |h | Jump_Zero 0x1ba 01b8 4800 |H | Short_Literal 0x0 01b9 00ca | | Action Exit_Nullary_Function 01ba e214 | | Load 0x1,0x14 01bb 0227 | ' | Execute Access,All_Reference 01bc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01bd 0d04 | | Execute_Immediate Less,0x4 01be 7007 |p | Jump_Nonzero 0x1c6 01bf 4804 |H | Short_Literal 0x4 01c0 e214 | | Load 0x1,0x14 01c1 0227 | ' | Execute Access,All_Reference 01c2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01c3 01d7 | | Execute Vector,Field_Read 01c4 0e2f | / | Execute_Immediate Not_Equal,0x2f 01c5 680f |h | Jump_Zero 0x1d5 01c6 e212 | | Load 0x1,0x12 01c7 0227 | ' | Execute Access,All_Reference 01c8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01c9 e214 | | Load 0x1,0x14 01ca 0227 | ' | Execute Access,All_Reference 01cb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01cc 0272 | r | Execute Discrete,Minus 01cd c216 | | Store 0x1,0x16 01ce 6021 |`! | Indirect_Literal Discrete,0x1f0,{0x00000000, 0x7fffffff} 01cf 4804 |H | Short_Literal 0x4 01d0 e214 | | Load 0x1,0x14 01d1 e009 | | Load 0x0,0x9 01d2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01d3 4801 |H | Short_Literal 0x1 01d4 00ca | | Action Exit_Nullary_Function 01d5 e214 | | Load 0x1,0x14 01d6 0227 | ' | Execute Access,All_Reference 01d7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01d8 0c05 | | Execute_Immediate Greater_Equal,0x5 01d9 680d |h | Jump_Zero 0x1e7 01da 4805 |H | Short_Literal 0x5 01db e214 | | Load 0x1,0x14 01dc 0227 | ' | Execute Access,All_Reference 01dd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01de 01d7 | | Execute Vector,Field_Read 01df 0f20 | | Execute_Immediate Equal,0x20 01e0 6806 |h | Jump_Zero 0x1e7 01e1 600e |` | Indirect_Literal Discrete,0x1f0,{0x00000000, 0x7fffffff} 01e2 4806 |H | Short_Literal 0x6 01e3 e214 | | Load 0x1,0x14 01e4 e009 | | Load 0x0,0x9 01e5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01e6 7805 |x | Jump 0x1ec 01e7 6008 |` | Indirect_Literal Discrete,0x1f0,{0x00000000, 0x7fffffff} 01e8 4805 |H | Short_Literal 0x5 01e9 e214 | | Load 0x1,0x14 01ea e009 | | Load 0x0,0x9 01eb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01ec 4802 |H | Short_Literal 0x2 01ed 00ca | | Action Exit_Nullary_Function 01ee 0000 0000 | | .XXX[0x2] 01f0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 01f4 0000 0000 | | .BLANK 0000[0x4] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00cf | | Action Mark_Auxiliary 01fc e219 | | Load 0x1,0x19 01fd e218 | | Load 0x1,0x18 01fe e217 | | Load 0x1,0x17 01ff e214 | | Load 0x1,0x14 0200 e006 | | Load 0x0,0x6 0201 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0202 c217 | | Store 0x1,0x17 0203 c218 | | Store 0x1,0x18 0204 00d1 | | Pop_Control Pop_Count_1 0205 00db | | Load_Top At_Offset_3 0206 7003 |p | Jump_Nonzero 0x20a 0207 e217 | | Load 0x1,0x17 0208 0e14 | | Execute_Immediate Not_Equal,0x14 0209 6802 |h | Jump_Zero 0x20c 020a e217 | | Load 0x1,0x17 020b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 020c 8225 | % | Call 0x1,0x25 020d 6807 |h | Jump_Zero 0x215 020e 0092 04e9 | | Action Push_String_Extended,0x4e9 ; "Ran into End-of-File while reading control tokens." 0210 8222 | " | Call 0x1,0x22 0211 4813 |H | Short_Literal 0x13 0212 a217 | | Store_Unchecked 0x1,0x17 0213 4813 |H | Short_Literal 0x13 0214 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0215 e212 | | Load 0x1,0x12 0216 8226 | & | Call 0x1,0x26 0217 8227 | ' | Call 0x1,0x27 0218 0e01 | | Execute_Immediate Not_Equal,0x1 0219 6807 |h | Jump_Zero 0x221 021a 0092 04ea | | Action Push_String_Extended,0x4ea ; "This line is not a control line continuation of previous line." 021c 8222 | " | Call 0x1,0x22 021d 4813 |H | Short_Literal 0x13 021e a217 | | Store_Unchecked 0x1,0x17 021f 4813 |H | Short_Literal 0x13 0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0221 00c9 | | Action Pop_Auxiliary_Loop 0222 7fd9 | | Jump 0x1fc 0223 0000 0000 | | .BLANK 0000[0x5] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b e217 | | Load 0x1,0x17 022c 4614 |F | Jump_Case 0x15 022d 7814 |x | Jump 0x242 ; case 0x0 022e 7813 |x | Jump 0x242 ; case 0x1 022f 7812 |x | Jump 0x242 ; case 0x2 0230 7811 |x | Jump 0x242 ; case 0x3 0231 7810 |x | Jump 0x242 ; case 0x4 0232 7827 |x' | Jump 0x25a ; case 0x5 0233 780e |x | Jump 0x242 ; case 0x6 0234 782a |x* | Jump 0x25f ; case 0x7 0235 780c |x | Jump 0x242 ; case 0x8 0236 780b |x | Jump 0x242 ; case 0x9 0237 780a |x | Jump 0x242 ; case 0xa 0238 7809 |x | Jump 0x242 ; case 0xb 0239 7808 |x | Jump 0x242 ; case 0xc 023a 7807 |x | Jump 0x242 ; case 0xd 023b 7806 |x | Jump 0x242 ; case 0xe 023c 7805 |x | Jump 0x242 ; case 0xf 023d 7804 |x | Jump 0x242 ; case 0x10 023e 7837 |x7 | Jump 0x276 ; case 0x11 023f 7802 |x | Jump 0x242 ; case 0x12 0240 7801 |x | Jump 0x242 ; case 0x13 0241 7800 |x | Jump 0x242 ; case 0x14 0242 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "Lexeme kind: " 0244 e217 | | Load 0x1,0x17 0245 e006 | | Load 0x0,0x6 0246 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0247 011c | | Execute Any,Convert_Unchecked 0248 1c01 | | Execute_Immediate Run_Utility,0x1 0249 8224 | $ | Call 0x1,0x24 024a 01cc | | Execute Vector,Catenate 024b 0092 04e5 | | Action Push_String_Extended,0x4e5 ; " [" 024d 01cc | | Execute Vector,Catenate 024e e218 | | Load 0x1,0x18 024f e009 | | Load 0x0,0x9 0250 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0251 01cc | | Execute Vector,Catenate 0252 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "]" 0254 01cc | | Execute Vector,Catenate 0255 0092 04eb | | Action Push_String_Extended,0x4eb ; "Found unexpected lexeme while parsing expression." 0257 8223 | # | Call 0x1,0x23 0258 4801 |H | Short_Literal 0x1 0259 00ca | | Action Exit_Nullary_Function 025a e219 | | Load 0x1,0x19 025b e21a | | Load 0x1,0x1a 025c 016d | m | Execute Variant_Record,Structure_Write 025d 4800 |H | Short_Literal 0x0 025e 00ca | | Action Exit_Nullary_Function 025f 4800 |H | Short_Literal 0x0 0260 8228 | ( | Call 0x1,0x28 0261 a217 | | Store_Unchecked 0x1,0x17 0262 8229 | ) | Call 0x1,0x29 0263 6802 |h | Jump_Zero 0x266 0264 4801 |H | Short_Literal 0x1 0265 00ca | | Action Exit_Nullary_Function 0266 e21a | | Load 0x1,0x1a 0267 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0268 0e01 | | Execute_Immediate Not_Equal,0x1 0269 6805 |h | Jump_Zero 0x26f 026a 0092 04ec | | Action Push_String_Extended,0x4ec ; "Argument to NOT operator was not a boolean value?" 026c 8222 | " | Call 0x1,0x22 026d 4801 |H | Short_Literal 0x1 026e 00ca | | Action Exit_Nullary_Function 026f e21a | | Load 0x1,0x1a 0270 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0271 0f00 | | Execute_Immediate Equal,0x0 0272 e21a | | Load 0x1,0x1a 0273 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0274 4800 |H | Short_Literal 0x0 0275 00ca | | Action Exit_Nullary_Function 0276 4800 |H | Short_Literal 0x0 0277 8228 | ( | Call 0x1,0x28 0278 a217 | | Store_Unchecked 0x1,0x17 0279 8221 | ! | Call 0x1,0x21 027a 00ca | | Action Exit_Nullary_Function 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 028d | | .CONST 0x028d ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0004 | | .CONST 0x0004 ; Number of locals 0283 INIT_0280: 0283 e006 | | Load 0x0,0x6 0284 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0285 02ff | | Declare_Variable Variant_Record 0286 e21a | | Load 0x1,0x1a 0287 00d9 | | Load_Top At_Offset_1 0288 016d | m | Execute Variant_Record,Structure_Write 0289 029f 0493 | | Declare_Subprogram INIT_0490,For_Call 028b 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call 028d BODY_0280: 028d 4800 |H | Short_Literal 0x0 028e 8228 | ( | Call 0x1,0x28 028f a217 | | Store_Unchecked 0x1,0x17 0290 e5ff | | Load 0x2,-0x1 0291 0f08 | | Execute_Immediate Equal,0x8 0292 6803 |h | Jump_Zero 0x296 0293 e217 | | Load 0x1,0x17 0294 0f01 | | Execute_Immediate Equal,0x1 0295 7006 |p | Jump_Nonzero 0x29c 0296 e5ff | | Load 0x2,-0x1 0297 0f09 | | Execute_Immediate Equal,0x9 0298 6806 |h | Jump_Zero 0x29f 0299 e217 | | Load 0x1,0x17 029a 0f03 | | Execute_Immediate Equal,0x3 029b 6803 |h | Jump_Zero 0x29f 029c 4800 |H | Short_Literal 0x0 029d 8228 | ( | Call 0x1,0x28 029e a217 | | Store_Unchecked 0x1,0x17 029f 8229 | ) | Call 0x1,0x29 02a0 6802 |h | Jump_Zero 0x2a3 02a1 4801 |H | Short_Literal 0x1 02a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a3 4800 |H | Short_Literal 0x0 02a4 8228 | ( | Call 0x1,0x28 02a5 e21d | | Load 0x1,0x1d 02a6 01d7 | | Execute Vector,Field_Read 02a7 680d |h | Jump_Zero 0x2b5 02a8 e5ff | | Load 0x2,-0x1 02a9 e21f | | Load 0x1,0x1f 02aa 01d7 | | Execute Vector,Field_Read 02ab e217 | | Load 0x1,0x17 02ac e21f | | Load 0x1,0x1f 02ad 01d7 | | Execute Vector,Field_Read 02ae 027c | | | Execute Discrete,Less 02af 6805 |h | Jump_Zero 0x2b5 02b0 e217 | | Load 0x1,0x17 02b1 822a | * | Call 0x1,0x2a 02b2 6802 |h | Jump_Zero 0x2b5 02b3 4801 |H | Short_Literal 0x1 02b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b5 e5ff | | Load 0x2,-0x1 02b6 4614 |F | Jump_Case 0x15 02b7 7814 |x | Jump 0x2cc ; case 0x0 02b8 7813 |x | Jump 0x2cc ; case 0x1 02b9 7812 |x | Jump 0x2cc ; case 0x2 02ba 7811 |x | Jump 0x2cc ; case 0x3 02bb 7810 |x | Jump 0x2cc ; case 0x4 02bc 780f |x | Jump 0x2cc ; case 0x5 02bd 780e |x | Jump 0x2cc ; case 0x6 02be 780d |x | Jump 0x2cc ; case 0x7 02bf 7824 |x$ | Jump 0x2e4 ; case 0x8 02c0 7832 |x2 | Jump 0x2f3 ; case 0x9 02c1 7840 |x@ | Jump 0x302 ; case 0xa 02c2 784e |xN | Jump 0x311 ; case 0xb 02c3 7863 |xc | Jump 0x327 ; case 0xc 02c4 7807 |x | Jump 0x2cc ; case 0xd 02c5 7806 |x | Jump 0x2cc ; case 0xe 02c6 7805 |x | Jump 0x2cc ; case 0xf 02c7 7804 |x | Jump 0x2cc ; case 0x10 02c8 7803 |x | Jump 0x2cc ; case 0x11 02c9 7802 |x | Jump 0x2cc ; case 0x12 02ca 7801 |x | Jump 0x2cc ; case 0x13 02cb 7800 |x | Jump 0x2cc ; case 0x14 02cc 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "Lexeme kind: " 02ce e5ff | | Load 0x2,-0x1 02cf e006 | | Load 0x0,0x6 02d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d1 011c | | Execute Any,Convert_Unchecked 02d2 1c01 | | Execute_Immediate Run_Utility,0x1 02d3 8224 | $ | Call 0x1,0x24 02d4 01cc | | Execute Vector,Catenate 02d5 0092 04e5 | | Action Push_String_Extended,0x4e5 ; " [" 02d7 01cc | | Execute Vector,Catenate 02d8 e218 | | Load 0x1,0x18 02d9 e009 | | Load 0x0,0x9 02da 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 02db 01cc | | Execute Vector,Catenate 02dc 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "]" 02de 01cc | | Execute Vector,Catenate 02df 0092 04ed | | Action Push_String_Extended,0x4ed ; "Internal error: unknown binary operator?" 02e1 8223 | # | Call 0x1,0x23 02e2 4801 |H | Short_Literal 0x1 02e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e4 0092 04ee | | Action Push_String_Extended,0x4ee ; "AND" 02e6 8403 | | Call 0x2,0x3 02e7 6802 |h | Jump_Zero 0x2ea 02e8 4801 |H | Short_Literal 0x1 02e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ea 00da | | Load_Top At_Offset_2 02eb 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02ec e21a | | Load 0x1,0x1a 02ed 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02ee 0279 | y | Execute Discrete,And 02ef e21a | | Load 0x1,0x1a 02f0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 02f1 4800 |H | Short_Literal 0x0 02f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f3 0092 04ef | | Action Push_String_Extended,0x4ef ; "OR" 02f5 8403 | | Call 0x2,0x3 02f6 6802 |h | Jump_Zero 0x2f9 02f7 4801 |H | Short_Literal 0x1 02f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f9 00da | | Load_Top At_Offset_2 02fa 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02fb e21a | | Load 0x1,0x1a 02fc 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02fd 0278 | x | Execute Discrete,Or 02fe e21a | | Load 0x1,0x1a 02ff 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0300 4800 |H | Short_Literal 0x0 0301 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0302 0092 04f0 | | Action Push_String_Extended,0x4f0 ; "XOR" 0304 8403 | | Call 0x2,0x3 0305 6802 |h | Jump_Zero 0x308 0306 4801 |H | Short_Literal 0x1 0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0308 00da | | Load_Top At_Offset_2 0309 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 030a e21a | | Load 0x1,0x1a 030b 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 030c 0277 | w | Execute Discrete,Xor 030d e21a | | Load 0x1,0x1a 030e 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 030f 4800 |H | Short_Literal 0x0 0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0311 0092 04f1 | | Action Push_String_Extended,0x4f1 ; "=" 0313 8404 | | Call 0x2,0x4 0314 6802 |h | Jump_Zero 0x317 0315 4801 |H | Short_Literal 0x1 0316 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0317 4801 |H | Short_Literal 0x1 0318 e006 | | Load 0x0,0x6 0319 1b0f | | Execute Package,Field_Read,Field_Number 0xf 031a 1c08 | | Execute_Immediate Run_Utility,0x8 031b 4800 |H | Short_Literal 0x0 031c 00d9 | | Load_Top At_Offset_1 031d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 031e 00db | | Load_Top At_Offset_3 031f e21a | | Load 0x1,0x1a 0320 016f | o | Execute Variant_Record,Equal 0321 00d9 | | Load_Top At_Offset_1 0322 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0323 e21a | | Load 0x1,0x1a 0324 016d | m | Execute Variant_Record,Structure_Write 0325 4800 |H | Short_Literal 0x0 0326 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0327 0092 04f1 | | Action Push_String_Extended,0x4f1 ; "=" 0329 8404 | | Call 0x2,0x4 032a 6802 |h | Jump_Zero 0x32d 032b 4801 |H | Short_Literal 0x1 032c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032d 4801 |H | Short_Literal 0x1 032e e006 | | Load 0x0,0x6 032f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0330 1c08 | | Execute_Immediate Run_Utility,0x8 0331 4800 |H | Short_Literal 0x0 0332 00d9 | | Load_Top At_Offset_1 0333 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0334 00db | | Load_Top At_Offset_3 0335 e21a | | Load 0x1,0x1a 0336 016e | n | Execute Variant_Record,Not_Equal 0337 00d9 | | Load_Top At_Offset_1 0338 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0339 e21a | | Load 0x1,0x1a 033a 016d | m | Execute Variant_Record,Structure_Write 033b 4800 |H | Short_Literal 0x0 033c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033d 0000 0000 | | .XXX[0x3] 033f 0000 | | 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 034b | K | .CONST 0x034b ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0006 | | .CONST 0x0006 ; Number of locals 0343 INIT_0340: 0343 00e3 | | Load_Encached Natural_Cache 0344 e216 | | Load 0x1,0x16 0345 0007 | | Action Break_Optional 0346 e5ff | | Load 0x2,-0x1 0347 00e1 | | Load_Encached Boolean_Cache 0348 03f1 | | Declare_Variable Discrete,With_Value 0349 00e1 | | Load_Encached Boolean_Cache 034a 00e2 | | Load_Encached Integer_Cache 034b BODY_0340: 034b 4800 |H | Short_Literal 0x0 034c 8228 | ( | Call 0x1,0x28 034d a217 | | Store_Unchecked 0x1,0x17 034e 8221 | ! | Call 0x1,0x21 034f 6801 |h | Jump_Zero 0x351 0350 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0351 e21a | | Load 0x1,0x1a 0352 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0353 0e01 | | Execute_Immediate Not_Equal,0x1 0354 6812 |h | Jump_Zero 0x367 0355 0092 04f2 | | Action Push_String_Extended,0x4f2 ; "Expression kind : " 0357 e21a | | Load 0x1,0x1a 0358 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0359 e006 | | Load 0x0,0x6 035a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 035b 011c | | Execute Any,Convert_Unchecked 035c 1c01 | | Execute_Immediate Run_Utility,0x1 035d 8224 | $ | Call 0x1,0x24 035e 01cc | | Execute Vector,Catenate 035f 0092 04f3 | | Action Push_String_Extended,0x4f3 ; "IF control expression was not boolean?" 0361 8223 | # | Call 0x1,0x23 0362 4801 |H | Short_Literal 0x1 0363 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0364 4801 |H | Short_Literal 0x1 0365 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0366 7806 |x | Jump 0x36d 0367 00da | | Load_Top At_Offset_2 0368 e21a | | Load 0x1,0x1a 0369 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 036a 0f00 | | Execute_Immediate Equal,0x0 036b 0278 | x | Execute Discrete,Or 036c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 036d e217 | | Load 0x1,0x17 036e 0e01 | | Execute_Immediate Not_Equal,0x1 036f 6804 |h | Jump_Zero 0x374 0370 0092 04f4 | | Action Push_String_Extended,0x4f4 ; "IF <EXPR> was not followed by a THEN?" 0372 8222 | " | Call 0x1,0x22 0373 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0374 4801 |H | Short_Literal 0x1 0375 8228 | ( | Call 0x1,0x28 0376 0e14 | | Execute_Immediate Not_Equal,0x14 0377 6817 |h | Jump_Zero 0x38f 0378 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "Lexeme kind: " 037a e217 | | Load 0x1,0x17 037b e006 | | Load 0x0,0x6 037c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 037d 011c | | Execute Any,Convert_Unchecked 037e 1c01 | | Execute_Immediate Run_Utility,0x1 037f 8224 | $ | Call 0x1,0x24 0380 01cc | | Execute Vector,Catenate 0381 0092 04e5 | | Action Push_String_Extended,0x4e5 ; " [" 0383 01cc | | Execute Vector,Catenate 0384 e218 | | Load 0x1,0x18 0385 e009 | | Load 0x0,0x9 0386 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0387 01cc | | Execute Vector,Catenate 0388 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "]" 038a 01cc | | Execute Vector,Catenate 038b 0092 04f5 | | Action Push_String_Extended,0x4f5 ; "IF <EXPR> THEN was followed by something other than a comment?" 038d 8223 | # | Call 0x1,0x23 038e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038f 00cf | | Action Mark_Auxiliary 0390 7856 |xV | Jump 0x3e7 0391 8227 | ' | Call 0x1,0x27 0392 a402 | | Store_Unchecked 0x2,0x2 0393 e402 | | Load 0x2,0x2 0394 0f01 | | Execute_Immediate Equal,0x1 0395 6803 |h | Jump_Zero 0x399 0396 e212 | | Load 0x1,0x12 0397 8226 | & | Call 0x1,0x26 0398 7850 |xP | Jump 0x3e9 0399 e402 | | Load 0x2,0x2 039a 0f02 | | Execute_Immediate Equal,0x2 039b 6819 |h | Jump_Zero 0x3b5 039c 00da | | Load_Top At_Offset_2 039d 6803 |h | Jump_Zero 0x3a1 039e e212 | | Load 0x1,0x12 039f 8226 | & | Call 0x1,0x26 03a0 7845 |xE | Jump 0x3e6 03a1 e212 | | Load 0x1,0x12 03a2 0227 | ' | Execute Access,All_Reference 03a3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03a4 e214 | | Load 0x1,0x14 03a5 0227 | ' | Execute Access,All_Reference 03a6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03a7 0272 | r | Execute Discrete,Minus 03a8 0a01 | | Execute_Immediate Plus,0x1 03a9 00d8 | | Load_Top At_Offset_0 03aa e003 | | Load 0x0,0x3 03ab 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03ac 0260 | ` | Execute Discrete,In_Type 03ad 7001 |p | Jump_Nonzero 0x3af 03ae 0801 | | Execute_Immediate Raise,0x1 03af e211 | | Load 0x1,0x11 03b0 e003 | | Load 0x0,0x3 03b1 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 03b2 e214 | | Load 0x1,0x14 03b3 8226 | & | Call 0x1,0x26 03b4 7831 |x1 | Jump 0x3e6 03b5 00da | | Load_Top At_Offset_2 03b6 682d |h- | Jump_Zero 0x3e4 03b7 e403 | | Load 0x2,0x3 03b8 0a01 | | Execute_Immediate Plus,0x1 03b9 00d8 | | Load_Top At_Offset_0 03ba e003 | | Load 0x0,0x3 03bb 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03bc 0260 | ` | Execute Discrete,In_Type 03bd 7001 |p | Jump_Nonzero 0x3bf 03be 0801 | | Execute_Immediate Raise,0x1 03bf e211 | | Load 0x1,0x11 03c0 e003 | | Load 0x0,0x3 03c1 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 03c2 0092 04f6 | | Action Push_String_Extended,0x4f6 ; "--// " 03c4 e211 | | Load 0x1,0x11 03c5 e003 | | Load 0x0,0x3 03c6 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 03c7 e212 | | Load 0x1,0x12 03c8 0227 | ' | Execute Access,All_Reference 03c9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03ca e214 | | Load 0x1,0x14 03cb 0227 | ' | Execute Access,All_Reference 03cc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 03cd 0272 | r | Execute Discrete,Minus 03ce e403 | | Load 0x2,0x3 03cf 0272 | r | Execute Discrete,Minus 03d0 005a | Z | Store_Top Discrete,At_Offset_2 03d1 00d9 | | Load_Top At_Offset_1 03d2 0c06 | | Execute_Immediate Greater_Equal,0x6 03d3 680d |h | Jump_Zero 0x3e1 03d4 e403 | | Load 0x2,0x3 03d5 0a01 | | Execute_Immediate Plus,0x1 03d6 00da | | Load_Top At_Offset_2 03d7 0273 | s | Execute Discrete,Plus 03d8 00d8 | | Load_Top At_Offset_0 03d9 e003 | | Load 0x0,0x3 03da 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03db 0260 | ` | Execute Discrete,In_Type 03dc 7001 |p | Jump_Nonzero 0x3de 03dd 0801 | | Execute_Immediate Raise,0x1 03de e211 | | Load 0x1,0x11 03df e003 | | Load 0x0,0x3 03e0 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 03e1 e214 | | Load 0x1,0x14 03e2 8226 | & | Call 0x1,0x26 03e3 7802 |x | Jump 0x3e6 03e4 e212 | | Load 0x1,0x12 03e5 8226 | & | Call 0x1,0x26 03e6 00c9 | | Action Pop_Auxiliary_Loop 03e7 8225 | % | Call 0x1,0x25 03e8 6fa8 |o | Jump_Zero 0x391 03e9 00ce | | Action Pop_Auxiliary 03ea 4801 |H | Short_Literal 0x1 03eb 8228 | ( | Call 0x1,0x28 03ec 4614 |F | Jump_Case 0x15 03ed 7871 |xq | Jump 0x45f ; case 0x0 03ee 7870 |xp | Jump 0x45f ; case 0x1 03ef 7812 |x | Jump 0x402 ; case 0x2 03f0 7816 |x | Jump 0x407 ; case 0x3 03f1 7838 |x8 | Jump 0x42a ; case 0x4 03f2 786c |xl | Jump 0x45f ; case 0x5 03f3 786b |xk | Jump 0x45f ; case 0x6 03f4 786a |xj | Jump 0x45f ; case 0x7 03f5 7869 |xi | Jump 0x45f ; case 0x8 03f6 7868 |xh | Jump 0x45f ; case 0x9 03f7 7867 |xg | Jump 0x45f ; case 0xa 03f8 7866 |xf | Jump 0x45f ; case 0xb 03f9 7865 |xe | Jump 0x45f ; case 0xc 03fa 7864 |xd | Jump 0x45f ; case 0xd 03fb 7863 |xc | Jump 0x45f ; case 0xe 03fc 7862 |xb | Jump 0x45f ; case 0xf 03fd 7861 |xa | Jump 0x45f ; case 0x10 03fe 7860 |x` | Jump 0x45f ; case 0x11 03ff 785f |x_ | Jump 0x45f ; case 0x12 0400 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x13 0401 7f8d | | Jump 0x38f ; case 0x14 0402 00d9 | | Load_Top At_Offset_1 0403 7747 |wG | Jump_Nonzero BODY_0340 0404 4801 |H | Short_Literal 0x1 0405 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0406 7f44 | D | Jump BODY_0340 0407 4801 |H | Short_Literal 0x1 0408 8228 | ( | Call 0x1,0x28 0409 0e14 | | Execute_Immediate Not_Equal,0x14 040a 6816 |h | Jump_Zero 0x421 040b 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "Lexeme kind: " 040d e217 | | Load 0x1,0x17 040e e006 | | Load 0x0,0x6 040f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0410 011c | | Execute Any,Convert_Unchecked 0411 1c01 | | Execute_Immediate Run_Utility,0x1 0412 8224 | $ | Call 0x1,0x24 0413 01cc | | Execute Vector,Catenate 0414 0092 04e5 | | Action Push_String_Extended,0x4e5 ; " [" 0416 01cc | | Execute Vector,Catenate 0417 e218 | | Load 0x1,0x18 0418 e009 | | Load 0x0,0x9 0419 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 041a 01cc | | Execute Vector,Catenate 041b 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "]" 041d 01cc | | Execute Vector,Catenate 041e 0092 04f7 | | Action Push_String_Extended,0x4f7 ; "While processing an IF; ELSE was followed by" 0420 8223 | # | Call 0x1,0x23 0421 00da | | Load_Top At_Offset_2 0422 6803 |h | Jump_Zero 0x426 0423 4801 |H | Short_Literal 0x1 0424 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0425 7f69 | i | Jump 0x38f 0426 00d9 | | Load_Top At_Offset_1 0427 0f00 | | Execute_Immediate Equal,0x0 0428 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0429 7f65 | e | Jump 0x38f 042a 4800 |H | Short_Literal 0x0 042b 8228 | ( | Call 0x1,0x28 042c 6817 |h | Jump_Zero 0x444 042d 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "Lexeme kind: " 042f e217 | | Load 0x1,0x17 0430 e006 | | Load 0x0,0x6 0431 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0432 011c | | Execute Any,Convert_Unchecked 0433 1c01 | | Execute_Immediate Run_Utility,0x1 0434 8224 | $ | Call 0x1,0x24 0435 01cc | | Execute Vector,Catenate 0436 0092 04e5 | | Action Push_String_Extended,0x4e5 ; " [" 0438 01cc | | Execute Vector,Catenate 0439 e218 | | Load 0x1,0x18 043a e009 | | Load 0x0,0x9 043b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 043c 01cc | | Execute Vector,Catenate 043d 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "]" 043f 01cc | | Execute Vector,Catenate 0440 0092 04f8 | | Action Push_String_Extended,0x4f8 ; "While processing an IF; END was not followed by IF." 0442 8223 | # | Call 0x1,0x23 0443 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0444 4800 |H | Short_Literal 0x0 0445 8228 | ( | Call 0x1,0x28 0446 0e10 | | Execute_Immediate Not_Equal,0x10 0447 6816 |h | Jump_Zero 0x45e 0448 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "Lexeme kind: " 044a e217 | | Load 0x1,0x17 044b e006 | | Load 0x0,0x6 044c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 044d 011c | | Execute Any,Convert_Unchecked 044e 1c01 | | Execute_Immediate Run_Utility,0x1 044f 8224 | $ | Call 0x1,0x24 0450 01cc | | Execute Vector,Catenate 0451 0092 04e5 | | Action Push_String_Extended,0x4e5 ; " [" 0453 01cc | | Execute Vector,Catenate 0454 e218 | | Load 0x1,0x18 0455 e009 | | Load 0x0,0x9 0456 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0457 01cc | | Execute Vector,Catenate 0458 0092 04e6 | | Action Push_String_Extended,0x4e6 ; "]" 045a 01cc | | Execute Vector,Catenate 045b 0092 04f9 | | Action Push_String_Extended,0x4f9 ; "While processing an IF; END IF was not followed by ;." 045d 8223 | # | Call 0x1,0x23 045e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 045f 00d9 | | Load_Top At_Offset_1 0460 8220 | | Call 0x1,0x20 0461 7f2d | - | Jump 0x38f 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b 00cf | | Action Mark_Auxiliary 046c 780f |x | Jump 0x47c 046d e212 | | Load 0x1,0x12 046e 8226 | & | Call 0x1,0x26 046f 8227 | ' | Call 0x1,0x27 0470 0f01 | | Execute_Immediate Equal,0x1 0471 6809 |h | Jump_Zero 0x47b 0472 4801 |H | Short_Literal 0x1 0473 8228 | ( | Call 0x1,0x28 0474 0e13 | | Execute_Immediate Not_Equal,0x13 0475 6805 |h | Jump_Zero 0x47b 0476 e217 | | Load 0x1,0x17 0477 0e14 | | Execute_Immediate Not_Equal,0x14 0478 6802 |h | Jump_Zero 0x47b 0479 4800 |H | Short_Literal 0x0 047a 8220 | | Call 0x1,0x20 047b 00c9 | | Action Pop_Auxiliary_Loop 047c 8225 | % | Call 0x1,0x25 047d 6fef |o | Jump_Zero 0x46d 047e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 047f 0000 | | .XXX[0x1] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0485 | | .CONST 0x0485 ; Address of begin 0481 048d | | .CONST 0x048d ; Address of exception handler 0482 0002 | | .CONST 0x0002 ; Number of locals 0483 INIT_0480: 0483 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call 0485 BODY_0480: 0485 e211 | | Load 0x1,0x11 0486 00ea | | Load_Encached Null_String_Cache 0487 e5fe | | Load 0x2,-0x2 0488 4801 |H | Short_Literal 0x1 0489 e003 | | Load 0x0,0x3 048a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 048b c211 | | Store 0x1,0x11 048c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 048d TRAP_0480: 048d 0007 | | Action Break_Optional 048e 8602 | | Call 0x3,0x2 048f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 e402 | | Load 0x2,0x2 0494 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0495 0e01 | | Execute_Immediate Not_Equal,0x1 0496 680a |h | Jump_Zero 0x4a1 0497 0092 04fa | | Action Push_String_Extended,0x4fa ; "1st argument to " 0499 00db | | Load_Top At_Offset_3 049a 01cc | | Execute Vector,Catenate 049b 0092 04fb | | Action Push_String_Extended,0x4fb ; " was not a boolean value?" 049d 01cc | | Execute Vector,Catenate 049e 8222 | " | Call 0x1,0x22 049f 4801 |H | Short_Literal 0x1 04a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a1 e21a | | Load 0x1,0x1a 04a2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04a3 0e01 | | Execute_Immediate Not_Equal,0x1 04a4 680a |h | Jump_Zero 0x4af 04a5 0092 04fc | | Action Push_String_Extended,0x4fc ; "2nd argument to " 04a7 00db | | Load_Top At_Offset_3 04a8 01cc | | Execute Vector,Catenate 04a9 0092 04fb | | Action Push_String_Extended,0x4fb ; " was not a boolean value?" 04ab 01cc | | Execute Vector,Catenate 04ac 8222 | " | Call 0x1,0x22 04ad 4801 |H | Short_Literal 0x1 04ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04af 4800 |H | Short_Literal 0x0 04b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b1 0000 0000 | | .BLANK 0000[0x7] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bb | | .CONST 0x04bb ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0001 | | .CONST 0x0001 ; Number of locals 04bb BODY_04b8: 04bb INIT_04b8: 04bb e402 | | Load 0x2,0x2 04bc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04bd e21a | | Load 0x1,0x1a 04be 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04bf 027e | ~ | Execute Discrete,Not_Equal 04c0 680a |h | Jump_Zero 0x4cb 04c1 0092 04fd | | Action Push_String_Extended,0x4fd ; "Arguments to " 04c3 00db | | Load_Top At_Offset_3 04c4 01cc | | Execute Vector,Catenate 04c5 0092 04fe | | Action Push_String_Extended,0x4fe ; " are not the same type?" 04c7 01cc | | Execute Vector,Catenate 04c8 8222 | " | Call 0x1,0x22 04c9 4801 |H | Short_Literal 0x1 04ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04cb 4800 |H | Short_Literal 0x0 04cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04cd 0000 0000 | | .XXX[0x3] 04cf 0000 | | 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 04db | | .CONST 0x04db ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 e211 | | Load 0x1,0x11 04d4 00ea | | Load_Encached Null_String_Cache 04d5 e5fe | | Load 0x2,-0x2 04d6 4801 |H | Short_Literal 0x1 04d7 e003 | | Load 0x0,0x3 04d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04d9 c211 | | Store 0x1,0x11 04da 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04db TRAP_04d0: 04db 0007 | | Action Break_Optional 04dc e210 | | Load 0x1,0x10 04dd e003 | | Load 0x0,0x3 04de 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04df c210 | | Store 0x1,0x10 04e0 00d8 | | Load_Top At_Offset_0 04e1 0101 | | Execute Exception,Reraise 04e2 ; -------------------------------------------------------------------------------------- 04e2 ; STRING TABLE 04e2 ; -------------------------------------------------------------------------------------- 04e2 003c | < | .STRTAB 0x003c->0x0500 ; "XR" 04e3 003c | < | .STRTAB 0x003c->0x0501 ; " \x09\x0d\x0a\x0c\x0b" 04e4 0040 | @ | .STRTAB 0x0040->0x0504 ; "Lexeme kind: " 04e5 004b | K | .STRTAB 0x004b->0x050a ; " [" 04e6 004c | L | .STRTAB 0x004c->0x050c ; "]" 04e7 004b | K | .STRTAB 0x004b->0x050c ; "Unexpected control token found." 04e8 0068 | h | .STRTAB 0x0068->0x051c ; "Line:" 04e9 006b | k | .STRTAB 0x006b->0x051e ; "Ran into End-of-File while reading control tokens." 04ea 009b | | .STRTAB 0x009b->0x0537 ; "This line is not a control line continuation of previous line." 04eb 00d7 | | .STRTAB 0x00d7->0x0556 ; "Found unexpected lexeme while parsing expression." 04ec 0106 | | .STRTAB 0x0106->0x056f ; "Argument to NOT operator was not a boolean value?" 04ed 0135 | 5 | .STRTAB 0x0135->0x0587 ; "Internal error: unknown binary operator?" 04ee 015b | [ | .STRTAB 0x015b->0x059b ; "AND" 04ef 015c | \ | .STRTAB 0x015c->0x059d ; "OR" 04f0 015c | \ | .STRTAB 0x015c->0x059e ; "XOR" 04f1 015d | ] | .STRTAB 0x015d->0x059f ; "=" 04f2 015c | \ | .STRTAB 0x015c->0x05a0 ; "Expression kind : " 04f3 016c | l | .STRTAB 0x016c->0x05a9 ; "IF control expression was not boolean?" 04f4 0190 | | .STRTAB 0x0190->0x05bc ; "IF <EXPR> was not followed by a THEN?" 04f5 01b3 | | .STRTAB 0x01b3->0x05ce ; "IF <EXPR> THEN was followed by something other than a comment?" 04f6 01ef | | .STRTAB 0x01ef->0x05ed ; "--// " 04f7 01f2 | | .STRTAB 0x01f2->0x05f0 ; "While processing an IF; ELSE was followed by" 04f8 021c | | .STRTAB 0x021c->0x0606 ; "While processing an IF; END was not followed by IF." 04f9 024d | M | .STRTAB 0x024d->0x061f ; "While processing an IF; END IF was not followed by ;." 04fa 0280 | | .STRTAB 0x0280->0x063a ; "1st argument to " 04fb 028e | | .STRTAB 0x028e->0x0642 ; " was not a boolean value?" 04fc 02a5 | | .STRTAB 0x02a5->0x064e ; "2nd argument to " 04fd 02b3 | | .STRTAB 0x02b3->0x0656 ; "Arguments to " 04fe 02be | | .STRTAB 0x02be->0x065d ; " are not the same type?" 04ff 02d3 | | .STREND 0x02d3->0x0668 0500 5852 2009 |XR | .STRTAB_STRINGS 0669 0000 0000 | | .BLANK 0000[0x7] 0670 ; -------------------------------------------------------------------------------------- 0670 ; Debug Table 0670 ; -------------------------------------------------------------------------------------- 0670 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa92e,0x0000,0x0001,0x0000 0676 2fa9 b43a |/ :| .XXX[0x18a] 0678 ba32 37bb | 27 | 067a b716 1021 | !| 067c b0b7 31b2 | 1 | 067e b62f a9b4 | / | 0680 3aba 3237 |: 27| 0682 bbb7 1610 | | 0684 21b9 32b0 |! 2 | 0686 ba32 afa3 | 2 | 0688 b937 bab8 | 7 | 068a 1600 0000 | | 068c 1700 0000 | | 068e 2290 1010 |" | 0690 1020 b232 | 2| 0692 2faa 37af |/ 7 | 0694 a3b9 37ba | 7 | 0696 b816 1020 | | 0698 b931 b434 | 1 4| 069a bb32 afa7 | 2 | 069c b72f a9b4 | / | 069e 3aba 3237 |: 27| 06a0 bbb7 1610 | | 06a2 21b0 b731 |! 1| 06a4 b2b6 2fa9 | / | 06a6 b43a ba32 | : 2| 06a8 37bb b716 |7 | 06aa 1021 b932 | ! 2| 06ac b0ba 32af | 2 | 06ae a3b9 37ba | 7 | 06b0 b816 0000 | | 06b2 003c 0000 | < | 06b4 001c a1b9 | | 06b6 32b0 ba32 |2 2| 06b8 afaa b9b2 | | 06ba b916 1022 | "| 06bc 32b6 32ba |2 2 | 06be 32af a3b9 |2 | 06c0 37ba b816 |7 | 06c2 1022 32b6 | "2 | 06c4 32ba 32af |2 2 | 06c6 aab9 b2b9 | | 06c8 1610 2234 | "4| 06ca b9b0 b136 | 6| 06cc 32af aa32 |2 2| 06ce b936 b4b7 | 6 | 06d0 30b6 1600 |0 | 06d2 0000 3a00 | : | 06d4 0000 1e90 | | 06d6 1010 1021 | !| 06d8 b932 b0ba | 2 | 06da 32af aab9 |2 | 06dc b2b9 1610 | | 06de 2232 b632 |"2 2| 06e0 ba32 afa3 | 2 | 06e2 b937 bab8 | 7 | 06e4 1610 2232 | "2| 06e6 b632 ba32 | 2 2| 06e8 afaa b9b2 | | 06ea b916 1022 | "| 06ec 34b9 b0b1 |4 | 06ee 3632 afaa |62 | 06f0 32b9 36b4 |2 6 | 06f2 b730 b616 | 0 | 06f4 0000 003a | :| 06f6 0000 001e | | 06f8 9010 1010 | | 06fa 21b9 32b0 |! 2 | 06fc ba32 afaa | 2 | 06fe b9b2 b916 | | 0700 1022 32b6 | "2 | 0702 32ba 32af |2 2 | 0704 a3b9 37ba | 7 | 0706 b816 1022 | "| 0708 32b6 32ba |2 2 | 070a 32af aab9 |2 | 070c b2b9 1610 | | 070e 2234 b9b0 |"4 | 0710 b136 32af | 62 | 0712 aa32 b936 | 2 6| 0714 b4b7 30b6 | 0 | 0716 1600 0000 | | 0718 1b00 0000 | | 071a 16a2 b730 | 0| 071c b136 32af | 62 | 071e aa32 b936 | 2 6| 0720 b4b7 30b6 | 0 | 0722 1610 22bc | " | 0724 3836 30b4 |860 | 0726 b72f a1b9 | / | 0728 30b9 b416 |0 | 072a 1023 37b9 | #7 | 072c 31b2 afa6 |1 | 072e 37b3 b7b3 |7 | 0730 3316 0000 |3 | 0732 0019 0000 | | 0734 0018 9010 | | 0736 1010 22b7 | " | 0738 30b1 3632 |0 62| 073a afaa 32b9 | 2 | 073c 36b4 b730 |6 0| 073e b616 1022 | "| 0740 bc38 3630 | 860| 0742 b4b7 2fa1 | / | 0744 b930 b9b4 | 0 | 0746 1610 2337 | #7| 0748 b931 b2af | 1 | 074a a637 b3b7 | 7 | 074c b333 1600 | 3 | 074e 0000 1900 | | 0750 0000 1890 | | 0752 1010 1022 | "| 0754 b730 b136 | 0 6| 0756 32af aa32 |2 2| 0758 b936 b4b7 | 6 | 075a 30b6 1610 |0 | 075c 22bc 3836 |" 86| 075e 30b4 b72f |0 /| 0760 a1b9 30b9 | 0 | 0762 b416 1023 | #| 0764 37b9 31b2 |7 1 | 0766 afa6 37b3 | 7 | 0768 b7b3 3316 | 3 | 076a 0000 0034 | 4| 076c 0000 001e | | 076e 24b7 3a32 |$ :2| 0770 b937 30b6 | 70 | 0772 2fa9 bcb9 |/ | 0774 ba32 b6af | 2 | 0776 a234 b0b3 | 4 | 0778 b737 b9b4 | 7 | 077a b996 1026 | &| 077c 34b6 b4ba |4 | 077e 2fa6 37b3 |/ 7 | 0780 b4b7 1610 | | 0782 29b2 ba2f |) /| 0784 a830 b9b9 | 0 | 0786 bbb7 b932 | 2| 0788 2fa8 37b6 |/ 7 | 078a 34b1 bc96 |4 | 078c 0000 0032 | 2| 078e 0000 0020 | | 0790 1010 1010 | | 0792 24b7 3a32 |$ :2| 0794 b937 30b6 | 70 | 0796 2fa9 bcb9 |/ | 0798 ba32 b6af | 2 | 079a a234 b0b3 | 4 | 079c b737 b9b4 | 7 | 079e b996 1026 | &| 07a0 34b6 b4ba |4 | 07a2 2fa6 37b3 |/ 7 | 07a4 b4b7 1610 | | 07a6 29b2 ba2f |) /| 07a8 a830 b9b9 | 0 | 07aa bbb7 b932 | 2| 07ac 2fa8 37b6 |/ 7 | 07ae 34b1 bc96 |4 | 07b0 0000 0032 | 2| 07b2 0000 0020 | | 07b4 1010 1010 | | 07b6 24b7 3a32 |$ :2| 07b8 b937 30b6 | 70 | 07ba 2fa9 bcb9 |/ | 07bc ba32 b6af | 2 | 07be a234 b0b3 | 4 | 07c0 b737 b9b4 | 7 | 07c2 b996 1026 | &| 07c4 34b6 b4ba |4 | 07c6 2fa6 37b3 |/ 7 | 07c8 b4b7 1610 | | 07ca 29b2 ba2f |) /| 07cc a830 b9b9 | 0 | 07ce bbb7 b932 | 2| 07d0 2fa8 37b6 |/ 7 | 07d2 34b1 bc96 |4 | 07d4 0000 0014 | | 07d6 8000 001f | | 07d8 29b2 ba2f |) /| 07da a9bc b9ba | | 07dc 32b6 afaa |2 | 07de 34b6 b296 |4 | 07e0 1029 b43a | ) :| 07e2 ba32 37bb | 27 | 07e4 b716 1029 | )| 07e6 b43a ba32 | : 2| 07e8 37bb b72f |7 /| 07ea abb0 b937 | 7| 07ec 34b7 3396 |4 3 | 07ee 1029 32b6 | )2 | 07f0 b7bb 32af | 2 | 07f2 a339 37b6 | 97 | 07f4 afa3 b937 | 7| 07f6 bab8 0000 | | 07f8 0012 8000 | | 07fa 0021 1010 | ! | 07fc 1010 29b2 | ) | 07fe ba2f a9bc | / |