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

⟦e72deee0a⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0678       | x  |		.CONST	0x0678								; 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 00c4       |    |		.CONST	0x00c4								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0037       | 7  |		.CONST	0x0037								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 48c8       |H   |		Short_Literal	0xc8
000d 00e3       |    |		Load_Encached	Natural_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 00d8       |    |		Load_Top	At_Offset_0
0010 4800       |H   |		Short_Literal	0x0
0011 4801       |H   |		Short_Literal	0x1
0012 4801       |H   |		Short_Literal	0x1
0013 4804       |H   |		Short_Literal	0x4
0014 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0015 029f 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Call
0017 00d9       |    |		Load_Top	At_Offset_1
0018 012a       | *  |		Execute	Any,Change_Utility
0019 0007       |    |		Action	Break_Optional
001a 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
001c 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
001e 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0020 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0022 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0024 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0026 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0028 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
002a 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
002c 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
002e 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0030 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0032 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0034 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0036 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0038 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
003a 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
003c 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
003e 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
003f 0129       | )  |		Execute	Any,Make_Visible
0040 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
0042 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0043 0129       | )  |		Execute	Any,Make_Visible
0044 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
0046 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0047 0129       | )  |		Execute	Any,Make_Visible
0048 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
004a 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
004c 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
004d 0129       | )  |		Execute	Any,Make_Visible
004e 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
004f 0129       | )  |		Execute	Any,Make_Visible
0050 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
0052 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0053 0129       | )  |		Execute	Any,Make_Visible
0054 029a 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Outer_Call,Visible,Unelaborated
0056 029a 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call,Visible,Unelaborated
0058 029a 04db  |    |		Declare_Subprogram	INIT_04d8,For_Outer_Call,Visible,Unelaborated
005a 029a 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call,Visible,Unelaborated
005c 029a 051b  |    |		Declare_Subprogram	INIT_0518,For_Outer_Call,Visible,Unelaborated
005e 029a 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call,Visible,Unelaborated
0060 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
0062 e001       |    |		Load	0x0,0x1
0063 0129       | )  |		Execute	Any,Make_Visible
0064 4800       |H   |		Short_Literal	0x0
0065 0093 0603  |    |		push_full_address	INIT_0600
0067 02a0       |    |		Declare_Subprogram	Null_Subprogram
0068 038f       |    |		Declare_Type	Package,Defined,Visible
0069 e002       |    |		Load	0x0,0x2
006a 4801       |H   |		Short_Literal	0x1
006b 00da       |    |		Load_Top	At_Offset_2
006c 020e       |    |		Execute	Module,Augment_Imports
006d 0386       |    |		Declare_Variable	Package,Visible
006e e20d       |    |		Load	0x1,0xd
006f 0266       | f  |		Execute	Discrete,Bounds
0070 e003       |    |		Load	0x0,0x3
0071 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0072 02a0       |    |		Declare_Subprogram	Null_Subprogram
0073 4801       |H   |		Short_Literal	0x1
0074 0348       | H  |		Declare_Type	Array,Defined_Incomplete,Bounds_With_Object
0075 00e3       |    |		Load_Encached	Natural_Cache
0076 00e4       |    |		Load_Encached	Positive_Cache
0077 00da       |    |		Load_Top	At_Offset_2
0078 029f 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Call
007a 4800       |H   |		Short_Literal	0x0
007b 4801       |H   |		Short_Literal	0x1
007c 4802       |H   |		Short_Literal	0x2
007d e20e       |    |		Load	0x1,0xe
007e 0307       |    |		Complete_Type	Variant_Record,By_Defining
007f 00bf       |    |		Action	Accept_Activation
0080 00d8       |    |		Load_Top	At_Offset_0
0081 0340       | @  |		Complete_Type	Array,By_Component_Completion
0082 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 029d 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call
0092 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0093 00c7       |    |		Action	Elaborate_Subprogram
0094 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0095 00c7       |    |		Action	Elaborate_Subprogram
0096 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
009f 00c7       |    |		Action	Elaborate_Subprogram
00a0 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00a3 00c7       |    |		Action	Elaborate_Subprogram
00a4 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00a5 00c7       |    |		Action	Elaborate_Subprogram
00a6 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00a7 00c7       |    |		Action	Elaborate_Subprogram
00a8 029d 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call
00aa 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00ad 00c7       |    |		Action	Elaborate_Subprogram
00ae 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00af 00c7       |    |		Action	Elaborate_Subprogram
00b0 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00b1 00c7       |    |		Action	Elaborate_Subprogram
00b2 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00b3 00c7       |    |		Action	Elaborate_Subprogram
00b4 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00b5 00c7       |    |		Action	Elaborate_Subprogram
00b6 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
00b7 00c7       |    |		Action	Elaborate_Subprogram
00b8 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
00b9 00c7       |    |		Action	Elaborate_Subprogram
00ba 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
00bb 00c7       |    |		Action	Elaborate_Subprogram
00bc 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00bd 00c7       |    |		Action	Elaborate_Subprogram
00be 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
00bf 00c7       |    |		Action	Elaborate_Subprogram
00c0 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
00c1 00c7       |    |		Action	Elaborate_Subprogram
00c2 00db       |    |		Load_Top	At_Offset_3
00c3 020f       |    |		Execute	Module,Activate
00c4			BODY_0008:
00c4 00bc       |    |		Action	Signal_Activated
00c5 00bb       |    |		Action	Signal_Completion
00c6 0000 0000  |    |		.XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d2       |    |		.CONST	0x00d2								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0003       |    |		.CONST	0x0003								; Number of locals
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00cd 00e0       |    |		Load_Encached	Standard_Cache
00ce 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00cf e003       |    |		Load	0x0,0x3
00d0 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00d1 0337       | 7  |		Declare_Variable	Array
00d2			BODY_00c8:
00d2 4801       |H   |		Short_Literal	0x1
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 01db       |    |		Execute	Vector,Length
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 00e2       |    |		Load_Encached	Integer_Cache
00d7 0260       | `  |		Execute	Discrete,In_Type
00d8 7001       |p   |		Jump_Nonzero	0xda
00d9 0801       |    |		Execute_Immediate	Raise,0x1
00da 00db       |    |		Load_Top	At_Offset_3
00db 01cf       |    |		Execute	Vector,Slice_Read
00dc 4801       |H   |		Short_Literal	0x1
00dd 00db       |    |		Load_Top	At_Offset_3
00de 01db       |    |		Execute	Vector,Length
00df 00d8       |    |		Load_Top	At_Offset_0
00e0 00e2       |    |		Load_Encached	Integer_Cache
00e1 0260       | `  |		Execute	Discrete,In_Type
00e2 7001       |p   |		Jump_Nonzero	0xe4
00e3 0801       |    |		Execute_Immediate	Raise,0x1
00e4 00db       |    |		Load_Top	At_Offset_3
00e5 01ce       |    |		Execute	Vector,Slice_Write
00e6 00cf       |    |		Action	Mark_Auxiliary
00e7 480a       |H   |		Short_Literal	0xa
00e8 00db       |    |		Load_Top	At_Offset_3
00e9 01db       |    |		Execute	Vector,Length
00ea 0a01       |    |		Execute_Immediate	Plus,0x1
00eb 00d8       |    |		Load_Top	At_Offset_0
00ec 00e3       |    |		Load_Encached	Natural_Cache
00ed 0260       | `  |		Execute	Discrete,In_Type
00ee 7001       |p   |		Jump_Nonzero	0xf0
00ef 0801       |    |		Execute_Immediate	Raise,0x1
00f0 0263       | c  |		Execute	Discrete,Above_Bound
00f1 7006       |p   |		Jump_Nonzero	0xf8
00f2 4820       |H   |		Short_Literal	0x20
00f3 00d9       |    |		Load_Top	At_Offset_1
00f4 e403       |    |		Load	0x2,0x3
00f5 01d6       |    |		Execute	Vector,Field_Write
00f6 00c8       |    |		Action	Pop_Auxiliary_Range
00f7 3ffa       |?   |		Loop_Increasing	0xf2
00f8 00ce       |    |		Action	Pop_Auxiliary
00f9 00d8       |    |		Load_Top	At_Offset_0
00fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fb 0000 0000  |    |		.BLANK	0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0109       |    |		.CONST	0x0109								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0002       |    |		.CONST	0x0002								; Number of locals
0103			INIT_0100:
0103 e5fd       |    |		Load	0x2,-0x3
0104 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0105 e20e       |    |		Load	0x1,0xe
0106 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0107 00d8       |    |		Load_Top	At_Offset_0
0108 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0109			BODY_0100:
0109 e5fd       |    |		Load	0x2,-0x3
010a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
010b 681f       |h   |		Jump_Zero	0x12b
010c 00cf       |    |		Action	Mark_Auxiliary
010d e5fd       |    |		Load	0x2,-0x3
010e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
010f 4801       |H   |		Short_Literal	0x1
0110 0263       | c  |		Execute	Discrete,Above_Bound
0111 7018       |p   |		Jump_Nonzero	0x12a
0112 00d8       |    |		Load_Top	At_Offset_0
0113 e5fd       |    |		Load	0x2,-0x3
0114 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0115 01d5       |    |		Execute	Vector,Field_Reference
0116 85fe       |    |		Call	0x2,-0x2
0117 6810       |h   |		Jump_Zero	0x128
0118 00db       |    |		Load_Top	At_Offset_3
0119 00d9       |    |		Load_Top	At_Offset_1
011a e5fd       |    |		Load	0x2,-0x3
011b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
011c 01d5       |    |		Execute	Vector,Field_Reference
011d 821a       |    |		Call	0x1,0x1a
011e 00d1       |    |		Pop_Control	Pop_Count_1
011f e5fc       |    |		Load	0x2,-0x4
0120 6807       |h   |		Jump_Zero	0x128
0121 00db       |    |		Load_Top	At_Offset_3
0122 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0123 e5fc       |    |		Load	0x2,-0x4
0124 027b       | {  |		Execute	Discrete,Greater_Equal
0125 6802       |h   |		Jump_Zero	0x128
0126 00db       |    |		Load_Top	At_Offset_3
0127 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0128 00c8       |    |		Action	Pop_Auxiliary_Range
0129 3fe8       |?   |		Loop_Increasing	0x112
012a 00ce       |    |		Action	Pop_Auxiliary
012b 00d8       |    |		Load_Top	At_Offset_0
012c 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
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 e5fd       |    |		Load	0x2,-0x3
0134 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0135 6816       |h   |		Jump_Zero	0x14c
0136 00cf       |    |		Action	Mark_Auxiliary
0137 e5fd       |    |		Load	0x2,-0x3
0138 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0139 4801       |H   |		Short_Literal	0x1
013a 0263       | c  |		Execute	Discrete,Above_Bound
013b 700f       |p   |		Jump_Nonzero	0x14b
013c 00d8       |    |		Load_Top	At_Offset_0
013d e5fd       |    |		Load	0x2,-0x3
013e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
013f 01d5       |    |		Execute	Vector,Field_Reference
0140 85fe       |    |		Call	0x2,-0x2
0141 6807       |h   |		Jump_Zero	0x149
0142 00d8       |    |		Load_Top	At_Offset_0
0143 e5fd       |    |		Load	0x2,-0x3
0144 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0145 01d5       |    |		Execute	Vector,Field_Reference
0146 0320       |    |		Declare_Variable	Record,Duplicate
0147 00cd       |    |		Action	Spare6_Action
0148 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0149 00c8       |    |		Action	Pop_Auxiliary_Range
014a 3ff1       |?   |		Loop_Increasing	0x13c
014b 00ce       |    |		Action	Pop_Auxiliary
014c e003       |    |		Load	0x0,0x3
014d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
014e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
014f 0000       |    |		.XXX[0x1]
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 e5fd       |    |		Load	0x2,-0x3
0154 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0155 6811       |h   |		Jump_Zero	0x167
0156 00cf       |    |		Action	Mark_Auxiliary
0157 e5fd       |    |		Load	0x2,-0x3
0158 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0159 4801       |H   |		Short_Literal	0x1
015a 0263       | c  |		Execute	Discrete,Above_Bound
015b 700a       |p   |		Jump_Nonzero	0x166
015c 00d8       |    |		Load_Top	At_Offset_0
015d e5fd       |    |		Load	0x2,-0x3
015e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
015f 01d5       |    |		Execute	Vector,Field_Reference
0160 85fe       |    |		Call	0x2,-0x2
0161 6802       |h   |		Jump_Zero	0x164
0162 4800       |H   |		Short_Literal	0x0
0163 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0164 00c8       |    |		Action	Pop_Auxiliary_Range
0165 3ff6       |?   |		Loop_Increasing	0x15c
0166 00ce       |    |		Action	Pop_Auxiliary
0167 4801       |H   |		Short_Literal	0x1
0168 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0169 0000 0000  |    |		.BLANK	0000[0x7]
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 e5fd       |    |		Load	0x2,-0x3
0174 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0175 6811       |h   |		Jump_Zero	0x187
0176 00cf       |    |		Action	Mark_Auxiliary
0177 e5fd       |    |		Load	0x2,-0x3
0178 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0179 4801       |H   |		Short_Literal	0x1
017a 0263       | c  |		Execute	Discrete,Above_Bound
017b 700a       |p   |		Jump_Nonzero	0x186
017c 00d8       |    |		Load_Top	At_Offset_0
017d e5fd       |    |		Load	0x2,-0x3
017e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
017f 01d5       |    |		Execute	Vector,Field_Reference
0180 85fe       |    |		Call	0x2,-0x2
0181 6802       |h   |		Jump_Zero	0x184
0182 4801       |H   |		Short_Literal	0x1
0183 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0184 00c8       |    |		Action	Pop_Auxiliary_Range
0185 3ff6       |?   |		Loop_Increasing	0x17c
0186 00ce       |    |		Action	Pop_Auxiliary
0187 4800       |H   |		Short_Literal	0x0
0188 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0189 0000 0000  |    |		.BLANK	0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0196       |    |		.CONST	0x0196								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0002       |    |		.CONST	0x0002								; Number of locals
0193			INIT_0190:
0193 e003       |    |		Load	0x0,0x3
0194 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0195 0322       | "  |		Declare_Variable	Record
0196			BODY_0190:
0196 e5fd       |    |		Load	0x2,-0x3
0197 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0198 7003       |p   |		Jump_Nonzero	0x19c
0199 e003       |    |		Load	0x0,0x3
019a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
019c 4801       |H   |		Short_Literal	0x1
019d e5fd       |    |		Load	0x2,-0x3
019e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
019f 01d5       |    |		Execute	Vector,Field_Reference
01a0 00d9       |    |		Load_Top	At_Offset_1
01a1 017d       | }  |		Execute	Record,Structure_Write
01a2 00cf       |    |		Action	Mark_Auxiliary
01a3 e5fd       |    |		Load	0x2,-0x3
01a4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01a5 4802       |H   |		Short_Literal	0x2
01a6 0263       | c  |		Execute	Discrete,Above_Bound
01a7 700f       |p   |		Jump_Nonzero	0x1b7
01a8 00d8       |    |		Load_Top	At_Offset_0
01a9 e5fd       |    |		Load	0x2,-0x3
01aa 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01ab 01d5       |    |		Execute	Vector,Field_Reference
01ac e402       |    |		Load	0x2,0x2
01ad 85fe       |    |		Call	0x2,-0x2
01ae 7006       |p   |		Jump_Nonzero	0x1b5
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 e5fd       |    |		Load	0x2,-0x3
01b1 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01b2 01d5       |    |		Execute	Vector,Field_Reference
01b3 e402       |    |		Load	0x2,0x2
01b4 017d       | }  |		Execute	Record,Structure_Write
01b5 00c8       |    |		Action	Pop_Auxiliary_Range
01b6 3ff1       |?   |		Loop_Increasing	0x1a8
01b7 00ce       |    |		Action	Pop_Auxiliary
01b8 00d8       |    |		Load_Top	At_Offset_0
01b9 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01ba 0000 0000  |    |		.BLANK	0000[0x6]
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 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c6 0000 0000  |    |		.XXX[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 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01cd 0f00       |    |		Execute_Immediate	Equal,0x0
01ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cf 0000       |    |		.XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d5 0e00       |    |		Execute_Immediate	Not_Equal,0x0
01d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d7 0000       |    |		.XXX[0x1]
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 e003       |    |		Load	0x0,0x3
01dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01de 017f       |    |		Execute	Record,Equal
01df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 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 00da       |    |		Load_Top	At_Offset_2
01e4 e003       |    |		Load	0x0,0x3
01e5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e6 017e       | ~  |		Execute	Record,Not_Equal
01e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ef       |    |		.CONST	0x01ef								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0003       |    |		.CONST	0x0003								; Number of locals
01eb			INIT_01e8:
01eb 00e1       |    |		Load_Encached	Boolean_Cache
01ec 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01ed 029f 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Call
01ef			BODY_01e8:
01ef e5fe       |    |		Load	0x2,-0x2
01f0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01f1 680b       |h   |		Jump_Zero	0x1fd
01f2 e5ff       |    |		Load	0x2,-0x1
01f3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f4 4801       |H   |		Short_Literal	0x1
01f5 e5fe       |    |		Load	0x2,-0x2
01f6 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01f7 01d5       |    |		Execute	Vector,Field_Reference
01f8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f9 027e       | ~  |		Execute	Discrete,Not_Equal
01fa 6802       |h   |		Jump_Zero	0x1fd
01fb e233       | 3  |		Load	0x1,0x33
01fc 0257       | W  |		Execute	Discrete,Raise
01fd e5fe       |    |		Load	0x2,-0x2
01fe 8236       | 6  |		Call	0x1,0x36
01ff 6801       |h   |		Jump_Zero	0x201
0200 8403       |    |		Call	0x2,0x3
0201 00cf       |    |		Action	Mark_Auxiliary
0202 e5fe       |    |		Load	0x2,-0x2
0203 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0204 4801       |H   |		Short_Literal	0x1
0205 0263       | c  |		Execute	Discrete,Above_Bound
0206 700d       |p   |		Jump_Nonzero	0x214
0207 e5ff       |    |		Load	0x2,-0x1
0208 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0209 00d9       |    |		Load_Top	At_Offset_1
020a e5fe       |    |		Load	0x2,-0x2
020b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
020c 01d5       |    |		Execute	Vector,Field_Reference
020d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
020e 027f       |    |		Execute	Discrete,Equal
020f 6802       |h   |		Jump_Zero	0x212
0210 4801       |H   |		Short_Literal	0x1
0211 a402       |    |		Store_Unchecked	0x2,0x2
0212 00c8       |    |		Action	Pop_Auxiliary_Range
0213 3ff3       |?   |		Loop_Increasing	0x207
0214 00ce       |    |		Action	Pop_Auxiliary
0215 00d9       |    |		Load_Top	At_Offset_1
0216 700b       |p   |		Jump_Nonzero	0x222
0217 e5fe       |    |		Load	0x2,-0x2
0218 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0219 0a01       |    |		Execute_Immediate	Plus,0x1
021a e5fe       |    |		Load	0x2,-0x2
021b 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
021c e5ff       |    |		Load	0x2,-0x1
021d e5fe       |    |		Load	0x2,-0x2
021e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
021f e5fe       |    |		Load	0x2,-0x2
0220 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0221 01d6       |    |		Execute	Vector,Field_Write
0222 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0223 0000 0000  |    |		.BLANK	0000[0x5]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00db       |    |		Load_Top	At_Offset_3
022c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
022d 6835       |h5  |		Jump_Zero	0x263
022e 4801       |H   |		Short_Literal	0x1
022f e5fe       |    |		Load	0x2,-0x2
0230 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0231 01d5       |    |		Execute	Vector,Field_Reference
0232 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0233 00db       |    |		Load_Top	At_Offset_3
0234 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0235 027f       |    |		Execute	Discrete,Equal
0236 682c       |h,  |		Jump_Zero	0x263
0237 00cf       |    |		Action	Mark_Auxiliary
0238 e5fe       |    |		Load	0x2,-0x2
0239 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
023a 4801       |H   |		Short_Literal	0x1
023b 0263       | c  |		Execute	Discrete,Above_Bound
023c 7025       |p%  |		Jump_Nonzero	0x262
023d 00d8       |    |		Load_Top	At_Offset_0
023e e5fe       |    |		Load	0x2,-0x2
023f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0240 01d5       |    |		Execute	Vector,Field_Reference
0241 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0242 e5ff       |    |		Load	0x2,-0x1
0243 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0244 027f       |    |		Execute	Discrete,Equal
0245 681a       |h   |		Jump_Zero	0x260
0246 00cf       |    |		Action	Mark_Auxiliary
0247 e5fe       |    |		Load	0x2,-0x2
0248 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0249 0aff       |    |		Execute_Immediate	Plus,-0x1
024a 00da       |    |		Load_Top	At_Offset_2
024b 0263       | c  |		Execute	Discrete,Above_Bound
024c 700b       |p   |		Jump_Nonzero	0x258
024d 00d8       |    |		Load_Top	At_Offset_0
024e 0a01       |    |		Execute_Immediate	Plus,0x1
024f e5fe       |    |		Load	0x2,-0x2
0250 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0251 01d5       |    |		Execute	Vector,Field_Reference
0252 00d9       |    |		Load_Top	At_Offset_1
0253 e5fe       |    |		Load	0x2,-0x2
0254 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0255 01d6       |    |		Execute	Vector,Field_Write
0256 00c8       |    |		Action	Pop_Auxiliary_Range
0257 3ff5       |?   |		Loop_Increasing	0x24d
0258 00ce       |    |		Action	Pop_Auxiliary
0259 e5fe       |    |		Load	0x2,-0x2
025a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
025b 0aff       |    |		Execute_Immediate	Plus,-0x1
025c e5fe       |    |		Load	0x2,-0x2
025d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
025e 00d2       |    |		Pop_Control	Pop_Count_2
025f 7802       |x   |		Jump	0x262
0260 00c8       |    |		Action	Pop_Auxiliary_Range
0261 3fdb       |?   |		Loop_Increasing	0x23d
0262 00ce       |    |		Action	Pop_Auxiliary
0263 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0264 0000 0000  |    |		.BLANK	0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b 00db       |    |		Load_Top	At_Offset_3
026c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
026d 6824       |h$  |		Jump_Zero	0x292
026e 4801       |H   |		Short_Literal	0x1
026f e5fe       |    |		Load	0x2,-0x2
0270 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0271 01d5       |    |		Execute	Vector,Field_Reference
0272 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0273 00db       |    |		Load_Top	At_Offset_3
0274 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0275 027f       |    |		Execute	Discrete,Equal
0276 681b       |h   |		Jump_Zero	0x292
0277 00cf       |    |		Action	Mark_Auxiliary
0278 e5fe       |    |		Load	0x2,-0x2
0279 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
027a 4801       |H   |		Short_Literal	0x1
027b 0263       | c  |		Execute	Discrete,Above_Bound
027c 7014       |p   |		Jump_Nonzero	0x291
027d 00d8       |    |		Load_Top	At_Offset_0
027e e5fe       |    |		Load	0x2,-0x2
027f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0280 01d5       |    |		Execute	Vector,Field_Reference
0281 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0282 e5ff       |    |		Load	0x2,-0x1
0283 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0284 027f       |    |		Execute	Discrete,Equal
0285 6809       |h   |		Jump_Zero	0x28f
0286 e004       |    |		Load	0x0,0x4
0287 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0288 00d9       |    |		Load_Top	At_Offset_1
0289 e5fe       |    |		Load	0x2,-0x2
028a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
028b 01d5       |    |		Execute	Vector,Field_Reference
028c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
028d 00d2       |    |		Pop_Control	Pop_Count_2
028e 7802       |x   |		Jump	0x291
028f 00c8       |    |		Action	Pop_Auxiliary_Range
0290 3fec       |?   |		Loop_Increasing	0x27d
0291 00ce       |    |		Action	Pop_Auxiliary
0292 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0293 0000 0000  |    |		.BLANK	0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b e5fd       |    |		Load	0x2,-0x3
029c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
029d 6823       |h#  |		Jump_Zero	0x2c1
029e 4801       |H   |		Short_Literal	0x1
029f e5fd       |    |		Load	0x2,-0x3
02a0 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02a1 01d5       |    |		Execute	Vector,Field_Reference
02a2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a3 00db       |    |		Load_Top	At_Offset_3
02a4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a5 027f       |    |		Execute	Discrete,Equal
02a6 681a       |h   |		Jump_Zero	0x2c1
02a7 00cf       |    |		Action	Mark_Auxiliary
02a8 e5fd       |    |		Load	0x2,-0x3
02a9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02aa 4801       |H   |		Short_Literal	0x1
02ab 0263       | c  |		Execute	Discrete,Above_Bound
02ac 7013       |p   |		Jump_Nonzero	0x2c0
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae e5fd       |    |		Load	0x2,-0x3
02af 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02b0 01d5       |    |		Execute	Vector,Field_Reference
02b1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b2 e5ff       |    |		Load	0x2,-0x1
02b3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b4 027f       |    |		Execute	Discrete,Equal
02b5 6808       |h   |		Jump_Zero	0x2be
02b6 e5fe       |    |		Load	0x2,-0x2
02b7 00d9       |    |		Load_Top	At_Offset_1
02b8 e5fd       |    |		Load	0x2,-0x3
02b9 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02ba 01d5       |    |		Execute	Vector,Field_Reference
02bb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02bc 00d2       |    |		Pop_Control	Pop_Count_2
02bd 7802       |x   |		Jump	0x2c0
02be 00c8       |    |		Action	Pop_Auxiliary_Range
02bf 3fed       |?   |		Loop_Increasing	0x2ad
02c0 00ce       |    |		Action	Pop_Auxiliary
02c1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c2 0000 0000  |    |		.BLANK	0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cc       |    |		.CONST	0x02cc								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0002       |    |		.CONST	0x0002								; Number of locals
02cb			INIT_02c8:
02cb 00e5       |    |		Load_Encached	Long_Integer_Cache
02cc			BODY_02c8:
02cc e004       |    |		Load	0x0,0x4
02cd 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02ce 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02cf 00cf       |    |		Action	Mark_Auxiliary
02d0 e5ff       |    |		Load	0x2,-0x1
02d1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02d2 4801       |H   |		Short_Literal	0x1
02d3 0263       | c  |		Execute	Discrete,Above_Bound
02d4 7008       |p   |		Jump_Nonzero	0x2dd
02d5 00db       |    |		Load_Top	At_Offset_3
02d6 00d9       |    |		Load_Top	At_Offset_1
02d7 e5ff       |    |		Load	0x2,-0x1
02d8 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02d9 01d5       |    |		Execute	Vector,Field_Reference
02da 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02db 00c8       |    |		Action	Pop_Auxiliary_Range
02dc 3ff8       |?   |		Loop_Increasing	0x2d5
02dd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02de 0000 0000  |    |		.XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 4800       |H   |		Short_Literal	0x0
02e4 00db       |    |		Load_Top	At_Offset_3
02e5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02e6 4801       |H   |		Short_Literal	0x1
02e7 00db       |    |		Load_Top	At_Offset_3
02e8 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
02e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ea 0000 0000  |    |		.BLANK	0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 0302       |    |		.CONST	0x0302								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0003       |    |		.CONST	0x0003								; Number of locals
02f3			INIT_02f0:
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02f5 e5fe       |    |		Load	0x2,-0x2
02f6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02f7 0273       | s  |		Execute	Discrete,Plus
02f8 e20e       |    |		Load	0x1,0xe
02f9 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02fa 00d8       |    |		Load_Top	At_Offset_0
02fb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02fc e5fe       |    |		Load	0x2,-0x2
02fd 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02fe e20e       |    |		Load	0x1,0xe
02ff 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0300 00d8       |    |		Load_Top	At_Offset_0
0301 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0302			BODY_02f0:
0302 e5ff       |    |		Load	0x2,-0x1
0303 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0304 7004       |p   |		Jump_Nonzero	0x309
0305 e5fe       |    |		Load	0x2,-0x2
0306 00da       |    |		Load_Top	At_Offset_2
0307 016d       | m  |		Execute	Variant_Record,Structure_Write
0308 7867       |xg  |		Jump	0x370
0309 e5fe       |    |		Load	0x2,-0x2
030a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
030b 7004       |p   |		Jump_Nonzero	0x310
030c e5ff       |    |		Load	0x2,-0x1
030d 00da       |    |		Load_Top	At_Offset_2
030e 016d       | m  |		Execute	Variant_Record,Structure_Write
030f 7860       |x`  |		Jump	0x370
0310 4801       |H   |		Short_Literal	0x1
0311 e5ff       |    |		Load	0x2,-0x1
0312 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0313 01d5       |    |		Execute	Vector,Field_Reference
0314 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0315 4801       |H   |		Short_Literal	0x1
0316 e5fe       |    |		Load	0x2,-0x2
0317 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0318 01d5       |    |		Execute	Vector,Field_Reference
0319 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
031a 027e       | ~  |		Execute	Discrete,Not_Equal
031b 6802       |h   |		Jump_Zero	0x31e
031c e233       | 3  |		Load	0x1,0x33
031d 0257       | W  |		Execute	Discrete,Raise
031e e5fe       |    |		Load	0x2,-0x2
031f 00d9       |    |		Load_Top	At_Offset_1
0320 016d       | m  |		Execute	Variant_Record,Structure_Write
0321 00cf       |    |		Action	Mark_Auxiliary
0322 e5ff       |    |		Load	0x2,-0x1
0323 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0324 4801       |H   |		Short_Literal	0x1
0325 0263       | c  |		Execute	Discrete,Above_Bound
0326 7026       |p&  |		Jump_Nonzero	0x34d
0327 00cf       |    |		Action	Mark_Auxiliary
0328 e403       |    |		Load	0x2,0x3
0329 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
032a 4801       |H   |		Short_Literal	0x1
032b 0263       | c  |		Execute	Discrete,Above_Bound
032c 7016       |p   |		Jump_Nonzero	0x343
032d 00db       |    |		Load_Top	At_Offset_3
032e e5ff       |    |		Load	0x2,-0x1
032f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0330 01d5       |    |		Execute	Vector,Field_Reference
0331 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0332 00d9       |    |		Load_Top	At_Offset_1
0333 e403       |    |		Load	0x2,0x3
0334 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0335 01d5       |    |		Execute	Vector,Field_Reference
0336 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0337 027f       |    |		Execute	Discrete,Equal
0338 6808       |h   |		Jump_Zero	0x341
0339 e403       |    |		Load	0x2,0x3
033a 00d9       |    |		Load_Top	At_Offset_1
033b e403       |    |		Load	0x2,0x3
033c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
033d 01d5       |    |		Execute	Vector,Field_Reference
033e 821b       |    |		Call	0x1,0x1b
033f 00d3       |    |		Pop_Control	Pop_Count_3
0340 7802       |x   |		Jump	0x343
0341 00c8       |    |		Action	Pop_Auxiliary_Range
0342 3fea       |?   |		Loop_Increasing	0x32d
0343 00ce       |    |		Action	Pop_Auxiliary
0344 e402       |    |		Load	0x2,0x2
0345 00d9       |    |		Load_Top	At_Offset_1
0346 e5ff       |    |		Load	0x2,-0x1
0347 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0348 01d5       |    |		Execute	Vector,Field_Reference
0349 821a       |    |		Call	0x1,0x1a
034a 00d1       |    |		Pop_Control	Pop_Count_1
034b 00c8       |    |		Action	Pop_Auxiliary_Range
034c 3fda       |?   |		Loop_Increasing	0x327
034d 00ce       |    |		Action	Pop_Auxiliary
034e 00d9       |    |		Load_Top	At_Offset_1
034f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0350 00d9       |    |		Load_Top	At_Offset_1
0351 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0352 0273       | s  |		Execute	Discrete,Plus
0353 00da       |    |		Load_Top	At_Offset_2
0354 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0355 4801       |H   |		Short_Literal	0x1
0356 00da       |    |		Load_Top	At_Offset_2
0357 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0358 00db       |    |		Load_Top	At_Offset_3
0359 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
035a 01cf       |    |		Execute	Vector,Slice_Read
035b 4801       |H   |		Short_Literal	0x1
035c 00da       |    |		Load_Top	At_Offset_2
035d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
035e 00db       |    |		Load_Top	At_Offset_3
035f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0360 01cf       |    |		Execute	Vector,Slice_Read
0361 01cc       |    |		Execute	Vector,Catenate
0362 4801       |H   |		Short_Literal	0x1
0363 00db       |    |		Load_Top	At_Offset_3
0364 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0365 00db       |    |		Load_Top	At_Offset_3
0366 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0367 0273       | s  |		Execute	Discrete,Plus
0368 00d8       |    |		Load_Top	At_Offset_0
0369 00e2       |    |		Load_Encached	Integer_Cache
036a 0260       | `  |		Execute	Discrete,In_Type
036b 7001       |p   |		Jump_Nonzero	0x36d
036c 0801       |    |		Execute_Immediate	Raise,0x1
036d e402       |    |		Load	0x2,0x2
036e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
036f 01ce       |    |		Execute	Vector,Slice_Write
0370 00d9       |    |		Load_Top	At_Offset_1
0371 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0372 0000 0000  |    |		.BLANK	0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 038a       |    |		.CONST	0x038a								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0003       |    |		.CONST	0x0003								; Number of locals
037b			INIT_0378:
037b 00db       |    |		Load_Top	At_Offset_3
037c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
037d 00db       |    |		Load_Top	At_Offset_3
037e 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
037f 8237       | 7  |		Call	0x1,0x37
0380 e20e       |    |		Load	0x1,0xe
0381 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0382 00d8       |    |		Load_Top	At_Offset_0
0383 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0384 e5fe       |    |		Load	0x2,-0x2
0385 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0386 e20e       |    |		Load	0x1,0xe
0387 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0388 00d8       |    |		Load_Top	At_Offset_0
0389 1c00       |    |		Execute_Immediate	Run_Utility,0x0
038a			BODY_0378:
038a e5ff       |    |		Load	0x2,-0x1
038b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
038c 0e00       |    |		Execute_Immediate	Not_Equal,0x0
038d e5fe       |    |		Load	0x2,-0x2
038e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
038f 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0390 0279       | y  |		Execute	Discrete,And
0391 683e       |h>  |		Jump_Zero	0x3d0
0392 4801       |H   |		Short_Literal	0x1
0393 e5ff       |    |		Load	0x2,-0x1
0394 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0395 01d5       |    |		Execute	Vector,Field_Reference
0396 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0397 4801       |H   |		Short_Literal	0x1
0398 e5fe       |    |		Load	0x2,-0x2
0399 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
039a 01d5       |    |		Execute	Vector,Field_Reference
039b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
039c 027e       | ~  |		Execute	Discrete,Not_Equal
039d 6802       |h   |		Jump_Zero	0x3a0
039e e233       | 3  |		Load	0x1,0x33
039f 0257       | W  |		Execute	Discrete,Raise
03a0 e5fe       |    |		Load	0x2,-0x2
03a1 00d9       |    |		Load_Top	At_Offset_1
03a2 016d       | m  |		Execute	Variant_Record,Structure_Write
03a3 00cf       |    |		Action	Mark_Auxiliary
03a4 e5ff       |    |		Load	0x2,-0x1
03a5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03a6 4801       |H   |		Short_Literal	0x1
03a7 0263       | c  |		Execute	Discrete,Above_Bound
03a8 7026       |p&  |		Jump_Nonzero	0x3cf
03a9 00cf       |    |		Action	Mark_Auxiliary
03aa e403       |    |		Load	0x2,0x3
03ab 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03ac 4801       |H   |		Short_Literal	0x1
03ad 0263       | c  |		Execute	Discrete,Above_Bound
03ae 701d       |p   |		Jump_Nonzero	0x3cc
03af 00db       |    |		Load_Top	At_Offset_3
03b0 e5ff       |    |		Load	0x2,-0x1
03b1 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03b2 01d5       |    |		Execute	Vector,Field_Reference
03b3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b4 00d9       |    |		Load_Top	At_Offset_1
03b5 e403       |    |		Load	0x2,0x3
03b6 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03b7 01d5       |    |		Execute	Vector,Field_Reference
03b8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b9 027f       |    |		Execute	Discrete,Equal
03ba 680f       |h   |		Jump_Zero	0x3ca
03bb e403       |    |		Load	0x2,0x3
03bc 00d9       |    |		Load_Top	At_Offset_1
03bd e403       |    |		Load	0x2,0x3
03be 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03bf 01d5       |    |		Execute	Vector,Field_Reference
03c0 821b       |    |		Call	0x1,0x1b
03c1 00d1       |    |		Pop_Control	Pop_Count_1
03c2 e402       |    |		Load	0x2,0x2
03c3 e406       |    |		Load	0x2,0x6
03c4 e5ff       |    |		Load	0x2,-0x1
03c5 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03c6 01d5       |    |		Execute	Vector,Field_Reference
03c7 821a       |    |		Call	0x1,0x1a
03c8 00d3       |    |		Pop_Control	Pop_Count_3
03c9 7802       |x   |		Jump	0x3cc
03ca 00c8       |    |		Action	Pop_Auxiliary_Range
03cb 3fe3       |?   |		Loop_Increasing	0x3af
03cc 00ce       |    |		Action	Pop_Auxiliary
03cd 00c8       |    |		Action	Pop_Auxiliary_Range
03ce 3fda       |?   |		Loop_Increasing	0x3a9
03cf 00ce       |    |		Action	Pop_Auxiliary
03d0 00d9       |    |		Load_Top	At_Offset_1
03d1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03d2 0000 0000  |    |		.BLANK	0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e1       |    |		.CONST	0x03e1								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0002       |    |		.CONST	0x0002								; Number of locals
03db			INIT_03d8:
03db 00da       |    |		Load_Top	At_Offset_2
03dc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03dd e20e       |    |		Load	0x1,0xe
03de 1c08       |    |		Execute_Immediate	Run_Utility,0x8
03df 00d8       |    |		Load_Top	At_Offset_0
03e0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03e1			BODY_03d8:
03e1 e5fe       |    |		Load	0x2,-0x2
03e2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03e3 7004       |p   |		Jump_Nonzero	0x3e8
03e4 00db       |    |		Load_Top	At_Offset_3
03e5 00d9       |    |		Load_Top	At_Offset_1
03e6 016d       | m  |		Execute	Variant_Record,Structure_Write
03e7 783a       |x:  |		Jump	0x422
03e8 00db       |    |		Load_Top	At_Offset_3
03e9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03ea 6837       |h7  |		Jump_Zero	0x422
03eb 4801       |H   |		Short_Literal	0x1
03ec e5ff       |    |		Load	0x2,-0x1
03ed 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03ee 01d5       |    |		Execute	Vector,Field_Reference
03ef 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f0 4801       |H   |		Short_Literal	0x1
03f1 e5fe       |    |		Load	0x2,-0x2
03f2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03f3 01d5       |    |		Execute	Vector,Field_Reference
03f4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03f5 027e       | ~  |		Execute	Discrete,Not_Equal
03f6 6802       |h   |		Jump_Zero	0x3f9
03f7 e233       | 3  |		Load	0x1,0x33
03f8 0257       | W  |		Execute	Discrete,Raise
03f9 00db       |    |		Load_Top	At_Offset_3
03fa 00d9       |    |		Load_Top	At_Offset_1
03fb 016d       | m  |		Execute	Variant_Record,Structure_Write
03fc 00cf       |    |		Action	Mark_Auxiliary
03fd e5ff       |    |		Load	0x2,-0x1
03fe 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03ff 4801       |H   |		Short_Literal	0x1
0400 0263       | c  |		Execute	Discrete,Above_Bound
0401 701f       |p   |		Jump_Nonzero	0x421
0402 00cf       |    |		Action	Mark_Auxiliary
0403 e5fe       |    |		Load	0x2,-0x2
0404 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0405 4801       |H   |		Short_Literal	0x1
0406 0263       | c  |		Execute	Discrete,Above_Bound
0407 7016       |p   |		Jump_Nonzero	0x41e
0408 00db       |    |		Load_Top	At_Offset_3
0409 e5ff       |    |		Load	0x2,-0x1
040a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
040b 01d5       |    |		Execute	Vector,Field_Reference
040c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
040d 00d9       |    |		Load_Top	At_Offset_1
040e e5fe       |    |		Load	0x2,-0x2
040f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0410 01d5       |    |		Execute	Vector,Field_Reference
0411 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0412 027f       |    |		Execute	Discrete,Equal
0413 6808       |h   |		Jump_Zero	0x41c
0414 e402       |    |		Load	0x2,0x2
0415 e405       |    |		Load	0x2,0x5
0416 e5ff       |    |		Load	0x2,-0x1
0417 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0418 01d5       |    |		Execute	Vector,Field_Reference
0419 821b       |    |		Call	0x1,0x1b
041a 00d3       |    |		Pop_Control	Pop_Count_3
041b 7802       |x   |		Jump	0x41e
041c 00c8       |    |		Action	Pop_Auxiliary_Range
041d 3fea       |?   |		Loop_Increasing	0x408
041e 00ce       |    |		Action	Pop_Auxiliary
041f 00c8       |    |		Action	Pop_Auxiliary_Range
0420 3fe1       |?   |		Loop_Increasing	0x402
0421 00ce       |    |		Action	Pop_Auxiliary
0422 00d8       |    |		Load_Top	At_Offset_0
0423 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0424 0000 0000  |    |		.BLANK	0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042d       | -  |		.CONST	0x042d								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0002       |    |		.CONST	0x0002								; Number of locals
042b			INIT_0428:
042b 00e1       |    |		Load_Encached	Boolean_Cache
042c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
042d			BODY_0428:
042d 00db       |    |		Load_Top	At_Offset_3
042e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
042f 7003       |p   |		Jump_Nonzero	0x433
0430 4800       |H   |		Short_Literal	0x0
0431 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0432 7822       |x"  |		Jump	0x455
0433 e5fe       |    |		Load	0x2,-0x2
0434 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0435 4801       |H   |		Short_Literal	0x1
0436 e5ff       |    |		Load	0x2,-0x1
0437 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0438 01d5       |    |		Execute	Vector,Field_Reference
0439 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
043a 027e       | ~  |		Execute	Discrete,Not_Equal
043b 6803       |h   |		Jump_Zero	0x43f
043c 4800       |H   |		Short_Literal	0x0
043d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
043e 7816       |x   |		Jump	0x455
043f 00cf       |    |		Action	Mark_Auxiliary
0440 e5ff       |    |		Load	0x2,-0x1
0441 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0442 4801       |H   |		Short_Literal	0x1
0443 0263       | c  |		Execute	Discrete,Above_Bound
0444 700f       |p   |		Jump_Nonzero	0x454
0445 e5fe       |    |		Load	0x2,-0x2
0446 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0447 00d9       |    |		Load_Top	At_Offset_1
0448 e5ff       |    |		Load	0x2,-0x1
0449 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
044a 01d5       |    |		Execute	Vector,Field_Reference
044b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
044c 027f       |    |		Execute	Discrete,Equal
044d 6804       |h   |		Jump_Zero	0x452
044e 4801       |H   |		Short_Literal	0x1
044f a402       |    |		Store_Unchecked	0x2,0x2
0450 00d2       |    |		Pop_Control	Pop_Count_2
0451 7802       |x   |		Jump	0x454
0452 00c8       |    |		Action	Pop_Auxiliary_Range
0453 3ff1       |?   |		Loop_Increasing	0x445
0454 00ce       |    |		Action	Pop_Auxiliary
0455 00d8       |    |		Load_Top	At_Offset_0
0456 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0457 0000       |    |		.XXX[0x1]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045f       | _  |		.CONST	0x045f								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0003       |    |		.CONST	0x0003								; Number of locals
045b			INIT_0458:
045b 00e1       |    |		Load_Encached	Boolean_Cache
045c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
045d 00e1       |    |		Load_Encached	Boolean_Cache
045e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
045f			BODY_0458:
045f e5ff       |    |		Load	0x2,-0x1
0460 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0461 7003       |p   |		Jump_Nonzero	0x465
0462 4801       |H   |		Short_Literal	0x1
0463 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0464 783c       |x<  |		Jump	0x4a1
0465 e5fe       |    |		Load	0x2,-0x2
0466 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0467 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0468 4801       |H   |		Short_Literal	0x1
0469 e5ff       |    |		Load	0x2,-0x1
046a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
046b 01d5       |    |		Execute	Vector,Field_Reference
046c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
046d 4801       |H   |		Short_Literal	0x1
046e e5fe       |    |		Load	0x2,-0x2
046f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0470 01d5       |    |		Execute	Vector,Field_Reference
0471 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0472 027f       |    |		Execute	Discrete,Equal
0473 0279       | y  |		Execute	Discrete,And
0474 682c       |h,  |		Jump_Zero	0x4a1
0475 4801       |H   |		Short_Literal	0x1
0476 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0477 00cf       |    |		Action	Mark_Auxiliary
0478 e5ff       |    |		Load	0x2,-0x1
0479 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
047a 4801       |H   |		Short_Literal	0x1
047b 0263       | c  |		Execute	Discrete,Above_Bound
047c 7023       |p#  |		Jump_Nonzero	0x4a0
047d 00cf       |    |		Action	Mark_Auxiliary
047e e5fe       |    |		Load	0x2,-0x2
047f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0480 4801       |H   |		Short_Literal	0x1
0481 0263       | c  |		Execute	Discrete,Above_Bound
0482 7012       |p   |		Jump_Nonzero	0x495
0483 00db       |    |		Load_Top	At_Offset_3
0484 e5ff       |    |		Load	0x2,-0x1
0485 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0486 01d5       |    |		Execute	Vector,Field_Reference
0487 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0488 00d9       |    |		Load_Top	At_Offset_1
0489 e5fe       |    |		Load	0x2,-0x2
048a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
048b 01d5       |    |		Execute	Vector,Field_Reference
048c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
048d 027f       |    |		Execute	Discrete,Equal
048e 6804       |h   |		Jump_Zero	0x493
048f 4801       |H   |		Short_Literal	0x1
0490 a403       |    |		Store_Unchecked	0x2,0x3
0491 00d2       |    |		Pop_Control	Pop_Count_2
0492 7802       |x   |		Jump	0x495
0493 00c8       |    |		Action	Pop_Auxiliary_Range
0494 3fee       |?   |		Loop_Increasing	0x483
0495 00ce       |    |		Action	Pop_Auxiliary
0496 00db       |    |		Load_Top	At_Offset_3
0497 7004       |p   |		Jump_Nonzero	0x49c
0498 4800       |H   |		Short_Literal	0x0
0499 a402       |    |		Store_Unchecked	0x2,0x2
049a 00d2       |    |		Pop_Control	Pop_Count_2
049b 7804       |x   |		Jump	0x4a0
049c 4800       |H   |		Short_Literal	0x0
049d a403       |    |		Store_Unchecked	0x2,0x3
049e 00c8       |    |		Action	Pop_Auxiliary_Range
049f 3fdd       |?   |		Loop_Increasing	0x47d
04a0 00ce       |    |		Action	Pop_Auxiliary
04a1 00d9       |    |		Load_Top	At_Offset_1
04a2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04a3 0000 0000  |    |		.BLANK	0000[0x5]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 00da       |    |		Load_Top	At_Offset_2
04ac e5fe       |    |		Load	0x2,-0x2
04ad 8227       | '  |		Call	0x1,0x27
04ae 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04af 0000       |    |		.XXX[0x1]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b7       |    |		.CONST	0x04b7								; Address of begin
04b1 0004       |    |		.CONST	0x0004								; Address of exception handler
04b2 0002       |    |		.CONST	0x0002								; Number of locals
04b3			INIT_04b0:
04b3 e20e       |    |		Load	0x1,0xe
04b4 02ff       |    |		Declare_Variable	Variant_Record
04b5 00d8       |    |		Load_Top	At_Offset_0
04b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04b7			BODY_04b0:
04b7 00d8       |    |		Load_Top	At_Offset_0
04b8 e5ff       |    |		Load	0x2,-0x1
04b9 821a       |    |		Call	0x1,0x1a
04ba 00d1       |    |		Pop_Control	Pop_Count_1
04bb 00d8       |    |		Load_Top	At_Offset_0
04bc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04bd 0000 0000  |    |		.XXX[0x3]
04bf 0000       |    |
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3       |    |		.CONST	0x04c3								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0001       |    |		.CONST	0x0001								; Number of locals
04c3			BODY_04c0:
04c3			INIT_04c0:
04c3 00db       |    |		Load_Top	At_Offset_3
04c4 00db       |    |		Load_Top	At_Offset_3
04c5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04c6 027d       | }  |		Execute	Discrete,Greater
04c7 6803       |h   |		Jump_Zero	0x4cb
04c8 e003       |    |		Load	0x0,0x3
04c9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04cb 00db       |    |		Load_Top	At_Offset_3
04cc 00db       |    |		Load_Top	At_Offset_3
04cd 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
04ce 01d5       |    |		Execute	Vector,Field_Reference
04cf 0320       |    |		Declare_Variable	Record,Duplicate
04d0 00cd       |    |		Action	Spare6_Action
04d1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04d2 0000 0000  |    |		.BLANK	0000[0x6]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04e1       |    |		.CONST	0x04e1								; Address of begin
04d9 0004       |    |		.CONST	0x0004								; Address of exception handler
04da 0004       |    |		.CONST	0x0004								; Number of locals
04db			INIT_04d8:
04db e20e       |    |		Load	0x1,0xe
04dc 02ff       |    |		Declare_Variable	Variant_Record
04dd 00d8       |    |		Load_Top	At_Offset_0
04de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04df 00e3       |    |		Load_Encached	Natural_Cache
04e0 00e3       |    |		Load_Encached	Natural_Cache
04e1			BODY_04d8:
04e1 e5fd       |    |		Load	0x2,-0x3
04e2 e5ff       |    |		Load	0x2,-0x1
04e3 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04e4 027d       | }  |		Execute	Discrete,Greater
04e5 6804       |h   |		Jump_Zero	0x4ea
04e6 e5ff       |    |		Load	0x2,-0x1
04e7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
04e8 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
04e9 7802       |x   |		Jump	0x4ec
04ea e5fd       |    |		Load	0x2,-0x3
04eb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
04ec e5fe       |    |		Load	0x2,-0x2
04ed 0d01       |    |		Execute_Immediate	Less,0x1
04ee 6803       |h   |		Jump_Zero	0x4f2
04ef 4801       |H   |		Short_Literal	0x1
04f0 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04f1 7802       |x   |		Jump	0x4f4
04f2 e5fe       |    |		Load	0x2,-0x2
04f3 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
04f4 00cf       |    |		Action	Mark_Auxiliary
04f5 00d9       |    |		Load_Top	At_Offset_1
04f6 00db       |    |		Load_Top	At_Offset_3
04f7 0263       | c  |		Execute	Discrete,Above_Bound
04f8 700d       |p   |		Jump_Nonzero	0x506
04f9 e402       |    |		Load	0x2,0x2
04fa 00d9       |    |		Load_Top	At_Offset_1
04fb 00d8       |    |		Load_Top	At_Offset_0
04fc 00e4       |    |		Load_Encached	Positive_Cache
04fd 0260       | `  |		Execute	Discrete,In_Type
04fe 7001       |p   |		Jump_Nonzero	0x500
04ff 0801       |    |		Execute_Immediate	Raise,0x1
0500 e5ff       |    |		Load	0x2,-0x1
0501 822d       | -  |		Call	0x1,0x2d
0502 821a       |    |		Call	0x1,0x1a
0503 00d1       |    |		Pop_Control	Pop_Count_1
0504 00c8       |    |		Action	Pop_Auxiliary_Range
0505 3ff3       |?   |		Loop_Increasing	0x4f9
0506 00ce       |    |		Action	Pop_Auxiliary
0507 00da       |    |		Load_Top	At_Offset_2
0508 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0509 0000 0000  |    |		.BLANK	0000[0x7]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 4801       |H   |		Short_Literal	0x1
0514 00db       |    |		Load_Top	At_Offset_3
0515 822d       | -  |		Call	0x1,0x2d
0516 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0517 0000       |    |		.XXX[0x1]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051f       |    |		.CONST	0x051f								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0002       |    |		.CONST	0x0002								; Number of locals
051b			INIT_0518:
051b e20e       |    |		Load	0x1,0xe
051c 02ff       |    |		Declare_Variable	Variant_Record
051d 00d8       |    |		Load_Top	At_Offset_0
051e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
051f			BODY_0518:
051f 00db       |    |		Load_Top	At_Offset_3
0520 00d9       |    |		Load_Top	At_Offset_1
0521 016d       | m  |		Execute	Variant_Record,Structure_Write
0522 00d8       |    |		Load_Top	At_Offset_0
0523 4801       |H   |		Short_Literal	0x1
0524 e5ff       |    |		Load	0x2,-0x1
0525 822d       | -  |		Call	0x1,0x2d
0526 821b       |    |		Call	0x1,0x1b
0527 00d1       |    |		Pop_Control	Pop_Count_1
0528 00d8       |    |		Load_Top	At_Offset_0
0529 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
052a 0000 0000  |    |		.BLANK	0000[0x6]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 00cf       |    |		Action	Mark_Auxiliary
0534 e5fd       |    |		Load	0x2,-0x3
0535 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0536 4801       |H   |		Short_Literal	0x1
0537 0263       | c  |		Execute	Discrete,Above_Bound
0538 7006       |p   |		Jump_Nonzero	0x53f
0539 00d8       |    |		Load_Top	At_Offset_0
053a e5fd       |    |		Load	0x2,-0x3
053b 822d       | -  |		Call	0x1,0x2d
053c 85fe       |    |		Call	0x2,-0x2
053d 00c8       |    |		Action	Pop_Auxiliary_Range
053e 3ffa       |?   |		Loop_Increasing	0x539
053f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 054c       | L  |		.CONST	0x054c								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0003       |    |		.CONST	0x0003								; Number of locals
0543			INIT_0540:
0543 4800       |H   |		Short_Literal	0x0
0544 e5fd       |    |		Load	0x2,-0x3
0545 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0546 01dc       |    |		Execute	Vector,Last
0547 00e2       |    |		Load_Encached	Integer_Cache
0548 03f8       |    |		Declare_Type	Discrete,Constrained
0549 e003       |    |		Load	0x0,0x3
054a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
054b 0322       | "  |		Declare_Variable	Record
054c			BODY_0540:
054c 00cf       |    |		Action	Mark_Auxiliary
054d e5fd       |    |		Load	0x2,-0x3
054e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
054f 0aff       |    |		Execute_Immediate	Plus,-0x1
0550 4802       |H   |		Short_Literal	0x2
0551 0263       | c  |		Execute	Discrete,Above_Bound
0552 702c       |p,  |		Jump_Nonzero	0x57f
0553 00d8       |    |		Load_Top	At_Offset_0
0554 e5fd       |    |		Load	0x2,-0x3
0555 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0556 01d5       |    |		Execute	Vector,Field_Reference
0557 e403       |    |		Load	0x2,0x3
0558 017d       | }  |		Execute	Record,Structure_Write
0559 00d8       |    |		Load_Top	At_Offset_0
055a 0aff       |    |		Execute_Immediate	Plus,-0x1
055b c402       |    |		Store	0x2,0x2
055c 00cf       |    |		Action	Mark_Auxiliary
055d 780f       |x   |		Jump	0x56d
055e e402       |    |		Load	0x2,0x2
055f e5fd       |    |		Load	0x2,-0x3
0560 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0561 01d5       |    |		Execute	Vector,Field_Reference
0562 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0563 e402       |    |		Load	0x2,0x2
0564 0a01       |    |		Execute_Immediate	Plus,0x1
0565 e5fd       |    |		Load	0x2,-0x3
0566 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0567 01d5       |    |		Execute	Vector,Field_Reference
0568 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0569 e402       |    |		Load	0x2,0x2
056a 0aff       |    |		Execute_Immediate	Plus,-0x1
056b c402       |    |		Store	0x2,0x2
056c 00c9       |    |		Action	Pop_Auxiliary_Loop
056d e402       |    |		Load	0x2,0x2
056e 6807       |h   |		Jump_Zero	0x576
056f e402       |    |		Load	0x2,0x2
0570 e5fd       |    |		Load	0x2,-0x3
0571 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0572 01d5       |    |		Execute	Vector,Field_Reference
0573 e403       |    |		Load	0x2,0x3
0574 85fe       |    |		Call	0x2,-0x2
0575 77e8       |w   |		Jump_Nonzero	0x55e
0576 00ce       |    |		Action	Pop_Auxiliary
0577 00db       |    |		Load_Top	At_Offset_3
0578 e402       |    |		Load	0x2,0x2
0579 0a01       |    |		Execute_Immediate	Plus,0x1
057a e5fd       |    |		Load	0x2,-0x3
057b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
057c 01d6       |    |		Execute	Vector,Field_Write
057d 00c8       |    |		Action	Pop_Auxiliary_Range
057e 3fd4       |?   |		Loop_Increasing	0x553
057f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 00da       |    |		Load_Top	At_Offset_2
0584 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0585 00db       |    |		Load_Top	At_Offset_3
0586 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0587 027f       |    |		Execute	Discrete,Equal
0588 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0589 0000 0000  |    |		.BLANK	0000[0x7]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 00da       |    |		Load_Top	At_Offset_2
0594 e5fe       |    |		Load	0x2,-0x2
0595 027d       | }  |		Execute	Discrete,Greater
0596 6802       |h   |		Jump_Zero	0x599
0597 00da       |    |		Load_Top	At_Offset_2
0598 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0599 00db       |    |		Load_Top	At_Offset_3
059a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
059b 0000 0000  |    |		.BLANK	0000[0x5]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05ad       |    |		.CONST	0x05ad								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0002       |    |		.CONST	0x0002								; Number of locals
05a3			INIT_05a0:
05a3 e5fe       |    |		Load	0x2,-0x2
05a4 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05a5 e5fe       |    |		Load	0x2,-0x2
05a6 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05a7 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
05a8 0273       | s  |		Execute	Discrete,Plus
05a9 e20e       |    |		Load	0x1,0xe
05aa 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05ab 00d8       |    |		Load_Top	At_Offset_0
05ac 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05ad			BODY_05a0:
05ad 4801       |H   |		Short_Literal	0x1
05ae e5fe       |    |		Load	0x2,-0x2
05af 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05b0 e5fe       |    |		Load	0x2,-0x2
05b1 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
05b2 01cf       |    |		Execute	Vector,Slice_Read
05b3 4801       |H   |		Short_Literal	0x1
05b4 e5fe       |    |		Load	0x2,-0x2
05b5 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05b6 00db       |    |		Load_Top	At_Offset_3
05b7 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
05b8 01ce       |    |		Execute	Vector,Slice_Write
05b9 e5fe       |    |		Load	0x2,-0x2
05ba 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
05bb 00d9       |    |		Load_Top	At_Offset_1
05bc 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05bd e5fe       |    |		Load	0x2,-0x2
05be 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
05bf 00d9       |    |		Load_Top	At_Offset_1
05c0 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
05c1 00d8       |    |		Load_Top	At_Offset_0
05c2 e5fe       |    |		Load	0x2,-0x2
05c3 016d       | m  |		Execute	Variant_Record,Structure_Write
05c4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05c5 0000 0000  |    |		.XXX[0x3]
05c7 0000       |    |
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb       |    |		.CONST	0x05cb								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0001       |    |		.CONST	0x0001								; Number of locals
05cb			BODY_05c8:
05cb			BODY_05c8:
05cb			INIT_05c8:
05cb			INIT_05c8:
05cb 4608       |F   |		Jump_Case	0x9
05cc 7808       |x   |		Jump	0x5d5								; case 0x0
05cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05ce 782f       |x/  |		Jump	0x5fe								; case 0x2
05cf 782e       |x.  |		Jump	0x5fe								; case 0x3
05d0 7817       |x   |		Jump	0x5e8								; case 0x4
05d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
05d2 782b       |x+  |		Jump	0x5fe								; case 0x6
05d3 7817       |x   |		Jump	0x5eb								; case 0x7
05d4 781f       |x   |		Jump	0x5f4								; case 0x8
05d5 00da       |    |		Load_Top	At_Offset_2
05d6 016c       | l  |		Execute	Variant_Record,Is_Constrained
05d7 7009       |p   |		Jump_Nonzero	0x5e1
05d8 00cf       |    |		Action	Mark_Auxiliary
05d9 4814       |H   |		Short_Literal	0x14
05da e5ff       |    |		Load	0x2,-0x1
05db 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05dc 00d8       |    |		Load_Top	At_Offset_0
05dd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05de c5ff       |    |		Store	0x2,-0x1
05df 00ce       |    |		Action	Pop_Auxiliary
05e0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05e1 4800       |H   |		Short_Literal	0x0
05e2 00db       |    |		Load_Top	At_Offset_3
05e3 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
05e4 4801       |H   |		Short_Literal	0x1
05e5 00db       |    |		Load_Top	At_Offset_3
05e6 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
05e7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05e8 e235       | 5  |		Load	0x1,0x35
05e9 0340       | @  |		Complete_Type	Array,By_Component_Completion
05ea 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05eb 00db       |    |		Load_Top	At_Offset_3
05ec 4801       |H   |		Short_Literal	0x1
05ed e5fe       |    |		Load	0x2,-0x2
05ee e235       | 5  |		Load	0x1,0x35
05ef 035b       | [  |		Declare_Type	Array,Constrained
05f0 4801       |H   |		Short_Literal	0x1
05f1 e5ff       |    |		Load	0x2,-0x1
05f2 031b       |    |		Declare_Type	Variant_Record,Constrained
05f3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05f4 00db       |    |		Load_Top	At_Offset_3
05f5 00db       |    |		Load_Top	At_Offset_3
05f6 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
05f7 4801       |H   |		Short_Literal	0x1
05f8 e5fe       |    |		Load	0x2,-0x2
05f9 e235       | 5  |		Load	0x1,0x35
05fa 0334       | 4  |		Declare_Variable	Array,With_Constraint
05fb 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
05fc 016a       | j  |		QQ_execute	Variant_Record,XXX
05fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
05fe 0869       | i  |		Execute_Immediate	Raise,0x69
05ff 0000       |    |		.XXX[0x1]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 061c       |    |		.CONST	0x061c								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0012       |    |		.CONST	0x0012								; Number of locals
0603			INIT_0600:
0603 e001       |    |		Load	0x0,0x1
0604 0129       | )  |		Execute	Any,Make_Visible
0605 03f3       |    |		Declare_Variable	Discrete,Incomplete,Visible,Unsigned
0606 029a 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call,Visible,Unelaborated
0608 029a 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call,Visible,Unelaborated
060a 029a 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call,Visible,Unelaborated
060c 029a 0673  |   s|		Declare_Subprogram	INIT_0670,For_Outer_Call,Visible,Unelaborated
060e 4800       |H   |		Short_Literal	0x0
060f 601c       |`   |		Indirect_Literal	Discrete,0x62c,{0x00000000, 0x7fffffff}
0610 00e5       |    |		Load_Encached	Long_Integer_Cache
0611 e20e       |    |		Load	0x1,0xe
0612 03ed       |    |		Complete_Type	Discrete,By_Constraining
0613 00bf       |    |		Action	Accept_Activation
0614 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0615 00c7       |    |		Action	Elaborate_Subprogram
0616 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0617 00c7       |    |		Action	Elaborate_Subprogram
0618 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0619 00c7       |    |		Action	Elaborate_Subprogram
061a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
061b 00c7       |    |		Action	Elaborate_Subprogram
061c			BODY_0600:
061c 00bc       |    |		Action	Signal_Activated
061d 00bb       |    |		Action	Signal_Completion
061e 0000 0000  |    |		.XXX[0x2]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 00da       |    |		Load_Top	At_Offset_2
0624 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0625 7002       |p   |		Jump_Nonzero	0x628
0626 4800       |H   |		Short_Literal	0x0
0627 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0628 4801       |H   |		Short_Literal	0x1
0629 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062a 0000 0000  |    |		.XXX[0x2]
062c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0634       | 4  |		.CONST	0x0634								; Address of begin
0631 0644       | D  |		.CONST	0x0644								; Address of exception handler
0632 0002       |    |		.CONST	0x0002								; Number of locals
0633			INIT_0630:
0633 00e2       |    |		Load_Encached	Integer_Cache
0634			BODY_0630:
0634 e5fe       |    |		Load	0x2,-0x2
0635 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0636 00d8       |    |		Load_Top	At_Offset_0
0637 e5ff       |    |		Load	0x2,-0x1
0638 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0639 027d       | }  |		Execute	Discrete,Greater
063a 6802       |h   |		Jump_Zero	0x63d
063b e20d       |    |		Load	0x1,0xd
063c 0257       | W  |		Execute	Discrete,Raise
063d 00d8       |    |		Load_Top	At_Offset_0
063e e5ff       |    |		Load	0x2,-0x1
063f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0640 01d5       |    |		Execute	Vector,Field_Reference
0641 0320       |    |		Declare_Variable	Record,Duplicate
0642 00cd       |    |		Action	Spare6_Action
0643 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0644			TRAP_0630:
0644 010e       |    |		Execute	Exception,Is_Constraint_Error
0645 6802       |h   |		Jump_Zero	0x648
0646 e20d       |    |		Load	0x1,0xd
0647 0257       | W  |		Execute	Discrete,Raise
0648 0100       |    |		Execute	Exception,Raise
0649 0000 0000  |    |		.BLANK	0000[0x7]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0654       | T  |		.CONST	0x0654								; Address of begin
0651 0665       | e  |		.CONST	0x0665								; Address of exception handler
0652 0002       |    |		.CONST	0x0002								; Number of locals
0653			INIT_0650:
0653 00e2       |    |		Load_Encached	Integer_Cache
0654			BODY_0650:
0654 e5fe       |    |		Load	0x2,-0x2
0655 0a01       |    |		Execute_Immediate	Plus,0x1
0656 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0657 00d8       |    |		Load_Top	At_Offset_0
0658 e5ff       |    |		Load	0x2,-0x1
0659 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
065a 027d       | }  |		Execute	Discrete,Greater
065b 6802       |h   |		Jump_Zero	0x65e
065c 4800       |H   |		Short_Literal	0x0
065d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
065e 00d8       |    |		Load_Top	At_Offset_0
065f 00d8       |    |		Load_Top	At_Offset_0
0660 e20e       |    |		Load	0x1,0xe
0661 0260       | `  |		Execute	Discrete,In_Type
0662 7001       |p   |		Jump_Nonzero	0x664
0663 0801       |    |		Execute_Immediate	Raise,0x1
0664 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0665			TRAP_0650:
0665 010e       |    |		Execute	Exception,Is_Constraint_Error
0666 6802       |h   |		Jump_Zero	0x669
0667 e20d       |    |		Load	0x1,0xd
0668 0257       | W  |		Execute	Discrete,Raise
0669 0100       |    |		Execute	Exception,Raise
066a 0000 0000  |    |		.BLANK	0000[0x6]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673       | s  |		.CONST	0x0673								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0001       |    |		.CONST	0x0001								; Number of locals
0673			BODY_0670:
0673			INIT_0670:
0673 00db       |    |		Load_Top	At_Offset_3
0674 0f00       |    |		Execute_Immediate	Equal,0x0
0675 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0676 0000 0000  |    |		.XXX[0x2]
0678 ; --------------------------------------------------------------------------------------
0678 ; Debug Table
0678 ; --------------------------------------------------------------------------------------
0678 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x63f7,0x0000,0x0001,0x002a
067e 000b 0726  |   &|		.DBG4T	0x000b,0x0726,0x0000,0x8000
0682 0080 077c  |   ||		.DBG4T	0x0080,0x077c,0x0000,0x0000
0686 00cb 079f  |    |		.DBG4T	0x00cb,0x079f,0x0002,0x0000
068a 0103 07a7  |    |		.DBG4T	0x0103,0x07a7,0x2802,0x0002
068e 0133 07b1  | 3  |		.DBG4T	0x0133,0x07b1,0x2802,0x0002
0692 0153 07b8  | S  |		.DBG4T	0x0153,0x07b8,0x2802,0x0002
0696 0173 07bf  | s  |		.DBG4T	0x0173,0x07bf,0x2802,0x0002
069a 0193 07c6  |    |		.DBG4T	0x0193,0x07c6,0x2802,0x0002
069e 01c3 07d0  |    |		.DBG4T	0x01c3,0x07d0,0x0002,0x0000
06a2 01cb 07d3  |    |		.DBG4T	0x01cb,0x07d3,0x0002,0x0000
06a6 01d3 07d6  |    |		.DBG4T	0x01d3,0x07d6,0x0002,0x0000
06aa 01db 07d9  |    |		.DBG4T	0x01db,0x07d9,0x0002,0x0000
06ae 01e3 07dc  |    |		.DBG4T	0x01e3,0x07dc,0x0002,0x0000
06b2 01eb 07df  |    |		.DBG4T	0x01eb,0x07df,0x0001,0x0000
06b6 022b 07ec  | +  |		.DBG4T	0x022b,0x07ec,0x0001,0x0000
06ba 026b 07f5  | k  |		.DBG4T	0x026b,0x07f5,0x0001,0x0000
06be 029b 07fc  |    |		.DBG4T	0x029b,0x07fc,0x0001,0x0000
06c2 02cb 0803  |    |		.DBG4T	0x02cb,0x0803,0x0001,0x0000
06c6 02e3 0809  |    |		.DBG4T	0x02e3,0x0809,0x0001,0x0000
06ca 02f3 080d  |    |		.DBG4T	0x02f3,0x080d,0x0002,0x0000
06ce 037b 0821  | { !|		.DBG4T	0x037b,0x0821,0x0002,0x0000
06d2 03db 0830  |   0|		.DBG4T	0x03db,0x0830,0x0002,0x0000
06d6 042b 083f  | + ?|		.DBG4T	0x042b,0x083f,0x0002,0x0000
06da 045b 084b  | [ K|		.DBG4T	0x045b,0x084b,0x0002,0x0000
06de 04ab 085d  |   ]|		.DBG4T	0x04ab,0x085d,0x0002,0x0000
06e2 04b3 0860  |   `|		.DBG4T	0x04b3,0x0860,0x0002,0x0000
06e6 04c3 0865  |   e|		.DBG4T	0x04c3,0x0865,0x0002,0x0000
06ea 04db 086a  |   j|		.DBG4T	0x04db,0x086a,0x0002,0x0000
06ee 0513 0878  |   x|		.DBG4T	0x0513,0x0878,0x0002,0x0000
06f2 051b 087b  |   {|		.DBG4T	0x051b,0x087b,0x0002,0x0000
06f6 0533 0881  | 3  |		.DBG4T	0x0533,0x0881,0x2801,0x0002
06fa 0543 0885  | C  |		.DBG4T	0x0543,0x0885,0x2801,0x4002
06fe 0583 0897  |    |		.DBG4T	0x0583,0x0897,0x0002,0x0000
0702 0593 089a  |    |		.DBG4T	0x0593,0x089a,0x0002,0x0000
0706 05a3 089f  |    |		.DBG4T	0x05a3,0x089f,0x0004,0x0000
070a 05cb 0000  |    |		.DBG4T	0x05cb,0x0000,0x0005,0x0000
070e 0603 08a6  |    |		.DBG4T	0x0603,0x08a6,0x0000,0x0000
0712 0614 08af  |    |		.DBG4T	0x0614,0x08af,0x0000,0x0000
0716 0623 08b5  | #  |		.DBG4T	0x0623,0x08b5,0x0002,0x0000
071a 0633 08ba  | 3  |		.DBG4T	0x0633,0x08ba,0x0002,0x0000
071e 0653 08c2  | S  |		.DBG4T	0x0653,0x08c2,0x0002,0x0000
0722 0673 08ca  | s  |		.DBG4T	0x0673,0x08ca,0x0002,0x0000
0726 ; --------------------------------------------------------------------------------------
0726 ; Debug chain
0726 ; --------------------------------------------------------------------------------------
0726 002a 0000  | *  |		.DBGLEN	0x002a,0x0000
0728 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x006e,0x0075
0752 0002 0003  |    |		.XXX[0x2a]
0754 0004 0005  |    |
0756 0006 0007  |    |
0758 0008 0009  |    |
075a 000a 000b  |    |
075c 000c 000d  |    |
075e 000e 000f  |    |
0760 0010 0011  |    |
0762 0012 0013  |    |
0764 0014 0015  |    |
0766 0016 0017  |    |
0768 0018 0019  |    |
076a 001a 001b  |    |
076c 001c 001d  |    |
076e 001e 001f  |    |
0770 0020 0021  |   !|
0772 0022 0023  | " #|
0774 0024 0025  | $ %|
0776 0026 0027  | & '|
0778 0028 0029  | ( )|
077a 002a 002b  | * +|
077c ; --------------------------------------------------------------------------------------
077c ; Debug chain
077c ; --------------------------------------------------------------------------------------
077c 0021 0000  | !  |		.DBGLEN	0x0021,0x0000
077e 0082 0084  |    |		.DBGLNO	0x0082,0x0084,0x0086,0x0088,0x008a,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,0x00c2
079f ; --------------------------------------------------------------------------------------
079f ; Debug chain
079f ; --------------------------------------------------------------------------------------
079f 0002 0004  |    |		.DBGLEN	0x0002,0x0004
07a1 00cb 00cf  |    |		.DBGLNO	0x00cb,0x00cf,0x00d2,0x00e7,0x00f2,0x00f9
07a7 ; --------------------------------------------------------------------------------------
07a7 ; Debug chain
07a7 ; --------------------------------------------------------------------------------------
07a7 0001 0007  |    |		.DBGLEN	0x0001,0x0007
07a9 0103 0109  |    |		.DBGLNO	0x0103,0x0109,0x010d,0x0112,0x0118,0x011f,0x0126,0x012b
07b1 ; --------------------------------------------------------------------------------------
07b1 ; Debug chain
07b1 ; --------------------------------------------------------------------------------------
07b1 0000 0005  |    |		.DBGLEN	0x0000,0x0005
07b3 0133 0137  | 3 7|		.DBGLNO	0x0133,0x0137,0x013c,0x0142,0x014c
07b8 ; --------------------------------------------------------------------------------------
07b8 ; Debug chain
07b8 ; --------------------------------------------------------------------------------------
07b8 0000 0005  |    |		.DBGLEN	0x0000,0x0005
07ba 0153 0157  | S W|		.DBGLNO	0x0153,0x0157,0x015c,0x0162,0x0167
07bf ; --------------------------------------------------------------------------------------
07bf ; Debug chain
07bf ; --------------------------------------------------------------------------------------
07bf 0000 0005  |    |		.DBGLEN	0x0000,0x0005
07c1 0173 0177  | s w|		.DBGLNO	0x0173,0x0177,0x017c,0x0182,0x0187
07c6 ; --------------------------------------------------------------------------------------
07c6 ; Debug chain
07c6 ; --------------------------------------------------------------------------------------
07c6 0001 0007  |    |		.DBGLEN	0x0001,0x0007
07c8 0193 0196  |    |		.DBGLNO	0x0193,0x0196,0x0199,0x019c,0x01a3,0x01a8,0x01af,0x01b8
07d0 ; --------------------------------------------------------------------------------------
07d0 ; Debug chain
07d0 ; --------------------------------------------------------------------------------------
07d0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07d2 01c3       |    |		.DBGLNO	0x01c3
07d3 ; --------------------------------------------------------------------------------------
07d3 ; Debug chain
07d3 ; --------------------------------------------------------------------------------------
07d3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07d5 01cb       |    |		.DBGLNO	0x01cb
07d6 ; --------------------------------------------------------------------------------------
07d6 ; Debug chain
07d6 ; --------------------------------------------------------------------------------------
07d6 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07d8 01d3       |    |		.DBGLNO	0x01d3
07d9 ; --------------------------------------------------------------------------------------
07d9 ; Debug chain
07d9 ; --------------------------------------------------------------------------------------
07d9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07db 01db       |    |		.DBGLNO	0x01db
07dc ; --------------------------------------------------------------------------------------
07dc ; Debug chain
07dc ; --------------------------------------------------------------------------------------
07dc 0000 0001  |    |		.DBGLEN	0x0000,0x0001
07de 01e3       |    |		.DBGLNO	0x01e3
07df ; --------------------------------------------------------------------------------------
07df ; Debug chain
07df ; --------------------------------------------------------------------------------------
07df 0001 000a  |    |		.DBGLEN	0x0001,0x000a
07e1 01eb 01ef  |    |		.DBGLNO	0x01eb,0x01ef,0x01fb,0x01fd,0x0200,0x0202,0x0207,0x0210,0x0215,0x0217,0x021c
07ec ; --------------------------------------------------------------------------------------
07ec ; Debug chain
07ec ; --------------------------------------------------------------------------------------
07ec 0000 0007  |    |		.DBGLEN	0x0000,0x0007
07ee 022b 0238  | + 8|		.DBGLNO	0x022b,0x0238,0x023d,0x0247,0x024d,0x0259,0x025e
07f5 ; --------------------------------------------------------------------------------------
07f5 ; Debug chain
07f5 ; --------------------------------------------------------------------------------------
07f5 0000 0005  |    |		.DBGLEN	0x0000,0x0005
07f7 026b 0278  | k x|		.DBGLNO	0x026b,0x0278,0x027d,0x0286,0x028d
07fc ; --------------------------------------------------------------------------------------
07fc ; Debug chain
07fc ; --------------------------------------------------------------------------------------
07fc 0000 0005  |    |		.DBGLEN	0x0000,0x0005
07fe 029b 02a8  |    |		.DBGLNO	0x029b,0x02a8,0x02ad,0x02b6,0x02bc
0803 ; --------------------------------------------------------------------------------------
0803 ; Debug chain
0803 ; --------------------------------------------------------------------------------------
0803 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0805 02cb 02cc  |    |		.DBGLNO	0x02cb,0x02cc,0x02d0,0x02d5
0809 ; --------------------------------------------------------------------------------------
0809 ; Debug chain
0809 ; --------------------------------------------------------------------------------------
0809 0000 0002  |    |		.DBGLEN	0x0000,0x0002
080b 02e3 02e6  |    |		.DBGLNO	0x02e3,0x02e6
080d ; --------------------------------------------------------------------------------------
080d ; Debug chain
080d ; --------------------------------------------------------------------------------------
080d 0002 0010  |    |		.DBGLEN	0x0002,0x0010
080f 02f3 02fc  |    |		.DBGLNO	0x02f3,0x02fc,0x0302,0x0305,0x0309,0x030c,0x0310,0x031c,0x031e,0x0322,0x0328,0x032d,0x0339,0x0340,0x0344,0x034e,0x0355,0x0370
0821 ; --------------------------------------------------------------------------------------
0821 ; Debug chain
0821 ; --------------------------------------------------------------------------------------
0821 0002 000b  |    |		.DBGLEN	0x0002,0x000b
0823 037b 0384  | {  |		.DBGLNO	0x037b,0x0384,0x038a,0x0392,0x039e,0x03a0,0x03a4,0x03aa,0x03af,0x03bb,0x03c2,0x03c9,0x03d0
0830 ; --------------------------------------------------------------------------------------
0830 ; Debug chain
0830 ; --------------------------------------------------------------------------------------
0830 0001 000c  |    |		.DBGLEN	0x0001,0x000c
0832 03db 03e1  |    |		.DBGLNO	0x03db,0x03e1,0x03e4,0x03e8,0x03eb,0x03f7,0x03f9,0x03fd,0x0403,0x0408,0x0414,0x041b,0x0422
083f ; --------------------------------------------------------------------------------------
083f ; Debug chain
083f ; --------------------------------------------------------------------------------------
083f 0001 0009  |    |		.DBGLEN	0x0001,0x0009
0841 042b 042d  | + -|		.DBGLNO	0x042b,0x042d,0x0430,0x0433,0x043c,0x0440,0x0445,0x044e,0x0450,0x0455
084b ; --------------------------------------------------------------------------------------
084b ; Debug chain
084b ; --------------------------------------------------------------------------------------
084b 0002 000e  |    |		.DBGLEN	0x0002,0x000e
084d 045b 045d  | [ ]|		.DBGLNO	0x045b,0x045d,0x045f,0x0462,0x0465,0x0475,0x0478,0x047e,0x0483,0x048f,0x0491,0x0496,0x0498,0x049a,0x049c,0x04a1
085d ; --------------------------------------------------------------------------------------
085d ; Debug chain
085d ; --------------------------------------------------------------------------------------
085d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
085f 04ab       |    |		.DBGLNO	0x04ab
0860 ; --------------------------------------------------------------------------------------
0860 ; Debug chain
0860 ; --------------------------------------------------------------------------------------
0860 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0862 04b3 04b7  |    |		.DBGLNO	0x04b3,0x04b7,0x04bb
0865 ; --------------------------------------------------------------------------------------
0865 ; Debug chain
0865 ; --------------------------------------------------------------------------------------
0865 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0867 04c3 04c8  |    |		.DBGLNO	0x04c3,0x04c8,0x04cb
086a ; --------------------------------------------------------------------------------------
086a ; Debug chain
086a ; --------------------------------------------------------------------------------------
086a 0003 0009  |    |		.DBGLEN	0x0003,0x0009
086c 04db 04df  |    |		.DBGLNO	0x04db,0x04df,0x04e0,0x04e1,0x04e6,0x04ea,0x04ec,0x04ef,0x04f2,0x04f5,0x04f9,0x0507
0878 ; --------------------------------------------------------------------------------------
0878 ; Debug chain
0878 ; --------------------------------------------------------------------------------------
0878 0000 0001  |    |		.DBGLEN	0x0000,0x0001
087a 0513       |    |		.DBGLNO	0x0513
087b ; --------------------------------------------------------------------------------------
087b ; Debug chain
087b ; --------------------------------------------------------------------------------------
087b 0001 0003  |    |		.DBGLEN	0x0001,0x0003
087d 051b 051f  |    |		.DBGLNO	0x051b,0x051f,0x0522,0x0528
0881 ; --------------------------------------------------------------------------------------
0881 ; Debug chain
0881 ; --------------------------------------------------------------------------------------
0881 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0883 0534 0539  | 4 9|		.DBGLNO	0x0534,0x0539
0885 ; --------------------------------------------------------------------------------------
0885 ; Debug chain
0885 ; --------------------------------------------------------------------------------------
0885 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0887 0543 0549  | C I|		.DBGLNO	0x0543,0x0549,0x054d,0x0553,0x0559,0x055e,0x0569,0x056d,0x0577
0890 0001 0002  |    |		.XXX[0x7]
0892 0003 0005  |    |
0894 0006 0004  |    |
0896 0007       |    |
0897 ; --------------------------------------------------------------------------------------
0897 ; Debug chain
0897 ; --------------------------------------------------------------------------------------
0897 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0899 0583       |    |		.DBGLNO	0x0583
089a ; --------------------------------------------------------------------------------------
089a ; Debug chain
089a ; --------------------------------------------------------------------------------------
089a 0000 0003  |    |		.DBGLEN	0x0000,0x0003
089c 0593 0597  |    |		.DBGLNO	0x0593,0x0597,0x0599
089f ; --------------------------------------------------------------------------------------
089f ; Debug chain
089f ; --------------------------------------------------------------------------------------
089f 0001 0004  |    |		.DBGLEN	0x0001,0x0004
08a1 05a3 05ad  |    |		.DBGLNO	0x05a3,0x05ad,0x05b9,0x05bd,0x05c1
08a6 ; --------------------------------------------------------------------------------------
08a6 ; Debug chain
08a6 ; --------------------------------------------------------------------------------------
08a6 0007 0000  |    |		.DBGLEN	0x0007,0x0000
08a8 0603 0605  |    |		.DBGLNO	0x0603,0x0605,0x0606,0x0608,0x060a,0x060c,0x060e
08af ; --------------------------------------------------------------------------------------
08af ; Debug chain
08af ; --------------------------------------------------------------------------------------
08af 0004 0000  |    |		.DBGLEN	0x0004,0x0000
08b1 0614 0616  |    |		.DBGLNO	0x0614,0x0616,0x0618,0x061a
08b5 ; --------------------------------------------------------------------------------------
08b5 ; Debug chain
08b5 ; --------------------------------------------------------------------------------------
08b5 0000 0003  |    |		.DBGLEN	0x0000,0x0003
08b7 0623 0626  | # &|		.DBGLNO	0x0623,0x0626,0x0628
08ba ; --------------------------------------------------------------------------------------
08ba ; Debug chain
08ba ; --------------------------------------------------------------------------------------
08ba 0001 0005  |    |		.DBGLEN	0x0001,0x0005
08bc 0633 0634  | 3 4|		.DBGLNO	0x0633,0x0634,0x0636,0x063b,0x063d,0x0646
08c2 ; --------------------------------------------------------------------------------------
08c2 ; Debug chain
08c2 ; --------------------------------------------------------------------------------------
08c2 0001 0005  |    |		.DBGLEN	0x0001,0x0005
08c4 0653 0654  | S T|		.DBGLNO	0x0653,0x0654,0x0657,0x065c,0x065e,0x0667
08ca ; --------------------------------------------------------------------------------------
08ca ; Debug chain
08ca ; --------------------------------------------------------------------------------------
08ca 0000 0001  |    |		.DBGLEN	0x0000,0x0001
08cc 0673       | s  |		.DBGLNO	0x0673
08cd 0000 0000  |    |		.BLANK	0000[0x133]