|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_191cd7
└─⟦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 08c0 | | .CONST 0x08c0 ; 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 0005 | | .CONST 0x0005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a3 | | .CONST 0x00a3 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002c | , | .CONST 0x002c ; Number of locals
000b INIT_0008:
000b 0093 0000 | | push_full_address 0x0
000d 6106 |a | Indirect_Literal Discrete,0x114,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f 0129 | ) | Execute Any,Make_Visible
0010 0007 | | Action Break_Optional
0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0013 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0015 00bf | | Action Accept_Activation
0016 e002 | | Load 0x0,0x2
0017 4a00 |J | Short_Literal 0x200
0018 8003 | | Call 0x0,0x3
0019 0039 | 9 | Store_Top Access,At_Offset_1
001a 00e1 | | Load_Encached Boolean_Cache
001b e002 | | Load 0x0,0x2
001c 4a00 |J | Short_Literal 0x200
001d 8003 | | Call 0x0,0x3
001e 0039 | 9 | Store_Top Access,At_Offset_1
001f e004 | | Load 0x0,0x4
0020 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0021 00e1 | | Load_Encached Boolean_Cache
0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0023 e004 | | Load 0x0,0x4
0024 0007 | | Action Break_Optional
0025 e005 | | Load 0x0,0x5
0026 0613 | | Execute_Immediate Set_Value_Unchecked,0x13
0027 e002 | | Load 0x0,0x2
0028 4840 |H@ | Short_Literal 0x40
0029 8003 | | Call 0x0,0x3
002a 0039 | 9 | Store_Top Access,At_Offset_1
002b e006 | | Load 0x0,0x6
002c 02ff | | Declare_Variable Variant_Record
002d 00d8 | | Load_Top At_Offset_0
002e 1c00 | | Execute_Immediate Run_Utility,0x0
002f e006 | | Load 0x0,0x6
0030 02ff | | Declare_Variable Variant_Record
0031 00d8 | | Load_Top At_Offset_0
0032 1c00 | | Execute_Immediate Run_Utility,0x0
0033 e007 | | Load 0x0,0x7
0034 0337 | 7 | Declare_Variable Array
0035 e005 | | Load 0x0,0x5
0036 0266 | f | Execute Discrete,Bounds
0037 00e1 | | Load_Encached Boolean_Cache
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 4801 |H | Short_Literal 0x1
003a 035d | ] | Declare_Type Array,Defined
003b 00d8 | | Load_Top At_Offset_0
003c 0337 | 7 | Declare_Variable Array
003d 4801 |H | Short_Literal 0x1
003e 4808 |H | Short_Literal 0x8
003f 00da | | Load_Top At_Offset_2
0040 01d6 | | Execute Vector,Field_Write
0041 4801 |H | Short_Literal 0x1
0042 4809 |H | Short_Literal 0x9
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 4801 |H | Short_Literal 0x1
0046 480a |H | Short_Literal 0xa
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 4807 |H | Short_Literal 0x7
004a 4800 |H | Short_Literal 0x0
004b 4800 |H | Short_Literal 0x0
004c 00d9 | | Load_Top At_Offset_1
004d e21c | | Load 0x1,0x1c
004e 01d6 | | Execute Vector,Field_Write
004f 3ffb |? | Loop_Increasing 0x4b
0050 4814 |H | Short_Literal 0x14
0051 480b |H | Short_Literal 0xb
0052 4800 |H | Short_Literal 0x0
0053 00d9 | | Load_Top At_Offset_1
0054 e21c | | Load 0x1,0x1c
0055 01d6 | | Execute Vector,Field_Write
0056 3ffb |? | Loop_Increasing 0x52
0057 00d9 | | Load_Top At_Offset_1
0058 01c3 | | Execute Vector,Check_In_Type
0059 0007 | | Action Break_Optional
005a e005 | | Load 0x0,0x5
005b 0266 | f | Execute Discrete,Bounds
005c 00e3 | | Load_Encached Natural_Cache
005d 02a0 | | Declare_Subprogram Null_Subprogram
005e 4801 |H | Short_Literal 0x1
005f 035d | ] | Declare_Type Array,Defined
0060 00d8 | | Load_Top At_Offset_0
0061 0337 | 7 | Declare_Variable Array
0062 4801 |H | Short_Literal 0x1
0063 4808 |H | Short_Literal 0x8
0064 00da | | Load_Top At_Offset_2
0065 01d6 | | Execute Vector,Field_Write
0066 4801 |H | Short_Literal 0x1
0067 4809 |H | Short_Literal 0x9
0068 00da | | Load_Top At_Offset_2
0069 01d6 | | Execute Vector,Field_Write
006a 4801 |H | Short_Literal 0x1
006b 480a |H | Short_Literal 0xa
006c 00da | | Load_Top At_Offset_2
006d 01d6 | | Execute Vector,Field_Write
006e 4807 |H | Short_Literal 0x7
006f 4800 |H | Short_Literal 0x0
0070 4800 |H | Short_Literal 0x0
0071 00d9 | | Load_Top At_Offset_1
0072 e21e | | Load 0x1,0x1e
0073 01d6 | | Execute Vector,Field_Write
0074 3ffb |? | Loop_Increasing 0x70
0075 4814 |H | Short_Literal 0x14
0076 480b |H | Short_Literal 0xb
0077 4800 |H | Short_Literal 0x0
0078 00d9 | | Load_Top At_Offset_1
0079 e21e | | Load 0x1,0x1e
007a 01d6 | | Execute Vector,Field_Write
007b 3ffb |? | Loop_Increasing 0x77
007c 00d9 | | Load_Top At_Offset_1
007d 01c3 | | Execute Vector,Check_In_Type
007e 0007 | | Action Break_Optional
007f 00e1 | | Load_Encached Boolean_Cache
0080 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0081 029b 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Unelaborated
0083 029b 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Unelaborated
0085 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call
0087 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
0089 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
008b 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
008d 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
008f 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
0091 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
0093 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call
0095 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
0097 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0098 00c7 | | Action Elaborate_Subprogram
0099 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
009b 1d20 | | Execute_Immediate Reference_Lex_1,0x20
009c 00c7 | | Action Elaborate_Subprogram
009d 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call
009f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00a2 00c7 | | Action Elaborate_Subprogram
00a3 BODY_0008:
00a3 e21a | | Load 0x1,0x1a
00a4 4801 |H | Short_Literal 0x1
00a5 4802 |H | Short_Literal 0x2
00a6 e008 | | Load 0x0,0x8
00a7 0334 | 4 | Declare_Variable Array,With_Constraint
00a8 506f |Po | Indirect_Literal Any,0x118,{0x58522020, 0x20202020}
00a9 4801 |H | Short_Literal 0x1
00aa 00e5 | | Load_Encached Long_Integer_Cache
00ab 00d9 | | Load_Top At_Offset_1
00ac 0267 | g | Execute Discrete,Predecessor
00ad e008 | | Load 0x0,0x8
00ae 0334 | 4 | Declare_Variable Array,With_Constraint
00af 480b |H | Short_Literal 0xb
00b0 480c |H | Short_Literal 0xc
00b1 480a |H | Short_Literal 0xa
00b2 480d |H | Short_Literal 0xd
00b3 4801 |H | Short_Literal 0x1
00b4 4802 |H | Short_Literal 0x2
00b5 e008 | | Load 0x0,0x8
00b6 0334 | 4 | Declare_Variable Array,With_Constraint
00b7 4820 |H | Short_Literal 0x20
00b8 4801 |H | Short_Literal 0x1
00b9 00da | | Load_Top At_Offset_2
00ba 01d6 | | Execute Vector,Field_Write
00bb 4809 |H | Short_Literal 0x9
00bc 4802 |H | Short_Literal 0x2
00bd 00da | | Load_Top At_Offset_2
00be 01d6 | | Execute Vector,Field_Write
00bf 01cb | | Execute Vector,Append
00c0 01cb | | Execute Vector,Append
00c1 01cb | | Execute Vector,Append
00c2 01cb | | Execute Vector,Append
00c3 8009 | | Call 0x0,0x9
00c4 00d1 | | Pop_Control Pop_Count_1
00c5 00bc | | Action Signal_Activated
00c6 00bb | | Action Signal_Completion
00c7 0000 | | .XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00de | | .CONST 0x00de ; Address of begin
00c9 0106 | | .CONST 0x0106 ; Address of exception handler
00ca 0007 | | .CONST 0x0007 ; Number of locals
00cb INIT_00c8:
00cb e00a | | Load 0x0,0xa
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 02c7 | | Declare_Variable Any
00ce 00d8 | | Load_Top At_Offset_0
00cf 1c00 | | Execute_Immediate Run_Utility,0x0
00d0 e00a | | Load 0x0,0xa
00d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d2 02c7 | | Declare_Variable Any
00d3 00d8 | | Load_Top At_Offset_0
00d4 1c00 | | Execute_Immediate Run_Utility,0x0
00d5 e006 | | Load 0x0,0x6
00d6 02ff | | Declare_Variable Variant_Record
00d7 00d8 | | Load_Top At_Offset_0
00d8 1c00 | | Execute_Immediate Run_Utility,0x0
00d9 00e1 | | Load_Encached Boolean_Cache
00da 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call
00dc 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call
00de BODY_00c8:
00de 00be | | Action Activate_Tasks
00df 00e1 | | Load_Encached Boolean_Cache
00e0 e404 | | Load 0x2,0x4
00e1 4801 |H | Short_Literal 0x1
00e2 4805 |H | Short_Literal 0x5
00e3 e008 | | Load 0x0,0x8
00e4 0334 | 4 | Declare_Variable Array,With_Constraint
00e5 5036 |P6 | Indirect_Literal Any,0x11c,{0x52313030, 0x30202020}
00e6 e00b | | Load 0x0,0xb
00e7 800c | | Call 0x0,0xc
00e8 00d1 | | Pop_Control Pop_Count_1
00e9 005b | [ | Store_Top Discrete,At_Offset_3
00ea 00da | | Load_Top At_Offset_2
00eb 7003 |p | Jump_Nonzero 0xef
00ec 4800 |H | Short_Literal 0x0
00ed a214 | | Store_Unchecked 0x1,0x14
00ee 7803 |x | Jump 0xf2
00ef 00db | | Load_Top At_Offset_3
00f0 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00f1 a214 | | Store_Unchecked 0x1,0x14
00f2 8406 | | Call 0x2,0x6
00f3 8407 | | Call 0x2,0x7
00f4 e5fd | | Load 0x2,-0x3
00f5 a21f | | Store_Unchecked 0x1,0x1f
00f6 e403 | | Load 0x2,0x3
00f7 e402 | | Load 0x2,0x2
00f8 822c | , | Call 0x1,0x2c
00f9 800d | | Call 0x0,0xd
00fa 6802 |h | Jump_Zero 0xfd
00fb e20d | | Load 0x1,0xd
00fc 0257 | W | Execute Discrete,Raise
00fd e402 | | Load 0x2,0x2
00fe e00a | | Load 0x0,0xa
00ff 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0100 c402 | | Store 0x2,0x2
0101 e403 | | Load 0x2,0x3
0102 e00a | | Load 0x0,0xa
0103 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0104 c403 | | Store 0x2,0x3
0105 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0106 TRAP_00c8:
0106 0007 | | Action Break_Optional
0107 e402 | | Load 0x2,0x2
0108 e00a | | Load 0x0,0xa
0109 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010a c402 | | Store 0x2,0x2
010b e403 | | Load 0x2,0x3
010c e00a | | Load 0x0,0xa
010d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010e c403 | | Store 0x2,0x3
010f 00d8 | | Load_Top At_Offset_0
0110 0101 | | Execute Exception,Reraise
0111 0000 0000 | | .XXX[0x3]
0113 0000 | |
0114 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0118 5852 2020 |XR | .LITERAL {0x58522020, 0x20202020}
011c 5231 3030 |R100| .LITERAL {0x52313030, 0x30202020}
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e5fd | | Load 0x2,-0x3
0124 a21f | | Store_Unchecked 0x1,0x1f
0125 00db | | Load_Top At_Offset_3
0126 00db | | Load_Top At_Offset_3
0127 822c | , | Call 0x1,0x2c
0128 800d | | Call 0x0,0xd
0129 6802 |h | Jump_Zero 0x12c
012a e20d | | Load 0x1,0xd
012b 0257 | W | Execute Discrete,Raise
012c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e216 | | Load 0x1,0x16
0134 6830 |h0 | Jump_Zero 0x165
0135 0092 06df | | Action Push_String_Extended,0x6df ; "Lexeme kind: "
0137 e216 | | Load 0x1,0x16
0138 e005 | | Load 0x0,0x5
0139 011c | | Execute Any,Convert_Unchecked
013a 1c01 | | Execute_Immediate Run_Utility,0x1
013b 8224 | $ | Call 0x1,0x24
013c 01cc | | Execute Vector,Catenate
013d 0092 06e0 | | Action Push_String_Extended,0x6e0 ; " {"
013f 01cc | | Execute Vector,Catenate
0140 4a00 |J | Short_Literal 0x200
0141 4801 |H | Short_Literal 0x1
0142 e217 | | Load 0x1,0x17
0143 800e | | Call 0x0,0xe
0144 00d8 | | Load_Top At_Offset_0
0145 01da | | Execute Vector,Bounds
0146 00e9 | | Load_Encached String_Cache
0147 0334 | 4 | Declare_Variable Array,With_Constraint
0148 00d0 | | Action Swap_Control
0149 00d8 | | Load_Top At_Offset_0
014a 01dd | | Execute Vector,First
014b 00da | | Load_Top At_Offset_2
014c 01dd | | Execute Vector,First
014d 0272 | r | Execute Discrete,Minus
014e 00da | | Load_Top At_Offset_2
014f 01d9 | | Execute Vector,Reverse_Bounds
0150 0263 | c | Execute Discrete,Above_Bound
0151 700a |p | Jump_Nonzero 0x15c
0152 00d8 | | Load_Top At_Offset_0
0153 00db | | Load_Top At_Offset_3
0154 0273 | s | Execute Discrete,Plus
0155 e404 | | Load 0x2,0x4
0156 01d7 | | Execute Vector,Field_Read
0157 00d9 | | Load_Top At_Offset_1
0158 e403 | | Load 0x2,0x3
0159 01d5 | | Execute Vector,Field_Reference
015a 0118 | | Execute Any,Write_Unchecked
015b 3ff6 |? | Loop_Increasing 0x152
015c 00d2 | | Pop_Control Pop_Count_2
015d 01cc | | Execute Vector,Catenate
015e 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "}"
0160 01cc | | Execute Vector,Catenate
0161 0092 06e2 | | Action Push_String_Extended,0x6e2 ; "Unexpected control token found."
0163 8223 | # | Call 0x1,0x23
0164 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0165 e5fd | | Load 0x2,-0x3
0166 e5fe | | Load 0x2,-0x2
0167 e5ff | | Load 0x2,-0x1
0168 822b | + | Call 0x1,0x2b
0169 4504 |E | Exit_Suprogram New_Top_Offset 0x4
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00db | | Load_Top At_Offset_3
0174 00db | | Load_Top At_Offset_3
0175 8229 | ) | Call 0x1,0x29
0176 6802 |h | Jump_Zero 0x179
0177 4801 |H | Short_Literal 0x1
0178 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0179 00cf | | Action Mark_Auxiliary
017a 0007 | | Action Break_Optional
017b e216 | | Load 0x1,0x16
017c e21c | | Load 0x1,0x1c
017d 01d7 | | Execute Vector,Field_Read
017e 7002 |p | Jump_Nonzero 0x181
017f 4800 |H | Short_Literal 0x0
0180 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0181 e216 | | Load 0x1,0x16
0182 e5fe | | Load 0x2,-0x2
0183 e5ff | | Load 0x2,-0x1
0184 822a | * | Call 0x1,0x2a
0185 6802 |h | Jump_Zero 0x188
0186 4801 |H | Short_Literal 0x1
0187 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0188 00c9 | | Action Pop_Auxiliary_Loop
0189 7ff1 | | Jump 0x17b
018a 0000 0000 | | .BLANK 0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 0092 06e3 | | Action Push_String_Extended,0x6e3 ; "Line:"
0195 e213 | | Load 0x1,0x13
0196 00e0 | | Load_Encached Standard_Cache
0197 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0198 01cc | | Execute Vector,Catenate
0199 800f | | Call 0x0,0xf
019a 00da | | Load_Top At_Offset_2
019b 800f | | Call 0x0,0xf
019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 0092 06e3 | | Action Push_String_Extended,0x6e3 ; "Line:"
01a5 e213 | | Load 0x1,0x13
01a6 00e0 | | Load_Encached Standard_Cache
01a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a8 01cc | | Execute Vector,Catenate
01a9 800f | | Call 0x0,0xf
01aa 00da | | Load_Top At_Offset_2
01ab 800f | | Call 0x0,0xf
01ac 00db | | Load_Top At_Offset_3
01ad 800f | | Call 0x0,0xf
01ae 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 01dd | | Execute Vector,First
01b5 0a03 | | Execute_Immediate Plus,0x3
01b6 00d8 | | Load_Top At_Offset_0
01b7 00e2 | | Load_Encached Integer_Cache
01b8 0260 | ` | Execute Discrete,In_Type
01b9 7001 |p | Jump_Nonzero 0x1bb
01ba 0801 | | Execute_Immediate Raise,0x1
01bb 00db | | Load_Top At_Offset_3
01bc 01dc | | Execute Vector,Last
01bd e5ff | | Load 0x2,-0x1
01be 01cf | | Execute Vector,Slice_Read
01bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c6 | | .CONST 0x01c6 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0004 | | .CONST 0x0004 ; Number of locals
01c3 INIT_01c0:
01c3 00e1 | | Load_Encached Boolean_Cache
01c4 00e1 | | Load_Encached Boolean_Cache
01c5 00e1 | | Load_Encached Boolean_Cache
01c6 BODY_01c0:
01c6 e213 | | Load 0x1,0x13
01c7 0a01 | | Execute_Immediate Plus,0x1
01c8 c213 | | Store 0x1,0x13
01c9 00d8 | | Load_Top At_Offset_0
01ca 00da | | Load_Top At_Offset_2
01cb e402 | | Load 0x2,0x2
01cc e210 | | Load 0x1,0x10
01cd 4900 |I | Short_Literal 0x100
01ce e5ff | | Load 0x2,-0x1
01cf 8010 | | Call 0x0,0x10
01d0 c210 | | Store 0x1,0x10
01d1 c402 | | Store 0x2,0x2
01d2 005b | [ | Store_Top Discrete,At_Offset_3
01d3 0059 | Y | Store_Top Discrete,At_Offset_1
01d4 e210 | | Load 0x1,0x10
01d5 0227 | ' | Execute Access,All_Reference
01d6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d7 7004 |p | Jump_Nonzero 0x1dc
01d8 00d8 | | Load_Top At_Offset_0
01d9 6802 |h | Jump_Zero 0x1dc
01da 4801 |H | Short_Literal 0x1
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 00d9 | | Load_Top At_Offset_1
01dd 6803 |h | Jump_Zero 0x1e1
01de 00d8 | | Load_Top At_Offset_0
01df 0f00 | | Execute_Immediate Equal,0x0
01e0 7801 |x | Jump 0x1e2
01e1 4800 |H | Short_Literal 0x0
01e2 a211 | | Store_Unchecked 0x1,0x11
01e3 4800 |H | Short_Literal 0x0
01e4 e212 | | Load 0x1,0x12
01e5 0227 | ' | Execute Access,All_Reference
01e6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01e7 e212 | | Load 0x1,0x12
01e8 4900 |I | Short_Literal 0x100
01e9 e210 | | Load 0x1,0x10
01ea 8011 | | Call 0x0,0x11
01eb c212 | | Store 0x1,0x12
01ec e212 | | Load 0x1,0x12
01ed 0227 | ' | Execute Access,All_Reference
01ee 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ef 0c02 | | Execute_Immediate Greater_Equal,0x2
01f0 6826 |h& | Jump_Zero 0x217
01f1 e211 | | Load 0x1,0x11
01f2 7024 |p$ | Jump_Nonzero 0x217
01f3 e212 | | Load 0x1,0x12
01f4 0227 | ' | Execute Access,All_Reference
01f5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01f6 0aff | | Execute_Immediate Plus,-0x1
01f7 e212 | | Load 0x1,0x12
01f8 0227 | ' | Execute Access,All_Reference
01f9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01fa e212 | | Load 0x1,0x12
01fb 0227 | ' | Execute Access,All_Reference
01fc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01fd 01cf | | Execute Vector,Slice_Read
01fe 4801 |H | Short_Literal 0x1
01ff 4802 |H | Short_Literal 0x2
0200 e008 | | Load 0x0,0x8
0201 0334 | 4 | Declare_Variable Array,With_Constraint
0202 5019 |P | Indirect_Literal Any,0x21c,{0x20202020, 0x20202020}
0203 01de | | Execute Vector,Not_Equal
0204 6812 |h | Jump_Zero 0x217
0205 e210 | | Load 0x1,0x10
0206 4900 |I | Short_Literal 0x100
0207 4801 |H | Short_Literal 0x1
0208 4802 |H | Short_Literal 0x2
0209 e008 | | Load 0x0,0x8
020a 0334 | 4 | Declare_Variable Array,With_Constraint
020b 5014 |P | Indirect_Literal Any,0x220,{0x20202020, 0x20202020}
020c 8012 | | Call 0x0,0x12
020d c210 | | Store 0x1,0x10
020e e212 | | Load 0x1,0x12
020f 4900 |I | Short_Literal 0x100
0210 4801 |H | Short_Literal 0x1
0211 4802 |H | Short_Literal 0x2
0212 e008 | | Load 0x0,0x8
0213 0334 | 4 | Declare_Variable Array,With_Constraint
0214 500f |P | Indirect_Literal Any,0x224,{0x20202020, 0x20202020}
0215 8012 | | Call 0x0,0x12
0216 c212 | | Store 0x1,0x12
0217 4800 |H | Short_Literal 0x0
0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0219 0000 0000 | | .XXX[0x3]
021b 0000 | |
021c 2020 2020 | | .LITERAL {0x20202020, 0x20202020}
0220 2020 2020 | | .LITERAL {0x20202020, 0x20202020}
0224 2020 2020 | | .LITERAL {0x20202020, 0x20202020}
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022d | - | .CONST 0x022d ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call
022d BODY_0228:
022d e211 | | Load 0x1,0x11
022e 7004 |p | Jump_Nonzero 0x233
022f e5fe | | Load 0x2,-0x2
0230 e5ff | | Load 0x2,-0x1
0231 8013 | | Call 0x0,0x13
0232 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0233 e5fe | | Load 0x2,-0x2
0234 e5ff | | Load 0x2,-0x1
0235 8014 | | Call 0x0,0x14
0236 e214 | | Load 0x1,0x14
0237 6806 |h | Jump_Zero 0x23e
0238 8402 | | Call 0x2,0x2
0239 0092 06e4 | | Action Push_String_Extended,0x6e4 ; "<!EOP!>"
023b e5ff | | Load 0x2,-0x1
023c e00a | | Load 0x0,0xa
023d 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
023e 480c |H | Short_Literal 0xc
023f e5ff | | Load 0x2,-0x1
0240 e00a | | Load 0x0,0xa
0241 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0242 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0243 0000 0000 | | .BLANK 0000[0x5]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024c | L | .CONST 0x024c ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b 00e8 | | Load_Encached Character_Cache
024c BODY_0248:
024c 00e8 | | Load_Encached Character_Cache
024d e21a | | Load 0x1,0x1a
024e e212 | | Load 0x1,0x12
024f 8015 | | Call 0x0,0x15
0250 0059 | Y | Store_Top Discrete,At_Offset_1
0251 00d8 | | Load_Top At_Offset_0
0252 0e2d | - | Execute_Immediate Not_Equal,0x2d
0253 7013 |p | Jump_Nonzero 0x267
0254 e212 | | Load 0x1,0x12
0255 0227 | ' | Execute Access,All_Reference
0256 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0257 0d03 | | Execute_Immediate Less,0x3
0258 700e |p | Jump_Nonzero 0x267
0259 4802 |H | Short_Literal 0x2
025a e212 | | Load 0x1,0x12
025b 0227 | ' | Execute Access,All_Reference
025c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
025d 01d7 | | Execute Vector,Field_Read
025e 0e2d | - | Execute_Immediate Not_Equal,0x2d
025f 7007 |p | Jump_Nonzero 0x267
0260 4803 |H | Short_Literal 0x3
0261 e212 | | Load 0x1,0x12
0262 0227 | ' | Execute Access,All_Reference
0263 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0264 01d7 | | Execute Vector,Field_Read
0265 0e2f | / | Execute_Immediate Not_Equal,0x2f
0266 6802 |h | Jump_Zero 0x269
0267 4800 |H | Short_Literal 0x0
0268 00ca | | Action Exit_Nullary_Function
0269 e212 | | Load 0x1,0x12
026a 0227 | ' | Execute Access,All_Reference
026b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
026c 0d04 | | Execute_Immediate Less,0x4
026d 7007 |p | Jump_Nonzero 0x275
026e 4804 |H | Short_Literal 0x4
026f e212 | | Load 0x1,0x12
0270 0227 | ' | Execute Access,All_Reference
0271 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0272 01d7 | | Execute Vector,Field_Read
0273 0e2f | / | Execute_Immediate Not_Equal,0x2f
0274 680e |h | Jump_Zero 0x283
0275 e210 | | Load 0x1,0x10
0276 0227 | ' | Execute Access,All_Reference
0277 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0278 e212 | | Load 0x1,0x12
0279 0227 | ' | Execute Access,All_Reference
027a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
027b 0272 | r | Execute Discrete,Minus
027c c215 | | Store 0x1,0x15
027d 601e |` | Indirect_Literal Discrete,0x29c,{0x00000000, 0x7fffffff}
027e 4804 |H | Short_Literal 0x4
027f e212 | | Load 0x1,0x12
0280 8016 | | Call 0x0,0x16
0281 4801 |H | Short_Literal 0x1
0282 00ca | | Action Exit_Nullary_Function
0283 e212 | | Load 0x1,0x12
0284 0227 | ' | Execute Access,All_Reference
0285 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0286 0c05 | | Execute_Immediate Greater_Equal,0x5
0287 680c |h | Jump_Zero 0x294
0288 4805 |H | Short_Literal 0x5
0289 e212 | | Load 0x1,0x12
028a 0227 | ' | Execute Access,All_Reference
028b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
028c 01d7 | | Execute Vector,Field_Read
028d 0f20 | | Execute_Immediate Equal,0x20
028e 6805 |h | Jump_Zero 0x294
028f 600c |` | Indirect_Literal Discrete,0x29c,{0x00000000, 0x7fffffff}
0290 4806 |H | Short_Literal 0x6
0291 e212 | | Load 0x1,0x12
0292 8016 | | Call 0x0,0x16
0293 7804 |x | Jump 0x298
0294 6007 |` | Indirect_Literal Discrete,0x29c,{0x00000000, 0x7fffffff}
0295 4805 |H | Short_Literal 0x5
0296 e212 | | Load 0x1,0x12
0297 8016 | | Call 0x0,0x16
0298 4802 |H | Short_Literal 0x2
0299 00ca | | Action Exit_Nullary_Function
029a 0000 0000 | | .XXX[0x2]
029c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00cf | | Action Mark_Auxiliary
02a4 0007 | | Action Break_Optional
02a5 e218 | | Load 0x1,0x18
02a6 e217 | | Load 0x1,0x17
02a7 e216 | | Load 0x1,0x16
02a8 e212 | | Load 0x1,0x12
02a9 8017 | | Call 0x0,0x17
02aa c216 | | Store 0x1,0x16
02ab c217 | | Store 0x1,0x17
02ac 00d1 | | Pop_Control Pop_Count_1
02ad e5fd | | Load 0x2,-0x3
02ae 7003 |p | Jump_Nonzero 0x2b2
02af e216 | | Load 0x1,0x16
02b0 0e14 | | Execute_Immediate Not_Equal,0x14
02b1 6802 |h | Jump_Zero 0x2b4
02b2 e216 | | Load 0x1,0x16
02b3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02b4 00db | | Load_Top At_Offset_3
02b5 8225 | % | Call 0x1,0x25
02b6 6807 |h | Jump_Zero 0x2be
02b7 0092 06e5 | | Action Push_String_Extended,0x6e5 ; "Ran into End-of-File while reading control tokens."
02b9 8222 | " | Call 0x1,0x22
02ba 4813 |H | Short_Literal 0x13
02bb a216 | | Store_Unchecked 0x1,0x16
02bc 4813 |H | Short_Literal 0x13
02bd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02be e210 | | Load 0x1,0x10
02bf e5fe | | Load 0x2,-0x2
02c0 8226 | & | Call 0x1,0x26
02c1 8227 | ' | Call 0x1,0x27
02c2 0e01 | | Execute_Immediate Not_Equal,0x1
02c3 6807 |h | Jump_Zero 0x2cb
02c4 0092 06e6 | | Action Push_String_Extended,0x6e6 ; "This line is not a control line continuation of previous line."
02c6 8222 | " | Call 0x1,0x22
02c7 4813 |H | Short_Literal 0x13
02c8 a216 | | Store_Unchecked 0x1,0x16
02c9 4813 |H | Short_Literal 0x13
02ca 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02cb 00c9 | | Action Pop_Auxiliary_Loop
02cc 7fd8 | | Jump 0x2a5
02cd 0000 0000 | | .XXX[0x3]
02cf 0000 | |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 e216 | | Load 0x1,0x16
02d4 4614 |F | Jump_Case 0x15
02d5 7814 |x | Jump 0x2ea ; case 0x0
02d6 7813 |x | Jump 0x2ea ; case 0x1
02d7 7812 |x | Jump 0x2ea ; case 0x2
02d8 7811 |x | Jump 0x2ea ; case 0x3
02d9 7810 |x | Jump 0x2ea ; case 0x4
02da 784d |xM | Jump 0x328 ; case 0x5
02db 780e |x | Jump 0x2ea ; case 0x6
02dc 7855 |xU | Jump 0x332 ; case 0x7
02dd 780c |x | Jump 0x2ea ; case 0x8
02de 780b |x | Jump 0x2ea ; case 0x9
02df 780a |x | Jump 0x2ea ; case 0xa
02e0 7809 |x | Jump 0x2ea ; case 0xb
02e1 7808 |x | Jump 0x2ea ; case 0xc
02e2 7807 |x | Jump 0x2ea ; case 0xd
02e3 7806 |x | Jump 0x2ea ; case 0xe
02e4 7805 |x | Jump 0x2ea ; case 0xf
02e5 7804 |x | Jump 0x2ea ; case 0x10
02e6 7866 |xf | Jump 0x34d ; case 0x11
02e7 7802 |x | Jump 0x2ea ; case 0x12
02e8 7801 |x | Jump 0x2ea ; case 0x13
02e9 7800 |x | Jump 0x2ea ; case 0x14
02ea 0092 06df | | Action Push_String_Extended,0x6df ; "Lexeme kind: "
02ec e216 | | Load 0x1,0x16
02ed e005 | | Load 0x0,0x5
02ee 011c | | Execute Any,Convert_Unchecked
02ef 1c01 | | Execute_Immediate Run_Utility,0x1
02f0 8224 | $ | Call 0x1,0x24
02f1 01cc | | Execute Vector,Catenate
02f2 0092 06e0 | | Action Push_String_Extended,0x6e0 ; " {"
02f4 01cc | | Execute Vector,Catenate
02f5 4a00 |J | Short_Literal 0x200
02f6 4801 |H | Short_Literal 0x1
02f7 e217 | | Load 0x1,0x17
02f8 800e | | Call 0x0,0xe
02f9 00d8 | | Load_Top At_Offset_0
02fa 01da | | Execute Vector,Bounds
02fb 00e9 | | Load_Encached String_Cache
02fc 0334 | 4 | Declare_Variable Array,With_Constraint
02fd 00d0 | | Action Swap_Control
02fe 00d8 | | Load_Top At_Offset_0
02ff 01dd | | Execute Vector,First
0300 00da | | Load_Top At_Offset_2
0301 01dd | | Execute Vector,First
0302 0272 | r | Execute Discrete,Minus
0303 00da | | Load_Top At_Offset_2
0304 01d9 | | Execute Vector,Reverse_Bounds
0305 0263 | c | Execute Discrete,Above_Bound
0306 700a |p | Jump_Nonzero 0x311
0307 00d8 | | Load_Top At_Offset_0
0308 00db | | Load_Top At_Offset_3
0309 0273 | s | Execute Discrete,Plus
030a e404 | | Load 0x2,0x4
030b 01d7 | | Execute Vector,Field_Read
030c 00d9 | | Load_Top At_Offset_1
030d e403 | | Load 0x2,0x3
030e 01d5 | | Execute Vector,Field_Reference
030f 0118 | | Execute Any,Write_Unchecked
0310 3ff6 |? | Loop_Increasing 0x307
0311 00d2 | | Pop_Control Pop_Count_2
0312 01cc | | Execute Vector,Catenate
0313 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "}"
0315 01cc | | Execute Vector,Catenate
0316 0092 06e7 | | Action Push_String_Extended,0x6e7 ; "Found unexpected lexeme while parsing expression."
0318 8223 | # | Call 0x1,0x23
0319 4805 |H | Short_Literal 0x5
031a a216 | | Store_Unchecked 0x1,0x16
031b 4801 |H | Short_Literal 0x1
031c e006 | | Load 0x0,0x6
031d 1c08 | | Execute_Immediate Run_Utility,0x8
031e 4800 |H | Short_Literal 0x0
031f 00d9 | | Load_Top At_Offset_1
0320 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0321 4800 |H | Short_Literal 0x0
0322 00d9 | | Load_Top At_Offset_1
0323 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0324 e219 | | Load 0x1,0x19
0325 016d | m | Execute Variant_Record,Structure_Write
0326 4800 |H | Short_Literal 0x0
0327 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0328 e218 | | Load 0x1,0x18
0329 e219 | | Load 0x1,0x19
032a 016d | m | Execute Variant_Record,Structure_Write
032b 4800 |H | Short_Literal 0x0
032c e5fe | | Load 0x2,-0x2
032d e5ff | | Load 0x2,-0x1
032e 8228 | ( | Call 0x1,0x28
032f a216 | | Store_Unchecked 0x1,0x16
0330 4800 |H | Short_Literal 0x0
0331 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0332 4800 |H | Short_Literal 0x0
0333 e5fe | | Load 0x2,-0x2
0334 e5ff | | Load 0x2,-0x1
0335 8228 | ( | Call 0x1,0x28
0336 a216 | | Store_Unchecked 0x1,0x16
0337 00db | | Load_Top At_Offset_3
0338 00db | | Load_Top At_Offset_3
0339 8229 | ) | Call 0x1,0x29
033a 6802 |h | Jump_Zero 0x33d
033b 4801 |H | Short_Literal 0x1
033c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
033d e219 | | Load 0x1,0x19
033e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
033f 0e01 | | Execute_Immediate Not_Equal,0x1
0340 6805 |h | Jump_Zero 0x346
0341 0092 06e8 | | Action Push_String_Extended,0x6e8 ; "Argument to NOT operator was not a boolean value?"
0343 8222 | " | Call 0x1,0x22
0344 4801 |H | Short_Literal 0x1
0345 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0346 e219 | | Load 0x1,0x19
0347 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0348 0f00 | | Execute_Immediate Equal,0x0
0349 e219 | | Load 0x1,0x19
034a 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
034b 4800 |H | Short_Literal 0x0
034c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
034d 4800 |H | Short_Literal 0x0
034e e5fe | | Load 0x2,-0x2
034f e5ff | | Load 0x2,-0x1
0350 8228 | ( | Call 0x1,0x28
0351 a216 | | Store_Unchecked 0x1,0x16
0352 00db | | Load_Top At_Offset_3
0353 00db | | Load_Top At_Offset_3
0354 8221 | ! | Call 0x1,0x21
0355 6802 |h | Jump_Zero 0x358
0356 4801 |H | Short_Literal 0x1
0357 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0358 4800 |H | Short_Literal 0x0
0359 e5fe | | Load 0x2,-0x2
035a e5ff | | Load 0x2,-0x1
035b 8228 | ( | Call 0x1,0x28
035c a216 | | Store_Unchecked 0x1,0x16
035d 4800 |H | Short_Literal 0x0
035e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 036c | l | .CONST 0x036c ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0004 | | .CONST 0x0004 ; Number of locals
0363 INIT_0360:
0363 e006 | | Load 0x0,0x6
0364 02ff | | Declare_Variable Variant_Record
0365 e219 | | Load 0x1,0x19
0366 00d9 | | Load_Top At_Offset_1
0367 016d | m | Execute Variant_Record,Structure_Write
0368 029f 068b | | Declare_Subprogram INIT_0688,For_Call
036a 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call
036c BODY_0360:
036c 4800 |H | Short_Literal 0x0
036d e5fe | | Load 0x2,-0x2
036e e5ff | | Load 0x2,-0x1
036f 8228 | ( | Call 0x1,0x28
0370 a216 | | Store_Unchecked 0x1,0x16
0371 e5fd | | Load 0x2,-0x3
0372 0f08 | | Execute_Immediate Equal,0x8
0373 6803 |h | Jump_Zero 0x377
0374 e216 | | Load 0x1,0x16
0375 0f01 | | Execute_Immediate Equal,0x1
0376 7006 |p | Jump_Nonzero 0x37d
0377 e5fd | | Load 0x2,-0x3
0378 0f09 | | Execute_Immediate Equal,0x9
0379 6808 |h | Jump_Zero 0x382
037a e216 | | Load 0x1,0x16
037b 0f03 | | Execute_Immediate Equal,0x3
037c 6805 |h | Jump_Zero 0x382
037d 4800 |H | Short_Literal 0x0
037e e5fe | | Load 0x2,-0x2
037f e5ff | | Load 0x2,-0x1
0380 8228 | ( | Call 0x1,0x28
0381 a216 | | Store_Unchecked 0x1,0x16
0382 e5fe | | Load 0x2,-0x2
0383 e5ff | | Load 0x2,-0x1
0384 8229 | ) | Call 0x1,0x29
0385 6802 |h | Jump_Zero 0x388
0386 4801 |H | Short_Literal 0x1
0387 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0388 e216 | | Load 0x1,0x16
0389 e21c | | Load 0x1,0x1c
038a 01d7 | | Execute Vector,Field_Read
038b 680f |h | Jump_Zero 0x39b
038c e5fd | | Load 0x2,-0x3
038d e21e | | Load 0x1,0x1e
038e 01d7 | | Execute Vector,Field_Read
038f e216 | | Load 0x1,0x16
0390 e21e | | Load 0x1,0x1e
0391 01d7 | | Execute Vector,Field_Read
0392 027c | | | Execute Discrete,Less
0393 6807 |h | Jump_Zero 0x39b
0394 e216 | | Load 0x1,0x16
0395 e5fe | | Load 0x2,-0x2
0396 e5ff | | Load 0x2,-0x1
0397 822a | * | Call 0x1,0x2a
0398 6802 |h | Jump_Zero 0x39b
0399 4801 |H | Short_Literal 0x1
039a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
039b e5fd | | Load 0x2,-0x3
039c 4614 |F | Jump_Case 0x15
039d 7814 |x | Jump 0x3b2 ; case 0x0
039e 7813 |x | Jump 0x3b2 ; case 0x1
039f 7812 |x | Jump 0x3b2 ; case 0x2
03a0 7811 |x | Jump 0x3b2 ; case 0x3
03a1 7810 |x | Jump 0x3b2 ; case 0x4
03a2 780f |x | Jump 0x3b2 ; case 0x5
03a3 780e |x | Jump 0x3b2 ; case 0x6
03a4 780d |x | Jump 0x3b2 ; case 0x7
03a5 783d |x= | Jump 0x3e3 ; case 0x8
03a6 784b |xK | Jump 0x3f2 ; case 0x9
03a7 7859 |xY | Jump 0x401 ; case 0xa
03a8 7867 |xg | Jump 0x410 ; case 0xb
03a9 787b |x{ | Jump 0x425 ; case 0xc
03aa 7807 |x | Jump 0x3b2 ; case 0xd
03ab 7806 |x | Jump 0x3b2 ; case 0xe
03ac 7805 |x | Jump 0x3b2 ; case 0xf
03ad 7804 |x | Jump 0x3b2 ; case 0x10
03ae 7803 |x | Jump 0x3b2 ; case 0x11
03af 7802 |x | Jump 0x3b2 ; case 0x12
03b0 7801 |x | Jump 0x3b2 ; case 0x13
03b1 7800 |x | Jump 0x3b2 ; case 0x14
03b2 0092 06df | | Action Push_String_Extended,0x6df ; "Lexeme kind: "
03b4 e5fd | | Load 0x2,-0x3
03b5 e005 | | Load 0x0,0x5
03b6 011c | | Execute Any,Convert_Unchecked
03b7 1c01 | | Execute_Immediate Run_Utility,0x1
03b8 8224 | $ | Call 0x1,0x24
03b9 01cc | | Execute Vector,Catenate
03ba 0092 06e0 | | Action Push_String_Extended,0x6e0 ; " {"
03bc 01cc | | Execute Vector,Catenate
03bd 4a00 |J | Short_Literal 0x200
03be 4801 |H | Short_Literal 0x1
03bf e217 | | Load 0x1,0x17
03c0 800e | | Call 0x0,0xe
03c1 00d8 | | Load_Top At_Offset_0
03c2 01da | | Execute Vector,Bounds
03c3 00e9 | | Load_Encached String_Cache
03c4 0334 | 4 | Declare_Variable Array,With_Constraint
03c5 00d0 | | Action Swap_Control
03c6 00d8 | | Load_Top At_Offset_0
03c7 01dd | | Execute Vector,First
03c8 00da | | Load_Top At_Offset_2
03c9 01dd | | Execute Vector,First
03ca 0272 | r | Execute Discrete,Minus
03cb 00da | | Load_Top At_Offset_2
03cc 01d9 | | Execute Vector,Reverse_Bounds
03cd 0263 | c | Execute Discrete,Above_Bound
03ce 700a |p | Jump_Nonzero 0x3d9
03cf 00d8 | | Load_Top At_Offset_0
03d0 00db | | Load_Top At_Offset_3
03d1 0273 | s | Execute Discrete,Plus
03d2 e407 | | Load 0x2,0x7
03d3 01d7 | | Execute Vector,Field_Read
03d4 00d9 | | Load_Top At_Offset_1
03d5 e406 | | Load 0x2,0x6
03d6 01d5 | | Execute Vector,Field_Reference
03d7 0118 | | Execute Any,Write_Unchecked
03d8 3ff6 |? | Loop_Increasing 0x3cf
03d9 00d2 | | Pop_Control Pop_Count_2
03da 01cc | | Execute Vector,Catenate
03db 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "}"
03dd 01cc | | Execute Vector,Catenate
03de 0092 06e9 | | Action Push_String_Extended,0x6e9 ; "Internal error: unknown binary operator?"
03e0 8223 | # | Call 0x1,0x23
03e1 4801 |H | Short_Literal 0x1
03e2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03e3 0092 06ea | | Action Push_String_Extended,0x6ea ; "AND"
03e5 8403 | | Call 0x2,0x3
03e6 6802 |h | Jump_Zero 0x3e9
03e7 4801 |H | Short_Literal 0x1
03e8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03e9 00da | | Load_Top At_Offset_2
03ea 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03eb e219 | | Load 0x1,0x19
03ec 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03ed 0279 | y | Execute Discrete,And
03ee e219 | | Load 0x1,0x19
03ef 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
03f0 4800 |H | Short_Literal 0x0
03f1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03f2 0092 06eb | | Action Push_String_Extended,0x6eb ; "OR"
03f4 8403 | | Call 0x2,0x3
03f5 6802 |h | Jump_Zero 0x3f8
03f6 4801 |H | Short_Literal 0x1
03f7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03f8 00da | | Load_Top At_Offset_2
03f9 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03fa e219 | | Load 0x1,0x19
03fb 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03fc 0278 | x | Execute Discrete,Or
03fd e219 | | Load 0x1,0x19
03fe 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
03ff 4800 |H | Short_Literal 0x0
0400 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0401 0092 06ec | | Action Push_String_Extended,0x6ec ; "XOR"
0403 8403 | | Call 0x2,0x3
0404 6802 |h | Jump_Zero 0x407
0405 4801 |H | Short_Literal 0x1
0406 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0407 00da | | Load_Top At_Offset_2
0408 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0409 e219 | | Load 0x1,0x19
040a 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
040b 0277 | w | Execute Discrete,Xor
040c e219 | | Load 0x1,0x19
040d 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
040e 4800 |H | Short_Literal 0x0
040f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0410 0092 06ed | | Action Push_String_Extended,0x6ed ; "="
0412 8404 | | Call 0x2,0x4
0413 6802 |h | Jump_Zero 0x416
0414 4801 |H | Short_Literal 0x1
0415 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0416 4801 |H | Short_Literal 0x1
0417 e006 | | Load 0x0,0x6
0418 1c08 | | Execute_Immediate Run_Utility,0x8
0419 4800 |H | Short_Literal 0x0
041a 00d9 | | Load_Top At_Offset_1
041b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
041c 00db | | Load_Top At_Offset_3
041d e219 | | Load 0x1,0x19
041e 016f | o | Execute Variant_Record,Equal
041f 00d9 | | Load_Top At_Offset_1
0420 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0421 e219 | | Load 0x1,0x19
0422 016d | m | Execute Variant_Record,Structure_Write
0423 4800 |H | Short_Literal 0x0
0424 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0425 0092 06ed | | Action Push_String_Extended,0x6ed ; "="
0427 8404 | | Call 0x2,0x4
0428 6802 |h | Jump_Zero 0x42b
0429 4801 |H | Short_Literal 0x1
042a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
042b 4801 |H | Short_Literal 0x1
042c e006 | | Load 0x0,0x6
042d 1c08 | | Execute_Immediate Run_Utility,0x8
042e 4800 |H | Short_Literal 0x0
042f 00d9 | | Load_Top At_Offset_1
0430 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0431 00db | | Load_Top At_Offset_3
0432 e219 | | Load 0x1,0x19
0433 016e | n | Execute Variant_Record,Not_Equal
0434 00d9 | | Load_Top At_Offset_1
0435 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0436 e219 | | Load 0x1,0x19
0437 016d | m | Execute Variant_Record,Structure_Write
0438 4800 |H | Short_Literal 0x0
0439 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
043a 0000 0000 | | .BLANK 0000[0x6]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 044d | M | .CONST 0x044d ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0006 | | .CONST 0x0006 ; Number of locals
0443 INIT_0440:
0443 e004 | | Load 0x0,0x4
0444 0007 | | Action Break_Optional
0445 e215 | | Load 0x1,0x15
0446 0007 | | Action Break_Optional
0447 e5fd | | Load 0x2,-0x3
0448 00e1 | | Load_Encached Boolean_Cache
0449 03f1 | | Declare_Variable Discrete,With_Value
044a 00e1 | | Load_Encached Boolean_Cache
044b e018 | | Load 0x0,0x18
044c 0007 | | Action Break_Optional
044d BODY_0440:
044d 0008 | | Action Idle
044e 0007 | | Action Break_Optional
044f 4800 |H | Short_Literal 0x0
0450 e5fe | | Load 0x2,-0x2
0451 e5ff | | Load 0x2,-0x1
0452 8228 | ( | Call 0x1,0x28
0453 a216 | | Store_Unchecked 0x1,0x16
0454 e5fe | | Load 0x2,-0x2
0455 e5ff | | Load 0x2,-0x1
0456 8221 | ! | Call 0x1,0x21
0457 6801 |h | Jump_Zero 0x459
0458 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0459 e219 | | Load 0x1,0x19
045a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
045b 0e01 | | Execute_Immediate Not_Equal,0x1
045c 6813 |h | Jump_Zero 0x470
045d 0092 06ee | | Action Push_String_Extended,0x6ee ; "Expression kind : "
045f e219 | | Load 0x1,0x19
0460 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0461 e019 | | Load 0x0,0x19
0462 011c | | Execute Any,Convert_Unchecked
0463 1c01 | | Execute_Immediate Run_Utility,0x1
0464 8224 | $ | Call 0x1,0x24
0465 01cc | | Execute Vector,Catenate
0466 0092 06ef | | Action Push_String_Extended,0x6ef ; "IF control expression was not boolean?"
0468 8223 | # | Call 0x1,0x23
0469 e21f | | Load 0x1,0x1f
046a 0f00 | | Execute_Immediate Equal,0x0
046b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
046c e21f | | Load 0x1,0x1f
046d 0f00 | | Execute_Immediate Equal,0x0
046e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
046f 7809 |x | Jump 0x479
0470 00da | | Load_Top At_Offset_2
0471 e219 | | Load 0x1,0x19
0472 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0473 0f00 | | Execute_Immediate Equal,0x0
0474 0278 | x | Execute Discrete,Or
0475 e21f | | Load 0x1,0x1f
0476 0f00 | | Execute_Immediate Equal,0x0
0477 0279 | y | Execute Discrete,And
0478 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0479 e216 | | Load 0x1,0x16
047a 0e01 | | Execute_Immediate Not_Equal,0x1
047b 6804 |h | Jump_Zero 0x480
047c 0092 06f0 | | Action Push_String_Extended,0x6f0 ; "IF <EXPR> was not followed by a THEN?"
047e 8222 | " | Call 0x1,0x22
047f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0480 4801 |H | Short_Literal 0x1
0481 e5fe | | Load 0x2,-0x2
0482 e5ff | | Load 0x2,-0x1
0483 8228 | ( | Call 0x1,0x28
0484 0e14 | | Execute_Immediate Not_Equal,0x14
0485 6830 |h0 | Jump_Zero 0x4b6
0486 0092 06df | | Action Push_String_Extended,0x6df ; "Lexeme kind: "
0488 e216 | | Load 0x1,0x16
0489 e005 | | Load 0x0,0x5
048a 011c | | Execute Any,Convert_Unchecked
048b 1c01 | | Execute_Immediate Run_Utility,0x1
048c 8224 | $ | Call 0x1,0x24
048d 01cc | | Execute Vector,Catenate
048e 0092 06e0 | | Action Push_String_Extended,0x6e0 ; " {"
0490 01cc | | Execute Vector,Catenate
0491 4a00 |J | Short_Literal 0x200
0492 4801 |H | Short_Literal 0x1
0493 e217 | | Load 0x1,0x17
0494 800e | | Call 0x0,0xe
0495 00d8 | | Load_Top At_Offset_0
0496 01da | | Execute Vector,Bounds
0497 00e9 | | Load_Encached String_Cache
0498 0334 | 4 | Declare_Variable Array,With_Constraint
0499 00d0 | | Action Swap_Control
049a 00d8 | | Load_Top At_Offset_0
049b 01dd | | Execute Vector,First
049c 00da | | Load_Top At_Offset_2
049d 01dd | | Execute Vector,First
049e 0272 | r | Execute Discrete,Minus
049f 00da | | Load_Top At_Offset_2
04a0 01d9 | | Execute Vector,Reverse_Bounds
04a1 0263 | c | Execute Discrete,Above_Bound
04a2 700a |p | Jump_Nonzero 0x4ad
04a3 00d8 | | Load_Top At_Offset_0
04a4 00db | | Load_Top At_Offset_3
04a5 0273 | s | Execute Discrete,Plus
04a6 e409 | | Load 0x2,0x9
04a7 01d7 | | Execute Vector,Field_Read
04a8 00d9 | | Load_Top At_Offset_1
04a9 e408 | | Load 0x2,0x8
04aa 01d5 | | Execute Vector,Field_Reference
04ab 0118 | | Execute Any,Write_Unchecked
04ac 3ff6 |? | Loop_Increasing 0x4a3
04ad 00d2 | | Pop_Control Pop_Count_2
04ae 01cc | | Execute Vector,Catenate
04af 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "}"
04b1 01cc | | Execute Vector,Catenate
04b2 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "IF <EXPR> THEN was followed by something other than a comment?"
04b4 8223 | # | Call 0x1,0x23
04b5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04b6 0008 | | Action Idle
04b7 00cf | | Action Mark_Auxiliary
04b8 783e |x> | Jump 0x4f7
04b9 8227 | ' | Call 0x1,0x27
04ba a402 | | Store_Unchecked 0x2,0x2
04bb e402 | | Load 0x2,0x2
04bc 0f01 | | Execute_Immediate Equal,0x1
04bd 6804 |h | Jump_Zero 0x4c2
04be e210 | | Load 0x1,0x10
04bf e5fe | | Load 0x2,-0x2
04c0 8226 | & | Call 0x1,0x26
04c1 7838 |x8 | Jump 0x4fa
04c2 e402 | | Load 0x2,0x2
04c3 0f02 | | Execute_Immediate Equal,0x2
04c4 6827 |h' | Jump_Zero 0x4ec
04c5 00da | | Load_Top At_Offset_2
04c6 6804 |h | Jump_Zero 0x4cb
04c7 e210 | | Load 0x1,0x10
04c8 e5fe | | Load 0x2,-0x2
04c9 8226 | & | Call 0x1,0x26
04ca 782b |x+ | Jump 0x4f6
04cb e210 | | Load 0x1,0x10
04cc 0227 | ' | Execute Access,All_Reference
04cd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04ce e212 | | Load 0x1,0x12
04cf 0227 | ' | Execute Access,All_Reference
04d0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04d1 0272 | r | Execute Discrete,Minus
04d2 0a01 | | Execute_Immediate Plus,0x1
04d3 005a | Z | Store_Top Discrete,At_Offset_2
04d4 00d9 | | Load_Top At_Offset_1
04d5 0c06 | | Execute_Immediate Greater_Equal,0x6
04d6 6811 |h | Jump_Zero 0x4e8
04d7 e210 | | Load 0x1,0x10
04d8 0227 | ' | Execute Access,All_Reference
04d9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04da e212 | | Load 0x1,0x12
04db 0227 | ' | Execute Access,All_Reference
04dc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04dd 0272 | r | Execute Discrete,Minus
04de 0afc | | Execute_Immediate Plus,-0x4
04df 00d8 | | Load_Top At_Offset_0
04e0 e00a | | Load 0x0,0xa
04e1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04e2 0260 | ` | Execute Discrete,In_Type
04e3 7001 |p | Jump_Nonzero 0x4e5
04e4 0801 | | Execute_Immediate Raise,0x1
04e5 e5fe | | Load 0x2,-0x2
04e6 e00a | | Load 0x0,0xa
04e7 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
04e8 e212 | | Load 0x1,0x12
04e9 e5fe | | Load 0x2,-0x2
04ea 8226 | & | Call 0x1,0x26
04eb 780a |x | Jump 0x4f6
04ec 00da | | Load_Top At_Offset_2
04ed 6805 |h | Jump_Zero 0x4f3
04ee 0092 06f2 | | Action Push_String_Extended,0x6f2 ; "--// "
04f0 e5fe | | Load 0x2,-0x2
04f1 e00a | | Load 0x0,0xa
04f2 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
04f3 e210 | | Load 0x1,0x10
04f4 e5fe | | Load 0x2,-0x2
04f5 8226 | & | Call 0x1,0x26
04f6 00c9 | | Action Pop_Auxiliary_Loop
04f7 e5ff | | Load 0x2,-0x1
04f8 8225 | % | Call 0x1,0x25
04f9 6fbf |o | Jump_Zero 0x4b9
04fa 00ce | | Action Pop_Auxiliary
04fb 4801 |H | Short_Literal 0x1
04fc e5fe | | Load 0x2,-0x2
04fd e5ff | | Load 0x2,-0x1
04fe 8228 | ( | Call 0x1,0x28
04ff 4614 |F | Jump_Case 0x15
0500 78c8 |x | Jump 0x5c9 ; case 0x0
0501 78c7 |x | Jump 0x5c9 ; case 0x1
0502 7813 |x | Jump 0x516 ; case 0x2
0503 7818 |x | Jump 0x51c ; case 0x3
0504 7859 |xY | Jump 0x55e ; case 0x4
0505 78c3 |x | Jump 0x5c9 ; case 0x5
0506 78c2 |x | Jump 0x5c9 ; case 0x6
0507 78c1 |x | Jump 0x5c9 ; case 0x7
0508 78c0 |x | Jump 0x5c9 ; case 0x8
0509 78bf |x | Jump 0x5c9 ; case 0x9
050a 78be |x | Jump 0x5c9 ; case 0xa
050b 78bd |x | Jump 0x5c9 ; case 0xb
050c 78bc |x | Jump 0x5c9 ; case 0xc
050d 78bb |x | Jump 0x5c9 ; case 0xd
050e 78ba |x | Jump 0x5c9 ; case 0xe
050f 78b9 |x | Jump 0x5c9 ; case 0xf
0510 78b8 |x | Jump 0x5c9 ; case 0x10
0511 78b7 |x | Jump 0x5c9 ; case 0x11
0512 78b6 |x | Jump 0x5c9 ; case 0x12
0513 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x13
0514 7fa1 | | Jump 0x4b6 ; case 0x14
0515 7fa0 | | .XXX[0x1]
0516 00d9 | | Load_Top At_Offset_1
0517 7735 |w5 | Jump_Nonzero BODY_0440
0518 e21f | | Load 0x1,0x1f
0519 0f00 | | Execute_Immediate Equal,0x0
051a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
051b 7f31 | 1 | Jump BODY_0440
051c 4801 |H | Short_Literal 0x1
051d e5fe | | Load 0x2,-0x2
051e e5ff | | Load 0x2,-0x1
051f 8228 | ( | Call 0x1,0x28
0520 0e14 | | Execute_Immediate Not_Equal,0x14
0521 682f |h/ | Jump_Zero 0x551
0522 0092 06df | | Action Push_String_Extended,0x6df ; "Lexeme kind: "
0524 e216 | | Load 0x1,0x16
0525 e005 | | Load 0x0,0x5
0526 011c | | Execute Any,Convert_Unchecked
0527 1c01 | | Execute_Immediate Run_Utility,0x1
0528 8224 | $ | Call 0x1,0x24
0529 01cc | | Execute Vector,Catenate
052a 0092 06e0 | | Action Push_String_Extended,0x6e0 ; " {"
052c 01cc | | Execute Vector,Catenate
052d 4a00 |J | Short_Literal 0x200
052e 4801 |H | Short_Literal 0x1
052f e217 | | Load 0x1,0x17
0530 800e | | Call 0x0,0xe
0531 00d8 | | Load_Top At_Offset_0
0532 01da | | Execute Vector,Bounds
0533 00e9 | | Load_Encached String_Cache
0534 0334 | 4 | Declare_Variable Array,With_Constraint
0535 00d0 | | Action Swap_Control
0536 00d8 | | Load_Top At_Offset_0
0537 01dd | | Execute Vector,First
0538 00da | | Load_Top At_Offset_2
0539 01dd | | Execute Vector,First
053a 0272 | r | Execute Discrete,Minus
053b 00da | | Load_Top At_Offset_2
053c 01d9 | | Execute Vector,Reverse_Bounds
053d 0263 | c | Execute Discrete,Above_Bound
053e 700a |p | Jump_Nonzero 0x549
053f 00d8 | | Load_Top At_Offset_0
0540 00db | | Load_Top At_Offset_3
0541 0273 | s | Execute Discrete,Plus
0542 e409 | | Load 0x2,0x9
0543 01d7 | | Execute Vector,Field_Read
0544 00d9 | | Load_Top At_Offset_1
0545 e408 | | Load 0x2,0x8
0546 01d5 | | Execute Vector,Field_Reference
0547 0118 | | Execute Any,Write_Unchecked
0548 3ff6 |? | Loop_Increasing 0x53f
0549 00d2 | | Pop_Control Pop_Count_2
054a 01cc | | Execute Vector,Catenate
054b 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "}"
054d 01cc | | Execute Vector,Catenate
054e 0092 06f3 | | Action Push_String_Extended,0x6f3 ; "While processing an IF; ELSE was followed by"
0550 8223 | # | Call 0x1,0x23
0551 00da | | Load_Top At_Offset_2
0552 6804 |h | Jump_Zero 0x557
0553 e21f | | Load 0x1,0x1f
0554 0f00 | | Execute_Immediate Equal,0x0
0555 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0556 7f5f | _ | Jump 0x4b6
0557 00d9 | | Load_Top At_Offset_1
0558 0f00 | | Execute_Immediate Equal,0x0
0559 e21f | | Load 0x1,0x1f
055a 0f00 | | Execute_Immediate Equal,0x0
055b 0279 | y | Execute Discrete,And
055c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
055d 7f58 | X | Jump 0x4b6
055e 4800 |H | Short_Literal 0x0
055f e5fe | | Load 0x2,-0x2
0560 e5ff | | Load 0x2,-0x1
0561 8228 | ( | Call 0x1,0x28
0562 6830 |h0 | Jump_Zero 0x593
0563 0092 06df | | Action Push_String_Extended,0x6df ; "Lexeme kind: "
0565 e216 | | Load 0x1,0x16
0566 e005 | | Load 0x0,0x5
0567 011c | | Execute Any,Convert_Unchecked
0568 1c01 | | Execute_Immediate Run_Utility,0x1
0569 8224 | $ | Call 0x1,0x24
056a 01cc | | Execute Vector,Catenate
056b 0092 06e0 | | Action Push_String_Extended,0x6e0 ; " {"
056d 01cc | | Execute Vector,Catenate
056e 4a00 |J | Short_Literal 0x200
056f 4801 |H | Short_Literal 0x1
0570 e217 | | Load 0x1,0x17
0571 800e | | Call 0x0,0xe
0572 00d8 | | Load_Top At_Offset_0
0573 01da | | Execute Vector,Bounds
0574 00e9 | | Load_Encached String_Cache
0575 0334 | 4 | Declare_Variable Array,With_Constraint
0576 00d0 | | Action Swap_Control
0577 00d8 | | Load_Top At_Offset_0
0578 01dd | | Execute Vector,First
0579 00da | | Load_Top At_Offset_2
057a 01dd | | Execute Vector,First
057b 0272 | r | Execute Discrete,Minus
057c 00da | | Load_Top At_Offset_2
057d 01d9 | | Execute Vector,Reverse_Bounds
057e 0263 | c | Execute Discrete,Above_Bound
057f 700a |p | Jump_Nonzero 0x58a
0580 00d8 | | Load_Top At_Offset_0
0581 00db | | Load_Top At_Offset_3
0582 0273 | s | Execute Discrete,Plus
0583 e409 | | Load 0x2,0x9
0584 01d7 | | Execute Vector,Field_Read
0585 00d9 | | Load_Top At_Offset_1
0586 e408 | | Load 0x2,0x8
0587 01d5 | | Execute Vector,Field_Reference
0588 0118 | | Execute Any,Write_Unchecked
0589 3ff6 |? | Loop_Increasing 0x580
058a 00d2 | | Pop_Control Pop_Count_2
058b 01cc | | Execute Vector,Catenate
058c 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "}"
058e 01cc | | Execute Vector,Catenate
058f 0092 06f4 | | Action Push_String_Extended,0x6f4 ; "While processing an IF; END was not followed by IF."
0591 8223 | # | Call 0x1,0x23
0592 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0593 4800 |H | Short_Literal 0x0
0594 e5fe | | Load 0x2,-0x2
0595 e5ff | | Load 0x2,-0x1
0596 8228 | ( | Call 0x1,0x28
0597 0e10 | | Execute_Immediate Not_Equal,0x10
0598 682f |h/ | Jump_Zero 0x5c8
0599 0092 06df | | Action Push_String_Extended,0x6df ; "Lexeme kind: "
059b e216 | | Load 0x1,0x16
059c e005 | | Load 0x0,0x5
059d 011c | | Execute Any,Convert_Unchecked
059e 1c01 | | Execute_Immediate Run_Utility,0x1
059f 8224 | $ | Call 0x1,0x24
05a0 01cc | | Execute Vector,Catenate
05a1 0092 06e0 | | Action Push_String_Extended,0x6e0 ; " {"
05a3 01cc | | Execute Vector,Catenate
05a4 4a00 |J | Short_Literal 0x200
05a5 4801 |H | Short_Literal 0x1
05a6 e217 | | Load 0x1,0x17
05a7 800e | | Call 0x0,0xe
05a8 00d8 | | Load_Top At_Offset_0
05a9 01da | | Execute Vector,Bounds
05aa 00e9 | | Load_Encached String_Cache
05ab 0334 | 4 | Declare_Variable Array,With_Constraint
05ac 00d0 | | Action Swap_Control
05ad 00d8 | | Load_Top At_Offset_0
05ae 01dd | | Execute Vector,First
05af 00da | | Load_Top At_Offset_2
05b0 01dd | | Execute Vector,First
05b1 0272 | r | Execute Discrete,Minus
05b2 00da | | Load_Top At_Offset_2
05b3 01d9 | | Execute Vector,Reverse_Bounds
05b4 0263 | c | Execute Discrete,Above_Bound
05b5 700a |p | Jump_Nonzero 0x5c0
05b6 00d8 | | Load_Top At_Offset_0
05b7 00db | | Load_Top At_Offset_3
05b8 0273 | s | Execute Discrete,Plus
05b9 e409 | | Load 0x2,0x9
05ba 01d7 | | Execute Vector,Field_Read
05bb 00d9 | | Load_Top At_Offset_1
05bc e408 | | Load 0x2,0x8
05bd 01d5 | | Execute Vector,Field_Reference
05be 0118 | | Execute Any,Write_Unchecked
05bf 3ff6 |? | Loop_Increasing 0x5b6
05c0 00d2 | | Pop_Control Pop_Count_2
05c1 01cc | | Execute Vector,Catenate
05c2 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "}"
05c4 01cc | | Execute Vector,Catenate
05c5 0092 06f5 | | Action Push_String_Extended,0x6f5 ; "While processing an IF; END IF was not followed by ;."
05c7 8223 | # | Call 0x1,0x23
05c8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05c9 00d9 | | Load_Top At_Offset_1
05ca e5fe | | Load 0x2,-0x2
05cb e5ff | | Load 0x2,-0x1
05cc 8220 | | Call 0x1,0x20
05cd 7ee8 |~ | Jump 0x4b6
05ce 0000 0000 | | .XXX[0x2]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 00cf | | Action Mark_Auxiliary
05d4 781d |x | Jump 0x5f2
05d5 e210 | | Load 0x1,0x10
05d6 e5fe | | Load 0x2,-0x2
05d7 8226 | & | Call 0x1,0x26
05d8 8227 | ' | Call 0x1,0x27
05d9 0b00 | | Execute_Immediate Case_Compare,0x0
05da 7006 |p | Jump_Nonzero 0x5e1
05db 0f01 | | Execute_Immediate Equal,0x1
05dc 7007 |p | Jump_Nonzero 0x5e4
05dd 0092 06f6 | | Action Push_String_Extended,0x6f6 ; "Unexpected --// found outside of controlled context."
05df 800f | | Call 0x0,0xf
05e0 7810 |x | Jump 0x5f1
05e1 00d1 | | Pop_Control Pop_Count_1
05e2 0008 | | Action Idle
05e3 780d |x | Jump 0x5f1
05e4 4801 |H | Short_Literal 0x1
05e5 e5fe | | Load 0x2,-0x2
05e6 e5ff | | Load 0x2,-0x1
05e7 8228 | ( | Call 0x1,0x28
05e8 0e13 | | Execute_Immediate Not_Equal,0x13
05e9 6807 |h | Jump_Zero 0x5f1
05ea e216 | | Load 0x1,0x16
05eb 0e14 | | Execute_Immediate Not_Equal,0x14
05ec 6804 |h | Jump_Zero 0x5f1
05ed 4800 |H | Short_Literal 0x0
05ee e5fe | | Load 0x2,-0x2
05ef e5ff | | Load 0x2,-0x1
05f0 8220 | | Call 0x1,0x20
05f1 00c9 | | Action Pop_Auxiliary_Loop
05f2 00db | | Load_Top At_Offset_3
05f3 8225 | % | Call 0x1,0x25
05f4 6fe0 |o | Jump_Zero 0x5d5
05f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05f6 0000 0000 | | .XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0603 | | .CONST 0x0603 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb e402 | | Load 0x2,0x2
05fc 00ea | | Load_Encached Null_String_Cache
05fd e5ff | | Load 0x2,-0x1
05fe 4800 |H | Short_Literal 0x0
05ff e00a | | Load 0x0,0xa
0600 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0601 c402 | | Store 0x2,0x2
0602 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0603 TRAP_05f8:
0603 00d8 | | Load_Top At_Offset_0
0604 0107 | | Execute Exception,Get_Name
0605 4920 |I | Short_Literal 0x120
0606 492f |I/ | Short_Literal 0x12f
0607 0262 | b | Execute Discrete,In_Range
0608 680a |h | Jump_Zero 0x613
0609 0092 06f7 | | Action Push_String_Extended,0x6f7 ; "Input file "
060b e5ff | | Load 0x2,-0x1
060c 01cc | | Execute Vector,Catenate
060d 0092 06f8 | | Action Push_String_Extended,0x6f8 ; " not found?"
060f 01cc | | Execute Vector,Catenate
0610 800f | | Call 0x0,0xf
0611 00d8 | | Load_Top At_Offset_0
0612 0101 | | Execute Exception,Reraise
0613 0092 06f9 | | Action Push_String_Extended,0x6f9 ; "Unexpected exception when opening input file "
0615 e5ff | | Load 0x2,-0x1
0616 01cc | | Execute Vector,Catenate
0617 800f | | Call 0x0,0xf
0618 00d8 | | Load_Top At_Offset_0
0619 0101 | | Execute Exception,Reraise
061a 0000 0000 | | .BLANK 0000[0x6]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0625 | % | .CONST 0x0625 ; Address of begin
0621 062d | - | .CONST 0x062d ; Address of exception handler
0622 0002 | | .CONST 0x0002 ; Number of locals
0623 INIT_0620:
0623 029f 06cb | | Declare_Subprogram INIT_06c8,For_Call
0625 BODY_0620:
0625 e403 | | Load 0x2,0x3
0626 00ea | | Load_Encached Null_String_Cache
0627 e5fe | | Load 0x2,-0x2
0628 4801 |H | Short_Literal 0x1
0629 e00a | | Load 0x0,0xa
062a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
062b c403 | | Store 0x2,0x3
062c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
062d TRAP_0620:
062d 0007 | | Action Break_Optional
062e 8602 | | Call 0x3,0x2
062f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0635 | 5 | .CONST 0x0635 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0002 | | .CONST 0x0002 ; Number of locals
0633 INIT_0630:
0633 e004 | | Load 0x0,0x4
0634 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0635 BODY_0630:
0635 00cf | | Action Mark_Auxiliary
0636 7838 |x8 | Jump 0x66f
0637 00d9 | | Load_Top At_Offset_1
0638 e5fe | | Load 0x2,-0x2
0639 0227 | ' | Execute Access,All_Reference
063a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
063b 01d7 | | Execute Vector,Field_Read
063c 0f2d | - | Execute_Immediate Equal,0x2d
063d 680f |h | Jump_Zero 0x64d
063e 00d9 | | Load_Top At_Offset_1
063f e5fe | | Load 0x2,-0x2
0640 0227 | ' | Execute Access,All_Reference
0641 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0642 027c | | | Execute Discrete,Less
0643 6827 |h' | Jump_Zero 0x66b
0644 00d9 | | Load_Top At_Offset_1
0645 0a01 | | Execute_Immediate Plus,0x1
0646 e5fe | | Load 0x2,-0x2
0647 0227 | ' | Execute Access,All_Reference
0648 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0649 01d7 | | Execute Vector,Field_Read
064a 0f2d | - | Execute_Immediate Equal,0x2d
064b 681f |h | Jump_Zero 0x66b
064c 7828 |x( | Jump 0x675
064d 00d9 | | Load_Top At_Offset_1
064e e5fe | | Load 0x2,-0x2
064f 0227 | ' | Execute Access,All_Reference
0650 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0651 01d7 | | Execute Vector,Field_Read
0652 0f22 | " | Execute_Immediate Equal,0x22
0653 6817 |h | Jump_Zero 0x66b
0654 00d9 | | Load_Top At_Offset_1
0655 0a01 | | Execute_Immediate Plus,0x1
0656 005a | Z | Store_Top Discrete,At_Offset_2
0657 00cf | | Action Mark_Auxiliary
0658 7804 |x | Jump 0x65d
0659 00da | | Load_Top At_Offset_2
065a 0a01 | | Execute_Immediate Plus,0x1
065b 005b | [ | Store_Top Discrete,At_Offset_3
065c 00c9 | | Action Pop_Auxiliary_Loop
065d 00da | | Load_Top At_Offset_2
065e e5fe | | Load 0x2,-0x2
065f 0227 | ' | Execute Access,All_Reference
0660 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0661 027a | z | Execute Discrete,Less_Equal
0662 6807 |h | Jump_Zero 0x66a
0663 00da | | Load_Top At_Offset_2
0664 e5fe | | Load 0x2,-0x2
0665 0227 | ' | Execute Access,All_Reference
0666 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0667 01d7 | | Execute Vector,Field_Read
0668 0e22 | " | Execute_Immediate Not_Equal,0x22
0669 77ef |w | Jump_Nonzero 0x659
066a 00ce | | Action Pop_Auxiliary
066b 00d9 | | Load_Top At_Offset_1
066c 0a01 | | Execute_Immediate Plus,0x1
066d 005a | Z | Store_Top Discrete,At_Offset_2
066e 00c9 | | Action Pop_Auxiliary_Loop
066f 00d9 | | Load_Top At_Offset_1
0670 e5fe | | Load 0x2,-0x2
0671 0227 | ' | Execute Access,All_Reference
0672 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0673 027a | z | Execute Discrete,Less_Equal
0674 77c2 |w | Jump_Nonzero 0x637
0675 00ce | | Action Pop_Auxiliary
0676 00d8 | | Load_Top At_Offset_0
0677 e5fe | | Load 0x2,-0x2
0678 0227 | ' | Execute Access,All_Reference
0679 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
067a 027d | } | Execute Discrete,Greater
067b 6805 |h | Jump_Zero 0x681
067c 0092 06fa | | Action Push_String_Extended,0x6fa ; "--"
067e e5ff | | Load 0x2,-0x1
067f e00a | | Load 0x0,0xa
0680 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0681 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0682 0000 0000 | | .BLANK 0000[0x6]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b e402 | | Load 0x2,0x2
068c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
068d 0e01 | | Execute_Immediate Not_Equal,0x1
068e 680a |h | Jump_Zero 0x699
068f 0092 06fb | | Action Push_String_Extended,0x6fb ; "1st argument to "
0691 00db | | Load_Top At_Offset_3
0692 01cc | | Execute Vector,Catenate
0693 0092 06fc | | Action Push_String_Extended,0x6fc ; " was not a boolean value?"
0695 01cc | | Execute Vector,Catenate
0696 8222 | " | Call 0x1,0x22
0697 4801 |H | Short_Literal 0x1
0698 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0699 e219 | | Load 0x1,0x19
069a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
069b 0e01 | | Execute_Immediate Not_Equal,0x1
069c 680a |h | Jump_Zero 0x6a7
069d 0092 06fd | | Action Push_String_Extended,0x6fd ; "2nd argument to "
069f 00db | | Load_Top At_Offset_3
06a0 01cc | | Execute Vector,Catenate
06a1 0092 06fc | | Action Push_String_Extended,0x6fc ; " was not a boolean value?"
06a3 01cc | | Execute Vector,Catenate
06a4 8222 | " | Call 0x1,0x22
06a5 4801 |H | Short_Literal 0x1
06a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06a7 4800 |H | Short_Literal 0x0
06a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06a9 0000 0000 | | .BLANK 0000[0x7]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 e402 | | Load 0x2,0x2
06b4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06b5 e219 | | Load 0x1,0x19
06b6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06b7 027e | ~ | Execute Discrete,Not_Equal
06b8 680a |h | Jump_Zero 0x6c3
06b9 0092 06fe | | Action Push_String_Extended,0x6fe ; "Arguments to "
06bb 00db | | Load_Top At_Offset_3
06bc 01cc | | Execute Vector,Catenate
06bd 0092 06ff | | Action Push_String_Extended,0x6ff ; " are not the same type?"
06bf 01cc | | Execute Vector,Catenate
06c0 8222 | " | Call 0x1,0x22
06c1 4801 |H | Short_Literal 0x1
06c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c3 4800 |H | Short_Literal 0x0
06c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c5 0000 0000 | | .XXX[0x3]
06c7 0000 | |
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb | | .CONST 0x06cb ; Address of begin
06c9 06d3 | | .CONST 0x06d3 ; Address of exception handler
06ca 0001 | | .CONST 0x0001 ; Number of locals
06cb BODY_06c8:
06cb INIT_06c8:
06cb e403 | | Load 0x2,0x3
06cc 00ea | | Load_Encached Null_String_Cache
06cd e5fe | | Load 0x2,-0x2
06ce 4801 |H | Short_Literal 0x1
06cf e00a | | Load 0x0,0xa
06d0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06d1 c403 | | Store 0x2,0x3
06d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06d3 TRAP_06c8:
06d3 0007 | | Action Break_Optional
06d4 e402 | | Load 0x2,0x2
06d5 e00a | | Load 0x0,0xa
06d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06d7 c402 | | Store 0x2,0x2
06d8 0092 0700 | | Action Push_String_Extended,0x700 ; "Unexpected exception when opening output file "
06da e5fe | | Load 0x2,-0x2
06db 01cc | | Execute Vector,Catenate
06dc 800f | | Call 0x0,0xf
06dd 00d8 | | Load_Top At_Offset_0
06de 0101 | | Execute Exception,Reraise
06df ; --------------------------------------------------------------------------------------
06df ; STRING TABLE
06df ; --------------------------------------------------------------------------------------
06df 0046 | F | .STRTAB 0x0046->0x0702 ; "Lexeme kind: "
06e0 0051 | Q | .STRTAB 0x0051->0x0708 ; " {"
06e1 0051 | Q | .STRTAB 0x0051->0x0709 ; "}"
06e2 0050 | P | .STRTAB 0x0050->0x070a ; "Unexpected control token found."
06e3 006d | m | .STRTAB 0x006d->0x0719 ; "Line:"
06e4 0070 | p | .STRTAB 0x0070->0x071c ; "<!EOP!>"
06e5 0075 | u | .STRTAB 0x0075->0x071f ; "Ran into End-of-File while reading control tokens."
06e6 00a5 | | .STRTAB 0x00a5->0x0738 ; "This line is not a control line continuation of previous line."
06e7 00e1 | | .STRTAB 0x00e1->0x0757 ; "Found unexpected lexeme while parsing expression."
06e8 0110 | | .STRTAB 0x0110->0x0770 ; "Argument to NOT operator was not a boolean value?"
06e9 013f | ? | .STRTAB 0x013f->0x0788 ; "Internal error: unknown binary operator?"
06ea 0165 | e | .STRTAB 0x0165->0x079c ; "AND"
06eb 0166 | f | .STRTAB 0x0166->0x079e ; "OR"
06ec 0166 | f | .STRTAB 0x0166->0x079f ; "XOR"
06ed 0167 | g | .STRTAB 0x0167->0x07a0 ; "="
06ee 0166 | f | .STRTAB 0x0166->0x07a1 ; "Expression kind : "
06ef 0176 | v | .STRTAB 0x0176->0x07aa ; "IF control expression was not boolean?"
06f0 019a | | .STRTAB 0x019a->0x07bd ; "IF <EXPR> was not followed by a THEN?"
06f1 01bd | | .STRTAB 0x01bd->0x07cf ; "IF <EXPR> THEN was followed by something other than a comment?"
06f2 01f9 | | .STRTAB 0x01f9->0x07ee ; "--// "
06f3 01fc | | .STRTAB 0x01fc->0x07f1 ; "While processing an IF; ELSE was followed by"
06f4 0226 | & | .STRTAB 0x0226->0x0807 ; "While processing an IF; END was not followed by IF."
06f5 0257 | W | .STRTAB 0x0257->0x0820 ; "While processing an IF; END IF was not followed by ;."
06f6 028a | | .STRTAB 0x028a->0x083b ; "Unexpected --// found outside of controlled context."
06f7 02bc | | .STRTAB 0x02bc->0x0855 ; "Input file "
06f8 02c5 | | .STRTAB 0x02c5->0x085a ; " not found?"
06f9 02ce | | .STRTAB 0x02ce->0x0860 ; "Unexpected exception when opening input file "
06fa 02f9 | | .STRTAB 0x02f9->0x0876 ; "--"
06fb 02f9 | | .STRTAB 0x02f9->0x0877 ; "1st argument to "
06fc 0307 | | .STRTAB 0x0307->0x087f ; " was not a boolean value?"
06fd 031e | | .STRTAB 0x031e->0x088c ; "2nd argument to "
06fe 032c | , | .STRTAB 0x032c->0x0894 ; "Arguments to "
06ff 0337 | 7 | .STRTAB 0x0337->0x089a ; " are not the same type?"
0700 034c | L | .STRTAB 0x034c->0x08a6 ; "Unexpected exception when opening output file "
0701 0378 | x | .STREND 0x0378->0x08bd
0702 4c65 7865 |Lexe| .STRTAB_STRINGS
08bd 0000 0000 | | .XXX[0x3]
08bf 0000 | |
08c0 ; --------------------------------------------------------------------------------------
08c0 ; Debug Table
08c0 ; --------------------------------------------------------------------------------------
08c0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4d20,0x0000,0x0001,0x0017
08c6 000b 0922 | "| .DBG4T 0x000b,0x0922,0x8000,0x0000
08ca 0016 0928 | (| .DBG4T 0x0016,0x0928,0x8000,0x0000
08ce 00cb 094c | L| .DBG4T 0x00cb,0x094c,0x0001,0x0000
08d2 0123 0961 | # a| .DBG4T 0x0123,0x0961,0x0001,0x0000
08d6 0133 0967 | 3 g| .DBG4T 0x0133,0x0967,0x0001,0x4000
08da 0173 0973 | s s| .DBG4T 0x0173,0x0973,0x0002,0x0000
08de 0193 097c | || .DBG4T 0x0193,0x097c,0x0001,0x0000
08e2 01a3 0980 | | .DBG4T 0x01a3,0x0980,0x0001,0x0000
08e6 01b3 0985 | | .DBG4T 0x01b3,0x0985,0x0002,0x0000
08ea 01c3 0988 | | .DBG4T 0x01c3,0x0988,0x0002,0x0000
08ee 022b 0998 | + | .DBG4T 0x022b,0x0998,0x0001,0x0000
08f2 024b 09a1 | K | .DBG4T 0x024b,0x09a1,0x0002,0x0000
08f6 02a3 09af | | .DBG4T 0x02a3,0x09af,0x0002,0x0000
08fa 02d3 09be | | .DBG4T 0x02d3,0x09be,0x0002,0x4000
08fe 0363 09ea | c | .DBG4T 0x0363,0x09ea,0x0002,0x4000
0902 0443 0a2d | C -| .DBG4T 0x0443,0x0a2d,0x0001,0x4000
0906 05d3 0a96 | | .DBG4T 0x05d3,0x0a96,0x0001,0x4000
090a 05fb 0aa6 | | .DBG4T 0x05fb,0x0aa6,0x0004,0x0000
090e 0623 0aad | # | .DBG4T 0x0623,0x0aad,0x0004,0x0000
0912 0633 0ab1 | 3 | .DBG4T 0x0633,0x0ab1,0x0004,0x4000
0916 068b 0aca | | .DBG4T 0x068b,0x0aca,0x0002,0x0000
091a 06b3 0ad3 | | .DBG4T 0x06b3,0x0ad3,0x0002,0x0000
091e 06cb 0ad9 | | .DBG4T 0x06cb,0x0ad9,0x0004,0x0000
0922 ; --------------------------------------------------------------------------------------
0922 ; Debug chain
0922 ; --------------------------------------------------------------------------------------
0922 0004 0000 | | .DBGLEN 0x0004,0x0000
0924 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0011,0x0013
0928 ; --------------------------------------------------------------------------------------
0928 ; Debug chain
0928 ; --------------------------------------------------------------------------------------
0928 0021 0001 | ! | .DBGLEN 0x0021,0x0001
092a 0016 001a | | .DBGLNO 0x0016,0x001a,0x001b,0x001f,0x0021,0x0023,0x0025,0x0027,0x002b,0x002f,0x0033,0x0035,0x003b,0x005a,0x0060,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3
094c ; --------------------------------------------------------------------------------------
094c ; Debug chain
094c ; --------------------------------------------------------------------------------------
094c 0004 000f | | .DBGLEN 0x0004,0x000f
094e 00cb 00d0 | | .DBGLNO 0x00cb,0x00d0,0x00d5,0x00d9,0x00df,0x00ea,0x00ec,0x00ef,0x00f2,0x00f3,0x00f4,0x00f6,0x00f9,0x00fb,0x00fd,0x0101,0x0107,0x010b,0x010f
0961 ; --------------------------------------------------------------------------------------
0961 ; Debug chain
0961 ; --------------------------------------------------------------------------------------
0961 0000 0004 | | .DBGLEN 0x0000,0x0004
0963 0123 0125 | # %| .DBGLNO 0x0123,0x0125,0x0128,0x012a
0967 ; --------------------------------------------------------------------------------------
0967 ; Debug chain
0967 ; --------------------------------------------------------------------------------------
0967 0000 0005 | | .DBGLEN 0x0000,0x0005
0969 0133 0135 | 3 5| .DBGLNO 0x0133,0x0135,0x0164,0x0165,0x0169
096e 0001 0004 | | .XXX[0x5]
0970 0005 0002 | |
0972 0003 | |
0973 ; --------------------------------------------------------------------------------------
0973 ; Debug chain
0973 ; --------------------------------------------------------------------------------------
0973 0000 0007 | | .DBGLEN 0x0000,0x0007
0975 0173 0177 | s w| .DBGLNO 0x0173,0x0177,0x017a,0x017b,0x017f,0x0181,0x0186
097c ; --------------------------------------------------------------------------------------
097c ; Debug chain
097c ; --------------------------------------------------------------------------------------
097c 0000 0002 | | .DBGLEN 0x0000,0x0002
097e 0193 019a | | .DBGLNO 0x0193,0x019a
0980 ; --------------------------------------------------------------------------------------
0980 ; Debug chain
0980 ; --------------------------------------------------------------------------------------
0980 0000 0003 | | .DBGLEN 0x0000,0x0003
0982 01a3 01aa | | .DBGLNO 0x01a3,0x01aa,0x01ac
0985 ; --------------------------------------------------------------------------------------
0985 ; Debug chain
0985 ; --------------------------------------------------------------------------------------
0985 0000 0001 | | .DBGLEN 0x0000,0x0001
0987 01b3 | | .DBGLNO 0x01b3
0988 ; --------------------------------------------------------------------------------------
0988 ; Debug chain
0988 ; --------------------------------------------------------------------------------------
0988 0003 000b | | .DBGLEN 0x0003,0x000b
098a 01c3 01c4 | | .DBGLNO 0x01c3,0x01c4,0x01c5,0x01c6,0x01c9,0x01d4,0x01da,0x01dc,0x01e3,0x01e7,0x01ec,0x0205,0x020e,0x0217
0998 ; --------------------------------------------------------------------------------------
0998 ; Debug chain
0998 ; --------------------------------------------------------------------------------------
0998 0000 0007 | | .DBGLEN 0x0000,0x0007
099a 022d 022f | - /| .DBGLNO 0x022d,0x022f,0x0233,0x0236,0x0238,0x0239,0x023e
09a1 ; --------------------------------------------------------------------------------------
09a1 ; Debug chain
09a1 ; --------------------------------------------------------------------------------------
09a1 0001 000b | | .DBGLEN 0x0001,0x000b
09a3 024b 024c | K L| .DBGLNO 0x024b,0x024c,0x0251,0x0267,0x0269,0x0275,0x027d,0x0281,0x0283,0x028f,0x0294,0x0298
09af ; --------------------------------------------------------------------------------------
09af ; Debug chain
09af ; --------------------------------------------------------------------------------------
09af 0000 000d | | .DBGLEN 0x0000,0x000d
09b1 02a4 02a5 | | .DBGLNO 0x02a4,0x02a5,0x02ad,0x02b2,0x02b4,0x02b7,0x02ba,0x02bc,0x02be,0x02c1,0x02c4,0x02c7,0x02c9
09be ; --------------------------------------------------------------------------------------
09be ; Debug chain
09be ; --------------------------------------------------------------------------------------
09be 0000 0015 | | .DBGLEN 0x0000,0x0015
09c0 02d3 02ea | | .DBGLNO 0x02d3,0x02ea,0x0319,0x031b,0x0326,0x0328,0x032b,0x0330,0x0332,0x0337,0x033b,0x033d,0x0341,0x0344,0x0346,0x034b,0x034d,0x0352,0x0356,0x0358,0x035d
09d5 0001 0012 | | .XXX[0x15]
09d7 0013 0014 | |
09d9 0015 0002 | |
09db 0003 0004 | |
09dd 0005 0006 | |
09df 0007 0008 | |
09e1 0009 000a | |
09e3 000b 000c | |
09e5 000d 000e | |
09e7 000f 0010 | |
09e9 0011 | |
09ea ; --------------------------------------------------------------------------------------
09ea ; Debug chain
09ea ; --------------------------------------------------------------------------------------
09ea 0003 001f | | .DBGLEN 0x0003,0x001f
09ec 0363 0368 | c h| .DBGLNO 0x0363,0x0368,0x036a,0x036c,0x0371,0x037d,0x0382,0x0386,0x0388,0x0394,0x0399,0x039b,0x03b2,0x03e1,0x03e3,0x03e7,0x03e9,0x03f0,0x03f2,0x03f6,0x03f8,0x03ff,0x0401,0x0405,0x0407,0x040e,0x0410,0x0414,0x0416,0x0423,0x0425,0x0429,0x042b,0x0438
0a0e 0001 0002 | | .XXX[0x1f]
0a10 0003 0004 | |
0a12 0005 0006 | |
0a14 0007 0008 | |
0a16 0009 001e | |
0a18 001f 000a | |
0a1a 000b 000c | |
0a1c 000d 000e | |
0a1e 000f 0010 | |
0a20 0011 0012 | |
0a22 0013 0014 | |
0a24 0015 0016 | |
0a26 0017 0018 | |
0a28 0019 001a | |
0a2a 001b 001c | |
0a2c 001d | |
0a2d ; --------------------------------------------------------------------------------------
0a2d ; Debug chain
0a2d ; --------------------------------------------------------------------------------------
0a2d 0005 0031 | 1| .DBGLEN 0x0005,0x0031
0a2f 0443 0445 | C E| .DBGLNO 0x0443,0x0445,0x0447,0x044a,0x044b,0x044d,0x044f,0x0454,0x0458,0x0459,0x045d,0x0469,0x046c,0x0470,0x0479,0x047c,0x047f,0x0480,0x0486,0x04b5,0x04b6,0x04b9,0x04bb,0x04be,0x04c1,0x04c2,0x04c5,0x04c7,0x04cb,0x04d4,0x04d7,0x04e8,0x04ec,0x04ee,0x04f3,0x04f7,0x04fb,0x0515,0x0516,0x0518,0x051b,0x051c,0x0522,0x0551,0x0553,0x0557,0x055d,0x055e,0x0563,0x0593,0x0599,0x05c8,0x05c9,0x05cd
0a65 0001 0002 | | .XXX[0x31]
0a67 0003 0004 | |
0a69 0005 0006 | |
0a6b 0007 0008 | |
0a6d 0009 000a | |
0a6f 000b 000c | |
0a71 000d 000e | |
0a73 000f 0010 | |
0a75 0012 0013 | |
0a77 0014 0015 | |
0a79 0016 0017 | |
0a7b 0018 0019 | |
0a7d 001a 001b | |
0a7f 001c 001d | |
0a81 001e 001f | |
0a83 0011 0020 | |
0a85 0022 0023 | " #|
0a87 0024 0025 | $ %|
0a89 0026 0027 | & '|
0a8b 0028 0029 | ( )|
0a8d 002a 002b | * +|
0a8f 002c 002d | , -|
0a91 002e 002f | . /|
0a93 0030 0031 | 0 1|
0a95 0032 | 2 |
0a96 ; --------------------------------------------------------------------------------------
0a96 ; Debug chain
0a96 ; --------------------------------------------------------------------------------------
0a96 0000 0007 | | .DBGLEN 0x0000,0x0007
0a98 05d5 05d8 | | .DBGLNO 0x05d5,0x05d8,0x05dd,0x05e2,0x05e4,0x05ed,0x05f2
0a9f 0002 0003 | | .XXX[0x7]
0aa1 0007 0004 | |
0aa3 0005 0006 | |
0aa5 0001 | |
0aa6 ; --------------------------------------------------------------------------------------
0aa6 ; Debug chain
0aa6 ; --------------------------------------------------------------------------------------
0aa6 0000 0005 | | .DBGLEN 0x0000,0x0005
0aa8 05fb 0609 | | .DBGLNO 0x05fb,0x0609,0x0611,0x0613,0x0618
0aad ; --------------------------------------------------------------------------------------
0aad ; Debug chain
0aad ; --------------------------------------------------------------------------------------
0aad 0000 0002 | | .DBGLEN 0x0000,0x0002
0aaf 0625 062e | % .| .DBGLNO 0x0625,0x062e
0ab1 ; --------------------------------------------------------------------------------------
0ab1 ; Debug chain
0ab1 ; --------------------------------------------------------------------------------------
0ab1 0001 000b | | .DBGLEN 0x0001,0x000b
0ab3 0633 0637 | 3 7| .DBGLNO 0x0633,0x0637,0x063e,0x064c,0x064d,0x0654,0x0659,0x065d,0x066b,0x066f,0x0676,0x067c
0abf 0002 0003 | | .XXX[0xb]
0ac1 0004 0005 | |
0ac3 0006 0008 | |
0ac5 0007 0009 | |
0ac7 0001 000a | |
0ac9 000b | |
0aca ; --------------------------------------------------------------------------------------
0aca ; Debug chain
0aca ; --------------------------------------------------------------------------------------
0aca 0000 0007 | | .DBGLEN 0x0000,0x0007
0acc 068b 068f | | .DBGLNO 0x068b,0x068f,0x0697,0x0699,0x069d,0x06a5,0x06a7
0ad3 ; --------------------------------------------------------------------------------------
0ad3 ; Debug chain
0ad3 ; --------------------------------------------------------------------------------------
0ad3 0000 0004 | | .DBGLEN 0x0000,0x0004
0ad5 06b3 06b9 | | .DBGLNO 0x06b3,0x06b9,0x06c1,0x06c3
0ad9 ; --------------------------------------------------------------------------------------
0ad9 ; Debug chain
0ad9 ; --------------------------------------------------------------------------------------
0ad9 0000 0004 | | .DBGLEN 0x0000,0x0004
0adb 06cb 06d4 | | .DBGLNO 0x06cb,0x06d4,0x06d8,0x06dd
0adf 0000 0000 | | .BLANK 0000[0x121]