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

⟦89d6f0fa3⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0534f8

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0438       | 8  |		.CONST	0x0438								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006c       | l  |		.CONST	0x006c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0024       | $  |		.CONST	0x0024								; Number of locals
000b			INIT_0008:
000b 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
000d 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
000f 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0011 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0013 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0015 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0017 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0019 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
001b 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
001d 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
001f 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0021 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0023 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0025 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
0027 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0029 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
002b 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
002d 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
002f 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0031 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0033 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
0035 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
0037 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
0039 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
003b 00bf       |    |		Action	Accept_Activation
003c 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
006b 00c7       |    |		Action	Elaborate_Subprogram
006c			BODY_0008:
006c 00bc       |    |		Action	Signal_Activated
006d 00bb       |    |		Action	Signal_Completion
006e 0000 0000  |    |		.XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 00da       |    |		Load_Top	At_Offset_2
0074 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0075 e5fe       |    |		Load	0x2,-0x2
0076 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0077 027f       |    |		Execute	Discrete,Equal
0078 6817       |h   |		Jump_Zero	0x90
0079 00cf       |    |		Action	Mark_Auxiliary
007a 4801       |H   |		Short_Literal	0x1
007b e5ff       |    |		Load	0x2,-0x1
007c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
007d 0264       | d  |		Execute	Discrete,Below_Bound
007e 700e       |p   |		Jump_Nonzero	0x8d
007f 00d8       |    |		Load_Top	At_Offset_0
0080 e5ff       |    |		Load	0x2,-0x1
0081 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0082 01d7       |    |		Execute	Vector,Field_Read
0083 00d9       |    |		Load_Top	At_Offset_1
0084 e5fe       |    |		Load	0x2,-0x2
0085 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0086 01d7       |    |		Execute	Vector,Field_Read
0087 027e       | ~  |		Execute	Discrete,Not_Equal
0088 6802       |h   |		Jump_Zero	0x8b
0089 4800       |H   |		Short_Literal	0x0
008a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
008b 00c8       |    |		Action	Pop_Auxiliary_Range
008c 37f2       |7   |		Loop_Decreasing	0x7f
008d 00ce       |    |		Action	Pop_Auxiliary
008e 4801       |H   |		Short_Literal	0x1
008f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0090 4800       |H   |		Short_Literal	0x0
0091 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0092 0000 0000  |    |		.BLANK	0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00da       |    |		Load_Top	At_Offset_2
009c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009d e5fe       |    |		Load	0x2,-0x2
009e 0227       | '  |		Execute	Access,All_Reference
009f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00a0 027f       |    |		Execute	Discrete,Equal
00a1 6818       |h   |		Jump_Zero	0xba
00a2 00cf       |    |		Action	Mark_Auxiliary
00a3 4801       |H   |		Short_Literal	0x1
00a4 e5ff       |    |		Load	0x2,-0x1
00a5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00a6 0264       | d  |		Execute	Discrete,Below_Bound
00a7 700f       |p   |		Jump_Nonzero	0xb7
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 e5ff       |    |		Load	0x2,-0x1
00aa 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00ab 01d7       |    |		Execute	Vector,Field_Read
00ac 00d9       |    |		Load_Top	At_Offset_1
00ad e5fe       |    |		Load	0x2,-0x2
00ae 0227       | '  |		Execute	Access,All_Reference
00af 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00b0 01d7       |    |		Execute	Vector,Field_Read
00b1 027e       | ~  |		Execute	Discrete,Not_Equal
00b2 6802       |h   |		Jump_Zero	0xb5
00b3 4800       |H   |		Short_Literal	0x0
00b4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00b5 00c8       |    |		Action	Pop_Auxiliary_Range
00b6 37f1       |7   |		Loop_Decreasing	0xa8
00b7 00ce       |    |		Action	Pop_Auxiliary
00b8 4801       |H   |		Short_Literal	0x1
00b9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00ba 4800       |H   |		Short_Literal	0x0
00bb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00bc 0000 0000  |    |		.BLANK	0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 0227       | '  |		Execute	Access,All_Reference
00c5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00c6 e5fe       |    |		Load	0x2,-0x2
00c7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00c8 027f       |    |		Execute	Discrete,Equal
00c9 6819       |h   |		Jump_Zero	0xe3
00ca 00cf       |    |		Action	Mark_Auxiliary
00cb 4801       |H   |		Short_Literal	0x1
00cc e5ff       |    |		Load	0x2,-0x1
00cd 0227       | '  |		Execute	Access,All_Reference
00ce 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00cf 0264       | d  |		Execute	Discrete,Below_Bound
00d0 700f       |p   |		Jump_Nonzero	0xe0
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 e5ff       |    |		Load	0x2,-0x1
00d3 0227       | '  |		Execute	Access,All_Reference
00d4 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00d5 01d7       |    |		Execute	Vector,Field_Read
00d6 00d9       |    |		Load_Top	At_Offset_1
00d7 e5fe       |    |		Load	0x2,-0x2
00d8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00d9 01d7       |    |		Execute	Vector,Field_Read
00da 027e       | ~  |		Execute	Discrete,Not_Equal
00db 6802       |h   |		Jump_Zero	0xde
00dc 4800       |H   |		Short_Literal	0x0
00dd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00de 00c8       |    |		Action	Pop_Auxiliary_Range
00df 37f1       |7   |		Loop_Decreasing	0xd1
00e0 00ce       |    |		Action	Pop_Auxiliary
00e1 4801       |H   |		Short_Literal	0x1
00e2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e3 4800       |H   |		Short_Literal	0x0
00e4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 0227       | '  |		Execute	Access,All_Reference
00ed 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ee e5fe       |    |		Load	0x2,-0x2
00ef 0227       | '  |		Execute	Access,All_Reference
00f0 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f1 027f       |    |		Execute	Discrete,Equal
00f2 681a       |h   |		Jump_Zero	0x10d
00f3 00cf       |    |		Action	Mark_Auxiliary
00f4 4801       |H   |		Short_Literal	0x1
00f5 e5ff       |    |		Load	0x2,-0x1
00f6 0227       | '  |		Execute	Access,All_Reference
00f7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f8 0264       | d  |		Execute	Discrete,Below_Bound
00f9 7010       |p   |		Jump_Nonzero	0x10a
00fa 00d8       |    |		Load_Top	At_Offset_0
00fb e5ff       |    |		Load	0x2,-0x1
00fc 0227       | '  |		Execute	Access,All_Reference
00fd 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00fe 01d7       |    |		Execute	Vector,Field_Read
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 e5fe       |    |		Load	0x2,-0x2
0101 0227       | '  |		Execute	Access,All_Reference
0102 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0103 01d7       |    |		Execute	Vector,Field_Read
0104 027e       | ~  |		Execute	Discrete,Not_Equal
0105 6802       |h   |		Jump_Zero	0x108
0106 4800       |H   |		Short_Literal	0x0
0107 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0108 00c8       |    |		Action	Pop_Auxiliary_Range
0109 37f0       |7   |		Loop_Decreasing	0xfa
010a 00ce       |    |		Action	Pop_Auxiliary
010b 4801       |H   |		Short_Literal	0x1
010c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010d 4800       |H   |		Short_Literal	0x0
010e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010f 0000       |    |		.XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0115 e5fe       |    |		Load	0x2,-0x2
0116 01db       |    |		Execute	Vector,Length
0117 027f       |    |		Execute	Discrete,Equal
0118 681b       |h   |		Jump_Zero	0x134
0119 00cf       |    |		Action	Mark_Auxiliary
011a 4800       |H   |		Short_Literal	0x0
011b e5ff       |    |		Load	0x2,-0x1
011c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
011d 0aff       |    |		Execute_Immediate	Plus,-0x1
011e 0264       | d  |		Execute	Discrete,Below_Bound
011f 7011       |p   |		Jump_Nonzero	0x131
0120 00d8       |    |		Load_Top	At_Offset_0
0121 0a01       |    |		Execute_Immediate	Plus,0x1
0122 e5ff       |    |		Load	0x2,-0x1
0123 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0124 01d7       |    |		Execute	Vector,Field_Read
0125 00d9       |    |		Load_Top	At_Offset_1
0126 e5fe       |    |		Load	0x2,-0x2
0127 01dd       |    |		Execute	Vector,First
0128 0273       | s  |		Execute	Discrete,Plus
0129 e5fe       |    |		Load	0x2,-0x2
012a 01d7       |    |		Execute	Vector,Field_Read
012b 027e       | ~  |		Execute	Discrete,Not_Equal
012c 6802       |h   |		Jump_Zero	0x12f
012d 4800       |H   |		Short_Literal	0x0
012e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
012f 00c8       |    |		Action	Pop_Auxiliary_Range
0130 37ef       |7   |		Loop_Decreasing	0x120
0131 00ce       |    |		Action	Pop_Auxiliary
0132 4801       |H   |		Short_Literal	0x1
0133 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0134 4800       |H   |		Short_Literal	0x0
0135 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0136 0000 0000  |    |		.XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
013d 0e01       |    |		Execute_Immediate	Not_Equal,0x1
013e 7007       |p   |		Jump_Nonzero	0x146
013f 4801       |H   |		Short_Literal	0x1
0140 00db       |    |		Load_Top	At_Offset_3
0141 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0142 01d7       |    |		Execute	Vector,Field_Read
0143 e5fe       |    |		Load	0x2,-0x2
0144 027e       | ~  |		Execute	Discrete,Not_Equal
0145 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0146 4801       |H   |		Short_Literal	0x1
0147 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 00da       |    |		Load_Top	At_Offset_2
014c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
014d e5fd       |    |		Load	0x2,-0x3
014e 027f       |    |		Execute	Discrete,Equal
014f 6813       |h   |		Jump_Zero	0x163
0150 00cf       |    |		Action	Mark_Auxiliary
0151 4801       |H   |		Short_Literal	0x1
0152 e5fd       |    |		Load	0x2,-0x3
0153 0264       | d  |		Execute	Discrete,Below_Bound
0154 700b       |p   |		Jump_Nonzero	0x160
0155 00d8       |    |		Load_Top	At_Offset_0
0156 e5ff       |    |		Load	0x2,-0x1
0157 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0158 01d7       |    |		Execute	Vector,Field_Read
0159 e5fe       |    |		Load	0x2,-0x2
015a 027e       | ~  |		Execute	Discrete,Not_Equal
015b 6802       |h   |		Jump_Zero	0x15e
015c 4800       |H   |		Short_Literal	0x0
015d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
015e 00c8       |    |		Action	Pop_Auxiliary_Range
015f 37f5       |7   |		Loop_Decreasing	0x155
0160 00ce       |    |		Action	Pop_Auxiliary
0161 4801       |H   |		Short_Literal	0x1
0162 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0163 4800       |H   |		Short_Literal	0x0
0164 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0165 0000 0000  |    |		.XXX[0x3]
0167 0000       |    |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 0227       | '  |		Execute	Access,All_Reference
016d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
016e e5fe       |    |		Load	0x2,-0x2
016f 01db       |    |		Execute	Vector,Length
0170 027f       |    |		Execute	Discrete,Equal
0171 681d       |h   |		Jump_Zero	0x18f
0172 00cf       |    |		Action	Mark_Auxiliary
0173 4800       |H   |		Short_Literal	0x0
0174 e5ff       |    |		Load	0x2,-0x1
0175 0227       | '  |		Execute	Access,All_Reference
0176 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0177 0aff       |    |		Execute_Immediate	Plus,-0x1
0178 0264       | d  |		Execute	Discrete,Below_Bound
0179 7012       |p   |		Jump_Nonzero	0x18c
017a 00d8       |    |		Load_Top	At_Offset_0
017b 0a01       |    |		Execute_Immediate	Plus,0x1
017c e5ff       |    |		Load	0x2,-0x1
017d 0227       | '  |		Execute	Access,All_Reference
017e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
017f 01d7       |    |		Execute	Vector,Field_Read
0180 00d9       |    |		Load_Top	At_Offset_1
0181 e5fe       |    |		Load	0x2,-0x2
0182 01dd       |    |		Execute	Vector,First
0183 0273       | s  |		Execute	Discrete,Plus
0184 e5fe       |    |		Load	0x2,-0x2
0185 01d7       |    |		Execute	Vector,Field_Read
0186 027e       | ~  |		Execute	Discrete,Not_Equal
0187 6802       |h   |		Jump_Zero	0x18a
0188 4800       |H   |		Short_Literal	0x0
0189 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
018a 00c8       |    |		Action	Pop_Auxiliary_Range
018b 37ee       |7   |		Loop_Decreasing	0x17a
018c 00ce       |    |		Action	Pop_Auxiliary
018d 4801       |H   |		Short_Literal	0x1
018e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
018f 4800       |H   |		Short_Literal	0x0
0190 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00da       |    |		Load_Top	At_Offset_2
019c 0227       | '  |		Execute	Access,All_Reference
019d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
019e 0e01       |    |		Execute_Immediate	Not_Equal,0x1
019f 7008       |p   |		Jump_Nonzero	0x1a8
01a0 4801       |H   |		Short_Literal	0x1
01a1 00db       |    |		Load_Top	At_Offset_3
01a2 0227       | '  |		Execute	Access,All_Reference
01a3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01a4 01d7       |    |		Execute	Vector,Field_Read
01a5 e5fe       |    |		Load	0x2,-0x2
01a6 027e       | ~  |		Execute	Discrete,Not_Equal
01a7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a8 4801       |H   |		Short_Literal	0x1
01a9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01aa 0000 0000  |    |		.BLANK	0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 00da       |    |		Load_Top	At_Offset_2
01b4 0227       | '  |		Execute	Access,All_Reference
01b5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01b6 e5fd       |    |		Load	0x2,-0x3
01b7 027f       |    |		Execute	Discrete,Equal
01b8 6814       |h   |		Jump_Zero	0x1cd
01b9 00cf       |    |		Action	Mark_Auxiliary
01ba 4801       |H   |		Short_Literal	0x1
01bb e5fd       |    |		Load	0x2,-0x3
01bc 0264       | d  |		Execute	Discrete,Below_Bound
01bd 700c       |p   |		Jump_Nonzero	0x1ca
01be 00d8       |    |		Load_Top	At_Offset_0
01bf e5ff       |    |		Load	0x2,-0x1
01c0 0227       | '  |		Execute	Access,All_Reference
01c1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01c2 01d7       |    |		Execute	Vector,Field_Read
01c3 e5fe       |    |		Load	0x2,-0x2
01c4 027e       | ~  |		Execute	Discrete,Not_Equal
01c5 6802       |h   |		Jump_Zero	0x1c8
01c6 4800       |H   |		Short_Literal	0x0
01c7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01c8 00c8       |    |		Action	Pop_Auxiliary_Range
01c9 37f4       |7   |		Loop_Decreasing	0x1be
01ca 00ce       |    |		Action	Pop_Auxiliary
01cb 4801       |H   |		Short_Literal	0x1
01cc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01cd 4800       |H   |		Short_Literal	0x0
01ce 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
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 e5fe       |    |		Load	0x2,-0x2
01d6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d7 027f       |    |		Execute	Discrete,Equal
01d8 681d       |h   |		Jump_Zero	0x1f6
01d9 00cf       |    |		Action	Mark_Auxiliary
01da 4801       |H   |		Short_Literal	0x1
01db e5ff       |    |		Load	0x2,-0x1
01dc 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01dd 0264       | d  |		Execute	Discrete,Below_Bound
01de 7014       |p   |		Jump_Nonzero	0x1f3
01df 00d8       |    |		Load_Top	At_Offset_0
01e0 e5ff       |    |		Load	0x2,-0x1
01e1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01e2 01d7       |    |		Execute	Vector,Field_Read
01e3 e001       |    |		Load	0x0,0x1
01e4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e5 01d7       |    |		Execute	Vector,Field_Read
01e6 00d9       |    |		Load_Top	At_Offset_1
01e7 e5fe       |    |		Load	0x2,-0x2
01e8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01e9 01d7       |    |		Execute	Vector,Field_Read
01ea e001       |    |		Load	0x0,0x1
01eb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ec 01d7       |    |		Execute	Vector,Field_Read
01ed 027e       | ~  |		Execute	Discrete,Not_Equal
01ee 6802       |h   |		Jump_Zero	0x1f1
01ef 4800       |H   |		Short_Literal	0x0
01f0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f1 00c8       |    |		Action	Pop_Auxiliary_Range
01f2 37ec       |7   |		Loop_Decreasing	0x1df
01f3 00ce       |    |		Action	Pop_Auxiliary
01f4 4801       |H   |		Short_Literal	0x1
01f5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f6 4800       |H   |		Short_Literal	0x0
01f7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01fd e5fe       |    |		Load	0x2,-0x2
01fe 0227       | '  |		Execute	Access,All_Reference
01ff 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0200 027f       |    |		Execute	Discrete,Equal
0201 681e       |h   |		Jump_Zero	0x220
0202 00cf       |    |		Action	Mark_Auxiliary
0203 4801       |H   |		Short_Literal	0x1
0204 e5ff       |    |		Load	0x2,-0x1
0205 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0206 0264       | d  |		Execute	Discrete,Below_Bound
0207 7015       |p   |		Jump_Nonzero	0x21d
0208 00d8       |    |		Load_Top	At_Offset_0
0209 e5ff       |    |		Load	0x2,-0x1
020a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
020b 01d7       |    |		Execute	Vector,Field_Read
020c e001       |    |		Load	0x0,0x1
020d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
020e 01d7       |    |		Execute	Vector,Field_Read
020f 00d9       |    |		Load_Top	At_Offset_1
0210 e5fe       |    |		Load	0x2,-0x2
0211 0227       | '  |		Execute	Access,All_Reference
0212 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0213 01d7       |    |		Execute	Vector,Field_Read
0214 e001       |    |		Load	0x0,0x1
0215 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0216 01d7       |    |		Execute	Vector,Field_Read
0217 027e       | ~  |		Execute	Discrete,Not_Equal
0218 6802       |h   |		Jump_Zero	0x21b
0219 4800       |H   |		Short_Literal	0x0
021a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021b 00c8       |    |		Action	Pop_Auxiliary_Range
021c 37eb       |7   |		Loop_Decreasing	0x208
021d 00ce       |    |		Action	Pop_Auxiliary
021e 4801       |H   |		Short_Literal	0x1
021f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0220 4800       |H   |		Short_Literal	0x0
0221 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0222 0000 0000  |    |		.BLANK	0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00da       |    |		Load_Top	At_Offset_2
022c 0227       | '  |		Execute	Access,All_Reference
022d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
022e e5fe       |    |		Load	0x2,-0x2
022f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0230 027f       |    |		Execute	Discrete,Equal
0231 681f       |h   |		Jump_Zero	0x251
0232 00cf       |    |		Action	Mark_Auxiliary
0233 4801       |H   |		Short_Literal	0x1
0234 e5ff       |    |		Load	0x2,-0x1
0235 0227       | '  |		Execute	Access,All_Reference
0236 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0237 0264       | d  |		Execute	Discrete,Below_Bound
0238 7015       |p   |		Jump_Nonzero	0x24e
0239 00d8       |    |		Load_Top	At_Offset_0
023a e5ff       |    |		Load	0x2,-0x1
023b 0227       | '  |		Execute	Access,All_Reference
023c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
023d 01d7       |    |		Execute	Vector,Field_Read
023e e001       |    |		Load	0x0,0x1
023f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0240 01d7       |    |		Execute	Vector,Field_Read
0241 00d9       |    |		Load_Top	At_Offset_1
0242 e5fe       |    |		Load	0x2,-0x2
0243 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0244 01d7       |    |		Execute	Vector,Field_Read
0245 e001       |    |		Load	0x0,0x1
0246 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0247 01d7       |    |		Execute	Vector,Field_Read
0248 027e       | ~  |		Execute	Discrete,Not_Equal
0249 6802       |h   |		Jump_Zero	0x24c
024a 4800       |H   |		Short_Literal	0x0
024b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
024c 00c8       |    |		Action	Pop_Auxiliary_Range
024d 37eb       |7   |		Loop_Decreasing	0x239
024e 00ce       |    |		Action	Pop_Auxiliary
024f 4801       |H   |		Short_Literal	0x1
0250 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0251 4800       |H   |		Short_Literal	0x0
0252 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0253 0000 0000  |    |		.BLANK	0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b 00da       |    |		Load_Top	At_Offset_2
025c 0227       | '  |		Execute	Access,All_Reference
025d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
025e e5fe       |    |		Load	0x2,-0x2
025f 0227       | '  |		Execute	Access,All_Reference
0260 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0261 027f       |    |		Execute	Discrete,Equal
0262 6820       |h   |		Jump_Zero	0x283
0263 00cf       |    |		Action	Mark_Auxiliary
0264 4801       |H   |		Short_Literal	0x1
0265 e5ff       |    |		Load	0x2,-0x1
0266 0227       | '  |		Execute	Access,All_Reference
0267 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0268 0264       | d  |		Execute	Discrete,Below_Bound
0269 7016       |p   |		Jump_Nonzero	0x280
026a 00d8       |    |		Load_Top	At_Offset_0
026b e5ff       |    |		Load	0x2,-0x1
026c 0227       | '  |		Execute	Access,All_Reference
026d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
026e 01d7       |    |		Execute	Vector,Field_Read
026f e001       |    |		Load	0x0,0x1
0270 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0271 01d7       |    |		Execute	Vector,Field_Read
0272 00d9       |    |		Load_Top	At_Offset_1
0273 e5fe       |    |		Load	0x2,-0x2
0274 0227       | '  |		Execute	Access,All_Reference
0275 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0276 01d7       |    |		Execute	Vector,Field_Read
0277 e001       |    |		Load	0x0,0x1
0278 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0279 01d7       |    |		Execute	Vector,Field_Read
027a 027e       | ~  |		Execute	Discrete,Not_Equal
027b 6802       |h   |		Jump_Zero	0x27e
027c 4800       |H   |		Short_Literal	0x0
027d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
027e 00c8       |    |		Action	Pop_Auxiliary_Range
027f 37ea       |7   |		Loop_Decreasing	0x26a
0280 00ce       |    |		Action	Pop_Auxiliary
0281 4801       |H   |		Short_Literal	0x1
0282 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0283 4800       |H   |		Short_Literal	0x0
0284 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 00da       |    |		Load_Top	At_Offset_2
028c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
028d e5fe       |    |		Load	0x2,-0x2
028e 01db       |    |		Execute	Vector,Length
028f 027f       |    |		Execute	Discrete,Equal
0290 6821       |h!  |		Jump_Zero	0x2b2
0291 00cf       |    |		Action	Mark_Auxiliary
0292 4800       |H   |		Short_Literal	0x0
0293 e5ff       |    |		Load	0x2,-0x1
0294 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0295 0aff       |    |		Execute_Immediate	Plus,-0x1
0296 0264       | d  |		Execute	Discrete,Below_Bound
0297 7017       |p   |		Jump_Nonzero	0x2af
0298 00d8       |    |		Load_Top	At_Offset_0
0299 0a01       |    |		Execute_Immediate	Plus,0x1
029a e5ff       |    |		Load	0x2,-0x1
029b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
029c 01d7       |    |		Execute	Vector,Field_Read
029d e001       |    |		Load	0x0,0x1
029e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
029f 01d7       |    |		Execute	Vector,Field_Read
02a0 00d9       |    |		Load_Top	At_Offset_1
02a1 e5fe       |    |		Load	0x2,-0x2
02a2 01dd       |    |		Execute	Vector,First
02a3 0273       | s  |		Execute	Discrete,Plus
02a4 e5fe       |    |		Load	0x2,-0x2
02a5 01d7       |    |		Execute	Vector,Field_Read
02a6 e001       |    |		Load	0x0,0x1
02a7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02a8 01d7       |    |		Execute	Vector,Field_Read
02a9 027e       | ~  |		Execute	Discrete,Not_Equal
02aa 6802       |h   |		Jump_Zero	0x2ad
02ab 4800       |H   |		Short_Literal	0x0
02ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ad 00c8       |    |		Action	Pop_Auxiliary_Range
02ae 37e9       |7   |		Loop_Decreasing	0x298
02af 00ce       |    |		Action	Pop_Auxiliary
02b0 4801       |H   |		Short_Literal	0x1
02b1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b2 4800       |H   |		Short_Literal	0x0
02b3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b4 0000 0000  |    |		.BLANK	0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02bd 0e01       |    |		Execute_Immediate	Not_Equal,0x1
02be 700d       |p   |		Jump_Nonzero	0x2cc
02bf 4801       |H   |		Short_Literal	0x1
02c0 00db       |    |		Load_Top	At_Offset_3
02c1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02c2 01d7       |    |		Execute	Vector,Field_Read
02c3 e001       |    |		Load	0x0,0x1
02c4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02c5 01d7       |    |		Execute	Vector,Field_Read
02c6 e5fe       |    |		Load	0x2,-0x2
02c7 e001       |    |		Load	0x0,0x1
02c8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02c9 01d7       |    |		Execute	Vector,Field_Read
02ca 027e       | ~  |		Execute	Discrete,Not_Equal
02cb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02cc 4801       |H   |		Short_Literal	0x1
02cd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ce 0000 0000  |    |		.XXX[0x2]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d8       |    |		.CONST	0x02d8								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0002       |    |		.CONST	0x0002								; Number of locals
02d3			INIT_02d0:
02d3 00db       |    |		Load_Top	At_Offset_3
02d4 e001       |    |		Load	0x0,0x1
02d5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d6 01d7       |    |		Execute	Vector,Field_Read
02d7 0007       |    |		Action	Break_Optional
02d8			BODY_02d0:
02d8 00db       |    |		Load_Top	At_Offset_3
02d9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02da e5fd       |    |		Load	0x2,-0x3
02db 027f       |    |		Execute	Discrete,Equal
02dc 6816       |h   |		Jump_Zero	0x2f3
02dd 00cf       |    |		Action	Mark_Auxiliary
02de 4801       |H   |		Short_Literal	0x1
02df e5fd       |    |		Load	0x2,-0x3
02e0 0264       | d  |		Execute	Discrete,Below_Bound
02e1 700e       |p   |		Jump_Nonzero	0x2f0
02e2 00d8       |    |		Load_Top	At_Offset_0
02e3 e5ff       |    |		Load	0x2,-0x1
02e4 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02e5 01d7       |    |		Execute	Vector,Field_Read
02e6 e001       |    |		Load	0x0,0x1
02e7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e8 01d7       |    |		Execute	Vector,Field_Read
02e9 e402       |    |		Load	0x2,0x2
02ea 027e       | ~  |		Execute	Discrete,Not_Equal
02eb 6802       |h   |		Jump_Zero	0x2ee
02ec 4800       |H   |		Short_Literal	0x0
02ed 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02ee 00c8       |    |		Action	Pop_Auxiliary_Range
02ef 37f2       |7   |		Loop_Decreasing	0x2e2
02f0 00ce       |    |		Action	Pop_Auxiliary
02f1 4801       |H   |		Short_Literal	0x1
02f2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02f3 4800       |H   |		Short_Literal	0x0
02f4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02f5 0000 0000  |    |		.XXX[0x3]
02f7 0000       |    |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc 0227       | '  |		Execute	Access,All_Reference
02fd 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02fe e5fe       |    |		Load	0x2,-0x2
02ff 01db       |    |		Execute	Vector,Length
0300 027f       |    |		Execute	Discrete,Equal
0301 6823       |h#  |		Jump_Zero	0x325
0302 00cf       |    |		Action	Mark_Auxiliary
0303 4800       |H   |		Short_Literal	0x0
0304 e5ff       |    |		Load	0x2,-0x1
0305 0227       | '  |		Execute	Access,All_Reference
0306 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0307 0aff       |    |		Execute_Immediate	Plus,-0x1
0308 0264       | d  |		Execute	Discrete,Below_Bound
0309 7018       |p   |		Jump_Nonzero	0x322
030a 00d8       |    |		Load_Top	At_Offset_0
030b 0a01       |    |		Execute_Immediate	Plus,0x1
030c e5ff       |    |		Load	0x2,-0x1
030d 0227       | '  |		Execute	Access,All_Reference
030e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
030f 01d7       |    |		Execute	Vector,Field_Read
0310 e001       |    |		Load	0x0,0x1
0311 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0312 01d7       |    |		Execute	Vector,Field_Read
0313 00d9       |    |		Load_Top	At_Offset_1
0314 e5fe       |    |		Load	0x2,-0x2
0315 01dd       |    |		Execute	Vector,First
0316 0273       | s  |		Execute	Discrete,Plus
0317 e5fe       |    |		Load	0x2,-0x2
0318 01d7       |    |		Execute	Vector,Field_Read
0319 e001       |    |		Load	0x0,0x1
031a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
031b 01d7       |    |		Execute	Vector,Field_Read
031c 027e       | ~  |		Execute	Discrete,Not_Equal
031d 6802       |h   |		Jump_Zero	0x320
031e 4800       |H   |		Short_Literal	0x0
031f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0320 00c8       |    |		Action	Pop_Auxiliary_Range
0321 37e8       |7   |		Loop_Decreasing	0x30a
0322 00ce       |    |		Action	Pop_Auxiliary
0323 4801       |H   |		Short_Literal	0x1
0324 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0325 4800       |H   |		Short_Literal	0x0
0326 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0327 0000       |    |		.XXX[0x1]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00da       |    |		Load_Top	At_Offset_2
032c 0227       | '  |		Execute	Access,All_Reference
032d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
032e 0e01       |    |		Execute_Immediate	Not_Equal,0x1
032f 700e       |p   |		Jump_Nonzero	0x33e
0330 4801       |H   |		Short_Literal	0x1
0331 00db       |    |		Load_Top	At_Offset_3
0332 0227       | '  |		Execute	Access,All_Reference
0333 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0334 01d7       |    |		Execute	Vector,Field_Read
0335 e001       |    |		Load	0x0,0x1
0336 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0337 01d7       |    |		Execute	Vector,Field_Read
0338 e5fe       |    |		Load	0x2,-0x2
0339 e001       |    |		Load	0x0,0x1
033a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
033b 01d7       |    |		Execute	Vector,Field_Read
033c 027e       | ~  |		Execute	Discrete,Not_Equal
033d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
033e 4801       |H   |		Short_Literal	0x1
033f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0348       | H  |		.CONST	0x0348								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0002       |    |		.CONST	0x0002								; Number of locals
0343			INIT_0340:
0343 00db       |    |		Load_Top	At_Offset_3
0344 e001       |    |		Load	0x0,0x1
0345 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0346 01d7       |    |		Execute	Vector,Field_Read
0347 0007       |    |		Action	Break_Optional
0348			BODY_0340:
0348 00db       |    |		Load_Top	At_Offset_3
0349 0227       | '  |		Execute	Access,All_Reference
034a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
034b e5fd       |    |		Load	0x2,-0x3
034c 027f       |    |		Execute	Discrete,Equal
034d 6817       |h   |		Jump_Zero	0x365
034e 00cf       |    |		Action	Mark_Auxiliary
034f 4801       |H   |		Short_Literal	0x1
0350 e5fd       |    |		Load	0x2,-0x3
0351 0264       | d  |		Execute	Discrete,Below_Bound
0352 700f       |p   |		Jump_Nonzero	0x362
0353 00d8       |    |		Load_Top	At_Offset_0
0354 e5ff       |    |		Load	0x2,-0x1
0355 0227       | '  |		Execute	Access,All_Reference
0356 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0357 01d7       |    |		Execute	Vector,Field_Read
0358 e001       |    |		Load	0x0,0x1
0359 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
035a 01d7       |    |		Execute	Vector,Field_Read
035b e402       |    |		Load	0x2,0x2
035c 027e       | ~  |		Execute	Discrete,Not_Equal
035d 6802       |h   |		Jump_Zero	0x360
035e 4800       |H   |		Short_Literal	0x0
035f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0360 00c8       |    |		Action	Pop_Auxiliary_Range
0361 37f1       |7   |		Loop_Decreasing	0x353
0362 00ce       |    |		Action	Pop_Auxiliary
0363 4801       |H   |		Short_Literal	0x1
0364 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0365 4800       |H   |		Short_Literal	0x0
0366 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0367 0000       |    |		.XXX[0x1]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b 00da       |    |		Load_Top	At_Offset_2
036c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
036d e5fe       |    |		Load	0x2,-0x2
036e 01db       |    |		Execute	Vector,Length
036f 027b       | {  |		Execute	Discrete,Greater_Equal
0370 6822       |h"  |		Jump_Zero	0x393
0371 00cf       |    |		Action	Mark_Auxiliary
0372 4800       |H   |		Short_Literal	0x0
0373 e5fe       |    |		Load	0x2,-0x2
0374 01db       |    |		Execute	Vector,Length
0375 0aff       |    |		Execute_Immediate	Plus,-0x1
0376 00d8       |    |		Load_Top	At_Offset_0
0377 00e2       |    |		Load_Encached	Integer_Cache
0378 0260       | `  |		Execute	Discrete,In_Type
0379 7001       |p   |		Jump_Nonzero	0x37b
037a 0801       |    |		Execute_Immediate	Raise,0x1
037b 00e2       |    |		Load_Encached	Integer_Cache
037c 025d       | ]  |		Execute	Discrete,Bounds_Check
037d 0264       | d  |		Execute	Discrete,Below_Bound
037e 7011       |p   |		Jump_Nonzero	0x390
037f 00d8       |    |		Load_Top	At_Offset_0
0380 0a01       |    |		Execute_Immediate	Plus,0x1
0381 e5ff       |    |		Load	0x2,-0x1
0382 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0383 01d7       |    |		Execute	Vector,Field_Read
0384 00d9       |    |		Load_Top	At_Offset_1
0385 e5fe       |    |		Load	0x2,-0x2
0386 01dd       |    |		Execute	Vector,First
0387 0273       | s  |		Execute	Discrete,Plus
0388 e5fe       |    |		Load	0x2,-0x2
0389 01d7       |    |		Execute	Vector,Field_Read
038a 027e       | ~  |		Execute	Discrete,Not_Equal
038b 6802       |h   |		Jump_Zero	0x38e
038c 4800       |H   |		Short_Literal	0x0
038d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
038e 00c8       |    |		Action	Pop_Auxiliary_Range
038f 37ef       |7   |		Loop_Decreasing	0x37f
0390 00ce       |    |		Action	Pop_Auxiliary
0391 4801       |H   |		Short_Literal	0x1
0392 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0393 4800       |H   |		Short_Literal	0x0
0394 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0395 0000 0000  |    |		.XXX[0x3]
0397 0000       |    |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 00da       |    |		Load_Top	At_Offset_2
039c 0227       | '  |		Execute	Access,All_Reference
039d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
039e e5fe       |    |		Load	0x2,-0x2
039f 01db       |    |		Execute	Vector,Length
03a0 027b       | {  |		Execute	Discrete,Greater_Equal
03a1 6823       |h#  |		Jump_Zero	0x3c5
03a2 00cf       |    |		Action	Mark_Auxiliary
03a3 4800       |H   |		Short_Literal	0x0
03a4 e5fe       |    |		Load	0x2,-0x2
03a5 01db       |    |		Execute	Vector,Length
03a6 0aff       |    |		Execute_Immediate	Plus,-0x1
03a7 00d8       |    |		Load_Top	At_Offset_0
03a8 00e2       |    |		Load_Encached	Integer_Cache
03a9 0260       | `  |		Execute	Discrete,In_Type
03aa 7001       |p   |		Jump_Nonzero	0x3ac
03ab 0801       |    |		Execute_Immediate	Raise,0x1
03ac 00e2       |    |		Load_Encached	Integer_Cache
03ad 025d       | ]  |		Execute	Discrete,Bounds_Check
03ae 0264       | d  |		Execute	Discrete,Below_Bound
03af 7012       |p   |		Jump_Nonzero	0x3c2
03b0 00d8       |    |		Load_Top	At_Offset_0
03b1 0a01       |    |		Execute_Immediate	Plus,0x1
03b2 e5ff       |    |		Load	0x2,-0x1
03b3 0227       | '  |		Execute	Access,All_Reference
03b4 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03b5 01d7       |    |		Execute	Vector,Field_Read
03b6 00d9       |    |		Load_Top	At_Offset_1
03b7 e5fe       |    |		Load	0x2,-0x2
03b8 01dd       |    |		Execute	Vector,First
03b9 0273       | s  |		Execute	Discrete,Plus
03ba e5fe       |    |		Load	0x2,-0x2
03bb 01d7       |    |		Execute	Vector,Field_Read
03bc 027e       | ~  |		Execute	Discrete,Not_Equal
03bd 6802       |h   |		Jump_Zero	0x3c0
03be 4800       |H   |		Short_Literal	0x0
03bf 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03c0 00c8       |    |		Action	Pop_Auxiliary_Range
03c1 37ee       |7   |		Loop_Decreasing	0x3b0
03c2 00ce       |    |		Action	Pop_Auxiliary
03c3 4801       |H   |		Short_Literal	0x1
03c4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03c5 4800       |H   |		Short_Literal	0x0
03c6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03c7 0000       |    |		.XXX[0x1]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03cd e5fe       |    |		Load	0x2,-0x2
03ce 01db       |    |		Execute	Vector,Length
03cf 027b       | {  |		Execute	Discrete,Greater_Equal
03d0 6828       |h(  |		Jump_Zero	0x3f9
03d1 00cf       |    |		Action	Mark_Auxiliary
03d2 4800       |H   |		Short_Literal	0x0
03d3 e5fe       |    |		Load	0x2,-0x2
03d4 01db       |    |		Execute	Vector,Length
03d5 0aff       |    |		Execute_Immediate	Plus,-0x1
03d6 00d8       |    |		Load_Top	At_Offset_0
03d7 00e2       |    |		Load_Encached	Integer_Cache
03d8 0260       | `  |		Execute	Discrete,In_Type
03d9 7001       |p   |		Jump_Nonzero	0x3db
03da 0801       |    |		Execute_Immediate	Raise,0x1
03db 00e2       |    |		Load_Encached	Integer_Cache
03dc 025d       | ]  |		Execute	Discrete,Bounds_Check
03dd 0264       | d  |		Execute	Discrete,Below_Bound
03de 7017       |p   |		Jump_Nonzero	0x3f6
03df 00d8       |    |		Load_Top	At_Offset_0
03e0 0a01       |    |		Execute_Immediate	Plus,0x1
03e1 e5ff       |    |		Load	0x2,-0x1
03e2 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03e3 01d7       |    |		Execute	Vector,Field_Read
03e4 e001       |    |		Load	0x0,0x1
03e5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03e6 01d7       |    |		Execute	Vector,Field_Read
03e7 00d9       |    |		Load_Top	At_Offset_1
03e8 e5fe       |    |		Load	0x2,-0x2
03e9 01dd       |    |		Execute	Vector,First
03ea 0273       | s  |		Execute	Discrete,Plus
03eb e5fe       |    |		Load	0x2,-0x2
03ec 01d7       |    |		Execute	Vector,Field_Read
03ed e001       |    |		Load	0x0,0x1
03ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ef 01d7       |    |		Execute	Vector,Field_Read
03f0 027e       | ~  |		Execute	Discrete,Not_Equal
03f1 6802       |h   |		Jump_Zero	0x3f4
03f2 4800       |H   |		Short_Literal	0x0
03f3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03f4 00c8       |    |		Action	Pop_Auxiliary_Range
03f5 37e9       |7   |		Loop_Decreasing	0x3df
03f6 00ce       |    |		Action	Pop_Auxiliary
03f7 4801       |H   |		Short_Literal	0x1
03f8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03f9 4800       |H   |		Short_Literal	0x0
03fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03fb 0000 0000  |    |		.BLANK	0000[0x5]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 00da       |    |		Load_Top	At_Offset_2
0404 0227       | '  |		Execute	Access,All_Reference
0405 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0406 e5fe       |    |		Load	0x2,-0x2
0407 01db       |    |		Execute	Vector,Length
0408 027b       | {  |		Execute	Discrete,Greater_Equal
0409 6829       |h)  |		Jump_Zero	0x433
040a 00cf       |    |		Action	Mark_Auxiliary
040b 4800       |H   |		Short_Literal	0x0
040c e5fe       |    |		Load	0x2,-0x2
040d 01db       |    |		Execute	Vector,Length
040e 0aff       |    |		Execute_Immediate	Plus,-0x1
040f 00d8       |    |		Load_Top	At_Offset_0
0410 00e2       |    |		Load_Encached	Integer_Cache
0411 0260       | `  |		Execute	Discrete,In_Type
0412 7001       |p   |		Jump_Nonzero	0x414
0413 0801       |    |		Execute_Immediate	Raise,0x1
0414 00e2       |    |		Load_Encached	Integer_Cache
0415 025d       | ]  |		Execute	Discrete,Bounds_Check
0416 0264       | d  |		Execute	Discrete,Below_Bound
0417 7018       |p   |		Jump_Nonzero	0x430
0418 00d8       |    |		Load_Top	At_Offset_0
0419 0a01       |    |		Execute_Immediate	Plus,0x1
041a e5ff       |    |		Load	0x2,-0x1
041b 0227       | '  |		Execute	Access,All_Reference
041c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
041d 01d7       |    |		Execute	Vector,Field_Read
041e e001       |    |		Load	0x0,0x1
041f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0420 01d7       |    |		Execute	Vector,Field_Read
0421 00d9       |    |		Load_Top	At_Offset_1
0422 e5fe       |    |		Load	0x2,-0x2
0423 01dd       |    |		Execute	Vector,First
0424 0273       | s  |		Execute	Discrete,Plus
0425 e5fe       |    |		Load	0x2,-0x2
0426 01d7       |    |		Execute	Vector,Field_Read
0427 e001       |    |		Load	0x0,0x1
0428 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0429 01d7       |    |		Execute	Vector,Field_Read
042a 027e       | ~  |		Execute	Discrete,Not_Equal
042b 6802       |h   |		Jump_Zero	0x42e
042c 4800       |H   |		Short_Literal	0x0
042d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
042e 00c8       |    |		Action	Pop_Auxiliary_Range
042f 37e8       |7   |		Loop_Decreasing	0x418
0430 00ce       |    |		Action	Pop_Auxiliary
0431 4801       |H   |		Short_Literal	0x1
0432 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0433 4800       |H   |		Short_Literal	0x0
0434 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0435 0000 0000  |    |		.XXX[0x3]
0437 0000       |    |
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug Table
0438 ; --------------------------------------------------------------------------------------
0438 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xa941,0x0000,0x0001,0x0000
043e 8010 ca00  |    |		.XXX[0x1c2]
0440 0058 7c00  | X| |
0442 07fb 5818  |  X |
0444 8013 582b  |  X+|
0446 8052 022b  | R +|
0448 8008 8a00  |    |
044a 0044 7c00  | D| |
044c 07f9 fffe  |    |
044e dbf6 4040  |  @@|
0450 0063 008e  | c  |
0452 8170 4c00  | pL |
0454 0804 5400  |  T |
0456 0804 5c00  |  \ |
0458 07e3 580b  |  X |
045a 80a0 6400  |  d |
045c 0806 604c  |  `L|
045e 8346 504a  | FPJ|
0460 82d6 4849  |  HI|
0462 82a1 fffe  |    |
0464 e08a 6840  |  h@|
0466 8000 4200  |  B |
0468 001c 0400  |    |
046a 0003 780f  |  x |
046c 8c72 4040  | r@@|
046e 0063 080f  | c  |
0470 81f2 7f01  |    |
0472 0000 0400  |    |
0474 0002 071f  |    |
0476 8022 07a0  | "  |
0478 0002 778e  |  w |
047a fe82 e840  |   @|
047c 0062 0240  | b @|
047e 0074 8a00  | t  |
0480 004e e840  | N @|
0482 0063 e89d  | c  |
0484 8083 401d  |  @ |
0486 8092 0240  |   @|
0488 0020 8a00  |    |
048a 002b e81d  | +  |
048c 8093 481d  |  H |
048e 8093 4809  |  H |
0490 8083 581d  |  X |
0492 8092 0289  |    |
0494 002c ca00  | ,  |
0496 0013 e81d  |    |
0498 8093 009d  |    |
049a 8093 e81d  |    |
049c 8092 0240  |   @|
049e 0074 caff  | t  |
04a0 ffcf e89d  |    |
04a2 8082 e840  |   @|
04a4 0062 0240  | b @|
04a6 0074 0a00  | t  |
04a8 0032 c040  | 2 @|
04aa 0077 e81d  | w  |
04ac 8092 029d  |    |
04ae 0060 4a00  | `J |
04b0 000c 0400  |    |
04b2 0002 e840  |   @|
04b4 8001 fffe  |    |
04b6 6b02 4040  |k @@|
04b8 0062 0240  | b @|
04ba 0074 caff  | t  |
04bc ffe2 c040  |   @|
04be 0076 071f  | v  |
04c0 8022 07a0  | "  |
04c2 0002 778e  |  w |
04c4 fe83 4818  |  H |
04c6 0002 0240  |   @|
04c8 0024 0a00  | $  |
04ca 0028 0400  | (  |
04cc 0001 0000  |    |
04ce 959f 4018  |  @ |
04d0 0003 4098  |  @ |
04d2 8012 c018  |    |
04d4 8033 4818  | 3H |
04d6 0002 0240  |   @|
04d8 0024 4aff  | $J |
04da ffe8 0400  |    |
04dc 0002 071f  |    |
04de 8022 07a0  | "  |
04e0 0002 778e  |  w |
04e2 fe83 4818  |  H |
04e4 0002 0240  |   @|
04e6 0024 0a00  | $  |
04e8 0028 0400  | (  |
04ea 0001 0000  |    |
04ec 9563 4018  | c@ |
04ee 0003 4098  |  @ |
04f0 8012 c018  |    |
04f2 8053 4818  | SH |
04f4 0002 0240  |   @|
04f6 0024 4aff  | $J |
04f8 ffe8 0400  |    |
04fa 0002 071f  |    |
04fc 8022 07a0  | "  |
04fe 0002 778e  |  w |
0500 fe83 4818  |  H |
0502 0002 0240  |   @|
0504 0024 0a00  | $  |
0506 0028 0400  | (  |
0508 0001 0000  |    |
050a 9527 4018  | '@ |
050c 0003 4098  |  @ |
050e 8012 c018  |    |
0510 8043 4818  | CH |
0512 0002 0240  |   @|
0514 0024 4aff  | $J |
0516 ffe8 0400  |    |
0518 0002 071f  |    |
051a 8022 07a0  | "  |
051c 0002 778e  |  w |
051e fe82 4040  |  @@|
0520 0061 0000  | a  |
0522 039e 4840  |  H@|
0524 802a c040  | * @|
0526 0023 4138  | #A8|
0528 0002 0288  |    |
052a 8028 4a00  | (J |
052c 000c 0400  |    |
052e 0002 c018  |    |
0530 8006 071f  |    |
0532 8022 07a0  | "  |
0534 0002 778e  |  w |
0536 eec2 4040  |  @@|
0538 8007 409e  |  @ |
053a fff2 e81e  |    |
053c f052 4040  | R@@|
053e 0075 0002  | u  |
0540 1266 4840  | fH@|
0542 0061 0002  | a  |
0544 183e 4040  | >@@|
0546 0076 c040  | v @|
0548 0022 4018  | "@ |
054a 0075 0002  | u  |
054c 124e 4840  | NH@|
054e 0065 0002  | e  |
0550 1826 4040  | &@@|
0552 0066 c018  | f  |
0554 0023 00b8  | #  |
0556 0077 e89e  | w  |
0558 f040 5400  | @T |
055a 07e3 500a  |  P |
055c 80a0 4400  |  D |
055e 0807 4008  |  @ |
0560 8440 4c00  | @L |
0562 0810 5c00  |  \ |
0564 0812 584b  |  XK|
0566 8f1a 4849  |  HI|
0568 8eee 601e  |  ` |
056a f041 fffe  | A  |
056c de4a 681e  | Jh |
056e fff2 071f  |    |
0570 8022 47a0  | "G |
0572 8002 778e  |  w |
0574 fe81 0000  |    |
0576 944e 4040  | N@@|
0578 0062 e840  | b @|
057a 8002 e4bd  |    |
057c 800a d840  |   @|
057e 0020 4400  |  D |
0580 0806 54bc  |  T |
0582 800a e01c  |    |
0584 002a d008  | *  |
0586 8e82 e01c  |    |
0588 006b 601c  | k` |
058a 0002 0240  |   @|
058c 0030 8a00  | 0  |
058e 0040 4400  | @D |
0590 0813 e01c  |    |
0592 0002 029c  |    |
0594 006c 0a00  | l  |
0596 0044 0400  | D  |
0598 0002 e81d  |    |
059a 8006 e4bd  |    |
059c 800a 54bc  |  T |
059e 800a e01c  |    |
05a0 002a e01c  | *  |
05a2 006b 601c  | k` |
05a4 0002 0240  |   @|
05a6 0030 caff  | 0  |
05a8 ffdb e01c  |    |
05aa 0000 4400  |  D |
05ac 0812 4048  |  @H|
05ae 8fa5 ffff  |    |
05b0 ff0e 4840  |  H@|
05b2 0062 7840  | bx@|
05b4 8007 78b9  |  x |
05b6 0002 071f  |    |
05b8 8022 47a0  | "G |
05ba 0076 778e  | vw |
05bc fe81 0000  |    |
05be 93be 4040  |  @@|
05c0 0066 c800  | f  |
05c2 0063 4819  | cH |
05c4 0002 e840  |   @|
05c6 8002 0240  |   @|
05c8 0024 0a00  | $  |
05ca 004e e040  | N @|
05cc 0023 5019  | #P |
05ce 8012 028a  |    |
05d0 0070 ca00  | p  |
05d2 002a c819  | *  |
05d4 8032 ecbd  | 2  |
05d6 800a 64bd  |  d |
05d8 8006 e81d  |    |
05da 0032 c018  | 2  |
05dc 0077 c018  | w  |
05de 8022 c840  | " @|
05e0 8004 4200  |  B |
05e2 0023 c09a  | #  |
05e4 0003 4819  |  H |
05e6 0002 e81d  |    |
05e8 8006 0240  |   @|
05ea 0024 caff  | $  |
05ec ffcb 5019  |  P |
05ee 8012 c840  |   @|
05f0 8002 071f  |    |
05f2 8022 47a0  | "G |
05f4 0066 778e  | fw |
05f6 fe82 0240  |   @|
05f8 0073 d89e  | s  |
05fa 8140 0a00  | @  |
05fc 00cb c89e  |    |
05fe 8123 d81c  | #  |