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

⟦76bcc9398⟧

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

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 0670       | p  |		.CONST	0x0670								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d8       |    |		.CONST	0x00d8								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4808       |H   |		Short_Literal	0x8
000d 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,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 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0016 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0018 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
001a 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
001c 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
001e 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0020 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0022 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0024 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0026 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0028 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
002a 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
002c 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
002e 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
0030 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0032 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0034 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0036 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0038 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
003a 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
003c 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
003e 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0040 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0042 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0044 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0046 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0048 4800       |H   |		Short_Literal	0x0
0049 0093 0373  |   s|		push_full_address	INIT_0370
004b 02a0       |    |		Declare_Subprogram	Null_Subprogram
004c 038f       |    |		Declare_Type	Package,Defined,Visible
004d 0386       |    |		Declare_Variable	Package,Visible
004e 4802       |H   |		Short_Literal	0x2
004f 0093 02fb  |    |		push_full_address	INIT_02f8
0051 02a0       |    |		Declare_Subprogram	Null_Subprogram
0052 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0053 0093 0000  |    |		push_full_address	0x0
0055 60b6       |`   |		Indirect_Literal	Discrete,0x10c,{0x80000000, 0x00010000}
0056 0273       | s  |		Execute	Discrete,Plus
0057 0129       | )  |		Execute	Any,Make_Visible
0058 0093 0000  |    |		push_full_address	0x0
005a 60ad       |`   |		Indirect_Literal	Discrete,0x108,{0x80000000, 0x00020000}
005b 0273       | s  |		Execute	Discrete,Plus
005c 0129       | )  |		Execute	Any,Make_Visible
005d e20d       |    |		Load	0x1,0xd
005e 4801       |H   |		Short_Literal	0x1
005f 00e2       |    |		Load_Encached	Integer_Cache
0060 4801       |H   |		Short_Literal	0x1
0061 00e6       |    |		Load_Encached	Float_Cache
0062 4801       |H   |		Short_Literal	0x1
0063 00e1       |    |		Load_Encached	Boolean_Cache
0064 4801       |H   |		Short_Literal	0x1
0065 00e8       |    |		Load_Encached	Character_Cache
0066 4801       |H   |		Short_Literal	0x1
0067 00e7       |    |		Load_Encached	Duration_Cache
0068 4801       |H   |		Short_Literal	0x1
0069 e003       |    |		Load	0x0,0x3
006a 4801       |H   |		Short_Literal	0x1
006b 00e2       |    |		Load_Encached	Integer_Cache
006c 4801       |H   |		Short_Literal	0x1
006d e004       |    |		Load	0x0,0x4
006e 029f 025b  |   [|		Declare_Subprogram	INIT_0258,For_Call
0070 4808       |H   |		Short_Literal	0x8
0071 4800       |H   |		Short_Literal	0x0
0072 4808       |H   |		Short_Literal	0x8
0073 4800       |H   |		Short_Literal	0x0
0074 4801       |H   |		Short_Literal	0x1
0075 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0076 4808       |H   |		Short_Literal	0x8
0077 00d9       |    |		Load_Top	At_Offset_1
0078 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0079 0129       | )  |		Execute	Any,Make_Visible
007a c20e       |    |		Store	0x1,0xe
007b 4801       |H   |		Short_Literal	0x1
007c 00d9       |    |		Load_Top	At_Offset_1
007d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
007e 4800       |H   |		Short_Literal	0x0
007f 00d9       |    |		Load_Top	At_Offset_1
0080 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0081 0129       | )  |		Execute	Any,Make_Visible
0082 c20f       |    |		Store	0x1,0xf
0083 4801       |H   |		Short_Literal	0x1
0084 00d9       |    |		Load_Top	At_Offset_1
0085 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0086 4801       |H   |		Short_Literal	0x1
0087 00d9       |    |		Load_Top	At_Offset_1
0088 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0089 0129       | )  |		Execute	Any,Make_Visible
008a c210       |    |		Store	0x1,0x10
008b 00bf       |    |		Action	Accept_Activation
008c 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 a005       |    |		Store_Unchecked	0x0,0x5
00c2 00db       |    |		Load_Top	At_Offset_3
00c3 a006       |    |		Store_Unchecked	0x0,0x6
00c4 a007       |    |		Store_Unchecked	0x0,0x7
00c5 a008       |    |		Store_Unchecked	0x0,0x8
00c6 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00c7 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00c8 e003       |    |		Load	0x0,0x3
00c9 a009       |    |		Store_Unchecked	0x0,0x9
00ca e22f       | /  |		Load	0x1,0x2f
00cb a00a       |    |		Store_Unchecked	0x0,0xa
00cc 480c       |H   |		Short_Literal	0xc
00cd e22b       | +  |		Load	0x1,0x2b
00ce 020e       |    |		Execute	Module,Augment_Imports
00cf e22b       | +  |		Load	0x1,0x2b
00d0 020f       |    |		Execute	Module,Activate
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 a00b       |    |		Store_Unchecked	0x0,0xb
00d3 4802       |H   |		Short_Literal	0x2
00d4 e22c       | ,  |		Load	0x1,0x2c
00d5 020e       |    |		Execute	Module,Augment_Imports
00d6 00db       |    |		Load_Top	At_Offset_3
00d7 020d       |    |		Execute	Module,Elaborate
00d8			BODY_0008:
00d8 00bc       |    |		Action	Signal_Activated
00d9 00bb       |    |		Action	Signal_Completion
00da 0000 0000  |    |		.BLANK	0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4607       |F   |		Jump_Case	0x8
00e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00e5 7807       |x   |		Jump	0xed								; case 0x1
00e6 780a       |x   |		Jump	0xf1								; case 0x2
00e7 780e       |x   |		Jump	0xf6								; case 0x3
00e8 7811       |x   |		Jump	0xfa								; case 0x4
00e9 7812       |x   |		Jump	0xfc								; case 0x5
00ea 7813       |x   |		Jump	0xfe								; case 0x6
00eb 7816       |x   |		Jump	0x102								; case 0x7
00ec 4302       |C   |		.XXX[0x1]
00ed 00da       |    |		Load_Top	At_Offset_2
00ee 0091 0633  |   3|		Action	Push_String_Extended_Indexed,0x633				; "INTEGER"
00f0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 00db       |    |		Load_Top	At_Offset_3
00f3 00e0       |    |		Load_Encached	Standard_Cache
00f4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 00e0       |    |		Load_Encached	Standard_Cache
00f8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00fa 00db       |    |		Load_Top	At_Offset_3
00fb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fc 00db       |    |		Load_Top	At_Offset_3
00fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fe e20d       |    |		Load	0x1,0xd
00ff 00dc       |    |		Load_Top	At_Offset_4
0100 0267       | g  |		Execute	Discrete,Predecessor
0101 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0102 e20d       |    |		Load	0x1,0xd
0103 00dc       |    |		Load_Top	At_Offset_4
0104 0268       | h  |		Execute	Discrete,Successor
0105 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0106 0000 0000  |    |		.XXX[0x2]
0108 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
010c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
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 4800       |H   |		Short_Literal	0x0
0114 e22f       | /  |		Load	0x1,0x2f
0115 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0116 00db       |    |		Load_Top	At_Offset_3
0117 00d9       |    |		Load_Top	At_Offset_1
0118 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
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 4801       |H   |		Short_Literal	0x1
0124 e22f       | /  |		Load	0x1,0x2f
0125 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0126 00db       |    |		Load_Top	At_Offset_3
0127 00d9       |    |		Load_Top	At_Offset_1
0128 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
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 4802       |H   |		Short_Literal	0x2
0134 e22f       | /  |		Load	0x1,0x2f
0135 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0136 00db       |    |		Load_Top	At_Offset_3
0137 00d9       |    |		Load_Top	At_Offset_1
0138 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
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 4803       |H   |		Short_Literal	0x3
0144 e22f       | /  |		Load	0x1,0x2f
0145 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0146 00db       |    |		Load_Top	At_Offset_3
0147 00d9       |    |		Load_Top	At_Offset_1
0148 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0149 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014a 0000 0000  |    |		.BLANK	0000[0x6]
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 4804       |H   |		Short_Literal	0x4
0154 e22f       | /  |		Load	0x1,0x2f
0155 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0156 00db       |    |		Load_Top	At_Offset_3
0157 00d9       |    |		Load_Top	At_Offset_1
0158 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0159 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015a 0000 0000  |    |		.BLANK	0000[0x6]
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 4805       |H   |		Short_Literal	0x5
0164 e22f       | /  |		Load	0x1,0x2f
0165 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0166 00db       |    |		Load_Top	At_Offset_3
0167 8009       |    |		Call	0x0,0x9
0168 00d9       |    |		Load_Top	At_Offset_1
0169 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
016a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016b 0000 0000  |    |		.BLANK	0000[0x5]
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 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
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 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
017d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017e 0000 0000  |    |		.XXX[0x2]
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 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0185 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
018d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018e 0000 0000  |    |		.XXX[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 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0196 0000 0000  |    |		.XXX[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 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
019d 800a       |    |		Call	0x0,0xa
019e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019f 0000       |    |		.XXX[0x1]
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 8211       |    |		Call	0x1,0x11
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 8212       |    |		Call	0x1,0x12
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 8213       |    |		Call	0x1,0x13
01b5 e5fe       |    |		Load	0x2,-0x2
01b6 016d       | m  |		Execute	Variant_Record,Structure_Write
01b7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00da       |    |		Load_Top	At_Offset_2
01bc 8214       |    |		Call	0x1,0x14
01bd e5fe       |    |		Load	0x2,-0x2
01be 016d       | m  |		Execute	Variant_Record,Structure_Write
01bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 8215       |    |		Call	0x1,0x15
01c5 e5fe       |    |		Load	0x2,-0x2
01c6 016d       | m  |		Execute	Variant_Record,Structure_Write
01c7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 8216       |    |		Call	0x1,0x16
01cd e5fe       |    |		Load	0x2,-0x2
01ce 016d       | m  |		Execute	Variant_Record,Structure_Write
01cf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 e20e       |    |		Load	0x1,0xe
01d4 00ca       |    |		Action	Exit_Nullary_Function
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc e20e       |    |		Load	0x1,0xe
01dd 016f       | o  |		Execute	Variant_Record,Equal
01de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01df 0000       |    |		.XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 e20e       |    |		Load	0x1,0xe
01e4 00db       |    |		Load_Top	At_Offset_3
01e5 016d       | m  |		Execute	Variant_Record,Structure_Write
01e6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01e7 0000       |    |		.XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00da       |    |		Load_Top	At_Offset_2
01ec 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ed 0f07       |    |		Execute_Immediate	Equal,0x7
01ee 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ef 0000       |    |		.XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 4807       |H   |		Short_Literal	0x7
01f4 e22f       | /  |		Load	0x1,0x2f
01f5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01f6 00db       |    |		Load_Top	At_Offset_3
01f7 00d9       |    |		Load_Top	At_Offset_1
01f8 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
01f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fa 0000 0000  |    |		.BLANK	0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2
0204 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
0205 0320       |    |		Declare_Variable	Record,Duplicate
0206 00cd       |    |		Action	Spare6_Action
0207 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2
020c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
020d e5fe       |    |		Load	0x2,-0x2
020e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
020f 027f       |    |		Execute	Discrete,Equal
0210 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0211 0000 0000  |    |		.BLANK	0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			INIT_0218:
021b 00da       |    |		Load_Top	At_Offset_2
021c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
021d 4608       |F   |		Jump_Case	0x9
021e 780d       |x   |		Jump	0x22c								; case 0x0
021f 7811       |x   |		Jump	0x231								; case 0x1
0220 7815       |x   |		Jump	0x236								; case 0x2
0221 7819       |x   |		Jump	0x23b								; case 0x3
0222 781d       |x   |		Jump	0x240								; case 0x4
0223 7821       |x!  |		Jump	0x245								; case 0x5
0224 7825       |x%  |		Jump	0x24a								; case 0x6
0225 7829       |x)  |		Jump	0x24f								; case 0x7
0226 7800       |x   |		Jump	0x227								; case 0x8
0227 00db       |    |		Load_Top	At_Offset_3
0228 0092 063c  |   <|		Action	Push_String_Extended,0x63c					; "undefined slot value"
022a 800b       |    |		Call	0x0,0xb
022b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
022c 00db       |    |		Load_Top	At_Offset_3
022d 00db       |    |		Load_Top	At_Offset_3
022e 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
022f 800c       |    |		Call	0x0,0xc
0230 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0231 00db       |    |		Load_Top	At_Offset_3
0232 00db       |    |		Load_Top	At_Offset_3
0233 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0234 800d       |    |		Call	0x0,0xd
0235 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0236 00db       |    |		Load_Top	At_Offset_3
0237 00db       |    |		Load_Top	At_Offset_3
0238 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0239 800e       |    |		Call	0x0,0xe
023a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
023b 00db       |    |		Load_Top	At_Offset_3
023c 00db       |    |		Load_Top	At_Offset_3
023d 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
023e 800f       |    |		Call	0x0,0xf
023f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0240 00db       |    |		Load_Top	At_Offset_3
0241 00db       |    |		Load_Top	At_Offset_3
0242 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0243 8010       |    |		Call	0x0,0x10
0244 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0245 00db       |    |		Load_Top	At_Offset_3
0246 00db       |    |		Load_Top	At_Offset_3
0247 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0248 8011       |    |		Call	0x0,0x11
0249 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
024a 00db       |    |		Load_Top	At_Offset_3
024b 00db       |    |		Load_Top	At_Offset_3
024c 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
024d 800c       |    |		Call	0x0,0xc
024e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
024f 00db       |    |		Load_Top	At_Offset_3
0250 00db       |    |		Load_Top	At_Offset_3
0251 2609       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
0252 8012       |    |		Call	0x0,0x12
0253 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0254 0000 0000  |    |		.BLANK	0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 4609       |F   |		Jump_Case	0xa
025c 7809       |x   |		Jump	0x266								; case 0x0
025d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
025e 783c       |x<  |		Jump	0x29b								; case 0x2
025f 783f       |x?  |		Jump	0x29f								; case 0x3
0260 788c       |x   |		Jump	0x2ed								; case 0x4
0261 788b       |x   |		Jump	0x2ed								; case 0x5
0262 7842       |xB  |		Jump	0x2a5								; case 0x6
0263 785e       |x^  |		Jump	0x2c2								; case 0x7
0264 787d       |x}  |		Jump	0x2e2								; case 0x8
0265 7883       |x   |		Jump	0x2e9								; case 0x9
0266 00da       |    |		Load_Top	At_Offset_2
0267 016c       | l  |		Execute	Variant_Record,Is_Constrained
0268 7009       |p   |		Jump_Nonzero	0x272
0269 00cf       |    |		Action	Mark_Auxiliary
026a 4800       |H   |		Short_Literal	0x0
026b e5ff       |    |		Load	0x2,-0x1
026c 1c08       |    |		Execute_Immediate	Run_Utility,0x8
026d 00d8       |    |		Load_Top	At_Offset_0
026e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
026f c5ff       |    |		Store	0x2,-0x1
0270 00ce       |    |		Action	Pop_Auxiliary
0271 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0272 00da       |    |		Load_Top	At_Offset_2
0273 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0274 4608       |F   |		Jump_Case	0x9
0275 7809       |x   |		Jump	0x27f								; case 0x0
0276 7810       |x   |		Jump	0x287								; case 0x1
0277 780b       |x   |		Jump	0x283								; case 0x2
0278 7812       |x   |		Jump	0x28b								; case 0x3
0279 7815       |x   |		Jump	0x28f								; case 0x4
027a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
027b 7817       |x   |		Jump	0x293								; case 0x6
027c 781a       |x   |		Jump	0x297								; case 0x7
027d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
027e 4302       |C   |		.XXX[0x1]
027f 4800       |H   |		Short_Literal	0x0
0280 00db       |    |		Load_Top	At_Offset_3
0281 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0282 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0283 586c       |Xl  |		Indirect_Literal	Float,0x2f0,0.0
0284 00db       |    |		Load_Top	At_Offset_3
0285 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0286 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0287 4800       |H   |		Short_Literal	0x0
0288 00db       |    |		Load_Top	At_Offset_3
0289 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
028a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
028b 4800       |H   |		Short_Literal	0x0
028c 00db       |    |		Load_Top	At_Offset_3
028d 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
028e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
028f 4800       |H   |		Short_Literal	0x0
0290 00db       |    |		Load_Top	At_Offset_3
0291 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0292 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0293 4800       |H   |		Short_Literal	0x0
0294 00db       |    |		Load_Top	At_Offset_3
0295 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0296 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0297 e002       |    |		Load	0x0,0x2
0298 00db       |    |		Load_Top	At_Offset_3
0299 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
029a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
029b 4801       |H   |		Short_Literal	0x1
029c 4809       |H   |		Short_Literal	0x9
029d 0311       |    |		Declare_Type	Variant_Record,Constrained_Incomplete
029e 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
029f e5fd       |    |		Load	0x2,-0x3
02a0 00db       |    |		Load_Top	At_Offset_3
02a1 1c07       |    |		Execute_Immediate	Run_Utility,0x7
02a2 e5fe       |    |		Load	0x2,-0x2
02a3 0306       |    |		Complete_Type	Variant_Record,By_Renaming
02a4 4304       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x4
02a5 00db       |    |		Load_Top	At_Offset_3
02a6 4608       |F   |		Jump_Case	0x9
02a7 780a       |x   |		Jump	0x2b2								; case 0x0
02a8 780d       |x   |		Jump	0x2b6								; case 0x1
02a9 780a       |x   |		Jump	0x2b4								; case 0x2
02aa 780d       |x   |		Jump	0x2b8								; case 0x3
02ab 780e       |x   |		Jump	0x2ba								; case 0x4
02ac 780f       |x   |		Jump	0x2bc								; case 0x5
02ad 7810       |x   |		Jump	0x2be								; case 0x6
02ae 7811       |x   |		Jump	0x2c0								; case 0x7
02af 7800       |x   |		Jump	0x2b0								; case 0x8
02b0 48ff       |H   |		Short_Literal	0xff
02b1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b2 4801       |H   |		Short_Literal	0x1
02b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b4 4802       |H   |		Short_Literal	0x2
02b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b6 4803       |H   |		Short_Literal	0x3
02b7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b8 4804       |H   |		Short_Literal	0x4
02b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02ba 4805       |H   |		Short_Literal	0x5
02bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02bc 4806       |H   |		Short_Literal	0x6
02bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02be 4807       |H   |		Short_Literal	0x7
02bf 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c0 4808       |H   |		Short_Literal	0x8
02c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c2 00db       |    |		Load_Top	At_Offset_3
02c3 e5fe       |    |		Load	0x2,-0x2
02c4 4608       |F   |		Jump_Case	0x9
02c5 780a       |x   |		Jump	0x2d0								; case 0x0
02c6 780d       |x   |		Jump	0x2d4								; case 0x1
02c7 780a       |x   |		Jump	0x2d2								; case 0x2
02c8 780d       |x   |		Jump	0x2d6								; case 0x3
02c9 780e       |x   |		Jump	0x2d8								; case 0x4
02ca 780f       |x   |		Jump	0x2da								; case 0x5
02cb 7810       |x   |		Jump	0x2dc								; case 0x6
02cc 7811       |x   |		Jump	0x2de								; case 0x7
02cd 7800       |x   |		Jump	0x2ce								; case 0x8
02ce 48ff       |H   |		Short_Literal	0xff
02cf 780f       |x   |		Jump	0x2df
02d0 4801       |H   |		Short_Literal	0x1
02d1 780d       |x   |		Jump	0x2df
02d2 4802       |H   |		Short_Literal	0x2
02d3 780b       |x   |		Jump	0x2df
02d4 4803       |H   |		Short_Literal	0x3
02d5 7809       |x   |		Jump	0x2df
02d6 4804       |H   |		Short_Literal	0x4
02d7 7807       |x   |		Jump	0x2df
02d8 4805       |H   |		Short_Literal	0x5
02d9 7805       |x   |		Jump	0x2df
02da 4806       |H   |		Short_Literal	0x6
02db 7803       |x   |		Jump	0x2df
02dc 4807       |H   |		Short_Literal	0x7
02dd 7801       |x   |		Jump	0x2df
02de 4808       |H   |		Short_Literal	0x8
02df e5ff       |    |		Load	0x2,-0x1
02e0 031b       |    |		Declare_Type	Variant_Record,Constrained
02e1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e2 00db       |    |		Load_Top	At_Offset_3
02e3 e5fe       |    |		Load	0x2,-0x2
02e4 e5ff       |    |		Load	0x2,-0x1
02e5 1c06       |    |		Execute_Immediate	Run_Utility,0x6
02e6 e5ff       |    |		Load	0x2,-0x1
02e7 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
02e8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e9 4800       |H   |		Short_Literal	0x0
02ea 00db       |    |		Load_Top	At_Offset_3
02eb 1c07       |    |		Execute_Immediate	Run_Utility,0x7
02ec 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02ed 0869       | i  |		Execute_Immediate	Raise,0x69
02ee 0000 0000  |    |		.XXX[0x2]
02f0 0000 0000  |    |		.DBL	0.0
02f2 0000 0000  |    |
02f4 0000 0000  |    |		.BLANK	0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 030c       |    |		.CONST	0x030c								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0012       |    |		.CONST	0x0012								; Number of locals
02fb			INIT_02f8:
02fb 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
02fd 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
02ff 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0301 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0303 00bf       |    |		Action	Accept_Activation
0304 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0305 00c7       |    |		Action	Elaborate_Subprogram
0306 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0307 00c7       |    |		Action	Elaborate_Subprogram
0308 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0309 00c7       |    |		Action	Elaborate_Subprogram
030a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
030b 00c7       |    |		Action	Elaborate_Subprogram
030c			BODY_02f8:
030c 00bc       |    |		Action	Signal_Activated
030d 00bb       |    |		Action	Signal_Completion
030e 0000 0000  |    |		.XXX[0x2]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0314       |    |		.CONST	0x0314								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0002       |    |		.CONST	0x0002								; Number of locals
0313			INIT_0310:
0313 00e2       |    |		Load_Encached	Integer_Cache
0314			BODY_0310:
0314 00db       |    |		Load_Top	At_Offset_3
0315 e20e       |    |		Load	0x1,0xe
0316 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0317 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0318 4806       |H   |		Short_Literal	0x6
0319 e001       |    |		Load	0x0,0x1
031a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
031b 00d9       |    |		Load_Top	At_Offset_1
031c 00d9       |    |		Load_Top	At_Offset_1
031d 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
031e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031f 0000       |    |		.XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0325       | %  |		.CONST	0x0325								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0002       |    |		.CONST	0x0002								; Number of locals
0323			INIT_0320:
0323 e20e       |    |		Load	0x1,0xe
0324 0007       |    |		Action	Break_Optional
0325			BODY_0320:
0325 00db       |    |		Load_Top	At_Offset_3
0326 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0327 0f06       |    |		Execute_Immediate	Equal,0x6
0328 6810       |h   |		Jump_Zero	0x339
0329 00db       |    |		Load_Top	At_Offset_3
032a 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
032b e20e       |    |		Load	0x1,0xe
032c 1c05       |    |		Execute_Immediate	Run_Utility,0x5
032d 00d8       |    |		Load_Top	At_Offset_0
032e e20e       |    |		Load	0x1,0xe
032f 0122       | "  |		Execute	Any,Make_Root_Type
0330 0260       | `  |		Execute	Discrete,In_Type
0331 7001       |p   |		Jump_Nonzero	0x333
0332 0801       |    |		Execute_Immediate	Raise,0x1
0333 00d8       |    |		Load_Top	At_Offset_0
0334 e20e       |    |		Load	0x1,0xe
0335 0260       | `  |		Execute	Discrete,In_Type
0336 7001       |p   |		Jump_Nonzero	0x338
0337 0801       |    |		Execute_Immediate	Raise,0x1
0338 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0339 08e0       |    |		Execute_Immediate	Raise,0xe0
033a 0000 0000  |    |		.BLANK	0000[0x6]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2
0344 00d8       |    |		Load_Top	At_Offset_0
0345 e20e       |    |		Load	0x1,0xe
0346 0260       | `  |		Execute	Discrete,In_Type
0347 7001       |p   |		Jump_Nonzero	0x349
0348 0801       |    |		Execute_Immediate	Raise,0x1
0349 820f       |    |		Call	0x1,0xf
034a e5fe       |    |		Load	0x2,-0x2
034b 016d       | m  |		Execute	Variant_Record,Structure_Write
034c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
034d 0000 0000  |    |		.XXX[0x3]
034f 0000       |    |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0355       | U  |		.CONST	0x0355								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0002       |    |		.CONST	0x0002								; Number of locals
0353			INIT_0350:
0353 e20e       |    |		Load	0x1,0xe
0354 0007       |    |		Action	Break_Optional
0355			BODY_0350:
0355 00db       |    |		Load_Top	At_Offset_3
0356 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0357 0f06       |    |		Execute_Immediate	Equal,0x6
0358 6815       |h   |		Jump_Zero	0x36e
0359 00db       |    |		Load_Top	At_Offset_3
035a 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
035b e20e       |    |		Load	0x1,0xe
035c 1c05       |    |		Execute_Immediate	Run_Utility,0x5
035d 00d8       |    |		Load_Top	At_Offset_0
035e e20e       |    |		Load	0x1,0xe
035f 0122       | "  |		Execute	Any,Make_Root_Type
0360 0260       | `  |		Execute	Discrete,In_Type
0361 7001       |p   |		Jump_Nonzero	0x363
0362 0801       |    |		Execute_Immediate	Raise,0x1
0363 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0364 e5fe       |    |		Load	0x2,-0x2
0365 00d9       |    |		Load_Top	At_Offset_1
0366 e20e       |    |		Load	0x1,0xe
0367 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0368 e20e       |    |		Load	0x1,0xe
0369 0122       | "  |		Execute	Any,Make_Root_Type
036a 011c       |    |		Execute	Any,Convert_Unchecked
036b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
036c 8002       |    |		Call	0x0,0x2
036d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
036e 08e0       |    |		Execute_Immediate	Raise,0xe0
036f 0000       |    |		.XXX[0x1]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 03a1       |    |		.CONST	0x03a1								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0017       |    |		.CONST	0x0017								; Number of locals
0373			INIT_0370:
0373 0007       |    |		Action	Break_Optional
0374 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0376 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
0378 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
037a 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
037c 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
037e 029a 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call,Visible,Unelaborated
0380 029a 052b  |   +|		Declare_Subprogram	INIT_0528,For_Outer_Call,Visible,Unelaborated
0382 029a 055b  |   [|		Declare_Subprogram	INIT_0558,For_Outer_Call,Visible,Unelaborated
0384 029a 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call,Visible,Unelaborated
0386 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
0388 029a 061b  |    |		Declare_Subprogram	INIT_0618,For_Outer_Call,Visible,Unelaborated
038a 00bf       |    |		Action	Accept_Activation
038b 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
038c 00c7       |    |		Action	Elaborate_Subprogram
038d 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
038e 00c7       |    |		Action	Elaborate_Subprogram
038f 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0390 00c7       |    |		Action	Elaborate_Subprogram
0391 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0392 00c7       |    |		Action	Elaborate_Subprogram
0393 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0394 00c7       |    |		Action	Elaborate_Subprogram
0395 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0396 00c7       |    |		Action	Elaborate_Subprogram
0397 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0398 00c7       |    |		Action	Elaborate_Subprogram
0399 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
039a 00c7       |    |		Action	Elaborate_Subprogram
039b 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
039c 00c7       |    |		Action	Elaborate_Subprogram
039d 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
039e 00c7       |    |		Action	Elaborate_Subprogram
039f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
03a0 00c7       |    |		Action	Elaborate_Subprogram
03a1			BODY_0370:
03a1 00bc       |    |		Action	Signal_Activated
03a2 00bb       |    |		Action	Signal_Completion
03a3 0000 0000  |    |		.BLANK	0000[0x5]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 00da       |    |		Load_Top	At_Offset_2
03ac 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03ad e5fe       |    |		Load	0x2,-0x2
03ae 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03af 027f       |    |		Execute	Discrete,Equal
03b0 6838       |h8  |		Jump_Zero	0x3e9
03b1 00da       |    |		Load_Top	At_Offset_2
03b2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03b3 4608       |F   |		Jump_Case	0x9
03b4 780a       |x   |		Jump	0x3bf								; case 0x0
03b5 780f       |x   |		Jump	0x3c5								; case 0x1
03b6 7814       |x   |		Jump	0x3cb								; case 0x2
03b7 7819       |x   |		Jump	0x3d1								; case 0x3
03b8 781e       |x   |		Jump	0x3d7								; case 0x4
03b9 7823       |x#  |		Jump	0x3dd								; case 0x5
03ba 7828       |x(  |		Jump	0x3e3								; case 0x6
03bb 7801       |x   |		Jump	0x3bd								; case 0x7
03bc 7800       |x   |		Jump	0x3bd								; case 0x8
03bd e001       |    |		Load	0x0,0x1
03be 0257       | W  |		Execute	Discrete,Raise
03bf 00da       |    |		Load_Top	At_Offset_2
03c0 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03c1 e5fe       |    |		Load	0x2,-0x2
03c2 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03c3 027c       | |  |		Execute	Discrete,Less
03c4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03c5 00da       |    |		Load_Top	At_Offset_2
03c6 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03c7 e5fe       |    |		Load	0x2,-0x2
03c8 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03c9 027c       | |  |		Execute	Discrete,Less
03ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03cd e5fe       |    |		Load	0x2,-0x2
03ce 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03cf 0244       | D  |		Execute	Float,Less
03d0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03d1 00da       |    |		Load_Top	At_Offset_2
03d2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03d3 e5fe       |    |		Load	0x2,-0x2
03d4 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03d5 027c       | |  |		Execute	Discrete,Less
03d6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03d7 00da       |    |		Load_Top	At_Offset_2
03d8 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
03d9 e5fe       |    |		Load	0x2,-0x2
03da 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
03db 027c       | |  |		Execute	Discrete,Less
03dc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03dd 00db       |    |		Load_Top	At_Offset_3
03de 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
03df 00db       |    |		Load_Top	At_Offset_3
03e0 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
03e1 8002       |    |		Call	0x0,0x2
03e2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
03e5 e5fe       |    |		Load	0x2,-0x2
03e6 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
03e7 027c       | |  |		Execute	Discrete,Less
03e8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e9 e003       |    |		Load	0x0,0x3
03ea 0257       | W  |		Execute	Discrete,Raise
03eb 0000 0000  |    |		.BLANK	0000[0x5]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03f5 e5fe       |    |		Load	0x2,-0x2
03f6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03f7 027f       |    |		Execute	Discrete,Equal
03f8 6838       |h8  |		Jump_Zero	0x431
03f9 00da       |    |		Load_Top	At_Offset_2
03fa 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03fb 4608       |F   |		Jump_Case	0x9
03fc 780a       |x   |		Jump	0x407								; case 0x0
03fd 780f       |x   |		Jump	0x40d								; case 0x1
03fe 7814       |x   |		Jump	0x413								; case 0x2
03ff 7819       |x   |		Jump	0x419								; case 0x3
0400 781e       |x   |		Jump	0x41f								; case 0x4
0401 7823       |x#  |		Jump	0x425								; case 0x5
0402 7828       |x(  |		Jump	0x42b								; case 0x6
0403 7801       |x   |		Jump	0x405								; case 0x7
0404 7800       |x   |		Jump	0x405								; case 0x8
0405 e001       |    |		Load	0x0,0x1
0406 0257       | W  |		Execute	Discrete,Raise
0407 00da       |    |		Load_Top	At_Offset_2
0408 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0409 e5fe       |    |		Load	0x2,-0x2
040a 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
040b 027a       | z  |		Execute	Discrete,Less_Equal
040c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
040d 00da       |    |		Load_Top	At_Offset_2
040e 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
040f e5fe       |    |		Load	0x2,-0x2
0410 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0411 027a       | z  |		Execute	Discrete,Less_Equal
0412 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0413 00da       |    |		Load_Top	At_Offset_2
0414 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0415 e5fe       |    |		Load	0x2,-0x2
0416 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0417 0242       | B  |		Execute	Float,Less_Equal
0418 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0419 00da       |    |		Load_Top	At_Offset_2
041a 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
041b e5fe       |    |		Load	0x2,-0x2
041c 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
041d 027a       | z  |		Execute	Discrete,Less_Equal
041e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
041f 00da       |    |		Load_Top	At_Offset_2
0420 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0421 e5fe       |    |		Load	0x2,-0x2
0422 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0423 027a       | z  |		Execute	Discrete,Less_Equal
0424 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0425 00db       |    |		Load_Top	At_Offset_3
0426 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0427 00db       |    |		Load_Top	At_Offset_3
0428 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0429 8004       |    |		Call	0x0,0x4
042a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
042b 00da       |    |		Load_Top	At_Offset_2
042c 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
042d e5fe       |    |		Load	0x2,-0x2
042e 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
042f 027a       | z  |		Execute	Discrete,Less_Equal
0430 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0431 e003       |    |		Load	0x0,0x3
0432 0257       | W  |		Execute	Discrete,Raise
0433 0000 0000  |    |		.BLANK	0000[0x5]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 00da       |    |		Load_Top	At_Offset_2
043c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
043d e5fe       |    |		Load	0x2,-0x2
043e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
043f 027f       |    |		Execute	Discrete,Equal
0440 6838       |h8  |		Jump_Zero	0x479
0441 00da       |    |		Load_Top	At_Offset_2
0442 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0443 4608       |F   |		Jump_Case	0x9
0444 780a       |x   |		Jump	0x44f								; case 0x0
0445 780f       |x   |		Jump	0x455								; case 0x1
0446 7814       |x   |		Jump	0x45b								; case 0x2
0447 7819       |x   |		Jump	0x461								; case 0x3
0448 781e       |x   |		Jump	0x467								; case 0x4
0449 7823       |x#  |		Jump	0x46d								; case 0x5
044a 7828       |x(  |		Jump	0x473								; case 0x6
044b 7801       |x   |		Jump	0x44d								; case 0x7
044c 7800       |x   |		Jump	0x44d								; case 0x8
044d e001       |    |		Load	0x0,0x1
044e 0257       | W  |		Execute	Discrete,Raise
044f 00da       |    |		Load_Top	At_Offset_2
0450 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0451 e5fe       |    |		Load	0x2,-0x2
0452 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0453 027d       | }  |		Execute	Discrete,Greater
0454 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0455 00da       |    |		Load_Top	At_Offset_2
0456 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0457 e5fe       |    |		Load	0x2,-0x2
0458 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0459 027d       | }  |		Execute	Discrete,Greater
045a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
045b 00da       |    |		Load_Top	At_Offset_2
045c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
045d e5fe       |    |		Load	0x2,-0x2
045e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
045f 0245       | E  |		Execute	Float,Greater
0460 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0461 00da       |    |		Load_Top	At_Offset_2
0462 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0463 e5fe       |    |		Load	0x2,-0x2
0464 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0465 027d       | }  |		Execute	Discrete,Greater
0466 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0467 00da       |    |		Load_Top	At_Offset_2
0468 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0469 e5fe       |    |		Load	0x2,-0x2
046a 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
046b 027d       | }  |		Execute	Discrete,Greater
046c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
046d 00db       |    |		Load_Top	At_Offset_3
046e 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
046f 00db       |    |		Load_Top	At_Offset_3
0470 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0471 8005       |    |		Call	0x0,0x5
0472 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0473 00da       |    |		Load_Top	At_Offset_2
0474 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0475 e5fe       |    |		Load	0x2,-0x2
0476 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0477 027d       | }  |		Execute	Discrete,Greater
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 6838       |h8  |		Jump_Zero	0x4c1
0489 00da       |    |		Load_Top	At_Offset_2
048a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
048b 4608       |F   |		Jump_Case	0x9
048c 780a       |x   |		Jump	0x497								; case 0x0
048d 780f       |x   |		Jump	0x49d								; case 0x1
048e 7814       |x   |		Jump	0x4a3								; case 0x2
048f 7819       |x   |		Jump	0x4a9								; case 0x3
0490 781e       |x   |		Jump	0x4af								; case 0x4
0491 7823       |x#  |		Jump	0x4b5								; case 0x5
0492 7828       |x(  |		Jump	0x4bb								; case 0x6
0493 7801       |x   |		Jump	0x495								; case 0x7
0494 7800       |x   |		Jump	0x495								; case 0x8
0495 e001       |    |		Load	0x0,0x1
0496 0257       | W  |		Execute	Discrete,Raise
0497 00da       |    |		Load_Top	At_Offset_2
0498 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0499 e5fe       |    |		Load	0x2,-0x2
049a 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
049b 027b       | {  |		Execute	Discrete,Greater_Equal
049c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
049d 00da       |    |		Load_Top	At_Offset_2
049e 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
049f e5fe       |    |		Load	0x2,-0x2
04a0 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
04a1 027b       | {  |		Execute	Discrete,Greater_Equal
04a2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a3 00da       |    |		Load_Top	At_Offset_2
04a4 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04a5 e5fe       |    |		Load	0x2,-0x2
04a6 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04a7 0243       | C  |		Execute	Float,Greater_Equal
04a8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a9 00da       |    |		Load_Top	At_Offset_2
04aa 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04ab e5fe       |    |		Load	0x2,-0x2
04ac 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
04ad 027b       | {  |		Execute	Discrete,Greater_Equal
04ae 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04af 00da       |    |		Load_Top	At_Offset_2
04b0 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04b1 e5fe       |    |		Load	0x2,-0x2
04b2 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
04b3 027b       | {  |		Execute	Discrete,Greater_Equal
04b4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04b5 00db       |    |		Load_Top	At_Offset_3
04b6 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
04b7 00db       |    |		Load_Top	At_Offset_3
04b8 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
04b9 8006       |    |		Call	0x0,0x6
04ba 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04bb 00da       |    |		Load_Top	At_Offset_2
04bc 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
04bd e5fe       |    |		Load	0x2,-0x2
04be 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
04bf 027b       | {  |		Execute	Discrete,Greater_Equal
04c0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04c1 e003       |    |		Load	0x0,0x3
04c2 0257       | W  |		Execute	Discrete,Raise
04c3 0000 0000  |    |		.BLANK	0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 00da       |    |		Load_Top	At_Offset_2
04cc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04cd e5fe       |    |		Load	0x2,-0x2
04ce 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04cf 027f       |    |		Execute	Discrete,Equal
04d0 6821       |h!  |		Jump_Zero	0x4f2
04d1 00da       |    |		Load_Top	At_Offset_2
04d2 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04d3 4608       |F   |		Jump_Case	0x9
04d4 780a       |x   |		Jump	0x4df								; case 0x0
04d5 7807       |x   |		Jump	0x4dd								; case 0x1
04d6 7814       |x   |		Jump	0x4eb								; case 0x2
04d7 7805       |x   |		Jump	0x4dd								; case 0x3
04d8 7804       |x   |		Jump	0x4dd								; case 0x4
04d9 7803       |x   |		Jump	0x4dd								; case 0x5
04da 7802       |x   |		Jump	0x4dd								; case 0x6
04db 7801       |x   |		Jump	0x4dd								; case 0x7
04dc 7800       |x   |		Jump	0x4dd								; case 0x8
04dd e001       |    |		Load	0x0,0x1
04de 0257       | W  |		Execute	Discrete,Raise
04df 00da       |    |		Load_Top	At_Offset_2
04e0 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04e1 e5fe       |    |		Load	0x2,-0x2
04e2 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
04e3 0273       | s  |		Execute	Discrete,Plus
04e4 00d8       |    |		Load_Top	At_Offset_0
04e5 00e2       |    |		Load_Encached	Integer_Cache
04e6 0260       | `  |		Execute	Discrete,In_Type
04e7 7001       |p   |		Jump_Nonzero	0x4e9
04e8 0801       |    |		Execute_Immediate	Raise,0x1
04e9 8007       |    |		Call	0x0,0x7
04ea 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04eb 00da       |    |		Load_Top	At_Offset_2
04ec 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04ed e5fe       |    |		Load	0x2,-0x2
04ee 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04ef 023d       | =  |		Execute	Float,Plus
04f0 8008       |    |		Call	0x0,0x8
04f1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04f2 e003       |    |		Load	0x0,0x3
04f3 0257       | W  |		Execute	Discrete,Raise
04f4 0000 0000  |    |		.BLANK	0000[0x4]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb       |    |		.CONST	0x04fb								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0001       |    |		.CONST	0x0001								; Number of locals
04fb			BODY_04f8:
04fb			INIT_04f8:
04fb 00da       |    |		Load_Top	At_Offset_2
04fc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04fd e5fe       |    |		Load	0x2,-0x2
04fe 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04ff 027f       |    |		Execute	Discrete,Equal
0500 6821       |h!  |		Jump_Zero	0x522
0501 00da       |    |		Load_Top	At_Offset_2
0502 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0503 4608       |F   |		Jump_Case	0x9
0504 780a       |x   |		Jump	0x50f								; case 0x0
0505 7807       |x   |		Jump	0x50d								; case 0x1
0506 7814       |x   |		Jump	0x51b								; case 0x2
0507 7805       |x   |		Jump	0x50d								; case 0x3
0508 7804       |x   |		Jump	0x50d								; case 0x4
0509 7803       |x   |		Jump	0x50d								; case 0x5
050a 7802       |x   |		Jump	0x50d								; case 0x6
050b 7801       |x   |		Jump	0x50d								; case 0x7
050c 7800       |x   |		Jump	0x50d								; case 0x8
050d e001       |    |		Load	0x0,0x1
050e 0257       | W  |		Execute	Discrete,Raise
050f 00da       |    |		Load_Top	At_Offset_2
0510 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0511 e5fe       |    |		Load	0x2,-0x2
0512 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0513 0272       | r  |		Execute	Discrete,Minus
0514 00d8       |    |		Load_Top	At_Offset_0
0515 00e2       |    |		Load_Encached	Integer_Cache
0516 0260       | `  |		Execute	Discrete,In_Type
0517 7001       |p   |		Jump_Nonzero	0x519
0518 0801       |    |		Execute_Immediate	Raise,0x1
0519 8007       |    |		Call	0x0,0x7
051a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
051b 00da       |    |		Load_Top	At_Offset_2
051c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
051d e5fe       |    |		Load	0x2,-0x2
051e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
051f 023c       | <  |		Execute	Float,Minus
0520 8008       |    |		Call	0x0,0x8
0521 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0522 e003       |    |		Load	0x0,0x3
0523 0257       | W  |		Execute	Discrete,Raise
0524 0000 0000  |    |		.BLANK	0000[0x4]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b       | +  |		.CONST	0x052b								; Address of begin
0529 0004       |    |		.CONST	0x0004								; Address of exception handler
052a 0001       |    |		.CONST	0x0001								; Number of locals
052b			BODY_0528:
052b			INIT_0528:
052b 00da       |    |		Load_Top	At_Offset_2
052c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
052d e5fe       |    |		Load	0x2,-0x2
052e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
052f 027f       |    |		Execute	Discrete,Equal
0530 6821       |h!  |		Jump_Zero	0x552
0531 00da       |    |		Load_Top	At_Offset_2
0532 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0533 4608       |F   |		Jump_Case	0x9
0534 780a       |x   |		Jump	0x53f								; case 0x0
0535 7807       |x   |		Jump	0x53d								; case 0x1
0536 7814       |x   |		Jump	0x54b								; case 0x2
0537 7805       |x   |		Jump	0x53d								; case 0x3
0538 7804       |x   |		Jump	0x53d								; case 0x4
0539 7803       |x   |		Jump	0x53d								; case 0x5
053a 7802       |x   |		Jump	0x53d								; case 0x6
053b 7801       |x   |		Jump	0x53d								; case 0x7
053c 7800       |x   |		Jump	0x53d								; case 0x8
053d e001       |    |		Load	0x0,0x1
053e 0257       | W  |		Execute	Discrete,Raise
053f 00da       |    |		Load_Top	At_Offset_2
0540 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0541 e5fe       |    |		Load	0x2,-0x2
0542 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0543 0271       | q  |		Execute	Discrete,Times
0544 00d8       |    |		Load_Top	At_Offset_0
0545 00e2       |    |		Load_Encached	Integer_Cache
0546 0260       | `  |		Execute	Discrete,In_Type
0547 7001       |p   |		Jump_Nonzero	0x549
0548 0801       |    |		Execute_Immediate	Raise,0x1
0549 8007       |    |		Call	0x0,0x7
054a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
054b 00da       |    |		Load_Top	At_Offset_2
054c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
054d e5fe       |    |		Load	0x2,-0x2
054e 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
054f 023b       | ;  |		Execute	Float,Times
0550 8008       |    |		Call	0x0,0x8
0551 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0552 e003       |    |		Load	0x0,0x3
0553 0257       | W  |		Execute	Discrete,Raise
0554 0000 0000  |    |		.BLANK	0000[0x4]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b       | [  |		.CONST	0x055b								; Address of begin
0559 0004       |    |		.CONST	0x0004								; Address of exception handler
055a 0001       |    |		.CONST	0x0001								; Number of locals
055b			BODY_0558:
055b			INIT_0558:
055b 00da       |    |		Load_Top	At_Offset_2
055c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
055d e5fe       |    |		Load	0x2,-0x2
055e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
055f 027f       |    |		Execute	Discrete,Equal
0560 681c       |h   |		Jump_Zero	0x57d
0561 00da       |    |		Load_Top	At_Offset_2
0562 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0563 4608       |F   |		Jump_Case	0x9
0564 780a       |x   |		Jump	0x56f								; case 0x0
0565 7807       |x   |		Jump	0x56d								; case 0x1
0566 780f       |x   |		Jump	0x576								; case 0x2
0567 7805       |x   |		Jump	0x56d								; case 0x3
0568 7804       |x   |		Jump	0x56d								; case 0x4
0569 7803       |x   |		Jump	0x56d								; case 0x5
056a 7802       |x   |		Jump	0x56d								; case 0x6
056b 7801       |x   |		Jump	0x56d								; case 0x7
056c 7800       |x   |		Jump	0x56d								; case 0x8
056d e001       |    |		Load	0x0,0x1
056e 0257       | W  |		Execute	Discrete,Raise
056f 00da       |    |		Load_Top	At_Offset_2
0570 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0571 e5fe       |    |		Load	0x2,-0x2
0572 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0573 0270       | p  |		Execute	Discrete,Divide
0574 8007       |    |		Call	0x0,0x7
0575 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0576 00da       |    |		Load_Top	At_Offset_2
0577 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0578 e5fe       |    |		Load	0x2,-0x2
0579 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
057a 023a       | :  |		Execute	Float,Divide
057b 8008       |    |		Call	0x0,0x8
057c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
057d e003       |    |		Load	0x0,0x3
057e 0257       | W  |		Execute	Discrete,Raise
057f 0000       |    |		.XXX[0x1]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0585       |    |		.CONST	0x0585								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0002       |    |		.CONST	0x0002								; Number of locals
0583			INIT_0580:
0583 e009       |    |		Load	0x0,0x9
0584 0007       |    |		Action	Break_Optional
0585			BODY_0580:
0585 00db       |    |		Load_Top	At_Offset_3
0586 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0587 4608       |F   |		Jump_Case	0x9
0588 7808       |x   |		Jump	0x591								; case 0x0
0589 7807       |x   |		Jump	0x591								; case 0x1
058a 7806       |x   |		Jump	0x591								; case 0x2
058b 7807       |x   |		Jump	0x593								; case 0x3
058c 7804       |x   |		Jump	0x591								; case 0x4
058d 783d       |x=  |		Jump	0x5cb								; case 0x5
058e 7802       |x   |		Jump	0x591								; case 0x6
058f 7801       |x   |		Jump	0x591								; case 0x7
0590 7800       |x   |		Jump	0x591								; case 0x8
0591 e001       |    |		Load	0x0,0x1
0592 0257       | W  |		Execute	Discrete,Raise
0593 e5fe       |    |		Load	0x2,-0x2
0594 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0595 4608       |F   |		Jump_Case	0x9
0596 7808       |x   |		Jump	0x59f								; case 0x0
0597 7807       |x   |		Jump	0x59f								; case 0x1
0598 7806       |x   |		Jump	0x59f								; case 0x2
0599 7807       |x   |		Jump	0x5a1								; case 0x3
059a 7804       |x   |		Jump	0x59f								; case 0x4
059b 7820       |x   |		Jump	0x5bc								; case 0x5
059c 7802       |x   |		Jump	0x59f								; case 0x6
059d 7801       |x   |		Jump	0x59f								; case 0x7
059e 7800       |x   |		Jump	0x59f								; case 0x8
059f e001       |    |		Load	0x0,0x1
05a0 0257       | W  |		Execute	Discrete,Raise
05a1 00db       |    |		Load_Top	At_Offset_3
05a2 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05a3 e5fe       |    |		Load	0x2,-0x2
05a4 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05a5 4801       |H   |		Short_Literal	0x1
05a6 4802       |H   |		Short_Literal	0x2
05a7 00e9       |    |		Load_Encached	String_Cache
05a8 0334       | 4  |		Declare_Variable	Array,With_Constraint
05a9 00da       |    |		Load_Top	At_Offset_2
05aa 4801       |H   |		Short_Literal	0x1
05ab 00da       |    |		Load_Top	At_Offset_2
05ac 01d6       |    |		Execute	Vector,Field_Write
05ad 00d9       |    |		Load_Top	At_Offset_1
05ae 4802       |H   |		Short_Literal	0x2
05af 00da       |    |		Load_Top	At_Offset_2
05b0 01d6       |    |		Execute	Vector,Field_Write
05b1 00cd       |    |		Action	Spare6_Action
05b2 00cd       |    |		Action	Spare6_Action
05b3 800a       |    |		Call	0x0,0xa
05b4 0039       | 9  |		Store_Top	Access,At_Offset_1
05b5 4805       |H   |		Short_Literal	0x5
05b6 e00b       |    |		Load	0x0,0xb
05b7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05b8 00d9       |    |		Load_Top	At_Offset_1
05b9 00d9       |    |		Load_Top	At_Offset_1
05ba 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
05bb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05bc 00db       |    |		Load_Top	At_Offset_3
05bd 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05be e5fe       |    |		Load	0x2,-0x2
05bf 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
05c0 800c       |    |		Call	0x0,0xc
05c1 01ca       |    |		Execute	Vector,Prepend
05c2 800a       |    |		Call	0x0,0xa
05c3 0039       | 9  |		Store_Top	Access,At_Offset_1
05c4 4805       |H   |		Short_Literal	0x5
05c5 e00b       |    |		Load	0x0,0xb
05c6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05c7 00d9       |    |		Load_Top	At_Offset_1
05c8 00d9       |    |		Load_Top	At_Offset_1
05c9 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
05ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05cb e5fe       |    |		Load	0x2,-0x2
05cc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05cd 4608       |F   |		Jump_Case	0x9
05ce 7808       |x   |		Jump	0x5d7								; case 0x0
05cf 7807       |x   |		Jump	0x5d7								; case 0x1
05d0 7806       |x   |		Jump	0x5d7								; case 0x2
05d1 7807       |x   |		Jump	0x5d9								; case 0x3
05d2 7804       |x   |		Jump	0x5d7								; case 0x4
05d3 7814       |x   |		Jump	0x5e8								; case 0x5
05d4 7802       |x   |		Jump	0x5d7								; case 0x6
05d5 7801       |x   |		Jump	0x5d7								; case 0x7
05d6 7800       |x   |		Jump	0x5d7								; case 0x8
05d7 e001       |    |		Load	0x0,0x1
05d8 0257       | W  |		Execute	Discrete,Raise
05d9 e5fe       |    |		Load	0x2,-0x2
05da 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
05db e5ff       |    |		Load	0x2,-0x1
05dc 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
05dd 800c       |    |		Call	0x0,0xc
05de 01cb       |    |		Execute	Vector,Append
05df 800a       |    |		Call	0x0,0xa
05e0 0039       | 9  |		Store_Top	Access,At_Offset_1
05e1 4805       |H   |		Short_Literal	0x5
05e2 e00b       |    |		Load	0x0,0xb
05e3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05e4 00d9       |    |		Load_Top	At_Offset_1
05e5 00d9       |    |		Load_Top	At_Offset_1
05e6 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
05e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05e8 00db       |    |		Load_Top	At_Offset_3
05e9 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
05ea 800c       |    |		Call	0x0,0xc
05eb e5fe       |    |		Load	0x2,-0x2
05ec 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
05ed 800c       |    |		Call	0x0,0xc
05ee 01cc       |    |		Execute	Vector,Catenate
05ef 800a       |    |		Call	0x0,0xa
05f0 0039       | 9  |		Store_Top	Access,At_Offset_1
05f1 4805       |H   |		Short_Literal	0x5
05f2 e00b       |    |		Load	0x0,0xb
05f3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05f4 00d9       |    |		Load_Top	At_Offset_1
05f5 00d9       |    |		Load_Top	At_Offset_1
05f6 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
05f7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 00da       |    |		Load_Top	At_Offset_2
05fc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05fd 4608       |F   |		Jump_Case	0x9
05fe 780a       |x   |		Jump	0x609								; case 0x0
05ff 7807       |x   |		Jump	0x607								; case 0x1
0600 780d       |x   |		Jump	0x60e								; case 0x2
0601 7805       |x   |		Jump	0x607								; case 0x3
0602 7804       |x   |		Jump	0x607								; case 0x4
0603 7803       |x   |		Jump	0x607								; case 0x5
0604 7802       |x   |		Jump	0x607								; case 0x6
0605 7801       |x   |		Jump	0x607								; case 0x7
0606 7800       |x   |		Jump	0x607								; case 0x8
0607 e001       |    |		Load	0x0,0x1
0608 0257       | W  |		Execute	Discrete,Raise
0609 00da       |    |		Load_Top	At_Offset_2
060a 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
060b 0275       | u  |		Execute	Discrete,Unary_Minus
060c 8007       |    |		Call	0x0,0x7
060d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
060e 00da       |    |		Load_Top	At_Offset_2
060f 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0610 023f       | ?  |		Execute	Float,Unary_Minus
0611 8008       |    |		Call	0x0,0x8
0612 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0613 0000 0000  |    |		.BLANK	0000[0x5]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b       |    |		.CONST	0x061b								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0001       |    |		.CONST	0x0001								; Number of locals
061b			BODY_0618:
061b			INIT_0618:
061b 00da       |    |		Load_Top	At_Offset_2
061c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
061d 4608       |F   |		Jump_Case	0x9
061e 780a       |x   |		Jump	0x629								; case 0x0
061f 7807       |x   |		Jump	0x627								; case 0x1
0620 780d       |x   |		Jump	0x62e								; case 0x2
0621 7805       |x   |		Jump	0x627								; case 0x3
0622 7804       |x   |		Jump	0x627								; case 0x4
0623 7803       |x   |		Jump	0x627								; case 0x5
0624 7802       |x   |		Jump	0x627								; case 0x6
0625 7801       |x   |		Jump	0x627								; case 0x7
0626 7800       |x   |		Jump	0x627								; case 0x8
0627 e001       |    |		Load	0x0,0x1
0628 0257       | W  |		Execute	Discrete,Raise
0629 00da       |    |		Load_Top	At_Offset_2
062a 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
062b 0274       | t  |		Execute	Discrete,Absolute_Value
062c 8007       |    |		Call	0x0,0x7
062d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062e 00da       |    |		Load_Top	At_Offset_2
062f 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0630 023e       | >  |		Execute	Float,Absolute_Value
0631 8008       |    |		Call	0x0,0x8
0632 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0633 ; --------------------------------------------------------------------------------------
0633 ; STRING TABLE
0633 ; --------------------------------------------------------------------------------------
0633 0016       |    |		.STRTAB	0x0016->0x063e							; "INTEGER"
0634 001b       |    |		.STRTAB	0x001b->0x0641							; "BOOLEAN"
0635 0020       |    |		.STRTAB	0x0020->0x0645							; "FLOAT"
0636 0023       | #  |		.STRTAB	0x0023->0x0647							; "CHARACTER"
0637 002a       | *  |		.STRTAB	0x002a->0x064c							; "DURATION"
0638 0030       | 0  |		.STRTAB	0x0030->0x0650							; "STRING"
0639 0034       | 4  |		.STRTAB	0x0034->0x0653							; "ENUMERATION"
063a 003d       | =  |		.STRTAB	0x003d->0x0658							; "REFERENCE"
063b 0044       | D  |		.STRTAB	0x0044->0x065d							; "UNDEFINED"
063c 004b       | K  |		.STRTAB	0x004b->0x0661							; "undefined slot value"
063d 005d       | ]  |		.STREND 0x005d->0x066b
063e 494e 5445  |INTE|		.STRTAB_STRINGS
066c 0000 0000  |    |		.BLANK	0000[0x4]
0670 ; --------------------------------------------------------------------------------------
0670 ; Debug Table
0670 ; --------------------------------------------------------------------------------------
0670 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0xb33f,0x0000,0x0001,0x0031
0676 000b 073a  |   :|		.DBG4T	0x000b,0x073a,0x8000,0x0000
067a 008c 0762  |   b|		.DBG4T	0x008c,0x0762,0x8000,0x0000
067e 00e3 0000  |    |		.DBG4T	0x00e3,0x0000,0x0005,0x0000
0682 0113 0780  |    |		.DBG4T	0x0113,0x0780,0x0002,0x0000
0686 0123 0783  | #  |		.DBG4T	0x0123,0x0783,0x0002,0x0000
068a 0133 0786  | 3  |		.DBG4T	0x0133,0x0786,0x0002,0x0000
068e 0143 0789  | C  |		.DBG4T	0x0143,0x0789,0x0002,0x0000
0692 0153 078c  | S  |		.DBG4T	0x0153,0x078c,0x0002,0x0000
0696 0163 078f  | c  |		.DBG4T	0x0163,0x078f,0x0002,0x0000
069a 0173 0792  | s  |		.DBG4T	0x0173,0x0792,0x0002,0x0000
069e 017b 0795  | {  |		.DBG4T	0x017b,0x0795,0x0002,0x0000
06a2 0183 0798  |    |		.DBG4T	0x0183,0x0798,0x0002,0x0000
06a6 018b 079b  |    |		.DBG4T	0x018b,0x079b,0x0002,0x0000
06aa 0193 079e  |    |		.DBG4T	0x0193,0x079e,0x0002,0x0000
06ae 019b 07a1  |    |		.DBG4T	0x019b,0x07a1,0x0002,0x0000
06b2 01a3 07a4  |    |		.DBG4T	0x01a3,0x07a4,0x0001,0x0000
06b6 01ab 07a7  |    |		.DBG4T	0x01ab,0x07a7,0x0001,0x0000
06ba 01b3 07aa  |    |		.DBG4T	0x01b3,0x07aa,0x0001,0x0000
06be 01bb 07ad  |    |		.DBG4T	0x01bb,0x07ad,0x0001,0x0000
06c2 01c3 07b0  |    |		.DBG4T	0x01c3,0x07b0,0x0001,0x0000
06c6 01cb 07b3  |    |		.DBG4T	0x01cb,0x07b3,0x0001,0x0000
06ca 01d3 07b6  |    |		.DBG4T	0x01d3,0x07b6,0x0002,0x0000
06ce 01db 07b9  |    |		.DBG4T	0x01db,0x07b9,0x0002,0x0000
06d2 01e3 07bc  |    |		.DBG4T	0x01e3,0x07bc,0x0001,0x0000
06d6 01eb 07bf  |    |		.DBG4T	0x01eb,0x07bf,0x0002,0x0000
06da 01f3 07c2  |    |		.DBG4T	0x01f3,0x07c2,0x0002,0x0000
06de 0203 07c5  |    |		.DBG4T	0x0203,0x07c5,0x0002,0x0000
06e2 020b 07c8  |    |		.DBG4T	0x020b,0x07c8,0x0002,0x0000
06e6 021b 07cb  |    |		.DBG4T	0x021b,0x07cb,0x0001,0x4000
06ea 025b 0000  | [  |		.DBG4T	0x025b,0x0000,0x0005,0x0000
06ee 02fb 07e1  |    |		.DBG4T	0x02fb,0x07e1,0x4000,0x0000
06f2 0304 07e7  |    |		.DBG4T	0x0304,0x07e7,0x4000,0x0000
06f6 0313 07ed  |    |		.DBG4T	0x0313,0x07ed,0x1002,0x0000
06fa 0323 07f2  | #  |		.DBG4T	0x0323,0x07f2,0x1002,0x0000
06fe 0343 07f8  | C  |		.DBG4T	0x0343,0x07f8,0x1001,0x0000
0702 0353 07fb  | S  |		.DBG4T	0x0353,0x07fb,0x1001,0x0000
0706 0373 0802  | s  |		.DBG4T	0x0373,0x0802,0x0000,0x0000
070a 038b 0810  |    |		.DBG4T	0x038b,0x0810,0x0000,0x0000
070e 03ab 081d  |    |		.DBG4T	0x03ab,0x081d,0x0002,0x4000
0712 03f3 0835  |   5|		.DBG4T	0x03f3,0x0835,0x0002,0x4000
0716 043b 084d  | ; M|		.DBG4T	0x043b,0x084d,0x0002,0x4000
071a 0483 0865  |   e|		.DBG4T	0x0483,0x0865,0x0002,0x4000
071e 04cb 087d  |   }|		.DBG4T	0x04cb,0x087d,0x0002,0x4000
0722 04fb 088b  |    |		.DBG4T	0x04fb,0x088b,0x0002,0x4000
0726 052b 0899  | +  |		.DBG4T	0x052b,0x0899,0x0002,0x4000
072a 055b 08a7  | [  |		.DBG4T	0x055b,0x08a7,0x0002,0x4000
072e 0583 08b5  |    |		.DBG4T	0x0583,0x08b5,0x0002,0x4000
0732 05fb 08d4  |    |		.DBG4T	0x05fb,0x08d4,0x0002,0x4000
0736 061b 08de  |    |		.DBG4T	0x061b,0x08de,0x0002,0x4000
073a ; --------------------------------------------------------------------------------------
073a ; Debug chain
073a ; --------------------------------------------------------------------------------------
073a 0026 0000  | &  |		.DBGLEN	0x0026,0x0000
073c 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,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004e,0x0053,0x0058,0x005d,0x0076,0x007b,0x0083
0762 ; --------------------------------------------------------------------------------------
0762 ; Debug chain
0762 ; --------------------------------------------------------------------------------------
0762 001c 0000  |    |		.DBGLEN	0x001c,0x0000
0764 008c 008e  |    |		.DBGLNO	0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00b6,0x00b8,0x00ba,0x00bc,0x00be,0x00c0,0x00d1
0780 ; --------------------------------------------------------------------------------------
0780 ; Debug chain
0780 ; --------------------------------------------------------------------------------------
0780 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0782 0113       |    |		.DBGLNO	0x0113
0783 ; --------------------------------------------------------------------------------------
0783 ; Debug chain
0783 ; --------------------------------------------------------------------------------------
0783 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0785 0123       | #  |		.DBGLNO	0x0123
0786 ; --------------------------------------------------------------------------------------
0786 ; Debug chain
0786 ; --------------------------------------------------------------------------------------
0786 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0788 0133       | 3  |		.DBGLNO	0x0133
0789 ; --------------------------------------------------------------------------------------
0789 ; Debug chain
0789 ; --------------------------------------------------------------------------------------
0789 0000 0001  |    |		.DBGLEN	0x0000,0x0001
078b 0143       | C  |		.DBGLNO	0x0143
078c ; --------------------------------------------------------------------------------------
078c ; Debug chain
078c ; --------------------------------------------------------------------------------------
078c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
078e 0153       | S  |		.DBGLNO	0x0153
078f ; --------------------------------------------------------------------------------------
078f ; Debug chain
078f ; --------------------------------------------------------------------------------------
078f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0791 0163       | c  |		.DBGLNO	0x0163
0792 ; --------------------------------------------------------------------------------------
0792 ; Debug chain
0792 ; --------------------------------------------------------------------------------------
0792 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0794 0173       | s  |		.DBGLNO	0x0173
0795 ; --------------------------------------------------------------------------------------
0795 ; Debug chain
0795 ; --------------------------------------------------------------------------------------
0795 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0797 017b       | {  |		.DBGLNO	0x017b
0798 ; --------------------------------------------------------------------------------------
0798 ; Debug chain
0798 ; --------------------------------------------------------------------------------------
0798 0000 0001  |    |		.DBGLEN	0x0000,0x0001
079a 0183       |    |		.DBGLNO	0x0183
079b ; --------------------------------------------------------------------------------------
079b ; Debug chain
079b ; --------------------------------------------------------------------------------------
079b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
079d 018b       |    |		.DBGLNO	0x018b
079e ; --------------------------------------------------------------------------------------
079e ; Debug chain
079e ; --------------------------------------------------------------------------------------
079e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07a0 0193       |    |		.DBGLNO	0x0193
07a1 ; --------------------------------------------------------------------------------------
07a1 ; Debug chain
07a1 ; --------------------------------------------------------------------------------------
07a1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07a3 019b       |    |		.DBGLNO	0x019b
07a4 ; --------------------------------------------------------------------------------------
07a4 ; Debug chain
07a4 ; --------------------------------------------------------------------------------------
07a4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07a6 01a3       |    |		.DBGLNO	0x01a3
07a7 ; --------------------------------------------------------------------------------------
07a7 ; Debug chain
07a7 ; --------------------------------------------------------------------------------------
07a7 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07a9 01ab       |    |		.DBGLNO	0x01ab
07aa ; --------------------------------------------------------------------------------------
07aa ; Debug chain
07aa ; --------------------------------------------------------------------------------------
07aa 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07ac 01b3       |    |		.DBGLNO	0x01b3
07ad ; --------------------------------------------------------------------------------------
07ad ; Debug chain
07ad ; --------------------------------------------------------------------------------------
07ad 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07af 01bb       |    |		.DBGLNO	0x01bb
07b0 ; --------------------------------------------------------------------------------------
07b0 ; Debug chain
07b0 ; --------------------------------------------------------------------------------------
07b0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07b2 01c3       |    |		.DBGLNO	0x01c3
07b3 ; --------------------------------------------------------------------------------------
07b3 ; Debug chain
07b3 ; --------------------------------------------------------------------------------------
07b3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07b5 01cb       |    |		.DBGLNO	0x01cb
07b6 ; --------------------------------------------------------------------------------------
07b6 ; Debug chain
07b6 ; --------------------------------------------------------------------------------------
07b6 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07b8 01d3       |    |		.DBGLNO	0x01d3
07b9 ; --------------------------------------------------------------------------------------
07b9 ; Debug chain
07b9 ; --------------------------------------------------------------------------------------
07b9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07bb 01db       |    |		.DBGLNO	0x01db
07bc ; --------------------------------------------------------------------------------------
07bc ; Debug chain
07bc ; --------------------------------------------------------------------------------------
07bc 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07be 01e3       |    |		.DBGLNO	0x01e3
07bf ; --------------------------------------------------------------------------------------
07bf ; Debug chain
07bf ; --------------------------------------------------------------------------------------
07bf 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07c1 01eb       |    |		.DBGLNO	0x01eb
07c2 ; --------------------------------------------------------------------------------------
07c2 ; Debug chain
07c2 ; --------------------------------------------------------------------------------------
07c2 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07c4 01f3       |    |		.DBGLNO	0x01f3
07c5 ; --------------------------------------------------------------------------------------
07c5 ; Debug chain
07c5 ; --------------------------------------------------------------------------------------
07c5 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07c7 0203       |    |		.DBGLNO	0x0203
07c8 ; --------------------------------------------------------------------------------------
07c8 ; Debug chain
07c8 ; --------------------------------------------------------------------------------------
07c8 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07ca 020b       |    |		.DBGLNO	0x020b
07cb ; --------------------------------------------------------------------------------------
07cb ; Debug chain
07cb ; --------------------------------------------------------------------------------------
07cb 0000 000a  |    |		.DBGLEN	0x0000,0x000a
07cd 021b 0227  |   '|		.DBGLNO	0x021b,0x0227,0x022c,0x0231,0x0236,0x023b,0x0240,0x0245,0x024a,0x024f
07d7 0001 000a  |    |		.XXX[0xa]
07d9 0002 0003  |    |
07db 0004 0005  |    |
07dd 0006 0007  |    |
07df 0008 0009  |    |
07e1 ; --------------------------------------------------------------------------------------
07e1 ; Debug chain
07e1 ; --------------------------------------------------------------------------------------
07e1 0004 0000  |    |		.DBGLEN	0x0004,0x0000
07e3 02fb 02fd  |    |		.DBGLNO	0x02fb,0x02fd,0x02ff,0x0301
07e7 ; --------------------------------------------------------------------------------------
07e7 ; Debug chain
07e7 ; --------------------------------------------------------------------------------------
07e7 0004 0000  |    |		.DBGLEN	0x0004,0x0000
07e9 0304 0306  |    |		.DBGLNO	0x0304,0x0306,0x0308,0x030a
07ed ; --------------------------------------------------------------------------------------
07ed ; Debug chain
07ed ; --------------------------------------------------------------------------------------
07ed 0001 0002  |    |		.DBGLEN	0x0001,0x0002
07ef 0313 0314  |    |		.DBGLNO	0x0313,0x0314,0x0318
07f2 ; --------------------------------------------------------------------------------------
07f2 ; Debug chain
07f2 ; --------------------------------------------------------------------------------------
07f2 0001 0003  |    |		.DBGLEN	0x0001,0x0003
07f4 0323 0325  | # %|		.DBGLNO	0x0323,0x0325,0x0329,0x0339
07f8 ; --------------------------------------------------------------------------------------
07f8 ; Debug chain
07f8 ; --------------------------------------------------------------------------------------
07f8 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07fa 0343       | C  |		.DBGLNO	0x0343
07fb ; --------------------------------------------------------------------------------------
07fb ; Debug chain
07fb ; --------------------------------------------------------------------------------------
07fb 0001 0004  |    |		.DBGLEN	0x0001,0x0004
07fd 0353 0355  | S U|		.DBGLNO	0x0353,0x0355,0x0359,0x0364,0x036e
0802 ; --------------------------------------------------------------------------------------
0802 ; Debug chain
0802 ; --------------------------------------------------------------------------------------
0802 000c 0000  |    |		.DBGLEN	0x000c,0x0000
0804 0373 0374  | s t|		.DBGLNO	0x0373,0x0374,0x0376,0x0378,0x037a,0x037c,0x037e,0x0380,0x0382,0x0384,0x0386,0x0388
0810 ; --------------------------------------------------------------------------------------
0810 ; Debug chain
0810 ; --------------------------------------------------------------------------------------
0810 000b 0000  |    |		.DBGLEN	0x000b,0x0000
0812 038b 038d  |    |		.DBGLNO	0x038b,0x038d,0x038f,0x0391,0x0393,0x0395,0x0397,0x0399,0x039b,0x039d,0x039f
081d ; --------------------------------------------------------------------------------------
081d ; Debug chain
081d ; --------------------------------------------------------------------------------------
081d 0000 000b  |    |		.DBGLEN	0x0000,0x000b
081f 03ab 03b1  |    |		.DBGLNO	0x03ab,0x03b1,0x03bd,0x03bf,0x03c5,0x03cb,0x03d1,0x03d7,0x03dd,0x03e3,0x03e9
082a 0001 0002  |    |		.XXX[0xb]
082c 000a 0003  |    |
082e 0004 0005  |    |
0830 0006 0007  |    |
0832 0008 0009  |    |
0834 000b       |    |
0835 ; --------------------------------------------------------------------------------------
0835 ; Debug chain
0835 ; --------------------------------------------------------------------------------------
0835 0000 000b  |    |		.DBGLEN	0x0000,0x000b
0837 03f3 03f9  |    |		.DBGLNO	0x03f3,0x03f9,0x0405,0x0407,0x040d,0x0413,0x0419,0x041f,0x0425,0x042b,0x0431
0842 0001 0002  |    |		.XXX[0xb]
0844 000a 0003  |    |
0846 0004 0005  |    |
0848 0006 0007  |    |
084a 0008 0009  |    |
084c 000b       |    |
084d ; --------------------------------------------------------------------------------------
084d ; Debug chain
084d ; --------------------------------------------------------------------------------------
084d 0000 000b  |    |		.DBGLEN	0x0000,0x000b
084f 043b 0441  | ; A|		.DBGLNO	0x043b,0x0441,0x044d,0x044f,0x0455,0x045b,0x0461,0x0467,0x046d,0x0473,0x0479
085a 0001 0002  |    |		.XXX[0xb]
085c 000a 0003  |    |
085e 0004 0005  |    |
0860 0006 0007  |    |
0862 0008 0009  |    |
0864 000b       |    |
0865 ; --------------------------------------------------------------------------------------
0865 ; Debug chain
0865 ; --------------------------------------------------------------------------------------
0865 0000 000b  |    |		.DBGLEN	0x0000,0x000b
0867 0483 0489  |    |		.DBGLNO	0x0483,0x0489,0x0495,0x0497,0x049d,0x04a3,0x04a9,0x04af,0x04b5,0x04bb,0x04c1
0872 0001 0002  |    |		.XXX[0xb]
0874 000a 0003  |    |
0876 0004 0005  |    |
0878 0006 0007  |    |
087a 0008 0009  |    |
087c 000b       |    |
087d ; --------------------------------------------------------------------------------------
087d ; Debug chain
087d ; --------------------------------------------------------------------------------------
087d 0000 0006  |    |		.DBGLEN	0x0000,0x0006
087f 04cb 04d1  |    |		.DBGLNO	0x04cb,0x04d1,0x04dd,0x04df,0x04eb,0x04f2
0885 0001 0002  |    |		.XXX[0x6]
0887 0005 0003  |    |
0889 0004 0006  |    |
088b ; --------------------------------------------------------------------------------------
088b ; Debug chain
088b ; --------------------------------------------------------------------------------------
088b 0000 0006  |    |		.DBGLEN	0x0000,0x0006
088d 04fb 0501  |    |		.DBGLNO	0x04fb,0x0501,0x050d,0x050f,0x051b,0x0522
0893 0001 0002  |    |		.XXX[0x6]
0895 0005 0003  |    |
0897 0004 0006  |    |
0899 ; --------------------------------------------------------------------------------------
0899 ; Debug chain
0899 ; --------------------------------------------------------------------------------------
0899 0000 0006  |    |		.DBGLEN	0x0000,0x0006
089b 052b 0531  | + 1|		.DBGLNO	0x052b,0x0531,0x053d,0x053f,0x054b,0x0552
08a1 0001 0002  |    |		.XXX[0x6]
08a3 0005 0003  |    |
08a5 0004 0006  |    |
08a7 ; --------------------------------------------------------------------------------------
08a7 ; Debug chain
08a7 ; --------------------------------------------------------------------------------------
08a7 0000 0006  |    |		.DBGLEN	0x0000,0x0006
08a9 055b 0561  | [ a|		.DBGLNO	0x055b,0x0561,0x056d,0x056f,0x0576,0x057d
08af 0001 0002  |    |		.XXX[0x6]
08b1 0005 0003  |    |
08b3 0004 0006  |    |
08b5 ; --------------------------------------------------------------------------------------
08b5 ; Debug chain
08b5 ; --------------------------------------------------------------------------------------
08b5 0001 000e  |    |		.DBGLEN	0x0001,0x000e
08b7 0583 0585  |    |		.DBGLNO	0x0583,0x0585,0x0591,0x0593,0x059f,0x05a1,0x05b5,0x05bc,0x05c4,0x05cb,0x05d7,0x05d9,0x05e1,0x05e8,0x05f1
08c6 0001 000e  |    |		.XXX[0xe]
08c8 0002 0007  |    |
08ca 0003 0004  |    |
08cc 0005 0006  |    |
08ce 0008 000d  |    |
08d0 0009 000a  |    |
08d2 000b 000c  |    |
08d4 ; --------------------------------------------------------------------------------------
08d4 ; Debug chain
08d4 ; --------------------------------------------------------------------------------------
08d4 0000 0004  |    |		.DBGLEN	0x0000,0x0004
08d6 05fb 0607  |    |		.DBGLNO	0x05fb,0x0607,0x0609,0x060e
08da 0001 0004  |    |		.XXX[0x4]
08dc 0002 0003  |    |
08de ; --------------------------------------------------------------------------------------
08de ; Debug chain
08de ; --------------------------------------------------------------------------------------
08de 0000 0004  |    |		.DBGLEN	0x0000,0x0004
08e0 061b 0627  |   '|		.DBGLNO	0x061b,0x0627,0x0629,0x062e
08e4 0001 0004  |    |		.XXX[0x4]
08e6 0002 0003  |    |
08e8 0000 0000  |    |		.BLANK	0000[0x118]