|
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_03c0fe
└─⟦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 0ac8 | | .CONST 0x0ac8 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0014 | | .CONST 0x0014 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0011 00c7 | | Action Elaborate_Subprogram
0012 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0013 00c7 | | Action Elaborate_Subprogram
0014 BODY_0008:
0014 00bc | | Action Signal_Activated
0015 00bb | | Action Signal_Completion
0016 0000 0000 | | .XXX[0x2]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 002c | , | .CONST 0x002c ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0009 | | .CONST 0x0009 ; Number of locals
001b INIT_0018:
001b 00e1 | | Load_Encached Boolean_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d e5fd | | Load 0x2,-0x3
001e 01dd | | Execute Vector,First
001f 00e3 | | Load_Encached Natural_Cache
0020 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0021 00e3 | | Load_Encached Natural_Cache
0022 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0024 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0026 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0028 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
002a 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
002c BODY_0018:
002c e5fd | | Load 0x2,-0x3
002d 01db | | Execute Vector,Length
002e 7003 |p | Jump_Nonzero 0x32
002f e5fd | | Load 0x2,-0x3
0030 85fe | | Call 0x2,-0x2
0031 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0032 00cf | | Action Mark_Auxiliary
0033 8408 | | Call 0x2,0x8
0034 e403 | | Load 0x2,0x3
0035 e404 | | Load 0x2,0x4
0036 027d | } | Execute Discrete,Greater
0037 7009 |p | Jump_Nonzero 0x41
0038 8409 | | Call 0x2,0x9
0039 85fe | | Call 0x2,-0x2
003a 4801 |H | Short_Literal 0x1
003b a402 | | Store_Unchecked 0x2,0x2
003c e404 | | Load 0x2,0x4
003d 0a01 | | Execute_Immediate Plus,0x1
003e c403 | | Store 0x2,0x3
003f 00c9 | | Action Pop_Auxiliary_Loop
0040 7ff2 | | Jump 0x33
0041 00ce | | Action Pop_Auxiliary
0042 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0043 0000 0000 | | .BLANK 0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 00e2 | | .CONST 0x00e2 ; Address of begin
0049 00f4 | | .CONST 0x00f4 ; Address of exception handler
004a 0028 | ( | .CONST 0x0028 ; Number of locals
004b INIT_0048:
004b 4800 |H | Short_Literal 0x0
004c 4803 |H | Short_Literal 0x3
004d 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
004f 03fd | | Declare_Type Discrete,Defined
0050 00d8 | | Load_Top At_Offset_0
0051 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0052 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
0054 00e3 | | Load_Encached Natural_Cache
0055 00e3 | | Load_Encached Natural_Cache
0056 02a0 | | Declare_Subprogram Null_Subprogram
0057 4802 |H | Short_Literal 0x2
0058 032d | - | Declare_Type Record,Defined
0059 00d8 | | Load_Top At_Offset_0
005a 0322 | " | Declare_Variable Record
005b 4801 |H | Short_Literal 0x1
005c e406 | | Load 0x2,0x6
005d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
005e 4800 |H | Short_Literal 0x0
005f e406 | | Load 0x2,0x6
0060 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0061 029f 020b | | Declare_Subprogram INIT_0208,For_Call
0063 4800 |H | Short_Literal 0x0
0064 4802 |H | Short_Literal 0x2
0065 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0067 03fd | | Declare_Type Discrete,Defined
0068 00d8 | | Load_Top At_Offset_0
0069 4803 |H | Short_Literal 0x3
006a 4800 |H | Short_Literal 0x0
006b 4801 |H | Short_Literal 0x1
006c 4807 |H | Short_Literal 0x7
006d 0318 | | Declare_Type Variant_Record,Incomplete
006e 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0070 00d9 | | Load_Top At_Offset_1
0071 012a | * | Execute Any,Change_Utility
0072 0007 | | Action Break_Optional
0073 00d8 | | Load_Top At_Offset_0
0074 02a0 | | Declare_Subprogram Null_Subprogram
0075 481c |H | Short_Literal 0x1c
0076 03d5 | | Declare_Type Access,Defined
0077 60a0 |` | Indirect_Literal Discrete,0x118,{0x00000000, 0x10000000}
0078 00d1 | | Pop_Control Pop_Count_1
0079 00d8 | | Load_Top At_Offset_0
007a 4801 |H | Short_Literal 0x1
007b e405 | | Load 0x2,0x5
007c 4802 |H | Short_Literal 0x2
007d e405 | | Load 0x2,0x5
007e 00d8 | | Load_Top At_Offset_0
007f 4802 |H | Short_Literal 0x2
0080 e405 | | Load 0x2,0x5
0081 e40a | | Load 0x2,0xa
0082 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0084 4805 |H | Short_Literal 0x5
0085 4801 |H | Short_Literal 0x1
0086 e409 | | Load 0x2,0x9
0087 0307 | | Complete_Type Variant_Record,By_Defining
0088 00d8 | | Load_Top At_Offset_0
0089 03c4 | | Complete_Type Access,By_Component_Completion
008a 608d |` | Indirect_Literal Discrete,0x118,{0x00000000, 0x10000000}
008b 00d1 | | Pop_Control Pop_Count_1
008c 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
008e 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
0090 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
0092 0093 0000 | | push_full_address 0x0
0094 607f |` | Indirect_Literal Discrete,0x114,{0x80000000, 0x00010000}
0095 0273 | s | Execute Discrete,Plus
0096 e5ff | | Load 0x2,-0x1
0097 6078 |`x | Indirect_Literal Discrete,0x110,{0x00000000, 0x0000ffff}
0098 0279 | y | Execute Discrete,And
0099 0273 | s | Execute Discrete,Plus
009a 0007 | | Action Break_Optional
009b e5fd | | Load 0x2,-0x3
009c 01dd | | Execute Vector,First
009d 00e2 | | Load_Encached Integer_Cache
009e 03f1 | | Declare_Variable Discrete,With_Value
009f 4801 |H | Short_Literal 0x1
00a0 480c |H | Short_Literal 0xc
00a1 00e2 | | Load_Encached Integer_Cache
00a2 03f8 | | Declare_Type Discrete,Constrained
00a3 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
00a5 029f 030b | | Declare_Subprogram INIT_0308,For_Call
00a7 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
00a9 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call
00ab 029f 039b | | Declare_Subprogram INIT_0398,For_Call
00ad 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
00af 029f 060b | | Declare_Subprogram INIT_0608,For_Call
00b1 029f 064b | K| Declare_Subprogram INIT_0648,For_Call
00b3 6058 |`X | Indirect_Literal Discrete,0x10c,{0x00000000, 0x00001388}
00b4 e002 | | Load 0x0,0x2
00b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b6 1c08 | | Execute_Immediate Run_Utility,0x8
00b7 00d8 | | Load_Top At_Offset_0
00b8 1c00 | | Execute_Immediate Run_Utility,0x0
00b9 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00ba 00c6 | | Action Check_Subprogram_Elaborated
00bb 4807 |H | Short_Literal 0x7
00bc 4802 |H | Short_Literal 0x2
00bd 0099 | | Action Reference_Dynamic
00be 0093 0000 | | push_full_address 0x0
00c0 6047 |`G | Indirect_Literal Discrete,0x108,{0x80000000, 0x00010000}
00c1 0273 | s | Execute Discrete,Plus
00c2 e5ff | | Load 0x2,-0x1
00c3 604c |`L | Indirect_Literal Discrete,0x110,{0x00000000, 0x0000ffff}
00c4 0279 | y | Execute Discrete,And
00c5 0273 | s | Execute Discrete,Plus
00c6 e003 | | Load 0x0,0x3
00c7 0273 | s | Execute Discrete,Plus
00c8 481c |H | Short_Literal 0x1c
00c9 0007 | | Action Break_Optional
00ca 029f 065b | [| Declare_Subprogram INIT_0658,For_Call
00cc 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call
00ce 029f 069b | | Declare_Subprogram INIT_0698,For_Call
00d0 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call
00d2 029f 0703 | | Declare_Subprogram INIT_0700,For_Call
00d4 029f 070b | | Declare_Subprogram INIT_0708,For_Call
00d6 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call
00d8 029f 076b | k| Declare_Subprogram INIT_0768,For_Call
00da 029f 077b | {| Declare_Subprogram INIT_0778,For_Call
00dc 029f 079b | | Declare_Subprogram INIT_0798,For_Call
00de 029f 07db | | Declare_Subprogram INIT_07d8,For_Call
00e0 029f 082b | +| Declare_Subprogram INIT_0828,For_Call
00e2 BODY_0048:
00e2 e5fc | | Load 0x2,-0x4
00e3 680b |h | Jump_Zero 0xef
00e4 484f |HO | Short_Literal 0x4f
00e5 00ea | | Load_Encached Null_String_Cache
00e6 e5fd | | Load 0x2,-0x3
00e7 481a |H | Short_Literal 0x1a
00e8 4802 |H | Short_Literal 0x2
00e9 0099 | | Action Reference_Dynamic
00ea 481b |H | Short_Literal 0x1b
00eb 4802 |H | Short_Literal 0x2
00ec 0099 | | Action Reference_Dynamic
00ed 820d | | Call 0x1,0xd
00ee 4509 |E | Exit_Suprogram New_Top_Offset 0x9
00ef 4800 |H | Short_Literal 0x0
00f0 8417 | | Call 0x2,0x17
00f1 8428 | ( | Call 0x2,0x28
00f2 841d | | Call 0x2,0x1d
00f3 4509 |E | Exit_Suprogram New_Top_Offset 0x9
00f4 TRAP_0048:
00f4 0007 | | Action Break_Optional
00f5 e403 | | Load 0x2,0x3
00f6 0f01 | | Execute_Immediate Equal,0x1
00f7 6805 |h | Jump_Zero 0xfd
00f8 e5f8 | | Load 0x2,-0x8
00f9 6802 |h | Jump_Zero 0xfc
00fa 00d8 | | Load_Top At_Offset_0
00fb 0101 | | Execute Exception,Reraise
00fc 4509 |E | Exit_Suprogram New_Top_Offset 0x9
00fd 484f |HO | Short_Literal 0x4f
00fe 00ea | | Load_Encached Null_String_Cache
00ff e5fd | | Load 0x2,-0x3
0100 481a |H | Short_Literal 0x1a
0101 4802 |H | Short_Literal 0x2
0102 0099 | | Action Reference_Dynamic
0103 481b |H | Short_Literal 0x1b
0104 4802 |H | Short_Literal 0x2
0105 0099 | | Action Reference_Dynamic
0106 820d | | Call 0x1,0xd
0107 4509 |E | Exit_Suprogram New_Top_Offset 0x9
0108 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
010c 0000 0000 | | .LITERAL {0x00000000, 0x00001388}
0110 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0114 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0118 0000 0000 | | .LITERAL {0x00000000, 0x10000000}
011c 0000 0000 | | .BLANK 0000[0x4]
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 e402 | | Load 0x2,0x2
0124 680f |h | Jump_Zero 0x134
0125 e5fb | | Load 0x2,-0x5
0126 e5fc | | Load 0x2,-0x4
0127 01db | | Execute Vector,Length
0128 027d | } | Execute Discrete,Greater
0129 680a |h | Jump_Zero 0x134
012a e5fb | | Load 0x2,-0x5
012b e5fc | | Load 0x2,-0x4
012c 01db | | Execute Vector,Length
012d 0272 | r | Execute Discrete,Minus
012e 00d8 | | Load_Top At_Offset_0
012f 00e3 | | Load_Encached Natural_Cache
0130 0260 | ` | Execute Discrete,In_Type
0131 7001 |p | Jump_Nonzero 0x133
0132 0801 | | Execute_Immediate Raise,0x1
0133 00ca | | Action Exit_Nullary_Function
0134 e5fb | | Load 0x2,-0x5
0135 00ca | | Action Exit_Nullary_Function
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e7ff | | Load 0x3,-0x1
013c 00d8 | | Load_Top At_Offset_0
013d 0d2d | - | Execute_Immediate Less,0x2d
013e 700b |p | Jump_Nonzero 0x14a
013f 00d8 | | Load_Top At_Offset_0
0140 0c3b | ; | Execute_Immediate Greater_Equal,0x3b
0141 7003 |p | Jump_Nonzero 0x145
0142 00d1 | | Pop_Control Pop_Count_1
0143 4800 |H | Short_Literal 0x0
0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0145 483c |H< | Short_Literal 0x3c
0146 487e |H~ | Short_Literal 0x7e
0147 0262 | b | Execute Discrete,In_Range
0148 77fa |w | Jump_Nonzero 0x143
0149 7805 |x | Jump 0x14f
014a 4821 |H! | Short_Literal 0x21
014b 482b |H+ | Short_Literal 0x2b
014c 0262 | b | Execute Discrete,In_Range
014d 77f5 |w | Jump_Nonzero 0x143
014e 7800 |x | Jump 0x14f
014f 4801 |H | Short_Literal 0x1
0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0161 | a | .CONST 0x0161 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b e403 | | Load 0x2,0x3
015c 8405 | | Call 0x2,0x5
015d 0273 | s | Execute Discrete,Plus
015e 0aff | | Execute_Immediate Plus,-0x1
015f 00e2 | | Load_Encached Integer_Cache
0160 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0161 BODY_0158:
0161 00d8 | | Load_Top At_Offset_0
0162 e5fd | | Load 0x2,-0x3
0163 01dc | | Execute Vector,Last
0164 027d | } | Execute Discrete,Greater
0165 6808 |h | Jump_Zero 0x16e
0166 e5fd | | Load 0x2,-0x3
0167 01dc | | Execute Vector,Last
0168 00d8 | | Load_Top At_Offset_0
0169 00e3 | | Load_Encached Natural_Cache
016a 0260 | ` | Execute Discrete,In_Type
016b 7001 |p | Jump_Nonzero 0x16d
016c 0801 | | Execute_Immediate Raise,0x1
016d 00ca | | Action Exit_Nullary_Function
016e 00d8 | | Load_Top At_Offset_0
016f 00d8 | | Load_Top At_Offset_0
0170 00e3 | | Load_Encached Natural_Cache
0171 0260 | ` | Execute Discrete,In_Type
0172 7001 |p | Jump_Nonzero 0x174
0173 0801 | | Execute_Immediate Raise,0x1
0174 00ca | | Action Exit_Nullary_Function
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017c | | | .CONST 0x017c ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 00e2 | | Load_Encached Integer_Cache
017c BODY_0178:
017c 00cf | | Action Mark_Auxiliary
017d e403 | | Load 0x2,0x3
017e e5fd | | Load 0x2,-0x3
017f 01dc | | Execute Vector,Last
0180 027d | } | Execute Discrete,Greater
0181 700a |p | Jump_Nonzero 0x18c
0182 e403 | | Load 0x2,0x3
0183 e5fd | | Load 0x2,-0x3
0184 01d7 | | Execute Vector,Field_Read
0185 0e0a | | Execute_Immediate Not_Equal,0xa
0186 7005 |p | Jump_Nonzero 0x18c
0187 e403 | | Load 0x2,0x3
0188 0a01 | | Execute_Immediate Plus,0x1
0189 c403 | | Store 0x2,0x3
018a 00c9 | | Action Pop_Auxiliary_Loop
018b 7ff1 | | Jump 0x17d
018c 00ce | | Action Pop_Auxiliary
018d 8407 | | Call 0x2,0x7
018e a602 | | Store_Unchecked 0x3,0x2
018f 00cf | | Action Mark_Auxiliary
0190 e602 | | Load 0x3,0x2
0191 e403 | | Load 0x2,0x3
0192 0263 | c | Execute Discrete,Above_Bound
0193 700b |p | Jump_Nonzero 0x19f
0194 00d8 | | Load_Top At_Offset_0
0195 e5fd | | Load 0x2,-0x3
0196 01d7 | | Execute Vector,Field_Read
0197 0f0a | | Execute_Immediate Equal,0xa
0198 6804 |h | Jump_Zero 0x19d
0199 00d8 | | Load_Top At_Offset_0
019a 0aff | | Execute_Immediate Plus,-0x1
019b c404 | | Store 0x2,0x4
019c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
019d 00c8 | | Action Pop_Auxiliary_Range
019e 3ff5 |? | Loop_Increasing 0x194
019f 00ce | | Action Pop_Auxiliary
01a0 00d8 | | Load_Top At_Offset_0
01a1 e5fd | | Load 0x2,-0x3
01a2 01dc | | Execute Vector,Last
01a3 027f | | Execute Discrete,Equal
01a4 6803 |h | Jump_Zero 0x1a8
01a5 00d8 | | Load_Top At_Offset_0
01a6 c404 | | Store 0x2,0x4
01a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01a8 00cf | | Action Mark_Auxiliary
01a9 e403 | | Load 0x2,0x3
01aa e602 | | Load 0x3,0x2
01ab 0264 | d | Execute Discrete,Below_Bound
01ac 700a |p | Jump_Nonzero 0x1b7
01ad 00d8 | | Load_Top At_Offset_0
01ae e5fd | | Load 0x2,-0x3
01af 01d7 | | Execute Vector,Field_Read
01b0 8406 | | Call 0x2,0x6
01b1 6803 |h | Jump_Zero 0x1b5
01b2 00d8 | | Load_Top At_Offset_0
01b3 a404 | | Store_Unchecked 0x2,0x4
01b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b5 00c8 | | Action Pop_Auxiliary_Range
01b6 37f6 |7 | Loop_Decreasing 0x1ad
01b7 00ce | | Action Pop_Auxiliary
01b8 00d8 | | Load_Top At_Offset_0
01b9 c404 | | Store 0x2,0x4
01ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 e402 | | Load 0x2,0x2
01c4 6807 |h | Jump_Zero 0x1cc
01c5 e5fc | | Load 0x2,-0x4
01c6 e403 | | Load 0x2,0x3
01c7 e404 | | Load 0x2,0x4
01c8 e5fd | | Load 0x2,-0x3
01c9 01cf | | Execute Vector,Slice_Read
01ca 01cc | | Execute Vector,Catenate
01cb 00ca | | Action Exit_Nullary_Function
01cc e403 | | Load 0x2,0x3
01cd e404 | | Load 0x2,0x4
01ce e5fd | | Load 0x2,-0x3
01cf 01cf | | Execute Vector,Slice_Read
01d0 0335 | 5 | Declare_Variable Array,Duplicate
01d1 00cd | | Action Spare6_Action
01d2 00ca | | Action Exit_Nullary_Function
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4607 |F | Jump_Case 0x8
01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01dd 7807 |x | Jump 0x1e5 ; case 0x1
01de 780a |x | Jump 0x1e9 ; case 0x2
01df 780e |x | Jump 0x1ee ; case 0x3
01e0 7811 |x | Jump 0x1f2 ; case 0x4
01e1 7812 |x | Jump 0x1f4 ; case 0x5
01e2 7813 |x | Jump 0x1f6 ; case 0x6
01e3 7816 |x | Jump 0x1fa ; case 0x7
01e4 4302 |C | .XXX[0x1]
01e5 00da | | Load_Top At_Offset_2
01e6 0091 08a2 | | Action Push_String_Extended_Indexed,0x8a2 ; "UNHANDLED"
01e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e9 00db | | Load_Top At_Offset_3
01ea 00db | | Load_Top At_Offset_3
01eb 00e0 | | Load_Encached Standard_Cache
01ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ee 00da | | Load_Top At_Offset_2
01ef 00e0 | | Load_Encached Standard_Cache
01f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f2 00db | | Load_Top At_Offset_3
01f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f4 00db | | Load_Top At_Offset_3
01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f6 e402 | | Load 0x2,0x2
01f7 00dc | | Load_Top At_Offset_4
01f8 0267 | g | Execute Discrete,Predecessor
01f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fa e402 | | Load 0x2,0x2
01fb 00dc | | Load_Top At_Offset_4
01fc 0268 | h | Execute Discrete,Successor
01fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01fe 0000 0000 | | .XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 0092 08a9 | | Action Push_String_Extended,0x8a9 ; "unknown"
0205 00ca | | Action Exit_Nullary_Function
0206 0000 0000 | | .XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 020e | | .CONST 0x020e ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b e7ff | | Load 0x3,-0x1
020c 85fe | | Call 0x2,-0x2
020d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020e TRAP_0208:
020e 0007 | | Action Break_Optional
020f 4801 |H | Short_Literal 0x1
0210 a403 | | Store_Unchecked 0x2,0x3
0211 00d8 | | Load_Top At_Offset_0
0212 0101 | | Execute Exception,Reraise
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4607 |F | Jump_Case 0x8
021c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
021d 7807 |x | Jump 0x225 ; case 0x1
021e 780a |x | Jump 0x229 ; case 0x2
021f 780e |x | Jump 0x22e ; case 0x3
0220 7811 |x | Jump 0x232 ; case 0x4
0221 7812 |x | Jump 0x234 ; case 0x5
0222 7813 |x | Jump 0x236 ; case 0x6
0223 7816 |x | Jump 0x23a ; case 0x7
0224 4302 |C | .XXX[0x1]
0225 00da | | Load_Top At_Offset_2
0226 0091 08a6 | | Action Push_String_Extended_Indexed,0x8a6 ; "VALUE"
0228 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0229 00db | | Load_Top At_Offset_3
022a 00db | | Load_Top At_Offset_3
022b 00e0 | | Load_Encached Standard_Cache
022c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
022d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
022e 00da | | Load_Top At_Offset_2
022f 00e0 | | Load_Encached Standard_Cache
0230 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0231 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0232 00db | | Load_Top At_Offset_3
0233 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0234 00db | | Load_Top At_Offset_3
0235 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0236 e408 | | Load 0x2,0x8
0237 00dc | | Load_Top At_Offset_4
0238 0267 | g | Execute Discrete,Predecessor
0239 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023a e408 | | Load 0x2,0x8
023b 00dc | | Load_Top At_Offset_4
023c 0268 | h | Execute Discrete,Successor
023d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 BODY_0240:
0243 INIT_0240:
0243 INIT_0240:
0243 4609 |F | Jump_Case 0xa
0244 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0246 7808 |x | Jump 0x24f ; case 0x2
0247 780b |x | Jump 0x253 ; case 0x3
0248 7810 |x | Jump 0x259 ; case 0x4
0249 781a |x | Jump 0x264 ; case 0x5
024a 7823 |x# | Jump 0x26e ; case 0x6
024b 782d |x- | Jump 0x279 ; case 0x7
024c 783a |x: | Jump 0x287 ; case 0x8
024d 7840 |x@ | Jump 0x28e ; case 0x9
024e 4302 |C | .XXX[0x1]
024f 4801 |H | Short_Literal 0x1
0250 4807 |H | Short_Literal 0x7
0251 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0252 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0253 e7fd | | Load 0x3,-0x3
0254 e7ff | | Load 0x3,-0x1
0255 1c07 | | Execute_Immediate Run_Utility,0x7
0256 e7fe | | Load 0x3,-0x2
0257 0306 | | Complete_Type Variant_Record,By_Renaming
0258 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0259 4801 |H | Short_Literal 0x1
025a 4807 |H | Short_Literal 0x7
025b 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
025c e7fe | | Load 0x3,-0x2
025d 00d8 | | Load_Top At_Offset_0
025e e7ff | | Load 0x3,-0x1
025f 1c06 | | Execute_Immediate Run_Utility,0x6
0260 e7ff | | Load 0x3,-0x1
0261 e602 | | Load 0x3,0x2
0262 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
0263 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0264 4801 |H | Short_Literal 0x1
0265 e7ff | | Load 0x3,-0x1
0266 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
0267 4602 |F | Jump_Case 0x3
0268 7802 |x | Jump 0x26b ; case 0x0
0269 7801 |x | Jump 0x26b ; case 0x1
026a 7800 |x | Jump 0x26b ; case 0x2
026b e7ff | | Load 0x3,-0x1
026c 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
026d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
026e e7fe | | Load 0x3,-0x2
026f 4602 |F | Jump_Case 0x3
0270 7804 |x | Jump 0x275 ; case 0x0
0271 7805 |x | Jump 0x277 ; case 0x1
0272 7800 |x | Jump 0x273 ; case 0x2
0273 4803 |H | Short_Literal 0x3
0274 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0275 4801 |H | Short_Literal 0x1
0276 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0277 4802 |H | Short_Literal 0x2
0278 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0279 e7fe | | Load 0x3,-0x2
027a 00d8 | | Load_Top At_Offset_0
027b 4602 |F | Jump_Case 0x3
027c 7804 |x | Jump 0x281 ; case 0x0
027d 7805 |x | Jump 0x283 ; case 0x1
027e 7800 |x | Jump 0x27f ; case 0x2
027f 4803 |H | Short_Literal 0x3
0280 7803 |x | Jump 0x284
0281 4801 |H | Short_Literal 0x1
0282 7801 |x | Jump 0x284
0283 4802 |H | Short_Literal 0x2
0284 e7ff | | Load 0x3,-0x1
0285 031b | | Declare_Type Variant_Record,Constrained
0286 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0287 e7fe | | Load 0x3,-0x2
0288 00d8 | | Load_Top At_Offset_0
0289 e7ff | | Load 0x3,-0x1
028a 1c06 | | Execute_Immediate Run_Utility,0x6
028b e7ff | | Load 0x3,-0x1
028c 02fc | | Declare_Variable Variant_Record,With_Constraint
028d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
028e 0869 | i | Execute_Immediate Raise,0x69
028f 0000 | | .XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 4802 |H | Short_Literal 0x2
0294 e409 | | Load 0x2,0x9
0295 1c08 | | Execute_Immediate Run_Utility,0x8
0296 e406 | | Load 0x2,0x6
0297 e602 | | Load 0x3,0x2
0298 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0299 e40a | | Load 0x2,0xa
029a e602 | | Load 0x3,0x2
029b 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
029c e40a | | Load 0x2,0xa
029d e602 | | Load 0x3,0x2
029e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
029f e40a | | Load 0x2,0xa
02a0 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02a1 00ca | | Action Exit_Nullary_Function
02a2 0000 0000 | | .BLANK 0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b9 | | .CONST 0x02b9 ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0002 | | .CONST 0x0002 ; Number of locals
02ab INIT_02a8:
02ab 4801 |H | Short_Literal 0x1
02ac e409 | | Load 0x2,0x9
02ad 1c08 | | Execute_Immediate Run_Utility,0x8
02ae e7ff | | Load 0x3,-0x1
02af e602 | | Load 0x3,0x2
02b0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02b1 e7fe | | Load 0x3,-0x2
02b2 e602 | | Load 0x3,0x2
02b3 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02b4 e40a | | Load 0x2,0xa
02b5 e602 | | Load 0x3,0x2
02b6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02b7 e40a | | Load 0x2,0xa
02b8 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02b9 BODY_02a8:
02b9 e7fd | | Load 0x3,-0x3
02ba 0227 | ' | Execute Access,All_Reference
02bb 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
02bc 7005 |p | Jump_Nonzero 0x2c2
02bd 00d8 | | Load_Top At_Offset_0
02be e7fd | | Load 0x3,-0x3
02bf 0227 | ' | Execute Access,All_Reference
02c0 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
02c1 7804 |x | Jump 0x2c6
02c2 00d8 | | Load_Top At_Offset_0
02c3 e7fc | | Load 0x3,-0x4
02c4 0227 | ' | Execute Access,All_Reference
02c5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02c6 00d8 | | Load_Top At_Offset_0
02c7 a7fc | | Store_Unchecked 0x3,-0x4
02c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c9 0000 0000 | | .BLANK 0000[0x7]
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 e7ff | | Load 0x3,-0x1
02d4 e7fe | | Load 0x3,-0x2
02d5 0227 | ' | Execute Access,All_Reference
02d6 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02d7 e7fd | | Load 0x3,-0x3
02d8 0227 | ' | Execute Access,All_Reference
02d9 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
02da 7005 |p | Jump_Nonzero 0x2e0
02db e7fe | | Load 0x3,-0x2
02dc e7fd | | Load 0x3,-0x3
02dd 0227 | ' | Execute Access,All_Reference
02de 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
02df 7804 |x | Jump 0x2e4
02e0 e7fe | | Load 0x3,-0x2
02e1 e7fc | | Load 0x3,-0x4
02e2 0227 | ' | Execute Access,All_Reference
02e3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02e4 e7fe | | Load 0x3,-0x2
02e5 a7fc | | Store_Unchecked 0x3,-0x4
02e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02fe | | .CONST 0x02fe ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0002 | | .CONST 0x0002 ; Number of locals
02eb INIT_02e8:
02eb 4801 |H | Short_Literal 0x1
02ec e7ff | | Load 0x3,-0x1
02ed 00e9 | | Load_Encached String_Cache
02ee 035b | [ | Declare_Type Array,Constrained
02ef 0337 | 7 | Declare_Variable Array
02f0 00d8 | | Load_Top At_Offset_0
02f1 0335 | 5 | Declare_Variable Array,Duplicate
02f2 00cd | | Action Spare6_Action
02f3 e602 | | Load 0x3,0x2
02f4 01d9 | | Execute Vector,Reverse_Bounds
02f5 0263 | c | Execute Discrete,Above_Bound
02f6 7005 |p | Jump_Nonzero 0x2fc
02f7 4820 |H | Short_Literal 0x20
02f8 e605 | | Load 0x3,0x5
02f9 e603 | | Load 0x3,0x3
02fa 01d6 | | Execute Vector,Field_Write
02fb 3ffb |? | Loop_Increasing 0x2f7
02fc e602 | | Load 0x3,0x2
02fd 01d4 | | Execute Vector,Structure_Write
02fe BODY_02e8:
02fe 00d8 | | Load_Top At_Offset_0
02ff 00e9 | | Load_Encached String_Cache
0300 01c6 | | Execute Vector,Convert_To_Formal
0301 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0302 0000 0000 | | .BLANK 0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030d | | .CONST 0x030d ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0003 | | .CONST 0x0003 ; Number of locals
030b INIT_0308:
030b 00e2 | | Load_Encached Integer_Cache
030c 00e2 | | Load_Encached Integer_Cache
030d BODY_0308:
030d e40f | | Load 0x2,0xf
030e 0ad8 | | Execute_Immediate Plus,-0x28
030f c602 | | Store 0x3,0x2
0310 e602 | | Load 0x3,0x2
0311 e5fd | | Load 0x2,-0x3
0312 01dd | | Execute Vector,First
0313 027c | | | Execute Discrete,Less
0314 6803 |h | Jump_Zero 0x318
0315 e5fd | | Load 0x2,-0x3
0316 01dd | | Execute Vector,First
0317 a602 | | Store_Unchecked 0x3,0x2
0318 e602 | | Load 0x3,0x2
0319 e5f9 | | Load 0x2,-0x7
031a 0273 | s | Execute Discrete,Plus
031b 0afe | | Execute_Immediate Plus,-0x2
031c c603 | | Store 0x3,0x3
031d 00d8 | | Load_Top At_Offset_0
031e e5fd | | Load 0x2,-0x3
031f 01dc | | Execute Vector,Last
0320 027d | } | Execute Discrete,Greater
0321 6803 |h | Jump_Zero 0x325
0322 e5fd | | Load 0x2,-0x3
0323 01dc | | Execute Vector,Last
0324 a603 | | Store_Unchecked 0x3,0x3
0325 e602 | | Load 0x3,0x2
0326 e603 | | Load 0x3,0x3
0327 e5fd | | Load 0x2,-0x3
0328 01cf | | Execute Vector,Slice_Read
0329 8407 | | Call 0x2,0x7
032a e40f | | Load 0x2,0xf
032b e602 | | Load 0x3,0x2
032c 0272 | r | Execute Discrete,Minus
032d 00d8 | | Load_Top At_Offset_0
032e 00e3 | | Load_Encached Natural_Cache
032f 0260 | ` | Execute Discrete,In_Type
0330 7001 |p | Jump_Nonzero 0x332
0331 0801 | | Execute_Immediate Raise,0x1
0332 8411 | | Call 0x2,0x11
0333 0092 08aa | | Action Push_String_Extended,0x8aa ; "^"
0335 01cc | | Execute Vector,Catenate
0336 8407 | | Call 0x2,0x7
0337 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e40f | | Load 0x2,0xf
033c e5fd | | Load 0x2,-0x3
033d 01da | | Execute Vector,Bounds
033e 0262 | b | Execute Discrete,In_Range
033f 6816 |h | Jump_Zero 0x356
0340 4801 |H | Short_Literal 0x1
0341 4803 |H | Short_Literal 0x3
0342 00e9 | | Load_Encached String_Cache
0343 035b | [ | Declare_Type Array,Constrained
0344 0337 | 7 | Declare_Variable Array
0345 4827 |H' | Short_Literal 0x27
0346 4801 |H | Short_Literal 0x1
0347 e602 | | Load 0x3,0x2
0348 01d6 | | Execute Vector,Field_Write
0349 e40f | | Load 0x2,0xf
034a e5fd | | Load 0x2,-0x3
034b 01d7 | | Execute Vector,Field_Read
034c 4802 |H | Short_Literal 0x2
034d e602 | | Load 0x3,0x2
034e 01d6 | | Execute Vector,Field_Write
034f 4827 |H' | Short_Literal 0x27
0350 4803 |H | Short_Literal 0x3
0351 e602 | | Load 0x3,0x2
0352 01d6 | | Execute Vector,Field_Write
0353 00e9 | | Load_Encached String_Cache
0354 01c6 | | Execute Vector,Convert_To_Formal
0355 00ca | | Action Exit_Nullary_Function
0356 0092 08ab | | Action Push_String_Extended,0x8ab ; "end"
0358 00ca | | Action Exit_Nullary_Function
0359 0000 0000 | | .BLANK 0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 e7ff | | Load 0x3,-0x1
0364 0aff | | Execute_Immediate Plus,-0x1
0365 460b |F | Jump_Case 0xc
0366 780e |x | Jump 0x375 ; case 0x0
0367 7810 |x | Jump 0x378 ; case 0x1
0368 7812 |x | Jump 0x37b ; case 0x2
0369 7814 |x | Jump 0x37e ; case 0x3
036a 7816 |x | Jump 0x381 ; case 0x4
036b 7818 |x | Jump 0x384 ; case 0x5
036c 781a |x | Jump 0x387 ; case 0x6
036d 781c |x | Jump 0x38a ; case 0x7
036e 781e |x | Jump 0x38d ; case 0x8
036f 7820 |x | Jump 0x390 ; case 0x9
0370 7801 |x | Jump 0x372 ; case 0xa
0371 7800 |x | Jump 0x372 ; case 0xb
0372 0092 08ac | | Action Push_String_Extended,0x8ac ; "how did we get here?"
0374 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0375 0092 08ad | | Action Push_String_Extended,0x8ad ; "("
0377 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0378 0092 08ae | | Action Push_String_Extended,0x8ae ; "the first character of a name, or ')'; specifically, a character from the set { 'a'..'z', 'A'..'Z', '0'..'9', '#', '_', '-', '.', '<', '>', Nul, Ht }"
037a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037b 0092 08af | | Action Push_String_Extended,0x8af ; "a character appropriate for name, or \x22=>\x22; specifically, a character from the set { 'a'..'z', 'A'..'Z', '0'..'9', '#', '_', '-', '.', '<', '>', Nul, Ht, '=' }"
037d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037e 0092 08b0 | | Action Push_String_Extended,0x8b0 ; "an \x22=>\x22"
0380 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0381 0092 08b1 | | Action Push_String_Extended,0x8b1 ; "the 2nd character from the \x22=>\x22 symbol"
0383 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0384 0092 08b2 | | Action Push_String_Extended,0x8b2 ; "the 1st character from a value or quoted string; specifically, a character that does not come from the set { '(', ')', ',' }"
0386 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0387 0092 08b3 | | Action Push_String_Extended,0x8b3 ; "a character from the set { ',', ')', '\x22'."
0389 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038a 0092 08b4 | | Action Push_String_Extended,0x8b4 ; "a character appropriate for a quoted string."
038c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038d 0092 08b5 | | Action Push_String_Extended,0x8b5 ; "a character from the set { ',', ')' }"
038f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0390 0092 08b6 | | Action Push_String_Extended,0x8b6 ; "a character appropriate for a raw value; specifically, a character that does not come from the set { ',', ')' }"
0392 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0393 0000 0000 | | .BLANK 0000[0x5]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 8412 | | Call 0x2,0x12
039c 0092 08b7 | | Action Push_String_Extended,0x8b7 ; "Parsing error: received "
039e 8413 | | Call 0x2,0x13
039f 01cc | | Execute Vector,Catenate
03a0 0092 08b8 | | Action Push_String_Extended,0x8b8 ; " (at character position"
03a2 01cc | | Execute Vector,Catenate
03a3 e40f | | Load 0x2,0xf
03a4 00e0 | | Load_Encached Standard_Cache
03a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03a6 01cc | | Execute Vector,Catenate
03a7 0092 08b9 | | Action Push_String_Extended,0x8b9 ; ")"
03a9 01cc | | Execute Vector,Catenate
03aa 0092 08ba | | Action Push_String_Extended,0x8ba ; ", expected "
03ac 01cc | | Execute Vector,Catenate
03ad e7ff | | Load 0x3,-0x1
03ae 8414 | | Call 0x2,0x14
03af 01cc | | Execute Vector,Catenate
03b0 8407 | | Call 0x2,0x7
03b1 4802 |H | Short_Literal 0x2
03b2 a403 | | Store_Unchecked 0x2,0x3
03b3 08e0 | | Execute_Immediate Raise,0xe0
03b4 0000 0000 | | .BLANK 0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03ce | | .CONST 0x03ce ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0008 | | .CONST 0x0008 ; Number of locals
03bb INIT_03b8:
03bb e40a | | Load 0x2,0xa
03bc 840b | | Call 0x2,0xb
03bd a602 | | Store_Unchecked 0x3,0x2
03be e40a | | Load 0x2,0xa
03bf 0007 | | Action Break_Optional
03c0 4fff |O | Short_Literal -0x1
03c1 00e2 | | Load_Encached Integer_Cache
03c2 03f1 | | Declare_Variable Discrete,With_Value
03c3 e405 | | Load 0x2,0x5
03c4 0322 | " | Declare_Variable Record
03c5 e406 | | Load 0x2,0x6
03c6 e605 | | Load 0x3,0x5
03c7 017d | } | Execute Record,Structure_Write
03c8 e410 | | Load 0x2,0x10
03c9 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
03ca 029f 083b | ;| Declare_Subprogram INIT_0838,For_Call
03cc 029f 084b | K| Declare_Subprogram INIT_0848,For_Call
03ce BODY_03b8:
03ce 00cf | | Action Mark_Auxiliary
03cf e40f | | Load 0x2,0xf
03d0 e5fd | | Load 0x2,-0x3
03d1 01dc | | Execute Vector,Last
03d2 027d | } | Execute Discrete,Greater
03d3 6802 |h | Jump_Zero 0x3d6
03d4 e606 | | Load 0x3,0x6
03d5 8415 | | Call 0x2,0x15
03d6 e40f | | Load 0x2,0xf
03d7 e5fd | | Load 0x2,-0x3
03d8 01d7 | | Execute Vector,Field_Read
03d9 467f |F | Jump_Case 0x80
03da 79d4 |y | Jump 0x5af ; case 0x0
03db 787e |x~ | Jump 0x45a ; case 0x1
03dc 787d |x} | Jump 0x45a ; case 0x2
03dd 787c |x| | Jump 0x45a ; case 0x3
03de 787b |x{ | Jump 0x45a ; case 0x4
03df 787a |xz | Jump 0x45a ; case 0x5
03e0 7879 |xy | Jump 0x45a ; case 0x6
03e1 7878 |xx | Jump 0x45a ; case 0x7
03e2 7877 |xw | Jump 0x45a ; case 0x8
03e3 79cb |y | Jump 0x5af ; case 0x9
03e4 7875 |xu | Jump 0x45a ; case 0xa
03e5 7874 |xt | Jump 0x45a ; case 0xb
03e6 7873 |xs | Jump 0x45a ; case 0xc
03e7 7872 |xr | Jump 0x45a ; case 0xd
03e8 7871 |xq | Jump 0x45a ; case 0xe
03e9 7870 |xp | Jump 0x45a ; case 0xf
03ea 786f |xo | Jump 0x45a ; case 0x10
03eb 786e |xn | Jump 0x45a ; case 0x11
03ec 786d |xm | Jump 0x45a ; case 0x12
03ed 786c |xl | Jump 0x45a ; case 0x13
03ee 786b |xk | Jump 0x45a ; case 0x14
03ef 786a |xj | Jump 0x45a ; case 0x15
03f0 7869 |xi | Jump 0x45a ; case 0x16
03f1 7868 |xh | Jump 0x45a ; case 0x17
03f2 7867 |xg | Jump 0x45a ; case 0x18
03f3 7866 |xf | Jump 0x45a ; case 0x19
03f4 7865 |xe | Jump 0x45a ; case 0x1a
03f5 79db |y | Jump 0x5d1 ; case 0x1b
03f6 7863 |xc | Jump 0x45a ; case 0x1c
03f7 7862 |xb | Jump 0x45a ; case 0x1d
03f8 7861 |xa | Jump 0x45a ; case 0x1e
03f9 7860 |x` | Jump 0x45a ; case 0x1f
03fa 7963 |yc | Jump 0x55e ; case 0x20
03fb 785e |x^ | Jump 0x45a ; case 0x21
03fc 798f |y | Jump 0x58c ; case 0x22
03fd 79b1 |y | Jump 0x5af ; case 0x23
03fe 785b |x[ | Jump 0x45a ; case 0x24
03ff 785a |xZ | Jump 0x45a ; case 0x25
0400 7859 |xY | Jump 0x45a ; case 0x26
0401 7858 |xX | Jump 0x45a ; case 0x27
0402 7874 |xt | Jump 0x477 ; case 0x28
0403 7898 |x | Jump 0x49c ; case 0x29
0404 7855 |xU | Jump 0x45a ; case 0x2a
0405 7854 |xT | Jump 0x45a ; case 0x2b
0406 7916 |y | Jump 0x51d ; case 0x2c
0407 79a7 |y | Jump 0x5af ; case 0x2d
0408 79a6 |y | Jump 0x5af ; case 0x2e
0409 7850 |xP | Jump 0x45a ; case 0x2f
040a 79a4 |y | Jump 0x5af ; case 0x30
040b 79a3 |y | Jump 0x5af ; case 0x31
040c 79a2 |y | Jump 0x5af ; case 0x32
040d 79a1 |y | Jump 0x5af ; case 0x33
040e 79a0 |y | Jump 0x5af ; case 0x34
040f 799f |y | Jump 0x5af ; case 0x35
0410 799e |y | Jump 0x5af ; case 0x36
0411 799d |y | Jump 0x5af ; case 0x37
0412 799c |y | Jump 0x5af ; case 0x38
0413 799b |y | Jump 0x5af ; case 0x39
0414 7845 |xE | Jump 0x45a ; case 0x3a
0415 7844 |xD | Jump 0x45a ; case 0x3b
0416 7998 |y | Jump 0x5af ; case 0x3c
0417 78bc |x | Jump 0x4d4 ; case 0x3d
0418 78df |x | Jump 0x4f8 ; case 0x3e
0419 7840 |x@ | Jump 0x45a ; case 0x3f
041a 783f |x? | Jump 0x45a ; case 0x40
041b 7993 |y | Jump 0x5af ; case 0x41
041c 7992 |y | Jump 0x5af ; case 0x42
041d 7991 |y | Jump 0x5af ; case 0x43
041e 7990 |y | Jump 0x5af ; case 0x44
041f 798f |y | Jump 0x5af ; case 0x45
0420 798e |y | Jump 0x5af ; case 0x46
0421 798d |y | Jump 0x5af ; case 0x47
0422 798c |y | Jump 0x5af ; case 0x48
0423 798b |y | Jump 0x5af ; case 0x49
0424 798a |y | Jump 0x5af ; case 0x4a
0425 7989 |y | Jump 0x5af ; case 0x4b
0426 7988 |y | Jump 0x5af ; case 0x4c
0427 7987 |y | Jump 0x5af ; case 0x4d
0428 7986 |y | Jump 0x5af ; case 0x4e
0429 7985 |y | Jump 0x5af ; case 0x4f
042a 7984 |y | Jump 0x5af ; case 0x50
042b 7983 |y | Jump 0x5af ; case 0x51
042c 7982 |y | Jump 0x5af ; case 0x52
042d 7981 |y | Jump 0x5af ; case 0x53
042e 7980 |y | Jump 0x5af ; case 0x54
042f 797f |y | Jump 0x5af ; case 0x55
0430 797e |y~ | Jump 0x5af ; case 0x56
0431 797d |y} | Jump 0x5af ; case 0x57
0432 797c |y| | Jump 0x5af ; case 0x58
0433 797b |y{ | Jump 0x5af ; case 0x59
0434 797a |yz | Jump 0x5af ; case 0x5a
0435 7824 |x$ | Jump 0x45a ; case 0x5b
0436 7823 |x# | Jump 0x45a ; case 0x5c
0437 7822 |x" | Jump 0x45a ; case 0x5d
0438 7821 |x! | Jump 0x45a ; case 0x5e
0439 7975 |yu | Jump 0x5af ; case 0x5f
043a 781f |x | Jump 0x45a ; case 0x60
043b 7973 |ys | Jump 0x5af ; case 0x61
043c 7972 |yr | Jump 0x5af ; case 0x62
043d 7971 |yq | Jump 0x5af ; case 0x63
043e 7970 |yp | Jump 0x5af ; case 0x64
043f 796f |yo | Jump 0x5af ; case 0x65
0440 796e |yn | Jump 0x5af ; case 0x66
0441 796d |ym | Jump 0x5af ; case 0x67
0442 796c |yl | Jump 0x5af ; case 0x68
0443 796b |yk | Jump 0x5af ; case 0x69
0444 796a |yj | Jump 0x5af ; case 0x6a
0445 7969 |yi | Jump 0x5af ; case 0x6b
0446 7968 |yh | Jump 0x5af ; case 0x6c
0447 7967 |yg | Jump 0x5af ; case 0x6d
0448 7966 |yf | Jump 0x5af ; case 0x6e
0449 7965 |ye | Jump 0x5af ; case 0x6f
044a 7964 |yd | Jump 0x5af ; case 0x70
044b 7963 |yc | Jump 0x5af ; case 0x71
044c 7962 |yb | Jump 0x5af ; case 0x72
044d 7961 |ya | Jump 0x5af ; case 0x73
044e 7960 |y` | Jump 0x5af ; case 0x74
044f 795f |y_ | Jump 0x5af ; case 0x75
0450 795e |y^ | Jump 0x5af ; case 0x76
0451 795d |y] | Jump 0x5af ; case 0x77
0452 795c |y\ | Jump 0x5af ; case 0x78
0453 795b |y[ | Jump 0x5af ; case 0x79
0454 795a |yZ | Jump 0x5af ; case 0x7a
0455 7804 |x | Jump 0x45a ; case 0x7b
0456 7803 |x | Jump 0x45a ; case 0x7c
0457 7802 |x | Jump 0x45a ; case 0x7d
0458 7801 |x | Jump 0x45a ; case 0x7e
0459 7800 |x | Jump 0x45a ; case 0x7f
045a e606 | | Load 0x3,0x6
045b 0aff | | Execute_Immediate Plus,-0x1
045c 460b |F | Jump_Case 0xc
045d 7816 |x | Jump 0x474 ; case 0x0
045e 7815 |x | Jump 0x474 ; case 0x1
045f 7814 |x | Jump 0x474 ; case 0x2
0460 7813 |x | Jump 0x474 ; case 0x3
0461 7812 |x | Jump 0x474 ; case 0x4
0462 7809 |x | Jump 0x46c ; case 0x5
0463 7810 |x | Jump 0x474 ; case 0x6
0464 7993 |y | Jump 0x5f8 ; case 0x7
0465 780e |x | Jump 0x474 ; case 0x8
0466 7991 |y | Jump 0x5f8 ; case 0x9
0467 7809 |x | Jump 0x471 ; case 0xa
0468 7800 |x | Jump 0x469 ; case 0xb
0469 480a |H | Short_Literal 0xa
046a a606 | | Store_Unchecked 0x3,0x6
046b 798c |y | Jump 0x5f8
046c 480a |H | Short_Literal 0xa
046d a606 | | Store_Unchecked 0x3,0x6
046e e40f | | Load 0x2,0xf
046f a604 | | Store_Unchecked 0x3,0x4
0470 7987 |y | Jump 0x5f8
0471 4803 |H | Short_Literal 0x3
0472 a606 | | Store_Unchecked 0x3,0x6
0473 7984 |y | Jump 0x5f8
0474 e606 | | Load 0x3,0x6
0475 8415 | | Call 0x2,0x15
0476 7981 |y | Jump 0x5f8
0477 e606 | | Load 0x3,0x6
0478 0aff | | Execute_Immediate Plus,-0x1
0479 460b |F | Jump_Case 0xc
047a 7818 |x | Jump 0x493 ; case 0x0
047b 781d |x | Jump 0x499 ; case 0x1
047c 781c |x | Jump 0x499 ; case 0x2
047d 781b |x | Jump 0x499 ; case 0x3
047e 781a |x | Jump 0x499 ; case 0x4
047f 7809 |x | Jump 0x489 ; case 0x5
0480 7818 |x | Jump 0x499 ; case 0x6
0481 7976 |yv | Jump 0x5f8 ; case 0x7
0482 7816 |x | Jump 0x499 ; case 0x8
0483 7974 |yt | Jump 0x5f8 ; case 0x9
0484 7811 |x | Jump 0x496 ; case 0xa
0485 7800 |x | Jump 0x486 ; case 0xb
0486 480a |H | Short_Literal 0xa
0487 a606 | | Store_Unchecked 0x3,0x6
0488 796f |yo | Jump 0x5f8
0489 4809 |H | Short_Literal 0x9
048a a606 | | Store_Unchecked 0x3,0x6
048b e603 | | Load 0x3,0x3
048c e602 | | Load 0x3,0x2
048d 8416 | | Call 0x2,0x16
048e e605 | | Load 0x3,0x5
048f 840d | | Call 0x2,0xd
0490 c602 | | Store 0x3,0x2
0491 c603 | | Store 0x3,0x3
0492 7965 |ye | Jump 0x5f8
0493 4802 |H | Short_Literal 0x2
0494 a606 | | Store_Unchecked 0x3,0x6
0495 7962 |yb | Jump 0x5f8
0496 4803 |H | Short_Literal 0x3
0497 a606 | | Store_Unchecked 0x3,0x6
0498 795f |y_ | Jump 0x5f8
0499 e606 | | Load 0x3,0x6
049a 8415 | | Call 0x2,0x15
049b 795c |y\ | Jump 0x5f8
049c e606 | | Load 0x3,0x6
049d 0aff | | Execute_Immediate Plus,-0x1
049e 460b |F | Jump_Case 0xc
049f 7831 |x1 | Jump 0x4d1 ; case 0x0
04a0 795d |y] | Jump 0x5fe ; case 0x1
04a1 782f |x/ | Jump 0x4d1 ; case 0x2
04a2 782e |x. | Jump 0x4d1 ; case 0x3
04a3 782d |x- | Jump 0x4d1 ; case 0x4
04a4 7809 |x | Jump 0x4ae ; case 0x5
04a5 7810 |x | Jump 0x4b6 ; case 0x6
04a6 7951 |yQ | Jump 0x5f8 ; case 0x7
04a7 7956 |yV | Jump 0x5fe ; case 0x8
04a8 781d |x | Jump 0x4c6 ; case 0x9
04a9 7824 |x$ | Jump 0x4ce ; case 0xa
04aa 7800 |x | Jump 0x4ab ; case 0xb
04ab 480a |H | Short_Literal 0xa
04ac a606 | | Store_Unchecked 0x3,0x6
04ad 794a |yJ | Jump 0x5f8
04ae e603 | | Load 0x3,0x3
04af e602 | | Load 0x3,0x2
04b0 e406 | | Load 0x2,0x6
04b1 e605 | | Load 0x3,0x5
04b2 840c | | Call 0x2,0xc
04b3 c602 | | Store 0x3,0x2
04b4 c603 | | Store 0x3,0x3
04b5 7948 |yH | Jump 0x5fe
04b6 e603 | | Load 0x3,0x3
04b7 e602 | | Load 0x3,0x2
04b8 e405 | | Load 0x2,0x5
04b9 0322 | " | Declare_Variable Record
04ba e604 | | Load 0x3,0x4
04bb e60c | | Load 0x3,0xc
04bc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04bd e40f | | Load 0x2,0xf
04be 0aff | | Execute_Immediate Plus,-0x1
04bf e60c | | Load 0x3,0xc
04c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c1 e605 | | Load 0x3,0x5
04c2 840c | | Call 0x2,0xc
04c3 c602 | | Store 0x3,0x2
04c4 c603 | | Store 0x3,0x3
04c5 7938 |y8 | Jump 0x5fe
04c6 e603 | | Load 0x3,0x3
04c7 e602 | | Load 0x3,0x2
04c8 8608 | | Call 0x3,0x8
04c9 e605 | | Load 0x3,0x5
04ca 840c | | Call 0x2,0xc
04cb c602 | | Store 0x3,0x2
04cc c603 | | Store 0x3,0x3
04cd 7930 |y0 | Jump 0x5fe
04ce 4803 |H | Short_Literal 0x3
04cf a606 | | Store_Unchecked 0x3,0x6
04d0 7927 |y' | Jump 0x5f8
04d1 e606 | | Load 0x3,0x6
04d2 8415 | | Call 0x2,0x15
04d3 7924 |y$ | Jump 0x5f8
04d4 e606 | | Load 0x3,0x6
04d5 0aff | | Execute_Immediate Plus,-0x1
04d6 460b |F | Jump_Case 0xc
04d7 781d |x | Jump 0x4f5 ; case 0x0
04d8 781c |x | Jump 0x4f5 ; case 0x1
04d9 7814 |x | Jump 0x4ee ; case 0x2
04da 780b |x | Jump 0x4e6 ; case 0x3
04db 7819 |x | Jump 0x4f5 ; case 0x4
04dc 780c |x | Jump 0x4e9 ; case 0x5
04dd 7817 |x | Jump 0x4f5 ; case 0x6
04de 7919 |y | Jump 0x5f8 ; case 0x7
04df 7815 |x | Jump 0x4f5 ; case 0x8
04e0 7917 |y | Jump 0x5f8 ; case 0x9
04e1 7810 |x | Jump 0x4f2 ; case 0xa
04e2 7800 |x | Jump 0x4e3 ; case 0xb
04e3 480a |H | Short_Literal 0xa
04e4 a606 | | Store_Unchecked 0x3,0x6
04e5 7912 |y | Jump 0x5f8
04e6 4805 |H | Short_Literal 0x5
04e7 a606 | | Store_Unchecked 0x3,0x6
04e8 790f |y | Jump 0x5f8
04e9 480a |H | Short_Literal 0xa
04ea a606 | | Store_Unchecked 0x3,0x6
04eb e40f | | Load 0x2,0xf
04ec a604 | | Store_Unchecked 0x3,0x4
04ed 790a |y | Jump 0x5f8
04ee 4805 |H | Short_Literal 0x5
04ef a606 | | Store_Unchecked 0x3,0x6
04f0 8607 | | Call 0x3,0x7
04f1 7906 |y | Jump 0x5f8
04f2 4803 |H | Short_Literal 0x3
04f3 a606 | | Store_Unchecked 0x3,0x6
04f4 7903 |y | Jump 0x5f8
04f5 e606 | | Load 0x3,0x6
04f6 8415 | | Call 0x2,0x15
04f7 7900 |y | Jump 0x5f8
04f8 e606 | | Load 0x3,0x6
04f9 0aff | | Execute_Immediate Plus,-0x1
04fa 460b |F | Jump_Case 0xc
04fb 781e |x | Jump 0x51a ; case 0x0
04fc 7815 |x | Jump 0x512 ; case 0x1
04fd 78fa |x | Jump 0x5f8 ; case 0x2
04fe 781b |x | Jump 0x51a ; case 0x3
04ff 780a |x | Jump 0x50a ; case 0x4
0500 780c |x | Jump 0x50d ; case 0x5
0501 7818 |x | Jump 0x51a ; case 0x6
0502 78f5 |x | Jump 0x5f8 ; case 0x7
0503 7816 |x | Jump 0x51a ; case 0x8
0504 78f3 |x | Jump 0x5f8 ; case 0x9
0505 7811 |x | Jump 0x517 ; case 0xa
0506 7800 |x | Jump 0x507 ; case 0xb
0507 480a |H | Short_Literal 0xa
0508 a606 | | Store_Unchecked 0x3,0x6
0509 78ee |x | Jump 0x5f8
050a 4806 |H | Short_Literal 0x6
050b a606 | | Store_Unchecked 0x3,0x6
050c 78eb |x | Jump 0x5f8
050d 480a |H | Short_Literal 0xa
050e a606 | | Store_Unchecked 0x3,0x6
050f e40f | | Load 0x2,0xf
0510 a604 | | Store_Unchecked 0x3,0x4
0511 78e6 |x | Jump 0x5f8
0512 4803 |H | Short_Literal 0x3
0513 a606 | | Store_Unchecked 0x3,0x6
0514 e40f | | Load 0x2,0xf
0515 a604 | | Store_Unchecked 0x3,0x4
0516 78e1 |x | Jump 0x5f8
0517 4803 |H | Short_Literal 0x3
0518 a606 | | Store_Unchecked 0x3,0x6
0519 78de |x | Jump 0x5f8
051a e606 | | Load 0x3,0x6
051b 8415 | | Call 0x2,0x15
051c 78db |x | Jump 0x5f8
051d e606 | | Load 0x3,0x6
051e 0aff | | Execute_Immediate Plus,-0x1
051f 460b |F | Jump_Case 0xc
0520 783a |x: | Jump 0x55b ; case 0x0
0521 7839 |x9 | Jump 0x55b ; case 0x1
0522 7838 |x8 | Jump 0x55b ; case 0x2
0523 7837 |x7 | Jump 0x55b ; case 0x3
0524 7836 |x6 | Jump 0x55b ; case 0x4
0525 7809 |x | Jump 0x52f ; case 0x5
0526 7812 |x | Jump 0x539 ; case 0x6
0527 78d0 |x | Jump 0x5f8 ; case 0x7
0528 7822 |x" | Jump 0x54b ; case 0x8
0529 7824 |x$ | Jump 0x54e ; case 0x9
052a 782d |x- | Jump 0x558 ; case 0xa
052b 7800 |x | Jump 0x52c ; case 0xb
052c 480a |H | Short_Literal 0xa
052d a606 | | Store_Unchecked 0x3,0x6
052e 78c9 |x | Jump 0x5f8
052f 4802 |H | Short_Literal 0x2
0530 a606 | | Store_Unchecked 0x3,0x6
0531 e603 | | Load 0x3,0x3
0532 e602 | | Load 0x3,0x2
0533 e406 | | Load 0x2,0x6
0534 e605 | | Load 0x3,0x5
0535 840c | | Call 0x2,0xc
0536 c602 | | Store 0x3,0x2
0537 c603 | | Store 0x3,0x3
0538 78bf |x | Jump 0x5f8
0539 4802 |H | Short_Literal 0x2
053a a606 | | Store_Unchecked 0x3,0x6
053b e603 | | Load 0x3,0x3
053c e602 | | Load 0x3,0x2
053d e405 | | Load 0x2,0x5
053e 0322 | " | Declare_Variable Record
053f e604 | | Load 0x3,0x4
0540 e60c | | Load 0x3,0xc
0541 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0542 e40f | | Load 0x2,0xf
0543 0aff | | Execute_Immediate Plus,-0x1
0544 e60c | | Load 0x3,0xc
0545 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0546 e605 | | Load 0x3,0x5
0547 840c | | Call 0x2,0xc
0548 c602 | | Store 0x3,0x2
0549 c603 | | Store 0x3,0x3
054a 78ad |x | Jump 0x5f8
054b 4802 |H | Short_Literal 0x2
054c a606 | | Store_Unchecked 0x3,0x6
054d 78aa |x | Jump 0x5f8
054e 4802 |H | Short_Literal 0x2
054f a606 | | Store_Unchecked 0x3,0x6
0550 e603 | | Load 0x3,0x3
0551 e602 | | Load 0x3,0x2
0552 8608 | | Call 0x3,0x8
0553 e605 | | Load 0x3,0x5
0554 840c | | Call 0x2,0xc
0555 c602 | | Store 0x3,0x2
0556 c603 | | Store 0x3,0x3
0557 78a0 |x | Jump 0x5f8
0558 4803 |H | Short_Literal 0x3
0559 a606 | | Store_Unchecked 0x3,0x6
055a 789d |x | Jump 0x5f8
055b e606 | | Load 0x3,0x6
055c 8415 | | Call 0x2,0x15
055d 789a |x | Jump 0x5f8
055e e606 | | Load 0x3,0x6
055f 0aff | | Execute_Immediate Plus,-0x1
0560 460b |F | Jump_Case 0xc
0561 7896 |x | Jump 0x5f8 ; case 0x0
0562 7895 |x | Jump 0x5f8 ; case 0x1
0563 780c |x | Jump 0x570 ; case 0x2
0564 7893 |x | Jump 0x5f8 ; case 0x3
0565 7823 |x# | Jump 0x589 ; case 0x4
0566 7891 |x | Jump 0x5f8 ; case 0x5
0567 780c |x | Jump 0x574 ; case 0x6
0568 788f |x | Jump 0x5f8 ; case 0x7
0569 788e |x | Jump 0x5f8 ; case 0x8
056a 788d |x | Jump 0x5f8 ; case 0x9
056b 781a |x | Jump 0x586 ; case 0xa
056c 7800 |x | Jump 0x56d ; case 0xb
056d 480a |H | Short_Literal 0xa
056e a606 | | Store_Unchecked 0x3,0x6
056f 7888 |x | Jump 0x5f8
0570 4804 |H | Short_Literal 0x4
0571 a606 | | Store_Unchecked 0x3,0x6
0572 8607 | | Call 0x3,0x7
0573 7884 |x | Jump 0x5f8
0574 4809 |H | Short_Literal 0x9
0575 a606 | | Store_Unchecked 0x3,0x6
0576 e603 | | Load 0x3,0x3
0577 e602 | | Load 0x3,0x2
0578 e405 | | Load 0x2,0x5
0579 0322 | " | Declare_Variable Record
057a e604 | | Load 0x3,0x4
057b e60c | | Load 0x3,0xc
057c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
057d e40f | | Load 0x2,0xf
057e 0aff | | Execute_Immediate Plus,-0x1
057f e60c | | Load 0x3,0xc
0580 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0581 e605 | | Load 0x3,0x5
0582 840c | | Call 0x2,0xc
0583 c602 | | Store 0x3,0x2
0584 c603 | | Store 0x3,0x3
0585 7872 |xr | Jump 0x5f8
0586 4803 |H | Short_Literal 0x3
0587 a606 | | Store_Unchecked 0x3,0x6
0588 786f |xo | Jump 0x5f8
0589 e606 | | Load 0x3,0x6
058a 8415 | | Call 0x2,0x15
058b 786c |xl | Jump 0x5f8
058c e606 | | Load 0x3,0x6
058d 0aff | | Execute_Immediate Plus,-0x1
058e 460b |F | Jump_Case 0xc
058f 781c |x | Jump 0x5ac ; case 0x0
0590 781b |x | Jump 0x5ac ; case 0x1
0591 781a |x | Jump 0x5ac ; case 0x2
0592 7819 |x | Jump 0x5ac ; case 0x3
0593 7818 |x | Jump 0x5ac ; case 0x4
0594 780f |x | Jump 0x5a4 ; case 0x5
0595 7808 |x | Jump 0x59e ; case 0x6
0596 780a |x | Jump 0x5a1 ; case 0x7
0597 7814 |x | Jump 0x5ac ; case 0x8
0598 785f |x_ | Jump 0x5f8 ; case 0x9
0599 780f |x | Jump 0x5a9 ; case 0xa
059a 7800 |x | Jump 0x59b ; case 0xb
059b 480a |H | Short_Literal 0xa
059c a606 | | Store_Unchecked 0x3,0x6
059d 785a |xZ | Jump 0x5f8
059e 4808 |H | Short_Literal 0x8
059f a606 | | Store_Unchecked 0x3,0x6
05a0 7857 |xW | Jump 0x5f8
05a1 4807 |H | Short_Literal 0x7
05a2 a606 | | Store_Unchecked 0x3,0x6
05a3 7854 |xT | Jump 0x5f8
05a4 4808 |H | Short_Literal 0x8
05a5 a606 | | Store_Unchecked 0x3,0x6
05a6 e40f | | Load 0x2,0xf
05a7 a604 | | Store_Unchecked 0x3,0x4
05a8 784f |xO | Jump 0x5f8
05a9 4803 |H | Short_Literal 0x3
05aa a606 | | Store_Unchecked 0x3,0x6
05ab 784c |xL | Jump 0x5f8
05ac e606 | | Load 0x3,0x6
05ad 8415 | | Call 0x2,0x15
05ae 7849 |xI | Jump 0x5f8
05af e606 | | Load 0x3,0x6
05b0 0aff | | Execute_Immediate Plus,-0x1
05b1 460b |F | Jump_Case 0xc
05b2 781b |x | Jump 0x5ce ; case 0x0
05b3 780d |x | Jump 0x5c1 ; case 0x1
05b4 7843 |xC | Jump 0x5f8 ; case 0x2
05b5 7818 |x | Jump 0x5ce ; case 0x3
05b6 7817 |x | Jump 0x5ce ; case 0x4
05b7 780e |x | Jump 0x5c6 ; case 0x5
05b8 7815 |x | Jump 0x5ce ; case 0x6
05b9 783e |x> | Jump 0x5f8 ; case 0x7
05ba 7813 |x | Jump 0x5ce ; case 0x8
05bb 783c |x< | Jump 0x5f8 ; case 0x9
05bc 780e |x | Jump 0x5cb ; case 0xa
05bd 7800 |x | Jump 0x5be ; case 0xb
05be 480a |H | Short_Literal 0xa
05bf a606 | | Store_Unchecked 0x3,0x6
05c0 7837 |x7 | Jump 0x5f8
05c1 4803 |H | Short_Literal 0x3
05c2 a606 | | Store_Unchecked 0x3,0x6
05c3 e40f | | Load 0x2,0xf
05c4 a604 | | Store_Unchecked 0x3,0x4
05c5 7832 |x2 | Jump 0x5f8
05c6 480a |H | Short_Literal 0xa
05c7 a606 | | Store_Unchecked 0x3,0x6
05c8 e40f | | Load 0x2,0xf
05c9 a604 | | Store_Unchecked 0x3,0x4
05ca 782d |x- | Jump 0x5f8
05cb 4803 |H | Short_Literal 0x3
05cc a606 | | Store_Unchecked 0x3,0x6
05cd 782a |x* | Jump 0x5f8
05ce e606 | | Load 0x3,0x6
05cf 8415 | | Call 0x2,0x15
05d0 7827 |x' | Jump 0x5f8
05d1 e606 | | Load 0x3,0x6
05d2 0aff | | Execute_Immediate Plus,-0x1
05d3 460b |F | Jump_Case 0xc
05d4 7821 |x! | Jump 0x5f6 ; case 0x0
05d5 7815 |x | Jump 0x5eb ; case 0x1
05d6 780c |x | Jump 0x5e3 ; case 0x2
05d7 781e |x | Jump 0x5f6 ; case 0x3
05d8 781d |x | Jump 0x5f6 ; case 0x4
05d9 780c |x | Jump 0x5e6 ; case 0x5
05da 781b |x | Jump 0x5f6 ; case 0x6
05db 781c |x | Jump 0x5f8 ; case 0x7
05dc 7819 |x | Jump 0x5f6 ; case 0x8
05dd 7812 |x | Jump 0x5f0 ; case 0x9
05de 7814 |x | Jump 0x5f3 ; case 0xa
05df 7800 |x | Jump 0x5e0 ; case 0xb
05e0 480a |H | Short_Literal 0xa
05e1 a606 | | Store_Unchecked 0x3,0x6
05e2 7815 |x | Jump 0x5f8
05e3 480b |H | Short_Literal 0xb
05e4 a606 | | Store_Unchecked 0x3,0x6
05e5 7812 |x | Jump 0x5f8
05e6 480c |H | Short_Literal 0xc
05e7 a606 | | Store_Unchecked 0x3,0x6
05e8 e40f | | Load 0x2,0xf
05e9 a604 | | Store_Unchecked 0x3,0x4
05ea 780d |x | Jump 0x5f8
05eb 480b |H | Short_Literal 0xb
05ec a606 | | Store_Unchecked 0x3,0x6
05ed e40f | | Load 0x2,0xf
05ee a604 | | Store_Unchecked 0x3,0x4
05ef 7808 |x | Jump 0x5f8
05f0 480c |H | Short_Literal 0xc
05f1 a606 | | Store_Unchecked 0x3,0x6
05f2 7805 |x | Jump 0x5f8
05f3 4803 |H | Short_Literal 0x3
05f4 a606 | | Store_Unchecked 0x3,0x6
05f5 7802 |x | Jump 0x5f8
05f6 e606 | | Load 0x3,0x6
05f7 8415 | | Call 0x2,0x15
05f8 e40f | | Load 0x2,0xf
05f9 0a01 | | Execute_Immediate Plus,0x1
05fa c40f | | Store 0x2,0xf
05fb 00c9 | | Action Pop_Auxiliary_Loop
05fc 00a7 03cf | | Action Jump_Extended,0x3cf
05fe 00ce | | Action Pop_Auxiliary
05ff e602 | | Load 0x3,0x2
0600 00ca | | Action Exit_Nullary_Function
0601 0000 0000 | | .BLANK 0000[0x7]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060d | | .CONST 0x060d ; Address of begin
0609 0638 | 8 | .CONST 0x0638 ; Address of exception handler
060a 0002 | | .CONST 0x0002 ; Number of locals
060b INIT_0608:
060b 029f 086b | k| Declare_Subprogram INIT_0868,For_Call
060d BODY_0608:
060d e40f | | Load 0x2,0xf
060e e5fd | | Load 0x2,-0x3
060f 01dc | | Execute Vector,Last
0610 027d | } | Execute Discrete,Greater
0611 680c |h | Jump_Zero 0x61e
0612 4800 |H | Short_Literal 0x0
0613 e409 | | Load 0x2,0x9
0614 1c08 | | Execute_Immediate Run_Utility,0x8
0615 e406 | | Load 0x2,0x6
0616 e603 | | Load 0x3,0x3
0617 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0618 e40a | | Load 0x2,0xa
0619 e603 | | Load 0x3,0x3
061a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
061b e40a | | Load 0x2,0xa
061c 03b6 | | Declare_Variable Access,By_Allocation,With_Value
061d 00ca | | Action Exit_Nullary_Function
061e e40f | | Load 0x2,0xf
061f e5fd | | Load 0x2,-0x3
0620 01d7 | | Execute Vector,Field_Read
0621 0f28 | ( | Execute_Immediate Equal,0x28
0622 6802 |h | Jump_Zero 0x625
0623 8602 | | Call 0x3,0x2
0624 7812 |x | Jump 0x637
0625 4800 |H | Short_Literal 0x0
0626 e409 | | Load 0x2,0x9
0627 1c08 | | Execute_Immediate Run_Utility,0x8
0628 00d8 | | Load_Top At_Offset_0
0629 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
062a e40f | | Load 0x2,0xf
062b e604 | | Load 0x3,0x4
062c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
062d e5fd | | Load 0x2,-0x3
062e 01dc | | Execute Vector,Last
062f 00d0 | | Action Swap_Control
0630 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0631 e40a | | Load 0x2,0xa
0632 e603 | | Load 0x3,0x3
0633 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0634 e40a | | Load 0x2,0xa
0635 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0636 00ca | | Action Exit_Nullary_Function
0637 0831 | 1 | Execute_Immediate Raise,0x31
0638 TRAP_0608:
0638 0007 | | Action Break_Optional
0639 e403 | | Load 0x2,0x3
063a 7007 |p | Jump_Nonzero 0x642
063b 0092 08bb | | Action Push_String_Extended,0x8bb ; "*** unhandled parser exception at position"
063d e40f | | Load 0x2,0xf
063e 00e0 | | Load_Encached Standard_Cache
063f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0640 01cc | | Execute Vector,Catenate
0641 8407 | | Call 0x2,0x7
0642 00d8 | | Load_Top At_Offset_0
0643 0101 | | Execute Exception,Reraise
0644 0000 0000 | | .BLANK 0000[0x4]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b e7ff | | Load 0x3,-0x1
064c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
064d e7ff | | Load 0x3,-0x1
064e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
064f 0272 | r | Execute Discrete,Minus
0650 0a01 | | Execute_Immediate Plus,0x1
0651 00d8 | | Load_Top At_Offset_0
0652 00e3 | | Load_Encached Natural_Cache
0653 0260 | ` | Execute Discrete,In_Type
0654 7001 |p | Jump_Nonzero 0x656
0655 0801 | | Execute_Immediate Raise,0x1
0656 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0657 0000 | | .XXX[0x1]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b e5f9 | | Load 0x2,-0x7
065c 0092 08bc | | Action Push_String_Extended,0x8bc ; "... "
065e e419 | | Load 0x2,0x19
065f e002 | | Load 0x0,0x2
0660 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0661 481a |H | Short_Literal 0x1a
0662 4802 |H | Short_Literal 0x2
0663 0099 | | Action Reference_Dynamic
0664 481b |H | Short_Literal 0x1b
0665 4802 |H | Short_Literal 0x2
0666 0099 | | Action Reference_Dynamic
0667 820d | | Call 0x1,0xd
0668 e419 | | Load 0x2,0x19
0669 4820 |H | Short_Literal 0x20
066a 4800 |H | Short_Literal 0x0
066b e002 | | Load 0x0,0x2
066c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
066d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
066e 0000 0000 | | .XXX[0x2]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 067d | } | .CONST 0x067d ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0002 | | .CONST 0x0002 ; Number of locals
0673 INIT_0670:
0673 e419 | | Load 0x2,0x19
0674 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0675 e419 | | Load 0x2,0x19
0676 e002 | | Load 0x0,0x2
0677 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0678 0272 | r | Execute Discrete,Minus
0679 e7ff | | Load 0x3,-0x1
067a 01db | | Execute Vector,Length
067b 027b | { | Execute Discrete,Greater_Equal
067c 0007 | | Action Break_Optional
067d BODY_0670:
067d 00d8 | | Load_Top At_Offset_0
067e 6806 |h | Jump_Zero 0x685
067f e419 | | Load 0x2,0x19
0680 e7ff | | Load 0x3,-0x1
0681 e002 | | Load 0x0,0x2
0682 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0683 00d1 | | Pop_Control Pop_Count_1
0684 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0685 841d | | Call 0x2,0x1d
0686 484f |HO | Short_Literal 0x4f
0687 00ea | | Load_Encached Null_String_Cache
0688 e7ff | | Load 0x3,-0x1
0689 481a |H | Short_Literal 0x1a
068a 4802 |H | Short_Literal 0x2
068b 0099 | | Action Reference_Dynamic
068c 481b |H | Short_Literal 0x1b
068d 4802 |H | Short_Literal 0x2
068e 0099 | | Action Reference_Dynamic
068f 820d | | Call 0x1,0xd
0690 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0691 0000 0000 | | .BLANK 0000[0x7]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b INIT_0698:
069b 4800 |H | Short_Literal 0x0
069c e7ff | | Load 0x3,-0x1
069d 4823 |H# | Short_Literal 0x23
069e e004 | | Load 0x0,0x4
069f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
06a0 7004 |p | Jump_Nonzero 0x6a5
06a1 e7ff | | Load 0x3,-0x1
06a2 e004 | | Load 0x0,0x4
06a3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
06a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06a5 e7ff | | Load 0x3,-0x1
06a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06a7 0000 | | .XXX[0x1]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06bf | | .CONST 0x06bf ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0005 | | .CONST 0x0005 ; Number of locals
06ab INIT_06a8:
06ab e7ff | | Load 0x3,-0x1
06ac 8418 | | Call 0x2,0x18
06ad 4801 |H | Short_Literal 0x1
06ae e602 | | Load 0x3,0x2
06af 00e9 | | Load_Encached String_Cache
06b0 035b | [ | Declare_Type Array,Constrained
06b1 0337 | 7 | Declare_Variable Array
06b2 e7ff | | Load 0x3,-0x1
06b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06b4 e7ff | | Load 0x3,-0x1
06b5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06b6 e5fd | | Load 0x2,-0x3
06b7 01cf | | Execute Vector,Slice_Read
06b8 e603 | | Load 0x3,0x3
06b9 01d4 | | Execute Vector,Structure_Write
06ba 00e2 | | Load_Encached Integer_Cache
06bb 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
06bc e602 | | Load 0x3,0x2
06bd 00e2 | | Load_Encached Integer_Cache
06be 03f1 | | Declare_Variable Discrete,With_Value
06bf BODY_06a8:
06bf 00cf | | Action Mark_Auxiliary
06c0 e604 | | Load 0x3,0x4
06c1 e603 | | Load 0x3,0x3
06c2 01d7 | | Execute Vector,Field_Read
06c3 0f09 | | Execute_Immediate Equal,0x9
06c4 6804 |h | Jump_Zero 0x6c9
06c5 482c |H, | Short_Literal 0x2c
06c6 e604 | | Load 0x3,0x4
06c7 e603 | | Load 0x3,0x3
06c8 01d6 | | Execute Vector,Field_Write
06c9 e604 | | Load 0x3,0x4
06ca e603 | | Load 0x3,0x3
06cb 01d7 | | Execute Vector,Field_Read
06cc 7004 |p | Jump_Nonzero 0x6d1
06cd 4820 |H | Short_Literal 0x20
06ce e604 | | Load 0x3,0x4
06cf e603 | | Load 0x3,0x3
06d0 01d6 | | Execute Vector,Field_Write
06d1 e604 | | Load 0x3,0x4
06d2 e603 | | Load 0x3,0x3
06d3 01d7 | | Execute Vector,Field_Read
06d4 0f1b | | Execute_Immediate Equal,0x1b
06d5 6817 |h | Jump_Zero 0x6ed
06d6 e604 | | Load 0x3,0x4
06d7 0a01 | | Execute_Immediate Plus,0x1
06d8 00d8 | | Load_Top At_Offset_0
06d9 00e2 | | Load_Encached Integer_Cache
06da 0260 | ` | Execute Discrete,In_Type
06db 7001 |p | Jump_Nonzero 0x6dd
06dc 0801 | | Execute_Immediate Raise,0x1
06dd e605 | | Load 0x3,0x5
06de e603 | | Load 0x3,0x3
06df 01cf | | Execute Vector,Slice_Read
06e0 e604 | | Load 0x3,0x4
06e1 e605 | | Load 0x3,0x5
06e2 0aff | | Execute_Immediate Plus,-0x1
06e3 00d8 | | Load_Top At_Offset_0
06e4 00e2 | | Load_Encached Integer_Cache
06e5 0260 | ` | Execute Discrete,In_Type
06e6 7001 |p | Jump_Nonzero 0x6e8
06e7 0801 | | Execute_Immediate Raise,0x1
06e8 e603 | | Load 0x3,0x3
06e9 01ce | | Execute Vector,Slice_Write
06ea e605 | | Load 0x3,0x5
06eb 0aff | | Execute_Immediate Plus,-0x1
06ec c605 | | Store 0x3,0x5
06ed e604 | | Load 0x3,0x4
06ee 0a01 | | Execute_Immediate Plus,0x1
06ef c604 | | Store 0x3,0x4
06f0 e604 | | Load 0x3,0x4
06f1 e605 | | Load 0x3,0x5
06f2 027d | } | Execute Discrete,Greater
06f3 7002 |p | Jump_Nonzero 0x6f6
06f4 00c9 | | Action Pop_Auxiliary_Loop
06f5 7fca | | Jump 0x6c0
06f6 00ce | | Action Pop_Auxiliary
06f7 4801 |H | Short_Literal 0x1
06f8 e605 | | Load 0x3,0x5
06f9 e603 | | Load 0x3,0x3
06fa 01cf | | Execute Vector,Slice_Read
06fb 00e9 | | Load_Encached String_Cache
06fc 01c6 | | Execute Vector,Convert_To_Formal
06fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06fe 0000 0000 | | .XXX[0x2]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703 | | .CONST 0x0703 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0001 | | .CONST 0x0001 ; Number of locals
0703 BODY_0700:
0703 INIT_0700:
0703 e7ff | | Load 0x3,-0x1
0704 8420 | | Call 0x2,0x20
0705 841f | | Call 0x2,0x1f
0706 841e | | Call 0x2,0x1e
0707 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 071f | | .CONST 0x071f ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0005 | | .CONST 0x0005 ; Number of locals
070b INIT_0708:
070b e7ff | | Load 0x3,-0x1
070c 8418 | | Call 0x2,0x18
070d 4801 |H | Short_Literal 0x1
070e e602 | | Load 0x3,0x2
070f 00e9 | | Load_Encached String_Cache
0710 035b | [ | Declare_Type Array,Constrained
0711 0337 | 7 | Declare_Variable Array
0712 e7ff | | Load 0x3,-0x1
0713 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0714 e7ff | | Load 0x3,-0x1
0715 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0716 e5fd | | Load 0x2,-0x3
0717 01cf | | Execute Vector,Slice_Read
0718 e603 | | Load 0x3,0x3
0719 01d4 | | Execute Vector,Structure_Write
071a 00e2 | | Load_Encached Integer_Cache
071b 0602 | | Execute_Immediate Set_Value_Unchecked,0x2
071c e602 | | Load 0x3,0x2
071d 00e2 | | Load_Encached Integer_Cache
071e 03f1 | | Declare_Variable Discrete,With_Value
071f BODY_0708:
071f 00cf | | Action Mark_Auxiliary
0720 e604 | | Load 0x3,0x4
0721 e605 | | Load 0x3,0x5
0722 027b | { | Execute Discrete,Greater_Equal
0723 7021 |p! | Jump_Nonzero 0x745
0724 e604 | | Load 0x3,0x4
0725 e603 | | Load 0x3,0x3
0726 01d7 | | Execute Vector,Field_Read
0727 0f22 | " | Execute_Immediate Equal,0x22
0728 6817 |h | Jump_Zero 0x740
0729 e604 | | Load 0x3,0x4
072a 0a01 | | Execute_Immediate Plus,0x1
072b 00d8 | | Load_Top At_Offset_0
072c 00e2 | | Load_Encached Integer_Cache
072d 0260 | ` | Execute Discrete,In_Type
072e 7001 |p | Jump_Nonzero 0x730
072f 0801 | | Execute_Immediate Raise,0x1
0730 e605 | | Load 0x3,0x5
0731 e603 | | Load 0x3,0x3
0732 01cf | | Execute Vector,Slice_Read
0733 e604 | | Load 0x3,0x4
0734 e605 | | Load 0x3,0x5
0735 0aff | | Execute_Immediate Plus,-0x1
0736 00d8 | | Load_Top At_Offset_0
0737 00e2 | | Load_Encached Integer_Cache
0738 0260 | ` | Execute Discrete,In_Type
0739 7001 |p | Jump_Nonzero 0x73b
073a 0801 | | Execute_Immediate Raise,0x1
073b e603 | | Load 0x3,0x3
073c 01ce | | Execute Vector,Slice_Write
073d e605 | | Load 0x3,0x5
073e 0aff | | Execute_Immediate Plus,-0x1
073f c605 | | Store 0x3,0x5
0740 e604 | | Load 0x3,0x4
0741 0a01 | | Execute_Immediate Plus,0x1
0742 c604 | | Store 0x3,0x4
0743 00c9 | | Action Pop_Auxiliary_Loop
0744 7fdb | | Jump 0x720
0745 00ce | | Action Pop_Auxiliary
0746 4801 |H | Short_Literal 0x1
0747 e605 | | Load 0x3,0x5
0748 e603 | | Load 0x3,0x3
0749 01cf | | Execute Vector,Slice_Read
074a 00e9 | | Load_Encached String_Cache
074b 01c6 | | Execute Vector,Convert_To_Formal
074c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
074d 0000 0000 | | .XXX[0x3]
074f 0000 | |
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 e7ff | | Load 0x3,-0x1
0754 8418 | | Call 0x2,0x18
0755 0c01 | | Execute_Immediate Greater_Equal,0x1
0756 680a |h | Jump_Zero 0x761
0757 e7ff | | Load 0x3,-0x1
0758 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0759 e5fd | | Load 0x2,-0x3
075a 01d7 | | Execute Vector,Field_Read
075b 0f22 | " | Execute_Immediate Equal,0x22
075c 6804 |h | Jump_Zero 0x761
075d e7ff | | Load 0x3,-0x1
075e 8422 | " | Call 0x2,0x22
075f 841e | | Call 0x2,0x1e
0760 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0761 e7ff | | Load 0x3,-0x1
0762 8420 | | Call 0x2,0x20
0763 841e | | Call 0x2,0x1e
0764 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0765 0000 0000 | | .XXX[0x3]
0767 0000 | |
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 0771 | q | .CONST 0x0771 ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0002 | | .CONST 0x0002 ; Number of locals
076b INIT_0768:
076b e7ff | | Load 0x3,-0x1
076c e5fa | | Load 0x2,-0x6
076d 0271 | q | Execute Discrete,Times
076e 0a01 | | Execute_Immediate Plus,0x1
076f 00e2 | | Load_Encached Integer_Cache
0770 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0771 BODY_0768:
0771 e7fe | | Load 0x3,-0x2
0772 6803 |h | Jump_Zero 0x776
0773 00d8 | | Load_Top At_Offset_0
0774 0aff | | Execute_Immediate Plus,-0x1
0775 c602 | | Store 0x3,0x2
0776 00d8 | | Load_Top At_Offset_0
0777 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 0791 | | .CONST 0x0791 ; Address of begin
0779 0004 | | .CONST 0x0004 ; Address of exception handler
077a 0003 | | .CONST 0x0003 ; Number of locals
077b INIT_0778:
077b e7fe | | Load 0x3,-0x2
077c e7ff | | Load 0x3,-0x1
077d 8424 | $ | Call 0x2,0x24
077e 4801 |H | Short_Literal 0x1
077f e602 | | Load 0x3,0x2
0780 00e9 | | Load_Encached String_Cache
0781 035b | [ | Declare_Type Array,Constrained
0782 0337 | 7 | Declare_Variable Array
0783 00d8 | | Load_Top At_Offset_0
0784 0335 | 5 | Declare_Variable Array,Duplicate
0785 00cd | | Action Spare6_Action
0786 e603 | | Load 0x3,0x3
0787 01d9 | | Execute Vector,Reverse_Bounds
0788 0263 | c | Execute Discrete,Above_Bound
0789 7005 |p | Jump_Nonzero 0x78f
078a 4820 |H | Short_Literal 0x20
078b e606 | | Load 0x3,0x6
078c e604 | | Load 0x3,0x4
078d 01d6 | | Execute Vector,Field_Write
078e 3ffb |? | Loop_Increasing 0x78a
078f e603 | | Load 0x3,0x3
0790 01d4 | | Execute Vector,Structure_Write
0791 BODY_0778:
0791 00d8 | | Load_Top At_Offset_0
0792 841e | | Call 0x2,0x1e
0793 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0794 0000 0000 | | .BLANK 0000[0x4]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07a6 | | .CONST 0x07a6 ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0003 | | .CONST 0x0003 ; Number of locals
079b INIT_0798:
079b e40a | | Load 0x2,0xa
079c e7ff | | Load 0x3,-0x1
079d 0227 | ' | Execute Access,All_Reference
079e 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
079f a602 | | Store_Unchecked 0x3,0x2
07a0 e419 | | Load 0x2,0x19
07a1 e002 | | Load 0x0,0x2
07a2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
07a3 0a01 | | Execute_Immediate Plus,0x1
07a4 00e2 | | Load_Encached Integer_Cache
07a5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
07a6 BODY_0798:
07a6 e602 | | Load 0x3,0x2
07a7 6825 |h% | Jump_Zero 0x7cd
07a8 00cf | | Action Mark_Auxiliary
07a9 e602 | | Load 0x3,0x2
07aa 0227 | ' | Execute Access,All_Reference
07ab 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07ac 0e01 | | Execute_Immediate Not_Equal,0x1
07ad 6802 |h | Jump_Zero 0x7b0
07ae 4800 |H | Short_Literal 0x0
07af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07b0 e603 | | Load 0x3,0x3
07b1 e602 | | Load 0x3,0x2
07b2 0227 | ' | Execute Access,All_Reference
07b3 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
07b4 8418 | | Call 0x2,0x18
07b5 0273 | s | Execute Discrete,Plus
07b6 c603 | | Store 0x3,0x3
07b7 e603 | | Load 0x3,0x3
07b8 0a04 | | Execute_Immediate Plus,0x4
07b9 c603 | | Store 0x3,0x3
07ba e603 | | Load 0x3,0x3
07bb e602 | | Load 0x3,0x2
07bc 0227 | ' | Execute Access,All_Reference
07bd 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
07be 8418 | | Call 0x2,0x18
07bf 0273 | s | Execute Discrete,Plus
07c0 c603 | | Store 0x3,0x3
07c1 e602 | | Load 0x3,0x2
07c2 0227 | ' | Execute Access,All_Reference
07c3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
07c4 a602 | | Store_Unchecked 0x3,0x2
07c5 e602 | | Load 0x3,0x2
07c6 6805 |h | Jump_Zero 0x7cc
07c7 e603 | | Load 0x3,0x3
07c8 0a02 | | Execute_Immediate Plus,0x2
07c9 c603 | | Store 0x3,0x3
07ca 00c9 | | Action Pop_Auxiliary_Loop
07cb 7fdd | | Jump 0x7a9
07cc 00ce | | Action Pop_Auxiliary
07cd 00d8 | | Load_Top At_Offset_0
07ce e7fe | | Load 0x3,-0x2
07cf 0273 | s | Execute Discrete,Plus
07d0 0a01 | | Execute_Immediate Plus,0x1
07d1 c603 | | Store 0x3,0x3
07d2 00d8 | | Load_Top At_Offset_0
07d3 e5f9 | | Load 0x2,-0x7
07d4 027a | z | Execute Discrete,Less_Equal
07d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07d6 0000 0000 | | .XXX[0x2]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07df | | .CONST 0x07df ; Address of begin
07d9 0004 | | .CONST 0x0004 ; Address of exception handler
07da 0003 | | .CONST 0x0003 ; Number of locals
07db INIT_07d8:
07db 00e1 | | Load_Encached Boolean_Cache
07dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07dd 029f 087b | {| Declare_Subprogram INIT_0878,For_Call
07df BODY_07d8:
07df e7ff | | Load 0x3,-0x1
07e0 0227 | ' | Execute Access,All_Reference
07e1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07e2 4602 |F | Jump_Case 0x3
07e3 782d |x- | Jump 0x811 ; case 0x0
07e4 7831 |x1 | Jump 0x816 ; case 0x1
07e5 7800 |x | Jump 0x7e6 ; case 0x2
07e6 e7fe | | Load 0x3,-0x2
07e7 0c01 | | Execute_Immediate Greater_Equal,0x1
07e8 6815 |h | Jump_Zero 0x7fe
07e9 e7ff | | Load 0x3,-0x1
07ea 0227 | ' | Execute Access,All_Reference
07eb 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
07ec 8421 | ! | Call 0x2,0x21
07ed 0092 08bd | | Action Push_String_Extended,0x8bd ; " => "
07ef 841e | | Call 0x2,0x1e
07f0 e7fe | | Load 0x3,-0x2
07f1 e7ff | | Load 0x3,-0x1
07f2 8426 | & | Call 0x2,0x26
07f3 a602 | | Store_Unchecked 0x3,0x2
07f4 e602 | | Load 0x3,0x2
07f5 7008 |p | Jump_Nonzero 0x7fe
07f6 e7fe | | Load 0x3,-0x2
07f7 e5fb | | Load 0x2,-0x5
07f8 027c | | | Execute Discrete,Less
07f9 6804 |h | Jump_Zero 0x7fe
07fa 841d | | Call 0x2,0x1d
07fb 4801 |H | Short_Literal 0x1
07fc e7fe | | Load 0x3,-0x2
07fd 8425 | % | Call 0x2,0x25
07fe e7fe | | Load 0x3,-0x2
07ff e5fb | | Load 0x2,-0x5
0800 027c | | | Execute Discrete,Less
0801 680b |h | Jump_Zero 0x80d
0802 0092 08ad | | Action Push_String_Extended,0x8ad ; "("
0804 841e | | Call 0x2,0x1e
0805 e602 | | Load 0x3,0x2
0806 7004 |p | Jump_Nonzero 0x80b
0807 e7fe | | Load 0x3,-0x2
0808 e7ff | | Load 0x3,-0x1
0809 8426 | & | Call 0x2,0x26
080a a602 | | Store_Unchecked 0x3,0x2
080b 8603 | | Call 0x3,0x3
080c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
080d 0092 08be | | Action Push_String_Extended,0x8be ; "..."
080f 841e | | Call 0x2,0x1e
0810 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0811 e7ff | | Load 0x3,-0x1
0812 0227 | ' | Execute Access,All_Reference
0813 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0814 8423 | # | Call 0x2,0x23
0815 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0816 e7ff | | Load 0x3,-0x1
0817 0227 | ' | Execute Access,All_Reference
0818 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0819 8421 | ! | Call 0x2,0x21
081a 0092 08bd | | Action Push_String_Extended,0x8bd ; " => "
081c 841e | | Call 0x2,0x1e
081d e7ff | | Load 0x3,-0x1
081e 0227 | ' | Execute Access,All_Reference
081f 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0820 8423 | # | Call 0x2,0x23
0821 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0822 0000 0000 | | .BLANK 0000[0x6]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b | + | .CONST 0x082b ; Address of begin
0829 082f | / | .CONST 0x082f ; Address of exception handler
082a 0001 | | .CONST 0x0001 ; Number of locals
082b BODY_0828:
082b INIT_0828:
082b e7fe | | Load 0x3,-0x2
082c e7ff | | Load 0x3,-0x1
082d 8427 | ' | Call 0x2,0x27
082e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
082f TRAP_0828:
082f 0007 | | Action Break_Optional
0830 e403 | | Load 0x2,0x3
0831 7003 |p | Jump_Nonzero 0x835
0832 0092 08bf | | Action Push_String_Extended,0x8bf ; "*** unhandled pretty printer exception"
0834 8407 | | Call 0x2,0x7
0835 00d8 | | Load_Top At_Offset_0
0836 0101 | | Execute Exception,Reraise
0837 0000 | | .XXX[0x1]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083b | ; | .CONST 0x083b ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0001 | | .CONST 0x0001 ; Number of locals
083b BODY_0838:
083b INIT_0838:
083b e405 | | Load 0x2,0x5
083c 0322 | " | Declare_Variable Record
083d e604 | | Load 0x3,0x4
083e e802 | | Load 0x4,0x2
083f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0840 e40f | | Load 0x2,0xf
0841 0aff | | Execute_Immediate Plus,-0x1
0842 e802 | | Load 0x4,0x2
0843 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0844 e605 | | Load 0x3,0x5
0845 017d | } | Execute Record,Structure_Write
0846 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0847 0000 | | .XXX[0x1]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084f | O | .CONST 0x084f ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0002 | | .CONST 0x0002 ; Number of locals
084b INIT_0848:
084b e40f | | Load 0x2,0xf
084c 0aff | | Execute_Immediate Plus,-0x1
084d 00e2 | | Load_Encached Integer_Cache
084e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
084f BODY_0848:
084f 00cf | | Action Mark_Auxiliary
0850 e802 | | Load 0x4,0x2
0851 e604 | | Load 0x3,0x4
0852 027c | | | Execute Discrete,Less
0853 700a |p | Jump_Nonzero 0x85e
0854 e802 | | Load 0x4,0x2
0855 e5fd | | Load 0x2,-0x3
0856 01d7 | | Execute Vector,Field_Read
0857 0e20 | | Execute_Immediate Not_Equal,0x20
0858 7005 |p | Jump_Nonzero 0x85e
0859 e802 | | Load 0x4,0x2
085a 0aff | | Execute_Immediate Plus,-0x1
085b c802 | | Store 0x4,0x2
085c 00c9 | | Action Pop_Auxiliary_Loop
085d 7ff2 | | Jump 0x850
085e 00ce | | Action Pop_Auxiliary
085f e405 | | Load 0x2,0x5
0860 0322 | " | Declare_Variable Record
0861 e604 | | Load 0x3,0x4
0862 e803 | | Load 0x4,0x3
0863 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0864 e802 | | Load 0x4,0x2
0865 e803 | | Load 0x4,0x3
0866 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0867 00ca | | Action Exit_Nullary_Function
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086c | l | .CONST 0x086c ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0002 | | .CONST 0x0002 ; Number of locals
086b INIT_0868:
086b 8416 | | Call 0x2,0x16
086c BODY_0868:
086c e40f | | Load 0x2,0xf
086d e5fd | | Load 0x2,-0x3
086e 01dc | | Execute Vector,Last
086f 027c | | | Execute Discrete,Less
0870 6803 |h | Jump_Zero 0x874
0871 0092 08c0 | | Action Push_String_Extended,0x8c0 ; "warning: garbage characters beyond aggregate end"
0873 8407 | | Call 0x2,0x7
0874 00d8 | | Load_Top At_Offset_0
0875 00cb | | Action Pop_Block_With_Result
0876 00ca | | Action Exit_Nullary_Function
0877 0000 | | .XXX[0x1]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 0880 | | .CONST 0x0880 ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0002 | | .CONST 0x0002 ; Number of locals
087b INIT_0878:
087b e40a | | Load 0x2,0xa
087c e7ff | | Load 0x3,-0x1
087d 0227 | ' | Execute Access,All_Reference
087e 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
087f a802 | | Store_Unchecked 0x4,0x2
0880 BODY_0878:
0880 00d8 | | Load_Top At_Offset_0
0881 681c |h | Jump_Zero 0x89e
0882 00cf | | Action Mark_Auxiliary
0883 e7fe | | Load 0x3,-0x2
0884 0a01 | | Execute_Immediate Plus,0x1
0885 00d8 | | Load_Top At_Offset_0
0886 00e3 | | Load_Encached Natural_Cache
0887 0260 | ` | Execute Discrete,In_Type
0888 7001 |p | Jump_Nonzero 0x88a
0889 0801 | | Execute_Immediate Raise,0x1
088a e802 | | Load 0x4,0x2
088b 8427 | ' | Call 0x2,0x27
088c e802 | | Load 0x4,0x2
088d 0227 | ' | Execute Access,All_Reference
088e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
088f a802 | | Store_Unchecked 0x4,0x2
0890 e802 | | Load 0x4,0x2
0891 680b |h | Jump_Zero 0x89d
0892 0092 08c1 | | Action Push_String_Extended,0x8c1 ; ", "
0894 841e | | Call 0x2,0x1e
0895 e602 | | Load 0x3,0x2
0896 7004 |p | Jump_Nonzero 0x89b
0897 841d | | Call 0x2,0x1d
0898 4800 |H | Short_Literal 0x0
0899 e7fe | | Load 0x3,-0x2
089a 8425 | % | Call 0x2,0x25
089b 00c9 | | Action Pop_Auxiliary_Loop
089c 7fe6 | | Jump 0x883
089d 00ce | | Action Pop_Auxiliary
089e 0092 08b9 | | Action Push_String_Extended,0x8b9 ; ")"
08a0 841e | | Call 0x2,0x1e
08a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08a2 ; --------------------------------------------------------------------------------------
08a2 ; STRING TABLE
08a2 ; --------------------------------------------------------------------------------------
08a2 0042 | B | .STRTAB 0x0042->0x08c3 ; "UNHANDLED"
08a3 0049 | I | .STRTAB 0x0049->0x08c7 ; "PUT_LINE_ERROR"
08a4 0055 | U | .STRTAB 0x0055->0x08ce ; "PARSER_ERROR"
08a5 005f | _ | .STRTAB 0x005f->0x08d4 ; "PRETTY_PRINTER_ERROR"
08a6 0071 | q | .STRTAB 0x0071->0x08de ; "VALUE"
08a7 0074 | t | .STRTAB 0x0074->0x08e1 ; "SIMPLE_FIELD"
08a8 007e | ~ | .STRTAB 0x007e->0x08e7 ; "AGGREGATE_FIELD"
08a9 008b | | .STRTAB 0x008b->0x08ee ; "unknown"
08aa 0090 | | .STRTAB 0x0090->0x08f2 ; "^"
08ab 008f | | .STRTAB 0x008f->0x08f2 ; "end"
08ac 0090 | | .STRTAB 0x0090->0x08f4 ; "how did we get here?"
08ad 00a2 | | .STRTAB 0x00a2->0x08fe ; "("
08ae 00a1 | | .STRTAB 0x00a1->0x08fe ; "the first character of a name, or ')'; specifically, a character from the set { 'a'..'z', 'A'..'Z', '0'..'9', '#', '_', '-', '.', '<', '>', Nul, Ht }"
08af 0134 | 4 | .STRTAB 0x0134->0x0949 ; "a character appropriate for name, or \x22=>\x22; specifically, a character from the set { 'a'..'z', 'A'..'Z', '0'..'9', '#', '_', '-', '.', '<', '>', Nul, Ht, '=' }"
08b0 01d0 | | .STRTAB 0x01d0->0x0998 ; "an \x22=>\x22"
08b1 01d5 | | .STRTAB 0x01d5->0x099b ; "the 2nd character from the \x22=>\x22 symbol"
08b2 01f9 | | .STRTAB 0x01f9->0x09ae ; "the 1st character from a value or quoted string; specifically, a character that does not come from the set { '(', ')', ',' }"
08b3 0273 | s | .STRTAB 0x0273->0x09ec ; "a character from the set { ',', ')', '\x22'."
08b4 029a | | .STRTAB 0x029a->0x0a01 ; "a character appropriate for a quoted string."
08b5 02c4 | | .STRTAB 0x02c4->0x0a17 ; "a character from the set { ',', ')' }"
08b6 02e7 | | .STRTAB 0x02e7->0x0a29 ; "a character appropriate for a raw value; specifically, a character that does not come from the set { ',', ')' }"
08b7 0354 | T | .STRTAB 0x0354->0x0a61 ; "Parsing error: received "
08b8 036a | j | .STRTAB 0x036a->0x0a6d ; " (at character position"
08b9 037f | | .STRTAB 0x037f->0x0a78 ; ")"
08ba 037e | ~ | .STRTAB 0x037e->0x0a79 ; ", expected "
08bb 0387 | | .STRTAB 0x0387->0x0a7e ; "*** unhandled parser exception at position"
08bc 03af | | .STRTAB 0x03af->0x0a93 ; "... "
08bd 03b1 | | .STRTAB 0x03b1->0x0a95 ; " => "
08be 03b3 | | .STRTAB 0x03b3->0x0a97 ; "..."
08bf 03b4 | | .STRTAB 0x03b4->0x0a99 ; "*** unhandled pretty printer exception"
08c0 03d8 | | .STRTAB 0x03d8->0x0aac ; "warning: garbage characters beyond aggregate end"
08c1 0406 | | .STRTAB 0x0406->0x0ac4 ; ", "
08c2 0406 | | .STREND 0x0406->0x0ac5
08c3 554e 4841 |UNHA| .STRTAB_STRINGS
0ac5 0000 0000 | | .XXX[0x3]
0ac7 0000 | |
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; Debug Table
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x975c,0x0000,0x0001,0x0000
0ace 0000 0000 | | .BLANK 0000[0x132]