|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_00c0
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 For_Outer_Call,Unelaborated,INIT_00e0
0091 029b 0103 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_0100
0093 029d 011b | | Declare_Subprogram For_Outer_Call,INIT_0118
0095 029d 012b | +| Declare_Subprogram For_Outer_Call,INIT_0128
0097 029d 0143 | C| Declare_Subprogram For_Outer_Call,INIT_0140
0099 029d 0153 | S| Declare_Subprogram For_Outer_Call,INIT_0150
009b 029d 0183 | | Declare_Subprogram For_Outer_Call,INIT_0180
009d 029d 019b | | Declare_Subprogram For_Outer_Call,INIT_0198
009f 029d 01fb | | Declare_Subprogram For_Outer_Call,INIT_01f8
00a1 029d 022b | +| Declare_Subprogram For_Outer_Call,INIT_0228
00a3 029d 0283 | | Declare_Subprogram For_Outer_Call,INIT_0280
00a5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00a6 00c7 | | Action Elaborate_Subprogram
00a7 029d 0343 | C| Declare_Subprogram For_Outer_Call,INIT_0340
00a9 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00aa 00c7 | | Action Elaborate_Subprogram
00ab 029d 046b | k| Declare_Subprogram For_Outer_Call,INIT_0468
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 For_Call,INIT_0480
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_Subprogram 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_Subprogram 0x2
00fc 00da | | Load_Top At_Offset_2
00fd 822b | + | Call 0x1,0x2b
00fe 4502 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Subprogram 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_Subprogram 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,Fixed,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,Fixed,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,Fixed,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,Fixed,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_Result,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_Result,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_Result,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 0x14
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 For_Call,INIT_0490
028b 029f 04bb | | Declare_Subprogram For_Call,INIT_04b8
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_Result,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_Result,0x1
02b5 e5ff | | Load 0x2,-0x1
02b6 4614 |F | Jump_Case 0x14
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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Subprogram 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_Unchecked 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_Subprogram 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_Subprogram 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 0x14
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_Subprogram 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_Unchecked 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_04d0
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_Subprogram 0x1
048d TRAP_0480:
048d 0007 | | Action Break_Optional
048e 8602 | | Call 0x3,0x2
048f 4501 |E | Exit_Subprogram 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_Result,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_Result,0x1
04af 4800 |H | Short_Literal 0x0
04b0 4401 |D | Exit_Subprogram With_Result,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_Result,0x1
04cb 4800 |H | Short_Literal 0x0
04cc 4401 |D | Exit_Subprogram With_Result,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_Subprogram 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: "
; "Lexeme kind: "
; "Lexeme kind: "
; "Lexeme kind: "
; "Lexeme kind: "
; "Lexeme kind: "
; "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:"
; "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?"
; " 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 | / |