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

⟦83a510fca⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0578       | x  |		.CONST	0x0578								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ba       |    |		.CONST	0x00ba								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0029       | )  |		.CONST	0x0029								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4807       |H   |		Short_Literal	0x7
000d 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 0007       |    |		Action	Break_Optional
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0016 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0018 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
001a 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
001c 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
001e 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0020 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0022 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0024 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0026 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0028 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
002a 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
002c 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
002e 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0030 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0032 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0034 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0036 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0038 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
003a 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
003c 4800       |H   |		Short_Literal	0x0
003d 0093 0303  |    |		push_full_address	INIT_0300
003f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0040 038f       |    |		Declare_Type	Package,Defined,Visible
0041 0386       |    |		Declare_Variable	Package,Visible
0042 4802       |H   |		Short_Literal	0x2
0043 0093 028b  |    |		push_full_address	INIT_0288
0045 02a0       |    |		Declare_Subprogram	Null_Subprogram
0046 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0047 0093 0000  |    |		push_full_address	0x0
0049 60a2       |`   |		Indirect_Literal	Discrete,0xec,{0x80000000, 0x00010000}
004a 0273       | s  |		Execute	Discrete,Plus
004b 0129       | )  |		Execute	Any,Make_Visible
004c 0093 0000  |    |		push_full_address	0x0
004e 6099       |`   |		Indirect_Literal	Discrete,0xe8,{0x80000000, 0x00020000}
004f 0273       | s  |		Execute	Discrete,Plus
0050 0129       | )  |		Execute	Any,Make_Visible
0051 e20d       |    |		Load	0x1,0xd
0052 4801       |H   |		Short_Literal	0x1
0053 00e2       |    |		Load_Encached	Integer_Cache
0054 4801       |H   |		Short_Literal	0x1
0055 00e6       |    |		Load_Encached	Float_Cache
0056 4801       |H   |		Short_Literal	0x1
0057 00e1       |    |		Load_Encached	Boolean_Cache
0058 4801       |H   |		Short_Literal	0x1
0059 00e8       |    |		Load_Encached	Character_Cache
005a 4801       |H   |		Short_Literal	0x1
005b 00e7       |    |		Load_Encached	Duration_Cache
005c 4801       |H   |		Short_Literal	0x1
005d e002       |    |		Load	0x0,0x2
005e 4801       |H   |		Short_Literal	0x1
005f 00e2       |    |		Load_Encached	Integer_Cache
0060 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
0062 4807       |H   |		Short_Literal	0x7
0063 4800       |H   |		Short_Literal	0x0
0064 4807       |H   |		Short_Literal	0x7
0065 4800       |H   |		Short_Literal	0x0
0066 4801       |H   |		Short_Literal	0x1
0067 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0068 4807       |H   |		Short_Literal	0x7
0069 00d9       |    |		Load_Top	At_Offset_1
006a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
006b 0129       | )  |		Execute	Any,Make_Visible
006c c20e       |    |		Store	0x1,0xe
006d 4801       |H   |		Short_Literal	0x1
006e 00d9       |    |		Load_Top	At_Offset_1
006f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0070 4800       |H   |		Short_Literal	0x0
0071 00d9       |    |		Load_Top	At_Offset_1
0072 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0073 0129       | )  |		Execute	Any,Make_Visible
0074 c20f       |    |		Store	0x1,0xf
0075 4801       |H   |		Short_Literal	0x1
0076 00d9       |    |		Load_Top	At_Offset_1
0077 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0078 4801       |H   |		Short_Literal	0x1
0079 00d9       |    |		Load_Top	At_Offset_1
007a 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
007b 0129       | )  |		Execute	Any,Make_Visible
007c c210       |    |		Store	0x1,0x10
007d 00bf       |    |		Action	Accept_Activation
007e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 a003       |    |		Store_Unchecked	0x0,0x3
00a8 00db       |    |		Load_Top	At_Offset_3
00a9 a004       |    |		Store_Unchecked	0x0,0x4
00aa a005       |    |		Store_Unchecked	0x0,0x5
00ab a006       |    |		Store_Unchecked	0x0,0x6
00ac 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00ad 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00ae 4808       |H   |		Short_Literal	0x8
00af e225       | %  |		Load	0x1,0x25
00b0 020e       |    |		Execute	Module,Augment_Imports
00b1 e225       | %  |		Load	0x1,0x25
00b2 020f       |    |		Execute	Module,Activate
00b3 00d8       |    |		Load_Top	At_Offset_0
00b4 a007       |    |		Store_Unchecked	0x0,0x7
00b5 4802       |H   |		Short_Literal	0x2
00b6 e226       | &  |		Load	0x1,0x26
00b7 020e       |    |		Execute	Module,Augment_Imports
00b8 00db       |    |		Load_Top	At_Offset_3
00b9 020d       |    |		Execute	Module,Elaborate
00ba			BODY_0008:
00ba 00bc       |    |		Action	Signal_Activated
00bb 00bb       |    |		Action	Signal_Completion
00bc 0000 0000  |    |		.BLANK	0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 4607       |F   |		Jump_Case	0x8
00c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00c5 7807       |x   |		Jump	0xcd								; case 0x1
00c6 780a       |x   |		Jump	0xd1								; case 0x2
00c7 780e       |x   |		Jump	0xd6								; case 0x3
00c8 7811       |x   |		Jump	0xda								; case 0x4
00c9 7812       |x   |		Jump	0xdc								; case 0x5
00ca 7813       |x   |		Jump	0xde								; case 0x6
00cb 7816       |x   |		Jump	0xe2								; case 0x7
00cc 4302       |C   |		.XXX[0x1]
00cd 00da       |    |		Load_Top	At_Offset_2
00ce 0091 0542  |   B|		Action	Push_String_Extended_Indexed,0x542				; "INTEGER"
00d0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d1 00db       |    |		Load_Top	At_Offset_3
00d2 00db       |    |		Load_Top	At_Offset_3
00d3 00e0       |    |		Load_Encached	Standard_Cache
00d4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d6 00da       |    |		Load_Top	At_Offset_2
00d7 00e0       |    |		Load_Encached	Standard_Cache
00d8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00da 00db       |    |		Load_Top	At_Offset_3
00db 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00dc 00db       |    |		Load_Top	At_Offset_3
00dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00de e20d       |    |		Load	0x1,0xd
00df 00dc       |    |		Load_Top	At_Offset_4
00e0 0267       | g  |		Execute	Discrete,Predecessor
00e1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e2 e20d       |    |		Load	0x1,0xd
00e3 00dc       |    |		Load_Top	At_Offset_4
00e4 0268       | h  |		Execute	Discrete,Successor
00e5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e6 0000 0000  |    |		.XXX[0x2]
00e8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 4800       |H   |		Short_Literal	0x0
00f4 e229       | )  |		Load	0x1,0x29
00f5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00f6 00db       |    |		Load_Top	At_Offset_3
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fa 0000 0000  |    |		.BLANK	0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4801       |H   |		Short_Literal	0x1
0104 e229       | )  |		Load	0x1,0x29
0105 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0106 00db       |    |		Load_Top	At_Offset_3
0107 00d9       |    |		Load_Top	At_Offset_1
0108 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0109 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010a 0000 0000  |    |		.BLANK	0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 4802       |H   |		Short_Literal	0x2
0114 e229       | )  |		Load	0x1,0x29
0115 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0116 00db       |    |		Load_Top	At_Offset_3
0117 00d9       |    |		Load_Top	At_Offset_1
0118 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0119 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011a 0000 0000  |    |		.BLANK	0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 4803       |H   |		Short_Literal	0x3
0124 e229       | )  |		Load	0x1,0x29
0125 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0126 00db       |    |		Load_Top	At_Offset_3
0127 00d9       |    |		Load_Top	At_Offset_1
0128 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0129 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012a 0000 0000  |    |		.BLANK	0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4804       |H   |		Short_Literal	0x4
0134 e229       | )  |		Load	0x1,0x29
0135 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0136 00db       |    |		Load_Top	At_Offset_3
0137 00d9       |    |		Load_Top	At_Offset_1
0138 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0139 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 4805       |H   |		Short_Literal	0x5
0144 e229       | )  |		Load	0x1,0x29
0145 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0146 00db       |    |		Load_Top	At_Offset_3
0147 8008       |    |		Call	0x0,0x8
0148 00d9       |    |		Load_Top	At_Offset_1
0149 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
014a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014b 0000 0000  |    |		.BLANK	0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0155 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0156 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
015c 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
015d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015e 0000 0000  |    |		.XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0165 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0166 0000 0000  |    |		.XXX[0x2]
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 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
016d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016e 0000 0000  |    |		.XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00da       |    |		Load_Top	At_Offset_2
0174 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0175 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0176 0000 0000  |    |		.XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
017d 8009       |    |		Call	0x0,0x9
017e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017f 0000       |    |		.XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 00da       |    |		Load_Top	At_Offset_2
0184 8211       |    |		Call	0x1,0x11
0185 e5fe       |    |		Load	0x2,-0x2
0186 016d       | m  |		Execute	Variant_Record,Structure_Write
0187 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c 8212       |    |		Call	0x1,0x12
018d e5fe       |    |		Load	0x2,-0x2
018e 016d       | m  |		Execute	Variant_Record,Structure_Write
018f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 8213       |    |		Call	0x1,0x13
0195 e5fe       |    |		Load	0x2,-0x2
0196 016d       | m  |		Execute	Variant_Record,Structure_Write
0197 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00da       |    |		Load_Top	At_Offset_2
019c 8214       |    |		Call	0x1,0x14
019d e5fe       |    |		Load	0x2,-0x2
019e 016d       | m  |		Execute	Variant_Record,Structure_Write
019f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00da       |    |		Load_Top	At_Offset_2
01a4 8215       |    |		Call	0x1,0x15
01a5 e5fe       |    |		Load	0x2,-0x2
01a6 016d       | m  |		Execute	Variant_Record,Structure_Write
01a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 8216       |    |		Call	0x1,0x16
01ad e5fe       |    |		Load	0x2,-0x2
01ae 016d       | m  |		Execute	Variant_Record,Structure_Write
01af 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01b5 e5fe       |    |		Load	0x2,-0x2
01b6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01b7 027f       |    |		Execute	Discrete,Equal
01b8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01b9 0000 0000  |    |		.BLANK	0000[0x7]
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 780c       |x   |		Jump	0x1d3								; case 0x0
01c7 7810       |x   |		Jump	0x1d8								; case 0x1
01c8 7814       |x   |		Jump	0x1dd								; case 0x2
01c9 7818       |x   |		Jump	0x1e2								; case 0x3
01ca 781c       |x   |		Jump	0x1e7								; case 0x4
01cb 7820       |x   |		Jump	0x1ec								; case 0x5
01cc 7824       |x$  |		Jump	0x1f1								; case 0x6
01cd 7800       |x   |		Jump	0x1ce								; case 0x7
01ce 00db       |    |		Load_Top	At_Offset_3
01cf 0092 054a  |   J|		Action	Push_String_Extended,0x54a					; "undefined slot value"
01d1 8007       |    |		Call	0x0,0x7
01d2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 00db       |    |		Load_Top	At_Offset_3
01d5 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01d6 800a       |    |		Call	0x0,0xa
01d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d8 00db       |    |		Load_Top	At_Offset_3
01d9 00db       |    |		Load_Top	At_Offset_3
01da 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01db 800b       |    |		Call	0x0,0xb
01dc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01dd 00db       |    |		Load_Top	At_Offset_3
01de 00db       |    |		Load_Top	At_Offset_3
01df 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01e0 800c       |    |		Call	0x0,0xc
01e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e2 00db       |    |		Load_Top	At_Offset_3
01e3 00db       |    |		Load_Top	At_Offset_3
01e4 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01e5 800d       |    |		Call	0x0,0xd
01e6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01e7 00db       |    |		Load_Top	At_Offset_3
01e8 00db       |    |		Load_Top	At_Offset_3
01e9 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01ea 800e       |    |		Call	0x0,0xe
01eb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01ec 00db       |    |		Load_Top	At_Offset_3
01ed 00db       |    |		Load_Top	At_Offset_3
01ee 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
01ef 800f       |    |		Call	0x0,0xf
01f0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f1 00db       |    |		Load_Top	At_Offset_3
01f2 00db       |    |		Load_Top	At_Offset_3
01f3 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
01f4 800a       |    |		Call	0x0,0xa
01f5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 4609       |F   |		Jump_Case	0xa
01fc 7809       |x   |		Jump	0x206								; case 0x0
01fd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01fe 7837       |x7  |		Jump	0x236								; case 0x2
01ff 783a       |x:  |		Jump	0x23a								; case 0x3
0200 7881       |x   |		Jump	0x282								; case 0x4
0201 7880       |x   |		Jump	0x282								; case 0x5
0202 783d       |x=  |		Jump	0x240								; case 0x6
0203 7856       |xV  |		Jump	0x25a								; case 0x7
0204 7872       |xr  |		Jump	0x277								; case 0x8
0205 7878       |xx  |		Jump	0x27e								; case 0x9
0206 00da       |    |		Load_Top	At_Offset_2
0207 016c       | l  |		Execute	Variant_Record,Is_Constrained
0208 7009       |p   |		Jump_Nonzero	0x212
0209 00cf       |    |		Action	Mark_Auxiliary
020a 4800       |H   |		Short_Literal	0x0
020b e5ff       |    |		Load	0x2,-0x1
020c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
020d 00d8       |    |		Load_Top	At_Offset_0
020e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
020f c5ff       |    |		Store	0x2,-0x1
0210 00ce       |    |		Action	Pop_Auxiliary
0211 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0212 00da       |    |		Load_Top	At_Offset_2
0213 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0214 4607       |F   |		Jump_Case	0x8
0215 7808       |x   |		Jump	0x21e								; case 0x0
0216 780f       |x   |		Jump	0x226								; case 0x1
0217 780a       |x   |		Jump	0x222								; case 0x2
0218 7811       |x   |		Jump	0x22a								; case 0x3
0219 7814       |x   |		Jump	0x22e								; case 0x4
021a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
021b 7816       |x   |		Jump	0x232								; case 0x6
021c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
021d 4302       |C   |		.XXX[0x1]
021e 4800       |H   |		Short_Literal	0x0
021f 00db       |    |		Load_Top	At_Offset_3
0220 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0221 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0222 5861       |Xa  |		Indirect_Literal	Float,0x284,0.0
0223 00db       |    |		Load_Top	At_Offset_3
0224 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0225 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0226 4800       |H   |		Short_Literal	0x0
0227 00db       |    |		Load_Top	At_Offset_3
0228 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0229 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
022a 4800       |H   |		Short_Literal	0x0
022b 00db       |    |		Load_Top	At_Offset_3
022c 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
022d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
022e 4800       |H   |		Short_Literal	0x0
022f 00db       |    |		Load_Top	At_Offset_3
0230 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0231 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0232 4800       |H   |		Short_Literal	0x0
0233 00db       |    |		Load_Top	At_Offset_3
0234 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0235 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0236 4801       |H   |		Short_Literal	0x1
0237 4808       |H   |		Short_Literal	0x8
0238 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
0239 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
023a e5fd       |    |		Load	0x2,-0x3
023b 00db       |    |		Load_Top	At_Offset_3
023c 1c07       |    |		Execute_Immediate	Run_Utility,0x7
023d e5fe       |    |		Load	0x2,-0x2
023e 0306       |    |		Complete_Type	Variant_Record,By_Renaming
023f 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
0240 00db       |    |		Load_Top	At_Offset_3
0241 4607       |F   |		Jump_Case	0x8
0242 7809       |x   |		Jump	0x24c								; case 0x0
0243 780c       |x   |		Jump	0x250								; case 0x1
0244 7809       |x   |		Jump	0x24e								; case 0x2
0245 780c       |x   |		Jump	0x252								; case 0x3
0246 780d       |x   |		Jump	0x254								; case 0x4
0247 780e       |x   |		Jump	0x256								; case 0x5
0248 780f       |x   |		Jump	0x258								; case 0x6
0249 7800       |x   |		Jump	0x24a								; case 0x7
024a 48ff       |H   |		Short_Literal	0xff
024b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024c 4801       |H   |		Short_Literal	0x1
024d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024e 4802       |H   |		Short_Literal	0x2
024f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0250 4803       |H   |		Short_Literal	0x3
0251 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0252 4804       |H   |		Short_Literal	0x4
0253 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0254 4805       |H   |		Short_Literal	0x5
0255 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0256 4806       |H   |		Short_Literal	0x6
0257 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0258 4807       |H   |		Short_Literal	0x7
0259 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
025a 00db       |    |		Load_Top	At_Offset_3
025b e5fe       |    |		Load	0x2,-0x2
025c 4607       |F   |		Jump_Case	0x8
025d 7809       |x   |		Jump	0x267								; case 0x0
025e 780c       |x   |		Jump	0x26b								; case 0x1
025f 7809       |x   |		Jump	0x269								; case 0x2
0260 780c       |x   |		Jump	0x26d								; case 0x3
0261 780d       |x   |		Jump	0x26f								; case 0x4
0262 780e       |x   |		Jump	0x271								; case 0x5
0263 780f       |x   |		Jump	0x273								; case 0x6
0264 7800       |x   |		Jump	0x265								; case 0x7
0265 48ff       |H   |		Short_Literal	0xff
0266 780d       |x   |		Jump	0x274
0267 4801       |H   |		Short_Literal	0x1
0268 780b       |x   |		Jump	0x274
0269 4802       |H   |		Short_Literal	0x2
026a 7809       |x   |		Jump	0x274
026b 4803       |H   |		Short_Literal	0x3
026c 7807       |x   |		Jump	0x274
026d 4804       |H   |		Short_Literal	0x4
026e 7805       |x   |		Jump	0x274
026f 4805       |H   |		Short_Literal	0x5
0270 7803       |x   |		Jump	0x274
0271 4806       |H   |		Short_Literal	0x6
0272 7801       |x   |		Jump	0x274
0273 4807       |H   |		Short_Literal	0x7
0274 e5ff       |    |		Load	0x2,-0x1
0275 031b       |    |		Declare_Type	Variant_Record,Constrained
0276 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0277 00db       |    |		Load_Top	At_Offset_3
0278 e5fe       |    |		Load	0x2,-0x2
0279 e5ff       |    |		Load	0x2,-0x1
027a 1c06       |    |		Execute_Immediate	Run_Utility,0x6
027b e5ff       |    |		Load	0x2,-0x1
027c 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
027d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
027e 4800       |H   |		Short_Literal	0x0
027f 00db       |    |		Load_Top	At_Offset_3
0280 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0281 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0282 0869       | i  |		Execute_Immediate	Raise,0x69
0283 0000       |    |		.XXX[0x1]
0284 0000 0000  |    |		.DBL	0.0
0286 0000 0000  |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 029c       |    |		.CONST	0x029c								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0012       |    |		.CONST	0x0012								; Number of locals
028b			INIT_0288:
028b 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
028d 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
028f 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0291 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
0293 00bf       |    |		Action	Accept_Activation
0294 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0295 00c7       |    |		Action	Elaborate_Subprogram
0296 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0297 00c7       |    |		Action	Elaborate_Subprogram
0298 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0299 00c7       |    |		Action	Elaborate_Subprogram
029a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
029b 00c7       |    |		Action	Elaborate_Subprogram
029c			BODY_0288:
029c 00bc       |    |		Action	Signal_Activated
029d 00bb       |    |		Action	Signal_Completion
029e 0000 0000  |    |		.XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a4       |    |		.CONST	0x02a4								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 00e2       |    |		Load_Encached	Integer_Cache
02a4			BODY_02a0:
02a4 00db       |    |		Load_Top	At_Offset_3
02a5 e20e       |    |		Load	0x1,0xe
02a6 1c04       |    |		Execute_Immediate	Run_Utility,0x4
02a7 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02a8 4806       |H   |		Short_Literal	0x6
02a9 e001       |    |		Load	0x0,0x1
02aa 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02ab 00d9       |    |		Load_Top	At_Offset_1
02ac 00d9       |    |		Load_Top	At_Offset_1
02ad 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
02ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02af 0000       |    |		.XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5       |    |		.CONST	0x02b5								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0002       |    |		.CONST	0x0002								; Number of locals
02b3			INIT_02b0:
02b3 e20e       |    |		Load	0x1,0xe
02b4 0007       |    |		Action	Break_Optional
02b5			BODY_02b0:
02b5 00db       |    |		Load_Top	At_Offset_3
02b6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02b7 0f06       |    |		Execute_Immediate	Equal,0x6
02b8 6810       |h   |		Jump_Zero	0x2c9
02b9 00db       |    |		Load_Top	At_Offset_3
02ba 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
02bb e20e       |    |		Load	0x1,0xe
02bc 1c05       |    |		Execute_Immediate	Run_Utility,0x5
02bd 00d8       |    |		Load_Top	At_Offset_0
02be e20e       |    |		Load	0x1,0xe
02bf 0122       | "  |		Execute	Any,Make_Root_Type
02c0 0260       | `  |		Execute	Discrete,In_Type
02c1 7001       |p   |		Jump_Nonzero	0x2c3
02c2 0801       |    |		Execute_Immediate	Raise,0x1
02c3 00d8       |    |		Load_Top	At_Offset_0
02c4 e20e       |    |		Load	0x1,0xe
02c5 0260       | `  |		Execute	Discrete,In_Type
02c6 7001       |p   |		Jump_Nonzero	0x2c8
02c7 0801       |    |		Execute_Immediate	Raise,0x1
02c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c9 08e0       |    |		Execute_Immediate	Raise,0xe0
02ca 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2
02d4 00d8       |    |		Load_Top	At_Offset_0
02d5 e20e       |    |		Load	0x1,0xe
02d6 0260       | `  |		Execute	Discrete,In_Type
02d7 7001       |p   |		Jump_Nonzero	0x2d9
02d8 0801       |    |		Execute_Immediate	Raise,0x1
02d9 820f       |    |		Call	0x1,0xf
02da e5fe       |    |		Load	0x2,-0x2
02db 016d       | m  |		Execute	Variant_Record,Structure_Write
02dc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02dd 0000 0000  |    |		.XXX[0x3]
02df 0000       |    |
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e5       |    |		.CONST	0x02e5								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0002       |    |		.CONST	0x0002								; Number of locals
02e3			INIT_02e0:
02e3 e20e       |    |		Load	0x1,0xe
02e4 0007       |    |		Action	Break_Optional
02e5			BODY_02e0:
02e5 00db       |    |		Load_Top	At_Offset_3
02e6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02e7 0f06       |    |		Execute_Immediate	Equal,0x6
02e8 6815       |h   |		Jump_Zero	0x2fe
02e9 00db       |    |		Load_Top	At_Offset_3
02ea 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
02eb e20e       |    |		Load	0x1,0xe
02ec 1c05       |    |		Execute_Immediate	Run_Utility,0x5
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee e20e       |    |		Load	0x1,0xe
02ef 0122       | "  |		Execute	Any,Make_Root_Type
02f0 0260       | `  |		Execute	Discrete,In_Type
02f1 7001       |p   |		Jump_Nonzero	0x2f3
02f2 0801       |    |		Execute_Immediate	Raise,0x1
02f3 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02f4 e5fe       |    |		Load	0x2,-0x2
02f5 00d9       |    |		Load_Top	At_Offset_1
02f6 e20e       |    |		Load	0x1,0xe
02f7 1c04       |    |		Execute_Immediate	Run_Utility,0x4
02f8 e20e       |    |		Load	0x1,0xe
02f9 0122       | "  |		Execute	Any,Make_Root_Type
02fa 011c       |    |		Execute	Any,Convert_Unchecked
02fb 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02fc 8002       |    |		Call	0x0,0x2
02fd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02fe 08e0       |    |		Execute_Immediate	Raise,0xe0
02ff 0000       |    |		.XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 032d       | -  |		.CONST	0x032d								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0016       |    |		.CONST	0x0016								; Number of locals
0303			INIT_0300:
0303 0007       |    |		Action	Break_Optional
0304 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
0306 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
0308 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
030a 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
030c 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
030e 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
0310 029a 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Outer_Call,Visible,Unelaborated
0312 029a 04e3  |    |		Declare_Subprogram	INIT_04e0,For_Outer_Call,Visible,Unelaborated
0314 029a 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call,Visible,Unelaborated
0316 029a 052b  |   +|		Declare_Subprogram	INIT_0528,For_Outer_Call,Visible,Unelaborated
0318 00bf       |    |		Action	Accept_Activation
0319 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
031a 00c7       |    |		Action	Elaborate_Subprogram
031b 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
031c 00c7       |    |		Action	Elaborate_Subprogram
031d 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
031e 00c7       |    |		Action	Elaborate_Subprogram
031f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0320 00c7       |    |		Action	Elaborate_Subprogram
0321 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0322 00c7       |    |		Action	Elaborate_Subprogram
0323 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0324 00c7       |    |		Action	Elaborate_Subprogram
0325 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0326 00c7       |    |		Action	Elaborate_Subprogram
0327 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0328 00c7       |    |		Action	Elaborate_Subprogram
0329 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
032a 00c7       |    |		Action	Elaborate_Subprogram
032b 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
032c 00c7       |    |		Action	Elaborate_Subprogram
032d			BODY_0300:
032d 00bc       |    |		Action	Signal_Activated
032e 00bb       |    |		Action	Signal_Completion
032f 0000       |    |		.XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
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			INIT_0330:
0333 00da       |    |		Load_Top	At_Offset_2
0334 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0335 e5fe       |    |		Load	0x2,-0x2
0336 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0337 027f       |    |		Execute	Discrete,Equal
0338 6837       |h7  |		Jump_Zero	0x370
0339 00da       |    |		Load_Top	At_Offset_2
033a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
033b 4607       |F   |		Jump_Case	0x8
033c 7809       |x   |		Jump	0x346								; case 0x0
033d 780e       |x   |		Jump	0x34c								; case 0x1
033e 7813       |x   |		Jump	0x352								; case 0x2
033f 7818       |x   |		Jump	0x358								; case 0x3
0340 781d       |x   |		Jump	0x35e								; case 0x4
0341 7822       |x"  |		Jump	0x364								; case 0x5
0342 7827       |x'  |		Jump	0x36a								; case 0x6
0343 7800       |x   |		Jump	0x344								; case 0x7
0344 e001       |    |		Load	0x0,0x1
0345 0257       | W  |		Execute	Discrete,Raise
0346 00da       |    |		Load_Top	At_Offset_2
0347 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0348 e5fe       |    |		Load	0x2,-0x2
0349 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
034a 027c       | |  |		Execute	Discrete,Less
034b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
034c 00da       |    |		Load_Top	At_Offset_2
034d 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
034e e5fe       |    |		Load	0x2,-0x2
034f 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0350 027c       | |  |		Execute	Discrete,Less
0351 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0352 00da       |    |		Load_Top	At_Offset_2
0353 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0354 e5fe       |    |		Load	0x2,-0x2
0355 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0356 0244       | D  |		Execute	Float,Less
0357 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0358 00da       |    |		Load_Top	At_Offset_2
0359 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
035a e5fe       |    |		Load	0x2,-0x2
035b 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
035c 027c       | |  |		Execute	Discrete,Less
035d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
035e 00da       |    |		Load_Top	At_Offset_2
035f 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0360 e5fe       |    |		Load	0x2,-0x2
0361 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0362 027c       | |  |		Execute	Discrete,Less
0363 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0364 00db       |    |		Load_Top	At_Offset_3
0365 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0366 00db       |    |		Load_Top	At_Offset_3
0367 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0368 8002       |    |		Call	0x0,0x2
0369 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
036a 00da       |    |		Load_Top	At_Offset_2
036b 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
036c e5fe       |    |		Load	0x2,-0x2
036d 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
036e 027c       | |  |		Execute	Discrete,Less
036f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0370 e003       |    |		Load	0x0,0x3
0371 0257       | W  |		Execute	Discrete,Raise
0372 0000 0000  |    |		.BLANK	0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b 00da       |    |		Load_Top	At_Offset_2
037c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
037d e5fe       |    |		Load	0x2,-0x2
037e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
037f 027f       |    |		Execute	Discrete,Equal
0380 6837       |h7  |		Jump_Zero	0x3b8
0381 00da       |    |		Load_Top	At_Offset_2
0382 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0383 4607       |F   |		Jump_Case	0x8
0384 7809       |x   |		Jump	0x38e								; case 0x0
0385 780e       |x   |		Jump	0x394								; case 0x1
0386 7813       |x   |		Jump	0x39a								; case 0x2
0387 7818       |x   |		Jump	0x3a0								; case 0x3
0388 781d       |x   |		Jump	0x3a6								; case 0x4
0389 7822       |x"  |		Jump	0x3ac								; case 0x5
038a 7827       |x'  |		Jump	0x3b2								; case 0x6
038b 7800       |x   |		Jump	0x38c								; case 0x7
038c e001       |    |		Load	0x0,0x1
038d 0257       | W  |		Execute	Discrete,Raise
038e 00da       |    |		Load_Top	At_Offset_2
038f 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0390 e5fe       |    |		Load	0x2,-0x2
0391 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0392 027a       | z  |		Execute	Discrete,Less_Equal
0393 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0394 00da       |    |		Load_Top	At_Offset_2
0395 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0396 e5fe       |    |		Load	0x2,-0x2
0397 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0398 027a       | z  |		Execute	Discrete,Less_Equal
0399 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
039a 00da       |    |		Load_Top	At_Offset_2
039b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
039c e5fe       |    |		Load	0x2,-0x2
039d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
039e 0242       | B  |		Execute	Float,Less_Equal
039f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03a0 00da       |    |		Load_Top	At_Offset_2
03a1 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03a2 e5fe       |    |		Load	0x2,-0x2
03a3 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03a4 027a       | z  |		Execute	Discrete,Less_Equal
03a5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03a6 00da       |    |		Load_Top	At_Offset_2
03a7 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
03a8 e5fe       |    |		Load	0x2,-0x2
03a9 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
03aa 027a       | z  |		Execute	Discrete,Less_Equal
03ab 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03ac 00db       |    |		Load_Top	At_Offset_3
03ad 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
03ae 00db       |    |		Load_Top	At_Offset_3
03af 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
03b0 8004       |    |		Call	0x0,0x4
03b1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03b2 00da       |    |		Load_Top	At_Offset_2
03b3 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
03b4 e5fe       |    |		Load	0x2,-0x2
03b5 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
03b6 027a       | z  |		Execute	Discrete,Less_Equal
03b7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03b8 e003       |    |		Load	0x0,0x3
03b9 0257       | W  |		Execute	Discrete,Raise
03ba 0000 0000  |    |		.BLANK	0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 00da       |    |		Load_Top	At_Offset_2
03c4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03c5 e5fe       |    |		Load	0x2,-0x2
03c6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03c7 027f       |    |		Execute	Discrete,Equal
03c8 6837       |h7  |		Jump_Zero	0x400
03c9 00da       |    |		Load_Top	At_Offset_2
03ca 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03cb 4607       |F   |		Jump_Case	0x8
03cc 7809       |x   |		Jump	0x3d6								; case 0x0
03cd 780e       |x   |		Jump	0x3dc								; case 0x1
03ce 7813       |x   |		Jump	0x3e2								; case 0x2
03cf 7818       |x   |		Jump	0x3e8								; case 0x3
03d0 781d       |x   |		Jump	0x3ee								; case 0x4
03d1 7822       |x"  |		Jump	0x3f4								; case 0x5
03d2 7827       |x'  |		Jump	0x3fa								; case 0x6
03d3 7800       |x   |		Jump	0x3d4								; case 0x7
03d4 e001       |    |		Load	0x0,0x1
03d5 0257       | W  |		Execute	Discrete,Raise
03d6 00da       |    |		Load_Top	At_Offset_2
03d7 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03d8 e5fe       |    |		Load	0x2,-0x2
03d9 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03da 027d       | }  |		Execute	Discrete,Greater
03db 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03dc 00da       |    |		Load_Top	At_Offset_2
03dd 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03de e5fe       |    |		Load	0x2,-0x2
03df 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03e0 027d       | }  |		Execute	Discrete,Greater
03e1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e2 00da       |    |		Load_Top	At_Offset_2
03e3 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03e4 e5fe       |    |		Load	0x2,-0x2
03e5 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03e6 0245       | E  |		Execute	Float,Greater
03e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e8 00da       |    |		Load_Top	At_Offset_2
03e9 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03ea e5fe       |    |		Load	0x2,-0x2
03eb 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03ec 027d       | }  |		Execute	Discrete,Greater
03ed 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03ee 00da       |    |		Load_Top	At_Offset_2
03ef 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
03f0 e5fe       |    |		Load	0x2,-0x2
03f1 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
03f2 027d       | }  |		Execute	Discrete,Greater
03f3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03f4 00db       |    |		Load_Top	At_Offset_3
03f5 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
03f6 00db       |    |		Load_Top	At_Offset_3
03f7 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
03f8 8005       |    |		Call	0x0,0x5
03f9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03fa 00da       |    |		Load_Top	At_Offset_2
03fb 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
03fc e5fe       |    |		Load	0x2,-0x2
03fd 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
03fe 027d       | }  |		Execute	Discrete,Greater
03ff 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0400 e003       |    |		Load	0x0,0x3
0401 0257       | W  |		Execute	Discrete,Raise
0402 0000 0000  |    |		.BLANK	0000[0x6]
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 e5fe       |    |		Load	0x2,-0x2
040e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
040f 027f       |    |		Execute	Discrete,Equal
0410 6837       |h7  |		Jump_Zero	0x448
0411 00da       |    |		Load_Top	At_Offset_2
0412 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0413 4607       |F   |		Jump_Case	0x8
0414 7809       |x   |		Jump	0x41e								; case 0x0
0415 780e       |x   |		Jump	0x424								; case 0x1
0416 7813       |x   |		Jump	0x42a								; case 0x2
0417 7818       |x   |		Jump	0x430								; case 0x3
0418 781d       |x   |		Jump	0x436								; case 0x4
0419 7822       |x"  |		Jump	0x43c								; case 0x5
041a 7827       |x'  |		Jump	0x442								; case 0x6
041b 7800       |x   |		Jump	0x41c								; case 0x7
041c e001       |    |		Load	0x0,0x1
041d 0257       | W  |		Execute	Discrete,Raise
041e 00da       |    |		Load_Top	At_Offset_2
041f 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0420 e5fe       |    |		Load	0x2,-0x2
0421 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0422 027b       | {  |		Execute	Discrete,Greater_Equal
0423 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0424 00da       |    |		Load_Top	At_Offset_2
0425 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0426 e5fe       |    |		Load	0x2,-0x2
0427 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0428 027b       | {  |		Execute	Discrete,Greater_Equal
0429 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
042a 00da       |    |		Load_Top	At_Offset_2
042b 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
042c e5fe       |    |		Load	0x2,-0x2
042d 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
042e 0243       | C  |		Execute	Float,Greater_Equal
042f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0430 00da       |    |		Load_Top	At_Offset_2
0431 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0432 e5fe       |    |		Load	0x2,-0x2
0433 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0434 027b       | {  |		Execute	Discrete,Greater_Equal
0435 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0436 00da       |    |		Load_Top	At_Offset_2
0437 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0438 e5fe       |    |		Load	0x2,-0x2
0439 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
043a 027b       | {  |		Execute	Discrete,Greater_Equal
043b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
043c 00db       |    |		Load_Top	At_Offset_3
043d 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
043e 00db       |    |		Load_Top	At_Offset_3
043f 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0440 8006       |    |		Call	0x0,0x6
0441 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0442 00da       |    |		Load_Top	At_Offset_2
0443 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0444 e5fe       |    |		Load	0x2,-0x2
0445 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0446 027b       | {  |		Execute	Discrete,Greater_Equal
0447 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0448 e003       |    |		Load	0x0,0x3
0449 0257       | W  |		Execute	Discrete,Raise
044a 0000 0000  |    |		.BLANK	0000[0x6]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 00da       |    |		Load_Top	At_Offset_2
0454 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0455 e5fe       |    |		Load	0x2,-0x2
0456 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0457 027f       |    |		Execute	Discrete,Equal
0458 6820       |h   |		Jump_Zero	0x479
0459 00da       |    |		Load_Top	At_Offset_2
045a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
045b 4607       |F   |		Jump_Case	0x8
045c 7809       |x   |		Jump	0x466								; case 0x0
045d 7806       |x   |		Jump	0x464								; case 0x1
045e 7813       |x   |		Jump	0x472								; case 0x2
045f 7804       |x   |		Jump	0x464								; case 0x3
0460 7803       |x   |		Jump	0x464								; case 0x4
0461 7802       |x   |		Jump	0x464								; case 0x5
0462 7801       |x   |		Jump	0x464								; case 0x6
0463 7800       |x   |		Jump	0x464								; case 0x7
0464 e001       |    |		Load	0x0,0x1
0465 0257       | W  |		Execute	Discrete,Raise
0466 00da       |    |		Load_Top	At_Offset_2
0467 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0468 e5fe       |    |		Load	0x2,-0x2
0469 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
046a 0273       | s  |		Execute	Discrete,Plus
046b 00d8       |    |		Load_Top	At_Offset_0
046c 00e2       |    |		Load_Encached	Integer_Cache
046d 0260       | `  |		Execute	Discrete,In_Type
046e 7001       |p   |		Jump_Nonzero	0x470
046f 0801       |    |		Execute_Immediate	Raise,0x1
0470 8007       |    |		Call	0x0,0x7
0471 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0472 00da       |    |		Load_Top	At_Offset_2
0473 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0474 e5fe       |    |		Load	0x2,-0x2
0475 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0476 023d       | =  |		Execute	Float,Plus
0477 8008       |    |		Call	0x0,0x8
0478 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0479 e003       |    |		Load	0x0,0x3
047a 0257       | W  |		Execute	Discrete,Raise
047b 0000 0000  |    |		.BLANK	0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 00da       |    |		Load_Top	At_Offset_2
0484 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0485 e5fe       |    |		Load	0x2,-0x2
0486 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0487 027f       |    |		Execute	Discrete,Equal
0488 6820       |h   |		Jump_Zero	0x4a9
0489 00da       |    |		Load_Top	At_Offset_2
048a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
048b 4607       |F   |		Jump_Case	0x8
048c 7809       |x   |		Jump	0x496								; case 0x0
048d 7806       |x   |		Jump	0x494								; case 0x1
048e 7813       |x   |		Jump	0x4a2								; case 0x2
048f 7804       |x   |		Jump	0x494								; case 0x3
0490 7803       |x   |		Jump	0x494								; case 0x4
0491 7802       |x   |		Jump	0x494								; case 0x5
0492 7801       |x   |		Jump	0x494								; case 0x6
0493 7800       |x   |		Jump	0x494								; case 0x7
0494 e001       |    |		Load	0x0,0x1
0495 0257       | W  |		Execute	Discrete,Raise
0496 00da       |    |		Load_Top	At_Offset_2
0497 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0498 e5fe       |    |		Load	0x2,-0x2
0499 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
049a 0272       | r  |		Execute	Discrete,Minus
049b 00d8       |    |		Load_Top	At_Offset_0
049c 00e2       |    |		Load_Encached	Integer_Cache
049d 0260       | `  |		Execute	Discrete,In_Type
049e 7001       |p   |		Jump_Nonzero	0x4a0
049f 0801       |    |		Execute_Immediate	Raise,0x1
04a0 8007       |    |		Call	0x0,0x7
04a1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a2 00da       |    |		Load_Top	At_Offset_2
04a3 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04a4 e5fe       |    |		Load	0x2,-0x2
04a5 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04a6 023c       | <  |		Execute	Float,Minus
04a7 8008       |    |		Call	0x0,0x8
04a8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a9 e003       |    |		Load	0x0,0x3
04aa 0257       | W  |		Execute	Discrete,Raise
04ab 0000 0000  |    |		.BLANK	0000[0x5]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3       |    |		.CONST	0x04b3								; Address of begin
04b1 0004       |    |		.CONST	0x0004								; Address of exception handler
04b2 0001       |    |		.CONST	0x0001								; Number of locals
04b3			BODY_04b0:
04b3			INIT_04b0:
04b3 00da       |    |		Load_Top	At_Offset_2
04b4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04b5 e5fe       |    |		Load	0x2,-0x2
04b6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04b7 027f       |    |		Execute	Discrete,Equal
04b8 6820       |h   |		Jump_Zero	0x4d9
04b9 00da       |    |		Load_Top	At_Offset_2
04ba 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04bb 4607       |F   |		Jump_Case	0x8
04bc 7809       |x   |		Jump	0x4c6								; case 0x0
04bd 7806       |x   |		Jump	0x4c4								; case 0x1
04be 7813       |x   |		Jump	0x4d2								; case 0x2
04bf 7804       |x   |		Jump	0x4c4								; case 0x3
04c0 7803       |x   |		Jump	0x4c4								; case 0x4
04c1 7802       |x   |		Jump	0x4c4								; case 0x5
04c2 7801       |x   |		Jump	0x4c4								; case 0x6
04c3 7800       |x   |		Jump	0x4c4								; case 0x7
04c4 e001       |    |		Load	0x0,0x1
04c5 0257       | W  |		Execute	Discrete,Raise
04c6 00da       |    |		Load_Top	At_Offset_2
04c7 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04c8 e5fe       |    |		Load	0x2,-0x2
04c9 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04ca 0271       | q  |		Execute	Discrete,Times
04cb 00d8       |    |		Load_Top	At_Offset_0
04cc 00e2       |    |		Load_Encached	Integer_Cache
04cd 0260       | `  |		Execute	Discrete,In_Type
04ce 7001       |p   |		Jump_Nonzero	0x4d0
04cf 0801       |    |		Execute_Immediate	Raise,0x1
04d0 8007       |    |		Call	0x0,0x7
04d1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04d2 00da       |    |		Load_Top	At_Offset_2
04d3 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04d4 e5fe       |    |		Load	0x2,-0x2
04d5 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04d6 023b       | ;  |		Execute	Float,Times
04d7 8008       |    |		Call	0x0,0x8
04d8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04d9 e003       |    |		Load	0x0,0x3
04da 0257       | W  |		Execute	Discrete,Raise
04db 0000 0000  |    |		.BLANK	0000[0x5]
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 681b       |h   |		Jump_Zero	0x504
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 7809       |x   |		Jump	0x4f6								; case 0x0
04ed 7806       |x   |		Jump	0x4f4								; case 0x1
04ee 780e       |x   |		Jump	0x4fd								; case 0x2
04ef 7804       |x   |		Jump	0x4f4								; case 0x3
04f0 7803       |x   |		Jump	0x4f4								; case 0x4
04f1 7802       |x   |		Jump	0x4f4								; case 0x5
04f2 7801       |x   |		Jump	0x4f4								; case 0x6
04f3 7800       |x   |		Jump	0x4f4								; case 0x7
04f4 e001       |    |		Load	0x0,0x1
04f5 0257       | W  |		Execute	Discrete,Raise
04f6 00da       |    |		Load_Top	At_Offset_2
04f7 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04f8 e5fe       |    |		Load	0x2,-0x2
04f9 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04fa 0270       | p  |		Execute	Discrete,Divide
04fb 8007       |    |		Call	0x0,0x7
04fc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04fd 00da       |    |		Load_Top	At_Offset_2
04fe 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04ff e5fe       |    |		Load	0x2,-0x2
0500 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0501 023a       | :  |		Execute	Float,Divide
0502 8008       |    |		Call	0x0,0x8
0503 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0504 e003       |    |		Load	0x0,0x3
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 00da       |    |		Load_Top	At_Offset_2
050c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
050d 4607       |F   |		Jump_Case	0x8
050e 7809       |x   |		Jump	0x518								; case 0x0
050f 7806       |x   |		Jump	0x516								; case 0x1
0510 780c       |x   |		Jump	0x51d								; case 0x2
0511 7804       |x   |		Jump	0x516								; case 0x3
0512 7803       |x   |		Jump	0x516								; case 0x4
0513 7802       |x   |		Jump	0x516								; case 0x5
0514 7801       |x   |		Jump	0x516								; case 0x6
0515 7800       |x   |		Jump	0x516								; case 0x7
0516 e001       |    |		Load	0x0,0x1
0517 0257       | W  |		Execute	Discrete,Raise
0518 00da       |    |		Load_Top	At_Offset_2
0519 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
051a 0275       | u  |		Execute	Discrete,Unary_Minus
051b 8007       |    |		Call	0x0,0x7
051c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
051d 00da       |    |		Load_Top	At_Offset_2
051e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
051f 023f       | ?  |		Execute	Float,Unary_Minus
0520 8008       |    |		Call	0x0,0x8
0521 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0522 0000 0000  |    |		.BLANK	0000[0x6]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b       | +  |		.CONST	0x052b								; Address of begin
0529 0004       |    |		.CONST	0x0004								; Address of exception handler
052a 0001       |    |		.CONST	0x0001								; Number of locals
052b			BODY_0528:
052b			INIT_0528:
052b 00da       |    |		Load_Top	At_Offset_2
052c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
052d 4607       |F   |		Jump_Case	0x8
052e 7809       |x   |		Jump	0x538								; case 0x0
052f 7806       |x   |		Jump	0x536								; case 0x1
0530 780c       |x   |		Jump	0x53d								; case 0x2
0531 7804       |x   |		Jump	0x536								; case 0x3
0532 7803       |x   |		Jump	0x536								; case 0x4
0533 7802       |x   |		Jump	0x536								; case 0x5
0534 7801       |x   |		Jump	0x536								; case 0x6
0535 7800       |x   |		Jump	0x536								; case 0x7
0536 e001       |    |		Load	0x0,0x1
0537 0257       | W  |		Execute	Discrete,Raise
0538 00da       |    |		Load_Top	At_Offset_2
0539 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
053a 0274       | t  |		Execute	Discrete,Absolute_Value
053b 8007       |    |		Call	0x0,0x7
053c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
053d 00da       |    |		Load_Top	At_Offset_2
053e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
053f 023e       | >  |		Execute	Float,Absolute_Value
0540 8008       |    |		Call	0x0,0x8
0541 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0542 ; --------------------------------------------------------------------------------------
0542 ; STRING TABLE
0542 ; --------------------------------------------------------------------------------------
0542 0014       |    |		.STRTAB	0x0014->0x054c							; "INTEGER"
0543 0019       |    |		.STRTAB	0x0019->0x054f							; "BOOLEAN"
0544 001e       |    |		.STRTAB	0x001e->0x0553							; "FLOAT"
0545 0021       | !  |		.STRTAB	0x0021->0x0555							; "CHARACTER"
0546 0028       | (  |		.STRTAB	0x0028->0x055a							; "DURATION"
0547 002e       | .  |		.STRTAB	0x002e->0x055e							; "STRING"
0548 0032       | 2  |		.STRTAB	0x0032->0x0561							; "ENUMERATION"
0549 003b       | ;  |		.STRTAB	0x003b->0x0566							; "UNDEFINED"
054a 0042       | B  |		.STRTAB	0x0042->0x056b							; "undefined slot value"
054b 0054       | T  |		.STREND 0x0054->0x0575
054c 494e 5445  |INTE|		.STRTAB_STRINGS
0575 0000 0000  |    |		.XXX[0x3]
0577 0000       |    |
0578 ; --------------------------------------------------------------------------------------
0578 ; Debug Table
0578 ; --------------------------------------------------------------------------------------
0578 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x9c11,0x0000,0x0001,0x002a
057e 000b 0626  |   &|		.DBG4T	0x000b,0x0626,0x8000,0x0000
0582 007e 0648  | ~ H|		.DBG4T	0x007e,0x0648,0x8000,0x0000
0586 00c3 0000  |    |		.DBG4T	0x00c3,0x0000,0x0005,0x0000
058a 00f3 0660  |   `|		.DBG4T	0x00f3,0x0660,0x0002,0x0000
058e 0103 0663  |   c|		.DBG4T	0x0103,0x0663,0x0002,0x0000
0592 0113 0666  |   f|		.DBG4T	0x0113,0x0666,0x0002,0x0000
0596 0123 0669  | # i|		.DBG4T	0x0123,0x0669,0x0002,0x0000
059a 0133 066c  | 3 l|		.DBG4T	0x0133,0x066c,0x0002,0x0000
059e 0143 066f  | C o|		.DBG4T	0x0143,0x066f,0x0002,0x0000
05a2 0153 0672  | S r|		.DBG4T	0x0153,0x0672,0x0002,0x0000
05a6 015b 0675  | [ u|		.DBG4T	0x015b,0x0675,0x0002,0x0000
05aa 0163 0678  | c x|		.DBG4T	0x0163,0x0678,0x0002,0x0000
05ae 016b 067b  | k {|		.DBG4T	0x016b,0x067b,0x0002,0x0000
05b2 0173 067e  | s ~|		.DBG4T	0x0173,0x067e,0x0002,0x0000
05b6 017b 0681  | {  |		.DBG4T	0x017b,0x0681,0x0002,0x0000
05ba 0183 0684  |    |		.DBG4T	0x0183,0x0684,0x0001,0x0000
05be 018b 0687  |    |		.DBG4T	0x018b,0x0687,0x0001,0x0000
05c2 0193 068a  |    |		.DBG4T	0x0193,0x068a,0x0001,0x0000
05c6 019b 068d  |    |		.DBG4T	0x019b,0x068d,0x0001,0x0000
05ca 01a3 0690  |    |		.DBG4T	0x01a3,0x0690,0x0001,0x0000
05ce 01ab 0693  |    |		.DBG4T	0x01ab,0x0693,0x0001,0x0000
05d2 01b3 0696  |    |		.DBG4T	0x01b3,0x0696,0x0002,0x0000
05d6 01c3 0699  |    |		.DBG4T	0x01c3,0x0699,0x0001,0x4000
05da 01fb 0000  |    |		.DBG4T	0x01fb,0x0000,0x0005,0x0000
05de 028b 06ad  |    |		.DBG4T	0x028b,0x06ad,0x4000,0x0000
05e2 0294 06b3  |    |		.DBG4T	0x0294,0x06b3,0x4000,0x0000
05e6 02a3 06b9  |    |		.DBG4T	0x02a3,0x06b9,0x1002,0x0000
05ea 02b3 06be  |    |		.DBG4T	0x02b3,0x06be,0x1002,0x0000
05ee 02d3 06c4  |    |		.DBG4T	0x02d3,0x06c4,0x1001,0x0000
05f2 02e3 06c7  |    |		.DBG4T	0x02e3,0x06c7,0x1001,0x0000
05f6 0303 06ce  |    |		.DBG4T	0x0303,0x06ce,0x0000,0x0000
05fa 0319 06db  |    |		.DBG4T	0x0319,0x06db,0x0000,0x0000
05fe 0333 06e7  | 3  |		.DBG4T	0x0333,0x06e7,0x0002,0x4000
0602 037b 06ff  | {  |		.DBG4T	0x037b,0x06ff,0x0002,0x4000
0606 03c3 0717  |    |		.DBG4T	0x03c3,0x0717,0x0002,0x4000
060a 040b 072f  |   /|		.DBG4T	0x040b,0x072f,0x0002,0x4000
060e 0453 0747  | S G|		.DBG4T	0x0453,0x0747,0x0002,0x4000
0612 0483 0755  |   U|		.DBG4T	0x0483,0x0755,0x0002,0x4000
0616 04b3 0763  |   c|		.DBG4T	0x04b3,0x0763,0x0002,0x4000
061a 04e3 0771  |   q|		.DBG4T	0x04e3,0x0771,0x0002,0x4000
061e 050b 077f  |    |		.DBG4T	0x050b,0x077f,0x0002,0x4000
0622 052b 0789  | +  |		.DBG4T	0x052b,0x0789,0x0002,0x4000
0626 ; --------------------------------------------------------------------------------------
0626 ; Debug chain
0626 ; --------------------------------------------------------------------------------------
0626 0020 0000  |    |		.DBGLEN	0x0020,0x0000
0628 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0011,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x0042,0x0047,0x004c,0x0051,0x0068,0x006d,0x0075
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug chain
0648 ; --------------------------------------------------------------------------------------
0648 0016 0000  |    |		.DBGLEN	0x0016,0x0000
064a 007e 0080  | ~  |		.DBGLNO	0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00b3
0660 ; --------------------------------------------------------------------------------------
0660 ; Debug chain
0660 ; --------------------------------------------------------------------------------------
0660 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0662 00f3       |    |		.DBGLNO	0x00f3
0663 ; --------------------------------------------------------------------------------------
0663 ; Debug chain
0663 ; --------------------------------------------------------------------------------------
0663 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0665 0103       |    |		.DBGLNO	0x0103
0666 ; --------------------------------------------------------------------------------------
0666 ; Debug chain
0666 ; --------------------------------------------------------------------------------------
0666 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0668 0113       |    |		.DBGLNO	0x0113
0669 ; --------------------------------------------------------------------------------------
0669 ; Debug chain
0669 ; --------------------------------------------------------------------------------------
0669 0000 0001  |    |		.DBGLEN	0x0000,0x0001
066b 0123       | #  |		.DBGLNO	0x0123
066c ; --------------------------------------------------------------------------------------
066c ; Debug chain
066c ; --------------------------------------------------------------------------------------
066c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
066e 0133       | 3  |		.DBGLNO	0x0133
066f ; --------------------------------------------------------------------------------------
066f ; Debug chain
066f ; --------------------------------------------------------------------------------------
066f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0671 0143       | C  |		.DBGLNO	0x0143
0672 ; --------------------------------------------------------------------------------------
0672 ; Debug chain
0672 ; --------------------------------------------------------------------------------------
0672 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0674 0153       | S  |		.DBGLNO	0x0153
0675 ; --------------------------------------------------------------------------------------
0675 ; Debug chain
0675 ; --------------------------------------------------------------------------------------
0675 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0677 015b       | [  |		.DBGLNO	0x015b
0678 ; --------------------------------------------------------------------------------------
0678 ; Debug chain
0678 ; --------------------------------------------------------------------------------------
0678 0000 0001  |    |		.DBGLEN	0x0000,0x0001
067a 0163       | c  |		.DBGLNO	0x0163
067b ; --------------------------------------------------------------------------------------
067b ; Debug chain
067b ; --------------------------------------------------------------------------------------
067b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
067d 016b       | k  |		.DBGLNO	0x016b
067e ; --------------------------------------------------------------------------------------
067e ; Debug chain
067e ; --------------------------------------------------------------------------------------
067e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0680 0173       | s  |		.DBGLNO	0x0173
0681 ; --------------------------------------------------------------------------------------
0681 ; Debug chain
0681 ; --------------------------------------------------------------------------------------
0681 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0683 017b       | {  |		.DBGLNO	0x017b
0684 ; --------------------------------------------------------------------------------------
0684 ; Debug chain
0684 ; --------------------------------------------------------------------------------------
0684 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0686 0183       |    |		.DBGLNO	0x0183
0687 ; --------------------------------------------------------------------------------------
0687 ; Debug chain
0687 ; --------------------------------------------------------------------------------------
0687 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0689 018b       |    |		.DBGLNO	0x018b
068a ; --------------------------------------------------------------------------------------
068a ; Debug chain
068a ; --------------------------------------------------------------------------------------
068a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
068c 0193       |    |		.DBGLNO	0x0193
068d ; --------------------------------------------------------------------------------------
068d ; Debug chain
068d ; --------------------------------------------------------------------------------------
068d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
068f 019b       |    |		.DBGLNO	0x019b
0690 ; --------------------------------------------------------------------------------------
0690 ; Debug chain
0690 ; --------------------------------------------------------------------------------------
0690 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0692 01a3       |    |		.DBGLNO	0x01a3
0693 ; --------------------------------------------------------------------------------------
0693 ; Debug chain
0693 ; --------------------------------------------------------------------------------------
0693 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0695 01ab       |    |		.DBGLNO	0x01ab
0696 ; --------------------------------------------------------------------------------------
0696 ; Debug chain
0696 ; --------------------------------------------------------------------------------------
0696 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0698 01b3       |    |		.DBGLNO	0x01b3
0699 ; --------------------------------------------------------------------------------------
0699 ; Debug chain
0699 ; --------------------------------------------------------------------------------------
0699 0000 0009  |    |		.DBGLEN	0x0000,0x0009
069b 01c3 01ce  |    |		.DBGLNO	0x01c3,0x01ce,0x01d3,0x01d8,0x01dd,0x01e2,0x01e7,0x01ec,0x01f1
06a4 0001 0009  |    |		.XXX[0x9]
06a6 0002 0003  |    |
06a8 0004 0005  |    |
06aa 0006 0007  |    |
06ac 0008       |    |
06ad ; --------------------------------------------------------------------------------------
06ad ; Debug chain
06ad ; --------------------------------------------------------------------------------------
06ad 0004 0000  |    |		.DBGLEN	0x0004,0x0000
06af 028b 028d  |    |		.DBGLNO	0x028b,0x028d,0x028f,0x0291
06b3 ; --------------------------------------------------------------------------------------
06b3 ; Debug chain
06b3 ; --------------------------------------------------------------------------------------
06b3 0004 0000  |    |		.DBGLEN	0x0004,0x0000
06b5 0294 0296  |    |		.DBGLNO	0x0294,0x0296,0x0298,0x029a
06b9 ; --------------------------------------------------------------------------------------
06b9 ; Debug chain
06b9 ; --------------------------------------------------------------------------------------
06b9 0001 0002  |    |		.DBGLEN	0x0001,0x0002
06bb 02a3 02a4  |    |		.DBGLNO	0x02a3,0x02a4,0x02a8
06be ; --------------------------------------------------------------------------------------
06be ; Debug chain
06be ; --------------------------------------------------------------------------------------
06be 0001 0003  |    |		.DBGLEN	0x0001,0x0003
06c0 02b3 02b5  |    |		.DBGLNO	0x02b3,0x02b5,0x02b9,0x02c9
06c4 ; --------------------------------------------------------------------------------------
06c4 ; Debug chain
06c4 ; --------------------------------------------------------------------------------------
06c4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
06c6 02d3       |    |		.DBGLNO	0x02d3
06c7 ; --------------------------------------------------------------------------------------
06c7 ; Debug chain
06c7 ; --------------------------------------------------------------------------------------
06c7 0001 0004  |    |		.DBGLEN	0x0001,0x0004
06c9 02e3 02e5  |    |		.DBGLNO	0x02e3,0x02e5,0x02e9,0x02f4,0x02fe
06ce ; --------------------------------------------------------------------------------------
06ce ; Debug chain
06ce ; --------------------------------------------------------------------------------------
06ce 000b 0000  |    |		.DBGLEN	0x000b,0x0000
06d0 0303 0304  |    |		.DBGLNO	0x0303,0x0304,0x0306,0x0308,0x030a,0x030c,0x030e,0x0310,0x0312,0x0314,0x0316
06db ; --------------------------------------------------------------------------------------
06db ; Debug chain
06db ; --------------------------------------------------------------------------------------
06db 000a 0000  |    |		.DBGLEN	0x000a,0x0000
06dd 0319 031b  |    |		.DBGLNO	0x0319,0x031b,0x031d,0x031f,0x0321,0x0323,0x0325,0x0327,0x0329,0x032b
06e7 ; --------------------------------------------------------------------------------------
06e7 ; Debug chain
06e7 ; --------------------------------------------------------------------------------------
06e7 0000 000b  |    |		.DBGLEN	0x0000,0x000b
06e9 0333 0339  | 3 9|		.DBGLNO	0x0333,0x0339,0x0344,0x0346,0x034c,0x0352,0x0358,0x035e,0x0364,0x036a,0x0370
06f4 0001 0002  |    |		.XXX[0xb]
06f6 000a 0003  |    |
06f8 0004 0005  |    |
06fa 0006 0007  |    |
06fc 0008 0009  |    |
06fe 000b       |    |
06ff ; --------------------------------------------------------------------------------------
06ff ; Debug chain
06ff ; --------------------------------------------------------------------------------------
06ff 0000 000b  |    |		.DBGLEN	0x0000,0x000b
0701 037b 0381  | {  |		.DBGLNO	0x037b,0x0381,0x038c,0x038e,0x0394,0x039a,0x03a0,0x03a6,0x03ac,0x03b2,0x03b8
070c 0001 0002  |    |		.XXX[0xb]
070e 000a 0003  |    |
0710 0004 0005  |    |
0712 0006 0007  |    |
0714 0008 0009  |    |
0716 000b       |    |
0717 ; --------------------------------------------------------------------------------------
0717 ; Debug chain
0717 ; --------------------------------------------------------------------------------------
0717 0000 000b  |    |		.DBGLEN	0x0000,0x000b
0719 03c3 03c9  |    |		.DBGLNO	0x03c3,0x03c9,0x03d4,0x03d6,0x03dc,0x03e2,0x03e8,0x03ee,0x03f4,0x03fa,0x0400
0724 0001 0002  |    |		.XXX[0xb]
0726 000a 0003  |    |
0728 0004 0005  |    |
072a 0006 0007  |    |
072c 0008 0009  |    |
072e 000b       |    |
072f ; --------------------------------------------------------------------------------------
072f ; Debug chain
072f ; --------------------------------------------------------------------------------------
072f 0000 000b  |    |		.DBGLEN	0x0000,0x000b
0731 040b 0411  |    |		.DBGLNO	0x040b,0x0411,0x041c,0x041e,0x0424,0x042a,0x0430,0x0436,0x043c,0x0442,0x0448
073c 0001 0002  |    |		.XXX[0xb]
073e 000a 0003  |    |
0740 0004 0005  |    |
0742 0006 0007  |    |
0744 0008 0009  |    |
0746 000b       |    |
0747 ; --------------------------------------------------------------------------------------
0747 ; Debug chain
0747 ; --------------------------------------------------------------------------------------
0747 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0749 0453 0459  | S Y|		.DBGLNO	0x0453,0x0459,0x0464,0x0466,0x0472,0x0479
074f 0001 0002  |    |		.XXX[0x6]
0751 0005 0003  |    |
0753 0004 0006  |    |
0755 ; --------------------------------------------------------------------------------------
0755 ; Debug chain
0755 ; --------------------------------------------------------------------------------------
0755 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0757 0483 0489  |    |		.DBGLNO	0x0483,0x0489,0x0494,0x0496,0x04a2,0x04a9
075d 0001 0002  |    |		.XXX[0x6]
075f 0005 0003  |    |
0761 0004 0006  |    |
0763 ; --------------------------------------------------------------------------------------
0763 ; Debug chain
0763 ; --------------------------------------------------------------------------------------
0763 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0765 04b3 04b9  |    |		.DBGLNO	0x04b3,0x04b9,0x04c4,0x04c6,0x04d2,0x04d9
076b 0001 0002  |    |		.XXX[0x6]
076d 0005 0003  |    |
076f 0004 0006  |    |
0771 ; --------------------------------------------------------------------------------------
0771 ; Debug chain
0771 ; --------------------------------------------------------------------------------------
0771 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0773 04e3 04e9  |    |		.DBGLNO	0x04e3,0x04e9,0x04f4,0x04f6,0x04fd,0x0504
0779 0001 0002  |    |		.XXX[0x6]
077b 0005 0003  |    |
077d 0004 0006  |    |
077f ; --------------------------------------------------------------------------------------
077f ; Debug chain
077f ; --------------------------------------------------------------------------------------
077f 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0781 050b 0516  |    |		.DBGLNO	0x050b,0x0516,0x0518,0x051d
0785 0001 0004  |    |		.XXX[0x4]
0787 0002 0003  |    |
0789 ; --------------------------------------------------------------------------------------
0789 ; Debug chain
0789 ; --------------------------------------------------------------------------------------
0789 0000 0004  |    |		.DBGLEN	0x0000,0x0004
078b 052b 0536  | + 6|		.DBGLNO	0x052b,0x0536,0x0538,0x053d
078f 0001 0004  |    |		.XXX[0x4]
0791 0002 0003  |    |
0793 0000 0000  |    |		.BLANK	0000[0x6d]