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

⟦ffaf6b6ad⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 06b8       |    |		.CONST	0x06b8								; 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 00dc       |    |		.CONST	0x00dc								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003c       | <  |		.CONST	0x003c								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4807       |H   |		Short_Literal	0x7
000d 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,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 0333  |   3|		Declare_Subprogram	INIT_0330,For_Call
0018 00d9       |    |		Load_Top	At_Offset_1
0019 012a       | *  |		Execute	Any,Change_Utility
001a 0007       |    |		Action	Break_Optional
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
001f 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0021 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0023 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0025 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0027 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0029 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
002b 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
002d 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
002f 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0031 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0033 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0035 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0037 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0039 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
003b 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
003d 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
003f 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0041 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0043 4800       |H   |		Short_Literal	0x0
0044 0093 0553  |   S|		push_full_address	INIT_0550
0046 02a0       |    |		Declare_Subprogram	Null_Subprogram
0047 038f       |    |		Declare_Type	Package,Defined,Visible
0048 0386       |    |		Declare_Variable	Package,Visible
0049 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
004b 4804       |H   |		Short_Literal	0x4
004c 0093 03bb  |    |		push_full_address	INIT_03b8
004e 02a0       |    |		Declare_Subprogram	Null_Subprogram
004f 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0050 e002       |    |		Load	0x0,0x2
0051 0129       | )  |		Execute	Any,Make_Visible
0052 e003       |    |		Load	0x0,0x3
0053 0129       | )  |		Execute	Any,Make_Visible
0054 e004       |    |		Load	0x0,0x4
0055 0129       | )  |		Execute	Any,Make_Visible
0056 e005       |    |		Load	0x0,0x5
0057 0129       | )  |		Execute	Any,Make_Visible
0058 e006       |    |		Load	0x0,0x6
0059 0129       | )  |		Execute	Any,Make_Visible
005a e007       |    |		Load	0x0,0x7
005b 0129       | )  |		Execute	Any,Make_Visible
005c e008       |    |		Load	0x0,0x8
005d 0129       | )  |		Execute	Any,Make_Visible
005e e009       |    |		Load	0x0,0x9
005f 0129       | )  |		Execute	Any,Make_Visible
0060 e00a       |    |		Load	0x0,0xa
0061 0129       | )  |		Execute	Any,Make_Visible
0062 e00b       |    |		Load	0x0,0xb
0063 0129       | )  |		Execute	Any,Make_Visible
0064 e00c       |    |		Load	0x0,0xc
0065 0129       | )  |		Execute	Any,Make_Visible
0066 e00d       |    |		Load	0x0,0xd
0067 0129       | )  |		Execute	Any,Make_Visible
0068 e00e       |    |		Load	0x0,0xe
0069 0129       | )  |		Execute	Any,Make_Visible
006a e00f       |    |		Load	0x0,0xf
006b 0129       | )  |		Execute	Any,Make_Visible
006c e010       |    |		Load	0x0,0x10
006d 0129       | )  |		Execute	Any,Make_Visible
006e e011       |    |		Load	0x0,0x11
006f 0129       | )  |		Execute	Any,Make_Visible
0070 e012       |    |		Load	0x0,0x12
0071 0129       | )  |		Execute	Any,Make_Visible
0072 e013       |    |		Load	0x0,0x13
0073 0129       | )  |		Execute	Any,Make_Visible
0074 e014       |    |		Load	0x0,0x14
0075 0129       | )  |		Execute	Any,Make_Visible
0076 e015       |    |		Load	0x0,0x15
0077 0129       | )  |		Execute	Any,Make_Visible
0078 e016       |    |		Load	0x0,0x16
0079 0129       | )  |		Execute	Any,Make_Visible
007a e017       |    |		Load	0x0,0x17
007b 0129       | )  |		Execute	Any,Make_Visible
007c 4801       |H   |		Short_Literal	0x1
007d 00e2       |    |		Load_Encached	Integer_Cache
007e 4801       |H   |		Short_Literal	0x1
007f 00e6       |    |		Load_Encached	Float_Cache
0080 4801       |H   |		Short_Literal	0x1
0081 00e1       |    |		Load_Encached	Boolean_Cache
0082 4801       |H   |		Short_Literal	0x1
0083 00e8       |    |		Load_Encached	Character_Cache
0084 4801       |H   |		Short_Literal	0x1
0085 e018       |    |		Load	0x0,0x18
0086 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0087 4801       |H   |		Short_Literal	0x1
0088 e001       |    |		Load	0x0,0x1
0089 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008a 4801       |H   |		Short_Literal	0x1
008b 00e2       |    |		Load_Encached	Integer_Cache
008c 4801       |H   |		Short_Literal	0x1
008d e018       |    |		Load	0x0,0x18
008e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008f 029f 0333  |   3|		Declare_Subprogram	INIT_0330,For_Call
0091 4808       |H   |		Short_Literal	0x8
0092 4800       |H   |		Short_Literal	0x0
0093 e20e       |    |		Load	0x1,0xe
0094 0307       |    |		Complete_Type	Variant_Record,By_Defining
0095 4801       |H   |		Short_Literal	0x1
0096 e20e       |    |		Load	0x1,0xe
0097 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0098 4801       |H   |		Short_Literal	0x1
0099 00d9       |    |		Load_Top	At_Offset_1
009a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
009b 0129       | )  |		Execute	Any,Make_Visible
009c c20f       |    |		Store	0x1,0xf
009d 4801       |H   |		Short_Literal	0x1
009e e20e       |    |		Load	0x1,0xe
009f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00a0 4800       |H   |		Short_Literal	0x0
00a1 00d9       |    |		Load_Top	At_Offset_1
00a2 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00a3 0129       | )  |		Execute	Any,Make_Visible
00a4 c210       |    |		Store	0x1,0x10
00a5 00bf       |    |		Action	Accept_Activation
00a6 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00c3 00c7       |    |		Action	Elaborate_Subprogram
00c4 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00c5 00c7       |    |		Action	Elaborate_Subprogram
00c6 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00c7 00c7       |    |		Action	Elaborate_Subprogram
00c8 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00c9 00c7       |    |		Action	Elaborate_Subprogram
00ca 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00cb 00c7       |    |		Action	Elaborate_Subprogram
00cc 00b6       |    |		Action	Make_Scope
00cd e018       |    |		Load	0x0,0x18
00ce 4802       |H   |		Short_Literal	0x2
00cf e224       | $  |		Load	0x1,0x24
00d0 020e       |    |		Execute	Module,Augment_Imports
00d1 e224       | $  |		Load	0x1,0x24
00d2 020f       |    |		Execute	Module,Activate
00d3 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00d4 00c7       |    |		Action	Elaborate_Subprogram
00d5 00b6       |    |		Action	Make_Scope
00d6 e018       |    |		Load	0x0,0x18
00d7 4802       |H   |		Short_Literal	0x2
00d8 e226       | &  |		Load	0x1,0x26
00d9 020e       |    |		Execute	Module,Augment_Imports
00da e226       | &  |		Load	0x1,0x26
00db 020d       |    |		Execute	Module,Elaborate
00dc			BODY_0008:
00dc 00bc       |    |		Action	Signal_Activated
00dd 00bb       |    |		Action	Signal_Completion
00de 0000 0000  |    |		.XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4607       |F   |		Jump_Case	0x8
00e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00e5 7806       |x   |		Jump	0xec								; case 0x1
00e6 7809       |x   |		Jump	0xf0								; case 0x2
00e7 780d       |x   |		Jump	0xf5								; case 0x3
00e8 7810       |x   |		Jump	0xf9								; case 0x4
00e9 7811       |x   |		Jump	0xfb								; case 0x5
00ea 7812       |x   |		Jump	0xfd								; case 0x6
00eb 7815       |x   |		Jump	0x101								; case 0x7
00ec 00da       |    |		Load_Top	At_Offset_2
00ed 0091 0668  |   h|		Action	Push_String_Extended_Indexed,0x668				; "INTEGER_VALUE"
00ef 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f0 00db       |    |		Load_Top	At_Offset_3
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 00e0       |    |		Load_Encached	Standard_Cache
00f3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 00e0       |    |		Load_Encached	Standard_Cache
00f7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fd e20d       |    |		Load	0x1,0xd
00fe 00dc       |    |		Load_Top	At_Offset_4
00ff 0267       | g  |		Execute	Discrete,Predecessor
0100 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0101 e20d       |    |		Load	0x1,0xd
0102 00dc       |    |		Load_Top	At_Offset_4
0103 0268       | h  |		Execute	Discrete,Successor
0104 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4800       |H   |		Short_Literal	0x0
010c e20e       |    |		Load	0x1,0xe
010d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
010e 00db       |    |		Load_Top	At_Offset_3
010f 00d9       |    |		Load_Top	At_Offset_1
0110 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0111 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0112 0000 0000  |    |		.BLANK	0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 4802       |H   |		Short_Literal	0x2
011c e20e       |    |		Load	0x1,0xe
011d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
011e 00db       |    |		Load_Top	At_Offset_3
011f 00d9       |    |		Load_Top	At_Offset_1
0120 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0121 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0122 0000 0000  |    |		.BLANK	0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 4801       |H   |		Short_Literal	0x1
012c e20e       |    |		Load	0x1,0xe
012d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
012e 00db       |    |		Load_Top	At_Offset_3
012f 00d9       |    |		Load_Top	At_Offset_1
0130 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0131 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0132 0000 0000  |    |		.BLANK	0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 4803       |H   |		Short_Literal	0x3
013c e20e       |    |		Load	0x1,0xe
013d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
013e 00db       |    |		Load_Top	At_Offset_3
013f 00d9       |    |		Load_Top	At_Offset_1
0140 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0141 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0142 0000 0000  |    |		.BLANK	0000[0x6]
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 4804       |H   |		Short_Literal	0x4
014c e20e       |    |		Load	0x1,0xe
014d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
014e 00db       |    |		Load_Top	At_Offset_3
014f e018       |    |		Load	0x0,0x18
0150 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0151 00d9       |    |		Load_Top	At_Offset_1
0152 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0153 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0154 0000 0000  |    |		.BLANK	0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4807       |H   |		Short_Literal	0x7
015c e20e       |    |		Load	0x1,0xe
015d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
015e 00db       |    |		Load_Top	At_Offset_3
015f 00d9       |    |		Load_Top	At_Offset_1
0160 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0161 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
016d 4607       |F   |		Jump_Case	0x8
016e 7809       |x   |		Jump	0x178								; case 0x0
016f 780b       |x   |		Jump	0x17b								; case 0x1
0170 7815       |x   |		Jump	0x186								; case 0x2
0171 7804       |x   |		Jump	0x176								; case 0x3
0172 7803       |x   |		Jump	0x176								; case 0x4
0173 7802       |x   |		Jump	0x176								; case 0x5
0174 780e       |x   |		Jump	0x183								; case 0x6
0175 7800       |x   |		Jump	0x176								; case 0x7
0176 e227       | '  |		Load	0x1,0x27
0177 0257       | W  |		Execute	Discrete,Raise
0178 00da       |    |		Load_Top	At_Offset_2
0179 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
017a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017b 00da       |    |		Load_Top	At_Offset_2
017c 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
017d 00d8       |    |		Load_Top	At_Offset_0
017e 00e2       |    |		Load_Encached	Integer_Cache
017f 0260       | `  |		Execute	Discrete,In_Type
0180 7001       |p   |		Jump_Nonzero	0x182
0181 0801       |    |		Execute_Immediate	Raise,0x1
0182 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0183 00da       |    |		Load_Top	At_Offset_2
0184 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0185 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0186 00da       |    |		Load_Top	At_Offset_2
0187 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0188 0235       | 5  |		Execute	Float,Round_To_Discrete
0189 00e2       |    |		Load_Encached	Integer_Cache
018a 025e       | ^  |		Execute	Discrete,Convert
018b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018c 0000 0000  |    |		.BLANK	0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0195 0f01       |    |		Execute_Immediate	Equal,0x1
0196 7002       |p   |		Jump_Nonzero	0x199
0197 e228       | (  |		Load	0x1,0x28
0198 0257       | W  |		Execute	Discrete,Raise
0199 00da       |    |		Load_Top	At_Offset_2
019a 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
019b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019c 0000 0000  |    |		.BLANK	0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01a5 4607       |F   |		Jump_Case	0x8
01a6 780c       |x   |		Jump	0x1b3								; case 0x0
01a7 780f       |x   |		Jump	0x1b7								; case 0x1
01a8 7807       |x   |		Jump	0x1b0								; case 0x2
01a9 7804       |x   |		Jump	0x1ae								; case 0x3
01aa 7803       |x   |		Jump	0x1ae								; case 0x4
01ab 7802       |x   |		Jump	0x1ae								; case 0x5
01ac 780e       |x   |		Jump	0x1bb								; case 0x6
01ad 7800       |x   |		Jump	0x1ae								; case 0x7
01ae e229       | )  |		Load	0x1,0x29
01af 0257       | W  |		Execute	Discrete,Raise
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01b5 0237       | 7  |		Execute	Float,Convert_From_Discrete
01b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b7 00da       |    |		Load_Top	At_Offset_2
01b8 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01b9 0237       | 7  |		Execute	Float,Convert_From_Discrete
01ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bb 00da       |    |		Load_Top	At_Offset_2
01bc 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
01bd 0237       | 7  |		Execute	Float,Convert_From_Discrete
01be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bf 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
01c4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01c5 4607       |F   |		Jump_Case	0x8
01c6 7807       |x   |		Jump	0x1ce								; case 0x0
01c7 7806       |x   |		Jump	0x1ce								; case 0x1
01c8 7805       |x   |		Jump	0x1ce								; case 0x2
01c9 7806       |x   |		Jump	0x1d0								; case 0x3
01ca 7808       |x   |		Jump	0x1d3								; case 0x4
01cb 7802       |x   |		Jump	0x1ce								; case 0x5
01cc 7801       |x   |		Jump	0x1ce								; case 0x6
01cd 7800       |x   |		Jump	0x1ce								; case 0x7
01ce e22a       | *  |		Load	0x1,0x2a
01cf 0257       | W  |		Execute	Discrete,Raise
01d0 00da       |    |		Load_Top	At_Offset_2
01d1 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01d5 e018       |    |		Load	0x0,0x18
01d6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01d7 01db       |    |		Execute	Vector,Length
01d8 0f01       |    |		Execute_Immediate	Equal,0x1
01d9 6807       |h   |		Jump_Zero	0x1e1
01da 4801       |H   |		Short_Literal	0x1
01db 00db       |    |		Load_Top	At_Offset_3
01dc 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01dd e018       |    |		Load	0x0,0x18
01de 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01df 01d7       |    |		Execute	Vector,Field_Read
01e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e1 e22a       | *  |		Load	0x1,0x2a
01e2 0257       | W  |		Execute	Discrete,Raise
01e3 0000 0000  |    |		.BLANK	0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00da       |    |		Load_Top	At_Offset_2
01ec 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ed 4607       |F   |		Jump_Case	0x8
01ee 7813       |x   |		Jump	0x202								; case 0x0
01ef 7821       |x!  |		Jump	0x211								; case 0x1
01f0 7805       |x   |		Jump	0x1f6								; case 0x2
01f1 780b       |x   |		Jump	0x1fd								; case 0x3
01f2 7805       |x   |		Jump	0x1f8								; case 0x4
01f3 7818       |x   |		Jump	0x20c								; case 0x5
01f4 7812       |x   |		Jump	0x207								; case 0x6
01f5 7800       |x   |		Jump	0x1f6								; case 0x7
01f6 e22b       | +  |		Load	0x1,0x2b
01f7 0257       | W  |		Execute	Discrete,Raise
01f8 00da       |    |		Load_Top	At_Offset_2
01f9 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01fa e018       |    |		Load	0x0,0x18
01fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01ff 00ea       |    |		Load_Encached	Null_String_Cache
0200 01cb       |    |		Execute	Vector,Append
0201 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0202 00da       |    |		Load_Top	At_Offset_2
0203 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0204 00e0       |    |		Load_Encached	Standard_Cache
0205 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0206 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0207 00da       |    |		Load_Top	At_Offset_2
0208 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0209 00e0       |    |		Load_Encached	Standard_Cache
020a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
020b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020c 00da       |    |		Load_Top	At_Offset_2
020d 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
020e e018       |    |		Load	0x0,0x18
020f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0210 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0211 00da       |    |		Load_Top	At_Offset_2
0212 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0213 00e1       |    |		Load_Encached	Boolean_Cache
0214 011c       |    |		Execute	Any,Convert_Unchecked
0215 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0216 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0217 0000       |    |		.XXX[0x1]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
021d 0f07       |    |		Execute_Immediate	Equal,0x7
021e 6805       |h   |		Jump_Zero	0x224
021f 00da       |    |		Load_Top	At_Offset_2
0220 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0221 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0222 00cd       |    |		Action	Spare6_Action
0223 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0224 e22c       | ,  |		Load	0x1,0x2c
0225 0257       | W  |		Execute	Discrete,Raise
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022d       | -  |		.CONST	0x022d								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b 00e1       |    |		Load_Encached	Boolean_Cache
022c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
022d			BODY_0228:
022d e5fd       |    |		Load	0x2,-0x3
022e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
022f 4607       |F   |		Jump_Case	0x8
0230 780b       |x   |		Jump	0x23c								; case 0x0
0231 780f       |x   |		Jump	0x241								; case 0x1
0232 780e       |x   |		Jump	0x241								; case 0x2
0233 780d       |x   |		Jump	0x241								; case 0x3
0234 780c       |x   |		Jump	0x241								; case 0x4
0235 780b       |x   |		Jump	0x241								; case 0x5
0236 7801       |x   |		Jump	0x238								; case 0x6
0237 7809       |x   |		Jump	0x241								; case 0x7
0238 00db       |    |		Load_Top	At_Offset_3
0239 e5fd       |    |		Load	0x2,-0x3
023a 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
023b 7805       |x   |		Jump	0x241
023c 00db       |    |		Load_Top	At_Offset_3
023d e5fd       |    |		Load	0x2,-0x3
023e 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
023f 4801       |H   |		Short_Literal	0x1
0240 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0241 00d8       |    |		Load_Top	At_Offset_0
0242 700c       |p   |		Jump_Nonzero	0x24f
0243 e5fe       |    |		Load	0x2,-0x2
0244 680a       |h   |		Jump_Zero	0x24f
0245 4800       |H   |		Short_Literal	0x0
0246 e20e       |    |		Load	0x1,0xe
0247 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0248 e5ff       |    |		Load	0x2,-0x1
0249 00d9       |    |		Load_Top	At_Offset_1
024a 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
024b e5fd       |    |		Load	0x2,-0x3
024c 016d       | m  |		Execute	Variant_Record,Structure_Write
024d 4801       |H   |		Short_Literal	0x1
024e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
024f 00d8       |    |		Load_Top	At_Offset_0
0250 7002       |p   |		Jump_Nonzero	0x253
0251 e22d       | -  |		Load	0x1,0x2d
0252 0257       | W  |		Execute	Discrete,Raise
0253 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0254 0000 0000  |    |		.BLANK	0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b e5fd       |    |		Load	0x2,-0x3
025c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
025d 0f01       |    |		Execute_Immediate	Equal,0x1
025e 6804       |h   |		Jump_Zero	0x263
025f 00da       |    |		Load_Top	At_Offset_2
0260 e5fd       |    |		Load	0x2,-0x3
0261 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0262 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0263 00db       |    |		Load_Top	At_Offset_3
0264 6809       |h   |		Jump_Zero	0x26e
0265 4801       |H   |		Short_Literal	0x1
0266 e20e       |    |		Load	0x1,0xe
0267 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0268 00db       |    |		Load_Top	At_Offset_3
0269 00d9       |    |		Load_Top	At_Offset_1
026a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
026b e5fd       |    |		Load	0x2,-0x3
026c 016d       | m  |		Execute	Variant_Record,Structure_Write
026d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
026e e22e       | .  |		Load	0x1,0x2e
026f 0257       | W  |		Execute	Discrete,Raise
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 e5fd       |    |		Load	0x2,-0x3
0274 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0275 0f02       |    |		Execute_Immediate	Equal,0x2
0276 6804       |h   |		Jump_Zero	0x27b
0277 00da       |    |		Load_Top	At_Offset_2
0278 e5fd       |    |		Load	0x2,-0x3
0279 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
027a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
027b 00db       |    |		Load_Top	At_Offset_3
027c 6809       |h   |		Jump_Zero	0x286
027d 4802       |H   |		Short_Literal	0x2
027e e20e       |    |		Load	0x1,0xe
027f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0280 00db       |    |		Load_Top	At_Offset_3
0281 00d9       |    |		Load_Top	At_Offset_1
0282 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0283 e5fd       |    |		Load	0x2,-0x3
0284 016d       | m  |		Execute	Variant_Record,Structure_Write
0285 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0286 e22f       | /  |		Load	0x1,0x2f
0287 0257       | W  |		Execute	Discrete,Raise
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b e5fd       |    |		Load	0x2,-0x3
028c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
028d 0f03       |    |		Execute_Immediate	Equal,0x3
028e 6804       |h   |		Jump_Zero	0x293
028f 00da       |    |		Load_Top	At_Offset_2
0290 e5fd       |    |		Load	0x2,-0x3
0291 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0292 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0293 e5fd       |    |		Load	0x2,-0x3
0294 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0295 0f04       |    |		Execute_Immediate	Equal,0x4
0296 6808       |h   |		Jump_Zero	0x29f
0297 00da       |    |		Load_Top	At_Offset_2
0298 00ea       |    |		Load_Encached	Null_String_Cache
0299 01cb       |    |		Execute	Vector,Append
029a e018       |    |		Load	0x0,0x18
029b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
029c e5fd       |    |		Load	0x2,-0x3
029d 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
029e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
029f 00db       |    |		Load_Top	At_Offset_3
02a0 6809       |h   |		Jump_Zero	0x2aa
02a1 4803       |H   |		Short_Literal	0x3
02a2 e20e       |    |		Load	0x1,0xe
02a3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 00d9       |    |		Load_Top	At_Offset_1
02a6 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
02a7 e5fd       |    |		Load	0x2,-0x3
02a8 016d       | m  |		Execute	Variant_Record,Structure_Write
02a9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02aa e230       | 0  |		Load	0x1,0x30
02ab 0257       | W  |		Execute	Discrete,Raise
02ac 0000 0000  |    |		.BLANK	0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 e5fd       |    |		Load	0x2,-0x3
02b4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02b5 0f04       |    |		Execute_Immediate	Equal,0x4
02b6 6806       |h   |		Jump_Zero	0x2bd
02b7 00da       |    |		Load_Top	At_Offset_2
02b8 e018       |    |		Load	0x0,0x18
02b9 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02ba e5fd       |    |		Load	0x2,-0x3
02bb 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02bc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02bd 00db       |    |		Load_Top	At_Offset_3
02be 680b       |h   |		Jump_Zero	0x2ca
02bf 4804       |H   |		Short_Literal	0x4
02c0 e20e       |    |		Load	0x1,0xe
02c1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 e018       |    |		Load	0x0,0x18
02c4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02c5 00d9       |    |		Load_Top	At_Offset_1
02c6 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02c7 e5fd       |    |		Load	0x2,-0x3
02c8 016d       | m  |		Execute	Variant_Record,Structure_Write
02c9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02ca e231       | 1  |		Load	0x1,0x31
02cb 0257       | W  |		Execute	Discrete,Raise
02cc 0000 0000  |    |		.BLANK	0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 e5fd       |    |		Load	0x2,-0x3
02d4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02d5 0f07       |    |		Execute_Immediate	Equal,0x7
02d6 6804       |h   |		Jump_Zero	0x2db
02d7 00da       |    |		Load_Top	At_Offset_2
02d8 e5fd       |    |		Load	0x2,-0x3
02d9 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
02da 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02db 00db       |    |		Load_Top	At_Offset_3
02dc 6809       |h   |		Jump_Zero	0x2e6
02dd 4807       |H   |		Short_Literal	0x7
02de e20e       |    |		Load	0x1,0xe
02df 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02e0 00db       |    |		Load_Top	At_Offset_3
02e1 00d9       |    |		Load_Top	At_Offset_1
02e2 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
02e3 e5fd       |    |		Load	0x2,-0x3
02e4 016d       | m  |		Execute	Variant_Record,Structure_Write
02e5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e6 e232       | 2  |		Load	0x1,0x32
02e7 0257       | W  |		Execute	Discrete,Raise
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02ed e5fe       |    |		Load	0x2,-0x2
02ee 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02ef 027f       |    |		Execute	Discrete,Equal
02f0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f1 0000 0000  |    |		.BLANK	0000[0x7]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02fd 4607       |F   |		Jump_Case	0x8
02fe 780c       |x   |		Jump	0x30b								; case 0x0
02ff 7814       |x   |		Jump	0x314								; case 0x1
0300 780f       |x   |		Jump	0x310								; case 0x2
0301 7818       |x   |		Jump	0x31a								; case 0x3
0302 781d       |x   |		Jump	0x320								; case 0x4
0303 7821       |x!  |		Jump	0x325								; case 0x5
0304 7825       |x%  |		Jump	0x32a								; case 0x6
0305 7800       |x   |		Jump	0x306								; case 0x7
0306 00da       |    |		Load_Top	At_Offset_2
0307 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0308 e001       |    |		Load	0x0,0x1
0309 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
030a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
030b 00da       |    |		Load_Top	At_Offset_2
030c 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
030d 00e0       |    |		Load_Encached	Standard_Cache
030e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
030f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0310 00da       |    |		Load_Top	At_Offset_2
0311 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0312 8019       |    |		Call	0x0,0x19
0313 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0314 00da       |    |		Load_Top	At_Offset_2
0315 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0316 00e1       |    |		Load_Encached	Boolean_Cache
0317 011c       |    |		Execute	Any,Convert_Unchecked
0318 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0319 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031a 00da       |    |		Load_Top	At_Offset_2
031b 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
031c 00e8       |    |		Load_Encached	Character_Cache
031d 011c       |    |		Execute	Any,Convert_Unchecked
031e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
031f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0320 00da       |    |		Load_Top	At_Offset_2
0321 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0322 e018       |    |		Load	0x0,0x18
0323 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0324 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0325 00da       |    |		Load_Top	At_Offset_2
0326 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0327 e018       |    |		Load	0x0,0x18
0328 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0329 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032a 00da       |    |		Load_Top	At_Offset_2
032b 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
032c 00e0       |    |		Load_Encached	Standard_Cache
032d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
032e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032f 0000       |    |		.XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			BODY_0330:
0333			INIT_0330:
0333			INIT_0330:
0333 4608       |F   |		Jump_Case	0x9
0334 7808       |x   |		Jump	0x33d								; case 0x0
0335 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0336 7876       |xv  |		Jump	0x3ad								; case 0x2
0337 7875       |xu  |		Jump	0x3ad								; case 0x3
0338 7874       |xt  |		Jump	0x3ad								; case 0x4
0339 7873       |xs  |		Jump	0x3ad								; case 0x5
033a 7834       |x4  |		Jump	0x36f								; case 0x6
033b 784d       |xM  |		Jump	0x389								; case 0x7
033c 7869       |xi  |		Jump	0x3a6								; case 0x8
033d 00da       |    |		Load_Top	At_Offset_2
033e 016c       | l  |		Execute	Variant_Record,Is_Constrained
033f 7009       |p   |		Jump_Nonzero	0x349
0340 00cf       |    |		Action	Mark_Auxiliary
0341 4800       |H   |		Short_Literal	0x0
0342 e5ff       |    |		Load	0x2,-0x1
0343 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0344 00d8       |    |		Load_Top	At_Offset_0
0345 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0346 c5ff       |    |		Store	0x2,-0x1
0347 00ce       |    |		Action	Pop_Auxiliary
0348 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0349 00da       |    |		Load_Top	At_Offset_2
034a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
034b 4607       |F   |		Jump_Case	0x8
034c 780e       |x   |		Jump	0x35b								; case 0x0
034d 7815       |x   |		Jump	0x363								; case 0x1
034e 7810       |x   |		Jump	0x35f								; case 0x2
034f 7817       |x   |		Jump	0x367								; case 0x3
0350 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0351 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0352 7818       |x   |		Jump	0x36b								; case 0x6
0353 7800       |x   |		Jump	0x354								; case 0x7
0354 00da       |    |		Load_Top	At_Offset_2
0355 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
0356 e001       |    |		Load	0x0,0x1
0357 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0358 00db       |    |		Load_Top	At_Offset_3
0359 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
035a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
035b 4800       |H   |		Short_Literal	0x0
035c 00db       |    |		Load_Top	At_Offset_3
035d 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
035e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
035f 5850       |XP  |		Indirect_Literal	Float,0x3b0,0.0
0360 00db       |    |		Load_Top	At_Offset_3
0361 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0362 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0363 4800       |H   |		Short_Literal	0x0
0364 00db       |    |		Load_Top	At_Offset_3
0365 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0366 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0367 4800       |H   |		Short_Literal	0x0
0368 00db       |    |		Load_Top	At_Offset_3
0369 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
036a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
036b 4800       |H   |		Short_Literal	0x0
036c 00db       |    |		Load_Top	At_Offset_3
036d 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
036e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
036f 00db       |    |		Load_Top	At_Offset_3
0370 4607       |F   |		Jump_Case	0x8
0371 7809       |x   |		Jump	0x37b								; case 0x0
0372 780c       |x   |		Jump	0x37f								; case 0x1
0373 7809       |x   |		Jump	0x37d								; case 0x2
0374 780c       |x   |		Jump	0x381								; case 0x3
0375 780d       |x   |		Jump	0x383								; case 0x4
0376 7810       |x   |		Jump	0x387								; case 0x5
0377 780d       |x   |		Jump	0x385								; case 0x6
0378 7800       |x   |		Jump	0x379								; case 0x7
0379 4806       |H   |		Short_Literal	0x6
037a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
037b 4801       |H   |		Short_Literal	0x1
037c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
037d 4802       |H   |		Short_Literal	0x2
037e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
037f 4803       |H   |		Short_Literal	0x3
0380 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0381 4804       |H   |		Short_Literal	0x4
0382 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0383 4805       |H   |		Short_Literal	0x5
0384 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0385 4807       |H   |		Short_Literal	0x7
0386 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0387 4808       |H   |		Short_Literal	0x8
0388 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0389 00db       |    |		Load_Top	At_Offset_3
038a e5fe       |    |		Load	0x2,-0x2
038b 4607       |F   |		Jump_Case	0x8
038c 7809       |x   |		Jump	0x396								; case 0x0
038d 780c       |x   |		Jump	0x39a								; case 0x1
038e 7809       |x   |		Jump	0x398								; case 0x2
038f 780c       |x   |		Jump	0x39c								; case 0x3
0390 780d       |x   |		Jump	0x39e								; case 0x4
0391 7810       |x   |		Jump	0x3a2								; case 0x5
0392 780d       |x   |		Jump	0x3a0								; case 0x6
0393 7800       |x   |		Jump	0x394								; case 0x7
0394 4806       |H   |		Short_Literal	0x6
0395 780d       |x   |		Jump	0x3a3
0396 4801       |H   |		Short_Literal	0x1
0397 780b       |x   |		Jump	0x3a3
0398 4802       |H   |		Short_Literal	0x2
0399 7809       |x   |		Jump	0x3a3
039a 4803       |H   |		Short_Literal	0x3
039b 7807       |x   |		Jump	0x3a3
039c 4804       |H   |		Short_Literal	0x4
039d 7805       |x   |		Jump	0x3a3
039e 4805       |H   |		Short_Literal	0x5
039f 7803       |x   |		Jump	0x3a3
03a0 4807       |H   |		Short_Literal	0x7
03a1 7801       |x   |		Jump	0x3a3
03a2 4808       |H   |		Short_Literal	0x8
03a3 e5ff       |    |		Load	0x2,-0x1
03a4 031b       |    |		Declare_Type	Variant_Record,Constrained
03a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03a6 00db       |    |		Load_Top	At_Offset_3
03a7 e5fe       |    |		Load	0x2,-0x2
03a8 e5ff       |    |		Load	0x2,-0x1
03a9 1c06       |    |		Execute_Immediate	Run_Utility,0x6
03aa e5ff       |    |		Load	0x2,-0x1
03ab 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
03ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ad 0869       | i  |		Execute_Immediate	Raise,0x69
03ae 0000 0000  |    |		.XXX[0x2]
03b0 0000 0000  |    |		.DBL	0.0
03b2 0000 0000  |    |
03b4 0000 0000  |    |		.BLANK	0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03e0       |    |		.CONST	0x03e0								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0019       |    |		.CONST	0x0019								; Number of locals
03bb			INIT_03b8:
03bb 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
03bd 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
03bf 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
03c1 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
03c3 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
03c5 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
03c7 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
03c9 029a 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call,Visible,Unelaborated
03cb 029a 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call,Visible,Unelaborated
03cd 00bf       |    |		Action	Accept_Activation
03ce 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
03cf 00c7       |    |		Action	Elaborate_Subprogram
03d0 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
03d1 00c7       |    |		Action	Elaborate_Subprogram
03d2 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
03d3 00c7       |    |		Action	Elaborate_Subprogram
03d4 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
03d5 00c7       |    |		Action	Elaborate_Subprogram
03d6 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
03d7 00c7       |    |		Action	Elaborate_Subprogram
03d8 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
03d9 00c7       |    |		Action	Elaborate_Subprogram
03da 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
03db 00c7       |    |		Action	Elaborate_Subprogram
03dc 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
03dd 00c7       |    |		Action	Elaborate_Subprogram
03de 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
03df 00c7       |    |		Action	Elaborate_Subprogram
03e0			BODY_03b8:
03e0 00bc       |    |		Action	Signal_Activated
03e1 00bb       |    |		Action	Signal_Completion
03e2 0000 0000  |    |		.BLANK	0000[0x6]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb e20f       |    |		Load	0x1,0xf
03ec 680e       |h   |		Jump_Zero	0x3fb
03ed 4805       |H   |		Short_Literal	0x5
03ee e001       |    |		Load	0x0,0x1
03ef 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03f0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
03f1 00db       |    |		Load_Top	At_Offset_3
03f2 e210       |    |		Load	0x1,0x10
03f3 0122       | "  |		Execute	Any,Make_Root_Type
03f4 011c       |    |		Execute	Any,Convert_Unchecked
03f5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03f6 e002       |    |		Load	0x0,0x2
03f7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03f8 00d9       |    |		Load_Top	At_Offset_1
03f9 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
03fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03fb 4806       |H   |		Short_Literal	0x6
03fc e001       |    |		Load	0x0,0x1
03fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03fe 1c08       |    |		Execute_Immediate	Run_Utility,0x8
03ff 00db       |    |		Load_Top	At_Offset_3
0400 00d9       |    |		Load_Top	At_Offset_1
0401 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0402 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0403 0000 0000  |    |		.BLANK	0000[0x5]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 00da       |    |		Load_Top	At_Offset_2
040c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
040d 0f05       |    |		Execute_Immediate	Equal,0x5
040e 680d       |h   |		Jump_Zero	0x41c
040f 00da       |    |		Load_Top	At_Offset_2
0410 2e09       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0411 e002       |    |		Load	0x0,0x2
0412 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0413 e210       |    |		Load	0x1,0x10
0414 0122       | "  |		Execute	Any,Make_Root_Type
0415 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0416 00d8       |    |		Load_Top	At_Offset_0
0417 e210       |    |		Load	0x1,0x10
0418 0260       | `  |		Execute	Discrete,In_Type
0419 7001       |p   |		Jump_Nonzero	0x41b
041a 0801       |    |		Execute_Immediate	Raise,0x1
041b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
041c 00da       |    |		Load_Top	At_Offset_2
041d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
041e 0f06       |    |		Execute_Immediate	Equal,0x6
041f 680e       |h   |		Jump_Zero	0x42e
0420 00da       |    |		Load_Top	At_Offset_2
0421 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0422 00d8       |    |		Load_Top	At_Offset_0
0423 e210       |    |		Load	0x1,0x10
0424 0122       | "  |		Execute	Any,Make_Root_Type
0425 0260       | `  |		Execute	Discrete,In_Type
0426 7001       |p   |		Jump_Nonzero	0x428
0427 0801       |    |		Execute_Immediate	Raise,0x1
0428 00d8       |    |		Load_Top	At_Offset_0
0429 e210       |    |		Load	0x1,0x10
042a 0260       | `  |		Execute	Discrete,In_Type
042b 7001       |p   |		Jump_Nonzero	0x42d
042c 0801       |    |		Execute_Immediate	Raise,0x1
042d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042e e001       |    |		Load	0x0,0x1
042f 1b37       | 7  |		Execute	Package,Field_Read,Field_Number 0x37
0430 0257       | W  |		Execute	Discrete,Raise
0431 0000 0000  |    |		.BLANK	0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043f       | ?  |		.CONST	0x043f								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0003       |    |		.CONST	0x0003								; Number of locals
043b			INIT_0438:
043b 029f 050b  |    |		Declare_Subprogram	INIT_0508,For_Call
043d 029f 0533  |   3|		Declare_Subprogram	INIT_0530,For_Call
043f			BODY_0438:
043f e20f       |    |		Load	0x1,0xf
0440 6802       |h   |		Jump_Zero	0x443
0441 8402       |    |		Call	0x2,0x2
0442 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0443 8403       |    |		Call	0x2,0x3
0444 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0445 0000 0000  |    |		.XXX[0x3]
0447 0000       |    |
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 00da       |    |		Load_Top	At_Offset_2
044c 8212       |    |		Call	0x1,0x12
044d e210       |    |		Load	0x1,0x10
044e 0122       | "  |		Execute	Any,Make_Root_Type
044f 011c       |    |		Execute	Any,Convert_Unchecked
0450 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0451 e002       |    |		Load	0x0,0x2
0452 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0453 e002       |    |		Load	0x0,0x2
0454 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0455 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0456 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
045c e210       |    |		Load	0x1,0x10
045d 0122       | "  |		Execute	Any,Make_Root_Type
045e 011c       |    |		Execute	Any,Convert_Unchecked
045f 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0460 e002       |    |		Load	0x0,0x2
0461 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0462 e002       |    |		Load	0x0,0x2
0463 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0464 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0465 0000 0000  |    |		.XXX[0x3]
0467 0000       |    |
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b 00da       |    |		Load_Top	At_Offset_2
046c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
046d e5fe       |    |		Load	0x2,-0x2
046e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
046f 027f       |    |		Execute	Discrete,Equal
0470 681a       |h   |		Jump_Zero	0x48b
0471 00da       |    |		Load_Top	At_Offset_2
0472 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0473 4607       |F   |		Jump_Case	0x8
0474 7807       |x   |		Jump	0x47c								; case 0x0
0475 7806       |x   |		Jump	0x47c								; case 0x1
0476 7805       |x   |		Jump	0x47c								; case 0x2
0477 7804       |x   |		Jump	0x47c								; case 0x3
0478 7803       |x   |		Jump	0x47c								; case 0x4
0479 780b       |x   |		Jump	0x485								; case 0x5
047a 7804       |x   |		Jump	0x47f								; case 0x6
047b 7800       |x   |		Jump	0x47c								; case 0x7
047c e001       |    |		Load	0x0,0x1
047d 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
047e 0257       | W  |		Execute	Discrete,Raise
047f 00da       |    |		Load_Top	At_Offset_2
0480 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0481 e5fe       |    |		Load	0x2,-0x2
0482 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0483 027c       | |  |		Execute	Discrete,Less
0484 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0485 00da       |    |		Load_Top	At_Offset_2
0486 8212       |    |		Call	0x1,0x12
0487 e5fe       |    |		Load	0x2,-0x2
0488 8212       |    |		Call	0x1,0x12
0489 027c       | |  |		Execute	Discrete,Less
048a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
048b e001       |    |		Load	0x0,0x1
048c 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
048d 0257       | W  |		Execute	Discrete,Raise
048e 0000 0000  |    |		.XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 00da       |    |		Load_Top	At_Offset_2
0494 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0495 e5fe       |    |		Load	0x2,-0x2
0496 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0497 027f       |    |		Execute	Discrete,Equal
0498 681a       |h   |		Jump_Zero	0x4b3
0499 00da       |    |		Load_Top	At_Offset_2
049a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
049b 4607       |F   |		Jump_Case	0x8
049c 7807       |x   |		Jump	0x4a4								; case 0x0
049d 7806       |x   |		Jump	0x4a4								; case 0x1
049e 7805       |x   |		Jump	0x4a4								; case 0x2
049f 7804       |x   |		Jump	0x4a4								; case 0x3
04a0 7803       |x   |		Jump	0x4a4								; case 0x4
04a1 780b       |x   |		Jump	0x4ad								; case 0x5
04a2 7804       |x   |		Jump	0x4a7								; case 0x6
04a3 7800       |x   |		Jump	0x4a4								; case 0x7
04a4 e001       |    |		Load	0x0,0x1
04a5 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
04a6 0257       | W  |		Execute	Discrete,Raise
04a7 00da       |    |		Load_Top	At_Offset_2
04a8 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04a9 e5fe       |    |		Load	0x2,-0x2
04aa 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04ab 027a       | z  |		Execute	Discrete,Less_Equal
04ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04ad 00da       |    |		Load_Top	At_Offset_2
04ae 8212       |    |		Call	0x1,0x12
04af e5fe       |    |		Load	0x2,-0x2
04b0 8212       |    |		Call	0x1,0x12
04b1 027a       | z  |		Execute	Discrete,Less_Equal
04b2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04b3 e001       |    |		Load	0x0,0x1
04b4 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
04b5 0257       | W  |		Execute	Discrete,Raise
04b6 0000 0000  |    |		.XXX[0x2]
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 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04bd e5fe       |    |		Load	0x2,-0x2
04be 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04bf 027f       |    |		Execute	Discrete,Equal
04c0 681a       |h   |		Jump_Zero	0x4db
04c1 00da       |    |		Load_Top	At_Offset_2
04c2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04c3 4607       |F   |		Jump_Case	0x8
04c4 7807       |x   |		Jump	0x4cc								; case 0x0
04c5 7806       |x   |		Jump	0x4cc								; case 0x1
04c6 7805       |x   |		Jump	0x4cc								; case 0x2
04c7 7804       |x   |		Jump	0x4cc								; case 0x3
04c8 7803       |x   |		Jump	0x4cc								; case 0x4
04c9 780b       |x   |		Jump	0x4d5								; case 0x5
04ca 7804       |x   |		Jump	0x4cf								; case 0x6
04cb 7800       |x   |		Jump	0x4cc								; case 0x7
04cc e001       |    |		Load	0x0,0x1
04cd 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
04ce 0257       | W  |		Execute	Discrete,Raise
04cf 00da       |    |		Load_Top	At_Offset_2
04d0 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04d1 e5fe       |    |		Load	0x2,-0x2
04d2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04d3 027d       | }  |		Execute	Discrete,Greater
04d4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04d5 00da       |    |		Load_Top	At_Offset_2
04d6 8212       |    |		Call	0x1,0x12
04d7 e5fe       |    |		Load	0x2,-0x2
04d8 8212       |    |		Call	0x1,0x12
04d9 027d       | }  |		Execute	Discrete,Greater
04da 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04db e001       |    |		Load	0x0,0x1
04dc 1b3b       | ;  |		Execute	Package,Field_Read,Field_Number 0x3b
04dd 0257       | W  |		Execute	Discrete,Raise
04de 0000 0000  |    |		.XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3       |    |		.CONST	0x04e3								; Address of begin
04e1 0004       |    |		.CONST	0x0004								; Address of exception handler
04e2 0001       |    |		.CONST	0x0001								; Number of locals
04e3			BODY_04e0:
04e3			INIT_04e0:
04e3 00da       |    |		Load_Top	At_Offset_2
04e4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04e5 e5fe       |    |		Load	0x2,-0x2
04e6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04e7 027f       |    |		Execute	Discrete,Equal
04e8 681a       |h   |		Jump_Zero	0x503
04e9 00da       |    |		Load_Top	At_Offset_2
04ea 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04eb 4607       |F   |		Jump_Case	0x8
04ec 7807       |x   |		Jump	0x4f4								; case 0x0
04ed 7806       |x   |		Jump	0x4f4								; case 0x1
04ee 7805       |x   |		Jump	0x4f4								; case 0x2
04ef 7804       |x   |		Jump	0x4f4								; case 0x3
04f0 7803       |x   |		Jump	0x4f4								; case 0x4
04f1 780b       |x   |		Jump	0x4fd								; case 0x5
04f2 7804       |x   |		Jump	0x4f7								; case 0x6
04f3 7800       |x   |		Jump	0x4f4								; case 0x7
04f4 e001       |    |		Load	0x0,0x1
04f5 1b3c       | <  |		Execute	Package,Field_Read,Field_Number 0x3c
04f6 0257       | W  |		Execute	Discrete,Raise
04f7 00da       |    |		Load_Top	At_Offset_2
04f8 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04f9 e5fe       |    |		Load	0x2,-0x2
04fa 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04fb 027b       | {  |		Execute	Discrete,Greater_Equal
04fc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04fd 00da       |    |		Load_Top	At_Offset_2
04fe 8212       |    |		Call	0x1,0x12
04ff e5fe       |    |		Load	0x2,-0x2
0500 8212       |    |		Call	0x1,0x12
0501 027b       | {  |		Execute	Discrete,Greater_Equal
0502 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0503 e001       |    |		Load	0x0,0x1
0504 1b3c       | <  |		Execute	Package,Field_Read,Field_Number 0x3c
0505 0257       | W  |		Execute	Discrete,Raise
0506 0000 0000  |    |		.XXX[0x2]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			INIT_0508:
050b e5fd       |    |		Load	0x2,-0x3
050c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
050d 0f05       |    |		Execute_Immediate	Equal,0x5
050e 680a       |h   |		Jump_Zero	0x519
050f e5ff       |    |		Load	0x2,-0x1
0510 e210       |    |		Load	0x1,0x10
0511 0122       | "  |		Execute	Any,Make_Root_Type
0512 011c       |    |		Execute	Any,Convert_Unchecked
0513 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0514 e002       |    |		Load	0x0,0x2
0515 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0516 e5fd       |    |		Load	0x2,-0x3
0517 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0518 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0519 e5fe       |    |		Load	0x2,-0x2
051a 6810       |h   |		Jump_Zero	0x52b
051b 4805       |H   |		Short_Literal	0x5
051c e001       |    |		Load	0x0,0x1
051d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
051e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
051f e5ff       |    |		Load	0x2,-0x1
0520 e210       |    |		Load	0x1,0x10
0521 0122       | "  |		Execute	Any,Make_Root_Type
0522 011c       |    |		Execute	Any,Convert_Unchecked
0523 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0524 e002       |    |		Load	0x0,0x2
0525 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0526 00d9       |    |		Load_Top	At_Offset_1
0527 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0528 e5fd       |    |		Load	0x2,-0x3
0529 016d       | m  |		Execute	Variant_Record,Structure_Write
052a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
052b e001       |    |		Load	0x0,0x1
052c 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
052d 0257       | W  |		Execute	Discrete,Raise
052e 0000 0000  |    |		.XXX[0x2]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 e5fd       |    |		Load	0x2,-0x3
0534 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0535 0f06       |    |		Execute_Immediate	Equal,0x6
0536 6804       |h   |		Jump_Zero	0x53b
0537 e5ff       |    |		Load	0x2,-0x1
0538 e5fd       |    |		Load	0x2,-0x3
0539 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
053a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
053b e5fe       |    |		Load	0x2,-0x2
053c 680a       |h   |		Jump_Zero	0x547
053d 4806       |H   |		Short_Literal	0x6
053e e001       |    |		Load	0x0,0x1
053f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0540 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0541 e5ff       |    |		Load	0x2,-0x1
0542 00d9       |    |		Load_Top	At_Offset_1
0543 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0544 e5fd       |    |		Load	0x2,-0x3
0545 016d       | m  |		Execute	Variant_Record,Structure_Write
0546 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0547 e001       |    |		Load	0x0,0x1
0548 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0549 0257       | W  |		Execute	Discrete,Raise
054a 0000 0000  |    |		.BLANK	0000[0x6]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0564       | d  |		.CONST	0x0564								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0010       |    |		.CONST	0x0010								; Number of locals
0553			INIT_0550:
0553 029a 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call,Visible,Unelaborated
0555 029a 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call,Visible,Unelaborated
0557 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
0559 029a 062b  |   +|		Declare_Subprogram	INIT_0628,For_Outer_Call,Visible,Unelaborated
055b 00bf       |    |		Action	Accept_Activation
055c 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
055d 00c7       |    |		Action	Elaborate_Subprogram
055e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
055f 00c7       |    |		Action	Elaborate_Subprogram
0560 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0561 00c7       |    |		Action	Elaborate_Subprogram
0562 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0563 00c7       |    |		Action	Elaborate_Subprogram
0564			BODY_0550:
0564 00bc       |    |		Action	Signal_Activated
0565 00bb       |    |		Action	Signal_Completion
0566 0000 0000  |    |		.XXX[0x2]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 00da       |    |		Load_Top	At_Offset_2
056c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
056d e5fe       |    |		Load	0x2,-0x2
056e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
056f 027f       |    |		Execute	Discrete,Equal
0570 6834       |h4  |		Jump_Zero	0x5a5
0571 00da       |    |		Load_Top	At_Offset_2
0572 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0573 4607       |F   |		Jump_Case	0x8
0574 780a       |x   |		Jump	0x57f								; case 0x0
0575 780f       |x   |		Jump	0x585								; case 0x1
0576 7814       |x   |		Jump	0x58b								; case 0x2
0577 7819       |x   |		Jump	0x591								; case 0x3
0578 781e       |x   |		Jump	0x597								; case 0x4
0579 7802       |x   |		Jump	0x57c								; case 0x5
057a 7824       |x$  |		Jump	0x59f								; case 0x6
057b 7800       |x   |		Jump	0x57c								; case 0x7
057c e001       |    |		Load	0x0,0x1
057d 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
057e 0257       | W  |		Execute	Discrete,Raise
057f 00da       |    |		Load_Top	At_Offset_2
0580 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0581 e5fe       |    |		Load	0x2,-0x2
0582 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0583 027c       | |  |		Execute	Discrete,Less
0584 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0585 00da       |    |		Load_Top	At_Offset_2
0586 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0587 e5fe       |    |		Load	0x2,-0x2
0588 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0589 027c       | |  |		Execute	Discrete,Less
058a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
058b 00da       |    |		Load_Top	At_Offset_2
058c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
058d e5fe       |    |		Load	0x2,-0x2
058e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
058f 0244       | D  |		Execute	Float,Less
0590 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0591 00da       |    |		Load_Top	At_Offset_2
0592 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0593 e5fe       |    |		Load	0x2,-0x2
0594 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0595 027c       | |  |		Execute	Discrete,Less
0596 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0597 00db       |    |		Load_Top	At_Offset_3
0598 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0599 00db       |    |		Load_Top	At_Offset_3
059a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
059b e002       |    |		Load	0x0,0x2
059c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
059d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
059e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
059f 00da       |    |		Load_Top	At_Offset_2
05a0 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05a1 e5fe       |    |		Load	0x2,-0x2
05a2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05a3 027c       | |  |		Execute	Discrete,Less
05a4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05a5 e001       |    |		Load	0x0,0x1
05a6 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
05a7 0257       | W  |		Execute	Discrete,Raise
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab       |    |		.CONST	0x05ab								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0001       |    |		.CONST	0x0001								; Number of locals
05ab			BODY_05a8:
05ab			INIT_05a8:
05ab 00da       |    |		Load_Top	At_Offset_2
05ac 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ad e5fe       |    |		Load	0x2,-0x2
05ae 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05af 027f       |    |		Execute	Discrete,Equal
05b0 6834       |h4  |		Jump_Zero	0x5e5
05b1 00da       |    |		Load_Top	At_Offset_2
05b2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05b3 4607       |F   |		Jump_Case	0x8
05b4 780a       |x   |		Jump	0x5bf								; case 0x0
05b5 780f       |x   |		Jump	0x5c5								; case 0x1
05b6 7814       |x   |		Jump	0x5cb								; case 0x2
05b7 7819       |x   |		Jump	0x5d1								; case 0x3
05b8 781e       |x   |		Jump	0x5d7								; case 0x4
05b9 7802       |x   |		Jump	0x5bc								; case 0x5
05ba 7824       |x$  |		Jump	0x5df								; case 0x6
05bb 7800       |x   |		Jump	0x5bc								; case 0x7
05bc e001       |    |		Load	0x0,0x1
05bd 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
05be 0257       | W  |		Execute	Discrete,Raise
05bf 00da       |    |		Load_Top	At_Offset_2
05c0 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
05c1 e5fe       |    |		Load	0x2,-0x2
05c2 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
05c3 027a       | z  |		Execute	Discrete,Less_Equal
05c4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05c5 00da       |    |		Load_Top	At_Offset_2
05c6 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05c7 e5fe       |    |		Load	0x2,-0x2
05c8 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
05c9 027a       | z  |		Execute	Discrete,Less_Equal
05ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05cb 00da       |    |		Load_Top	At_Offset_2
05cc 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05cd e5fe       |    |		Load	0x2,-0x2
05ce 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
05cf 0242       | B  |		Execute	Float,Less_Equal
05d0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05d1 00da       |    |		Load_Top	At_Offset_2
05d2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05d3 e5fe       |    |		Load	0x2,-0x2
05d4 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05d5 027a       | z  |		Execute	Discrete,Less_Equal
05d6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05d7 00db       |    |		Load_Top	At_Offset_3
05d8 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05d9 00db       |    |		Load_Top	At_Offset_3
05da 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
05db e002       |    |		Load	0x0,0x2
05dc 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
05dd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05de 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05df 00da       |    |		Load_Top	At_Offset_2
05e0 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05e1 e5fe       |    |		Load	0x2,-0x2
05e2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05e3 027a       | z  |		Execute	Discrete,Less_Equal
05e4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05e5 e001       |    |		Load	0x0,0x1
05e6 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
05e7 0257       | W  |		Execute	Discrete,Raise
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb       |    |		.CONST	0x05eb								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0001       |    |		.CONST	0x0001								; Number of locals
05eb			BODY_05e8:
05eb			INIT_05e8:
05eb 00da       |    |		Load_Top	At_Offset_2
05ec 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ed e5fe       |    |		Load	0x2,-0x2
05ee 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ef 027f       |    |		Execute	Discrete,Equal
05f0 6834       |h4  |		Jump_Zero	0x625
05f1 00da       |    |		Load_Top	At_Offset_2
05f2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05f3 4607       |F   |		Jump_Case	0x8
05f4 780a       |x   |		Jump	0x5ff								; case 0x0
05f5 780f       |x   |		Jump	0x605								; case 0x1
05f6 7814       |x   |		Jump	0x60b								; case 0x2
05f7 7819       |x   |		Jump	0x611								; case 0x3
05f8 781e       |x   |		Jump	0x617								; case 0x4
05f9 7802       |x   |		Jump	0x5fc								; case 0x5
05fa 7824       |x$  |		Jump	0x61f								; case 0x6
05fb 7800       |x   |		Jump	0x5fc								; case 0x7
05fc e001       |    |		Load	0x0,0x1
05fd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05fe 0257       | W  |		Execute	Discrete,Raise
05ff 00da       |    |		Load_Top	At_Offset_2
0600 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0601 e5fe       |    |		Load	0x2,-0x2
0602 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0603 027d       | }  |		Execute	Discrete,Greater
0604 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0605 00da       |    |		Load_Top	At_Offset_2
0606 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0607 e5fe       |    |		Load	0x2,-0x2
0608 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0609 027d       | }  |		Execute	Discrete,Greater
060a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
060b 00da       |    |		Load_Top	At_Offset_2
060c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
060d e5fe       |    |		Load	0x2,-0x2
060e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
060f 0245       | E  |		Execute	Float,Greater
0610 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0611 00da       |    |		Load_Top	At_Offset_2
0612 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0613 e5fe       |    |		Load	0x2,-0x2
0614 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0615 027d       | }  |		Execute	Discrete,Greater
0616 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0617 00db       |    |		Load_Top	At_Offset_3
0618 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0619 00db       |    |		Load_Top	At_Offset_3
061a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
061b e002       |    |		Load	0x0,0x2
061c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
061d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
061e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
061f 00da       |    |		Load_Top	At_Offset_2
0620 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0621 e5fe       |    |		Load	0x2,-0x2
0622 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0623 027d       | }  |		Execute	Discrete,Greater
0624 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0625 e001       |    |		Load	0x0,0x1
0626 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0627 0257       | W  |		Execute	Discrete,Raise
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b       | +  |		.CONST	0x062b								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 0001       |    |		.CONST	0x0001								; Number of locals
062b			BODY_0628:
062b			INIT_0628:
062b 00da       |    |		Load_Top	At_Offset_2
062c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
062d e5fe       |    |		Load	0x2,-0x2
062e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
062f 027f       |    |		Execute	Discrete,Equal
0630 6834       |h4  |		Jump_Zero	0x665
0631 00da       |    |		Load_Top	At_Offset_2
0632 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0633 4607       |F   |		Jump_Case	0x8
0634 780a       |x   |		Jump	0x63f								; case 0x0
0635 780f       |x   |		Jump	0x645								; case 0x1
0636 7814       |x   |		Jump	0x64b								; case 0x2
0637 7819       |x   |		Jump	0x651								; case 0x3
0638 781e       |x   |		Jump	0x657								; case 0x4
0639 7802       |x   |		Jump	0x63c								; case 0x5
063a 7824       |x$  |		Jump	0x65f								; case 0x6
063b 7800       |x   |		Jump	0x63c								; case 0x7
063c e001       |    |		Load	0x0,0x1
063d 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
063e 0257       | W  |		Execute	Discrete,Raise
063f 00da       |    |		Load_Top	At_Offset_2
0640 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0641 e5fe       |    |		Load	0x2,-0x2
0642 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0643 027b       | {  |		Execute	Discrete,Greater_Equal
0644 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0645 00da       |    |		Load_Top	At_Offset_2
0646 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0647 e5fe       |    |		Load	0x2,-0x2
0648 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0649 027b       | {  |		Execute	Discrete,Greater_Equal
064a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
064b 00da       |    |		Load_Top	At_Offset_2
064c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
064d e5fe       |    |		Load	0x2,-0x2
064e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
064f 0243       | C  |		Execute	Float,Greater_Equal
0650 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0651 00da       |    |		Load_Top	At_Offset_2
0652 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0653 e5fe       |    |		Load	0x2,-0x2
0654 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0655 027b       | {  |		Execute	Discrete,Greater_Equal
0656 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0657 00db       |    |		Load_Top	At_Offset_3
0658 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0659 00db       |    |		Load_Top	At_Offset_3
065a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
065b e002       |    |		Load	0x0,0x2
065c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
065d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
065e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
065f 00da       |    |		Load_Top	At_Offset_2
0660 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0661 e5fe       |    |		Load	0x2,-0x2
0662 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0663 027b       | {  |		Execute	Discrete,Greater_Equal
0664 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0665 e001       |    |		Load	0x0,0x1
0666 1b36       | 6  |		Execute	Package,Field_Read,Field_Number 0x36
0667 0257       | W  |		Execute	Discrete,Raise
0668 ; --------------------------------------------------------------------------------------
0668 ; STRING TABLE
0668 ; --------------------------------------------------------------------------------------
0668 0012       |    |		.STRTAB	0x0012->0x0671							; "INTEGER_VALUE"
0669 001d       |    |		.STRTAB	0x001d->0x0677							; "BOOLEAN_VALUE"
066a 0028       | (  |		.STRTAB	0x0028->0x067e							; "FLOAT_VALUE"
066b 0031       | 1  |		.STRTAB	0x0031->0x0683							; "CHARACTER_VALUE"
066c 003e       | >  |		.STRTAB	0x003e->0x068b							; "STRING_VALUE"
066d 0048       | H  |		.STRTAB	0x0048->0x0691							; "CHECKED_ENUMERATION_VALUE"
066e 005f       | _  |		.STRTAB	0x005f->0x069d							; "UNCHECKED_ENUMERATION_VALUE"
066f 0078       | x  |		.STRTAB	0x0078->0x06ab							; "CLASS_VALUE"
0670 0081       |    |		.STREND 0x0081->0x06b0
0671 494e 5445  |INTE|		.STRTAB_STRINGS
06b1 0000 0000  |    |		.BLANK	0000[0x7]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; Debug Table
06b8 ; --------------------------------------------------------------------------------------
06b8 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xe682,0x0000,0x0001,0x002b
06be 000b 076a  |   j|		.DBG4T	0x000b,0x076a,0x8000,0x0000
06c2 00a6 079f  |    |		.DBG4T	0x00a6,0x079f,0x8000,0x0000
06c6 00e3 0000  |    |		.DBG4T	0x00e3,0x0000,0x0005,0x0000
06ca 010b 07b7  |    |		.DBG4T	0x010b,0x07b7,0x0002,0x0000
06ce 011b 07ba  |    |		.DBG4T	0x011b,0x07ba,0x0002,0x0000
06d2 012b 07bd  | +  |		.DBG4T	0x012b,0x07bd,0x0002,0x0000
06d6 013b 07c0  | ;  |		.DBG4T	0x013b,0x07c0,0x0002,0x0000
06da 014b 07c3  | K  |		.DBG4T	0x014b,0x07c3,0x0002,0x0000
06de 015b 07c6  | [  |		.DBG4T	0x015b,0x07c6,0x0002,0x0000
06e2 016b 07c9  | k  |		.DBG4T	0x016b,0x07c9,0x0002,0x4000
06e6 0193 07d7  |    |		.DBG4T	0x0193,0x07d7,0x0002,0x4000
06ea 01a3 07df  |    |		.DBG4T	0x01a3,0x07df,0x0002,0x4000
06ee 01c3 07ed  |    |		.DBG4T	0x01c3,0x07ed,0x0002,0x4000
06f2 01eb 07fb  |    |		.DBG4T	0x01eb,0x07fb,0x0002,0x4000
06f6 021b 080d  |    |		.DBG4T	0x021b,0x080d,0x0002,0x0000
06fa 022b 0812  | +  |		.DBG4T	0x022b,0x0812,0x0001,0x4000
06fe 025b 0827  | [ '|		.DBG4T	0x025b,0x0827,0x0001,0x0000
0702 0273 082e  | s .|		.DBG4T	0x0273,0x082e,0x0001,0x0000
0706 028b 0835  |   5|		.DBG4T	0x028b,0x0835,0x0001,0x0000
070a 02b3 083e  |   >|		.DBG4T	0x02b3,0x083e,0x0001,0x0000
070e 02d3 0845  |   E|		.DBG4T	0x02d3,0x0845,0x0001,0x0000
0712 02eb 084c  |   L|		.DBG4T	0x02eb,0x084c,0x0002,0x0000
0716 02fb 084f  |   O|		.DBG4T	0x02fb,0x084f,0x0002,0x4000
071a 0333 0000  | 3  |		.DBG4T	0x0333,0x0000,0x0005,0x0000
071e 03bb 0863  |   c|		.DBG4T	0x03bb,0x0863,0x4000,0x8000
0722 03ce 0877  |   w|		.DBG4T	0x03ce,0x0877,0x4000,0x0000
0726 03eb 0882  |    |		.DBG4T	0x03eb,0x0882,0x1002,0x0000
072a 040b 0887  |    |		.DBG4T	0x040b,0x0887,0x1002,0x0000
072e 043b 088e  | ;  |		.DBG4T	0x043b,0x088e,0x1001,0x0000
0732 044b 0893  | K  |		.DBG4T	0x044b,0x0893,0x1002,0x0000
0736 045b 0896  | [  |		.DBG4T	0x045b,0x0896,0x1002,0x0000
073a 046b 0899  | k  |		.DBG4T	0x046b,0x0899,0x1002,0x4000
073e 0493 08a7  |    |		.DBG4T	0x0493,0x08a7,0x1002,0x4000
0742 04bb 08b5  |    |		.DBG4T	0x04bb,0x08b5,0x1002,0x4000
0746 04e3 08c3  |    |		.DBG4T	0x04e3,0x08c3,0x1002,0x4000
074a 050b 08d1  |    |		.DBG4T	0x050b,0x08d1,0x1004,0x0000
074e 0533 08d8  | 3  |		.DBG4T	0x0533,0x08d8,0x1004,0x0000
0752 0553 08df  | S  |		.DBG4T	0x0553,0x08df,0x0000,0x8000
0756 055c 08e9  | \  |		.DBG4T	0x055c,0x08e9,0x0000,0x8000
075a 056b 08f3  | k  |		.DBG4T	0x056b,0x08f3,0x0002,0x4000
075e 05ab 0909  |    |		.DBG4T	0x05ab,0x0909,0x0002,0x4000
0762 05eb 091f  |    |		.DBG4T	0x05eb,0x091f,0x0002,0x4000
0766 062b 0935  | + 5|		.DBG4T	0x062b,0x0935,0x0002,0x4000
076a ; --------------------------------------------------------------------------------------
076a ; Debug chain
076a ; --------------------------------------------------------------------------------------
076a 0033 0000  | 3  |		.DBGLEN	0x0033,0x0000
076c 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x001b,0x001c,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0049,0x004b,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x0095,0x009d
079f ; --------------------------------------------------------------------------------------
079f ; Debug chain
079f ; --------------------------------------------------------------------------------------
079f 0016 0000  |    |		.DBGLEN	0x0016,0x0000
07a1 00a6 00a8  |    |		.DBGLNO	0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8,0x00ca,0x00cc,0x00d3,0x00d5
07b7 ; --------------------------------------------------------------------------------------
07b7 ; Debug chain
07b7 ; --------------------------------------------------------------------------------------
07b7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07b9 010b       |    |		.DBGLNO	0x010b
07ba ; --------------------------------------------------------------------------------------
07ba ; Debug chain
07ba ; --------------------------------------------------------------------------------------
07ba 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07bc 011b       |    |		.DBGLNO	0x011b
07bd ; --------------------------------------------------------------------------------------
07bd ; Debug chain
07bd ; --------------------------------------------------------------------------------------
07bd 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07bf 012b       | +  |		.DBGLNO	0x012b
07c0 ; --------------------------------------------------------------------------------------
07c0 ; Debug chain
07c0 ; --------------------------------------------------------------------------------------
07c0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07c2 013b       | ;  |		.DBGLNO	0x013b
07c3 ; --------------------------------------------------------------------------------------
07c3 ; Debug chain
07c3 ; --------------------------------------------------------------------------------------
07c3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07c5 014b       | K  |		.DBGLNO	0x014b
07c6 ; --------------------------------------------------------------------------------------
07c6 ; Debug chain
07c6 ; --------------------------------------------------------------------------------------
07c6 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07c8 015b       | [  |		.DBGLNO	0x015b
07c9 ; --------------------------------------------------------------------------------------
07c9 ; Debug chain
07c9 ; --------------------------------------------------------------------------------------
07c9 0000 0006  |    |		.DBGLEN	0x0000,0x0006
07cb 016b 0176  | k v|		.DBGLNO	0x016b,0x0176,0x0178,0x017b,0x0183,0x0186
07d1 0001 0006  |    |		.XXX[0x6]
07d3 0002 0003  |    |
07d5 0004 0005  |    |
07d7 ; --------------------------------------------------------------------------------------
07d7 ; Debug chain
07d7 ; --------------------------------------------------------------------------------------
07d7 0000 0003  |    |		.DBGLEN	0x0000,0x0003
07d9 0193 0197  |    |		.DBGLNO	0x0193,0x0197,0x0199
07dc 0001 0003  |    |		.XXX[0x3]
07de 0002       |    |
07df ; --------------------------------------------------------------------------------------
07df ; Debug chain
07df ; --------------------------------------------------------------------------------------
07df 0000 0006  |    |		.DBGLEN	0x0000,0x0006
07e1 01a3 01ae  |    |		.DBGLNO	0x01a3,0x01ae,0x01b0,0x01b3,0x01b7,0x01bb
07e7 0001 0006  |    |		.XXX[0x6]
07e9 0002 0003  |    |
07eb 0004 0005  |    |
07ed ; --------------------------------------------------------------------------------------
07ed ; Debug chain
07ed ; --------------------------------------------------------------------------------------
07ed 0000 0006  |    |		.DBGLEN	0x0000,0x0006
07ef 01c3 01ce  |    |		.DBGLNO	0x01c3,0x01ce,0x01d0,0x01d3,0x01da,0x01e1
07f5 0001 0006  |    |		.XXX[0x6]
07f7 0002 0003  |    |
07f9 0004 0005  |    |
07fb ; --------------------------------------------------------------------------------------
07fb ; Debug chain
07fb ; --------------------------------------------------------------------------------------
07fb 0000 0008  |    |		.DBGLEN	0x0000,0x0008
07fd 01eb 01f6  |    |		.DBGLNO	0x01eb,0x01f6,0x01f8,0x01fd,0x0202,0x0207,0x020c,0x0211
0805 0001 0008  |    |		.XXX[0x8]
0807 0002 0003  |    |
0809 0004 0005  |    |
080b 0006 0007  |    |
080d ; --------------------------------------------------------------------------------------
080d ; Debug chain
080d ; --------------------------------------------------------------------------------------
080d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
080f 021b 021f  |    |		.DBGLNO	0x021b,0x021f,0x0224
0812 ; --------------------------------------------------------------------------------------
0812 ; Debug chain
0812 ; --------------------------------------------------------------------------------------
0812 0001 0009  |    |		.DBGLEN	0x0001,0x0009
0814 022b 022d  | + -|		.DBGLNO	0x022b,0x022d,0x0238,0x023c,0x023f,0x0241,0x0245,0x024d,0x024f,0x0251
081e 0001 0004  |    |		.XXX[0x9]
0820 0002 0003  |    |
0822 0006 0007  |    |
0824 0008 0009  |    |
0826 000a       |    |
0827 ; --------------------------------------------------------------------------------------
0827 ; Debug chain
0827 ; --------------------------------------------------------------------------------------
0827 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0829 025b 025f  | [ _|		.DBGLNO	0x025b,0x025f,0x0263,0x0265,0x026e
082e ; --------------------------------------------------------------------------------------
082e ; Debug chain
082e ; --------------------------------------------------------------------------------------
082e 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0830 0273 0277  | s w|		.DBGLNO	0x0273,0x0277,0x027b,0x027d,0x0286
0835 ; --------------------------------------------------------------------------------------
0835 ; Debug chain
0835 ; --------------------------------------------------------------------------------------
0835 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0837 028b 028f  |    |		.DBGLNO	0x028b,0x028f,0x0293,0x0297,0x029f,0x02a1,0x02aa
083e ; --------------------------------------------------------------------------------------
083e ; Debug chain
083e ; --------------------------------------------------------------------------------------
083e 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0840 02b3 02b7  |    |		.DBGLNO	0x02b3,0x02b7,0x02bd,0x02bf,0x02ca
0845 ; --------------------------------------------------------------------------------------
0845 ; Debug chain
0845 ; --------------------------------------------------------------------------------------
0845 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0847 02d3 02d7  |    |		.DBGLNO	0x02d3,0x02d7,0x02db,0x02dd,0x02e6
084c ; --------------------------------------------------------------------------------------
084c ; Debug chain
084c ; --------------------------------------------------------------------------------------
084c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
084e 02eb       |    |		.DBGLNO	0x02eb
084f ; --------------------------------------------------------------------------------------
084f ; Debug chain
084f ; --------------------------------------------------------------------------------------
084f 0000 0009  |    |		.DBGLEN	0x0000,0x0009
0851 02fb 0306  |    |		.DBGLNO	0x02fb,0x0306,0x030b,0x0310,0x0314,0x031a,0x0320,0x0325,0x032a
085a 0001 0007  |    |		.XXX[0x9]
085c 0002 0003  |    |
085e 0004 0005  |    |
0860 0006 0008  |    |
0862 0009       |    |
0863 ; --------------------------------------------------------------------------------------
0863 ; Debug chain
0863 ; --------------------------------------------------------------------------------------
0863 0009 0000  |    |		.DBGLEN	0x0009,0x0000
0865 03bb 03bd  |    |		.DBGLNO	0x03bb,0x03bd,0x03bf,0x03c1,0x03c3,0x03c5,0x03c7,0x03c9,0x03cb
086e 0001 0002  |    |		.XXX[0x9]
0870 0003 0004  |    |
0872 0005 0007  |    |
0874 0008 0009  |    |
0876 000a       |    |
0877 ; --------------------------------------------------------------------------------------
0877 ; Debug chain
0877 ; --------------------------------------------------------------------------------------
0877 0009 0000  |    |		.DBGLEN	0x0009,0x0000
0879 03ce 03d0  |    |		.DBGLNO	0x03ce,0x03d0,0x03d2,0x03d4,0x03d6,0x03d8,0x03da,0x03dc,0x03de
0882 ; --------------------------------------------------------------------------------------
0882 ; Debug chain
0882 ; --------------------------------------------------------------------------------------
0882 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0884 03eb 03ed  |    |		.DBGLNO	0x03eb,0x03ed,0x03fb
0887 ; --------------------------------------------------------------------------------------
0887 ; Debug chain
0887 ; --------------------------------------------------------------------------------------
0887 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0889 040b 040f  |    |		.DBGLNO	0x040b,0x040f,0x041c,0x0420,0x042e
088e ; --------------------------------------------------------------------------------------
088e ; Debug chain
088e ; --------------------------------------------------------------------------------------
088e 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0890 043f 0441  | ? A|		.DBGLNO	0x043f,0x0441,0x0443
0893 ; --------------------------------------------------------------------------------------
0893 ; Debug chain
0893 ; --------------------------------------------------------------------------------------
0893 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0895 044b       | K  |		.DBGLNO	0x044b
0896 ; --------------------------------------------------------------------------------------
0896 ; Debug chain
0896 ; --------------------------------------------------------------------------------------
0896 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0898 045b       | [  |		.DBGLNO	0x045b
0899 ; --------------------------------------------------------------------------------------
0899 ; Debug chain
0899 ; --------------------------------------------------------------------------------------
0899 0000 0006  |    |		.DBGLEN	0x0000,0x0006
089b 046b 0471  | k q|		.DBGLNO	0x046b,0x0471,0x047c,0x047f,0x0485,0x048b
08a1 0001 0002  |    |		.XXX[0x6]
08a3 0005 0003  |    |
08a5 0004 0006  |    |
08a7 ; --------------------------------------------------------------------------------------
08a7 ; Debug chain
08a7 ; --------------------------------------------------------------------------------------
08a7 0000 0006  |    |		.DBGLEN	0x0000,0x0006
08a9 0493 0499  |    |		.DBGLNO	0x0493,0x0499,0x04a4,0x04a7,0x04ad,0x04b3
08af 0001 0002  |    |		.XXX[0x6]
08b1 0005 0003  |    |
08b3 0004 0006  |    |
08b5 ; --------------------------------------------------------------------------------------
08b5 ; Debug chain
08b5 ; --------------------------------------------------------------------------------------
08b5 0000 0006  |    |		.DBGLEN	0x0000,0x0006
08b7 04bb 04c1  |    |		.DBGLNO	0x04bb,0x04c1,0x04cc,0x04cf,0x04d5,0x04db
08bd 0001 0002  |    |		.XXX[0x6]
08bf 0005 0003  |    |
08c1 0004 0006  |    |
08c3 ; --------------------------------------------------------------------------------------
08c3 ; Debug chain
08c3 ; --------------------------------------------------------------------------------------
08c3 0000 0006  |    |		.DBGLEN	0x0000,0x0006
08c5 04e3 04e9  |    |		.DBGLNO	0x04e3,0x04e9,0x04f4,0x04f7,0x04fd,0x0503
08cb 0001 0002  |    |		.XXX[0x6]
08cd 0005 0003  |    |
08cf 0004 0006  |    |
08d1 ; --------------------------------------------------------------------------------------
08d1 ; Debug chain
08d1 ; --------------------------------------------------------------------------------------
08d1 0000 0005  |    |		.DBGLEN	0x0000,0x0005
08d3 050b 050f  |    |		.DBGLNO	0x050b,0x050f,0x0519,0x051b,0x052b
08d8 ; --------------------------------------------------------------------------------------
08d8 ; Debug chain
08d8 ; --------------------------------------------------------------------------------------
08d8 0000 0005  |    |		.DBGLEN	0x0000,0x0005
08da 0533 0537  | 3 7|		.DBGLNO	0x0533,0x0537,0x053b,0x053d,0x0547
08df ; --------------------------------------------------------------------------------------
08df ; Debug chain
08df ; --------------------------------------------------------------------------------------
08df 0004 0000  |    |		.DBGLEN	0x0004,0x0000
08e1 0553 0555  | S U|		.DBGLNO	0x0553,0x0555,0x0557,0x0559
08e5 0002 0003  |    |		.XXX[0x4]
08e7 0004 0005  |    |
08e9 ; --------------------------------------------------------------------------------------
08e9 ; Debug chain
08e9 ; --------------------------------------------------------------------------------------
08e9 0004 0000  |    |		.DBGLEN	0x0004,0x0000
08eb 055c 055e  | \ ^|		.DBGLNO	0x055c,0x055e,0x0560,0x0562
08ef 0002 0003  |    |		.XXX[0x4]
08f1 0004 0005  |    |
08f3 ; --------------------------------------------------------------------------------------
08f3 ; Debug chain
08f3 ; --------------------------------------------------------------------------------------
08f3 0000 000a  |    |		.DBGLEN	0x0000,0x000a
08f5 056b 0571  | k q|		.DBGLNO	0x056b,0x0571,0x057c,0x057f,0x0585,0x058b,0x0591,0x0597,0x059f,0x05a5
08ff 0001 0002  |    |		.XXX[0xa]
0901 0009 0003  |    |
0903 0004 0005  |    |
0905 0006 0007  |    |
0907 0008 000a  |    |
0909 ; --------------------------------------------------------------------------------------
0909 ; Debug chain
0909 ; --------------------------------------------------------------------------------------
0909 0000 000a  |    |		.DBGLEN	0x0000,0x000a
090b 05ab 05b1  |    |		.DBGLNO	0x05ab,0x05b1,0x05bc,0x05bf,0x05c5,0x05cb,0x05d1,0x05d7,0x05df,0x05e5
0915 0001 0002  |    |		.XXX[0xa]
0917 0009 0003  |    |
0919 0004 0005  |    |
091b 0006 0007  |    |
091d 0008 000a  |    |
091f ; --------------------------------------------------------------------------------------
091f ; Debug chain
091f ; --------------------------------------------------------------------------------------
091f 0000 000a  |    |		.DBGLEN	0x0000,0x000a
0921 05eb 05f1  |    |		.DBGLNO	0x05eb,0x05f1,0x05fc,0x05ff,0x0605,0x060b,0x0611,0x0617,0x061f,0x0625
092b 0001 0002  |    |		.XXX[0xa]
092d 0009 0003  |    |
092f 0004 0005  |    |
0931 0006 0007  |    |
0933 0008 000a  |    |
0935 ; --------------------------------------------------------------------------------------
0935 ; Debug chain
0935 ; --------------------------------------------------------------------------------------
0935 0000 000a  |    |		.DBGLEN	0x0000,0x000a
0937 062b 0631  | + 1|		.DBGLNO	0x062b,0x0631,0x063c,0x063f,0x0645,0x064b,0x0651,0x0657,0x065f,0x0665
0941 0001 0002  |    |		.XXX[0xa]
0943 0009 0003  |    |
0945 0004 0005  |    |
0947 0006 0007  |    |
0949 0008 000a  |    |
094b 0000 0000  |    |		.BLANK	0000[0xb5]