|
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_0500e0
└─⟦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 0658 | X | .CONST 0x0658 ; 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 1b0e | | Execute Package,Field_Read,Field_Number 0xe
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 1b0e | | Execute Package,Field_Read,Field_Number 0xe
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 1b0e | | Execute Package,Field_Read,Field_Number 0xe
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 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
00a1 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
00a3 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
00a5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00a6 00c7 | | Action Elaborate_Subprogram
00a7 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
00a9 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00aa 00c7 | | Action Elaborate_Subprogram
00ab 029d 0453 | S| Declare_Subprogram INIT_0450,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 04ca | | Action Push_String_Extended,0x4ca ; "XR"
00b2 00ea | | Load_Encached Null_String_Cache
00b3 0092 04cb | | Action Push_String_Extended,0x4cb ; " \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 046b | k| Declare_Subprogram INIT_0468,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 0b00 | | Execute_Immediate Case_Compare,0x0
00e5 7017 |p | Jump_Nonzero 0xfd
00e6 0092 04cc | | Action Push_String_Extended,0x4cc ; "Lexeme kind: "
00e8 e217 | | Load 0x1,0x17
00e9 e006 | | Load 0x0,0x6
00ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00eb 025e | ^ | Execute Discrete,Convert
00ec 1c01 | | Execute_Immediate Run_Utility,0x1
00ed 8224 | $ | Call 0x1,0x24
00ee 01cc | | Execute Vector,Catenate
00ef 0092 04cd | | Action Push_String_Extended,0x4cd ; " ["
00f1 01cc | | Execute Vector,Catenate
00f2 e218 | | Load 0x1,0x18
00f3 e009 | | Load 0x0,0x9
00f4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00f5 01cc | | Execute Vector,Catenate
00f6 0092 04ce | | Action Push_String_Extended,0x4ce ; "]"
00f8 01cc | | Execute Vector,Catenate
00f9 0092 04cf | | Action Push_String_Extended,0x4cf ; "Unexpected control token found."
00fb 8223 | # | Call 0x1,0x23
00fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fd 00db | | Load_Top At_Offset_3
00fe 822b | + | Call 0x1,0x2b
00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 04d0 | | Action Push_String_Extended,0x4d0 ; "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 04d0 | | Action Push_String_Extended,0x4d0 ; "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 00db | | Load_Top At_Offset_3
0147 01dc | | Execute Vector,Last
0148 e5ff | | Load 0x2,-0x1
0149 01cf | | Execute Vector,Slice_Read
014a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014b 0000 0000 | | .BLANK 0000[0x5]
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 627d |b} | Indirect_Literal Discrete,0x44c,{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 626a |bj | Indirect_Literal Discrete,0x44c,{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 6264 |bd | Indirect_Literal Discrete,0x44c,{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 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00cf | | Action Mark_Auxiliary
01f4 0007 | | Action Break_Optional
01f5 e219 | | Load 0x1,0x19
01f6 e218 | | Load 0x1,0x18
01f7 e217 | | Load 0x1,0x17
01f8 e214 | | Load 0x1,0x14
01f9 e006 | | Load 0x0,0x6
01fa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01fb c217 | | Store 0x1,0x17
01fc c218 | | Store 0x1,0x18
01fd 00d1 | | Pop_Control Pop_Count_1
01fe 00db | | Load_Top At_Offset_3
01ff 7003 |p | Jump_Nonzero 0x203
0200 e217 | | Load 0x1,0x17
0201 0e14 | | Execute_Immediate Not_Equal,0x14
0202 6802 |h | Jump_Zero 0x205
0203 e217 | | Load 0x1,0x17
0204 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0205 8225 | % | Call 0x1,0x25
0206 6807 |h | Jump_Zero 0x20e
0207 0092 04d1 | | Action Push_String_Extended,0x4d1 ; "Ran into End-of-File while reading control tokens."
0209 8222 | " | Call 0x1,0x22
020a 4813 |H | Short_Literal 0x13
020b a217 | | Store_Unchecked 0x1,0x17
020c 4813 |H | Short_Literal 0x13
020d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020e e212 | | Load 0x1,0x12
020f 8226 | & | Call 0x1,0x26
0210 8227 | ' | Call 0x1,0x27
0211 0e01 | | Execute_Immediate Not_Equal,0x1
0212 6807 |h | Jump_Zero 0x21a
0213 0092 04d2 | | Action Push_String_Extended,0x4d2 ; "This line is not a control line continuation of previous line."
0215 8222 | " | Call 0x1,0x22
0216 4813 |H | Short_Literal 0x13
0217 a217 | | Store_Unchecked 0x1,0x17
0218 4813 |H | Short_Literal 0x13
0219 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021a 00c9 | | Action Pop_Auxiliary_Loop
021b 7fd9 | | Jump 0x1f5
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e217 | | Load 0x1,0x17
0224 0b05 | | Execute_Immediate Case_Compare,0x5
0225 701c |p | Jump_Nonzero 0x242
0226 0b07 | | Execute_Immediate Case_Compare,0x7
0227 701f |p | Jump_Nonzero 0x247
0228 0b11 | | Execute_Immediate Case_Compare,0x11
0229 7034 |p4 | Jump_Nonzero 0x25e
022a 0092 04cc | | Action Push_String_Extended,0x4cc ; "Lexeme kind: "
022c e217 | | Load 0x1,0x17
022d e006 | | Load 0x0,0x6
022e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022f 025e | ^ | Execute Discrete,Convert
0230 1c01 | | Execute_Immediate Run_Utility,0x1
0231 8224 | $ | Call 0x1,0x24
0232 01cc | | Execute Vector,Catenate
0233 0092 04cd | | Action Push_String_Extended,0x4cd ; " ["
0235 01cc | | Execute Vector,Catenate
0236 e218 | | Load 0x1,0x18
0237 e009 | | Load 0x0,0x9
0238 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0239 01cc | | Execute Vector,Catenate
023a 0092 04ce | | Action Push_String_Extended,0x4ce ; "]"
023c 01cc | | Execute Vector,Catenate
023d 0092 04d3 | | Action Push_String_Extended,0x4d3 ; "Found unexpected lexeme while parsing expression."
023f 8223 | # | Call 0x1,0x23
0240 4801 |H | Short_Literal 0x1
0241 00ca | | Action Exit_Nullary_Function
0242 e219 | | Load 0x1,0x19
0243 e21a | | Load 0x1,0x1a
0244 016d | m | Execute Variant_Record,Structure_Write
0245 4800 |H | Short_Literal 0x0
0246 00ca | | Action Exit_Nullary_Function
0247 4800 |H | Short_Literal 0x0
0248 8228 | ( | Call 0x1,0x28
0249 a217 | | Store_Unchecked 0x1,0x17
024a 8229 | ) | Call 0x1,0x29
024b 6802 |h | Jump_Zero 0x24e
024c 4801 |H | Short_Literal 0x1
024d 00ca | | Action Exit_Nullary_Function
024e e21a | | Load 0x1,0x1a
024f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0250 0e01 | | Execute_Immediate Not_Equal,0x1
0251 6805 |h | Jump_Zero 0x257
0252 0092 04d4 | | Action Push_String_Extended,0x4d4 ; "Argument to NOT operator was not a boolean value?"
0254 8222 | " | Call 0x1,0x22
0255 4801 |H | Short_Literal 0x1
0256 00ca | | Action Exit_Nullary_Function
0257 e21a | | Load 0x1,0x1a
0258 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0259 0f00 | | Execute_Immediate Equal,0x0
025a e21a | | Load 0x1,0x1a
025b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
025c 4800 |H | Short_Literal 0x0
025d 00ca | | Action Exit_Nullary_Function
025e 4800 |H | Short_Literal 0x0
025f 8228 | ( | Call 0x1,0x28
0260 a217 | | Store_Unchecked 0x1,0x17
0261 8221 | ! | Call 0x1,0x21
0262 00ca | | Action Exit_Nullary_Function
0263 0000 0000 | | .BLANK 0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0275 | u | .CONST 0x0275 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0004 | | .CONST 0x0004 ; Number of locals
026b INIT_0268:
026b e006 | | Load 0x0,0x6
026c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
026d 02ff | | Declare_Variable Variant_Record
026e e21a | | Load 0x1,0x1a
026f 00d9 | | Load_Top At_Offset_1
0270 016d | m | Execute Variant_Record,Structure_Write
0271 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
0273 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
0275 BODY_0268:
0275 4800 |H | Short_Literal 0x0
0276 8228 | ( | Call 0x1,0x28
0277 a217 | | Store_Unchecked 0x1,0x17
0278 e5ff | | Load 0x2,-0x1
0279 0f08 | | Execute_Immediate Equal,0x8
027a 6803 |h | Jump_Zero 0x27e
027b e217 | | Load 0x1,0x17
027c 0f01 | | Execute_Immediate Equal,0x1
027d 7006 |p | Jump_Nonzero 0x284
027e e5ff | | Load 0x2,-0x1
027f 0f09 | | Execute_Immediate Equal,0x9
0280 6806 |h | Jump_Zero 0x287
0281 e217 | | Load 0x1,0x17
0282 0f03 | | Execute_Immediate Equal,0x3
0283 6803 |h | Jump_Zero 0x287
0284 4800 |H | Short_Literal 0x0
0285 8228 | ( | Call 0x1,0x28
0286 a217 | | Store_Unchecked 0x1,0x17
0287 8229 | ) | Call 0x1,0x29
0288 6802 |h | Jump_Zero 0x28b
0289 4801 |H | Short_Literal 0x1
028a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028b 4800 |H | Short_Literal 0x0
028c 8228 | ( | Call 0x1,0x28
028d e21d | | Load 0x1,0x1d
028e 01d7 | | Execute Vector,Field_Read
028f 680d |h | Jump_Zero 0x29d
0290 e5ff | | Load 0x2,-0x1
0291 e21f | | Load 0x1,0x1f
0292 01d7 | | Execute Vector,Field_Read
0293 e217 | | Load 0x1,0x17
0294 e21f | | Load 0x1,0x1f
0295 01d7 | | Execute Vector,Field_Read
0296 027c | | | Execute Discrete,Less
0297 6805 |h | Jump_Zero 0x29d
0298 e217 | | Load 0x1,0x17
0299 822a | * | Call 0x1,0x2a
029a 6802 |h | Jump_Zero 0x29d
029b 4801 |H | Short_Literal 0x1
029c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029d e5ff | | Load 0x2,-0x1
029e 4614 |F | Jump_Case 0x15
029f 786d |xm | Jump 0x30d ; case 0x0
02a0 786c |xl | Jump 0x30d ; case 0x1
02a1 786b |xk | Jump 0x30d ; case 0x2
02a2 786a |xj | Jump 0x30d ; case 0x3
02a3 7869 |xi | Jump 0x30d ; case 0x4
02a4 7868 |xh | Jump 0x30d ; case 0x5
02a5 7867 |xg | Jump 0x30d ; case 0x6
02a6 7866 |xf | Jump 0x30d ; case 0x7
02a7 780c |x | Jump 0x2b4 ; case 0x8
02a8 781a |x | Jump 0x2c3 ; case 0x9
02a9 7828 |x( | Jump 0x2d2 ; case 0xa
02aa 7836 |x6 | Jump 0x2e1 ; case 0xb
02ab 784b |xK | Jump 0x2f7 ; case 0xc
02ac 7860 |x` | Jump 0x30d ; case 0xd
02ad 785f |x_ | Jump 0x30d ; case 0xe
02ae 785e |x^ | Jump 0x30d ; case 0xf
02af 785d |x] | Jump 0x30d ; case 0x10
02b0 785c |x\ | Jump 0x30d ; case 0x11
02b1 785b |x[ | Jump 0x30d ; case 0x12
02b2 785a |xZ | Jump 0x30d ; case 0x13
02b3 7859 |xY | Jump 0x30d ; case 0x14
02b4 0092 04d5 | | Action Push_String_Extended,0x4d5 ; "AND"
02b6 8403 | | Call 0x2,0x3
02b7 6802 |h | Jump_Zero 0x2ba
02b8 4801 |H | Short_Literal 0x1
02b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ba 00da | | Load_Top At_Offset_2
02bb 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02bc e21a | | Load 0x1,0x1a
02bd 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02be 0279 | y | Execute Discrete,And
02bf e21a | | Load 0x1,0x1a
02c0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02c1 4800 |H | Short_Literal 0x0
02c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c3 0092 04d6 | | Action Push_String_Extended,0x4d6 ; "OR"
02c5 8403 | | Call 0x2,0x3
02c6 6802 |h | Jump_Zero 0x2c9
02c7 4801 |H | Short_Literal 0x1
02c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c9 00da | | Load_Top At_Offset_2
02ca 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02cb e21a | | Load 0x1,0x1a
02cc 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02cd 0278 | x | Execute Discrete,Or
02ce e21a | | Load 0x1,0x1a
02cf 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02d0 4800 |H | Short_Literal 0x0
02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d2 0092 04d7 | | Action Push_String_Extended,0x4d7 ; "XOR"
02d4 8403 | | Call 0x2,0x3
02d5 6802 |h | Jump_Zero 0x2d8
02d6 4801 |H | Short_Literal 0x1
02d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d8 00da | | Load_Top At_Offset_2
02d9 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02da e21a | | Load 0x1,0x1a
02db 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02dc 0277 | w | Execute Discrete,Xor
02dd e21a | | Load 0x1,0x1a
02de 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02df 4800 |H | Short_Literal 0x0
02e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e1 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "="
02e3 8404 | | Call 0x2,0x4
02e4 6802 |h | Jump_Zero 0x2e7
02e5 4801 |H | Short_Literal 0x1
02e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e7 4801 |H | Short_Literal 0x1
02e8 e006 | | Load 0x0,0x6
02e9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ea 1c08 | | Execute_Immediate Run_Utility,0x8
02eb 4800 |H | Short_Literal 0x0
02ec 00d9 | | Load_Top At_Offset_1
02ed 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02ee 00db | | Load_Top At_Offset_3
02ef e21a | | Load 0x1,0x1a
02f0 016f | o | Execute Variant_Record,Equal
02f1 00d9 | | Load_Top At_Offset_1
02f2 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02f3 e21a | | Load 0x1,0x1a
02f4 016d | m | Execute Variant_Record,Structure_Write
02f5 4800 |H | Short_Literal 0x0
02f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f7 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "="
02f9 8404 | | Call 0x2,0x4
02fa 6802 |h | Jump_Zero 0x2fd
02fb 4801 |H | Short_Literal 0x1
02fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02fd 4801 |H | Short_Literal 0x1
02fe e006 | | Load 0x0,0x6
02ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0300 1c08 | | Execute_Immediate Run_Utility,0x8
0301 4800 |H | Short_Literal 0x0
0302 00d9 | | Load_Top At_Offset_1
0303 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0304 00db | | Load_Top At_Offset_3
0305 e21a | | Load 0x1,0x1a
0306 016e | n | Execute Variant_Record,Not_Equal
0307 00d9 | | Load_Top At_Offset_1
0308 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0309 e21a | | Load 0x1,0x1a
030a 016d | m | Execute Variant_Record,Structure_Write
030b 4800 |H | Short_Literal 0x0
030c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030d 0092 04cc | | Action Push_String_Extended,0x4cc ; "Lexeme kind: "
030f e5ff | | Load 0x2,-0x1
0310 e006 | | Load 0x0,0x6
0311 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0312 025e | ^ | Execute Discrete,Convert
0313 1c01 | | Execute_Immediate Run_Utility,0x1
0314 8224 | $ | Call 0x1,0x24
0315 01cc | | Execute Vector,Catenate
0316 0092 04cd | | Action Push_String_Extended,0x4cd ; " ["
0318 01cc | | Execute Vector,Catenate
0319 e218 | | Load 0x1,0x18
031a e009 | | Load 0x0,0x9
031b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
031c 01cc | | Execute Vector,Catenate
031d 0092 04ce | | Action Push_String_Extended,0x4ce ; "]"
031f 01cc | | Execute Vector,Catenate
0320 0092 04d9 | | Action Push_String_Extended,0x4d9 ; "Internal error: unknown binary operator?"
0322 8223 | # | Call 0x1,0x23
0323 4801 |H | Short_Literal 0x1
0324 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0333 | 3 | .CONST 0x0333 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0006 | | .CONST 0x0006 ; Number of locals
032b INIT_0328:
032b 00e3 | | Load_Encached Natural_Cache
032c e216 | | Load 0x1,0x16
032d 0007 | | Action Break_Optional
032e e5ff | | Load 0x2,-0x1
032f 00e1 | | Load_Encached Boolean_Cache
0330 03f1 | | Declare_Variable Discrete,With_Value
0331 00e1 | | Load_Encached Boolean_Cache
0332 00e2 | | Load_Encached Integer_Cache
0333 BODY_0328:
0333 0007 | | Action Break_Optional
0334 4800 |H | Short_Literal 0x0
0335 8228 | ( | Call 0x1,0x28
0336 a217 | | Store_Unchecked 0x1,0x17
0337 8221 | ! | Call 0x1,0x21
0338 6801 |h | Jump_Zero 0x33a
0339 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033a e21a | | Load 0x1,0x1a
033b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
033c 0e01 | | Execute_Immediate Not_Equal,0x1
033d 6812 |h | Jump_Zero 0x350
033e 0092 04da | | Action Push_String_Extended,0x4da ; "Expression kind : "
0340 e21a | | Load 0x1,0x1a
0341 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0342 e006 | | Load 0x0,0x6
0343 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0344 025e | ^ | Execute Discrete,Convert
0345 1c01 | | Execute_Immediate Run_Utility,0x1
0346 8224 | $ | Call 0x1,0x24
0347 01cc | | Execute Vector,Catenate
0348 0092 04db | | Action Push_String_Extended,0x4db ; "IF control expression was not boolean?"
034a 8223 | # | Call 0x1,0x23
034b 4801 |H | Short_Literal 0x1
034c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
034d 4801 |H | Short_Literal 0x1
034e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
034f 7806 |x | Jump 0x356
0350 00da | | Load_Top At_Offset_2
0351 e21a | | Load 0x1,0x1a
0352 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0353 0f00 | | Execute_Immediate Equal,0x0
0354 0278 | x | Execute Discrete,Or
0355 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0356 e217 | | Load 0x1,0x17
0357 0e01 | | Execute_Immediate Not_Equal,0x1
0358 6804 |h | Jump_Zero 0x35d
0359 0092 04dc | | Action Push_String_Extended,0x4dc ; "IF <EXPR> was not followed by a THEN?"
035b 8222 | " | Call 0x1,0x22
035c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
035d 4801 |H | Short_Literal 0x1
035e 8228 | ( | Call 0x1,0x28
035f 0e14 | | Execute_Immediate Not_Equal,0x14
0360 6817 |h | Jump_Zero 0x378
0361 0092 04cc | | Action Push_String_Extended,0x4cc ; "Lexeme kind: "
0363 e217 | | Load 0x1,0x17
0364 e006 | | Load 0x0,0x6
0365 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0366 025e | ^ | Execute Discrete,Convert
0367 1c01 | | Execute_Immediate Run_Utility,0x1
0368 8224 | $ | Call 0x1,0x24
0369 01cc | | Execute Vector,Catenate
036a 0092 04cd | | Action Push_String_Extended,0x4cd ; " ["
036c 01cc | | Execute Vector,Catenate
036d e218 | | Load 0x1,0x18
036e e009 | | Load 0x0,0x9
036f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0370 01cc | | Execute Vector,Catenate
0371 0092 04ce | | Action Push_String_Extended,0x4ce ; "]"
0373 01cc | | Execute Vector,Catenate
0374 0092 04dd | | Action Push_String_Extended,0x4dd ; "IF <EXPR> THEN was followed by something other than a comment?"
0376 8223 | # | Call 0x1,0x23
0377 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0378 00cf | | Action Mark_Auxiliary
0379 7856 |xV | Jump 0x3d0
037a 8227 | ' | Call 0x1,0x27
037b a402 | | Store_Unchecked 0x2,0x2
037c e402 | | Load 0x2,0x2
037d 0f01 | | Execute_Immediate Equal,0x1
037e 6803 |h | Jump_Zero 0x382
037f e212 | | Load 0x1,0x12
0380 8226 | & | Call 0x1,0x26
0381 7850 |xP | Jump 0x3d2
0382 e402 | | Load 0x2,0x2
0383 0f02 | | Execute_Immediate Equal,0x2
0384 6819 |h | Jump_Zero 0x39e
0385 00da | | Load_Top At_Offset_2
0386 6803 |h | Jump_Zero 0x38a
0387 e212 | | Load 0x1,0x12
0388 8226 | & | Call 0x1,0x26
0389 7845 |xE | Jump 0x3cf
038a e212 | | Load 0x1,0x12
038b 0227 | ' | Execute Access,All_Reference
038c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
038d e214 | | Load 0x1,0x14
038e 0227 | ' | Execute Access,All_Reference
038f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0390 0272 | r | Execute Discrete,Minus
0391 0a01 | | Execute_Immediate Plus,0x1
0392 00d8 | | Load_Top At_Offset_0
0393 e003 | | Load 0x0,0x3
0394 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0395 0260 | ` | Execute Discrete,In_Type
0396 7001 |p | Jump_Nonzero 0x398
0397 08e0 | | Execute_Immediate Raise,0xe0
0398 e211 | | Load 0x1,0x11
0399 e003 | | Load 0x0,0x3
039a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
039b e214 | | Load 0x1,0x14
039c 8226 | & | Call 0x1,0x26
039d 7831 |x1 | Jump 0x3cf
039e 00da | | Load_Top At_Offset_2
039f 682d |h- | Jump_Zero 0x3cd
03a0 e403 | | Load 0x2,0x3
03a1 0a01 | | Execute_Immediate Plus,0x1
03a2 00d8 | | Load_Top At_Offset_0
03a3 e003 | | Load 0x0,0x3
03a4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03a5 0260 | ` | Execute Discrete,In_Type
03a6 7001 |p | Jump_Nonzero 0x3a8
03a7 08e0 | | Execute_Immediate Raise,0xe0
03a8 e211 | | Load 0x1,0x11
03a9 e003 | | Load 0x0,0x3
03aa 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
03ab 0092 04de | | Action Push_String_Extended,0x4de ; "--// "
03ad e211 | | Load 0x1,0x11
03ae e003 | | Load 0x0,0x3
03af 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
03b0 e212 | | Load 0x1,0x12
03b1 0227 | ' | Execute Access,All_Reference
03b2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03b3 e214 | | Load 0x1,0x14
03b4 0227 | ' | Execute Access,All_Reference
03b5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03b6 0272 | r | Execute Discrete,Minus
03b7 e403 | | Load 0x2,0x3
03b8 0272 | r | Execute Discrete,Minus
03b9 005a | Z | Store_Top Discrete,At_Offset_2
03ba 00d9 | | Load_Top At_Offset_1
03bb 0c06 | | Execute_Immediate Greater_Equal,0x6
03bc 680d |h | Jump_Zero 0x3ca
03bd e403 | | Load 0x2,0x3
03be 0a01 | | Execute_Immediate Plus,0x1
03bf 00da | | Load_Top At_Offset_2
03c0 0273 | s | Execute Discrete,Plus
03c1 00d8 | | Load_Top At_Offset_0
03c2 e003 | | Load 0x0,0x3
03c3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03c4 0260 | ` | Execute Discrete,In_Type
03c5 7001 |p | Jump_Nonzero 0x3c7
03c6 08e0 | | Execute_Immediate Raise,0xe0
03c7 e211 | | Load 0x1,0x11
03c8 e003 | | Load 0x0,0x3
03c9 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
03ca e214 | | Load 0x1,0x14
03cb 8226 | & | Call 0x1,0x26
03cc 7802 |x | Jump 0x3cf
03cd e212 | | Load 0x1,0x12
03ce 8226 | & | Call 0x1,0x26
03cf 00c9 | | Action Pop_Auxiliary_Loop
03d0 8225 | % | Call 0x1,0x25
03d1 6fa8 |o | Jump_Zero 0x37a
03d2 00ce | | Action Pop_Auxiliary
03d3 4801 |H | Short_Literal 0x1
03d4 8228 | ( | Call 0x1,0x28
03d5 4614 |F | Jump_Case 0x15
03d6 7871 |xq | Jump 0x448 ; case 0x0
03d7 7870 |xp | Jump 0x448 ; case 0x1
03d8 7812 |x | Jump 0x3eb ; case 0x2
03d9 7816 |x | Jump 0x3f0 ; case 0x3
03da 7838 |x8 | Jump 0x413 ; case 0x4
03db 786c |xl | Jump 0x448 ; case 0x5
03dc 786b |xk | Jump 0x448 ; case 0x6
03dd 786a |xj | Jump 0x448 ; case 0x7
03de 7869 |xi | Jump 0x448 ; case 0x8
03df 7868 |xh | Jump 0x448 ; case 0x9
03e0 7867 |xg | Jump 0x448 ; case 0xa
03e1 7866 |xf | Jump 0x448 ; case 0xb
03e2 7865 |xe | Jump 0x448 ; case 0xc
03e3 7864 |xd | Jump 0x448 ; case 0xd
03e4 7863 |xc | Jump 0x448 ; case 0xe
03e5 7862 |xb | Jump 0x448 ; case 0xf
03e6 7861 |xa | Jump 0x448 ; case 0x10
03e7 7860 |x` | Jump 0x448 ; case 0x11
03e8 785f |x_ | Jump 0x448 ; case 0x12
03e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x13
03ea 7f8d | | Jump 0x378 ; case 0x14
03eb 00d9 | | Load_Top At_Offset_1
03ec 7747 |wG | Jump_Nonzero 0x334
03ed 4801 |H | Short_Literal 0x1
03ee 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
03ef 7f44 | D | Jump 0x334
03f0 4801 |H | Short_Literal 0x1
03f1 8228 | ( | Call 0x1,0x28
03f2 0e14 | | Execute_Immediate Not_Equal,0x14
03f3 6816 |h | Jump_Zero 0x40a
03f4 0092 04cc | | Action Push_String_Extended,0x4cc ; "Lexeme kind: "
03f6 e217 | | Load 0x1,0x17
03f7 e006 | | Load 0x0,0x6
03f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f9 025e | ^ | Execute Discrete,Convert
03fa 1c01 | | Execute_Immediate Run_Utility,0x1
03fb 8224 | $ | Call 0x1,0x24
03fc 01cc | | Execute Vector,Catenate
03fd 0092 04cd | | Action Push_String_Extended,0x4cd ; " ["
03ff 01cc | | Execute Vector,Catenate
0400 e218 | | Load 0x1,0x18
0401 e009 | | Load 0x0,0x9
0402 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0403 01cc | | Execute Vector,Catenate
0404 0092 04ce | | Action Push_String_Extended,0x4ce ; "]"
0406 01cc | | Execute Vector,Catenate
0407 0092 04df | | Action Push_String_Extended,0x4df ; "While processing an IF; ELSE was followed by"
0409 8223 | # | Call 0x1,0x23
040a 00da | | Load_Top At_Offset_2
040b 6803 |h | Jump_Zero 0x40f
040c 4801 |H | Short_Literal 0x1
040d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
040e 7f69 | i | Jump 0x378
040f 00d9 | | Load_Top At_Offset_1
0410 0f00 | | Execute_Immediate Equal,0x0
0411 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0412 7f65 | e | Jump 0x378
0413 4800 |H | Short_Literal 0x0
0414 8228 | ( | Call 0x1,0x28
0415 6817 |h | Jump_Zero 0x42d
0416 0092 04cc | | Action Push_String_Extended,0x4cc ; "Lexeme kind: "
0418 e217 | | Load 0x1,0x17
0419 e006 | | Load 0x0,0x6
041a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041b 025e | ^ | Execute Discrete,Convert
041c 1c01 | | Execute_Immediate Run_Utility,0x1
041d 8224 | $ | Call 0x1,0x24
041e 01cc | | Execute Vector,Catenate
041f 0092 04cd | | Action Push_String_Extended,0x4cd ; " ["
0421 01cc | | Execute Vector,Catenate
0422 e218 | | Load 0x1,0x18
0423 e009 | | Load 0x0,0x9
0424 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0425 01cc | | Execute Vector,Catenate
0426 0092 04ce | | Action Push_String_Extended,0x4ce ; "]"
0428 01cc | | Execute Vector,Catenate
0429 0092 04e0 | | Action Push_String_Extended,0x4e0 ; "While processing an IF; END was not followed by IF."
042b 8223 | # | Call 0x1,0x23
042c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
042d 4800 |H | Short_Literal 0x0
042e 8228 | ( | Call 0x1,0x28
042f 0e10 | | Execute_Immediate Not_Equal,0x10
0430 6816 |h | Jump_Zero 0x447
0431 0092 04cc | | Action Push_String_Extended,0x4cc ; "Lexeme kind: "
0433 e217 | | Load 0x1,0x17
0434 e006 | | Load 0x0,0x6
0435 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0436 025e | ^ | Execute Discrete,Convert
0437 1c01 | | Execute_Immediate Run_Utility,0x1
0438 8224 | $ | Call 0x1,0x24
0439 01cc | | Execute Vector,Catenate
043a 0092 04cd | | Action Push_String_Extended,0x4cd ; " ["
043c 01cc | | Execute Vector,Catenate
043d e218 | | Load 0x1,0x18
043e e009 | | Load 0x0,0x9
043f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0440 01cc | | Execute Vector,Catenate
0441 0092 04ce | | Action Push_String_Extended,0x4ce ; "]"
0443 01cc | | Execute Vector,Catenate
0444 0092 04e1 | | Action Push_String_Extended,0x4e1 ; "While processing an IF; END IF was not followed by ;."
0446 8223 | # | Call 0x1,0x23
0447 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0448 00d9 | | Load_Top At_Offset_1
0449 8220 | | Call 0x1,0x20
044a 7f2d | - | Jump 0x378
044b 0000 | | .XXX[0x1]
044c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 00cf | | Action Mark_Auxiliary
0454 780f |x | Jump 0x464
0455 e212 | | Load 0x1,0x12
0456 8226 | & | Call 0x1,0x26
0457 8227 | ' | Call 0x1,0x27
0458 0f01 | | Execute_Immediate Equal,0x1
0459 6809 |h | Jump_Zero 0x463
045a 4801 |H | Short_Literal 0x1
045b 8228 | ( | Call 0x1,0x28
045c 0e13 | | Execute_Immediate Not_Equal,0x13
045d 6805 |h | Jump_Zero 0x463
045e e217 | | Load 0x1,0x17
045f 0e14 | | Execute_Immediate Not_Equal,0x14
0460 6802 |h | Jump_Zero 0x463
0461 4800 |H | Short_Literal 0x0
0462 8220 | | Call 0x1,0x20
0463 00c9 | | Action Pop_Auxiliary_Loop
0464 8225 | % | Call 0x1,0x25
0465 6fef |o | Jump_Zero 0x455
0466 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0467 0000 | | .XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046d | m | .CONST 0x046d ; Address of begin
0469 0475 | u | .CONST 0x0475 ; Address of exception handler
046a 0002 | | .CONST 0x0002 ; Number of locals
046b INIT_0468:
046b 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
046d BODY_0468:
046d e211 | | Load 0x1,0x11
046e 00ea | | Load_Encached Null_String_Cache
046f e5fe | | Load 0x2,-0x2
0470 4801 |H | Short_Literal 0x1
0471 e003 | | Load 0x0,0x3
0472 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0473 c211 | | Store 0x1,0x11
0474 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0475 TRAP_0468:
0475 0007 | | Action Break_Optional
0476 8602 | | Call 0x3,0x2
0477 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b e402 | | Load 0x2,0x2
047c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
047d 0e01 | | Execute_Immediate Not_Equal,0x1
047e 680a |h | Jump_Zero 0x489
047f 0092 04e2 | | Action Push_String_Extended,0x4e2 ; "1st argument to "
0481 00db | | Load_Top At_Offset_3
0482 01cc | | Execute Vector,Catenate
0483 0092 04e3 | | Action Push_String_Extended,0x4e3 ; " was not a boolean value?"
0485 01cc | | Execute Vector,Catenate
0486 8222 | " | Call 0x1,0x22
0487 4801 |H | Short_Literal 0x1
0488 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0489 e21a | | Load 0x1,0x1a
048a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
048b 0e01 | | Execute_Immediate Not_Equal,0x1
048c 680a |h | Jump_Zero 0x497
048d 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "2nd argument to "
048f 00db | | Load_Top At_Offset_3
0490 01cc | | Execute Vector,Catenate
0491 0092 04e3 | | Action Push_String_Extended,0x4e3 ; " was not a boolean value?"
0493 01cc | | Execute Vector,Catenate
0494 8222 | " | Call 0x1,0x22
0495 4801 |H | Short_Literal 0x1
0496 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0497 4800 |H | Short_Literal 0x0
0498 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0499 0000 0000 | | .BLANK 0000[0x7]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 e402 | | Load 0x2,0x2
04a4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04a5 e21a | | Load 0x1,0x1a
04a6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04a7 027e | ~ | Execute Discrete,Not_Equal
04a8 680a |h | Jump_Zero 0x4b3
04a9 0092 04e5 | | Action Push_String_Extended,0x4e5 ; "Arguments to "
04ab 00db | | Load_Top At_Offset_3
04ac 01cc | | Execute Vector,Catenate
04ad 0092 04e6 | | Action Push_String_Extended,0x4e6 ; " are not the same type?"
04af 01cc | | Execute Vector,Catenate
04b0 8222 | " | Call 0x1,0x22
04b1 4801 |H | Short_Literal 0x1
04b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b3 4800 |H | Short_Literal 0x0
04b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b5 0000 0000 | | .XXX[0x3]
04b7 0000 | |
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 04c3 | | .CONST 0x04c3 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb e211 | | Load 0x1,0x11
04bc 00ea | | Load_Encached Null_String_Cache
04bd e5fe | | Load 0x2,-0x2
04be 4801 |H | Short_Literal 0x1
04bf e003 | | Load 0x0,0x3
04c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04c1 c211 | | Store 0x1,0x11
04c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04c3 TRAP_04b8:
04c3 0007 | | Action Break_Optional
04c4 e210 | | Load 0x1,0x10
04c5 e003 | | Load 0x0,0x3
04c6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04c7 c210 | | Store 0x1,0x10
04c8 00d8 | | Load_Top At_Offset_0
04c9 0101 | | Execute Exception,Reraise
04ca ; --------------------------------------------------------------------------------------
04ca ; STRING TABLE
04ca ; --------------------------------------------------------------------------------------
04ca 003c | < | .STRTAB 0x003c->0x04e8 ; "XR"
04cb 003c | < | .STRTAB 0x003c->0x04e9 ; " \x09\x0d\x0a\x0c\x0b"
04cc 0040 | @ | .STRTAB 0x0040->0x04ec ; "Lexeme kind: "
04cd 004b | K | .STRTAB 0x004b->0x04f2 ; " ["
04ce 004c | L | .STRTAB 0x004c->0x04f4 ; "]"
04cf 004b | K | .STRTAB 0x004b->0x04f4 ; "Unexpected control token found."
04d0 0068 | h | .STRTAB 0x0068->0x0504 ; "Line:"
04d1 006b | k | .STRTAB 0x006b->0x0506 ; "Ran into End-of-File while reading control tokens."
04d2 009b | | .STRTAB 0x009b->0x051f ; "This line is not a control line continuation of previous line."
04d3 00d7 | | .STRTAB 0x00d7->0x053e ; "Found unexpected lexeme while parsing expression."
04d4 0106 | | .STRTAB 0x0106->0x0557 ; "Argument to NOT operator was not a boolean value?"
04d5 0135 | 5 | .STRTAB 0x0135->0x056f ; "AND"
04d6 0136 | 6 | .STRTAB 0x0136->0x0571 ; "OR"
04d7 0136 | 6 | .STRTAB 0x0136->0x0572 ; "XOR"
04d8 0137 | 7 | .STRTAB 0x0137->0x0573 ; "="
04d9 0136 | 6 | .STRTAB 0x0136->0x0574 ; "Internal error: unknown binary operator?"
04da 015c | \ | .STRTAB 0x015c->0x0588 ; "Expression kind : "
04db 016c | l | .STRTAB 0x016c->0x0591 ; "IF control expression was not boolean?"
04dc 0190 | | .STRTAB 0x0190->0x05a4 ; "IF <EXPR> was not followed by a THEN?"
04dd 01b3 | | .STRTAB 0x01b3->0x05b6 ; "IF <EXPR> THEN was followed by something other than a comment?"
04de 01ef | | .STRTAB 0x01ef->0x05d5 ; "--// "
04df 01f2 | | .STRTAB 0x01f2->0x05d8 ; "While processing an IF; ELSE was followed by"
04e0 021c | | .STRTAB 0x021c->0x05ee ; "While processing an IF; END was not followed by IF."
04e1 024d | M | .STRTAB 0x024d->0x0607 ; "While processing an IF; END IF was not followed by ;."
04e2 0280 | | .STRTAB 0x0280->0x0622 ; "1st argument to "
04e3 028e | | .STRTAB 0x028e->0x062a ; " was not a boolean value?"
04e4 02a5 | | .STRTAB 0x02a5->0x0636 ; "2nd argument to "
04e5 02b3 | | .STRTAB 0x02b3->0x063e ; "Arguments to "
04e6 02be | | .STRTAB 0x02be->0x0645 ; " are not the same type?"
04e7 02d3 | | .STREND 0x02d3->0x0650
04e8 5852 2009 |XR | .STRTAB_STRINGS
0651 0000 0000 | | .BLANK 0000[0x7]
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug Table
0658 ; --------------------------------------------------------------------------------------
0658 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa93e,0x0000,0x0001,0x0000
065e 2c79 |,y | .XXX[0x1]
065f 0000 0000 | | .BLANK 0000[0x5]
0664 0014 8000 | | .XXX[0x3]
0666 0029 | ) |
0667 0000 0000 | | .BLANK 0000[0x9]
0670 0020 0000 | | .XXX[0x29]
0672 01a0 0000 | |
0674 0000 8000 | |
0676 0030 1097 | 0 |
0678 2a27 a7a6 |*' |
067a 2997 2820 |) ( |
067c a920 a6a2 | |
067e aa22 a92f | " /|
0680 a820 a929 | )|
0682 a2a9 13a9 | |
0684 a822 a193 | " |
0686 a9a8 222c | ",|
0688 93a1 9420 | |
068a a220 94a0 | |
068c 82a4 a68a | |
068e a44e a6a0 | N |
0690 8a86 0000 | |
0692 0002 0000 | |
0694 0006 4eac | N |
0696 5100 0000 |Q |
0698 3a00 |: |
0699 0000 0000 | | .BLANK 0000[0xe]
06a7 4000 0030 |@ 0| .XXX[0x2]
06a9 0000 0000 | | .BLANK 0000[0x7]
06b0 3f3e d800 |?> | .XXX[0x2]
06b2 0000 0000 | | .BLANK 0000[0x7]
06b9 0200 0000 | | .XXX[0xe]
06bb 0000 0001 | |
06bd 0000 00d1 | |
06bf bc00 0000 | |
06c1 0080 0039 | 9|
06c3 0042 1600 | B |
06c5 0163 c800 | c |
06c7 0000 0000 | | .BLANK 0000[0x5]
06cc cc00 0001 | | .XXX[0x3]
06ce 9800 | |
06cf 0000 0000 | | .BLANK 0000[0x8]
06d7 0001 0000 | | .XXX[0x2e]
06d9 000d 0000 | |
06db 0000 0400 | |
06dd 0001 8084 | |
06df b951 3d3d | Q==|
06e1 314c b939 |1L 9|
06e3 1551 5d3d | Q]=|
06e5 492d 2539 |I-%9|
06e7 1cb9 3915 | 9 |
06e9 515d 3d49 |Q]=I|
06eb 2d7d 4149 |-}AI|
06ed 3d11 550d |= U |
06ef 509d 4d41 |P MA|
06f1 150c 9d4d | M|
06f3 4111 649d |A d |
06f5 0ca1 0511 | |
06f7 04a5 24f4 | $ |
06f9 4554 3542 |ET5B|
06fb 7535 0454 |u5 T|
06fd 3000 0000 |0 |
06ff 1000 0000 | |
0701 3275 6288 |2ub |
0703 0000 0270 | p|
0705 0000 0000 | | .BLANK 0000[0x9]
070e 0200 0001 | | .XXX[0x3]
0710 8000 | |
0711 0000 0000 | | .BLANK 0000[0x6]
0717 01fa 57c0 | W | .XXX[0x2]
0719 0000 0000 | | .BLANK 0000[0x7]
0720 0010 0000 | | .XXX[0xe]
0722 0000 0000 | |
0724 0800 0006 | |
0726 8de0 0000 | |
0728 0004 0001 | |
072a c802 10b0 | |
072c 000b 1e40 | @|
072e 0000 0000 | | .BLANK 0000[0x5]
0733 0580 0000 | | .XXX[0x3]
0735 0b00 | |
0736 0000 0000 | | .BLANK 0000[0x9]
073f 0800 0000 | | .XXX[0x2a]
0741 6800 0000 |h |
0743 0020 0000 | |
0745 0c04 25c8 | % |
0747 69e9 a9a8 |i |
0749 29c8 8a65 |) e|
074b c828 6a89 | (j |
074d 29e9 cbea |) |
074f aa89 2989 | ) |
0751 2a89 28aa |* ( |
0753 64ea 6a08 |d j |
0755 a864 ea6a | d j|
0757 088b 24e8 | $ |
0759 6508 2888 |e ( |
075b 2526 24aa |%&$ |
075d 24a2 a993 |$ |
075f a9a8 22a1 | " |
0761 8000 0000 | |
0763 8000 0001 | |
0765 93ab 1440 | @|
0767 0000 1000 | |
0769 0000 0000 | | .BLANK 0000[0xc]
0775 0010 0000 | | .XXX[0x3]
0777 0c00 | |
0778 0000 0000 | | .BLANK 0000[0x6]
077e 000f d5c6 | | .XXX[0x2]
0780 0000 0000 | | .BLANK 0000[0x8]
0788 8000 0000 | | .XXX[0xd]
078a 0000 0040 | @|
078c 0000 346f | 4o|
078e 0000 0000 | |
0790 2000 0e40 | @|
0792 1085 8000 | |
0794 58f2 |X |
0795 0000 0000 | | .BLANK 0000[0x5]
079a 0026 0000 | & | .XXX[0x3]
079c 004c | L |
079d 0000 0000 | | .BLANK 0000[0x9]
07a6 0040 0000 | @ | .XXX[0x27]
07a8 0340 0000 | @ |
07aa 0001 0000 | |
07ac 0060 212e | `!.|
07ae 434f 4d4d |COMM|
07b0 414e 4453 |ANDS|
07b2 2e57 4f52 |.WOR|
07b4 4b5f 4f52 |K_OR|
07b6 4445 5227 |DER'|
07b8 5350 4543 |SPEC|
07ba 2753 5044 |'SPD|
07bc 5927 4328 |Y'C(|
07be 4144 4129 |ADA)|
07c0 7d3d 4911 |}=I |
07c2 1548 9d4d | H M|
07c4 4115 0c00 |A |
07c6 0000 0400 | |
07c8 0000 0c9d | |
07ca 58a2 0000 |X |
07cc 0068 | h |
07cd 0000 0000 | | .BLANK 0000[0x10]
07dd 8000 0060 | `| .XXX[0x2]
07df 0000 0000 | | .BLANK 0000[0x7]
07e6 7ec6 7000 |~ p | .XXX[0x2]
07e8 0000 0000 | | .BLANK 0000[0x7]
07ef 0400 0000 | | .XXX[0x11]
07f1 0000 0002 | |
07f3 0000 01a3 | |
07f5 7800 0000 |x |
07f7 0100 0072 | r|
07f9 0084 2c00 | , |
07fb 02c7 9000 | |
07fd 0000 0000 | |
07ff 0000 | |