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

⟦f4c265c4c⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_030cd5

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04a0       |    |		.CONST	0x04a0								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a8       |    |		.CONST	0x00a8								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0026       | &  |		.CONST	0x0026								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4803       |H   |		Short_Literal	0x3
000d 029f 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4818       |H   |		Short_Literal	0x18
0011 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0012 00e3       |    |		Load_Encached	Natural_Cache
0013 0266       | f  |		Execute	Discrete,Bounds
0014 00da       |    |		Load_Top	At_Offset_2
0015 02a0       |    |		Declare_Subprogram	Null_Subprogram
0016 4801       |H   |		Short_Literal	0x1
0017 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
001d 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
001f 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0021 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0023 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0025 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0027 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0029 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
002b 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
002d 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
002f 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0031 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0033 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0035 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0037 4800       |H   |		Short_Literal	0x0
0038 0093 02a3  |    |		push_full_address	INIT_02a0
003a 02a0       |    |		Declare_Subprogram	Null_Subprogram
003b 038f       |    |		Declare_Type	Package,Defined,Visible
003c 0386       |    |		Declare_Variable	Package,Visible
003d 0093 0000  |    |		push_full_address	0x0
003f 60a0       |`   |		Indirect_Literal	Discrete,0xe0,{0x80000000, 0x00010000}
0040 0273       | s  |		Execute	Discrete,Plus
0041 0129       | )  |		Execute	Any,Make_Visible
0042 0093 0000  |    |		push_full_address	0x0
0044 6097       |`   |		Indirect_Literal	Discrete,0xdc,{0x80000000, 0x00020000}
0045 0273       | s  |		Execute	Discrete,Plus
0046 0129       | )  |		Execute	Any,Make_Visible
0047 e20d       |    |		Load	0x1,0xd
0048 00e3       |    |		Load_Encached	Natural_Cache
0049 4803       |H   |		Short_Literal	0x3
004a 4801       |H   |		Short_Literal	0x1
004b 4802       |H   |		Short_Literal	0x2
004c 4805       |H   |		Short_Literal	0x5
004d 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
004e 029f 01db  |    |		Declare_Subprogram	INIT_01d8,For_Call
0050 00d9       |    |		Load_Top	At_Offset_1
0051 012a       | *  |		Execute	Any,Change_Utility
0052 0007       |    |		Action	Break_Optional
0053 00d8       |    |		Load_Top	At_Offset_0
0054 02a0       |    |		Declare_Subprogram	Null_Subprogram
0055 e20e       |    |		Load	0x1,0xe
0056 03c7       |    |		Complete_Type	Access,By_Defining
0057 e20e       |    |		Load	0x1,0xe
0058 0129       | )  |		Execute	Any,Make_Visible
0059 c210       |    |		Store	0x1,0x10
005a 4801       |H   |		Short_Literal	0x1
005b 4800       |H   |		Short_Literal	0x0
005c e20f       |    |		Load	0x1,0xf
005d 035b       | [  |		Declare_Type	Array,Constrained
005e 0336       | 6  |		Declare_Variable	Array,Visible
005f 00d8       |    |		Load_Top	At_Offset_0
0060 0335       | 5  |		Declare_Variable	Array,Duplicate
0061 00cd       |    |		Action	Spare6_Action
0062 00d9       |    |		Load_Top	At_Offset_1
0063 01d4       |    |		Execute	Vector,Structure_Write
0064 4800       |H   |		Short_Literal	0x0
0065 8214       |    |		Call	0x1,0x14
0066 0129       | )  |		Execute	Any,Make_Visible
0067 c211       |    |		Store	0x1,0x11
0068 4801       |H   |		Short_Literal	0x1
0069 8214       |    |		Call	0x1,0x14
006a 0129       | )  |		Execute	Any,Make_Visible
006b c212       |    |		Store	0x1,0x12
006c 00bf       |    |		Action	Accept_Activation
006d 4801       |H   |		Short_Literal	0x1
006e 4801       |H   |		Short_Literal	0x1
006f 00e2       |    |		Load_Encached	Integer_Cache
0070 4801       |H   |		Short_Literal	0x1
0071 4801       |H   |		Short_Literal	0x1
0072 00e1       |    |		Load_Encached	Boolean_Cache
0073 4801       |H   |		Short_Literal	0x1
0074 4800       |H   |		Short_Literal	0x0
0075 4801       |H   |		Short_Literal	0x1
0076 6061       |`a  |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x7fffffff}
0077 e20f       |    |		Load	0x1,0xf
0078 034e       | N  |		QQ_Declare_Type	Array,Constrained,Bounds_With_Object
0079 029f 01db  |    |		Declare_Subprogram	INIT_01d8,For_Call
007b 4803       |H   |		Short_Literal	0x3
007c 4800       |H   |		Short_Literal	0x0
007d 4800       |H   |		Short_Literal	0x0
007e e224       | $  |		Load	0x1,0x24
007f 0307       |    |		Complete_Type	Variant_Record,By_Defining
0080 e20e       |    |		Load	0x1,0xe
0081 03c4       |    |		Complete_Type	Access,By_Component_Completion
0082 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 029d 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call
009e 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 e222       | "  |		Load	0x1,0x22
00a1 e223       | #  |		Load	0x1,0x23
00a2 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00a3 4803       |H   |		Short_Literal	0x3
00a4 e221       | !  |		Load	0x1,0x21
00a5 020e       |    |		Execute	Module,Augment_Imports
00a6 e221       | !  |		Load	0x1,0x21
00a7 020f       |    |		Execute	Module,Activate
00a8			BODY_0008:
00a8 00bc       |    |		Action	Signal_Activated
00a9 00bb       |    |		Action	Signal_Completion
00aa 0000 0000  |    |		.BLANK	0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 4607       |F   |		Jump_Case	0x8
00b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00b5 7807       |x   |		Jump	0xbd								; case 0x1
00b6 780a       |x   |		Jump	0xc1								; case 0x2
00b7 780e       |x   |		Jump	0xc6								; case 0x3
00b8 7811       |x   |		Jump	0xca								; case 0x4
00b9 7812       |x   |		Jump	0xcc								; case 0x5
00ba 7813       |x   |		Jump	0xce								; case 0x6
00bb 7816       |x   |		Jump	0xd2								; case 0x7
00bc 4302       |C   |		.XXX[0x1]
00bd 00da       |    |		Load_Top	At_Offset_2
00be 0091 047f  |    |		Action	Push_String_Extended_Indexed,0x47f				; "INTEGER"
00c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db       |    |		Load_Top	At_Offset_3
00c2 00db       |    |		Load_Top	At_Offset_3
00c3 00e0       |    |		Load_Encached	Standard_Cache
00c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 00e0       |    |		Load_Encached	Standard_Cache
00c8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00c9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00cc 00db       |    |		Load_Top	At_Offset_3
00cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ce e20d       |    |		Load	0x1,0xd
00cf 00dc       |    |		Load_Top	At_Offset_4
00d0 0267       | g  |		Execute	Discrete,Predecessor
00d1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d2 e20d       |    |		Load	0x1,0xd
00d3 00dc       |    |		Load_Top	At_Offset_4
00d4 0268       | h  |		Execute	Discrete,Successor
00d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d6 0000 0000  |    |		.XXX[0x2]
00d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
00dc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00e0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00e4 0000 0000  |    |		.BLANK	0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4800       |H   |		Short_Literal	0x0
00ec 4800       |H   |		Short_Literal	0x0
00ed e224       | $  |		Load	0x1,0x24
00ee 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ef 00db       |    |		Load_Top	At_Offset_3
00f0 00d9       |    |		Load_Top	At_Offset_1
00f1 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00f2 e20e       |    |		Load	0x1,0xe
00f3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4801       |H   |		Short_Literal	0x1
00fc 4800       |H   |		Short_Literal	0x0
00fd e224       | $  |		Load	0x1,0x24
00fe 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00ff 00db       |    |		Load_Top	At_Offset_3
0100 00d9       |    |		Load_Top	At_Offset_1
0101 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0102 e20e       |    |		Load	0x1,0xe
0103 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0104 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4802       |H   |		Short_Literal	0x2
010c 00db       |    |		Load_Top	At_Offset_3
010d 01dc       |    |		Execute	Vector,Last
010e e224       | $  |		Load	0x1,0x24
010f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0110 00db       |    |		Load_Top	At_Offset_3
0111 00d9       |    |		Load_Top	At_Offset_1
0112 00d8       |    |		Load_Top	At_Offset_0
0113 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
0114 00da       |    |		Load_Top	At_Offset_2
0115 01da       |    |		Execute	Vector,Bounds
0116 00da       |    |		Load_Top	At_Offset_2
0117 01da       |    |		Execute	Vector,Bounds
0118 00da       |    |		Load_Top	At_Offset_2
0119 027f       |    |		Execute	Discrete,Equal
011a 7001       |p   |		Jump_Nonzero	0x11c
011b 08e0       |    |		Execute_Immediate	Raise,0xe0
011c 00cd       |    |		Action	Spare6_Action
011d 027f       |    |		Execute	Discrete,Equal
011e 7001       |p   |		Jump_Nonzero	0x120
011f 08e0       |    |		Execute_Immediate	Raise,0xe0
0120 00d2       |    |		Pop_Control	Pop_Count_2
0121 00d9       |    |		Load_Top	At_Offset_1
0122 2b05       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x5
0123 e20e       |    |		Load	0x1,0xe
0124 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0125 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0126 0000 0000  |    |		.XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c 0227       | '  |		Execute	Access,All_Reference
012d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
012e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012f 0000       |    |		.XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00da       |    |		Load_Top	At_Offset_2
0134 0227       | '  |		Execute	Access,All_Reference
0135 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0136 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0137 0000       |    |		.XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00db       |    |		Load_Top	At_Offset_3
013c 00db       |    |		Load_Top	At_Offset_3
013d 0227       | '  |		Execute	Access,All_Reference
013e 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
013f 01d7       |    |		Execute	Vector,Field_Read
0140 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0141 0000 0000  |    |		.BLANK	0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 4800       |H   |		Short_Literal	0x0
014c 4800       |H   |		Short_Literal	0x0
014d e224       | $  |		Load	0x1,0x24
014e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
014f 00db       |    |		Load_Top	At_Offset_3
0150 00d9       |    |		Load_Top	At_Offset_1
0151 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0152 e5fe       |    |		Load	0x2,-0x2
0153 0228       | (  |		Execute	Access,All_Write
0154 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4801       |H   |		Short_Literal	0x1
015c 4800       |H   |		Short_Literal	0x0
015d e224       | $  |		Load	0x1,0x24
015e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
015f 00db       |    |		Load_Top	At_Offset_3
0160 00d9       |    |		Load_Top	At_Offset_1
0161 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0162 e5fe       |    |		Load	0x2,-0x2
0163 0228       | (  |		Execute	Access,All_Write
0164 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0165 0000 0000  |    |		.XXX[0x3]
0167 0000       |    |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 4802       |H   |		Short_Literal	0x2
016c 00db       |    |		Load_Top	At_Offset_3
016d 01dc       |    |		Execute	Vector,Last
016e e224       | $  |		Load	0x1,0x24
016f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0170 00db       |    |		Load_Top	At_Offset_3
0171 00d9       |    |		Load_Top	At_Offset_1
0172 00d8       |    |		Load_Top	At_Offset_0
0173 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
0174 00da       |    |		Load_Top	At_Offset_2
0175 01da       |    |		Execute	Vector,Bounds
0176 00da       |    |		Load_Top	At_Offset_2
0177 01da       |    |		Execute	Vector,Bounds
0178 00da       |    |		Load_Top	At_Offset_2
0179 027f       |    |		Execute	Discrete,Equal
017a 7001       |p   |		Jump_Nonzero	0x17c
017b 08e0       |    |		Execute_Immediate	Raise,0xe0
017c 00cd       |    |		Action	Spare6_Action
017d 027f       |    |		Execute	Discrete,Equal
017e 7001       |p   |		Jump_Nonzero	0x180
017f 08e0       |    |		Execute_Immediate	Raise,0xe0
0180 00d2       |    |		Pop_Control	Pop_Count_2
0181 00d9       |    |		Load_Top	At_Offset_1
0182 2b05       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x5
0183 e5fe       |    |		Load	0x2,-0x2
0184 0228       | (  |		Execute	Access,All_Write
0185 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b e20e       |    |		Load	0x1,0xe
018c 00ca       |    |		Action	Exit_Nullary_Function
018d 0000 0000  |    |		.XXX[0x3]
018f 0000       |    |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 e20e       |    |		Load	0x1,0xe
0195 022f       | /  |		Execute	Access,Equal
0196 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0197 0000       |    |		.XXX[0x1]
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 e20e       |    |		Load	0x1,0xe
019c 003b       | ;  |		Store_Top	Access,At_Offset_3
019d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
019e 0000 0000  |    |		.XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 0227       | '  |		Execute	Access,All_Reference
01a5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01a6 e5fe       |    |		Load	0x2,-0x2
01a7 0227       | '  |		Execute	Access,All_Reference
01a8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01a9 027f       |    |		Execute	Discrete,Equal
01aa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
01b4 0227       | '  |		Execute	Access,All_Reference
01b5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01b6 4603       |F   |		Jump_Case	0x4
01b7 7808       |x   |		Jump	0x1c0								; case 0x0
01b8 780d       |x   |		Jump	0x1c6								; case 0x1
01b9 7812       |x   |		Jump	0x1cc								; case 0x2
01ba 7800       |x   |		Jump	0x1bb								; case 0x3
01bb 00db       |    |		Load_Top	At_Offset_3
01bc 0092 0483  |    |		Action	Push_String_Extended,0x483					; "undefined slot value"
01be 8002       |    |		Call	0x0,0x2
01bf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01c0 00db       |    |		Load_Top	At_Offset_3
01c1 00db       |    |		Load_Top	At_Offset_3
01c2 0227       | '  |		Execute	Access,All_Reference
01c3 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01c4 8003       |    |		Call	0x0,0x3
01c5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01c6 00db       |    |		Load_Top	At_Offset_3
01c7 00db       |    |		Load_Top	At_Offset_3
01c8 0227       | '  |		Execute	Access,All_Reference
01c9 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01ca 8004       |    |		Call	0x0,0x4
01cb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01cc 00db       |    |		Load_Top	At_Offset_3
01cd 00db       |    |		Load_Top	At_Offset_3
01ce 0227       | '  |		Execute	Access,All_Reference
01cf 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
01d0 8226       | &  |		Call	0x1,0x26
01d1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d2 0000 0000  |    |		.BLANK	0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			BODY_01d8:
01db			INIT_01d8:
01db			INIT_01d8:
01db 4609       |F   |		Jump_Case	0xa
01dc 7809       |x   |		Jump	0x1e6								; case 0x0
01dd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01de 7837       |x7  |		Jump	0x216								; case 0x2
01df 783a       |x:  |		Jump	0x21a								; case 0x3
01e0 7840       |x@  |		Jump	0x221								; case 0x4
01e1 784c       |xL  |		Jump	0x22e								; case 0x5
01e2 7863       |xc  |		Jump	0x246								; case 0x6
01e3 7870       |xp  |		Jump	0x254								; case 0x7
01e4 7889       |x   |		Jump	0x26e								; case 0x8
01e5 789e       |x   |		Jump	0x284								; case 0x9
01e6 00da       |    |		Load_Top	At_Offset_2
01e7 016c       | l  |		Execute	Variant_Record,Is_Constrained
01e8 700a       |p   |		Jump_Nonzero	0x1f3
01e9 00cf       |    |		Action	Mark_Auxiliary
01ea 4800       |H   |		Short_Literal	0x0
01eb 4800       |H   |		Short_Literal	0x0
01ec e5ff       |    |		Load	0x2,-0x1
01ed 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f0 c5ff       |    |		Store	0x2,-0x1
01f1 00ce       |    |		Action	Pop_Auxiliary
01f2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01f5 4603       |F   |		Jump_Case	0x4
01f6 7804       |x   |		Jump	0x1fb								; case 0x0
01f7 7807       |x   |		Jump	0x1ff								; case 0x1
01f8 780a       |x   |		Jump	0x203								; case 0x2
01f9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
01fa 4302       |C   |		.XXX[0x1]
01fb 4800       |H   |		Short_Literal	0x0
01fc 00db       |    |		Load_Top	At_Offset_3
01fd 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01fe 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01ff 4800       |H   |		Short_Literal	0x0
0200 00db       |    |		Load_Top	At_Offset_3
0201 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0202 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0203 e225       | %  |		Load	0x1,0x25
0204 00db       |    |		Load_Top	At_Offset_3
0205 00d8       |    |		Load_Top	At_Offset_0
0206 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
0207 00da       |    |		Load_Top	At_Offset_2
0208 01da       |    |		Execute	Vector,Bounds
0209 00da       |    |		Load_Top	At_Offset_2
020a 01da       |    |		Execute	Vector,Bounds
020b 00da       |    |		Load_Top	At_Offset_2
020c 027f       |    |		Execute	Discrete,Equal
020d 7001       |p   |		Jump_Nonzero	0x20f
020e 08e0       |    |		Execute_Immediate	Raise,0xe0
020f 00cd       |    |		Action	Spare6_Action
0210 027f       |    |		Execute	Discrete,Equal
0211 7001       |p   |		Jump_Nonzero	0x213
0212 08e0       |    |		Execute_Immediate	Raise,0xe0
0213 00d1       |    |		Pop_Control	Pop_Count_1
0214 2b05       |+   |		Execute	Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x5
0215 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0216 4802       |H   |		Short_Literal	0x2
0217 4805       |H   |		Short_Literal	0x5
0218 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0219 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
021a e5fc       |    |		Load	0x2,-0x4
021b e5fd       |    |		Load	0x2,-0x3
021c e5ff       |    |		Load	0x2,-0x1
021d 1c07       |    |		Execute_Immediate	Run_Utility,0x7
021e e5fe       |    |		Load	0x2,-0x2
021f 0306       |    |		Complete_Type	Variant_Record,By_Renaming
0220 4305       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x5
0221 4802       |H   |		Short_Literal	0x2
0222 4805       |H   |		Short_Literal	0x5
0223 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0224 e5fd       |    |		Load	0x2,-0x3
0225 e5fe       |    |		Load	0x2,-0x2
0226 e5fd       |    |		Load	0x2,-0x3
0227 e5fe       |    |		Load	0x2,-0x2
0228 e5ff       |    |		Load	0x2,-0x1
0229 1c06       |    |		Execute_Immediate	Run_Utility,0x6
022a e5ff       |    |		Load	0x2,-0x1
022b e402       |    |		Load	0x2,0x2
022c 0305       |    |		Complete_Type	Variant_Record,By_Constraining_Incomplete
022d 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
022e 4801       |H   |		Short_Literal	0x1
022f 00db       |    |		Load_Top	At_Offset_3
0230 0169       | i  |		Execute	Variant_Record,Read_Discriminant_Constraint
0231 4603       |F   |		Jump_Case	0x4
0232 7805       |x   |		Jump	0x238								; case 0x0
0233 7806       |x   |		Jump	0x23a								; case 0x1
0234 7807       |x   |		Jump	0x23c								; case 0x2
0235 7800       |x   |		Jump	0x236								; case 0x3
0236 4800       |H   |		Short_Literal	0x0
0237 780b       |x   |		Jump	0x243
0238 4800       |H   |		Short_Literal	0x0
0239 7809       |x   |		Jump	0x243
023a 4800       |H   |		Short_Literal	0x0
023b 7807       |x   |		Jump	0x243
023c 4801       |H   |		Short_Literal	0x1
023d 4802       |H   |		Short_Literal	0x2
023e e5ff       |    |		Load	0x2,-0x1
023f 0169       | i  |		Execute	Variant_Record,Read_Discriminant_Constraint
0240 e20f       |    |		Load	0x1,0xf
0241 035b       | [  |		Declare_Type	Array,Constrained
0242 4801       |H   |		Short_Literal	0x1
0243 e5ff       |    |		Load	0x2,-0x1
0244 0304       |    |		Complete_Type	Variant_Record,By_Completing_Constraint
0245 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0246 e5fd       |    |		Load	0x2,-0x3
0247 4603       |F   |		Jump_Case	0x4
0248 7805       |x   |		Jump	0x24e								; case 0x0
0249 7806       |x   |		Jump	0x250								; case 0x1
024a 7807       |x   |		Jump	0x252								; case 0x2
024b 7800       |x   |		Jump	0x24c								; case 0x3
024c 48ff       |H   |		Short_Literal	0xff
024d 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
024e 4801       |H   |		Short_Literal	0x1
024f 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0250 4802       |H   |		Short_Literal	0x2
0251 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0252 4803       |H   |		Short_Literal	0x3
0253 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0254 e5fd       |    |		Load	0x2,-0x3
0255 e5fe       |    |		Load	0x2,-0x2
0256 e5fd       |    |		Load	0x2,-0x3
0257 4603       |F   |		Jump_Case	0x4
0258 7806       |x   |		Jump	0x25f								; case 0x0
0259 7808       |x   |		Jump	0x262								; case 0x1
025a 780a       |x   |		Jump	0x265								; case 0x2
025b 7800       |x   |		Jump	0x25c								; case 0x3
025c 4800       |H   |		Short_Literal	0x0
025d 48ff       |H   |		Short_Literal	0xff
025e 780c       |x   |		Jump	0x26b
025f 4800       |H   |		Short_Literal	0x0
0260 4801       |H   |		Short_Literal	0x1
0261 7809       |x   |		Jump	0x26b
0262 4800       |H   |		Short_Literal	0x0
0263 4802       |H   |		Short_Literal	0x2
0264 7806       |x   |		Jump	0x26b
0265 4801       |H   |		Short_Literal	0x1
0266 e5fe       |    |		Load	0x2,-0x2
0267 e20f       |    |		Load	0x1,0xf
0268 035b       | [  |		Declare_Type	Array,Constrained
0269 4801       |H   |		Short_Literal	0x1
026a 4803       |H   |		Short_Literal	0x3
026b e5ff       |    |		Load	0x2,-0x1
026c 031b       |    |		Declare_Type	Variant_Record,Constrained
026d 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
026e e5fd       |    |		Load	0x2,-0x3
026f e5fe       |    |		Load	0x2,-0x2
0270 e5fd       |    |		Load	0x2,-0x3
0271 e5fe       |    |		Load	0x2,-0x2
0272 e5ff       |    |		Load	0x2,-0x1
0273 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0274 e5ff       |    |		Load	0x2,-0x1
0275 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0276 e5fd       |    |		Load	0x2,-0x3
0277 4603       |F   |		Jump_Case	0x4
0278 7809       |x   |		Jump	0x282								; case 0x0
0279 7808       |x   |		Jump	0x282								; case 0x1
027a 7802       |x   |		Jump	0x27d								; case 0x2
027b 7806       |x   |		Jump	0x282								; case 0x3
027c 7805       |x   |		.XXX[0x1]
027d 4801       |H   |		Short_Literal	0x1
027e e5fe       |    |		Load	0x2,-0x2
027f e20f       |    |		Load	0x1,0xf
0280 0334       | 4  |		Declare_Variable	Array,With_Constraint
0281 2f05       |/   |		Execute	Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x5
0282 016a       | j  |		QQ_execute	Variant_Record,XXX
0283 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0284 4800       |H   |		Short_Literal	0x0
0285 4800       |H   |		Short_Literal	0x0
0286 e5ff       |    |		Load	0x2,-0x1
0287 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0288 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0289 0000 0000  |    |		.BLANK	0000[0x7]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293       |    |		.CONST	0x0293								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0001       |    |		.CONST	0x0001								; Number of locals
0293			BODY_0290:
0293			INIT_0290:
0293 00cf       |    |		Action	Mark_Auxiliary
0294 00db       |    |		Load_Top	At_Offset_3
0295 01d9       |    |		Execute	Vector,Reverse_Bounds
0296 0263       | c  |		Execute	Discrete,Above_Bound
0297 7007       |p   |		Jump_Nonzero	0x29f
0298 e5fe       |    |		Load	0x2,-0x2
0299 00d9       |    |		Load_Top	At_Offset_1
029a e5ff       |    |		Load	0x2,-0x1
029b 01d7       |    |		Execute	Vector,Field_Read
029c 8220       |    |		Call	0x1,0x20
029d 00c8       |    |		Action	Pop_Auxiliary_Range
029e 3ff9       |?   |		Loop_Increasing	0x298
029f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02d0       |    |		.CONST	0x02d0								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0017       |    |		.CONST	0x0017								; Number of locals
02a3			INIT_02a0:
02a3 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
02a5 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
02a7 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
02a9 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
02ab 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
02ad 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
02af 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
02b1 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
02b3 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
02b5 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
02b7 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
02b9 00bf       |    |		Action	Accept_Activation
02ba 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
02bb 00c7       |    |		Action	Elaborate_Subprogram
02bc 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
02bd 00c7       |    |		Action	Elaborate_Subprogram
02be 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
02bf 00c7       |    |		Action	Elaborate_Subprogram
02c0 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
02c1 00c7       |    |		Action	Elaborate_Subprogram
02c2 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
02c3 00c7       |    |		Action	Elaborate_Subprogram
02c4 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
02c5 00c7       |    |		Action	Elaborate_Subprogram
02c6 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
02c7 00c7       |    |		Action	Elaborate_Subprogram
02c8 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
02c9 00c7       |    |		Action	Elaborate_Subprogram
02ca 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
02cb 00c7       |    |		Action	Elaborate_Subprogram
02cc 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
02cd 00c7       |    |		Action	Elaborate_Subprogram
02ce 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
02cf 00c7       |    |		Action	Elaborate_Subprogram
02d0			BODY_02a0:
02d0 00bc       |    |		Action	Signal_Activated
02d1 00bb       |    |		Action	Signal_Completion
02d2 0000 0000  |    |		.BLANK	0000[0x6]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db       |    |		.CONST	0x02db								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0001       |    |		.CONST	0x0001								; Number of locals
02db			BODY_02d8:
02db			INIT_02d8:
02db 00da       |    |		Load_Top	At_Offset_2
02dc 0227       | '  |		Execute	Access,All_Reference
02dd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02de e5fe       |    |		Load	0x2,-0x2
02df 0227       | '  |		Execute	Access,All_Reference
02e0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02e1 027f       |    |		Execute	Discrete,Equal
02e2 683e       |h>  |		Jump_Zero	0x321
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 0227       | '  |		Execute	Access,All_Reference
02e5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02e6 4603       |F   |		Jump_Case	0x4
02e7 7805       |x   |		Jump	0x2ed								; case 0x0
02e8 780c       |x   |		Jump	0x2f5								; case 0x1
02e9 7813       |x   |		Jump	0x2fd								; case 0x2
02ea 7800       |x   |		Jump	0x2eb								; case 0x3
02eb 0008       |    |		Action	Idle
02ec 7832       |x2  |		Jump	0x31f
02ed 00da       |    |		Load_Top	At_Offset_2
02ee 0227       | '  |		Execute	Access,All_Reference
02ef 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02f0 e5fe       |    |		Load	0x2,-0x2
02f1 0227       | '  |		Execute	Access,All_Reference
02f2 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02f3 027f       |    |		Execute	Discrete,Equal
02f4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f5 00da       |    |		Load_Top	At_Offset_2
02f6 0227       | '  |		Execute	Access,All_Reference
02f7 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02f8 e5fe       |    |		Load	0x2,-0x2
02f9 0227       | '  |		Execute	Access,All_Reference
02fa 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02fb 027f       |    |		Execute	Discrete,Equal
02fc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02fd 00da       |    |		Load_Top	At_Offset_2
02fe 0227       | '  |		Execute	Access,All_Reference
02ff 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
0300 01db       |    |		Execute	Vector,Length
0301 e5fe       |    |		Load	0x2,-0x2
0302 0227       | '  |		Execute	Access,All_Reference
0303 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
0304 01db       |    |		Execute	Vector,Length
0305 027f       |    |		Execute	Discrete,Equal
0306 6818       |h   |		Jump_Zero	0x31f
0307 00cf       |    |		Action	Mark_Auxiliary
0308 00db       |    |		Load_Top	At_Offset_3
0309 0227       | '  |		Execute	Access,All_Reference
030a 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
030b 01d9       |    |		Execute	Vector,Reverse_Bounds
030c 0263       | c  |		Execute	Discrete,Above_Bound
030d 7010       |p   |		Jump_Nonzero	0x31e
030e 00d8       |    |		Load_Top	At_Offset_0
030f e5fe       |    |		Load	0x2,-0x2
0310 0227       | '  |		Execute	Access,All_Reference
0311 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
0312 01d7       |    |		Execute	Vector,Field_Read
0313 00d9       |    |		Load_Top	At_Offset_1
0314 e5ff       |    |		Load	0x2,-0x1
0315 0227       | '  |		Execute	Access,All_Reference
0316 2705       |'   |		Execute	Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x5
0317 01d7       |    |		Execute	Vector,Field_Read
0318 820d       |    |		Call	0x1,0xd
0319 7002       |p   |		Jump_Nonzero	0x31c
031a 4800       |H   |		Short_Literal	0x0
031b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
031c 00c8       |    |		Action	Pop_Auxiliary_Range
031d 3ff0       |?   |		Loop_Increasing	0x30e
031e 00ce       |    |		Action	Pop_Auxiliary
031f 4801       |H   |		Short_Literal	0x1
0320 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0321 4800       |H   |		Short_Literal	0x0
0322 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0323 0000 0000  |    |		.BLANK	0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00da       |    |		Load_Top	At_Offset_2
032c 0227       | '  |		Execute	Access,All_Reference
032d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
032e e5fe       |    |		Load	0x2,-0x2
032f 0227       | '  |		Execute	Access,All_Reference
0330 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0331 027f       |    |		Execute	Discrete,Equal
0332 681a       |h   |		Jump_Zero	0x34d
0333 00da       |    |		Load_Top	At_Offset_2
0334 0227       | '  |		Execute	Access,All_Reference
0335 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0336 4603       |F   |		Jump_Case	0x4
0337 7805       |x   |		Jump	0x33d								; case 0x0
0338 780c       |x   |		Jump	0x345								; case 0x1
0339 7801       |x   |		Jump	0x33b								; case 0x2
033a 7800       |x   |		Jump	0x33b								; case 0x3
033b e001       |    |		Load	0x0,0x1
033c 0257       | W  |		Execute	Discrete,Raise
033d 00da       |    |		Load_Top	At_Offset_2
033e 0227       | '  |		Execute	Access,All_Reference
033f 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0340 e5fe       |    |		Load	0x2,-0x2
0341 0227       | '  |		Execute	Access,All_Reference
0342 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0343 027c       | |  |		Execute	Discrete,Less
0344 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0345 00da       |    |		Load_Top	At_Offset_2
0346 0227       | '  |		Execute	Access,All_Reference
0347 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0348 e5fe       |    |		Load	0x2,-0x2
0349 0227       | '  |		Execute	Access,All_Reference
034a 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
034b 027c       | |  |		Execute	Discrete,Less
034c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
034d e002       |    |		Load	0x0,0x2
034e 0257       | W  |		Execute	Discrete,Raise
034f 0000       |    |		.XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 00da       |    |		Load_Top	At_Offset_2
0354 0227       | '  |		Execute	Access,All_Reference
0355 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0356 e5fe       |    |		Load	0x2,-0x2
0357 0227       | '  |		Execute	Access,All_Reference
0358 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0359 027f       |    |		Execute	Discrete,Equal
035a 681a       |h   |		Jump_Zero	0x375
035b 00da       |    |		Load_Top	At_Offset_2
035c 0227       | '  |		Execute	Access,All_Reference
035d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
035e 4603       |F   |		Jump_Case	0x4
035f 7805       |x   |		Jump	0x365								; case 0x0
0360 780c       |x   |		Jump	0x36d								; case 0x1
0361 7801       |x   |		Jump	0x363								; case 0x2
0362 7800       |x   |		Jump	0x363								; case 0x3
0363 e001       |    |		Load	0x0,0x1
0364 0257       | W  |		Execute	Discrete,Raise
0365 00da       |    |		Load_Top	At_Offset_2
0366 0227       | '  |		Execute	Access,All_Reference
0367 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0368 e5fe       |    |		Load	0x2,-0x2
0369 0227       | '  |		Execute	Access,All_Reference
036a 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
036b 027a       | z  |		Execute	Discrete,Less_Equal
036c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
036d 00da       |    |		Load_Top	At_Offset_2
036e 0227       | '  |		Execute	Access,All_Reference
036f 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0370 e5fe       |    |		Load	0x2,-0x2
0371 0227       | '  |		Execute	Access,All_Reference
0372 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0373 027a       | z  |		Execute	Discrete,Less_Equal
0374 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0375 e002       |    |		Load	0x0,0x2
0376 0257       | W  |		Execute	Discrete,Raise
0377 0000       |    |		.XXX[0x1]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b 00da       |    |		Load_Top	At_Offset_2
037c 0227       | '  |		Execute	Access,All_Reference
037d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
037e e5fe       |    |		Load	0x2,-0x2
037f 0227       | '  |		Execute	Access,All_Reference
0380 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0381 027f       |    |		Execute	Discrete,Equal
0382 681a       |h   |		Jump_Zero	0x39d
0383 00da       |    |		Load_Top	At_Offset_2
0384 0227       | '  |		Execute	Access,All_Reference
0385 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0386 4603       |F   |		Jump_Case	0x4
0387 7805       |x   |		Jump	0x38d								; case 0x0
0388 780c       |x   |		Jump	0x395								; case 0x1
0389 7801       |x   |		Jump	0x38b								; case 0x2
038a 7800       |x   |		Jump	0x38b								; case 0x3
038b e001       |    |		Load	0x0,0x1
038c 0257       | W  |		Execute	Discrete,Raise
038d 00da       |    |		Load_Top	At_Offset_2
038e 0227       | '  |		Execute	Access,All_Reference
038f 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0390 e5fe       |    |		Load	0x2,-0x2
0391 0227       | '  |		Execute	Access,All_Reference
0392 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0393 027d       | }  |		Execute	Discrete,Greater
0394 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0395 00da       |    |		Load_Top	At_Offset_2
0396 0227       | '  |		Execute	Access,All_Reference
0397 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0398 e5fe       |    |		Load	0x2,-0x2
0399 0227       | '  |		Execute	Access,All_Reference
039a 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
039b 027d       | }  |		Execute	Discrete,Greater
039c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
039d e002       |    |		Load	0x0,0x2
039e 0257       | W  |		Execute	Discrete,Raise
039f 0000       |    |		.XXX[0x1]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 00da       |    |		Load_Top	At_Offset_2
03a4 0227       | '  |		Execute	Access,All_Reference
03a5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03a6 e5fe       |    |		Load	0x2,-0x2
03a7 0227       | '  |		Execute	Access,All_Reference
03a8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03a9 027f       |    |		Execute	Discrete,Equal
03aa 681a       |h   |		Jump_Zero	0x3c5
03ab 00da       |    |		Load_Top	At_Offset_2
03ac 0227       | '  |		Execute	Access,All_Reference
03ad 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03ae 4603       |F   |		Jump_Case	0x4
03af 7805       |x   |		Jump	0x3b5								; case 0x0
03b0 780c       |x   |		Jump	0x3bd								; case 0x1
03b1 7801       |x   |		Jump	0x3b3								; case 0x2
03b2 7800       |x   |		Jump	0x3b3								; case 0x3
03b3 e001       |    |		Load	0x0,0x1
03b4 0257       | W  |		Execute	Discrete,Raise
03b5 00da       |    |		Load_Top	At_Offset_2
03b6 0227       | '  |		Execute	Access,All_Reference
03b7 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03b8 e5fe       |    |		Load	0x2,-0x2
03b9 0227       | '  |		Execute	Access,All_Reference
03ba 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03bb 027b       | {  |		Execute	Discrete,Greater_Equal
03bc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03bd 00da       |    |		Load_Top	At_Offset_2
03be 0227       | '  |		Execute	Access,All_Reference
03bf 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03c0 e5fe       |    |		Load	0x2,-0x2
03c1 0227       | '  |		Execute	Access,All_Reference
03c2 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03c3 027b       | {  |		Execute	Discrete,Greater_Equal
03c4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03c5 e002       |    |		Load	0x0,0x2
03c6 0257       | W  |		Execute	Discrete,Raise
03c7 0000       |    |		.XXX[0x1]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 0227       | '  |		Execute	Access,All_Reference
03cd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03ce e5fe       |    |		Load	0x2,-0x2
03cf 0227       | '  |		Execute	Access,All_Reference
03d0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03d1 027f       |    |		Execute	Discrete,Equal
03d2 6814       |h   |		Jump_Zero	0x3e7
03d3 00da       |    |		Load_Top	At_Offset_2
03d4 0227       | '  |		Execute	Access,All_Reference
03d5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03d6 6802       |h   |		Jump_Zero	0x3d9
03d7 e001       |    |		Load	0x0,0x1
03d8 0257       | W  |		Execute	Discrete,Raise
03d9 00da       |    |		Load_Top	At_Offset_2
03da 0227       | '  |		Execute	Access,All_Reference
03db 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03dc e5fe       |    |		Load	0x2,-0x2
03dd 0227       | '  |		Execute	Access,All_Reference
03de 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03df 0273       | s  |		Execute	Discrete,Plus
03e0 00d8       |    |		Load_Top	At_Offset_0
03e1 00e2       |    |		Load_Encached	Integer_Cache
03e2 0260       | `  |		Execute	Discrete,In_Type
03e3 7001       |p   |		Jump_Nonzero	0x3e5
03e4 0801       |    |		Execute_Immediate	Raise,0x1
03e5 8003       |    |		Call	0x0,0x3
03e6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e7 e002       |    |		Load	0x0,0x2
03e8 0257       | W  |		Execute	Discrete,Raise
03e9 0000 0000  |    |		.BLANK	0000[0x7]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 0227       | '  |		Execute	Access,All_Reference
03f5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03f6 e5fe       |    |		Load	0x2,-0x2
03f7 0227       | '  |		Execute	Access,All_Reference
03f8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03f9 027f       |    |		Execute	Discrete,Equal
03fa 6814       |h   |		Jump_Zero	0x40f
03fb 00da       |    |		Load_Top	At_Offset_2
03fc 0227       | '  |		Execute	Access,All_Reference
03fd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03fe 6802       |h   |		Jump_Zero	0x401
03ff e001       |    |		Load	0x0,0x1
0400 0257       | W  |		Execute	Discrete,Raise
0401 00da       |    |		Load_Top	At_Offset_2
0402 0227       | '  |		Execute	Access,All_Reference
0403 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0404 e5fe       |    |		Load	0x2,-0x2
0405 0227       | '  |		Execute	Access,All_Reference
0406 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0407 0272       | r  |		Execute	Discrete,Minus
0408 00d8       |    |		Load_Top	At_Offset_0
0409 00e2       |    |		Load_Encached	Integer_Cache
040a 0260       | `  |		Execute	Discrete,In_Type
040b 7001       |p   |		Jump_Nonzero	0x40d
040c 0801       |    |		Execute_Immediate	Raise,0x1
040d 8003       |    |		Call	0x0,0x3
040e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
040f e002       |    |		Load	0x0,0x2
0410 0257       | W  |		Execute	Discrete,Raise
0411 0000 0000  |    |		.BLANK	0000[0x7]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 00da       |    |		Load_Top	At_Offset_2
041c 0227       | '  |		Execute	Access,All_Reference
041d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
041e e5fe       |    |		Load	0x2,-0x2
041f 0227       | '  |		Execute	Access,All_Reference
0420 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0421 027f       |    |		Execute	Discrete,Equal
0422 6814       |h   |		Jump_Zero	0x437
0423 00da       |    |		Load_Top	At_Offset_2
0424 0227       | '  |		Execute	Access,All_Reference
0425 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0426 6802       |h   |		Jump_Zero	0x429
0427 e001       |    |		Load	0x0,0x1
0428 0257       | W  |		Execute	Discrete,Raise
0429 00da       |    |		Load_Top	At_Offset_2
042a 0227       | '  |		Execute	Access,All_Reference
042b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
042c e5fe       |    |		Load	0x2,-0x2
042d 0227       | '  |		Execute	Access,All_Reference
042e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
042f 0271       | q  |		Execute	Discrete,Times
0430 00d8       |    |		Load_Top	At_Offset_0
0431 00e2       |    |		Load_Encached	Integer_Cache
0432 0260       | `  |		Execute	Discrete,In_Type
0433 7001       |p   |		Jump_Nonzero	0x435
0434 0801       |    |		Execute_Immediate	Raise,0x1
0435 8003       |    |		Call	0x0,0x3
0436 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0437 e002       |    |		Load	0x0,0x2
0438 0257       | W  |		Execute	Discrete,Raise
0439 0000 0000  |    |		.BLANK	0000[0x7]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 00da       |    |		Load_Top	At_Offset_2
0444 0227       | '  |		Execute	Access,All_Reference
0445 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0446 e5fe       |    |		Load	0x2,-0x2
0447 0227       | '  |		Execute	Access,All_Reference
0448 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0449 027f       |    |		Execute	Discrete,Equal
044a 680f       |h   |		Jump_Zero	0x45a
044b 00da       |    |		Load_Top	At_Offset_2
044c 0227       | '  |		Execute	Access,All_Reference
044d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
044e 6802       |h   |		Jump_Zero	0x451
044f e001       |    |		Load	0x0,0x1
0450 0257       | W  |		Execute	Discrete,Raise
0451 00da       |    |		Load_Top	At_Offset_2
0452 0227       | '  |		Execute	Access,All_Reference
0453 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0454 e5fe       |    |		Load	0x2,-0x2
0455 0227       | '  |		Execute	Access,All_Reference
0456 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0457 0270       | p  |		Execute	Discrete,Divide
0458 8003       |    |		Call	0x0,0x3
0459 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
045a e002       |    |		Load	0x0,0x2
045b 0257       | W  |		Execute	Discrete,Raise
045c 0000 0000  |    |		.BLANK	0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 00da       |    |		Load_Top	At_Offset_2
0464 0227       | '  |		Execute	Access,All_Reference
0465 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0466 6802       |h   |		Jump_Zero	0x469
0467 e001       |    |		Load	0x0,0x1
0468 0257       | W  |		Execute	Discrete,Raise
0469 00da       |    |		Load_Top	At_Offset_2
046a 0227       | '  |		Execute	Access,All_Reference
046b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
046c 0275       | u  |		Execute	Discrete,Unary_Minus
046d 8003       |    |		Call	0x0,0x3
046e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
046f 0000       |    |		.XXX[0x1]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 00da       |    |		Load_Top	At_Offset_2
0474 0227       | '  |		Execute	Access,All_Reference
0475 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0476 6802       |h   |		Jump_Zero	0x479
0477 e001       |    |		Load	0x0,0x1
0478 0257       | W  |		Execute	Discrete,Raise
0479 00da       |    |		Load_Top	At_Offset_2
047a 0227       | '  |		Execute	Access,All_Reference
047b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
047c 0274       | t  |		Execute	Discrete,Absolute_Value
047d 8003       |    |		Call	0x0,0x3
047e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047f ; --------------------------------------------------------------------------------------
047f ; STRING TABLE
047f ; --------------------------------------------------------------------------------------
047f 000c       |    |		.STRTAB	0x000c->0x0485							; "INTEGER"
0480 0011       |    |		.STRTAB	0x0011->0x0488							; "BOOLEAN"
0481 0016       |    |		.STRTAB	0x0016->0x048c							; "COLLECTION"
0482 001e       |    |		.STRTAB	0x001e->0x0491							; "UNDEFINED"
0483 0025       | %  |		.STRTAB	0x0025->0x0495							; "undefined slot value"
0484 0037       | 7  |		.STREND 0x0037->0x049f
0485 494e 5445  |INTE|		.STRTAB_STRINGS
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug Table
04a0 ; --------------------------------------------------------------------------------------
04a0 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0x95de,0x0000,0x0001,0x0020
04a6 000b 0526  |   &|		.DBG4T	0x000b,0x0526,0x8000,0x0000
04aa 006d 0544  | m D|		.DBG4T	0x006d,0x0544,0x8000,0x0000
04ae 00b3 0000  |    |		.DBG4T	0x00b3,0x0000,0x0005,0x0000
04b2 00eb 0557  |   W|		.DBG4T	0x00eb,0x0557,0x0002,0x0000
04b6 00fb 055a  |   Z|		.DBG4T	0x00fb,0x055a,0x0002,0x0000
04ba 010b 055d  |   ]|		.DBG4T	0x010b,0x055d,0x0002,0x0000
04be 012b 0560  | + `|		.DBG4T	0x012b,0x0560,0x0002,0x0000
04c2 0133 0563  | 3 c|		.DBG4T	0x0133,0x0563,0x0002,0x0000
04c6 013b 0566  | ; f|		.DBG4T	0x013b,0x0566,0x0002,0x0000
04ca 014b 0569  | K i|		.DBG4T	0x014b,0x0569,0x0001,0x0000
04ce 015b 056c  | [ l|		.DBG4T	0x015b,0x056c,0x0001,0x0000
04d2 016b 056f  | k o|		.DBG4T	0x016b,0x056f,0x0001,0x0000
04d6 018b 0572  |   r|		.DBG4T	0x018b,0x0572,0x0002,0x0000
04da 0193 0575  |   u|		.DBG4T	0x0193,0x0575,0x0002,0x0000
04de 019b 0578  |   x|		.DBG4T	0x019b,0x0578,0x0001,0x0000
04e2 01a3 057b  |   {|		.DBG4T	0x01a3,0x057b,0x0002,0x0000
04e6 01b3 057e  |   ~|		.DBG4T	0x01b3,0x057e,0x0001,0x4000
04ea 01db 0000  |    |		.DBG4T	0x01db,0x0000,0x0005,0x0000
04ee 0293 058a  |    |		.DBG4T	0x0293,0x058a,0x0001,0x0000
04f2 02a3 058e  |    |		.DBG4T	0x02a3,0x058e,0x0000,0x0000
04f6 02ba 059b  |    |		.DBG4T	0x02ba,0x059b,0x0000,0x0000
04fa 02db 05a8  |    |		.DBG4T	0x02db,0x05a8,0x0002,0x4000
04fe 032b 05c0  | +  |		.DBG4T	0x032b,0x05c0,0x0002,0x4000
0502 0353 05ce  | S  |		.DBG4T	0x0353,0x05ce,0x0002,0x4000
0506 037b 05dc  | {  |		.DBG4T	0x037b,0x05dc,0x0002,0x4000
050a 03a3 05ea  |    |		.DBG4T	0x03a3,0x05ea,0x0002,0x4000
050e 03cb 05f8  |    |		.DBG4T	0x03cb,0x05f8,0x0002,0x4000
0512 03f3 0604  |    |		.DBG4T	0x03f3,0x0604,0x0002,0x4000
0516 041b 0610  |    |		.DBG4T	0x041b,0x0610,0x0002,0x4000
051a 0443 061c  | C  |		.DBG4T	0x0443,0x061c,0x0002,0x4000
051e 0463 0628  | c (|		.DBG4T	0x0463,0x0628,0x0002,0x4000
0522 0473 0630  | s 0|		.DBG4T	0x0473,0x0630,0x0002,0x4000
0526 ; --------------------------------------------------------------------------------------
0526 ; Debug chain
0526 ; --------------------------------------------------------------------------------------
0526 001c 0000  |    |		.DBGLEN	0x001c,0x0000
0528 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0018,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x003d,0x0042,0x0047,0x0053,0x0057,0x005a,0x0064,0x0068
0544 ; --------------------------------------------------------------------------------------
0544 ; Debug chain
0544 ; --------------------------------------------------------------------------------------
0544 0011 0000  |    |		.DBGLEN	0x0011,0x0000
0546 006d 0082  | m  |		.DBGLNO	0x006d,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0
0557 ; --------------------------------------------------------------------------------------
0557 ; Debug chain
0557 ; --------------------------------------------------------------------------------------
0557 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0559 00eb       |    |		.DBGLNO	0x00eb
055a ; --------------------------------------------------------------------------------------
055a ; Debug chain
055a ; --------------------------------------------------------------------------------------
055a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
055c 00fb       |    |		.DBGLNO	0x00fb
055d ; --------------------------------------------------------------------------------------
055d ; Debug chain
055d ; --------------------------------------------------------------------------------------
055d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
055f 010b       |    |		.DBGLNO	0x010b
0560 ; --------------------------------------------------------------------------------------
0560 ; Debug chain
0560 ; --------------------------------------------------------------------------------------
0560 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0562 012b       | +  |		.DBGLNO	0x012b
0563 ; --------------------------------------------------------------------------------------
0563 ; Debug chain
0563 ; --------------------------------------------------------------------------------------
0563 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0565 0133       | 3  |		.DBGLNO	0x0133
0566 ; --------------------------------------------------------------------------------------
0566 ; Debug chain
0566 ; --------------------------------------------------------------------------------------
0566 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0568 013b       | ;  |		.DBGLNO	0x013b
0569 ; --------------------------------------------------------------------------------------
0569 ; Debug chain
0569 ; --------------------------------------------------------------------------------------
0569 0000 0001  |    |		.DBGLEN	0x0000,0x0001
056b 014b       | K  |		.DBGLNO	0x014b
056c ; --------------------------------------------------------------------------------------
056c ; Debug chain
056c ; --------------------------------------------------------------------------------------
056c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
056e 015b       | [  |		.DBGLNO	0x015b
056f ; --------------------------------------------------------------------------------------
056f ; Debug chain
056f ; --------------------------------------------------------------------------------------
056f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0571 016b       | k  |		.DBGLNO	0x016b
0572 ; --------------------------------------------------------------------------------------
0572 ; Debug chain
0572 ; --------------------------------------------------------------------------------------
0572 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0574 018b       |    |		.DBGLNO	0x018b
0575 ; --------------------------------------------------------------------------------------
0575 ; Debug chain
0575 ; --------------------------------------------------------------------------------------
0575 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0577 0193       |    |		.DBGLNO	0x0193
0578 ; --------------------------------------------------------------------------------------
0578 ; Debug chain
0578 ; --------------------------------------------------------------------------------------
0578 0000 0001  |    |		.DBGLEN	0x0000,0x0001
057a 019b       |    |		.DBGLNO	0x019b
057b ; --------------------------------------------------------------------------------------
057b ; Debug chain
057b ; --------------------------------------------------------------------------------------
057b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
057d 01a3       |    |		.DBGLNO	0x01a3
057e ; --------------------------------------------------------------------------------------
057e ; Debug chain
057e ; --------------------------------------------------------------------------------------
057e 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0580 01b3 01bb  |    |		.DBGLNO	0x01b3,0x01bb,0x01c0,0x01c6,0x01cc
0585 0001 0005  |    |		.XXX[0x5]
0587 0002 0003  |    |
0589 0004       |    |
058a ; --------------------------------------------------------------------------------------
058a ; Debug chain
058a ; --------------------------------------------------------------------------------------
058a 0000 0002  |    |		.DBGLEN	0x0000,0x0002
058c 0294 0298  |    |		.DBGLNO	0x0294,0x0298
058e ; --------------------------------------------------------------------------------------
058e ; Debug chain
058e ; --------------------------------------------------------------------------------------
058e 000b 0000  |    |		.DBGLEN	0x000b,0x0000
0590 02a3 02a5  |    |		.DBGLNO	0x02a3,0x02a5,0x02a7,0x02a9,0x02ab,0x02ad,0x02af,0x02b1,0x02b3,0x02b5,0x02b7
059b ; --------------------------------------------------------------------------------------
059b ; Debug chain
059b ; --------------------------------------------------------------------------------------
059b 000b 0000  |    |		.DBGLEN	0x000b,0x0000
059d 02ba 02bc  |    |		.DBGLNO	0x02ba,0x02bc,0x02be,0x02c0,0x02c2,0x02c4,0x02c6,0x02c8,0x02ca,0x02cc,0x02ce
05a8 ; --------------------------------------------------------------------------------------
05a8 ; Debug chain
05a8 ; --------------------------------------------------------------------------------------
05a8 0000 000b  |    |		.DBGLEN	0x0000,0x000b
05aa 02db 02e3  |    |		.DBGLNO	0x02db,0x02e3,0x02eb,0x02ed,0x02f5,0x02fd,0x0308,0x030e,0x031a,0x031f,0x0321
05b5 0001 0002  |    |		.XXX[0xb]
05b7 0009 0003  |    |
05b9 0004 0005  |    |
05bb 0006 0007  |    |
05bd 0008 000a  |    |
05bf 000b       |    |
05c0 ; --------------------------------------------------------------------------------------
05c0 ; Debug chain
05c0 ; --------------------------------------------------------------------------------------
05c0 0000 0006  |    |		.DBGLEN	0x0000,0x0006
05c2 032b 0333  | + 3|		.DBGLNO	0x032b,0x0333,0x033b,0x033d,0x0345,0x034d
05c8 0001 0002  |    |		.XXX[0x6]
05ca 0005 0003  |    |
05cc 0004 0006  |    |
05ce ; --------------------------------------------------------------------------------------
05ce ; Debug chain
05ce ; --------------------------------------------------------------------------------------
05ce 0000 0006  |    |		.DBGLEN	0x0000,0x0006
05d0 0353 035b  | S [|		.DBGLNO	0x0353,0x035b,0x0363,0x0365,0x036d,0x0375
05d6 0001 0002  |    |		.XXX[0x6]
05d8 0005 0003  |    |
05da 0004 0006  |    |
05dc ; --------------------------------------------------------------------------------------
05dc ; Debug chain
05dc ; --------------------------------------------------------------------------------------
05dc 0000 0006  |    |		.DBGLEN	0x0000,0x0006
05de 037b 0383  | {  |		.DBGLNO	0x037b,0x0383,0x038b,0x038d,0x0395,0x039d
05e4 0001 0002  |    |		.XXX[0x6]
05e6 0005 0003  |    |
05e8 0004 0006  |    |
05ea ; --------------------------------------------------------------------------------------
05ea ; Debug chain
05ea ; --------------------------------------------------------------------------------------
05ea 0000 0006  |    |		.DBGLEN	0x0000,0x0006
05ec 03a3 03ab  |    |		.DBGLNO	0x03a3,0x03ab,0x03b3,0x03b5,0x03bd,0x03c5
05f2 0001 0002  |    |		.XXX[0x6]
05f4 0005 0003  |    |
05f6 0004 0006  |    |
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug chain
05f8 ; --------------------------------------------------------------------------------------
05f8 0000 0005  |    |		.DBGLEN	0x0000,0x0005
05fa 03cb 03d3  |    |		.DBGLNO	0x03cb,0x03d3,0x03d7,0x03d9,0x03e7
05ff 0001 0002  |    |		.XXX[0x5]
0601 0004 0003  |    |
0603 0005       |    |
0604 ; --------------------------------------------------------------------------------------
0604 ; Debug chain
0604 ; --------------------------------------------------------------------------------------
0604 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0606 03f3 03fb  |    |		.DBGLNO	0x03f3,0x03fb,0x03ff,0x0401,0x040f
060b 0001 0002  |    |		.XXX[0x5]
060d 0004 0003  |    |
060f 0005       |    |
0610 ; --------------------------------------------------------------------------------------
0610 ; Debug chain
0610 ; --------------------------------------------------------------------------------------
0610 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0612 041b 0423  |   #|		.DBGLNO	0x041b,0x0423,0x0427,0x0429,0x0437
0617 0001 0002  |    |		.XXX[0x5]
0619 0004 0003  |    |
061b 0005       |    |
061c ; --------------------------------------------------------------------------------------
061c ; Debug chain
061c ; --------------------------------------------------------------------------------------
061c 0000 0005  |    |		.DBGLEN	0x0000,0x0005
061e 0443 044b  | C K|		.DBGLNO	0x0443,0x044b,0x044f,0x0451,0x045a
0623 0001 0002  |    |		.XXX[0x5]
0625 0004 0003  |    |
0627 0005       |    |
0628 ; --------------------------------------------------------------------------------------
0628 ; Debug chain
0628 ; --------------------------------------------------------------------------------------
0628 0000 0003  |    |		.DBGLEN	0x0000,0x0003
062a 0463 0467  | c g|		.DBGLNO	0x0463,0x0467,0x0469
062d 0001 0003  |    |		.XXX[0x3]
062f 0002       |    |
0630 ; --------------------------------------------------------------------------------------
0630 ; Debug chain
0630 ; --------------------------------------------------------------------------------------
0630 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0632 0473 0477  | s w|		.DBGLNO	0x0473,0x0477,0x0479
0635 0001 0003  |    |		.XXX[0x3]
0637 0002       |    |
0638 0000 0000  |    |		.BLANK	0000[0x1c8]