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

⟦951aed05a⟧

    Length: 11264 (0x2c00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 1460       | `  |		.CONST	0x1460								; 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 800d       |    |		.CONST	0x800d								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 037e       | ~  |		.CONST	0x037e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 00b5       |    |		.CONST	0x00b5								; Number of locals
000b			INIT_0008:
000b 00e5       |    |		Load_Encached	Long_Integer_Cache
000c 0129       | )  |		Execute	Any,Make_Visible
000d 00e6       |    |		Load_Encached	Float_Cache
000e 0129       | )  |		Execute	Any,Make_Visible
000f 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
0011 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
0013 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
0015 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0017 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
0019 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
001b 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
001d 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
001f 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
0021 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
0023 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
0025 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
0027 029a 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call,Visible,Unelaborated
0029 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
002b 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
002d 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
002f 6354       |cT  |		Indirect_Literal	Discrete,0x384,{0xffffffff, 0x80000001}
0030 634f       |cO  |		Indirect_Literal	Discrete,0x380,{0x00000000, 0x7fffffff}
0031 00e5       |    |		Load_Encached	Long_Integer_Cache
0032 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0033 00e4       |    |		Load_Encached	Positive_Cache
0034 0266       | f  |		Execute	Discrete,Bounds
0035 00da       |    |		Load_Top	At_Offset_2
0036 02a0       |    |		Declare_Subprogram	Null_Subprogram
0037 4801       |H   |		Short_Literal	0x1
0038 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0039 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
003b 029a 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call,Visible,Unelaborated
003d 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
003f 029a 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call,Visible,Unelaborated
0041 029a 048b  |    |		Declare_Subprogram	INIT_0488,For_Outer_Call,Visible,Unelaborated
0043 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
0045 029a 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call,Visible,Unelaborated
0047 029a 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call,Visible,Unelaborated
0049 029a 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call,Visible,Unelaborated
004b 029a 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call,Visible,Unelaborated
004d 029a 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Outer_Call,Visible,Unelaborated
004f 029a 054b  |   K|		Declare_Subprogram	INIT_0548,For_Outer_Call,Visible,Unelaborated
0051 029a 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call,Visible,Unelaborated
0053 029a 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call,Visible,Unelaborated
0055 029a 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Outer_Call,Visible,Unelaborated
0057 029a 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Outer_Call,Visible,Unelaborated
0059 029a 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call,Visible,Unelaborated
005b 029a 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call,Visible,Unelaborated
005d 00e3       |    |		Load_Encached	Natural_Cache
005e 00d8       |    |		Load_Top	At_Offset_0
005f e220       |    |		Load	0x1,0x20
0060 00d8       |    |		Load_Top	At_Offset_0
0061 029f 13cb  |    |		Declare_Subprogram	INIT_13c8,For_Call
0063 4800       |H   |		Short_Literal	0x0
0064 4802       |H   |		Short_Literal	0x2
0065 4800       |H   |		Short_Literal	0x0
0066 4800       |H   |		Short_Literal	0x0
0067 4802       |H   |		Short_Literal	0x2
0068 4802       |H   |		Short_Literal	0x2
0069 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
006a 029a 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call,Visible,Unelaborated
006c 029a 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call,Visible,Unelaborated
006e 029a 060b  |    |		Declare_Subprogram	INIT_0608,For_Outer_Call,Visible,Unelaborated
0070 029a 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call,Visible,Unelaborated
0072 4fff       |O   |		Short_Literal	-0x1
0073 4801       |H   |		Short_Literal	0x1
0074 00e5       |    |		Load_Encached	Long_Integer_Cache
0075 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0076 029a 0683  |    |		Declare_Subprogram	INIT_0680,For_Outer_Call,Visible,Unelaborated
0078 029a 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call,Visible,Unelaborated
007a 029a 06db  |    |		Declare_Subprogram	INIT_06d8,For_Outer_Call,Visible,Unelaborated
007c 029a 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Outer_Call,Visible,Unelaborated
007e 029a 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Outer_Call,Visible,Unelaborated
0080 029a 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Outer_Call,Visible,Unelaborated
0082 00e4       |    |		Load_Encached	Positive_Cache
0083 00d8       |    |		Load_Top	At_Offset_0
0084 4800       |H   |		Short_Literal	0x0
0085 4802       |H   |		Short_Literal	0x2
0086 4802       |H   |		Short_Literal	0x2
0087 4804       |H   |		Short_Literal	0x4
0088 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0089 029f 139b  |    |		Declare_Subprogram	INIT_1398,For_Call
008b 00d9       |    |		Load_Top	At_Offset_1
008c 012a       | *  |		Execute	Any,Change_Utility
008d 0007       |    |		Action	Break_Optional
008e 029a 06fb  |    |		Declare_Subprogram	INIT_06f8,For_Outer_Call,Visible,Unelaborated
0090 029a 070b  |    |		Declare_Subprogram	INIT_0708,For_Outer_Call,Visible,Unelaborated
0092 029a 0713  |    |		Declare_Subprogram	INIT_0710,For_Outer_Call,Visible,Unelaborated
0094 029a 071b  |    |		Declare_Subprogram	INIT_0718,For_Outer_Call,Visible,Unelaborated
0096 029a 072b  |   +|		Declare_Subprogram	INIT_0728,For_Outer_Call,Visible,Unelaborated
0098 029a 0733  |   3|		Declare_Subprogram	INIT_0730,For_Outer_Call,Visible,Unelaborated
009a 029a 0743  |   C|		Declare_Subprogram	INIT_0740,For_Outer_Call,Visible,Unelaborated
009c 029a 0753  |   S|		Declare_Subprogram	INIT_0750,For_Outer_Call,Visible,Unelaborated
009e 029a 076b  |   k|		Declare_Subprogram	INIT_0768,For_Outer_Call,Visible,Unelaborated
00a0 029a 0783  |    |		Declare_Subprogram	INIT_0780,For_Outer_Call,Visible,Unelaborated
00a2 029a 0793  |    |		Declare_Subprogram	INIT_0790,For_Outer_Call,Visible,Unelaborated
00a4 029a 07a3  |    |		Declare_Subprogram	INIT_07a0,For_Outer_Call,Visible,Unelaborated
00a6 029a 07e3  |    |		Declare_Subprogram	INIT_07e0,For_Outer_Call,Visible,Unelaborated
00a8 029a 07f3  |    |		Declare_Subprogram	INIT_07f0,For_Outer_Call,Visible,Unelaborated
00aa 029a 0803  |    |		Declare_Subprogram	INIT_0800,For_Outer_Call,Visible,Unelaborated
00ac 029a 0813  |    |		Declare_Subprogram	INIT_0810,For_Outer_Call,Visible,Unelaborated
00ae 029a 0823  |   #|		Declare_Subprogram	INIT_0820,For_Outer_Call,Visible,Unelaborated
00b0 029a 0833  |   3|		Declare_Subprogram	INIT_0830,For_Outer_Call,Visible,Unelaborated
00b2 029a 0843  |   C|		Declare_Subprogram	INIT_0840,For_Outer_Call,Visible,Unelaborated
00b4 029a 0853  |   S|		Declare_Subprogram	INIT_0850,For_Outer_Call,Visible,Unelaborated
00b6 029a 085b  |   [|		Declare_Subprogram	INIT_0858,For_Outer_Call,Visible,Unelaborated
00b8 029a 086b  |   k|		Declare_Subprogram	INIT_0868,For_Outer_Call,Visible,Unelaborated
00ba 029a 0873  |   s|		Declare_Subprogram	INIT_0870,For_Outer_Call,Visible,Unelaborated
00bc 029a 087b  |   {|		Declare_Subprogram	INIT_0878,For_Outer_Call,Visible,Unelaborated
00be 029a 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call,Visible,Unelaborated
00c0 029a 088b  |    |		Declare_Subprogram	INIT_0888,For_Outer_Call,Visible,Unelaborated
00c2 029a 0893  |    |		Declare_Subprogram	INIT_0890,For_Outer_Call,Visible,Unelaborated
00c4 029a 089b  |    |		Declare_Subprogram	INIT_0898,For_Outer_Call,Visible,Unelaborated
00c6 029a 08a3  |    |		Declare_Subprogram	INIT_08a0,For_Outer_Call,Visible,Unelaborated
00c8 029a 08ab  |    |		Declare_Subprogram	INIT_08a8,For_Outer_Call,Visible,Unelaborated
00ca 00e4       |    |		Load_Encached	Positive_Cache
00cb 0266       | f  |		Execute	Discrete,Bounds
00cc 00e1       |    |		Load_Encached	Boolean_Cache
00cd 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ce 4801       |H   |		Short_Literal	0x1
00cf 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
00d0 00d8       |    |		Load_Top	At_Offset_0
00d1 0129       | )  |		Execute	Any,Make_Visible
00d2 00d9       |    |		Load_Top	At_Offset_1
00d3 0129       | )  |		Execute	Any,Make_Visible
00d4 00e4       |    |		Load_Encached	Positive_Cache
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 00d8       |    |		Load_Top	At_Offset_0
00d7 e238       | 8  |		Load	0x1,0x38
00d8 00e2       |    |		Load_Encached	Integer_Cache
00d9 e260       | `  |		Load	0x1,0x60
00da e23f       | ?  |		Load	0x1,0x3f
00db 029f 140b  |    |		Declare_Subprogram	INIT_1408,For_Call
00dd 4800       |H   |		Short_Literal	0x0
00de 4802       |H   |		Short_Literal	0x2
00df 4802       |H   |		Short_Literal	0x2
00e0 4800       |H   |		Short_Literal	0x0
00e1 4802       |H   |		Short_Literal	0x2
00e2 4803       |H   |		Short_Literal	0x3
00e3 0316       |    |		Declare_Type	Variant_Record,Defined_Incomplete,Visible
00e4 029a 08b3  |    |		Declare_Subprogram	INIT_08b0,For_Outer_Call,Visible,Unelaborated
00e6 029a 08c3  |    |		Declare_Subprogram	INIT_08c0,For_Outer_Call,Visible,Unelaborated
00e8 029a 08db  |    |		Declare_Subprogram	INIT_08d8,For_Outer_Call,Visible,Unelaborated
00ea 029a 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call,Visible,Unelaborated
00ec 029a 0903  |    |		Declare_Subprogram	INIT_0900,For_Outer_Call,Visible,Unelaborated
00ee 4800       |H   |		Short_Literal	0x0
00ef e001       |    |		Load	0x0,0x1
00f0 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f1 038f       |    |		Declare_Type	Package,Defined,Visible
00f2 0386       |    |		Declare_Variable	Package,Visible
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
00f5 0129       | )  |		Execute	Any,Make_Visible
00f6 00d9       |    |		Load_Top	At_Offset_1
00f7 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
00f8 0129       | )  |		Execute	Any,Make_Visible
00f9 00da       |    |		Load_Top	At_Offset_2
00fa 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
00fb 0129       | )  |		Execute	Any,Make_Visible
00fc 00db       |    |		Load_Top	At_Offset_3
00fd 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
00fe 0129       | )  |		Execute	Any,Make_Visible
00ff e267       | g  |		Load	0x1,0x67
0100 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
0101 0129       | )  |		Execute	Any,Make_Visible
0102 e267       | g  |		Load	0x1,0x67
0103 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
0104 0129       | )  |		Execute	Any,Make_Visible
0105 e267       | g  |		Load	0x1,0x67
0106 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0107 0129       | )  |		Execute	Any,Make_Visible
0108 e267       | g  |		Load	0x1,0x67
0109 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
010a 0129       | )  |		Execute	Any,Make_Visible
010b 029c 091b  |    |		Declare_Subprogram	INIT_0918,For_Outer_Call,Visible
010d e267       | g  |		Load	0x1,0x67
010e 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
010f 0129       | )  |		Execute	Any,Make_Visible
0110 e267       | g  |		Load	0x1,0x67
0111 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
0112 0129       | )  |		Execute	Any,Make_Visible
0113 e267       | g  |		Load	0x1,0x67
0114 191b       |    |		Execute	Package,Field_Reference,Field_Number 0x1b
0115 0129       | )  |		Execute	Any,Make_Visible
0116 e267       | g  |		Load	0x1,0x67
0117 191c       |    |		Execute	Package,Field_Reference,Field_Number 0x1c
0118 0129       | )  |		Execute	Any,Make_Visible
0119 e267       | g  |		Load	0x1,0x67
011a 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
011b 0129       | )  |		Execute	Any,Make_Visible
011c e267       | g  |		Load	0x1,0x67
011d 191d       |    |		Execute	Package,Field_Reference,Field_Number 0x1d
011e 0129       | )  |		Execute	Any,Make_Visible
011f e267       | g  |		Load	0x1,0x67
0120 191e       |    |		Execute	Package,Field_Reference,Field_Number 0x1e
0121 0129       | )  |		Execute	Any,Make_Visible
0122 e267       | g  |		Load	0x1,0x67
0123 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
0124 0129       | )  |		Execute	Any,Make_Visible
0125 e267       | g  |		Load	0x1,0x67
0126 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
0127 0129       | )  |		Execute	Any,Make_Visible
0128 e267       | g  |		Load	0x1,0x67
0129 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
012a 0129       | )  |		Execute	Any,Make_Visible
012b e267       | g  |		Load	0x1,0x67
012c 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
012d 0129       | )  |		Execute	Any,Make_Visible
012e e267       | g  |		Load	0x1,0x67
012f 1926       | &  |		Execute	Package,Field_Reference,Field_Number 0x26
0130 0129       | )  |		Execute	Any,Make_Visible
0131 e267       | g  |		Load	0x1,0x67
0132 1922       | "  |		Execute	Package,Field_Reference,Field_Number 0x22
0133 0129       | )  |		Execute	Any,Make_Visible
0134 e267       | g  |		Load	0x1,0x67
0135 1923       | #  |		Execute	Package,Field_Reference,Field_Number 0x23
0136 0129       | )  |		Execute	Any,Make_Visible
0137 e267       | g  |		Load	0x1,0x67
0138 1924       | $  |		Execute	Package,Field_Reference,Field_Number 0x24
0139 0129       | )  |		Execute	Any,Make_Visible
013a e267       | g  |		Load	0x1,0x67
013b 1927       | '  |		Execute	Package,Field_Reference,Field_Number 0x27
013c 0129       | )  |		Execute	Any,Make_Visible
013d e267       | g  |		Load	0x1,0x67
013e 1929       | )  |		Execute	Package,Field_Reference,Field_Number 0x29
013f 0129       | )  |		Execute	Any,Make_Visible
0140 e267       | g  |		Load	0x1,0x67
0141 1928       | (  |		Execute	Package,Field_Reference,Field_Number 0x28
0142 0129       | )  |		Execute	Any,Make_Visible
0143 e267       | g  |		Load	0x1,0x67
0144 192c       | ,  |		Execute	Package,Field_Reference,Field_Number 0x2c
0145 0129       | )  |		Execute	Any,Make_Visible
0146 e267       | g  |		Load	0x1,0x67
0147 192e       | .  |		Execute	Package,Field_Reference,Field_Number 0x2e
0148 0129       | )  |		Execute	Any,Make_Visible
0149 e267       | g  |		Load	0x1,0x67
014a 192a       | *  |		Execute	Package,Field_Reference,Field_Number 0x2a
014b 0129       | )  |		Execute	Any,Make_Visible
014c e267       | g  |		Load	0x1,0x67
014d 192f       | /  |		Execute	Package,Field_Reference,Field_Number 0x2f
014e 0129       | )  |		Execute	Any,Make_Visible
014f e267       | g  |		Load	0x1,0x67
0150 1930       | 0  |		Execute	Package,Field_Reference,Field_Number 0x30
0151 0129       | )  |		Execute	Any,Make_Visible
0152 e267       | g  |		Load	0x1,0x67
0153 1931       | 1  |		Execute	Package,Field_Reference,Field_Number 0x31
0154 0129       | )  |		Execute	Any,Make_Visible
0155 e267       | g  |		Load	0x1,0x67
0156 193a       | :  |		Execute	Package,Field_Reference,Field_Number 0x3a
0157 0129       | )  |		Execute	Any,Make_Visible
0158 e267       | g  |		Load	0x1,0x67
0159 193b       | ;  |		Execute	Package,Field_Reference,Field_Number 0x3b
015a 0129       | )  |		Execute	Any,Make_Visible
015b e267       | g  |		Load	0x1,0x67
015c 1932       | 2  |		Execute	Package,Field_Reference,Field_Number 0x32
015d 0129       | )  |		Execute	Any,Make_Visible
015e e267       | g  |		Load	0x1,0x67
015f 1933       | 3  |		Execute	Package,Field_Reference,Field_Number 0x33
0160 0129       | )  |		Execute	Any,Make_Visible
0161 e267       | g  |		Load	0x1,0x67
0162 1934       | 4  |		Execute	Package,Field_Reference,Field_Number 0x34
0163 0129       | )  |		Execute	Any,Make_Visible
0164 e267       | g  |		Load	0x1,0x67
0165 1936       | 6  |		Execute	Package,Field_Reference,Field_Number 0x36
0166 0129       | )  |		Execute	Any,Make_Visible
0167 e267       | g  |		Load	0x1,0x67
0168 1938       | 8  |		Execute	Package,Field_Reference,Field_Number 0x38
0169 0129       | )  |		Execute	Any,Make_Visible
016a e267       | g  |		Load	0x1,0x67
016b 1937       | 7  |		Execute	Package,Field_Reference,Field_Number 0x37
016c 0129       | )  |		Execute	Any,Make_Visible
016d e267       | g  |		Load	0x1,0x67
016e 1939       | 9  |		Execute	Package,Field_Reference,Field_Number 0x39
016f 0129       | )  |		Execute	Any,Make_Visible
0170 e267       | g  |		Load	0x1,0x67
0171 1935       | 5  |		Execute	Package,Field_Reference,Field_Number 0x35
0172 0129       | )  |		Execute	Any,Make_Visible
0173 e220       |    |		Load	0x1,0x20
0174 00d8       |    |		Load_Top	At_Offset_0
0175 029f 139b  |    |		Declare_Subprogram	INIT_1398,For_Call
0177 4800       |H   |		Short_Literal	0x0
0178 4802       |H   |		Short_Literal	0x2
0179 4800       |H   |		Short_Literal	0x0
017a e23f       | ?  |		Load	0x1,0x3f
017b 0307       |    |		Complete_Type	Variant_Record,By_Defining
017c e261       | a  |		Load	0x1,0x61
017d 0303       |    |		Complete_Type	Variant_Record,By_Component_Completion
017e 00bf       |    |		Action	Accept_Activation
017f 4800       |H   |		Short_Literal	0x0
0180 4802       |H   |		Short_Literal	0x2
0181 029f 0923  |   #|		Declare_Subprogram	INIT_0920,For_Call
0183 03fd       |    |		Declare_Type	Discrete,Defined
0184 4801       |H   |		Short_Literal	0x1
0185 4800       |H   |		Short_Literal	0x0
0186 e220       |    |		Load	0x1,0x20
0187 035b       | [  |		Declare_Type	Array,Constrained
0188 0337       | 7  |		Declare_Variable	Array
0189 00d8       |    |		Load_Top	At_Offset_0
018a 0335       | 5  |		Declare_Variable	Array,Duplicate
018b 00cd       |    |		Action	Spare6_Action
018c 00d9       |    |		Load_Top	At_Offset_1
018d 01d4       |    |		Execute	Vector,Structure_Write
018e 4801       |H   |		Short_Literal	0x1
018f 4801       |H   |		Short_Literal	0x1
0190 e220       |    |		Load	0x1,0x20
0191 0334       | 4  |		Declare_Variable	Array,With_Constraint
0192 4800       |H   |		Short_Literal	0x0
0193 4801       |H   |		Short_Literal	0x1
0194 00da       |    |		Load_Top	At_Offset_2
0195 01d6       |    |		Execute	Vector,Field_Write
0196 4801       |H   |		Short_Literal	0x1
0197 4801       |H   |		Short_Literal	0x1
0198 e220       |    |		Load	0x1,0x20
0199 0334       | 4  |		Declare_Variable	Array,With_Constraint
019a 4801       |H   |		Short_Literal	0x1
019b 4801       |H   |		Short_Literal	0x1
019c 00da       |    |		Load_Top	At_Offset_2
019d 01d6       |    |		Execute	Vector,Field_Write
019e 4801       |H   |		Short_Literal	0x1
019f 4801       |H   |		Short_Literal	0x1
01a0 e220       |    |		Load	0x1,0x20
01a1 0334       | 4  |		Declare_Variable	Array,With_Constraint
01a2 4802       |H   |		Short_Literal	0x2
01a3 4801       |H   |		Short_Literal	0x1
01a4 00da       |    |		Load_Top	At_Offset_2
01a5 01d6       |    |		Execute	Vector,Field_Write
01a6 4801       |H   |		Short_Literal	0x1
01a7 4801       |H   |		Short_Literal	0x1
01a8 e220       |    |		Load	0x1,0x20
01a9 0334       | 4  |		Declare_Variable	Array,With_Constraint
01aa 480a       |H   |		Short_Literal	0xa
01ab 4801       |H   |		Short_Literal	0x1
01ac 00da       |    |		Load_Top	At_Offset_2
01ad 01d6       |    |		Execute	Vector,Field_Write
01ae 4801       |H   |		Short_Literal	0x1
01af 4801       |H   |		Short_Literal	0x1
01b0 e23f       | ?  |		Load	0x1,0x3f
01b1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b2 e295       |    |		Load	0x1,0x95
01b3 00d9       |    |		Load_Top	At_Offset_1
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01b6 00da       |    |		Load_Top	At_Offset_2
01b7 01da       |    |		Execute	Vector,Bounds
01b8 00da       |    |		Load_Top	At_Offset_2
01b9 01da       |    |		Execute	Vector,Bounds
01ba 00da       |    |		Load_Top	At_Offset_2
01bb 027f       |    |		Execute	Discrete,Equal
01bc 7001       |p   |		Jump_Nonzero	0x1be
01bd 08e0       |    |		Execute_Immediate	Raise,0xe0
01be 00cd       |    |		Action	Spare6_Action
01bf 027f       |    |		Execute	Discrete,Equal
01c0 7001       |p   |		Jump_Nonzero	0x1c2
01c1 08e0       |    |		Execute_Immediate	Raise,0xe0
01c2 00d2       |    |		Pop_Control	Pop_Count_2
01c3 00d9       |    |		Load_Top	At_Offset_1
01c4 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 00d9       |    |		Load_Top	At_Offset_1
01c7 00d8       |    |		Load_Top	At_Offset_0
01c8 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01c9 00da       |    |		Load_Top	At_Offset_2
01ca 01da       |    |		Execute	Vector,Bounds
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 01da       |    |		Execute	Vector,Bounds
01cd 00da       |    |		Load_Top	At_Offset_2
01ce 027f       |    |		Execute	Discrete,Equal
01cf 7001       |p   |		Jump_Nonzero	0x1d1
01d0 08e0       |    |		Execute_Immediate	Raise,0xe0
01d1 00cd       |    |		Action	Spare6_Action
01d2 027f       |    |		Execute	Discrete,Equal
01d3 7001       |p   |		Jump_Nonzero	0x1d5
01d4 08e0       |    |		Execute_Immediate	Raise,0xe0
01d5 00d2       |    |		Pop_Control	Pop_Count_2
01d6 00d9       |    |		Load_Top	At_Offset_1
01d7 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
01d8 4801       |H   |		Short_Literal	0x1
01d9 4801       |H   |		Short_Literal	0x1
01da e23f       | ?  |		Load	0x1,0x3f
01db 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01dc e296       |    |		Load	0x1,0x96
01dd 00d9       |    |		Load_Top	At_Offset_1
01de 00d8       |    |		Load_Top	At_Offset_0
01df 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01e0 00da       |    |		Load_Top	At_Offset_2
01e1 01da       |    |		Execute	Vector,Bounds
01e2 00da       |    |		Load_Top	At_Offset_2
01e3 01da       |    |		Execute	Vector,Bounds
01e4 00da       |    |		Load_Top	At_Offset_2
01e5 027f       |    |		Execute	Discrete,Equal
01e6 7001       |p   |		Jump_Nonzero	0x1e8
01e7 08e0       |    |		Execute_Immediate	Raise,0xe0
01e8 00cd       |    |		Action	Spare6_Action
01e9 027f       |    |		Execute	Discrete,Equal
01ea 7001       |p   |		Jump_Nonzero	0x1ec
01eb 08e0       |    |		Execute_Immediate	Raise,0xe0
01ec 00d2       |    |		Pop_Control	Pop_Count_2
01ed 00d9       |    |		Load_Top	At_Offset_1
01ee 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
01ef 00db       |    |		Load_Top	At_Offset_3
01f0 00d9       |    |		Load_Top	At_Offset_1
01f1 00d8       |    |		Load_Top	At_Offset_0
01f2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 01da       |    |		Execute	Vector,Bounds
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 01da       |    |		Execute	Vector,Bounds
01f7 00da       |    |		Load_Top	At_Offset_2
01f8 027f       |    |		Execute	Discrete,Equal
01f9 7001       |p   |		Jump_Nonzero	0x1fb
01fa 08e0       |    |		Execute_Immediate	Raise,0xe0
01fb 00cd       |    |		Action	Spare6_Action
01fc 027f       |    |		Execute	Discrete,Equal
01fd 7001       |p   |		Jump_Nonzero	0x1ff
01fe 08e0       |    |		Execute_Immediate	Raise,0xe0
01ff 00d2       |    |		Pop_Control	Pop_Count_2
0200 00d9       |    |		Load_Top	At_Offset_1
0201 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0202 4801       |H   |		Short_Literal	0x1
0203 4801       |H   |		Short_Literal	0x1
0204 e23f       | ?  |		Load	0x1,0x3f
0205 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0206 e296       |    |		Load	0x1,0x96
0207 00d9       |    |		Load_Top	At_Offset_1
0208 00d8       |    |		Load_Top	At_Offset_0
0209 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
020a 00da       |    |		Load_Top	At_Offset_2
020b 01da       |    |		Execute	Vector,Bounds
020c 00da       |    |		Load_Top	At_Offset_2
020d 01da       |    |		Execute	Vector,Bounds
020e 00da       |    |		Load_Top	At_Offset_2
020f 027f       |    |		Execute	Discrete,Equal
0210 7001       |p   |		Jump_Nonzero	0x212
0211 08e0       |    |		Execute_Immediate	Raise,0xe0
0212 00cd       |    |		Action	Spare6_Action
0213 027f       |    |		Execute	Discrete,Equal
0214 7001       |p   |		Jump_Nonzero	0x216
0215 08e0       |    |		Execute_Immediate	Raise,0xe0
0216 00d2       |    |		Pop_Control	Pop_Count_2
0217 00d9       |    |		Load_Top	At_Offset_1
0218 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0219 e296       |    |		Load	0x1,0x96
021a 00d9       |    |		Load_Top	At_Offset_1
021b 00d8       |    |		Load_Top	At_Offset_0
021c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
021d 00da       |    |		Load_Top	At_Offset_2
021e 01da       |    |		Execute	Vector,Bounds
021f 00da       |    |		Load_Top	At_Offset_2
0220 01da       |    |		Execute	Vector,Bounds
0221 00da       |    |		Load_Top	At_Offset_2
0222 027f       |    |		Execute	Discrete,Equal
0223 7001       |p   |		Jump_Nonzero	0x225
0224 08e0       |    |		Execute_Immediate	Raise,0xe0
0225 00cd       |    |		Action	Spare6_Action
0226 027f       |    |		Execute	Discrete,Equal
0227 7001       |p   |		Jump_Nonzero	0x229
0228 08e0       |    |		Execute_Immediate	Raise,0xe0
0229 00d2       |    |		Pop_Control	Pop_Count_2
022a 00d9       |    |		Load_Top	At_Offset_1
022b 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
022c 4801       |H   |		Short_Literal	0x1
022d 4801       |H   |		Short_Literal	0x1
022e e23f       | ?  |		Load	0x1,0x3f
022f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0230 e297       |    |		Load	0x1,0x97
0231 00d9       |    |		Load_Top	At_Offset_1
0232 00d8       |    |		Load_Top	At_Offset_0
0233 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0234 00da       |    |		Load_Top	At_Offset_2
0235 01da       |    |		Execute	Vector,Bounds
0236 00da       |    |		Load_Top	At_Offset_2
0237 01da       |    |		Execute	Vector,Bounds
0238 00da       |    |		Load_Top	At_Offset_2
0239 027f       |    |		Execute	Discrete,Equal
023a 7001       |p   |		Jump_Nonzero	0x23c
023b 08e0       |    |		Execute_Immediate	Raise,0xe0
023c 00cd       |    |		Action	Spare6_Action
023d 027f       |    |		Execute	Discrete,Equal
023e 7001       |p   |		Jump_Nonzero	0x240
023f 08e0       |    |		Execute_Immediate	Raise,0xe0
0240 00d2       |    |		Pop_Control	Pop_Count_2
0241 00d9       |    |		Load_Top	At_Offset_1
0242 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0243 e296       |    |		Load	0x1,0x96
0244 00d9       |    |		Load_Top	At_Offset_1
0245 00d8       |    |		Load_Top	At_Offset_0
0246 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0247 00da       |    |		Load_Top	At_Offset_2
0248 01da       |    |		Execute	Vector,Bounds
0249 00da       |    |		Load_Top	At_Offset_2
024a 01da       |    |		Execute	Vector,Bounds
024b 00da       |    |		Load_Top	At_Offset_2
024c 027f       |    |		Execute	Discrete,Equal
024d 7001       |p   |		Jump_Nonzero	0x24f
024e 08e0       |    |		Execute_Immediate	Raise,0xe0
024f 00cd       |    |		Action	Spare6_Action
0250 027f       |    |		Execute	Discrete,Equal
0251 7001       |p   |		Jump_Nonzero	0x253
0252 08e0       |    |		Execute_Immediate	Raise,0xe0
0253 00d2       |    |		Pop_Control	Pop_Count_2
0254 00d9       |    |		Load_Top	At_Offset_1
0255 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0256 4801       |H   |		Short_Literal	0x1
0257 4801       |H   |		Short_Literal	0x1
0258 e23f       | ?  |		Load	0x1,0x3f
0259 1c08       |    |		Execute_Immediate	Run_Utility,0x8
025a e298       |    |		Load	0x1,0x98
025b 00d9       |    |		Load_Top	At_Offset_1
025c 00d8       |    |		Load_Top	At_Offset_0
025d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
025e 00da       |    |		Load_Top	At_Offset_2
025f 01da       |    |		Execute	Vector,Bounds
0260 00da       |    |		Load_Top	At_Offset_2
0261 01da       |    |		Execute	Vector,Bounds
0262 00da       |    |		Load_Top	At_Offset_2
0263 027f       |    |		Execute	Discrete,Equal
0264 7001       |p   |		Jump_Nonzero	0x266
0265 08e0       |    |		Execute_Immediate	Raise,0xe0
0266 00cd       |    |		Action	Spare6_Action
0267 027f       |    |		Execute	Discrete,Equal
0268 7001       |p   |		Jump_Nonzero	0x26a
0269 08e0       |    |		Execute_Immediate	Raise,0xe0
026a 00d2       |    |		Pop_Control	Pop_Count_2
026b 00d9       |    |		Load_Top	At_Offset_1
026c 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
026d e296       |    |		Load	0x1,0x96
026e 00d9       |    |		Load_Top	At_Offset_1
026f 00d8       |    |		Load_Top	At_Offset_0
0270 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0271 00da       |    |		Load_Top	At_Offset_2
0272 01da       |    |		Execute	Vector,Bounds
0273 00da       |    |		Load_Top	At_Offset_2
0274 01da       |    |		Execute	Vector,Bounds
0275 00da       |    |		Load_Top	At_Offset_2
0276 027f       |    |		Execute	Discrete,Equal
0277 7001       |p   |		Jump_Nonzero	0x279
0278 08e0       |    |		Execute_Immediate	Raise,0xe0
0279 00cd       |    |		Action	Spare6_Action
027a 027f       |    |		Execute	Discrete,Equal
027b 7001       |p   |		Jump_Nonzero	0x27d
027c 08e0       |    |		Execute_Immediate	Raise,0xe0
027d 00d2       |    |		Pop_Control	Pop_Count_2
027e 00d9       |    |		Load_Top	At_Offset_1
027f 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0280 e267       | g  |		Load	0x1,0x67
0281 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
0282 0007       |    |		Action	Break_Optional
0283 e267       | g  |		Load	0x1,0x67
0284 192f       | /  |		Execute	Package,Field_Reference,Field_Number 0x2f
0285 0007       |    |		Action	Break_Optional
0286 029d 094b  |   K|		Declare_Subprogram	INIT_0948,For_Outer_Call
0288 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0289 00c7       |    |		Action	Elaborate_Subprogram
028a 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
028b 00c7       |    |		Action	Elaborate_Subprogram
028c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
028d 00c7       |    |		Action	Elaborate_Subprogram
028e 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
028f 00c7       |    |		Action	Elaborate_Subprogram
0290 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0291 00c7       |    |		Action	Elaborate_Subprogram
0292 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0293 00c7       |    |		Action	Elaborate_Subprogram
0294 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0295 00c7       |    |		Action	Elaborate_Subprogram
0296 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0297 00c7       |    |		Action	Elaborate_Subprogram
0298 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0299 00c7       |    |		Action	Elaborate_Subprogram
029a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
029b 00c7       |    |		Action	Elaborate_Subprogram
029c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
029d 00c7       |    |		Action	Elaborate_Subprogram
029e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
029f 00c7       |    |		Action	Elaborate_Subprogram
02a0 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
02a1 00c7       |    |		Action	Elaborate_Subprogram
02a2 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
02a3 00c7       |    |		Action	Elaborate_Subprogram
02a4 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
02a5 00c7       |    |		Action	Elaborate_Subprogram
02a6 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
02a7 00c7       |    |		Action	Elaborate_Subprogram
02a8 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
02a9 00c7       |    |		Action	Elaborate_Subprogram
02aa 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
02ab 00c7       |    |		Action	Elaborate_Subprogram
02ac 1d5d       | ]  |		Execute_Immediate	Reference_Lex_1,0x5d
02ad 00c7       |    |		Action	Elaborate_Subprogram
02ae 1d5c       | \  |		Execute_Immediate	Reference_Lex_1,0x5c
02af 00c7       |    |		Action	Elaborate_Subprogram
02b0 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
02b1 00c7       |    |		Action	Elaborate_Subprogram
02b2 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
02b3 00c7       |    |		Action	Elaborate_Subprogram
02b4 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
02b5 00c7       |    |		Action	Elaborate_Subprogram
02b6 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
02b7 00c7       |    |		Action	Elaborate_Subprogram
02b8 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
02b9 00c7       |    |		Action	Elaborate_Subprogram
02ba 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
02bb 00c7       |    |		Action	Elaborate_Subprogram
02bc 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
02bd 00c7       |    |		Action	Elaborate_Subprogram
02be 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
02bf 00c7       |    |		Action	Elaborate_Subprogram
02c0 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
02c1 00c7       |    |		Action	Elaborate_Subprogram
02c2 029d 0953  |   S|		Declare_Subprogram	INIT_0950,For_Outer_Call
02c4 029d 0983  |    |		Declare_Subprogram	INIT_0980,For_Outer_Call
02c6 029d 09b3  |    |		Declare_Subprogram	INIT_09b0,For_Outer_Call
02c8 029d 09f3  |    |		Declare_Subprogram	INIT_09f0,For_Outer_Call
02ca 029d 0a13  |    |		Declare_Subprogram	INIT_0a10,For_Outer_Call
02cc 029d 0a43  |   C|		Declare_Subprogram	INIT_0a40,For_Outer_Call
02ce 029d 0a93  |    |		Declare_Subprogram	INIT_0a90,For_Outer_Call
02d0 029d 0ac3  |    |		Declare_Subprogram	INIT_0ac0,For_Outer_Call
02d2 029d 0bab  |    |		Declare_Subprogram	INIT_0ba8,For_Outer_Call
02d4 029d 0bc3  |    |		Declare_Subprogram	INIT_0bc0,For_Outer_Call
02d6 029d 0beb  |    |		Declare_Subprogram	INIT_0be8,For_Outer_Call
02d8 029d 0c4b  |   K|		Declare_Subprogram	INIT_0c48,For_Outer_Call
02da 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
02db 00c7       |    |		Action	Elaborate_Subprogram
02dc 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
02dd 00c7       |    |		Action	Elaborate_Subprogram
02de 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
02df 00c7       |    |		Action	Elaborate_Subprogram
02e0 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
02e1 00c7       |    |		Action	Elaborate_Subprogram
02e2 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
02e3 00c7       |    |		Action	Elaborate_Subprogram
02e4 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
02e5 00c7       |    |		Action	Elaborate_Subprogram
02e6 029d 0cc3  |    |		Declare_Subprogram	INIT_0cc0,For_Outer_Call
02e8 029d 0d13  |    |		Declare_Subprogram	INIT_0d10,For_Outer_Call
02ea 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
02eb 00c7       |    |		Action	Elaborate_Subprogram
02ec 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
02ed 00c7       |    |		Action	Elaborate_Subprogram
02ee 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
02ef 00c7       |    |		Action	Elaborate_Subprogram
02f0 029d 0d83  |    |		Declare_Subprogram	INIT_0d80,For_Outer_Call
02f2 029d 0d9b  |    |		Declare_Subprogram	INIT_0d98,For_Outer_Call
02f4 029d 0dcb  |    |		Declare_Subprogram	INIT_0dc8,For_Outer_Call
02f6 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
02f7 00c7       |    |		Action	Elaborate_Subprogram
02f8 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
02f9 00c7       |    |		Action	Elaborate_Subprogram
02fa 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
02fb 00c7       |    |		Action	Elaborate_Subprogram
02fc 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
02fd 00c7       |    |		Action	Elaborate_Subprogram
02fe 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
02ff 00c7       |    |		Action	Elaborate_Subprogram
0300 029d 0e13  |    |		Declare_Subprogram	INIT_0e10,For_Outer_Call
0302 029d 0e23  |   #|		Declare_Subprogram	INIT_0e20,For_Outer_Call
0304 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0305 00c7       |    |		Action	Elaborate_Subprogram
0306 029d 0e53  |   S|		Declare_Subprogram	INIT_0e50,For_Outer_Call
0308 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0309 00c7       |    |		Action	Elaborate_Subprogram
030a 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
030b 00c7       |    |		Action	Elaborate_Subprogram
030c 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
030d 00c7       |    |		Action	Elaborate_Subprogram
030e 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
030f 00c7       |    |		Action	Elaborate_Subprogram
0310 029d 0e6b  |   k|		Declare_Subprogram	INIT_0e68,For_Outer_Call
0312 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
0313 00c7       |    |		Action	Elaborate_Subprogram
0314 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
0315 00c7       |    |		Action	Elaborate_Subprogram
0316 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
0317 00c7       |    |		Action	Elaborate_Subprogram
0318 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
0319 00c7       |    |		Action	Elaborate_Subprogram
031a 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
031b 00c7       |    |		Action	Elaborate_Subprogram
031c 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
031d 00c7       |    |		Action	Elaborate_Subprogram
031e 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
031f 00c7       |    |		Action	Elaborate_Subprogram
0320 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
0321 00c7       |    |		Action	Elaborate_Subprogram
0322 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
0323 00c7       |    |		Action	Elaborate_Subprogram
0324 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
0325 00c7       |    |		Action	Elaborate_Subprogram
0326 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
0327 00c7       |    |		Action	Elaborate_Subprogram
0328 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
0329 00c7       |    |		Action	Elaborate_Subprogram
032a 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
032b 00c7       |    |		Action	Elaborate_Subprogram
032c 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
032d 00c7       |    |		Action	Elaborate_Subprogram
032e 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
032f 00c7       |    |		Action	Elaborate_Subprogram
0330 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
0331 00c7       |    |		Action	Elaborate_Subprogram
0332 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
0333 00c7       |    |		Action	Elaborate_Subprogram
0334 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
0335 00c7       |    |		Action	Elaborate_Subprogram
0336 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
0337 00c7       |    |		Action	Elaborate_Subprogram
0338 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
0339 00c7       |    |		Action	Elaborate_Subprogram
033a 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
033b 00c7       |    |		Action	Elaborate_Subprogram
033c 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
033d 00c7       |    |		Action	Elaborate_Subprogram
033e 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
033f 00c7       |    |		Action	Elaborate_Subprogram
0340 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0341 00c7       |    |		Action	Elaborate_Subprogram
0342 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0343 00c7       |    |		Action	Elaborate_Subprogram
0344 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0345 00c7       |    |		Action	Elaborate_Subprogram
0346 1d62       | b  |		Execute_Immediate	Reference_Lex_1,0x62
0347 00c7       |    |		Action	Elaborate_Subprogram
0348 1d63       | c  |		Execute_Immediate	Reference_Lex_1,0x63
0349 00c7       |    |		Action	Elaborate_Subprogram
034a 1d65       | e  |		Execute_Immediate	Reference_Lex_1,0x65
034b 00c7       |    |		Action	Elaborate_Subprogram
034c 1d64       | d  |		Execute_Immediate	Reference_Lex_1,0x64
034d 00c7       |    |		Action	Elaborate_Subprogram
034e 1d66       | f  |		Execute_Immediate	Reference_Lex_1,0x66
034f 00c7       |    |		Action	Elaborate_Subprogram
0350 00b6       |    |		Action	Make_Scope
0351 e002       |    |		Load	0x0,0x2
0352 e003       |    |		Load	0x0,0x3
0353 e004       |    |		Load	0x0,0x4
0354 e005       |    |		Load	0x0,0x5
0355 e006       |    |		Load	0x0,0x6
0356 e007       |    |		Load	0x0,0x7
0357 e008       |    |		Load	0x0,0x8
0358 e009       |    |		Load	0x0,0x9
0359 e00a       |    |		Load	0x0,0xa
035a e00b       |    |		Load	0x0,0xb
035b e00c       |    |		Load	0x0,0xc
035c e00d       |    |		Load	0x0,0xd
035d e00e       |    |		Load	0x0,0xe
035e e00f       |    |		Load	0x0,0xf
035f 1da4       |    |		Execute_Immediate	Reference_Lex_1,0xa4
0360 1d9e       |    |		Execute_Immediate	Reference_Lex_1,0x9e
0361 e298       |    |		Load	0x1,0x98
0362 1da1       |    |		Execute_Immediate	Reference_Lex_1,0xa1
0363 e010       |    |		Load	0x0,0x10
0364 a011       |    |		Store_Unchecked	0x0,0x11
0365 e012       |    |		Load	0x0,0x12
0366 e013       |    |		Load	0x0,0x13
0367 e014       |    |		Load	0x0,0x14
0368 e015       |    |		Load	0x0,0x15
0369 e296       |    |		Load	0x1,0x96
036a e295       |    |		Load	0x1,0x95
036b e29a       |    |		Load	0x1,0x9a
036c e29c       |    |		Load	0x1,0x9c
036d e299       |    |		Load	0x1,0x99
036e 1db5       |    |		Execute_Immediate	Reference_Lex_1,0xb5
036f e29d       |    |		Load	0x1,0x9d
0370 e016       |    |		Load	0x0,0x16
0371 e29b       |    |		Load	0x1,0x9b
0372 1db2       |    |		Execute_Immediate	Reference_Lex_1,0xb2
0373 1db3       |    |		Execute_Immediate	Reference_Lex_1,0xb3
0374 1da9       |    |		Execute_Immediate	Reference_Lex_1,0xa9
0375 e294       |    |		Load	0x1,0x94
0376 1dac       |    |		Execute_Immediate	Reference_Lex_1,0xac
0377 1da3       |    |		Execute_Immediate	Reference_Lex_1,0xa3
0378 e297       |    |		Load	0x1,0x97
0379 4829       |H)  |		Short_Literal	0x29
037a e267       | g  |		Load	0x1,0x67
037b 020e       |    |		Execute	Module,Augment_Imports
037c e267       | g  |		Load	0x1,0x67
037d 020f       |    |		Execute	Module,Activate
037e			BODY_0008:
037e 00bc       |    |		Action	Signal_Activated
037f 00bb       |    |		Action	Signal_Completion
0380 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0384 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b 00da       |    |		Load_Top	At_Offset_2
038c 0237       | 7  |		Execute	Float,Convert_From_Discrete
038d e5fe       |    |		Load	0x2,-0x2
038e 023b       | ;  |		Execute	Float,Times
038f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e5fe       |    |		Load	0x2,-0x2
0395 0237       | 7  |		Execute	Float,Convert_From_Discrete
0396 023b       | ;  |		Execute	Float,Times
0397 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 e5fe       |    |		Load	0x2,-0x2
039d 0237       | 7  |		Execute	Float,Convert_From_Discrete
039e 023a       | :  |		Execute	Float,Divide
039f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 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 e5fe       |    |		Load	0x2,-0x2
03a5 027b       | {  |		Execute	Discrete,Greater_Equal
03a6 6804       |h   |		Jump_Zero	0x3ab
03a7 00da       |    |		Load_Top	At_Offset_2
03a8 e5fd       |    |		Load	0x2,-0x3
03a9 027a       | z  |		Execute	Discrete,Less_Equal
03aa 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03ab 4800       |H   |		Short_Literal	0x0
03ac 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03ad 0000 0000  |    |		.XXX[0x3]
03af 0000       |    |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00da       |    |		Load_Top	At_Offset_2
03b4 e5fe       |    |		Load	0x2,-0x2
03b5 0243       | C  |		Execute	Float,Greater_Equal
03b6 6804       |h   |		Jump_Zero	0x3bb
03b7 00da       |    |		Load_Top	At_Offset_2
03b8 e5fd       |    |		Load	0x2,-0x3
03b9 0242       | B  |		Execute	Float,Less_Equal
03ba 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03bb 4800       |H   |		Short_Literal	0x0
03bc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03bd 0000 0000  |    |		.XXX[0x3]
03bf 0000       |    |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 4800       |H   |		Short_Literal	0x0
03c4 00ca       |    |		Action	Exit_Nullary_Function
03c5 0000 0000  |    |		.XXX[0x3]
03c7 0000       |    |
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb 4801       |H   |		Short_Literal	0x1
03cc 00ca       |    |		Action	Exit_Nullary_Function
03cd 0000 0000  |    |		.XXX[0x3]
03cf 0000       |    |
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 5804       |X   |		Indirect_Literal	Float,0x3d8,0.0
03d4 00ca       |    |		Action	Exit_Nullary_Function
03d5 0000 0000  |    |		.XXX[0x3]
03d7 0000       |    |
03d8 0000 0000  |    |		.DBL	0.0
03da 0000 0000  |    |
03dc 0000 0000  |    |		.BLANK	0000[0x4]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 5804       |X   |		Indirect_Literal	Float,0x3e8,1.0
03e4 00ca       |    |		Action	Exit_Nullary_Function
03e5 0000 0000  |    |		.XXX[0x3]
03e7 0000       |    |
03e8 3ff0 0000  |?   |		.DBL	1.0
03ea 0000 0000  |    |
03ec 0000 0000  |    |		.BLANK	0000[0x4]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3       |    |		.CONST	0x03f3								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0001       |    |		.CONST	0x0001								; Number of locals
03f3			BODY_03f0:
03f3			INIT_03f0:
03f3 6004       |`   |		Indirect_Literal	Discrete,0x3f8,{0x7fffffff, 0xffffffff}
03f4 00ca       |    |		Action	Exit_Nullary_Function
03f5 0000 0000  |    |		.XXX[0x3]
03f7 0000       |    |
03f8 7fff ffff  |    |		.LITERAL	{0x7fffffff, 0xffffffff}
03fc 0000 0000  |    |		.BLANK	0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 6004       |`   |		Indirect_Literal	Discrete,0x408,{0x80000000, 0x00000000}
0404 00ca       |    |		Action	Exit_Nullary_Function
0405 0000 0000  |    |		.XXX[0x3]
0407 0000       |    |
0408 8000 0000  |    |		.LITERAL	{0x80000000, 0x00000000}
040c 0000 0000  |    |		.BLANK	0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 5804       |X   |		Indirect_Literal	Float,0x418,-1.7976931348623157e+308
0414 00ca       |    |		Action	Exit_Nullary_Function
0415 0000 0000  |    |		.XXX[0x3]
0417 0000       |    |
0418 ffef ffff  |    |		.DBL	-1.7976931348623157e+308
041a ffff ffff  |    |
041c 0000 0000  |    |		.BLANK	0000[0x4]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 5804       |X   |		Indirect_Literal	Float,0x428,1.7976931348623157e+308
0424 00ca       |    |		Action	Exit_Nullary_Function
0425 0000 0000  |    |		.XXX[0x3]
0427 0000       |    |
0428 7fef ffff  |    |		.DBL	1.7976931348623157e+308
042a ffff ffff  |    |
042c 0000 0000  |    |		.BLANK	0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 e20d       |    |		Load	0x1,0xd
0434 012c       | ,  |		Execute	Any,Size
0435 00d8       |    |		Load_Top	At_Offset_0
0436 00e2       |    |		Load_Encached	Integer_Cache
0437 0260       | `  |		Execute	Discrete,In_Type
0438 7001       |p   |		Jump_Nonzero	0x43a
0439 0801       |    |		Execute_Immediate	Raise,0x1
043a 00ca       |    |		Action	Exit_Nullary_Function
043b 0000 0000  |    |		.BLANK	0000[0x5]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 e20e       |    |		Load	0x1,0xe
0444 012c       | ,  |		Execute	Any,Size
0445 00d8       |    |		Load_Top	At_Offset_0
0446 00e2       |    |		Load_Encached	Integer_Cache
0447 0260       | `  |		Execute	Discrete,In_Type
0448 7001       |p   |		Jump_Nonzero	0x44a
0449 0801       |    |		Execute_Immediate	Raise,0x1
044a 00ca       |    |		Action	Exit_Nullary_Function
044b 0000 0000  |    |		.BLANK	0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 4835       |H5  |		Short_Literal	0x35
0454 00ca       |    |		Action	Exit_Nullary_Function
0455 0000 0000  |    |		.XXX[0x3]
0457 0000       |    |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b 00db       |    |		Load_Top	At_Offset_3
045c 00db       |    |		Load_Top	At_Offset_3
045d 823a       | :  |		Call	0x1,0x3a
045e 4fff       |O   |		Short_Literal	-0x1
045f 027f       |    |		Execute	Discrete,Equal
0460 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0461 0000 0000  |    |		.BLANK	0000[0x7]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b 00db       |    |		Load_Top	At_Offset_3
046c 00db       |    |		Load_Top	At_Offset_3
046d 823a       | :  |		Call	0x1,0x3a
046e 0e01       |    |		Execute_Immediate	Not_Equal,0x1
046f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 00db       |    |		Load_Top	At_Offset_3
0474 00db       |    |		Load_Top	At_Offset_3
0475 823a       | :  |		Call	0x1,0x3a
0476 0f01       |    |		Execute_Immediate	Equal,0x1
0477 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b 00db       |    |		Load_Top	At_Offset_3
047c 00db       |    |		Load_Top	At_Offset_3
047d 823a       | :  |		Call	0x1,0x3a
047e 4fff       |O   |		Short_Literal	-0x1
047f 027e       | ~  |		Execute	Discrete,Not_Equal
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 00da       |    |		Load_Top	At_Offset_2
048c 0335       | 5  |		Declare_Variable	Array,Duplicate
048d 00cd       |    |		Action	Spare6_Action
048e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
048f 0000       |    |		.XXX[0x1]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 4801       |H   |		Short_Literal	0x1
0494 00db       |    |		Load_Top	At_Offset_3
0495 01d7       |    |		Execute	Vector,Field_Read
0496 0275       | u  |		Execute	Discrete,Unary_Minus
0497 4802       |H   |		Short_Literal	0x2
0498 e5ff       |    |		Load	0x2,-0x1
0499 01dc       |    |		Execute	Vector,Last
049a e5ff       |    |		Load	0x2,-0x1
049b 01cf       |    |		Execute	Vector,Slice_Read
049c 01ca       |    |		Execute	Vector,Prepend
049d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
049e 0000 0000  |    |		.XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04b1       |    |		.CONST	0x04b1								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0002       |    |		.CONST	0x0002								; Number of locals
04a3			INIT_04a0:
04a3 4801       |H   |		Short_Literal	0x1
04a4 00db       |    |		Load_Top	At_Offset_3
04a5 01db       |    |		Execute	Vector,Length
04a6 00d8       |    |		Load_Top	At_Offset_0
04a7 00e2       |    |		Load_Encached	Integer_Cache
04a8 0260       | `  |		Execute	Discrete,In_Type
04a9 7001       |p   |		Jump_Nonzero	0x4ab
04aa 0801       |    |		Execute_Immediate	Raise,0x1
04ab e220       |    |		Load	0x1,0x20
04ac 035b       | [  |		Declare_Type	Array,Constrained
04ad 0337       | 7  |		Declare_Variable	Array
04ae 00db       |    |		Load_Top	At_Offset_3
04af 00d9       |    |		Load_Top	At_Offset_1
04b0 01d4       |    |		Execute	Vector,Structure_Write
04b1			BODY_04a0:
04b1 4801       |H   |		Short_Literal	0x1
04b2 00d9       |    |		Load_Top	At_Offset_1
04b3 01d7       |    |		Execute	Vector,Field_Read
04b4 0274       | t  |		Execute	Discrete,Absolute_Value
04b5 4801       |H   |		Short_Literal	0x1
04b6 00da       |    |		Load_Top	At_Offset_2
04b7 01d6       |    |		Execute	Vector,Field_Write
04b8 00d8       |    |		Load_Top	At_Offset_0
04b9 e220       |    |		Load	0x1,0x20
04ba 01c6       |    |		Execute	Vector,Convert_To_Formal
04bb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04bc 0000 0000  |    |		.BLANK	0000[0x4]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04cc       |    |		.CONST	0x04cc								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0009       |    |		.CONST	0x0009								; Number of locals
04c3			INIT_04c0:
04c3 00e2       |    |		Load_Encached	Integer_Cache
04c4 00e5       |    |		Load_Encached	Long_Integer_Cache
04c5 03e9       |    |		Declare_Variable	Discrete,Duplicate
04c6 00e2       |    |		Load_Encached	Integer_Cache
04c7 03e9       |    |		Declare_Variable	Discrete,Duplicate
04c8 00e1       |    |		Load_Encached	Boolean_Cache
04c9 03e9       |    |		Declare_Variable	Discrete,Duplicate
04ca 029f 0e9b  |    |		Declare_Subprogram	INIT_0e98,For_Call
04cc			BODY_04c0:
04cc e5ff       |    |		Load	0x2,-0x1
04cd 01db       |    |		Execute	Vector,Length
04ce c405       |    |		Store	0x2,0x5
04cf e5fe       |    |		Load	0x2,-0x2
04d0 01db       |    |		Execute	Vector,Length
04d1 c406       |    |		Store	0x2,0x6
04d2 e405       |    |		Load	0x2,0x5
04d3 0f01       |    |		Execute_Immediate	Equal,0x1
04d4 680c       |h   |		Jump_Zero	0x4e1
04d5 00db       |    |		Load_Top	At_Offset_3
04d6 0f01       |    |		Execute_Immediate	Equal,0x1
04d7 6809       |h   |		Jump_Zero	0x4e1
04d8 4801       |H   |		Short_Literal	0x1
04d9 e5ff       |    |		Load	0x2,-0x1
04da 01d7       |    |		Execute	Vector,Field_Read
04db 4801       |H   |		Short_Literal	0x1
04dc e5fe       |    |		Load	0x2,-0x2
04dd 01d7       |    |		Execute	Vector,Field_Read
04de 0273       | s  |		Execute	Discrete,Plus
04df 82a0       |    |		Call	0x1,0xa0
04e0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04e1 e405       |    |		Load	0x2,0x5
04e2 0f01       |    |		Execute_Immediate	Equal,0x1
04e3 6808       |h   |		Jump_Zero	0x4ec
04e4 4801       |H   |		Short_Literal	0x1
04e5 e5ff       |    |		Load	0x2,-0x1
04e6 01d7       |    |		Execute	Vector,Field_Read
04e7 7004       |p   |		Jump_Nonzero	0x4ec
04e8 e5fe       |    |		Load	0x2,-0x2
04e9 0335       | 5  |		Declare_Variable	Array,Duplicate
04ea 00cd       |    |		Action	Spare6_Action
04eb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04ec 00db       |    |		Load_Top	At_Offset_3
04ed 0f01       |    |		Execute_Immediate	Equal,0x1
04ee 6808       |h   |		Jump_Zero	0x4f7
04ef 4801       |H   |		Short_Literal	0x1
04f0 e5fe       |    |		Load	0x2,-0x2
04f1 01d7       |    |		Execute	Vector,Field_Read
04f2 7004       |p   |		Jump_Nonzero	0x4f7
04f3 e5ff       |    |		Load	0x2,-0x1
04f4 0335       | 5  |		Declare_Variable	Array,Duplicate
04f5 00cd       |    |		Action	Spare6_Action
04f6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04f7 e405       |    |		Load	0x2,0x5
04f8 e406       |    |		Load	0x2,0x6
04f9 027c       | |  |		Execute	Discrete,Less
04fa 6804       |h   |		Jump_Zero	0x4ff
04fb 00db       |    |		Load_Top	At_Offset_3
04fc 0a01       |    |		Execute_Immediate	Plus,0x1
04fd c402       |    |		Store	0x2,0x2
04fe 7803       |x   |		Jump	0x502
04ff e405       |    |		Load	0x2,0x5
0500 0a01       |    |		Execute_Immediate	Plus,0x1
0501 c402       |    |		Store	0x2,0x2
0502 8409       |    |		Call	0x2,0x9
0503 0831       | 1  |		Execute_Immediate	Raise,0x31
0504 0000 0000  |    |		.BLANK	0000[0x4]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			INIT_0508:
050b 00db       |    |		Load_Top	At_Offset_3
050c 8226       | &  |		Call	0x1,0x26
050d 00db       |    |		Load_Top	At_Offset_3
050e 8228       | (  |		Call	0x1,0x28
050f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0522       | "  |		.CONST	0x0522								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0003       |    |		.CONST	0x0003								; Number of locals
0513			INIT_0510:
0513 4801       |H   |		Short_Literal	0x1
0514 00db       |    |		Load_Top	At_Offset_3
0515 01db       |    |		Execute	Vector,Length
0516 e5fe       |    |		Load	0x2,-0x2
0517 01db       |    |		Execute	Vector,Length
0518 0273       | s  |		Execute	Discrete,Plus
0519 00d8       |    |		Load_Top	At_Offset_0
051a 00e2       |    |		Load_Encached	Integer_Cache
051b 0260       | `  |		Execute	Discrete,In_Type
051c 7001       |p   |		Jump_Nonzero	0x51e
051d 0801       |    |		Execute_Immediate	Raise,0x1
051e e220       |    |		Load	0x1,0x20
051f 035b       | [  |		Declare_Type	Array,Constrained
0520 0337       | 7  |		Declare_Variable	Array
0521 00e2       |    |		Load_Encached	Integer_Cache
0522			BODY_0510:
0522 00d9       |    |		Load_Top	At_Offset_1
0523 e5fe       |    |		Load	0x2,-0x2
0524 e5ff       |    |		Load	0x2,-0x1
0525 82ae       |    |		Call	0x1,0xae
0526 00d1       |    |		Pop_Control	Pop_Count_1
0527 00e2       |    |		Load_Encached	Integer_Cache
0528 00da       |    |		Load_Top	At_Offset_2
0529 4800       |H   |		Short_Literal	0x0
052a 82a3       |    |		Call	0x1,0xa3
052b 00d1       |    |		Pop_Control	Pop_Count_1
052c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
052d 4801       |H   |		Short_Literal	0x1
052e 00d9       |    |		Load_Top	At_Offset_1
052f 00db       |    |		Load_Top	At_Offset_3
0530 01cf       |    |		Execute	Vector,Slice_Read
0531 e220       |    |		Load	0x1,0x20
0532 01c6       |    |		Execute	Vector,Convert_To_Formal
0533 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0534 0000 0000  |    |		.BLANK	0000[0x4]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b       | ;  |		.CONST	0x053b								; Address of begin
0539 0004       |    |		.CONST	0x0004								; Address of exception handler
053a 0001       |    |		.CONST	0x0001								; Number of locals
053b			BODY_0538:
053b			INIT_0538:
053b 4800       |H   |		Short_Literal	0x0
053c e5fe       |    |		Load	0x2,-0x2
053d e5ff       |    |		Load	0x2,-0x1
053e 82a8       |    |		Call	0x1,0xa8
053f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0540 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0541 0000 0000  |    |		.BLANK	0000[0x7]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054e       | N  |		.CONST	0x054e								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0002       |    |		.CONST	0x0002								; Number of locals
054b			INIT_0548:
054b 00db       |    |		Load_Top	At_Offset_3
054c 00db       |    |		Load_Top	At_Offset_3
054d 822d       | -  |		Call	0x1,0x2d
054e			BODY_0548:
054e 4801       |H   |		Short_Literal	0x1
054f e5ff       |    |		Load	0x2,-0x1
0550 01d7       |    |		Execute	Vector,Field_Read
0551 0d00       |    |		Execute_Immediate	Less,0x0
0552 4801       |H   |		Short_Literal	0x1
0553 e5fe       |    |		Load	0x2,-0x2
0554 01d7       |    |		Execute	Vector,Field_Read
0555 0d00       |    |		Execute_Immediate	Less,0x0
0556 027f       |    |		Execute	Discrete,Equal
0557 7004       |p   |		Jump_Nonzero	0x55c
0558 4801       |H   |		Short_Literal	0x1
0559 00d9       |    |		Load_Top	At_Offset_1
055a 01d7       |    |		Execute	Vector,Field_Read
055b 7002       |p   |		Jump_Nonzero	0x55e
055c 00d8       |    |		Load_Top	At_Offset_0
055d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
055e 00d8       |    |		Load_Top	At_Offset_0
055f e5fe       |    |		Load	0x2,-0x2
0560 8228       | (  |		Call	0x1,0x28
0561 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0562 0000 0000  |    |		.BLANK	0000[0x6]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 00da       |    |		Load_Top	At_Offset_2
056c 01db       |    |		Execute	Vector,Length
056d 0f01       |    |		Execute_Immediate	Equal,0x1
056e 680d       |h   |		Jump_Zero	0x57c
056f 00db       |    |		Load_Top	At_Offset_3
0570 01db       |    |		Execute	Vector,Length
0571 0f01       |    |		Execute_Immediate	Equal,0x1
0572 6809       |h   |		Jump_Zero	0x57c
0573 4801       |H   |		Short_Literal	0x1
0574 00db       |    |		Load_Top	At_Offset_3
0575 01d7       |    |		Execute	Vector,Field_Read
0576 4801       |H   |		Short_Literal	0x1
0577 e5fe       |    |		Load	0x2,-0x2
0578 01d7       |    |		Execute	Vector,Field_Read
0579 026f       | o  |		Execute	Discrete,Remainder
057a 82a0       |    |		Call	0x1,0xa0
057b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
057c 4801       |H   |		Short_Literal	0x1
057d e5fe       |    |		Load	0x2,-0x2
057e e5ff       |    |		Load	0x2,-0x1
057f 82a8       |    |		Call	0x1,0xa8
0580 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0581 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0582 0000 0000  |    |		.BLANK	0000[0x6]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 059b       |    |		.CONST	0x059b								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0003       |    |		.CONST	0x0003								; Number of locals
058b			INIT_0588:
058b 4801       |H   |		Short_Literal	0x1
058c 00db       |    |		Load_Top	At_Offset_3
058d 01db       |    |		Execute	Vector,Length
058e e5fe       |    |		Load	0x2,-0x2
058f 0274       | t  |		Execute	Discrete,Absolute_Value
0590 82af       |    |		Call	0x1,0xaf
0591 0271       | q  |		Execute	Discrete,Times
0592 00d8       |    |		Load_Top	At_Offset_0
0593 00e2       |    |		Load_Encached	Integer_Cache
0594 0260       | `  |		Execute	Discrete,In_Type
0595 7001       |p   |		Jump_Nonzero	0x597
0596 0801       |    |		Execute_Immediate	Raise,0x1
0597 e220       |    |		Load	0x1,0x20
0598 035b       | [  |		Declare_Type	Array,Constrained
0599 0337       | 7  |		Declare_Variable	Array
059a 00e2       |    |		Load_Encached	Integer_Cache
059b			BODY_0588:
059b 00d9       |    |		Load_Top	At_Offset_1
059c e5fe       |    |		Load	0x2,-0x2
059d e5ff       |    |		Load	0x2,-0x1
059e 82b1       |    |		Call	0x1,0xb1
059f 00d1       |    |		Pop_Control	Pop_Count_1
05a0 00e2       |    |		Load_Encached	Integer_Cache
05a1 00da       |    |		Load_Top	At_Offset_2
05a2 4800       |H   |		Short_Literal	0x0
05a3 82a3       |    |		Call	0x1,0xa3
05a4 00d1       |    |		Pop_Control	Pop_Count_1
05a5 0059       | Y  |		Store_Top	Discrete,At_Offset_1
05a6 4801       |H   |		Short_Literal	0x1
05a7 00d9       |    |		Load_Top	At_Offset_1
05a8 00db       |    |		Load_Top	At_Offset_3
05a9 01cf       |    |		Execute	Vector,Slice_Read
05aa e220       |    |		Load	0x1,0x20
05ab 01c6       |    |		Execute	Vector,Convert_To_Formal
05ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05ad 0000 0000  |    |		.XXX[0x3]
05af 0000       |    |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3       |    |		.CONST	0x05b3								; Address of begin
05b1 0004       |    |		.CONST	0x0004								; Address of exception handler
05b2 0001       |    |		.CONST	0x0001								; Number of locals
05b3			BODY_05b0:
05b3			INIT_05b0:
05b3 00db       |    |		Load_Top	At_Offset_3
05b4 00db       |    |		Load_Top	At_Offset_3
05b5 8224       | $  |		Call	0x1,0x24
05b6 6804       |h   |		Jump_Zero	0x5bb
05b7 e5fd       |    |		Load	0x2,-0x3
05b8 00db       |    |		Load_Top	At_Offset_3
05b9 8222       | "  |		Call	0x1,0x22
05ba 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05bb 4800       |H   |		Short_Literal	0x0
05bc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05bd 0000 0000  |    |		.XXX[0x3]
05bf 0000       |    |
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 00db       |    |		Load_Top	At_Offset_3
05c4 00db       |    |		Load_Top	At_Offset_3
05c5 829e       |    |		Call	0x1,0x9e
05c6 822a       | *  |		Call	0x1,0x2a
05c7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb       |    |		.CONST	0x05cb								; Address of begin
05c9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ca 0001       |    |		.CONST	0x0001								; Number of locals
05cb			BODY_05c8:
05cb			INIT_05c8:
05cb 00db       |    |		Load_Top	At_Offset_3
05cc 829e       |    |		Call	0x1,0x9e
05cd 00db       |    |		Load_Top	At_Offset_3
05ce 822a       | *  |		Call	0x1,0x2a
05cf 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3       |    |		.CONST	0x05d3								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0001       |    |		.CONST	0x0001								; Number of locals
05d3			BODY_05d0:
05d3			INIT_05d0:
05d3 00db       |    |		Load_Top	At_Offset_3
05d4 829e       |    |		Call	0x1,0x9e
05d5 00db       |    |		Load_Top	At_Offset_3
05d6 822b       | +  |		Call	0x1,0x2b
05d7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db 4802       |H   |		Short_Literal	0x2
05dc e5fe       |    |		Load	0x2,-0x2
05dd e5ff       |    |		Load	0x2,-0x1
05de 82a8       |    |		Call	0x1,0xa8
05df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05f6       |    |		.CONST	0x05f6								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0002       |    |		.CONST	0x0002								; Number of locals
05e3			INIT_05e0:
05e3 4801       |H   |		Short_Literal	0x1
05e4 e5fe       |    |		Load	0x2,-0x2
05e5 01db       |    |		Execute	Vector,Length
05e6 00d8       |    |		Load_Top	At_Offset_0
05e7 00e2       |    |		Load_Encached	Integer_Cache
05e8 0260       | `  |		Execute	Discrete,In_Type
05e9 7001       |p   |		Jump_Nonzero	0x5eb
05ea 0801       |    |		Execute_Immediate	Raise,0x1
05eb e5ff       |    |		Load	0x2,-0x1
05ec 01db       |    |		Execute	Vector,Length
05ed 00d8       |    |		Load_Top	At_Offset_0
05ee 00e2       |    |		Load_Encached	Integer_Cache
05ef 0260       | `  |		Execute	Discrete,In_Type
05f0 7001       |p   |		Jump_Nonzero	0x5f2
05f1 0801       |    |		Execute_Immediate	Raise,0x1
05f2 82b2       |    |		Call	0x1,0xb2
05f3 e220       |    |		Load	0x1,0x20
05f4 035b       | [  |		Declare_Type	Array,Constrained
05f5 0337       | 7  |		Declare_Variable	Array
05f6			BODY_05e0:
05f6 00d8       |    |		Load_Top	At_Offset_0
05f7 e5fe       |    |		Load	0x2,-0x2
05f8 e5ff       |    |		Load	0x2,-0x1
05f9 82b3       |    |		Call	0x1,0xb3
05fa 00d1       |    |		Pop_Control	Pop_Count_1
05fb 4800       |H   |		Short_Literal	0x0
05fc 00d9       |    |		Load_Top	At_Offset_1
05fd 82a4       |    |		Call	0x1,0xa4
05fe e220       |    |		Load	0x1,0x20
05ff 01c6       |    |		Execute	Vector,Convert_To_Formal
0600 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0601 0000 0000  |    |		.BLANK	0000[0x7]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 061a       |    |		.CONST	0x061a								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0004       |    |		.CONST	0x0004								; Number of locals
060b			INIT_0608:
060b 481f       |H   |		Short_Literal	0x1f
060c 00db       |    |		Load_Top	At_Offset_3
060d 01db       |    |		Execute	Vector,Length
060e 0271       | q  |		Execute	Discrete,Times
060f 00e5       |    |		Load_Encached	Long_Integer_Cache
0610 03f1       |    |		Declare_Variable	Discrete,With_Value
0611 4801       |H   |		Short_Literal	0x1
0612 e5ff       |    |		Load	0x2,-0x1
0613 01d7       |    |		Execute	Vector,Field_Read
0614 0274       | t  |		Execute	Discrete,Absolute_Value
0615 00e5       |    |		Load_Encached	Long_Integer_Cache
0616 03f1       |    |		Declare_Variable	Discrete,With_Value
0617 6034       |`4  |		Indirect_Literal	Discrete,0x64c,{0x00000000, 0x80000000}
0618 00e5       |    |		Load_Encached	Long_Integer_Cache
0619 03f1       |    |		Declare_Variable	Discrete,With_Value
061a			BODY_0608:
061a 00d9       |    |		Load_Top	At_Offset_1
061b 7001       |p   |		Jump_Nonzero	0x61d
061c 08e0       |    |		Execute_Immediate	Raise,0xe0
061d 00cf       |    |		Action	Mark_Auxiliary
061e 7807       |x   |		Jump	0x626
061f 00d9       |    |		Load_Top	At_Offset_1
0620 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0621 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0622 00db       |    |		Load_Top	At_Offset_3
0623 0aff       |    |		Execute_Immediate	Plus,-0x1
0624 a402       |    |		Store_Unchecked	0x2,0x2
0625 00c9       |    |		Action	Pop_Auxiliary_Loop
0626 00d9       |    |		Load_Top	At_Offset_1
0627 00db       |    |		Load_Top	At_Offset_3
0628 027d       | }  |		Execute	Discrete,Greater
0629 77f5       |w   |		Jump_Nonzero	0x61f
062a 00ce       |    |		Action	Pop_Auxiliary
062b 00d8       |    |		Load_Top	At_Offset_0
062c 00da       |    |		Load_Top	At_Offset_2
062d 027c       | |  |		Execute	Discrete,Less
062e 6803       |h   |		Jump_Zero	0x632
062f 00da       |    |		Load_Top	At_Offset_2
0630 0a01       |    |		Execute_Immediate	Plus,0x1
0631 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0632 00cf       |    |		Action	Mark_Auxiliary
0633 e5ff       |    |		Load	0x2,-0x1
0634 01dc       |    |		Execute	Vector,Last
0635 e5ff       |    |		Load	0x2,-0x1
0636 01dd       |    |		Execute	Vector,First
0637 0a01       |    |		Execute_Immediate	Plus,0x1
0638 00d8       |    |		Load_Top	At_Offset_0
0639 00e2       |    |		Load_Encached	Integer_Cache
063a 0260       | `  |		Execute	Discrete,In_Type
063b 7001       |p   |		Jump_Nonzero	0x63d
063c 0801       |    |		Execute_Immediate	Raise,0x1
063d 0263       | c  |		Execute	Discrete,Above_Bound
063e 7009       |p   |		Jump_Nonzero	0x648
063f 00d8       |    |		Load_Top	At_Offset_0
0640 e5ff       |    |		Load	0x2,-0x1
0641 01d7       |    |		Execute	Vector,Field_Read
0642 6803       |h   |		Jump_Zero	0x646
0643 e402       |    |		Load	0x2,0x2
0644 0a01       |    |		Execute_Immediate	Plus,0x1
0645 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0646 00c8       |    |		Action	Pop_Auxiliary_Range
0647 3ff7       |?   |		Loop_Increasing	0x63f
0648 00ce       |    |		Action	Pop_Auxiliary
0649 00da       |    |		Load_Top	At_Offset_2
064a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
064b 0000       |    |		.XXX[0x1]
064c 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0660       | `  |		.CONST	0x0660								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0004       |    |		.CONST	0x0004								; Number of locals
0653			INIT_0650:
0653 00da       |    |		Load_Top	At_Offset_2
0654 8227       | '  |		Call	0x1,0x27
0655 00d8       |    |		Load_Top	At_Offset_0
0656 8236       | 6  |		Call	0x1,0x36
0657 0237       | 7  |		Execute	Float,Convert_From_Discrete
0658 5823       |X#  |		Indirect_Literal	Float,0x67c,0.30102999566
0659 023b       | ;  |		Execute	Float,Times
065a 0235       | 5  |		Execute	Float,Round_To_Discrete
065b 00e5       |    |		Load_Encached	Long_Integer_Cache
065c 025e       | ^  |		Execute	Discrete,Convert
065d 00e5       |    |		Load_Encached	Long_Integer_Cache
065e 03f1       |    |		Declare_Variable	Discrete,With_Value
065f e238       | 8  |		Load	0x1,0x38
0660			BODY_0650:
0660 00cf       |    |		Action	Mark_Auxiliary
0661 00db       |    |		Load_Top	At_Offset_3
0662 00db       |    |		Load_Top	At_Offset_3
0663 00d8       |    |		Load_Top	At_Offset_0
0664 00e2       |    |		Load_Encached	Integer_Cache
0665 0260       | `  |		Execute	Discrete,In_Type
0666 7001       |p   |		Jump_Nonzero	0x668
0667 0801       |    |		Execute_Immediate	Raise,0x1
0668 e298       |    |		Load	0x1,0x98
0669 822e       | .  |		Call	0x1,0x2e
066a 823a       | :  |		Call	0x1,0x3a
066b 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
066c 00d9       |    |		Load_Top	At_Offset_1
066d 0d01       |    |		Execute_Immediate	Less,0x1
066e 7005       |p   |		Jump_Nonzero	0x674
066f 00da       |    |		Load_Top	At_Offset_2
0670 0aff       |    |		Execute_Immediate	Plus,-0x1
0671 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0672 00c9       |    |		Action	Pop_Auxiliary_Loop
0673 7fed       |    |		Jump	0x661
0674 00ce       |    |		Action	Pop_Auxiliary
0675 00d9       |    |		Load_Top	At_Offset_1
0676 00d9       |    |		Load_Top	At_Offset_1
0677 0273       | s  |		Execute	Discrete,Plus
0678 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0679 0000 0000  |    |		.XXX[0x3]
067b 0000       |    |
067c 3fd3 4413  |? D |		.DBL	0.30102999566
067e 509e 61d8  |P a |
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683       |    |		.CONST	0x0683								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0001       |    |		.CONST	0x0001								; Number of locals
0683			BODY_0680:
0683			INIT_0680:
0683 4801       |H   |		Short_Literal	0x1
0684 00db       |    |		Load_Top	At_Offset_3
0685 01d7       |    |		Execute	Vector,Field_Read
0686 82b4       |    |		Call	0x1,0xb4
0687 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b       |    |		.CONST	0x068b								; Address of begin
0689 0004       |    |		.CONST	0x0004								; Address of exception handler
068a 0001       |    |		.CONST	0x0001								; Number of locals
068b			BODY_0688:
068b			INIT_0688:
068b 00da       |    |		Load_Top	At_Offset_2
068c 01db       |    |		Execute	Vector,Length
068d e5fe       |    |		Load	0x2,-0x2
068e 01db       |    |		Execute	Vector,Length
068f 027f       |    |		Execute	Discrete,Equal
0690 6831       |h1  |		Jump_Zero	0x6c2
0691 00cf       |    |		Action	Mark_Auxiliary
0692 00db       |    |		Load_Top	At_Offset_3
0693 01d9       |    |		Execute	Vector,Reverse_Bounds
0694 0263       | c  |		Execute	Discrete,Above_Bound
0695 7029       |p)  |		Jump_Nonzero	0x6bf
0696 00d8       |    |		Load_Top	At_Offset_0
0697 e5ff       |    |		Load	0x2,-0x1
0698 01d7       |    |		Execute	Vector,Field_Read
0699 00d9       |    |		Load_Top	At_Offset_1
069a e5fe       |    |		Load	0x2,-0x2
069b 01d7       |    |		Execute	Vector,Field_Read
069c 027e       | ~  |		Execute	Discrete,Not_Equal
069d 681f       |h   |		Jump_Zero	0x6bd
069e 00d8       |    |		Load_Top	At_Offset_0
069f 0f01       |    |		Execute_Immediate	Equal,0x1
06a0 6809       |h   |		Jump_Zero	0x6aa
06a1 4801       |H   |		Short_Literal	0x1
06a2 e5ff       |    |		Load	0x2,-0x1
06a3 01d7       |    |		Execute	Vector,Field_Read
06a4 4801       |H   |		Short_Literal	0x1
06a5 e5fe       |    |		Load	0x2,-0x2
06a6 01d7       |    |		Execute	Vector,Field_Read
06a7 0272       | r  |		Execute	Discrete,Minus
06a8 82b4       |    |		Call	0x1,0xb4
06a9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06aa 4801       |H   |		Short_Literal	0x1
06ab e5ff       |    |		Load	0x2,-0x1
06ac 01d7       |    |		Execute	Vector,Field_Read
06ad 82b4       |    |		Call	0x1,0xb4
06ae 00d9       |    |		Load_Top	At_Offset_1
06af e5ff       |    |		Load	0x2,-0x1
06b0 01d7       |    |		Execute	Vector,Field_Read
06b1 0271       | q  |		Execute	Discrete,Times
06b2 4801       |H   |		Short_Literal	0x1
06b3 e5fe       |    |		Load	0x2,-0x2
06b4 01d7       |    |		Execute	Vector,Field_Read
06b5 82b4       |    |		Call	0x1,0xb4
06b6 00da       |    |		Load_Top	At_Offset_2
06b7 e5fe       |    |		Load	0x2,-0x2
06b8 01d7       |    |		Execute	Vector,Field_Read
06b9 0271       | q  |		Execute	Discrete,Times
06ba 0272       | r  |		Execute	Discrete,Minus
06bb 82b4       |    |		Call	0x1,0xb4
06bc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06bd 00c8       |    |		Action	Pop_Auxiliary_Range
06be 3fd7       |?   |		Loop_Increasing	0x696
06bf 00ce       |    |		Action	Pop_Auxiliary
06c0 4800       |H   |		Short_Literal	0x0
06c1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06c2 4801       |H   |		Short_Literal	0x1
06c3 00db       |    |		Load_Top	At_Offset_3
06c4 01d7       |    |		Execute	Vector,Field_Read
06c5 82b4       |    |		Call	0x1,0xb4
06c6 00db       |    |		Load_Top	At_Offset_3
06c7 01db       |    |		Execute	Vector,Length
06c8 0271       | q  |		Execute	Discrete,Times
06c9 4801       |H   |		Short_Literal	0x1
06ca e5fe       |    |		Load	0x2,-0x2
06cb 01d7       |    |		Execute	Vector,Field_Read
06cc 82b4       |    |		Call	0x1,0xb4
06cd e5fe       |    |		Load	0x2,-0x2
06ce 01db       |    |		Execute	Vector,Length
06cf 0271       | q  |		Execute	Discrete,Times
06d0 0272       | r  |		Execute	Discrete,Minus
06d1 82b4       |    |		Call	0x1,0xb4
06d2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06d3 0000 0000  |    |		.BLANK	0000[0x5]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db       |    |		.CONST	0x06db								; Address of begin
06d9 0004       |    |		.CONST	0x0004								; Address of exception handler
06da 0001       |    |		.CONST	0x0001								; Number of locals
06db			BODY_06d8:
06db			INIT_06d8:
06db e295       |    |		Load	0x1,0x95
06dc 00ca       |    |		Action	Exit_Nullary_Function
06dd 0000 0000  |    |		.XXX[0x3]
06df 0000       |    |
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e3       |    |		.CONST	0x06e3								; Address of begin
06e1 0004       |    |		.CONST	0x0004								; Address of exception handler
06e2 0001       |    |		.CONST	0x0001								; Number of locals
06e3			BODY_06e0:
06e3			INIT_06e0:
06e3 e296       |    |		Load	0x1,0x96
06e4 00ca       |    |		Action	Exit_Nullary_Function
06e5 0000 0000  |    |		.XXX[0x3]
06e7 0000       |    |
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb       |    |		.CONST	0x06eb								; Address of begin
06e9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ea 0001       |    |		.CONST	0x0001								; Number of locals
06eb			BODY_06e8:
06eb			INIT_06e8:
06eb e297       |    |		Load	0x1,0x97
06ec 00ca       |    |		Action	Exit_Nullary_Function
06ed 0000 0000  |    |		.XXX[0x3]
06ef 0000       |    |
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3       |    |		.CONST	0x06f3								; Address of begin
06f1 0004       |    |		.CONST	0x0004								; Address of exception handler
06f2 0001       |    |		.CONST	0x0001								; Number of locals
06f3			BODY_06f0:
06f3			INIT_06f0:
06f3 e298       |    |		Load	0x1,0x98
06f4 00ca       |    |		Action	Exit_Nullary_Function
06f5 0000 0000  |    |		.XXX[0x3]
06f7 0000       |    |
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb       |    |		.CONST	0x06fb								; Address of begin
06f9 0004       |    |		.CONST	0x0004								; Address of exception handler
06fa 0001       |    |		.CONST	0x0001								; Number of locals
06fb			BODY_06f8:
06fb			INIT_06f8:
06fb 00db       |    |		Load_Top	At_Offset_3
06fc 00db       |    |		Load_Top	At_Offset_3
06fd 8254       | T  |		Call	0x1,0x54
06fe 4fff       |O   |		Short_Literal	-0x1
06ff 027f       |    |		Execute	Discrete,Equal
0700 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0701 0000 0000  |    |		.BLANK	0000[0x7]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b       |    |		.CONST	0x070b								; Address of begin
0709 0004       |    |		.CONST	0x0004								; Address of exception handler
070a 0001       |    |		.CONST	0x0001								; Number of locals
070b			BODY_0708:
070b			INIT_0708:
070b 00db       |    |		Load_Top	At_Offset_3
070c 00db       |    |		Load_Top	At_Offset_3
070d 8254       | T  |		Call	0x1,0x54
070e 0e01       |    |		Execute_Immediate	Not_Equal,0x1
070f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713       |    |		.CONST	0x0713								; Address of begin
0711 0004       |    |		.CONST	0x0004								; Address of exception handler
0712 0001       |    |		.CONST	0x0001								; Number of locals
0713			BODY_0710:
0713			INIT_0710:
0713 00db       |    |		Load_Top	At_Offset_3
0714 00db       |    |		Load_Top	At_Offset_3
0715 8254       | T  |		Call	0x1,0x54
0716 0f01       |    |		Execute_Immediate	Equal,0x1
0717 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b       |    |		.CONST	0x071b								; Address of begin
0719 0004       |    |		.CONST	0x0004								; Address of exception handler
071a 0001       |    |		.CONST	0x0001								; Number of locals
071b			BODY_0718:
071b			INIT_0718:
071b 00db       |    |		Load_Top	At_Offset_3
071c 00db       |    |		Load_Top	At_Offset_3
071d 8254       | T  |		Call	0x1,0x54
071e 4fff       |O   |		Short_Literal	-0x1
071f 027e       | ~  |		Execute	Discrete,Not_Equal
0720 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0721 0000 0000  |    |		.BLANK	0000[0x7]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b       | +  |		.CONST	0x072b								; Address of begin
0729 0004       |    |		.CONST	0x0004								; Address of exception handler
072a 0001       |    |		.CONST	0x0001								; Number of locals
072b			BODY_0728:
072b			INIT_0728:
072b 00da       |    |		Load_Top	At_Offset_2
072c 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
072d 00cd       |    |		Action	Spare6_Action
072e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
072f 0000       |    |		.XXX[0x1]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733       | 3  |		.CONST	0x0733								; Address of begin
0731 0004       |    |		.CONST	0x0004								; Address of exception handler
0732 0001       |    |		.CONST	0x0001								; Number of locals
0733			BODY_0730:
0733			INIT_0730:
0733 00da       |    |		Load_Top	At_Offset_2
0734 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0735 00db       |    |		Load_Top	At_Offset_3
0736 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0737 8226       | &  |		Call	0x1,0x26
0738 82b5       |    |		Call	0x1,0xb5
0739 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
073a 0000 0000  |    |		.BLANK	0000[0x6]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743       | C  |		.CONST	0x0743								; Address of begin
0741 0004       |    |		.CONST	0x0004								; Address of exception handler
0742 0001       |    |		.CONST	0x0001								; Number of locals
0743			BODY_0740:
0743			INIT_0740:
0743 00da       |    |		Load_Top	At_Offset_2
0744 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0745 00db       |    |		Load_Top	At_Offset_3
0746 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0747 8227       | '  |		Call	0x1,0x27
0748 82b5       |    |		Call	0x1,0xb5
0749 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
074a 0000 0000  |    |		.BLANK	0000[0x6]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753       | S  |		.CONST	0x0753								; Address of begin
0751 0004       |    |		.CONST	0x0004								; Address of exception handler
0752 0001       |    |		.CONST	0x0001								; Number of locals
0753			BODY_0750:
0753			INIT_0750:
0753 00db       |    |		Load_Top	At_Offset_3
0754 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0755 00db       |    |		Load_Top	At_Offset_3
0756 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0757 822a       | *  |		Call	0x1,0x2a
0758 00db       |    |		Load_Top	At_Offset_3
0759 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
075a e5fe       |    |		Load	0x2,-0x2
075b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
075c 822a       | *  |		Call	0x1,0x2a
075d e5fe       |    |		Load	0x2,-0x2
075e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
075f e5ff       |    |		Load	0x2,-0x1
0760 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0761 822a       | *  |		Call	0x1,0x2a
0762 8228       | (  |		Call	0x1,0x28
0763 829f       |    |		Call	0x1,0x9f
0764 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0765 0000 0000  |    |		.XXX[0x3]
0767 0000       |    |
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 00db       |    |		Load_Top	At_Offset_3
076c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
076d 00db       |    |		Load_Top	At_Offset_3
076e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
076f 822a       | *  |		Call	0x1,0x2a
0770 00db       |    |		Load_Top	At_Offset_3
0771 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0772 e5fe       |    |		Load	0x2,-0x2
0773 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0774 822a       | *  |		Call	0x1,0x2a
0775 e5fe       |    |		Load	0x2,-0x2
0776 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0777 e5ff       |    |		Load	0x2,-0x1
0778 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0779 822a       | *  |		Call	0x1,0x2a
077a 8229       | )  |		Call	0x1,0x29
077b 829f       |    |		Call	0x1,0x9f
077c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
077d 0000 0000  |    |		.XXX[0x3]
077f 0000       |    |
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0783       |    |		.CONST	0x0783								; Address of begin
0781 0004       |    |		.CONST	0x0004								; Address of exception handler
0782 0001       |    |		.CONST	0x0001								; Number of locals
0783			BODY_0780:
0783			INIT_0780:
0783 00db       |    |		Load_Top	At_Offset_3
0784 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0785 00db       |    |		Load_Top	At_Offset_3
0786 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0787 822a       | *  |		Call	0x1,0x2a
0788 e5fe       |    |		Load	0x2,-0x2
0789 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
078a e5ff       |    |		Load	0x2,-0x1
078b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
078c 822a       | *  |		Call	0x1,0x2a
078d 829f       |    |		Call	0x1,0x9f
078e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
078f 0000       |    |		.XXX[0x1]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793       |    |		.CONST	0x0793								; Address of begin
0791 0004       |    |		.CONST	0x0004								; Address of exception handler
0792 0001       |    |		.CONST	0x0001								; Number of locals
0793			BODY_0790:
0793			INIT_0790:
0793 00db       |    |		Load_Top	At_Offset_3
0794 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0795 00db       |    |		Load_Top	At_Offset_3
0796 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0797 822a       | *  |		Call	0x1,0x2a
0798 e5fe       |    |		Load	0x2,-0x2
0799 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
079a e5ff       |    |		Load	0x2,-0x1
079b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
079c 822a       | *  |		Call	0x1,0x2a
079d 829f       |    |		Call	0x1,0x9f
079e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
079f 0000       |    |		.XXX[0x1]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a3       |    |		.CONST	0x07a3								; Address of begin
07a1 0004       |    |		.CONST	0x0004								; Address of exception handler
07a2 0001       |    |		.CONST	0x0001								; Number of locals
07a3			BODY_07a0:
07a3			INIT_07a0:
07a3 00db       |    |		Load_Top	At_Offset_3
07a4 7002       |p   |		Jump_Nonzero	0x7a7
07a5 e29b       |    |		Load	0x1,0x9b
07a6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07a7 00db       |    |		Load_Top	At_Offset_3
07a8 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
07a9 6811       |h   |		Jump_Zero	0x7bb
07aa 00db       |    |		Load_Top	At_Offset_3
07ab 0f01       |    |		Execute_Immediate	Equal,0x1
07ac 6804       |h   |		Jump_Zero	0x7b1
07ad 00da       |    |		Load_Top	At_Offset_2
07ae 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
07af 00cd       |    |		Action	Spare6_Action
07b0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07b1 00db       |    |		Load_Top	At_Offset_3
07b2 00db       |    |		Load_Top	At_Offset_3
07b3 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07b4 822e       | .  |		Call	0x1,0x2e
07b5 e5fe       |    |		Load	0x2,-0x2
07b6 e5ff       |    |		Load	0x2,-0x1
07b7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07b8 822e       | .  |		Call	0x1,0x2e
07b9 829f       |    |		Call	0x1,0x9f
07ba 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07bb 00db       |    |		Load_Top	At_Offset_3
07bc 4fff       |O   |		Short_Literal	-0x1
07bd 027f       |    |		Execute	Discrete,Equal
07be 6814       |h   |		Jump_Zero	0x7d3
07bf 4801       |H   |		Short_Literal	0x1
07c0 00db       |    |		Load_Top	At_Offset_3
07c1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07c2 01d7       |    |		Execute	Vector,Field_Read
07c3 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
07c4 6806       |h   |		Jump_Zero	0x7cb
07c5 00da       |    |		Load_Top	At_Offset_2
07c6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07c7 00db       |    |		Load_Top	At_Offset_3
07c8 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07c9 82b5       |    |		Call	0x1,0xb5
07ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07cb 00da       |    |		Load_Top	At_Offset_2
07cc 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07cd 8226       | &  |		Call	0x1,0x26
07ce 00db       |    |		Load_Top	At_Offset_3
07cf 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07d0 8226       | &  |		Call	0x1,0x26
07d1 82b5       |    |		Call	0x1,0xb5
07d2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07d3 00db       |    |		Load_Top	At_Offset_3
07d4 0275       | u  |		Execute	Discrete,Unary_Minus
07d5 00db       |    |		Load_Top	At_Offset_3
07d6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07d7 822e       | .  |		Call	0x1,0x2e
07d8 e5fe       |    |		Load	0x2,-0x2
07d9 0275       | u  |		Execute	Discrete,Unary_Minus
07da e5ff       |    |		Load	0x2,-0x1
07db 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07dc 822e       | .  |		Call	0x1,0x2e
07dd 829f       |    |		Call	0x1,0x9f
07de 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07df 0000       |    |		.XXX[0x1]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3       |    |		.CONST	0x07e3								; Address of begin
07e1 0004       |    |		.CONST	0x0004								; Address of exception handler
07e2 0001       |    |		.CONST	0x0001								; Number of locals
07e3			BODY_07e0:
07e3			INIT_07e0:
07e3 00db       |    |		Load_Top	At_Offset_3
07e4 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07e5 00db       |    |		Load_Top	At_Offset_3
07e6 e5fe       |    |		Load	0x2,-0x2
07e7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07e8 822a       | *  |		Call	0x1,0x2a
07e9 829f       |    |		Call	0x1,0x9f
07ea 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07eb 0000 0000  |    |		.BLANK	0000[0x5]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 07f3       |    |		.CONST	0x07f3								; Address of begin
07f1 0004       |    |		.CONST	0x0004								; Address of exception handler
07f2 0001       |    |		.CONST	0x0001								; Number of locals
07f3			BODY_07f0:
07f3			INIT_07f0:
07f3 00da       |    |		Load_Top	At_Offset_2
07f4 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07f5 e5fe       |    |		Load	0x2,-0x2
07f6 e5ff       |    |		Load	0x2,-0x1
07f7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07f8 822a       | *  |		Call	0x1,0x2a
07f9 829f       |    |		Call	0x1,0x9f
07fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07fb 0000 0000  |    |		.BLANK	0000[0x5]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803       |    |		.CONST	0x0803								; Address of begin
0801 0004       |    |		.CONST	0x0004								; Address of exception handler
0802 0001       |    |		.CONST	0x0001								; Number of locals
0803			BODY_0800:
0803			INIT_0800:
0803 00db       |    |		Load_Top	At_Offset_3
0804 00db       |    |		Load_Top	At_Offset_3
0805 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0806 822a       | *  |		Call	0x1,0x2a
0807 00db       |    |		Load_Top	At_Offset_3
0808 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0809 829f       |    |		Call	0x1,0x9f
080a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
080b 0000 0000  |    |		.BLANK	0000[0x5]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813       |    |		.CONST	0x0813								; Address of begin
0811 0004       |    |		.CONST	0x0004								; Address of exception handler
0812 0001       |    |		.CONST	0x0001								; Number of locals
0813			BODY_0810:
0813			INIT_0810:
0813 00db       |    |		Load_Top	At_Offset_3
0814 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0815 e5fe       |    |		Load	0x2,-0x2
0816 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0817 e5ff       |    |		Load	0x2,-0x1
0818 8230       | 0  |		Call	0x1,0x30
0819 829f       |    |		Call	0x1,0x9f
081a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
081b 0000 0000  |    |		.BLANK	0000[0x5]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823       | #  |		.CONST	0x0823								; Address of begin
0821 0004       |    |		.CONST	0x0004								; Address of exception handler
0822 0001       |    |		.CONST	0x0001								; Number of locals
0823			BODY_0820:
0823			INIT_0820:
0823 00da       |    |		Load_Top	At_Offset_2
0824 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0825 e5fe       |    |		Load	0x2,-0x2
0826 e5ff       |    |		Load	0x2,-0x1
0827 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0828 8231       | 1  |		Call	0x1,0x31
0829 829f       |    |		Call	0x1,0x9f
082a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
082b 0000 0000  |    |		.BLANK	0000[0x5]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833       | 3  |		.CONST	0x0833								; Address of begin
0831 0004       |    |		.CONST	0x0004								; Address of exception handler
0832 0001       |    |		.CONST	0x0001								; Number of locals
0833			BODY_0830:
0833			INIT_0830:
0833 00da       |    |		Load_Top	At_Offset_2
0834 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0835 e5fe       |    |		Load	0x2,-0x2
0836 8230       | 0  |		Call	0x1,0x30
0837 00db       |    |		Load_Top	At_Offset_3
0838 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0839 829f       |    |		Call	0x1,0x9f
083a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
083b 0000 0000  |    |		.BLANK	0000[0x5]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843       | C  |		.CONST	0x0843								; Address of begin
0841 0004       |    |		.CONST	0x0004								; Address of exception handler
0842 0001       |    |		.CONST	0x0001								; Number of locals
0843			BODY_0840:
0843			INIT_0840:
0843 00db       |    |		Load_Top	At_Offset_3
0844 00db       |    |		Load_Top	At_Offset_3
0845 8243       | C  |		Call	0x1,0x43
0846 6804       |h   |		Jump_Zero	0x84b
0847 e5fd       |    |		Load	0x2,-0x3
0848 00db       |    |		Load_Top	At_Offset_3
0849 8241       | A  |		Call	0x1,0x41
084a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
084b 4800       |H   |		Short_Literal	0x0
084c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
084d 0000 0000  |    |		.XXX[0x3]
084f 0000       |    |
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0853       | S  |		.CONST	0x0853								; Address of begin
0851 0004       |    |		.CONST	0x0004								; Address of exception handler
0852 0001       |    |		.CONST	0x0001								; Number of locals
0853			BODY_0850:
0853			INIT_0850:
0853 00da       |    |		Load_Top	At_Offset_2
0854 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0855 8239       | 9  |		Call	0x1,0x39
0856 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0857 0000       |    |		.XXX[0x1]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b       | [  |		.CONST	0x085b								; Address of begin
0859 0004       |    |		.CONST	0x0004								; Address of exception handler
085a 0001       |    |		.CONST	0x0001								; Number of locals
085b			BODY_0858:
085b			INIT_0858:
085b 00da       |    |		Load_Top	At_Offset_2
085c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
085d e5fe       |    |		Load	0x2,-0x2
085e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
085f 822a       | *  |		Call	0x1,0x2a
0860 e5fe       |    |		Load	0x2,-0x2
0861 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0862 e5ff       |    |		Load	0x2,-0x1
0863 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0864 822a       | *  |		Call	0x1,0x2a
0865 823a       | :  |		Call	0x1,0x3a
0866 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0867 0000       |    |		.XXX[0x1]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b       | k  |		.CONST	0x086b								; Address of begin
0869 0004       |    |		.CONST	0x0004								; Address of exception handler
086a 0001       |    |		.CONST	0x0001								; Number of locals
086b			BODY_0868:
086b			INIT_0868:
086b 00da       |    |		Load_Top	At_Offset_2
086c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
086d 0335       | 5  |		Declare_Variable	Array,Duplicate
086e 00cd       |    |		Action	Spare6_Action
086f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0873       | s  |		.CONST	0x0873								; Address of begin
0871 0004       |    |		.CONST	0x0004								; Address of exception handler
0872 0001       |    |		.CONST	0x0001								; Number of locals
0873			BODY_0870:
0873			INIT_0870:
0873 00da       |    |		Load_Top	At_Offset_2
0874 8255       | U  |		Call	0x1,0x55
0875 e267       | g  |		Load	0x1,0x67
0876 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0877 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 087b       | {  |		.CONST	0x087b								; Address of begin
0879 0004       |    |		.CONST	0x0004								; Address of exception handler
087a 0001       |    |		.CONST	0x0001								; Number of locals
087b			BODY_0878:
087b			INIT_0878:
087b 00da       |    |		Load_Top	At_Offset_2
087c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
087d 0335       | 5  |		Declare_Variable	Array,Duplicate
087e 00cd       |    |		Action	Spare6_Action
087f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883       |    |		.CONST	0x0883								; Address of begin
0881 0004       |    |		.CONST	0x0004								; Address of exception handler
0882 0001       |    |		.CONST	0x0001								; Number of locals
0883			BODY_0880:
0883			INIT_0880:
0883 00da       |    |		Load_Top	At_Offset_2
0884 8257       | W  |		Call	0x1,0x57
0885 e267       | g  |		Load	0x1,0x67
0886 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0887 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b       |    |		.CONST	0x088b								; Address of begin
0889 0004       |    |		.CONST	0x0004								; Address of exception handler
088a 0001       |    |		.CONST	0x0001								; Number of locals
088b			BODY_0888:
088b			INIT_0888:
088b e299       |    |		Load	0x1,0x99
088c 00ca       |    |		Action	Exit_Nullary_Function
088d 0000 0000  |    |		.XXX[0x3]
088f 0000       |    |
0890 ; --------------------------------------------------------------------------------------
0890 ; SUBPROGRAM
0890 ; --------------------------------------------------------------------------------------
0890 0893       |    |		.CONST	0x0893								; Address of begin
0891 0004       |    |		.CONST	0x0004								; Address of exception handler
0892 0001       |    |		.CONST	0x0001								; Number of locals
0893			BODY_0890:
0893			INIT_0890:
0893 e29a       |    |		Load	0x1,0x9a
0894 00ca       |    |		Action	Exit_Nullary_Function
0895 0000 0000  |    |		.XXX[0x3]
0897 0000       |    |
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 089b       |    |		.CONST	0x089b								; Address of begin
0899 0004       |    |		.CONST	0x0004								; Address of exception handler
089a 0001       |    |		.CONST	0x0001								; Number of locals
089b			BODY_0898:
089b			INIT_0898:
089b e29b       |    |		Load	0x1,0x9b
089c 00ca       |    |		Action	Exit_Nullary_Function
089d 0000 0000  |    |		.XXX[0x3]
089f 0000       |    |
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3       |    |		.CONST	0x08a3								; Address of begin
08a1 0004       |    |		.CONST	0x0004								; Address of exception handler
08a2 0001       |    |		.CONST	0x0001								; Number of locals
08a3			BODY_08a0:
08a3			INIT_08a0:
08a3 e29c       |    |		Load	0x1,0x9c
08a4 00ca       |    |		Action	Exit_Nullary_Function
08a5 0000 0000  |    |		.XXX[0x3]
08a7 0000       |    |
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08ab       |    |		.CONST	0x08ab								; Address of begin
08a9 0004       |    |		.CONST	0x0004								; Address of exception handler
08aa 0001       |    |		.CONST	0x0001								; Number of locals
08ab			BODY_08a8:
08ab			INIT_08a8:
08ab e29d       |    |		Load	0x1,0x9d
08ac 00ca       |    |		Action	Exit_Nullary_Function
08ad 0000 0000  |    |		.XXX[0x3]
08af 0000       |    |
08b0 ; --------------------------------------------------------------------------------------
08b0 ; SUBPROGRAM
08b0 ; --------------------------------------------------------------------------------------
08b0 08b3       |    |		.CONST	0x08b3								; Address of begin
08b1 0004       |    |		.CONST	0x0004								; Address of exception handler
08b2 0001       |    |		.CONST	0x0001								; Number of locals
08b3			BODY_08b0:
08b3			INIT_08b0:
08b3 4801       |H   |		Short_Literal	0x1
08b4 00db       |    |		Load_Top	At_Offset_3
08b5 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
08b6 01d7       |    |		Execute	Vector,Field_Read
08b7 0f01       |    |		Execute_Immediate	Equal,0x1
08b8 6805       |h   |		Jump_Zero	0x8be
08b9 00da       |    |		Load_Top	At_Offset_2
08ba 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
08bb 01db       |    |		Execute	Vector,Length
08bc 0f01       |    |		Execute_Immediate	Equal,0x1
08bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08be 4800       |H   |		Short_Literal	0x0
08bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c3       |    |		.CONST	0x08c3								; Address of begin
08c1 0004       |    |		.CONST	0x0004								; Address of exception handler
08c2 0001       |    |		.CONST	0x0001								; Number of locals
08c3			BODY_08c0:
08c3			INIT_08c0:
08c3 4801       |H   |		Short_Literal	0x1
08c4 00db       |    |		Load_Top	At_Offset_3
08c5 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08c6 01d7       |    |		Execute	Vector,Field_Read
08c7 0274       | t  |		Execute	Discrete,Absolute_Value
08c8 0f01       |    |		Execute_Immediate	Equal,0x1
08c9 6805       |h   |		Jump_Zero	0x8cf
08ca 00da       |    |		Load_Top	At_Offset_2
08cb 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08cc 01db       |    |		Execute	Vector,Length
08cd 0f01       |    |		Execute_Immediate	Equal,0x1
08ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08cf 4800       |H   |		Short_Literal	0x0
08d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08d1 0000 0000  |    |		.BLANK	0000[0x7]
08d8 ; --------------------------------------------------------------------------------------
08d8 ; SUBPROGRAM
08d8 ; --------------------------------------------------------------------------------------
08d8 08db       |    |		.CONST	0x08db								; Address of begin
08d9 0004       |    |		.CONST	0x0004								; Address of exception handler
08da 0001       |    |		.CONST	0x0001								; Number of locals
08db			BODY_08d8:
08db			INIT_08d8:
08db e296       |    |		Load	0x1,0x96
08dc 00db       |    |		Load_Top	At_Offset_3
08dd 8265       | e  |		Call	0x1,0x65
08de 82b5       |    |		Call	0x1,0xb5
08df 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3       |    |		.CONST	0x08e3								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0001       |    |		.CONST	0x0001								; Number of locals
08e3			BODY_08e0:
08e3			INIT_08e0:
08e3 00da       |    |		Load_Top	At_Offset_2
08e4 8262       | b  |		Call	0x1,0x62
08e5 6805       |h   |		Jump_Zero	0x8eb
08e6 00da       |    |		Load_Top	At_Offset_2
08e7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08e8 0335       | 5  |		Declare_Variable	Array,Duplicate
08e9 00cd       |    |		Action	Spare6_Action
08ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08eb 00da       |    |		Load_Top	At_Offset_2
08ec 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
08ed 00db       |    |		Load_Top	At_Offset_3
08ee 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08ef 8227       | '  |		Call	0x1,0x27
08f0 8221       | !  |		Call	0x1,0x21
08f1 6802       |h   |		Jump_Zero	0x8f4
08f2 e295       |    |		Load	0x1,0x95
08f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08f4 00da       |    |		Load_Top	At_Offset_2
08f5 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
08f6 00db       |    |		Load_Top	At_Offset_3
08f7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08f8 822b       | +  |		Call	0x1,0x2b
08f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08fa 0000 0000  |    |		.BLANK	0000[0x6]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0903       |    |		.CONST	0x0903								; Address of begin
0901 0004       |    |		.CONST	0x0004								; Address of exception handler
0902 0001       |    |		.CONST	0x0001								; Number of locals
0903			BODY_0900:
0903			INIT_0900:
0903 00da       |    |		Load_Top	At_Offset_2
0904 8262       | b  |		Call	0x1,0x62
0905 6802       |h   |		Jump_Zero	0x908
0906 e299       |    |		Load	0x1,0x99
0907 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0908 00da       |    |		Load_Top	At_Offset_2
0909 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
090a 00db       |    |		Load_Top	At_Offset_3
090b 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
090c e5ff       |    |		Load	0x2,-0x1
090d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
090e 822d       | -  |		Call	0x1,0x2d
090f 829f       |    |		Call	0x1,0x9f
0910 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0911 0000 0000  |    |		.BLANK	0000[0x7]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091b       |    |		.CONST	0x091b								; Address of begin
0919 0004       |    |		.CONST	0x0004								; Address of exception handler
091a 0001       |    |		.CONST	0x0001								; Number of locals
091b			BODY_0918:
091b			INIT_0918:
091b 00da       |    |		Load_Top	At_Offset_2
091c 00e0       |    |		Load_Encached	Standard_Cache
091d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
091e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
091f 0000       |    |		.XXX[0x1]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0923       | #  |		.CONST	0x0923								; Address of begin
0921 0004       |    |		.CONST	0x0004								; Address of exception handler
0922 0001       |    |		.CONST	0x0001								; Number of locals
0923			BODY_0920:
0923			INIT_0920:
0923 4607       |F   |		Jump_Case	0x8
0924 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0925 7806       |x   |		Jump	0x92c								; case 0x1
0926 7809       |x   |		Jump	0x930								; case 0x2
0927 780d       |x   |		Jump	0x935								; case 0x3
0928 7810       |x   |		Jump	0x939								; case 0x4
0929 7811       |x   |		Jump	0x93b								; case 0x5
092a 7812       |x   |		Jump	0x93d								; case 0x6
092b 7815       |x   |		Jump	0x941								; case 0x7
092c 00da       |    |		Load_Top	At_Offset_2
092d 0091 144d  |   M|		Action	Push_String_Extended_Indexed,0x144d				; "QUOTIENT"
092f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0930 00db       |    |		Load_Top	At_Offset_3
0931 00db       |    |		Load_Top	At_Offset_3
0932 00e0       |    |		Load_Encached	Standard_Cache
0933 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0934 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0935 00da       |    |		Load_Top	At_Offset_2
0936 00e0       |    |		Load_Encached	Standard_Cache
0937 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0938 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0939 00db       |    |		Load_Top	At_Offset_3
093a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
093b 00db       |    |		Load_Top	At_Offset_3
093c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
093d e293       |    |		Load	0x1,0x93
093e 00dc       |    |		Load_Top	At_Offset_4
093f 0267       | g  |		Execute	Discrete,Predecessor
0940 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0941 e293       |    |		Load	0x1,0x93
0942 00dc       |    |		Load_Top	At_Offset_4
0943 0268       | h  |		Execute	Discrete,Successor
0944 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0945 0000 0000  |    |		.XXX[0x3]
0947 0000       |    |
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 094b       | K  |		.CONST	0x094b								; Address of begin
0949 0004       |    |		.CONST	0x0004								; Address of exception handler
094a 0001       |    |		.CONST	0x0001								; Number of locals
094b			BODY_0948:
094b			INIT_0948:
094b 00da       |    |		Load_Top	At_Offset_2
094c e267       | g  |		Load	0x1,0x67
094d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
094e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
094f 0000       |    |		.XXX[0x1]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 095a       | Z  |		.CONST	0x095a								; Address of begin
0951 0004       |    |		.CONST	0x0004								; Address of exception handler
0952 0002       |    |		.CONST	0x0002								; Number of locals
0953			INIT_0950:
0953 00db       |    |		Load_Top	At_Offset_3
0954 01dc       |    |		Execute	Vector,Last
0955 00db       |    |		Load_Top	At_Offset_3
0956 01db       |    |		Execute	Vector,Length
0957 0272       | r  |		Execute	Discrete,Minus
0958 00e2       |    |		Load_Encached	Integer_Cache
0959 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
095a			BODY_0950:
095a e5fe       |    |		Load	0x2,-0x2
095b 01db       |    |		Execute	Vector,Length
095c 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
095d 681f       |h   |		Jump_Zero	0x97d
095e 00db       |    |		Load_Top	At_Offset_3
095f 00d9       |    |		Load_Top	At_Offset_1
0960 0a01       |    |		Execute_Immediate	Plus,0x1
0961 00d8       |    |		Load_Top	At_Offset_0
0962 00e2       |    |		Load_Encached	Integer_Cache
0963 0260       | `  |		Execute	Discrete,In_Type
0964 7001       |p   |		Jump_Nonzero	0x966
0965 0801       |    |		Execute_Immediate	Raise,0x1
0966 e5fe       |    |		Load	0x2,-0x2
0967 01dc       |    |		Execute	Vector,Last
0968 e5fe       |    |		Load	0x2,-0x2
0969 01ce       |    |		Execute	Vector,Slice_Write
096a e5fe       |    |		Load	0x2,-0x2
096b 01dd       |    |		Execute	Vector,First
096c 00d9       |    |		Load_Top	At_Offset_1
096d e220       |    |		Load	0x1,0x20
096e 0334       | 4  |		Declare_Variable	Array,With_Constraint
096f 00d8       |    |		Load_Top	At_Offset_0
0970 01d9       |    |		Execute	Vector,Reverse_Bounds
0971 0263       | c  |		Execute	Discrete,Above_Bound
0972 7005       |p   |		Jump_Nonzero	0x978
0973 4800       |H   |		Short_Literal	0x0
0974 00d9       |    |		Load_Top	At_Offset_1
0975 e403       |    |		Load	0x2,0x3
0976 01d6       |    |		Execute	Vector,Field_Write
0977 3ffb       |?   |		Loop_Increasing	0x973
0978 e5fe       |    |		Load	0x2,-0x2
0979 01dd       |    |		Execute	Vector,First
097a 00da       |    |		Load_Top	At_Offset_2
097b e5fe       |    |		Load	0x2,-0x2
097c 01ce       |    |		Execute	Vector,Slice_Write
097d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
097e 0000 0000  |    |		.XXX[0x2]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0983       |    |		.CONST	0x0983								; Address of begin
0981 0004       |    |		.CONST	0x0004								; Address of exception handler
0982 0001       |    |		.CONST	0x0001								; Number of locals
0983			BODY_0980:
0983			INIT_0980:
0983 00db       |    |		Load_Top	At_Offset_3
0984 01db       |    |		Execute	Vector,Length
0985 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0986 6828       |h(  |		Jump_Zero	0x9af
0987 00da       |    |		Load_Top	At_Offset_2
0988 e5fe       |    |		Load	0x2,-0x2
0989 01dc       |    |		Execute	Vector,Last
098a e5fe       |    |		Load	0x2,-0x2
098b 01d6       |    |		Execute	Vector,Field_Write
098c 00db       |    |		Load_Top	At_Offset_3
098d e5fe       |    |		Load	0x2,-0x2
098e 01dd       |    |		Execute	Vector,First
098f e5fe       |    |		Load	0x2,-0x2
0990 01dc       |    |		Execute	Vector,Last
0991 0aff       |    |		Execute_Immediate	Plus,-0x1
0992 00d8       |    |		Load_Top	At_Offset_0
0993 00e2       |    |		Load_Encached	Integer_Cache
0994 0260       | `  |		Execute	Discrete,In_Type
0995 7001       |p   |		Jump_Nonzero	0x997
0996 0801       |    |		Execute_Immediate	Raise,0x1
0997 00d9       |    |		Load_Top	At_Offset_1
0998 00d9       |    |		Load_Top	At_Offset_1
0999 e402       |    |		Load	0x2,0x2
099a 035b       | [  |		Declare_Type	Array,Constrained
099b 00db       |    |		Load_Top	At_Offset_3
099c 01cd       |    |		Execute	Vector,Slice_Reference
099d 00d8       |    |		Load_Top	At_Offset_0
099e 0335       | 5  |		Declare_Variable	Array,Duplicate
099f 00cd       |    |		Action	Spare6_Action
09a0 00d9       |    |		Load_Top	At_Offset_1
09a1 01d9       |    |		Execute	Vector,Reverse_Bounds
09a2 0263       | c  |		Execute	Discrete,Above_Bound
09a3 7005       |p   |		Jump_Nonzero	0x9a9
09a4 4800       |H   |		Short_Literal	0x0
09a5 00d9       |    |		Load_Top	At_Offset_1
09a6 e406       |    |		Load	0x2,0x6
09a7 01d6       |    |		Execute	Vector,Field_Write
09a8 3ffb       |?   |		Loop_Increasing	0x9a4
09a9 00cd       |    |		Action	Spare6_Action
09aa 00da       |    |		Load_Top	At_Offset_2
09ab 00da       |    |		Load_Top	At_Offset_2
09ac e402       |    |		Load	0x2,0x2
09ad 01ce       |    |		Execute	Vector,Slice_Write
09ae 00d3       |    |		Pop_Control	Pop_Count_3
09af 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09b0 ; --------------------------------------------------------------------------------------
09b0 ; SUBPROGRAM
09b0 ; --------------------------------------------------------------------------------------
09b0 09b3       |    |		.CONST	0x09b3								; Address of begin
09b1 0004       |    |		.CONST	0x0004								; Address of exception handler
09b2 0001       |    |		.CONST	0x0001								; Number of locals
09b3			BODY_09b0:
09b3			INIT_09b0:
09b3 4801       |H   |		Short_Literal	0x1
09b4 e5fe       |    |		Load	0x2,-0x2
09b5 01d7       |    |		Execute	Vector,Field_Read
09b6 702a       |p*  |		Jump_Nonzero	0x9e1
09b7 4801       |H   |		Short_Literal	0x1
09b8 a5fd       |    |		Store_Unchecked	0x2,-0x3
09b9 00cf       |    |		Action	Mark_Auxiliary
09ba e5fe       |    |		Load	0x2,-0x2
09bb 01dc       |    |		Execute	Vector,Last
09bc 4802       |H   |		Short_Literal	0x2
09bd 0263       | c  |		Execute	Discrete,Above_Bound
09be 7020       |p   |		Jump_Nonzero	0x9df
09bf 00d8       |    |		Load_Top	At_Offset_0
09c0 e5fe       |    |		Load	0x2,-0x2
09c1 01d7       |    |		Execute	Vector,Field_Read
09c2 681a       |h   |		Jump_Zero	0x9dd
09c3 00d8       |    |		Load_Top	At_Offset_0
09c4 e5fe       |    |		Load	0x2,-0x2
09c5 01dc       |    |		Execute	Vector,Last
09c6 e5fe       |    |		Load	0x2,-0x2
09c7 01cf       |    |		Execute	Vector,Slice_Read
09c8 4801       |H   |		Short_Literal	0x1
09c9 e5fe       |    |		Load	0x2,-0x2
09ca 01dc       |    |		Execute	Vector,Last
09cb 00db       |    |		Load_Top	At_Offset_3
09cc 0272       | r  |		Execute	Discrete,Minus
09cd 0a01       |    |		Execute_Immediate	Plus,0x1
09ce 00d8       |    |		Load_Top	At_Offset_0
09cf 00e2       |    |		Load_Encached	Integer_Cache
09d0 0260       | `  |		Execute	Discrete,In_Type
09d1 7001       |p   |		Jump_Nonzero	0x9d3
09d2 0801       |    |		Execute_Immediate	Raise,0x1
09d3 e5fe       |    |		Load	0x2,-0x2
09d4 01ce       |    |		Execute	Vector,Slice_Write
09d5 e5fe       |    |		Load	0x2,-0x2
09d6 01dc       |    |		Execute	Vector,Last
09d7 00d9       |    |		Load_Top	At_Offset_1
09d8 0272       | r  |		Execute	Discrete,Minus
09d9 0a01       |    |		Execute_Immediate	Plus,0x1
09da c5fd       |    |		Store	0x2,-0x3
09db 00d2       |    |		Pop_Control	Pop_Count_2
09dc 7802       |x   |		Jump	0x9df
09dd 00c8       |    |		Action	Pop_Auxiliary_Range
09de 3fe0       |?   |		Loop_Increasing	0x9bf
09df 00ce       |    |		Action	Pop_Auxiliary
09e0 7803       |x   |		Jump	0x9e4
09e1 00db       |    |		Load_Top	At_Offset_3
09e2 01dc       |    |		Execute	Vector,Last
09e3 a5fd       |    |		Store_Unchecked	0x2,-0x3
09e4 00da       |    |		Load_Top	At_Offset_2
09e5 6807       |h   |		Jump_Zero	0x9ed
09e6 4801       |H   |		Short_Literal	0x1
09e7 e5fe       |    |		Load	0x2,-0x2
09e8 01d7       |    |		Execute	Vector,Field_Read
09e9 0275       | u  |		Execute	Discrete,Unary_Minus
09ea 4801       |H   |		Short_Literal	0x1
09eb e5fe       |    |		Load	0x2,-0x2
09ec 01d6       |    |		Execute	Vector,Field_Write
09ed 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09ee 0000 0000  |    |		.XXX[0x2]
09f0 ; --------------------------------------------------------------------------------------
09f0 ; SUBPROGRAM
09f0 ; --------------------------------------------------------------------------------------
09f0 09f5       |    |		.CONST	0x09f5								; Address of begin
09f1 0004       |    |		.CONST	0x0004								; Address of exception handler
09f2 0002       |    |		.CONST	0x0002								; Number of locals
09f3			INIT_09f0:
09f3 029f 0f7b  |   {|		Declare_Subprogram	INIT_0f78,For_Call
09f5			BODY_09f0:
09f5 00cf       |    |		Action	Mark_Auxiliary
09f6 e5ff       |    |		Load	0x2,-0x1
09f7 01d9       |    |		Execute	Vector,Reverse_Bounds
09f8 0263       | c  |		Execute	Discrete,Above_Bound
09f9 700e       |p   |		Jump_Nonzero	0xa08
09fa 00d8       |    |		Load_Top	At_Offset_0
09fb e5ff       |    |		Load	0x2,-0x1
09fc 01d7       |    |		Execute	Vector,Field_Read
09fd 6808       |h   |		Jump_Zero	0xa06
09fe 00d8       |    |		Load_Top	At_Offset_0
09ff 0f01       |    |		Execute_Immediate	Equal,0x1
0a00 6804       |h   |		Jump_Zero	0xa05
0a01 e5fe       |    |		Load	0x2,-0x2
0a02 7002       |p   |		Jump_Nonzero	0xa05
0a03 e5ff       |    |		Load	0x2,-0x1
0a04 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a05 8402       |    |		Call	0x2,0x2
0a06 00c8       |    |		Action	Pop_Auxiliary_Range
0a07 3ff2       |?   |		Loop_Increasing	0x9fa
0a08 00ce       |    |		Action	Pop_Auxiliary
0a09 e295       |    |		Load	0x1,0x95
0a0a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a0b 0000 0000  |    |		.BLANK	0000[0x5]
0a10 ; --------------------------------------------------------------------------------------
0a10 ; SUBPROGRAM
0a10 ; --------------------------------------------------------------------------------------
0a10 0a13       |    |		.CONST	0x0a13								; Address of begin
0a11 0004       |    |		.CONST	0x0004								; Address of exception handler
0a12 0001       |    |		.CONST	0x0001								; Number of locals
0a13			BODY_0a10:
0a13			INIT_0a10:
0a13 00da       |    |		Load_Top	At_Offset_2
0a14 01db       |    |		Execute	Vector,Length
0a15 e5fe       |    |		Load	0x2,-0x2
0a16 01db       |    |		Execute	Vector,Length
0a17 e233       | 3  |		Load	0x1,0x33
0a18 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a19 00db       |    |		Load_Top	At_Offset_3
0a1a 00d9       |    |		Load_Top	At_Offset_1
0a1b 00d8       |    |		Load_Top	At_Offset_0
0a1c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a1d 00da       |    |		Load_Top	At_Offset_2
0a1e 01da       |    |		Execute	Vector,Bounds
0a1f 00da       |    |		Load_Top	At_Offset_2
0a20 01da       |    |		Execute	Vector,Bounds
0a21 00da       |    |		Load_Top	At_Offset_2
0a22 027f       |    |		Execute	Discrete,Equal
0a23 7001       |p   |		Jump_Nonzero	0xa25
0a24 08e0       |    |		Execute_Immediate	Raise,0xe0
0a25 00cd       |    |		Action	Spare6_Action
0a26 027f       |    |		Execute	Discrete,Equal
0a27 7001       |p   |		Jump_Nonzero	0xa29
0a28 08e0       |    |		Execute_Immediate	Raise,0xe0
0a29 00d2       |    |		Pop_Control	Pop_Count_2
0a2a 00d9       |    |		Load_Top	At_Offset_1
0a2b 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0a2c e5fe       |    |		Load	0x2,-0x2
0a2d 00d9       |    |		Load_Top	At_Offset_1
0a2e 00d8       |    |		Load_Top	At_Offset_0
0a2f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0a30 00da       |    |		Load_Top	At_Offset_2
0a31 01da       |    |		Execute	Vector,Bounds
0a32 00da       |    |		Load_Top	At_Offset_2
0a33 01da       |    |		Execute	Vector,Bounds
0a34 00da       |    |		Load_Top	At_Offset_2
0a35 027f       |    |		Execute	Discrete,Equal
0a36 7001       |p   |		Jump_Nonzero	0xa38
0a37 08e0       |    |		Execute_Immediate	Raise,0xe0
0a38 00cd       |    |		Action	Spare6_Action
0a39 027f       |    |		Execute	Discrete,Equal
0a3a 7001       |p   |		Jump_Nonzero	0xa3c
0a3b 08e0       |    |		Execute_Immediate	Raise,0xe0
0a3c 00d2       |    |		Pop_Control	Pop_Count_2
0a3d 00d9       |    |		Load_Top	At_Offset_1
0a3e 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0a3f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a54       | T  |		.CONST	0x0a54								; Address of begin
0a41 0004       |    |		.CONST	0x0004								; Address of exception handler
0a42 0004       |    |		.CONST	0x0004								; Number of locals
0a43			INIT_0a40:
0a43 4801       |H   |		Short_Literal	0x1
0a44 00db       |    |		Load_Top	At_Offset_3
0a45 01db       |    |		Execute	Vector,Length
0a46 00d8       |    |		Load_Top	At_Offset_0
0a47 00e2       |    |		Load_Encached	Integer_Cache
0a48 0260       | `  |		Execute	Discrete,In_Type
0a49 7001       |p   |		Jump_Nonzero	0xa4b
0a4a 0801       |    |		Execute_Immediate	Raise,0x1
0a4b e220       |    |		Load	0x1,0x20
0a4c 035b       | [  |		Declare_Type	Array,Constrained
0a4d 0337       | 7  |		Declare_Variable	Array
0a4e 00db       |    |		Load_Top	At_Offset_3
0a4f 00d9       |    |		Load_Top	At_Offset_1
0a50 01d4       |    |		Execute	Vector,Structure_Write
0a51 e21f       |    |		Load	0x1,0x1f
0a52 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a53 00e5       |    |		Load_Encached	Long_Integer_Cache
0a54			BODY_0a40:
0a54 4801       |H   |		Short_Literal	0x1
0a55 00db       |    |		Load_Top	At_Offset_3
0a56 01d7       |    |		Execute	Vector,Field_Read
0a57 0274       | t  |		Execute	Discrete,Absolute_Value
0a58 4801       |H   |		Short_Literal	0x1
0a59 e402       |    |		Load	0x2,0x2
0a5a 01d6       |    |		Execute	Vector,Field_Write
0a5b 00da       |    |		Load_Top	At_Offset_2
0a5c 01db       |    |		Execute	Vector,Length
0a5d 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0a5e 6807       |h   |		Jump_Zero	0xa66
0a5f 4802       |H   |		Short_Literal	0x2
0a60 00db       |    |		Load_Top	At_Offset_3
0a61 01d7       |    |		Execute	Vector,Field_Read
0a62 0274       | t  |		Execute	Discrete,Absolute_Value
0a63 4802       |H   |		Short_Literal	0x2
0a64 e402       |    |		Load	0x2,0x2
0a65 01d6       |    |		Execute	Vector,Field_Write
0a66 e5fe       |    |		Load	0x2,-0x2
0a67 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0a68 6819       |h   |		Jump_Zero	0xa82
0a69 00cf       |    |		Action	Mark_Auxiliary
0a6a 00db       |    |		Load_Top	At_Offset_3
0a6b 01da       |    |		Execute	Vector,Bounds
0a6c 0264       | d  |		Execute	Discrete,Below_Bound
0a6d 7013       |p   |		Jump_Nonzero	0xa81
0a6e 00d8       |    |		Load_Top	At_Offset_0
0a6f e402       |    |		Load	0x2,0x2
0a70 01d7       |    |		Execute	Vector,Field_Read
0a71 e5fe       |    |		Load	0x2,-0x2
0a72 0271       | q  |		Execute	Discrete,Times
0a73 e403       |    |		Load	0x2,0x3
0a74 0273       | s  |		Execute	Discrete,Plus
0a75 a404       |    |		Store_Unchecked	0x2,0x4
0a76 00db       |    |		Load_Top	At_Offset_3
0a77 6010       |`   |		Indirect_Literal	Discrete,0xa88,{0x00000000, 0x80000000}
0a78 026f       | o  |		Execute	Discrete,Remainder
0a79 00d9       |    |		Load_Top	At_Offset_1
0a7a e402       |    |		Load	0x2,0x2
0a7b 01d6       |    |		Execute	Vector,Field_Write
0a7c 00db       |    |		Load_Top	At_Offset_3
0a7d 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
0a7e c403       |    |		Store	0x2,0x3
0a7f 00c8       |    |		Action	Pop_Auxiliary_Range
0a80 37ed       |7   |		Loop_Decreasing	0xa6e
0a81 00ce       |    |		Action	Pop_Auxiliary
0a82 00da       |    |		Load_Top	At_Offset_2
0a83 e220       |    |		Load	0x1,0x20
0a84 01c6       |    |		Execute	Vector,Convert_To_Formal
0a85 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a86 0000 0000  |    |		.XXX[0x2]
0a88 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0a8c 0000 0000  |    |		.BLANK	0000[0x4]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a9a       |    |		.CONST	0x0a9a								; Address of begin
0a91 0004       |    |		.CONST	0x0004								; Address of exception handler
0a92 0004       |    |		.CONST	0x0004								; Number of locals
0a93			INIT_0a90:
0a93 e21f       |    |		Load	0x1,0x1f
0a94 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a95 e5fe       |    |		Load	0x2,-0x2
0a96 0274       | t  |		Execute	Discrete,Absolute_Value
0a97 e21f       |    |		Load	0x1,0x1f
0a98 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0a99 00e5       |    |		Load_Encached	Long_Integer_Cache
0a9a			BODY_0a90:
0a9a 4801       |H   |		Short_Literal	0x1
0a9b e5ff       |    |		Load	0x2,-0x1
0a9c 01d7       |    |		Execute	Vector,Field_Read
0a9d 0274       | t  |		Execute	Discrete,Absolute_Value
0a9e 4801       |H   |		Short_Literal	0x1
0a9f e5ff       |    |		Load	0x2,-0x1
0aa0 01d6       |    |		Execute	Vector,Field_Write
0aa1 00d9       |    |		Load_Top	At_Offset_1
0aa2 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0aa3 6819       |h   |		Jump_Zero	0xabd
0aa4 00cf       |    |		Action	Mark_Auxiliary
0aa5 e5ff       |    |		Load	0x2,-0x1
0aa6 01d9       |    |		Execute	Vector,Reverse_Bounds
0aa7 0263       | c  |		Execute	Discrete,Above_Bound
0aa8 7013       |p   |		Jump_Nonzero	0xabc
0aa9 e402       |    |		Load	0x2,0x2
0aaa 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
0aab 00d9       |    |		Load_Top	At_Offset_1
0aac e5ff       |    |		Load	0x2,-0x1
0aad 01d7       |    |		Execute	Vector,Field_Read
0aae 0273       | s  |		Execute	Discrete,Plus
0aaf a404       |    |		Store_Unchecked	0x2,0x4
0ab0 00db       |    |		Load_Top	At_Offset_3
0ab1 e403       |    |		Load	0x2,0x3
0ab2 0270       | p  |		Execute	Discrete,Divide
0ab3 00d9       |    |		Load_Top	At_Offset_1
0ab4 e5ff       |    |		Load	0x2,-0x1
0ab5 01d6       |    |		Execute	Vector,Field_Write
0ab6 00db       |    |		Load_Top	At_Offset_3
0ab7 e403       |    |		Load	0x2,0x3
0ab8 026f       | o  |		Execute	Discrete,Remainder
0ab9 c402       |    |		Store	0x2,0x2
0aba 00c8       |    |		Action	Pop_Auxiliary_Range
0abb 3fed       |?   |		Loop_Increasing	0xaa9
0abc 00ce       |    |		Action	Pop_Auxiliary
0abd 00da       |    |		Load_Top	At_Offset_2
0abe a5fe       |    |		Store_Unchecked	0x2,-0x2
0abf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ac0 ; --------------------------------------------------------------------------------------
0ac0 ; SUBPROGRAM
0ac0 ; --------------------------------------------------------------------------------------
0ac0 0add       |    |		.CONST	0x0add								; Address of begin
0ac1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ac2 0007       |    |		.CONST	0x0007								; Number of locals
0ac3			INIT_0ac0:
0ac3 00da       |    |		Load_Top	At_Offset_2
0ac4 01db       |    |		Execute	Vector,Length
0ac5 00e2       |    |		Load_Encached	Integer_Cache
0ac6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0ac7 e5fe       |    |		Load	0x2,-0x2
0ac8 01db       |    |		Execute	Vector,Length
0ac9 00e2       |    |		Load_Encached	Integer_Cache
0aca 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0acb 4801       |H   |		Short_Literal	0x1
0acc e5ff       |    |		Load	0x2,-0x1
0acd 01d7       |    |		Execute	Vector,Field_Read
0ace 0d00       |    |		Execute_Immediate	Less,0x0
0acf 00e1       |    |		Load_Encached	Boolean_Cache
0ad0 03f1       |    |		Declare_Variable	Discrete,With_Value
0ad1 00d8       |    |		Load_Top	At_Offset_0
0ad2 4801       |H   |		Short_Literal	0x1
0ad3 e5fe       |    |		Load	0x2,-0x2
0ad4 01d7       |    |		Execute	Vector,Field_Read
0ad5 0d00       |    |		Execute_Immediate	Less,0x0
0ad6 0277       | w  |		Execute	Discrete,Xor
0ad7 00e1       |    |		Load_Encached	Boolean_Cache
0ad8 03f1       |    |		Declare_Variable	Discrete,With_Value
0ad9 029f 0fa3  |    |		Declare_Subprogram	INIT_0fa0,For_Call
0adb 029f 101b  |    |		Declare_Subprogram	INIT_1018,For_Call
0add			BODY_0ac0:
0add e402       |    |		Load	0x2,0x2
0ade 0f01       |    |		Execute_Immediate	Equal,0x1
0adf 68bd       |h   |		Jump_Zero	0xb9d
0ae0 e403       |    |		Load	0x2,0x3
0ae1 0f01       |    |		Execute_Immediate	Equal,0x1
0ae2 68ba       |h   |		Jump_Zero	0xb9d
0ae3 e5fd       |    |		Load	0x2,-0x3
0ae4 4602       |F   |		Jump_Case	0x3
0ae5 7847       |xG  |		Jump	0xb2d								; case 0x0
0ae6 787e       |x~  |		Jump	0xb65								; case 0x1
0ae7 7800       |x   |		Jump	0xae8								; case 0x2
0ae8 4801       |H   |		Short_Literal	0x1
0ae9 4801       |H   |		Short_Literal	0x1
0aea e233       | 3  |		Load	0x1,0x33
0aeb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0aec 4801       |H   |		Short_Literal	0x1
0aed 4801       |H   |		Short_Literal	0x1
0aee e220       |    |		Load	0x1,0x20
0aef 0334       | 4  |		Declare_Variable	Array,With_Constraint
0af0 4801       |H   |		Short_Literal	0x1
0af1 e5ff       |    |		Load	0x2,-0x1
0af2 01d7       |    |		Execute	Vector,Field_Read
0af3 4801       |H   |		Short_Literal	0x1
0af4 e5fe       |    |		Load	0x2,-0x2
0af5 01d7       |    |		Execute	Vector,Field_Read
0af6 0270       | p  |		Execute	Discrete,Divide
0af7 4801       |H   |		Short_Literal	0x1
0af8 00da       |    |		Load_Top	At_Offset_2
0af9 01d6       |    |		Execute	Vector,Field_Write
0afa 00d9       |    |		Load_Top	At_Offset_1
0afb 00d8       |    |		Load_Top	At_Offset_0
0afc 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0afd 00da       |    |		Load_Top	At_Offset_2
0afe 01da       |    |		Execute	Vector,Bounds
0aff 00da       |    |		Load_Top	At_Offset_2
0b00 01da       |    |		Execute	Vector,Bounds
0b01 00da       |    |		Load_Top	At_Offset_2
0b02 027f       |    |		Execute	Discrete,Equal
0b03 7001       |p   |		Jump_Nonzero	0xb05
0b04 08e0       |    |		Execute_Immediate	Raise,0xe0
0b05 00cd       |    |		Action	Spare6_Action
0b06 027f       |    |		Execute	Discrete,Equal
0b07 7001       |p   |		Jump_Nonzero	0xb09
0b08 08e0       |    |		Execute_Immediate	Raise,0xe0
0b09 00d2       |    |		Pop_Control	Pop_Count_2
0b0a 00d9       |    |		Load_Top	At_Offset_1
0b0b 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0b0c 4801       |H   |		Short_Literal	0x1
0b0d 4801       |H   |		Short_Literal	0x1
0b0e e220       |    |		Load	0x1,0x20
0b0f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0b10 4801       |H   |		Short_Literal	0x1
0b11 e5ff       |    |		Load	0x2,-0x1
0b12 01d7       |    |		Execute	Vector,Field_Read
0b13 4801       |H   |		Short_Literal	0x1
0b14 e5fe       |    |		Load	0x2,-0x2
0b15 01d7       |    |		Execute	Vector,Field_Read
0b16 026e       | n  |		Execute	Discrete,Modulo
0b17 4801       |H   |		Short_Literal	0x1
0b18 00da       |    |		Load_Top	At_Offset_2
0b19 01d6       |    |		Execute	Vector,Field_Write
0b1a 00d9       |    |		Load_Top	At_Offset_1
0b1b 00d8       |    |		Load_Top	At_Offset_0
0b1c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0b1d 00da       |    |		Load_Top	At_Offset_2
0b1e 01da       |    |		Execute	Vector,Bounds
0b1f 00da       |    |		Load_Top	At_Offset_2
0b20 01da       |    |		Execute	Vector,Bounds
0b21 00da       |    |		Load_Top	At_Offset_2
0b22 027f       |    |		Execute	Discrete,Equal
0b23 7001       |p   |		Jump_Nonzero	0xb25
0b24 08e0       |    |		Execute_Immediate	Raise,0xe0
0b25 00cd       |    |		Action	Spare6_Action
0b26 027f       |    |		Execute	Discrete,Equal
0b27 7001       |p   |		Jump_Nonzero	0xb29
0b28 08e0       |    |		Execute_Immediate	Raise,0xe0
0b29 00d2       |    |		Pop_Control	Pop_Count_2
0b2a 00d9       |    |		Load_Top	At_Offset_1
0b2b 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0b2c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b2d 4801       |H   |		Short_Literal	0x1
0b2e 4800       |H   |		Short_Literal	0x0
0b2f e233       | 3  |		Load	0x1,0x33
0b30 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0b31 4801       |H   |		Short_Literal	0x1
0b32 4801       |H   |		Short_Literal	0x1
0b33 e220       |    |		Load	0x1,0x20
0b34 0334       | 4  |		Declare_Variable	Array,With_Constraint
0b35 4801       |H   |		Short_Literal	0x1
0b36 e5ff       |    |		Load	0x2,-0x1
0b37 01d7       |    |		Execute	Vector,Field_Read
0b38 4801       |H   |		Short_Literal	0x1
0b39 e5fe       |    |		Load	0x2,-0x2
0b3a 01d7       |    |		Execute	Vector,Field_Read
0b3b 0270       | p  |		Execute	Discrete,Divide
0b3c 4801       |H   |		Short_Literal	0x1
0b3d 00da       |    |		Load_Top	At_Offset_2
0b3e 01d6       |    |		Execute	Vector,Field_Write
0b3f 00d9       |    |		Load_Top	At_Offset_1
0b40 00d8       |    |		Load_Top	At_Offset_0
0b41 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b42 00da       |    |		Load_Top	At_Offset_2
0b43 01da       |    |		Execute	Vector,Bounds
0b44 00da       |    |		Load_Top	At_Offset_2
0b45 01da       |    |		Execute	Vector,Bounds
0b46 00da       |    |		Load_Top	At_Offset_2
0b47 027f       |    |		Execute	Discrete,Equal
0b48 7001       |p   |		Jump_Nonzero	0xb4a
0b49 08e0       |    |		Execute_Immediate	Raise,0xe0
0b4a 00cd       |    |		Action	Spare6_Action
0b4b 027f       |    |		Execute	Discrete,Equal
0b4c 7001       |p   |		Jump_Nonzero	0xb4e
0b4d 08e0       |    |		Execute_Immediate	Raise,0xe0
0b4e 00d2       |    |		Pop_Control	Pop_Count_2
0b4f 00d9       |    |		Load_Top	At_Offset_1
0b50 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0b51 e294       |    |		Load	0x1,0x94
0b52 00d9       |    |		Load_Top	At_Offset_1
0b53 00d8       |    |		Load_Top	At_Offset_0
0b54 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0b55 00da       |    |		Load_Top	At_Offset_2
0b56 01da       |    |		Execute	Vector,Bounds
0b57 00da       |    |		Load_Top	At_Offset_2
0b58 01da       |    |		Execute	Vector,Bounds
0b59 00da       |    |		Load_Top	At_Offset_2
0b5a 027f       |    |		Execute	Discrete,Equal
0b5b 7001       |p   |		Jump_Nonzero	0xb5d
0b5c 08e0       |    |		Execute_Immediate	Raise,0xe0
0b5d 00cd       |    |		Action	Spare6_Action
0b5e 027f       |    |		Execute	Discrete,Equal
0b5f 7001       |p   |		Jump_Nonzero	0xb61
0b60 08e0       |    |		Execute_Immediate	Raise,0xe0
0b61 00d2       |    |		Pop_Control	Pop_Count_2
0b62 00d9       |    |		Load_Top	At_Offset_1
0b63 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0b64 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b65 4800       |H   |		Short_Literal	0x0
0b66 4801       |H   |		Short_Literal	0x1
0b67 e233       | 3  |		Load	0x1,0x33
0b68 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0b69 e294       |    |		Load	0x1,0x94
0b6a 00d9       |    |		Load_Top	At_Offset_1
0b6b 00d8       |    |		Load_Top	At_Offset_0
0b6c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b6d 00da       |    |		Load_Top	At_Offset_2
0b6e 01da       |    |		Execute	Vector,Bounds
0b6f 00da       |    |		Load_Top	At_Offset_2
0b70 01da       |    |		Execute	Vector,Bounds
0b71 00da       |    |		Load_Top	At_Offset_2
0b72 027f       |    |		Execute	Discrete,Equal
0b73 7001       |p   |		Jump_Nonzero	0xb75
0b74 08e0       |    |		Execute_Immediate	Raise,0xe0
0b75 00cd       |    |		Action	Spare6_Action
0b76 027f       |    |		Execute	Discrete,Equal
0b77 7001       |p   |		Jump_Nonzero	0xb79
0b78 08e0       |    |		Execute_Immediate	Raise,0xe0
0b79 00d2       |    |		Pop_Control	Pop_Count_2
0b7a 00d9       |    |		Load_Top	At_Offset_1
0b7b 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0b7c 4801       |H   |		Short_Literal	0x1
0b7d 4801       |H   |		Short_Literal	0x1
0b7e e220       |    |		Load	0x1,0x20
0b7f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0b80 4801       |H   |		Short_Literal	0x1
0b81 e5ff       |    |		Load	0x2,-0x1
0b82 01d7       |    |		Execute	Vector,Field_Read
0b83 4801       |H   |		Short_Literal	0x1
0b84 e5fe       |    |		Load	0x2,-0x2
0b85 01d7       |    |		Execute	Vector,Field_Read
0b86 026f       | o  |		Execute	Discrete,Remainder
0b87 4801       |H   |		Short_Literal	0x1
0b88 00da       |    |		Load_Top	At_Offset_2
0b89 01d6       |    |		Execute	Vector,Field_Write
0b8a 00d9       |    |		Load_Top	At_Offset_1
0b8b 00d8       |    |		Load_Top	At_Offset_0
0b8c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0b8d 00da       |    |		Load_Top	At_Offset_2
0b8e 01da       |    |		Execute	Vector,Bounds
0b8f 00da       |    |		Load_Top	At_Offset_2
0b90 01da       |    |		Execute	Vector,Bounds
0b91 00da       |    |		Load_Top	At_Offset_2
0b92 027f       |    |		Execute	Discrete,Equal
0b93 7001       |p   |		Jump_Nonzero	0xb95
0b94 08e0       |    |		Execute_Immediate	Raise,0xe0
0b95 00cd       |    |		Action	Spare6_Action
0b96 027f       |    |		Execute	Discrete,Equal
0b97 7001       |p   |		Jump_Nonzero	0xb99
0b98 08e0       |    |		Execute_Immediate	Raise,0xe0
0b99 00d2       |    |		Pop_Control	Pop_Count_2
0b9a 00d9       |    |		Load_Top	At_Offset_1
0b9b 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0b9c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b9d e403       |    |		Load	0x2,0x3
0b9e 0f01       |    |		Execute_Immediate	Equal,0x1
0b9f 6801       |h   |		Jump_Zero	0xba1
0ba0 8406       |    |		Call	0x2,0x6
0ba1 8407       |    |		Call	0x2,0x7
0ba2 0831       | 1  |		Execute_Immediate	Raise,0x31
0ba3 0000 0000  |    |		.BLANK	0000[0x5]
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bab       |    |		.CONST	0x0bab								; Address of begin
0ba9 0004       |    |		.CONST	0x0004								; Address of exception handler
0baa 0001       |    |		.CONST	0x0001								; Number of locals
0bab			BODY_0ba8:
0bab			INIT_0ba8:
0bab 00cf       |    |		Action	Mark_Auxiliary
0bac 00db       |    |		Load_Top	At_Offset_3
0bad 01d9       |    |		Execute	Vector,Reverse_Bounds
0bae 0263       | c  |		Execute	Discrete,Above_Bound
0baf 7008       |p   |		Jump_Nonzero	0xbb8
0bb0 00d8       |    |		Load_Top	At_Offset_0
0bb1 e5ff       |    |		Load	0x2,-0x1
0bb2 01d7       |    |		Execute	Vector,Field_Read
0bb3 6802       |h   |		Jump_Zero	0xbb6
0bb4 00d8       |    |		Load_Top	At_Offset_0
0bb5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bb6 00c8       |    |		Action	Pop_Auxiliary_Range
0bb7 3ff8       |?   |		Loop_Increasing	0xbb0
0bb8 00ce       |    |		Action	Pop_Auxiliary
0bb9 00da       |    |		Load_Top	At_Offset_2
0bba 01dc       |    |		Execute	Vector,Last
0bbb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bbc 0000 0000  |    |		.BLANK	0000[0x4]
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; SUBPROGRAM
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0bc6       |    |		.CONST	0x0bc6								; Address of begin
0bc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bc2 0003       |    |		.CONST	0x0003								; Number of locals
0bc3			INIT_0bc0:
0bc3 e21f       |    |		Load	0x1,0x1f
0bc4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0bc5 00e5       |    |		Load_Encached	Long_Integer_Cache
0bc6			BODY_0bc0:
0bc6 00cf       |    |		Action	Mark_Auxiliary
0bc7 e5fe       |    |		Load	0x2,-0x2
0bc8 01da       |    |		Execute	Vector,Bounds
0bc9 0264       | d  |		Execute	Discrete,Below_Bound
0bca 7013       |p   |		Jump_Nonzero	0xbde
0bcb 00d8       |    |		Load_Top	At_Offset_0
0bcc e5fe       |    |		Load	0x2,-0x2
0bcd 01d7       |    |		Execute	Vector,Field_Read
0bce e5ff       |    |		Load	0x2,-0x1
0bcf 0271       | q  |		Execute	Discrete,Times
0bd0 e402       |    |		Load	0x2,0x2
0bd1 0273       | s  |		Execute	Discrete,Plus
0bd2 a403       |    |		Store_Unchecked	0x2,0x3
0bd3 00db       |    |		Load_Top	At_Offset_3
0bd4 600b       |`   |		Indirect_Literal	Discrete,0xbe0,{0x00000000, 0x80000000}
0bd5 026f       | o  |		Execute	Discrete,Remainder
0bd6 00d9       |    |		Load_Top	At_Offset_1
0bd7 e5fe       |    |		Load	0x2,-0x2
0bd8 01d6       |    |		Execute	Vector,Field_Write
0bd9 00db       |    |		Load_Top	At_Offset_3
0bda 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
0bdb c402       |    |		Store	0x2,0x2
0bdc 00c8       |    |		Action	Pop_Auxiliary_Range
0bdd 37ed       |7   |		Loop_Decreasing	0xbcb
0bde 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0bdf 0000       |    |		.XXX[0x1]
0be0 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0be4 0000 0000  |    |		.BLANK	0000[0x4]
0be8 ; --------------------------------------------------------------------------------------
0be8 ; SUBPROGRAM
0be8 ; --------------------------------------------------------------------------------------
0be8 0c01       |    |		.CONST	0x0c01								; Address of begin
0be9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bea 0006       |    |		.CONST	0x0006								; Number of locals
0beb			INIT_0be8:
0beb e21f       |    |		Load	0x1,0x1f
0bec 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0bed e5fe       |    |		Load	0x2,-0x2
0bee 0274       | t  |		Execute	Discrete,Absolute_Value
0bef e21f       |    |		Load	0x1,0x1f
0bf0 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0bf1 00e5       |    |		Load_Encached	Long_Integer_Cache
0bf2 4801       |H   |		Short_Literal	0x1
0bf3 e5ff       |    |		Load	0x2,-0x1
0bf4 01db       |    |		Execute	Vector,Length
0bf5 00d8       |    |		Load_Top	At_Offset_0
0bf6 00e2       |    |		Load_Encached	Integer_Cache
0bf7 0260       | `  |		Execute	Discrete,In_Type
0bf8 7001       |p   |		Jump_Nonzero	0xbfa
0bf9 0801       |    |		Execute_Immediate	Raise,0x1
0bfa e220       |    |		Load	0x1,0x20
0bfb 035b       | [  |		Declare_Type	Array,Constrained
0bfc 0337       | 7  |		Declare_Variable	Array
0bfd e5ff       |    |		Load	0x2,-0x1
0bfe 00d9       |    |		Load_Top	At_Offset_1
0bff 01d4       |    |		Execute	Vector,Structure_Write
0c00 00e2       |    |		Load_Encached	Integer_Cache
0c01			BODY_0be8:
0c01 4801       |H   |		Short_Literal	0x1
0c02 00da       |    |		Load_Top	At_Offset_2
0c03 01d7       |    |		Execute	Vector,Field_Read
0c04 0274       | t  |		Execute	Discrete,Absolute_Value
0c05 4801       |H   |		Short_Literal	0x1
0c06 00db       |    |		Load_Top	At_Offset_3
0c07 01d6       |    |		Execute	Vector,Field_Write
0c08 00cf       |    |		Action	Mark_Auxiliary
0c09 00da       |    |		Load_Top	At_Offset_2
0c0a 01d9       |    |		Execute	Vector,Reverse_Bounds
0c0b 0263       | c  |		Execute	Discrete,Above_Bound
0c0c 7013       |p   |		Jump_Nonzero	0xc20
0c0d e402       |    |		Load	0x2,0x2
0c0e 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
0c0f 00d9       |    |		Load_Top	At_Offset_1
0c10 e405       |    |		Load	0x2,0x5
0c11 01d7       |    |		Execute	Vector,Field_Read
0c12 0273       | s  |		Execute	Discrete,Plus
0c13 a404       |    |		Store_Unchecked	0x2,0x4
0c14 e404       |    |		Load	0x2,0x4
0c15 e403       |    |		Load	0x2,0x3
0c16 0270       | p  |		Execute	Discrete,Divide
0c17 00d9       |    |		Load_Top	At_Offset_1
0c18 e405       |    |		Load	0x2,0x5
0c19 01d6       |    |		Execute	Vector,Field_Write
0c1a e404       |    |		Load	0x2,0x4
0c1b e403       |    |		Load	0x2,0x3
0c1c 026f       | o  |		Execute	Discrete,Remainder
0c1d c402       |    |		Store	0x2,0x2
0c1e 00c8       |    |		Action	Pop_Auxiliary_Range
0c1f 3fed       |?   |		Loop_Increasing	0xc0d
0c20 00ce       |    |		Action	Pop_Auxiliary
0c21 e5ff       |    |		Load	0x2,-0x1
0c22 01dd       |    |		Execute	Vector,First
0c23 e5ff       |    |		Load	0x2,-0x1
0c24 01d7       |    |		Execute	Vector,Field_Read
0c25 0d00       |    |		Execute_Immediate	Less,0x0
0c26 e5fe       |    |		Load	0x2,-0x2
0c27 0d00       |    |		Execute_Immediate	Less,0x0
0c28 0277       | w  |		Execute	Discrete,Xor
0c29 680a       |h   |		Jump_Zero	0xc34
0c2a 00d9       |    |		Load_Top	At_Offset_1
0c2b 82a9       |    |		Call	0x1,0xa9
0c2c 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0c2d 00d8       |    |		Load_Top	At_Offset_0
0c2e 00da       |    |		Load_Top	At_Offset_2
0c2f 01d7       |    |		Execute	Vector,Field_Read
0c30 0275       | u  |		Execute	Discrete,Unary_Minus
0c31 00d9       |    |		Load_Top	At_Offset_1
0c32 00db       |    |		Load_Top	At_Offset_3
0c33 01d6       |    |		Execute	Vector,Field_Write
0c34 e5ff       |    |		Load	0x2,-0x1
0c35 01dd       |    |		Execute	Vector,First
0c36 e5ff       |    |		Load	0x2,-0x1
0c37 01d7       |    |		Execute	Vector,Field_Read
0c38 0d00       |    |		Execute_Immediate	Less,0x0
0c39 6803       |h   |		Jump_Zero	0xc3d
0c3a e402       |    |		Load	0x2,0x2
0c3b 0275       | u  |		Execute	Discrete,Unary_Minus
0c3c c402       |    |		Store	0x2,0x2
0c3d e5fd       |    |		Load	0x2,-0x3
0c3e 00da       |    |		Load_Top	At_Offset_2
0c3f 82a1       |    |		Call	0x1,0xa1
0c40 00d1       |    |		Pop_Control	Pop_Count_1
0c41 e5fc       |    |		Load	0x2,-0x4
0c42 e402       |    |		Load	0x2,0x2
0c43 82a2       |    |		Call	0x1,0xa2
0c44 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c45 0000 0000  |    |		.XXX[0x3]
0c47 0000       |    |
0c48 ; --------------------------------------------------------------------------------------
0c48 ; SUBPROGRAM
0c48 ; --------------------------------------------------------------------------------------
0c48 0c72       | r  |		.CONST	0x0c72								; Address of begin
0c49 0004       |    |		.CONST	0x0004								; Address of exception handler
0c4a 0009       |    |		.CONST	0x0009								; Number of locals
0c4b			INIT_0c48:
0c4b 00da       |    |		Load_Top	At_Offset_2
0c4c 82a9       |    |		Call	0x1,0xa9
0c4d 00e2       |    |		Load_Encached	Integer_Cache
0c4e 03f1       |    |		Declare_Variable	Discrete,With_Value
0c4f e5fe       |    |		Load	0x2,-0x2
0c50 82a9       |    |		Call	0x1,0xa9
0c51 00e2       |    |		Load_Encached	Integer_Cache
0c52 03f1       |    |		Declare_Variable	Discrete,With_Value
0c53 e5ff       |    |		Load	0x2,-0x1
0c54 01dc       |    |		Execute	Vector,Last
0c55 00da       |    |		Load_Top	At_Offset_2
0c56 0272       | r  |		Execute	Discrete,Minus
0c57 0a01       |    |		Execute_Immediate	Plus,0x1
0c58 00e2       |    |		Load_Encached	Integer_Cache
0c59 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0c5a e5fe       |    |		Load	0x2,-0x2
0c5b 01dc       |    |		Execute	Vector,Last
0c5c 00da       |    |		Load_Top	At_Offset_2
0c5d 0272       | r  |		Execute	Discrete,Minus
0c5e 0a01       |    |		Execute_Immediate	Plus,0x1
0c5f 00e2       |    |		Load_Encached	Integer_Cache
0c60 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0c61 00db       |    |		Load_Top	At_Offset_3
0c62 e5ff       |    |		Load	0x2,-0x1
0c63 01d7       |    |		Execute	Vector,Field_Read
0c64 0d00       |    |		Execute_Immediate	Less,0x0
0c65 00e1       |    |		Load_Encached	Boolean_Cache
0c66 03f1       |    |		Declare_Variable	Discrete,With_Value
0c67 00d8       |    |		Load_Top	At_Offset_0
0c68 e403       |    |		Load	0x2,0x3
0c69 e5fe       |    |		Load	0x2,-0x2
0c6a 01d7       |    |		Execute	Vector,Field_Read
0c6b 0d00       |    |		Execute_Immediate	Less,0x0
0c6c 0277       | w  |		Execute	Discrete,Xor
0c6d 00e1       |    |		Load_Encached	Boolean_Cache
0c6e 03f1       |    |		Declare_Variable	Discrete,With_Value
0c6f 00e5       |    |		Load_Encached	Long_Integer_Cache
0c70 029f 1153  |   S|		Declare_Subprogram	INIT_1150,For_Call
0c72			BODY_0c48:
0c72 e404       |    |		Load	0x2,0x4
0c73 0f01       |    |		Execute_Immediate	Equal,0x1
0c74 6827       |h'  |		Jump_Zero	0xc9c
0c75 e405       |    |		Load	0x2,0x5
0c76 0f01       |    |		Execute_Immediate	Equal,0x1
0c77 6824       |h$  |		Jump_Zero	0xc9c
0c78 e5fd       |    |		Load	0x2,-0x3
0c79 e402       |    |		Load	0x2,0x2
0c7a e5ff       |    |		Load	0x2,-0x1
0c7b 01d7       |    |		Execute	Vector,Field_Read
0c7c e403       |    |		Load	0x2,0x3
0c7d e5fe       |    |		Load	0x2,-0x2
0c7e 01d7       |    |		Execute	Vector,Field_Read
0c7f 0270       | p  |		Execute	Discrete,Divide
0c80 00d8       |    |		Load_Top	At_Offset_0
0c81 e21f       |    |		Load	0x1,0x1f
0c82 0260       | `  |		Execute	Discrete,In_Type
0c83 7001       |p   |		Jump_Nonzero	0xc85
0c84 0801       |    |		Execute_Immediate	Raise,0x1
0c85 82a2       |    |		Call	0x1,0xa2
0c86 00d1       |    |		Pop_Control	Pop_Count_1
0c87 e402       |    |		Load	0x2,0x2
0c88 e5ff       |    |		Load	0x2,-0x1
0c89 01d7       |    |		Execute	Vector,Field_Read
0c8a e403       |    |		Load	0x2,0x3
0c8b e5fe       |    |		Load	0x2,-0x2
0c8c 01d7       |    |		Execute	Vector,Field_Read
0c8d 026f       | o  |		Execute	Discrete,Remainder
0c8e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0c8f e5fc       |    |		Load	0x2,-0x4
0c90 00da       |    |		Load_Top	At_Offset_2
0c91 00d8       |    |		Load_Top	At_Offset_0
0c92 e21f       |    |		Load	0x1,0x1f
0c93 0260       | `  |		Execute	Discrete,In_Type
0c94 7001       |p   |		Jump_Nonzero	0xc96
0c95 0801       |    |		Execute_Immediate	Raise,0x1
0c96 82a2       |    |		Call	0x1,0xa2
0c97 00d1       |    |		Pop_Control	Pop_Count_1
0c98 00d9       |    |		Load_Top	At_Offset_1
0c99 0f00       |    |		Execute_Immediate	Equal,0x0
0c9a a5fb       |    |		Store_Unchecked	0x2,-0x5
0c9b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c9c e405       |    |		Load	0x2,0x5
0c9d 0f01       |    |		Execute_Immediate	Equal,0x1
0c9e 6819       |h   |		Jump_Zero	0xcb8
0c9f e5fc       |    |		Load	0x2,-0x4
0ca0 e5fd       |    |		Load	0x2,-0x3
0ca1 e403       |    |		Load	0x2,0x3
0ca2 e5fe       |    |		Load	0x2,-0x2
0ca3 01d7       |    |		Execute	Vector,Field_Read
0ca4 e402       |    |		Load	0x2,0x2
0ca5 e5ff       |    |		Load	0x2,-0x1
0ca6 01dc       |    |		Execute	Vector,Last
0ca7 e5ff       |    |		Load	0x2,-0x1
0ca8 01cf       |    |		Execute	Vector,Slice_Read
0ca9 82ab       |    |		Call	0x1,0xab
0caa 00d2       |    |		Pop_Control	Pop_Count_2
0cab e5fc       |    |		Load	0x2,-0x4
0cac 01db       |    |		Execute	Vector,Length
0cad 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0cae 6806       |h   |		Jump_Zero	0xcb5
0caf e5fc       |    |		Load	0x2,-0x4
0cb0 01dc       |    |		Execute	Vector,Last
0cb1 e5fc       |    |		Load	0x2,-0x4
0cb2 01d7       |    |		Execute	Vector,Field_Read
0cb3 0f00       |    |		Execute_Immediate	Equal,0x0
0cb4 7801       |x   |		Jump	0xcb6
0cb5 4800       |H   |		Short_Literal	0x0
0cb6 a5fb       |    |		Store_Unchecked	0x2,-0x5
0cb7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0cb8 8409       |    |		Call	0x2,0x9
0cb9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0cba 0000 0000  |    |		.BLANK	0000[0x6]
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0cd6       |    |		.CONST	0x0cd6								; Address of begin
0cc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0cc2 0005       |    |		.CONST	0x0005								; Number of locals
0cc3			INIT_0cc0:
0cc3 00da       |    |		Load_Top	At_Offset_2
0cc4 82a9       |    |		Call	0x1,0xa9
0cc5 00e2       |    |		Load_Encached	Integer_Cache
0cc6 03f1       |    |		Declare_Variable	Discrete,With_Value
0cc7 00d8       |    |		Load_Top	At_Offset_0
0cc8 e5ff       |    |		Load	0x2,-0x1
0cc9 01dc       |    |		Execute	Vector,Last
0cca 0a01       |    |		Execute_Immediate	Plus,0x1
0ccb 00d8       |    |		Load_Top	At_Offset_0
0ccc 00e2       |    |		Load_Encached	Integer_Cache
0ccd 0260       | `  |		Execute	Discrete,In_Type
0cce 7001       |p   |		Jump_Nonzero	0xcd0
0ccf 0801       |    |		Execute_Immediate	Raise,0x1
0cd0 e220       |    |		Load	0x1,0x20
0cd1 035b       | [  |		Declare_Type	Array,Constrained
0cd2 0337       | 7  |		Declare_Variable	Array
0cd3 e21f       |    |		Load	0x1,0x1f
0cd4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0cd5 00e5       |    |		Load_Encached	Long_Integer_Cache
0cd6			BODY_0cc0:
0cd6 00cf       |    |		Action	Mark_Auxiliary
0cd7 e402       |    |		Load	0x2,0x2
0cd8 e5ff       |    |		Load	0x2,-0x1
0cd9 01dc       |    |		Execute	Vector,Last
0cda 0264       | d  |		Execute	Discrete,Below_Bound
0cdb 7015       |p   |		Jump_Nonzero	0xcf1
0cdc 00d8       |    |		Load_Top	At_Offset_0
0cdd e5ff       |    |		Load	0x2,-0x1
0cde 01d7       |    |		Execute	Vector,Field_Read
0cdf e5fe       |    |		Load	0x2,-0x2
0ce0 0271       | q  |		Execute	Discrete,Times
0ce1 0274       | t  |		Execute	Discrete,Absolute_Value
0ce2 e404       |    |		Load	0x2,0x4
0ce3 0273       | s  |		Execute	Discrete,Plus
0ce4 a405       |    |		Store_Unchecked	0x2,0x5
0ce5 00db       |    |		Load_Top	At_Offset_3
0ce6 6025       |`%  |		Indirect_Literal	Discrete,0xd0c,{0x00000000, 0x80000000}
0ce7 026f       | o  |		Execute	Discrete,Remainder
0ce8 00d9       |    |		Load_Top	At_Offset_1
0ce9 0a01       |    |		Execute_Immediate	Plus,0x1
0cea e403       |    |		Load	0x2,0x3
0ceb 01d6       |    |		Execute	Vector,Field_Write
0cec 00db       |    |		Load_Top	At_Offset_3
0ced 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
0cee c404       |    |		Store	0x2,0x4
0cef 00c8       |    |		Action	Pop_Auxiliary_Range
0cf0 37eb       |7   |		Loop_Decreasing	0xcdc
0cf1 00ce       |    |		Action	Pop_Auxiliary
0cf2 00d9       |    |		Load_Top	At_Offset_1
0cf3 e402       |    |		Load	0x2,0x2
0cf4 e403       |    |		Load	0x2,0x3
0cf5 01d6       |    |		Execute	Vector,Field_Write
0cf6 00db       |    |		Load_Top	At_Offset_3
0cf7 e5ff       |    |		Load	0x2,-0x1
0cf8 01d7       |    |		Execute	Vector,Field_Read
0cf9 0d00       |    |		Execute_Immediate	Less,0x0
0cfa e5fe       |    |		Load	0x2,-0x2
0cfb 0d00       |    |		Execute_Immediate	Less,0x0
0cfc 0277       | w  |		Execute	Discrete,Xor
0cfd 680a       |h   |		Jump_Zero	0xd08
0cfe 00da       |    |		Load_Top	At_Offset_2
0cff 82a9       |    |		Call	0x1,0xa9
0d00 a402       |    |		Store_Unchecked	0x2,0x2
0d01 00db       |    |		Load_Top	At_Offset_3
0d02 00db       |    |		Load_Top	At_Offset_3
0d03 01d7       |    |		Execute	Vector,Field_Read
0d04 0275       | u  |		Execute	Discrete,Unary_Minus
0d05 e402       |    |		Load	0x2,0x2
0d06 e403       |    |		Load	0x2,0x3
0d07 01d6       |    |		Execute	Vector,Field_Write
0d08 e5fd       |    |		Load	0x2,-0x3
0d09 00db       |    |		Load_Top	At_Offset_3
0d0a 82a1       |    |		Call	0x1,0xa1
0d0b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d0c 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0d10 ; --------------------------------------------------------------------------------------
0d10 ; SUBPROGRAM
0d10 ; --------------------------------------------------------------------------------------
0d10 0d2b       | +  |		.CONST	0x0d2b								; Address of begin
0d11 0004       |    |		.CONST	0x0004								; Address of exception handler
0d12 0006       |    |		.CONST	0x0006								; Number of locals
0d13			INIT_0d10:
0d13 00da       |    |		Load_Top	At_Offset_2
0d14 82a9       |    |		Call	0x1,0xa9
0d15 00e2       |    |		Load_Encached	Integer_Cache
0d16 03f1       |    |		Declare_Variable	Discrete,With_Value
0d17 e5fe       |    |		Load	0x2,-0x2
0d18 82a9       |    |		Call	0x1,0xa9
0d19 00e2       |    |		Load_Encached	Integer_Cache
0d1a 03f1       |    |		Declare_Variable	Discrete,With_Value
0d1b e5ff       |    |		Load	0x2,-0x1
0d1c 01dc       |    |		Execute	Vector,Last
0d1d 00da       |    |		Load_Top	At_Offset_2
0d1e 0272       | r  |		Execute	Discrete,Minus
0d1f 0a01       |    |		Execute_Immediate	Plus,0x1
0d20 00e2       |    |		Load_Encached	Integer_Cache
0d21 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0d22 e5fe       |    |		Load	0x2,-0x2
0d23 01dc       |    |		Execute	Vector,Last
0d24 00da       |    |		Load_Top	At_Offset_2
0d25 0272       | r  |		Execute	Discrete,Minus
0d26 0a01       |    |		Execute_Immediate	Plus,0x1
0d27 00e2       |    |		Load_Encached	Integer_Cache
0d28 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0d29 029f 12cb  |    |		Declare_Subprogram	INIT_12c8,For_Call
0d2b			BODY_0d10:
0d2b 00da       |    |		Load_Top	At_Offset_2
0d2c 0f01       |    |		Execute_Immediate	Equal,0x1
0d2d 682e       |h.  |		Jump_Zero	0xd5c
0d2e e402       |    |		Load	0x2,0x2
0d2f e5ff       |    |		Load	0x2,-0x1
0d30 01d7       |    |		Execute	Vector,Field_Read
0d31 7005       |p   |		Jump_Nonzero	0xd37
0d32 e5fd       |    |		Load	0x2,-0x3
0d33 4800       |H   |		Short_Literal	0x0
0d34 82a2       |    |		Call	0x1,0xa2
0d35 00d1       |    |		Pop_Control	Pop_Count_1
0d36 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d37 e402       |    |		Load	0x2,0x2
0d38 e5ff       |    |		Load	0x2,-0x1
0d39 01d7       |    |		Execute	Vector,Field_Read
0d3a 0f01       |    |		Execute_Immediate	Equal,0x1
0d3b 6805       |h   |		Jump_Zero	0xd41
0d3c e5fd       |    |		Load	0x2,-0x3
0d3d e5fe       |    |		Load	0x2,-0x2
0d3e 82a1       |    |		Call	0x1,0xa1
0d3f 00d1       |    |		Pop_Control	Pop_Count_1
0d40 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d41 00d9       |    |		Load_Top	At_Offset_1
0d42 0f01       |    |		Execute_Immediate	Equal,0x1
0d43 680c       |h   |		Jump_Zero	0xd50
0d44 e5fd       |    |		Load	0x2,-0x3
0d45 e402       |    |		Load	0x2,0x2
0d46 e5ff       |    |		Load	0x2,-0x1
0d47 01d7       |    |		Execute	Vector,Field_Read
0d48 e403       |    |		Load	0x2,0x3
0d49 e5fe       |    |		Load	0x2,-0x2
0d4a 01d7       |    |		Execute	Vector,Field_Read
0d4b 0271       | q  |		Execute	Discrete,Times
0d4c 82a0       |    |		Call	0x1,0xa0
0d4d 82a1       |    |		Call	0x1,0xa1
0d4e 00d1       |    |		Pop_Control	Pop_Count_1
0d4f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d50 e5fd       |    |		Load	0x2,-0x3
0d51 e402       |    |		Load	0x2,0x2
0d52 e5ff       |    |		Load	0x2,-0x1
0d53 01d7       |    |		Execute	Vector,Field_Read
0d54 e403       |    |		Load	0x2,0x3
0d55 e5fe       |    |		Load	0x2,-0x2
0d56 01dc       |    |		Execute	Vector,Last
0d57 e5fe       |    |		Load	0x2,-0x2
0d58 01cf       |    |		Execute	Vector,Slice_Read
0d59 82ad       |    |		Call	0x1,0xad
0d5a 00d1       |    |		Pop_Control	Pop_Count_1
0d5b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d5c 00d9       |    |		Load_Top	At_Offset_1
0d5d 0f01       |    |		Execute_Immediate	Equal,0x1
0d5e 681f       |h   |		Jump_Zero	0xd7e
0d5f 00db       |    |		Load_Top	At_Offset_3
0d60 e5fe       |    |		Load	0x2,-0x2
0d61 01d7       |    |		Execute	Vector,Field_Read
0d62 7005       |p   |		Jump_Nonzero	0xd68
0d63 e5fd       |    |		Load	0x2,-0x3
0d64 4800       |H   |		Short_Literal	0x0
0d65 82a2       |    |		Call	0x1,0xa2
0d66 00d1       |    |		Pop_Control	Pop_Count_1
0d67 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d68 00db       |    |		Load_Top	At_Offset_3
0d69 e5fe       |    |		Load	0x2,-0x2
0d6a 01d7       |    |		Execute	Vector,Field_Read
0d6b 0f01       |    |		Execute_Immediate	Equal,0x1
0d6c 6805       |h   |		Jump_Zero	0xd72
0d6d e5fd       |    |		Load	0x2,-0x3
0d6e e5ff       |    |		Load	0x2,-0x1
0d6f 82a1       |    |		Call	0x1,0xa1
0d70 00d1       |    |		Pop_Control	Pop_Count_1
0d71 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d72 e5fd       |    |		Load	0x2,-0x3
0d73 e403       |    |		Load	0x2,0x3
0d74 e5fe       |    |		Load	0x2,-0x2
0d75 01d7       |    |		Execute	Vector,Field_Read
0d76 e402       |    |		Load	0x2,0x2
0d77 e5ff       |    |		Load	0x2,-0x1
0d78 01dc       |    |		Execute	Vector,Last
0d79 e5ff       |    |		Load	0x2,-0x1
0d7a 01cf       |    |		Execute	Vector,Slice_Read
0d7b 82ad       |    |		Call	0x1,0xad
0d7c 00d1       |    |		Pop_Control	Pop_Count_1
0d7d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d7e 8406       |    |		Call	0x2,0x6
0d7f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d80 ; --------------------------------------------------------------------------------------
0d80 ; SUBPROGRAM
0d80 ; --------------------------------------------------------------------------------------
0d80 0d85       |    |		.CONST	0x0d85								; Address of begin
0d81 0004       |    |		.CONST	0x0004								; Address of exception handler
0d82 0002       |    |		.CONST	0x0002								; Number of locals
0d83			INIT_0d80:
0d83 00e2       |    |		Load_Encached	Integer_Cache
0d84 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0d85			BODY_0d80:
0d85 00cf       |    |		Action	Mark_Auxiliary
0d86 7805       |x   |		Jump	0xd8c
0d87 00d9       |    |		Load_Top	At_Offset_1
0d88 00da       |    |		Load_Top	At_Offset_2
0d89 0273       | s  |		Execute	Discrete,Plus
0d8a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0d8b 00c9       |    |		Action	Pop_Auxiliary_Loop
0d8c 00d9       |    |		Load_Top	At_Offset_1
0d8d e5ff       |    |		Load	0x2,-0x1
0d8e 027c       | |  |		Execute	Discrete,Less
0d8f 77f7       |w   |		Jump_Nonzero	0xd87
0d90 00ce       |    |		Action	Pop_Auxiliary
0d91 00d8       |    |		Load_Top	At_Offset_0
0d92 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d93 0000 0000  |    |		.BLANK	0000[0x5]
0d98 ; --------------------------------------------------------------------------------------
0d98 ; SUBPROGRAM
0d98 ; --------------------------------------------------------------------------------------
0d98 0db6       |    |		.CONST	0x0db6								; Address of begin
0d99 0004       |    |		.CONST	0x0004								; Address of exception handler
0d9a 0002       |    |		.CONST	0x0002								; Number of locals
0d9b			INIT_0d98:
0d9b 4801       |H   |		Short_Literal	0x1
0d9c 00db       |    |		Load_Top	At_Offset_3
0d9d 0a1f       |    |		Execute_Immediate	Plus,0x1f
0d9e 481f       |H   |		Short_Literal	0x1f
0d9f 0270       | p  |		Execute	Discrete,Divide
0da0 00d8       |    |		Load_Top	At_Offset_0
0da1 00e2       |    |		Load_Encached	Integer_Cache
0da2 0260       | `  |		Execute	Discrete,In_Type
0da3 7001       |p   |		Jump_Nonzero	0xda5
0da4 0801       |    |		Execute_Immediate	Raise,0x1
0da5 e220       |    |		Load	0x1,0x20
0da6 035b       | [  |		Declare_Type	Array,Constrained
0da7 0337       | 7  |		Declare_Variable	Array
0da8 00d8       |    |		Load_Top	At_Offset_0
0da9 0335       | 5  |		Declare_Variable	Array,Duplicate
0daa 00cd       |    |		Action	Spare6_Action
0dab 00d9       |    |		Load_Top	At_Offset_1
0dac 01d9       |    |		Execute	Vector,Reverse_Bounds
0dad 0263       | c  |		Execute	Discrete,Above_Bound
0dae 7005       |p   |		Jump_Nonzero	0xdb4
0daf 4800       |H   |		Short_Literal	0x0
0db0 00d9       |    |		Load_Top	At_Offset_1
0db1 e403       |    |		Load	0x2,0x3
0db2 01d6       |    |		Execute	Vector,Field_Write
0db3 3ffb       |?   |		Loop_Increasing	0xdaf
0db4 00d9       |    |		Load_Top	At_Offset_1
0db5 01d4       |    |		Execute	Vector,Structure_Write
0db6			BODY_0d98:
0db6 4802       |H   |		Short_Literal	0x2
0db7 e5ff       |    |		Load	0x2,-0x1
0db8 481f       |H   |		Short_Literal	0x1f
0db9 026e       | n  |		Execute	Discrete,Modulo
0dba 026d       | m  |		Execute	Discrete,Exponentiate
0dbb 4801       |H   |		Short_Literal	0x1
0dbc 00da       |    |		Load_Top	At_Offset_2
0dbd 01d6       |    |		Execute	Vector,Field_Write
0dbe 00d8       |    |		Load_Top	At_Offset_0
0dbf e220       |    |		Load	0x1,0x20
0dc0 01c6       |    |		Execute	Vector,Convert_To_Formal
0dc1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0dc2 0000 0000  |    |		.BLANK	0000[0x6]
0dc8 ; --------------------------------------------------------------------------------------
0dc8 ; SUBPROGRAM
0dc8 ; --------------------------------------------------------------------------------------
0dc8 0dd8       |    |		.CONST	0x0dd8								; Address of begin
0dc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0dca 0004       |    |		.CONST	0x0004								; Number of locals
0dcb			INIT_0dc8:
0dcb 00da       |    |		Load_Top	At_Offset_2
0dcc 82a9       |    |		Call	0x1,0xa9
0dcd 00e2       |    |		Load_Encached	Integer_Cache
0dce 03f1       |    |		Declare_Variable	Discrete,With_Value
0dcf 00db       |    |		Load_Top	At_Offset_3
0dd0 01db       |    |		Execute	Vector,Length
0dd1 00d9       |    |		Load_Top	At_Offset_1
0dd2 0272       | r  |		Execute	Discrete,Minus
0dd3 0a01       |    |		Execute_Immediate	Plus,0x1
0dd4 00e2       |    |		Load_Encached	Integer_Cache
0dd5 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0dd6 029f 1343  |   C|		Declare_Subprogram	INIT_1340,For_Call
0dd8			BODY_0dc8:
0dd8 e5fe       |    |		Load	0x2,-0x2
0dd9 0d00       |    |		Execute_Immediate	Less,0x0
0dda 6801       |h   |		Jump_Zero	0xddc
0ddb 08e0       |    |		Execute_Immediate	Raise,0xe0
0ddc e5fe       |    |		Load	0x2,-0x2
0ddd 7005       |p   |		Jump_Nonzero	0xde3
0dde e5fd       |    |		Load	0x2,-0x3
0ddf 4801       |H   |		Short_Literal	0x1
0de0 82a2       |    |		Call	0x1,0xa2
0de1 00d1       |    |		Pop_Control	Pop_Count_1
0de2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0de3 e5fe       |    |		Load	0x2,-0x2
0de4 6027       |`'  |		Indirect_Literal	Discrete,0xe0c,{0x00000000, 0x000014a0}
0de5 027d       | }  |		Execute	Discrete,Greater
0de6 6801       |h   |		Jump_Zero	0xde8
0de7 08e1       |    |		Execute_Immediate	Raise,0xe1
0de8 00d9       |    |		Load_Top	At_Offset_1
0de9 0f01       |    |		Execute_Immediate	Equal,0x1
0dea 6810       |h   |		Jump_Zero	0xdfb
0deb 00da       |    |		Load_Top	At_Offset_2
0dec e5ff       |    |		Load	0x2,-0x1
0ded 01d7       |    |		Execute	Vector,Field_Read
0dee 0f01       |    |		Execute_Immediate	Equal,0x1
0def 7004       |p   |		Jump_Nonzero	0xdf4
0df0 00da       |    |		Load_Top	At_Offset_2
0df1 e5ff       |    |		Load	0x2,-0x1
0df2 01d7       |    |		Execute	Vector,Field_Read
0df3 7007       |p   |		Jump_Nonzero	0xdfb
0df4 e5fd       |    |		Load	0x2,-0x3
0df5 00db       |    |		Load_Top	At_Offset_3
0df6 e5ff       |    |		Load	0x2,-0x1
0df7 01d7       |    |		Execute	Vector,Field_Read
0df8 82a2       |    |		Call	0x1,0xa2
0df9 00d1       |    |		Pop_Control	Pop_Count_1
0dfa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0dfb 00d9       |    |		Load_Top	At_Offset_1
0dfc 0f01       |    |		Execute_Immediate	Equal,0x1
0dfd 680b       |h   |		Jump_Zero	0xe09
0dfe 00da       |    |		Load_Top	At_Offset_2
0dff e5ff       |    |		Load	0x2,-0x1
0e00 01d7       |    |		Execute	Vector,Field_Read
0e01 0f02       |    |		Execute_Immediate	Equal,0x2
0e02 6806       |h   |		Jump_Zero	0xe09
0e03 e5fd       |    |		Load	0x2,-0x3
0e04 e5fe       |    |		Load	0x2,-0x2
0e05 82b0       |    |		Call	0x1,0xb0
0e06 82a1       |    |		Call	0x1,0xa1
0e07 00d1       |    |		Pop_Control	Pop_Count_1
0e08 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e09 8404       |    |		Call	0x2,0x4
0e0a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e0b 0000       |    |		.XXX[0x1]
0e0c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000014a0}
0e10 ; --------------------------------------------------------------------------------------
0e10 ; SUBPROGRAM
0e10 ; --------------------------------------------------------------------------------------
0e10 0e13       |    |		.CONST	0x0e13								; Address of begin
0e11 0004       |    |		.CONST	0x0004								; Address of exception handler
0e12 0001       |    |		.CONST	0x0001								; Number of locals
0e13			BODY_0e10:
0e13			INIT_0e10:
0e13 00da       |    |		Load_Top	At_Offset_2
0e14 e5fe       |    |		Load	0x2,-0x2
0e15 027d       | }  |		Execute	Discrete,Greater
0e16 6802       |h   |		Jump_Zero	0xe19
0e17 00da       |    |		Load_Top	At_Offset_2
0e18 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e19 00db       |    |		Load_Top	At_Offset_3
0e1a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e1b 0000 0000  |    |		.BLANK	0000[0x5]
0e20 ; --------------------------------------------------------------------------------------
0e20 ; SUBPROGRAM
0e20 ; --------------------------------------------------------------------------------------
0e20 0e2e       | .  |		.CONST	0x0e2e								; Address of begin
0e21 0004       |    |		.CONST	0x0004								; Address of exception handler
0e22 0004       |    |		.CONST	0x0004								; Number of locals
0e23			INIT_0e20:
0e23 e5fd       |    |		Load	0x2,-0x3
0e24 01da       |    |		Execute	Vector,Bounds
0e25 e220       |    |		Load	0x1,0x20
0e26 035b       | [  |		Declare_Type	Array,Constrained
0e27 0337       | 7  |		Declare_Variable	Array
0e28 e5fd       |    |		Load	0x2,-0x3
0e29 01da       |    |		Execute	Vector,Bounds
0e2a e220       |    |		Load	0x1,0x20
0e2b 035b       | [  |		Declare_Type	Array,Constrained
0e2c 0337       | 7  |		Declare_Variable	Array
0e2d 00e1       |    |		Load_Encached	Boolean_Cache
0e2e			BODY_0e20:
0e2e 00d9       |    |		Load_Top	At_Offset_1
0e2f e5ff       |    |		Load	0x2,-0x1
0e30 8227       | '  |		Call	0x1,0x27
0e31 82a1       |    |		Call	0x1,0xa1
0e32 00d1       |    |		Pop_Control	Pop_Count_1
0e33 e5fd       |    |		Load	0x2,-0x3
0e34 e5fe       |    |		Load	0x2,-0x2
0e35 8227       | '  |		Call	0x1,0x27
0e36 82a1       |    |		Call	0x1,0xa1
0e37 00d1       |    |		Pop_Control	Pop_Count_1
0e38 00cf       |    |		Action	Mark_Auxiliary
0e39 00e1       |    |		Load_Encached	Boolean_Cache
0e3a e402       |    |		Load	0x2,0x2
0e3b e294       |    |		Load	0x1,0x94
0e3c e5fd       |    |		Load	0x2,-0x3
0e3d e403       |    |		Load	0x2,0x3
0e3e 82ac       |    |		Call	0x1,0xac
0e3f 00d2       |    |		Pop_Control	Pop_Count_2
0e40 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0e41 00d9       |    |		Load_Top	At_Offset_1
0e42 7008       |p   |		Jump_Nonzero	0xe4b
0e43 e5fd       |    |		Load	0x2,-0x3
0e44 00db       |    |		Load_Top	At_Offset_3
0e45 01d4       |    |		Execute	Vector,Structure_Write
0e46 00db       |    |		Load_Top	At_Offset_3
0e47 e5fd       |    |		Load	0x2,-0x3
0e48 01d4       |    |		Execute	Vector,Structure_Write
0e49 00c9       |    |		Action	Pop_Auxiliary_Loop
0e4a 7fee       |    |		Jump	0xe39
0e4b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e4c 0000 0000  |    |		.BLANK	0000[0x4]
0e50 ; --------------------------------------------------------------------------------------
0e50 ; SUBPROGRAM
0e50 ; --------------------------------------------------------------------------------------
0e50 0e53       | S  |		.CONST	0x0e53								; Address of begin
0e51 0004       |    |		.CONST	0x0004								; Address of exception handler
0e52 0001       |    |		.CONST	0x0001								; Number of locals
0e53			BODY_0e50:
0e53			INIT_0e50:
0e53 00da       |    |		Load_Top	At_Offset_2
0e54 00d8       |    |		Load_Top	At_Offset_0
0e55 600e       |`   |		Indirect_Literal	Discrete,0xe64,{0x80000000, 0x00000000}
0e56 4fff       |O   |		Short_Literal	-0x1
0e57 0262       | b  |		Execute	Discrete,In_Range
0e58 7003       |p   |		Jump_Nonzero	0xe5c
0e59 6805       |h   |		Jump_Zero	0xe5f
0e5a 4801       |H   |		Short_Literal	0x1
0e5b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e5c 00d1       |    |		Pop_Control	Pop_Count_1
0e5d 4fff       |O   |		Short_Literal	-0x1
0e5e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e5f 4800       |H   |		Short_Literal	0x0
0e60 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e61 0000 0000  |    |		.XXX[0x3]
0e63 0000       |    |
0e64 8000 0000  |    |		.LITERAL	{0x80000000, 0x00000000}
0e68 ; --------------------------------------------------------------------------------------
0e68 ; SUBPROGRAM
0e68 ; --------------------------------------------------------------------------------------
0e68 0e6b       | k  |		.CONST	0x0e6b								; Address of begin
0e69 0004       |    |		.CONST	0x0004								; Address of exception handler
0e6a 0001       |    |		.CONST	0x0001								; Number of locals
0e6b			BODY_0e68:
0e6b			INIT_0e68:
0e6b 00da       |    |		Load_Top	At_Offset_2
0e6c 01db       |    |		Execute	Vector,Length
0e6d e5fe       |    |		Load	0x2,-0x2
0e6e 01db       |    |		Execute	Vector,Length
0e6f e23f       | ?  |		Load	0x1,0x3f
0e70 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0e71 00db       |    |		Load_Top	At_Offset_3
0e72 00d9       |    |		Load_Top	At_Offset_1
0e73 00d8       |    |		Load_Top	At_Offset_0
0e74 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0e75 00da       |    |		Load_Top	At_Offset_2
0e76 01da       |    |		Execute	Vector,Bounds
0e77 00da       |    |		Load_Top	At_Offset_2
0e78 01da       |    |		Execute	Vector,Bounds
0e79 00da       |    |		Load_Top	At_Offset_2
0e7a 027f       |    |		Execute	Discrete,Equal
0e7b 7001       |p   |		Jump_Nonzero	0xe7d
0e7c 08e0       |    |		Execute_Immediate	Raise,0xe0
0e7d 00cd       |    |		Action	Spare6_Action
0e7e 027f       |    |		Execute	Discrete,Equal
0e7f 7001       |p   |		Jump_Nonzero	0xe81
0e80 08e0       |    |		Execute_Immediate	Raise,0xe0
0e81 00d2       |    |		Pop_Control	Pop_Count_2
0e82 00d9       |    |		Load_Top	At_Offset_1
0e83 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0e84 e5fe       |    |		Load	0x2,-0x2
0e85 00d9       |    |		Load_Top	At_Offset_1
0e86 00d8       |    |		Load_Top	At_Offset_0
0e87 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0e88 00da       |    |		Load_Top	At_Offset_2
0e89 01da       |    |		Execute	Vector,Bounds
0e8a 00da       |    |		Load_Top	At_Offset_2
0e8b 01da       |    |		Execute	Vector,Bounds
0e8c 00da       |    |		Load_Top	At_Offset_2
0e8d 027f       |    |		Execute	Discrete,Equal
0e8e 7001       |p   |		Jump_Nonzero	0xe90
0e8f 08e0       |    |		Execute_Immediate	Raise,0xe0
0e90 00cd       |    |		Action	Spare6_Action
0e91 027f       |    |		Execute	Discrete,Equal
0e92 7001       |p   |		Jump_Nonzero	0xe94
0e93 08e0       |    |		Execute_Immediate	Raise,0xe0
0e94 00d2       |    |		Pop_Control	Pop_Count_2
0e95 00d9       |    |		Load_Top	At_Offset_1
0e96 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0e97 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e98 ; --------------------------------------------------------------------------------------
0e98 ; SUBPROGRAM
0e98 ; --------------------------------------------------------------------------------------
0e98 0ea5       |    |		.CONST	0x0ea5								; Address of begin
0e99 0004       |    |		.CONST	0x0004								; Address of exception handler
0e9a 0003       |    |		.CONST	0x0003								; Number of locals
0e9b			INIT_0e98:
0e9b 4801       |H   |		Short_Literal	0x1
0e9c e402       |    |		Load	0x2,0x2
0e9d e220       |    |		Load	0x1,0x20
0e9e 035b       | [  |		Declare_Type	Array,Constrained
0e9f 0337       | 7  |		Declare_Variable	Array
0ea0 4801       |H   |		Short_Literal	0x1
0ea1 e402       |    |		Load	0x2,0x2
0ea2 e220       |    |		Load	0x1,0x20
0ea3 035b       | [  |		Declare_Type	Array,Constrained
0ea4 0337       | 7  |		Declare_Variable	Array
0ea5			BODY_0e98:
0ea5 4801       |H   |		Short_Literal	0x1
0ea6 e5ff       |    |		Load	0x2,-0x1
0ea7 01d7       |    |		Execute	Vector,Field_Read
0ea8 0d00       |    |		Execute_Immediate	Less,0x0
0ea9 a407       |    |		Store_Unchecked	0x2,0x7
0eaa 4801       |H   |		Short_Literal	0x1
0eab e5fe       |    |		Load	0x2,-0x2
0eac 01d7       |    |		Execute	Vector,Field_Read
0ead 0d00       |    |		Execute_Immediate	Less,0x0
0eae a408       |    |		Store_Unchecked	0x2,0x8
0eaf 4801       |H   |		Short_Literal	0x1
0eb0 e5ff       |    |		Load	0x2,-0x1
0eb1 01d7       |    |		Execute	Vector,Field_Read
0eb2 0274       | t  |		Execute	Discrete,Absolute_Value
0eb3 4801       |H   |		Short_Literal	0x1
0eb4 e402       |    |		Load	0x2,0x2
0eb5 e405       |    |		Load	0x2,0x5
0eb6 0272       | r  |		Execute	Discrete,Minus
0eb7 e220       |    |		Load	0x1,0x20
0eb8 0334       | 4  |		Declare_Variable	Array,With_Constraint
0eb9 00d8       |    |		Load_Top	At_Offset_0
0eba 01dc       |    |		Execute	Vector,Last
0ebb 4801       |H   |		Short_Literal	0x1
0ebc 0263       | c  |		Execute	Discrete,Above_Bound
0ebd 7005       |p   |		Jump_Nonzero	0xec3
0ebe 4800       |H   |		Short_Literal	0x0
0ebf 00d9       |    |		Load_Top	At_Offset_1
0ec0 e605       |    |		Load	0x3,0x5
0ec1 01d6       |    |		Execute	Vector,Field_Write
0ec2 3ffb       |?   |		Loop_Increasing	0xebe
0ec3 01cb       |    |		Execute	Vector,Append
0ec4 4802       |H   |		Short_Literal	0x2
0ec5 e405       |    |		Load	0x2,0x5
0ec6 e5ff       |    |		Load	0x2,-0x1
0ec7 01cf       |    |		Execute	Vector,Slice_Read
0ec8 01cc       |    |		Execute	Vector,Catenate
0ec9 00da       |    |		Load_Top	At_Offset_2
0eca 01d4       |    |		Execute	Vector,Structure_Write
0ecb 4801       |H   |		Short_Literal	0x1
0ecc e5fe       |    |		Load	0x2,-0x2
0ecd 01d7       |    |		Execute	Vector,Field_Read
0ece 0274       | t  |		Execute	Discrete,Absolute_Value
0ecf 4801       |H   |		Short_Literal	0x1
0ed0 e402       |    |		Load	0x2,0x2
0ed1 e406       |    |		Load	0x2,0x6
0ed2 0272       | r  |		Execute	Discrete,Minus
0ed3 e220       |    |		Load	0x1,0x20
0ed4 0334       | 4  |		Declare_Variable	Array,With_Constraint
0ed5 00d8       |    |		Load_Top	At_Offset_0
0ed6 01dc       |    |		Execute	Vector,Last
0ed7 4801       |H   |		Short_Literal	0x1
0ed8 0263       | c  |		Execute	Discrete,Above_Bound
0ed9 7005       |p   |		Jump_Nonzero	0xedf
0eda 4800       |H   |		Short_Literal	0x0
0edb 00d9       |    |		Load_Top	At_Offset_1
0edc e605       |    |		Load	0x3,0x5
0edd 01d6       |    |		Execute	Vector,Field_Write
0ede 3ffb       |?   |		Loop_Increasing	0xeda
0edf 01cb       |    |		Execute	Vector,Append
0ee0 4802       |H   |		Short_Literal	0x2
0ee1 e406       |    |		Load	0x2,0x6
0ee2 e5fe       |    |		Load	0x2,-0x2
0ee3 01cf       |    |		Execute	Vector,Slice_Read
0ee4 01cc       |    |		Execute	Vector,Catenate
0ee5 00d9       |    |		Load_Top	At_Offset_1
0ee6 01d4       |    |		Execute	Vector,Structure_Write
0ee7 e407       |    |		Load	0x2,0x7
0ee8 e408       |    |		Load	0x2,0x8
0ee9 027f       |    |		Execute	Discrete,Equal
0eea 682c       |h,  |		Jump_Zero	0xf17
0eeb 4800       |H   |		Short_Literal	0x0
0eec a403       |    |		Store_Unchecked	0x2,0x3
0eed 00cf       |    |		Action	Mark_Auxiliary
0eee 4801       |H   |		Short_Literal	0x1
0eef e402       |    |		Load	0x2,0x2
0ef0 0264       | d  |		Execute	Discrete,Below_Bound
0ef1 701d       |p   |		Jump_Nonzero	0xf0f
0ef2 00d8       |    |		Load_Top	At_Offset_0
0ef3 e602       |    |		Load	0x3,0x2
0ef4 01d7       |    |		Execute	Vector,Field_Read
0ef5 00d9       |    |		Load_Top	At_Offset_1
0ef6 e603       |    |		Load	0x3,0x3
0ef7 01d7       |    |		Execute	Vector,Field_Read
0ef8 0273       | s  |		Execute	Discrete,Plus
0ef9 e403       |    |		Load	0x2,0x3
0efa 0273       | s  |		Execute	Discrete,Plus
0efb a404       |    |		Store_Unchecked	0x2,0x4
0efc e404       |    |		Load	0x2,0x4
0efd 6076       |`v  |		Indirect_Literal	Discrete,0xf74,{0x00000000, 0x80000000}
0efe 027b       | {  |		Execute	Discrete,Greater_Equal
0eff 6807       |h   |		Jump_Zero	0xf07
0f00 e404       |    |		Load	0x2,0x4
0f01 606e       |`n  |		Indirect_Literal	Discrete,0xf70,{0xffffffff, 0x80000000}
0f02 0273       | s  |		Execute	Discrete,Plus
0f03 a404       |    |		Store_Unchecked	0x2,0x4
0f04 4801       |H   |		Short_Literal	0x1
0f05 a403       |    |		Store_Unchecked	0x2,0x3
0f06 7802       |x   |		Jump	0xf09
0f07 4800       |H   |		Short_Literal	0x0
0f08 a403       |    |		Store_Unchecked	0x2,0x3
0f09 e404       |    |		Load	0x2,0x4
0f0a 00d9       |    |		Load_Top	At_Offset_1
0f0b e602       |    |		Load	0x3,0x2
0f0c 01d6       |    |		Execute	Vector,Field_Write
0f0d 00c8       |    |		Action	Pop_Auxiliary_Range
0f0e 37e3       |7   |		Loop_Decreasing	0xef2
0f0f 00ce       |    |		Action	Pop_Auxiliary
0f10 e407       |    |		Load	0x2,0x7
0f11 00da       |    |		Load_Top	At_Offset_2
0f12 82a4       |    |		Call	0x1,0xa4
0f13 e220       |    |		Load	0x1,0x20
0f14 01c6       |    |		Execute	Vector,Convert_To_Formal
0f15 00cb       |    |		Action	Pop_Block_With_Result
0f16 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f17 4800       |H   |		Short_Literal	0x0
0f18 a403       |    |		Store_Unchecked	0x2,0x3
0f19 00cf       |    |		Action	Mark_Auxiliary
0f1a 4801       |H   |		Short_Literal	0x1
0f1b e402       |    |		Load	0x2,0x2
0f1c 0264       | d  |		Execute	Discrete,Below_Bound
0f1d 701c       |p   |		Jump_Nonzero	0xf3a
0f1e 00d8       |    |		Load_Top	At_Offset_0
0f1f e602       |    |		Load	0x3,0x2
0f20 01d7       |    |		Execute	Vector,Field_Read
0f21 00d9       |    |		Load_Top	At_Offset_1
0f22 e603       |    |		Load	0x3,0x3
0f23 01d7       |    |		Execute	Vector,Field_Read
0f24 0272       | r  |		Execute	Discrete,Minus
0f25 e403       |    |		Load	0x2,0x3
0f26 0273       | s  |		Execute	Discrete,Plus
0f27 a404       |    |		Store_Unchecked	0x2,0x4
0f28 e404       |    |		Load	0x2,0x4
0f29 0d00       |    |		Execute_Immediate	Less,0x0
0f2a 6807       |h   |		Jump_Zero	0xf32
0f2b e404       |    |		Load	0x2,0x4
0f2c 6047       |`G  |		Indirect_Literal	Discrete,0xf74,{0x00000000, 0x80000000}
0f2d 0273       | s  |		Execute	Discrete,Plus
0f2e a404       |    |		Store_Unchecked	0x2,0x4
0f2f 4fff       |O   |		Short_Literal	-0x1
0f30 a403       |    |		Store_Unchecked	0x2,0x3
0f31 7802       |x   |		Jump	0xf34
0f32 4800       |H   |		Short_Literal	0x0
0f33 a403       |    |		Store_Unchecked	0x2,0x3
0f34 e404       |    |		Load	0x2,0x4
0f35 00d9       |    |		Load_Top	At_Offset_1
0f36 e602       |    |		Load	0x3,0x2
0f37 01d6       |    |		Execute	Vector,Field_Write
0f38 00c8       |    |		Action	Pop_Auxiliary_Range
0f39 37e4       |7   |		Loop_Decreasing	0xf1e
0f3a 00ce       |    |		Action	Pop_Auxiliary
0f3b e403       |    |		Load	0x2,0x3
0f3c 7007       |p   |		Jump_Nonzero	0xf44
0f3d e407       |    |		Load	0x2,0x7
0f3e 00da       |    |		Load_Top	At_Offset_2
0f3f 82a4       |    |		Call	0x1,0xa4
0f40 e220       |    |		Load	0x1,0x20
0f41 01c6       |    |		Execute	Vector,Convert_To_Formal
0f42 00cb       |    |		Action	Pop_Block_With_Result
0f43 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f44 4801       |H   |		Short_Literal	0x1
0f45 a403       |    |		Store_Unchecked	0x2,0x3
0f46 00cf       |    |		Action	Mark_Auxiliary
0f47 4801       |H   |		Short_Literal	0x1
0f48 e402       |    |		Load	0x2,0x2
0f49 0264       | d  |		Execute	Discrete,Below_Bound
0f4a 7019       |p   |		Jump_Nonzero	0xf64
0f4b 6020       |`   |		Indirect_Literal	Discrete,0xf6c,{0x00000000, 0x7fffffff}
0f4c 00d9       |    |		Load_Top	At_Offset_1
0f4d e602       |    |		Load	0x3,0x2
0f4e 01d7       |    |		Execute	Vector,Field_Read
0f4f 0272       | r  |		Execute	Discrete,Minus
0f50 e403       |    |		Load	0x2,0x3
0f51 0273       | s  |		Execute	Discrete,Plus
0f52 a404       |    |		Store_Unchecked	0x2,0x4
0f53 e404       |    |		Load	0x2,0x4
0f54 601f       |`   |		Indirect_Literal	Discrete,0xf74,{0x00000000, 0x80000000}
0f55 027f       |    |		Execute	Discrete,Equal
0f56 6805       |h   |		Jump_Zero	0xf5c
0f57 4800       |H   |		Short_Literal	0x0
0f58 a404       |    |		Store_Unchecked	0x2,0x4
0f59 4801       |H   |		Short_Literal	0x1
0f5a a403       |    |		Store_Unchecked	0x2,0x3
0f5b 7802       |x   |		Jump	0xf5e
0f5c 4800       |H   |		Short_Literal	0x0
0f5d a403       |    |		Store_Unchecked	0x2,0x3
0f5e e404       |    |		Load	0x2,0x4
0f5f 00d9       |    |		Load_Top	At_Offset_1
0f60 e602       |    |		Load	0x3,0x2
0f61 01d6       |    |		Execute	Vector,Field_Write
0f62 00c8       |    |		Action	Pop_Auxiliary_Range
0f63 37e7       |7   |		Loop_Decreasing	0xf4b
0f64 00ce       |    |		Action	Pop_Auxiliary
0f65 e408       |    |		Load	0x2,0x8
0f66 00da       |    |		Load_Top	At_Offset_2
0f67 82a4       |    |		Call	0x1,0xa4
0f68 e220       |    |		Load	0x1,0x20
0f69 01c6       |    |		Execute	Vector,Convert_To_Formal
0f6a 00cb       |    |		Action	Pop_Block_With_Result
0f6b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f6c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0f70 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000000}
0f74 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0f78 ; --------------------------------------------------------------------------------------
0f78 ; SUBPROGRAM
0f78 ; --------------------------------------------------------------------------------------
0f78 0f90       |    |		.CONST	0x0f90								; Address of begin
0f79 0004       |    |		.CONST	0x0004								; Address of exception handler
0f7a 0002       |    |		.CONST	0x0002								; Number of locals
0f7b			INIT_0f78:
0f7b 4801       |H   |		Short_Literal	0x1
0f7c e5ff       |    |		Load	0x2,-0x1
0f7d 01dc       |    |		Execute	Vector,Last
0f7e e405       |    |		Load	0x2,0x5
0f7f 0272       | r  |		Execute	Discrete,Minus
0f80 0a01       |    |		Execute_Immediate	Plus,0x1
0f81 00d8       |    |		Load_Top	At_Offset_0
0f82 00e2       |    |		Load_Encached	Integer_Cache
0f83 0260       | `  |		Execute	Discrete,In_Type
0f84 7001       |p   |		Jump_Nonzero	0xf86
0f85 0801       |    |		Execute_Immediate	Raise,0x1
0f86 e220       |    |		Load	0x1,0x20
0f87 035b       | [  |		Declare_Type	Array,Constrained
0f88 0337       | 7  |		Declare_Variable	Array
0f89 e405       |    |		Load	0x2,0x5
0f8a e5ff       |    |		Load	0x2,-0x1
0f8b 01dc       |    |		Execute	Vector,Last
0f8c e5ff       |    |		Load	0x2,-0x1
0f8d 01cf       |    |		Execute	Vector,Slice_Read
0f8e 00d9       |    |		Load_Top	At_Offset_1
0f8f 01d4       |    |		Execute	Vector,Structure_Write
0f90			BODY_0f78:
0f90 e5fe       |    |		Load	0x2,-0x2
0f91 6807       |h   |		Jump_Zero	0xf99
0f92 4801       |H   |		Short_Literal	0x1
0f93 00d9       |    |		Load_Top	At_Offset_1
0f94 01d7       |    |		Execute	Vector,Field_Read
0f95 0275       | u  |		Execute	Discrete,Unary_Minus
0f96 4801       |H   |		Short_Literal	0x1
0f97 00da       |    |		Load_Top	At_Offset_2
0f98 01d6       |    |		Execute	Vector,Field_Write
0f99 00d8       |    |		Load_Top	At_Offset_0
0f9a e220       |    |		Load	0x1,0x20
0f9b 01c6       |    |		Execute	Vector,Convert_To_Formal
0f9c 00cb       |    |		Action	Pop_Block_With_Result
0f9d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f9e 0000 0000  |    |		.XXX[0x2]
0fa0 ; --------------------------------------------------------------------------------------
0fa0 ; SUBPROGRAM
0fa0 ; --------------------------------------------------------------------------------------
0fa0 0fb7       |    |		.CONST	0x0fb7								; Address of begin
0fa1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fa2 0004       |    |		.CONST	0x0004								; Number of locals
0fa3			INIT_0fa0:
0fa3 e5ff       |    |		Load	0x2,-0x1
0fa4 01da       |    |		Execute	Vector,Bounds
0fa5 e220       |    |		Load	0x1,0x20
0fa6 035b       | [  |		Declare_Type	Array,Constrained
0fa7 0337       | 7  |		Declare_Variable	Array
0fa8 e5ff       |    |		Load	0x2,-0x1
0fa9 00d9       |    |		Load_Top	At_Offset_1
0faa 01d4       |    |		Execute	Vector,Structure_Write
0fab 4801       |H   |		Short_Literal	0x1
0fac e5fe       |    |		Load	0x2,-0x2
0fad 01d7       |    |		Execute	Vector,Field_Read
0fae 0274       | t  |		Execute	Discrete,Absolute_Value
0faf e21f       |    |		Load	0x1,0x1f
0fb0 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0fb1 4801       |H   |		Short_Literal	0x1
0fb2 e404       |    |		Load	0x2,0x4
0fb3 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0fb4 0272       | r  |		Execute	Discrete,Minus
0fb5 e21f       |    |		Load	0x1,0x1f
0fb6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0fb7			BODY_0fa0:
0fb7 00d9       |    |		Load_Top	At_Offset_1
0fb8 00db       |    |		Load_Top	At_Offset_3
0fb9 82a7       |    |		Call	0x1,0xa7
0fba 00d1       |    |		Pop_Control	Pop_Count_1
0fbb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0fbc e5fd       |    |		Load	0x2,-0x3
0fbd 4602       |F   |		Jump_Case	0x3
0fbe 7814       |x   |		Jump	0xfd3								; case 0x0
0fbf 781c       |x   |		Jump	0xfdc								; case 0x1
0fc0 7800       |x   |		Jump	0xfc1								; case 0x2
0fc1 4801       |H   |		Short_Literal	0x1
0fc2 4801       |H   |		Short_Literal	0x1
0fc3 e220       |    |		Load	0x1,0x20
0fc4 0334       | 4  |		Declare_Variable	Array,With_Constraint
0fc5 00d9       |    |		Load_Top	At_Offset_1
0fc6 00db       |    |		Load_Top	At_Offset_3
0fc7 0271       | q  |		Execute	Discrete,Times
0fc8 4801       |H   |		Short_Literal	0x1
0fc9 00da       |    |		Load_Top	At_Offset_2
0fca 01d6       |    |		Execute	Vector,Field_Write
0fcb e405       |    |		Load	0x2,0x5
0fcc e602       |    |		Load	0x3,0x2
0fcd 82a4       |    |		Call	0x1,0xa4
0fce 82a5       |    |		Call	0x1,0xa5
0fcf e233       | 3  |		Load	0x1,0x33
0fd0 0165       | e  |		Execute	Variant_Record,Convert
0fd1 00cb       |    |		Action	Pop_Block_With_Result
0fd2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0fd3 e294       |    |		Load	0x1,0x94
0fd4 e405       |    |		Load	0x2,0x5
0fd5 e602       |    |		Load	0x3,0x2
0fd6 82a4       |    |		Call	0x1,0xa4
0fd7 82a5       |    |		Call	0x1,0xa5
0fd8 e233       | 3  |		Load	0x1,0x33
0fd9 0165       | e  |		Execute	Variant_Record,Convert
0fda 00cb       |    |		Action	Pop_Block_With_Result
0fdb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0fdc 4800       |H   |		Short_Literal	0x0
0fdd 4801       |H   |		Short_Literal	0x1
0fde e233       | 3  |		Load	0x1,0x33
0fdf 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0fe0 e294       |    |		Load	0x1,0x94
0fe1 00d9       |    |		Load_Top	At_Offset_1
0fe2 00d8       |    |		Load_Top	At_Offset_0
0fe3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0fe4 00da       |    |		Load_Top	At_Offset_2
0fe5 01da       |    |		Execute	Vector,Bounds
0fe6 00da       |    |		Load_Top	At_Offset_2
0fe7 01da       |    |		Execute	Vector,Bounds
0fe8 00da       |    |		Load_Top	At_Offset_2
0fe9 027f       |    |		Execute	Discrete,Equal
0fea 7001       |p   |		Jump_Nonzero	0xfec
0feb 08e0       |    |		Execute_Immediate	Raise,0xe0
0fec 00cd       |    |		Action	Spare6_Action
0fed 027f       |    |		Execute	Discrete,Equal
0fee 7001       |p   |		Jump_Nonzero	0xff0
0fef 08e0       |    |		Execute_Immediate	Raise,0xe0
0ff0 00d2       |    |		Pop_Control	Pop_Count_2
0ff1 00d9       |    |		Load_Top	At_Offset_1
0ff2 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0ff3 4801       |H   |		Short_Literal	0x1
0ff4 4801       |H   |		Short_Literal	0x1
0ff5 e220       |    |		Load	0x1,0x20
0ff6 0334       | 4  |		Declare_Variable	Array,With_Constraint
0ff7 00da       |    |		Load_Top	At_Offset_2
0ff8 e603       |    |		Load	0x3,0x3
0ff9 0271       | q  |		Execute	Discrete,Times
0ffa 4801       |H   |		Short_Literal	0x1
0ffb 00da       |    |		Load_Top	At_Offset_2
0ffc 01d6       |    |		Execute	Vector,Field_Write
0ffd 00d9       |    |		Load_Top	At_Offset_1
0ffe 00d8       |    |		Load_Top	At_Offset_0
0fff 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1000 00da       |    |		Load_Top	At_Offset_2
1001 01da       |    |		Execute	Vector,Bounds
1002 00da       |    |		Load_Top	At_Offset_2
1003 01da       |    |		Execute	Vector,Bounds
1004 00da       |    |		Load_Top	At_Offset_2
1005 027f       |    |		Execute	Discrete,Equal
1006 7001       |p   |		Jump_Nonzero	0x1008
1007 08e0       |    |		Execute_Immediate	Raise,0xe0
1008 00cd       |    |		Action	Spare6_Action
1009 027f       |    |		Execute	Discrete,Equal
100a 7001       |p   |		Jump_Nonzero	0x100c
100b 08e0       |    |		Execute_Immediate	Raise,0xe0
100c 00d2       |    |		Pop_Control	Pop_Count_2
100d 00d9       |    |		Load_Top	At_Offset_1
100e 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
100f 00cb       |    |		Action	Pop_Block_With_Result
1010 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
1011 0000 0000  |    |		.BLANK	0000[0x7]
1018 ; --------------------------------------------------------------------------------------
1018 ; SUBPROGRAM
1018 ; --------------------------------------------------------------------------------------
1018 1065       | e  |		.CONST	0x1065								; Address of begin
1019 0004       |    |		.CONST	0x0004								; Address of exception handler
101a 000b       |    |		.CONST	0x000b								; Number of locals
101b			INIT_1018:
101b 612c       |a,  |		Indirect_Literal	Discrete,0x1148,{0x00000000, 0x80000000}
101c 4801       |H   |		Short_Literal	0x1
101d e5fe       |    |		Load	0x2,-0x2
101e 01d7       |    |		Execute	Vector,Field_Read
101f 0274       | t  |		Execute	Discrete,Absolute_Value
1020 0a01       |    |		Execute_Immediate	Plus,0x1
1021 0270       | p  |		Execute	Discrete,Divide
1022 00e5       |    |		Load_Encached	Long_Integer_Cache
1023 03f1       |    |		Declare_Variable	Discrete,With_Value
1024 4801       |H   |		Short_Literal	0x1
1025 e402       |    |		Load	0x2,0x2
1026 0a01       |    |		Execute_Immediate	Plus,0x1
1027 00d8       |    |		Load_Top	At_Offset_0
1028 00e2       |    |		Load_Encached	Integer_Cache
1029 0260       | `  |		Execute	Discrete,In_Type
102a 7001       |p   |		Jump_Nonzero	0x102c
102b 0801       |    |		Execute_Immediate	Raise,0x1
102c e220       |    |		Load	0x1,0x20
102d 035b       | [  |		Declare_Type	Array,Constrained
102e 0337       | 7  |		Declare_Variable	Array
102f 00d9       |    |		Load_Top	At_Offset_1
1030 00d8       |    |		Load_Top	At_Offset_0
1031 e21f       |    |		Load	0x1,0x1f
1032 0260       | `  |		Execute	Discrete,In_Type
1033 7001       |p   |		Jump_Nonzero	0x1035
1034 0801       |    |		Execute_Immediate	Raise,0x1
1035 4800       |H   |		Short_Literal	0x0
1036 e5ff       |    |		Load	0x2,-0x1
1037 01ca       |    |		Execute	Vector,Prepend
1038 82a6       |    |		Call	0x1,0xa6
1039 00d9       |    |		Load_Top	At_Offset_1
103a 01d4       |    |		Execute	Vector,Structure_Write
103b 4801       |H   |		Short_Literal	0x1
103c e403       |    |		Load	0x2,0x3
103d e220       |    |		Load	0x1,0x20
103e 035b       | [  |		Declare_Type	Array,Constrained
103f 0337       | 7  |		Declare_Variable	Array
1040 00da       |    |		Load_Top	At_Offset_2
1041 00d8       |    |		Load_Top	At_Offset_0
1042 e21f       |    |		Load	0x1,0x1f
1043 0260       | `  |		Execute	Discrete,In_Type
1044 7001       |p   |		Jump_Nonzero	0x1046
1045 0801       |    |		Execute_Immediate	Raise,0x1
1046 e5fe       |    |		Load	0x2,-0x2
1047 82a6       |    |		Call	0x1,0xa6
1048 00d9       |    |		Load_Top	At_Offset_1
1049 01d4       |    |		Execute	Vector,Structure_Write
104a 4801       |H   |		Short_Literal	0x1
104b 00d9       |    |		Load_Top	At_Offset_1
104c 01d7       |    |		Execute	Vector,Field_Read
104d 00e5       |    |		Load_Encached	Long_Integer_Cache
104e 03f1       |    |		Declare_Variable	Discrete,With_Value
104f 4802       |H   |		Short_Literal	0x2
1050 00da       |    |		Load_Top	At_Offset_2
1051 01d7       |    |		Execute	Vector,Field_Read
1052 00e5       |    |		Load_Encached	Long_Integer_Cache
1053 03f1       |    |		Declare_Variable	Discrete,With_Value
1054 4801       |H   |		Short_Literal	0x1
1055 e402       |    |		Load	0x2,0x2
1056 e403       |    |		Load	0x2,0x3
1057 0272       | r  |		Execute	Discrete,Minus
1058 0a01       |    |		Execute_Immediate	Plus,0x1
1059 00d8       |    |		Load_Top	At_Offset_0
105a 00e2       |    |		Load_Encached	Integer_Cache
105b 0260       | `  |		Execute	Discrete,In_Type
105c 7001       |p   |		Jump_Nonzero	0x105e
105d 0801       |    |		Execute_Immediate	Raise,0x1
105e e220       |    |		Load	0x1,0x20
105f 035b       | [  |		Declare_Type	Array,Constrained
1060 0337       | 7  |		Declare_Variable	Array
1061 00e5       |    |		Load_Encached	Long_Integer_Cache
1062 00e5       |    |		Load_Encached	Long_Integer_Cache
1063 03e9       |    |		Declare_Variable	Discrete,Duplicate
1064 00e5       |    |		Load_Encached	Long_Integer_Cache
1065			BODY_1018:
1065 00cf       |    |		Action	Mark_Auxiliary
1066 e607       |    |		Load	0x3,0x7
1067 01d9       |    |		Execute	Vector,Reverse_Bounds
1068 0263       | c  |		Execute	Discrete,Above_Bound
1069 70a4       |p   |		Jump_Nonzero	0x110e
106a 00d8       |    |		Load_Top	At_Offset_0
106b e603       |    |		Load	0x3,0x3
106c 01d7       |    |		Execute	Vector,Field_Read
106d 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
106e 00d9       |    |		Load_Top	At_Offset_1
106f 0a01       |    |		Execute_Immediate	Plus,0x1
1070 e603       |    |		Load	0x3,0x3
1071 01d7       |    |		Execute	Vector,Field_Read
1072 0273       | s  |		Execute	Discrete,Plus
1073 a60a       |    |		Store_Unchecked	0x3,0xa
1074 00d8       |    |		Load_Top	At_Offset_0
1075 e603       |    |		Load	0x3,0x3
1076 01d7       |    |		Execute	Vector,Field_Read
1077 e605       |    |		Load	0x3,0x5
1078 027e       | ~  |		Execute	Discrete,Not_Equal
1079 6805       |h   |		Jump_Zero	0x107f
107a e60a       |    |		Load	0x3,0xa
107b e605       |    |		Load	0x3,0x5
107c 0270       | p  |		Execute	Discrete,Divide
107d a60b       |    |		Store_Unchecked	0x3,0xb
107e 7802       |x   |		Jump	0x1081
107f 60c4       |`   |		Indirect_Literal	Discrete,0x1144,{0x00000000, 0x7fffffff}
1080 a60b       |    |		Store_Unchecked	0x3,0xb
1081 00cf       |    |		Action	Mark_Auxiliary
1082 7804       |x   |		Jump	0x1087
1083 e60b       |    |		Load	0x3,0xb
1084 0aff       |    |		Execute_Immediate	Plus,-0x1
1085 a60b       |    |		Store_Unchecked	0x3,0xb
1086 00c9       |    |		Action	Pop_Auxiliary_Loop
1087 e606       |    |		Load	0x3,0x6
1088 e60b       |    |		Load	0x3,0xb
1089 0271       | q  |		Execute	Discrete,Times
108a e60a       |    |		Load	0x3,0xa
108b e60b       |    |		Load	0x3,0xb
108c e605       |    |		Load	0x3,0x5
108d 0271       | q  |		Execute	Discrete,Times
108e 0272       | r  |		Execute	Discrete,Minus
108f 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
1090 00db       |    |		Load_Top	At_Offset_3
1091 0a02       |    |		Execute_Immediate	Plus,0x2
1092 e603       |    |		Load	0x3,0x3
1093 01d7       |    |		Execute	Vector,Field_Read
1094 0273       | s  |		Execute	Discrete,Plus
1095 027d       | }  |		Execute	Discrete,Greater
1096 77ec       |w   |		Jump_Nonzero	0x1083
1097 00ce       |    |		Action	Pop_Auxiliary
1098 4800       |H   |		Short_Literal	0x0
1099 a609       |    |		Store_Unchecked	0x3,0x9
109a 00cf       |    |		Action	Mark_Auxiliary
109b e604       |    |		Load	0x3,0x4
109c 01da       |    |		Execute	Vector,Bounds
109d 0264       | d  |		Execute	Discrete,Below_Bound
109e 7027       |p'  |		Jump_Nonzero	0x10c6
109f 00db       |    |		Load_Top	At_Offset_3
10a0 00d9       |    |		Load_Top	At_Offset_1
10a1 0273       | s  |		Execute	Discrete,Plus
10a2 e603       |    |		Load	0x3,0x3
10a3 01d7       |    |		Execute	Vector,Field_Read
10a4 e60b       |    |		Load	0x3,0xb
10a5 00da       |    |		Load_Top	At_Offset_2
10a6 e604       |    |		Load	0x3,0x4
10a7 01d7       |    |		Execute	Vector,Field_Read
10a8 0271       | q  |		Execute	Discrete,Times
10a9 0272       | r  |		Execute	Discrete,Minus
10aa e609       |    |		Load	0x3,0x9
10ab 0273       | s  |		Execute	Discrete,Plus
10ac a60a       |    |		Store_Unchecked	0x3,0xa
10ad e60a       |    |		Load	0x3,0xa
10ae 6099       |`   |		Indirect_Literal	Discrete,0x1148,{0x00000000, 0x80000000}
10af 026f       | o  |		Execute	Discrete,Remainder
10b0 a608       |    |		Store_Unchecked	0x3,0x8
10b1 e60a       |    |		Load	0x3,0xa
10b2 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
10b3 a609       |    |		Store_Unchecked	0x3,0x9
10b4 e608       |    |		Load	0x3,0x8
10b5 0d00       |    |		Execute_Immediate	Less,0x0
10b6 6807       |h   |		Jump_Zero	0x10be
10b7 e608       |    |		Load	0x3,0x8
10b8 608f       |`   |		Indirect_Literal	Discrete,0x1148,{0x00000000, 0x80000000}
10b9 0273       | s  |		Execute	Discrete,Plus
10ba a608       |    |		Store_Unchecked	0x3,0x8
10bb e609       |    |		Load	0x3,0x9
10bc 0aff       |    |		Execute_Immediate	Plus,-0x1
10bd a609       |    |		Store_Unchecked	0x3,0x9
10be e608       |    |		Load	0x3,0x8
10bf e60e       |    |		Load	0x3,0xe
10c0 00da       |    |		Load_Top	At_Offset_2
10c1 0273       | s  |		Execute	Discrete,Plus
10c2 e603       |    |		Load	0x3,0x3
10c3 01d6       |    |		Execute	Vector,Field_Write
10c4 00c8       |    |		Action	Pop_Auxiliary_Range
10c5 37d9       |7   |		Loop_Decreasing	0x109f
10c6 00ce       |    |		Action	Pop_Auxiliary
10c7 00d8       |    |		Load_Top	At_Offset_0
10c8 e603       |    |		Load	0x3,0x3
10c9 01d7       |    |		Execute	Vector,Field_Read
10ca e609       |    |		Load	0x3,0x9
10cb 0273       | s  |		Execute	Discrete,Plus
10cc 00d9       |    |		Load_Top	At_Offset_1
10cd e603       |    |		Load	0x3,0x3
10ce 01d6       |    |		Execute	Vector,Field_Write
10cf 00d8       |    |		Load_Top	At_Offset_0
10d0 e603       |    |		Load	0x3,0x3
10d1 01d7       |    |		Execute	Vector,Field_Read
10d2 0d00       |    |		Execute_Immediate	Less,0x0
10d3 6834       |h4  |		Jump_Zero	0x1108
10d4 00db       |    |		Load_Top	At_Offset_3
10d5 0aff       |    |		Execute_Immediate	Plus,-0x1
10d6 a60b       |    |		Store_Unchecked	0x3,0xb
10d7 4800       |H   |		Short_Literal	0x0
10d8 a609       |    |		Store_Unchecked	0x3,0x9
10d9 00cf       |    |		Action	Mark_Auxiliary
10da e604       |    |		Load	0x3,0x4
10db 01da       |    |		Execute	Vector,Bounds
10dc 0264       | d  |		Execute	Discrete,Below_Bound
10dd 7021       |p!  |		Jump_Nonzero	0x10ff
10de 00db       |    |		Load_Top	At_Offset_3
10df 00d9       |    |		Load_Top	At_Offset_1
10e0 0273       | s  |		Execute	Discrete,Plus
10e1 e603       |    |		Load	0x3,0x3
10e2 01d7       |    |		Execute	Vector,Field_Read
10e3 00d9       |    |		Load_Top	At_Offset_1
10e4 e604       |    |		Load	0x3,0x4
10e5 01d7       |    |		Execute	Vector,Field_Read
10e6 0273       | s  |		Execute	Discrete,Plus
10e7 e609       |    |		Load	0x3,0x9
10e8 0273       | s  |		Execute	Discrete,Plus
10e9 a60a       |    |		Store_Unchecked	0x3,0xa
10ea e60a       |    |		Load	0x3,0xa
10eb 605c       |`\  |		Indirect_Literal	Discrete,0x1148,{0x00000000, 0x80000000}
10ec 027b       | {  |		Execute	Discrete,Greater_Equal
10ed 6807       |h   |		Jump_Zero	0x10f5
10ee e60a       |    |		Load	0x3,0xa
10ef 6050       |`P  |		Indirect_Literal	Discrete,0x1140,{0xffffffff, 0x80000000}
10f0 0273       | s  |		Execute	Discrete,Plus
10f1 a60a       |    |		Store_Unchecked	0x3,0xa
10f2 4801       |H   |		Short_Literal	0x1
10f3 a609       |    |		Store_Unchecked	0x3,0x9
10f4 7802       |x   |		Jump	0x10f7
10f5 4800       |H   |		Short_Literal	0x0
10f6 a609       |    |		Store_Unchecked	0x3,0x9
10f7 e60a       |    |		Load	0x3,0xa
10f8 e60e       |    |		Load	0x3,0xe
10f9 00da       |    |		Load_Top	At_Offset_2
10fa 0273       | s  |		Execute	Discrete,Plus
10fb e603       |    |		Load	0x3,0x3
10fc 01d6       |    |		Execute	Vector,Field_Write
10fd 00c8       |    |		Action	Pop_Auxiliary_Range
10fe 37df       |7   |		Loop_Decreasing	0x10de
10ff 00ce       |    |		Action	Pop_Auxiliary
1100 00d8       |    |		Load_Top	At_Offset_0
1101 e603       |    |		Load	0x3,0x3
1102 01d7       |    |		Execute	Vector,Field_Read
1103 e609       |    |		Load	0x3,0x9
1104 0273       | s  |		Execute	Discrete,Plus
1105 00d9       |    |		Load_Top	At_Offset_1
1106 e603       |    |		Load	0x3,0x3
1107 01d6       |    |		Execute	Vector,Field_Write
1108 00db       |    |		Load_Top	At_Offset_3
1109 00d9       |    |		Load_Top	At_Offset_1
110a e607       |    |		Load	0x3,0x7
110b 01d6       |    |		Execute	Vector,Field_Write
110c 00c8       |    |		Action	Pop_Auxiliary_Range
110d 3f5c       |?\  |		Loop_Increasing	0x106a
110e 00ce       |    |		Action	Pop_Auxiliary
110f e602       |    |		Load	0x3,0x2
1110 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
1111 6809       |h   |		Jump_Zero	0x111b
1112 e5fd       |    |		Load	0x2,-0x3
1113 6807       |h   |		Jump_Zero	0x111b
1114 e602       |    |		Load	0x3,0x2
1115 e21f       |    |		Load	0x1,0x1f
1116 025e       | ^  |		Execute	Discrete,Convert
1117 e603       |    |		Load	0x3,0x3
1118 82a7       |    |		Call	0x1,0xa7
1119 00d1       |    |		Pop_Control	Pop_Count_1
111a c602       |    |		Store	0x3,0x2
111b e5fd       |    |		Load	0x2,-0x3
111c 4602       |F   |		Jump_Case	0x3
111d 780d       |x   |		Jump	0x112b								; case 0x0
111e 7815       |x   |		Jump	0x1134								; case 0x1
111f 7800       |x   |		Jump	0x1120								; case 0x2
1120 e404       |    |		Load	0x2,0x4
1121 e603       |    |		Load	0x3,0x3
1122 82a4       |    |		Call	0x1,0xa4
1123 e405       |    |		Load	0x2,0x5
1124 e607       |    |		Load	0x3,0x7
1125 82a4       |    |		Call	0x1,0xa4
1126 82a5       |    |		Call	0x1,0xa5
1127 e233       | 3  |		Load	0x1,0x33
1128 0165       | e  |		Execute	Variant_Record,Convert
1129 00cb       |    |		Action	Pop_Block_With_Result
112a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
112b e294       |    |		Load	0x1,0x94
112c e405       |    |		Load	0x2,0x5
112d e607       |    |		Load	0x3,0x7
112e 82a4       |    |		Call	0x1,0xa4
112f 82a5       |    |		Call	0x1,0xa5
1130 e233       | 3  |		Load	0x1,0x33
1131 0165       | e  |		Execute	Variant_Record,Convert
1132 00cb       |    |		Action	Pop_Block_With_Result
1133 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
1134 e404       |    |		Load	0x2,0x4
1135 e603       |    |		Load	0x3,0x3
1136 82a4       |    |		Call	0x1,0xa4
1137 e294       |    |		Load	0x1,0x94
1138 82a5       |    |		Call	0x1,0xa5
1139 e233       | 3  |		Load	0x1,0x33
113a 0165       | e  |		Execute	Variant_Record,Convert
113b 00cb       |    |		Action	Pop_Block_With_Result
113c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
113d 0000 0000  |    |		.XXX[0x3]
113f 0000       |    |
1140 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000000}
1144 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
1148 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
114c 0000 0000  |    |		.BLANK	0000[0x4]
1150 ; --------------------------------------------------------------------------------------
1150 ; SUBPROGRAM
1150 ; --------------------------------------------------------------------------------------
1150 117f       |    |		.CONST	0x117f								; Address of begin
1151 0004       |    |		.CONST	0x0004								; Address of exception handler
1152 000b       |    |		.CONST	0x000b								; Number of locals
1153			INIT_1150:
1153 67f4       |g   |		Indirect_Literal	Discrete,0x1148,{0x00000000, 0x80000000}
1154 e403       |    |		Load	0x2,0x3
1155 e5fe       |    |		Load	0x2,-0x2
1156 01d7       |    |		Execute	Vector,Field_Read
1157 0274       | t  |		Execute	Discrete,Absolute_Value
1158 0a01       |    |		Execute_Immediate	Plus,0x1
1159 0270       | p  |		Execute	Discrete,Divide
115a 00e5       |    |		Load_Encached	Long_Integer_Cache
115b 03f1       |    |		Declare_Variable	Discrete,With_Value
115c 4801       |H   |		Short_Literal	0x1
115d e404       |    |		Load	0x2,0x4
115e 0a01       |    |		Execute_Immediate	Plus,0x1
115f 00d8       |    |		Load_Top	At_Offset_0
1160 00e2       |    |		Load_Encached	Integer_Cache
1161 0260       | `  |		Execute	Discrete,In_Type
1162 7001       |p   |		Jump_Nonzero	0x1164
1163 0801       |    |		Execute_Immediate	Raise,0x1
1164 e220       |    |		Load	0x1,0x20
1165 035b       | [  |		Declare_Type	Array,Constrained
1166 0337       | 7  |		Declare_Variable	Array
1167 4801       |H   |		Short_Literal	0x1
1168 e405       |    |		Load	0x2,0x5
1169 e220       |    |		Load	0x1,0x20
116a 035b       | [  |		Declare_Type	Array,Constrained
116b 0337       | 7  |		Declare_Variable	Array
116c 00e5       |    |		Load_Encached	Long_Integer_Cache
116d 00e5       |    |		Load_Encached	Long_Integer_Cache
116e 4801       |H   |		Short_Literal	0x1
116f e404       |    |		Load	0x2,0x4
1170 e405       |    |		Load	0x2,0x5
1171 0272       | r  |		Execute	Discrete,Minus
1172 0a01       |    |		Execute_Immediate	Plus,0x1
1173 00d8       |    |		Load_Top	At_Offset_0
1174 00e2       |    |		Load_Encached	Integer_Cache
1175 0260       | `  |		Execute	Discrete,In_Type
1176 7001       |p   |		Jump_Nonzero	0x1178
1177 0801       |    |		Execute_Immediate	Raise,0x1
1178 e220       |    |		Load	0x1,0x20
1179 035b       | [  |		Declare_Type	Array,Constrained
117a 0337       | 7  |		Declare_Variable	Array
117b 00e5       |    |		Load_Encached	Long_Integer_Cache
117c 00e5       |    |		Load_Encached	Long_Integer_Cache
117d 03e9       |    |		Declare_Variable	Discrete,Duplicate
117e 00e5       |    |		Load_Encached	Long_Integer_Cache
117f			BODY_1150:
117f e603       |    |		Load	0x3,0x3
1180 e402       |    |		Load	0x2,0x2
1181 e5ff       |    |		Load	0x2,-0x1
1182 01dc       |    |		Execute	Vector,Last
1183 e5ff       |    |		Load	0x2,-0x1
1184 01cf       |    |		Execute	Vector,Slice_Read
1185 82a1       |    |		Call	0x1,0xa1
1186 00d1       |    |		Pop_Control	Pop_Count_1
1187 e604       |    |		Load	0x3,0x4
1188 e403       |    |		Load	0x2,0x3
1189 e5fe       |    |		Load	0x2,-0x2
118a 01dc       |    |		Execute	Vector,Last
118b e5fe       |    |		Load	0x2,-0x2
118c 01cf       |    |		Execute	Vector,Slice_Read
118d 82a1       |    |		Call	0x1,0xa1
118e 00d1       |    |		Pop_Control	Pop_Count_1
118f 4802       |H   |		Short_Literal	0x2
1190 e603       |    |		Load	0x3,0x3
1191 01d7       |    |		Execute	Vector,Field_Read
1192 0274       | t  |		Execute	Discrete,Absolute_Value
1193 4802       |H   |		Short_Literal	0x2
1194 e603       |    |		Load	0x3,0x3
1195 01d6       |    |		Execute	Vector,Field_Write
1196 4801       |H   |		Short_Literal	0x1
1197 e604       |    |		Load	0x3,0x4
1198 01d7       |    |		Execute	Vector,Field_Read
1199 0274       | t  |		Execute	Discrete,Absolute_Value
119a 4801       |H   |		Short_Literal	0x1
119b e604       |    |		Load	0x3,0x4
119c 01d6       |    |		Execute	Vector,Field_Write
119d e602       |    |		Load	0x3,0x2
119e 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
119f 6812       |h   |		Jump_Zero	0x11b2
11a0 e603       |    |		Load	0x3,0x3
11a1 e602       |    |		Load	0x3,0x2
11a2 00d8       |    |		Load_Top	At_Offset_0
11a3 e21f       |    |		Load	0x1,0x1f
11a4 0260       | `  |		Execute	Discrete,In_Type
11a5 7001       |p   |		Jump_Nonzero	0x11a7
11a6 0801       |    |		Execute_Immediate	Raise,0x1
11a7 82aa       |    |		Call	0x1,0xaa
11a8 00d1       |    |		Pop_Control	Pop_Count_1
11a9 e604       |    |		Load	0x3,0x4
11aa e602       |    |		Load	0x3,0x2
11ab 00d8       |    |		Load_Top	At_Offset_0
11ac e21f       |    |		Load	0x1,0x1f
11ad 0260       | `  |		Execute	Discrete,In_Type
11ae 7001       |p   |		Jump_Nonzero	0x11b0
11af 0801       |    |		Execute_Immediate	Raise,0x1
11b0 82aa       |    |		Call	0x1,0xaa
11b1 00d1       |    |		Pop_Control	Pop_Count_1
11b2 4801       |H   |		Short_Literal	0x1
11b3 e604       |    |		Load	0x3,0x4
11b4 01d7       |    |		Execute	Vector,Field_Read
11b5 a605       |    |		Store_Unchecked	0x3,0x5
11b6 4802       |H   |		Short_Literal	0x2
11b7 e604       |    |		Load	0x3,0x4
11b8 01d7       |    |		Execute	Vector,Field_Read
11b9 a606       |    |		Store_Unchecked	0x3,0x6
11ba 00cf       |    |		Action	Mark_Auxiliary
11bb e607       |    |		Load	0x3,0x7
11bc 01d9       |    |		Execute	Vector,Reverse_Bounds
11bd 0263       | c  |		Execute	Discrete,Above_Bound
11be 70a4       |p   |		Jump_Nonzero	0x1263
11bf 00d8       |    |		Load_Top	At_Offset_0
11c0 e603       |    |		Load	0x3,0x3
11c1 01d7       |    |		Execute	Vector,Field_Read
11c2 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
11c3 00d9       |    |		Load_Top	At_Offset_1
11c4 0a01       |    |		Execute_Immediate	Plus,0x1
11c5 e603       |    |		Load	0x3,0x3
11c6 01d7       |    |		Execute	Vector,Field_Read
11c7 0273       | s  |		Execute	Discrete,Plus
11c8 a60a       |    |		Store_Unchecked	0x3,0xa
11c9 00d8       |    |		Load_Top	At_Offset_0
11ca e603       |    |		Load	0x3,0x3
11cb 01d7       |    |		Execute	Vector,Field_Read
11cc e605       |    |		Load	0x3,0x5
11cd 027e       | ~  |		Execute	Discrete,Not_Equal
11ce 6805       |h   |		Jump_Zero	0x11d4
11cf e60a       |    |		Load	0x3,0xa
11d0 e605       |    |		Load	0x3,0x5
11d1 0270       | p  |		Execute	Discrete,Divide
11d2 a60b       |    |		Store_Unchecked	0x3,0xb
11d3 7802       |x   |		Jump	0x11d6
11d4 676f       |go  |		Indirect_Literal	Discrete,0x1144,{0x00000000, 0x7fffffff}
11d5 a60b       |    |		Store_Unchecked	0x3,0xb
11d6 00cf       |    |		Action	Mark_Auxiliary
11d7 7804       |x   |		Jump	0x11dc
11d8 e60b       |    |		Load	0x3,0xb
11d9 0aff       |    |		Execute_Immediate	Plus,-0x1
11da a60b       |    |		Store_Unchecked	0x3,0xb
11db 00c9       |    |		Action	Pop_Auxiliary_Loop
11dc e606       |    |		Load	0x3,0x6
11dd e60b       |    |		Load	0x3,0xb
11de 0271       | q  |		Execute	Discrete,Times
11df e60a       |    |		Load	0x3,0xa
11e0 e60b       |    |		Load	0x3,0xb
11e1 e605       |    |		Load	0x3,0x5
11e2 0271       | q  |		Execute	Discrete,Times
11e3 0272       | r  |		Execute	Discrete,Minus
11e4 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
11e5 00db       |    |		Load_Top	At_Offset_3
11e6 0a02       |    |		Execute_Immediate	Plus,0x2
11e7 e603       |    |		Load	0x3,0x3
11e8 01d7       |    |		Execute	Vector,Field_Read
11e9 0273       | s  |		Execute	Discrete,Plus
11ea 027d       | }  |		Execute	Discrete,Greater
11eb 77ec       |w   |		Jump_Nonzero	0x11d8
11ec 00ce       |    |		Action	Pop_Auxiliary
11ed 4800       |H   |		Short_Literal	0x0
11ee a609       |    |		Store_Unchecked	0x3,0x9
11ef 00cf       |    |		Action	Mark_Auxiliary
11f0 e604       |    |		Load	0x3,0x4
11f1 01da       |    |		Execute	Vector,Bounds
11f2 0264       | d  |		Execute	Discrete,Below_Bound
11f3 7027       |p'  |		Jump_Nonzero	0x121b
11f4 00db       |    |		Load_Top	At_Offset_3
11f5 00d9       |    |		Load_Top	At_Offset_1
11f6 0273       | s  |		Execute	Discrete,Plus
11f7 e603       |    |		Load	0x3,0x3
11f8 01d7       |    |		Execute	Vector,Field_Read
11f9 e60b       |    |		Load	0x3,0xb
11fa 00da       |    |		Load_Top	At_Offset_2
11fb e604       |    |		Load	0x3,0x4
11fc 01d7       |    |		Execute	Vector,Field_Read
11fd 0271       | q  |		Execute	Discrete,Times
11fe 0272       | r  |		Execute	Discrete,Minus
11ff e609       |    |		Load	0x3,0x9
1200 0273       | s  |		Execute	Discrete,Plus
1201 a60a       |    |		Store_Unchecked	0x3,0xa
1202 e60a       |    |		Load	0x3,0xa
1203 6744       |gD  |		Indirect_Literal	Discrete,0x1148,{0x00000000, 0x80000000}
1204 026f       | o  |		Execute	Discrete,Remainder
1205 a608       |    |		Store_Unchecked	0x3,0x8
1206 e60a       |    |		Load	0x3,0xa
1207 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
1208 a609       |    |		Store_Unchecked	0x3,0x9
1209 e608       |    |		Load	0x3,0x8
120a 0d00       |    |		Execute_Immediate	Less,0x0
120b 6807       |h   |		Jump_Zero	0x1213
120c e608       |    |		Load	0x3,0x8
120d 673a       |g:  |		Indirect_Literal	Discrete,0x1148,{0x00000000, 0x80000000}
120e 0273       | s  |		Execute	Discrete,Plus
120f a608       |    |		Store_Unchecked	0x3,0x8
1210 e609       |    |		Load	0x3,0x9
1211 0aff       |    |		Execute_Immediate	Plus,-0x1
1212 a609       |    |		Store_Unchecked	0x3,0x9
1213 e608       |    |		Load	0x3,0x8
1214 e60e       |    |		Load	0x3,0xe
1215 00da       |    |		Load_Top	At_Offset_2
1216 0273       | s  |		Execute	Discrete,Plus
1217 e603       |    |		Load	0x3,0x3
1218 01d6       |    |		Execute	Vector,Field_Write
1219 00c8       |    |		Action	Pop_Auxiliary_Range
121a 37d9       |7   |		Loop_Decreasing	0x11f4
121b 00ce       |    |		Action	Pop_Auxiliary
121c 00d8       |    |		Load_Top	At_Offset_0
121d e603       |    |		Load	0x3,0x3
121e 01d7       |    |		Execute	Vector,Field_Read
121f e609       |    |		Load	0x3,0x9
1220 0273       | s  |		Execute	Discrete,Plus
1221 00d9       |    |		Load_Top	At_Offset_1
1222 e603       |    |		Load	0x3,0x3
1223 01d6       |    |		Execute	Vector,Field_Write
1224 00d8       |    |		Load_Top	At_Offset_0
1225 e603       |    |		Load	0x3,0x3
1226 01d7       |    |		Execute	Vector,Field_Read
1227 0d00       |    |		Execute_Immediate	Less,0x0
1228 6834       |h4  |		Jump_Zero	0x125d
1229 00db       |    |		Load_Top	At_Offset_3
122a 0aff       |    |		Execute_Immediate	Plus,-0x1
122b a60b       |    |		Store_Unchecked	0x3,0xb
122c 4800       |H   |		Short_Literal	0x0
122d a609       |    |		Store_Unchecked	0x3,0x9
122e 00cf       |    |		Action	Mark_Auxiliary
122f e604       |    |		Load	0x3,0x4
1230 01da       |    |		Execute	Vector,Bounds
1231 0264       | d  |		Execute	Discrete,Below_Bound
1232 7021       |p!  |		Jump_Nonzero	0x1254
1233 00db       |    |		Load_Top	At_Offset_3
1234 00d9       |    |		Load_Top	At_Offset_1
1235 0273       | s  |		Execute	Discrete,Plus
1236 e603       |    |		Load	0x3,0x3
1237 01d7       |    |		Execute	Vector,Field_Read
1238 00d9       |    |		Load_Top	At_Offset_1
1239 e604       |    |		Load	0x3,0x4
123a 01d7       |    |		Execute	Vector,Field_Read
123b 0273       | s  |		Execute	Discrete,Plus
123c e609       |    |		Load	0x3,0x9
123d 0273       | s  |		Execute	Discrete,Plus
123e a60a       |    |		Store_Unchecked	0x3,0xa
123f e60a       |    |		Load	0x3,0xa
1240 6707       |g   |		Indirect_Literal	Discrete,0x1148,{0x00000000, 0x80000000}
1241 027b       | {  |		Execute	Discrete,Greater_Equal
1242 6807       |h   |		Jump_Zero	0x124a
1243 e60a       |    |		Load	0x3,0xa
1244 66fb       |f   |		Indirect_Literal	Discrete,0x1140,{0xffffffff, 0x80000000}
1245 0273       | s  |		Execute	Discrete,Plus
1246 a60a       |    |		Store_Unchecked	0x3,0xa
1247 4801       |H   |		Short_Literal	0x1
1248 a609       |    |		Store_Unchecked	0x3,0x9
1249 7802       |x   |		Jump	0x124c
124a 4800       |H   |		Short_Literal	0x0
124b a609       |    |		Store_Unchecked	0x3,0x9
124c e60a       |    |		Load	0x3,0xa
124d e60e       |    |		Load	0x3,0xe
124e 00da       |    |		Load_Top	At_Offset_2
124f 0273       | s  |		Execute	Discrete,Plus
1250 e603       |    |		Load	0x3,0x3
1251 01d6       |    |		Execute	Vector,Field_Write
1252 00c8       |    |		Action	Pop_Auxiliary_Range
1253 37df       |7   |		Loop_Decreasing	0x1233
1254 00ce       |    |		Action	Pop_Auxiliary
1255 00d8       |    |		Load_Top	At_Offset_0
1256 e603       |    |		Load	0x3,0x3
1257 01d7       |    |		Execute	Vector,Field_Read
1258 e609       |    |		Load	0x3,0x9
1259 0273       | s  |		Execute	Discrete,Plus
125a 00d9       |    |		Load_Top	At_Offset_1
125b e603       |    |		Load	0x3,0x3
125c 01d6       |    |		Execute	Vector,Field_Write
125d 00db       |    |		Load_Top	At_Offset_3
125e 00d9       |    |		Load_Top	At_Offset_1
125f e607       |    |		Load	0x3,0x7
1260 01d6       |    |		Execute	Vector,Field_Write
1261 00c8       |    |		Action	Pop_Auxiliary_Range
1262 3f5c       |?\  |		Loop_Increasing	0x11bf
1263 00ce       |    |		Action	Pop_Auxiliary
1264 e407       |    |		Load	0x2,0x7
1265 680a       |h   |		Jump_Zero	0x1270
1266 e607       |    |		Load	0x3,0x7
1267 82a9       |    |		Call	0x1,0xa9
1268 a402       |    |		Store_Unchecked	0x2,0x2
1269 e402       |    |		Load	0x2,0x2
126a e607       |    |		Load	0x3,0x7
126b 01d7       |    |		Execute	Vector,Field_Read
126c 0275       | u  |		Execute	Discrete,Unary_Minus
126d e402       |    |		Load	0x2,0x2
126e e607       |    |		Load	0x3,0x7
126f 01d6       |    |		Execute	Vector,Field_Write
1270 e5fd       |    |		Load	0x2,-0x3
1271 e607       |    |		Load	0x3,0x7
1272 82a1       |    |		Call	0x1,0xa1
1273 00d1       |    |		Pop_Control	Pop_Count_1
1274 4800       |H   |		Short_Literal	0x0
1275 a5fb       |    |		Store_Unchecked	0x2,-0x5
1276 e5fc       |    |		Load	0x2,-0x4
1277 01db       |    |		Execute	Vector,Length
1278 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1279 684d       |hM  |		Jump_Zero	0x12c7
127a e603       |    |		Load	0x3,0x3
127b 82a9       |    |		Call	0x1,0xa9
127c a402       |    |		Store_Unchecked	0x2,0x2
127d e603       |    |		Load	0x3,0x3
127e 01dc       |    |		Execute	Vector,Last
127f e603       |    |		Load	0x3,0x3
1280 01d7       |    |		Execute	Vector,Field_Read
1281 700c       |p   |		Jump_Nonzero	0x128e
1282 e402       |    |		Load	0x2,0x2
1283 e603       |    |		Load	0x3,0x3
1284 01dc       |    |		Execute	Vector,Last
1285 027f       |    |		Execute	Discrete,Equal
1286 6807       |h   |		Jump_Zero	0x128e
1287 4801       |H   |		Short_Literal	0x1
1288 a5fb       |    |		Store_Unchecked	0x2,-0x5
1289 e5fc       |    |		Load	0x2,-0x4
128a 4800       |H   |		Short_Literal	0x0
128b 82a2       |    |		Call	0x1,0xa2
128c 00d1       |    |		Pop_Control	Pop_Count_1
128d 7831       |x1  |		Jump	0x12bf
128e 4800       |H   |		Short_Literal	0x0
128f a5fb       |    |		Store_Unchecked	0x2,-0x5
1290 e602       |    |		Load	0x3,0x2
1291 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
1292 6823       |h#  |		Jump_Zero	0x12b6
1293 4800       |H   |		Short_Literal	0x0
1294 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
1295 00cf       |    |		Action	Mark_Auxiliary
1296 e603       |    |		Load	0x3,0x3
1297 01dc       |    |		Execute	Vector,Last
1298 e402       |    |		Load	0x2,0x2
1299 0263       | c  |		Execute	Discrete,Above_Bound
129a 7013       |p   |		Jump_Nonzero	0x12ae
129b e609       |    |		Load	0x3,0x9
129c 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
129d 00d9       |    |		Load_Top	At_Offset_1
129e e603       |    |		Load	0x3,0x3
129f 01d7       |    |		Execute	Vector,Field_Read
12a0 0273       | s  |		Execute	Discrete,Plus
12a1 a60a       |    |		Store_Unchecked	0x3,0xa
12a2 e60a       |    |		Load	0x3,0xa
12a3 e602       |    |		Load	0x3,0x2
12a4 0270       | p  |		Execute	Discrete,Divide
12a5 00d9       |    |		Load_Top	At_Offset_1
12a6 e603       |    |		Load	0x3,0x3
12a7 01d6       |    |		Execute	Vector,Field_Write
12a8 e60a       |    |		Load	0x3,0xa
12a9 e602       |    |		Load	0x3,0x2
12aa 026f       | o  |		Execute	Discrete,Remainder
12ab a609       |    |		Store_Unchecked	0x3,0x9
12ac 00c8       |    |		Action	Pop_Auxiliary_Range
12ad 3fed       |?   |		Loop_Increasing	0x129b
12ae 00ce       |    |		Action	Pop_Auxiliary
12af e402       |    |		Load	0x2,0x2
12b0 e603       |    |		Load	0x3,0x3
12b1 01dc       |    |		Execute	Vector,Last
12b2 e603       |    |		Load	0x3,0x3
12b3 01cf       |    |		Execute	Vector,Slice_Read
12b4 82a9       |    |		Call	0x1,0xa9
12b5 a402       |    |		Store_Unchecked	0x2,0x2
12b6 e406       |    |		Load	0x2,0x6
12b7 6807       |h   |		Jump_Zero	0x12bf
12b8 e402       |    |		Load	0x2,0x2
12b9 e603       |    |		Load	0x3,0x3
12ba 01d7       |    |		Execute	Vector,Field_Read
12bb 0275       | u  |		Execute	Discrete,Unary_Minus
12bc e402       |    |		Load	0x2,0x2
12bd e603       |    |		Load	0x3,0x3
12be 01d6       |    |		Execute	Vector,Field_Write
12bf e5fc       |    |		Load	0x2,-0x4
12c0 4802       |H   |		Short_Literal	0x2
12c1 e603       |    |		Load	0x3,0x3
12c2 01dc       |    |		Execute	Vector,Last
12c3 e603       |    |		Load	0x3,0x3
12c4 01cf       |    |		Execute	Vector,Slice_Read
12c5 82a1       |    |		Call	0x1,0xa1
12c6 00d1       |    |		Pop_Control	Pop_Count_1
12c7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12c8 ; --------------------------------------------------------------------------------------
12c8 ; SUBPROGRAM
12c8 ; --------------------------------------------------------------------------------------
12c8 12e7       |    |		.CONST	0x12e7								; Address of begin
12c9 0004       |    |		.CONST	0x0004								; Address of exception handler
12ca 0004       |    |		.CONST	0x0004								; Number of locals
12cb			INIT_12c8:
12cb 4801       |H   |		Short_Literal	0x1
12cc e404       |    |		Load	0x2,0x4
12cd e405       |    |		Load	0x2,0x5
12ce 0273       | s  |		Execute	Discrete,Plus
12cf 00d8       |    |		Load_Top	At_Offset_0
12d0 00e2       |    |		Load_Encached	Integer_Cache
12d1 0260       | `  |		Execute	Discrete,In_Type
12d2 7001       |p   |		Jump_Nonzero	0x12d4
12d3 0801       |    |		Execute_Immediate	Raise,0x1
12d4 e220       |    |		Load	0x1,0x20
12d5 035b       | [  |		Declare_Type	Array,Constrained
12d6 0337       | 7  |		Declare_Variable	Array
12d7 00d8       |    |		Load_Top	At_Offset_0
12d8 0335       | 5  |		Declare_Variable	Array,Duplicate
12d9 00cd       |    |		Action	Spare6_Action
12da 00d9       |    |		Load_Top	At_Offset_1
12db 01d9       |    |		Execute	Vector,Reverse_Bounds
12dc 0263       | c  |		Execute	Discrete,Above_Bound
12dd 7005       |p   |		Jump_Nonzero	0x12e3
12de 4800       |H   |		Short_Literal	0x0
12df 00d9       |    |		Load_Top	At_Offset_1
12e0 e603       |    |		Load	0x3,0x3
12e1 01d6       |    |		Execute	Vector,Field_Write
12e2 3ffb       |?   |		Loop_Increasing	0x12de
12e3 00d9       |    |		Load_Top	At_Offset_1
12e4 01d4       |    |		Execute	Vector,Structure_Write
12e5 00e5       |    |		Load_Encached	Long_Integer_Cache
12e6 03e9       |    |		Declare_Variable	Discrete,Duplicate
12e7			BODY_12c8:
12e7 00cf       |    |		Action	Mark_Auxiliary
12e8 4801       |H   |		Short_Literal	0x1
12e9 e405       |    |		Load	0x2,0x5
12ea 0264       | d  |		Execute	Discrete,Below_Bound
12eb 7032       |p2  |		Jump_Nonzero	0x131e
12ec 4800       |H   |		Short_Literal	0x0
12ed a603       |    |		Store_Unchecked	0x3,0x3
12ee 00cf       |    |		Action	Mark_Auxiliary
12ef 4801       |H   |		Short_Literal	0x1
12f0 e404       |    |		Load	0x2,0x4
12f1 0264       | d  |		Execute	Discrete,Below_Bound
12f2 7024       |p$  |		Jump_Nonzero	0x1317
12f3 e402       |    |		Load	0x2,0x2
12f4 00d9       |    |		Load_Top	At_Offset_1
12f5 0273       | s  |		Execute	Discrete,Plus
12f6 0aff       |    |		Execute_Immediate	Plus,-0x1
12f7 e5ff       |    |		Load	0x2,-0x1
12f8 01d7       |    |		Execute	Vector,Field_Read
12f9 e403       |    |		Load	0x2,0x3
12fa e607       |    |		Load	0x3,0x7
12fb 0273       | s  |		Execute	Discrete,Plus
12fc 0aff       |    |		Execute_Immediate	Plus,-0x1
12fd e5fe       |    |		Load	0x2,-0x2
12fe 01d7       |    |		Execute	Vector,Field_Read
12ff 0271       | q  |		Execute	Discrete,Times
1300 0274       | t  |		Execute	Discrete,Absolute_Value
1301 00d9       |    |		Load_Top	At_Offset_1
1302 e607       |    |		Load	0x3,0x7
1303 0273       | s  |		Execute	Discrete,Plus
1304 e602       |    |		Load	0x3,0x2
1305 01d7       |    |		Execute	Vector,Field_Read
1306 0273       | s  |		Execute	Discrete,Plus
1307 e603       |    |		Load	0x3,0x3
1308 0273       | s  |		Execute	Discrete,Plus
1309 a604       |    |		Store_Unchecked	0x3,0x4
130a e604       |    |		Load	0x3,0x4
130b 602c       |`,  |		Indirect_Literal	Discrete,0x1338,{0x00000000, 0x80000000}
130c 026f       | o  |		Execute	Discrete,Remainder
130d 00d9       |    |		Load_Top	At_Offset_1
130e e607       |    |		Load	0x3,0x7
130f 0273       | s  |		Execute	Discrete,Plus
1310 e602       |    |		Load	0x3,0x2
1311 01d6       |    |		Execute	Vector,Field_Write
1312 e604       |    |		Load	0x3,0x4
1313 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
1314 a603       |    |		Store_Unchecked	0x3,0x3
1315 00c8       |    |		Action	Pop_Auxiliary_Range
1316 37dc       |7   |		Loop_Decreasing	0x12f3
1317 00ce       |    |		Action	Pop_Auxiliary
1318 e603       |    |		Load	0x3,0x3
1319 00d9       |    |		Load_Top	At_Offset_1
131a e602       |    |		Load	0x3,0x2
131b 01d6       |    |		Execute	Vector,Field_Write
131c 00c8       |    |		Action	Pop_Auxiliary_Range
131d 37ce       |7   |		Loop_Decreasing	0x12ec
131e 00ce       |    |		Action	Pop_Auxiliary
131f e402       |    |		Load	0x2,0x2
1320 e5ff       |    |		Load	0x2,-0x1
1321 01d7       |    |		Execute	Vector,Field_Read
1322 0d00       |    |		Execute_Immediate	Less,0x0
1323 e403       |    |		Load	0x2,0x3
1324 e5fe       |    |		Load	0x2,-0x2
1325 01d7       |    |		Execute	Vector,Field_Read
1326 0d00       |    |		Execute_Immediate	Less,0x0
1327 0277       | w  |		Execute	Discrete,Xor
1328 680a       |h   |		Jump_Zero	0x1333
1329 00da       |    |		Load_Top	At_Offset_2
132a 82a9       |    |		Call	0x1,0xa9
132b a402       |    |		Store_Unchecked	0x2,0x2
132c e402       |    |		Load	0x2,0x2
132d 00db       |    |		Load_Top	At_Offset_3
132e 01d7       |    |		Execute	Vector,Field_Read
132f 0275       | u  |		Execute	Discrete,Unary_Minus
1330 e402       |    |		Load	0x2,0x2
1331 e602       |    |		Load	0x3,0x2
1332 01d6       |    |		Execute	Vector,Field_Write
1333 e5fd       |    |		Load	0x2,-0x3
1334 00db       |    |		Load_Top	At_Offset_3
1335 82a1       |    |		Call	0x1,0xa1
1336 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1337 0000       |    |		.XXX[0x1]
1338 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
133c 0000 0000  |    |		.BLANK	0000[0x4]
1340 ; --------------------------------------------------------------------------------------
1340 ; SUBPROGRAM
1340 ; --------------------------------------------------------------------------------------
1340 1356       | V  |		.CONST	0x1356								; Address of begin
1341 0004       |    |		.CONST	0x0004								; Address of exception handler
1342 0005       |    |		.CONST	0x0005								; Number of locals
1343			INIT_1340:
1343 e403       |    |		Load	0x2,0x3
1344 e5fe       |    |		Load	0x2,-0x2
1345 82af       |    |		Call	0x1,0xaf
1346 0271       | q  |		Execute	Discrete,Times
1347 00e2       |    |		Load_Encached	Integer_Cache
1348 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1349 4801       |H   |		Short_Literal	0x1
134a 00d9       |    |		Load_Top	At_Offset_1
134b e220       |    |		Load	0x1,0x20
134c 035b       | [  |		Declare_Type	Array,Constrained
134d 0337       | 7  |		Declare_Variable	Array
134e 4801       |H   |		Short_Literal	0x1
134f 00da       |    |		Load_Top	At_Offset_2
1350 e220       |    |		Load	0x1,0x20
1351 035b       | [  |		Declare_Type	Array,Constrained
1352 0337       | 7  |		Declare_Variable	Array
1353 e5fe       |    |		Load	0x2,-0x2
1354 00e2       |    |		Load_Encached	Integer_Cache
1355 03f1       |    |		Declare_Variable	Discrete,With_Value
1356			BODY_1340:
1356 00d9       |    |		Load_Top	At_Offset_1
1357 e402       |    |		Load	0x2,0x2
1358 e5ff       |    |		Load	0x2,-0x1
1359 01dc       |    |		Execute	Vector,Last
135a e5ff       |    |		Load	0x2,-0x1
135b 01cf       |    |		Execute	Vector,Slice_Read
135c 8227       | '  |		Call	0x1,0x27
135d 82a1       |    |		Call	0x1,0xa1
135e 00d1       |    |		Pop_Control	Pop_Count_1
135f 00da       |    |		Load_Top	At_Offset_2
1360 4801       |H   |		Short_Literal	0x1
1361 82a2       |    |		Call	0x1,0xa2
1362 00d1       |    |		Pop_Control	Pop_Count_1
1363 00cf       |    |		Action	Mark_Auxiliary
1364 00d9       |    |		Load_Top	At_Offset_1
1365 4802       |H   |		Short_Literal	0x2
1366 026f       | o  |		Execute	Discrete,Remainder
1367 0f01       |    |		Execute_Immediate	Equal,0x1
1368 6805       |h   |		Jump_Zero	0x136e
1369 00db       |    |		Load_Top	At_Offset_3
136a 00db       |    |		Load_Top	At_Offset_3
136b e603       |    |		Load	0x3,0x3
136c 82ae       |    |		Call	0x1,0xae
136d 00d1       |    |		Pop_Control	Pop_Count_1
136e 00d9       |    |		Load_Top	At_Offset_1
136f 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
1370 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1371 00d9       |    |		Load_Top	At_Offset_1
1372 6807       |h   |		Jump_Zero	0x137a
1373 00da       |    |		Load_Top	At_Offset_2
1374 00db       |    |		Load_Top	At_Offset_3
1375 e604       |    |		Load	0x3,0x4
1376 82ae       |    |		Call	0x1,0xae
1377 00d1       |    |		Pop_Control	Pop_Count_1
1378 00c9       |    |		Action	Pop_Auxiliary_Loop
1379 7fea       |    |		Jump	0x1364
137a 00ce       |    |		Action	Pop_Auxiliary
137b e402       |    |		Load	0x2,0x2
137c e5ff       |    |		Load	0x2,-0x1
137d 01d7       |    |		Execute	Vector,Field_Read
137e 0d00       |    |		Execute_Immediate	Less,0x0
137f 680f       |h   |		Jump_Zero	0x138f
1380 e5fe       |    |		Load	0x2,-0x2
1381 4802       |H   |		Short_Literal	0x2
1382 026f       | o  |		Execute	Discrete,Remainder
1383 0f01       |    |		Execute_Immediate	Equal,0x1
1384 680a       |h   |		Jump_Zero	0x138f
1385 00da       |    |		Load_Top	At_Offset_2
1386 82a9       |    |		Call	0x1,0xa9
1387 a402       |    |		Store_Unchecked	0x2,0x2
1388 e402       |    |		Load	0x2,0x2
1389 00db       |    |		Load_Top	At_Offset_3
138a 01d7       |    |		Execute	Vector,Field_Read
138b 0275       | u  |		Execute	Discrete,Unary_Minus
138c e402       |    |		Load	0x2,0x2
138d e603       |    |		Load	0x3,0x3
138e 01d6       |    |		Execute	Vector,Field_Write
138f e5fd       |    |		Load	0x2,-0x3
1390 00db       |    |		Load_Top	At_Offset_3
1391 82a1       |    |		Call	0x1,0xa1
1392 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1393 0000 0000  |    |		.BLANK	0000[0x5]
1398 ; --------------------------------------------------------------------------------------
1398 ; SUBPROGRAM
1398 ; SUBPROGRAM
1398 ; --------------------------------------------------------------------------------------
1398 139b       |    |		.CONST	0x139b								; Address of begin
1399 0004       |    |		.CONST	0x0004								; Address of exception handler
139a 0001       |    |		.CONST	0x0001								; Number of locals
139b			BODY_1398:
139b			BODY_1398:
139b			INIT_1398:
139b			INIT_1398:
139b 4608       |F   |		Jump_Case	0x9
139c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
139d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
139e 7824       |x$  |		Jump	0x13c3								; case 0x2
139f 7823       |x#  |		Jump	0x13c3								; case 0x3
13a0 7822       |x"  |		Jump	0x13c3								; case 0x4
13a1 7821       |x!  |		Jump	0x13c3								; case 0x5
13a2 7820       |x   |		Jump	0x13c3								; case 0x6
13a3 7801       |x   |		Jump	0x13a5								; case 0x7
13a4 780e       |x   |		Jump	0x13b3								; case 0x8
13a5 e5fd       |    |		Load	0x2,-0x3
13a6 e5fe       |    |		Load	0x2,-0x2
13a7 4801       |H   |		Short_Literal	0x1
13a8 e5fd       |    |		Load	0x2,-0x3
13a9 e220       |    |		Load	0x1,0x20
13aa 035b       | [  |		Declare_Type	Array,Constrained
13ab 4801       |H   |		Short_Literal	0x1
13ac e5fe       |    |		Load	0x2,-0x2
13ad e220       |    |		Load	0x1,0x20
13ae 035b       | [  |		Declare_Type	Array,Constrained
13af 4802       |H   |		Short_Literal	0x2
13b0 e5ff       |    |		Load	0x2,-0x1
13b1 031b       |    |		Declare_Type	Variant_Record,Constrained
13b2 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
13b3 e5fd       |    |		Load	0x2,-0x3
13b4 e5fe       |    |		Load	0x2,-0x2
13b5 e5ff       |    |		Load	0x2,-0x1
13b6 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
13b7 4801       |H   |		Short_Literal	0x1
13b8 e5fd       |    |		Load	0x2,-0x3
13b9 e220       |    |		Load	0x1,0x20
13ba 0334       | 4  |		Declare_Variable	Array,With_Constraint
13bb 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
13bc 4801       |H   |		Short_Literal	0x1
13bd e5fe       |    |		Load	0x2,-0x2
13be e220       |    |		Load	0x1,0x20
13bf 0334       | 4  |		Declare_Variable	Array,With_Constraint
13c0 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
13c1 016a       | j  |		QQ_execute	Variant_Record,XXX
13c2 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
13c3 0869       | i  |		Execute_Immediate	Raise,0x69
13c4 0000 0000  |    |		.BLANK	0000[0x4]
13c8 ; --------------------------------------------------------------------------------------
13c8 ; SUBPROGRAM
13c8 ; --------------------------------------------------------------------------------------
13c8 13cb       |    |		.CONST	0x13cb								; Address of begin
13c9 0004       |    |		.CONST	0x0004								; Address of exception handler
13ca 0001       |    |		.CONST	0x0001								; Number of locals
13cb			BODY_13c8:
13cb			INIT_13c8:
13cb 4608       |F   |		Jump_Case	0x9
13cc 7808       |x   |		Jump	0x13d5								; case 0x0
13cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
13ce 7831       |x1  |		Jump	0x1400								; case 0x2
13cf 7830       |x0  |		Jump	0x1400								; case 0x3
13d0 782f       |x/  |		Jump	0x1400								; case 0x4
13d1 782e       |x.  |		Jump	0x1400								; case 0x5
13d2 782d       |x-  |		Jump	0x1400								; case 0x6
13d3 780e       |x   |		Jump	0x13e2								; case 0x7
13d4 781b       |x   |		Jump	0x13f0								; case 0x8
13d5 00da       |    |		Load_Top	At_Offset_2
13d6 016c       | l  |		Execute	Variant_Record,Is_Constrained
13d7 7009       |p   |		Jump_Nonzero	0x13e1
13d8 00cf       |    |		Action	Mark_Auxiliary
13d9 4801       |H   |		Short_Literal	0x1
13da 4801       |H   |		Short_Literal	0x1
13db e5ff       |    |		Load	0x2,-0x1
13dc 1c08       |    |		Execute_Immediate	Run_Utility,0x8
13dd 00d8       |    |		Load_Top	At_Offset_0
13de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
13df c5ff       |    |		Store	0x2,-0x1
13e0 00ce       |    |		Action	Pop_Auxiliary
13e1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
13e2 e5fd       |    |		Load	0x2,-0x3
13e3 e5fe       |    |		Load	0x2,-0x2
13e4 4801       |H   |		Short_Literal	0x1
13e5 e5fd       |    |		Load	0x2,-0x3
13e6 e220       |    |		Load	0x1,0x20
13e7 035b       | [  |		Declare_Type	Array,Constrained
13e8 4801       |H   |		Short_Literal	0x1
13e9 e5fe       |    |		Load	0x2,-0x2
13ea e220       |    |		Load	0x1,0x20
13eb 035b       | [  |		Declare_Type	Array,Constrained
13ec 4802       |H   |		Short_Literal	0x2
13ed e5ff       |    |		Load	0x2,-0x1
13ee 031b       |    |		Declare_Type	Variant_Record,Constrained
13ef 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
13f0 e5fd       |    |		Load	0x2,-0x3
13f1 e5fe       |    |		Load	0x2,-0x2
13f2 e5ff       |    |		Load	0x2,-0x1
13f3 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
13f4 4801       |H   |		Short_Literal	0x1
13f5 e5fd       |    |		Load	0x2,-0x3
13f6 e220       |    |		Load	0x1,0x20
13f7 0334       | 4  |		Declare_Variable	Array,With_Constraint
13f8 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
13f9 4801       |H   |		Short_Literal	0x1
13fa e5fe       |    |		Load	0x2,-0x2
13fb e220       |    |		Load	0x1,0x20
13fc 0334       | 4  |		Declare_Variable	Array,With_Constraint
13fd 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
13fe 016a       | j  |		QQ_execute	Variant_Record,XXX
13ff 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1400 0869       | i  |		Execute_Immediate	Raise,0x69
1401 0000 0000  |    |		.BLANK	0000[0x7]
1408 ; --------------------------------------------------------------------------------------
1408 ; SUBPROGRAM
1408 ; --------------------------------------------------------------------------------------
1408 140b       |    |		.CONST	0x140b								; Address of begin
1409 0004       |    |		.CONST	0x0004								; Address of exception handler
140a 0001       |    |		.CONST	0x0001								; Number of locals
140b			BODY_1408:
140b			INIT_1408:
140b 4608       |F   |		Jump_Case	0x9
140c 7808       |x   |		Jump	0x1415								; case 0x0
140d 781b       |x   |		Jump	0x1429								; case 0x1
140e 783d       |x=  |		Jump	0x144c								; case 0x2
140f 783c       |x<  |		Jump	0x144c								; case 0x3
1410 783b       |x;  |		Jump	0x144c								; case 0x4
1411 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
1412 7839       |x9  |		Jump	0x144c								; case 0x6
1413 7818       |x   |		Jump	0x142c								; case 0x7
1414 7826       |x&  |		Jump	0x143b								; case 0x8
1415 00da       |    |		Load_Top	At_Offset_2
1416 016c       | l  |		Execute	Variant_Record,Is_Constrained
1417 700b       |p   |		Jump_Nonzero	0x1423
1418 00cf       |    |		Action	Mark_Auxiliary
1419 4801       |H   |		Short_Literal	0x1
141a 4801       |H   |		Short_Literal	0x1
141b 4801       |H   |		Short_Literal	0x1
141c e5ff       |    |		Load	0x2,-0x1
141d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
141e 00d8       |    |		Load_Top	At_Offset_0
141f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1420 c5ff       |    |		Store	0x2,-0x1
1421 00ce       |    |		Action	Pop_Auxiliary
1422 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
1423 00da       |    |		Load_Top	At_Offset_2
1424 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
1425 00da       |    |		Load_Top	At_Offset_2
1426 2507       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x7
1427 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1428 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
1429 00da       |    |		Load_Top	At_Offset_2
142a 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
142b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
142c e5fc       |    |		Load	0x2,-0x4
142d e5fd       |    |		Load	0x2,-0x3
142e e5fe       |    |		Load	0x2,-0x2
142f 4801       |H   |		Short_Literal	0x1
1430 e5fc       |    |		Load	0x2,-0x4
1431 e260       | `  |		Load	0x1,0x60
1432 035b       | [  |		Declare_Type	Array,Constrained
1433 e5fd       |    |		Load	0x2,-0x3
1434 e5fe       |    |		Load	0x2,-0x2
1435 e23f       | ?  |		Load	0x1,0x3f
1436 1c07       |    |		Execute_Immediate	Run_Utility,0x7
1437 4802       |H   |		Short_Literal	0x2
1438 e5ff       |    |		Load	0x2,-0x1
1439 031b       |    |		Declare_Type	Variant_Record,Constrained
143a 4204       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x4
143b e5fc       |    |		Load	0x2,-0x4
143c e5fd       |    |		Load	0x2,-0x3
143d e5fe       |    |		Load	0x2,-0x2
143e e5ff       |    |		Load	0x2,-0x1
143f 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
1440 4801       |H   |		Short_Literal	0x1
1441 e5fc       |    |		Load	0x2,-0x4
1442 e260       | `  |		Load	0x1,0x60
1443 0334       | 4  |		Declare_Variable	Array,With_Constraint
1444 2d06       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6
1445 e5fd       |    |		Load	0x2,-0x3
1446 e5fe       |    |		Load	0x2,-0x2
1447 e23f       | ?  |		Load	0x1,0x3f
1448 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1449 2d07       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7
144a 016a       | j  |		QQ_execute	Variant_Record,XXX
144b 4204       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x4
144c 0869       | i  |		Execute_Immediate	Raise,0x69
144d ; --------------------------------------------------------------------------------------
144d ; STRING TABLE
144d ; --------------------------------------------------------------------------------------
144d 0008       |    |		.STRTAB	0x0008->0x1451							; "QUOTIENT"
144e 000e       |    |		.STRTAB	0x000e->0x1455							; "REMAINDER"
144f 0015       |    |		.STRTAB	0x0015->0x1459							; "BOTH"
1450 0017       |    |		.STREND 0x0017->0x145b
1451 5155 4f54  |QUOT|		.STRTAB_STRINGS
145c 0000 0000  |    |		.BLANK	0000[0x4]
1460 ; --------------------------------------------------------------------------------------
1460 ; Debug Table
1460 ; --------------------------------------------------------------------------------------
1460 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x2e77,0x0000,0x0001,0x0000
1466 0be1 0b00  |    |		.XXX[0x3]
1468 0141       | A  |
1469 0000 0000  |    |		.BLANK	0000[0x4]
146d 000d 0be1  |    |		.XXX[0x4]
146f 0b00 0141  |   A|
1471 0000 0000  |    |		.BLANK	0000[0x4]
1475 0001 0008  |    |		.XXX[0xa]
1477 5805 8f20  |X   |
1479 0000 0800  |    |
147b 0000 03d0  |    |
147d 263c 8000  |&<  |
147f 0000 0000  |    |		.BLANK	0000[0x5]
1484 01f2 5340  |  S@|		.XXX[0x11]
1486 01f2 91d0  |    |
1488 fe38 10b0  | 8  |
148a 003b 4030  | ;@0|
148c 0000 0040  |   @|
148e 0000 0000  |    |
1490 01f8 6e58  |  nX|
1492 0800 2900  |  ) |
1494 2001       |    |
1495 0000 0000  |    |		.BLANK	0000[0xb]
14a0 000f 93ac  |    |		.XXX[0xe]
14a2 000f 9520  |    |
14a4 8080 042c  |   ,|
14a6 0248 1000  | H  |
14a8 0004 0000  |    |
14aa 0001 e809  |    |
14ac 2045 8000  | E  |
14ae 0000 0000  |    |		.BLANK	0000[0x5]
14b3 f948 e800  | H  |		.XXX[0x7]
14b5 f967 2868  | g(h|
14b7 5f08 5800  |_ X |
14b9 0a08       |    |
14ba 0000 0000  |    |		.BLANK	0000[0x4]
14be 0068 5f08  | h_ |		.XXX[0x4]
14c0 5800 0a08  |X   |
14c2 0000 0000  |    |		.BLANK	0000[0x4]
14c6 0068 5f08  | h_ |		.XXX[0x4]
14c8 5800 0a08  |X   |
14ca 0000 0000  |    |		.BLANK	0000[0x4]
14ce 0008 006d  |   m|		.XXX[0x3]
14d0 8800       |    |
14d1 0000 0000  |    |		.BLANK	0000[0xc]
14dd 0f95 2080  |    |		.XXX[0xf]
14df 0f97 4486  |  D |
14e1 85f0 8580  |    |
14e3 00a0 8000  |    |
14e5 0000 0000  |    |
14e7 0000 0002  |    |
14e9 4d00 0000  |M   |
14eb 2800       |(   |
14ec 0000 0000  |    |		.BLANK	0000[0xb]
14f7 00f9 6728  |  g(|		.XXX[0x8]
14f9 00f9 8168  |   h|
14fb 685f 0858  |h_ X|
14fd 000a 0800  |    |
14ff 0000 0000  |    |		.BLANK	0000[0x4]
1503 0800 7500  |  u |		.XXX[0x3]
1505 7800       |x   |
1506 0000 0000  |    |		.BLANK	0000[0xb]
1511 000f 9744  |   D|		.XXX[0x8]
1513 800f 98e8  |    |
1515 8685 f085  |    |
1517 8000 a080  |    |
1519 0000 0000  |    |		.BLANK	0000[0x4]
151d 0080 0290  |    |		.XXX[0x4]
151f 0221 b000  | !  |
1521 0000 0000  |    |		.BLANK	0000[0xb]
152c f981 6800  |  h |		.XXX[0xd]
152e f997 a808  |    |
1530 0042 c02c  | B ,|
1532 7a00 0000  |z   |
1534 4000 0000  |@   |
1536 1e81 31e8  |  1 |
1538 0400       |    |
1539 0000 0000  |    |		.BLANK	0000[0x5]
153e 0f98 e880  |    |		.XXX[0x6]
1540 0f9a 9e80  |    |
1542 c100 2100  |  ! |
1544 0000 0000  |    |		.BLANK	0000[0xc]
1550 00f9 97a8  |    |		.XXX[0x7]
1552 00f1 ef90  |    |
1554 0800 3240  |  2@|
1556 4000       |@   |
1557 0000 0000  |    |		.BLANK	0000[0xb]
1562 000f 997a  |   z|		.XXX[0x5]
1564 800f 9b30  |   0|
1566 bfce       |    |
1567 0000 0000  |    |		.BLANK	0000[0xe]
1575 f9a9 e800  |    |		.XXX[0xc]
1577 f9bc 2810  |  ( |
1579 a000 b200  |    |
157b 0000 0000  |    |
157d d0be 10b0  |    |
157f 000f ca40  |   @|
1581 0000 0000  |    |		.BLANK	0000[0x6]
1587 0f9b 3080  |  0 |		.XXX[0x5]
1589 0f9c 54bf  |  T |
158b cb00       |    |
158c 0000 0000  |    |		.BLANK	0000[0xd]
1599 00f9 bc28  |   (|		.XXX[0x6]
159b 00f9 ce68  |   h|
159d 2100 0010  |!   |
159f 0000 0000  |    |		.BLANK	0000[0xc]
15ab 000f 9c54  |   T|		.XXX[0x7]
15ad 800f 9d78  |   x|
15af 824d 0000  | M  |
15b1 0002       |    |
15b2 0000 0000  |    |		.BLANK	0000[0xc]
15be f9ce 6800  |  h |		.XXX[0x8]
15c0 f9f1 687f  |  h |
15c2 1c08 5800  |  X |
15c4 1e0b 63fe  |  c |
15c6 0000 0000  |    |		.BLANK	0000[0xc]
15d2 07f1 c085  |    |		.XXX[0x5]
15d4 8001 e256  |   V|
15d6 bfe0       |    |
15d7 0000 0000  |    |		.BLANK	0000[0xc]
15e3 0800 2900  |  ) |		.XXX[0x3]
15e5 221c       |"   |
15e6 0000 0000  |    |		.BLANK	0000[0xb]
15f1 000f 9d78  |   x|		.XXX[0x8]
15f3 800f 9fa8  |    |
15f5 8080 0290  |    |
15f7 0200 2000  |    |
15f9 0000 0000  |    |		.BLANK	0000[0x7]