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

⟦57e59ee0e⟧

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

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 0740       | @  |		.CONST	0x0740								; 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 00d7       |    |		.CONST	0x00d7								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0044       | D  |		.CONST	0x0044								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional
000c 0007       |    |		Action	Break_Optional
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 0093 0000  |    |		push_full_address	0x0
0011 60e2       |`   |		Indirect_Literal	Discrete,0xf4,{0x80000000, 0x00010000}
0012 0273       | s  |		Execute	Discrete,Plus
0013 e20d       |    |		Load	0x1,0xd
0014 60db       |`   |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x0000ffff}
0015 0279       | y  |		Execute	Discrete,And
0016 0273       | s  |		Execute	Discrete,Plus
0017 0129       | )  |		Execute	Any,Make_Visible
0018 0093 0000  |    |		push_full_address	0x0
001a 60d1       |`   |		Indirect_Literal	Discrete,0xec,{0x80000000, 0x00020000}
001b 0273       | s  |		Execute	Discrete,Plus
001c e20d       |    |		Load	0x1,0xd
001d 60d2       |`   |		Indirect_Literal	Discrete,0xf0,{0x00000000, 0x0000ffff}
001e 0279       | y  |		Execute	Discrete,And
001f 0273       | s  |		Execute	Discrete,Plus
0020 0129       | )  |		Execute	Any,Make_Visible
0021 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0023 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0025 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0027 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0029 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
002b 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
002d 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
002f 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0031 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0033 029a 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call,Visible,Unelaborated
0035 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0037 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
0039 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
003b 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
003d 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
003f 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
0041 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
0043 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
0045 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
0047 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
0049 4802       |H   |		Short_Literal	0x2
004a 032b       | +  |		Declare_Type	Record,Incomplete,Visible
004b 4804       |H   |		Short_Literal	0x4
004c 032b       | +  |		Declare_Type	Record,Incomplete,Visible
004d 00d8       |    |		Load_Top	At_Offset_0
004e 02a0       |    |		Declare_Subprogram	Null_Subprogram
004f 4818       |H   |		Short_Literal	0x18
0050 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0051 00d8       |    |		Load_Top	At_Offset_0
0052 0221       | !  |		Execute	Access,Allow_Deallocate
0053 00da       |    |		Load_Top	At_Offset_2
0054 02a0       |    |		Declare_Subprogram	Null_Subprogram
0055 4818       |H   |		Short_Literal	0x18
0056 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
0057 00d8       |    |		Load_Top	At_Offset_0
0058 0221       | !  |		Execute	Access,Allow_Deallocate
0059 00d8       |    |		Load_Top	At_Offset_0
005a 0129       | )  |		Execute	Any,Make_Visible
005b c215       |    |		Store	0x1,0x15
005c 00d8       |    |		Load_Top	At_Offset_0
005d 00da       |    |		Load_Top	At_Offset_2
005e e002       |    |		Load	0x0,0x2
005f 029f 0733  |   3|		Declare_Subprogram	INIT_0730,For_Call
0061 4803       |H   |		Short_Literal	0x3
0062 032e       | .  |		Declare_Type	Record,Defined,Visible
0063 00d8       |    |		Load_Top	At_Offset_0
0064 0322       | "  |		Declare_Variable	Record
0065 00da       |    |		Load_Top	At_Offset_2
0066 00d9       |    |		Load_Top	At_Offset_1
0067 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0068 00db       |    |		Load_Top	At_Offset_3
0069 00d9       |    |		Load_Top	At_Offset_1
006a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
006b 4800       |H   |		Short_Literal	0x0
006c 00d9       |    |		Load_Top	At_Offset_1
006d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
006e 0129       | )  |		Execute	Any,Make_Visible
006f c216       |    |		Store	0x1,0x16
0070 0007       |    |		Action	Break_Optional
0071 00bf       |    |		Action	Accept_Activation
0072 e003       |    |		Load	0x0,0x3
0073 00db       |    |		Load_Top	At_Offset_3
0074 e212       |    |		Load	0x1,0x12
0075 e211       |    |		Load	0x1,0x11
0076 029f 050b  |    |		Declare_Subprogram	INIT_0508,For_Call
0078 e22e       | .  |		Load	0x1,0x2e
0079 0326       | &  |		Complete_Type	Record,By_Defining
007a 00da       |    |		Load_Top	At_Offset_2
007b 03c4       |    |		Complete_Type	Access,By_Component_Completion
007c 00da       |    |		Load_Top	At_Offset_2
007d 0221       | !  |		Execute	Access,Allow_Deallocate
007e 4800       |H   |		Short_Literal	0x0
007f e213       |    |		Load	0x1,0x13
0080 0aff       |    |		Execute_Immediate	Plus,-0x1
0081 e003       |    |		Load	0x0,0x3
0082 025d       | ]  |		Execute	Discrete,Bounds_Check
0083 e22f       | /  |		Load	0x1,0x2f
0084 02a0       |    |		Declare_Subprogram	Null_Subprogram
0085 4801       |H   |		Short_Literal	0x1
0086 035d       | ]  |		Declare_Type	Array,Defined
0087 e002       |    |		Load	0x0,0x2
0088 00d9       |    |		Load_Top	At_Offset_1
0089 029f 051b  |    |		Declare_Subprogram	INIT_0518,For_Call
008b e22d       | -  |		Load	0x1,0x2d
008c 0326       | &  |		Complete_Type	Record,By_Defining
008d 00da       |    |		Load_Top	At_Offset_2
008e 03c4       |    |		Complete_Type	Access,By_Component_Completion
008f 00da       |    |		Load_Top	At_Offset_2
0090 0221       | !  |		Execute	Access,Allow_Deallocate
0091 a004       |    |		Store_Unchecked	0x0,0x4
0092 00c6       |    |		Action	Check_Subprogram_Elaborated
0093 e210       |    |		Load	0x1,0x10
0094 e211       |    |		Load	0x1,0x11
0095 e005       |    |		Load	0x0,0x5
0096 e006       |    |		Load	0x0,0x6
0097 4800       |H   |		Short_Literal	0x0
0098 0007       |    |		Action	Break_Optional
0099 a004       |    |		Store_Unchecked	0x0,0x4
009a 00c6       |    |		Action	Check_Subprogram_Elaborated
009b e22e       | .  |		Load	0x1,0x2e
009c e22f       | /  |		Load	0x1,0x2f
009d e007       |    |		Load	0x0,0x7
009e e008       |    |		Load	0x0,0x8
009f 4800       |H   |		Short_Literal	0x0
00a0 0007       |    |		Action	Break_Optional
00a1 a004       |    |		Store_Unchecked	0x0,0x4
00a2 00c6       |    |		Action	Check_Subprogram_Elaborated
00a3 e22d       | -  |		Load	0x1,0x2d
00a4 e230       | 0  |		Load	0x1,0x30
00a5 e009       |    |		Load	0x0,0x9
00a6 e00a       |    |		Load	0x0,0xa
00a7 4800       |H   |		Short_Literal	0x0
00a8 0007       |    |		Action	Break_Optional
00a9 029d 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Outer_Call
00ab 029d 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call
00ad 029d 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call
00af 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00be 00c7       |    |		Action	Elaborate_Subprogram
00bf 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00c0 00c7       |    |		Action	Elaborate_Subprogram
00c1 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00c2 00c7       |    |		Action	Elaborate_Subprogram
00c3 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00d0 00c7       |    |		Action	Elaborate_Subprogram
00d1 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00d2 00c7       |    |		Action	Elaborate_Subprogram
00d3 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00d4 00c7       |    |		Action	Elaborate_Subprogram
00d5 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00d6 00c7       |    |		Action	Elaborate_Subprogram
00d7			BODY_0008:
00d7 00bc       |    |		Action	Signal_Activated
00d8 00bb       |    |		Action	Signal_Completion
00d9 0000 0000  |    |		.BLANK	0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 e230       | 0  |		Load	0x1,0x30
00e4 03bc       |    |		Declare_Variable	Access,By_Allocation
00e5 00d8       |    |		Load_Top	At_Offset_0
00e6 0227       | '  |		Execute	Access,All_Reference
00e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e8 003b       | ;  |		Store_Top	Access,At_Offset_3
00e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ea 0000 0000  |    |		.XXX[0x2]
00ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
00f4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00ff       |    |		.CONST	0x00ff								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0003       |    |		.CONST	0x0003								; Number of locals
00fb			INIT_00f8:
00fb e22f       | /  |		Load	0x1,0x2f
00fc 0007       |    |		Action	Break_Optional
00fd e22f       | /  |		Load	0x1,0x2f
00fe 0007       |    |		Action	Break_Optional
00ff			BODY_00f8:
00ff e5ff       |    |		Load	0x2,-0x1
0100 7001       |p   |		Jump_Nonzero	0x102
0101 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0102 e5ff       |    |		Load	0x2,-0x1
0103 0227       | '  |		Execute	Access,All_Reference
0104 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0105 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0106 682f       |h/  |		Jump_Zero	0x136
0107 00cf       |    |		Action	Mark_Auxiliary
0108 e5ff       |    |		Load	0x2,-0x1
0109 0227       | '  |		Execute	Access,All_Reference
010a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
010b 01d9       |    |		Execute	Vector,Reverse_Bounds
010c 0263       | c  |		Execute	Discrete,Above_Bound
010d 7027       |p'  |		Jump_Nonzero	0x135
010e 00d8       |    |		Load_Top	At_Offset_0
010f e5ff       |    |		Load	0x2,-0x1
0110 0227       | '  |		Execute	Access,All_Reference
0111 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0112 01d7       |    |		Execute	Vector,Field_Read
0113 a402       |    |		Store_Unchecked	0x2,0x2
0114 00cf       |    |		Action	Mark_Auxiliary
0115 781a       |x   |		Jump	0x130
0116 e402       |    |		Load	0x2,0x2
0117 0227       | '  |		Execute	Access,All_Reference
0118 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0119 a403       |    |		Store_Unchecked	0x2,0x3
011a e402       |    |		Load	0x2,0x2
011b 0229       | )  |		Execute	Access,All_Read
011c 00d8       |    |		Load_Top	At_Offset_0
011d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
011e e234       | 4  |		Load	0x1,0x34
011f 0226       | &  |		Execute	Access,Convert
0120 e233       | 3  |		Load	0x1,0x33
0121 e234       | 4  |		Load	0x1,0x34
0122 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0123 8004       |    |		Call	0x0,0x4
0124 00d9       |    |		Load_Top	At_Offset_1
0125 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0126 00d1       |    |		Pop_Control	Pop_Count_1
0127 e402       |    |		Load	0x2,0x2
0128 e238       | 8  |		Load	0x1,0x38
0129 e239       | 9  |		Load	0x1,0x39
012a 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
012b 8004       |    |		Call	0x0,0x4
012c c402       |    |		Store	0x2,0x2
012d e403       |    |		Load	0x2,0x3
012e a402       |    |		Store_Unchecked	0x2,0x2
012f 00c9       |    |		Action	Pop_Auxiliary_Loop
0130 e402       |    |		Load	0x2,0x2
0131 77e4       |w   |		Jump_Nonzero	0x116
0132 00ce       |    |		Action	Pop_Auxiliary
0133 00c8       |    |		Action	Pop_Auxiliary_Range
0134 3fd9       |?   |		Loop_Increasing	0x10e
0135 00ce       |    |		Action	Pop_Auxiliary
0136 e5ff       |    |		Load	0x2,-0x1
0137 e23d       | =  |		Load	0x1,0x3d
0138 e23e       | >  |		Load	0x1,0x3e
0139 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
013a 8004       |    |		Call	0x0,0x4
013b c5ff       |    |		Store	0x2,-0x1
013c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
013d 0000 0000  |    |		.XXX[0x3]
013f 0000       |    |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2
0144 0227       | '  |		Execute	Access,All_Reference
0145 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0146 0f00       |    |		Execute_Immediate	Equal,0x0
0147 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 0227       | '  |		Execute	Access,All_Reference
014d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
014e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014f 0000       |    |		.XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0161       | a  |		.CONST	0x0161								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0004       |    |		.CONST	0x0004								; Number of locals
0153			INIT_0150:
0153 00db       |    |		Load_Top	At_Offset_3
0154 8242       | B  |		Call	0x1,0x42
0155 e003       |    |		Load	0x0,0x3
0156 03f1       |    |		Declare_Variable	Discrete,With_Value
0157 e22f       | /  |		Load	0x1,0x2f
0158 0007       |    |		Action	Break_Optional
0159 00d9       |    |		Load_Top	At_Offset_1
015a e213       |    |		Load	0x1,0x13
015b 026f       | o  |		Execute	Discrete,Remainder
015c e5ff       |    |		Load	0x2,-0x1
015d 0227       | '  |		Execute	Access,All_Reference
015e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
015f 01d7       |    |		Execute	Vector,Field_Read
0160 0007       |    |		Action	Break_Optional
0161			BODY_0150:
0161 00d8       |    |		Load_Top	At_Offset_0
0162 e22f       | /  |		Load	0x1,0x2f
0163 e5fe       |    |		Load	0x2,-0x2
0164 e402       |    |		Load	0x2,0x2
0165 8244       | D  |		Call	0x1,0x44
0166 003b       | ;  |		Store_Top	Access,At_Offset_3
0167 0039       | 9  |		Store_Top	Access,At_Offset_1
0168 00d8       |    |		Load_Top	At_Offset_0
0169 6807       |h   |		Jump_Zero	0x171
016a 00d8       |    |		Load_Top	At_Offset_0
016b 0227       | '  |		Execute	Access,All_Reference
016c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
016d c5fd       |    |		Store	0x2,-0x3
016e 4801       |H   |		Short_Literal	0x1
016f a5fc       |    |		Store_Unchecked	0x2,-0x4
0170 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0171 4800       |H   |		Short_Literal	0x0
0172 a5fc       |    |		Store_Unchecked	0x2,-0x4
0173 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0189       |    |		.CONST	0x0189								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0004       |    |		.CONST	0x0004								; Number of locals
017b			INIT_0178:
017b 00db       |    |		Load_Top	At_Offset_3
017c 8242       | B  |		Call	0x1,0x42
017d e003       |    |		Load	0x0,0x3
017e 03f1       |    |		Declare_Variable	Discrete,With_Value
017f e22f       | /  |		Load	0x1,0x2f
0180 0007       |    |		Action	Break_Optional
0181 00d9       |    |		Load_Top	At_Offset_1
0182 e213       |    |		Load	0x1,0x13
0183 026f       | o  |		Execute	Discrete,Remainder
0184 e5ff       |    |		Load	0x2,-0x1
0185 0227       | '  |		Execute	Access,All_Reference
0186 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0187 01d7       |    |		Execute	Vector,Field_Read
0188 0007       |    |		Action	Break_Optional
0189			BODY_0178:
0189 00d8       |    |		Load_Top	At_Offset_0
018a e22f       | /  |		Load	0x1,0x2f
018b e5fe       |    |		Load	0x2,-0x2
018c e402       |    |		Load	0x2,0x2
018d 8244       | D  |		Call	0x1,0x44
018e 003b       | ;  |		Store_Top	Access,At_Offset_3
018f 0039       | 9  |		Store_Top	Access,At_Offset_1
0190 00d8       |    |		Load_Top	At_Offset_0
0191 680b       |h   |		Jump_Zero	0x19d
0192 00d8       |    |		Load_Top	At_Offset_0
0193 0227       | '  |		Execute	Access,All_Reference
0194 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0195 c5fc       |    |		Store	0x2,-0x4
0196 00d8       |    |		Load_Top	At_Offset_0
0197 0227       | '  |		Execute	Access,All_Reference
0198 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0199 a5fd       |    |		Store_Unchecked	0x2,-0x3
019a 4801       |H   |		Short_Literal	0x1
019b a5fb       |    |		Store_Unchecked	0x2,-0x5
019c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
019d 4800       |H   |		Short_Literal	0x0
019e a5fb       |    |		Store_Unchecked	0x2,-0x5
019f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b2       |    |		.CONST	0x01b2								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0004       |    |		.CONST	0x0004								; Number of locals
01a3			INIT_01a0:
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 0227       | '  |		Execute	Access,All_Reference
01a5 8242       | B  |		Call	0x1,0x42
01a6 e003       |    |		Load	0x0,0x3
01a7 03f1       |    |		Declare_Variable	Discrete,With_Value
01a8 e22f       | /  |		Load	0x1,0x2f
01a9 0007       |    |		Action	Break_Optional
01aa 00d9       |    |		Load_Top	At_Offset_1
01ab e213       |    |		Load	0x1,0x13
01ac 026f       | o  |		Execute	Discrete,Remainder
01ad e5ff       |    |		Load	0x2,-0x1
01ae 0227       | '  |		Execute	Access,All_Reference
01af 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01b0 01d7       |    |		Execute	Vector,Field_Read
01b1 0007       |    |		Action	Break_Optional
01b2			BODY_01a0:
01b2 00d8       |    |		Load_Top	At_Offset_0
01b3 e22f       | /  |		Load	0x1,0x2f
01b4 e5fe       |    |		Load	0x2,-0x2
01b5 0227       | '  |		Execute	Access,All_Reference
01b6 e402       |    |		Load	0x2,0x2
01b7 8244       | D  |		Call	0x1,0x44
01b8 003b       | ;  |		Store_Top	Access,At_Offset_3
01b9 0039       | 9  |		Store_Top	Access,At_Offset_1
01ba 00d8       |    |		Load_Top	At_Offset_0
01bb 680b       |h   |		Jump_Zero	0x1c7
01bc 00d8       |    |		Load_Top	At_Offset_0
01bd 0227       | '  |		Execute	Access,All_Reference
01be 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01bf c5fd       |    |		Store	0x2,-0x3
01c0 00d8       |    |		Load_Top	At_Offset_0
01c1 0227       | '  |		Execute	Access,All_Reference
01c2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01c3 a5fe       |    |		Store_Unchecked	0x2,-0x2
01c4 4801       |H   |		Short_Literal	0x1
01c5 a5fc       |    |		Store_Unchecked	0x2,-0x4
01c6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c7 4800       |H   |		Short_Literal	0x0
01c8 a5fc       |    |		Store_Unchecked	0x2,-0x4
01c9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01ca 0000 0000  |    |		.BLANK	0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e1       |    |		.CONST	0x01e1								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0004       |    |		.CONST	0x0004								; Number of locals
01d3			INIT_01d0:
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 8242       | B  |		Call	0x1,0x42
01d5 e003       |    |		Load	0x0,0x3
01d6 03f1       |    |		Declare_Variable	Discrete,With_Value
01d7 e22f       | /  |		Load	0x1,0x2f
01d8 0007       |    |		Action	Break_Optional
01d9 00d9       |    |		Load_Top	At_Offset_1
01da e213       |    |		Load	0x1,0x13
01db 026f       | o  |		Execute	Discrete,Remainder
01dc e5ff       |    |		Load	0x2,-0x1
01dd 0227       | '  |		Execute	Access,All_Reference
01de 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01df 01d7       |    |		Execute	Vector,Field_Read
01e0 0007       |    |		Action	Break_Optional
01e1			BODY_01d0:
01e1 00d8       |    |		Load_Top	At_Offset_0
01e2 e22f       | /  |		Load	0x1,0x2f
01e3 e5fe       |    |		Load	0x2,-0x2
01e4 e402       |    |		Load	0x2,0x2
01e5 8244       | D  |		Call	0x1,0x44
01e6 003b       | ;  |		Store_Top	Access,At_Offset_3
01e7 0039       | 9  |		Store_Top	Access,At_Offset_1
01e8 00d8       |    |		Load_Top	At_Offset_0
01e9 680b       |h   |		Jump_Zero	0x1f5
01ea 00d8       |    |		Load_Top	At_Offset_0
01eb 0227       | '  |		Execute	Access,All_Reference
01ec 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01ed 00d8       |    |		Load_Top	At_Offset_0
01ee 0120       |    |		Execute	Any,Is_Value
01ef 7002       |p   |		Jump_Nonzero	0x1f2
01f0 00d8       |    |		Load_Top	At_Offset_0
01f1 011e       |    |		Execute	Any,Convert
01f2 e212       |    |		Load	0x1,0x12
01f3 0119       |    |		Execute	Any,Check_In_Formal_Type
01f4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f5 e218       |    |		Load	0x1,0x18
01f6 0257       | W  |		Execute	Discrete,Raise
01f7 0000       |    |		.XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 020a       |    |		.CONST	0x020a								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0005       |    |		.CONST	0x0005								; Number of locals
01fb			INIT_01f8:
01fb 00db       |    |		Load_Top	At_Offset_3
01fc 8242       | B  |		Call	0x1,0x42
01fd e003       |    |		Load	0x0,0x3
01fe 03f1       |    |		Declare_Variable	Discrete,With_Value
01ff e22f       | /  |		Load	0x1,0x2f
0200 0007       |    |		Action	Break_Optional
0201 00d9       |    |		Load_Top	At_Offset_1
0202 e213       |    |		Load	0x1,0x13
0203 026f       | o  |		Execute	Discrete,Remainder
0204 e5ff       |    |		Load	0x2,-0x1
0205 0227       | '  |		Execute	Access,All_Reference
0206 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0207 01d7       |    |		Execute	Vector,Field_Read
0208 029f 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Call
020a			BODY_01f8:
020a 00d9       |    |		Load_Top	At_Offset_1
020b e22f       | /  |		Load	0x1,0x2f
020c e5fe       |    |		Load	0x2,-0x2
020d e402       |    |		Load	0x2,0x2
020e 8244       | D  |		Call	0x1,0x44
020f c403       |    |		Store	0x2,0x3
0210 003a       | :  |		Store_Top	Access,At_Offset_2
0211 00d9       |    |		Load_Top	At_Offset_1
0212 6809       |h   |		Jump_Zero	0x21c
0213 e5fc       |    |		Load	0x2,-0x4
0214 6805       |h   |		Jump_Zero	0x21a
0215 e5fd       |    |		Load	0x2,-0x3
0216 00da       |    |		Load_Top	At_Offset_2
0217 0227       | '  |		Execute	Access,All_Reference
0218 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0219 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
021a e217       |    |		Load	0x1,0x17
021b 0257       | W  |		Execute	Discrete,Raise
021c 8405       |    |		Call	0x2,0x5
021d 00db       |    |		Load_Top	At_Offset_3
021e e213       |    |		Load	0x1,0x13
021f 026f       | o  |		Execute	Discrete,Remainder
0220 c402       |    |		Store	0x2,0x2
0221 00db       |    |		Load_Top	At_Offset_3
0222 e5ff       |    |		Load	0x2,-0x1
0223 0227       | '  |		Execute	Access,All_Reference
0224 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0225 01d7       |    |		Execute	Vector,Field_Read
0226 00da       |    |		Load_Top	At_Offset_2
0227 0227       | '  |		Execute	Access,All_Reference
0228 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0229 00d9       |    |		Load_Top	At_Offset_1
022a e402       |    |		Load	0x2,0x2
022b e5ff       |    |		Load	0x2,-0x1
022c 0227       | '  |		Execute	Access,All_Reference
022d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
022e 01d6       |    |		Execute	Vector,Field_Write
022f e5ff       |    |		Load	0x2,-0x1
0230 0227       | '  |		Execute	Access,All_Reference
0231 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0232 0a01       |    |		Execute_Immediate	Plus,0x1
0233 e5ff       |    |		Load	0x2,-0x1
0234 0227       | '  |		Execute	Access,All_Reference
0235 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0236 e214       |    |		Load	0x1,0x14
0237 703c       |p<  |		Jump_Nonzero	0x274
0238 00cf       |    |		Action	Mark_Auxiliary
0239 00da       |    |		Load_Top	At_Offset_2
023a 0227       | '  |		Execute	Access,All_Reference
023b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
023c 0227       | '  |		Execute	Access,All_Reference
023d 01d9       |    |		Execute	Vector,Reverse_Bounds
023e 0263       | c  |		Execute	Discrete,Above_Bound
023f 7033       |p3  |		Jump_Nonzero	0x273
0240 00d8       |    |		Load_Top	At_Offset_0
0241 e404       |    |		Load	0x2,0x4
0242 0227       | '  |		Execute	Access,All_Reference
0243 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0244 0227       | '  |		Execute	Access,All_Reference
0245 01d7       |    |		Execute	Vector,Field_Read
0246 4861       |Ha  |		Short_Literal	0x61
0247 e20e       |    |		Load	0x1,0xe
0248 1c05       |    |		Execute_Immediate	Run_Utility,0x5
0249 00d8       |    |		Load_Top	At_Offset_0
024a e20e       |    |		Load	0x1,0xe
024b 0122       | "  |		Execute	Any,Make_Root_Type
024c 0260       | `  |		Execute	Discrete,In_Type
024d 7001       |p   |		Jump_Nonzero	0x24f
024e 0801       |    |		Execute_Immediate	Raise,0x1
024f 487a       |Hz  |		Short_Literal	0x7a
0250 e20e       |    |		Load	0x1,0xe
0251 1c05       |    |		Execute_Immediate	Run_Utility,0x5
0252 00d8       |    |		Load_Top	At_Offset_0
0253 e20e       |    |		Load	0x1,0xe
0254 0122       | "  |		Execute	Any,Make_Root_Type
0255 0260       | `  |		Execute	Discrete,In_Type
0256 7001       |p   |		Jump_Nonzero	0x258
0257 0801       |    |		Execute_Immediate	Raise,0x1
0258 0262       | b  |		Execute	Discrete,In_Range
0259 6817       |h   |		Jump_Zero	0x271
025a 00d8       |    |		Load_Top	At_Offset_0
025b e404       |    |		Load	0x2,0x4
025c 0227       | '  |		Execute	Access,All_Reference
025d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
025e 0227       | '  |		Execute	Access,All_Reference
025f 01d7       |    |		Execute	Vector,Field_Read
0260 e20e       |    |		Load	0x1,0xe
0261 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0262 0ae0       |    |		Execute_Immediate	Plus,-0x20
0263 e20e       |    |		Load	0x1,0xe
0264 1c05       |    |		Execute_Immediate	Run_Utility,0x5
0265 00d8       |    |		Load_Top	At_Offset_0
0266 e20e       |    |		Load	0x1,0xe
0267 0122       | "  |		Execute	Any,Make_Root_Type
0268 0260       | `  |		Execute	Discrete,In_Type
0269 7001       |p   |		Jump_Nonzero	0x26b
026a 0801       |    |		Execute_Immediate	Raise,0x1
026b 00d9       |    |		Load_Top	At_Offset_1
026c e404       |    |		Load	0x2,0x4
026d 0227       | '  |		Execute	Access,All_Reference
026e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
026f 0227       | '  |		Execute	Access,All_Reference
0270 01d6       |    |		Execute	Vector,Field_Write
0271 00c8       |    |		Action	Pop_Auxiliary_Range
0272 3fcd       |?   |		Loop_Increasing	0x240
0273 00ce       |    |		Action	Pop_Auxiliary
0274 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0275 0000 0000  |    |		.XXX[0x3]
0277 0000       |    |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 028b       |    |		.CONST	0x028b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0005       |    |		.CONST	0x0005								; Number of locals
027b			INIT_0278:
027b 00db       |    |		Load_Top	At_Offset_3
027c 0227       | '  |		Execute	Access,All_Reference
027d 8242       | B  |		Call	0x1,0x42
027e e003       |    |		Load	0x0,0x3
027f 03f1       |    |		Declare_Variable	Discrete,With_Value
0280 e22f       | /  |		Load	0x1,0x2f
0281 0007       |    |		Action	Break_Optional
0282 00d9       |    |		Load_Top	At_Offset_1
0283 e213       |    |		Load	0x1,0x13
0284 026f       | o  |		Execute	Discrete,Remainder
0285 e5ff       |    |		Load	0x2,-0x1
0286 0227       | '  |		Execute	Access,All_Reference
0287 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0288 01d7       |    |		Execute	Vector,Field_Read
0289 029f 06cb  |    |		Declare_Subprogram	INIT_06c8,For_Call
028b			BODY_0278:
028b 00d9       |    |		Load_Top	At_Offset_1
028c e22f       | /  |		Load	0x1,0x2f
028d e5fe       |    |		Load	0x2,-0x2
028e 0227       | '  |		Execute	Access,All_Reference
028f e402       |    |		Load	0x2,0x2
0290 8244       | D  |		Call	0x1,0x44
0291 c403       |    |		Store	0x2,0x3
0292 003a       | :  |		Store_Top	Access,At_Offset_2
0293 00d9       |    |		Load_Top	At_Offset_1
0294 681a       |h   |		Jump_Zero	0x2af
0295 e5fc       |    |		Load	0x2,-0x4
0296 6816       |h   |		Jump_Zero	0x2ad
0297 00d9       |    |		Load_Top	At_Offset_1
0298 0229       | )  |		Execute	Access,All_Read
0299 00d8       |    |		Load_Top	At_Offset_0
029a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
029b e234       | 4  |		Load	0x1,0x34
029c 0226       | &  |		Execute	Access,Convert
029d e233       | 3  |		Load	0x1,0x33
029e e234       | 4  |		Load	0x1,0x34
029f 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
02a0 8004       |    |		Call	0x0,0x4
02a1 00d9       |    |		Load_Top	At_Offset_1
02a2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02a3 00d1       |    |		Pop_Control	Pop_Count_1
02a4 e5fe       |    |		Load	0x2,-0x2
02a5 00da       |    |		Load_Top	At_Offset_2
02a6 0227       | '  |		Execute	Access,All_Reference
02a7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02a8 e5fd       |    |		Load	0x2,-0x3
02a9 00da       |    |		Load_Top	At_Offset_2
02aa 0227       | '  |		Execute	Access,All_Reference
02ab 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02ac 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02ad e217       |    |		Load	0x1,0x17
02ae 0257       | W  |		Execute	Discrete,Raise
02af 8405       |    |		Call	0x2,0x5
02b0 00db       |    |		Load_Top	At_Offset_3
02b1 e213       |    |		Load	0x1,0x13
02b2 026f       | o  |		Execute	Discrete,Remainder
02b3 c402       |    |		Store	0x2,0x2
02b4 00db       |    |		Load_Top	At_Offset_3
02b5 e5ff       |    |		Load	0x2,-0x1
02b6 0227       | '  |		Execute	Access,All_Reference
02b7 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02b8 01d7       |    |		Execute	Vector,Field_Read
02b9 00da       |    |		Load_Top	At_Offset_2
02ba 0227       | '  |		Execute	Access,All_Reference
02bb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02bc 00d9       |    |		Load_Top	At_Offset_1
02bd e402       |    |		Load	0x2,0x2
02be e5ff       |    |		Load	0x2,-0x1
02bf 0227       | '  |		Execute	Access,All_Reference
02c0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02c1 01d6       |    |		Execute	Vector,Field_Write
02c2 e5ff       |    |		Load	0x2,-0x1
02c3 0227       | '  |		Execute	Access,All_Reference
02c4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c5 0a01       |    |		Execute_Immediate	Plus,0x1
02c6 e5ff       |    |		Load	0x2,-0x1
02c7 0227       | '  |		Execute	Access,All_Reference
02c8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02c9 e214       |    |		Load	0x1,0x14
02ca 703c       |p<  |		Jump_Nonzero	0x307
02cb 00cf       |    |		Action	Mark_Auxiliary
02cc 00da       |    |		Load_Top	At_Offset_2
02cd 0227       | '  |		Execute	Access,All_Reference
02ce 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02cf 0227       | '  |		Execute	Access,All_Reference
02d0 01d9       |    |		Execute	Vector,Reverse_Bounds
02d1 0263       | c  |		Execute	Discrete,Above_Bound
02d2 7033       |p3  |		Jump_Nonzero	0x306
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 e404       |    |		Load	0x2,0x4
02d5 0227       | '  |		Execute	Access,All_Reference
02d6 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02d7 0227       | '  |		Execute	Access,All_Reference
02d8 01d7       |    |		Execute	Vector,Field_Read
02d9 4861       |Ha  |		Short_Literal	0x61
02da e20e       |    |		Load	0x1,0xe
02db 1c05       |    |		Execute_Immediate	Run_Utility,0x5
02dc 00d8       |    |		Load_Top	At_Offset_0
02dd e20e       |    |		Load	0x1,0xe
02de 0122       | "  |		Execute	Any,Make_Root_Type
02df 0260       | `  |		Execute	Discrete,In_Type
02e0 7001       |p   |		Jump_Nonzero	0x2e2
02e1 0801       |    |		Execute_Immediate	Raise,0x1
02e2 487a       |Hz  |		Short_Literal	0x7a
02e3 e20e       |    |		Load	0x1,0xe
02e4 1c05       |    |		Execute_Immediate	Run_Utility,0x5
02e5 00d8       |    |		Load_Top	At_Offset_0
02e6 e20e       |    |		Load	0x1,0xe
02e7 0122       | "  |		Execute	Any,Make_Root_Type
02e8 0260       | `  |		Execute	Discrete,In_Type
02e9 7001       |p   |		Jump_Nonzero	0x2eb
02ea 0801       |    |		Execute_Immediate	Raise,0x1
02eb 0262       | b  |		Execute	Discrete,In_Range
02ec 6817       |h   |		Jump_Zero	0x304
02ed 00d8       |    |		Load_Top	At_Offset_0
02ee e404       |    |		Load	0x2,0x4
02ef 0227       | '  |		Execute	Access,All_Reference
02f0 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02f1 0227       | '  |		Execute	Access,All_Reference
02f2 01d7       |    |		Execute	Vector,Field_Read
02f3 e20e       |    |		Load	0x1,0xe
02f4 1c04       |    |		Execute_Immediate	Run_Utility,0x4
02f5 0ae0       |    |		Execute_Immediate	Plus,-0x20
02f6 e20e       |    |		Load	0x1,0xe
02f7 1c05       |    |		Execute_Immediate	Run_Utility,0x5
02f8 00d8       |    |		Load_Top	At_Offset_0
02f9 e20e       |    |		Load	0x1,0xe
02fa 0122       | "  |		Execute	Any,Make_Root_Type
02fb 0260       | `  |		Execute	Discrete,In_Type
02fc 7001       |p   |		Jump_Nonzero	0x2fe
02fd 0801       |    |		Execute_Immediate	Raise,0x1
02fe 00d9       |    |		Load_Top	At_Offset_1
02ff e404       |    |		Load	0x2,0x4
0300 0227       | '  |		Execute	Access,All_Reference
0301 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0302 0227       | '  |		Execute	Access,All_Reference
0303 01d6       |    |		Execute	Vector,Field_Write
0304 00c8       |    |		Action	Pop_Auxiliary_Range
0305 3fcd       |?   |		Loop_Increasing	0x2d3
0306 00ce       |    |		Action	Pop_Auxiliary
0307 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 031c       |    |		.CONST	0x031c								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0005       |    |		.CONST	0x0005								; Number of locals
030b			INIT_0308:
030b 00db       |    |		Load_Top	At_Offset_3
030c 8242       | B  |		Call	0x1,0x42
030d e003       |    |		Load	0x0,0x3
030e 03f1       |    |		Declare_Variable	Discrete,With_Value
030f 00d8       |    |		Load_Top	At_Offset_0
0310 e213       |    |		Load	0x1,0x13
0311 026f       | o  |		Execute	Discrete,Remainder
0312 e003       |    |		Load	0x0,0x3
0313 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0314 e22f       | /  |		Load	0x1,0x2f
0315 0007       |    |		Action	Break_Optional
0316 00d9       |    |		Load_Top	At_Offset_1
0317 e5ff       |    |		Load	0x2,-0x1
0318 0227       | '  |		Execute	Access,All_Reference
0319 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
031a 01d7       |    |		Execute	Vector,Field_Read
031b 0007       |    |		Action	Break_Optional
031c			BODY_0308:
031c 00d8       |    |		Load_Top	At_Offset_0
031d e22f       | /  |		Load	0x1,0x2f
031e e5fe       |    |		Load	0x2,-0x2
031f e402       |    |		Load	0x2,0x2
0320 8244       | D  |		Call	0x1,0x44
0321 003b       | ;  |		Store_Top	Access,At_Offset_3
0322 0039       | 9  |		Store_Top	Access,At_Offset_1
0323 00d8       |    |		Load_Top	At_Offset_0
0324 682c       |h,  |		Jump_Zero	0x351
0325 00d9       |    |		Load_Top	At_Offset_1
0326 7009       |p   |		Jump_Nonzero	0x330
0327 00d8       |    |		Load_Top	At_Offset_0
0328 0227       | '  |		Execute	Access,All_Reference
0329 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
032a 00db       |    |		Load_Top	At_Offset_3
032b e5ff       |    |		Load	0x2,-0x1
032c 0227       | '  |		Execute	Access,All_Reference
032d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
032e 01d6       |    |		Execute	Vector,Field_Write
032f 7806       |x   |		Jump	0x336
0330 00d8       |    |		Load_Top	At_Offset_0
0331 0227       | '  |		Execute	Access,All_Reference
0332 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0333 00da       |    |		Load_Top	At_Offset_2
0334 0227       | '  |		Execute	Access,All_Reference
0335 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0336 00d8       |    |		Load_Top	At_Offset_0
0337 0229       | )  |		Execute	Access,All_Read
0338 00d8       |    |		Load_Top	At_Offset_0
0339 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
033a e234       | 4  |		Load	0x1,0x34
033b 0226       | &  |		Execute	Access,Convert
033c e233       | 3  |		Load	0x1,0x33
033d e234       | 4  |		Load	0x1,0x34
033e 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
033f 8004       |    |		Call	0x0,0x4
0340 00d9       |    |		Load_Top	At_Offset_1
0341 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0342 00d1       |    |		Pop_Control	Pop_Count_1
0343 00d8       |    |		Load_Top	At_Offset_0
0344 e238       | 8  |		Load	0x1,0x38
0345 e239       | 9  |		Load	0x1,0x39
0346 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
0347 8004       |    |		Call	0x0,0x4
0348 0039       | 9  |		Store_Top	Access,At_Offset_1
0349 e5ff       |    |		Load	0x2,-0x1
034a 0227       | '  |		Execute	Access,All_Reference
034b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
034c 0aff       |    |		Execute_Immediate	Plus,-0x1
034d e5ff       |    |		Load	0x2,-0x1
034e 0227       | '  |		Execute	Access,All_Reference
034f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0350 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0351 e5fd       |    |		Load	0x2,-0x3
0352 6801       |h   |		Jump_Zero	0x354
0353 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0354 e218       |    |		Load	0x1,0x18
0355 0257       | W  |		Execute	Discrete,Raise
0356 0000 0000  |    |		.XXX[0x2]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 036c       | l  |		.CONST	0x036c								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0005       |    |		.CONST	0x0005								; Number of locals
035b			INIT_0358:
035b 00db       |    |		Load_Top	At_Offset_3
035c 8242       | B  |		Call	0x1,0x42
035d e003       |    |		Load	0x0,0x3
035e 03f1       |    |		Declare_Variable	Discrete,With_Value
035f 00d8       |    |		Load_Top	At_Offset_0
0360 e213       |    |		Load	0x1,0x13
0361 026f       | o  |		Execute	Discrete,Remainder
0362 e003       |    |		Load	0x0,0x3
0363 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0364 e22f       | /  |		Load	0x1,0x2f
0365 0007       |    |		Action	Break_Optional
0366 00d9       |    |		Load_Top	At_Offset_1
0367 e5ff       |    |		Load	0x2,-0x1
0368 0227       | '  |		Execute	Access,All_Reference
0369 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
036a 01d7       |    |		Execute	Vector,Field_Read
036b 0007       |    |		Action	Break_Optional
036c			BODY_0358:
036c 00d8       |    |		Load_Top	At_Offset_0
036d e22f       | /  |		Load	0x1,0x2f
036e e5fe       |    |		Load	0x2,-0x2
036f e402       |    |		Load	0x2,0x2
0370 8244       | D  |		Call	0x1,0x44
0371 003b       | ;  |		Store_Top	Access,At_Offset_3
0372 0039       | 9  |		Store_Top	Access,At_Offset_1
0373 00d8       |    |		Load_Top	At_Offset_0
0374 6832       |h2  |		Jump_Zero	0x3a7
0375 00d9       |    |		Load_Top	At_Offset_1
0376 7009       |p   |		Jump_Nonzero	0x380
0377 00d8       |    |		Load_Top	At_Offset_0
0378 0227       | '  |		Execute	Access,All_Reference
0379 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
037a 00db       |    |		Load_Top	At_Offset_3
037b e5ff       |    |		Load	0x2,-0x1
037c 0227       | '  |		Execute	Access,All_Reference
037d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
037e 01d6       |    |		Execute	Vector,Field_Write
037f 7806       |x   |		Jump	0x386
0380 00d8       |    |		Load_Top	At_Offset_0
0381 0227       | '  |		Execute	Access,All_Reference
0382 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0383 00da       |    |		Load_Top	At_Offset_2
0384 0227       | '  |		Execute	Access,All_Reference
0385 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0386 00d8       |    |		Load_Top	At_Offset_0
0387 0227       | '  |		Execute	Access,All_Reference
0388 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0389 c5fd       |    |		Store	0x2,-0x3
038a 00d8       |    |		Load_Top	At_Offset_0
038b 0229       | )  |		Execute	Access,All_Read
038c 00d8       |    |		Load_Top	At_Offset_0
038d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
038e e234       | 4  |		Load	0x1,0x34
038f 0226       | &  |		Execute	Access,Convert
0390 e233       | 3  |		Load	0x1,0x33
0391 e234       | 4  |		Load	0x1,0x34
0392 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0393 8004       |    |		Call	0x0,0x4
0394 00d9       |    |		Load_Top	At_Offset_1
0395 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0396 00d1       |    |		Pop_Control	Pop_Count_1
0397 00d8       |    |		Load_Top	At_Offset_0
0398 e238       | 8  |		Load	0x1,0x38
0399 e239       | 9  |		Load	0x1,0x39
039a 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
039b 8004       |    |		Call	0x0,0x4
039c 0039       | 9  |		Store_Top	Access,At_Offset_1
039d e5ff       |    |		Load	0x2,-0x1
039e 0227       | '  |		Execute	Access,All_Reference
039f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a0 0aff       |    |		Execute_Immediate	Plus,-0x1
03a1 e5ff       |    |		Load	0x2,-0x1
03a2 0227       | '  |		Execute	Access,All_Reference
03a3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03a4 4801       |H   |		Short_Literal	0x1
03a5 a5fc       |    |		Store_Unchecked	0x2,-0x4
03a6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03a7 4800       |H   |		Short_Literal	0x0
03a8 a5fc       |    |		Store_Unchecked	0x2,-0x4
03a9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03aa 0000 0000  |    |		.BLANK	0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00da       |    |		Load_Top	At_Offset_2
03b4 e5fe       |    |		Load	0x2,-0x2
03b5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03b6 00cf       |    |		Action	Mark_Auxiliary
03b7 e213       |    |		Load	0x1,0x13
03b8 0aff       |    |		Execute_Immediate	Plus,-0x1
03b9 4800       |H   |		Short_Literal	0x0
03ba e003       |    |		Load	0x0,0x3
03bb 025c       | \  |		QQucode_0x025c
03bc 0263       | c  |		Execute	Discrete,Above_Bound
03bd 7013       |p   |		Jump_Nonzero	0x3d1
03be 00d8       |    |		Load_Top	At_Offset_0
03bf e5ff       |    |		Load	0x2,-0x1
03c0 0227       | '  |		Execute	Access,All_Reference
03c1 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03c2 01d7       |    |		Execute	Vector,Field_Read
03c3 680b       |h   |		Jump_Zero	0x3cf
03c4 00d8       |    |		Load_Top	At_Offset_0
03c5 e5ff       |    |		Load	0x2,-0x1
03c6 0227       | '  |		Execute	Access,All_Reference
03c7 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03c8 01d7       |    |		Execute	Vector,Field_Read
03c9 e5fe       |    |		Load	0x2,-0x2
03ca 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03cb 00d8       |    |		Load_Top	At_Offset_0
03cc e5fe       |    |		Load	0x2,-0x2
03cd 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03ce 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03cf 00c8       |    |		Action	Pop_Auxiliary_Range
03d0 3fed       |?   |		Loop_Increasing	0x3be
03d1 00ce       |    |		Action	Pop_Auxiliary
03d2 e22f       | /  |		Load	0x1,0x2f
03d3 e5fe       |    |		Load	0x2,-0x2
03d4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03d5 e213       |    |		Load	0x1,0x13
03d6 e5fe       |    |		Load	0x2,-0x2
03d7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03d8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03d9 0000 0000  |    |		.BLANK	0000[0x7]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 00da       |    |		Load_Top	At_Offset_2
03e4 e5fd       |    |		Load	0x2,-0x3
03e5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03e6 00cf       |    |		Action	Mark_Auxiliary
03e7 e213       |    |		Load	0x1,0x13
03e8 0aff       |    |		Execute_Immediate	Plus,-0x1
03e9 4800       |H   |		Short_Literal	0x0
03ea e003       |    |		Load	0x0,0x3
03eb 025c       | \  |		QQucode_0x025c
03ec 0263       | c  |		Execute	Discrete,Above_Bound
03ed 702c       |p,  |		Jump_Nonzero	0x41a
03ee 00d8       |    |		Load_Top	At_Offset_0
03ef e5ff       |    |		Load	0x2,-0x1
03f0 0227       | '  |		Execute	Access,All_Reference
03f1 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03f2 01d7       |    |		Execute	Vector,Field_Read
03f3 6824       |h$  |		Jump_Zero	0x418
03f4 00d8       |    |		Load_Top	At_Offset_0
03f5 e5fd       |    |		Load	0x2,-0x3
03f6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03f7 0227       | '  |		Execute	Access,All_Reference
03f8 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03f9 01d7       |    |		Execute	Vector,Field_Read
03fa e5fd       |    |		Load	0x2,-0x3
03fb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03fc 00cf       |    |		Action	Mark_Auxiliary
03fd 0007       |    |		Action	Break_Optional
03fe e5fd       |    |		Load	0x2,-0x3
03ff 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0400 0227       | '  |		Execute	Access,All_Reference
0401 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0402 e5fe       |    |		Load	0x2,-0x2
0403 012f       | /  |		Execute	Any,Equal
0404 6804       |h   |		Jump_Zero	0x409
0405 00d9       |    |		Load_Top	At_Offset_1
0406 e5fd       |    |		Load	0x2,-0x3
0407 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0408 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0409 e5fd       |    |		Load	0x2,-0x3
040a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040b 0227       | '  |		Execute	Access,All_Reference
040c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
040d 7001       |p   |		Jump_Nonzero	0x40f
040e 7808       |x   |		Jump	0x417
040f e5fd       |    |		Load	0x2,-0x3
0410 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0411 0227       | '  |		Execute	Access,All_Reference
0412 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0413 e5fd       |    |		Load	0x2,-0x3
0414 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0415 00c9       |    |		Action	Pop_Auxiliary_Loop
0416 7fe7       |    |		Jump	0x3fe
0417 00ce       |    |		Action	Pop_Auxiliary
0418 00c8       |    |		Action	Pop_Auxiliary_Range
0419 3fd4       |?   |		Loop_Increasing	0x3ee
041a 00ce       |    |		Action	Pop_Auxiliary
041b e22f       | /  |		Load	0x1,0x2f
041c e5fd       |    |		Load	0x2,-0x3
041d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
041e e213       |    |		Load	0x1,0x13
041f e5fd       |    |		Load	0x2,-0x3
0420 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0421 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0422 0000 0000  |    |		.BLANK	0000[0x6]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 00da       |    |		Load_Top	At_Offset_2
042c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
042d 6802       |h   |		Jump_Zero	0x430
042e 4800       |H   |		Short_Literal	0x0
042f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0430 4801       |H   |		Short_Literal	0x1
0431 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0432 0000 0000  |    |		.BLANK	0000[0x6]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 00da       |    |		Load_Top	At_Offset_2
043c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
043d 7002       |p   |		Jump_Nonzero	0x440
043e e218       |    |		Load	0x1,0x18
043f 0257       | W  |		Execute	Discrete,Raise
0440 00da       |    |		Load_Top	At_Offset_2
0441 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0442 0227       | '  |		Execute	Access,All_Reference
0443 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0444 00d8       |    |		Load_Top	At_Offset_0
0445 0120       |    |		Execute	Any,Is_Value
0446 7002       |p   |		Jump_Nonzero	0x449
0447 00d8       |    |		Load_Top	At_Offset_0
0448 011e       |    |		Execute	Any,Convert
0449 e212       |    |		Load	0x1,0x12
044a 0119       |    |		Execute	Any,Check_In_Formal_Type
044b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
044c 0000 0000  |    |		.BLANK	0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 00da       |    |		Load_Top	At_Offset_2
0454 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0455 7002       |p   |		Jump_Nonzero	0x458
0456 e218       |    |		Load	0x1,0x18
0457 0257       | W  |		Execute	Discrete,Raise
0458 00da       |    |		Load_Top	At_Offset_2
0459 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
045a 0227       | '  |		Execute	Access,All_Reference
045b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
045c 0227       | '  |		Execute	Access,All_Reference
045d 0335       | 5  |		Declare_Variable	Array,Duplicate
045e 00cd       |    |		Action	Spare6_Action
045f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 00da       |    |		Load_Top	At_Offset_2
0464 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0465 7002       |p   |		Jump_Nonzero	0x468
0466 e218       |    |		Load	0x1,0x18
0467 0257       | W  |		Execute	Discrete,Raise
0468 00da       |    |		Load_Top	At_Offset_2
0469 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
046a 0227       | '  |		Execute	Access,All_Reference
046b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
046c e211       |    |		Load	0x1,0x11
046d 0223       | #  |		Execute	Access,Check_In_Type
046e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
046f 0000       |    |		.XXX[0x1]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 00da       |    |		Load_Top	At_Offset_2
0474 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0475 7002       |p   |		Jump_Nonzero	0x478
0476 e218       |    |		Load	0x1,0x18
0477 0257       | W  |		Execute	Discrete,Raise
0478 00da       |    |		Load_Top	At_Offset_2
0479 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047a 0227       | '  |		Execute	Access,All_Reference
047b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047c 6807       |h   |		Jump_Zero	0x484
047d 00da       |    |		Load_Top	At_Offset_2
047e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047f 0227       | '  |		Execute	Access,All_Reference
0480 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0481 00db       |    |		Load_Top	At_Offset_3
0482 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0483 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0484 00cf       |    |		Action	Mark_Auxiliary
0485 e213       |    |		Load	0x1,0x13
0486 0aff       |    |		Execute_Immediate	Plus,-0x1
0487 e5ff       |    |		Load	0x2,-0x1
0488 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0489 0a01       |    |		Execute_Immediate	Plus,0x1
048a 0263       | c  |		Execute	Discrete,Above_Bound
048b 7015       |p   |		Jump_Nonzero	0x4a1
048c 00d8       |    |		Load_Top	At_Offset_0
048d e5ff       |    |		Load	0x2,-0x1
048e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
048f 0227       | '  |		Execute	Access,All_Reference
0490 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0491 01d7       |    |		Execute	Vector,Field_Read
0492 680c       |h   |		Jump_Zero	0x49f
0493 00d8       |    |		Load_Top	At_Offset_0
0494 e5ff       |    |		Load	0x2,-0x1
0495 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0496 0227       | '  |		Execute	Access,All_Reference
0497 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0498 01d7       |    |		Execute	Vector,Field_Read
0499 e5ff       |    |		Load	0x2,-0x1
049a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
049b 00d8       |    |		Load_Top	At_Offset_0
049c e5ff       |    |		Load	0x2,-0x1
049d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
049e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
049f 00c8       |    |		Action	Pop_Auxiliary_Range
04a0 3feb       |?   |		Loop_Increasing	0x48c
04a1 00ce       |    |		Action	Pop_Auxiliary
04a2 e22f       | /  |		Load	0x1,0x2f
04a3 00db       |    |		Load_Top	At_Offset_3
04a4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04a6 0000 0000  |    |		.XXX[0x2]
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 00db       |    |		Load_Top	At_Offset_3
04ac 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04ad 7002       |p   |		Jump_Nonzero	0x4b0
04ae e218       |    |		Load	0x1,0x18
04af 0257       | W  |		Execute	Discrete,Raise
04b0 00db       |    |		Load_Top	At_Offset_3
04b1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04b2 0227       | '  |		Execute	Access,All_Reference
04b3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04b4 6819       |h   |		Jump_Zero	0x4ce
04b5 00cf       |    |		Action	Mark_Auxiliary
04b6 0007       |    |		Action	Break_Optional
04b7 e5fe       |    |		Load	0x2,-0x2
04b8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04b9 0227       | '  |		Execute	Access,All_Reference
04ba 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04bb e5fe       |    |		Load	0x2,-0x2
04bc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04bd e5fe       |    |		Load	0x2,-0x2
04be 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04bf 0227       | '  |		Execute	Access,All_Reference
04c0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04c1 e5ff       |    |		Load	0x2,-0x1
04c2 012f       | /  |		Execute	Any,Equal
04c3 6801       |h   |		Jump_Zero	0x4c5
04c4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04c5 e5fe       |    |		Load	0x2,-0x2
04c6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04c7 0227       | '  |		Execute	Access,All_Reference
04c8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04c9 7001       |p   |		Jump_Nonzero	0x4cb
04ca 7802       |x   |		Jump	0x4cd
04cb 00c9       |    |		Action	Pop_Auxiliary_Loop
04cc 7fea       |    |		Jump	0x4b7
04cd 00ce       |    |		Action	Pop_Auxiliary
04ce 00cf       |    |		Action	Mark_Auxiliary
04cf e213       |    |		Load	0x1,0x13
04d0 0aff       |    |		Execute_Immediate	Plus,-0x1
04d1 e5fe       |    |		Load	0x2,-0x2
04d2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04d3 0a01       |    |		Execute_Immediate	Plus,0x1
04d4 0263       | c  |		Execute	Discrete,Above_Bound
04d5 702d       |p-  |		Jump_Nonzero	0x503
04d6 00d8       |    |		Load_Top	At_Offset_0
04d7 e5fe       |    |		Load	0x2,-0x2
04d8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04d9 0227       | '  |		Execute	Access,All_Reference
04da 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04db 01d7       |    |		Execute	Vector,Field_Read
04dc 6824       |h$  |		Jump_Zero	0x501
04dd 00d8       |    |		Load_Top	At_Offset_0
04de e5fe       |    |		Load	0x2,-0x2
04df 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04e0 0227       | '  |		Execute	Access,All_Reference
04e1 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
04e2 01d7       |    |		Execute	Vector,Field_Read
04e3 e5fe       |    |		Load	0x2,-0x2
04e4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04e5 00cf       |    |		Action	Mark_Auxiliary
04e6 0007       |    |		Action	Break_Optional
04e7 e5fe       |    |		Load	0x2,-0x2
04e8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04e9 0227       | '  |		Execute	Access,All_Reference
04ea 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04eb e5ff       |    |		Load	0x2,-0x1
04ec 012f       | /  |		Execute	Any,Equal
04ed 6804       |h   |		Jump_Zero	0x4f2
04ee 00d9       |    |		Load_Top	At_Offset_1
04ef e5fe       |    |		Load	0x2,-0x2
04f0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04f1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04f2 e5fe       |    |		Load	0x2,-0x2
04f3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04f4 0227       | '  |		Execute	Access,All_Reference
04f5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04f6 7001       |p   |		Jump_Nonzero	0x4f8
04f7 7808       |x   |		Jump	0x500
04f8 e5fe       |    |		Load	0x2,-0x2
04f9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04fa 0227       | '  |		Execute	Access,All_Reference
04fb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04fc e5fe       |    |		Load	0x2,-0x2
04fd 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04fe 00c9       |    |		Action	Pop_Auxiliary_Loop
04ff 7fe7       |    |		Jump	0x4e7
0500 00ce       |    |		Action	Pop_Auxiliary
0501 00c8       |    |		Action	Pop_Auxiliary_Range
0502 3fd3       |?   |		Loop_Increasing	0x4d6
0503 00ce       |    |		Action	Pop_Auxiliary
0504 e22f       | /  |		Load	0x1,0x2f
0505 e5fe       |    |		Load	0x2,-0x2
0506 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0507 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			INIT_0508:
050b 4601       |F   |		Jump_Case	0x2
050c 7801       |x   |		Jump	0x50e								; case 0x0
050d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
050e 4800       |H   |		Short_Literal	0x0
050f 00db       |    |		Load_Top	At_Offset_3
0510 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0511 00da       |    |		Load_Top	At_Offset_2
0512 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0513 0125       | %  |		Execute	Any,Set_Constraint
0514 00da       |    |		Load_Top	At_Offset_2
0515 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0516 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0517 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b       |    |		.CONST	0x051b								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0001       |    |		.CONST	0x0001								; Number of locals
051b			BODY_0518:
051b			INIT_0518:
051b 4601       |F   |		Jump_Case	0x2
051c 7801       |x   |		Jump	0x51e								; case 0x0
051d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
051e 4800       |H   |		Short_Literal	0x0
051f 00db       |    |		Load_Top	At_Offset_3
0520 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0521 e22d       | -  |		Load	0x1,0x2d
0522 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0523 0337       | 7  |		Declare_Variable	Array
0524 e22d       | -  |		Load	0x1,0x2d
0525 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0526 01d9       |    |		Execute	Vector,Reverse_Bounds
0527 0263       | c  |		Execute	Discrete,Above_Bound
0528 7005       |p   |		Jump_Nonzero	0x52e
0529 e22f       | /  |		Load	0x1,0x2f
052a 00d9       |    |		Load_Top	At_Offset_1
052b e402       |    |		Load	0x2,0x2
052c 01d6       |    |		Execute	Vector,Field_Write
052d 3ffb       |?   |		Loop_Increasing	0x529
052e 00db       |    |		Load_Top	At_Offset_3
052f 00d9       |    |		Load_Top	At_Offset_1
0530 00d9       |    |		Load_Top	At_Offset_1
0531 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0532 0119       |    |		Execute	Any,Check_In_Formal_Type
0533 00d1       |    |		Pop_Control	Pop_Count_1
0534 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0535 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0536 0000 0000  |    |		.XXX[0x2]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 054e       | N  |		.CONST	0x054e								; Address of begin
0539 0004       |    |		.CONST	0x0004								; Address of exception handler
053a 0003       |    |		.CONST	0x0003								; Number of locals
053b			INIT_0538:
053b 00da       |    |		Load_Top	At_Offset_2
053c 01dd       |    |		Execute	Vector,First
053d 00d8       |    |		Load_Top	At_Offset_0
053e e003       |    |		Load	0x0,0x3
053f 0260       | `  |		Execute	Discrete,In_Type
0540 7001       |p   |		Jump_Nonzero	0x542
0541 0801       |    |		Execute_Immediate	Raise,0x1
0542 00db       |    |		Load_Top	At_Offset_3
0543 01dc       |    |		Execute	Vector,Last
0544 00d8       |    |		Load_Top	At_Offset_0
0545 e003       |    |		Load	0x0,0x3
0546 0260       | `  |		Execute	Discrete,In_Type
0547 7001       |p   |		Jump_Nonzero	0x549
0548 0801       |    |		Execute_Immediate	Raise,0x1
0549 e00b       |    |		Load	0x0,0xb
054a 035b       | [  |		Declare_Type	Array,Constrained
054b 0337       | 7  |		Declare_Variable	Array
054c 029f 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Call
054e			BODY_0538:
054e e214       |    |		Load	0x1,0x14
054f 6816       |h   |		Jump_Zero	0x566
0550 00cf       |    |		Action	Mark_Auxiliary
0551 e5ff       |    |		Load	0x2,-0x1
0552 01d9       |    |		Execute	Vector,Reverse_Bounds
0553 0263       | c  |		Execute	Discrete,Above_Bound
0554 700f       |p   |		Jump_Nonzero	0x564
0555 00d8       |    |		Load_Top	At_Offset_0
0556 e5ff       |    |		Load	0x2,-0x1
0557 01d7       |    |		Execute	Vector,Field_Read
0558 e20e       |    |		Load	0x1,0xe
0559 1c04       |    |		Execute_Immediate	Run_Utility,0x4
055a 00d9       |    |		Load_Top	At_Offset_1
055b 00d8       |    |		Load_Top	At_Offset_0
055c e002       |    |		Load	0x0,0x2
055d 0260       | `  |		Execute	Discrete,In_Type
055e 7001       |p   |		Jump_Nonzero	0x560
055f 0801       |    |		Execute_Immediate	Raise,0x1
0560 e402       |    |		Load	0x2,0x2
0561 01d6       |    |		Execute	Vector,Field_Write
0562 00c8       |    |		Action	Pop_Auxiliary_Range
0563 3ff1       |?   |		Loop_Increasing	0x555
0564 00ce       |    |		Action	Pop_Auxiliary
0565 783b       |x;  |		Jump	0x5a1
0566 00cf       |    |		Action	Mark_Auxiliary
0567 e5ff       |    |		Load	0x2,-0x1
0568 01d9       |    |		Execute	Vector,Reverse_Bounds
0569 0263       | c  |		Execute	Discrete,Above_Bound
056a 7035       |p5  |		Jump_Nonzero	0x5a0
056b 00d8       |    |		Load_Top	At_Offset_0
056c e5ff       |    |		Load	0x2,-0x1
056d 01d7       |    |		Execute	Vector,Field_Read
056e 4861       |Ha  |		Short_Literal	0x61
056f e20e       |    |		Load	0x1,0xe
0570 1c05       |    |		Execute_Immediate	Run_Utility,0x5
0571 00d8       |    |		Load_Top	At_Offset_0
0572 e20e       |    |		Load	0x1,0xe
0573 0122       | "  |		Execute	Any,Make_Root_Type
0574 0260       | `  |		Execute	Discrete,In_Type
0575 7001       |p   |		Jump_Nonzero	0x577
0576 0801       |    |		Execute_Immediate	Raise,0x1
0577 487a       |Hz  |		Short_Literal	0x7a
0578 e20e       |    |		Load	0x1,0xe
0579 1c05       |    |		Execute_Immediate	Run_Utility,0x5
057a 00d8       |    |		Load_Top	At_Offset_0
057b e20e       |    |		Load	0x1,0xe
057c 0122       | "  |		Execute	Any,Make_Root_Type
057d 0260       | `  |		Execute	Discrete,In_Type
057e 7001       |p   |		Jump_Nonzero	0x580
057f 0801       |    |		Execute_Immediate	Raise,0x1
0580 0262       | b  |		Execute	Discrete,In_Range
0581 680f       |h   |		Jump_Zero	0x591
0582 00d8       |    |		Load_Top	At_Offset_0
0583 e5ff       |    |		Load	0x2,-0x1
0584 01d7       |    |		Execute	Vector,Field_Read
0585 e20e       |    |		Load	0x1,0xe
0586 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0587 0ae0       |    |		Execute_Immediate	Plus,-0x20
0588 00d9       |    |		Load_Top	At_Offset_1
0589 00d8       |    |		Load_Top	At_Offset_0
058a e002       |    |		Load	0x0,0x2
058b 0260       | `  |		Execute	Discrete,In_Type
058c 7001       |p   |		Jump_Nonzero	0x58e
058d 0801       |    |		Execute_Immediate	Raise,0x1
058e e402       |    |		Load	0x2,0x2
058f 01d6       |    |		Execute	Vector,Field_Write
0590 780d       |x   |		Jump	0x59e
0591 00d8       |    |		Load_Top	At_Offset_0
0592 e5ff       |    |		Load	0x2,-0x1
0593 01d7       |    |		Execute	Vector,Field_Read
0594 e20e       |    |		Load	0x1,0xe
0595 1c04       |    |		Execute_Immediate	Run_Utility,0x4
0596 00d9       |    |		Load_Top	At_Offset_1
0597 00d8       |    |		Load_Top	At_Offset_0
0598 e002       |    |		Load	0x0,0x2
0599 0260       | `  |		Execute	Discrete,In_Type
059a 7001       |p   |		Jump_Nonzero	0x59c
059b 0801       |    |		Execute_Immediate	Raise,0x1
059c e402       |    |		Load	0x2,0x2
059d 01d6       |    |		Execute	Vector,Field_Write
059e 00c8       |    |		Action	Pop_Auxiliary_Range
059f 3fcb       |?   |		Loop_Increasing	0x56b
05a0 00ce       |    |		Action	Pop_Auxiliary
05a1 e5ff       |    |		Load	0x2,-0x1
05a2 01db       |    |		Execute	Vector,Length
05a3 00d8       |    |		Load_Top	At_Offset_0
05a4 4800       |H   |		Short_Literal	0x0
05a5 4804       |H   |		Short_Literal	0x4
05a6 0262       | b  |		Execute	Discrete,In_Range
05a7 6857       |hW  |		Jump_Zero	0x5ff
05a8 0b00       |    |		Execute_Immediate	Case_Compare,0x0
05a9 7024       |p$  |		Jump_Nonzero	0x5ce
05aa 0b01       |    |		Execute_Immediate	Case_Compare,0x1
05ab 7025       |p%  |		Jump_Nonzero	0x5d1
05ac 0b02       |    |		Execute_Immediate	Case_Compare,0x2
05ad 7029       |p)  |		Jump_Nonzero	0x5d7
05ae 0f03       |    |		Execute_Immediate	Equal,0x3
05af 7038       |p8  |		Jump_Nonzero	0x5e8
05b0 00d9       |    |		Load_Top	At_Offset_1
05b1 01dd       |    |		Execute	Vector,First
05b2 00da       |    |		Load_Top	At_Offset_2
05b3 01d7       |    |		Execute	Vector,Field_Read
05b4 0915       |    |		Execute_Immediate	Binary_Scale,0x15
05b5 00da       |    |		Load_Top	At_Offset_2
05b6 01dd       |    |		Execute	Vector,First
05b7 0a01       |    |		Execute_Immediate	Plus,0x1
05b8 00db       |    |		Load_Top	At_Offset_3
05b9 01d7       |    |		Execute	Vector,Field_Read
05ba 090e       |    |		Execute_Immediate	Binary_Scale,0xe
05bb 0273       | s  |		Execute	Discrete,Plus
05bc 00da       |    |		Load_Top	At_Offset_2
05bd 01dd       |    |		Execute	Vector,First
05be 0a02       |    |		Execute_Immediate	Plus,0x2
05bf 00db       |    |		Load_Top	At_Offset_3
05c0 01d7       |    |		Execute	Vector,Field_Read
05c1 0907       |    |		Execute_Immediate	Binary_Scale,0x7
05c2 0273       | s  |		Execute	Discrete,Plus
05c3 00da       |    |		Load_Top	At_Offset_2
05c4 01dc       |    |		Execute	Vector,Last
05c5 00db       |    |		Load_Top	At_Offset_3
05c6 01d7       |    |		Execute	Vector,Field_Read
05c7 0273       | s  |		Execute	Discrete,Plus
05c8 00d8       |    |		Load_Top	At_Offset_0
05c9 e003       |    |		Load	0x0,0x3
05ca 0260       | `  |		Execute	Discrete,In_Type
05cb 7001       |p   |		Jump_Nonzero	0x5cd
05cc 0801       |    |		Execute_Immediate	Raise,0x1
05cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05ce 00d1       |    |		Pop_Control	Pop_Count_1
05cf 4800       |H   |		Short_Literal	0x0
05d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05d1 00d1       |    |		Pop_Control	Pop_Count_1
05d2 00d9       |    |		Load_Top	At_Offset_1
05d3 01dd       |    |		Execute	Vector,First
05d4 00da       |    |		Load_Top	At_Offset_2
05d5 01d7       |    |		Execute	Vector,Field_Read
05d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05d7 00d1       |    |		Pop_Control	Pop_Count_1
05d8 00d9       |    |		Load_Top	At_Offset_1
05d9 01dd       |    |		Execute	Vector,First
05da 00da       |    |		Load_Top	At_Offset_2
05db 01d7       |    |		Execute	Vector,Field_Read
05dc 0907       |    |		Execute_Immediate	Binary_Scale,0x7
05dd 00da       |    |		Load_Top	At_Offset_2
05de 01dc       |    |		Execute	Vector,Last
05df 00db       |    |		Load_Top	At_Offset_3
05e0 01d7       |    |		Execute	Vector,Field_Read
05e1 0273       | s  |		Execute	Discrete,Plus
05e2 00d8       |    |		Load_Top	At_Offset_0
05e3 e003       |    |		Load	0x0,0x3
05e4 0260       | `  |		Execute	Discrete,In_Type
05e5 7001       |p   |		Jump_Nonzero	0x5e7
05e6 0801       |    |		Execute_Immediate	Raise,0x1
05e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05e8 00d9       |    |		Load_Top	At_Offset_1
05e9 01dd       |    |		Execute	Vector,First
05ea 00da       |    |		Load_Top	At_Offset_2
05eb 01d7       |    |		Execute	Vector,Field_Read
05ec 090e       |    |		Execute_Immediate	Binary_Scale,0xe
05ed 00da       |    |		Load_Top	At_Offset_2
05ee 01dd       |    |		Execute	Vector,First
05ef 0a01       |    |		Execute_Immediate	Plus,0x1
05f0 00db       |    |		Load_Top	At_Offset_3
05f1 01d7       |    |		Execute	Vector,Field_Read
05f2 0907       |    |		Execute_Immediate	Binary_Scale,0x7
05f3 0273       | s  |		Execute	Discrete,Plus
05f4 00da       |    |		Load_Top	At_Offset_2
05f5 01dc       |    |		Execute	Vector,Last
05f6 00db       |    |		Load_Top	At_Offset_3
05f7 01d7       |    |		Execute	Vector,Field_Read
05f8 0273       | s  |		Execute	Discrete,Plus
05f9 00d8       |    |		Load_Top	At_Offset_0
05fa e003       |    |		Load	0x0,0x3
05fb 0260       | `  |		Execute	Discrete,In_Type
05fc 7001       |p   |		Jump_Nonzero	0x5fe
05fd 0801       |    |		Execute_Immediate	Raise,0x1
05fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05ff 00d1       |    |		Pop_Control	Pop_Count_1
0600 8403       |    |		Call	0x2,0x3
0601 0831       | 1  |		Execute_Immediate	Raise,0x31
0602 0000 0000  |    |		.BLANK	0000[0x6]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0613       |    |		.CONST	0x0613								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0003       |    |		.CONST	0x0003								; Number of locals
060b			INIT_0608:
060b 00da       |    |		Load_Top	At_Offset_2
060c 01dd       |    |		Execute	Vector,First
060d e20f       |    |		Load	0x1,0xf
060e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
060f e5fe       |    |		Load	0x2,-0x2
0610 01dd       |    |		Execute	Vector,First
0611 e20f       |    |		Load	0x1,0xf
0612 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0613			BODY_0608:
0613 e5ff       |    |		Load	0x2,-0x1
0614 01db       |    |		Execute	Vector,Length
0615 e5fe       |    |		Load	0x2,-0x2
0616 01db       |    |		Execute	Vector,Length
0617 027e       | ~  |		Execute	Discrete,Not_Equal
0618 6802       |h   |		Jump_Zero	0x61b
0619 4800       |H   |		Short_Literal	0x0
061a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
061b 00cf       |    |		Action	Mark_Auxiliary
061c e5ff       |    |		Load	0x2,-0x1
061d 01db       |    |		Execute	Vector,Length
061e e20f       |    |		Load	0x1,0xf
061f 0122       | "  |		Execute	Any,Make_Root_Type
0620 00d9       |    |		Load_Top	At_Offset_1
0621 00d0       |    |		Action	Swap_Control
0622 0260       | `  |		Execute	Discrete,In_Type
0623 7001       |p   |		Jump_Nonzero	0x625
0624 0801       |    |		Execute_Immediate	Raise,0x1
0625 4801       |H   |		Short_Literal	0x1
0626 e20f       |    |		Load	0x1,0xf
0627 025c       | \  |		QQucode_0x025c
0628 0263       | c  |		Execute	Discrete,Above_Bound
0629 7045       |pE  |		Jump_Nonzero	0x66f
062a e402       |    |		Load	0x2,0x2
062b 00d9       |    |		Load_Top	At_Offset_1
062c 0273       | s  |		Execute	Discrete,Plus
062d 0aff       |    |		Execute_Immediate	Plus,-0x1
062e e5ff       |    |		Load	0x2,-0x1
062f 01d7       |    |		Execute	Vector,Field_Read
0630 e403       |    |		Load	0x2,0x3
0631 00da       |    |		Load_Top	At_Offset_2
0632 0273       | s  |		Execute	Discrete,Plus
0633 0aff       |    |		Execute_Immediate	Plus,-0x1
0634 e5fe       |    |		Load	0x2,-0x2
0635 01d7       |    |		Execute	Vector,Field_Read
0636 027e       | ~  |		Execute	Discrete,Not_Equal
0637 6835       |h5  |		Jump_Zero	0x66d
0638 e402       |    |		Load	0x2,0x2
0639 00d9       |    |		Load_Top	At_Offset_1
063a 0273       | s  |		Execute	Discrete,Plus
063b 0aff       |    |		Execute_Immediate	Plus,-0x1
063c e5ff       |    |		Load	0x2,-0x1
063d 01d7       |    |		Execute	Vector,Field_Read
063e 4861       |Ha  |		Short_Literal	0x61
063f e20e       |    |		Load	0x1,0xe
0640 1c05       |    |		Execute_Immediate	Run_Utility,0x5
0641 00d8       |    |		Load_Top	At_Offset_0
0642 e20e       |    |		Load	0x1,0xe
0643 0122       | "  |		Execute	Any,Make_Root_Type
0644 0260       | `  |		Execute	Discrete,In_Type
0645 7001       |p   |		Jump_Nonzero	0x647
0646 0801       |    |		Execute_Immediate	Raise,0x1
0647 487a       |Hz  |		Short_Literal	0x7a
0648 e20e       |    |		Load	0x1,0xe
0649 1c05       |    |		Execute_Immediate	Run_Utility,0x5
064a 00d8       |    |		Load_Top	At_Offset_0
064b e20e       |    |		Load	0x1,0xe
064c 0122       | "  |		Execute	Any,Make_Root_Type
064d 0260       | `  |		Execute	Discrete,In_Type
064e 7001       |p   |		Jump_Nonzero	0x650
064f 0801       |    |		Execute_Immediate	Raise,0x1
0650 0261       | a  |		Execute	Discrete,Not_In_Range
0651 7019       |p   |		Jump_Nonzero	0x66b
0652 e402       |    |		Load	0x2,0x2
0653 00d9       |    |		Load_Top	At_Offset_1
0654 0273       | s  |		Execute	Discrete,Plus
0655 0aff       |    |		Execute_Immediate	Plus,-0x1
0656 e5ff       |    |		Load	0x2,-0x1
0657 01d7       |    |		Execute	Vector,Field_Read
0658 e20e       |    |		Load	0x1,0xe
0659 1c04       |    |		Execute_Immediate	Run_Utility,0x4
065a 0ae0       |    |		Execute_Immediate	Plus,-0x20
065b e20e       |    |		Load	0x1,0xe
065c 1c05       |    |		Execute_Immediate	Run_Utility,0x5
065d 00d8       |    |		Load_Top	At_Offset_0
065e e20e       |    |		Load	0x1,0xe
065f 0122       | "  |		Execute	Any,Make_Root_Type
0660 0260       | `  |		Execute	Discrete,In_Type
0661 7001       |p   |		Jump_Nonzero	0x663
0662 0801       |    |		Execute_Immediate	Raise,0x1
0663 e403       |    |		Load	0x2,0x3
0664 00da       |    |		Load_Top	At_Offset_2
0665 0273       | s  |		Execute	Discrete,Plus
0666 0aff       |    |		Execute_Immediate	Plus,-0x1
0667 e5fe       |    |		Load	0x2,-0x2
0668 01d7       |    |		Execute	Vector,Field_Read
0669 027e       | ~  |		Execute	Discrete,Not_Equal
066a 6802       |h   |		Jump_Zero	0x66d
066b 4800       |H   |		Short_Literal	0x0
066c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
066d 00c8       |    |		Action	Pop_Auxiliary_Range
066e 3fbb       |?   |		Loop_Increasing	0x62a
066f 00ce       |    |		Action	Pop_Auxiliary
0670 4801       |H   |		Short_Literal	0x1
0671 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0672 0000 0000  |    |		.BLANK	0000[0x6]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067d       | }  |		.CONST	0x067d								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0002       |    |		.CONST	0x0002								; Number of locals
067b			INIT_0678:
067b e5fc       |    |		Load	0x2,-0x4
067c 0007       |    |		Action	Break_Optional
067d			BODY_0678:
067d e22f       | /  |		Load	0x1,0x2f
067e a5fd       |    |		Store_Unchecked	0x2,-0x3
067f 00cf       |    |		Action	Mark_Auxiliary
0680 7823       |x#  |		Jump	0x6a4
0681 00d9       |    |		Load_Top	At_Offset_1
0682 0227       | '  |		Execute	Access,All_Reference
0683 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0684 e5ff       |    |		Load	0x2,-0x1
0685 027f       |    |		Execute	Discrete,Equal
0686 6816       |h   |		Jump_Zero	0x69d
0687 e214       |    |		Load	0x1,0x14
0688 680a       |h   |		Jump_Zero	0x693
0689 00d9       |    |		Load_Top	At_Offset_1
068a 0227       | '  |		Execute	Access,All_Reference
068b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
068c 0227       | '  |		Execute	Access,All_Reference
068d e5fe       |    |		Load	0x2,-0x2
068e 01df       |    |		Execute	Vector,Equal
068f 680d       |h   |		Jump_Zero	0x69d
0690 00d9       |    |		Load_Top	At_Offset_1
0691 a5fc       |    |		Store_Unchecked	0x2,-0x4
0692 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0693 00d9       |    |		Load_Top	At_Offset_1
0694 0227       | '  |		Execute	Access,All_Reference
0695 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0696 0227       | '  |		Execute	Access,All_Reference
0697 e5fe       |    |		Load	0x2,-0x2
0698 8243       | C  |		Call	0x1,0x43
0699 6803       |h   |		Jump_Zero	0x69d
069a 00d9       |    |		Load_Top	At_Offset_1
069b a5fc       |    |		Store_Unchecked	0x2,-0x4
069c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
069d 00d9       |    |		Load_Top	At_Offset_1
069e a5fd       |    |		Store_Unchecked	0x2,-0x3
069f 00d9       |    |		Load_Top	At_Offset_1
06a0 0227       | '  |		Execute	Access,All_Reference
06a1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06a2 003a       | :  |		Store_Top	Access,At_Offset_2
06a3 00c9       |    |		Action	Pop_Auxiliary_Loop
06a4 00d9       |    |		Load_Top	At_Offset_1
06a5 77db       |w   |		Jump_Nonzero	0x681
06a6 00ce       |    |		Action	Pop_Auxiliary
06a7 e22f       | /  |		Load	0x1,0x2f
06a8 a5fc       |    |		Store_Unchecked	0x2,-0x4
06a9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06aa 0000 0000  |    |		.BLANK	0000[0x6]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b7       |    |		.CONST	0x06b7								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0002       |    |		.CONST	0x0002								; Number of locals
06b3			INIT_06b0:
06b3 e22e       | .  |		Load	0x1,0x2e
06b4 0322       | "  |		Declare_Variable	Record
06b5 00d8       |    |		Load_Top	At_Offset_0
06b6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06b7			BODY_06b0:
06b7 e402       |    |		Load	0x2,0x2
06b8 00d9       |    |		Load_Top	At_Offset_1
06b9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06ba e5fe       |    |		Load	0x2,-0x2
06bb e211       |    |		Load	0x1,0x11
06bc 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
06bd 00d9       |    |		Load_Top	At_Offset_1
06be 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06bf e5fd       |    |		Load	0x2,-0x3
06c0 00d9       |    |		Load_Top	At_Offset_1
06c1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06c2 00d8       |    |		Load_Top	At_Offset_0
06c3 e22f       | /  |		Load	0x1,0x2f
06c4 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
06c5 a404       |    |		Store_Unchecked	0x2,0x4
06c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06c7 0000       |    |		.XXX[0x1]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cf       |    |		.CONST	0x06cf								; Address of begin
06c9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ca 0002       |    |		.CONST	0x0002								; Number of locals
06cb			INIT_06c8:
06cb e22e       | .  |		Load	0x1,0x2e
06cc 0322       | "  |		Declare_Variable	Record
06cd 00d8       |    |		Load_Top	At_Offset_0
06ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06cf			BODY_06c8:
06cf e402       |    |		Load	0x2,0x2
06d0 00d9       |    |		Load_Top	At_Offset_1
06d1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06d2 e5fe       |    |		Load	0x2,-0x2
06d3 00d9       |    |		Load_Top	At_Offset_1
06d4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06d5 e5fd       |    |		Load	0x2,-0x3
06d6 00d9       |    |		Load_Top	At_Offset_1
06d7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06d8 00d8       |    |		Load_Top	At_Offset_0
06d9 e22f       | /  |		Load	0x1,0x2f
06da 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
06db a404       |    |		Store_Unchecked	0x2,0x4
06dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06dd 0000 0000  |    |		.XXX[0x3]
06df 0000       |    |
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e9       |    |		.CONST	0x06e9								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0003       |    |		.CONST	0x0003								; Number of locals
06e3			INIT_06e0:
06e3 e402       |    |		Load	0x2,0x2
06e4 01dd       |    |		Execute	Vector,First
06e5 e002       |    |		Load	0x0,0x2
06e6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
06e7 e003       |    |		Load	0x0,0x3
06e8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
06e9			BODY_06e0:
06e9 00cf       |    |		Action	Mark_Auxiliary
06ea 7824       |x$  |		Jump	0x70f
06eb 00d9       |    |		Load_Top	At_Offset_1
06ec 603b       |`;  |		Indirect_Literal	Discrete,0x728,{0x00000000, 0x6fffffff}
06ed 027d       | }  |		Execute	Discrete,Greater
06ee 6804       |h   |		Jump_Zero	0x6f3
06ef 00d9       |    |		Load_Top	At_Offset_1
06f0 4803       |H   |		Short_Literal	0x3
06f1 0270       | p  |		Execute	Discrete,Divide
06f2 005a       | Z  |		Store_Top	Discrete,At_Offset_2
06f3 00d9       |    |		Load_Top	At_Offset_1
06f4 00db       |    |		Load_Top	At_Offset_3
06f5 e402       |    |		Load	0x2,0x2
06f6 01d7       |    |		Execute	Vector,Field_Read
06f7 0915       |    |		Execute_Immediate	Binary_Scale,0x15
06f8 0273       | s  |		Execute	Discrete,Plus
06f9 00db       |    |		Load_Top	At_Offset_3
06fa 0a01       |    |		Execute_Immediate	Plus,0x1
06fb e402       |    |		Load	0x2,0x2
06fc 01d7       |    |		Execute	Vector,Field_Read
06fd 090e       |    |		Execute_Immediate	Binary_Scale,0xe
06fe 0273       | s  |		Execute	Discrete,Plus
06ff 00db       |    |		Load_Top	At_Offset_3
0700 0a02       |    |		Execute_Immediate	Plus,0x2
0701 e402       |    |		Load	0x2,0x2
0702 01d7       |    |		Execute	Vector,Field_Read
0703 0907       |    |		Execute_Immediate	Binary_Scale,0x7
0704 0273       | s  |		Execute	Discrete,Plus
0705 00db       |    |		Load_Top	At_Offset_3
0706 0a03       |    |		Execute_Immediate	Plus,0x3
0707 e402       |    |		Load	0x2,0x2
0708 01d7       |    |		Execute	Vector,Field_Read
0709 0273       | s  |		Execute	Discrete,Plus
070a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
070b 00da       |    |		Load_Top	At_Offset_2
070c 0a04       |    |		Execute_Immediate	Plus,0x4
070d 005b       | [  |		Store_Top	Discrete,At_Offset_3
070e 00c9       |    |		Action	Pop_Auxiliary_Loop
070f 00da       |    |		Load_Top	At_Offset_2
0710 0a03       |    |		Execute_Immediate	Plus,0x3
0711 e402       |    |		Load	0x2,0x2
0712 01dc       |    |		Execute	Vector,Last
0713 027a       | z  |		Execute	Discrete,Less_Equal
0714 77d6       |w   |		Jump_Nonzero	0x6eb
0715 00c9       |    |		Action	Pop_Auxiliary_Loop
0716 e402       |    |		Load	0x2,0x2
0717 01dc       |    |		Execute	Vector,Last
0718 00db       |    |		Load_Top	At_Offset_3
0719 0263       | c  |		Execute	Discrete,Above_Bound
071a 7008       |p   |		Jump_Nonzero	0x723
071b 00db       |    |		Load_Top	At_Offset_3
071c 00d9       |    |		Load_Top	At_Offset_1
071d e402       |    |		Load	0x2,0x2
071e 01d7       |    |		Execute	Vector,Field_Read
071f 0273       | s  |		Execute	Discrete,Plus
0720 c603       |    |		Store	0x3,0x3
0721 00c8       |    |		Action	Pop_Auxiliary_Range
0722 3ff8       |?   |		Loop_Increasing	0x71b
0723 00ce       |    |		Action	Pop_Auxiliary
0724 00d8       |    |		Load_Top	At_Offset_0
0725 00cb       |    |		Action	Pop_Block_With_Result
0726 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0727 0000       |    |		.XXX[0x1]
0728 0000 0000  |    |		.LITERAL	{0x00000000, 0x6fffffff}
072c 0000 0000  |    |		.BLANK	0000[0x4]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733       | 3  |		.CONST	0x0733								; Address of begin
0731 0004       |    |		.CONST	0x0004								; Address of exception handler
0732 0001       |    |		.CONST	0x0001								; Number of locals
0733			BODY_0730:
0733			INIT_0730:
0733 4601       |F   |		Jump_Case	0x2
0734 7801       |x   |		Jump	0x736								; case 0x0
0735 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0736 4800       |H   |		Short_Literal	0x0
0737 00db       |    |		Load_Top	At_Offset_3
0738 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0739 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
073a 0000 0000  |    |		.BLANK	0000[0x6]
0740 ; --------------------------------------------------------------------------------------
0740 ; Debug Table
0740 ; --------------------------------------------------------------------------------------
0740 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x4927,0x0000,0x0001,0x001f
0746 000b 07c2  |    |		.DBG4T	0x000b,0x07c2,0xc000,0x0000
074a 0072 07e7  | r  |		.DBG4T	0x0072,0x07e7,0xc000,0x0000
074e 00e3 0806  |    |		.DBG4T	0x00e3,0x0806,0x1001,0x0000
0752 00fb 0809  |    |		.DBG4T	0x00fb,0x0809,0x1001,0x4000
0756 0143 0823  | C #|		.DBG4T	0x0143,0x0823,0x1002,0x0000
075a 014b 0826  | K &|		.DBG4T	0x014b,0x0826,0x1002,0x0000
075e 0153 0829  | S )|		.DBG4T	0x0153,0x0829,0x1001,0x0000
0762 017b 0834  | { 4|		.DBG4T	0x017b,0x0834,0x1001,0x0000
0766 01a3 0840  |   @|		.DBG4T	0x01a3,0x0840,0x1001,0x0000
076a 01d3 084c  |   L|		.DBG4T	0x01d3,0x084c,0x1002,0x0000
076e 01fb 0855  |   U|		.DBG4T	0x01fb,0x0855,0x1001,0x0000
0772 027b 0869  | { i|		.DBG4T	0x027b,0x0869,0x1001,0x0000
0776 030b 087f  |    |		.DBG4T	0x030b,0x087f,0x1001,0x0000
077a 035b 0891  | [  |		.DBG4T	0x035b,0x0891,0x1001,0x0000
077e 03b3 08a3  |    |		.DBG4T	0x03b3,0x08a3,0x1001,0x0000
0782 03e3 08ad  |    |		.DBG4T	0x03e3,0x08ad,0x1001,0x0000
0786 042b 08bc  | +  |		.DBG4T	0x042b,0x08bc,0x1002,0x0000
078a 043b 08c1  | ;  |		.DBG4T	0x043b,0x08c1,0x1002,0x0000
078e 0453 08c6  | S  |		.DBG4T	0x0453,0x08c6,0x1002,0x0000
0792 0463 08cb  | c  |		.DBG4T	0x0463,0x08cb,0x1002,0x0000
0796 0473 08d0  | s  |		.DBG4T	0x0473,0x08d0,0x1001,0x0000
079a 04ab 08dd  |    |		.DBG4T	0x04ab,0x08dd,0x1001,0x0000
079e 050b 0000  |    |		.DBG4T	0x050b,0x0000,0x1005,0x0000
07a2 051b 0000  |    |		.DBG4T	0x051b,0x0000,0x1005,0x0000
07a6 053b 08f3  | ;  |		.DBG4T	0x053b,0x08f3,0x1002,0x4000
07aa 060b 0912  |    |		.DBG4T	0x060b,0x0912,0x1002,0x0000
07ae 067b 091d  | {  |		.DBG4T	0x067b,0x091d,0x1001,0x4000
07b2 06b3 093a  |   :|		.DBG4T	0x06b3,0x093a,0x1004,0x0000
07b6 06cb 0941  |   A|		.DBG4T	0x06cb,0x0941,0x1004,0x0000
07ba 06e3 0948  |   H|		.DBG4T	0x06e3,0x0948,0x1004,0x4000
07be 0733 0000  | 3  |		.DBG4T	0x0733,0x0000,0x1005,0x0000
07c2 ; --------------------------------------------------------------------------------------
07c2 ; Debug chain
07c2 ; --------------------------------------------------------------------------------------
07c2 0023 0000  | #  |		.DBGLEN	0x0023,0x0000
07c4 000b 000c  |    |		.DBGLNO	0x000b,0x000c,0x000d,0x000e,0x000f,0x0018,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x0053,0x0059,0x005c,0x0063,0x0070,0x0071
07e7 ; --------------------------------------------------------------------------------------
07e7 ; Debug chain
07e7 ; --------------------------------------------------------------------------------------
07e7 001d 0000  |    |		.DBGLEN	0x001d,0x0000
07e9 0072 007e  | r ~|		.DBGLNO	0x0072,0x007e,0x0087,0x0091,0x0099,0x00a1,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b3,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00bf,0x00c1,0x00c3,0x00c5,0x00c7,0x00c9,0x00cb,0x00cd,0x00cf,0x00d1,0x00d3,0x00d5
0806 ; --------------------------------------------------------------------------------------
0806 ; Debug chain
0806 ; --------------------------------------------------------------------------------------
0806 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0808 00e3       |    |		.DBGLNO	0x00e3
0809 ; --------------------------------------------------------------------------------------
0809 ; Debug chain
0809 ; --------------------------------------------------------------------------------------
0809 0002 000b  |    |		.DBGLEN	0x0002,0x000b
080b 00fb 00fd  |    |		.DBGLNO	0x00fb,0x00fd,0x00ff,0x0101,0x0102,0x0108,0x010e,0x0116,0x011a,0x0127,0x012d,0x0130,0x0136
0818 0001 0002  |    |		.XXX[0xb]
081a 0003 0004  |    |
081c 0005 0007  |    |
081e 0008 0009  |    |
0820 000a 0006  |    |
0822 000b       |    |
0823 ; --------------------------------------------------------------------------------------
0823 ; Debug chain
0823 ; --------------------------------------------------------------------------------------
0823 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0825 0143       | C  |		.DBGLNO	0x0143
0826 ; --------------------------------------------------------------------------------------
0826 ; Debug chain
0826 ; --------------------------------------------------------------------------------------
0826 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0828 014b       | K  |		.DBGLNO	0x014b
0829 ; --------------------------------------------------------------------------------------
0829 ; Debug chain
0829 ; --------------------------------------------------------------------------------------
0829 0003 0006  |    |		.DBGLEN	0x0003,0x0006
082b 0153 0157  | S W|		.DBGLNO	0x0153,0x0157,0x0159,0x0161,0x0168,0x016a,0x016e,0x0170,0x0171
0834 ; --------------------------------------------------------------------------------------
0834 ; Debug chain
0834 ; --------------------------------------------------------------------------------------
0834 0003 0007  |    |		.DBGLEN	0x0003,0x0007
0836 017b 017f  | {  |		.DBGLNO	0x017b,0x017f,0x0181,0x0189,0x0190,0x0192,0x0196,0x019a,0x019c,0x019d
0840 ; --------------------------------------------------------------------------------------
0840 ; Debug chain
0840 ; --------------------------------------------------------------------------------------
0840 0003 0007  |    |		.DBGLEN	0x0003,0x0007
0842 01a3 01a8  |    |		.DBGLNO	0x01a3,0x01a8,0x01aa,0x01b2,0x01ba,0x01bc,0x01c0,0x01c4,0x01c6,0x01c7
084c ; --------------------------------------------------------------------------------------
084c ; Debug chain
084c ; --------------------------------------------------------------------------------------
084c 0003 0004  |    |		.DBGLEN	0x0003,0x0004
084e 01d3 01d7  |    |		.DBGLNO	0x01d3,0x01d7,0x01d9,0x01e1,0x01e8,0x01ea,0x01f5
0855 ; --------------------------------------------------------------------------------------
0855 ; Debug chain
0855 ; --------------------------------------------------------------------------------------
0855 0003 000f  |    |		.DBGLEN	0x0003,0x000f
0857 01fb 01ff  |    |		.DBGLNO	0x01fb,0x01ff,0x0201,0x020a,0x0211,0x0213,0x0215,0x0219,0x021a,0x021c,0x021d,0x0221,0x0229,0x022f,0x0236,0x0239,0x0240,0x025a
0869 ; --------------------------------------------------------------------------------------
0869 ; Debug chain
0869 ; --------------------------------------------------------------------------------------
0869 0003 0011  |    |		.DBGLEN	0x0003,0x0011
086b 027b 0280  | {  |		.DBGLNO	0x027b,0x0280,0x0282,0x028b,0x0293,0x0295,0x0297,0x02a4,0x02a8,0x02ac,0x02ad,0x02af,0x02b0,0x02b4,0x02bc,0x02c2,0x02c9,0x02cc,0x02d3,0x02ed
087f ; --------------------------------------------------------------------------------------
087f ; Debug chain
087f ; --------------------------------------------------------------------------------------
087f 0004 000c  |    |		.DBGLEN	0x0004,0x000c
0881 030b 030f  |    |		.DBGLNO	0x030b,0x030f,0x0314,0x0316,0x031c,0x0323,0x0325,0x0327,0x0330,0x0336,0x0343,0x0349,0x0350,0x0351,0x0353,0x0354
0891 ; --------------------------------------------------------------------------------------
0891 ; Debug chain
0891 ; --------------------------------------------------------------------------------------
0891 0004 000c  |    |		.DBGLEN	0x0004,0x000c
0893 035b 035f  | [ _|		.DBGLNO	0x035b,0x035f,0x0364,0x0366,0x036c,0x0373,0x0375,0x0377,0x0380,0x0386,0x038a,0x0397,0x039d,0x03a4,0x03a6,0x03a7
08a3 ; --------------------------------------------------------------------------------------
08a3 ; Debug chain
08a3 ; --------------------------------------------------------------------------------------
08a3 0000 0008  |    |		.DBGLEN	0x0000,0x0008
08a5 03b3 03b7  |    |		.DBGLNO	0x03b3,0x03b7,0x03be,0x03c4,0x03cb,0x03ce,0x03d2,0x03d5
08ad ; --------------------------------------------------------------------------------------
08ad ; Debug chain
08ad ; --------------------------------------------------------------------------------------
08ad 0000 000d  |    |		.DBGLEN	0x0000,0x000d
08af 03e3 03e7  |    |		.DBGLNO	0x03e3,0x03e7,0x03ee,0x03f4,0x03fd,0x03fe,0x0405,0x0408,0x0409,0x040e,0x040f,0x041b,0x041e
08bc ; --------------------------------------------------------------------------------------
08bc ; Debug chain
08bc ; --------------------------------------------------------------------------------------
08bc 0000 0003  |    |		.DBGLEN	0x0000,0x0003
08be 042b 042e  | + .|		.DBGLNO	0x042b,0x042e,0x0430
08c1 ; --------------------------------------------------------------------------------------
08c1 ; Debug chain
08c1 ; --------------------------------------------------------------------------------------
08c1 0000 0003  |    |		.DBGLEN	0x0000,0x0003
08c3 043b 043e  | ; >|		.DBGLNO	0x043b,0x043e,0x0440
08c6 ; --------------------------------------------------------------------------------------
08c6 ; Debug chain
08c6 ; --------------------------------------------------------------------------------------
08c6 0000 0003  |    |		.DBGLEN	0x0000,0x0003
08c8 0453 0456  | S V|		.DBGLNO	0x0453,0x0456,0x0458
08cb ; --------------------------------------------------------------------------------------
08cb ; Debug chain
08cb ; --------------------------------------------------------------------------------------
08cb 0000 0003  |    |		.DBGLEN	0x0000,0x0003
08cd 0463 0466  | c f|		.DBGLNO	0x0463,0x0466,0x0468
08d0 ; --------------------------------------------------------------------------------------
08d0 ; Debug chain
08d0 ; --------------------------------------------------------------------------------------
08d0 0000 000b  |    |		.DBGLEN	0x0000,0x000b
08d2 0473 0476  | s v|		.DBGLNO	0x0473,0x0476,0x0478,0x047d,0x0483,0x0485,0x048c,0x0493,0x049b,0x049e,0x04a2
08dd ; --------------------------------------------------------------------------------------
08dd ; Debug chain
08dd ; --------------------------------------------------------------------------------------
08dd 0000 0014  |    |		.DBGLEN	0x0000,0x0014
08df 04ab 04ae  |    |		.DBGLNO	0x04ab,0x04ae,0x04b0,0x04b6,0x04b7,0x04bd,0x04c4,0x04c5,0x04ca,0x04cf,0x04d6,0x04dd,0x04e6,0x04e7,0x04ee,0x04f1,0x04f2,0x04f7,0x04f8,0x0504
08f3 ; --------------------------------------------------------------------------------------
08f3 ; Debug chain
08f3 ; --------------------------------------------------------------------------------------
08f3 0001 000e  |    |		.DBGLEN	0x0001,0x000e
08f5 053b 054e  | ; N|		.DBGLNO	0x053b,0x054e,0x0551,0x0555,0x0567,0x056b,0x0582,0x0591,0x05a1,0x05b0,0x05cf,0x05d2,0x05d8,0x05e8,0x0600
0904 0001 0002  |    |		.XXX[0xe]
0906 0003 0004  |    |
0908 0005 0006  |    |
090a 0007 0008  |    |
090c 000d 0009  |    |
090e 000a 000b  |    |
0910 000c 000e  |    |
0912 ; --------------------------------------------------------------------------------------
0912 ; Debug chain
0912 ; --------------------------------------------------------------------------------------
0912 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0914 060b 060f  |    |		.DBGLNO	0x060b,0x060f,0x0613,0x0619,0x061c,0x062a,0x0638,0x066b,0x0670
091d ; --------------------------------------------------------------------------------------
091d ; Debug chain
091d ; --------------------------------------------------------------------------------------
091d 0001 000d  |    |		.DBGLEN	0x0001,0x000d
091f 067b 067d  | { }|		.DBGLNO	0x067b,0x067d,0x0681,0x0687,0x0689,0x0690,0x0692,0x0693,0x069a,0x069c,0x069d,0x069f,0x06a4,0x06a7
092d 0001 0003  |    |		.XXX[0xd]
092f 0004 0005  |    |
0931 0006 0007  |    |
0933 0008 0009  |    |
0935 000a 000b  |    |
0937 000c 0002  |    |
0939 000d       |    |
093a ; --------------------------------------------------------------------------------------
093a ; Debug chain
093a ; --------------------------------------------------------------------------------------
093a 0001 0004  |    |		.DBGLEN	0x0001,0x0004
093c 06b3 06b7  |    |		.DBGLNO	0x06b3,0x06b7,0x06ba,0x06bf,0x06c2
0941 ; --------------------------------------------------------------------------------------
0941 ; Debug chain
0941 ; --------------------------------------------------------------------------------------
0941 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0943 06cb 06cf  |    |		.DBGLNO	0x06cb,0x06cf,0x06d2,0x06d5,0x06d8
0948 ; --------------------------------------------------------------------------------------
0948 ; Debug chain
0948 ; --------------------------------------------------------------------------------------
0948 0002 0008  |    |		.DBGLEN	0x0002,0x0008
094a 06e3 06e7  |    |		.DBGLNO	0x06e3,0x06e7,0x06eb,0x06ef,0x06f3,0x070b,0x070f,0x0716,0x071b,0x0724
0954 0002 0003  |    |		.XXX[0x8]
0956 0004 0005  |    |
0958 0001 0006  |    |
095a 0007 0008  |    |
095c 0000 0000  |    |		.BLANK	0000[0xa4]