DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦5c33424c6⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 0a40       | @  |		.CONST	0x0a40								; 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 0017       |    |		.CONST	0x0017								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
0011 c20f       |    |		Store	0x1,0xf
0012 00bf       |    |		Action	Accept_Activation
0013 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0014 00c7       |    |		Action	Elaborate_Subprogram
0015 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0016 00c7       |    |		Action	Elaborate_Subprogram
0017			BODY_0008:
0017 00bc       |    |		Action	Signal_Activated
0018 00bb       |    |		Action	Signal_Completion
0019 0000 0000  |    |		.BLANK	0000[0x7]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0034       | 4  |		.CONST	0x0034								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0009       |    |		.CONST	0x0009								; Number of locals
0023			INIT_0020:
0023 00e1       |    |		Load_Encached	Boolean_Cache
0024 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0025 e5fd       |    |		Load	0x2,-0x3
0026 01dd       |    |		Execute	Vector,First
0027 00e3       |    |		Load_Encached	Natural_Cache
0028 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0029 00e3       |    |		Load_Encached	Natural_Cache
002a 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call
002c 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
002e 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
0030 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0032 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
0034			BODY_0020:
0034 e5fd       |    |		Load	0x2,-0x3
0035 01db       |    |		Execute	Vector,Length
0036 7003       |p   |		Jump_Nonzero	0x3a
0037 e5fd       |    |		Load	0x2,-0x3
0038 85fe       |    |		Call	0x2,-0x2
0039 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
003a 00cf       |    |		Action	Mark_Auxiliary
003b 8408       |    |		Call	0x2,0x8
003c e403       |    |		Load	0x2,0x3
003d e404       |    |		Load	0x2,0x4
003e 027d       | }  |		Execute	Discrete,Greater
003f 7009       |p   |		Jump_Nonzero	0x49
0040 8409       |    |		Call	0x2,0x9
0041 85fe       |    |		Call	0x2,-0x2
0042 4801       |H   |		Short_Literal	0x1
0043 a402       |    |		Store_Unchecked	0x2,0x2
0044 e404       |    |		Load	0x2,0x4
0045 0a01       |    |		Execute_Immediate	Plus,0x1
0046 c403       |    |		Store	0x2,0x3
0047 00c9       |    |		Action	Pop_Auxiliary_Loop
0048 7ff2       |    |		Jump	0x3b
0049 00ce       |    |		Action	Pop_Auxiliary
004a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
004b 0000 0000  |    |		.BLANK	0000[0x5]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 00d5       |    |		.CONST	0x00d5								; Address of begin
0051 00e7       |    |		.CONST	0x00e7								; Address of exception handler
0052 0028       | (  |		.CONST	0x0028								; Number of locals
0053			INIT_0050:
0053 4800       |H   |		Short_Literal	0x0
0054 4803       |H   |		Short_Literal	0x3
0055 029f 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Call
0057 03fd       |    |		Declare_Type	Discrete,Defined
0058 00d8       |    |		Load_Top	At_Offset_0
0059 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
005a 029f 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Call
005c 00e3       |    |		Load_Encached	Natural_Cache
005d 00e3       |    |		Load_Encached	Natural_Cache
005e 02a0       |    |		Declare_Subprogram	Null_Subprogram
005f 4802       |H   |		Short_Literal	0x2
0060 032d       | -  |		Declare_Type	Record,Defined
0061 00d8       |    |		Load_Top	At_Offset_0
0062 0322       | "  |		Declare_Variable	Record
0063 4801       |H   |		Short_Literal	0x1
0064 e406       |    |		Load	0x2,0x6
0065 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0066 4800       |H   |		Short_Literal	0x0
0067 e406       |    |		Load	0x2,0x6
0068 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0069 029f 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Call
006b 4800       |H   |		Short_Literal	0x0
006c 4802       |H   |		Short_Literal	0x2
006d 029f 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Call
006f 03fd       |    |		Declare_Type	Discrete,Defined
0070 00d8       |    |		Load_Top	At_Offset_0
0071 4803       |H   |		Short_Literal	0x3
0072 4800       |H   |		Short_Literal	0x0
0073 4801       |H   |		Short_Literal	0x1
0074 4807       |H   |		Short_Literal	0x7
0075 0318       |    |		Declare_Type	Variant_Record,Incomplete
0076 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
0078 00d9       |    |		Load_Top	At_Offset_1
0079 012a       | *  |		Execute	Any,Change_Utility
007a 0007       |    |		Action	Break_Optional
007b 00d8       |    |		Load_Top	At_Offset_0
007c 02a0       |    |		Declare_Subprogram	Null_Subprogram
007d 481c       |H   |		Short_Literal	0x1c
007e 03d5       |    |		Declare_Type	Access,Defined
007f 00d8       |    |		Load_Top	At_Offset_0
0080 4801       |H   |		Short_Literal	0x1
0081 e405       |    |		Load	0x2,0x5
0082 4802       |H   |		Short_Literal	0x2
0083 e405       |    |		Load	0x2,0x5
0084 e405       |    |		Load	0x2,0x5
0085 4802       |H   |		Short_Literal	0x2
0086 e405       |    |		Load	0x2,0x5
0087 e40a       |    |		Load	0x2,0xa
0088 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
008a 4805       |H   |		Short_Literal	0x5
008b 4801       |H   |		Short_Literal	0x1
008c e409       |    |		Load	0x2,0x9
008d 0307       |    |		Complete_Type	Variant_Record,By_Defining
008e 00d8       |    |		Load_Top	At_Offset_0
008f 03c4       |    |		Complete_Type	Access,By_Component_Completion
0090 029f 022b  |   +|		Declare_Subprogram	INIT_0228,For_Call
0092 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
0094 029f 026b  |   k|		Declare_Subprogram	INIT_0268,For_Call
0096 e5fd       |    |		Load	0x2,-0x3
0097 01dd       |    |		Execute	Vector,First
0098 00e2       |    |		Load_Encached	Integer_Cache
0099 03f1       |    |		Declare_Variable	Discrete,With_Value
009a 4801       |H   |		Short_Literal	0x1
009b 480c       |H   |		Short_Literal	0xc
009c 00e2       |    |		Load_Encached	Integer_Cache
009d 03f8       |    |		Declare_Type	Discrete,Constrained
009e 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
00a0 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
00a2 029f 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call
00a4 029f 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Call
00a6 029f 0323  |   #|		Declare_Subprogram	INIT_0320,For_Call
00a8 029f 0343  |   C|		Declare_Subprogram	INIT_0340,For_Call
00aa 029f 0593  |    |		Declare_Subprogram	INIT_0590,For_Call
00ac 029f 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Call
00ae 604d       |`M  |		Indirect_Literal	Discrete,0xfc,{0x00000000, 0x00001388}
00af e001       |    |		Load	0x0,0x1
00b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00b2 00d8       |    |		Load_Top	At_Offset_0
00b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b4 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
00b5 00c6       |    |		Action	Check_Subprogram_Elaborated
00b6 4807       |H   |		Short_Literal	0x7
00b7 4802       |H   |		Short_Literal	0x2
00b8 0099       |    |		Action	Reference_Dynamic
00b9 e002       |    |		Load	0x0,0x2
00ba e003       |    |		Load	0x0,0x3
00bb 481c       |H   |		Short_Literal	0x1c
00bc 0007       |    |		Action	Break_Optional
00bd 029f 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Call
00bf 029f 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Call
00c1 029f 0623  |   #|		Declare_Subprogram	INIT_0620,For_Call
00c3 029f 0633  |   3|		Declare_Subprogram	INIT_0630,For_Call
00c5 029f 0683  |    |		Declare_Subprogram	INIT_0680,For_Call
00c7 029f 068b  |    |		Declare_Subprogram	INIT_0688,For_Call
00c9 029f 06cb  |    |		Declare_Subprogram	INIT_06c8,For_Call
00cb 029f 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Call
00cd 029f 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Call
00cf 029f 0713  |    |		Declare_Subprogram	INIT_0710,For_Call
00d1 029f 0753  |   S|		Declare_Subprogram	INIT_0750,For_Call
00d3 029f 07a3  |    |		Declare_Subprogram	INIT_07a0,For_Call
00d5			BODY_0050:
00d5 e5fc       |    |		Load	0x2,-0x4
00d6 680b       |h   |		Jump_Zero	0xe2
00d7 484f       |HO  |		Short_Literal	0x4f
00d8 00ea       |    |		Load_Encached	Null_String_Cache
00d9 e5fd       |    |		Load	0x2,-0x3
00da 4819       |H   |		Short_Literal	0x19
00db 4802       |H   |		Short_Literal	0x2
00dc 0099       |    |		Action	Reference_Dynamic
00dd 481a       |H   |		Short_Literal	0x1a
00de 4802       |H   |		Short_Literal	0x2
00df 0099       |    |		Action	Reference_Dynamic
00e0 820d       |    |		Call	0x1,0xd
00e1 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
00e2 4800       |H   |		Short_Literal	0x0
00e3 8416       |    |		Call	0x2,0x16
00e4 8428       | (  |		Call	0x2,0x28
00e5 841d       |    |		Call	0x2,0x1d
00e6 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
00e7			TRAP_0050:
00e7 0007       |    |		Action	Break_Optional
00e8 e403       |    |		Load	0x2,0x3
00e9 0f01       |    |		Execute_Immediate	Equal,0x1
00ea 6806       |h   |		Jump_Zero	0xf1
00eb e5f8       |    |		Load	0x2,-0x8
00ec 6802       |h   |		Jump_Zero	0xef
00ed 00d8       |    |		Load_Top	At_Offset_0
00ee 0101       |    |		Execute	Exception,Reraise
00ef 0008       |    |		Action	Idle
00f0 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
00f1 484f       |HO  |		Short_Literal	0x4f
00f2 00ea       |    |		Load_Encached	Null_String_Cache
00f3 e5fd       |    |		Load	0x2,-0x3
00f4 4819       |H   |		Short_Literal	0x19
00f5 4802       |H   |		Short_Literal	0x2
00f6 0099       |    |		Action	Reference_Dynamic
00f7 481a       |H   |		Short_Literal	0x1a
00f8 4802       |H   |		Short_Literal	0x2
00f9 0099       |    |		Action	Reference_Dynamic
00fa 820d       |    |		Call	0x1,0xd
00fb 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
00fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001388}
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 e402       |    |		Load	0x2,0x2
0104 680c       |h   |		Jump_Zero	0x111
0105 e5fb       |    |		Load	0x2,-0x5
0106 e5fc       |    |		Load	0x2,-0x4
0107 01db       |    |		Execute	Vector,Length
0108 027d       | }  |		Execute	Discrete,Greater
0109 6807       |h   |		Jump_Zero	0x111
010a e5fb       |    |		Load	0x2,-0x5
010b e5fc       |    |		Load	0x2,-0x4
010c 01db       |    |		Execute	Vector,Length
010d 0272       | r  |		Execute	Discrete,Minus
010e 00e3       |    |		Load_Encached	Natural_Cache
010f 025b       | [  |		Execute	Discrete,Check_In_Type
0110 00ca       |    |		Action	Exit_Nullary_Function
0111 e5fb       |    |		Load	0x2,-0x5
0112 00ca       |    |		Action	Exit_Nullary_Function
0113 0000 0000  |    |		.BLANK	0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b e7ff       |    |		Load	0x3,-0x1
011c 00d8       |    |		Load_Top	At_Offset_0
011d 0d2d       | -  |		Execute_Immediate	Less,0x2d
011e 700b       |p   |		Jump_Nonzero	0x12a
011f 00d8       |    |		Load_Top	At_Offset_0
0120 0c3b       | ;  |		Execute_Immediate	Greater_Equal,0x3b
0121 7003       |p   |		Jump_Nonzero	0x125
0122 00d1       |    |		Pop_Control	Pop_Count_1
0123 4800       |H   |		Short_Literal	0x0
0124 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0125 483c       |H<  |		Short_Literal	0x3c
0126 487e       |H~  |		Short_Literal	0x7e
0127 0262       | b  |		Execute	Discrete,In_Range
0128 77fa       |w   |		Jump_Nonzero	0x123
0129 7805       |x   |		Jump	0x12f
012a 4821       |H!  |		Short_Literal	0x21
012b 482b       |H+  |		Short_Literal	0x2b
012c 0262       | b  |		Execute	Discrete,In_Range
012d 77f5       |w   |		Jump_Nonzero	0x123
012e 7800       |x   |		Jump	0x12f
012f 4801       |H   |		Short_Literal	0x1
0130 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0131 0000 0000  |    |		.BLANK	0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0141       | A  |		.CONST	0x0141								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0002       |    |		.CONST	0x0002								; Number of locals
013b			INIT_0138:
013b e403       |    |		Load	0x2,0x3
013c 8405       |    |		Call	0x2,0x5
013d 0273       | s  |		Execute	Discrete,Plus
013e 0aff       |    |		Execute_Immediate	Plus,-0x1
013f 00e2       |    |		Load_Encached	Integer_Cache
0140 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0141			BODY_0138:
0141 00d8       |    |		Load_Top	At_Offset_0
0142 e5fd       |    |		Load	0x2,-0x3
0143 01dc       |    |		Execute	Vector,Last
0144 027d       | }  |		Execute	Discrete,Greater
0145 6805       |h   |		Jump_Zero	0x14b
0146 e5fd       |    |		Load	0x2,-0x3
0147 01dc       |    |		Execute	Vector,Last
0148 00e3       |    |		Load_Encached	Natural_Cache
0149 025b       | [  |		Execute	Discrete,Check_In_Type
014a 00ca       |    |		Action	Exit_Nullary_Function
014b 00d8       |    |		Load_Top	At_Offset_0
014c 00e3       |    |		Load_Encached	Natural_Cache
014d 025b       | [  |		Execute	Discrete,Check_In_Type
014e 00ca       |    |		Action	Exit_Nullary_Function
014f 0000       |    |		.XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0154       | T  |		.CONST	0x0154								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 00e2       |    |		Load_Encached	Integer_Cache
0154			BODY_0150:
0154 00cf       |    |		Action	Mark_Auxiliary
0155 e403       |    |		Load	0x2,0x3
0156 e5fd       |    |		Load	0x2,-0x3
0157 01dc       |    |		Execute	Vector,Last
0158 027d       | }  |		Execute	Discrete,Greater
0159 700a       |p   |		Jump_Nonzero	0x164
015a e403       |    |		Load	0x2,0x3
015b e5fd       |    |		Load	0x2,-0x3
015c 01d7       |    |		Execute	Vector,Field_Read
015d 0e0a       |    |		Execute_Immediate	Not_Equal,0xa
015e 7005       |p   |		Jump_Nonzero	0x164
015f e403       |    |		Load	0x2,0x3
0160 0a01       |    |		Execute_Immediate	Plus,0x1
0161 c403       |    |		Store	0x2,0x3
0162 00c9       |    |		Action	Pop_Auxiliary_Loop
0163 7ff1       |    |		Jump	0x155
0164 00ce       |    |		Action	Pop_Auxiliary
0165 8407       |    |		Call	0x2,0x7
0166 a602       |    |		Store_Unchecked	0x3,0x2
0167 00cf       |    |		Action	Mark_Auxiliary
0168 e602       |    |		Load	0x3,0x2
0169 e403       |    |		Load	0x2,0x3
016a 0263       | c  |		Execute	Discrete,Above_Bound
016b 700b       |p   |		Jump_Nonzero	0x177
016c 00d8       |    |		Load_Top	At_Offset_0
016d e5fd       |    |		Load	0x2,-0x3
016e 01d7       |    |		Execute	Vector,Field_Read
016f 0f0a       |    |		Execute_Immediate	Equal,0xa
0170 6804       |h   |		Jump_Zero	0x175
0171 00d8       |    |		Load_Top	At_Offset_0
0172 0aff       |    |		Execute_Immediate	Plus,-0x1
0173 c404       |    |		Store	0x2,0x4
0174 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0175 00c8       |    |		Action	Pop_Auxiliary_Range
0176 3ff5       |?   |		Loop_Increasing	0x16c
0177 00ce       |    |		Action	Pop_Auxiliary
0178 00d8       |    |		Load_Top	At_Offset_0
0179 e5fd       |    |		Load	0x2,-0x3
017a 01dc       |    |		Execute	Vector,Last
017b 027f       |    |		Execute	Discrete,Equal
017c 6803       |h   |		Jump_Zero	0x180
017d 00d8       |    |		Load_Top	At_Offset_0
017e c404       |    |		Store	0x2,0x4
017f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0180 00cf       |    |		Action	Mark_Auxiliary
0181 e403       |    |		Load	0x2,0x3
0182 e602       |    |		Load	0x3,0x2
0183 0264       | d  |		Execute	Discrete,Below_Bound
0184 700a       |p   |		Jump_Nonzero	0x18f
0185 00d8       |    |		Load_Top	At_Offset_0
0186 e5fd       |    |		Load	0x2,-0x3
0187 01d7       |    |		Execute	Vector,Field_Read
0188 8406       |    |		Call	0x2,0x6
0189 6803       |h   |		Jump_Zero	0x18d
018a 00d8       |    |		Load_Top	At_Offset_0
018b a404       |    |		Store_Unchecked	0x2,0x4
018c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018d 00c8       |    |		Action	Pop_Auxiliary_Range
018e 37f6       |7   |		Loop_Decreasing	0x185
018f 00ce       |    |		Action	Pop_Auxiliary
0190 00d8       |    |		Load_Top	At_Offset_0
0191 c404       |    |		Store	0x2,0x4
0192 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0193 0000 0000  |    |		.BLANK	0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b e402       |    |		Load	0x2,0x2
019c 6807       |h   |		Jump_Zero	0x1a4
019d e5fc       |    |		Load	0x2,-0x4
019e e403       |    |		Load	0x2,0x3
019f e404       |    |		Load	0x2,0x4
01a0 e5fd       |    |		Load	0x2,-0x3
01a1 01cf       |    |		Execute	Vector,Slice_Read
01a2 01cc       |    |		Execute	Vector,Catenate
01a3 00ca       |    |		Action	Exit_Nullary_Function
01a4 e403       |    |		Load	0x2,0x3
01a5 e404       |    |		Load	0x2,0x4
01a6 e5fd       |    |		Load	0x2,-0x3
01a7 01cf       |    |		Execute	Vector,Slice_Read
01a8 0335       | 5  |		Declare_Variable	Array,Duplicate
01a9 00cd       |    |		Action	Spare6_Action
01aa 00ca       |    |		Action	Exit_Nullary_Function
01ab 0000 0000  |    |		.BLANK	0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 4603       |F   |		Jump_Case	0x4
01b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01b5 7802       |x   |		Jump	0x1b8								; case 0x1
01b6 7805       |x   |		Jump	0x1bc								; case 0x2
01b7 7809       |x   |		Jump	0x1c1								; case 0x3
01b8 e7ff       |    |		Load	0x3,-0x1
01b9 0091 0817  |    |		Action	Push_String_Extended_Indexed,0x817				; "UNHANDLED"
01bb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01bc e7fe       |    |		Load	0x3,-0x2
01bd e7ff       |    |		Load	0x3,-0x1
01be 00e0       |    |		Load_Encached	Standard_Cache
01bf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c1 e7ff       |    |		Load	0x3,-0x1
01c2 00e0       |    |		Load_Encached	Standard_Cache
01c3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01c4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 0092 081e  |    |		Action	Push_String_Extended,0x81e					; "unknown"
01cd 00ca       |    |		Action	Exit_Nullary_Function
01ce 0000 0000  |    |		.XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 01d6       |    |		.CONST	0x01d6								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 e7ff       |    |		Load	0x3,-0x1
01d4 85fe       |    |		Call	0x2,-0x2
01d5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d6			TRAP_01d0:
01d6 0007       |    |		Action	Break_Optional
01d7 4801       |H   |		Short_Literal	0x1
01d8 a403       |    |		Store_Unchecked	0x2,0x3
01d9 00d8       |    |		Load_Top	At_Offset_0
01da 0101       |    |		Execute	Exception,Reraise
01db 0000 0000  |    |		.BLANK	0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 4603       |F   |		Jump_Case	0x4
01e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01e5 7802       |x   |		Jump	0x1e8								; case 0x1
01e6 7805       |x   |		Jump	0x1ec								; case 0x2
01e7 7809       |x   |		Jump	0x1f1								; case 0x3
01e8 e7ff       |    |		Load	0x3,-0x1
01e9 0091 081b  |    |		Action	Push_String_Extended_Indexed,0x81b				; "VALUE"
01eb 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01ec e7fe       |    |		Load	0x3,-0x2
01ed e7ff       |    |		Load	0x3,-0x1
01ee 00e0       |    |		Load_Encached	Standard_Cache
01ef 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01f0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01f1 e7ff       |    |		Load	0x3,-0x1
01f2 00e0       |    |		Load_Encached	Standard_Cache
01f3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01f4 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb			INIT_01f8:
01fb 4608       |F   |		Jump_Case	0x9
01fc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01fe 7826       |x&  |		Jump	0x225								; case 0x2
01ff 7825       |x%  |		Jump	0x225								; case 0x3
0200 7824       |x$  |		Jump	0x225								; case 0x4
0201 7823       |x#  |		Jump	0x225								; case 0x5
0202 7802       |x   |		Jump	0x205								; case 0x6
0203 780c       |x   |		Jump	0x210								; case 0x7
0204 7819       |x   |		Jump	0x21e								; case 0x8
0205 e7fe       |    |		Load	0x3,-0x2
0206 4602       |F   |		Jump_Case	0x3
0207 7804       |x   |		Jump	0x20c								; case 0x0
0208 7805       |x   |		Jump	0x20e								; case 0x1
0209 7800       |x   |		Jump	0x20a								; case 0x2
020a 4803       |H   |		Short_Literal	0x3
020b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020c 4801       |H   |		Short_Literal	0x1
020d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
020e 4802       |H   |		Short_Literal	0x2
020f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0210 e7fe       |    |		Load	0x3,-0x2
0211 e7fe       |    |		Load	0x3,-0x2
0212 4602       |F   |		Jump_Case	0x3
0213 7804       |x   |		Jump	0x218								; case 0x0
0214 7805       |x   |		Jump	0x21a								; case 0x1
0215 7800       |x   |		Jump	0x216								; case 0x2
0216 4803       |H   |		Short_Literal	0x3
0217 7803       |x   |		Jump	0x21b
0218 4801       |H   |		Short_Literal	0x1
0219 7801       |x   |		Jump	0x21b
021a 4802       |H   |		Short_Literal	0x2
021b e7ff       |    |		Load	0x3,-0x1
021c 031b       |    |		Declare_Type	Variant_Record,Constrained
021d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
021e e7fe       |    |		Load	0x3,-0x2
021f e7fe       |    |		Load	0x3,-0x2
0220 e7ff       |    |		Load	0x3,-0x1
0221 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0222 e7ff       |    |		Load	0x3,-0x1
0223 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0224 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0225 0869       | i  |		Execute_Immediate	Raise,0x69
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 4802       |H   |		Short_Literal	0x2
022c e409       |    |		Load	0x2,0x9
022d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
022e e406       |    |		Load	0x2,0x6
022f e602       |    |		Load	0x3,0x2
0230 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0231 e40a       |    |		Load	0x2,0xa
0232 e602       |    |		Load	0x3,0x2
0233 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0234 e40a       |    |		Load	0x2,0xa
0235 e602       |    |		Load	0x3,0x2
0236 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0237 e40a       |    |		Load	0x2,0xa
0238 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0239 00ca       |    |		Action	Exit_Nullary_Function
023a 0000 0000  |    |		.BLANK	0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0251       | Q  |		.CONST	0x0251								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 4801       |H   |		Short_Literal	0x1
0244 e409       |    |		Load	0x2,0x9
0245 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0246 e7ff       |    |		Load	0x3,-0x1
0247 e602       |    |		Load	0x3,0x2
0248 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0249 e7fe       |    |		Load	0x3,-0x2
024a e602       |    |		Load	0x3,0x2
024b 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
024c e40a       |    |		Load	0x2,0xa
024d e602       |    |		Load	0x3,0x2
024e 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
024f e40a       |    |		Load	0x2,0xa
0250 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0251			BODY_0240:
0251 e7fd       |    |		Load	0x3,-0x3
0252 0227       | '  |		Execute	Access,All_Reference
0253 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0254 7005       |p   |		Jump_Nonzero	0x25a
0255 00d8       |    |		Load_Top	At_Offset_0
0256 e7fd       |    |		Load	0x3,-0x3
0257 0227       | '  |		Execute	Access,All_Reference
0258 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0259 7804       |x   |		Jump	0x25e
025a 00d8       |    |		Load_Top	At_Offset_0
025b e7fc       |    |		Load	0x3,-0x4
025c 0227       | '  |		Execute	Access,All_Reference
025d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
025e 00d8       |    |		Load_Top	At_Offset_0
025f a7fc       |    |		Store_Unchecked	0x3,-0x4
0260 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0261 0000 0000  |    |		.BLANK	0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b e7ff       |    |		Load	0x3,-0x1
026c e7fe       |    |		Load	0x3,-0x2
026d 0227       | '  |		Execute	Access,All_Reference
026e 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
026f e7fd       |    |		Load	0x3,-0x3
0270 0227       | '  |		Execute	Access,All_Reference
0271 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0272 7005       |p   |		Jump_Nonzero	0x278
0273 e7fe       |    |		Load	0x3,-0x2
0274 e7fd       |    |		Load	0x3,-0x3
0275 0227       | '  |		Execute	Access,All_Reference
0276 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0277 7804       |x   |		Jump	0x27c
0278 e7fe       |    |		Load	0x3,-0x2
0279 e7fc       |    |		Load	0x3,-0x4
027a 0227       | '  |		Execute	Access,All_Reference
027b 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
027c e7fe       |    |		Load	0x3,-0x2
027d a7fc       |    |		Store_Unchecked	0x3,-0x4
027e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
027f 0000       |    |		.XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0295       |    |		.CONST	0x0295								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0002       |    |		.CONST	0x0002								; Number of locals
0283			INIT_0280:
0283 4801       |H   |		Short_Literal	0x1
0284 e7ff       |    |		Load	0x3,-0x1
0285 00e9       |    |		Load_Encached	String_Cache
0286 0334       | 4  |		Declare_Variable	Array,With_Constraint
0287 00d8       |    |		Load_Top	At_Offset_0
0288 0335       | 5  |		Declare_Variable	Array,Duplicate
0289 00cd       |    |		Action	Spare6_Action
028a e602       |    |		Load	0x3,0x2
028b 01d9       |    |		Execute	Vector,Reverse_Bounds
028c 0263       | c  |		Execute	Discrete,Above_Bound
028d 7005       |p   |		Jump_Nonzero	0x293
028e 4820       |H   |		Short_Literal	0x20
028f e605       |    |		Load	0x3,0x5
0290 e603       |    |		Load	0x3,0x3
0291 01d6       |    |		Execute	Vector,Field_Write
0292 3ffb       |?   |		Loop_Increasing	0x28e
0293 e602       |    |		Load	0x3,0x2
0294 01d4       |    |		Execute	Vector,Structure_Write
0295			BODY_0280:
0295 00d8       |    |		Load_Top	At_Offset_0
0296 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0297 0000       |    |		.XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029d       |    |		.CONST	0x029d								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0003       |    |		.CONST	0x0003								; Number of locals
029b			INIT_0298:
029b 00e2       |    |		Load_Encached	Integer_Cache
029c 00e2       |    |		Load_Encached	Integer_Cache
029d			BODY_0298:
029d e40e       |    |		Load	0x2,0xe
029e 0ad8       |    |		Execute_Immediate	Plus,-0x28
029f c602       |    |		Store	0x3,0x2
02a0 e602       |    |		Load	0x3,0x2
02a1 e5fd       |    |		Load	0x2,-0x3
02a2 01dd       |    |		Execute	Vector,First
02a3 027c       | |  |		Execute	Discrete,Less
02a4 6803       |h   |		Jump_Zero	0x2a8
02a5 e5fd       |    |		Load	0x2,-0x3
02a6 01dd       |    |		Execute	Vector,First
02a7 a602       |    |		Store_Unchecked	0x3,0x2
02a8 e602       |    |		Load	0x3,0x2
02a9 e5f9       |    |		Load	0x2,-0x7
02aa 0273       | s  |		Execute	Discrete,Plus
02ab 0afe       |    |		Execute_Immediate	Plus,-0x2
02ac c603       |    |		Store	0x3,0x3
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae e5fd       |    |		Load	0x2,-0x3
02af 01dc       |    |		Execute	Vector,Last
02b0 027d       | }  |		Execute	Discrete,Greater
02b1 6803       |h   |		Jump_Zero	0x2b5
02b2 e5fd       |    |		Load	0x2,-0x3
02b3 01dc       |    |		Execute	Vector,Last
02b4 a603       |    |		Store_Unchecked	0x3,0x3
02b5 e602       |    |		Load	0x3,0x2
02b6 e603       |    |		Load	0x3,0x3
02b7 e5fd       |    |		Load	0x2,-0x3
02b8 01cf       |    |		Execute	Vector,Slice_Read
02b9 8407       |    |		Call	0x2,0x7
02ba e40e       |    |		Load	0x2,0xe
02bb e602       |    |		Load	0x3,0x2
02bc 0272       | r  |		Execute	Discrete,Minus
02bd 00e3       |    |		Load_Encached	Natural_Cache
02be 025b       | [  |		Execute	Discrete,Check_In_Type
02bf 8410       |    |		Call	0x2,0x10
02c0 0092 081f  |    |		Action	Push_String_Extended,0x81f					; "^"
02c2 01cc       |    |		Execute	Vector,Catenate
02c3 8407       |    |		Call	0x2,0x7
02c4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02c5 0000 0000  |    |		.XXX[0x3]
02c7 0000       |    |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb e40e       |    |		Load	0x2,0xe
02cc e5fd       |    |		Load	0x2,-0x3
02cd 01da       |    |		Execute	Vector,Bounds
02ce 0262       | b  |		Execute	Discrete,In_Range
02cf 6813       |h   |		Jump_Zero	0x2e3
02d0 4801       |H   |		Short_Literal	0x1
02d1 4803       |H   |		Short_Literal	0x3
02d2 00e9       |    |		Load_Encached	String_Cache
02d3 0334       | 4  |		Declare_Variable	Array,With_Constraint
02d4 4827       |H'  |		Short_Literal	0x27
02d5 4801       |H   |		Short_Literal	0x1
02d6 e602       |    |		Load	0x3,0x2
02d7 01d6       |    |		Execute	Vector,Field_Write
02d8 e40e       |    |		Load	0x2,0xe
02d9 e5fd       |    |		Load	0x2,-0x3
02da 01d7       |    |		Execute	Vector,Field_Read
02db 4802       |H   |		Short_Literal	0x2
02dc e602       |    |		Load	0x3,0x2
02dd 01d6       |    |		Execute	Vector,Field_Write
02de 4827       |H'  |		Short_Literal	0x27
02df 4803       |H   |		Short_Literal	0x3
02e0 e602       |    |		Load	0x3,0x2
02e1 01d6       |    |		Execute	Vector,Field_Write
02e2 00ca       |    |		Action	Exit_Nullary_Function
02e3 0092 0820  |    |		Action	Push_String_Extended,0x820					; "end"
02e5 00ca       |    |		Action	Exit_Nullary_Function
02e6 0000 0000  |    |		.XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb e7ff       |    |		Load	0x3,-0x1
02ec 0aff       |    |		Execute_Immediate	Plus,-0x1
02ed 460b       |F   |		Jump_Case	0xc
02ee 780e       |x   |		Jump	0x2fd								; case 0x0
02ef 7810       |x   |		Jump	0x300								; case 0x1
02f0 7812       |x   |		Jump	0x303								; case 0x2
02f1 7814       |x   |		Jump	0x306								; case 0x3
02f2 7816       |x   |		Jump	0x309								; case 0x4
02f3 7818       |x   |		Jump	0x30c								; case 0x5
02f4 781a       |x   |		Jump	0x30f								; case 0x6
02f5 781c       |x   |		Jump	0x312								; case 0x7
02f6 781e       |x   |		Jump	0x315								; case 0x8
02f7 7820       |x   |		Jump	0x318								; case 0x9
02f8 7801       |x   |		Jump	0x2fa								; case 0xa
02f9 7800       |x   |		Jump	0x2fa								; case 0xb
02fa 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "how did we get here?"
02fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02fd 0092 0822  |   "|		Action	Push_String_Extended,0x822					; "("
02ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0300 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "the first character of a name, or ')'; specifically, a character from the set { 'a'..'z', 'A'..'Z', '0'..'9', '#', '_', '-', '.', '<', '>', Nul, Ht }"
0302 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0303 0092 0824  |   $|		Action	Push_String_Extended,0x824					; "a character appropriate for name, or \x22=>\x22; specifically, a character from the set { 'a'..'z', 'A'..'Z', '0'..'9', '#', '_', '-', '.', '<', '>', Nul, Ht, '=' }"
0305 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0306 0092 0825  |   %|		Action	Push_String_Extended,0x825					; "an \x22=>\x22"
0308 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0309 0092 0826  |   &|		Action	Push_String_Extended,0x826					; "the 2nd character from the \x22=>\x22 symbol"
030b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030c 0092 0827  |   '|		Action	Push_String_Extended,0x827					; "the 1st character from a value or quoted string; specifically, a character that does not come from the set { '(', ')', ',' }"
030e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030f 0092 0828  |   (|		Action	Push_String_Extended,0x828					; "a character from the set { ',', ')', '\x22'."
0311 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0312 0092 0829  |   )|		Action	Push_String_Extended,0x829					; "a character appropriate for a quoted string."
0314 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0315 0092 082a  |   *|		Action	Push_String_Extended,0x82a					; "a character from the set { ',', ')' }"
0317 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0318 0092 082b  |   +|		Action	Push_String_Extended,0x82b					; "a character appropriate for a raw value; specifically, a character that does not come from the set { ',', ')' }"
031a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031b 0000 0000  |    |		.BLANK	0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 8411       |    |		Call	0x2,0x11
0324 0092 082c  |   ,|		Action	Push_String_Extended,0x82c					; "Parsing error: received "
0326 8412       |    |		Call	0x2,0x12
0327 01cc       |    |		Execute	Vector,Catenate
0328 0092 082d  |   -|		Action	Push_String_Extended,0x82d					; " (at character position"
032a 01cc       |    |		Execute	Vector,Catenate
032b e40e       |    |		Load	0x2,0xe
032c 00e0       |    |		Load_Encached	Standard_Cache
032d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
032e 01cc       |    |		Execute	Vector,Catenate
032f 0092 082e  |   .|		Action	Push_String_Extended,0x82e					; ")"
0331 01cc       |    |		Execute	Vector,Catenate
0332 0092 082f  |   /|		Action	Push_String_Extended,0x82f					; ", expected "
0334 01cc       |    |		Execute	Vector,Catenate
0335 e7ff       |    |		Load	0x3,-0x1
0336 8413       |    |		Call	0x2,0x13
0337 01cc       |    |		Execute	Vector,Catenate
0338 8407       |    |		Call	0x2,0x7
0339 4802       |H   |		Short_Literal	0x2
033a a403       |    |		Store_Unchecked	0x2,0x3
033b 08e0       |    |		Execute_Immediate	Raise,0xe0
033c 0000 0000  |    |		.BLANK	0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0356       | V  |		.CONST	0x0356								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0008       |    |		.CONST	0x0008								; Number of locals
0343			INIT_0340:
0343 e40a       |    |		Load	0x2,0xa
0344 840b       |    |		Call	0x2,0xb
0345 a602       |    |		Store_Unchecked	0x3,0x2
0346 e40a       |    |		Load	0x2,0xa
0347 0007       |    |		Action	Break_Optional
0348 4fff       |O   |		Short_Literal	-0x1
0349 00e2       |    |		Load_Encached	Integer_Cache
034a 03f1       |    |		Declare_Variable	Discrete,With_Value
034b e405       |    |		Load	0x2,0x5
034c 0322       | "  |		Declare_Variable	Record
034d e406       |    |		Load	0x2,0x6
034e e605       |    |		Load	0x3,0x5
034f 017d       | }  |		Execute	Record,Structure_Write
0350 e40f       |    |		Load	0x2,0xf
0351 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0352 029f 07b3  |    |		Declare_Subprogram	INIT_07b0,For_Call
0354 029f 07c3  |    |		Declare_Subprogram	INIT_07c0,For_Call
0356			BODY_0340:
0356 00cf       |    |		Action	Mark_Auxiliary
0357 e40e       |    |		Load	0x2,0xe
0358 e5fd       |    |		Load	0x2,-0x3
0359 01dc       |    |		Execute	Vector,Last
035a 027d       | }  |		Execute	Discrete,Greater
035b 6802       |h   |		Jump_Zero	0x35e
035c e606       |    |		Load	0x3,0x6
035d 8414       |    |		Call	0x2,0x14
035e e40e       |    |		Load	0x2,0xe
035f e5fd       |    |		Load	0x2,-0x3
0360 01d7       |    |		Execute	Vector,Field_Read
0361 467f       |F   |		Jump_Case	0x80
0362 79d4       |y   |		Jump	0x537								; case 0x0
0363 787e       |x~  |		Jump	0x3e2								; case 0x1
0364 787d       |x}  |		Jump	0x3e2								; case 0x2
0365 787c       |x|  |		Jump	0x3e2								; case 0x3
0366 787b       |x{  |		Jump	0x3e2								; case 0x4
0367 787a       |xz  |		Jump	0x3e2								; case 0x5
0368 7879       |xy  |		Jump	0x3e2								; case 0x6
0369 7878       |xx  |		Jump	0x3e2								; case 0x7
036a 7877       |xw  |		Jump	0x3e2								; case 0x8
036b 79cb       |y   |		Jump	0x537								; case 0x9
036c 7875       |xu  |		Jump	0x3e2								; case 0xa
036d 7874       |xt  |		Jump	0x3e2								; case 0xb
036e 7873       |xs  |		Jump	0x3e2								; case 0xc
036f 7872       |xr  |		Jump	0x3e2								; case 0xd
0370 7871       |xq  |		Jump	0x3e2								; case 0xe
0371 7870       |xp  |		Jump	0x3e2								; case 0xf
0372 786f       |xo  |		Jump	0x3e2								; case 0x10
0373 786e       |xn  |		Jump	0x3e2								; case 0x11
0374 786d       |xm  |		Jump	0x3e2								; case 0x12
0375 786c       |xl  |		Jump	0x3e2								; case 0x13
0376 786b       |xk  |		Jump	0x3e2								; case 0x14
0377 786a       |xj  |		Jump	0x3e2								; case 0x15
0378 7869       |xi  |		Jump	0x3e2								; case 0x16
0379 7868       |xh  |		Jump	0x3e2								; case 0x17
037a 7867       |xg  |		Jump	0x3e2								; case 0x18
037b 7866       |xf  |		Jump	0x3e2								; case 0x19
037c 7865       |xe  |		Jump	0x3e2								; case 0x1a
037d 79db       |y   |		Jump	0x559								; case 0x1b
037e 7863       |xc  |		Jump	0x3e2								; case 0x1c
037f 7862       |xb  |		Jump	0x3e2								; case 0x1d
0380 7861       |xa  |		Jump	0x3e2								; case 0x1e
0381 7860       |x`  |		Jump	0x3e2								; case 0x1f
0382 7963       |yc  |		Jump	0x4e6								; case 0x20
0383 785e       |x^  |		Jump	0x3e2								; case 0x21
0384 798f       |y   |		Jump	0x514								; case 0x22
0385 79b1       |y   |		Jump	0x537								; case 0x23
0386 785b       |x[  |		Jump	0x3e2								; case 0x24
0387 785a       |xZ  |		Jump	0x3e2								; case 0x25
0388 7859       |xY  |		Jump	0x3e2								; case 0x26
0389 7858       |xX  |		Jump	0x3e2								; case 0x27
038a 7874       |xt  |		Jump	0x3ff								; case 0x28
038b 7898       |x   |		Jump	0x424								; case 0x29
038c 7855       |xU  |		Jump	0x3e2								; case 0x2a
038d 7854       |xT  |		Jump	0x3e2								; case 0x2b
038e 7916       |y   |		Jump	0x4a5								; case 0x2c
038f 79a7       |y   |		Jump	0x537								; case 0x2d
0390 79a6       |y   |		Jump	0x537								; case 0x2e
0391 7850       |xP  |		Jump	0x3e2								; case 0x2f
0392 79a4       |y   |		Jump	0x537								; case 0x30
0393 79a3       |y   |		Jump	0x537								; case 0x31
0394 79a2       |y   |		Jump	0x537								; case 0x32
0395 79a1       |y   |		Jump	0x537								; case 0x33
0396 79a0       |y   |		Jump	0x537								; case 0x34
0397 799f       |y   |		Jump	0x537								; case 0x35
0398 799e       |y   |		Jump	0x537								; case 0x36
0399 799d       |y   |		Jump	0x537								; case 0x37
039a 799c       |y   |		Jump	0x537								; case 0x38
039b 799b       |y   |		Jump	0x537								; case 0x39
039c 7845       |xE  |		Jump	0x3e2								; case 0x3a
039d 7844       |xD  |		Jump	0x3e2								; case 0x3b
039e 7998       |y   |		Jump	0x537								; case 0x3c
039f 78bc       |x   |		Jump	0x45c								; case 0x3d
03a0 78df       |x   |		Jump	0x480								; case 0x3e
03a1 7840       |x@  |		Jump	0x3e2								; case 0x3f
03a2 783f       |x?  |		Jump	0x3e2								; case 0x40
03a3 7993       |y   |		Jump	0x537								; case 0x41
03a4 7992       |y   |		Jump	0x537								; case 0x42
03a5 7991       |y   |		Jump	0x537								; case 0x43
03a6 7990       |y   |		Jump	0x537								; case 0x44
03a7 798f       |y   |		Jump	0x537								; case 0x45
03a8 798e       |y   |		Jump	0x537								; case 0x46
03a9 798d       |y   |		Jump	0x537								; case 0x47
03aa 798c       |y   |		Jump	0x537								; case 0x48
03ab 798b       |y   |		Jump	0x537								; case 0x49
03ac 798a       |y   |		Jump	0x537								; case 0x4a
03ad 7989       |y   |		Jump	0x537								; case 0x4b
03ae 7988       |y   |		Jump	0x537								; case 0x4c
03af 7987       |y   |		Jump	0x537								; case 0x4d
03b0 7986       |y   |		Jump	0x537								; case 0x4e
03b1 7985       |y   |		Jump	0x537								; case 0x4f
03b2 7984       |y   |		Jump	0x537								; case 0x50
03b3 7983       |y   |		Jump	0x537								; case 0x51
03b4 7982       |y   |		Jump	0x537								; case 0x52
03b5 7981       |y   |		Jump	0x537								; case 0x53
03b6 7980       |y   |		Jump	0x537								; case 0x54
03b7 797f       |y   |		Jump	0x537								; case 0x55
03b8 797e       |y~  |		Jump	0x537								; case 0x56
03b9 797d       |y}  |		Jump	0x537								; case 0x57
03ba 797c       |y|  |		Jump	0x537								; case 0x58
03bb 797b       |y{  |		Jump	0x537								; case 0x59
03bc 797a       |yz  |		Jump	0x537								; case 0x5a
03bd 7824       |x$  |		Jump	0x3e2								; case 0x5b
03be 7823       |x#  |		Jump	0x3e2								; case 0x5c
03bf 7822       |x"  |		Jump	0x3e2								; case 0x5d
03c0 7821       |x!  |		Jump	0x3e2								; case 0x5e
03c1 7975       |yu  |		Jump	0x537								; case 0x5f
03c2 781f       |x   |		Jump	0x3e2								; case 0x60
03c3 7973       |ys  |		Jump	0x537								; case 0x61
03c4 7972       |yr  |		Jump	0x537								; case 0x62
03c5 7971       |yq  |		Jump	0x537								; case 0x63
03c6 7970       |yp  |		Jump	0x537								; case 0x64
03c7 796f       |yo  |		Jump	0x537								; case 0x65
03c8 796e       |yn  |		Jump	0x537								; case 0x66
03c9 796d       |ym  |		Jump	0x537								; case 0x67
03ca 796c       |yl  |		Jump	0x537								; case 0x68
03cb 796b       |yk  |		Jump	0x537								; case 0x69
03cc 796a       |yj  |		Jump	0x537								; case 0x6a
03cd 7969       |yi  |		Jump	0x537								; case 0x6b
03ce 7968       |yh  |		Jump	0x537								; case 0x6c
03cf 7967       |yg  |		Jump	0x537								; case 0x6d
03d0 7966       |yf  |		Jump	0x537								; case 0x6e
03d1 7965       |ye  |		Jump	0x537								; case 0x6f
03d2 7964       |yd  |		Jump	0x537								; case 0x70
03d3 7963       |yc  |		Jump	0x537								; case 0x71
03d4 7962       |yb  |		Jump	0x537								; case 0x72
03d5 7961       |ya  |		Jump	0x537								; case 0x73
03d6 7960       |y`  |		Jump	0x537								; case 0x74
03d7 795f       |y_  |		Jump	0x537								; case 0x75
03d8 795e       |y^  |		Jump	0x537								; case 0x76
03d9 795d       |y]  |		Jump	0x537								; case 0x77
03da 795c       |y\  |		Jump	0x537								; case 0x78
03db 795b       |y[  |		Jump	0x537								; case 0x79
03dc 795a       |yZ  |		Jump	0x537								; case 0x7a
03dd 7804       |x   |		Jump	0x3e2								; case 0x7b
03de 7803       |x   |		Jump	0x3e2								; case 0x7c
03df 7802       |x   |		Jump	0x3e2								; case 0x7d
03e0 7801       |x   |		Jump	0x3e2								; case 0x7e
03e1 7800       |x   |		Jump	0x3e2								; case 0x7f
03e2 e606       |    |		Load	0x3,0x6
03e3 0aff       |    |		Execute_Immediate	Plus,-0x1
03e4 460b       |F   |		Jump_Case	0xc
03e5 7816       |x   |		Jump	0x3fc								; case 0x0
03e6 7815       |x   |		Jump	0x3fc								; case 0x1
03e7 7814       |x   |		Jump	0x3fc								; case 0x2
03e8 7813       |x   |		Jump	0x3fc								; case 0x3
03e9 7812       |x   |		Jump	0x3fc								; case 0x4
03ea 7809       |x   |		Jump	0x3f4								; case 0x5
03eb 7810       |x   |		Jump	0x3fc								; case 0x6
03ec 7993       |y   |		Jump	0x580								; case 0x7
03ed 780e       |x   |		Jump	0x3fc								; case 0x8
03ee 7991       |y   |		Jump	0x580								; case 0x9
03ef 7809       |x   |		Jump	0x3f9								; case 0xa
03f0 7800       |x   |		Jump	0x3f1								; case 0xb
03f1 480a       |H   |		Short_Literal	0xa
03f2 a606       |    |		Store_Unchecked	0x3,0x6
03f3 798c       |y   |		Jump	0x580
03f4 480a       |H   |		Short_Literal	0xa
03f5 a606       |    |		Store_Unchecked	0x3,0x6
03f6 e40e       |    |		Load	0x2,0xe
03f7 a604       |    |		Store_Unchecked	0x3,0x4
03f8 7987       |y   |		Jump	0x580
03f9 4803       |H   |		Short_Literal	0x3
03fa a606       |    |		Store_Unchecked	0x3,0x6
03fb 7984       |y   |		Jump	0x580
03fc e606       |    |		Load	0x3,0x6
03fd 8414       |    |		Call	0x2,0x14
03fe 7981       |y   |		Jump	0x580
03ff e606       |    |		Load	0x3,0x6
0400 0aff       |    |		Execute_Immediate	Plus,-0x1
0401 460b       |F   |		Jump_Case	0xc
0402 7818       |x   |		Jump	0x41b								; case 0x0
0403 781d       |x   |		Jump	0x421								; case 0x1
0404 781c       |x   |		Jump	0x421								; case 0x2
0405 781b       |x   |		Jump	0x421								; case 0x3
0406 781a       |x   |		Jump	0x421								; case 0x4
0407 7809       |x   |		Jump	0x411								; case 0x5
0408 7818       |x   |		Jump	0x421								; case 0x6
0409 7976       |yv  |		Jump	0x580								; case 0x7
040a 7816       |x   |		Jump	0x421								; case 0x8
040b 7974       |yt  |		Jump	0x580								; case 0x9
040c 7811       |x   |		Jump	0x41e								; case 0xa
040d 7800       |x   |		Jump	0x40e								; case 0xb
040e 480a       |H   |		Short_Literal	0xa
040f a606       |    |		Store_Unchecked	0x3,0x6
0410 796f       |yo  |		Jump	0x580
0411 4809       |H   |		Short_Literal	0x9
0412 a606       |    |		Store_Unchecked	0x3,0x6
0413 e603       |    |		Load	0x3,0x3
0414 e602       |    |		Load	0x3,0x2
0415 8415       |    |		Call	0x2,0x15
0416 e605       |    |		Load	0x3,0x5
0417 840d       |    |		Call	0x2,0xd
0418 c602       |    |		Store	0x3,0x2
0419 c603       |    |		Store	0x3,0x3
041a 7965       |ye  |		Jump	0x580
041b 4802       |H   |		Short_Literal	0x2
041c a606       |    |		Store_Unchecked	0x3,0x6
041d 7962       |yb  |		Jump	0x580
041e 4803       |H   |		Short_Literal	0x3
041f a606       |    |		Store_Unchecked	0x3,0x6
0420 795f       |y_  |		Jump	0x580
0421 e606       |    |		Load	0x3,0x6
0422 8414       |    |		Call	0x2,0x14
0423 795c       |y\  |		Jump	0x580
0424 e606       |    |		Load	0x3,0x6
0425 0aff       |    |		Execute_Immediate	Plus,-0x1
0426 460b       |F   |		Jump_Case	0xc
0427 7831       |x1  |		Jump	0x459								; case 0x0
0428 795d       |y]  |		Jump	0x586								; case 0x1
0429 782f       |x/  |		Jump	0x459								; case 0x2
042a 782e       |x.  |		Jump	0x459								; case 0x3
042b 782d       |x-  |		Jump	0x459								; case 0x4
042c 7809       |x   |		Jump	0x436								; case 0x5
042d 7810       |x   |		Jump	0x43e								; case 0x6
042e 7951       |yQ  |		Jump	0x580								; case 0x7
042f 7956       |yV  |		Jump	0x586								; case 0x8
0430 781d       |x   |		Jump	0x44e								; case 0x9
0431 7824       |x$  |		Jump	0x456								; case 0xa
0432 7800       |x   |		Jump	0x433								; case 0xb
0433 480a       |H   |		Short_Literal	0xa
0434 a606       |    |		Store_Unchecked	0x3,0x6
0435 794a       |yJ  |		Jump	0x580
0436 e603       |    |		Load	0x3,0x3
0437 e602       |    |		Load	0x3,0x2
0438 e406       |    |		Load	0x2,0x6
0439 e605       |    |		Load	0x3,0x5
043a 840c       |    |		Call	0x2,0xc
043b c602       |    |		Store	0x3,0x2
043c c603       |    |		Store	0x3,0x3
043d 7948       |yH  |		Jump	0x586
043e e603       |    |		Load	0x3,0x3
043f e602       |    |		Load	0x3,0x2
0440 e405       |    |		Load	0x2,0x5
0441 0322       | "  |		Declare_Variable	Record
0442 e604       |    |		Load	0x3,0x4
0443 e60c       |    |		Load	0x3,0xc
0444 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0445 e40e       |    |		Load	0x2,0xe
0446 0aff       |    |		Execute_Immediate	Plus,-0x1
0447 e60c       |    |		Load	0x3,0xc
0448 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0449 e605       |    |		Load	0x3,0x5
044a 840c       |    |		Call	0x2,0xc
044b c602       |    |		Store	0x3,0x2
044c c603       |    |		Store	0x3,0x3
044d 7938       |y8  |		Jump	0x586
044e e603       |    |		Load	0x3,0x3
044f e602       |    |		Load	0x3,0x2
0450 8608       |    |		Call	0x3,0x8
0451 e605       |    |		Load	0x3,0x5
0452 840c       |    |		Call	0x2,0xc
0453 c602       |    |		Store	0x3,0x2
0454 c603       |    |		Store	0x3,0x3
0455 7930       |y0  |		Jump	0x586
0456 4803       |H   |		Short_Literal	0x3
0457 a606       |    |		Store_Unchecked	0x3,0x6
0458 7927       |y'  |		Jump	0x580
0459 e606       |    |		Load	0x3,0x6
045a 8414       |    |		Call	0x2,0x14
045b 7924       |y$  |		Jump	0x580
045c e606       |    |		Load	0x3,0x6
045d 0aff       |    |		Execute_Immediate	Plus,-0x1
045e 460b       |F   |		Jump_Case	0xc
045f 781d       |x   |		Jump	0x47d								; case 0x0
0460 781c       |x   |		Jump	0x47d								; case 0x1
0461 7814       |x   |		Jump	0x476								; case 0x2
0462 780b       |x   |		Jump	0x46e								; case 0x3
0463 7819       |x   |		Jump	0x47d								; case 0x4
0464 780c       |x   |		Jump	0x471								; case 0x5
0465 7817       |x   |		Jump	0x47d								; case 0x6
0466 7919       |y   |		Jump	0x580								; case 0x7
0467 7815       |x   |		Jump	0x47d								; case 0x8
0468 7917       |y   |		Jump	0x580								; case 0x9
0469 7810       |x   |		Jump	0x47a								; case 0xa
046a 7800       |x   |		Jump	0x46b								; case 0xb
046b 480a       |H   |		Short_Literal	0xa
046c a606       |    |		Store_Unchecked	0x3,0x6
046d 7912       |y   |		Jump	0x580
046e 4805       |H   |		Short_Literal	0x5
046f a606       |    |		Store_Unchecked	0x3,0x6
0470 790f       |y   |		Jump	0x580
0471 480a       |H   |		Short_Literal	0xa
0472 a606       |    |		Store_Unchecked	0x3,0x6
0473 e40e       |    |		Load	0x2,0xe
0474 a604       |    |		Store_Unchecked	0x3,0x4
0475 790a       |y   |		Jump	0x580
0476 4805       |H   |		Short_Literal	0x5
0477 a606       |    |		Store_Unchecked	0x3,0x6
0478 8607       |    |		Call	0x3,0x7
0479 7906       |y   |		Jump	0x580
047a 4803       |H   |		Short_Literal	0x3
047b a606       |    |		Store_Unchecked	0x3,0x6
047c 7903       |y   |		Jump	0x580
047d e606       |    |		Load	0x3,0x6
047e 8414       |    |		Call	0x2,0x14
047f 7900       |y   |		Jump	0x580
0480 e606       |    |		Load	0x3,0x6
0481 0aff       |    |		Execute_Immediate	Plus,-0x1
0482 460b       |F   |		Jump_Case	0xc
0483 781e       |x   |		Jump	0x4a2								; case 0x0
0484 7815       |x   |		Jump	0x49a								; case 0x1
0485 78fa       |x   |		Jump	0x580								; case 0x2
0486 781b       |x   |		Jump	0x4a2								; case 0x3
0487 780a       |x   |		Jump	0x492								; case 0x4
0488 780c       |x   |		Jump	0x495								; case 0x5
0489 7818       |x   |		Jump	0x4a2								; case 0x6
048a 78f5       |x   |		Jump	0x580								; case 0x7
048b 7816       |x   |		Jump	0x4a2								; case 0x8
048c 78f3       |x   |		Jump	0x580								; case 0x9
048d 7811       |x   |		Jump	0x49f								; case 0xa
048e 7800       |x   |		Jump	0x48f								; case 0xb
048f 480a       |H   |		Short_Literal	0xa
0490 a606       |    |		Store_Unchecked	0x3,0x6
0491 78ee       |x   |		Jump	0x580
0492 4806       |H   |		Short_Literal	0x6
0493 a606       |    |		Store_Unchecked	0x3,0x6
0494 78eb       |x   |		Jump	0x580
0495 480a       |H   |		Short_Literal	0xa
0496 a606       |    |		Store_Unchecked	0x3,0x6
0497 e40e       |    |		Load	0x2,0xe
0498 a604       |    |		Store_Unchecked	0x3,0x4
0499 78e6       |x   |		Jump	0x580
049a 4803       |H   |		Short_Literal	0x3
049b a606       |    |		Store_Unchecked	0x3,0x6
049c e40e       |    |		Load	0x2,0xe
049d a604       |    |		Store_Unchecked	0x3,0x4
049e 78e1       |x   |		Jump	0x580
049f 4803       |H   |		Short_Literal	0x3
04a0 a606       |    |		Store_Unchecked	0x3,0x6
04a1 78de       |x   |		Jump	0x580
04a2 e606       |    |		Load	0x3,0x6
04a3 8414       |    |		Call	0x2,0x14
04a4 78db       |x   |		Jump	0x580
04a5 e606       |    |		Load	0x3,0x6
04a6 0aff       |    |		Execute_Immediate	Plus,-0x1
04a7 460b       |F   |		Jump_Case	0xc
04a8 783a       |x:  |		Jump	0x4e3								; case 0x0
04a9 7839       |x9  |		Jump	0x4e3								; case 0x1
04aa 7838       |x8  |		Jump	0x4e3								; case 0x2
04ab 7837       |x7  |		Jump	0x4e3								; case 0x3
04ac 7836       |x6  |		Jump	0x4e3								; case 0x4
04ad 7809       |x   |		Jump	0x4b7								; case 0x5
04ae 7812       |x   |		Jump	0x4c1								; case 0x6
04af 78d0       |x   |		Jump	0x580								; case 0x7
04b0 7822       |x"  |		Jump	0x4d3								; case 0x8
04b1 7824       |x$  |		Jump	0x4d6								; case 0x9
04b2 782d       |x-  |		Jump	0x4e0								; case 0xa
04b3 7800       |x   |		Jump	0x4b4								; case 0xb
04b4 480a       |H   |		Short_Literal	0xa
04b5 a606       |    |		Store_Unchecked	0x3,0x6
04b6 78c9       |x   |		Jump	0x580
04b7 4802       |H   |		Short_Literal	0x2
04b8 a606       |    |		Store_Unchecked	0x3,0x6
04b9 e603       |    |		Load	0x3,0x3
04ba e602       |    |		Load	0x3,0x2
04bb e406       |    |		Load	0x2,0x6
04bc e605       |    |		Load	0x3,0x5
04bd 840c       |    |		Call	0x2,0xc
04be c602       |    |		Store	0x3,0x2
04bf c603       |    |		Store	0x3,0x3
04c0 78bf       |x   |		Jump	0x580
04c1 4802       |H   |		Short_Literal	0x2
04c2 a606       |    |		Store_Unchecked	0x3,0x6
04c3 e603       |    |		Load	0x3,0x3
04c4 e602       |    |		Load	0x3,0x2
04c5 e405       |    |		Load	0x2,0x5
04c6 0322       | "  |		Declare_Variable	Record
04c7 e604       |    |		Load	0x3,0x4
04c8 e60c       |    |		Load	0x3,0xc
04c9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04ca e40e       |    |		Load	0x2,0xe
04cb 0aff       |    |		Execute_Immediate	Plus,-0x1
04cc e60c       |    |		Load	0x3,0xc
04cd 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04ce e605       |    |		Load	0x3,0x5
04cf 840c       |    |		Call	0x2,0xc
04d0 c602       |    |		Store	0x3,0x2
04d1 c603       |    |		Store	0x3,0x3
04d2 78ad       |x   |		Jump	0x580
04d3 4802       |H   |		Short_Literal	0x2
04d4 a606       |    |		Store_Unchecked	0x3,0x6
04d5 78aa       |x   |		Jump	0x580
04d6 4802       |H   |		Short_Literal	0x2
04d7 a606       |    |		Store_Unchecked	0x3,0x6
04d8 e603       |    |		Load	0x3,0x3
04d9 e602       |    |		Load	0x3,0x2
04da 8608       |    |		Call	0x3,0x8
04db e605       |    |		Load	0x3,0x5
04dc 840c       |    |		Call	0x2,0xc
04dd c602       |    |		Store	0x3,0x2
04de c603       |    |		Store	0x3,0x3
04df 78a0       |x   |		Jump	0x580
04e0 4803       |H   |		Short_Literal	0x3
04e1 a606       |    |		Store_Unchecked	0x3,0x6
04e2 789d       |x   |		Jump	0x580
04e3 e606       |    |		Load	0x3,0x6
04e4 8414       |    |		Call	0x2,0x14
04e5 789a       |x   |		Jump	0x580
04e6 e606       |    |		Load	0x3,0x6
04e7 0aff       |    |		Execute_Immediate	Plus,-0x1
04e8 460b       |F   |		Jump_Case	0xc
04e9 7896       |x   |		Jump	0x580								; case 0x0
04ea 7895       |x   |		Jump	0x580								; case 0x1
04eb 780c       |x   |		Jump	0x4f8								; case 0x2
04ec 7893       |x   |		Jump	0x580								; case 0x3
04ed 7823       |x#  |		Jump	0x511								; case 0x4
04ee 7891       |x   |		Jump	0x580								; case 0x5
04ef 780c       |x   |		Jump	0x4fc								; case 0x6
04f0 788f       |x   |		Jump	0x580								; case 0x7
04f1 788e       |x   |		Jump	0x580								; case 0x8
04f2 788d       |x   |		Jump	0x580								; case 0x9
04f3 781a       |x   |		Jump	0x50e								; case 0xa
04f4 7800       |x   |		Jump	0x4f5								; case 0xb
04f5 480a       |H   |		Short_Literal	0xa
04f6 a606       |    |		Store_Unchecked	0x3,0x6
04f7 7888       |x   |		Jump	0x580
04f8 4804       |H   |		Short_Literal	0x4
04f9 a606       |    |		Store_Unchecked	0x3,0x6
04fa 8607       |    |		Call	0x3,0x7
04fb 7884       |x   |		Jump	0x580
04fc 4809       |H   |		Short_Literal	0x9
04fd a606       |    |		Store_Unchecked	0x3,0x6
04fe e603       |    |		Load	0x3,0x3
04ff e602       |    |		Load	0x3,0x2
0500 e405       |    |		Load	0x2,0x5
0501 0322       | "  |		Declare_Variable	Record
0502 e604       |    |		Load	0x3,0x4
0503 e60c       |    |		Load	0x3,0xc
0504 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0505 e40e       |    |		Load	0x2,0xe
0506 0aff       |    |		Execute_Immediate	Plus,-0x1
0507 e60c       |    |		Load	0x3,0xc
0508 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0509 e605       |    |		Load	0x3,0x5
050a 840c       |    |		Call	0x2,0xc
050b c602       |    |		Store	0x3,0x2
050c c603       |    |		Store	0x3,0x3
050d 7872       |xr  |		Jump	0x580
050e 4803       |H   |		Short_Literal	0x3
050f a606       |    |		Store_Unchecked	0x3,0x6
0510 786f       |xo  |		Jump	0x580
0511 e606       |    |		Load	0x3,0x6
0512 8414       |    |		Call	0x2,0x14
0513 786c       |xl  |		Jump	0x580
0514 e606       |    |		Load	0x3,0x6
0515 0aff       |    |		Execute_Immediate	Plus,-0x1
0516 460b       |F   |		Jump_Case	0xc
0517 781c       |x   |		Jump	0x534								; case 0x0
0518 781b       |x   |		Jump	0x534								; case 0x1
0519 781a       |x   |		Jump	0x534								; case 0x2
051a 7819       |x   |		Jump	0x534								; case 0x3
051b 7818       |x   |		Jump	0x534								; case 0x4
051c 780f       |x   |		Jump	0x52c								; case 0x5
051d 7808       |x   |		Jump	0x526								; case 0x6
051e 780a       |x   |		Jump	0x529								; case 0x7
051f 7814       |x   |		Jump	0x534								; case 0x8
0520 785f       |x_  |		Jump	0x580								; case 0x9
0521 780f       |x   |		Jump	0x531								; case 0xa
0522 7800       |x   |		Jump	0x523								; case 0xb
0523 480a       |H   |		Short_Literal	0xa
0524 a606       |    |		Store_Unchecked	0x3,0x6
0525 785a       |xZ  |		Jump	0x580
0526 4808       |H   |		Short_Literal	0x8
0527 a606       |    |		Store_Unchecked	0x3,0x6
0528 7857       |xW  |		Jump	0x580
0529 4807       |H   |		Short_Literal	0x7
052a a606       |    |		Store_Unchecked	0x3,0x6
052b 7854       |xT  |		Jump	0x580
052c 4808       |H   |		Short_Literal	0x8
052d a606       |    |		Store_Unchecked	0x3,0x6
052e e40e       |    |		Load	0x2,0xe
052f a604       |    |		Store_Unchecked	0x3,0x4
0530 784f       |xO  |		Jump	0x580
0531 4803       |H   |		Short_Literal	0x3
0532 a606       |    |		Store_Unchecked	0x3,0x6
0533 784c       |xL  |		Jump	0x580
0534 e606       |    |		Load	0x3,0x6
0535 8414       |    |		Call	0x2,0x14
0536 7849       |xI  |		Jump	0x580
0537 e606       |    |		Load	0x3,0x6
0538 0aff       |    |		Execute_Immediate	Plus,-0x1
0539 460b       |F   |		Jump_Case	0xc
053a 781b       |x   |		Jump	0x556								; case 0x0
053b 780d       |x   |		Jump	0x549								; case 0x1
053c 7843       |xC  |		Jump	0x580								; case 0x2
053d 7818       |x   |		Jump	0x556								; case 0x3
053e 7817       |x   |		Jump	0x556								; case 0x4
053f 780e       |x   |		Jump	0x54e								; case 0x5
0540 7815       |x   |		Jump	0x556								; case 0x6
0541 783e       |x>  |		Jump	0x580								; case 0x7
0542 7813       |x   |		Jump	0x556								; case 0x8
0543 783c       |x<  |		Jump	0x580								; case 0x9
0544 780e       |x   |		Jump	0x553								; case 0xa
0545 7800       |x   |		Jump	0x546								; case 0xb
0546 480a       |H   |		Short_Literal	0xa
0547 a606       |    |		Store_Unchecked	0x3,0x6
0548 7837       |x7  |		Jump	0x580
0549 4803       |H   |		Short_Literal	0x3
054a a606       |    |		Store_Unchecked	0x3,0x6
054b e40e       |    |		Load	0x2,0xe
054c a604       |    |		Store_Unchecked	0x3,0x4
054d 7832       |x2  |		Jump	0x580
054e 480a       |H   |		Short_Literal	0xa
054f a606       |    |		Store_Unchecked	0x3,0x6
0550 e40e       |    |		Load	0x2,0xe
0551 a604       |    |		Store_Unchecked	0x3,0x4
0552 782d       |x-  |		Jump	0x580
0553 4803       |H   |		Short_Literal	0x3
0554 a606       |    |		Store_Unchecked	0x3,0x6
0555 782a       |x*  |		Jump	0x580
0556 e606       |    |		Load	0x3,0x6
0557 8414       |    |		Call	0x2,0x14
0558 7827       |x'  |		Jump	0x580
0559 e606       |    |		Load	0x3,0x6
055a 0aff       |    |		Execute_Immediate	Plus,-0x1
055b 460b       |F   |		Jump_Case	0xc
055c 7821       |x!  |		Jump	0x57e								; case 0x0
055d 7815       |x   |		Jump	0x573								; case 0x1
055e 780c       |x   |		Jump	0x56b								; case 0x2
055f 781e       |x   |		Jump	0x57e								; case 0x3
0560 781d       |x   |		Jump	0x57e								; case 0x4
0561 780c       |x   |		Jump	0x56e								; case 0x5
0562 781b       |x   |		Jump	0x57e								; case 0x6
0563 781c       |x   |		Jump	0x580								; case 0x7
0564 7819       |x   |		Jump	0x57e								; case 0x8
0565 7812       |x   |		Jump	0x578								; case 0x9
0566 7814       |x   |		Jump	0x57b								; case 0xa
0567 7800       |x   |		Jump	0x568								; case 0xb
0568 480a       |H   |		Short_Literal	0xa
0569 a606       |    |		Store_Unchecked	0x3,0x6
056a 7815       |x   |		Jump	0x580
056b 480b       |H   |		Short_Literal	0xb
056c a606       |    |		Store_Unchecked	0x3,0x6
056d 7812       |x   |		Jump	0x580
056e 480c       |H   |		Short_Literal	0xc
056f a606       |    |		Store_Unchecked	0x3,0x6
0570 e40e       |    |		Load	0x2,0xe
0571 a604       |    |		Store_Unchecked	0x3,0x4
0572 780d       |x   |		Jump	0x580
0573 480b       |H   |		Short_Literal	0xb
0574 a606       |    |		Store_Unchecked	0x3,0x6
0575 e40e       |    |		Load	0x2,0xe
0576 a604       |    |		Store_Unchecked	0x3,0x4
0577 7808       |x   |		Jump	0x580
0578 480c       |H   |		Short_Literal	0xc
0579 a606       |    |		Store_Unchecked	0x3,0x6
057a 7805       |x   |		Jump	0x580
057b 4803       |H   |		Short_Literal	0x3
057c a606       |    |		Store_Unchecked	0x3,0x6
057d 7802       |x   |		Jump	0x580
057e e606       |    |		Load	0x3,0x6
057f 8414       |    |		Call	0x2,0x14
0580 e40e       |    |		Load	0x2,0xe
0581 0a01       |    |		Execute_Immediate	Plus,0x1
0582 c40e       |    |		Store	0x2,0xe
0583 00c9       |    |		Action	Pop_Auxiliary_Loop
0584 00a7 0357  |   W|		Action	Jump_Extended,0x357
0586 00ce       |    |		Action	Pop_Auxiliary
0587 e602       |    |		Load	0x3,0x2
0588 00ca       |    |		Action	Exit_Nullary_Function
0589 0000 0000  |    |		.BLANK	0000[0x7]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0595       |    |		.CONST	0x0595								; Address of begin
0591 05c0       |    |		.CONST	0x05c0								; Address of exception handler
0592 0002       |    |		.CONST	0x0002								; Number of locals
0593			INIT_0590:
0593 029f 07e3  |    |		Declare_Subprogram	INIT_07e0,For_Call
0595			BODY_0590:
0595 e40e       |    |		Load	0x2,0xe
0596 e5fd       |    |		Load	0x2,-0x3
0597 01dc       |    |		Execute	Vector,Last
0598 027d       | }  |		Execute	Discrete,Greater
0599 680c       |h   |		Jump_Zero	0x5a6
059a 4800       |H   |		Short_Literal	0x0
059b e409       |    |		Load	0x2,0x9
059c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
059d e406       |    |		Load	0x2,0x6
059e e603       |    |		Load	0x3,0x3
059f 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
05a0 e40a       |    |		Load	0x2,0xa
05a1 e603       |    |		Load	0x3,0x3
05a2 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05a3 e40a       |    |		Load	0x2,0xa
05a4 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
05a5 00ca       |    |		Action	Exit_Nullary_Function
05a6 e40e       |    |		Load	0x2,0xe
05a7 e5fd       |    |		Load	0x2,-0x3
05a8 01d7       |    |		Execute	Vector,Field_Read
05a9 0f28       | (  |		Execute_Immediate	Equal,0x28
05aa 6802       |h   |		Jump_Zero	0x5ad
05ab 8602       |    |		Call	0x3,0x2
05ac 7812       |x   |		Jump	0x5bf
05ad 4800       |H   |		Short_Literal	0x0
05ae e409       |    |		Load	0x2,0x9
05af 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05b0 00d8       |    |		Load_Top	At_Offset_0
05b1 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
05b2 e40e       |    |		Load	0x2,0xe
05b3 e604       |    |		Load	0x3,0x4
05b4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05b5 e5fd       |    |		Load	0x2,-0x3
05b6 01dc       |    |		Execute	Vector,Last
05b7 00d0       |    |		Action	Swap_Control
05b8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05b9 e40a       |    |		Load	0x2,0xa
05ba e603       |    |		Load	0x3,0x3
05bb 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05bc e40a       |    |		Load	0x2,0xa
05bd 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
05be 00ca       |    |		Action	Exit_Nullary_Function
05bf 0831       | 1  |		Execute_Immediate	Raise,0x31
05c0			TRAP_0590:
05c0 0007       |    |		Action	Break_Optional
05c1 e403       |    |		Load	0x2,0x3
05c2 7007       |p   |		Jump_Nonzero	0x5ca
05c3 0092 0830  |   0|		Action	Push_String_Extended,0x830					; "*** unhandled parser exception at position"
05c5 e40e       |    |		Load	0x2,0xe
05c6 00e0       |    |		Load_Encached	Standard_Cache
05c7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05c8 01cc       |    |		Execute	Vector,Catenate
05c9 8407       |    |		Call	0x2,0x7
05ca 00d8       |    |		Load_Top	At_Offset_0
05cb 0101       |    |		Execute	Exception,Reraise
05cc 0000 0000  |    |		.BLANK	0000[0x4]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3       |    |		.CONST	0x05d3								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0001       |    |		.CONST	0x0001								; Number of locals
05d3			BODY_05d0:
05d3			INIT_05d0:
05d3 e7ff       |    |		Load	0x3,-0x1
05d4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05d5 e7ff       |    |		Load	0x3,-0x1
05d6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
05d7 0272       | r  |		Execute	Discrete,Minus
05d8 0a01       |    |		Execute_Immediate	Plus,0x1
05d9 00e3       |    |		Load_Encached	Natural_Cache
05da 025b       | [  |		Execute	Discrete,Check_In_Type
05db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05dc 0000 0000  |    |		.BLANK	0000[0x4]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 e5f9       |    |		Load	0x2,-0x7
05e4 0092 0831  |   1|		Action	Push_String_Extended,0x831					; "... "
05e6 e418       |    |		Load	0x2,0x18
05e7 e001       |    |		Load	0x0,0x1
05e8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05e9 4819       |H   |		Short_Literal	0x19
05ea 4802       |H   |		Short_Literal	0x2
05eb 0099       |    |		Action	Reference_Dynamic
05ec 481a       |H   |		Short_Literal	0x1a
05ed 4802       |H   |		Short_Literal	0x2
05ee 0099       |    |		Action	Reference_Dynamic
05ef 820d       |    |		Call	0x1,0xd
05f0 e418       |    |		Load	0x2,0x18
05f1 4820       |H   |		Short_Literal	0x20
05f2 4800       |H   |		Short_Literal	0x0
05f3 e001       |    |		Load	0x0,0x1
05f4 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05f6 0000 0000  |    |		.XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 0605       |    |		.CONST	0x0605								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0002       |    |		.CONST	0x0002								; Number of locals
05fb			INIT_05f8:
05fb e418       |    |		Load	0x2,0x18
05fc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05fd e418       |    |		Load	0x2,0x18
05fe e001       |    |		Load	0x0,0x1
05ff 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0600 0272       | r  |		Execute	Discrete,Minus
0601 e7ff       |    |		Load	0x3,-0x1
0602 01db       |    |		Execute	Vector,Length
0603 027b       | {  |		Execute	Discrete,Greater_Equal
0604 0007       |    |		Action	Break_Optional
0605			BODY_05f8:
0605 00d8       |    |		Load_Top	At_Offset_0
0606 6806       |h   |		Jump_Zero	0x60d
0607 e418       |    |		Load	0x2,0x18
0608 e7ff       |    |		Load	0x3,-0x1
0609 e001       |    |		Load	0x0,0x1
060a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
060b 00d1       |    |		Pop_Control	Pop_Count_1
060c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
060d 841d       |    |		Call	0x2,0x1d
060e 484f       |HO  |		Short_Literal	0x4f
060f 00ea       |    |		Load_Encached	Null_String_Cache
0610 e7ff       |    |		Load	0x3,-0x1
0611 4819       |H   |		Short_Literal	0x19
0612 4802       |H   |		Short_Literal	0x2
0613 0099       |    |		Action	Reference_Dynamic
0614 481a       |H   |		Short_Literal	0x1a
0615 4802       |H   |		Short_Literal	0x2
0616 0099       |    |		Action	Reference_Dynamic
0617 820d       |    |		Call	0x1,0xd
0618 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0619 0000 0000  |    |		.BLANK	0000[0x7]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 4800       |H   |		Short_Literal	0x0
0624 e7ff       |    |		Load	0x3,-0x1
0625 4823       |H#  |		Short_Literal	0x23
0626 e004       |    |		Load	0x0,0x4
0627 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0628 7004       |p   |		Jump_Nonzero	0x62d
0629 e7ff       |    |		Load	0x3,-0x1
062a e004       |    |		Load	0x0,0x4
062b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
062c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062d e7ff       |    |		Load	0x3,-0x1
062e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062f 0000       |    |		.XXX[0x1]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0646       | F  |		.CONST	0x0646								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0005       |    |		.CONST	0x0005								; Number of locals
0633			INIT_0630:
0633 e7ff       |    |		Load	0x3,-0x1
0634 8417       |    |		Call	0x2,0x17
0635 4801       |H   |		Short_Literal	0x1
0636 e602       |    |		Load	0x3,0x2
0637 00e9       |    |		Load_Encached	String_Cache
0638 0334       | 4  |		Declare_Variable	Array,With_Constraint
0639 e7ff       |    |		Load	0x3,-0x1
063a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
063b e7ff       |    |		Load	0x3,-0x1
063c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
063d e5fd       |    |		Load	0x2,-0x3
063e 01cf       |    |		Execute	Vector,Slice_Read
063f e603       |    |		Load	0x3,0x3
0640 01d4       |    |		Execute	Vector,Structure_Write
0641 00e2       |    |		Load_Encached	Integer_Cache
0642 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0643 e602       |    |		Load	0x3,0x2
0644 00e2       |    |		Load_Encached	Integer_Cache
0645 03f1       |    |		Declare_Variable	Discrete,With_Value
0646			BODY_0630:
0646 00cf       |    |		Action	Mark_Auxiliary
0647 e604       |    |		Load	0x3,0x4
0648 e603       |    |		Load	0x3,0x3
0649 01d7       |    |		Execute	Vector,Field_Read
064a 0f09       |    |		Execute_Immediate	Equal,0x9
064b 6804       |h   |		Jump_Zero	0x650
064c 482c       |H,  |		Short_Literal	0x2c
064d e604       |    |		Load	0x3,0x4
064e e603       |    |		Load	0x3,0x3
064f 01d6       |    |		Execute	Vector,Field_Write
0650 e604       |    |		Load	0x3,0x4
0651 e603       |    |		Load	0x3,0x3
0652 01d7       |    |		Execute	Vector,Field_Read
0653 7004       |p   |		Jump_Nonzero	0x658
0654 4820       |H   |		Short_Literal	0x20
0655 e604       |    |		Load	0x3,0x4
0656 e603       |    |		Load	0x3,0x3
0657 01d6       |    |		Execute	Vector,Field_Write
0658 e604       |    |		Load	0x3,0x4
0659 e603       |    |		Load	0x3,0x3
065a 01d7       |    |		Execute	Vector,Field_Read
065b 0f1b       |    |		Execute_Immediate	Equal,0x1b
065c 680f       |h   |		Jump_Zero	0x66c
065d e604       |    |		Load	0x3,0x4
065e 0a01       |    |		Execute_Immediate	Plus,0x1
065f 0248       | H  |		Execute	Discrete,Check_In_Integer
0660 e605       |    |		Load	0x3,0x5
0661 e603       |    |		Load	0x3,0x3
0662 01cf       |    |		Execute	Vector,Slice_Read
0663 e604       |    |		Load	0x3,0x4
0664 e605       |    |		Load	0x3,0x5
0665 0aff       |    |		Execute_Immediate	Plus,-0x1
0666 0248       | H  |		Execute	Discrete,Check_In_Integer
0667 e603       |    |		Load	0x3,0x3
0668 01ce       |    |		Execute	Vector,Slice_Write
0669 e605       |    |		Load	0x3,0x5
066a 0aff       |    |		Execute_Immediate	Plus,-0x1
066b c605       |    |		Store	0x3,0x5
066c e604       |    |		Load	0x3,0x4
066d 0a01       |    |		Execute_Immediate	Plus,0x1
066e c604       |    |		Store	0x3,0x4
066f e604       |    |		Load	0x3,0x4
0670 e605       |    |		Load	0x3,0x5
0671 027d       | }  |		Execute	Discrete,Greater
0672 7002       |p   |		Jump_Nonzero	0x675
0673 00c9       |    |		Action	Pop_Auxiliary_Loop
0674 7fd2       |    |		Jump	0x647
0675 00ce       |    |		Action	Pop_Auxiliary
0676 4801       |H   |		Short_Literal	0x1
0677 e605       |    |		Load	0x3,0x5
0678 e603       |    |		Load	0x3,0x3
0679 01cf       |    |		Execute	Vector,Slice_Read
067a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
067b 0000 0000  |    |		.BLANK	0000[0x5]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683       |    |		.CONST	0x0683								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0001       |    |		.CONST	0x0001								; Number of locals
0683			BODY_0680:
0683			INIT_0680:
0683 e7ff       |    |		Load	0x3,-0x1
0684 8420       |    |		Call	0x2,0x20
0685 841f       |    |		Call	0x2,0x1f
0686 841e       |    |		Call	0x2,0x1e
0687 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 069e       |    |		.CONST	0x069e								; Address of begin
0689 0004       |    |		.CONST	0x0004								; Address of exception handler
068a 0005       |    |		.CONST	0x0005								; Number of locals
068b			INIT_0688:
068b e7ff       |    |		Load	0x3,-0x1
068c 8417       |    |		Call	0x2,0x17
068d 4801       |H   |		Short_Literal	0x1
068e e602       |    |		Load	0x3,0x2
068f 00e9       |    |		Load_Encached	String_Cache
0690 0334       | 4  |		Declare_Variable	Array,With_Constraint
0691 e7ff       |    |		Load	0x3,-0x1
0692 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0693 e7ff       |    |		Load	0x3,-0x1
0694 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0695 e5fd       |    |		Load	0x2,-0x3
0696 01cf       |    |		Execute	Vector,Slice_Read
0697 e603       |    |		Load	0x3,0x3
0698 01d4       |    |		Execute	Vector,Structure_Write
0699 00e2       |    |		Load_Encached	Integer_Cache
069a 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
069b e602       |    |		Load	0x3,0x2
069c 00e2       |    |		Load_Encached	Integer_Cache
069d 03f1       |    |		Declare_Variable	Discrete,With_Value
069e			BODY_0688:
069e 00cf       |    |		Action	Mark_Auxiliary
069f e604       |    |		Load	0x3,0x4
06a0 e605       |    |		Load	0x3,0x5
06a1 027b       | {  |		Execute	Discrete,Greater_Equal
06a2 7019       |p   |		Jump_Nonzero	0x6bc
06a3 e604       |    |		Load	0x3,0x4
06a4 e603       |    |		Load	0x3,0x3
06a5 01d7       |    |		Execute	Vector,Field_Read
06a6 0f22       | "  |		Execute_Immediate	Equal,0x22
06a7 680f       |h   |		Jump_Zero	0x6b7
06a8 e604       |    |		Load	0x3,0x4
06a9 0a01       |    |		Execute_Immediate	Plus,0x1
06aa 0248       | H  |		Execute	Discrete,Check_In_Integer
06ab e605       |    |		Load	0x3,0x5
06ac e603       |    |		Load	0x3,0x3
06ad 01cf       |    |		Execute	Vector,Slice_Read
06ae e604       |    |		Load	0x3,0x4
06af e605       |    |		Load	0x3,0x5
06b0 0aff       |    |		Execute_Immediate	Plus,-0x1
06b1 0248       | H  |		Execute	Discrete,Check_In_Integer
06b2 e603       |    |		Load	0x3,0x3
06b3 01ce       |    |		Execute	Vector,Slice_Write
06b4 e605       |    |		Load	0x3,0x5
06b5 0aff       |    |		Execute_Immediate	Plus,-0x1
06b6 c605       |    |		Store	0x3,0x5
06b7 e604       |    |		Load	0x3,0x4
06b8 0a01       |    |		Execute_Immediate	Plus,0x1
06b9 c604       |    |		Store	0x3,0x4
06ba 00c9       |    |		Action	Pop_Auxiliary_Loop
06bb 7fe3       |    |		Jump	0x69f
06bc 00ce       |    |		Action	Pop_Auxiliary
06bd 4801       |H   |		Short_Literal	0x1
06be e605       |    |		Load	0x3,0x5
06bf e603       |    |		Load	0x3,0x3
06c0 01cf       |    |		Execute	Vector,Slice_Read
06c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06c2 0000 0000  |    |		.BLANK	0000[0x6]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb       |    |		.CONST	0x06cb								; Address of begin
06c9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ca 0001       |    |		.CONST	0x0001								; Number of locals
06cb			BODY_06c8:
06cb			INIT_06c8:
06cb e7ff       |    |		Load	0x3,-0x1
06cc 8417       |    |		Call	0x2,0x17
06cd 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
06ce 680a       |h   |		Jump_Zero	0x6d9
06cf e7ff       |    |		Load	0x3,-0x1
06d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06d1 e5fd       |    |		Load	0x2,-0x3
06d2 01d7       |    |		Execute	Vector,Field_Read
06d3 0f22       | "  |		Execute_Immediate	Equal,0x22
06d4 6804       |h   |		Jump_Zero	0x6d9
06d5 e7ff       |    |		Load	0x3,-0x1
06d6 8422       | "  |		Call	0x2,0x22
06d7 841e       |    |		Call	0x2,0x1e
06d8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06d9 e7ff       |    |		Load	0x3,-0x1
06da 8420       |    |		Call	0x2,0x20
06db 841e       |    |		Call	0x2,0x1e
06dc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06dd 0000 0000  |    |		.XXX[0x3]
06df 0000       |    |
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e9       |    |		.CONST	0x06e9								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0002       |    |		.CONST	0x0002								; Number of locals
06e3			INIT_06e0:
06e3 e7ff       |    |		Load	0x3,-0x1
06e4 e5fa       |    |		Load	0x2,-0x6
06e5 0271       | q  |		Execute	Discrete,Times
06e6 0a01       |    |		Execute_Immediate	Plus,0x1
06e7 00e2       |    |		Load_Encached	Integer_Cache
06e8 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
06e9			BODY_06e0:
06e9 e7fe       |    |		Load	0x3,-0x2
06ea 6803       |h   |		Jump_Zero	0x6ee
06eb 00d8       |    |		Load_Top	At_Offset_0
06ec 0aff       |    |		Execute_Immediate	Plus,-0x1
06ed c602       |    |		Store	0x3,0x2
06ee 00d8       |    |		Load_Top	At_Offset_0
06ef 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 0708       |    |		.CONST	0x0708								; Address of begin
06f1 0004       |    |		.CONST	0x0004								; Address of exception handler
06f2 0003       |    |		.CONST	0x0003								; Number of locals
06f3			INIT_06f0:
06f3 e7fe       |    |		Load	0x3,-0x2
06f4 e7ff       |    |		Load	0x3,-0x1
06f5 8424       | $  |		Call	0x2,0x24
06f6 4801       |H   |		Short_Literal	0x1
06f7 e602       |    |		Load	0x3,0x2
06f8 00e9       |    |		Load_Encached	String_Cache
06f9 0334       | 4  |		Declare_Variable	Array,With_Constraint
06fa 00d8       |    |		Load_Top	At_Offset_0
06fb 0335       | 5  |		Declare_Variable	Array,Duplicate
06fc 00cd       |    |		Action	Spare6_Action
06fd e603       |    |		Load	0x3,0x3
06fe 01d9       |    |		Execute	Vector,Reverse_Bounds
06ff 0263       | c  |		Execute	Discrete,Above_Bound
0700 7005       |p   |		Jump_Nonzero	0x706
0701 4820       |H   |		Short_Literal	0x20
0702 e606       |    |		Load	0x3,0x6
0703 e604       |    |		Load	0x3,0x4
0704 01d6       |    |		Execute	Vector,Field_Write
0705 3ffb       |?   |		Loop_Increasing	0x701
0706 e603       |    |		Load	0x3,0x3
0707 01d4       |    |		Execute	Vector,Structure_Write
0708			BODY_06f0:
0708 00d8       |    |		Load_Top	At_Offset_0
0709 841e       |    |		Call	0x2,0x1e
070a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
070b 0000 0000  |    |		.BLANK	0000[0x5]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 071e       |    |		.CONST	0x071e								; Address of begin
0711 0004       |    |		.CONST	0x0004								; Address of exception handler
0712 0003       |    |		.CONST	0x0003								; Number of locals
0713			INIT_0710:
0713 e40a       |    |		Load	0x2,0xa
0714 e7ff       |    |		Load	0x3,-0x1
0715 0227       | '  |		Execute	Access,All_Reference
0716 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0717 a602       |    |		Store_Unchecked	0x3,0x2
0718 e418       |    |		Load	0x2,0x18
0719 e001       |    |		Load	0x0,0x1
071a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
071b 0a01       |    |		Execute_Immediate	Plus,0x1
071c 00e2       |    |		Load_Encached	Integer_Cache
071d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
071e			BODY_0710:
071e e602       |    |		Load	0x3,0x2
071f 6825       |h%  |		Jump_Zero	0x745
0720 00cf       |    |		Action	Mark_Auxiliary
0721 e602       |    |		Load	0x3,0x2
0722 0227       | '  |		Execute	Access,All_Reference
0723 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0724 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0725 6802       |h   |		Jump_Zero	0x728
0726 4800       |H   |		Short_Literal	0x0
0727 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0728 e603       |    |		Load	0x3,0x3
0729 e602       |    |		Load	0x3,0x2
072a 0227       | '  |		Execute	Access,All_Reference
072b 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
072c 8417       |    |		Call	0x2,0x17
072d 0273       | s  |		Execute	Discrete,Plus
072e c603       |    |		Store	0x3,0x3
072f e603       |    |		Load	0x3,0x3
0730 0a04       |    |		Execute_Immediate	Plus,0x4
0731 c603       |    |		Store	0x3,0x3
0732 e603       |    |		Load	0x3,0x3
0733 e602       |    |		Load	0x3,0x2
0734 0227       | '  |		Execute	Access,All_Reference
0735 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0736 8417       |    |		Call	0x2,0x17
0737 0273       | s  |		Execute	Discrete,Plus
0738 c603       |    |		Store	0x3,0x3
0739 e602       |    |		Load	0x3,0x2
073a 0227       | '  |		Execute	Access,All_Reference
073b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
073c a602       |    |		Store_Unchecked	0x3,0x2
073d e602       |    |		Load	0x3,0x2
073e 6805       |h   |		Jump_Zero	0x744
073f e603       |    |		Load	0x3,0x3
0740 0a02       |    |		Execute_Immediate	Plus,0x2
0741 c603       |    |		Store	0x3,0x3
0742 00c9       |    |		Action	Pop_Auxiliary_Loop
0743 7fdd       |    |		Jump	0x721
0744 00ce       |    |		Action	Pop_Auxiliary
0745 00d8       |    |		Load_Top	At_Offset_0
0746 e7fe       |    |		Load	0x3,-0x2
0747 0273       | s  |		Execute	Discrete,Plus
0748 0a01       |    |		Execute_Immediate	Plus,0x1
0749 c603       |    |		Store	0x3,0x3
074a 00d8       |    |		Load_Top	At_Offset_0
074b e5f9       |    |		Load	0x2,-0x7
074c 027a       | z  |		Execute	Discrete,Less_Equal
074d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
074e 0000 0000  |    |		.XXX[0x2]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0757       | W  |		.CONST	0x0757								; Address of begin
0751 0004       |    |		.CONST	0x0004								; Address of exception handler
0752 0003       |    |		.CONST	0x0003								; Number of locals
0753			INIT_0750:
0753 00e1       |    |		Load_Encached	Boolean_Cache
0754 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0755 029f 07f3  |    |		Declare_Subprogram	INIT_07f0,For_Call
0757			BODY_0750:
0757 e7ff       |    |		Load	0x3,-0x1
0758 0227       | '  |		Execute	Access,All_Reference
0759 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
075a 4602       |F   |		Jump_Case	0x3
075b 782d       |x-  |		Jump	0x789								; case 0x0
075c 7831       |x1  |		Jump	0x78e								; case 0x1
075d 7800       |x   |		Jump	0x75e								; case 0x2
075e e7fe       |    |		Load	0x3,-0x2
075f 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0760 6815       |h   |		Jump_Zero	0x776
0761 e7ff       |    |		Load	0x3,-0x1
0762 0227       | '  |		Execute	Access,All_Reference
0763 2606       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0764 8421       | !  |		Call	0x2,0x21
0765 0092 0832  |   2|		Action	Push_String_Extended,0x832					; " => "
0767 841e       |    |		Call	0x2,0x1e
0768 e7fe       |    |		Load	0x3,-0x2
0769 e7ff       |    |		Load	0x3,-0x1
076a 8426       | &  |		Call	0x2,0x26
076b a602       |    |		Store_Unchecked	0x3,0x2
076c e602       |    |		Load	0x3,0x2
076d 7008       |p   |		Jump_Nonzero	0x776
076e e7fe       |    |		Load	0x3,-0x2
076f e5fb       |    |		Load	0x2,-0x5
0770 027c       | |  |		Execute	Discrete,Less
0771 6804       |h   |		Jump_Zero	0x776
0772 841d       |    |		Call	0x2,0x1d
0773 4801       |H   |		Short_Literal	0x1
0774 e7fe       |    |		Load	0x3,-0x2
0775 8425       | %  |		Call	0x2,0x25
0776 e7fe       |    |		Load	0x3,-0x2
0777 e5fb       |    |		Load	0x2,-0x5
0778 027c       | |  |		Execute	Discrete,Less
0779 680b       |h   |		Jump_Zero	0x785
077a 0092 0822  |   "|		Action	Push_String_Extended,0x822					; "("
077c 841e       |    |		Call	0x2,0x1e
077d e602       |    |		Load	0x3,0x2
077e 7004       |p   |		Jump_Nonzero	0x783
077f e7fe       |    |		Load	0x3,-0x2
0780 e7ff       |    |		Load	0x3,-0x1
0781 8426       | &  |		Call	0x2,0x26
0782 a602       |    |		Store_Unchecked	0x3,0x2
0783 8603       |    |		Call	0x3,0x3
0784 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0785 0092 0833  |   3|		Action	Push_String_Extended,0x833					; "..."
0787 841e       |    |		Call	0x2,0x1e
0788 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0789 e7ff       |    |		Load	0x3,-0x1
078a 0227       | '  |		Execute	Access,All_Reference
078b 2603       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
078c 8423       | #  |		Call	0x2,0x23
078d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
078e e7ff       |    |		Load	0x3,-0x1
078f 0227       | '  |		Execute	Access,All_Reference
0790 2604       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0791 8421       | !  |		Call	0x2,0x21
0792 0092 0832  |   2|		Action	Push_String_Extended,0x832					; " => "
0794 841e       |    |		Call	0x2,0x1e
0795 e7ff       |    |		Load	0x3,-0x1
0796 0227       | '  |		Execute	Access,All_Reference
0797 2605       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0798 8423       | #  |		Call	0x2,0x23
0799 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
079a 0000 0000  |    |		.BLANK	0000[0x6]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a3       |    |		.CONST	0x07a3								; Address of begin
07a1 07a7       |    |		.CONST	0x07a7								; Address of exception handler
07a2 0001       |    |		.CONST	0x0001								; Number of locals
07a3			BODY_07a0:
07a3			INIT_07a0:
07a3 e7fe       |    |		Load	0x3,-0x2
07a4 e7ff       |    |		Load	0x3,-0x1
07a5 8427       | '  |		Call	0x2,0x27
07a6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07a7			TRAP_07a0:
07a7 0007       |    |		Action	Break_Optional
07a8 e403       |    |		Load	0x2,0x3
07a9 7003       |p   |		Jump_Nonzero	0x7ad
07aa 0092 0834  |   4|		Action	Push_String_Extended,0x834					; "*** unhandled pretty printer exception"
07ac 8407       |    |		Call	0x2,0x7
07ad 00d8       |    |		Load_Top	At_Offset_0
07ae 0101       |    |		Execute	Exception,Reraise
07af 0000       |    |		.XXX[0x1]
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07b3       |    |		.CONST	0x07b3								; Address of begin
07b1 0004       |    |		.CONST	0x0004								; Address of exception handler
07b2 0001       |    |		.CONST	0x0001								; Number of locals
07b3			BODY_07b0:
07b3			INIT_07b0:
07b3 e405       |    |		Load	0x2,0x5
07b4 0322       | "  |		Declare_Variable	Record
07b5 e604       |    |		Load	0x3,0x4
07b6 e802       |    |		Load	0x4,0x2
07b7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07b8 e40e       |    |		Load	0x2,0xe
07b9 0aff       |    |		Execute_Immediate	Plus,-0x1
07ba e802       |    |		Load	0x4,0x2
07bb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07bc e605       |    |		Load	0x3,0x5
07bd 017d       | }  |		Execute	Record,Structure_Write
07be 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07bf 0000       |    |		.XXX[0x1]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c7       |    |		.CONST	0x07c7								; Address of begin
07c1 0004       |    |		.CONST	0x0004								; Address of exception handler
07c2 0002       |    |		.CONST	0x0002								; Number of locals
07c3			INIT_07c0:
07c3 e40e       |    |		Load	0x2,0xe
07c4 0aff       |    |		Execute_Immediate	Plus,-0x1
07c5 00e2       |    |		Load_Encached	Integer_Cache
07c6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
07c7			BODY_07c0:
07c7 00cf       |    |		Action	Mark_Auxiliary
07c8 e802       |    |		Load	0x4,0x2
07c9 e604       |    |		Load	0x3,0x4
07ca 027c       | |  |		Execute	Discrete,Less
07cb 700a       |p   |		Jump_Nonzero	0x7d6
07cc e802       |    |		Load	0x4,0x2
07cd e5fd       |    |		Load	0x2,-0x3
07ce 01d7       |    |		Execute	Vector,Field_Read
07cf 0e20       |    |		Execute_Immediate	Not_Equal,0x20
07d0 7005       |p   |		Jump_Nonzero	0x7d6
07d1 e802       |    |		Load	0x4,0x2
07d2 0aff       |    |		Execute_Immediate	Plus,-0x1
07d3 c802       |    |		Store	0x4,0x2
07d4 00c9       |    |		Action	Pop_Auxiliary_Loop
07d5 7ff2       |    |		Jump	0x7c8
07d6 00ce       |    |		Action	Pop_Auxiliary
07d7 e405       |    |		Load	0x2,0x5
07d8 0322       | "  |		Declare_Variable	Record
07d9 e604       |    |		Load	0x3,0x4
07da e803       |    |		Load	0x4,0x3
07db 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07dc e802       |    |		Load	0x4,0x2
07dd e803       |    |		Load	0x4,0x3
07de 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07df 00ca       |    |		Action	Exit_Nullary_Function
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e4       |    |		.CONST	0x07e4								; Address of begin
07e1 0004       |    |		.CONST	0x0004								; Address of exception handler
07e2 0002       |    |		.CONST	0x0002								; Number of locals
07e3			INIT_07e0:
07e3 8415       |    |		Call	0x2,0x15
07e4			BODY_07e0:
07e4 e40e       |    |		Load	0x2,0xe
07e5 e5fd       |    |		Load	0x2,-0x3
07e6 01dc       |    |		Execute	Vector,Last
07e7 027c       | |  |		Execute	Discrete,Less
07e8 6803       |h   |		Jump_Zero	0x7ec
07e9 0092 0835  |   5|		Action	Push_String_Extended,0x835					; "warning: garbage characters beyond aggregate end"
07eb 8407       |    |		Call	0x2,0x7
07ec 00d8       |    |		Load_Top	At_Offset_0
07ed 00cb       |    |		Action	Pop_Block_With_Result
07ee 00ca       |    |		Action	Exit_Nullary_Function
07ef 0000       |    |		.XXX[0x1]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f8       |    |		.CONST	0x07f8								; Address of begin
07f1 0004       |    |		.CONST	0x0004								; Address of exception handler
07f2 0002       |    |		.CONST	0x0002								; Number of locals
07f3			INIT_07f0:
07f3 e40a       |    |		Load	0x2,0xa
07f4 e7ff       |    |		Load	0x3,-0x1
07f5 0227       | '  |		Execute	Access,All_Reference
07f6 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
07f7 a802       |    |		Store_Unchecked	0x4,0x2
07f8			BODY_07f0:
07f8 00d8       |    |		Load_Top	At_Offset_0
07f9 6819       |h   |		Jump_Zero	0x813
07fa 00cf       |    |		Action	Mark_Auxiliary
07fb e7fe       |    |		Load	0x3,-0x2
07fc 0a01       |    |		Execute_Immediate	Plus,0x1
07fd 00e3       |    |		Load_Encached	Natural_Cache
07fe 025b       | [  |		Execute	Discrete,Check_In_Type
07ff e802       |    |		Load	0x4,0x2
0800 8427       | '  |		Call	0x2,0x27
0801 e802       |    |		Load	0x4,0x2
0802 0227       | '  |		Execute	Access,All_Reference
0803 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0804 a802       |    |		Store_Unchecked	0x4,0x2
0805 e802       |    |		Load	0x4,0x2
0806 680b       |h   |		Jump_Zero	0x812
0807 0092 0836  |   6|		Action	Push_String_Extended,0x836					; ", "
0809 841e       |    |		Call	0x2,0x1e
080a e602       |    |		Load	0x3,0x2
080b 7004       |p   |		Jump_Nonzero	0x810
080c 841d       |    |		Call	0x2,0x1d
080d 4800       |H   |		Short_Literal	0x0
080e e7fe       |    |		Load	0x3,-0x2
080f 8425       | %  |		Call	0x2,0x25
0810 00c9       |    |		Action	Pop_Auxiliary_Loop
0811 7fe9       |    |		Jump	0x7fb
0812 00ce       |    |		Action	Pop_Auxiliary
0813 0092 082e  |   .|		Action	Push_String_Extended,0x82e					; ")"
0815 841e       |    |		Call	0x2,0x1e
0816 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0817 ; --------------------------------------------------------------------------------------
0817 ; STRING TABLE
0817 ; --------------------------------------------------------------------------------------
0817 0042       | B  |		.STRTAB	0x0042->0x0838							; "UNHANDLED"
0818 0049       | I  |		.STRTAB	0x0049->0x083c							; "PUT_LINE_ERROR"
0819 0055       | U  |		.STRTAB	0x0055->0x0843							; "PARSER_ERROR"
081a 005f       | _  |		.STRTAB	0x005f->0x0849							; "PRETTY_PRINTER_ERROR"
081b 0071       | q  |		.STRTAB	0x0071->0x0853							; "VALUE"
081c 0074       | t  |		.STRTAB	0x0074->0x0856							; "SIMPLE_FIELD"
081d 007e       | ~  |		.STRTAB	0x007e->0x085c							; "AGGREGATE_FIELD"
081e 008b       |    |		.STRTAB	0x008b->0x0863							; "unknown"
081f 0090       |    |		.STRTAB	0x0090->0x0867							; "^"
0820 008f       |    |		.STRTAB	0x008f->0x0867							; "end"
0821 0090       |    |		.STRTAB	0x0090->0x0869							; "how did we get here?"
0822 00a2       |    |		.STRTAB	0x00a2->0x0873							; "("
0823 00a1       |    |		.STRTAB	0x00a1->0x0873							; "the first character of a name, or ')'; specifically, a character from the set { 'a'..'z', 'A'..'Z', '0'..'9', '#', '_', '-', '.', '<', '>', Nul, Ht }"
0824 0134       | 4  |		.STRTAB	0x0134->0x08be							; "a character appropriate for name, or \x22=>\x22; specifically, a character from the set { 'a'..'z', 'A'..'Z', '0'..'9', '#', '_', '-', '.', '<', '>', Nul, Ht, '=' }"
0825 01d0       |    |		.STRTAB	0x01d0->0x090d							; "an \x22=>\x22"
0826 01d5       |    |		.STRTAB	0x01d5->0x0910							; "the 2nd character from the \x22=>\x22 symbol"
0827 01f9       |    |		.STRTAB	0x01f9->0x0923							; "the 1st character from a value or quoted string; specifically, a character that does not come from the set { '(', ')', ',' }"
0828 0273       | s  |		.STRTAB	0x0273->0x0961							; "a character from the set { ',', ')', '\x22'."
0829 029a       |    |		.STRTAB	0x029a->0x0976							; "a character appropriate for a quoted string."
082a 02c4       |    |		.STRTAB	0x02c4->0x098c							; "a character from the set { ',', ')' }"
082b 02e7       |    |		.STRTAB	0x02e7->0x099e							; "a character appropriate for a raw value; specifically, a character that does not come from the set { ',', ')' }"
082c 0354       | T  |		.STRTAB	0x0354->0x09d6							; "Parsing error: received "
082d 036a       | j  |		.STRTAB	0x036a->0x09e2							; " (at character position"
082e 037f       |    |		.STRTAB	0x037f->0x09ed							; ")"
082f 037e       | ~  |		.STRTAB	0x037e->0x09ee							; ", expected "
0830 0387       |    |		.STRTAB	0x0387->0x09f3							; "*** unhandled parser exception at position"
0831 03af       |    |		.STRTAB	0x03af->0x0a08							; "... "
0832 03b1       |    |		.STRTAB	0x03b1->0x0a0a							; " => "
0833 03b3       |    |		.STRTAB	0x03b3->0x0a0c							; "..."
0834 03b4       |    |		.STRTAB	0x03b4->0x0a0e							; "*** unhandled pretty printer exception"
0835 03d8       |    |		.STRTAB	0x03d8->0x0a21							; "warning: garbage characters beyond aggregate end"
0836 0406       |    |		.STRTAB	0x0406->0x0a39							; ", "
0837 0406       |    |		.STREND 0x0406->0x0a3a
0838 554e 4841  |UNHA|		.STRTAB_STRINGS
0a3a 0000 0000  |    |		.BLANK	0000[0x6]
0a40 ; --------------------------------------------------------------------------------------
0a40 ; Debug Table
0a40 ; --------------------------------------------------------------------------------------
0a40 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xbb43,0x0000,0x0001,0x0000
0a46 004e e8b5  | N  |		.XXX[0x2]
0a48 0000 0000  |    |		.BLANK	0000[0x7]
0a4f 0090       |    |		.XXX[0x1]
0a50 0000 0000  |    |		.BLANK	0000[0x8]
0a58 0014 e0fe  |    |		.XXX[0x5]
0a5a 0800 0600  |    |
0a5c 8000       |    |
0a5d 0000 0000  |    |		.BLANK	0000[0x9]
0a66 004e e8b5  | N  |		.XXX[0x2]
0a68 0000 0000  |    |		.BLANK	0000[0x7]
0a6f 009c       |    |		.XXX[0x1]
0a70 0000 0000  |    |		.BLANK	0000[0x8]
0a78 0001 0404  |    |		.XXX[0x5]
0a7a 0000 0280  |    |
0a7c 8000       |    |
0a7d 0000 0000  |    |		.BLANK	0000[0x9]
0a86 004e e8b5  | N  |		.XXX[0x2]
0a88 0000 0000  |    |		.BLANK	0000[0x7]
0a8f 00a8       |    |		.XXX[0x1]
0a90 0000 0000  |    |		.BLANK	0000[0x8]
0a98 0001 0404  |    |		.XXX[0x5]
0a9a 0000 0700  |    |
0a9c 8000       |    |
0a9d 0000 0000  |    |		.BLANK	0000[0x9]
0aa6 004e e8b5  | N  |		.XXX[0x2]
0aa8 0000 0000  |    |		.BLANK	0000[0x7]
0aaf 00b4       |    |		.XXX[0x1]
0ab0 0000 0000  |    |		.BLANK	0000[0x8]
0ab8 0014 e0fe  |    |		.XXX[0x8]
0aba 0000 0016  |    |
0abc 00b9 d014  |    |
0abe 0000 32b2  |  2 |
0ac0 0000 0000  |    |		.BLANK	0000[0x140]