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

⟦492fbb921⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_d218d6

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 0728       | (  |		.CONST	0x0728								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0144       | D  |		.CONST	0x0144								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0049       | I  |		.CONST	0x0049								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4807       |H   |		Short_Literal	0x7
000d 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 00d8       |    |		Load_Top	At_Offset_0
0011 4808       |H   |		Short_Literal	0x8
0012 4800       |H   |		Short_Literal	0x0
0013 4801       |H   |		Short_Literal	0x1
0014 4809       |H   |		Short_Literal	0x9
0015 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0016 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
0018 00d9       |    |		Load_Top	At_Offset_1
0019 012a       | *  |		Execute	Any,Change_Utility
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 00c4       |    |		Action	Make_Default
0052 00c4       |    |		Action	Make_Default
0053 00c4       |    |		Action	Make_Default
0054 00c4       |    |		Action	Make_Default
0055 00c4       |    |		Action	Make_Default
0056 00d1       |    |		Pop_Control	Pop_Count_1
0057 00c4       |    |		Action	Make_Default
0058 00d1       |    |		Pop_Control	Pop_Count_1
0059 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
005b c20f       |    |		Store	0x1,0xf
005c 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
005e c210       |    |		Store	0x1,0x10
005f 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0061 c211       |    |		Store	0x1,0x11
0062 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0064 c212       |    |		Store	0x1,0x12
0065 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0067 c213       |    |		Store	0x1,0x13
0068 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
006a c214       |    |		Store	0x1,0x14
006b 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
006d c215       |    |		Store	0x1,0x15
006e 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0070 c216       |    |		Store	0x1,0x16
0071 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0073 c217       |    |		Store	0x1,0x17
0074 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0076 c218       |    |		Store	0x1,0x18
0077 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0079 c219       |    |		Store	0x1,0x19
007a 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
007c c21a       |    |		Store	0x1,0x1a
007d 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
007f c227       | '  |		Store	0x1,0x27
0080 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0082 c228       | (  |		Store	0x1,0x28
0083 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
0085 c229       | )  |		Store	0x1,0x29
0086 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0088 c22a       | *  |		Store	0x1,0x2a
0089 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
008b c22b       | +  |		Store	0x1,0x2b
008c 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
008e c22c       | ,  |		Store	0x1,0x2c
008f 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0091 c224       | $  |		Store	0x1,0x24
0092 4800       |H   |		Short_Literal	0x0
0093 0093 05c3  |    |		push_full_address	INIT_05c0
0095 02a0       |    |		Declare_Subprogram	Null_Subprogram
0096 038f       |    |		Declare_Type	Package,Defined,Visible
0097 0386       |    |		Declare_Variable	Package,Visible
0098 c221       | !  |		Store	0x1,0x21
0099 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
009b c222       | "  |		Store	0x1,0x22
009c 4804       |H   |		Short_Literal	0x4
009d 0093 041b  |    |		push_full_address	INIT_0418
009f 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a0 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
00a1 c223       | #  |		Store	0x1,0x23
00a2 e002       |    |		Load	0x0,0x2
00a3 0129       | )  |		Execute	Any,Make_Visible
00a4 c234       | 4  |		Store	0x1,0x34
00a5 e003       |    |		Load	0x0,0x3
00a6 0129       | )  |		Execute	Any,Make_Visible
00a7 c235       | 5  |		Store	0x1,0x35
00a8 e004       |    |		Load	0x0,0x4
00a9 0129       | )  |		Execute	Any,Make_Visible
00aa c236       | 6  |		Store	0x1,0x36
00ab e005       |    |		Load	0x0,0x5
00ac 0129       | )  |		Execute	Any,Make_Visible
00ad c237       | 7  |		Store	0x1,0x37
00ae e006       |    |		Load	0x0,0x6
00af 0129       | )  |		Execute	Any,Make_Visible
00b0 c238       | 8  |		Store	0x1,0x38
00b1 e007       |    |		Load	0x0,0x7
00b2 0129       | )  |		Execute	Any,Make_Visible
00b3 c239       | 9  |		Store	0x1,0x39
00b4 e008       |    |		Load	0x0,0x8
00b5 0129       | )  |		Execute	Any,Make_Visible
00b6 c23a       | :  |		Store	0x1,0x3a
00b7 e009       |    |		Load	0x0,0x9
00b8 0129       | )  |		Execute	Any,Make_Visible
00b9 c23b       | ;  |		Store	0x1,0x3b
00ba e00a       |    |		Load	0x0,0xa
00bb 0129       | )  |		Execute	Any,Make_Visible
00bc c23c       | <  |		Store	0x1,0x3c
00bd e00b       |    |		Load	0x0,0xb
00be 0129       | )  |		Execute	Any,Make_Visible
00bf c23d       | =  |		Store	0x1,0x3d
00c0 e00c       |    |		Load	0x0,0xc
00c1 0129       | )  |		Execute	Any,Make_Visible
00c2 c23e       | >  |		Store	0x1,0x3e
00c3 e00d       |    |		Load	0x0,0xd
00c4 0129       | )  |		Execute	Any,Make_Visible
00c5 c23f       | ?  |		Store	0x1,0x3f
00c6 e00e       |    |		Load	0x0,0xe
00c7 0129       | )  |		Execute	Any,Make_Visible
00c8 c240       | @  |		Store	0x1,0x40
00c9 e00f       |    |		Load	0x0,0xf
00ca 0129       | )  |		Execute	Any,Make_Visible
00cb c241       | A  |		Store	0x1,0x41
00cc e010       |    |		Load	0x0,0x10
00cd 0129       | )  |		Execute	Any,Make_Visible
00ce c242       | B  |		Store	0x1,0x42
00cf e011       |    |		Load	0x0,0x11
00d0 0129       | )  |		Execute	Any,Make_Visible
00d1 c243       | C  |		Store	0x1,0x43
00d2 e012       |    |		Load	0x0,0x12
00d3 0129       | )  |		Execute	Any,Make_Visible
00d4 c244       | D  |		Store	0x1,0x44
00d5 e013       |    |		Load	0x0,0x13
00d6 0129       | )  |		Execute	Any,Make_Visible
00d7 c245       | E  |		Store	0x1,0x45
00d8 e014       |    |		Load	0x0,0x14
00d9 0129       | )  |		Execute	Any,Make_Visible
00da c246       | F  |		Store	0x1,0x46
00db e015       |    |		Load	0x0,0x15
00dc 0129       | )  |		Execute	Any,Make_Visible
00dd c247       | G  |		Store	0x1,0x47
00de e016       |    |		Load	0x0,0x16
00df 0129       | )  |		Execute	Any,Make_Visible
00e0 c248       | H  |		Store	0x1,0x48
00e1 e017       |    |		Load	0x0,0x17
00e2 0129       | )  |		Execute	Any,Make_Visible
00e3 c249       | I  |		Store	0x1,0x49
00e4 4801       |H   |		Short_Literal	0x1
00e5 00e2       |    |		Load_Encached	Integer_Cache
00e6 4801       |H   |		Short_Literal	0x1
00e7 00e6       |    |		Load_Encached	Float_Cache
00e8 4801       |H   |		Short_Literal	0x1
00e9 00e1       |    |		Load_Encached	Boolean_Cache
00ea 4801       |H   |		Short_Literal	0x1
00eb 00e8       |    |		Load_Encached	Character_Cache
00ec 4801       |H   |		Short_Literal	0x1
00ed e018       |    |		Load	0x0,0x18
00ee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ef 4801       |H   |		Short_Literal	0x1
00f0 e001       |    |		Load	0x0,0x1
00f1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f2 4801       |H   |		Short_Literal	0x1
00f3 00e2       |    |		Load_Encached	Integer_Cache
00f4 4801       |H   |		Short_Literal	0x1
00f5 e018       |    |		Load	0x0,0x18
00f6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f7 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
00f9 4808       |H   |		Short_Literal	0x8
00fa 4800       |H   |		Short_Literal	0x0
00fb e20e       |    |		Load	0x1,0xe
00fc 0307       |    |		Complete_Type	Variant_Record,By_Defining
00fd 4801       |H   |		Short_Literal	0x1
00fe e20e       |    |		Load	0x1,0xe
00ff 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0100 4801       |H   |		Short_Literal	0x1
0101 00d9       |    |		Load_Top	At_Offset_1
0102 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0103 0129       | )  |		Execute	Any,Make_Visible
0104 c232       | 2  |		Store	0x1,0x32
0105 4801       |H   |		Short_Literal	0x1
0106 e20e       |    |		Load	0x1,0xe
0107 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0108 4800       |H   |		Short_Literal	0x0
0109 00d9       |    |		Load_Top	At_Offset_1
010a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
010b 0129       | )  |		Execute	Any,Make_Visible
010c c233       | 3  |		Store	0x1,0x33
010d 00bf       |    |		Action	Accept_Activation
010e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
010f 00c7       |    |		Action	Elaborate_Subprogram
0110 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0111 00c7       |    |		Action	Elaborate_Subprogram
0112 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0113 00c7       |    |		Action	Elaborate_Subprogram
0114 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0115 00c7       |    |		Action	Elaborate_Subprogram
0116 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0117 00c7       |    |		Action	Elaborate_Subprogram
0118 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0119 00c7       |    |		Action	Elaborate_Subprogram
011a 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
011b 00c7       |    |		Action	Elaborate_Subprogram
011c 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
011d 00c7       |    |		Action	Elaborate_Subprogram
011e 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
011f 00c7       |    |		Action	Elaborate_Subprogram
0120 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0121 00c7       |    |		Action	Elaborate_Subprogram
0122 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0123 00c7       |    |		Action	Elaborate_Subprogram
0124 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0125 00c7       |    |		Action	Elaborate_Subprogram
0126 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0127 00c7       |    |		Action	Elaborate_Subprogram
0128 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0129 00c7       |    |		Action	Elaborate_Subprogram
012a 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
012b 00c7       |    |		Action	Elaborate_Subprogram
012c 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
012d 00c7       |    |		Action	Elaborate_Subprogram
012e 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
012f 00c7       |    |		Action	Elaborate_Subprogram
0130 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0131 00c7       |    |		Action	Elaborate_Subprogram
0132 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0133 00c7       |    |		Action	Elaborate_Subprogram
0134 00b6       |    |		Action	Make_Scope
0135 e018       |    |		Load	0x0,0x18
0136 4802       |H   |		Short_Literal	0x2
0137 e221       | !  |		Load	0x1,0x21
0138 020e       |    |		Execute	Module,Augment_Imports
0139 e221       | !  |		Load	0x1,0x21
013a 020f       |    |		Execute	Module,Activate
013b 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
013c 00c7       |    |		Action	Elaborate_Subprogram
013d 00b6       |    |		Action	Make_Scope
013e e018       |    |		Load	0x0,0x18
013f 4802       |H   |		Short_Literal	0x2
0140 e223       | #  |		Load	0x1,0x23
0141 020e       |    |		Execute	Module,Augment_Imports
0142 e223       | #  |		Load	0x1,0x23
0143 020d       |    |		Execute	Module,Elaborate
0144			BODY_0008:
0144 00bc       |    |		Action	Signal_Activated
0145 00bb       |    |		Action	Signal_Completion
0146 0000 0000  |    |		.XXX[0x2]
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 4607       |F   |		Jump_Case	0x8
014c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
014d 7806       |x   |		Jump	0x154								; case 0x1
014e 7809       |x   |		Jump	0x158								; case 0x2
014f 780d       |x   |		Jump	0x15d								; case 0x3
0150 7810       |x   |		Jump	0x161								; case 0x4
0151 7811       |x   |		Jump	0x163								; case 0x5
0152 7812       |x   |		Jump	0x165								; case 0x6
0153 7815       |x   |		Jump	0x169								; case 0x7
0154 00da       |    |		Load_Top	At_Offset_2
0155 0091 06d8  |    |		Action	Push_String_Extended_Indexed,0x6d8				; "INTEGER_VALUE"
0157 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0158 00db       |    |		Load_Top	At_Offset_3
0159 00db       |    |		Load_Top	At_Offset_3
015a 00e0       |    |		Load_Encached	Standard_Cache
015b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
015c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
015d 00da       |    |		Load_Top	At_Offset_2
015e 00e0       |    |		Load_Encached	Standard_Cache
015f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0160 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0161 00db       |    |		Load_Top	At_Offset_3
0162 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0163 00db       |    |		Load_Top	At_Offset_3
0164 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0165 e20d       |    |		Load	0x1,0xd
0166 00dc       |    |		Load_Top	At_Offset_4
0167 0267       | g  |		Execute	Discrete,Predecessor
0168 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0169 e20d       |    |		Load	0x1,0xd
016a 00dc       |    |		Load_Top	At_Offset_4
016b 0268       | h  |		Execute	Discrete,Successor
016c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 4800       |H   |		Short_Literal	0x0
0174 e20e       |    |		Load	0x1,0xe
0175 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0176 00db       |    |		Load_Top	At_Offset_3
0177 00d9       |    |		Load_Top	At_Offset_1
0178 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0179 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 4802       |H   |		Short_Literal	0x2
0184 e20e       |    |		Load	0x1,0xe
0185 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0186 00db       |    |		Load_Top	At_Offset_3
0187 00d9       |    |		Load_Top	At_Offset_1
0188 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0189 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018a 0000 0000  |    |		.BLANK	0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 4801       |H   |		Short_Literal	0x1
0194 e20e       |    |		Load	0x1,0xe
0195 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0196 00db       |    |		Load_Top	At_Offset_3
0197 00d9       |    |		Load_Top	At_Offset_1
0198 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0199 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019a 0000 0000  |    |		.BLANK	0000[0x6]
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 4803       |H   |		Short_Literal	0x3
01a4 e20e       |    |		Load	0x1,0xe
01a5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01a6 00db       |    |		Load_Top	At_Offset_3
01a7 00d9       |    |		Load_Top	At_Offset_1
01a8 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01a9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01aa 0000 0000  |    |		.BLANK	0000[0x6]
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 4804       |H   |		Short_Literal	0x4
01b4 e20e       |    |		Load	0x1,0xe
01b5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b6 00db       |    |		Load_Top	At_Offset_3
01b7 e018       |    |		Load	0x0,0x18
01b8 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01b9 00d9       |    |		Load_Top	At_Offset_1
01ba 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
01bb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bc 0000 0000  |    |		.BLANK	0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 4807       |H   |		Short_Literal	0x7
01c4 e20e       |    |		Load	0x1,0xe
01c5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01c6 00db       |    |		Load_Top	At_Offset_3
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
01c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ca 0000 0000  |    |		.BLANK	0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01d5 4607       |F   |		Jump_Case	0x8
01d6 7809       |x   |		Jump	0x1e0								; case 0x0
01d7 780b       |x   |		Jump	0x1e3								; case 0x1
01d8 7815       |x   |		Jump	0x1ee								; case 0x2
01d9 7804       |x   |		Jump	0x1de								; case 0x3
01da 7803       |x   |		Jump	0x1de								; case 0x4
01db 7802       |x   |		Jump	0x1de								; case 0x5
01dc 780e       |x   |		Jump	0x1eb								; case 0x6
01dd 7800       |x   |		Jump	0x1de								; case 0x7
01de e234       | 4  |		Load	0x1,0x34
01df 0257       | W  |		Execute	Discrete,Raise
01e0 00da       |    |		Load_Top	At_Offset_2
01e1 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01e2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01e5 00d8       |    |		Load_Top	At_Offset_0
01e6 00e2       |    |		Load_Encached	Integer_Cache
01e7 0260       | `  |		Execute	Discrete,In_Type
01e8 7001       |p   |		Jump_Nonzero	0x1ea
01e9 0801       |    |		Execute_Immediate	Raise,0x1
01ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01eb 00da       |    |		Load_Top	At_Offset_2
01ec 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
01ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ee 00da       |    |		Load_Top	At_Offset_2
01ef 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01f0 0235       | 5  |		Execute	Float,Round_To_Discrete
01f1 00e2       |    |		Load_Encached	Integer_Cache
01f2 025e       | ^  |		Execute	Discrete,Convert
01f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f4 0000 0000  |    |		.BLANK	0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
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			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01fd 0f01       |    |		Execute_Immediate	Equal,0x1
01fe 7002       |p   |		Jump_Nonzero	0x201
01ff e235       | 5  |		Load	0x1,0x35
0200 0257       | W  |		Execute	Discrete,Raise
0201 00da       |    |		Load_Top	At_Offset_2
0202 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0203 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0204 0000 0000  |    |		.BLANK	0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2
020c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
020d 4607       |F   |		Jump_Case	0x8
020e 780c       |x   |		Jump	0x21b								; case 0x0
020f 780f       |x   |		Jump	0x21f								; case 0x1
0210 7807       |x   |		Jump	0x218								; case 0x2
0211 7804       |x   |		Jump	0x216								; case 0x3
0212 7803       |x   |		Jump	0x216								; case 0x4
0213 7802       |x   |		Jump	0x216								; case 0x5
0214 780e       |x   |		Jump	0x223								; case 0x6
0215 7800       |x   |		Jump	0x216								; case 0x7
0216 e236       | 6  |		Load	0x1,0x36
0217 0257       | W  |		Execute	Discrete,Raise
0218 00da       |    |		Load_Top	At_Offset_2
0219 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
021a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021b 00da       |    |		Load_Top	At_Offset_2
021c 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
021d 0237       | 7  |		Execute	Float,Convert_From_Discrete
021e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021f 00da       |    |		Load_Top	At_Offset_2
0220 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0221 0237       | 7  |		Execute	Float,Convert_From_Discrete
0222 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0223 00da       |    |		Load_Top	At_Offset_2
0224 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0225 0237       | 7  |		Execute	Float,Convert_From_Discrete
0226 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0227 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
022c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
022d 4607       |F   |		Jump_Case	0x8
022e 7807       |x   |		Jump	0x236								; case 0x0
022f 7806       |x   |		Jump	0x236								; case 0x1
0230 7805       |x   |		Jump	0x236								; case 0x2
0231 7806       |x   |		Jump	0x238								; case 0x3
0232 7808       |x   |		Jump	0x23b								; case 0x4
0233 7802       |x   |		Jump	0x236								; case 0x5
0234 7801       |x   |		Jump	0x236								; case 0x6
0235 7800       |x   |		Jump	0x236								; case 0x7
0236 e237       | 7  |		Load	0x1,0x37
0237 0257       | W  |		Execute	Discrete,Raise
0238 00da       |    |		Load_Top	At_Offset_2
0239 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
023a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
023b 00da       |    |		Load_Top	At_Offset_2
023c 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
023d e018       |    |		Load	0x0,0x18
023e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
023f 01db       |    |		Execute	Vector,Length
0240 0f01       |    |		Execute_Immediate	Equal,0x1
0241 6807       |h   |		Jump_Zero	0x249
0242 4801       |H   |		Short_Literal	0x1
0243 00db       |    |		Load_Top	At_Offset_3
0244 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0245 e018       |    |		Load	0x0,0x18
0246 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0247 01d7       |    |		Execute	Vector,Field_Read
0248 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0249 e237       | 7  |		Load	0x1,0x37
024a 0257       | W  |		Execute	Discrete,Raise
024b 0000 0000  |    |		.BLANK	0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2
0254 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0255 4607       |F   |		Jump_Case	0x8
0256 7813       |x   |		Jump	0x26a								; case 0x0
0257 7821       |x!  |		Jump	0x279								; case 0x1
0258 7805       |x   |		Jump	0x25e								; case 0x2
0259 780b       |x   |		Jump	0x265								; case 0x3
025a 7805       |x   |		Jump	0x260								; case 0x4
025b 7818       |x   |		Jump	0x274								; case 0x5
025c 7812       |x   |		Jump	0x26f								; case 0x6
025d 7800       |x   |		Jump	0x25e								; case 0x7
025e e238       | 8  |		Load	0x1,0x38
025f 0257       | W  |		Execute	Discrete,Raise
0260 00da       |    |		Load_Top	At_Offset_2
0261 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0262 e018       |    |		Load	0x0,0x18
0263 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0264 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0265 00da       |    |		Load_Top	At_Offset_2
0266 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0267 00ea       |    |		Load_Encached	Null_String_Cache
0268 01cb       |    |		Execute	Vector,Append
0269 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026a 00da       |    |		Load_Top	At_Offset_2
026b 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
026c 00e0       |    |		Load_Encached	Standard_Cache
026d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
026e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026f 00da       |    |		Load_Top	At_Offset_2
0270 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0271 00e0       |    |		Load_Encached	Standard_Cache
0272 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0273 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0274 00da       |    |		Load_Top	At_Offset_2
0275 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0276 e018       |    |		Load	0x0,0x18
0277 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0278 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0279 00da       |    |		Load_Top	At_Offset_2
027a 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
027b 00e1       |    |		Load_Encached	Boolean_Cache
027c 011c       |    |		Execute	Any,Convert_Unchecked
027d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
027e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027f 0000       |    |		.XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00da       |    |		Load_Top	At_Offset_2
0284 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0285 0f07       |    |		Execute_Immediate	Equal,0x7
0286 6805       |h   |		Jump_Zero	0x28c
0287 00da       |    |		Load_Top	At_Offset_2
0288 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0289 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
028a 00cd       |    |		Action	Spare6_Action
028b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028c e239       | 9  |		Load	0x1,0x39
028d 0257       | W  |		Execute	Discrete,Raise
028e 0000 0000  |    |		.XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0295       |    |		.CONST	0x0295								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 0002       |    |		.CONST	0x0002								; Number of locals
0293			INIT_0290:
0293 00e1       |    |		Load_Encached	Boolean_Cache
0294 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0295			BODY_0290:
0295 e5fd       |    |		Load	0x2,-0x3
0296 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0297 4607       |F   |		Jump_Case	0x8
0298 780b       |x   |		Jump	0x2a4								; case 0x0
0299 780f       |x   |		Jump	0x2a9								; case 0x1
029a 780e       |x   |		Jump	0x2a9								; case 0x2
029b 780d       |x   |		Jump	0x2a9								; case 0x3
029c 780c       |x   |		Jump	0x2a9								; case 0x4
029d 780b       |x   |		Jump	0x2a9								; case 0x5
029e 7801       |x   |		Jump	0x2a0								; case 0x6
029f 7809       |x   |		Jump	0x2a9								; case 0x7
02a0 00db       |    |		Load_Top	At_Offset_3
02a1 e5fd       |    |		Load	0x2,-0x3
02a2 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
02a3 7805       |x   |		Jump	0x2a9
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 e5fd       |    |		Load	0x2,-0x3
02a6 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02a7 4801       |H   |		Short_Literal	0x1
02a8 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02a9 00d8       |    |		Load_Top	At_Offset_0
02aa 700c       |p   |		Jump_Nonzero	0x2b7
02ab e5fe       |    |		Load	0x2,-0x2
02ac 680a       |h   |		Jump_Zero	0x2b7
02ad 4800       |H   |		Short_Literal	0x0
02ae e20e       |    |		Load	0x1,0xe
02af 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02b0 e5ff       |    |		Load	0x2,-0x1
02b1 00d9       |    |		Load_Top	At_Offset_1
02b2 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
02b3 e5fd       |    |		Load	0x2,-0x3
02b4 016d       | m  |		Execute	Variant_Record,Structure_Write
02b5 4801       |H   |		Short_Literal	0x1
02b6 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02b7 00d8       |    |		Load_Top	At_Offset_0
02b8 7002       |p   |		Jump_Nonzero	0x2bb
02b9 e23a       | :  |		Load	0x1,0x3a
02ba 0257       | W  |		Execute	Discrete,Raise
02bb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02bc 0000 0000  |    |		.BLANK	0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 e5fd       |    |		Load	0x2,-0x3
02c4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02c5 0f01       |    |		Execute_Immediate	Equal,0x1
02c6 6804       |h   |		Jump_Zero	0x2cb
02c7 00da       |    |		Load_Top	At_Offset_2
02c8 e5fd       |    |		Load	0x2,-0x3
02c9 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02ca 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02cb 00db       |    |		Load_Top	At_Offset_3
02cc 6809       |h   |		Jump_Zero	0x2d6
02cd 4801       |H   |		Short_Literal	0x1
02ce e20e       |    |		Load	0x1,0xe
02cf 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02d0 00db       |    |		Load_Top	At_Offset_3
02d1 00d9       |    |		Load_Top	At_Offset_1
02d2 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02d3 e5fd       |    |		Load	0x2,-0x3
02d4 016d       | m  |		Execute	Variant_Record,Structure_Write
02d5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d6 e23b       | ;  |		Load	0x1,0x3b
02d7 0257       | W  |		Execute	Discrete,Raise
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 e5fd       |    |		Load	0x2,-0x3
02dc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02dd 0f02       |    |		Execute_Immediate	Equal,0x2
02de 6804       |h   |		Jump_Zero	0x2e3
02df 00da       |    |		Load_Top	At_Offset_2
02e0 e5fd       |    |		Load	0x2,-0x3
02e1 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e3 00db       |    |		Load_Top	At_Offset_3
02e4 6809       |h   |		Jump_Zero	0x2ee
02e5 4802       |H   |		Short_Literal	0x2
02e6 e20e       |    |		Load	0x1,0xe
02e7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02e8 00db       |    |		Load_Top	At_Offset_3
02e9 00d9       |    |		Load_Top	At_Offset_1
02ea 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
02eb e5fd       |    |		Load	0x2,-0x3
02ec 016d       | m  |		Execute	Variant_Record,Structure_Write
02ed 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02ee e23c       | <  |		Load	0x1,0x3c
02ef 0257       | W  |		Execute	Discrete,Raise
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 e5fd       |    |		Load	0x2,-0x3
02f4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02f5 0f03       |    |		Execute_Immediate	Equal,0x3
02f6 6804       |h   |		Jump_Zero	0x2fb
02f7 00da       |    |		Load_Top	At_Offset_2
02f8 e5fd       |    |		Load	0x2,-0x3
02f9 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02fa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02fb e5fd       |    |		Load	0x2,-0x3
02fc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02fd 0f04       |    |		Execute_Immediate	Equal,0x4
02fe 6808       |h   |		Jump_Zero	0x307
02ff 00da       |    |		Load_Top	At_Offset_2
0300 00ea       |    |		Load_Encached	Null_String_Cache
0301 01cb       |    |		Execute	Vector,Append
0302 e018       |    |		Load	0x0,0x18
0303 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0304 e5fd       |    |		Load	0x2,-0x3
0305 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0306 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0307 00db       |    |		Load_Top	At_Offset_3
0308 6809       |h   |		Jump_Zero	0x312
0309 4803       |H   |		Short_Literal	0x3
030a e20e       |    |		Load	0x1,0xe
030b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
030c 00db       |    |		Load_Top	At_Offset_3
030d 00d9       |    |		Load_Top	At_Offset_1
030e 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
030f e5fd       |    |		Load	0x2,-0x3
0310 016d       | m  |		Execute	Variant_Record,Structure_Write
0311 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0312 e23d       | =  |		Load	0x1,0x3d
0313 0257       | W  |		Execute	Discrete,Raise
0314 0000 0000  |    |		.BLANK	0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b e5fd       |    |		Load	0x2,-0x3
031c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
031d 0f04       |    |		Execute_Immediate	Equal,0x4
031e 6806       |h   |		Jump_Zero	0x325
031f 00da       |    |		Load_Top	At_Offset_2
0320 e018       |    |		Load	0x0,0x18
0321 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0322 e5fd       |    |		Load	0x2,-0x3
0323 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0324 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0325 00db       |    |		Load_Top	At_Offset_3
0326 680b       |h   |		Jump_Zero	0x332
0327 4804       |H   |		Short_Literal	0x4
0328 e20e       |    |		Load	0x1,0xe
0329 1c08       |    |		Execute_Immediate	Run_Utility,0x8
032a 00db       |    |		Load_Top	At_Offset_3
032b e018       |    |		Load	0x0,0x18
032c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
032d 00d9       |    |		Load_Top	At_Offset_1
032e 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
032f e5fd       |    |		Load	0x2,-0x3
0330 016d       | m  |		Execute	Variant_Record,Structure_Write
0331 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0332 e23e       | >  |		Load	0x1,0x3e
0333 0257       | W  |		Execute	Discrete,Raise
0334 0000 0000  |    |		.BLANK	0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b e5fd       |    |		Load	0x2,-0x3
033c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
033d 0f07       |    |		Execute_Immediate	Equal,0x7
033e 6804       |h   |		Jump_Zero	0x343
033f 00da       |    |		Load_Top	At_Offset_2
0340 e5fd       |    |		Load	0x2,-0x3
0341 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0342 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0343 00db       |    |		Load_Top	At_Offset_3
0344 6809       |h   |		Jump_Zero	0x34e
0345 4807       |H   |		Short_Literal	0x7
0346 e20e       |    |		Load	0x1,0xe
0347 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0348 00db       |    |		Load_Top	At_Offset_3
0349 00d9       |    |		Load_Top	At_Offset_1
034a 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
034b e5fd       |    |		Load	0x2,-0x3
034c 016d       | m  |		Execute	Variant_Record,Structure_Write
034d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
034e e23f       | ?  |		Load	0x1,0x3f
034f 0257       | W  |		Execute	Discrete,Raise
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 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0355 e5fe       |    |		Load	0x2,-0x2
0356 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0357 027f       |    |		Execute	Discrete,Equal
0358 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0359 0000 0000  |    |		.BLANK	0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 00da       |    |		Load_Top	At_Offset_2
0364 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0365 4607       |F   |		Jump_Case	0x8
0366 780c       |x   |		Jump	0x373								; case 0x0
0367 7814       |x   |		Jump	0x37c								; case 0x1
0368 780f       |x   |		Jump	0x378								; case 0x2
0369 7818       |x   |		Jump	0x382								; case 0x3
036a 781d       |x   |		Jump	0x388								; case 0x4
036b 7821       |x!  |		Jump	0x38d								; case 0x5
036c 7825       |x%  |		Jump	0x392								; case 0x6
036d 7800       |x   |		Jump	0x36e								; case 0x7
036e 00da       |    |		Load_Top	At_Offset_2
036f 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0370 e001       |    |		Load	0x0,0x1
0371 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0372 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0373 00da       |    |		Load_Top	At_Offset_2
0374 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0375 00e0       |    |		Load_Encached	Standard_Cache
0376 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0377 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0378 00da       |    |		Load_Top	At_Offset_2
0379 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
037a 8019       |    |		Call	0x0,0x19
037b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
037c 00da       |    |		Load_Top	At_Offset_2
037d 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
037e 00e1       |    |		Load_Encached	Boolean_Cache
037f 011c       |    |		Execute	Any,Convert_Unchecked
0380 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0381 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0382 00da       |    |		Load_Top	At_Offset_2
0383 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0384 00e8       |    |		Load_Encached	Character_Cache
0385 011c       |    |		Execute	Any,Convert_Unchecked
0386 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0387 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0388 00da       |    |		Load_Top	At_Offset_2
0389 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
038a e018       |    |		Load	0x0,0x18
038b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
038c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038d 00da       |    |		Load_Top	At_Offset_2
038e 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
038f e018       |    |		Load	0x0,0x18
0390 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0391 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0392 00da       |    |		Load_Top	At_Offset_2
0393 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0394 00e0       |    |		Load_Encached	Standard_Cache
0395 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0396 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0397 0000       |    |		.XXX[0x1]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			BODY_0398:
039b			INIT_0398:
039b			INIT_0398:
039b 4608       |F   |		Jump_Case	0x9
039c 7808       |x   |		Jump	0x3a5								; case 0x0
039d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
039e 7874       |xt  |		Jump	0x413								; case 0x2
039f 7873       |xs  |		Jump	0x413								; case 0x3
03a0 7872       |xr  |		Jump	0x413								; case 0x4
03a1 7871       |xq  |		Jump	0x413								; case 0x5
03a2 7832       |x2  |		Jump	0x3d5								; case 0x6
03a3 784b       |xK  |		Jump	0x3ef								; case 0x7
03a4 7867       |xg  |		Jump	0x40c								; case 0x8
03a5 00da       |    |		Load_Top	At_Offset_2
03a6 016c       | l  |		Execute	Variant_Record,Is_Constrained
03a7 7009       |p   |		Jump_Nonzero	0x3b1
03a8 00cf       |    |		Action	Mark_Auxiliary
03a9 4800       |H   |		Short_Literal	0x0
03aa e5ff       |    |		Load	0x2,-0x1
03ab 1c08       |    |		Execute_Immediate	Run_Utility,0x8
03ac 00d8       |    |		Load_Top	At_Offset_0
03ad 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03ae c5ff       |    |		Store	0x2,-0x1
03af 00ce       |    |		Action	Pop_Auxiliary
03b0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03b1 00da       |    |		Load_Top	At_Offset_2
03b2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03b3 4607       |F   |		Jump_Case	0x8
03b4 780c       |x   |		Jump	0x3c1								; case 0x0
03b5 7813       |x   |		Jump	0x3c9								; case 0x1
03b6 780e       |x   |		Jump	0x3c5								; case 0x2
03b7 7815       |x   |		Jump	0x3cd								; case 0x3
03b8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
03b9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
03ba 7816       |x   |		Jump	0x3d1								; case 0x6
03bb 7800       |x   |		Jump	0x3bc								; case 0x7
03bc e001       |    |		Load	0x0,0x1
03bd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03be 00db       |    |		Load_Top	At_Offset_3
03bf 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
03c0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03c1 4800       |H   |		Short_Literal	0x0
03c2 00db       |    |		Load_Top	At_Offset_3
03c3 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
03c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03c5 584e       |XN  |		Indirect_Literal	Float,0x414,0.0
03c6 00db       |    |		Load_Top	At_Offset_3
03c7 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
03c8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03c9 4800       |H   |		Short_Literal	0x0
03ca 00db       |    |		Load_Top	At_Offset_3
03cb 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
03cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03cd 4800       |H   |		Short_Literal	0x0
03ce 00db       |    |		Load_Top	At_Offset_3
03cf 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
03d0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03d1 4800       |H   |		Short_Literal	0x0
03d2 00db       |    |		Load_Top	At_Offset_3
03d3 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
03d4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
03d5 00db       |    |		Load_Top	At_Offset_3
03d6 4607       |F   |		Jump_Case	0x8
03d7 7809       |x   |		Jump	0x3e1								; case 0x0
03d8 780c       |x   |		Jump	0x3e5								; case 0x1
03d9 7809       |x   |		Jump	0x3e3								; case 0x2
03da 780c       |x   |		Jump	0x3e7								; case 0x3
03db 780d       |x   |		Jump	0x3e9								; case 0x4
03dc 7810       |x   |		Jump	0x3ed								; case 0x5
03dd 780d       |x   |		Jump	0x3eb								; case 0x6
03de 7800       |x   |		Jump	0x3df								; case 0x7
03df 4806       |H   |		Short_Literal	0x6
03e0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e1 4801       |H   |		Short_Literal	0x1
03e2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e3 4802       |H   |		Short_Literal	0x2
03e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e5 4803       |H   |		Short_Literal	0x3
03e6 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e7 4804       |H   |		Short_Literal	0x4
03e8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e9 4805       |H   |		Short_Literal	0x5
03ea 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03eb 4807       |H   |		Short_Literal	0x7
03ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ed 4808       |H   |		Short_Literal	0x8
03ee 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ef 00db       |    |		Load_Top	At_Offset_3
03f0 e5fe       |    |		Load	0x2,-0x2
03f1 4607       |F   |		Jump_Case	0x8
03f2 7809       |x   |		Jump	0x3fc								; case 0x0
03f3 780c       |x   |		Jump	0x400								; case 0x1
03f4 7809       |x   |		Jump	0x3fe								; case 0x2
03f5 780c       |x   |		Jump	0x402								; case 0x3
03f6 780d       |x   |		Jump	0x404								; case 0x4
03f7 7810       |x   |		Jump	0x408								; case 0x5
03f8 780d       |x   |		Jump	0x406								; case 0x6
03f9 7800       |x   |		Jump	0x3fa								; case 0x7
03fa 4806       |H   |		Short_Literal	0x6
03fb 780d       |x   |		Jump	0x409
03fc 4801       |H   |		Short_Literal	0x1
03fd 780b       |x   |		Jump	0x409
03fe 4802       |H   |		Short_Literal	0x2
03ff 7809       |x   |		Jump	0x409
0400 4803       |H   |		Short_Literal	0x3
0401 7807       |x   |		Jump	0x409
0402 4804       |H   |		Short_Literal	0x4
0403 7805       |x   |		Jump	0x409
0404 4805       |H   |		Short_Literal	0x5
0405 7803       |x   |		Jump	0x409
0406 4807       |H   |		Short_Literal	0x7
0407 7801       |x   |		Jump	0x409
0408 4808       |H   |		Short_Literal	0x8
0409 e5ff       |    |		Load	0x2,-0x1
040a 031b       |    |		Declare_Type	Variant_Record,Constrained
040b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
040c 00db       |    |		Load_Top	At_Offset_3
040d e5fe       |    |		Load	0x2,-0x2
040e e5ff       |    |		Load	0x2,-0x1
040f 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0410 e5ff       |    |		Load	0x2,-0x1
0411 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0412 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0413 0869       | i  |		Execute_Immediate	Raise,0x69
0414 0000 0000  |    |		.DBL	0.0
0416 0000 0000  |    |
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 044f       | O  |		.CONST	0x044f								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 001a       |    |		.CONST	0x001a								; Number of locals
041b			INIT_0418:
041b 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
041d 029a 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call,Visible,Unelaborated
041f 00c4       |    |		Action	Make_Default
0420 00c4       |    |		Action	Make_Default
0421 00c4       |    |		Action	Make_Default
0422 00c4       |    |		Action	Make_Default
0423 00c4       |    |		Action	Make_Default
0424 00c4       |    |		Action	Make_Default
0425 00c4       |    |		Action	Make_Default
0426 00c4       |    |		Action	Make_Default
0427 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
0429 c215       |    |		Store	0x1,0x15
042a 029a 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call,Visible,Unelaborated
042c c214       |    |		Store	0x1,0x14
042d 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
042f c21a       |    |		Store	0x1,0x1a
0430 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
0432 c216       |    |		Store	0x1,0x16
0433 029a 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call,Visible,Unelaborated
0435 c217       |    |		Store	0x1,0x17
0436 029a 052b  |   +|		Declare_Subprogram	INIT_0528,For_Outer_Call,Visible,Unelaborated
0438 c218       |    |		Store	0x1,0x18
0439 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
043b c219       |    |		Store	0x1,0x19
043c 00bf       |    |		Action	Accept_Activation
043d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
043e 00c7       |    |		Action	Elaborate_Subprogram
043f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0440 00c7       |    |		Action	Elaborate_Subprogram
0441 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0442 00c7       |    |		Action	Elaborate_Subprogram
0443 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0444 00c7       |    |		Action	Elaborate_Subprogram
0445 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0446 00c7       |    |		Action	Elaborate_Subprogram
0447 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0448 00c7       |    |		Action	Elaborate_Subprogram
0449 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
044a 00c7       |    |		Action	Elaborate_Subprogram
044b 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
044c 00c7       |    |		Action	Elaborate_Subprogram
044d 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
044e 00c7       |    |		Action	Elaborate_Subprogram
044f			BODY_0418:
044f 00bc       |    |		Action	Signal_Activated
0450 00bb       |    |		Action	Signal_Completion
0451 0000 0000  |    |		.BLANK	0000[0x7]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b e20f       |    |		Load	0x1,0xf
045c 680e       |h   |		Jump_Zero	0x46b
045d 4805       |H   |		Short_Literal	0x5
045e e001       |    |		Load	0x0,0x1
045f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0460 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0461 00db       |    |		Load_Top	At_Offset_3
0462 e210       |    |		Load	0x1,0x10
0463 0122       | "  |		Execute	Any,Make_Root_Type
0464 011c       |    |		Execute	Any,Convert_Unchecked
0465 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0466 e002       |    |		Load	0x0,0x2
0467 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0468 00d9       |    |		Load_Top	At_Offset_1
0469 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
046a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
046b 4806       |H   |		Short_Literal	0x6
046c e001       |    |		Load	0x0,0x1
046d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
046e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
046f 00db       |    |		Load_Top	At_Offset_3
0470 00d9       |    |		Load_Top	At_Offset_1
0471 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0472 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0473 0000 0000  |    |		.BLANK	0000[0x5]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b 00da       |    |		Load_Top	At_Offset_2
047c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
047d 0f05       |    |		Execute_Immediate	Equal,0x5
047e 680d       |h   |		Jump_Zero	0x48c
047f 00da       |    |		Load_Top	At_Offset_2
0480 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0481 e002       |    |		Load	0x0,0x2
0482 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0483 e210       |    |		Load	0x1,0x10
0484 0122       | "  |		Execute	Any,Make_Root_Type
0485 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0486 00d8       |    |		Load_Top	At_Offset_0
0487 e210       |    |		Load	0x1,0x10
0488 0260       | `  |		Execute	Discrete,In_Type
0489 7001       |p   |		Jump_Nonzero	0x48b
048a 0801       |    |		Execute_Immediate	Raise,0x1
048b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
048c 00da       |    |		Load_Top	At_Offset_2
048d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
048e 0f06       |    |		Execute_Immediate	Equal,0x6
048f 680e       |h   |		Jump_Zero	0x49e
0490 00da       |    |		Load_Top	At_Offset_2
0491 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0492 00d8       |    |		Load_Top	At_Offset_0
0493 e210       |    |		Load	0x1,0x10
0494 0122       | "  |		Execute	Any,Make_Root_Type
0495 0260       | `  |		Execute	Discrete,In_Type
0496 7001       |p   |		Jump_Nonzero	0x498
0497 0801       |    |		Execute_Immediate	Raise,0x1
0498 00d8       |    |		Load_Top	At_Offset_0
0499 e210       |    |		Load	0x1,0x10
049a 0260       | `  |		Execute	Discrete,In_Type
049b 7001       |p   |		Jump_Nonzero	0x49d
049c 0801       |    |		Execute_Immediate	Raise,0x1
049d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
049e e001       |    |		Load	0x0,0x1
049f 1b44       | D  |		Execute	Package,Field_Read,Field_Number 0x44
04a0 0257       | W  |		Execute	Discrete,Raise
04a1 0000 0000  |    |		.BLANK	0000[0x7]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04af       |    |		.CONST	0x04af								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0003       |    |		.CONST	0x0003								; Number of locals
04ab			INIT_04a8:
04ab 029f 057b  |   {|		Declare_Subprogram	INIT_0578,For_Call
04ad 029f 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Call
04af			BODY_04a8:
04af e20f       |    |		Load	0x1,0xf
04b0 6802       |h   |		Jump_Zero	0x4b3
04b1 8402       |    |		Call	0x2,0x2
04b2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04b3 8403       |    |		Call	0x2,0x3
04b4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04b5 0000 0000  |    |		.XXX[0x3]
04b7 0000       |    |
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb       |    |		.CONST	0x04bb								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0001       |    |		.CONST	0x0001								; Number of locals
04bb			BODY_04b8:
04bb			INIT_04b8:
04bb 00da       |    |		Load_Top	At_Offset_2
04bc 8212       |    |		Call	0x1,0x12
04bd e210       |    |		Load	0x1,0x10
04be 0122       | "  |		Execute	Any,Make_Root_Type
04bf 011c       |    |		Execute	Any,Convert_Unchecked
04c0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04c1 e002       |    |		Load	0x0,0x2
04c2 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04c3 e002       |    |		Load	0x0,0x2
04c4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c6 0000 0000  |    |		.XXX[0x2]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 00da       |    |		Load_Top	At_Offset_2
04cc e210       |    |		Load	0x1,0x10
04cd 0122       | "  |		Execute	Any,Make_Root_Type
04ce 011c       |    |		Execute	Any,Convert_Unchecked
04cf 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04d0 e002       |    |		Load	0x0,0x2
04d1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04d2 e002       |    |		Load	0x0,0x2
04d3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04d4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04d5 0000 0000  |    |		.XXX[0x3]
04d7 0000       |    |
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db       |    |		.CONST	0x04db								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0001       |    |		.CONST	0x0001								; Number of locals
04db			BODY_04d8:
04db			INIT_04d8:
04db 00da       |    |		Load_Top	At_Offset_2
04dc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04dd e5fe       |    |		Load	0x2,-0x2
04de 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04df 027f       |    |		Execute	Discrete,Equal
04e0 681a       |h   |		Jump_Zero	0x4fb
04e1 00da       |    |		Load_Top	At_Offset_2
04e2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04e3 4607       |F   |		Jump_Case	0x8
04e4 7807       |x   |		Jump	0x4ec								; case 0x0
04e5 7806       |x   |		Jump	0x4ec								; case 0x1
04e6 7805       |x   |		Jump	0x4ec								; case 0x2
04e7 7804       |x   |		Jump	0x4ec								; case 0x3
04e8 7803       |x   |		Jump	0x4ec								; case 0x4
04e9 780b       |x   |		Jump	0x4f5								; case 0x5
04ea 7804       |x   |		Jump	0x4ef								; case 0x6
04eb 7800       |x   |		Jump	0x4ec								; case 0x7
04ec e001       |    |		Load	0x0,0x1
04ed 1b46       | F  |		Execute	Package,Field_Read,Field_Number 0x46
04ee 0257       | W  |		Execute	Discrete,Raise
04ef 00da       |    |		Load_Top	At_Offset_2
04f0 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04f1 e5fe       |    |		Load	0x2,-0x2
04f2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04f3 027c       | |  |		Execute	Discrete,Less
04f4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04f5 00da       |    |		Load_Top	At_Offset_2
04f6 8212       |    |		Call	0x1,0x12
04f7 e5fe       |    |		Load	0x2,-0x2
04f8 8212       |    |		Call	0x1,0x12
04f9 027c       | |  |		Execute	Discrete,Less
04fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04fb e001       |    |		Load	0x0,0x1
04fc 1b46       | F  |		Execute	Package,Field_Read,Field_Number 0x46
04fd 0257       | W  |		Execute	Discrete,Raise
04fe 0000 0000  |    |		.XXX[0x2]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503       |    |		.CONST	0x0503								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0001       |    |		.CONST	0x0001								; Number of locals
0503			BODY_0500:
0503			INIT_0500:
0503 00da       |    |		Load_Top	At_Offset_2
0504 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0505 e5fe       |    |		Load	0x2,-0x2
0506 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0507 027f       |    |		Execute	Discrete,Equal
0508 681a       |h   |		Jump_Zero	0x523
0509 00da       |    |		Load_Top	At_Offset_2
050a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
050b 4607       |F   |		Jump_Case	0x8
050c 7807       |x   |		Jump	0x514								; case 0x0
050d 7806       |x   |		Jump	0x514								; case 0x1
050e 7805       |x   |		Jump	0x514								; case 0x2
050f 7804       |x   |		Jump	0x514								; case 0x3
0510 7803       |x   |		Jump	0x514								; case 0x4
0511 780b       |x   |		Jump	0x51d								; case 0x5
0512 7804       |x   |		Jump	0x517								; case 0x6
0513 7800       |x   |		Jump	0x514								; case 0x7
0514 e001       |    |		Load	0x0,0x1
0515 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0516 0257       | W  |		Execute	Discrete,Raise
0517 00da       |    |		Load_Top	At_Offset_2
0518 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0519 e5fe       |    |		Load	0x2,-0x2
051a 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
051b 027a       | z  |		Execute	Discrete,Less_Equal
051c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
051d 00da       |    |		Load_Top	At_Offset_2
051e 8212       |    |		Call	0x1,0x12
051f e5fe       |    |		Load	0x2,-0x2
0520 8212       |    |		Call	0x1,0x12
0521 027a       | z  |		Execute	Discrete,Less_Equal
0522 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0523 e001       |    |		Load	0x0,0x1
0524 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0525 0257       | W  |		Execute	Discrete,Raise
0526 0000 0000  |    |		.XXX[0x2]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b       | +  |		.CONST	0x052b								; Address of begin
0529 0004       |    |		.CONST	0x0004								; Address of exception handler
052a 0001       |    |		.CONST	0x0001								; Number of locals
052b			BODY_0528:
052b			INIT_0528:
052b 00da       |    |		Load_Top	At_Offset_2
052c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
052d e5fe       |    |		Load	0x2,-0x2
052e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
052f 027f       |    |		Execute	Discrete,Equal
0530 681a       |h   |		Jump_Zero	0x54b
0531 00da       |    |		Load_Top	At_Offset_2
0532 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0533 4607       |F   |		Jump_Case	0x8
0534 7807       |x   |		Jump	0x53c								; case 0x0
0535 7806       |x   |		Jump	0x53c								; case 0x1
0536 7805       |x   |		Jump	0x53c								; case 0x2
0537 7804       |x   |		Jump	0x53c								; case 0x3
0538 7803       |x   |		Jump	0x53c								; case 0x4
0539 780b       |x   |		Jump	0x545								; case 0x5
053a 7804       |x   |		Jump	0x53f								; case 0x6
053b 7800       |x   |		Jump	0x53c								; case 0x7
053c e001       |    |		Load	0x0,0x1
053d 1b48       | H  |		Execute	Package,Field_Read,Field_Number 0x48
053e 0257       | W  |		Execute	Discrete,Raise
053f 00da       |    |		Load_Top	At_Offset_2
0540 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0541 e5fe       |    |		Load	0x2,-0x2
0542 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0543 027d       | }  |		Execute	Discrete,Greater
0544 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0545 00da       |    |		Load_Top	At_Offset_2
0546 8212       |    |		Call	0x1,0x12
0547 e5fe       |    |		Load	0x2,-0x2
0548 8212       |    |		Call	0x1,0x12
0549 027d       | }  |		Execute	Discrete,Greater
054a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
054b e001       |    |		Load	0x0,0x1
054c 1b48       | H  |		Execute	Package,Field_Read,Field_Number 0x48
054d 0257       | W  |		Execute	Discrete,Raise
054e 0000 0000  |    |		.XXX[0x2]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 00da       |    |		Load_Top	At_Offset_2
0554 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0555 e5fe       |    |		Load	0x2,-0x2
0556 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0557 027f       |    |		Execute	Discrete,Equal
0558 681a       |h   |		Jump_Zero	0x573
0559 00da       |    |		Load_Top	At_Offset_2
055a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
055b 4607       |F   |		Jump_Case	0x8
055c 7807       |x   |		Jump	0x564								; case 0x0
055d 7806       |x   |		Jump	0x564								; case 0x1
055e 7805       |x   |		Jump	0x564								; case 0x2
055f 7804       |x   |		Jump	0x564								; case 0x3
0560 7803       |x   |		Jump	0x564								; case 0x4
0561 780b       |x   |		Jump	0x56d								; case 0x5
0562 7804       |x   |		Jump	0x567								; case 0x6
0563 7800       |x   |		Jump	0x564								; case 0x7
0564 e001       |    |		Load	0x0,0x1
0565 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0566 0257       | W  |		Execute	Discrete,Raise
0567 00da       |    |		Load_Top	At_Offset_2
0568 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0569 e5fe       |    |		Load	0x2,-0x2
056a 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
056b 027b       | {  |		Execute	Discrete,Greater_Equal
056c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
056d 00da       |    |		Load_Top	At_Offset_2
056e 8212       |    |		Call	0x1,0x12
056f e5fe       |    |		Load	0x2,-0x2
0570 8212       |    |		Call	0x1,0x12
0571 027b       | {  |		Execute	Discrete,Greater_Equal
0572 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0573 e001       |    |		Load	0x0,0x1
0574 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0575 0257       | W  |		Execute	Discrete,Raise
0576 0000 0000  |    |		.XXX[0x2]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b       | {  |		.CONST	0x057b								; Address of begin
0579 0004       |    |		.CONST	0x0004								; Address of exception handler
057a 0001       |    |		.CONST	0x0001								; Number of locals
057b			BODY_0578:
057b			INIT_0578:
057b e5fd       |    |		Load	0x2,-0x3
057c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
057d 0f05       |    |		Execute_Immediate	Equal,0x5
057e 680a       |h   |		Jump_Zero	0x589
057f e5ff       |    |		Load	0x2,-0x1
0580 e210       |    |		Load	0x1,0x10
0581 0122       | "  |		Execute	Any,Make_Root_Type
0582 011c       |    |		Execute	Any,Convert_Unchecked
0583 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0584 e002       |    |		Load	0x0,0x2
0585 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0586 e5fd       |    |		Load	0x2,-0x3
0587 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0588 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0589 e5fe       |    |		Load	0x2,-0x2
058a 6810       |h   |		Jump_Zero	0x59b
058b 4805       |H   |		Short_Literal	0x5
058c e001       |    |		Load	0x0,0x1
058d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
058e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
058f e5ff       |    |		Load	0x2,-0x1
0590 e210       |    |		Load	0x1,0x10
0591 0122       | "  |		Execute	Any,Make_Root_Type
0592 011c       |    |		Execute	Any,Convert_Unchecked
0593 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0594 e002       |    |		Load	0x0,0x2
0595 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0596 00d9       |    |		Load_Top	At_Offset_1
0597 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0598 e5fd       |    |		Load	0x2,-0x3
0599 016d       | m  |		Execute	Variant_Record,Structure_Write
059a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
059b e001       |    |		Load	0x0,0x1
059c 1b45       | E  |		Execute	Package,Field_Read,Field_Number 0x45
059d 0257       | W  |		Execute	Discrete,Raise
059e 0000 0000  |    |		.XXX[0x2]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 e5fd       |    |		Load	0x2,-0x3
05a4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05a5 0f06       |    |		Execute_Immediate	Equal,0x6
05a6 6804       |h   |		Jump_Zero	0x5ab
05a7 e5ff       |    |		Load	0x2,-0x1
05a8 e5fd       |    |		Load	0x2,-0x3
05a9 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
05aa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05ab e5fe       |    |		Load	0x2,-0x2
05ac 680a       |h   |		Jump_Zero	0x5b7
05ad 4806       |H   |		Short_Literal	0x6
05ae e001       |    |		Load	0x0,0x1
05af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05b1 e5ff       |    |		Load	0x2,-0x1
05b2 00d9       |    |		Load_Top	At_Offset_1
05b3 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
05b4 e5fd       |    |		Load	0x2,-0x3
05b5 016d       | m  |		Execute	Variant_Record,Structure_Write
05b6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05b7 e001       |    |		Load	0x0,0x1
05b8 1b45       | E  |		Execute	Package,Field_Read,Field_Number 0x45
05b9 0257       | W  |		Execute	Discrete,Raise
05ba 0000 0000  |    |		.BLANK	0000[0x6]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05d4       |    |		.CONST	0x05d4								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0010       |    |		.CONST	0x0010								; Number of locals
05c3			INIT_05c0:
05c3 029a 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call,Visible,Unelaborated
05c5 029a 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call,Visible,Unelaborated
05c7 029a 065b  |   [|		Declare_Subprogram	INIT_0658,For_Outer_Call,Visible,Unelaborated
05c9 029a 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call,Visible,Unelaborated
05cb 00bf       |    |		Action	Accept_Activation
05cc 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
05cd 00c7       |    |		Action	Elaborate_Subprogram
05ce 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
05cf 00c7       |    |		Action	Elaborate_Subprogram
05d0 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
05d1 00c7       |    |		Action	Elaborate_Subprogram
05d2 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
05d3 00c7       |    |		Action	Elaborate_Subprogram
05d4			BODY_05c0:
05d4 00bc       |    |		Action	Signal_Activated
05d5 00bb       |    |		Action	Signal_Completion
05d6 0000 0000  |    |		.XXX[0x2]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db 00da       |    |		Load_Top	At_Offset_2
05dc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05dd e5fe       |    |		Load	0x2,-0x2
05de 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05df 027f       |    |		Execute	Discrete,Equal
05e0 6834       |h4  |		Jump_Zero	0x615
05e1 00da       |    |		Load_Top	At_Offset_2
05e2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05e3 4607       |F   |		Jump_Case	0x8
05e4 780a       |x   |		Jump	0x5ef								; case 0x0
05e5 780f       |x   |		Jump	0x5f5								; case 0x1
05e6 7814       |x   |		Jump	0x5fb								; case 0x2
05e7 7819       |x   |		Jump	0x601								; case 0x3
05e8 781e       |x   |		Jump	0x607								; case 0x4
05e9 7802       |x   |		Jump	0x5ec								; case 0x5
05ea 7824       |x$  |		Jump	0x60f								; case 0x6
05eb 7800       |x   |		Jump	0x5ec								; case 0x7
05ec e001       |    |		Load	0x0,0x1
05ed 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
05ee 0257       | W  |		Execute	Discrete,Raise
05ef 00da       |    |		Load_Top	At_Offset_2
05f0 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
05f1 e5fe       |    |		Load	0x2,-0x2
05f2 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
05f3 027c       | |  |		Execute	Discrete,Less
05f4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05f5 00da       |    |		Load_Top	At_Offset_2
05f6 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05f7 e5fe       |    |		Load	0x2,-0x2
05f8 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05f9 027c       | |  |		Execute	Discrete,Less
05fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05fb 00da       |    |		Load_Top	At_Offset_2
05fc 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05fd e5fe       |    |		Load	0x2,-0x2
05fe 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05ff 0244       | D  |		Execute	Float,Less
0600 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0601 00da       |    |		Load_Top	At_Offset_2
0602 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0603 e5fe       |    |		Load	0x2,-0x2
0604 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0605 027c       | |  |		Execute	Discrete,Less
0606 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0607 00db       |    |		Load_Top	At_Offset_3
0608 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0609 00db       |    |		Load_Top	At_Offset_3
060a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
060b e002       |    |		Load	0x0,0x2
060c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
060d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
060e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
060f 00da       |    |		Load_Top	At_Offset_2
0610 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0611 e5fe       |    |		Load	0x2,-0x2
0612 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0613 027c       | |  |		Execute	Discrete,Less
0614 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0615 e001       |    |		Load	0x0,0x1
0616 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0617 0257       | W  |		Execute	Discrete,Raise
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b       |    |		.CONST	0x061b								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0001       |    |		.CONST	0x0001								; Number of locals
061b			BODY_0618:
061b			INIT_0618:
061b 00da       |    |		Load_Top	At_Offset_2
061c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
061d e5fe       |    |		Load	0x2,-0x2
061e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
061f 027f       |    |		Execute	Discrete,Equal
0620 6834       |h4  |		Jump_Zero	0x655
0621 00da       |    |		Load_Top	At_Offset_2
0622 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0623 4607       |F   |		Jump_Case	0x8
0624 780a       |x   |		Jump	0x62f								; case 0x0
0625 780f       |x   |		Jump	0x635								; case 0x1
0626 7814       |x   |		Jump	0x63b								; case 0x2
0627 7819       |x   |		Jump	0x641								; case 0x3
0628 781e       |x   |		Jump	0x647								; case 0x4
0629 7802       |x   |		Jump	0x62c								; case 0x5
062a 7824       |x$  |		Jump	0x64f								; case 0x6
062b 7800       |x   |		Jump	0x62c								; case 0x7
062c e001       |    |		Load	0x0,0x1
062d 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
062e 0257       | W  |		Execute	Discrete,Raise
062f 00da       |    |		Load_Top	At_Offset_2
0630 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0631 e5fe       |    |		Load	0x2,-0x2
0632 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0633 027a       | z  |		Execute	Discrete,Less_Equal
0634 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0635 00da       |    |		Load_Top	At_Offset_2
0636 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0637 e5fe       |    |		Load	0x2,-0x2
0638 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0639 027a       | z  |		Execute	Discrete,Less_Equal
063a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
063b 00da       |    |		Load_Top	At_Offset_2
063c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
063d e5fe       |    |		Load	0x2,-0x2
063e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
063f 0242       | B  |		Execute	Float,Less_Equal
0640 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0641 00da       |    |		Load_Top	At_Offset_2
0642 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0643 e5fe       |    |		Load	0x2,-0x2
0644 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0645 027a       | z  |		Execute	Discrete,Less_Equal
0646 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0647 00db       |    |		Load_Top	At_Offset_3
0648 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0649 00db       |    |		Load_Top	At_Offset_3
064a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
064b e002       |    |		Load	0x0,0x2
064c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
064d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
064e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
064f 00da       |    |		Load_Top	At_Offset_2
0650 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0651 e5fe       |    |		Load	0x2,-0x2
0652 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0653 027a       | z  |		Execute	Discrete,Less_Equal
0654 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0655 e001       |    |		Load	0x0,0x1
0656 1b41       | A  |		Execute	Package,Field_Read,Field_Number 0x41
0657 0257       | W  |		Execute	Discrete,Raise
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b       | [  |		.CONST	0x065b								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0001       |    |		.CONST	0x0001								; Number of locals
065b			BODY_0658:
065b			INIT_0658:
065b 00da       |    |		Load_Top	At_Offset_2
065c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
065d e5fe       |    |		Load	0x2,-0x2
065e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
065f 027f       |    |		Execute	Discrete,Equal
0660 6834       |h4  |		Jump_Zero	0x695
0661 00da       |    |		Load_Top	At_Offset_2
0662 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0663 4607       |F   |		Jump_Case	0x8
0664 780a       |x   |		Jump	0x66f								; case 0x0
0665 780f       |x   |		Jump	0x675								; case 0x1
0666 7814       |x   |		Jump	0x67b								; case 0x2
0667 7819       |x   |		Jump	0x681								; case 0x3
0668 781e       |x   |		Jump	0x687								; case 0x4
0669 7802       |x   |		Jump	0x66c								; case 0x5
066a 7824       |x$  |		Jump	0x68f								; case 0x6
066b 7800       |x   |		Jump	0x66c								; case 0x7
066c e001       |    |		Load	0x0,0x1
066d 1b42       | B  |		Execute	Package,Field_Read,Field_Number 0x42
066e 0257       | W  |		Execute	Discrete,Raise
066f 00da       |    |		Load_Top	At_Offset_2
0670 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0671 e5fe       |    |		Load	0x2,-0x2
0672 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0673 027d       | }  |		Execute	Discrete,Greater
0674 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0675 00da       |    |		Load_Top	At_Offset_2
0676 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0677 e5fe       |    |		Load	0x2,-0x2
0678 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0679 027d       | }  |		Execute	Discrete,Greater
067a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
067b 00da       |    |		Load_Top	At_Offset_2
067c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
067d e5fe       |    |		Load	0x2,-0x2
067e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
067f 0245       | E  |		Execute	Float,Greater
0680 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0681 00da       |    |		Load_Top	At_Offset_2
0682 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0683 e5fe       |    |		Load	0x2,-0x2
0684 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0685 027d       | }  |		Execute	Discrete,Greater
0686 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0687 00db       |    |		Load_Top	At_Offset_3
0688 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0689 00db       |    |		Load_Top	At_Offset_3
068a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
068b e002       |    |		Load	0x0,0x2
068c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
068d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
068e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
068f 00da       |    |		Load_Top	At_Offset_2
0690 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0691 e5fe       |    |		Load	0x2,-0x2
0692 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0693 027d       | }  |		Execute	Discrete,Greater
0694 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0695 e001       |    |		Load	0x0,0x1
0696 1b42       | B  |		Execute	Package,Field_Read,Field_Number 0x42
0697 0257       | W  |		Execute	Discrete,Raise
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b       |    |		.CONST	0x069b								; Address of begin
0699 0004       |    |		.CONST	0x0004								; Address of exception handler
069a 0001       |    |		.CONST	0x0001								; Number of locals
069b			BODY_0698:
069b			INIT_0698:
069b 00da       |    |		Load_Top	At_Offset_2
069c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
069d e5fe       |    |		Load	0x2,-0x2
069e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
069f 027f       |    |		Execute	Discrete,Equal
06a0 6834       |h4  |		Jump_Zero	0x6d5
06a1 00da       |    |		Load_Top	At_Offset_2
06a2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06a3 4607       |F   |		Jump_Case	0x8
06a4 780a       |x   |		Jump	0x6af								; case 0x0
06a5 780f       |x   |		Jump	0x6b5								; case 0x1
06a6 7814       |x   |		Jump	0x6bb								; case 0x2
06a7 7819       |x   |		Jump	0x6c1								; case 0x3
06a8 781e       |x   |		Jump	0x6c7								; case 0x4
06a9 7802       |x   |		Jump	0x6ac								; case 0x5
06aa 7824       |x$  |		Jump	0x6cf								; case 0x6
06ab 7800       |x   |		Jump	0x6ac								; case 0x7
06ac e001       |    |		Load	0x0,0x1
06ad 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
06ae 0257       | W  |		Execute	Discrete,Raise
06af 00da       |    |		Load_Top	At_Offset_2
06b0 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
06b1 e5fe       |    |		Load	0x2,-0x2
06b2 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
06b3 027b       | {  |		Execute	Discrete,Greater_Equal
06b4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06b5 00da       |    |		Load_Top	At_Offset_2
06b6 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
06b7 e5fe       |    |		Load	0x2,-0x2
06b8 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
06b9 027b       | {  |		Execute	Discrete,Greater_Equal
06ba 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06bb 00da       |    |		Load_Top	At_Offset_2
06bc 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
06bd e5fe       |    |		Load	0x2,-0x2
06be 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
06bf 0243       | C  |		Execute	Float,Greater_Equal
06c0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06c1 00da       |    |		Load_Top	At_Offset_2
06c2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
06c3 e5fe       |    |		Load	0x2,-0x2
06c4 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
06c5 027b       | {  |		Execute	Discrete,Greater_Equal
06c6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06c7 00db       |    |		Load_Top	At_Offset_3
06c8 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
06c9 00db       |    |		Load_Top	At_Offset_3
06ca 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
06cb e002       |    |		Load	0x0,0x2
06cc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
06cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06ce 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06cf 00da       |    |		Load_Top	At_Offset_2
06d0 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
06d1 e5fe       |    |		Load	0x2,-0x2
06d2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
06d3 027b       | {  |		Execute	Discrete,Greater_Equal
06d4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06d5 e001       |    |		Load	0x0,0x1
06d6 1b43       | C  |		Execute	Package,Field_Read,Field_Number 0x43
06d7 0257       | W  |		Execute	Discrete,Raise
06d8 ; --------------------------------------------------------------------------------------
06d8 ; STRING TABLE
06d8 ; --------------------------------------------------------------------------------------
06d8 0012       |    |		.STRTAB	0x0012->0x06e1							; "INTEGER_VALUE"
06d9 001d       |    |		.STRTAB	0x001d->0x06e7							; "BOOLEAN_VALUE"
06da 0028       | (  |		.STRTAB	0x0028->0x06ee							; "FLOAT_VALUE"
06db 0031       | 1  |		.STRTAB	0x0031->0x06f3							; "CHARACTER_VALUE"
06dc 003e       | >  |		.STRTAB	0x003e->0x06fb							; "STRING_VALUE"
06dd 0048       | H  |		.STRTAB	0x0048->0x0701							; "CHECKED_ENUMERATION_VALUE"
06de 005f       | _  |		.STRTAB	0x005f->0x070d							; "UNCHECKED_ENUMERATION_VALUE"
06df 0078       | x  |		.STRTAB	0x0078->0x071b							; "CLASS_VALUE"
06e0 0081       |    |		.STREND 0x0081->0x0720
06e1 494e 5445  |INTE|		.STRTAB_STRINGS
0721 0000 0000  |    |		.BLANK	0000[0x7]
0728 ; --------------------------------------------------------------------------------------
0728 ; Debug Table
0728 ; --------------------------------------------------------------------------------------
0728 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xe18c,0x0000,0x0001,0x002b
072e 000b 07da  |    |		.DBG4T	0x000b,0x07da,0x8000,0x0000
0732 010e 080f  |    |		.DBG4T	0x010e,0x080f,0x8000,0x0000
0736 014b 0000  | K  |		.DBG4T	0x014b,0x0000,0x0005,0x0000
073a 0173 0827  | s '|		.DBG4T	0x0173,0x0827,0x0002,0x0000
073e 0183 082a  |   *|		.DBG4T	0x0183,0x082a,0x0002,0x0000
0742 0193 082d  |   -|		.DBG4T	0x0193,0x082d,0x0002,0x0000
0746 01a3 0830  |   0|		.DBG4T	0x01a3,0x0830,0x0002,0x0000
074a 01b3 0833  |   3|		.DBG4T	0x01b3,0x0833,0x0002,0x0000
074e 01c3 0836  |   6|		.DBG4T	0x01c3,0x0836,0x0002,0x0000
0752 01d3 0839  |   9|		.DBG4T	0x01d3,0x0839,0x0002,0x4000
0756 01fb 0847  |   G|		.DBG4T	0x01fb,0x0847,0x0002,0x4000
075a 020b 084f  |   O|		.DBG4T	0x020b,0x084f,0x0002,0x4000
075e 022b 085d  | + ]|		.DBG4T	0x022b,0x085d,0x0002,0x4000
0762 0253 086b  | S k|		.DBG4T	0x0253,0x086b,0x0002,0x4000
0766 0283 087d  |   }|		.DBG4T	0x0283,0x087d,0x0002,0x0000
076a 0293 0882  |    |		.DBG4T	0x0293,0x0882,0x0001,0x4000
076e 02c3 0897  |    |		.DBG4T	0x02c3,0x0897,0x0001,0x0000
0772 02db 089e  |    |		.DBG4T	0x02db,0x089e,0x0001,0x0000
0776 02f3 08a5  |    |		.DBG4T	0x02f3,0x08a5,0x0001,0x0000
077a 031b 08ae  |    |		.DBG4T	0x031b,0x08ae,0x0001,0x0000
077e 033b 08b5  | ;  |		.DBG4T	0x033b,0x08b5,0x0001,0x0000
0782 0353 08bc  | S  |		.DBG4T	0x0353,0x08bc,0x0002,0x0000
0786 0363 08bf  | c  |		.DBG4T	0x0363,0x08bf,0x0002,0x4000
078a 039b 0000  |    |		.DBG4T	0x039b,0x0000,0x0005,0x0000
078e 041b 08d3  |    |		.DBG4T	0x041b,0x08d3,0x4000,0x8000
0792 043d 08e7  | =  |		.DBG4T	0x043d,0x08e7,0x4000,0x0000
0796 045b 08f2  | [  |		.DBG4T	0x045b,0x08f2,0x1002,0x0000
079a 047b 08f7  | {  |		.DBG4T	0x047b,0x08f7,0x1002,0x0000
079e 04ab 08fe  |    |		.DBG4T	0x04ab,0x08fe,0x1001,0x0000
07a2 04bb 0903  |    |		.DBG4T	0x04bb,0x0903,0x1002,0x0000
07a6 04cb 0906  |    |		.DBG4T	0x04cb,0x0906,0x1002,0x0000
07aa 04db 0909  |    |		.DBG4T	0x04db,0x0909,0x1002,0x4000
07ae 0503 0917  |    |		.DBG4T	0x0503,0x0917,0x1002,0x4000
07b2 052b 0925  | + %|		.DBG4T	0x052b,0x0925,0x1002,0x4000
07b6 0553 0933  | S 3|		.DBG4T	0x0553,0x0933,0x1002,0x4000
07ba 057b 0941  | { A|		.DBG4T	0x057b,0x0941,0x1004,0x0000
07be 05a3 0948  |   H|		.DBG4T	0x05a3,0x0948,0x1004,0x0000
07c2 05c3 094f  |   O|		.DBG4T	0x05c3,0x094f,0x0000,0x8000
07c6 05cc 0959  |   Y|		.DBG4T	0x05cc,0x0959,0x0000,0x8000
07ca 05db 0963  |   c|		.DBG4T	0x05db,0x0963,0x0002,0x4000
07ce 061b 0979  |   y|		.DBG4T	0x061b,0x0979,0x0002,0x4000
07d2 065b 098f  | [  |		.DBG4T	0x065b,0x098f,0x0002,0x4000
07d6 069b 09a5  |    |		.DBG4T	0x069b,0x09a5,0x0002,0x4000
07da ; --------------------------------------------------------------------------------------
07da ; Debug chain
07da ; --------------------------------------------------------------------------------------
07da 0033 0000  | 3  |		.DBGLEN	0x0033,0x0000
07dc 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0055,0x0057,0x0059,0x005c,0x005f,0x0062,0x0065,0x0068,0x006b,0x006e,0x0071,0x0074,0x0077,0x007a,0x007d,0x0080,0x0083,0x0086,0x0089,0x008c,0x008f,0x0092,0x0099,0x009c,0x00a2,0x00a5,0x00a8,0x00ab,0x00ae,0x00b1,0x00b4,0x00b7,0x00ba,0x00bd,0x00c0,0x00c3,0x00c6,0x00c9,0x00cc,0x00cf,0x00d2,0x00d5,0x00d8,0x00db,0x00de,0x00e1,0x00e4,0x00fd,0x0105
080f ; --------------------------------------------------------------------------------------
080f ; Debug chain
080f ; --------------------------------------------------------------------------------------
080f 0016 0000  |    |		.DBGLEN	0x0016,0x0000
0811 010e 0110  |    |		.DBGLNO	0x010e,0x0110,0x0112,0x0114,0x0116,0x0118,0x011a,0x011c,0x011e,0x0120,0x0122,0x0124,0x0126,0x0128,0x012a,0x012c,0x012e,0x0130,0x0132,0x0134,0x013b,0x013d
0827 ; --------------------------------------------------------------------------------------
0827 ; Debug chain
0827 ; --------------------------------------------------------------------------------------
0827 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0829 0173       | s  |		.DBGLNO	0x0173
082a ; --------------------------------------------------------------------------------------
082a ; Debug chain
082a ; --------------------------------------------------------------------------------------
082a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
082c 0183       |    |		.DBGLNO	0x0183
082d ; --------------------------------------------------------------------------------------
082d ; Debug chain
082d ; --------------------------------------------------------------------------------------
082d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
082f 0193       |    |		.DBGLNO	0x0193
0830 ; --------------------------------------------------------------------------------------
0830 ; Debug chain
0830 ; --------------------------------------------------------------------------------------
0830 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0832 01a3       |    |		.DBGLNO	0x01a3
0833 ; --------------------------------------------------------------------------------------
0833 ; Debug chain
0833 ; --------------------------------------------------------------------------------------
0833 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0835 01b3       |    |		.DBGLNO	0x01b3
0836 ; --------------------------------------------------------------------------------------
0836 ; Debug chain
0836 ; --------------------------------------------------------------------------------------
0836 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0838 01c3       |    |		.DBGLNO	0x01c3
0839 ; --------------------------------------------------------------------------------------
0839 ; Debug chain
0839 ; --------------------------------------------------------------------------------------
0839 0000 0006  |    |		.DBGLEN	0x0000,0x0006
083b 01d3 01de  |    |		.DBGLNO	0x01d3,0x01de,0x01e0,0x01e3,0x01eb,0x01ee
0841 0001 0006  |    |		.XXX[0x6]
0843 0002 0003  |    |
0845 0004 0005  |    |
0847 ; --------------------------------------------------------------------------------------
0847 ; Debug chain
0847 ; --------------------------------------------------------------------------------------
0847 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0849 01fb 01ff  |    |		.DBGLNO	0x01fb,0x01ff,0x0201
084c 0001 0003  |    |		.XXX[0x3]
084e 0002       |    |
084f ; --------------------------------------------------------------------------------------
084f ; Debug chain
084f ; --------------------------------------------------------------------------------------
084f 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0851 020b 0216  |    |		.DBGLNO	0x020b,0x0216,0x0218,0x021b,0x021f,0x0223
0857 0001 0006  |    |		.XXX[0x6]
0859 0002 0003  |    |
085b 0004 0005  |    |
085d ; --------------------------------------------------------------------------------------
085d ; Debug chain
085d ; --------------------------------------------------------------------------------------
085d 0000 0006  |    |		.DBGLEN	0x0000,0x0006
085f 022b 0236  | + 6|		.DBGLNO	0x022b,0x0236,0x0238,0x023b,0x0242,0x0249
0865 0001 0006  |    |		.XXX[0x6]
0867 0002 0003  |    |
0869 0004 0005  |    |
086b ; --------------------------------------------------------------------------------------
086b ; Debug chain
086b ; --------------------------------------------------------------------------------------
086b 0000 0008  |    |		.DBGLEN	0x0000,0x0008
086d 0253 025e  | S ^|		.DBGLNO	0x0253,0x025e,0x0260,0x0265,0x026a,0x026f,0x0274,0x0279
0875 0001 0008  |    |		.XXX[0x8]
0877 0002 0003  |    |
0879 0004 0005  |    |
087b 0006 0007  |    |
087d ; --------------------------------------------------------------------------------------
087d ; Debug chain
087d ; --------------------------------------------------------------------------------------
087d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
087f 0283 0287  |    |		.DBGLNO	0x0283,0x0287,0x028c
0882 ; --------------------------------------------------------------------------------------
0882 ; Debug chain
0882 ; --------------------------------------------------------------------------------------
0882 0001 0009  |    |		.DBGLEN	0x0001,0x0009
0884 0293 0295  |    |		.DBGLNO	0x0293,0x0295,0x02a0,0x02a4,0x02a7,0x02a9,0x02ad,0x02b5,0x02b7,0x02b9
088e 0001 0004  |    |		.XXX[0x9]
0890 0002 0003  |    |
0892 0006 0007  |    |
0894 0008 0009  |    |
0896 000a       |    |
0897 ; --------------------------------------------------------------------------------------
0897 ; Debug chain
0897 ; --------------------------------------------------------------------------------------
0897 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0899 02c3 02c7  |    |		.DBGLNO	0x02c3,0x02c7,0x02cb,0x02cd,0x02d6
089e ; --------------------------------------------------------------------------------------
089e ; Debug chain
089e ; --------------------------------------------------------------------------------------
089e 0000 0005  |    |		.DBGLEN	0x0000,0x0005
08a0 02db 02df  |    |		.DBGLNO	0x02db,0x02df,0x02e3,0x02e5,0x02ee
08a5 ; --------------------------------------------------------------------------------------
08a5 ; Debug chain
08a5 ; --------------------------------------------------------------------------------------
08a5 0000 0007  |    |		.DBGLEN	0x0000,0x0007
08a7 02f3 02f7  |    |		.DBGLNO	0x02f3,0x02f7,0x02fb,0x02ff,0x0307,0x0309,0x0312
08ae ; --------------------------------------------------------------------------------------
08ae ; Debug chain
08ae ; --------------------------------------------------------------------------------------
08ae 0000 0005  |    |		.DBGLEN	0x0000,0x0005
08b0 031b 031f  |    |		.DBGLNO	0x031b,0x031f,0x0325,0x0327,0x0332
08b5 ; --------------------------------------------------------------------------------------
08b5 ; Debug chain
08b5 ; --------------------------------------------------------------------------------------
08b5 0000 0005  |    |		.DBGLEN	0x0000,0x0005
08b7 033b 033f  | ; ?|		.DBGLNO	0x033b,0x033f,0x0343,0x0345,0x034e
08bc ; --------------------------------------------------------------------------------------
08bc ; Debug chain
08bc ; --------------------------------------------------------------------------------------
08bc 0000 0001  |    |		.DBGLEN	0x0000,0x0001
08be 0353       | S  |		.DBGLNO	0x0353
08bf ; --------------------------------------------------------------------------------------
08bf ; Debug chain
08bf ; --------------------------------------------------------------------------------------
08bf 0000 0009  |    |		.DBGLEN	0x0000,0x0009
08c1 0363 036e  | c n|		.DBGLNO	0x0363,0x036e,0x0373,0x0378,0x037c,0x0382,0x0388,0x038d,0x0392
08ca 0001 0007  |    |		.XXX[0x9]
08cc 0002 0003  |    |
08ce 0004 0005  |    |
08d0 0006 0008  |    |
08d2 0009       |    |
08d3 ; --------------------------------------------------------------------------------------
08d3 ; Debug chain
08d3 ; --------------------------------------------------------------------------------------
08d3 0009 0000  |    |		.DBGLEN	0x0009,0x0000
08d5 041b 041d  |    |		.DBGLNO	0x041b,0x041d,0x0427,0x042a,0x042d,0x0430,0x0433,0x0436,0x0439
08de 0001 0002  |    |		.XXX[0x9]
08e0 0003 0004  |    |
08e2 0005 0007  |    |
08e4 0008 0009  |    |
08e6 000a       |    |
08e7 ; --------------------------------------------------------------------------------------
08e7 ; Debug chain
08e7 ; --------------------------------------------------------------------------------------
08e7 0009 0000  |    |		.DBGLEN	0x0009,0x0000
08e9 043d 043f  | = ?|		.DBGLNO	0x043d,0x043f,0x0441,0x0443,0x0445,0x0447,0x0449,0x044b,0x044d
08f2 ; --------------------------------------------------------------------------------------
08f2 ; Debug chain
08f2 ; --------------------------------------------------------------------------------------
08f2 0000 0003  |    |		.DBGLEN	0x0000,0x0003
08f4 045b 045d  | [ ]|		.DBGLNO	0x045b,0x045d,0x046b
08f7 ; --------------------------------------------------------------------------------------
08f7 ; Debug chain
08f7 ; --------------------------------------------------------------------------------------
08f7 0000 0005  |    |		.DBGLEN	0x0000,0x0005
08f9 047b 047f  | {  |		.DBGLNO	0x047b,0x047f,0x048c,0x0490,0x049e
08fe ; --------------------------------------------------------------------------------------
08fe ; Debug chain
08fe ; --------------------------------------------------------------------------------------
08fe 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0900 04af 04b1  |    |		.DBGLNO	0x04af,0x04b1,0x04b3
0903 ; --------------------------------------------------------------------------------------
0903 ; Debug chain
0903 ; --------------------------------------------------------------------------------------
0903 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0905 04bb       |    |		.DBGLNO	0x04bb
0906 ; --------------------------------------------------------------------------------------
0906 ; Debug chain
0906 ; --------------------------------------------------------------------------------------
0906 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0908 04cb       |    |		.DBGLNO	0x04cb
0909 ; --------------------------------------------------------------------------------------
0909 ; Debug chain
0909 ; --------------------------------------------------------------------------------------
0909 0000 0006  |    |		.DBGLEN	0x0000,0x0006
090b 04db 04e1  |    |		.DBGLNO	0x04db,0x04e1,0x04ec,0x04ef,0x04f5,0x04fb
0911 0001 0002  |    |		.XXX[0x6]
0913 0005 0003  |    |
0915 0004 0006  |    |
0917 ; --------------------------------------------------------------------------------------
0917 ; Debug chain
0917 ; --------------------------------------------------------------------------------------
0917 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0919 0503 0509  |    |		.DBGLNO	0x0503,0x0509,0x0514,0x0517,0x051d,0x0523
091f 0001 0002  |    |		.XXX[0x6]
0921 0005 0003  |    |
0923 0004 0006  |    |
0925 ; --------------------------------------------------------------------------------------
0925 ; Debug chain
0925 ; --------------------------------------------------------------------------------------
0925 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0927 052b 0531  | + 1|		.DBGLNO	0x052b,0x0531,0x053c,0x053f,0x0545,0x054b
092d 0001 0002  |    |		.XXX[0x6]
092f 0005 0003  |    |
0931 0004 0006  |    |
0933 ; --------------------------------------------------------------------------------------
0933 ; Debug chain
0933 ; --------------------------------------------------------------------------------------
0933 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0935 0553 0559  | S Y|		.DBGLNO	0x0553,0x0559,0x0564,0x0567,0x056d,0x0573
093b 0001 0002  |    |		.XXX[0x6]
093d 0005 0003  |    |
093f 0004 0006  |    |
0941 ; --------------------------------------------------------------------------------------
0941 ; Debug chain
0941 ; --------------------------------------------------------------------------------------
0941 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0943 057b 057f  | {  |		.DBGLNO	0x057b,0x057f,0x0589,0x058b,0x059b
0948 ; --------------------------------------------------------------------------------------
0948 ; Debug chain
0948 ; --------------------------------------------------------------------------------------
0948 0000 0005  |    |		.DBGLEN	0x0000,0x0005
094a 05a3 05a7  |    |		.DBGLNO	0x05a3,0x05a7,0x05ab,0x05ad,0x05b7
094f ; --------------------------------------------------------------------------------------
094f ; Debug chain
094f ; --------------------------------------------------------------------------------------
094f 0004 0000  |    |		.DBGLEN	0x0004,0x0000
0951 05c3 05c5  |    |		.DBGLNO	0x05c3,0x05c5,0x05c7,0x05c9
0955 0002 0003  |    |		.XXX[0x4]
0957 0004 0005  |    |
0959 ; --------------------------------------------------------------------------------------
0959 ; Debug chain
0959 ; --------------------------------------------------------------------------------------
0959 0004 0000  |    |		.DBGLEN	0x0004,0x0000
095b 05cc 05ce  |    |		.DBGLNO	0x05cc,0x05ce,0x05d0,0x05d2
095f 0002 0003  |    |		.XXX[0x4]
0961 0004 0005  |    |
0963 ; --------------------------------------------------------------------------------------
0963 ; Debug chain
0963 ; --------------------------------------------------------------------------------------
0963 0000 000a  |    |		.DBGLEN	0x0000,0x000a
0965 05db 05e1  |    |		.DBGLNO	0x05db,0x05e1,0x05ec,0x05ef,0x05f5,0x05fb,0x0601,0x0607,0x060f,0x0615
096f 0001 0002  |    |		.XXX[0xa]
0971 0009 0003  |    |
0973 0004 0005  |    |
0975 0006 0007  |    |
0977 0008 000a  |    |
0979 ; --------------------------------------------------------------------------------------
0979 ; Debug chain
0979 ; --------------------------------------------------------------------------------------
0979 0000 000a  |    |		.DBGLEN	0x0000,0x000a
097b 061b 0621  |   !|		.DBGLNO	0x061b,0x0621,0x062c,0x062f,0x0635,0x063b,0x0641,0x0647,0x064f,0x0655
0985 0001 0002  |    |		.XXX[0xa]
0987 0009 0003  |    |
0989 0004 0005  |    |
098b 0006 0007  |    |
098d 0008 000a  |    |
098f ; --------------------------------------------------------------------------------------
098f ; Debug chain
098f ; --------------------------------------------------------------------------------------
098f 0000 000a  |    |		.DBGLEN	0x0000,0x000a
0991 065b 0661  | [ a|		.DBGLNO	0x065b,0x0661,0x066c,0x066f,0x0675,0x067b,0x0681,0x0687,0x068f,0x0695
099b 0001 0002  |    |		.XXX[0xa]
099d 0009 0003  |    |
099f 0004 0005  |    |
09a1 0006 0007  |    |
09a3 0008 000a  |    |
09a5 ; --------------------------------------------------------------------------------------
09a5 ; Debug chain
09a5 ; --------------------------------------------------------------------------------------
09a5 0000 000a  |    |		.DBGLEN	0x0000,0x000a
09a7 069b 06a1  |    |		.DBGLNO	0x069b,0x06a1,0x06ac,0x06af,0x06b5,0x06bb,0x06c1,0x06c7,0x06cf,0x06d5
09b1 0001 0002  |    |		.XXX[0xa]
09b3 0009 0003  |    |
09b5 0004 0005  |    |
09b7 0006 0007  |    |
09b9 0008 000a  |    |
09bb 0000 0000  |    |		.BLANK	0000[0x45]