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

⟦6d2ecfc55⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0890       |    |		.CONST	0x0890								; 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 8005       |    |		.CONST	0x8005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0284       |    |		.CONST	0x0284								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 005e       | ^  |		.CONST	0x005e								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 0129       | )  |		Execute	Any,Make_Visible
000e e001       |    |		Load	0x0,0x1
000f 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0010 0129       | )  |		Execute	Any,Make_Visible
0011 e001       |    |		Load	0x0,0x1
0012 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0013 0129       | )  |		Execute	Any,Make_Visible
0014 e001       |    |		Load	0x0,0x1
0015 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0016 0129       | )  |		Execute	Any,Make_Visible
0017 e001       |    |		Load	0x0,0x1
0018 191a       |    |		Execute	Package,Field_Reference,Field_Number 0x1a
0019 0129       | )  |		Execute	Any,Make_Visible
001a e002       |    |		Load	0x0,0x2
001b 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
001c 0129       | )  |		Execute	Any,Make_Visible
001d 4818       |H   |		Short_Literal	0x18
001e 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
001f 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0021 4804       |H   |		Short_Literal	0x4
0022 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0023 00c4       |    |		Action	Make_Default
0024 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0026 00e4       |    |		Load_Encached	Positive_Cache
0027 0129       | )  |		Execute	Any,Make_Visible
0028 00d8       |    |		Load_Top	At_Offset_0
0029 0266       | f  |		Execute	Discrete,Bounds
002a e215       |    |		Load	0x1,0x15
002b 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
002d 4801       |H   |		Short_Literal	0x1
002e 0349       | I  |		Declare_Type	Array,Defined_Incomplete,Visible,Bounds_With_Object
002f 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0031 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
0033 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
0053 c21e       |    |		Store	0x1,0x1e
0054 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0056 c221       | !  |		Store	0x1,0x21
0057 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
0059 c236       | 6  |		Store	0x1,0x36
005a 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
005c c224       | $  |		Store	0x1,0x24
005d 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
005f c225       | %  |		Store	0x1,0x25
0060 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0062 c227       | '  |		Store	0x1,0x27
0063 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0065 c229       | )  |		Store	0x1,0x29
0066 029a 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call,Visible,Unelaborated
0068 c238       | 8  |		Store	0x1,0x38
0069 e20d       |    |		Load	0x1,0xd
006a e212       |    |		Load	0x1,0x12
006b e001       |    |		Load	0x0,0x1
006c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006d e002       |    |		Load	0x0,0x2
006e 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
006f 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0070 029f 083b  |   ;|		Declare_Subprogram	INIT_0838,For_Call
0072 e215       |    |		Load	0x1,0x15
0073 0326       | &  |		Complete_Type	Record,By_Defining
0074 e219       |    |		Load	0x1,0x19
0075 0340       | @  |		Complete_Type	Array,By_Component_Completion
0076 e215       |    |		Load	0x1,0x15
0077 0322       | "  |		Declare_Variable	Record
0078 e210       |    |		Load	0x1,0x10
0079 e215       |    |		Load	0x1,0x15
007a 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
007b 0119       |    |		Execute	Any,Check_In_Formal_Type
007c 00d9       |    |		Load_Top	At_Offset_1
007d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
007e 4836       |H6  |		Short_Literal	0x36
007f 00d9       |    |		Load_Top	At_Offset_1
0080 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0081 e001       |    |		Load	0x0,0x1
0082 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0083 e215       |    |		Load	0x1,0x15
0084 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
0085 0119       |    |		Execute	Any,Check_In_Formal_Type
0086 00d9       |    |		Load_Top	At_Offset_1
0087 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0088 e002       |    |		Load	0x0,0x2
0089 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
008a 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
008b 00d9       |    |		Load_Top	At_Offset_1
008c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
008d 0129       | )  |		Execute	Any,Make_Visible
008e c216       |    |		Store	0x1,0x16
008f 4802       |H   |		Short_Literal	0x2
0090 032a       | *  |		Declare_Type	Record,Incomplete
0091 c237       | 7  |		Store	0x1,0x37
0092 00d9       |    |		Load_Top	At_Offset_1
0093 02a0       |    |		Declare_Subprogram	Null_Subprogram
0094 e213       |    |		Load	0x1,0x13
0095 03c7       |    |		Complete_Type	Access,By_Defining
0096 00bf       |    |		Action	Accept_Activation
0097 e003       |    |		Load	0x0,0x3
0098 e004       |    |		Load	0x0,0x4
0099 4814       |H   |		Short_Literal	0x14
009a e005       |    |		Load	0x0,0x5
009b 0387       |    |		Declare_Variable	Package
009c 00d8       |    |		Load_Top	At_Offset_0
009d 020f       |    |		Execute	Module,Activate
009e e002       |    |		Load	0x0,0x2
009f 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00a0 029d 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call
00a2 029d 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call
00a4 4807       |H   |		Short_Literal	0x7
00a5 4808       |H   |		Short_Literal	0x8
00a6 e23a       | :  |		Load	0x1,0x3a
00a7 03f8       |    |		Declare_Type	Discrete,Constrained
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 0266       | f  |		Execute	Discrete,Bounds
00aa e006       |    |		Load	0x0,0x6
00ab 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ac 035b       | [  |		Declare_Type	Array,Constrained
00ad 4830       |H0  |		Short_Literal	0x30
00ae 4835       |H5  |		Short_Literal	0x35
00af e212       |    |		Load	0x1,0x12
00b0 03f8       |    |		Declare_Type	Discrete,Constrained
00b1 029b 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Unelaborated
00b3 e007       |    |		Load	0x0,0x7
00b4 e008       |    |		Load	0x0,0x8
00b5 4bfd       |K   |		Short_Literal	0x3fd
00b6 e20d       |    |		Load	0x1,0xd
00b7 e215       |    |		Load	0x1,0x15
00b8 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
00b9 e009       |    |		Load	0x0,0x9
00ba 0387       |    |		Declare_Variable	Package
00bb 00d8       |    |		Load_Top	At_Offset_0
00bc 020f       |    |		Execute	Module,Activate
00bd e00a       |    |		Load	0x0,0xa
00be 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00bf 00d9       |    |		Load_Top	At_Offset_1
00c0 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00c1 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c2 e237       | 7  |		Load	0x1,0x37
00c3 0326       | &  |		Complete_Type	Record,By_Defining
00c4 e00b       |    |		Load	0x0,0xb
00c5 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00c6 0266       | f  |		Execute	Discrete,Bounds
00c7 00e1       |    |		Load_Encached	Boolean_Cache
00c8 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c9 4801       |H   |		Short_Literal	0x1
00ca 035d       | ]  |		Declare_Type	Array,Defined
00cb 00d8       |    |		Load_Top	At_Offset_0
00cc 0337       | 7  |		Declare_Variable	Array
00cd 4801       |H   |		Short_Literal	0x1
00ce 4800       |H   |		Short_Literal	0x0
00cf 00da       |    |		Load_Top	At_Offset_2
00d0 01d6       |    |		Execute	Vector,Field_Write
00d1 4801       |H   |		Short_Literal	0x1
00d2 4801       |H   |		Short_Literal	0x1
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 01d6       |    |		Execute	Vector,Field_Write
00d5 4801       |H   |		Short_Literal	0x1
00d6 4803       |H   |		Short_Literal	0x3
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 01d6       |    |		Execute	Vector,Field_Write
00d9 4801       |H   |		Short_Literal	0x1
00da 4804       |H   |		Short_Literal	0x4
00db 00da       |    |		Load_Top	At_Offset_2
00dc 01d6       |    |		Execute	Vector,Field_Write
00dd 4801       |H   |		Short_Literal	0x1
00de 4811       |H   |		Short_Literal	0x11
00df 00da       |    |		Load_Top	At_Offset_2
00e0 01d6       |    |		Execute	Vector,Field_Write
00e1 4801       |H   |		Short_Literal	0x1
00e2 4805       |H   |		Short_Literal	0x5
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 01d6       |    |		Execute	Vector,Field_Write
00e5 4801       |H   |		Short_Literal	0x1
00e6 4807       |H   |		Short_Literal	0x7
00e7 00da       |    |		Load_Top	At_Offset_2
00e8 01d6       |    |		Execute	Vector,Field_Write
00e9 4800       |H   |		Short_Literal	0x0
00ea 4802       |H   |		Short_Literal	0x2
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 01d6       |    |		Execute	Vector,Field_Write
00ed 4800       |H   |		Short_Literal	0x0
00ee 4806       |H   |		Short_Literal	0x6
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 01d6       |    |		Execute	Vector,Field_Write
00f1 4810       |H   |		Short_Literal	0x10
00f2 4808       |H   |		Short_Literal	0x8
00f3 4800       |H   |		Short_Literal	0x0
00f4 00d9       |    |		Load_Top	At_Offset_1
00f5 e243       | C  |		Load	0x1,0x43
00f6 01d6       |    |		Execute	Vector,Field_Write
00f7 3ffb       |?   |		Loop_Increasing	0xf3
00f8 4826       |H&  |		Short_Literal	0x26
00f9 4812       |H   |		Short_Literal	0x12
00fa 4800       |H   |		Short_Literal	0x0
00fb 00d9       |    |		Load_Top	At_Offset_1
00fc e243       | C  |		Load	0x1,0x43
00fd 01d6       |    |		Execute	Vector,Field_Write
00fe 3ffb       |?   |		Loop_Increasing	0xfa
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 01c3       |    |		Execute	Vector,Check_In_Type
0101 0007       |    |		Action	Break_Optional
0102 4830       |H0  |		Short_Literal	0x30
0103 4836       |H6  |		Short_Literal	0x36
0104 00e1       |    |		Load_Encached	Boolean_Cache
0105 02a0       |    |		Declare_Subprogram	Null_Subprogram
0106 4801       |H   |		Short_Literal	0x1
0107 035d       | ]  |		Declare_Type	Array,Defined
0108 e212       |    |		Load	0x1,0x12
0109 0007       |    |		Action	Break_Optional
010a 4830       |H0  |		Short_Literal	0x30
010b 4836       |H6  |		Short_Literal	0x36
010c 00db       |    |		Load_Top	At_Offset_3
010d 02a0       |    |		Declare_Subprogram	Null_Subprogram
010e 4801       |H   |		Short_Literal	0x1
010f 035d       | ]  |		Declare_Type	Array,Defined
0110 00d8       |    |		Load_Top	At_Offset_0
0111 0337       | 7  |		Declare_Variable	Array
0112 00db       |    |		Load_Top	At_Offset_3
0113 0337       | 7  |		Declare_Variable	Array
0114 4801       |H   |		Short_Literal	0x1
0115 4830       |H0  |		Short_Literal	0x30
0116 00da       |    |		Load_Top	At_Offset_2
0117 01d6       |    |		Execute	Vector,Field_Write
0118 4801       |H   |		Short_Literal	0x1
0119 4832       |H2  |		Short_Literal	0x32
011a 00da       |    |		Load_Top	At_Offset_2
011b 01d6       |    |		Execute	Vector,Field_Write
011c 4800       |H   |		Short_Literal	0x0
011d 4831       |H1  |		Short_Literal	0x31
011e 00da       |    |		Load_Top	At_Offset_2
011f 01d6       |    |		Execute	Vector,Field_Write
0120 4836       |H6  |		Short_Literal	0x36
0121 4833       |H3  |		Short_Literal	0x33
0122 4800       |H   |		Short_Literal	0x0
0123 00d9       |    |		Load_Top	At_Offset_1
0124 e248       | H  |		Load	0x1,0x48
0125 01d6       |    |		Execute	Vector,Field_Write
0126 3ffb       |?   |		Loop_Increasing	0x122
0127 e244       | D  |		Load	0x1,0x44
0128 01c3       |    |		Execute	Vector,Check_In_Type
0129 e244       | D  |		Load	0x1,0x44
012a 0119       |    |		Execute	Any,Check_In_Formal_Type
012b 4830       |H0  |		Short_Literal	0x30
012c 00da       |    |		Load_Top	At_Offset_2
012d 01d6       |    |		Execute	Vector,Field_Write
012e 00db       |    |		Load_Top	At_Offset_3
012f 0337       | 7  |		Declare_Variable	Array
0130 4801       |H   |		Short_Literal	0x1
0131 4831       |H1  |		Short_Literal	0x31
0132 00da       |    |		Load_Top	At_Offset_2
0133 01d6       |    |		Execute	Vector,Field_Write
0134 4801       |H   |		Short_Literal	0x1
0135 4832       |H2  |		Short_Literal	0x32
0136 00da       |    |		Load_Top	At_Offset_2
0137 01d6       |    |		Execute	Vector,Field_Write
0138 4800       |H   |		Short_Literal	0x0
0139 4830       |H0  |		Short_Literal	0x30
013a 00da       |    |		Load_Top	At_Offset_2
013b 01d6       |    |		Execute	Vector,Field_Write
013c 4836       |H6  |		Short_Literal	0x36
013d 4833       |H3  |		Short_Literal	0x33
013e 4800       |H   |		Short_Literal	0x0
013f 00d9       |    |		Load_Top	At_Offset_1
0140 e248       | H  |		Load	0x1,0x48
0141 01d6       |    |		Execute	Vector,Field_Write
0142 3ffb       |?   |		Loop_Increasing	0x13e
0143 e244       | D  |		Load	0x1,0x44
0144 01c3       |    |		Execute	Vector,Check_In_Type
0145 e244       | D  |		Load	0x1,0x44
0146 0119       |    |		Execute	Any,Check_In_Formal_Type
0147 4831       |H1  |		Short_Literal	0x31
0148 00da       |    |		Load_Top	At_Offset_2
0149 01d6       |    |		Execute	Vector,Field_Write
014a 00db       |    |		Load_Top	At_Offset_3
014b 0337       | 7  |		Declare_Variable	Array
014c 4801       |H   |		Short_Literal	0x1
014d 4830       |H0  |		Short_Literal	0x30
014e 00da       |    |		Load_Top	At_Offset_2
014f 01d6       |    |		Execute	Vector,Field_Write
0150 4801       |H   |		Short_Literal	0x1
0151 4831       |H1  |		Short_Literal	0x31
0152 00da       |    |		Load_Top	At_Offset_2
0153 01d6       |    |		Execute	Vector,Field_Write
0154 4801       |H   |		Short_Literal	0x1
0155 4832       |H2  |		Short_Literal	0x32
0156 00da       |    |		Load_Top	At_Offset_2
0157 01d6       |    |		Execute	Vector,Field_Write
0158 4836       |H6  |		Short_Literal	0x36
0159 4833       |H3  |		Short_Literal	0x33
015a 4800       |H   |		Short_Literal	0x0
015b 00d9       |    |		Load_Top	At_Offset_1
015c e248       | H  |		Load	0x1,0x48
015d 01d6       |    |		Execute	Vector,Field_Write
015e 3ffb       |?   |		Loop_Increasing	0x15a
015f e244       | D  |		Load	0x1,0x44
0160 01c3       |    |		Execute	Vector,Check_In_Type
0161 e244       | D  |		Load	0x1,0x44
0162 0119       |    |		Execute	Any,Check_In_Formal_Type
0163 4832       |H2  |		Short_Literal	0x32
0164 00da       |    |		Load_Top	At_Offset_2
0165 01d6       |    |		Execute	Vector,Field_Write
0166 00db       |    |		Load_Top	At_Offset_3
0167 0337       | 7  |		Declare_Variable	Array
0168 4801       |H   |		Short_Literal	0x1
0169 4833       |H3  |		Short_Literal	0x33
016a 00da       |    |		Load_Top	At_Offset_2
016b 01d6       |    |		Execute	Vector,Field_Write
016c 4801       |H   |		Short_Literal	0x1
016d 4835       |H5  |		Short_Literal	0x35
016e 00da       |    |		Load_Top	At_Offset_2
016f 01d6       |    |		Execute	Vector,Field_Write
0170 4832       |H2  |		Short_Literal	0x32
0171 4830       |H0  |		Short_Literal	0x30
0172 4800       |H   |		Short_Literal	0x0
0173 00d9       |    |		Load_Top	At_Offset_1
0174 e248       | H  |		Load	0x1,0x48
0175 01d6       |    |		Execute	Vector,Field_Write
0176 3ffb       |?   |		Loop_Increasing	0x172
0177 4800       |H   |		Short_Literal	0x0
0178 4834       |H4  |		Short_Literal	0x34
0179 00da       |    |		Load_Top	At_Offset_2
017a 01d6       |    |		Execute	Vector,Field_Write
017b 4800       |H   |		Short_Literal	0x0
017c 4836       |H6  |		Short_Literal	0x36
017d 00da       |    |		Load_Top	At_Offset_2
017e 01d6       |    |		Execute	Vector,Field_Write
017f e244       | D  |		Load	0x1,0x44
0180 01c3       |    |		Execute	Vector,Check_In_Type
0181 e244       | D  |		Load	0x1,0x44
0182 0119       |    |		Execute	Any,Check_In_Formal_Type
0183 4833       |H3  |		Short_Literal	0x33
0184 00da       |    |		Load_Top	At_Offset_2
0185 01d6       |    |		Execute	Vector,Field_Write
0186 00db       |    |		Load_Top	At_Offset_3
0187 0337       | 7  |		Declare_Variable	Array
0188 4801       |H   |		Short_Literal	0x1
0189 4834       |H4  |		Short_Literal	0x34
018a 00da       |    |		Load_Top	At_Offset_2
018b 01d6       |    |		Execute	Vector,Field_Write
018c 4801       |H   |		Short_Literal	0x1
018d 4835       |H5  |		Short_Literal	0x35
018e 00da       |    |		Load_Top	At_Offset_2
018f 01d6       |    |		Execute	Vector,Field_Write
0190 4833       |H3  |		Short_Literal	0x33
0191 4830       |H0  |		Short_Literal	0x30
0192 4800       |H   |		Short_Literal	0x0
0193 00d9       |    |		Load_Top	At_Offset_1
0194 e248       | H  |		Load	0x1,0x48
0195 01d6       |    |		Execute	Vector,Field_Write
0196 3ffb       |?   |		Loop_Increasing	0x192
0197 4800       |H   |		Short_Literal	0x0
0198 4836       |H6  |		Short_Literal	0x36
0199 00da       |    |		Load_Top	At_Offset_2
019a 01d6       |    |		Execute	Vector,Field_Write
019b e244       | D  |		Load	0x1,0x44
019c 01c3       |    |		Execute	Vector,Check_In_Type
019d e244       | D  |		Load	0x1,0x44
019e 0119       |    |		Execute	Any,Check_In_Formal_Type
019f 4834       |H4  |		Short_Literal	0x34
01a0 00da       |    |		Load_Top	At_Offset_2
01a1 01d6       |    |		Execute	Vector,Field_Write
01a2 00db       |    |		Load_Top	At_Offset_3
01a3 0337       | 7  |		Declare_Variable	Array
01a4 4801       |H   |		Short_Literal	0x1
01a5 4833       |H3  |		Short_Literal	0x33
01a6 00da       |    |		Load_Top	At_Offset_2
01a7 01d6       |    |		Execute	Vector,Field_Write
01a8 4801       |H   |		Short_Literal	0x1
01a9 4834       |H4  |		Short_Literal	0x34
01aa 00da       |    |		Load_Top	At_Offset_2
01ab 01d6       |    |		Execute	Vector,Field_Write
01ac 4801       |H   |		Short_Literal	0x1
01ad 4835       |H5  |		Short_Literal	0x35
01ae 00da       |    |		Load_Top	At_Offset_2
01af 01d6       |    |		Execute	Vector,Field_Write
01b0 4832       |H2  |		Short_Literal	0x32
01b1 4830       |H0  |		Short_Literal	0x30
01b2 4800       |H   |		Short_Literal	0x0
01b3 00d9       |    |		Load_Top	At_Offset_1
01b4 e248       | H  |		Load	0x1,0x48
01b5 01d6       |    |		Execute	Vector,Field_Write
01b6 3ffb       |?   |		Loop_Increasing	0x1b2
01b7 4800       |H   |		Short_Literal	0x0
01b8 4836       |H6  |		Short_Literal	0x36
01b9 00da       |    |		Load_Top	At_Offset_2
01ba 01d6       |    |		Execute	Vector,Field_Write
01bb e244       | D  |		Load	0x1,0x44
01bc 01c3       |    |		Execute	Vector,Check_In_Type
01bd e244       | D  |		Load	0x1,0x44
01be 0119       |    |		Execute	Any,Check_In_Formal_Type
01bf 4835       |H5  |		Short_Literal	0x35
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 01d6       |    |		Execute	Vector,Field_Write
01c2 00db       |    |		Load_Top	At_Offset_3
01c3 0337       | 7  |		Declare_Variable	Array
01c4 4836       |H6  |		Short_Literal	0x36
01c5 4830       |H0  |		Short_Literal	0x30
01c6 4801       |H   |		Short_Literal	0x1
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 e248       | H  |		Load	0x1,0x48
01c9 01d6       |    |		Execute	Vector,Field_Write
01ca 3ffb       |?   |		Loop_Increasing	0x1c6
01cb e244       | D  |		Load	0x1,0x44
01cc 01c3       |    |		Execute	Vector,Check_In_Type
01cd e244       | D  |		Load	0x1,0x44
01ce 0119       |    |		Execute	Any,Check_In_Formal_Type
01cf 4836       |H6  |		Short_Literal	0x36
01d0 00da       |    |		Load_Top	At_Offset_2
01d1 01d6       |    |		Execute	Vector,Field_Write
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 01c3       |    |		Execute	Vector,Check_In_Type
01d4 0007       |    |		Action	Break_Optional
01d5 e00b       |    |		Load	0x0,0xb
01d6 1b3e       | >  |		Execute	Package,Field_Read,Field_Number 0x3e
01d7 0266       | f  |		Execute	Discrete,Bounds
01d8 e212       |    |		Load	0x1,0x12
01d9 02a0       |    |		Declare_Subprogram	Null_Subprogram
01da 4801       |H   |		Short_Literal	0x1
01db 035d       | ]  |		Declare_Type	Array,Defined
01dc 00d8       |    |		Load_Top	At_Offset_0
01dd 0337       | 7  |		Declare_Variable	Array
01de 4830       |H0  |		Short_Literal	0x30
01df 4800       |H   |		Short_Literal	0x0
01e0 00da       |    |		Load_Top	At_Offset_2
01e1 01d6       |    |		Execute	Vector,Field_Write
01e2 4830       |H0  |		Short_Literal	0x30
01e3 4801       |H   |		Short_Literal	0x1
01e4 00da       |    |		Load_Top	At_Offset_2
01e5 01d6       |    |		Execute	Vector,Field_Write
01e6 4831       |H1  |		Short_Literal	0x31
01e7 4802       |H   |		Short_Literal	0x2
01e8 00da       |    |		Load_Top	At_Offset_2
01e9 01d6       |    |		Execute	Vector,Field_Write
01ea 4832       |H2  |		Short_Literal	0x32
01eb 4803       |H   |		Short_Literal	0x3
01ec 00da       |    |		Load_Top	At_Offset_2
01ed 01d6       |    |		Execute	Vector,Field_Write
01ee 4836       |H6  |		Short_Literal	0x36
01ef 4804       |H   |		Short_Literal	0x4
01f0 00da       |    |		Load_Top	At_Offset_2
01f1 01d6       |    |		Execute	Vector,Field_Write
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 01c3       |    |		Execute	Vector,Check_In_Type
01f4 0007       |    |		Action	Break_Optional
01f5 00d9       |    |		Load_Top	At_Offset_1
01f6 0337       | 7  |		Declare_Variable	Array
01f7 4833       |H3  |		Short_Literal	0x33
01f8 4800       |H   |		Short_Literal	0x0
01f9 00da       |    |		Load_Top	At_Offset_2
01fa 01d6       |    |		Execute	Vector,Field_Write
01fb 4833       |H3  |		Short_Literal	0x33
01fc 4801       |H   |		Short_Literal	0x1
01fd 00da       |    |		Load_Top	At_Offset_2
01fe 01d6       |    |		Execute	Vector,Field_Write
01ff 4834       |H4  |		Short_Literal	0x34
0200 4802       |H   |		Short_Literal	0x2
0201 00da       |    |		Load_Top	At_Offset_2
0202 01d6       |    |		Execute	Vector,Field_Write
0203 4835       |H5  |		Short_Literal	0x35
0204 4803       |H   |		Short_Literal	0x3
0205 00da       |    |		Load_Top	At_Offset_2
0206 01d6       |    |		Execute	Vector,Field_Write
0207 4836       |H6  |		Short_Literal	0x36
0208 4804       |H   |		Short_Literal	0x4
0209 00da       |    |		Load_Top	At_Offset_2
020a 01d6       |    |		Execute	Vector,Field_Write
020b 00da       |    |		Load_Top	At_Offset_2
020c 01c3       |    |		Execute	Vector,Check_In_Type
020d 0007       |    |		Action	Break_Optional
020e 00e1       |    |		Load_Encached	Boolean_Cache
020f 00e1       |    |		Load_Encached	Boolean_Cache
0210 00e1       |    |		Load_Encached	Boolean_Cache
0211 0266       | f  |		Execute	Discrete,Bounds
0212 00e1       |    |		Load_Encached	Boolean_Cache
0213 0266       | f  |		Execute	Discrete,Bounds
0214 e212       |    |		Load	0x1,0x12
0215 02a0       |    |		Declare_Subprogram	Null_Subprogram
0216 4802       |H   |		Short_Literal	0x2
0217 035d       | ]  |		Declare_Type	Array,Defined
0218 00d8       |    |		Load_Top	At_Offset_0
0219 0337       | 7  |		Declare_Variable	Array
021a 4836       |H6  |		Short_Literal	0x36
021b 4800       |H   |		Short_Literal	0x0
021c 4800       |H   |		Short_Literal	0x0
021d 00db       |    |		Load_Top	At_Offset_3
021e 01a6       |    |		Execute	Matrix,Field_Write
021f 4831       |H1  |		Short_Literal	0x31
0220 4801       |H   |		Short_Literal	0x1
0221 4800       |H   |		Short_Literal	0x0
0222 00db       |    |		Load_Top	At_Offset_3
0223 01a6       |    |		Execute	Matrix,Field_Write
0224 4830       |H0  |		Short_Literal	0x30
0225 4800       |H   |		Short_Literal	0x0
0226 4801       |H   |		Short_Literal	0x1
0227 00db       |    |		Load_Top	At_Offset_3
0228 01a6       |    |		Execute	Matrix,Field_Write
0229 4832       |H2  |		Short_Literal	0x32
022a 4801       |H   |		Short_Literal	0x1
022b 4801       |H   |		Short_Literal	0x1
022c 00db       |    |		Load_Top	At_Offset_3
022d 01a6       |    |		Execute	Matrix,Field_Write
022e 00d9       |    |		Load_Top	At_Offset_1
022f 019b       |    |		Execute	Matrix,Check_In_Type
0230 0007       |    |		Action	Break_Optional
0231 00d9       |    |		Load_Top	At_Offset_1
0232 0337       | 7  |		Declare_Variable	Array
0233 4836       |H6  |		Short_Literal	0x36
0234 4800       |H   |		Short_Literal	0x0
0235 4800       |H   |		Short_Literal	0x0
0236 00db       |    |		Load_Top	At_Offset_3
0237 01a6       |    |		Execute	Matrix,Field_Write
0238 4834       |H4  |		Short_Literal	0x34
0239 4801       |H   |		Short_Literal	0x1
023a 4800       |H   |		Short_Literal	0x0
023b 00db       |    |		Load_Top	At_Offset_3
023c 01a6       |    |		Execute	Matrix,Field_Write
023d 4833       |H3  |		Short_Literal	0x33
023e 4800       |H   |		Short_Literal	0x0
023f 4801       |H   |		Short_Literal	0x1
0240 00db       |    |		Load_Top	At_Offset_3
0241 01a6       |    |		Execute	Matrix,Field_Write
0242 4835       |H5  |		Short_Literal	0x35
0243 4801       |H   |		Short_Literal	0x1
0244 4801       |H   |		Short_Literal	0x1
0245 00db       |    |		Load_Top	At_Offset_3
0246 01a6       |    |		Execute	Matrix,Field_Write
0247 00da       |    |		Load_Top	At_Offset_2
0248 019b       |    |		Execute	Matrix,Check_In_Type
0249 0007       |    |		Action	Break_Optional
024a 029d 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call
024c 029d 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call
024e 029d 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call
0250 029d 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call
0252 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
0253 00c7       |    |		Action	Elaborate_Subprogram
0254 029d 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call
0256 029d 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call
0258 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0259 00c7       |    |		Action	Elaborate_Subprogram
025a 029d 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call
025c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
025d 00c7       |    |		Action	Elaborate_Subprogram
025e 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
025f 00c7       |    |		Action	Elaborate_Subprogram
0260 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0261 00c7       |    |		Action	Elaborate_Subprogram
0262 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0263 00c7       |    |		Action	Elaborate_Subprogram
0264 029d 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call
0266 029d 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Outer_Call
0268 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0269 00c7       |    |		Action	Elaborate_Subprogram
026a 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
026b 00c7       |    |		Action	Elaborate_Subprogram
026c 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
026d 00c7       |    |		Action	Elaborate_Subprogram
026e 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
026f 00c7       |    |		Action	Elaborate_Subprogram
0270 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0271 00c7       |    |		Action	Elaborate_Subprogram
0272 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0273 00c7       |    |		Action	Elaborate_Subprogram
0274 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0275 00c7       |    |		Action	Elaborate_Subprogram
0276 029d 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call
0278 e00c       |    |		Load	0x0,0xc
0279 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
027a 00c6       |    |		Action	Check_Subprogram_Elaborated
027b e241       | A  |		Load	0x1,0x41
027c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
027d 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
027e e00d       |    |		Load	0x0,0xd
027f e00e       |    |		Load	0x0,0xe
0280 4800       |H   |		Short_Literal	0x0
0281 0007       |    |		Action	Break_Optional
0282 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0283 00c7       |    |		Action	Elaborate_Subprogram
0284			BODY_0008:
0284 00bc       |    |		Action	Signal_Activated
0285 00bb       |    |		Action	Signal_Completion
0286 0000 0000  |    |		.XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 02a0       |    |		.CONST	0x02a0								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b e213       |    |		Load	0x1,0x13
028c 03bc       |    |		Declare_Variable	Access,By_Allocation
028d a5fe       |    |		Store_Unchecked	0x2,-0x2
028e 00da       |    |		Load_Top	At_Offset_2
028f e5fe       |    |		Load	0x2,-0x2
0290 0227       | '  |		Execute	Access,All_Reference
0291 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0292 00db       |    |		Load_Top	At_Offset_3
0293 0229       | )  |		Execute	Access,All_Read
0294 e241       | A  |		Load	0x1,0x41
0295 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0296 e241       | A  |		Load	0x1,0x41
0297 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0298 00d9       |    |		Load_Top	At_Offset_1
0299 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
029a 00d1       |    |		Pop_Control	Pop_Count_1
029b e5fd       |    |		Load	0x2,-0x3
029c e00f       |    |		Load	0x0,0xf
029d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
029e c5fd       |    |		Store	0x2,-0x3
029f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a0			TRAP_0288:
02a0 e010       |    |		Load	0x0,0x10
02a1 010f       |    |		Execute	Exception,Equal
02a2 6801       |h   |		Jump_Zero	0x2a4
02a3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a4 e5fd       |    |		Load	0x2,-0x3
02a5 0092 0866  |   f|		Action	Push_String_Extended,0x866					; "Initialize"
02a7 8253       | S  |		Call	0x1,0x53
02a8 c5fd       |    |		Store	0x2,-0x3
02a9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02aa 0000 0000  |    |		.BLANK	0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 00da       |    |		Load_Top	At_Offset_2
02b4 e216       |    |		Load	0x1,0x16
02b5 017f       |    |		Execute	Record,Equal
02b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b7 0000       |    |		.XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00d1       |    |		Pop_Control	Pop_Count_1
02bc 00da       |    |		Load_Top	At_Offset_2
02bd 01d8       |    |		Execute	Vector,Element_Type
02be 0322       | "  |		Declare_Variable	Record
02bf 00d8       |    |		Load_Top	At_Offset_0
02c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c1 00db       |    |		Load_Top	At_Offset_3
02c2 01dc       |    |		Execute	Vector,Last
02c3 e5ff       |    |		Load	0x2,-0x1
02c4 01dd       |    |		Execute	Vector,First
02c5 0263       | c  |		Execute	Discrete,Above_Bound
02c6 7006       |p   |		Jump_Nonzero	0x2cd
02c7 00da       |    |		Load_Top	At_Offset_2
02c8 00d9       |    |		Load_Top	At_Offset_1
02c9 e5ff       |    |		Load	0x2,-0x1
02ca 01d6       |    |		Execute	Vector,Field_Write
02cb 0a01       |    |		Execute_Immediate	Plus,0x1
02cc 7ff8       |    |		Jump	0x2c5
02cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
02ce 0000 0000  |    |		.XXX[0x2]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 4801       |H   |		Short_Literal	0x1
02d4 4800       |H   |		Short_Literal	0x0
02d5 e219       |    |		Load	0x1,0x19
02d6 035b       | [  |		Declare_Type	Array,Constrained
02d7 0337       | 7  |		Declare_Variable	Array
02d8 e219       |    |		Load	0x1,0x19
02d9 01c6       |    |		Execute	Vector,Convert_To_Formal
02da 00ca       |    |		Action	Exit_Nullary_Function
02db 0000 0000  |    |		.BLANK	0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 01db       |    |		Execute	Vector,Length
02e5 0f00       |    |		Execute_Immediate	Equal,0x0
02e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e7 0000       |    |		.XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 032d       | -  |		.CONST	0x032d								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0019       |    |		.CONST	0x0019								; Number of locals
02eb			INIT_02e8:
02eb e23e       | >  |		Load	0x1,0x3e
02ec 0337       | 7  |		Declare_Variable	Array
02ed e20e       |    |		Load	0x1,0xe
02ee 02c7       |    |		Declare_Variable	Any
02ef e211       |    |		Load	0x1,0x11
02f0 a403       |    |		Store_Unchecked	0x2,0x3
02f1 e20e       |    |		Load	0x1,0xe
02f2 02c7       |    |		Declare_Variable	Any
02f3 e211       |    |		Load	0x1,0x11
02f4 a404       |    |		Store_Unchecked	0x2,0x4
02f5 e5fe       |    |		Load	0x2,-0x2
02f6 0227       | '  |		Execute	Access,All_Reference
02f7 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02f8 0007       |    |		Action	Break_Optional
02f9 00e3       |    |		Load_Encached	Natural_Cache
02fa 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02fb e5ff       |    |		Load	0x2,-0x1
02fc e00a       |    |		Load	0x0,0xa
02fd 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
02fe e00a       |    |		Load	0x0,0xa
02ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0300 011e       |    |		Execute	Any,Convert
0301 e5fd       |    |		Load	0x2,-0x3
0302 e247       | G  |		Load	0x1,0x47
0303 01d5       |    |		Execute	Vector,Field_Reference
0304 0007       |    |		Action	Break_Optional
0305 029f 060b  |    |		Declare_Subprogram	INIT_0608,For_Call
0307 029f 061b  |    |		Declare_Subprogram	INIT_0618,For_Call
0309 e001       |    |		Load	0x0,0x1
030a 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
030b 00c6       |    |		Action	Check_Subprogram_Elaborated
030c 480a       |H   |		Short_Literal	0xa
030d 4802       |H   |		Short_Literal	0x2
030e 0099       |    |		Action	Reference_Dynamic
030f e011       |    |		Load	0x0,0x11
0310 e012       |    |		Load	0x0,0x12
0311 480e       |H   |		Short_Literal	0xe
0312 0007       |    |		Action	Break_Optional
0313 e001       |    |		Load	0x0,0x1
0314 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
0315 00c6       |    |		Action	Check_Subprogram_Elaborated
0316 480a       |H   |		Short_Literal	0xa
0317 4802       |H   |		Short_Literal	0x2
0318 0099       |    |		Action	Reference_Dynamic
0319 e013       |    |		Load	0x0,0x13
031a e014       |    |		Load	0x0,0x14
031b 4812       |H   |		Short_Literal	0x12
031c 0007       |    |		Action	Break_Optional
031d 029f 065b  |   [|		Declare_Subprogram	INIT_0658,For_Call
031f e001       |    |		Load	0x0,0x1
0320 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
0321 00c6       |    |		Action	Check_Subprogram_Elaborated
0322 4813       |H   |		Short_Literal	0x13
0323 4802       |H   |		Short_Literal	0x2
0324 0099       |    |		Action	Reference_Dynamic
0325 e015       |    |		Load	0x0,0x15
0326 e016       |    |		Load	0x0,0x16
0327 4817       |H   |		Short_Literal	0x17
0328 0007       |    |		Action	Break_Optional
0329 029f 0723  |   #|		Declare_Subprogram	INIT_0720,For_Call
032b 029f 074b  |   K|		Declare_Subprogram	INIT_0748,For_Call
032d			BODY_02e8:
032d 8419       |    |		Call	0x2,0x19
032e 0831       | 1  |		Execute_Immediate	Raise,0x31
032f 0000       |    |		.XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0359       | Y  |		.CONST	0x0359								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 000e       |    |		.CONST	0x000e								; Number of locals
0333			INIT_0330:
0333 e23e       | >  |		Load	0x1,0x3e
0334 0337       | 7  |		Declare_Variable	Array
0335 e20e       |    |		Load	0x1,0xe
0336 02c7       |    |		Declare_Variable	Any
0337 e211       |    |		Load	0x1,0x11
0338 a403       |    |		Store_Unchecked	0x2,0x3
0339 e5fe       |    |		Load	0x2,-0x2
033a 0227       | '  |		Execute	Access,All_Reference
033b 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
033c 0007       |    |		Action	Break_Optional
033d 00e3       |    |		Load_Encached	Natural_Cache
033e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
033f e5ff       |    |		Load	0x2,-0x1
0340 e017       |    |		Load	0x0,0x17
0341 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0342 e017       |    |		Load	0x0,0x17
0343 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0344 011e       |    |		Execute	Any,Convert
0345 e5fd       |    |		Load	0x2,-0x3
0346 e247       | G  |		Load	0x1,0x47
0347 01d5       |    |		Execute	Vector,Field_Reference
0348 0007       |    |		Action	Break_Optional
0349 029f 076b  |   k|		Declare_Subprogram	INIT_0768,For_Call
034b 029f 077b  |   {|		Declare_Subprogram	INIT_0778,For_Call
034d e001       |    |		Load	0x0,0x1
034e 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
034f 00c6       |    |		Action	Check_Subprogram_Elaborated
0350 4809       |H   |		Short_Literal	0x9
0351 4802       |H   |		Short_Literal	0x2
0352 0099       |    |		Action	Reference_Dynamic
0353 e018       |    |		Load	0x0,0x18
0354 e019       |    |		Load	0x0,0x19
0355 480d       |H   |		Short_Literal	0xd
0356 0007       |    |		Action	Break_Optional
0357 029f 0803  |    |		Declare_Subprogram	INIT_0800,For_Call
0359			BODY_0330:
0359 e403       |    |		Load	0x2,0x3
035a 0120       |    |		Execute	Any,Is_Value
035b 6803       |h   |		Jump_Zero	0x35f
035c e001       |    |		Load	0x0,0x1
035d 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
035e 7801       |x   |		Jump	0x360
035f e403       |    |		Load	0x2,0x3
0360 e5ff       |    |		Load	0x2,-0x1
0361 e017       |    |		Load	0x0,0x17
0362 186f       | o  |		Execute	Package,Field_Execute,Field_Number 0x6f
0363 480a       |H   |		Short_Literal	0xa
0364 4802       |H   |		Short_Literal	0x2
0365 0099       |    |		Action	Reference_Dynamic
0366 480b       |H   |		Short_Literal	0xb
0367 4802       |H   |		Short_Literal	0x2
0368 0099       |    |		Action	Reference_Dynamic
0369 e001       |    |		Load	0x0,0x1
036a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
036b c403       |    |		Store	0x2,0x3
036c 840e       |    |		Call	0x2,0xe
036d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
036e 0000 0000  |    |		.XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 00da       |    |		Load_Top	At_Offset_2
0374 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0375 00d8       |    |		Load_Top	At_Offset_0
0376 0120       |    |		Execute	Any,Is_Value
0377 7002       |p   |		Jump_Nonzero	0x37a
0378 00d8       |    |		Load_Top	At_Offset_0
0379 011e       |    |		Execute	Any,Convert
037a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
037b 0000 0000  |    |		.BLANK	0000[0x5]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 00da       |    |		Load_Top	At_Offset_2
0384 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0385 00d8       |    |		Load_Top	At_Offset_0
0386 0120       |    |		Execute	Any,Is_Value
0387 7002       |p   |		Jump_Nonzero	0x38a
0388 00d8       |    |		Load_Top	At_Offset_0
0389 011e       |    |		Execute	Any,Convert
038a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038b 0000 0000  |    |		.BLANK	0000[0x5]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 00da       |    |		Load_Top	At_Offset_2
0394 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0395 0320       |    |		Declare_Variable	Record,Duplicate
0396 00cd       |    |		Action	Spare6_Action
0397 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 00da       |    |		Load_Top	At_Offset_2
039c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
039d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
039e 0000 0000  |    |		.XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 00da       |    |		Load_Top	At_Offset_2
03a4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a5 820f       |    |		Call	0x1,0xf
03a6 6802       |h   |		Jump_Zero	0x3a9
03a7 00ea       |    |		Load_Encached	Null_String_Cache
03a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a9 00da       |    |		Load_Top	At_Offset_2
03aa 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03ab e00b       |    |		Load	0x0,0xb
03ac 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03ad 8256       | V  |		Call	0x1,0x56
03ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03af 0000       |    |		.XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03c2       |    |		.CONST	0x03c2								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0004       |    |		.CONST	0x0004								; Number of locals
03b3			INIT_03b0:
03b3 e001       |    |		Load	0x0,0x1
03b4 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
03b5 02c7       |    |		Declare_Variable	Any
03b6 00db       |    |		Load_Top	At_Offset_3
03b7 e001       |    |		Load	0x0,0x1
03b8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03b9 e00b       |    |		Load	0x0,0xb
03ba 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
03bb a402       |    |		Store_Unchecked	0x2,0x2
03bc e002       |    |		Load	0x0,0x2
03bd 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
03be 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
03bf 0322       | "  |		Declare_Variable	Record
03c0 e23e       | >  |		Load	0x1,0x3e
03c1 0337       | 7  |		Declare_Variable	Array
03c2			BODY_03b0:
03c2 00da       |    |		Load_Top	At_Offset_2
03c3 e001       |    |		Load	0x0,0x1
03c4 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
03c5 6802       |h   |		Jump_Zero	0x3c8
03c6 4836       |H6  |		Short_Literal	0x36
03c7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03c8 00da       |    |		Load_Top	At_Offset_2
03c9 e006       |    |		Load	0x0,0x6
03ca 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 017d       | }  |		Execute	Record,Structure_Write
03cd 00d9       |    |		Load_Top	At_Offset_1
03ce 00db       |    |		Load_Top	At_Offset_3
03cf e017       |    |		Load	0x0,0x17
03d0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03d1 480d       |H   |		Short_Literal	0xd
03d2 480e       |H   |		Short_Literal	0xe
03d3 0262       | b  |		Execute	Discrete,In_Range
03d4 7001       |p   |		Jump_Nonzero	0x3d6
03d5 7833       |x3  |		Jump	0x409
03d6 e5ff       |    |		Load	0x2,-0x1
03d7 8250       | P  |		Call	0x1,0x50
03d8 6802       |h   |		Jump_Zero	0x3db
03d9 4831       |H1  |		Short_Literal	0x31
03da 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03db e5ff       |    |		Load	0x2,-0x1
03dc e00b       |    |		Load	0x0,0xb
03dd 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
03de 6806       |h   |		Jump_Zero	0x3e5
03df e5ff       |    |		Load	0x2,-0x1
03e0 e00b       |    |		Load	0x0,0xb
03e1 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
03e2 e249       | I  |		Load	0x1,0x49
03e3 01d7       |    |		Execute	Vector,Field_Read
03e4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e5 e5fe       |    |		Load	0x2,-0x2
03e6 e002       |    |		Load	0x0,0x2
03e7 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
03e8 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
03e9 017f       |    |		Execute	Record,Equal
03ea 6808       |h   |		Jump_Zero	0x3f3
03eb 00d8       |    |		Load_Top	At_Offset_0
03ec e5ff       |    |		Load	0x2,-0x1
03ed e006       |    |		Load	0x0,0x6
03ee 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03ef e006       |    |		Load	0x0,0x6
03f0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03f1 00d1       |    |		Pop_Control	Pop_Count_1
03f2 7805       |x   |		Jump	0x3f8
03f3 00d8       |    |		Load_Top	At_Offset_0
03f4 e5fe       |    |		Load	0x2,-0x2
03f5 e006       |    |		Load	0x0,0x6
03f6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03f7 00d1       |    |		Pop_Control	Pop_Count_1
03f8 4808       |H   |		Short_Literal	0x8
03f9 00d9       |    |		Load_Top	At_Offset_1
03fa 01d7       |    |		Execute	Vector,Field_Read
03fb e002       |    |		Load	0x0,0x2
03fc 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
03fd 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
03fe 0f00       |    |		Execute_Immediate	Equal,0x0
03ff 4807       |H   |		Short_Literal	0x7
0400 00da       |    |		Load_Top	At_Offset_2
0401 01d7       |    |		Execute	Vector,Field_Read
0402 e002       |    |		Load	0x0,0x2
0403 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0404 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0405 0f00       |    |		Execute_Immediate	Equal,0x0
0406 e24e       | N  |		Load	0x1,0x4e
0407 01a7       |    |		Execute	Matrix,Field_Read
0408 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0409 00d9       |    |		Load_Top	At_Offset_1
040a 00db       |    |		Load_Top	At_Offset_3
040b e00a       |    |		Load	0x0,0xa
040c 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
040d 0aff       |    |		Execute_Immediate	Plus,-0x1
040e 460a       |F   |		Jump_Case	0xb
040f 786f       |xo  |		Jump	0x47f								; case 0x0
0410 786e       |xn  |		Jump	0x47f								; case 0x1
0411 786d       |xm  |		Jump	0x47f								; case 0x2
0412 786c       |xl  |		Jump	0x47f								; case 0x3
0413 786b       |xk  |		Jump	0x47f								; case 0x4
0414 786a       |xj  |		Jump	0x47f								; case 0x5
0415 7869       |xi  |		Jump	0x47f								; case 0x6
0416 7835       |x5  |		Jump	0x44c								; case 0x7
0417 7867       |xg  |		Jump	0x47f								; case 0x8
0418 7866       |xf  |		Jump	0x47f								; case 0x9
0419 7800       |x   |		Jump	0x41a								; case 0xa
041a e5ff       |    |		Load	0x2,-0x1
041b e00b       |    |		Load	0x0,0xb
041c 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
041d 7003       |p   |		Jump_Nonzero	0x421
041e e5ff       |    |		Load	0x2,-0x1
041f 8250       | P  |		Call	0x1,0x50
0420 6829       |h)  |		Jump_Zero	0x44a
0421 4801       |H   |		Short_Literal	0x1
0422 4808       |H   |		Short_Literal	0x8
0423 e402       |    |		Load	0x2,0x2
0424 8254       | T  |		Call	0x1,0x54
0425 6824       |h$  |		Jump_Zero	0x44a
0426 e5fe       |    |		Load	0x2,-0x2
0427 e002       |    |		Load	0x0,0x2
0428 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0429 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
042a 017f       |    |		Execute	Record,Equal
042b 6808       |h   |		Jump_Zero	0x434
042c 00d8       |    |		Load_Top	At_Offset_0
042d e5ff       |    |		Load	0x2,-0x1
042e e006       |    |		Load	0x0,0x6
042f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0430 e006       |    |		Load	0x0,0x6
0431 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0432 00d1       |    |		Pop_Control	Pop_Count_1
0433 7805       |x   |		Jump	0x439
0434 00d8       |    |		Load_Top	At_Offset_0
0435 e5fe       |    |		Load	0x2,-0x2
0436 e006       |    |		Load	0x0,0x6
0437 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0438 00d1       |    |		Pop_Control	Pop_Count_1
0439 4808       |H   |		Short_Literal	0x8
043a 00d9       |    |		Load_Top	At_Offset_1
043b 01d7       |    |		Execute	Vector,Field_Read
043c e002       |    |		Load	0x0,0x2
043d 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
043e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
043f 0f00       |    |		Execute_Immediate	Equal,0x0
0440 4807       |H   |		Short_Literal	0x7
0441 00da       |    |		Load_Top	At_Offset_2
0442 01d7       |    |		Execute	Vector,Field_Read
0443 e002       |    |		Load	0x0,0x2
0444 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0445 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0446 0f00       |    |		Execute_Immediate	Equal,0x0
0447 e24f       | O  |		Load	0x1,0x4f
0448 01a7       |    |		Execute	Matrix,Field_Read
0449 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044a 4836       |H6  |		Short_Literal	0x36
044b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044c e5ff       |    |		Load	0x2,-0x1
044d 8250       | P  |		Call	0x1,0x50
044e 6802       |h   |		Jump_Zero	0x451
044f 4834       |H4  |		Short_Literal	0x34
0450 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0451 e5ff       |    |		Load	0x2,-0x1
0452 e00b       |    |		Load	0x0,0xb
0453 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0454 6806       |h   |		Jump_Zero	0x45b
0455 e5ff       |    |		Load	0x2,-0x1
0456 e00b       |    |		Load	0x0,0xb
0457 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
0458 e24a       | J  |		Load	0x1,0x4a
0459 01d7       |    |		Execute	Vector,Field_Read
045a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
045b e5fe       |    |		Load	0x2,-0x2
045c e002       |    |		Load	0x0,0x2
045d 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
045e 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
045f 017f       |    |		Execute	Record,Equal
0460 6808       |h   |		Jump_Zero	0x469
0461 00d8       |    |		Load_Top	At_Offset_0
0462 e5ff       |    |		Load	0x2,-0x1
0463 e006       |    |		Load	0x0,0x6
0464 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0465 e006       |    |		Load	0x0,0x6
0466 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0467 00d1       |    |		Pop_Control	Pop_Count_1
0468 7805       |x   |		Jump	0x46e
0469 00d8       |    |		Load_Top	At_Offset_0
046a e5fe       |    |		Load	0x2,-0x2
046b e006       |    |		Load	0x0,0x6
046c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
046d 00d1       |    |		Pop_Control	Pop_Count_1
046e 4808       |H   |		Short_Literal	0x8
046f 00d9       |    |		Load_Top	At_Offset_1
0470 01d7       |    |		Execute	Vector,Field_Read
0471 e002       |    |		Load	0x0,0x2
0472 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0473 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0474 0f00       |    |		Execute_Immediate	Equal,0x0
0475 4807       |H   |		Short_Literal	0x7
0476 00da       |    |		Load_Top	At_Offset_2
0477 01d7       |    |		Execute	Vector,Field_Read
0478 e002       |    |		Load	0x0,0x2
0479 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
047a 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
047b 0f00       |    |		Execute_Immediate	Equal,0x0
047c e24f       | O  |		Load	0x1,0x4f
047d 01a7       |    |		Execute	Matrix,Field_Read
047e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
047f 4836       |H6  |		Short_Literal	0x36
0480 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0481 0000 0000  |    |		.BLANK	0000[0x7]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b       |    |		.CONST	0x048b								; Address of begin
0489 0004       |    |		.CONST	0x0004								; Address of exception handler
048a 0001       |    |		.CONST	0x0001								; Number of locals
048b			BODY_0488:
048b			INIT_0488:
048b e25a       | Z  |		Load	0x1,0x5a
048c 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
048d 1d5c       | \  |		Execute_Immediate	Reference_Lex_1,0x5c
048e e00c       |    |		Load	0x0,0xc
048f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0490 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0491 0000 0000  |    |		.BLANK	0000[0x7]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b       |    |		.CONST	0x049b								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0001       |    |		.CONST	0x0001								; Number of locals
049b			BODY_0498:
049b			INIT_0498:
049b 4807       |H   |		Short_Literal	0x7
049c 00ca       |    |		Action	Exit_Nullary_Function
049d 0000 0000  |    |		.XXX[0x3]
049f 0000       |    |
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 4808       |H   |		Short_Literal	0x8
04a4 00ca       |    |		Action	Exit_Nullary_Function
04a5 0000 0000  |    |		.XXX[0x3]
04a7 0000       |    |
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab       |    |		.CONST	0x04ab								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0001       |    |		.CONST	0x0001								; Number of locals
04ab			BODY_04a8:
04ab			INIT_04a8:
04ab 00da       |    |		Load_Top	At_Offset_2
04ac e001       |    |		Load	0x0,0x1
04ad 1b58       | X  |		Execute	Package,Field_Read,Field_Number 0x58
04ae 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04af 4bfd       |K   |		Short_Literal	0x3fd
04b0 026e       | n  |		Execute	Discrete,Modulo
04b1 00d8       |    |		Load_Top	At_Offset_0
04b2 00e2       |    |		Load_Encached	Integer_Cache
04b3 0260       | `  |		Execute	Discrete,In_Type
04b4 7001       |p   |		Jump_Nonzero	0x4b6
04b5 0801       |    |		Execute_Immediate	Raise,0x1
04b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b7 0000       |    |		.XXX[0x1]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb       |    |		.CONST	0x04bb								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0001       |    |		.CONST	0x0001								; Number of locals
04bb			BODY_04b8:
04bb			INIT_04b8:
04bb 00da       |    |		Load_Top	At_Offset_2
04bc e001       |    |		Load	0x0,0x1
04bd 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
04be 7005       |p   |		Jump_Nonzero	0x4c4
04bf 00da       |    |		Load_Top	At_Offset_2
04c0 e00b       |    |		Load	0x0,0xb
04c1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04c2 0f0c       |    |		Execute_Immediate	Equal,0xc
04c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c4 4800       |H   |		Short_Literal	0x0
04c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c6 0000 0000  |    |		.XXX[0x2]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb 00da       |    |		Load_Top	At_Offset_2
04cc e00b       |    |		Load	0x0,0xb
04cd 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
04ce 4604       |F   |		Jump_Case	0x5
04cf 780b       |x   |		Jump	0x4db								; case 0x0
04d0 780a       |x   |		Jump	0x4db								; case 0x1
04d1 780b       |x   |		Jump	0x4dd								; case 0x2
04d2 780c       |x   |		Jump	0x4df								; case 0x3
04d3 7800       |x   |		Jump	0x4d4								; case 0x4
04d4 00da       |    |		Load_Top	At_Offset_2
04d5 8250       | P  |		Call	0x1,0x50
04d6 6802       |h   |		Jump_Zero	0x4d9
04d7 4834       |H4  |		Short_Literal	0x34
04d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04d9 4836       |H6  |		Short_Literal	0x36
04da 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04db 4833       |H3  |		Short_Literal	0x33
04dc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04dd 4834       |H4  |		Short_Literal	0x34
04de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04df 4835       |H5  |		Short_Literal	0x35
04e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e1 0000 0000  |    |		.BLANK	0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb 4801       |H   |		Short_Literal	0x1
04ec 00db       |    |		Load_Top	At_Offset_3
04ed e00f       |    |		Load	0x0,0xf
04ee 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04ef 6802       |h   |		Jump_Zero	0x4f2
04f0 e010       |    |		Load	0x0,0x10
04f1 0257       | W  |		Execute	Discrete,Raise
04f2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04f3 0000 0000  |    |		.BLANK	0000[0x5]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb       |    |		.CONST	0x04fb								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0001       |    |		.CONST	0x0001								; Number of locals
04fb			BODY_04f8:
04fb			INIT_04f8:
04fb 00db       |    |		Load_Top	At_Offset_3
04fc 4829       |H)  |		Short_Literal	0x29
04fd 0092 0867  |   g|		Action	Push_String_Extended,0x867					; "Unexpected exception in Inputs_and_Outputs."
04ff e5ff       |    |		Load	0x2,-0x1
0500 01cc       |    |		Execute	Vector,Catenate
0501 0092 0868  |   h|		Action	Push_String_Extended,0x868					; " ("
0503 01cc       |    |		Execute	Vector,Catenate
0504 e00f       |    |		Load	0x0,0xf
0505 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0506 01cc       |    |		Execute	Vector,Catenate
0507 01cb       |    |		Execute	Vector,Append
0508 e00f       |    |		Load	0x0,0xf
0509 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
050a e00f       |    |		Load	0x0,0xf
050b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
050c c5fe       |    |		Store	0x2,-0x2
050d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
050e 0000 0000  |    |		.XXX[0x2]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0518       |    |		.CONST	0x0518								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0002       |    |		.CONST	0x0002								; Number of locals
0513			INIT_0510:
0513 e001       |    |		Load	0x0,0x1
0514 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0515 02c7       |    |		Declare_Variable	Any
0516 00d8       |    |		Load_Top	At_Offset_0
0517 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0518			BODY_0510:
0518 00cf       |    |		Action	Mark_Auxiliary
0519 e5fd       |    |		Load	0x2,-0x3
051a 4801       |H   |		Short_Literal	0x1
051b 0263       | c  |		Execute	Discrete,Above_Bound
051c 7008       |p   |		Jump_Nonzero	0x525
051d e5ff       |    |		Load	0x2,-0x1
051e e001       |    |		Load	0x0,0x1
051f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0520 e00b       |    |		Load	0x0,0xb
0521 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0522 c402       |    |		Store	0x2,0x2
0523 00c8       |    |		Action	Pop_Auxiliary_Range
0524 3ff8       |?   |		Loop_Increasing	0x51d
0525 00ce       |    |		Action	Pop_Auxiliary
0526 e002       |    |		Load	0x0,0x2
0527 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0528 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0529 00d9       |    |		Load_Top	At_Offset_1
052a e00a       |    |		Load	0x0,0xa
052b 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
052c e5fe       |    |		Load	0x2,-0x2
052d 027f       |    |		Execute	Discrete,Equal
052e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
052f 0000       |    |		.XXX[0x1]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 00da       |    |		Load_Top	At_Offset_2
0534 e001       |    |		Load	0x0,0x1
0535 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0536 0f02       |    |		Execute_Immediate	Equal,0x2
0537 6804       |h   |		Jump_Zero	0x53c
0538 00da       |    |		Load_Top	At_Offset_2
0539 e00b       |    |		Load	0x0,0xb
053a 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
053b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
053c 4800       |H   |		Short_Literal	0x0
053d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
053e 0000 0000  |    |		.XXX[0x2]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0553       | S  |		.CONST	0x0553								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0006       |    |		.CONST	0x0006								; Number of locals
0543			INIT_0540:
0543 00da       |    |		Load_Top	At_Offset_2
0544 01da       |    |		Execute	Vector,Bounds
0545 00e9       |    |		Load_Encached	String_Cache
0546 035b       | [  |		Declare_Type	Array,Constrained
0547 0337       | 7  |		Declare_Variable	Array
0548 00d8       |    |		Load_Top	At_Offset_0
0549 01dd       |    |		Execute	Vector,First
054a 00e3       |    |		Load_Encached	Natural_Cache
054b 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
054c 00d8       |    |		Load_Top	At_Offset_0
054d 00e3       |    |		Load_Encached	Natural_Cache
054e 03f1       |    |		Declare_Variable	Discrete,With_Value
054f 00e1       |    |		Load_Encached	Boolean_Cache
0550 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0551 029f 082b  |   +|		Declare_Subprogram	INIT_0828,For_Call
0553			BODY_0540:
0553 00cf       |    |		Action	Mark_Auxiliary
0554 e5ff       |    |		Load	0x2,-0x1
0555 01d9       |    |		Execute	Vector,Reverse_Bounds
0556 0263       | c  |		Execute	Discrete,Above_Bound
0557 7021       |p!  |		Jump_Nonzero	0x579
0558 00d8       |    |		Load_Top	At_Offset_0
0559 e5ff       |    |		Load	0x2,-0x1
055a 01d7       |    |		Execute	Vector,Field_Read
055b 00d8       |    |		Load_Top	At_Offset_0
055c 0d20       |    |		Execute_Immediate	Less,0x20
055d 700e       |p   |		Jump_Nonzero	0x56c
055e 00d8       |    |		Load_Top	At_Offset_0
055f 0c21       | !  |		Execute_Immediate	Greater_Equal,0x21
0560 7008       |p   |		Jump_Nonzero	0x569
0561 00d1       |    |		Pop_Control	Pop_Count_1
0562 e405       |    |		Load	0x2,0x5
0563 6813       |h   |		Jump_Zero	0x577
0564 4820       |H   |		Short_Literal	0x20
0565 8406       |    |		Call	0x2,0x6
0566 4800       |H   |		Short_Literal	0x0
0567 a405       |    |		Store_Unchecked	0x2,0x5
0568 780e       |x   |		Jump	0x577
0569 0f5f       | _  |		Execute_Immediate	Equal,0x5f
056a 77f7       |w   |		Jump_Nonzero	0x562
056b 7805       |x   |		Jump	0x571
056c 4809       |H   |		Short_Literal	0x9
056d 480d       |H   |		Short_Literal	0xd
056e 0262       | b  |		Execute	Discrete,In_Range
056f 77f2       |w   |		Jump_Nonzero	0x562
0570 7800       |x   |		Jump	0x571
0571 00d8       |    |		Load_Top	At_Offset_0
0572 e5ff       |    |		Load	0x2,-0x1
0573 01d7       |    |		Execute	Vector,Field_Read
0574 8406       |    |		Call	0x2,0x6
0575 4801       |H   |		Short_Literal	0x1
0576 a405       |    |		Store_Unchecked	0x2,0x5
0577 00c8       |    |		Action	Pop_Auxiliary_Range
0578 3fdf       |?   |		Loop_Increasing	0x558
0579 00ce       |    |		Action	Pop_Auxiliary
057a 00db       |    |		Load_Top	At_Offset_3
057b 00e2       |    |		Load_Encached	Integer_Cache
057c e404       |    |		Load	0x2,0x4
057d 0267       | g  |		Execute	Discrete,Predecessor
057e e402       |    |		Load	0x2,0x2
057f 01cf       |    |		Execute	Vector,Slice_Read
0580 e01a       |    |		Load	0x0,0x1a
0581 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0582 00e9       |    |		Load_Encached	String_Cache
0583 01c6       |    |		Execute	Vector,Convert_To_Formal
0584 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0585 0000 0000  |    |		.XXX[0x3]
0587 0000       |    |
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 0590       |    |		.CONST	0x0590								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0003       |    |		.CONST	0x0003								; Number of locals
058b			INIT_0588:
058b 00e1       |    |		Load_Encached	Boolean_Cache
058c e215       |    |		Load	0x1,0x15
058d 0322       | "  |		Declare_Variable	Record
058e 00d8       |    |		Load_Top	At_Offset_0
058f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0590			BODY_0588:
0590 00e1       |    |		Load_Encached	Boolean_Cache
0591 00d9       |    |		Load_Top	At_Offset_1
0592 e5ff       |    |		Load	0x2,-0x1
0593 e5fe       |    |		Load	0x2,-0x2
0594 e241       | A  |		Load	0x1,0x41
0595 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0596 00d1       |    |		Pop_Control	Pop_Count_1
0597 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0598 00d9       |    |		Load_Top	At_Offset_1
0599 6802       |h   |		Jump_Zero	0x59c
059a 00d8       |    |		Load_Top	At_Offset_0
059b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
059c e216       |    |		Load	0x1,0x16
059d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
059e 0000 0000  |    |		.XXX[0x2]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a7       |    |		.CONST	0x05a7								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0002       |    |		.CONST	0x0002								; Number of locals
05a3			INIT_05a0:
05a3 e215       |    |		Load	0x1,0x15
05a4 0322       | "  |		Declare_Variable	Record
05a5 00d8       |    |		Load_Top	At_Offset_0
05a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05a7			BODY_05a0:
05a7 00db       |    |		Load_Top	At_Offset_3
05a8 00d9       |    |		Load_Top	At_Offset_1
05a9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05aa e5fe       |    |		Load	0x2,-0x2
05ab 00d9       |    |		Load_Top	At_Offset_1
05ac 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05ad e5fc       |    |		Load	0x2,-0x4
05ae e002       |    |		Load	0x0,0x2
05af 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
05b0 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
05b1 017f       |    |		Execute	Record,Equal
05b2 6806       |h   |		Jump_Zero	0x5b9
05b3 00db       |    |		Load_Top	At_Offset_3
05b4 e006       |    |		Load	0x0,0x6
05b5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05b6 00d9       |    |		Load_Top	At_Offset_1
05b7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05b8 7803       |x   |		Jump	0x5bc
05b9 e5fc       |    |		Load	0x2,-0x4
05ba 00d9       |    |		Load_Top	At_Offset_1
05bb 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05bc e5fd       |    |		Load	0x2,-0x3
05bd 00d9       |    |		Load_Top	At_Offset_1
05be 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05bf e5fb       |    |		Load	0x2,-0x5
05c0 4800       |H   |		Short_Literal	0x0
05c1 00da       |    |		Load_Top	At_Offset_2
05c2 e5ff       |    |		Load	0x2,-0x1
05c3 e241       | A  |		Load	0x1,0x41
05c4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05c5 c5fb       |    |		Store	0x2,-0x5
05c6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
05c7 0000       |    |		.XXX[0x1]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05d0       |    |		.CONST	0x05d0								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0003       |    |		.CONST	0x0003								; Number of locals
05cb			INIT_05c8:
05cb e241       | A  |		Load	0x1,0x41
05cc 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
05cd 0322       | "  |		Declare_Variable	Record
05ce e239       | 9  |		Load	0x1,0x39
05cf 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
05d0			BODY_05c8:
05d0 00d9       |    |		Load_Top	At_Offset_1
05d1 e5ff       |    |		Load	0x2,-0x1
05d2 e241       | A  |		Load	0x1,0x41
05d3 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
05d4 00d1       |    |		Pop_Control	Pop_Count_1
05d5 00cf       |    |		Action	Mark_Auxiliary
05d6 7821       |x!  |		Jump	0x5f8
05d7 00d9       |    |		Load_Top	At_Offset_1
05d8 480a       |H   |		Short_Literal	0xa
05d9 e402       |    |		Load	0x2,0x2
05da e241       | A  |		Load	0x1,0x41
05db 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
05dc e001       |    |		Load	0x0,0x1
05dd 1b58       | X  |		Execute	Package,Field_Read,Field_Number 0x58
05de 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
05df 0092 0869  |   i|		Action	Push_String_Extended,0x869					; " => "
05e1 01cc       |    |		Execute	Vector,Catenate
05e2 e402       |    |		Load	0x2,0x2
05e3 e241       | A  |		Load	0x1,0x41
05e4 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
05e5 e5ff       |    |		Load	0x2,-0x1
05e6 e241       | A  |		Load	0x1,0x41
05e7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05e8 8227       | '  |		Call	0x1,0x27
05e9 01cc       |    |		Execute	Vector,Catenate
05ea 0092 086a  |   j|		Action	Push_String_Extended,0x86a					; ","
05ec 01cc       |    |		Execute	Vector,Catenate
05ed 01cb       |    |		Execute	Vector,Append
05ee e5fd       |    |		Load	0x2,-0x3
05ef 01cc       |    |		Execute	Vector,Catenate
05f0 e239       | 9  |		Load	0x1,0x39
05f1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05f2 003a       | :  |		Store_Top	Access,At_Offset_2
05f3 00da       |    |		Load_Top	At_Offset_2
05f4 e241       | A  |		Load	0x1,0x41
05f5 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
05f6 00d1       |    |		Pop_Control	Pop_Count_1
05f7 00c9       |    |		Action	Pop_Auxiliary_Loop
05f8 00da       |    |		Load_Top	At_Offset_2
05f9 e241       | A  |		Load	0x1,0x41
05fa 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
05fb 6fdb       |o   |		Jump_Zero	0x5d7
05fc 00ce       |    |		Action	Pop_Auxiliary
05fd e5fd       |    |		Load	0x2,-0x3
05fe 00d9       |    |		Load_Top	At_Offset_1
05ff e239       | 9  |		Load	0x1,0x39
0600 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0601 01cc       |    |		Execute	Vector,Catenate
0602 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0603 0000 0000  |    |		.BLANK	0000[0x5]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b       |    |		.CONST	0x060b								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0001       |    |		.CONST	0x0001								; Number of locals
060b			BODY_0608:
060b			INIT_0608:
060b 00e2       |    |		Load_Encached	Integer_Cache
060c e406       |    |		Load	0x2,0x6
060d 0268       | h  |		Execute	Discrete,Successor
060e c406       |    |		Store	0x2,0x6
060f 4800       |H   |		Short_Literal	0x0
0610 00ca       |    |		Action	Exit_Nullary_Function
0611 0000 0000  |    |		.BLANK	0000[0x7]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0622       | "  |		.CONST	0x0622								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0002       |    |		.CONST	0x0002								; Number of locals
061b			INIT_0618:
061b e215       |    |		Load	0x1,0x15
061c 0322       | "  |		Declare_Variable	Record
061d e405       |    |		Load	0x2,0x5
061e e7ff       |    |		Load	0x3,-0x1
061f 8257       | W  |		Call	0x1,0x57
0620 00d9       |    |		Load_Top	At_Offset_1
0621 017d       | }  |		Execute	Record,Structure_Write
0622			BODY_0618:
0622 00d8       |    |		Load_Top	At_Offset_0
0623 8217       |    |		Call	0x1,0x17
0624 7009       |p   |		Jump_Nonzero	0x62e
0625 00d8       |    |		Load_Top	At_Offset_0
0626 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0627 e408       |    |		Load	0x2,0x8
0628 01d7       |    |		Execute	Vector,Field_Read
0629 6802       |h   |		Jump_Zero	0x62c
062a 8409       |    |		Call	0x2,0x9
062b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062c 4801       |H   |		Short_Literal	0x1
062d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062e 00db       |    |		Load_Top	At_Offset_3
062f e006       |    |		Load	0x0,0x6
0630 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0631 00d9       |    |		Load_Top	At_Offset_1
0632 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0633 e402       |    |		Load	0x2,0x2
0634 00d9       |    |		Load_Top	At_Offset_1
0635 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0636 e006       |    |		Load	0x0,0x6
0637 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0638 00d1       |    |		Pop_Control	Pop_Count_1
0639 00db       |    |		Load_Top	At_Offset_3
063a 8251       | Q  |		Call	0x1,0x51
063b 00d9       |    |		Load_Top	At_Offset_1
063c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
063d 00d8       |    |		Load_Top	At_Offset_0
063e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
063f 0f36       | 6  |		Execute_Immediate	Equal,0x36
0640 6802       |h   |		Jump_Zero	0x643
0641 4801       |H   |		Short_Literal	0x1
0642 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0643 e405       |    |		Load	0x2,0x5
0644 00d9       |    |		Load_Top	At_Offset_1
0645 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0646 e407       |    |		Load	0x2,0x7
0647 00db       |    |		Load_Top	At_Offset_3
0648 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0649 e7ff       |    |		Load	0x3,-0x1
064a 8258       | X  |		Call	0x1,0x58
064b c405       |    |		Store	0x2,0x5
064c 00d8       |    |		Load_Top	At_Offset_0
064d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
064e e408       |    |		Load	0x2,0x8
064f 01d7       |    |		Execute	Vector,Field_Read
0650 6802       |h   |		Jump_Zero	0x653
0651 8409       |    |		Call	0x2,0x9
0652 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0653 4801       |H   |		Short_Literal	0x1
0654 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0655 0000 0000  |    |		.XXX[0x3]
0657 0000       |    |
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 0666       | f  |		.CONST	0x0666								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0003       |    |		.CONST	0x0003								; Number of locals
065b			INIT_0658:
065b e20e       |    |		Load	0x1,0xe
065c 02c7       |    |		Declare_Variable	Any
065d e211       |    |		Load	0x1,0x11
065e a602       |    |		Store_Unchecked	0x3,0x2
065f e215       |    |		Load	0x1,0x15
0660 0322       | "  |		Declare_Variable	Record
0661 e405       |    |		Load	0x2,0x5
0662 e7ff       |    |		Load	0x3,-0x1
0663 8257       | W  |		Call	0x1,0x57
0664 00d9       |    |		Load_Top	At_Offset_1
0665 017d       | }  |		Execute	Record,Structure_Write
0666			BODY_0658:
0666 00d8       |    |		Load_Top	At_Offset_0
0667 8217       |    |		Call	0x1,0x17
0668 7009       |p   |		Jump_Nonzero	0x672
0669 00d8       |    |		Load_Top	At_Offset_0
066a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
066b e408       |    |		Load	0x2,0x8
066c 01d7       |    |		Execute	Vector,Field_Read
066d 6802       |h   |		Jump_Zero	0x670
066e 8409       |    |		Call	0x2,0x9
066f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0670 4801       |H   |		Short_Literal	0x1
0671 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0672 e7ff       |    |		Load	0x3,-0x1
0673 8250       | P  |		Call	0x1,0x50
0674 6811       |h   |		Jump_Zero	0x686
0675 e405       |    |		Load	0x2,0x5
0676 e002       |    |		Load	0x0,0x2
0677 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0678 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0679 e407       |    |		Load	0x2,0x7
067a 4834       |H4  |		Short_Literal	0x34
067b e7ff       |    |		Load	0x3,-0x1
067c 8258       | X  |		Call	0x1,0x58
067d c405       |    |		Store	0x2,0x5
067e 4834       |H4  |		Short_Literal	0x34
067f e408       |    |		Load	0x2,0x8
0680 01d7       |    |		Execute	Vector,Field_Read
0681 6802       |h   |		Jump_Zero	0x684
0682 8409       |    |		Call	0x2,0x9
0683 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0684 4801       |H   |		Short_Literal	0x1
0685 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0686 e7ff       |    |		Load	0x3,-0x1
0687 e00b       |    |		Load	0x0,0xb
0688 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0689 681a       |h   |		Jump_Zero	0x6a4
068a e7ff       |    |		Load	0x3,-0x1
068b e00b       |    |		Load	0x0,0xb
068c 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
068d e24a       | J  |		Load	0x1,0x4a
068e 01d7       |    |		Execute	Vector,Field_Read
068f 00d9       |    |		Load_Top	At_Offset_1
0690 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0691 e405       |    |		Load	0x2,0x5
0692 e002       |    |		Load	0x0,0x2
0693 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0694 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0695 e407       |    |		Load	0x2,0x7
0696 00db       |    |		Load_Top	At_Offset_3
0697 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0698 e7ff       |    |		Load	0x3,-0x1
0699 8258       | X  |		Call	0x1,0x58
069a c405       |    |		Store	0x2,0x5
069b 00d8       |    |		Load_Top	At_Offset_0
069c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
069d e408       |    |		Load	0x2,0x8
069e 01d7       |    |		Execute	Vector,Field_Read
069f 6802       |h   |		Jump_Zero	0x6a2
06a0 8409       |    |		Call	0x2,0x9
06a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06a2 4801       |H   |		Short_Literal	0x1
06a3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06a4 e7ff       |    |		Load	0x3,-0x1
06a5 e00b       |    |		Load	0x0,0xb
06a6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
06a7 e243       | C  |		Load	0x1,0x43
06a8 01d7       |    |		Execute	Vector,Field_Read
06a9 6835       |h5  |		Jump_Zero	0x6df
06aa e7ff       |    |		Load	0x3,-0x1
06ab e006       |    |		Load	0x0,0x6
06ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06ad 00d9       |    |		Load_Top	At_Offset_1
06ae 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06af e402       |    |		Load	0x2,0x2
06b0 00d9       |    |		Load_Top	At_Offset_1
06b1 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
06b2 e006       |    |		Load	0x0,0x6
06b3 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
06b4 00d1       |    |		Pop_Control	Pop_Count_1
06b5 4808       |H   |		Short_Literal	0x8
06b6 e402       |    |		Load	0x2,0x2
06b7 01d7       |    |		Execute	Vector,Field_Read
06b8 e002       |    |		Load	0x0,0x2
06b9 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
06ba 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
06bb 0f00       |    |		Execute_Immediate	Equal,0x0
06bc 4807       |H   |		Short_Literal	0x7
06bd e402       |    |		Load	0x2,0x2
06be 01d7       |    |		Execute	Vector,Field_Read
06bf e002       |    |		Load	0x0,0x2
06c0 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
06c1 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
06c2 0f00       |    |		Execute_Immediate	Equal,0x0
06c3 e24f       | O  |		Load	0x1,0x4f
06c4 01a7       |    |		Execute	Matrix,Field_Read
06c5 00d9       |    |		Load_Top	At_Offset_1
06c6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
06c7 00d8       |    |		Load_Top	At_Offset_0
06c8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06c9 0f36       | 6  |		Execute_Immediate	Equal,0x36
06ca 6802       |h   |		Jump_Zero	0x6cd
06cb 4801       |H   |		Short_Literal	0x1
06cc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06cd e405       |    |		Load	0x2,0x5
06ce 00d9       |    |		Load_Top	At_Offset_1
06cf 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
06d0 e407       |    |		Load	0x2,0x7
06d1 00db       |    |		Load_Top	At_Offset_3
06d2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06d3 e7ff       |    |		Load	0x3,-0x1
06d4 8258       | X  |		Call	0x1,0x58
06d5 c405       |    |		Store	0x2,0x5
06d6 00d8       |    |		Load_Top	At_Offset_0
06d7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06d8 e408       |    |		Load	0x2,0x8
06d9 01d7       |    |		Execute	Vector,Field_Read
06da 6802       |h   |		Jump_Zero	0x6dd
06db 8409       |    |		Call	0x2,0x9
06dc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06dd 4801       |H   |		Short_Literal	0x1
06de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
06df e7ff       |    |		Load	0x3,-0x1
06e0 8255       | U  |		Call	0x1,0x55
06e1 6836       |h6  |		Jump_Zero	0x718
06e2 e7ff       |    |		Load	0x3,-0x1
06e3 e00b       |    |		Load	0x0,0xb
06e4 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
06e5 6818       |h   |		Jump_Zero	0x6fe
06e6 00d9       |    |		Load_Top	At_Offset_1
06e7 0120       |    |		Execute	Any,Is_Value
06e8 6803       |h   |		Jump_Zero	0x6ec
06e9 e001       |    |		Load	0x0,0x1
06ea 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
06eb 7801       |x   |		Jump	0x6ed
06ec 00d9       |    |		Load_Top	At_Offset_1
06ed e7ff       |    |		Load	0x3,-0x1
06ee e00b       |    |		Load	0x0,0xb
06ef 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
06f0 480f       |H   |		Short_Literal	0xf
06f1 4802       |H   |		Short_Literal	0x2
06f2 0099       |    |		Action	Reference_Dynamic
06f3 4810       |H   |		Short_Literal	0x10
06f4 4802       |H   |		Short_Literal	0x2
06f5 0099       |    |		Action	Reference_Dynamic
06f6 e001       |    |		Load	0x0,0x1
06f7 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
06f8 c602       |    |		Store	0x3,0x2
06f9 e404       |    |		Load	0x2,0x4
06fa 00da       |    |		Load_Top	At_Offset_2
06fb e001       |    |		Load	0x0,0x1
06fc 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
06fd c404       |    |		Store	0x2,0x4
06fe 00d9       |    |		Load_Top	At_Offset_1
06ff 0120       |    |		Execute	Any,Is_Value
0700 6803       |h   |		Jump_Zero	0x704
0701 e001       |    |		Load	0x0,0x1
0702 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0703 7801       |x   |		Jump	0x705
0704 00d9       |    |		Load_Top	At_Offset_1
0705 e7ff       |    |		Load	0x3,-0x1
0706 e00b       |    |		Load	0x0,0xb
0707 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0708 480b       |H   |		Short_Literal	0xb
0709 4802       |H   |		Short_Literal	0x2
070a 0099       |    |		Action	Reference_Dynamic
070b 480c       |H   |		Short_Literal	0xc
070c 4802       |H   |		Short_Literal	0x2
070d 0099       |    |		Action	Reference_Dynamic
070e e001       |    |		Load	0x0,0x1
070f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0710 c602       |    |		Store	0x3,0x2
0711 e404       |    |		Load	0x2,0x4
0712 00da       |    |		Load_Top	At_Offset_2
0713 e001       |    |		Load	0x0,0x1
0714 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0715 c404       |    |		Store	0x2,0x4
0716 4801       |H   |		Short_Literal	0x1
0717 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0718 4801       |H   |		Short_Literal	0x1
0719 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
071a 0000 0000  |    |		.BLANK	0000[0x6]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 072a       | *  |		.CONST	0x072a								; Address of begin
0721 0004       |    |		.CONST	0x0004								; Address of exception handler
0722 0002       |    |		.CONST	0x0002								; Number of locals
0723			INIT_0720:
0723 4801       |H   |		Short_Literal	0x1
0724 e406       |    |		Load	0x2,0x6
0725 e219       |    |		Load	0x1,0x19
0726 035b       | [  |		Declare_Type	Array,Constrained
0727 0337       | 7  |		Declare_Variable	Array
0728 00d8       |    |		Load_Top	At_Offset_0
0729 1c00       |    |		Execute_Immediate	Run_Utility,0x0
072a			BODY_0720:
072a e403       |    |		Load	0x2,0x3
072b e404       |    |		Load	0x2,0x4
072c e001       |    |		Load	0x0,0x1
072d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
072e c403       |    |		Store	0x2,0x3
072f 00cf       |    |		Action	Mark_Auxiliary
0730 00d9       |    |		Load_Top	At_Offset_1
0731 01d9       |    |		Execute	Vector,Reverse_Bounds
0732 0263       | c  |		Execute	Discrete,Above_Bound
0733 700f       |p   |		Jump_Nonzero	0x743
0734 e403       |    |		Load	0x2,0x3
0735 e001       |    |		Load	0x0,0x1
0736 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0737 e405       |    |		Load	0x2,0x5
0738 e241       | A  |		Load	0x1,0x41
0739 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
073a 00d9       |    |		Load_Top	At_Offset_1
073b e602       |    |		Load	0x3,0x2
073c 01d6       |    |		Execute	Vector,Field_Write
073d e403       |    |		Load	0x2,0x3
073e e001       |    |		Load	0x0,0x1
073f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0740 c403       |    |		Store	0x2,0x3
0741 00c8       |    |		Action	Pop_Auxiliary_Range
0742 3ff1       |?   |		Loop_Increasing	0x734
0743 00ce       |    |		Action	Pop_Auxiliary
0744 00d8       |    |		Load_Top	At_Offset_0
0745 e219       |    |		Load	0x1,0x19
0746 01c6       |    |		Execute	Vector,Convert_To_Formal
0747 00ca       |    |		Action	Exit_Nullary_Function
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 0752       | R  |		.CONST	0x0752								; Address of begin
0749 0004       |    |		.CONST	0x0004								; Address of exception handler
074a 0002       |    |		.CONST	0x0002								; Number of locals
074b			INIT_0748:
074b e001       |    |		Load	0x0,0x1
074c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
074d 02c7       |    |		Declare_Variable	Any
074e e5ff       |    |		Load	0x2,-0x1
074f e00a       |    |		Load	0x0,0xa
0750 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0751 a602       |    |		Store_Unchecked	0x3,0x2
0752			BODY_0748:
0752 e403       |    |		Load	0x2,0x3
0753 0120       |    |		Execute	Any,Is_Value
0754 6803       |h   |		Jump_Zero	0x758
0755 e001       |    |		Load	0x0,0x1
0756 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0757 7801       |x   |		Jump	0x759
0758 e403       |    |		Load	0x2,0x3
0759 00d9       |    |		Load_Top	At_Offset_1
075a 4814       |H   |		Short_Literal	0x14
075b 4802       |H   |		Short_Literal	0x2
075c 0099       |    |		Action	Reference_Dynamic
075d 4815       |H   |		Short_Literal	0x15
075e 4802       |H   |		Short_Literal	0x2
075f 0099       |    |		Action	Reference_Dynamic
0760 e001       |    |		Load	0x0,0x1
0761 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0762 c403       |    |		Store	0x2,0x3
0763 8418       |    |		Call	0x2,0x18
0764 e219       |    |		Load	0x1,0x19
0765 01c6       |    |		Execute	Vector,Convert_To_Formal
0766 00cb       |    |		Action	Pop_Block_With_Result
0767 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076b       | k  |		.CONST	0x076b								; Address of begin
0769 0004       |    |		.CONST	0x0004								; Address of exception handler
076a 0001       |    |		.CONST	0x0001								; Number of locals
076b			BODY_0768:
076b			INIT_0768:
076b 00e2       |    |		Load_Encached	Integer_Cache
076c e405       |    |		Load	0x2,0x5
076d 0268       | h  |		Execute	Discrete,Successor
076e c405       |    |		Store	0x2,0x5
076f 4800       |H   |		Short_Literal	0x0
0770 00ca       |    |		Action	Exit_Nullary_Function
0771 0000 0000  |    |		.BLANK	0000[0x7]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 0782       |    |		.CONST	0x0782								; Address of begin
0779 0004       |    |		.CONST	0x0004								; Address of exception handler
077a 0002       |    |		.CONST	0x0002								; Number of locals
077b			INIT_0778:
077b e215       |    |		Load	0x1,0x15
077c 0322       | "  |		Declare_Variable	Record
077d e404       |    |		Load	0x2,0x4
077e e7ff       |    |		Load	0x3,-0x1
077f 8257       | W  |		Call	0x1,0x57
0780 00d9       |    |		Load_Top	At_Offset_1
0781 017d       | }  |		Execute	Record,Structure_Write
0782			BODY_0778:
0782 00d8       |    |		Load_Top	At_Offset_0
0783 8217       |    |		Call	0x1,0x17
0784 7009       |p   |		Jump_Nonzero	0x78e
0785 00d8       |    |		Load_Top	At_Offset_0
0786 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0787 e407       |    |		Load	0x2,0x7
0788 01d7       |    |		Execute	Vector,Field_Read
0789 6802       |h   |		Jump_Zero	0x78c
078a 8408       |    |		Call	0x2,0x8
078b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
078c 4801       |H   |		Short_Literal	0x1
078d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
078e 00db       |    |		Load_Top	At_Offset_3
078f 8250       | P  |		Call	0x1,0x50
0790 6811       |h   |		Jump_Zero	0x7a2
0791 e404       |    |		Load	0x2,0x4
0792 e002       |    |		Load	0x0,0x2
0793 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0794 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0795 e406       |    |		Load	0x2,0x6
0796 4831       |H1  |		Short_Literal	0x31
0797 e7ff       |    |		Load	0x3,-0x1
0798 8258       | X  |		Call	0x1,0x58
0799 c404       |    |		Store	0x2,0x4
079a 4831       |H1  |		Short_Literal	0x31
079b e407       |    |		Load	0x2,0x7
079c 01d7       |    |		Execute	Vector,Field_Read
079d 6802       |h   |		Jump_Zero	0x7a0
079e 8408       |    |		Call	0x2,0x8
079f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07a0 4801       |H   |		Short_Literal	0x1
07a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07a2 00db       |    |		Load_Top	At_Offset_3
07a3 e00b       |    |		Load	0x0,0xb
07a4 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
07a5 681a       |h   |		Jump_Zero	0x7c0
07a6 00db       |    |		Load_Top	At_Offset_3
07a7 e00b       |    |		Load	0x0,0xb
07a8 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
07a9 e249       | I  |		Load	0x1,0x49
07aa 01d7       |    |		Execute	Vector,Field_Read
07ab 00d9       |    |		Load_Top	At_Offset_1
07ac 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07ad e404       |    |		Load	0x2,0x4
07ae e002       |    |		Load	0x0,0x2
07af 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
07b0 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
07b1 e406       |    |		Load	0x2,0x6
07b2 00db       |    |		Load_Top	At_Offset_3
07b3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07b4 e7ff       |    |		Load	0x3,-0x1
07b5 8258       | X  |		Call	0x1,0x58
07b6 c404       |    |		Store	0x2,0x4
07b7 00d8       |    |		Load_Top	At_Offset_0
07b8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07b9 e407       |    |		Load	0x2,0x7
07ba 01d7       |    |		Execute	Vector,Field_Read
07bb 6802       |h   |		Jump_Zero	0x7be
07bc 8408       |    |		Call	0x2,0x8
07bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07be 4801       |H   |		Short_Literal	0x1
07bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07c0 00db       |    |		Load_Top	At_Offset_3
07c1 e00b       |    |		Load	0x0,0xb
07c2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
07c3 e243       | C  |		Load	0x1,0x43
07c4 01d7       |    |		Execute	Vector,Field_Read
07c5 6835       |h5  |		Jump_Zero	0x7fb
07c6 00db       |    |		Load_Top	At_Offset_3
07c7 e006       |    |		Load	0x0,0x6
07c8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07c9 00d9       |    |		Load_Top	At_Offset_1
07ca 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
07cb e402       |    |		Load	0x2,0x2
07cc 00d9       |    |		Load_Top	At_Offset_1
07cd 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
07ce e006       |    |		Load	0x0,0x6
07cf 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
07d0 00d1       |    |		Pop_Control	Pop_Count_1
07d1 4808       |H   |		Short_Literal	0x8
07d2 e402       |    |		Load	0x2,0x2
07d3 01d7       |    |		Execute	Vector,Field_Read
07d4 e002       |    |		Load	0x0,0x2
07d5 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
07d6 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
07d7 0f00       |    |		Execute_Immediate	Equal,0x0
07d8 4807       |H   |		Short_Literal	0x7
07d9 e402       |    |		Load	0x2,0x2
07da 01d7       |    |		Execute	Vector,Field_Read
07db e002       |    |		Load	0x0,0x2
07dc 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
07dd 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
07de 0f00       |    |		Execute_Immediate	Equal,0x0
07df e24e       | N  |		Load	0x1,0x4e
07e0 01a7       |    |		Execute	Matrix,Field_Read
07e1 00d9       |    |		Load_Top	At_Offset_1
07e2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07e3 00d8       |    |		Load_Top	At_Offset_0
07e4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07e5 0f36       | 6  |		Execute_Immediate	Equal,0x36
07e6 6802       |h   |		Jump_Zero	0x7e9
07e7 4801       |H   |		Short_Literal	0x1
07e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07e9 e404       |    |		Load	0x2,0x4
07ea 00d9       |    |		Load_Top	At_Offset_1
07eb 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
07ec e406       |    |		Load	0x2,0x6
07ed 00db       |    |		Load_Top	At_Offset_3
07ee 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07ef e7ff       |    |		Load	0x3,-0x1
07f0 8258       | X  |		Call	0x1,0x58
07f1 c404       |    |		Store	0x2,0x4
07f2 00d8       |    |		Load_Top	At_Offset_0
07f3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07f4 e407       |    |		Load	0x2,0x7
07f5 01d7       |    |		Execute	Vector,Field_Read
07f6 6802       |h   |		Jump_Zero	0x7f9
07f7 8408       |    |		Call	0x2,0x8
07f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07f9 4801       |H   |		Short_Literal	0x1
07fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07fb 4801       |H   |		Short_Literal	0x1
07fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07fd 0000 0000  |    |		.XXX[0x3]
07ff 0000       |    |
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 080a       |    |		.CONST	0x080a								; Address of begin
0801 0004       |    |		.CONST	0x0004								; Address of exception handler
0802 0002       |    |		.CONST	0x0002								; Number of locals
0803			INIT_0800:
0803 4801       |H   |		Short_Literal	0x1
0804 e405       |    |		Load	0x2,0x5
0805 e219       |    |		Load	0x1,0x19
0806 035b       | [  |		Declare_Type	Array,Constrained
0807 0337       | 7  |		Declare_Variable	Array
0808 00d8       |    |		Load_Top	At_Offset_0
0809 1c00       |    |		Execute_Immediate	Run_Utility,0x0
080a			BODY_0800:
080a 00cf       |    |		Action	Mark_Auxiliary
080b 00d9       |    |		Load_Top	At_Offset_1
080c 01d9       |    |		Execute	Vector,Reverse_Bounds
080d 0263       | c  |		Execute	Discrete,Above_Bound
080e 700f       |p   |		Jump_Nonzero	0x81e
080f e403       |    |		Load	0x2,0x3
0810 e001       |    |		Load	0x0,0x1
0811 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0812 e404       |    |		Load	0x2,0x4
0813 e241       | A  |		Load	0x1,0x41
0814 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0815 00d9       |    |		Load_Top	At_Offset_1
0816 e602       |    |		Load	0x3,0x2
0817 01d6       |    |		Execute	Vector,Field_Write
0818 e403       |    |		Load	0x2,0x3
0819 e001       |    |		Load	0x0,0x1
081a 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
081b c403       |    |		Store	0x2,0x3
081c 00c8       |    |		Action	Pop_Auxiliary_Range
081d 3ff1       |?   |		Loop_Increasing	0x80f
081e 00ce       |    |		Action	Pop_Auxiliary
081f 00d8       |    |		Load_Top	At_Offset_0
0820 e219       |    |		Load	0x1,0x19
0821 01c6       |    |		Execute	Vector,Convert_To_Formal
0822 00ca       |    |		Action	Exit_Nullary_Function
0823 0000 0000  |    |		.BLANK	0000[0x5]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b       | +  |		.CONST	0x082b								; Address of begin
0829 0004       |    |		.CONST	0x0004								; Address of exception handler
082a 0001       |    |		.CONST	0x0001								; Number of locals
082b			BODY_0828:
082b			INIT_0828:
082b 00da       |    |		Load_Top	At_Offset_2
082c e404       |    |		Load	0x2,0x4
082d e402       |    |		Load	0x2,0x2
082e 01d6       |    |		Execute	Vector,Field_Write
082f 00e2       |    |		Load_Encached	Integer_Cache
0830 e404       |    |		Load	0x2,0x4
0831 0268       | h  |		Execute	Discrete,Successor
0832 c404       |    |		Store	0x2,0x4
0833 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0834 0000 0000  |    |		.BLANK	0000[0x4]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083b       | ;  |		.CONST	0x083b								; Address of begin
0839 0004       |    |		.CONST	0x0004								; Address of exception handler
083a 0001       |    |		.CONST	0x0001								; Number of locals
083b			BODY_0838:
083b			INIT_0838:
083b 4608       |F   |		Jump_Case	0x9
083c 7808       |x   |		Jump	0x845								; case 0x0
083d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
083e 7826       |x&  |		Jump	0x865								; case 0x2
083f 7825       |x%  |		Jump	0x865								; case 0x3
0840 7824       |x$  |		Jump	0x865								; case 0x4
0841 7823       |x#  |		Jump	0x865								; case 0x5
0842 7822       |x"  |		Jump	0x865								; case 0x6
0843 7821       |x!  |		Jump	0x865								; case 0x7
0844 7820       |x   |		Jump	0x865								; case 0x8
0845 00da       |    |		Load_Top	At_Offset_2
0846 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0847 0125       | %  |		Execute	Any,Set_Constraint
0848 e210       |    |		Load	0x1,0x10
0849 00db       |    |		Load_Top	At_Offset_3
084a 00d9       |    |		Load_Top	At_Offset_1
084b 00d9       |    |		Load_Top	At_Offset_1
084c 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
084d 0119       |    |		Execute	Any,Check_In_Formal_Type
084e 00d1       |    |		Pop_Control	Pop_Count_1
084f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0850 4836       |H6  |		Short_Literal	0x36
0851 00db       |    |		Load_Top	At_Offset_3
0852 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0853 00da       |    |		Load_Top	At_Offset_2
0854 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0855 0125       | %  |		Execute	Any,Set_Constraint
0856 e001       |    |		Load	0x0,0x1
0857 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0858 00db       |    |		Load_Top	At_Offset_3
0859 00d9       |    |		Load_Top	At_Offset_1
085a 00d9       |    |		Load_Top	At_Offset_1
085b 3002       |0   |		Execute	Record,Field_Type,Field_Number 0x2
085c 0119       |    |		Execute	Any,Check_In_Formal_Type
085d 00d1       |    |		Pop_Control	Pop_Count_1
085e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
085f e002       |    |		Load	0x0,0x2
0860 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0861 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0862 00db       |    |		Load_Top	At_Offset_3
0863 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0864 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0865 0869       | i  |		Execute_Immediate	Raise,0x69
0866 ; --------------------------------------------------------------------------------------
0866 ; STRING TABLE
0866 ; --------------------------------------------------------------------------------------
0866 000c       |    |		.STRTAB	0x000c->0x086c							; "Initialize"
0867 0014       |    |		.STRTAB	0x0014->0x0871							; "Unexpected exception in Inputs_and_Outputs."
0868 003d       | =  |		.STRTAB	0x003d->0x0886							; " ("
0869 003d       | =  |		.STRTAB	0x003d->0x0887							; " => "
086a 003f       | ?  |		.STRTAB	0x003f->0x0889							; ","
086b 003e       | >  |		.STREND 0x003e->0x088a
086c 496e 6974  |Init|		.STRTAB_STRINGS
088a 0000 0000  |    |		.BLANK	0000[0x6]
0890 ; --------------------------------------------------------------------------------------
0890 ; Debug Table
0890 ; --------------------------------------------------------------------------------------
0890 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xc594,0x0000,0x0001,0x0000
0896 0000 0000  |    |		.XXX[0x7]
0898 4000 0002  |@   |
089a 9000 0480  |    |
089c 0398       |    |
089d 0000 0000  |    |		.BLANK	0000[0x1b]
08b8 0040 002c  | @ ,|		.XXX[0x1e]
08ba 7490 b820  |t   |
08bc 5a40 0002  |Z@  |
08be 65d6 c970  |e  p|
08c0 1001 0000  |    |
08c2 9c00 0000  |    |
08c4 32af 4000  |2 @ |
08c6 1400 0000  |    |
08c8 1300 2800  |  ( |
08ca 0005 1000  |    |
08cc 0002 0000  |    |
08ce 0011 0000  |    |
08d0 0000 0800  |    |
08d2 0000 5200  |  R |
08d4 0090 0073  |   s|
08d6 0000 0000  |    |		.BLANK	0000[0x1b]
08f1 0008 0005  |    |		.XXX[0x3]
08f3 8e90       |    |
08f4 0000 0000  |    |		.BLANK	0000[0xd]
0901 0020 0500  |    |		.XXX[0xc]
0903 0000 0000  |    |
0905 0000 4000  |  @ |
0907 0002 2000  |    |
0909 0000 0100  |    |
090b 0000 0a00  |    |
090d 0000 0000  |    |		.BLANK	0000[0x2d]
093a 0004 00a0  |    |		.XXX[0xc]
093c 0000 0000  |    |
093e 0000 0800  |    |
0940 0000 4400  |  D |
0942 0000 0020  |    |
0944 0000 0140  |   @|
0946 0000 0000  |    |		.BLANK	0000[0x2e]
0974 8014 0000  |    |		.XXX[0xb]
0976 0000 0000  |    |
0978 0100 0000  |    |
097a 0880 0000  |    |
097c 0004 0000  |    |
097e 0028       | (  |
097f 0000 0000  |    |		.BLANK	0000[0x2e]
09ad 1002 8000  |    |		.XXX[0xb]
09af 0000 0000  |    |
09b1 0020 0000  |    |
09b3 0110 0000  |    |
09b5 0000 8000  |    |
09b7 0005       |    |
09b8 0000 0000  |    |		.BLANK	0000[0x48]