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

⟦00bd7fd7a⟧

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

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 1470       | p  |		.CONST	0x1470								; 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 0382       |    |		.CONST	0x0382								; 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 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
0011 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
0013 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0015 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0017 029a 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Outer_Call,Visible,Unelaborated
0019 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
001b 029a 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call,Visible,Unelaborated
001d 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
001f 029a 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call,Visible,Unelaborated
0021 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
0023 029a 040b  |    |		Declare_Subprogram	INIT_0408,For_Outer_Call,Visible,Unelaborated
0025 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
0027 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
0029 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
002b 029a 044b  |   K|		Declare_Subprogram	INIT_0448,For_Outer_Call,Visible,Unelaborated
002d 029a 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call,Visible,Unelaborated
002f 6358       |cX  |		Indirect_Literal	Discrete,0x388,{0xffffffff, 0x80000001}
0030 6353       |cS  |		Indirect_Literal	Discrete,0x384,{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 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
003b 029a 0473  |   s|		Declare_Subprogram	INIT_0470,For_Outer_Call,Visible,Unelaborated
003d 029a 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call,Visible,Unelaborated
003f 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
0041 029a 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call,Visible,Unelaborated
0043 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated
0045 029a 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call,Visible,Unelaborated
0047 029a 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call,Visible,Unelaborated
0049 029a 0513  |    |		Declare_Subprogram	INIT_0510,For_Outer_Call,Visible,Unelaborated
004b 029a 051b  |    |		Declare_Subprogram	INIT_0518,For_Outer_Call,Visible,Unelaborated
004d 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
004f 029a 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call,Visible,Unelaborated
0051 029a 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call,Visible,Unelaborated
0053 029a 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call,Visible,Unelaborated
0055 029a 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call,Visible,Unelaborated
0057 029a 05cb  |    |		Declare_Subprogram	INIT_05c8,For_Outer_Call,Visible,Unelaborated
0059 029a 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call,Visible,Unelaborated
005b 029a 05db  |    |		Declare_Subprogram	INIT_05d8,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 13db  |    |		Declare_Subprogram	INIT_13d8,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 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Outer_Call,Visible,Unelaborated
006c 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
006e 029a 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call,Visible,Unelaborated
0070 029a 065b  |   [|		Declare_Subprogram	INIT_0658,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 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call,Visible,Unelaborated
0078 029a 0693  |    |		Declare_Subprogram	INIT_0690,For_Outer_Call,Visible,Unelaborated
007a 029a 06e3  |    |		Declare_Subprogram	INIT_06e0,For_Outer_Call,Visible,Unelaborated
007c 029a 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Outer_Call,Visible,Unelaborated
007e 029a 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Outer_Call,Visible,Unelaborated
0080 029a 06fb  |    |		Declare_Subprogram	INIT_06f8,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 13ab  |    |		Declare_Subprogram	INIT_13a8,For_Call
008b 00d9       |    |		Load_Top	At_Offset_1
008c 012a       | *  |		Execute	Any,Change_Utility
008d 0007       |    |		Action	Break_Optional
008e 029a 0703  |    |		Declare_Subprogram	INIT_0700,For_Outer_Call,Visible,Unelaborated
0090 029a 0713  |    |		Declare_Subprogram	INIT_0710,For_Outer_Call,Visible,Unelaborated
0092 029a 071b  |    |		Declare_Subprogram	INIT_0718,For_Outer_Call,Visible,Unelaborated
0094 029a 0723  |   #|		Declare_Subprogram	INIT_0720,For_Outer_Call,Visible,Unelaborated
0096 029a 0733  |   3|		Declare_Subprogram	INIT_0730,For_Outer_Call,Visible,Unelaborated
0098 029a 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Outer_Call,Visible,Unelaborated
009a 029a 074b  |   K|		Declare_Subprogram	INIT_0748,For_Outer_Call,Visible,Unelaborated
009c 029a 075b  |   [|		Declare_Subprogram	INIT_0758,For_Outer_Call,Visible,Unelaborated
009e 029a 0773  |   s|		Declare_Subprogram	INIT_0770,For_Outer_Call,Visible,Unelaborated
00a0 029a 078b  |    |		Declare_Subprogram	INIT_0788,For_Outer_Call,Visible,Unelaborated
00a2 029a 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call,Visible,Unelaborated
00a4 029a 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Outer_Call,Visible,Unelaborated
00a6 029a 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Outer_Call,Visible,Unelaborated
00a8 029a 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Outer_Call,Visible,Unelaborated
00aa 029a 080b  |    |		Declare_Subprogram	INIT_0808,For_Outer_Call,Visible,Unelaborated
00ac 029a 081b  |    |		Declare_Subprogram	INIT_0818,For_Outer_Call,Visible,Unelaborated
00ae 029a 082b  |   +|		Declare_Subprogram	INIT_0828,For_Outer_Call,Visible,Unelaborated
00b0 029a 083b  |   ;|		Declare_Subprogram	INIT_0838,For_Outer_Call,Visible,Unelaborated
00b2 029a 084b  |   K|		Declare_Subprogram	INIT_0848,For_Outer_Call,Visible,Unelaborated
00b4 029a 085b  |   [|		Declare_Subprogram	INIT_0858,For_Outer_Call,Visible,Unelaborated
00b6 029a 0863  |   c|		Declare_Subprogram	INIT_0860,For_Outer_Call,Visible,Unelaborated
00b8 029a 0873  |   s|		Declare_Subprogram	INIT_0870,For_Outer_Call,Visible,Unelaborated
00ba 029a 087b  |   {|		Declare_Subprogram	INIT_0878,For_Outer_Call,Visible,Unelaborated
00bc 029a 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call,Visible,Unelaborated
00be 029a 088b  |    |		Declare_Subprogram	INIT_0888,For_Outer_Call,Visible,Unelaborated
00c0 029a 0893  |    |		Declare_Subprogram	INIT_0890,For_Outer_Call,Visible,Unelaborated
00c2 029a 089b  |    |		Declare_Subprogram	INIT_0898,For_Outer_Call,Visible,Unelaborated
00c4 029a 08a3  |    |		Declare_Subprogram	INIT_08a0,For_Outer_Call,Visible,Unelaborated
00c6 029a 08ab  |    |		Declare_Subprogram	INIT_08a8,For_Outer_Call,Visible,Unelaborated
00c8 029a 08b3  |    |		Declare_Subprogram	INIT_08b0,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 141b  |    |		Declare_Subprogram	INIT_1418,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 08bb  |    |		Declare_Subprogram	INIT_08b8,For_Outer_Call,Visible,Unelaborated
00e6 029a 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Outer_Call,Visible,Unelaborated
00e8 029a 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call,Visible,Unelaborated
00ea 029a 08eb  |    |		Declare_Subprogram	INIT_08e8,For_Outer_Call,Visible,Unelaborated
00ec 029a 090b  |    |		Declare_Subprogram	INIT_0908,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 0923  |   #|		Declare_Subprogram	INIT_0920,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 13ab  |    |		Declare_Subprogram	INIT_13a8,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 092b  |   +|		Declare_Subprogram	INIT_0928,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 035b       | [  |		Declare_Type	Array,Constrained
0192 0337       | 7  |		Declare_Variable	Array
0193 4800       |H   |		Short_Literal	0x0
0194 4801       |H   |		Short_Literal	0x1
0195 00da       |    |		Load_Top	At_Offset_2
0196 01d6       |    |		Execute	Vector,Field_Write
0197 4801       |H   |		Short_Literal	0x1
0198 4801       |H   |		Short_Literal	0x1
0199 e220       |    |		Load	0x1,0x20
019a 035b       | [  |		Declare_Type	Array,Constrained
019b 0337       | 7  |		Declare_Variable	Array
019c 4801       |H   |		Short_Literal	0x1
019d 4801       |H   |		Short_Literal	0x1
019e 00da       |    |		Load_Top	At_Offset_2
019f 01d6       |    |		Execute	Vector,Field_Write
01a0 4801       |H   |		Short_Literal	0x1
01a1 4801       |H   |		Short_Literal	0x1
01a2 e220       |    |		Load	0x1,0x20
01a3 035b       | [  |		Declare_Type	Array,Constrained
01a4 0337       | 7  |		Declare_Variable	Array
01a5 4802       |H   |		Short_Literal	0x2
01a6 4801       |H   |		Short_Literal	0x1
01a7 00da       |    |		Load_Top	At_Offset_2
01a8 01d6       |    |		Execute	Vector,Field_Write
01a9 4801       |H   |		Short_Literal	0x1
01aa 4801       |H   |		Short_Literal	0x1
01ab e220       |    |		Load	0x1,0x20
01ac 035b       | [  |		Declare_Type	Array,Constrained
01ad 0337       | 7  |		Declare_Variable	Array
01ae 480a       |H   |		Short_Literal	0xa
01af 4801       |H   |		Short_Literal	0x1
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 01d6       |    |		Execute	Vector,Field_Write
01b2 4801       |H   |		Short_Literal	0x1
01b3 4801       |H   |		Short_Literal	0x1
01b4 e23f       | ?  |		Load	0x1,0x3f
01b5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b6 e295       |    |		Load	0x1,0x95
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 00d8       |    |		Load_Top	At_Offset_0
01b9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01ba 00da       |    |		Load_Top	At_Offset_2
01bb 01da       |    |		Execute	Vector,Bounds
01bc 00da       |    |		Load_Top	At_Offset_2
01bd 01da       |    |		Execute	Vector,Bounds
01be 00da       |    |		Load_Top	At_Offset_2
01bf 027f       |    |		Execute	Discrete,Equal
01c0 7001       |p   |		Jump_Nonzero	0x1c2
01c1 08e0       |    |		Execute_Immediate	Raise,0xe0
01c2 00cd       |    |		Action	Spare6_Action
01c3 027f       |    |		Execute	Discrete,Equal
01c4 7001       |p   |		Jump_Nonzero	0x1c6
01c5 08e0       |    |		Execute_Immediate	Raise,0xe0
01c6 00d2       |    |		Pop_Control	Pop_Count_2
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
01c9 00db       |    |		Load_Top	At_Offset_3
01ca 00d9       |    |		Load_Top	At_Offset_1
01cb 00d8       |    |		Load_Top	At_Offset_0
01cc 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01cd 00da       |    |		Load_Top	At_Offset_2
01ce 01da       |    |		Execute	Vector,Bounds
01cf 00da       |    |		Load_Top	At_Offset_2
01d0 01da       |    |		Execute	Vector,Bounds
01d1 00da       |    |		Load_Top	At_Offset_2
01d2 027f       |    |		Execute	Discrete,Equal
01d3 7001       |p   |		Jump_Nonzero	0x1d5
01d4 08e0       |    |		Execute_Immediate	Raise,0xe0
01d5 00cd       |    |		Action	Spare6_Action
01d6 027f       |    |		Execute	Discrete,Equal
01d7 7001       |p   |		Jump_Nonzero	0x1d9
01d8 08e0       |    |		Execute_Immediate	Raise,0xe0
01d9 00d2       |    |		Pop_Control	Pop_Count_2
01da 00d9       |    |		Load_Top	At_Offset_1
01db 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
01dc 4801       |H   |		Short_Literal	0x1
01dd 4801       |H   |		Short_Literal	0x1
01de e23f       | ?  |		Load	0x1,0x3f
01df 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01e0 e296       |    |		Load	0x1,0x96
01e1 00d9       |    |		Load_Top	At_Offset_1
01e2 00d8       |    |		Load_Top	At_Offset_0
01e3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01e4 00da       |    |		Load_Top	At_Offset_2
01e5 01da       |    |		Execute	Vector,Bounds
01e6 00da       |    |		Load_Top	At_Offset_2
01e7 01da       |    |		Execute	Vector,Bounds
01e8 00da       |    |		Load_Top	At_Offset_2
01e9 027f       |    |		Execute	Discrete,Equal
01ea 7001       |p   |		Jump_Nonzero	0x1ec
01eb 08e0       |    |		Execute_Immediate	Raise,0xe0
01ec 00cd       |    |		Action	Spare6_Action
01ed 027f       |    |		Execute	Discrete,Equal
01ee 7001       |p   |		Jump_Nonzero	0x1f0
01ef 08e0       |    |		Execute_Immediate	Raise,0xe0
01f0 00d2       |    |		Pop_Control	Pop_Count_2
01f1 00d9       |    |		Load_Top	At_Offset_1
01f2 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
01f3 00db       |    |		Load_Top	At_Offset_3
01f4 00d9       |    |		Load_Top	At_Offset_1
01f5 00d8       |    |		Load_Top	At_Offset_0
01f6 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01f7 00da       |    |		Load_Top	At_Offset_2
01f8 01da       |    |		Execute	Vector,Bounds
01f9 00da       |    |		Load_Top	At_Offset_2
01fa 01da       |    |		Execute	Vector,Bounds
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 027f       |    |		Execute	Discrete,Equal
01fd 7001       |p   |		Jump_Nonzero	0x1ff
01fe 08e0       |    |		Execute_Immediate	Raise,0xe0
01ff 00cd       |    |		Action	Spare6_Action
0200 027f       |    |		Execute	Discrete,Equal
0201 7001       |p   |		Jump_Nonzero	0x203
0202 08e0       |    |		Execute_Immediate	Raise,0xe0
0203 00d2       |    |		Pop_Control	Pop_Count_2
0204 00d9       |    |		Load_Top	At_Offset_1
0205 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0206 4801       |H   |		Short_Literal	0x1
0207 4801       |H   |		Short_Literal	0x1
0208 e23f       | ?  |		Load	0x1,0x3f
0209 1c08       |    |		Execute_Immediate	Run_Utility,0x8
020a e296       |    |		Load	0x1,0x96
020b 00d9       |    |		Load_Top	At_Offset_1
020c 00d8       |    |		Load_Top	At_Offset_0
020d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
020e 00da       |    |		Load_Top	At_Offset_2
020f 01da       |    |		Execute	Vector,Bounds
0210 00da       |    |		Load_Top	At_Offset_2
0211 01da       |    |		Execute	Vector,Bounds
0212 00da       |    |		Load_Top	At_Offset_2
0213 027f       |    |		Execute	Discrete,Equal
0214 7001       |p   |		Jump_Nonzero	0x216
0215 08e0       |    |		Execute_Immediate	Raise,0xe0
0216 00cd       |    |		Action	Spare6_Action
0217 027f       |    |		Execute	Discrete,Equal
0218 7001       |p   |		Jump_Nonzero	0x21a
0219 08e0       |    |		Execute_Immediate	Raise,0xe0
021a 00d2       |    |		Pop_Control	Pop_Count_2
021b 00d9       |    |		Load_Top	At_Offset_1
021c 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
021d e296       |    |		Load	0x1,0x96
021e 00d9       |    |		Load_Top	At_Offset_1
021f 00d8       |    |		Load_Top	At_Offset_0
0220 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0221 00da       |    |		Load_Top	At_Offset_2
0222 01da       |    |		Execute	Vector,Bounds
0223 00da       |    |		Load_Top	At_Offset_2
0224 01da       |    |		Execute	Vector,Bounds
0225 00da       |    |		Load_Top	At_Offset_2
0226 027f       |    |		Execute	Discrete,Equal
0227 7001       |p   |		Jump_Nonzero	0x229
0228 08e0       |    |		Execute_Immediate	Raise,0xe0
0229 00cd       |    |		Action	Spare6_Action
022a 027f       |    |		Execute	Discrete,Equal
022b 7001       |p   |		Jump_Nonzero	0x22d
022c 08e0       |    |		Execute_Immediate	Raise,0xe0
022d 00d2       |    |		Pop_Control	Pop_Count_2
022e 00d9       |    |		Load_Top	At_Offset_1
022f 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0230 4801       |H   |		Short_Literal	0x1
0231 4801       |H   |		Short_Literal	0x1
0232 e23f       | ?  |		Load	0x1,0x3f
0233 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0234 e297       |    |		Load	0x1,0x97
0235 00d9       |    |		Load_Top	At_Offset_1
0236 00d8       |    |		Load_Top	At_Offset_0
0237 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0238 00da       |    |		Load_Top	At_Offset_2
0239 01da       |    |		Execute	Vector,Bounds
023a 00da       |    |		Load_Top	At_Offset_2
023b 01da       |    |		Execute	Vector,Bounds
023c 00da       |    |		Load_Top	At_Offset_2
023d 027f       |    |		Execute	Discrete,Equal
023e 7001       |p   |		Jump_Nonzero	0x240
023f 08e0       |    |		Execute_Immediate	Raise,0xe0
0240 00cd       |    |		Action	Spare6_Action
0241 027f       |    |		Execute	Discrete,Equal
0242 7001       |p   |		Jump_Nonzero	0x244
0243 08e0       |    |		Execute_Immediate	Raise,0xe0
0244 00d2       |    |		Pop_Control	Pop_Count_2
0245 00d9       |    |		Load_Top	At_Offset_1
0246 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0247 e296       |    |		Load	0x1,0x96
0248 00d9       |    |		Load_Top	At_Offset_1
0249 00d8       |    |		Load_Top	At_Offset_0
024a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
024b 00da       |    |		Load_Top	At_Offset_2
024c 01da       |    |		Execute	Vector,Bounds
024d 00da       |    |		Load_Top	At_Offset_2
024e 01da       |    |		Execute	Vector,Bounds
024f 00da       |    |		Load_Top	At_Offset_2
0250 027f       |    |		Execute	Discrete,Equal
0251 7001       |p   |		Jump_Nonzero	0x253
0252 08e0       |    |		Execute_Immediate	Raise,0xe0
0253 00cd       |    |		Action	Spare6_Action
0254 027f       |    |		Execute	Discrete,Equal
0255 7001       |p   |		Jump_Nonzero	0x257
0256 08e0       |    |		Execute_Immediate	Raise,0xe0
0257 00d2       |    |		Pop_Control	Pop_Count_2
0258 00d9       |    |		Load_Top	At_Offset_1
0259 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
025a 4801       |H   |		Short_Literal	0x1
025b 4801       |H   |		Short_Literal	0x1
025c e23f       | ?  |		Load	0x1,0x3f
025d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
025e e298       |    |		Load	0x1,0x98
025f 00d9       |    |		Load_Top	At_Offset_1
0260 00d8       |    |		Load_Top	At_Offset_0
0261 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0262 00da       |    |		Load_Top	At_Offset_2
0263 01da       |    |		Execute	Vector,Bounds
0264 00da       |    |		Load_Top	At_Offset_2
0265 01da       |    |		Execute	Vector,Bounds
0266 00da       |    |		Load_Top	At_Offset_2
0267 027f       |    |		Execute	Discrete,Equal
0268 7001       |p   |		Jump_Nonzero	0x26a
0269 08e0       |    |		Execute_Immediate	Raise,0xe0
026a 00cd       |    |		Action	Spare6_Action
026b 027f       |    |		Execute	Discrete,Equal
026c 7001       |p   |		Jump_Nonzero	0x26e
026d 08e0       |    |		Execute_Immediate	Raise,0xe0
026e 00d2       |    |		Pop_Control	Pop_Count_2
026f 00d9       |    |		Load_Top	At_Offset_1
0270 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0271 e296       |    |		Load	0x1,0x96
0272 00d9       |    |		Load_Top	At_Offset_1
0273 00d8       |    |		Load_Top	At_Offset_0
0274 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0275 00da       |    |		Load_Top	At_Offset_2
0276 01da       |    |		Execute	Vector,Bounds
0277 00da       |    |		Load_Top	At_Offset_2
0278 01da       |    |		Execute	Vector,Bounds
0279 00da       |    |		Load_Top	At_Offset_2
027a 027f       |    |		Execute	Discrete,Equal
027b 7001       |p   |		Jump_Nonzero	0x27d
027c 08e0       |    |		Execute_Immediate	Raise,0xe0
027d 00cd       |    |		Action	Spare6_Action
027e 027f       |    |		Execute	Discrete,Equal
027f 7001       |p   |		Jump_Nonzero	0x281
0280 08e0       |    |		Execute_Immediate	Raise,0xe0
0281 00d2       |    |		Pop_Control	Pop_Count_2
0282 00d9       |    |		Load_Top	At_Offset_1
0283 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0284 e267       | g  |		Load	0x1,0x67
0285 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
0286 0007       |    |		Action	Break_Optional
0287 e267       | g  |		Load	0x1,0x67
0288 192f       | /  |		Execute	Package,Field_Reference,Field_Number 0x2f
0289 0007       |    |		Action	Break_Optional
028a 029d 0953  |   S|		Declare_Subprogram	INIT_0950,For_Outer_Call
028c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
028d 00c7       |    |		Action	Elaborate_Subprogram
028e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
028f 00c7       |    |		Action	Elaborate_Subprogram
0290 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0291 00c7       |    |		Action	Elaborate_Subprogram
0292 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0293 00c7       |    |		Action	Elaborate_Subprogram
0294 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0295 00c7       |    |		Action	Elaborate_Subprogram
0296 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0297 00c7       |    |		Action	Elaborate_Subprogram
0298 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0299 00c7       |    |		Action	Elaborate_Subprogram
029a 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
029b 00c7       |    |		Action	Elaborate_Subprogram
029c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
029d 00c7       |    |		Action	Elaborate_Subprogram
029e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
029f 00c7       |    |		Action	Elaborate_Subprogram
02a0 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
02a1 00c7       |    |		Action	Elaborate_Subprogram
02a2 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
02a3 00c7       |    |		Action	Elaborate_Subprogram
02a4 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
02a5 00c7       |    |		Action	Elaborate_Subprogram
02a6 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
02a7 00c7       |    |		Action	Elaborate_Subprogram
02a8 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
02a9 00c7       |    |		Action	Elaborate_Subprogram
02aa 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
02ab 00c7       |    |		Action	Elaborate_Subprogram
02ac 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
02ad 00c7       |    |		Action	Elaborate_Subprogram
02ae 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
02af 00c7       |    |		Action	Elaborate_Subprogram
02b0 1d5d       | ]  |		Execute_Immediate	Reference_Lex_1,0x5d
02b1 00c7       |    |		Action	Elaborate_Subprogram
02b2 1d5c       | \  |		Execute_Immediate	Reference_Lex_1,0x5c
02b3 00c7       |    |		Action	Elaborate_Subprogram
02b4 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
02b5 00c7       |    |		Action	Elaborate_Subprogram
02b6 1d52       | R  |		Execute_Immediate	Reference_Lex_1,0x52
02b7 00c7       |    |		Action	Elaborate_Subprogram
02b8 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
02b9 00c7       |    |		Action	Elaborate_Subprogram
02ba 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
02bb 00c7       |    |		Action	Elaborate_Subprogram
02bc 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
02bd 00c7       |    |		Action	Elaborate_Subprogram
02be 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
02bf 00c7       |    |		Action	Elaborate_Subprogram
02c0 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
02c1 00c7       |    |		Action	Elaborate_Subprogram
02c2 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
02c3 00c7       |    |		Action	Elaborate_Subprogram
02c4 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
02c5 00c7       |    |		Action	Elaborate_Subprogram
02c6 029d 095b  |   [|		Declare_Subprogram	INIT_0958,For_Outer_Call
02c8 029d 098b  |    |		Declare_Subprogram	INIT_0988,For_Outer_Call
02ca 029d 09bb  |    |		Declare_Subprogram	INIT_09b8,For_Outer_Call
02cc 029d 09fb  |    |		Declare_Subprogram	INIT_09f8,For_Outer_Call
02ce 029d 0a1b  |    |		Declare_Subprogram	INIT_0a18,For_Outer_Call
02d0 029d 0a4b  |   K|		Declare_Subprogram	INIT_0a48,For_Outer_Call
02d2 029d 0a9b  |    |		Declare_Subprogram	INIT_0a98,For_Outer_Call
02d4 029d 0acb  |    |		Declare_Subprogram	INIT_0ac8,For_Outer_Call
02d6 029d 0bb3  |    |		Declare_Subprogram	INIT_0bb0,For_Outer_Call
02d8 029d 0bcb  |    |		Declare_Subprogram	INIT_0bc8,For_Outer_Call
02da 029d 0bf3  |    |		Declare_Subprogram	INIT_0bf0,For_Outer_Call
02dc 029d 0c53  |   S|		Declare_Subprogram	INIT_0c50,For_Outer_Call
02de 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
02df 00c7       |    |		Action	Elaborate_Subprogram
02e0 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
02e1 00c7       |    |		Action	Elaborate_Subprogram
02e2 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
02e3 00c7       |    |		Action	Elaborate_Subprogram
02e4 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
02e5 00c7       |    |		Action	Elaborate_Subprogram
02e6 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
02e7 00c7       |    |		Action	Elaborate_Subprogram
02e8 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
02e9 00c7       |    |		Action	Elaborate_Subprogram
02ea 029d 0ccb  |    |		Declare_Subprogram	INIT_0cc8,For_Outer_Call
02ec 029d 0d1b  |    |		Declare_Subprogram	INIT_0d18,For_Outer_Call
02ee 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
02ef 00c7       |    |		Action	Elaborate_Subprogram
02f0 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
02f1 00c7       |    |		Action	Elaborate_Subprogram
02f2 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
02f3 00c7       |    |		Action	Elaborate_Subprogram
02f4 029d 0d8b  |    |		Declare_Subprogram	INIT_0d88,For_Outer_Call
02f6 029d 0da3  |    |		Declare_Subprogram	INIT_0da0,For_Outer_Call
02f8 029d 0dd3  |    |		Declare_Subprogram	INIT_0dd0,For_Outer_Call
02fa 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
02fb 00c7       |    |		Action	Elaborate_Subprogram
02fc 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
02fd 00c7       |    |		Action	Elaborate_Subprogram
02fe 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
02ff 00c7       |    |		Action	Elaborate_Subprogram
0300 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0301 00c7       |    |		Action	Elaborate_Subprogram
0302 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0303 00c7       |    |		Action	Elaborate_Subprogram
0304 029d 0e1b  |    |		Declare_Subprogram	INIT_0e18,For_Outer_Call
0306 029d 0e2b  |   +|		Declare_Subprogram	INIT_0e28,For_Outer_Call
0308 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
0309 00c7       |    |		Action	Elaborate_Subprogram
030a 029d 0e5b  |   [|		Declare_Subprogram	INIT_0e58,For_Outer_Call
030c 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
030d 00c7       |    |		Action	Elaborate_Subprogram
030e 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
030f 00c7       |    |		Action	Elaborate_Subprogram
0310 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0311 00c7       |    |		Action	Elaborate_Subprogram
0312 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0313 00c7       |    |		Action	Elaborate_Subprogram
0314 029d 0e73  |   s|		Declare_Subprogram	INIT_0e70,For_Outer_Call
0316 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
0317 00c7       |    |		Action	Elaborate_Subprogram
0318 1d57       | W  |		Execute_Immediate	Reference_Lex_1,0x57
0319 00c7       |    |		Action	Elaborate_Subprogram
031a 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
031b 00c7       |    |		Action	Elaborate_Subprogram
031c 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
031d 00c7       |    |		Action	Elaborate_Subprogram
031e 1d4c       | L  |		Execute_Immediate	Reference_Lex_1,0x4c
031f 00c7       |    |		Action	Elaborate_Subprogram
0320 1d4d       | M  |		Execute_Immediate	Reference_Lex_1,0x4d
0321 00c7       |    |		Action	Elaborate_Subprogram
0322 1d4e       | N  |		Execute_Immediate	Reference_Lex_1,0x4e
0323 00c7       |    |		Action	Elaborate_Subprogram
0324 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
0325 00c7       |    |		Action	Elaborate_Subprogram
0326 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
0327 00c7       |    |		Action	Elaborate_Subprogram
0328 1d49       | I  |		Execute_Immediate	Reference_Lex_1,0x49
0329 00c7       |    |		Action	Elaborate_Subprogram
032a 1d4a       | J  |		Execute_Immediate	Reference_Lex_1,0x4a
032b 00c7       |    |		Action	Elaborate_Subprogram
032c 1d4b       | K  |		Execute_Immediate	Reference_Lex_1,0x4b
032d 00c7       |    |		Action	Elaborate_Subprogram
032e 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
032f 00c7       |    |		Action	Elaborate_Subprogram
0330 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
0331 00c7       |    |		Action	Elaborate_Subprogram
0332 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
0333 00c7       |    |		Action	Elaborate_Subprogram
0334 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
0335 00c7       |    |		Action	Elaborate_Subprogram
0336 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
0337 00c7       |    |		Action	Elaborate_Subprogram
0338 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
0339 00c7       |    |		Action	Elaborate_Subprogram
033a 1d51       | Q  |		Execute_Immediate	Reference_Lex_1,0x51
033b 00c7       |    |		Action	Elaborate_Subprogram
033c 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
033d 00c7       |    |		Action	Elaborate_Subprogram
033e 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
033f 00c7       |    |		Action	Elaborate_Subprogram
0340 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
0341 00c7       |    |		Action	Elaborate_Subprogram
0342 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0343 00c7       |    |		Action	Elaborate_Subprogram
0344 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0345 00c7       |    |		Action	Elaborate_Subprogram
0346 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0347 00c7       |    |		Action	Elaborate_Subprogram
0348 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0349 00c7       |    |		Action	Elaborate_Subprogram
034a 1d62       | b  |		Execute_Immediate	Reference_Lex_1,0x62
034b 00c7       |    |		Action	Elaborate_Subprogram
034c 1d63       | c  |		Execute_Immediate	Reference_Lex_1,0x63
034d 00c7       |    |		Action	Elaborate_Subprogram
034e 1d65       | e  |		Execute_Immediate	Reference_Lex_1,0x65
034f 00c7       |    |		Action	Elaborate_Subprogram
0350 1d64       | d  |		Execute_Immediate	Reference_Lex_1,0x64
0351 00c7       |    |		Action	Elaborate_Subprogram
0352 1d66       | f  |		Execute_Immediate	Reference_Lex_1,0x66
0353 00c7       |    |		Action	Elaborate_Subprogram
0354 00b6       |    |		Action	Make_Scope
0355 e002       |    |		Load	0x0,0x2
0356 e003       |    |		Load	0x0,0x3
0357 e004       |    |		Load	0x0,0x4
0358 e005       |    |		Load	0x0,0x5
0359 e006       |    |		Load	0x0,0x6
035a e007       |    |		Load	0x0,0x7
035b e008       |    |		Load	0x0,0x8
035c e009       |    |		Load	0x0,0x9
035d e00a       |    |		Load	0x0,0xa
035e e00b       |    |		Load	0x0,0xb
035f e00c       |    |		Load	0x0,0xc
0360 e00d       |    |		Load	0x0,0xd
0361 e00e       |    |		Load	0x0,0xe
0362 e00f       |    |		Load	0x0,0xf
0363 1da4       |    |		Execute_Immediate	Reference_Lex_1,0xa4
0364 1d9e       |    |		Execute_Immediate	Reference_Lex_1,0x9e
0365 e298       |    |		Load	0x1,0x98
0366 1da1       |    |		Execute_Immediate	Reference_Lex_1,0xa1
0367 e010       |    |		Load	0x0,0x10
0368 a011       |    |		Store_Unchecked	0x0,0x11
0369 e012       |    |		Load	0x0,0x12
036a e013       |    |		Load	0x0,0x13
036b e014       |    |		Load	0x0,0x14
036c e015       |    |		Load	0x0,0x15
036d e296       |    |		Load	0x1,0x96
036e e295       |    |		Load	0x1,0x95
036f e29a       |    |		Load	0x1,0x9a
0370 e29c       |    |		Load	0x1,0x9c
0371 e299       |    |		Load	0x1,0x99
0372 1db5       |    |		Execute_Immediate	Reference_Lex_1,0xb5
0373 e29d       |    |		Load	0x1,0x9d
0374 e016       |    |		Load	0x0,0x16
0375 e29b       |    |		Load	0x1,0x9b
0376 1db2       |    |		Execute_Immediate	Reference_Lex_1,0xb2
0377 1db3       |    |		Execute_Immediate	Reference_Lex_1,0xb3
0378 1da9       |    |		Execute_Immediate	Reference_Lex_1,0xa9
0379 e294       |    |		Load	0x1,0x94
037a 1dac       |    |		Execute_Immediate	Reference_Lex_1,0xac
037b 1da3       |    |		Execute_Immediate	Reference_Lex_1,0xa3
037c e297       |    |		Load	0x1,0x97
037d 4829       |H)  |		Short_Literal	0x29
037e e267       | g  |		Load	0x1,0x67
037f 020e       |    |		Execute	Module,Augment_Imports
0380 e267       | g  |		Load	0x1,0x67
0381 020f       |    |		Execute	Module,Activate
0382			BODY_0008:
0382 00bc       |    |		Action	Signal_Activated
0383 00bb       |    |		Action	Signal_Completion
0384 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0388 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000001}
038c 0000 0000  |    |		.BLANK	0000[0x4]
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 0237       | 7  |		Execute	Float,Convert_From_Discrete
0395 e5fe       |    |		Load	0x2,-0x2
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 023b       | ;  |		Execute	Float,Times
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 0237       | 7  |		Execute	Float,Convert_From_Discrete
03a6 023a       | :  |		Execute	Float,Divide
03a7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 00da       |    |		Load_Top	At_Offset_2
03ac e5fe       |    |		Load	0x2,-0x2
03ad 027b       | {  |		Execute	Discrete,Greater_Equal
03ae 6804       |h   |		Jump_Zero	0x3b3
03af 00da       |    |		Load_Top	At_Offset_2
03b0 e5fd       |    |		Load	0x2,-0x3
03b1 027a       | z  |		Execute	Discrete,Less_Equal
03b2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03b3 4800       |H   |		Short_Literal	0x0
03b4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03b5 0000 0000  |    |		.XXX[0x3]
03b7 0000       |    |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb 00da       |    |		Load_Top	At_Offset_2
03bc e5fe       |    |		Load	0x2,-0x2
03bd 0243       | C  |		Execute	Float,Greater_Equal
03be 6804       |h   |		Jump_Zero	0x3c3
03bf 00da       |    |		Load_Top	At_Offset_2
03c0 e5fd       |    |		Load	0x2,-0x3
03c1 0242       | B  |		Execute	Float,Less_Equal
03c2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03c3 4800       |H   |		Short_Literal	0x0
03c4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
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 4800       |H   |		Short_Literal	0x0
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 4801       |H   |		Short_Literal	0x1
03d4 00ca       |    |		Action	Exit_Nullary_Function
03d5 0000 0000  |    |		.XXX[0x3]
03d7 0000       |    |
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 5804       |X   |		Indirect_Literal	Float,0x3e0,0.0
03dc 00ca       |    |		Action	Exit_Nullary_Function
03dd 0000 0000  |    |		.XXX[0x3]
03df 0000       |    |
03e0 0000 0000  |    |		.DBL	0.0
03e2 0000 0000  |    |
03e4 0000 0000  |    |		.BLANK	0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 5804       |X   |		Indirect_Literal	Float,0x3f0,1.0
03ec 00ca       |    |		Action	Exit_Nullary_Function
03ed 0000 0000  |    |		.XXX[0x3]
03ef 0000       |    |
03f0 3ff0 0000  |?   |		.DBL	1.0
03f2 0000 0000  |    |
03f4 0000 0000  |    |		.BLANK	0000[0x4]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 6004       |`   |		Indirect_Literal	Discrete,0x400,{0x7fffffff, 0xffffffff}
03fc 00ca       |    |		Action	Exit_Nullary_Function
03fd 0000 0000  |    |		.XXX[0x3]
03ff 0000       |    |
0400 7fff ffff  |    |		.LITERAL	{0x7fffffff, 0xffffffff}
0404 0000 0000  |    |		.BLANK	0000[0x4]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b       |    |		.CONST	0x040b								; Address of begin
0409 0004       |    |		.CONST	0x0004								; Address of exception handler
040a 0001       |    |		.CONST	0x0001								; Number of locals
040b			BODY_0408:
040b			INIT_0408:
040b 6004       |`   |		Indirect_Literal	Discrete,0x410,{0x80000000, 0x00000000}
040c 00ca       |    |		Action	Exit_Nullary_Function
040d 0000 0000  |    |		.XXX[0x3]
040f 0000       |    |
0410 8000 0000  |    |		.LITERAL	{0x80000000, 0x00000000}
0414 0000 0000  |    |		.BLANK	0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 5804       |X   |		Indirect_Literal	Float,0x420,-1.7976931348623157e+308
041c 00ca       |    |		Action	Exit_Nullary_Function
041d 0000 0000  |    |		.XXX[0x3]
041f 0000       |    |
0420 ffef ffff  |    |		.DBL	-1.7976931348623157e+308
0422 ffff ffff  |    |
0424 0000 0000  |    |		.BLANK	0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 5804       |X   |		Indirect_Literal	Float,0x430,1.7976931348623157e+308
042c 00ca       |    |		Action	Exit_Nullary_Function
042d 0000 0000  |    |		.XXX[0x3]
042f 0000       |    |
0430 7fef ffff  |    |		.DBL	1.7976931348623157e+308
0432 ffff ffff  |    |
0434 0000 0000  |    |		.BLANK	0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b e20d       |    |		Load	0x1,0xd
043c 012c       | ,  |		Execute	Any,Size
043d 00d8       |    |		Load_Top	At_Offset_0
043e 00e2       |    |		Load_Encached	Integer_Cache
043f 0260       | `  |		Execute	Discrete,In_Type
0440 7001       |p   |		Jump_Nonzero	0x442
0441 0801       |    |		Execute_Immediate	Raise,0x1
0442 00ca       |    |		Action	Exit_Nullary_Function
0443 0000 0000  |    |		.BLANK	0000[0x5]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b e20e       |    |		Load	0x1,0xe
044c 012c       | ,  |		Execute	Any,Size
044d 00d8       |    |		Load_Top	At_Offset_0
044e 00e2       |    |		Load_Encached	Integer_Cache
044f 0260       | `  |		Execute	Discrete,In_Type
0450 7001       |p   |		Jump_Nonzero	0x452
0451 0801       |    |		Execute_Immediate	Raise,0x1
0452 00ca       |    |		Action	Exit_Nullary_Function
0453 0000 0000  |    |		.BLANK	0000[0x5]
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 4835       |H5  |		Short_Literal	0x35
045c 00ca       |    |		Action	Exit_Nullary_Function
045d 0000 0000  |    |		.XXX[0x3]
045f 0000       |    |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 00db       |    |		Load_Top	At_Offset_3
0464 00db       |    |		Load_Top	At_Offset_3
0465 823a       | :  |		Call	0x1,0x3a
0466 4fff       |O   |		Short_Literal	-0x1
0467 027f       |    |		Execute	Discrete,Equal
0468 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0469 0000 0000  |    |		.BLANK	0000[0x7]
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 0e01       |    |		Execute_Immediate	Not_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 0f01       |    |		Execute_Immediate	Equal,0x1
047f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 00db       |    |		Load_Top	At_Offset_3
0484 00db       |    |		Load_Top	At_Offset_3
0485 823a       | :  |		Call	0x1,0x3a
0486 4fff       |O   |		Short_Literal	-0x1
0487 027e       | ~  |		Execute	Discrete,Not_Equal
0488 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0489 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0494 0335       | 5  |		Declare_Variable	Array,Duplicate
0495 00cd       |    |		Action	Spare6_Action
0496 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0497 0000       |    |		.XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b       |    |		.CONST	0x049b								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0001       |    |		.CONST	0x0001								; Number of locals
049b			BODY_0498:
049b			INIT_0498:
049b 4801       |H   |		Short_Literal	0x1
049c 00db       |    |		Load_Top	At_Offset_3
049d 01d7       |    |		Execute	Vector,Field_Read
049e 0275       | u  |		Execute	Discrete,Unary_Minus
049f 4802       |H   |		Short_Literal	0x2
04a0 e5ff       |    |		Load	0x2,-0x1
04a1 01dc       |    |		Execute	Vector,Last
04a2 e5ff       |    |		Load	0x2,-0x1
04a3 01cf       |    |		Execute	Vector,Slice_Read
04a4 01ca       |    |		Execute	Vector,Prepend
04a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04a6 0000 0000  |    |		.XXX[0x2]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b9       |    |		.CONST	0x04b9								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0002       |    |		.CONST	0x0002								; Number of locals
04ab			INIT_04a8:
04ab 4801       |H   |		Short_Literal	0x1
04ac 00db       |    |		Load_Top	At_Offset_3
04ad 01db       |    |		Execute	Vector,Length
04ae 00d8       |    |		Load_Top	At_Offset_0
04af 00e2       |    |		Load_Encached	Integer_Cache
04b0 0260       | `  |		Execute	Discrete,In_Type
04b1 7001       |p   |		Jump_Nonzero	0x4b3
04b2 0801       |    |		Execute_Immediate	Raise,0x1
04b3 e220       |    |		Load	0x1,0x20
04b4 035b       | [  |		Declare_Type	Array,Constrained
04b5 0337       | 7  |		Declare_Variable	Array
04b6 00db       |    |		Load_Top	At_Offset_3
04b7 00d9       |    |		Load_Top	At_Offset_1
04b8 01d4       |    |		Execute	Vector,Structure_Write
04b9			BODY_04a8:
04b9 4801       |H   |		Short_Literal	0x1
04ba 00d9       |    |		Load_Top	At_Offset_1
04bb 01d7       |    |		Execute	Vector,Field_Read
04bc 0274       | t  |		Execute	Discrete,Absolute_Value
04bd 4801       |H   |		Short_Literal	0x1
04be 00da       |    |		Load_Top	At_Offset_2
04bf 01d6       |    |		Execute	Vector,Field_Write
04c0 00d8       |    |		Load_Top	At_Offset_0
04c1 e220       |    |		Load	0x1,0x20
04c2 01c6       |    |		Execute	Vector,Convert_To_Formal
04c3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04c4 0000 0000  |    |		.BLANK	0000[0x4]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d4       |    |		.CONST	0x04d4								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0009       |    |		.CONST	0x0009								; Number of locals
04cb			INIT_04c8:
04cb 00e2       |    |		Load_Encached	Integer_Cache
04cc 00e5       |    |		Load_Encached	Long_Integer_Cache
04cd 03e9       |    |		Declare_Variable	Discrete,Duplicate
04ce 00e2       |    |		Load_Encached	Integer_Cache
04cf 03e9       |    |		Declare_Variable	Discrete,Duplicate
04d0 00e1       |    |		Load_Encached	Boolean_Cache
04d1 03e9       |    |		Declare_Variable	Discrete,Duplicate
04d2 029f 0ea3  |    |		Declare_Subprogram	INIT_0ea0,For_Call
04d4			BODY_04c8:
04d4 e5ff       |    |		Load	0x2,-0x1
04d5 01db       |    |		Execute	Vector,Length
04d6 c405       |    |		Store	0x2,0x5
04d7 e5fe       |    |		Load	0x2,-0x2
04d8 01db       |    |		Execute	Vector,Length
04d9 c406       |    |		Store	0x2,0x6
04da e405       |    |		Load	0x2,0x5
04db 0f01       |    |		Execute_Immediate	Equal,0x1
04dc 680c       |h   |		Jump_Zero	0x4e9
04dd 00db       |    |		Load_Top	At_Offset_3
04de 0f01       |    |		Execute_Immediate	Equal,0x1
04df 6809       |h   |		Jump_Zero	0x4e9
04e0 4801       |H   |		Short_Literal	0x1
04e1 e5ff       |    |		Load	0x2,-0x1
04e2 01d7       |    |		Execute	Vector,Field_Read
04e3 4801       |H   |		Short_Literal	0x1
04e4 e5fe       |    |		Load	0x2,-0x2
04e5 01d7       |    |		Execute	Vector,Field_Read
04e6 0273       | s  |		Execute	Discrete,Plus
04e7 82a0       |    |		Call	0x1,0xa0
04e8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04e9 e405       |    |		Load	0x2,0x5
04ea 0f01       |    |		Execute_Immediate	Equal,0x1
04eb 6808       |h   |		Jump_Zero	0x4f4
04ec 4801       |H   |		Short_Literal	0x1
04ed e5ff       |    |		Load	0x2,-0x1
04ee 01d7       |    |		Execute	Vector,Field_Read
04ef 7004       |p   |		Jump_Nonzero	0x4f4
04f0 e5fe       |    |		Load	0x2,-0x2
04f1 0335       | 5  |		Declare_Variable	Array,Duplicate
04f2 00cd       |    |		Action	Spare6_Action
04f3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04f4 00db       |    |		Load_Top	At_Offset_3
04f5 0f01       |    |		Execute_Immediate	Equal,0x1
04f6 6808       |h   |		Jump_Zero	0x4ff
04f7 4801       |H   |		Short_Literal	0x1
04f8 e5fe       |    |		Load	0x2,-0x2
04f9 01d7       |    |		Execute	Vector,Field_Read
04fa 7004       |p   |		Jump_Nonzero	0x4ff
04fb e5ff       |    |		Load	0x2,-0x1
04fc 0335       | 5  |		Declare_Variable	Array,Duplicate
04fd 00cd       |    |		Action	Spare6_Action
04fe 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04ff e405       |    |		Load	0x2,0x5
0500 e406       |    |		Load	0x2,0x6
0501 027c       | |  |		Execute	Discrete,Less
0502 6804       |h   |		Jump_Zero	0x507
0503 00db       |    |		Load_Top	At_Offset_3
0504 0a01       |    |		Execute_Immediate	Plus,0x1
0505 c402       |    |		Store	0x2,0x2
0506 7803       |x   |		Jump	0x50a
0507 e405       |    |		Load	0x2,0x5
0508 0a01       |    |		Execute_Immediate	Plus,0x1
0509 c402       |    |		Store	0x2,0x2
050a 8409       |    |		Call	0x2,0x9
050b 0831       | 1  |		Execute_Immediate	Raise,0x31
050c 0000 0000  |    |		.BLANK	0000[0x4]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513       |    |		.CONST	0x0513								; Address of begin
0511 0004       |    |		.CONST	0x0004								; Address of exception handler
0512 0001       |    |		.CONST	0x0001								; Number of locals
0513			BODY_0510:
0513			INIT_0510:
0513 00db       |    |		Load_Top	At_Offset_3
0514 8226       | &  |		Call	0x1,0x26
0515 00db       |    |		Load_Top	At_Offset_3
0516 8228       | (  |		Call	0x1,0x28
0517 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 052a       | *  |		.CONST	0x052a								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0003       |    |		.CONST	0x0003								; Number of locals
051b			INIT_0518:
051b 4801       |H   |		Short_Literal	0x1
051c 00db       |    |		Load_Top	At_Offset_3
051d 01db       |    |		Execute	Vector,Length
051e e5fe       |    |		Load	0x2,-0x2
051f 01db       |    |		Execute	Vector,Length
0520 0273       | s  |		Execute	Discrete,Plus
0521 00d8       |    |		Load_Top	At_Offset_0
0522 00e2       |    |		Load_Encached	Integer_Cache
0523 0260       | `  |		Execute	Discrete,In_Type
0524 7001       |p   |		Jump_Nonzero	0x526
0525 0801       |    |		Execute_Immediate	Raise,0x1
0526 e220       |    |		Load	0x1,0x20
0527 035b       | [  |		Declare_Type	Array,Constrained
0528 0337       | 7  |		Declare_Variable	Array
0529 00e2       |    |		Load_Encached	Integer_Cache
052a			BODY_0518:
052a 00d9       |    |		Load_Top	At_Offset_1
052b e5fe       |    |		Load	0x2,-0x2
052c e5ff       |    |		Load	0x2,-0x1
052d 82ae       |    |		Call	0x1,0xae
052e 00d1       |    |		Pop_Control	Pop_Count_1
052f 00e2       |    |		Load_Encached	Integer_Cache
0530 00da       |    |		Load_Top	At_Offset_2
0531 4800       |H   |		Short_Literal	0x0
0532 82a3       |    |		Call	0x1,0xa3
0533 00d1       |    |		Pop_Control	Pop_Count_1
0534 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0535 4801       |H   |		Short_Literal	0x1
0536 00d9       |    |		Load_Top	At_Offset_1
0537 00db       |    |		Load_Top	At_Offset_3
0538 01cf       |    |		Execute	Vector,Slice_Read
0539 e220       |    |		Load	0x1,0x20
053a 01c6       |    |		Execute	Vector,Convert_To_Formal
053b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
053c 0000 0000  |    |		.BLANK	0000[0x4]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			INIT_0540:
0543 4800       |H   |		Short_Literal	0x0
0544 e5fe       |    |		Load	0x2,-0x2
0545 e5ff       |    |		Load	0x2,-0x1
0546 82a8       |    |		Call	0x1,0xa8
0547 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0548 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0549 0000 0000  |    |		.BLANK	0000[0x7]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0556       | V  |		.CONST	0x0556								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0002       |    |		.CONST	0x0002								; Number of locals
0553			INIT_0550:
0553 00db       |    |		Load_Top	At_Offset_3
0554 00db       |    |		Load_Top	At_Offset_3
0555 822d       | -  |		Call	0x1,0x2d
0556			BODY_0550:
0556 4801       |H   |		Short_Literal	0x1
0557 e5ff       |    |		Load	0x2,-0x1
0558 01d7       |    |		Execute	Vector,Field_Read
0559 0d00       |    |		Execute_Immediate	Less,0x0
055a 4801       |H   |		Short_Literal	0x1
055b e5fe       |    |		Load	0x2,-0x2
055c 01d7       |    |		Execute	Vector,Field_Read
055d 0d00       |    |		Execute_Immediate	Less,0x0
055e 027f       |    |		Execute	Discrete,Equal
055f 7004       |p   |		Jump_Nonzero	0x564
0560 4801       |H   |		Short_Literal	0x1
0561 00d9       |    |		Load_Top	At_Offset_1
0562 01d7       |    |		Execute	Vector,Field_Read
0563 7002       |p   |		Jump_Nonzero	0x566
0564 00d8       |    |		Load_Top	At_Offset_0
0565 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0566 00d8       |    |		Load_Top	At_Offset_0
0567 e5fe       |    |		Load	0x2,-0x2
0568 8228       | (  |		Call	0x1,0x28
0569 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
056a 0000 0000  |    |		.BLANK	0000[0x6]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573       | s  |		.CONST	0x0573								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0001       |    |		.CONST	0x0001								; Number of locals
0573			BODY_0570:
0573			INIT_0570:
0573 00da       |    |		Load_Top	At_Offset_2
0574 01db       |    |		Execute	Vector,Length
0575 0f01       |    |		Execute_Immediate	Equal,0x1
0576 680d       |h   |		Jump_Zero	0x584
0577 00db       |    |		Load_Top	At_Offset_3
0578 01db       |    |		Execute	Vector,Length
0579 0f01       |    |		Execute_Immediate	Equal,0x1
057a 6809       |h   |		Jump_Zero	0x584
057b 4801       |H   |		Short_Literal	0x1
057c 00db       |    |		Load_Top	At_Offset_3
057d 01d7       |    |		Execute	Vector,Field_Read
057e 4801       |H   |		Short_Literal	0x1
057f e5fe       |    |		Load	0x2,-0x2
0580 01d7       |    |		Execute	Vector,Field_Read
0581 026f       | o  |		Execute	Discrete,Remainder
0582 82a0       |    |		Call	0x1,0xa0
0583 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0584 4801       |H   |		Short_Literal	0x1
0585 e5fe       |    |		Load	0x2,-0x2
0586 e5ff       |    |		Load	0x2,-0x1
0587 82a8       |    |		Call	0x1,0xa8
0588 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0589 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
058a 0000 0000  |    |		.BLANK	0000[0x6]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 05a3       |    |		.CONST	0x05a3								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0003       |    |		.CONST	0x0003								; Number of locals
0593			INIT_0590:
0593 4801       |H   |		Short_Literal	0x1
0594 00db       |    |		Load_Top	At_Offset_3
0595 01db       |    |		Execute	Vector,Length
0596 e5fe       |    |		Load	0x2,-0x2
0597 0274       | t  |		Execute	Discrete,Absolute_Value
0598 82af       |    |		Call	0x1,0xaf
0599 0271       | q  |		Execute	Discrete,Times
059a 00d8       |    |		Load_Top	At_Offset_0
059b 00e2       |    |		Load_Encached	Integer_Cache
059c 0260       | `  |		Execute	Discrete,In_Type
059d 7001       |p   |		Jump_Nonzero	0x59f
059e 0801       |    |		Execute_Immediate	Raise,0x1
059f e220       |    |		Load	0x1,0x20
05a0 035b       | [  |		Declare_Type	Array,Constrained
05a1 0337       | 7  |		Declare_Variable	Array
05a2 00e2       |    |		Load_Encached	Integer_Cache
05a3			BODY_0590:
05a3 00d9       |    |		Load_Top	At_Offset_1
05a4 e5fe       |    |		Load	0x2,-0x2
05a5 e5ff       |    |		Load	0x2,-0x1
05a6 82b1       |    |		Call	0x1,0xb1
05a7 00d1       |    |		Pop_Control	Pop_Count_1
05a8 00e2       |    |		Load_Encached	Integer_Cache
05a9 00da       |    |		Load_Top	At_Offset_2
05aa 4800       |H   |		Short_Literal	0x0
05ab 82a3       |    |		Call	0x1,0xa3
05ac 00d1       |    |		Pop_Control	Pop_Count_1
05ad 0059       | Y  |		Store_Top	Discrete,At_Offset_1
05ae 4801       |H   |		Short_Literal	0x1
05af 00d9       |    |		Load_Top	At_Offset_1
05b0 00db       |    |		Load_Top	At_Offset_3
05b1 01cf       |    |		Execute	Vector,Slice_Read
05b2 e220       |    |		Load	0x1,0x20
05b3 01c6       |    |		Execute	Vector,Convert_To_Formal
05b4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05b5 0000 0000  |    |		.XXX[0x3]
05b7 0000       |    |
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb       |    |		.CONST	0x05bb								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0001       |    |		.CONST	0x0001								; Number of locals
05bb			BODY_05b8:
05bb			INIT_05b8:
05bb 00db       |    |		Load_Top	At_Offset_3
05bc 00db       |    |		Load_Top	At_Offset_3
05bd 8224       | $  |		Call	0x1,0x24
05be 6804       |h   |		Jump_Zero	0x5c3
05bf e5fd       |    |		Load	0x2,-0x3
05c0 00db       |    |		Load_Top	At_Offset_3
05c1 8222       | "  |		Call	0x1,0x22
05c2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05c3 4800       |H   |		Short_Literal	0x0
05c4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05c5 0000 0000  |    |		.XXX[0x3]
05c7 0000       |    |
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 00db       |    |		Load_Top	At_Offset_3
05cd 829e       |    |		Call	0x1,0x9e
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 822a       | *  |		Call	0x1,0x2a
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 00db       |    |		Load_Top	At_Offset_3
05dc 829e       |    |		Call	0x1,0x9e
05dd 00db       |    |		Load_Top	At_Offset_3
05de 822b       | +  |		Call	0x1,0x2b
05df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 4802       |H   |		Short_Literal	0x2
05e4 e5fe       |    |		Load	0x2,-0x2
05e5 e5ff       |    |		Load	0x2,-0x1
05e6 82a8       |    |		Call	0x1,0xa8
05e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05fe       |    |		.CONST	0x05fe								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0002       |    |		.CONST	0x0002								; Number of locals
05eb			INIT_05e8:
05eb 4801       |H   |		Short_Literal	0x1
05ec e5fe       |    |		Load	0x2,-0x2
05ed 01db       |    |		Execute	Vector,Length
05ee 00d8       |    |		Load_Top	At_Offset_0
05ef 00e2       |    |		Load_Encached	Integer_Cache
05f0 0260       | `  |		Execute	Discrete,In_Type
05f1 7001       |p   |		Jump_Nonzero	0x5f3
05f2 0801       |    |		Execute_Immediate	Raise,0x1
05f3 e5ff       |    |		Load	0x2,-0x1
05f4 01db       |    |		Execute	Vector,Length
05f5 00d8       |    |		Load_Top	At_Offset_0
05f6 00e2       |    |		Load_Encached	Integer_Cache
05f7 0260       | `  |		Execute	Discrete,In_Type
05f8 7001       |p   |		Jump_Nonzero	0x5fa
05f9 0801       |    |		Execute_Immediate	Raise,0x1
05fa 82b2       |    |		Call	0x1,0xb2
05fb e220       |    |		Load	0x1,0x20
05fc 035b       | [  |		Declare_Type	Array,Constrained
05fd 0337       | 7  |		Declare_Variable	Array
05fe			BODY_05e8:
05fe 00d8       |    |		Load_Top	At_Offset_0
05ff e5fe       |    |		Load	0x2,-0x2
0600 e5ff       |    |		Load	0x2,-0x1
0601 82b3       |    |		Call	0x1,0xb3
0602 00d1       |    |		Pop_Control	Pop_Count_1
0603 4800       |H   |		Short_Literal	0x0
0604 00d9       |    |		Load_Top	At_Offset_1
0605 82a4       |    |		Call	0x1,0xa4
0606 e220       |    |		Load	0x1,0x20
0607 01c6       |    |		Execute	Vector,Convert_To_Formal
0608 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0609 0000 0000  |    |		.BLANK	0000[0x7]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0622       | "  |		.CONST	0x0622								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0004       |    |		.CONST	0x0004								; Number of locals
0613			INIT_0610:
0613 481f       |H   |		Short_Literal	0x1f
0614 00db       |    |		Load_Top	At_Offset_3
0615 01db       |    |		Execute	Vector,Length
0616 0271       | q  |		Execute	Discrete,Times
0617 00e5       |    |		Load_Encached	Long_Integer_Cache
0618 03f1       |    |		Declare_Variable	Discrete,With_Value
0619 4801       |H   |		Short_Literal	0x1
061a e5ff       |    |		Load	0x2,-0x1
061b 01d7       |    |		Execute	Vector,Field_Read
061c 0274       | t  |		Execute	Discrete,Absolute_Value
061d 00e5       |    |		Load_Encached	Long_Integer_Cache
061e 03f1       |    |		Declare_Variable	Discrete,With_Value
061f 6034       |`4  |		Indirect_Literal	Discrete,0x654,{0x00000000, 0x80000000}
0620 00e5       |    |		Load_Encached	Long_Integer_Cache
0621 03f1       |    |		Declare_Variable	Discrete,With_Value
0622			BODY_0610:
0622 00d9       |    |		Load_Top	At_Offset_1
0623 7001       |p   |		Jump_Nonzero	0x625
0624 08e0       |    |		Execute_Immediate	Raise,0xe0
0625 00cf       |    |		Action	Mark_Auxiliary
0626 7807       |x   |		Jump	0x62e
0627 00d9       |    |		Load_Top	At_Offset_1
0628 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0629 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
062a 00db       |    |		Load_Top	At_Offset_3
062b 0aff       |    |		Execute_Immediate	Plus,-0x1
062c a402       |    |		Store_Unchecked	0x2,0x2
062d 00c9       |    |		Action	Pop_Auxiliary_Loop
062e 00d9       |    |		Load_Top	At_Offset_1
062f 00db       |    |		Load_Top	At_Offset_3
0630 027d       | }  |		Execute	Discrete,Greater
0631 77f5       |w   |		Jump_Nonzero	0x627
0632 00ce       |    |		Action	Pop_Auxiliary
0633 00d8       |    |		Load_Top	At_Offset_0
0634 00da       |    |		Load_Top	At_Offset_2
0635 027c       | |  |		Execute	Discrete,Less
0636 6803       |h   |		Jump_Zero	0x63a
0637 00da       |    |		Load_Top	At_Offset_2
0638 0a01       |    |		Execute_Immediate	Plus,0x1
0639 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
063a 00cf       |    |		Action	Mark_Auxiliary
063b e5ff       |    |		Load	0x2,-0x1
063c 01dc       |    |		Execute	Vector,Last
063d e5ff       |    |		Load	0x2,-0x1
063e 01dd       |    |		Execute	Vector,First
063f 0a01       |    |		Execute_Immediate	Plus,0x1
0640 00d8       |    |		Load_Top	At_Offset_0
0641 00e2       |    |		Load_Encached	Integer_Cache
0642 0260       | `  |		Execute	Discrete,In_Type
0643 7001       |p   |		Jump_Nonzero	0x645
0644 0801       |    |		Execute_Immediate	Raise,0x1
0645 0263       | c  |		Execute	Discrete,Above_Bound
0646 7009       |p   |		Jump_Nonzero	0x650
0647 00d8       |    |		Load_Top	At_Offset_0
0648 e5ff       |    |		Load	0x2,-0x1
0649 01d7       |    |		Execute	Vector,Field_Read
064a 6803       |h   |		Jump_Zero	0x64e
064b e402       |    |		Load	0x2,0x2
064c 0a01       |    |		Execute_Immediate	Plus,0x1
064d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
064e 00c8       |    |		Action	Pop_Auxiliary_Range
064f 3ff7       |?   |		Loop_Increasing	0x647
0650 00ce       |    |		Action	Pop_Auxiliary
0651 00da       |    |		Load_Top	At_Offset_2
0652 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0653 0000       |    |		.XXX[0x1]
0654 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 0668       | h  |		.CONST	0x0668								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0004       |    |		.CONST	0x0004								; Number of locals
065b			INIT_0658:
065b 00da       |    |		Load_Top	At_Offset_2
065c 8227       | '  |		Call	0x1,0x27
065d 00d8       |    |		Load_Top	At_Offset_0
065e 8236       | 6  |		Call	0x1,0x36
065f 0237       | 7  |		Execute	Float,Convert_From_Discrete
0660 5823       |X#  |		Indirect_Literal	Float,0x684,0.30102999566
0661 023b       | ;  |		Execute	Float,Times
0662 0235       | 5  |		Execute	Float,Round_To_Discrete
0663 00e5       |    |		Load_Encached	Long_Integer_Cache
0664 025e       | ^  |		Execute	Discrete,Convert
0665 00e5       |    |		Load_Encached	Long_Integer_Cache
0666 03f1       |    |		Declare_Variable	Discrete,With_Value
0667 e238       | 8  |		Load	0x1,0x38
0668			BODY_0658:
0668 00cf       |    |		Action	Mark_Auxiliary
0669 00db       |    |		Load_Top	At_Offset_3
066a 00db       |    |		Load_Top	At_Offset_3
066b 00d8       |    |		Load_Top	At_Offset_0
066c 00e2       |    |		Load_Encached	Integer_Cache
066d 0260       | `  |		Execute	Discrete,In_Type
066e 7001       |p   |		Jump_Nonzero	0x670
066f 0801       |    |		Execute_Immediate	Raise,0x1
0670 e298       |    |		Load	0x1,0x98
0671 822e       | .  |		Call	0x1,0x2e
0672 823a       | :  |		Call	0x1,0x3a
0673 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0674 00d9       |    |		Load_Top	At_Offset_1
0675 0d01       |    |		Execute_Immediate	Less,0x1
0676 7005       |p   |		Jump_Nonzero	0x67c
0677 00da       |    |		Load_Top	At_Offset_2
0678 0aff       |    |		Execute_Immediate	Plus,-0x1
0679 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
067a 00c9       |    |		Action	Pop_Auxiliary_Loop
067b 7fed       |    |		Jump	0x669
067c 00ce       |    |		Action	Pop_Auxiliary
067d 00d9       |    |		Load_Top	At_Offset_1
067e 00d9       |    |		Load_Top	At_Offset_1
067f 0273       | s  |		Execute	Discrete,Plus
0680 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0681 0000 0000  |    |		.XXX[0x3]
0683 0000       |    |
0684 3fd3 4413  |? D |		.DBL	0.30102999566
0686 509e 61d8  |P a |
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 4801       |H   |		Short_Literal	0x1
068c 00db       |    |		Load_Top	At_Offset_3
068d 01d7       |    |		Execute	Vector,Field_Read
068e 82b4       |    |		Call	0x1,0xb4
068f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693       |    |		.CONST	0x0693								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0001       |    |		.CONST	0x0001								; Number of locals
0693			BODY_0690:
0693			INIT_0690:
0693 00da       |    |		Load_Top	At_Offset_2
0694 01db       |    |		Execute	Vector,Length
0695 e5fe       |    |		Load	0x2,-0x2
0696 01db       |    |		Execute	Vector,Length
0697 027f       |    |		Execute	Discrete,Equal
0698 6831       |h1  |		Jump_Zero	0x6ca
0699 00cf       |    |		Action	Mark_Auxiliary
069a 00db       |    |		Load_Top	At_Offset_3
069b 01d9       |    |		Execute	Vector,Reverse_Bounds
069c 0263       | c  |		Execute	Discrete,Above_Bound
069d 7029       |p)  |		Jump_Nonzero	0x6c7
069e 00d8       |    |		Load_Top	At_Offset_0
069f e5ff       |    |		Load	0x2,-0x1
06a0 01d7       |    |		Execute	Vector,Field_Read
06a1 00d9       |    |		Load_Top	At_Offset_1
06a2 e5fe       |    |		Load	0x2,-0x2
06a3 01d7       |    |		Execute	Vector,Field_Read
06a4 027e       | ~  |		Execute	Discrete,Not_Equal
06a5 681f       |h   |		Jump_Zero	0x6c5
06a6 00d8       |    |		Load_Top	At_Offset_0
06a7 0f01       |    |		Execute_Immediate	Equal,0x1
06a8 6809       |h   |		Jump_Zero	0x6b2
06a9 4801       |H   |		Short_Literal	0x1
06aa e5ff       |    |		Load	0x2,-0x1
06ab 01d7       |    |		Execute	Vector,Field_Read
06ac 4801       |H   |		Short_Literal	0x1
06ad e5fe       |    |		Load	0x2,-0x2
06ae 01d7       |    |		Execute	Vector,Field_Read
06af 0272       | r  |		Execute	Discrete,Minus
06b0 82b4       |    |		Call	0x1,0xb4
06b1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06b2 4801       |H   |		Short_Literal	0x1
06b3 e5ff       |    |		Load	0x2,-0x1
06b4 01d7       |    |		Execute	Vector,Field_Read
06b5 82b4       |    |		Call	0x1,0xb4
06b6 00d9       |    |		Load_Top	At_Offset_1
06b7 e5ff       |    |		Load	0x2,-0x1
06b8 01d7       |    |		Execute	Vector,Field_Read
06b9 0271       | q  |		Execute	Discrete,Times
06ba 4801       |H   |		Short_Literal	0x1
06bb e5fe       |    |		Load	0x2,-0x2
06bc 01d7       |    |		Execute	Vector,Field_Read
06bd 82b4       |    |		Call	0x1,0xb4
06be 00da       |    |		Load_Top	At_Offset_2
06bf e5fe       |    |		Load	0x2,-0x2
06c0 01d7       |    |		Execute	Vector,Field_Read
06c1 0271       | q  |		Execute	Discrete,Times
06c2 0272       | r  |		Execute	Discrete,Minus
06c3 82b4       |    |		Call	0x1,0xb4
06c4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06c5 00c8       |    |		Action	Pop_Auxiliary_Range
06c6 3fd7       |?   |		Loop_Increasing	0x69e
06c7 00ce       |    |		Action	Pop_Auxiliary
06c8 4800       |H   |		Short_Literal	0x0
06c9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06ca 4801       |H   |		Short_Literal	0x1
06cb 00db       |    |		Load_Top	At_Offset_3
06cc 01d7       |    |		Execute	Vector,Field_Read
06cd 82b4       |    |		Call	0x1,0xb4
06ce 00db       |    |		Load_Top	At_Offset_3
06cf 01db       |    |		Execute	Vector,Length
06d0 0271       | q  |		Execute	Discrete,Times
06d1 4801       |H   |		Short_Literal	0x1
06d2 e5fe       |    |		Load	0x2,-0x2
06d3 01d7       |    |		Execute	Vector,Field_Read
06d4 82b4       |    |		Call	0x1,0xb4
06d5 e5fe       |    |		Load	0x2,-0x2
06d6 01db       |    |		Execute	Vector,Length
06d7 0271       | q  |		Execute	Discrete,Times
06d8 0272       | r  |		Execute	Discrete,Minus
06d9 82b4       |    |		Call	0x1,0xb4
06da 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06db 0000 0000  |    |		.BLANK	0000[0x5]
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 e295       |    |		Load	0x1,0x95
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 e296       |    |		Load	0x1,0x96
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 e297       |    |		Load	0x1,0x97
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 e298       |    |		Load	0x1,0x98
06fc 00ca       |    |		Action	Exit_Nullary_Function
06fd 0000 0000  |    |		.XXX[0x3]
06ff 0000       |    |
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703       |    |		.CONST	0x0703								; Address of begin
0701 0004       |    |		.CONST	0x0004								; Address of exception handler
0702 0001       |    |		.CONST	0x0001								; Number of locals
0703			BODY_0700:
0703			INIT_0700:
0703 00db       |    |		Load_Top	At_Offset_3
0704 00db       |    |		Load_Top	At_Offset_3
0705 8254       | T  |		Call	0x1,0x54
0706 4fff       |O   |		Short_Literal	-0x1
0707 027f       |    |		Execute	Discrete,Equal
0708 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0709 0000 0000  |    |		.BLANK	0000[0x7]
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 0e01       |    |		Execute_Immediate	Not_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 0f01       |    |		Execute_Immediate	Equal,0x1
071f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723       | #  |		.CONST	0x0723								; Address of begin
0721 0004       |    |		.CONST	0x0004								; Address of exception handler
0722 0001       |    |		.CONST	0x0001								; Number of locals
0723			BODY_0720:
0723			INIT_0720:
0723 00db       |    |		Load_Top	At_Offset_3
0724 00db       |    |		Load_Top	At_Offset_3
0725 8254       | T  |		Call	0x1,0x54
0726 4fff       |O   |		Short_Literal	-0x1
0727 027e       | ~  |		Execute	Discrete,Not_Equal
0728 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0729 0000 0000  |    |		.BLANK	0000[0x7]
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 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
0735 00cd       |    |		Action	Spare6_Action
0736 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0737 0000       |    |		.XXX[0x1]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b       | ;  |		.CONST	0x073b								; Address of begin
0739 0004       |    |		.CONST	0x0004								; Address of exception handler
073a 0001       |    |		.CONST	0x0001								; Number of locals
073b			BODY_0738:
073b			INIT_0738:
073b 00da       |    |		Load_Top	At_Offset_2
073c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
073d 00db       |    |		Load_Top	At_Offset_3
073e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
073f 8226       | &  |		Call	0x1,0x26
0740 82b5       |    |		Call	0x1,0xb5
0741 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0742 0000 0000  |    |		.BLANK	0000[0x6]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b       | K  |		.CONST	0x074b								; Address of begin
0749 0004       |    |		.CONST	0x0004								; Address of exception handler
074a 0001       |    |		.CONST	0x0001								; Number of locals
074b			BODY_0748:
074b			INIT_0748:
074b 00da       |    |		Load_Top	At_Offset_2
074c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
074d 00db       |    |		Load_Top	At_Offset_3
074e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
074f 8227       | '  |		Call	0x1,0x27
0750 82b5       |    |		Call	0x1,0xb5
0751 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0752 0000 0000  |    |		.BLANK	0000[0x6]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b       | [  |		.CONST	0x075b								; Address of begin
0759 0004       |    |		.CONST	0x0004								; Address of exception handler
075a 0001       |    |		.CONST	0x0001								; Number of locals
075b			BODY_0758:
075b			INIT_0758:
075b 00db       |    |		Load_Top	At_Offset_3
075c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
075d 00db       |    |		Load_Top	At_Offset_3
075e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
075f 822a       | *  |		Call	0x1,0x2a
0760 00db       |    |		Load_Top	At_Offset_3
0761 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0762 e5fe       |    |		Load	0x2,-0x2
0763 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0764 822a       | *  |		Call	0x1,0x2a
0765 e5fe       |    |		Load	0x2,-0x2
0766 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0767 e5ff       |    |		Load	0x2,-0x1
0768 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0769 822a       | *  |		Call	0x1,0x2a
076a 8228       | (  |		Call	0x1,0x28
076b 829f       |    |		Call	0x1,0x9f
076c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
076d 0000 0000  |    |		.XXX[0x3]
076f 0000       |    |
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773       | s  |		.CONST	0x0773								; Address of begin
0771 0004       |    |		.CONST	0x0004								; Address of exception handler
0772 0001       |    |		.CONST	0x0001								; Number of locals
0773			BODY_0770:
0773			INIT_0770:
0773 00db       |    |		Load_Top	At_Offset_3
0774 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0775 00db       |    |		Load_Top	At_Offset_3
0776 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0777 822a       | *  |		Call	0x1,0x2a
0778 00db       |    |		Load_Top	At_Offset_3
0779 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
077a e5fe       |    |		Load	0x2,-0x2
077b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
077c 822a       | *  |		Call	0x1,0x2a
077d e5fe       |    |		Load	0x2,-0x2
077e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
077f e5ff       |    |		Load	0x2,-0x1
0780 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0781 822a       | *  |		Call	0x1,0x2a
0782 8229       | )  |		Call	0x1,0x29
0783 829f       |    |		Call	0x1,0x9f
0784 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0785 0000 0000  |    |		.XXX[0x3]
0787 0000       |    |
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b       |    |		.CONST	0x078b								; Address of begin
0789 0004       |    |		.CONST	0x0004								; Address of exception handler
078a 0001       |    |		.CONST	0x0001								; Number of locals
078b			BODY_0788:
078b			INIT_0788:
078b 00db       |    |		Load_Top	At_Offset_3
078c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
078d 00db       |    |		Load_Top	At_Offset_3
078e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
078f 822a       | *  |		Call	0x1,0x2a
0790 e5fe       |    |		Load	0x2,-0x2
0791 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0792 e5ff       |    |		Load	0x2,-0x1
0793 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0794 822a       | *  |		Call	0x1,0x2a
0795 829f       |    |		Call	0x1,0x9f
0796 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0797 0000       |    |		.XXX[0x1]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b       |    |		.CONST	0x079b								; Address of begin
0799 0004       |    |		.CONST	0x0004								; Address of exception handler
079a 0001       |    |		.CONST	0x0001								; Number of locals
079b			BODY_0798:
079b			INIT_0798:
079b 00db       |    |		Load_Top	At_Offset_3
079c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
079d 00db       |    |		Load_Top	At_Offset_3
079e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
079f 822a       | *  |		Call	0x1,0x2a
07a0 e5fe       |    |		Load	0x2,-0x2
07a1 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07a2 e5ff       |    |		Load	0x2,-0x1
07a3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07a4 822a       | *  |		Call	0x1,0x2a
07a5 829f       |    |		Call	0x1,0x9f
07a6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07a7 0000       |    |		.XXX[0x1]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab       |    |		.CONST	0x07ab								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0001       |    |		.CONST	0x0001								; Number of locals
07ab			BODY_07a8:
07ab			INIT_07a8:
07ab 00db       |    |		Load_Top	At_Offset_3
07ac 7002       |p   |		Jump_Nonzero	0x7af
07ad e29b       |    |		Load	0x1,0x9b
07ae 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07af 00db       |    |		Load_Top	At_Offset_3
07b0 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
07b1 6811       |h   |		Jump_Zero	0x7c3
07b2 00db       |    |		Load_Top	At_Offset_3
07b3 0f01       |    |		Execute_Immediate	Equal,0x1
07b4 6804       |h   |		Jump_Zero	0x7b9
07b5 00da       |    |		Load_Top	At_Offset_2
07b6 02fd       |    |		Declare_Variable	Variant_Record,Duplicate
07b7 00cd       |    |		Action	Spare6_Action
07b8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07b9 00db       |    |		Load_Top	At_Offset_3
07ba 00db       |    |		Load_Top	At_Offset_3
07bb 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07bc 822e       | .  |		Call	0x1,0x2e
07bd e5fe       |    |		Load	0x2,-0x2
07be e5ff       |    |		Load	0x2,-0x1
07bf 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07c0 822e       | .  |		Call	0x1,0x2e
07c1 829f       |    |		Call	0x1,0x9f
07c2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07c3 00db       |    |		Load_Top	At_Offset_3
07c4 4fff       |O   |		Short_Literal	-0x1
07c5 027f       |    |		Execute	Discrete,Equal
07c6 6814       |h   |		Jump_Zero	0x7db
07c7 4801       |H   |		Short_Literal	0x1
07c8 00db       |    |		Load_Top	At_Offset_3
07c9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07ca 01d7       |    |		Execute	Vector,Field_Read
07cb 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
07cc 6806       |h   |		Jump_Zero	0x7d3
07cd 00da       |    |		Load_Top	At_Offset_2
07ce 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07cf 00db       |    |		Load_Top	At_Offset_3
07d0 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07d1 82b5       |    |		Call	0x1,0xb5
07d2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07d3 00da       |    |		Load_Top	At_Offset_2
07d4 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07d5 8226       | &  |		Call	0x1,0x26
07d6 00db       |    |		Load_Top	At_Offset_3
07d7 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07d8 8226       | &  |		Call	0x1,0x26
07d9 82b5       |    |		Call	0x1,0xb5
07da 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07db 00db       |    |		Load_Top	At_Offset_3
07dc 0275       | u  |		Execute	Discrete,Unary_Minus
07dd 00db       |    |		Load_Top	At_Offset_3
07de 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07df 822e       | .  |		Call	0x1,0x2e
07e0 e5fe       |    |		Load	0x2,-0x2
07e1 0275       | u  |		Execute	Discrete,Unary_Minus
07e2 e5ff       |    |		Load	0x2,-0x1
07e3 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07e4 822e       | .  |		Call	0x1,0x2e
07e5 829f       |    |		Call	0x1,0x9f
07e6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07e7 0000       |    |		.XXX[0x1]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb       |    |		.CONST	0x07eb								; Address of begin
07e9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ea 0001       |    |		.CONST	0x0001								; Number of locals
07eb			BODY_07e8:
07eb			INIT_07e8:
07eb 00db       |    |		Load_Top	At_Offset_3
07ec 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07ed 00db       |    |		Load_Top	At_Offset_3
07ee e5fe       |    |		Load	0x2,-0x2
07ef 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
07f0 822a       | *  |		Call	0x1,0x2a
07f1 829f       |    |		Call	0x1,0x9f
07f2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07f3 0000 0000  |    |		.BLANK	0000[0x5]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb       |    |		.CONST	0x07fb								; Address of begin
07f9 0004       |    |		.CONST	0x0004								; Address of exception handler
07fa 0001       |    |		.CONST	0x0001								; Number of locals
07fb			BODY_07f8:
07fb			INIT_07f8:
07fb 00da       |    |		Load_Top	At_Offset_2
07fc 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
07fd e5fe       |    |		Load	0x2,-0x2
07fe e5ff       |    |		Load	0x2,-0x1
07ff 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0800 822a       | *  |		Call	0x1,0x2a
0801 829f       |    |		Call	0x1,0x9f
0802 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0803 0000 0000  |    |		.BLANK	0000[0x5]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 080b       |    |		.CONST	0x080b								; Address of begin
0809 0004       |    |		.CONST	0x0004								; Address of exception handler
080a 0001       |    |		.CONST	0x0001								; Number of locals
080b			BODY_0808:
080b			INIT_0808:
080b 00db       |    |		Load_Top	At_Offset_3
080c 00db       |    |		Load_Top	At_Offset_3
080d 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
080e 822a       | *  |		Call	0x1,0x2a
080f 00db       |    |		Load_Top	At_Offset_3
0810 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0811 829f       |    |		Call	0x1,0x9f
0812 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0813 0000 0000  |    |		.BLANK	0000[0x5]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b       |    |		.CONST	0x081b								; Address of begin
0819 0004       |    |		.CONST	0x0004								; Address of exception handler
081a 0001       |    |		.CONST	0x0001								; Number of locals
081b			BODY_0818:
081b			INIT_0818:
081b 00db       |    |		Load_Top	At_Offset_3
081c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
081d e5fe       |    |		Load	0x2,-0x2
081e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
081f e5ff       |    |		Load	0x2,-0x1
0820 8230       | 0  |		Call	0x1,0x30
0821 829f       |    |		Call	0x1,0x9f
0822 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0823 0000 0000  |    |		.BLANK	0000[0x5]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b       | +  |		.CONST	0x082b								; Address of begin
0829 0004       |    |		.CONST	0x0004								; Address of exception handler
082a 0001       |    |		.CONST	0x0001								; Number of locals
082b			BODY_0828:
082b			INIT_0828:
082b 00da       |    |		Load_Top	At_Offset_2
082c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
082d e5fe       |    |		Load	0x2,-0x2
082e e5ff       |    |		Load	0x2,-0x1
082f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0830 8231       | 1  |		Call	0x1,0x31
0831 829f       |    |		Call	0x1,0x9f
0832 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0833 0000 0000  |    |		.BLANK	0000[0x5]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083b       | ;  |		.CONST	0x083b								; Address of begin
0839 0004       |    |		.CONST	0x0004								; Address of exception handler
083a 0001       |    |		.CONST	0x0001								; Number of locals
083b			BODY_0838:
083b			INIT_0838:
083b 00da       |    |		Load_Top	At_Offset_2
083c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
083d e5fe       |    |		Load	0x2,-0x2
083e 8230       | 0  |		Call	0x1,0x30
083f 00db       |    |		Load_Top	At_Offset_3
0840 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0841 829f       |    |		Call	0x1,0x9f
0842 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0843 0000 0000  |    |		.BLANK	0000[0x5]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084b       | K  |		.CONST	0x084b								; Address of begin
0849 0004       |    |		.CONST	0x0004								; Address of exception handler
084a 0001       |    |		.CONST	0x0001								; Number of locals
084b			BODY_0848:
084b			INIT_0848:
084b 00db       |    |		Load_Top	At_Offset_3
084c 00db       |    |		Load_Top	At_Offset_3
084d 8243       | C  |		Call	0x1,0x43
084e 6804       |h   |		Jump_Zero	0x853
084f e5fd       |    |		Load	0x2,-0x3
0850 00db       |    |		Load_Top	At_Offset_3
0851 8241       | A  |		Call	0x1,0x41
0852 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0853 4800       |H   |		Short_Literal	0x0
0854 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0855 0000 0000  |    |		.XXX[0x3]
0857 0000       |    |
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 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
085d 8239       | 9  |		Call	0x1,0x39
085e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
085f 0000       |    |		.XXX[0x1]
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863       | c  |		.CONST	0x0863								; Address of begin
0861 0004       |    |		.CONST	0x0004								; Address of exception handler
0862 0001       |    |		.CONST	0x0001								; Number of locals
0863			BODY_0860:
0863			INIT_0860:
0863 00da       |    |		Load_Top	At_Offset_2
0864 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0865 e5fe       |    |		Load	0x2,-0x2
0866 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0867 822a       | *  |		Call	0x1,0x2a
0868 e5fe       |    |		Load	0x2,-0x2
0869 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
086a e5ff       |    |		Load	0x2,-0x1
086b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
086c 822a       | *  |		Call	0x1,0x2a
086d 823a       | :  |		Call	0x1,0x3a
086e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
086f 0000       |    |		.XXX[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 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0875 0335       | 5  |		Declare_Variable	Array,Duplicate
0876 00cd       |    |		Action	Spare6_Action
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 8255       | U  |		Call	0x1,0x55
087d e267       | g  |		Load	0x1,0x67
087e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
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 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0885 0335       | 5  |		Declare_Variable	Array,Duplicate
0886 00cd       |    |		Action	Spare6_Action
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 00da       |    |		Load_Top	At_Offset_2
088c 8257       | W  |		Call	0x1,0x57
088d e267       | g  |		Load	0x1,0x67
088e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
088f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e299       |    |		Load	0x1,0x99
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 e29a       |    |		Load	0x1,0x9a
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 e29b       |    |		Load	0x1,0x9b
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 e29c       |    |		Load	0x1,0x9c
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 e29d       |    |		Load	0x1,0x9d
08b4 00ca       |    |		Action	Exit_Nullary_Function
08b5 0000 0000  |    |		.XXX[0x3]
08b7 0000       |    |
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bb       |    |		.CONST	0x08bb								; Address of begin
08b9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ba 0001       |    |		.CONST	0x0001								; Number of locals
08bb			BODY_08b8:
08bb			INIT_08b8:
08bb 4801       |H   |		Short_Literal	0x1
08bc 00db       |    |		Load_Top	At_Offset_3
08bd 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
08be 01d7       |    |		Execute	Vector,Field_Read
08bf 0f01       |    |		Execute_Immediate	Equal,0x1
08c0 6805       |h   |		Jump_Zero	0x8c6
08c1 00da       |    |		Load_Top	At_Offset_2
08c2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
08c3 01db       |    |		Execute	Vector,Length
08c4 0f01       |    |		Execute_Immediate	Equal,0x1
08c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08c6 4800       |H   |		Short_Literal	0x0
08c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08cb       |    |		.CONST	0x08cb								; Address of begin
08c9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ca 0001       |    |		.CONST	0x0001								; Number of locals
08cb			BODY_08c8:
08cb			INIT_08c8:
08cb 4801       |H   |		Short_Literal	0x1
08cc 00db       |    |		Load_Top	At_Offset_3
08cd 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08ce 01d7       |    |		Execute	Vector,Field_Read
08cf 0274       | t  |		Execute	Discrete,Absolute_Value
08d0 0f01       |    |		Execute_Immediate	Equal,0x1
08d1 6805       |h   |		Jump_Zero	0x8d7
08d2 00da       |    |		Load_Top	At_Offset_2
08d3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08d4 01db       |    |		Execute	Vector,Length
08d5 0f01       |    |		Execute_Immediate	Equal,0x1
08d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08d7 4800       |H   |		Short_Literal	0x0
08d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08d9 0000 0000  |    |		.BLANK	0000[0x7]
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 e296       |    |		Load	0x1,0x96
08e4 00db       |    |		Load_Top	At_Offset_3
08e5 8265       | e  |		Call	0x1,0x65
08e6 82b5       |    |		Call	0x1,0xb5
08e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08eb       |    |		.CONST	0x08eb								; Address of begin
08e9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ea 0001       |    |		.CONST	0x0001								; Number of locals
08eb			BODY_08e8:
08eb			INIT_08e8:
08eb 00da       |    |		Load_Top	At_Offset_2
08ec 8262       | b  |		Call	0x1,0x62
08ed 6805       |h   |		Jump_Zero	0x8f3
08ee 00da       |    |		Load_Top	At_Offset_2
08ef 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08f0 0335       | 5  |		Declare_Variable	Array,Duplicate
08f1 00cd       |    |		Action	Spare6_Action
08f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08f3 00da       |    |		Load_Top	At_Offset_2
08f4 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
08f5 00db       |    |		Load_Top	At_Offset_3
08f6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
08f7 8227       | '  |		Call	0x1,0x27
08f8 8221       | !  |		Call	0x1,0x21
08f9 6802       |h   |		Jump_Zero	0x8fc
08fa e295       |    |		Load	0x1,0x95
08fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08fc 00da       |    |		Load_Top	At_Offset_2
08fd 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
08fe 00db       |    |		Load_Top	At_Offset_3
08ff 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0900 822b       | +  |		Call	0x1,0x2b
0901 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0902 0000 0000  |    |		.BLANK	0000[0x6]
0908 ; --------------------------------------------------------------------------------------
0908 ; SUBPROGRAM
0908 ; --------------------------------------------------------------------------------------
0908 090b       |    |		.CONST	0x090b								; Address of begin
0909 0004       |    |		.CONST	0x0004								; Address of exception handler
090a 0001       |    |		.CONST	0x0001								; Number of locals
090b			BODY_0908:
090b			INIT_0908:
090b 00da       |    |		Load_Top	At_Offset_2
090c 8262       | b  |		Call	0x1,0x62
090d 6802       |h   |		Jump_Zero	0x910
090e e299       |    |		Load	0x1,0x99
090f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0910 00da       |    |		Load_Top	At_Offset_2
0911 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0912 00db       |    |		Load_Top	At_Offset_3
0913 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0914 e5ff       |    |		Load	0x2,-0x1
0915 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0916 822d       | -  |		Call	0x1,0x2d
0917 829f       |    |		Call	0x1,0x9f
0918 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0919 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0924 00e0       |    |		Load_Encached	Standard_Cache
0925 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0926 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0927 0000       |    |		.XXX[0x1]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092b       | +  |		.CONST	0x092b								; Address of begin
0929 0004       |    |		.CONST	0x0004								; Address of exception handler
092a 0001       |    |		.CONST	0x0001								; Number of locals
092b			BODY_0928:
092b			INIT_0928:
092b 4607       |F   |		Jump_Case	0x8
092c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
092d 7806       |x   |		Jump	0x934								; case 0x1
092e 7809       |x   |		Jump	0x938								; case 0x2
092f 780d       |x   |		Jump	0x93d								; case 0x3
0930 7810       |x   |		Jump	0x941								; case 0x4
0931 7811       |x   |		Jump	0x943								; case 0x5
0932 7812       |x   |		Jump	0x945								; case 0x6
0933 7815       |x   |		Jump	0x949								; case 0x7
0934 00da       |    |		Load_Top	At_Offset_2
0935 0091 145d  |   ]|		Action	Push_String_Extended_Indexed,0x145d				; "QUOTIENT"
0937 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0938 00db       |    |		Load_Top	At_Offset_3
0939 00db       |    |		Load_Top	At_Offset_3
093a 00e0       |    |		Load_Encached	Standard_Cache
093b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
093c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
093d 00da       |    |		Load_Top	At_Offset_2
093e 00e0       |    |		Load_Encached	Standard_Cache
093f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0940 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0941 00db       |    |		Load_Top	At_Offset_3
0942 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0943 00db       |    |		Load_Top	At_Offset_3
0944 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0945 e293       |    |		Load	0x1,0x93
0946 00dc       |    |		Load_Top	At_Offset_4
0947 0267       | g  |		Execute	Discrete,Predecessor
0948 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0949 e293       |    |		Load	0x1,0x93
094a 00dc       |    |		Load_Top	At_Offset_4
094b 0268       | h  |		Execute	Discrete,Successor
094c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
094d 0000 0000  |    |		.XXX[0x3]
094f 0000       |    |
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0953       | S  |		.CONST	0x0953								; Address of begin
0951 0004       |    |		.CONST	0x0004								; Address of exception handler
0952 0001       |    |		.CONST	0x0001								; Number of locals
0953			BODY_0950:
0953			INIT_0950:
0953 00da       |    |		Load_Top	At_Offset_2
0954 e267       | g  |		Load	0x1,0x67
0955 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0956 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0957 0000       |    |		.XXX[0x1]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 0962       | b  |		.CONST	0x0962								; Address of begin
0959 0004       |    |		.CONST	0x0004								; Address of exception handler
095a 0002       |    |		.CONST	0x0002								; Number of locals
095b			INIT_0958:
095b 00db       |    |		Load_Top	At_Offset_3
095c 01dc       |    |		Execute	Vector,Last
095d 00db       |    |		Load_Top	At_Offset_3
095e 01db       |    |		Execute	Vector,Length
095f 0272       | r  |		Execute	Discrete,Minus
0960 00e2       |    |		Load_Encached	Integer_Cache
0961 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0962			BODY_0958:
0962 e5fe       |    |		Load	0x2,-0x2
0963 01db       |    |		Execute	Vector,Length
0964 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0965 6820       |h   |		Jump_Zero	0x986
0966 00db       |    |		Load_Top	At_Offset_3
0967 00d9       |    |		Load_Top	At_Offset_1
0968 0a01       |    |		Execute_Immediate	Plus,0x1
0969 00d8       |    |		Load_Top	At_Offset_0
096a 00e2       |    |		Load_Encached	Integer_Cache
096b 0260       | `  |		Execute	Discrete,In_Type
096c 7001       |p   |		Jump_Nonzero	0x96e
096d 0801       |    |		Execute_Immediate	Raise,0x1
096e e5fe       |    |		Load	0x2,-0x2
096f 01dc       |    |		Execute	Vector,Last
0970 e5fe       |    |		Load	0x2,-0x2
0971 01ce       |    |		Execute	Vector,Slice_Write
0972 e5fe       |    |		Load	0x2,-0x2
0973 01dd       |    |		Execute	Vector,First
0974 00d9       |    |		Load_Top	At_Offset_1
0975 e220       |    |		Load	0x1,0x20
0976 035b       | [  |		Declare_Type	Array,Constrained
0977 0337       | 7  |		Declare_Variable	Array
0978 00d8       |    |		Load_Top	At_Offset_0
0979 01d9       |    |		Execute	Vector,Reverse_Bounds
097a 0263       | c  |		Execute	Discrete,Above_Bound
097b 7005       |p   |		Jump_Nonzero	0x981
097c 4800       |H   |		Short_Literal	0x0
097d 00d9       |    |		Load_Top	At_Offset_1
097e e403       |    |		Load	0x2,0x3
097f 01d6       |    |		Execute	Vector,Field_Write
0980 3ffb       |?   |		Loop_Increasing	0x97c
0981 e5fe       |    |		Load	0x2,-0x2
0982 01dd       |    |		Execute	Vector,First
0983 00da       |    |		Load_Top	At_Offset_2
0984 e5fe       |    |		Load	0x2,-0x2
0985 01ce       |    |		Execute	Vector,Slice_Write
0986 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0987 0000       |    |		.XXX[0x1]
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 098b       |    |		.CONST	0x098b								; Address of begin
0989 0004       |    |		.CONST	0x0004								; Address of exception handler
098a 0001       |    |		.CONST	0x0001								; Number of locals
098b			BODY_0988:
098b			INIT_0988:
098b 00db       |    |		Load_Top	At_Offset_3
098c 01db       |    |		Execute	Vector,Length
098d 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
098e 6828       |h(  |		Jump_Zero	0x9b7
098f 00da       |    |		Load_Top	At_Offset_2
0990 e5fe       |    |		Load	0x2,-0x2
0991 01dc       |    |		Execute	Vector,Last
0992 e5fe       |    |		Load	0x2,-0x2
0993 01d6       |    |		Execute	Vector,Field_Write
0994 00db       |    |		Load_Top	At_Offset_3
0995 e5fe       |    |		Load	0x2,-0x2
0996 01dd       |    |		Execute	Vector,First
0997 e5fe       |    |		Load	0x2,-0x2
0998 01dc       |    |		Execute	Vector,Last
0999 0aff       |    |		Execute_Immediate	Plus,-0x1
099a 00d8       |    |		Load_Top	At_Offset_0
099b 00e2       |    |		Load_Encached	Integer_Cache
099c 0260       | `  |		Execute	Discrete,In_Type
099d 7001       |p   |		Jump_Nonzero	0x99f
099e 0801       |    |		Execute_Immediate	Raise,0x1
099f 00d9       |    |		Load_Top	At_Offset_1
09a0 00d9       |    |		Load_Top	At_Offset_1
09a1 e402       |    |		Load	0x2,0x2
09a2 035b       | [  |		Declare_Type	Array,Constrained
09a3 00db       |    |		Load_Top	At_Offset_3
09a4 01cd       |    |		Execute	Vector,Slice_Reference
09a5 00d8       |    |		Load_Top	At_Offset_0
09a6 0335       | 5  |		Declare_Variable	Array,Duplicate
09a7 00cd       |    |		Action	Spare6_Action
09a8 00d9       |    |		Load_Top	At_Offset_1
09a9 01d9       |    |		Execute	Vector,Reverse_Bounds
09aa 0263       | c  |		Execute	Discrete,Above_Bound
09ab 7005       |p   |		Jump_Nonzero	0x9b1
09ac 4800       |H   |		Short_Literal	0x0
09ad 00d9       |    |		Load_Top	At_Offset_1
09ae e406       |    |		Load	0x2,0x6
09af 01d6       |    |		Execute	Vector,Field_Write
09b0 3ffb       |?   |		Loop_Increasing	0x9ac
09b1 00cd       |    |		Action	Spare6_Action
09b2 00da       |    |		Load_Top	At_Offset_2
09b3 00da       |    |		Load_Top	At_Offset_2
09b4 e402       |    |		Load	0x2,0x2
09b5 01ce       |    |		Execute	Vector,Slice_Write
09b6 00d3       |    |		Pop_Control	Pop_Count_3
09b7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb       |    |		.CONST	0x09bb								; Address of begin
09b9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ba 0001       |    |		.CONST	0x0001								; Number of locals
09bb			BODY_09b8:
09bb			INIT_09b8:
09bb 4801       |H   |		Short_Literal	0x1
09bc e5fe       |    |		Load	0x2,-0x2
09bd 01d7       |    |		Execute	Vector,Field_Read
09be 702a       |p*  |		Jump_Nonzero	0x9e9
09bf 4801       |H   |		Short_Literal	0x1
09c0 a5fd       |    |		Store_Unchecked	0x2,-0x3
09c1 00cf       |    |		Action	Mark_Auxiliary
09c2 e5fe       |    |		Load	0x2,-0x2
09c3 01dc       |    |		Execute	Vector,Last
09c4 4802       |H   |		Short_Literal	0x2
09c5 0263       | c  |		Execute	Discrete,Above_Bound
09c6 7020       |p   |		Jump_Nonzero	0x9e7
09c7 00d8       |    |		Load_Top	At_Offset_0
09c8 e5fe       |    |		Load	0x2,-0x2
09c9 01d7       |    |		Execute	Vector,Field_Read
09ca 681a       |h   |		Jump_Zero	0x9e5
09cb 00d8       |    |		Load_Top	At_Offset_0
09cc e5fe       |    |		Load	0x2,-0x2
09cd 01dc       |    |		Execute	Vector,Last
09ce e5fe       |    |		Load	0x2,-0x2
09cf 01cf       |    |		Execute	Vector,Slice_Read
09d0 4801       |H   |		Short_Literal	0x1
09d1 e5fe       |    |		Load	0x2,-0x2
09d2 01dc       |    |		Execute	Vector,Last
09d3 00db       |    |		Load_Top	At_Offset_3
09d4 0272       | r  |		Execute	Discrete,Minus
09d5 0a01       |    |		Execute_Immediate	Plus,0x1
09d6 00d8       |    |		Load_Top	At_Offset_0
09d7 00e2       |    |		Load_Encached	Integer_Cache
09d8 0260       | `  |		Execute	Discrete,In_Type
09d9 7001       |p   |		Jump_Nonzero	0x9db
09da 0801       |    |		Execute_Immediate	Raise,0x1
09db e5fe       |    |		Load	0x2,-0x2
09dc 01ce       |    |		Execute	Vector,Slice_Write
09dd e5fe       |    |		Load	0x2,-0x2
09de 01dc       |    |		Execute	Vector,Last
09df 00d9       |    |		Load_Top	At_Offset_1
09e0 0272       | r  |		Execute	Discrete,Minus
09e1 0a01       |    |		Execute_Immediate	Plus,0x1
09e2 c5fd       |    |		Store	0x2,-0x3
09e3 00d2       |    |		Pop_Control	Pop_Count_2
09e4 7802       |x   |		Jump	0x9e7
09e5 00c8       |    |		Action	Pop_Auxiliary_Range
09e6 3fe0       |?   |		Loop_Increasing	0x9c7
09e7 00ce       |    |		Action	Pop_Auxiliary
09e8 7803       |x   |		Jump	0x9ec
09e9 00db       |    |		Load_Top	At_Offset_3
09ea 01dc       |    |		Execute	Vector,Last
09eb a5fd       |    |		Store_Unchecked	0x2,-0x3
09ec 00da       |    |		Load_Top	At_Offset_2
09ed 6807       |h   |		Jump_Zero	0x9f5
09ee 4801       |H   |		Short_Literal	0x1
09ef e5fe       |    |		Load	0x2,-0x2
09f0 01d7       |    |		Execute	Vector,Field_Read
09f1 0275       | u  |		Execute	Discrete,Unary_Minus
09f2 4801       |H   |		Short_Literal	0x1
09f3 e5fe       |    |		Load	0x2,-0x2
09f4 01d6       |    |		Execute	Vector,Field_Write
09f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09f6 0000 0000  |    |		.XXX[0x2]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 09fd       |    |		.CONST	0x09fd								; Address of begin
09f9 0004       |    |		.CONST	0x0004								; Address of exception handler
09fa 0002       |    |		.CONST	0x0002								; Number of locals
09fb			INIT_09f8:
09fb 029f 0f8b  |    |		Declare_Subprogram	INIT_0f88,For_Call
09fd			BODY_09f8:
09fd 00cf       |    |		Action	Mark_Auxiliary
09fe e5ff       |    |		Load	0x2,-0x1
09ff 01d9       |    |		Execute	Vector,Reverse_Bounds
0a00 0263       | c  |		Execute	Discrete,Above_Bound
0a01 700e       |p   |		Jump_Nonzero	0xa10
0a02 00d8       |    |		Load_Top	At_Offset_0
0a03 e5ff       |    |		Load	0x2,-0x1
0a04 01d7       |    |		Execute	Vector,Field_Read
0a05 6808       |h   |		Jump_Zero	0xa0e
0a06 00d8       |    |		Load_Top	At_Offset_0
0a07 0f01       |    |		Execute_Immediate	Equal,0x1
0a08 6804       |h   |		Jump_Zero	0xa0d
0a09 e5fe       |    |		Load	0x2,-0x2
0a0a 7002       |p   |		Jump_Nonzero	0xa0d
0a0b e5ff       |    |		Load	0x2,-0x1
0a0c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a0d 8402       |    |		Call	0x2,0x2
0a0e 00c8       |    |		Action	Pop_Auxiliary_Range
0a0f 3ff2       |?   |		Loop_Increasing	0xa02
0a10 00ce       |    |		Action	Pop_Auxiliary
0a11 e295       |    |		Load	0x1,0x95
0a12 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a13 0000 0000  |    |		.BLANK	0000[0x5]
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a1b       |    |		.CONST	0x0a1b								; Address of begin
0a19 0004       |    |		.CONST	0x0004								; Address of exception handler
0a1a 0001       |    |		.CONST	0x0001								; Number of locals
0a1b			BODY_0a18:
0a1b			INIT_0a18:
0a1b 00da       |    |		Load_Top	At_Offset_2
0a1c 01db       |    |		Execute	Vector,Length
0a1d e5fe       |    |		Load	0x2,-0x2
0a1e 01db       |    |		Execute	Vector,Length
0a1f e233       | 3  |		Load	0x1,0x33
0a20 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0a21 00db       |    |		Load_Top	At_Offset_3
0a22 00d9       |    |		Load_Top	At_Offset_1
0a23 00d8       |    |		Load_Top	At_Offset_0
0a24 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0a25 00da       |    |		Load_Top	At_Offset_2
0a26 01da       |    |		Execute	Vector,Bounds
0a27 00da       |    |		Load_Top	At_Offset_2
0a28 01da       |    |		Execute	Vector,Bounds
0a29 00da       |    |		Load_Top	At_Offset_2
0a2a 027f       |    |		Execute	Discrete,Equal
0a2b 7001       |p   |		Jump_Nonzero	0xa2d
0a2c 08e0       |    |		Execute_Immediate	Raise,0xe0
0a2d 00cd       |    |		Action	Spare6_Action
0a2e 027f       |    |		Execute	Discrete,Equal
0a2f 7001       |p   |		Jump_Nonzero	0xa31
0a30 08e0       |    |		Execute_Immediate	Raise,0xe0
0a31 00d2       |    |		Pop_Control	Pop_Count_2
0a32 00d9       |    |		Load_Top	At_Offset_1
0a33 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0a34 e5fe       |    |		Load	0x2,-0x2
0a35 00d9       |    |		Load_Top	At_Offset_1
0a36 00d8       |    |		Load_Top	At_Offset_0
0a37 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0a38 00da       |    |		Load_Top	At_Offset_2
0a39 01da       |    |		Execute	Vector,Bounds
0a3a 00da       |    |		Load_Top	At_Offset_2
0a3b 01da       |    |		Execute	Vector,Bounds
0a3c 00da       |    |		Load_Top	At_Offset_2
0a3d 027f       |    |		Execute	Discrete,Equal
0a3e 7001       |p   |		Jump_Nonzero	0xa40
0a3f 08e0       |    |		Execute_Immediate	Raise,0xe0
0a40 00cd       |    |		Action	Spare6_Action
0a41 027f       |    |		Execute	Discrete,Equal
0a42 7001       |p   |		Jump_Nonzero	0xa44
0a43 08e0       |    |		Execute_Immediate	Raise,0xe0
0a44 00d2       |    |		Pop_Control	Pop_Count_2
0a45 00d9       |    |		Load_Top	At_Offset_1
0a46 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0a47 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a5c       | \  |		.CONST	0x0a5c								; Address of begin
0a49 0004       |    |		.CONST	0x0004								; Address of exception handler
0a4a 0004       |    |		.CONST	0x0004								; Number of locals
0a4b			INIT_0a48:
0a4b 4801       |H   |		Short_Literal	0x1
0a4c 00db       |    |		Load_Top	At_Offset_3
0a4d 01db       |    |		Execute	Vector,Length
0a4e 00d8       |    |		Load_Top	At_Offset_0
0a4f 00e2       |    |		Load_Encached	Integer_Cache
0a50 0260       | `  |		Execute	Discrete,In_Type
0a51 7001       |p   |		Jump_Nonzero	0xa53
0a52 0801       |    |		Execute_Immediate	Raise,0x1
0a53 e220       |    |		Load	0x1,0x20
0a54 035b       | [  |		Declare_Type	Array,Constrained
0a55 0337       | 7  |		Declare_Variable	Array
0a56 00db       |    |		Load_Top	At_Offset_3
0a57 00d9       |    |		Load_Top	At_Offset_1
0a58 01d4       |    |		Execute	Vector,Structure_Write
0a59 e21f       |    |		Load	0x1,0x1f
0a5a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a5b 00e5       |    |		Load_Encached	Long_Integer_Cache
0a5c			BODY_0a48:
0a5c 4801       |H   |		Short_Literal	0x1
0a5d 00db       |    |		Load_Top	At_Offset_3
0a5e 01d7       |    |		Execute	Vector,Field_Read
0a5f 0274       | t  |		Execute	Discrete,Absolute_Value
0a60 4801       |H   |		Short_Literal	0x1
0a61 e402       |    |		Load	0x2,0x2
0a62 01d6       |    |		Execute	Vector,Field_Write
0a63 00da       |    |		Load_Top	At_Offset_2
0a64 01db       |    |		Execute	Vector,Length
0a65 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0a66 6807       |h   |		Jump_Zero	0xa6e
0a67 4802       |H   |		Short_Literal	0x2
0a68 00db       |    |		Load_Top	At_Offset_3
0a69 01d7       |    |		Execute	Vector,Field_Read
0a6a 0274       | t  |		Execute	Discrete,Absolute_Value
0a6b 4802       |H   |		Short_Literal	0x2
0a6c e402       |    |		Load	0x2,0x2
0a6d 01d6       |    |		Execute	Vector,Field_Write
0a6e e5fe       |    |		Load	0x2,-0x2
0a6f 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0a70 6819       |h   |		Jump_Zero	0xa8a
0a71 00cf       |    |		Action	Mark_Auxiliary
0a72 00db       |    |		Load_Top	At_Offset_3
0a73 01da       |    |		Execute	Vector,Bounds
0a74 0264       | d  |		Execute	Discrete,Below_Bound
0a75 7013       |p   |		Jump_Nonzero	0xa89
0a76 00d8       |    |		Load_Top	At_Offset_0
0a77 e402       |    |		Load	0x2,0x2
0a78 01d7       |    |		Execute	Vector,Field_Read
0a79 e5fe       |    |		Load	0x2,-0x2
0a7a 0271       | q  |		Execute	Discrete,Times
0a7b e403       |    |		Load	0x2,0x3
0a7c 0273       | s  |		Execute	Discrete,Plus
0a7d a404       |    |		Store_Unchecked	0x2,0x4
0a7e 00db       |    |		Load_Top	At_Offset_3
0a7f 6010       |`   |		Indirect_Literal	Discrete,0xa90,{0x00000000, 0x80000000}
0a80 026f       | o  |		Execute	Discrete,Remainder
0a81 00d9       |    |		Load_Top	At_Offset_1
0a82 e402       |    |		Load	0x2,0x2
0a83 01d6       |    |		Execute	Vector,Field_Write
0a84 00db       |    |		Load_Top	At_Offset_3
0a85 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
0a86 c403       |    |		Store	0x2,0x3
0a87 00c8       |    |		Action	Pop_Auxiliary_Range
0a88 37ed       |7   |		Loop_Decreasing	0xa76
0a89 00ce       |    |		Action	Pop_Auxiliary
0a8a 00da       |    |		Load_Top	At_Offset_2
0a8b e220       |    |		Load	0x1,0x20
0a8c 01c6       |    |		Execute	Vector,Convert_To_Formal
0a8d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a8e 0000 0000  |    |		.XXX[0x2]
0a90 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0a94 0000 0000  |    |		.BLANK	0000[0x4]
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0aa2       |    |		.CONST	0x0aa2								; Address of begin
0a99 0004       |    |		.CONST	0x0004								; Address of exception handler
0a9a 0004       |    |		.CONST	0x0004								; Number of locals
0a9b			INIT_0a98:
0a9b e21f       |    |		Load	0x1,0x1f
0a9c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0a9d e5fe       |    |		Load	0x2,-0x2
0a9e 0274       | t  |		Execute	Discrete,Absolute_Value
0a9f e21f       |    |		Load	0x1,0x1f
0aa0 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0aa1 00e5       |    |		Load_Encached	Long_Integer_Cache
0aa2			BODY_0a98:
0aa2 4801       |H   |		Short_Literal	0x1
0aa3 e5ff       |    |		Load	0x2,-0x1
0aa4 01d7       |    |		Execute	Vector,Field_Read
0aa5 0274       | t  |		Execute	Discrete,Absolute_Value
0aa6 4801       |H   |		Short_Literal	0x1
0aa7 e5ff       |    |		Load	0x2,-0x1
0aa8 01d6       |    |		Execute	Vector,Field_Write
0aa9 00d9       |    |		Load_Top	At_Offset_1
0aaa 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0aab 6819       |h   |		Jump_Zero	0xac5
0aac 00cf       |    |		Action	Mark_Auxiliary
0aad e5ff       |    |		Load	0x2,-0x1
0aae 01d9       |    |		Execute	Vector,Reverse_Bounds
0aaf 0263       | c  |		Execute	Discrete,Above_Bound
0ab0 7013       |p   |		Jump_Nonzero	0xac4
0ab1 e402       |    |		Load	0x2,0x2
0ab2 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
0ab3 00d9       |    |		Load_Top	At_Offset_1
0ab4 e5ff       |    |		Load	0x2,-0x1
0ab5 01d7       |    |		Execute	Vector,Field_Read
0ab6 0273       | s  |		Execute	Discrete,Plus
0ab7 a404       |    |		Store_Unchecked	0x2,0x4
0ab8 00db       |    |		Load_Top	At_Offset_3
0ab9 e403       |    |		Load	0x2,0x3
0aba 0270       | p  |		Execute	Discrete,Divide
0abb 00d9       |    |		Load_Top	At_Offset_1
0abc e5ff       |    |		Load	0x2,-0x1
0abd 01d6       |    |		Execute	Vector,Field_Write
0abe 00db       |    |		Load_Top	At_Offset_3
0abf e403       |    |		Load	0x2,0x3
0ac0 026f       | o  |		Execute	Discrete,Remainder
0ac1 c402       |    |		Store	0x2,0x2
0ac2 00c8       |    |		Action	Pop_Auxiliary_Range
0ac3 3fed       |?   |		Loop_Increasing	0xab1
0ac4 00ce       |    |		Action	Pop_Auxiliary
0ac5 00da       |    |		Load_Top	At_Offset_2
0ac6 a5fe       |    |		Store_Unchecked	0x2,-0x2
0ac7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0ae5       |    |		.CONST	0x0ae5								; Address of begin
0ac9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aca 0007       |    |		.CONST	0x0007								; Number of locals
0acb			INIT_0ac8:
0acb 00da       |    |		Load_Top	At_Offset_2
0acc 01db       |    |		Execute	Vector,Length
0acd 00e2       |    |		Load_Encached	Integer_Cache
0ace 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0acf e5fe       |    |		Load	0x2,-0x2
0ad0 01db       |    |		Execute	Vector,Length
0ad1 00e2       |    |		Load_Encached	Integer_Cache
0ad2 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0ad3 4801       |H   |		Short_Literal	0x1
0ad4 e5ff       |    |		Load	0x2,-0x1
0ad5 01d7       |    |		Execute	Vector,Field_Read
0ad6 0d00       |    |		Execute_Immediate	Less,0x0
0ad7 00e1       |    |		Load_Encached	Boolean_Cache
0ad8 03f1       |    |		Declare_Variable	Discrete,With_Value
0ad9 00d8       |    |		Load_Top	At_Offset_0
0ada 4801       |H   |		Short_Literal	0x1
0adb e5fe       |    |		Load	0x2,-0x2
0adc 01d7       |    |		Execute	Vector,Field_Read
0add 0d00       |    |		Execute_Immediate	Less,0x0
0ade 0277       | w  |		Execute	Discrete,Xor
0adf 00e1       |    |		Load_Encached	Boolean_Cache
0ae0 03f1       |    |		Declare_Variable	Discrete,With_Value
0ae1 029f 0fb3  |    |		Declare_Subprogram	INIT_0fb0,For_Call
0ae3 029f 102b  |   +|		Declare_Subprogram	INIT_1028,For_Call
0ae5			BODY_0ac8:
0ae5 e402       |    |		Load	0x2,0x2
0ae6 0f01       |    |		Execute_Immediate	Equal,0x1
0ae7 68c1       |h   |		Jump_Zero	0xba9
0ae8 e403       |    |		Load	0x2,0x3
0ae9 0f01       |    |		Execute_Immediate	Equal,0x1
0aea 68be       |h   |		Jump_Zero	0xba9
0aeb e5fd       |    |		Load	0x2,-0x3
0aec 4602       |F   |		Jump_Case	0x3
0aed 7849       |xI  |		Jump	0xb37								; case 0x0
0aee 7881       |x   |		Jump	0xb70								; case 0x1
0aef 7800       |x   |		Jump	0xaf0								; case 0x2
0af0 4801       |H   |		Short_Literal	0x1
0af1 4801       |H   |		Short_Literal	0x1
0af2 e233       | 3  |		Load	0x1,0x33
0af3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0af4 4801       |H   |		Short_Literal	0x1
0af5 4801       |H   |		Short_Literal	0x1
0af6 e220       |    |		Load	0x1,0x20
0af7 035b       | [  |		Declare_Type	Array,Constrained
0af8 0337       | 7  |		Declare_Variable	Array
0af9 4801       |H   |		Short_Literal	0x1
0afa e5ff       |    |		Load	0x2,-0x1
0afb 01d7       |    |		Execute	Vector,Field_Read
0afc 4801       |H   |		Short_Literal	0x1
0afd e5fe       |    |		Load	0x2,-0x2
0afe 01d7       |    |		Execute	Vector,Field_Read
0aff 0270       | p  |		Execute	Discrete,Divide
0b00 4801       |H   |		Short_Literal	0x1
0b01 00da       |    |		Load_Top	At_Offset_2
0b02 01d6       |    |		Execute	Vector,Field_Write
0b03 00d9       |    |		Load_Top	At_Offset_1
0b04 00d8       |    |		Load_Top	At_Offset_0
0b05 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b06 00da       |    |		Load_Top	At_Offset_2
0b07 01da       |    |		Execute	Vector,Bounds
0b08 00da       |    |		Load_Top	At_Offset_2
0b09 01da       |    |		Execute	Vector,Bounds
0b0a 00da       |    |		Load_Top	At_Offset_2
0b0b 027f       |    |		Execute	Discrete,Equal
0b0c 7001       |p   |		Jump_Nonzero	0xb0e
0b0d 08e0       |    |		Execute_Immediate	Raise,0xe0
0b0e 00cd       |    |		Action	Spare6_Action
0b0f 027f       |    |		Execute	Discrete,Equal
0b10 7001       |p   |		Jump_Nonzero	0xb12
0b11 08e0       |    |		Execute_Immediate	Raise,0xe0
0b12 00d2       |    |		Pop_Control	Pop_Count_2
0b13 00d9       |    |		Load_Top	At_Offset_1
0b14 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0b15 4801       |H   |		Short_Literal	0x1
0b16 4801       |H   |		Short_Literal	0x1
0b17 e220       |    |		Load	0x1,0x20
0b18 035b       | [  |		Declare_Type	Array,Constrained
0b19 0337       | 7  |		Declare_Variable	Array
0b1a 4801       |H   |		Short_Literal	0x1
0b1b e5ff       |    |		Load	0x2,-0x1
0b1c 01d7       |    |		Execute	Vector,Field_Read
0b1d 4801       |H   |		Short_Literal	0x1
0b1e e5fe       |    |		Load	0x2,-0x2
0b1f 01d7       |    |		Execute	Vector,Field_Read
0b20 026e       | n  |		Execute	Discrete,Modulo
0b21 4801       |H   |		Short_Literal	0x1
0b22 00da       |    |		Load_Top	At_Offset_2
0b23 01d6       |    |		Execute	Vector,Field_Write
0b24 00d9       |    |		Load_Top	At_Offset_1
0b25 00d8       |    |		Load_Top	At_Offset_0
0b26 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0b27 00da       |    |		Load_Top	At_Offset_2
0b28 01da       |    |		Execute	Vector,Bounds
0b29 00da       |    |		Load_Top	At_Offset_2
0b2a 01da       |    |		Execute	Vector,Bounds
0b2b 00da       |    |		Load_Top	At_Offset_2
0b2c 027f       |    |		Execute	Discrete,Equal
0b2d 7001       |p   |		Jump_Nonzero	0xb2f
0b2e 08e0       |    |		Execute_Immediate	Raise,0xe0
0b2f 00cd       |    |		Action	Spare6_Action
0b30 027f       |    |		Execute	Discrete,Equal
0b31 7001       |p   |		Jump_Nonzero	0xb33
0b32 08e0       |    |		Execute_Immediate	Raise,0xe0
0b33 00d2       |    |		Pop_Control	Pop_Count_2
0b34 00d9       |    |		Load_Top	At_Offset_1
0b35 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0b36 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b37 4801       |H   |		Short_Literal	0x1
0b38 4800       |H   |		Short_Literal	0x0
0b39 e233       | 3  |		Load	0x1,0x33
0b3a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0b3b 4801       |H   |		Short_Literal	0x1
0b3c 4801       |H   |		Short_Literal	0x1
0b3d e220       |    |		Load	0x1,0x20
0b3e 035b       | [  |		Declare_Type	Array,Constrained
0b3f 0337       | 7  |		Declare_Variable	Array
0b40 4801       |H   |		Short_Literal	0x1
0b41 e5ff       |    |		Load	0x2,-0x1
0b42 01d7       |    |		Execute	Vector,Field_Read
0b43 4801       |H   |		Short_Literal	0x1
0b44 e5fe       |    |		Load	0x2,-0x2
0b45 01d7       |    |		Execute	Vector,Field_Read
0b46 0270       | p  |		Execute	Discrete,Divide
0b47 4801       |H   |		Short_Literal	0x1
0b48 00da       |    |		Load_Top	At_Offset_2
0b49 01d6       |    |		Execute	Vector,Field_Write
0b4a 00d9       |    |		Load_Top	At_Offset_1
0b4b 00d8       |    |		Load_Top	At_Offset_0
0b4c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b4d 00da       |    |		Load_Top	At_Offset_2
0b4e 01da       |    |		Execute	Vector,Bounds
0b4f 00da       |    |		Load_Top	At_Offset_2
0b50 01da       |    |		Execute	Vector,Bounds
0b51 00da       |    |		Load_Top	At_Offset_2
0b52 027f       |    |		Execute	Discrete,Equal
0b53 7001       |p   |		Jump_Nonzero	0xb55
0b54 08e0       |    |		Execute_Immediate	Raise,0xe0
0b55 00cd       |    |		Action	Spare6_Action
0b56 027f       |    |		Execute	Discrete,Equal
0b57 7001       |p   |		Jump_Nonzero	0xb59
0b58 08e0       |    |		Execute_Immediate	Raise,0xe0
0b59 00d2       |    |		Pop_Control	Pop_Count_2
0b5a 00d9       |    |		Load_Top	At_Offset_1
0b5b 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0b5c e294       |    |		Load	0x1,0x94
0b5d 00d9       |    |		Load_Top	At_Offset_1
0b5e 00d8       |    |		Load_Top	At_Offset_0
0b5f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0b60 00da       |    |		Load_Top	At_Offset_2
0b61 01da       |    |		Execute	Vector,Bounds
0b62 00da       |    |		Load_Top	At_Offset_2
0b63 01da       |    |		Execute	Vector,Bounds
0b64 00da       |    |		Load_Top	At_Offset_2
0b65 027f       |    |		Execute	Discrete,Equal
0b66 7001       |p   |		Jump_Nonzero	0xb68
0b67 08e0       |    |		Execute_Immediate	Raise,0xe0
0b68 00cd       |    |		Action	Spare6_Action
0b69 027f       |    |		Execute	Discrete,Equal
0b6a 7001       |p   |		Jump_Nonzero	0xb6c
0b6b 08e0       |    |		Execute_Immediate	Raise,0xe0
0b6c 00d2       |    |		Pop_Control	Pop_Count_2
0b6d 00d9       |    |		Load_Top	At_Offset_1
0b6e 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0b6f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b70 4800       |H   |		Short_Literal	0x0
0b71 4801       |H   |		Short_Literal	0x1
0b72 e233       | 3  |		Load	0x1,0x33
0b73 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0b74 e294       |    |		Load	0x1,0x94
0b75 00d9       |    |		Load_Top	At_Offset_1
0b76 00d8       |    |		Load_Top	At_Offset_0
0b77 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0b78 00da       |    |		Load_Top	At_Offset_2
0b79 01da       |    |		Execute	Vector,Bounds
0b7a 00da       |    |		Load_Top	At_Offset_2
0b7b 01da       |    |		Execute	Vector,Bounds
0b7c 00da       |    |		Load_Top	At_Offset_2
0b7d 027f       |    |		Execute	Discrete,Equal
0b7e 7001       |p   |		Jump_Nonzero	0xb80
0b7f 08e0       |    |		Execute_Immediate	Raise,0xe0
0b80 00cd       |    |		Action	Spare6_Action
0b81 027f       |    |		Execute	Discrete,Equal
0b82 7001       |p   |		Jump_Nonzero	0xb84
0b83 08e0       |    |		Execute_Immediate	Raise,0xe0
0b84 00d2       |    |		Pop_Control	Pop_Count_2
0b85 00d9       |    |		Load_Top	At_Offset_1
0b86 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0b87 4801       |H   |		Short_Literal	0x1
0b88 4801       |H   |		Short_Literal	0x1
0b89 e220       |    |		Load	0x1,0x20
0b8a 035b       | [  |		Declare_Type	Array,Constrained
0b8b 0337       | 7  |		Declare_Variable	Array
0b8c 4801       |H   |		Short_Literal	0x1
0b8d e5ff       |    |		Load	0x2,-0x1
0b8e 01d7       |    |		Execute	Vector,Field_Read
0b8f 4801       |H   |		Short_Literal	0x1
0b90 e5fe       |    |		Load	0x2,-0x2
0b91 01d7       |    |		Execute	Vector,Field_Read
0b92 026f       | o  |		Execute	Discrete,Remainder
0b93 4801       |H   |		Short_Literal	0x1
0b94 00da       |    |		Load_Top	At_Offset_2
0b95 01d6       |    |		Execute	Vector,Field_Write
0b96 00d9       |    |		Load_Top	At_Offset_1
0b97 00d8       |    |		Load_Top	At_Offset_0
0b98 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0b99 00da       |    |		Load_Top	At_Offset_2
0b9a 01da       |    |		Execute	Vector,Bounds
0b9b 00da       |    |		Load_Top	At_Offset_2
0b9c 01da       |    |		Execute	Vector,Bounds
0b9d 00da       |    |		Load_Top	At_Offset_2
0b9e 027f       |    |		Execute	Discrete,Equal
0b9f 7001       |p   |		Jump_Nonzero	0xba1
0ba0 08e0       |    |		Execute_Immediate	Raise,0xe0
0ba1 00cd       |    |		Action	Spare6_Action
0ba2 027f       |    |		Execute	Discrete,Equal
0ba3 7001       |p   |		Jump_Nonzero	0xba5
0ba4 08e0       |    |		Execute_Immediate	Raise,0xe0
0ba5 00d2       |    |		Pop_Control	Pop_Count_2
0ba6 00d9       |    |		Load_Top	At_Offset_1
0ba7 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0ba8 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0ba9 e403       |    |		Load	0x2,0x3
0baa 0f01       |    |		Execute_Immediate	Equal,0x1
0bab 6801       |h   |		Jump_Zero	0xbad
0bac 8406       |    |		Call	0x2,0x6
0bad 8407       |    |		Call	0x2,0x7
0bae 0831       | 1  |		Execute_Immediate	Raise,0x31
0baf 0000       |    |		.XXX[0x1]
0bb0 ; --------------------------------------------------------------------------------------
0bb0 ; SUBPROGRAM
0bb0 ; --------------------------------------------------------------------------------------
0bb0 0bb3       |    |		.CONST	0x0bb3								; Address of begin
0bb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bb2 0001       |    |		.CONST	0x0001								; Number of locals
0bb3			BODY_0bb0:
0bb3			INIT_0bb0:
0bb3 00cf       |    |		Action	Mark_Auxiliary
0bb4 00db       |    |		Load_Top	At_Offset_3
0bb5 01d9       |    |		Execute	Vector,Reverse_Bounds
0bb6 0263       | c  |		Execute	Discrete,Above_Bound
0bb7 7008       |p   |		Jump_Nonzero	0xbc0
0bb8 00d8       |    |		Load_Top	At_Offset_0
0bb9 e5ff       |    |		Load	0x2,-0x1
0bba 01d7       |    |		Execute	Vector,Field_Read
0bbb 6802       |h   |		Jump_Zero	0xbbe
0bbc 00d8       |    |		Load_Top	At_Offset_0
0bbd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bbe 00c8       |    |		Action	Pop_Auxiliary_Range
0bbf 3ff8       |?   |		Loop_Increasing	0xbb8
0bc0 00ce       |    |		Action	Pop_Auxiliary
0bc1 00da       |    |		Load_Top	At_Offset_2
0bc2 01dc       |    |		Execute	Vector,Last
0bc3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bc4 0000 0000  |    |		.BLANK	0000[0x4]
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bce       |    |		.CONST	0x0bce								; Address of begin
0bc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bca 0003       |    |		.CONST	0x0003								; Number of locals
0bcb			INIT_0bc8:
0bcb e21f       |    |		Load	0x1,0x1f
0bcc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0bcd 00e5       |    |		Load_Encached	Long_Integer_Cache
0bce			BODY_0bc8:
0bce 00cf       |    |		Action	Mark_Auxiliary
0bcf e5fe       |    |		Load	0x2,-0x2
0bd0 01da       |    |		Execute	Vector,Bounds
0bd1 0264       | d  |		Execute	Discrete,Below_Bound
0bd2 7013       |p   |		Jump_Nonzero	0xbe6
0bd3 00d8       |    |		Load_Top	At_Offset_0
0bd4 e5fe       |    |		Load	0x2,-0x2
0bd5 01d7       |    |		Execute	Vector,Field_Read
0bd6 e5ff       |    |		Load	0x2,-0x1
0bd7 0271       | q  |		Execute	Discrete,Times
0bd8 e402       |    |		Load	0x2,0x2
0bd9 0273       | s  |		Execute	Discrete,Plus
0bda a403       |    |		Store_Unchecked	0x2,0x3
0bdb 00db       |    |		Load_Top	At_Offset_3
0bdc 600b       |`   |		Indirect_Literal	Discrete,0xbe8,{0x00000000, 0x80000000}
0bdd 026f       | o  |		Execute	Discrete,Remainder
0bde 00d9       |    |		Load_Top	At_Offset_1
0bdf e5fe       |    |		Load	0x2,-0x2
0be0 01d6       |    |		Execute	Vector,Field_Write
0be1 00db       |    |		Load_Top	At_Offset_3
0be2 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
0be3 c402       |    |		Store	0x2,0x2
0be4 00c8       |    |		Action	Pop_Auxiliary_Range
0be5 37ed       |7   |		Loop_Decreasing	0xbd3
0be6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0be7 0000       |    |		.XXX[0x1]
0be8 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0bec 0000 0000  |    |		.BLANK	0000[0x4]
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0c09       |    |		.CONST	0x0c09								; Address of begin
0bf1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bf2 0006       |    |		.CONST	0x0006								; Number of locals
0bf3			INIT_0bf0:
0bf3 e21f       |    |		Load	0x1,0x1f
0bf4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0bf5 e5fe       |    |		Load	0x2,-0x2
0bf6 0274       | t  |		Execute	Discrete,Absolute_Value
0bf7 e21f       |    |		Load	0x1,0x1f
0bf8 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0bf9 00e5       |    |		Load_Encached	Long_Integer_Cache
0bfa 4801       |H   |		Short_Literal	0x1
0bfb e5ff       |    |		Load	0x2,-0x1
0bfc 01db       |    |		Execute	Vector,Length
0bfd 00d8       |    |		Load_Top	At_Offset_0
0bfe 00e2       |    |		Load_Encached	Integer_Cache
0bff 0260       | `  |		Execute	Discrete,In_Type
0c00 7001       |p   |		Jump_Nonzero	0xc02
0c01 0801       |    |		Execute_Immediate	Raise,0x1
0c02 e220       |    |		Load	0x1,0x20
0c03 035b       | [  |		Declare_Type	Array,Constrained
0c04 0337       | 7  |		Declare_Variable	Array
0c05 e5ff       |    |		Load	0x2,-0x1
0c06 00d9       |    |		Load_Top	At_Offset_1
0c07 01d4       |    |		Execute	Vector,Structure_Write
0c08 00e2       |    |		Load_Encached	Integer_Cache
0c09			BODY_0bf0:
0c09 4801       |H   |		Short_Literal	0x1
0c0a 00da       |    |		Load_Top	At_Offset_2
0c0b 01d7       |    |		Execute	Vector,Field_Read
0c0c 0274       | t  |		Execute	Discrete,Absolute_Value
0c0d 4801       |H   |		Short_Literal	0x1
0c0e 00db       |    |		Load_Top	At_Offset_3
0c0f 01d6       |    |		Execute	Vector,Field_Write
0c10 00cf       |    |		Action	Mark_Auxiliary
0c11 00da       |    |		Load_Top	At_Offset_2
0c12 01d9       |    |		Execute	Vector,Reverse_Bounds
0c13 0263       | c  |		Execute	Discrete,Above_Bound
0c14 7013       |p   |		Jump_Nonzero	0xc28
0c15 e402       |    |		Load	0x2,0x2
0c16 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
0c17 00d9       |    |		Load_Top	At_Offset_1
0c18 e405       |    |		Load	0x2,0x5
0c19 01d7       |    |		Execute	Vector,Field_Read
0c1a 0273       | s  |		Execute	Discrete,Plus
0c1b a404       |    |		Store_Unchecked	0x2,0x4
0c1c e404       |    |		Load	0x2,0x4
0c1d e403       |    |		Load	0x2,0x3
0c1e 0270       | p  |		Execute	Discrete,Divide
0c1f 00d9       |    |		Load_Top	At_Offset_1
0c20 e405       |    |		Load	0x2,0x5
0c21 01d6       |    |		Execute	Vector,Field_Write
0c22 e404       |    |		Load	0x2,0x4
0c23 e403       |    |		Load	0x2,0x3
0c24 026f       | o  |		Execute	Discrete,Remainder
0c25 c402       |    |		Store	0x2,0x2
0c26 00c8       |    |		Action	Pop_Auxiliary_Range
0c27 3fed       |?   |		Loop_Increasing	0xc15
0c28 00ce       |    |		Action	Pop_Auxiliary
0c29 e5ff       |    |		Load	0x2,-0x1
0c2a 01dd       |    |		Execute	Vector,First
0c2b e5ff       |    |		Load	0x2,-0x1
0c2c 01d7       |    |		Execute	Vector,Field_Read
0c2d 0d00       |    |		Execute_Immediate	Less,0x0
0c2e e5fe       |    |		Load	0x2,-0x2
0c2f 0d00       |    |		Execute_Immediate	Less,0x0
0c30 0277       | w  |		Execute	Discrete,Xor
0c31 680a       |h   |		Jump_Zero	0xc3c
0c32 00d9       |    |		Load_Top	At_Offset_1
0c33 82a9       |    |		Call	0x1,0xa9
0c34 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0c35 00d8       |    |		Load_Top	At_Offset_0
0c36 00da       |    |		Load_Top	At_Offset_2
0c37 01d7       |    |		Execute	Vector,Field_Read
0c38 0275       | u  |		Execute	Discrete,Unary_Minus
0c39 00d9       |    |		Load_Top	At_Offset_1
0c3a 00db       |    |		Load_Top	At_Offset_3
0c3b 01d6       |    |		Execute	Vector,Field_Write
0c3c e5ff       |    |		Load	0x2,-0x1
0c3d 01dd       |    |		Execute	Vector,First
0c3e e5ff       |    |		Load	0x2,-0x1
0c3f 01d7       |    |		Execute	Vector,Field_Read
0c40 0d00       |    |		Execute_Immediate	Less,0x0
0c41 6803       |h   |		Jump_Zero	0xc45
0c42 e402       |    |		Load	0x2,0x2
0c43 0275       | u  |		Execute	Discrete,Unary_Minus
0c44 c402       |    |		Store	0x2,0x2
0c45 e5fd       |    |		Load	0x2,-0x3
0c46 00da       |    |		Load_Top	At_Offset_2
0c47 82a1       |    |		Call	0x1,0xa1
0c48 00d1       |    |		Pop_Control	Pop_Count_1
0c49 e5fc       |    |		Load	0x2,-0x4
0c4a e402       |    |		Load	0x2,0x2
0c4b 82a2       |    |		Call	0x1,0xa2
0c4c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0c4d 0000 0000  |    |		.XXX[0x3]
0c4f 0000       |    |
0c50 ; --------------------------------------------------------------------------------------
0c50 ; SUBPROGRAM
0c50 ; --------------------------------------------------------------------------------------
0c50 0c7a       | z  |		.CONST	0x0c7a								; Address of begin
0c51 0004       |    |		.CONST	0x0004								; Address of exception handler
0c52 0009       |    |		.CONST	0x0009								; Number of locals
0c53			INIT_0c50:
0c53 00da       |    |		Load_Top	At_Offset_2
0c54 82a9       |    |		Call	0x1,0xa9
0c55 00e2       |    |		Load_Encached	Integer_Cache
0c56 03f1       |    |		Declare_Variable	Discrete,With_Value
0c57 e5fe       |    |		Load	0x2,-0x2
0c58 82a9       |    |		Call	0x1,0xa9
0c59 00e2       |    |		Load_Encached	Integer_Cache
0c5a 03f1       |    |		Declare_Variable	Discrete,With_Value
0c5b e5ff       |    |		Load	0x2,-0x1
0c5c 01dc       |    |		Execute	Vector,Last
0c5d 00da       |    |		Load_Top	At_Offset_2
0c5e 0272       | r  |		Execute	Discrete,Minus
0c5f 0a01       |    |		Execute_Immediate	Plus,0x1
0c60 00e2       |    |		Load_Encached	Integer_Cache
0c61 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0c62 e5fe       |    |		Load	0x2,-0x2
0c63 01dc       |    |		Execute	Vector,Last
0c64 00da       |    |		Load_Top	At_Offset_2
0c65 0272       | r  |		Execute	Discrete,Minus
0c66 0a01       |    |		Execute_Immediate	Plus,0x1
0c67 00e2       |    |		Load_Encached	Integer_Cache
0c68 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0c69 00db       |    |		Load_Top	At_Offset_3
0c6a e5ff       |    |		Load	0x2,-0x1
0c6b 01d7       |    |		Execute	Vector,Field_Read
0c6c 0d00       |    |		Execute_Immediate	Less,0x0
0c6d 00e1       |    |		Load_Encached	Boolean_Cache
0c6e 03f1       |    |		Declare_Variable	Discrete,With_Value
0c6f 00d8       |    |		Load_Top	At_Offset_0
0c70 e403       |    |		Load	0x2,0x3
0c71 e5fe       |    |		Load	0x2,-0x2
0c72 01d7       |    |		Execute	Vector,Field_Read
0c73 0d00       |    |		Execute_Immediate	Less,0x0
0c74 0277       | w  |		Execute	Discrete,Xor
0c75 00e1       |    |		Load_Encached	Boolean_Cache
0c76 03f1       |    |		Declare_Variable	Discrete,With_Value
0c77 00e5       |    |		Load_Encached	Long_Integer_Cache
0c78 029f 1163  |   c|		Declare_Subprogram	INIT_1160,For_Call
0c7a			BODY_0c50:
0c7a e404       |    |		Load	0x2,0x4
0c7b 0f01       |    |		Execute_Immediate	Equal,0x1
0c7c 6827       |h'  |		Jump_Zero	0xca4
0c7d e405       |    |		Load	0x2,0x5
0c7e 0f01       |    |		Execute_Immediate	Equal,0x1
0c7f 6824       |h$  |		Jump_Zero	0xca4
0c80 e5fd       |    |		Load	0x2,-0x3
0c81 e402       |    |		Load	0x2,0x2
0c82 e5ff       |    |		Load	0x2,-0x1
0c83 01d7       |    |		Execute	Vector,Field_Read
0c84 e403       |    |		Load	0x2,0x3
0c85 e5fe       |    |		Load	0x2,-0x2
0c86 01d7       |    |		Execute	Vector,Field_Read
0c87 0270       | p  |		Execute	Discrete,Divide
0c88 00d8       |    |		Load_Top	At_Offset_0
0c89 e21f       |    |		Load	0x1,0x1f
0c8a 0260       | `  |		Execute	Discrete,In_Type
0c8b 7001       |p   |		Jump_Nonzero	0xc8d
0c8c 0801       |    |		Execute_Immediate	Raise,0x1
0c8d 82a2       |    |		Call	0x1,0xa2
0c8e 00d1       |    |		Pop_Control	Pop_Count_1
0c8f e402       |    |		Load	0x2,0x2
0c90 e5ff       |    |		Load	0x2,-0x1
0c91 01d7       |    |		Execute	Vector,Field_Read
0c92 e403       |    |		Load	0x2,0x3
0c93 e5fe       |    |		Load	0x2,-0x2
0c94 01d7       |    |		Execute	Vector,Field_Read
0c95 026f       | o  |		Execute	Discrete,Remainder
0c96 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0c97 e5fc       |    |		Load	0x2,-0x4
0c98 00da       |    |		Load_Top	At_Offset_2
0c99 00d8       |    |		Load_Top	At_Offset_0
0c9a e21f       |    |		Load	0x1,0x1f
0c9b 0260       | `  |		Execute	Discrete,In_Type
0c9c 7001       |p   |		Jump_Nonzero	0xc9e
0c9d 0801       |    |		Execute_Immediate	Raise,0x1
0c9e 82a2       |    |		Call	0x1,0xa2
0c9f 00d1       |    |		Pop_Control	Pop_Count_1
0ca0 00d9       |    |		Load_Top	At_Offset_1
0ca1 0f00       |    |		Execute_Immediate	Equal,0x0
0ca2 a5fb       |    |		Store_Unchecked	0x2,-0x5
0ca3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0ca4 e405       |    |		Load	0x2,0x5
0ca5 0f01       |    |		Execute_Immediate	Equal,0x1
0ca6 6819       |h   |		Jump_Zero	0xcc0
0ca7 e5fc       |    |		Load	0x2,-0x4
0ca8 e5fd       |    |		Load	0x2,-0x3
0ca9 e403       |    |		Load	0x2,0x3
0caa e5fe       |    |		Load	0x2,-0x2
0cab 01d7       |    |		Execute	Vector,Field_Read
0cac e402       |    |		Load	0x2,0x2
0cad e5ff       |    |		Load	0x2,-0x1
0cae 01dc       |    |		Execute	Vector,Last
0caf e5ff       |    |		Load	0x2,-0x1
0cb0 01cf       |    |		Execute	Vector,Slice_Read
0cb1 82ab       |    |		Call	0x1,0xab
0cb2 00d2       |    |		Pop_Control	Pop_Count_2
0cb3 e5fc       |    |		Load	0x2,-0x4
0cb4 01db       |    |		Execute	Vector,Length
0cb5 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0cb6 6806       |h   |		Jump_Zero	0xcbd
0cb7 e5fc       |    |		Load	0x2,-0x4
0cb8 01dc       |    |		Execute	Vector,Last
0cb9 e5fc       |    |		Load	0x2,-0x4
0cba 01d7       |    |		Execute	Vector,Field_Read
0cbb 0f00       |    |		Execute_Immediate	Equal,0x0
0cbc 7801       |x   |		Jump	0xcbe
0cbd 4800       |H   |		Short_Literal	0x0
0cbe a5fb       |    |		Store_Unchecked	0x2,-0x5
0cbf 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0cc0 8409       |    |		Call	0x2,0x9
0cc1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0cc2 0000 0000  |    |		.BLANK	0000[0x6]
0cc8 ; --------------------------------------------------------------------------------------
0cc8 ; SUBPROGRAM
0cc8 ; --------------------------------------------------------------------------------------
0cc8 0cde       |    |		.CONST	0x0cde								; Address of begin
0cc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0cca 0005       |    |		.CONST	0x0005								; Number of locals
0ccb			INIT_0cc8:
0ccb 00da       |    |		Load_Top	At_Offset_2
0ccc 82a9       |    |		Call	0x1,0xa9
0ccd 00e2       |    |		Load_Encached	Integer_Cache
0cce 03f1       |    |		Declare_Variable	Discrete,With_Value
0ccf 00d8       |    |		Load_Top	At_Offset_0
0cd0 e5ff       |    |		Load	0x2,-0x1
0cd1 01dc       |    |		Execute	Vector,Last
0cd2 0a01       |    |		Execute_Immediate	Plus,0x1
0cd3 00d8       |    |		Load_Top	At_Offset_0
0cd4 00e2       |    |		Load_Encached	Integer_Cache
0cd5 0260       | `  |		Execute	Discrete,In_Type
0cd6 7001       |p   |		Jump_Nonzero	0xcd8
0cd7 0801       |    |		Execute_Immediate	Raise,0x1
0cd8 e220       |    |		Load	0x1,0x20
0cd9 035b       | [  |		Declare_Type	Array,Constrained
0cda 0337       | 7  |		Declare_Variable	Array
0cdb e21f       |    |		Load	0x1,0x1f
0cdc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0cdd 00e5       |    |		Load_Encached	Long_Integer_Cache
0cde			BODY_0cc8:
0cde 00cf       |    |		Action	Mark_Auxiliary
0cdf e402       |    |		Load	0x2,0x2
0ce0 e5ff       |    |		Load	0x2,-0x1
0ce1 01dc       |    |		Execute	Vector,Last
0ce2 0264       | d  |		Execute	Discrete,Below_Bound
0ce3 7015       |p   |		Jump_Nonzero	0xcf9
0ce4 00d8       |    |		Load_Top	At_Offset_0
0ce5 e5ff       |    |		Load	0x2,-0x1
0ce6 01d7       |    |		Execute	Vector,Field_Read
0ce7 e5fe       |    |		Load	0x2,-0x2
0ce8 0271       | q  |		Execute	Discrete,Times
0ce9 0274       | t  |		Execute	Discrete,Absolute_Value
0cea e404       |    |		Load	0x2,0x4
0ceb 0273       | s  |		Execute	Discrete,Plus
0cec a405       |    |		Store_Unchecked	0x2,0x5
0ced 00db       |    |		Load_Top	At_Offset_3
0cee 6025       |`%  |		Indirect_Literal	Discrete,0xd14,{0x00000000, 0x80000000}
0cef 026f       | o  |		Execute	Discrete,Remainder
0cf0 00d9       |    |		Load_Top	At_Offset_1
0cf1 0a01       |    |		Execute_Immediate	Plus,0x1
0cf2 e403       |    |		Load	0x2,0x3
0cf3 01d6       |    |		Execute	Vector,Field_Write
0cf4 00db       |    |		Load_Top	At_Offset_3
0cf5 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
0cf6 c404       |    |		Store	0x2,0x4
0cf7 00c8       |    |		Action	Pop_Auxiliary_Range
0cf8 37eb       |7   |		Loop_Decreasing	0xce4
0cf9 00ce       |    |		Action	Pop_Auxiliary
0cfa 00d9       |    |		Load_Top	At_Offset_1
0cfb e402       |    |		Load	0x2,0x2
0cfc e403       |    |		Load	0x2,0x3
0cfd 01d6       |    |		Execute	Vector,Field_Write
0cfe 00db       |    |		Load_Top	At_Offset_3
0cff e5ff       |    |		Load	0x2,-0x1
0d00 01d7       |    |		Execute	Vector,Field_Read
0d01 0d00       |    |		Execute_Immediate	Less,0x0
0d02 e5fe       |    |		Load	0x2,-0x2
0d03 0d00       |    |		Execute_Immediate	Less,0x0
0d04 0277       | w  |		Execute	Discrete,Xor
0d05 680a       |h   |		Jump_Zero	0xd10
0d06 00da       |    |		Load_Top	At_Offset_2
0d07 82a9       |    |		Call	0x1,0xa9
0d08 a402       |    |		Store_Unchecked	0x2,0x2
0d09 00db       |    |		Load_Top	At_Offset_3
0d0a 00db       |    |		Load_Top	At_Offset_3
0d0b 01d7       |    |		Execute	Vector,Field_Read
0d0c 0275       | u  |		Execute	Discrete,Unary_Minus
0d0d e402       |    |		Load	0x2,0x2
0d0e e403       |    |		Load	0x2,0x3
0d0f 01d6       |    |		Execute	Vector,Field_Write
0d10 e5fd       |    |		Load	0x2,-0x3
0d11 00db       |    |		Load_Top	At_Offset_3
0d12 82a1       |    |		Call	0x1,0xa1
0d13 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d14 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0d18 ; --------------------------------------------------------------------------------------
0d18 ; SUBPROGRAM
0d18 ; --------------------------------------------------------------------------------------
0d18 0d33       | 3  |		.CONST	0x0d33								; Address of begin
0d19 0004       |    |		.CONST	0x0004								; Address of exception handler
0d1a 0006       |    |		.CONST	0x0006								; Number of locals
0d1b			INIT_0d18:
0d1b 00da       |    |		Load_Top	At_Offset_2
0d1c 82a9       |    |		Call	0x1,0xa9
0d1d 00e2       |    |		Load_Encached	Integer_Cache
0d1e 03f1       |    |		Declare_Variable	Discrete,With_Value
0d1f e5fe       |    |		Load	0x2,-0x2
0d20 82a9       |    |		Call	0x1,0xa9
0d21 00e2       |    |		Load_Encached	Integer_Cache
0d22 03f1       |    |		Declare_Variable	Discrete,With_Value
0d23 e5ff       |    |		Load	0x2,-0x1
0d24 01dc       |    |		Execute	Vector,Last
0d25 00da       |    |		Load_Top	At_Offset_2
0d26 0272       | r  |		Execute	Discrete,Minus
0d27 0a01       |    |		Execute_Immediate	Plus,0x1
0d28 00e2       |    |		Load_Encached	Integer_Cache
0d29 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0d2a e5fe       |    |		Load	0x2,-0x2
0d2b 01dc       |    |		Execute	Vector,Last
0d2c 00da       |    |		Load_Top	At_Offset_2
0d2d 0272       | r  |		Execute	Discrete,Minus
0d2e 0a01       |    |		Execute_Immediate	Plus,0x1
0d2f 00e2       |    |		Load_Encached	Integer_Cache
0d30 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0d31 029f 12db  |    |		Declare_Subprogram	INIT_12d8,For_Call
0d33			BODY_0d18:
0d33 00da       |    |		Load_Top	At_Offset_2
0d34 0f01       |    |		Execute_Immediate	Equal,0x1
0d35 682e       |h.  |		Jump_Zero	0xd64
0d36 e402       |    |		Load	0x2,0x2
0d37 e5ff       |    |		Load	0x2,-0x1
0d38 01d7       |    |		Execute	Vector,Field_Read
0d39 7005       |p   |		Jump_Nonzero	0xd3f
0d3a e5fd       |    |		Load	0x2,-0x3
0d3b 4800       |H   |		Short_Literal	0x0
0d3c 82a2       |    |		Call	0x1,0xa2
0d3d 00d1       |    |		Pop_Control	Pop_Count_1
0d3e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d3f e402       |    |		Load	0x2,0x2
0d40 e5ff       |    |		Load	0x2,-0x1
0d41 01d7       |    |		Execute	Vector,Field_Read
0d42 0f01       |    |		Execute_Immediate	Equal,0x1
0d43 6805       |h   |		Jump_Zero	0xd49
0d44 e5fd       |    |		Load	0x2,-0x3
0d45 e5fe       |    |		Load	0x2,-0x2
0d46 82a1       |    |		Call	0x1,0xa1
0d47 00d1       |    |		Pop_Control	Pop_Count_1
0d48 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d49 00d9       |    |		Load_Top	At_Offset_1
0d4a 0f01       |    |		Execute_Immediate	Equal,0x1
0d4b 680c       |h   |		Jump_Zero	0xd58
0d4c e5fd       |    |		Load	0x2,-0x3
0d4d e402       |    |		Load	0x2,0x2
0d4e e5ff       |    |		Load	0x2,-0x1
0d4f 01d7       |    |		Execute	Vector,Field_Read
0d50 e403       |    |		Load	0x2,0x3
0d51 e5fe       |    |		Load	0x2,-0x2
0d52 01d7       |    |		Execute	Vector,Field_Read
0d53 0271       | q  |		Execute	Discrete,Times
0d54 82a0       |    |		Call	0x1,0xa0
0d55 82a1       |    |		Call	0x1,0xa1
0d56 00d1       |    |		Pop_Control	Pop_Count_1
0d57 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d58 e5fd       |    |		Load	0x2,-0x3
0d59 e402       |    |		Load	0x2,0x2
0d5a e5ff       |    |		Load	0x2,-0x1
0d5b 01d7       |    |		Execute	Vector,Field_Read
0d5c e403       |    |		Load	0x2,0x3
0d5d e5fe       |    |		Load	0x2,-0x2
0d5e 01dc       |    |		Execute	Vector,Last
0d5f e5fe       |    |		Load	0x2,-0x2
0d60 01cf       |    |		Execute	Vector,Slice_Read
0d61 82ad       |    |		Call	0x1,0xad
0d62 00d1       |    |		Pop_Control	Pop_Count_1
0d63 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d64 00d9       |    |		Load_Top	At_Offset_1
0d65 0f01       |    |		Execute_Immediate	Equal,0x1
0d66 681f       |h   |		Jump_Zero	0xd86
0d67 00db       |    |		Load_Top	At_Offset_3
0d68 e5fe       |    |		Load	0x2,-0x2
0d69 01d7       |    |		Execute	Vector,Field_Read
0d6a 7005       |p   |		Jump_Nonzero	0xd70
0d6b e5fd       |    |		Load	0x2,-0x3
0d6c 4800       |H   |		Short_Literal	0x0
0d6d 82a2       |    |		Call	0x1,0xa2
0d6e 00d1       |    |		Pop_Control	Pop_Count_1
0d6f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d70 00db       |    |		Load_Top	At_Offset_3
0d71 e5fe       |    |		Load	0x2,-0x2
0d72 01d7       |    |		Execute	Vector,Field_Read
0d73 0f01       |    |		Execute_Immediate	Equal,0x1
0d74 6805       |h   |		Jump_Zero	0xd7a
0d75 e5fd       |    |		Load	0x2,-0x3
0d76 e5ff       |    |		Load	0x2,-0x1
0d77 82a1       |    |		Call	0x1,0xa1
0d78 00d1       |    |		Pop_Control	Pop_Count_1
0d79 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d7a e5fd       |    |		Load	0x2,-0x3
0d7b e403       |    |		Load	0x2,0x3
0d7c e5fe       |    |		Load	0x2,-0x2
0d7d 01d7       |    |		Execute	Vector,Field_Read
0d7e e402       |    |		Load	0x2,0x2
0d7f e5ff       |    |		Load	0x2,-0x1
0d80 01dc       |    |		Execute	Vector,Last
0d81 e5ff       |    |		Load	0x2,-0x1
0d82 01cf       |    |		Execute	Vector,Slice_Read
0d83 82ad       |    |		Call	0x1,0xad
0d84 00d1       |    |		Pop_Control	Pop_Count_1
0d85 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d86 8406       |    |		Call	0x2,0x6
0d87 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0d88 ; --------------------------------------------------------------------------------------
0d88 ; SUBPROGRAM
0d88 ; --------------------------------------------------------------------------------------
0d88 0d8d       |    |		.CONST	0x0d8d								; Address of begin
0d89 0004       |    |		.CONST	0x0004								; Address of exception handler
0d8a 0002       |    |		.CONST	0x0002								; Number of locals
0d8b			INIT_0d88:
0d8b 00e2       |    |		Load_Encached	Integer_Cache
0d8c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0d8d			BODY_0d88:
0d8d 00cf       |    |		Action	Mark_Auxiliary
0d8e 7805       |x   |		Jump	0xd94
0d8f 00d9       |    |		Load_Top	At_Offset_1
0d90 00da       |    |		Load_Top	At_Offset_2
0d91 0273       | s  |		Execute	Discrete,Plus
0d92 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0d93 00c9       |    |		Action	Pop_Auxiliary_Loop
0d94 00d9       |    |		Load_Top	At_Offset_1
0d95 e5ff       |    |		Load	0x2,-0x1
0d96 027c       | |  |		Execute	Discrete,Less
0d97 77f7       |w   |		Jump_Nonzero	0xd8f
0d98 00ce       |    |		Action	Pop_Auxiliary
0d99 00d8       |    |		Load_Top	At_Offset_0
0d9a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0d9b 0000 0000  |    |		.BLANK	0000[0x5]
0da0 ; --------------------------------------------------------------------------------------
0da0 ; SUBPROGRAM
0da0 ; --------------------------------------------------------------------------------------
0da0 0dbe       |    |		.CONST	0x0dbe								; Address of begin
0da1 0004       |    |		.CONST	0x0004								; Address of exception handler
0da2 0002       |    |		.CONST	0x0002								; Number of locals
0da3			INIT_0da0:
0da3 4801       |H   |		Short_Literal	0x1
0da4 00db       |    |		Load_Top	At_Offset_3
0da5 0a1f       |    |		Execute_Immediate	Plus,0x1f
0da6 481f       |H   |		Short_Literal	0x1f
0da7 0270       | p  |		Execute	Discrete,Divide
0da8 00d8       |    |		Load_Top	At_Offset_0
0da9 00e2       |    |		Load_Encached	Integer_Cache
0daa 0260       | `  |		Execute	Discrete,In_Type
0dab 7001       |p   |		Jump_Nonzero	0xdad
0dac 0801       |    |		Execute_Immediate	Raise,0x1
0dad e220       |    |		Load	0x1,0x20
0dae 035b       | [  |		Declare_Type	Array,Constrained
0daf 0337       | 7  |		Declare_Variable	Array
0db0 00d8       |    |		Load_Top	At_Offset_0
0db1 0335       | 5  |		Declare_Variable	Array,Duplicate
0db2 00cd       |    |		Action	Spare6_Action
0db3 00d9       |    |		Load_Top	At_Offset_1
0db4 01d9       |    |		Execute	Vector,Reverse_Bounds
0db5 0263       | c  |		Execute	Discrete,Above_Bound
0db6 7005       |p   |		Jump_Nonzero	0xdbc
0db7 4800       |H   |		Short_Literal	0x0
0db8 00d9       |    |		Load_Top	At_Offset_1
0db9 e403       |    |		Load	0x2,0x3
0dba 01d6       |    |		Execute	Vector,Field_Write
0dbb 3ffb       |?   |		Loop_Increasing	0xdb7
0dbc 00d9       |    |		Load_Top	At_Offset_1
0dbd 01d4       |    |		Execute	Vector,Structure_Write
0dbe			BODY_0da0:
0dbe 4802       |H   |		Short_Literal	0x2
0dbf e5ff       |    |		Load	0x2,-0x1
0dc0 481f       |H   |		Short_Literal	0x1f
0dc1 026e       | n  |		Execute	Discrete,Modulo
0dc2 026d       | m  |		Execute	Discrete,Exponentiate
0dc3 4801       |H   |		Short_Literal	0x1
0dc4 00da       |    |		Load_Top	At_Offset_2
0dc5 01d6       |    |		Execute	Vector,Field_Write
0dc6 00d8       |    |		Load_Top	At_Offset_0
0dc7 e220       |    |		Load	0x1,0x20
0dc8 01c6       |    |		Execute	Vector,Convert_To_Formal
0dc9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0dca 0000 0000  |    |		.BLANK	0000[0x6]
0dd0 ; --------------------------------------------------------------------------------------
0dd0 ; SUBPROGRAM
0dd0 ; --------------------------------------------------------------------------------------
0dd0 0de0       |    |		.CONST	0x0de0								; Address of begin
0dd1 0004       |    |		.CONST	0x0004								; Address of exception handler
0dd2 0004       |    |		.CONST	0x0004								; Number of locals
0dd3			INIT_0dd0:
0dd3 00da       |    |		Load_Top	At_Offset_2
0dd4 82a9       |    |		Call	0x1,0xa9
0dd5 00e2       |    |		Load_Encached	Integer_Cache
0dd6 03f1       |    |		Declare_Variable	Discrete,With_Value
0dd7 00db       |    |		Load_Top	At_Offset_3
0dd8 01db       |    |		Execute	Vector,Length
0dd9 00d9       |    |		Load_Top	At_Offset_1
0dda 0272       | r  |		Execute	Discrete,Minus
0ddb 0a01       |    |		Execute_Immediate	Plus,0x1
0ddc 00e2       |    |		Load_Encached	Integer_Cache
0ddd 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0dde 029f 1353  |   S|		Declare_Subprogram	INIT_1350,For_Call
0de0			BODY_0dd0:
0de0 e5fe       |    |		Load	0x2,-0x2
0de1 0d00       |    |		Execute_Immediate	Less,0x0
0de2 6801       |h   |		Jump_Zero	0xde4
0de3 08e0       |    |		Execute_Immediate	Raise,0xe0
0de4 e5fe       |    |		Load	0x2,-0x2
0de5 7005       |p   |		Jump_Nonzero	0xdeb
0de6 e5fd       |    |		Load	0x2,-0x3
0de7 4801       |H   |		Short_Literal	0x1
0de8 82a2       |    |		Call	0x1,0xa2
0de9 00d1       |    |		Pop_Control	Pop_Count_1
0dea 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0deb e5fe       |    |		Load	0x2,-0x2
0dec 6027       |`'  |		Indirect_Literal	Discrete,0xe14,{0x00000000, 0x000014a0}
0ded 027d       | }  |		Execute	Discrete,Greater
0dee 6801       |h   |		Jump_Zero	0xdf0
0def 08e1       |    |		Execute_Immediate	Raise,0xe1
0df0 00d9       |    |		Load_Top	At_Offset_1
0df1 0f01       |    |		Execute_Immediate	Equal,0x1
0df2 6810       |h   |		Jump_Zero	0xe03
0df3 00da       |    |		Load_Top	At_Offset_2
0df4 e5ff       |    |		Load	0x2,-0x1
0df5 01d7       |    |		Execute	Vector,Field_Read
0df6 0f01       |    |		Execute_Immediate	Equal,0x1
0df7 7004       |p   |		Jump_Nonzero	0xdfc
0df8 00da       |    |		Load_Top	At_Offset_2
0df9 e5ff       |    |		Load	0x2,-0x1
0dfa 01d7       |    |		Execute	Vector,Field_Read
0dfb 7007       |p   |		Jump_Nonzero	0xe03
0dfc e5fd       |    |		Load	0x2,-0x3
0dfd 00db       |    |		Load_Top	At_Offset_3
0dfe e5ff       |    |		Load	0x2,-0x1
0dff 01d7       |    |		Execute	Vector,Field_Read
0e00 82a2       |    |		Call	0x1,0xa2
0e01 00d1       |    |		Pop_Control	Pop_Count_1
0e02 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e03 00d9       |    |		Load_Top	At_Offset_1
0e04 0f01       |    |		Execute_Immediate	Equal,0x1
0e05 680b       |h   |		Jump_Zero	0xe11
0e06 00da       |    |		Load_Top	At_Offset_2
0e07 e5ff       |    |		Load	0x2,-0x1
0e08 01d7       |    |		Execute	Vector,Field_Read
0e09 0f02       |    |		Execute_Immediate	Equal,0x2
0e0a 6806       |h   |		Jump_Zero	0xe11
0e0b e5fd       |    |		Load	0x2,-0x3
0e0c e5fe       |    |		Load	0x2,-0x2
0e0d 82b0       |    |		Call	0x1,0xb0
0e0e 82a1       |    |		Call	0x1,0xa1
0e0f 00d1       |    |		Pop_Control	Pop_Count_1
0e10 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e11 8404       |    |		Call	0x2,0x4
0e12 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e13 0000       |    |		.XXX[0x1]
0e14 0000 0000  |    |		.LITERAL	{0x00000000, 0x000014a0}
0e18 ; --------------------------------------------------------------------------------------
0e18 ; SUBPROGRAM
0e18 ; --------------------------------------------------------------------------------------
0e18 0e1b       |    |		.CONST	0x0e1b								; Address of begin
0e19 0004       |    |		.CONST	0x0004								; Address of exception handler
0e1a 0001       |    |		.CONST	0x0001								; Number of locals
0e1b			BODY_0e18:
0e1b			INIT_0e18:
0e1b 00da       |    |		Load_Top	At_Offset_2
0e1c e5fe       |    |		Load	0x2,-0x2
0e1d 027d       | }  |		Execute	Discrete,Greater
0e1e 6802       |h   |		Jump_Zero	0xe21
0e1f 00da       |    |		Load_Top	At_Offset_2
0e20 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e21 00db       |    |		Load_Top	At_Offset_3
0e22 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0e23 0000 0000  |    |		.BLANK	0000[0x5]
0e28 ; --------------------------------------------------------------------------------------
0e28 ; SUBPROGRAM
0e28 ; --------------------------------------------------------------------------------------
0e28 0e36       | 6  |		.CONST	0x0e36								; Address of begin
0e29 0004       |    |		.CONST	0x0004								; Address of exception handler
0e2a 0004       |    |		.CONST	0x0004								; Number of locals
0e2b			INIT_0e28:
0e2b e5fd       |    |		Load	0x2,-0x3
0e2c 01da       |    |		Execute	Vector,Bounds
0e2d e220       |    |		Load	0x1,0x20
0e2e 035b       | [  |		Declare_Type	Array,Constrained
0e2f 0337       | 7  |		Declare_Variable	Array
0e30 e5fd       |    |		Load	0x2,-0x3
0e31 01da       |    |		Execute	Vector,Bounds
0e32 e220       |    |		Load	0x1,0x20
0e33 035b       | [  |		Declare_Type	Array,Constrained
0e34 0337       | 7  |		Declare_Variable	Array
0e35 00e1       |    |		Load_Encached	Boolean_Cache
0e36			BODY_0e28:
0e36 00d9       |    |		Load_Top	At_Offset_1
0e37 e5ff       |    |		Load	0x2,-0x1
0e38 8227       | '  |		Call	0x1,0x27
0e39 82a1       |    |		Call	0x1,0xa1
0e3a 00d1       |    |		Pop_Control	Pop_Count_1
0e3b e5fd       |    |		Load	0x2,-0x3
0e3c e5fe       |    |		Load	0x2,-0x2
0e3d 8227       | '  |		Call	0x1,0x27
0e3e 82a1       |    |		Call	0x1,0xa1
0e3f 00d1       |    |		Pop_Control	Pop_Count_1
0e40 00cf       |    |		Action	Mark_Auxiliary
0e41 00e1       |    |		Load_Encached	Boolean_Cache
0e42 e402       |    |		Load	0x2,0x2
0e43 e294       |    |		Load	0x1,0x94
0e44 e5fd       |    |		Load	0x2,-0x3
0e45 e403       |    |		Load	0x2,0x3
0e46 82ac       |    |		Call	0x1,0xac
0e47 00d2       |    |		Pop_Control	Pop_Count_2
0e48 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0e49 00d9       |    |		Load_Top	At_Offset_1
0e4a 7008       |p   |		Jump_Nonzero	0xe53
0e4b e5fd       |    |		Load	0x2,-0x3
0e4c 00db       |    |		Load_Top	At_Offset_3
0e4d 01d4       |    |		Execute	Vector,Structure_Write
0e4e 00db       |    |		Load_Top	At_Offset_3
0e4f e5fd       |    |		Load	0x2,-0x3
0e50 01d4       |    |		Execute	Vector,Structure_Write
0e51 00c9       |    |		Action	Pop_Auxiliary_Loop
0e52 7fee       |    |		Jump	0xe41
0e53 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0e54 0000 0000  |    |		.BLANK	0000[0x4]
0e58 ; --------------------------------------------------------------------------------------
0e58 ; SUBPROGRAM
0e58 ; --------------------------------------------------------------------------------------
0e58 0e5b       | [  |		.CONST	0x0e5b								; Address of begin
0e59 0004       |    |		.CONST	0x0004								; Address of exception handler
0e5a 0001       |    |		.CONST	0x0001								; Number of locals
0e5b			BODY_0e58:
0e5b			INIT_0e58:
0e5b 00da       |    |		Load_Top	At_Offset_2
0e5c 00d8       |    |		Load_Top	At_Offset_0
0e5d 600e       |`   |		Indirect_Literal	Discrete,0xe6c,{0x80000000, 0x00000000}
0e5e 4fff       |O   |		Short_Literal	-0x1
0e5f 0262       | b  |		Execute	Discrete,In_Range
0e60 7003       |p   |		Jump_Nonzero	0xe64
0e61 6805       |h   |		Jump_Zero	0xe67
0e62 4801       |H   |		Short_Literal	0x1
0e63 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e64 00d1       |    |		Pop_Control	Pop_Count_1
0e65 4fff       |O   |		Short_Literal	-0x1
0e66 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e67 4800       |H   |		Short_Literal	0x0
0e68 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0e69 0000 0000  |    |		.XXX[0x3]
0e6b 0000       |    |
0e6c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00000000}
0e70 ; --------------------------------------------------------------------------------------
0e70 ; SUBPROGRAM
0e70 ; --------------------------------------------------------------------------------------
0e70 0e73       | s  |		.CONST	0x0e73								; Address of begin
0e71 0004       |    |		.CONST	0x0004								; Address of exception handler
0e72 0001       |    |		.CONST	0x0001								; Number of locals
0e73			BODY_0e70:
0e73			INIT_0e70:
0e73 00da       |    |		Load_Top	At_Offset_2
0e74 01db       |    |		Execute	Vector,Length
0e75 e5fe       |    |		Load	0x2,-0x2
0e76 01db       |    |		Execute	Vector,Length
0e77 e23f       | ?  |		Load	0x1,0x3f
0e78 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0e79 00db       |    |		Load_Top	At_Offset_3
0e7a 00d9       |    |		Load_Top	At_Offset_1
0e7b 00d8       |    |		Load_Top	At_Offset_0
0e7c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0e7d 00da       |    |		Load_Top	At_Offset_2
0e7e 01da       |    |		Execute	Vector,Bounds
0e7f 00da       |    |		Load_Top	At_Offset_2
0e80 01da       |    |		Execute	Vector,Bounds
0e81 00da       |    |		Load_Top	At_Offset_2
0e82 027f       |    |		Execute	Discrete,Equal
0e83 7001       |p   |		Jump_Nonzero	0xe85
0e84 08e0       |    |		Execute_Immediate	Raise,0xe0
0e85 00cd       |    |		Action	Spare6_Action
0e86 027f       |    |		Execute	Discrete,Equal
0e87 7001       |p   |		Jump_Nonzero	0xe89
0e88 08e0       |    |		Execute_Immediate	Raise,0xe0
0e89 00d2       |    |		Pop_Control	Pop_Count_2
0e8a 00d9       |    |		Load_Top	At_Offset_1
0e8b 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0e8c e5fe       |    |		Load	0x2,-0x2
0e8d 00d9       |    |		Load_Top	At_Offset_1
0e8e 00d8       |    |		Load_Top	At_Offset_0
0e8f 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0e90 00da       |    |		Load_Top	At_Offset_2
0e91 01da       |    |		Execute	Vector,Bounds
0e92 00da       |    |		Load_Top	At_Offset_2
0e93 01da       |    |		Execute	Vector,Bounds
0e94 00da       |    |		Load_Top	At_Offset_2
0e95 027f       |    |		Execute	Discrete,Equal
0e96 7001       |p   |		Jump_Nonzero	0xe98
0e97 08e0       |    |		Execute_Immediate	Raise,0xe0
0e98 00cd       |    |		Action	Spare6_Action
0e99 027f       |    |		Execute	Discrete,Equal
0e9a 7001       |p   |		Jump_Nonzero	0xe9c
0e9b 08e0       |    |		Execute_Immediate	Raise,0xe0
0e9c 00d2       |    |		Pop_Control	Pop_Count_2
0e9d 00d9       |    |		Load_Top	At_Offset_1
0e9e 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
0e9f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0ea0 ; --------------------------------------------------------------------------------------
0ea0 ; SUBPROGRAM
0ea0 ; --------------------------------------------------------------------------------------
0ea0 0ead       |    |		.CONST	0x0ead								; Address of begin
0ea1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ea2 0003       |    |		.CONST	0x0003								; Number of locals
0ea3			INIT_0ea0:
0ea3 4801       |H   |		Short_Literal	0x1
0ea4 e402       |    |		Load	0x2,0x2
0ea5 e220       |    |		Load	0x1,0x20
0ea6 035b       | [  |		Declare_Type	Array,Constrained
0ea7 0337       | 7  |		Declare_Variable	Array
0ea8 4801       |H   |		Short_Literal	0x1
0ea9 e402       |    |		Load	0x2,0x2
0eaa e220       |    |		Load	0x1,0x20
0eab 035b       | [  |		Declare_Type	Array,Constrained
0eac 0337       | 7  |		Declare_Variable	Array
0ead			BODY_0ea0:
0ead 4801       |H   |		Short_Literal	0x1
0eae e5ff       |    |		Load	0x2,-0x1
0eaf 01d7       |    |		Execute	Vector,Field_Read
0eb0 0d00       |    |		Execute_Immediate	Less,0x0
0eb1 a407       |    |		Store_Unchecked	0x2,0x7
0eb2 4801       |H   |		Short_Literal	0x1
0eb3 e5fe       |    |		Load	0x2,-0x2
0eb4 01d7       |    |		Execute	Vector,Field_Read
0eb5 0d00       |    |		Execute_Immediate	Less,0x0
0eb6 a408       |    |		Store_Unchecked	0x2,0x8
0eb7 4801       |H   |		Short_Literal	0x1
0eb8 e5ff       |    |		Load	0x2,-0x1
0eb9 01d7       |    |		Execute	Vector,Field_Read
0eba 0274       | t  |		Execute	Discrete,Absolute_Value
0ebb 4801       |H   |		Short_Literal	0x1
0ebc e402       |    |		Load	0x2,0x2
0ebd e405       |    |		Load	0x2,0x5
0ebe 0272       | r  |		Execute	Discrete,Minus
0ebf e220       |    |		Load	0x1,0x20
0ec0 035b       | [  |		Declare_Type	Array,Constrained
0ec1 0337       | 7  |		Declare_Variable	Array
0ec2 00d8       |    |		Load_Top	At_Offset_0
0ec3 01dc       |    |		Execute	Vector,Last
0ec4 4801       |H   |		Short_Literal	0x1
0ec5 0263       | c  |		Execute	Discrete,Above_Bound
0ec6 7005       |p   |		Jump_Nonzero	0xecc
0ec7 4800       |H   |		Short_Literal	0x0
0ec8 00d9       |    |		Load_Top	At_Offset_1
0ec9 e605       |    |		Load	0x3,0x5
0eca 01d6       |    |		Execute	Vector,Field_Write
0ecb 3ffb       |?   |		Loop_Increasing	0xec7
0ecc 01cb       |    |		Execute	Vector,Append
0ecd 4802       |H   |		Short_Literal	0x2
0ece e405       |    |		Load	0x2,0x5
0ecf e5ff       |    |		Load	0x2,-0x1
0ed0 01cf       |    |		Execute	Vector,Slice_Read
0ed1 01cc       |    |		Execute	Vector,Catenate
0ed2 00da       |    |		Load_Top	At_Offset_2
0ed3 01d4       |    |		Execute	Vector,Structure_Write
0ed4 4801       |H   |		Short_Literal	0x1
0ed5 e5fe       |    |		Load	0x2,-0x2
0ed6 01d7       |    |		Execute	Vector,Field_Read
0ed7 0274       | t  |		Execute	Discrete,Absolute_Value
0ed8 4801       |H   |		Short_Literal	0x1
0ed9 e402       |    |		Load	0x2,0x2
0eda e406       |    |		Load	0x2,0x6
0edb 0272       | r  |		Execute	Discrete,Minus
0edc e220       |    |		Load	0x1,0x20
0edd 035b       | [  |		Declare_Type	Array,Constrained
0ede 0337       | 7  |		Declare_Variable	Array
0edf 00d8       |    |		Load_Top	At_Offset_0
0ee0 01dc       |    |		Execute	Vector,Last
0ee1 4801       |H   |		Short_Literal	0x1
0ee2 0263       | c  |		Execute	Discrete,Above_Bound
0ee3 7005       |p   |		Jump_Nonzero	0xee9
0ee4 4800       |H   |		Short_Literal	0x0
0ee5 00d9       |    |		Load_Top	At_Offset_1
0ee6 e605       |    |		Load	0x3,0x5
0ee7 01d6       |    |		Execute	Vector,Field_Write
0ee8 3ffb       |?   |		Loop_Increasing	0xee4
0ee9 01cb       |    |		Execute	Vector,Append
0eea 4802       |H   |		Short_Literal	0x2
0eeb e406       |    |		Load	0x2,0x6
0eec e5fe       |    |		Load	0x2,-0x2
0eed 01cf       |    |		Execute	Vector,Slice_Read
0eee 01cc       |    |		Execute	Vector,Catenate
0eef 00d9       |    |		Load_Top	At_Offset_1
0ef0 01d4       |    |		Execute	Vector,Structure_Write
0ef1 e407       |    |		Load	0x2,0x7
0ef2 e408       |    |		Load	0x2,0x8
0ef3 027f       |    |		Execute	Discrete,Equal
0ef4 682c       |h,  |		Jump_Zero	0xf21
0ef5 4800       |H   |		Short_Literal	0x0
0ef6 a403       |    |		Store_Unchecked	0x2,0x3
0ef7 00cf       |    |		Action	Mark_Auxiliary
0ef8 4801       |H   |		Short_Literal	0x1
0ef9 e402       |    |		Load	0x2,0x2
0efa 0264       | d  |		Execute	Discrete,Below_Bound
0efb 701d       |p   |		Jump_Nonzero	0xf19
0efc 00d8       |    |		Load_Top	At_Offset_0
0efd e602       |    |		Load	0x3,0x2
0efe 01d7       |    |		Execute	Vector,Field_Read
0eff 00d9       |    |		Load_Top	At_Offset_1
0f00 e603       |    |		Load	0x3,0x3
0f01 01d7       |    |		Execute	Vector,Field_Read
0f02 0273       | s  |		Execute	Discrete,Plus
0f03 e403       |    |		Load	0x2,0x3
0f04 0273       | s  |		Execute	Discrete,Plus
0f05 a404       |    |		Store_Unchecked	0x2,0x4
0f06 e404       |    |		Load	0x2,0x4
0f07 6078       |`x  |		Indirect_Literal	Discrete,0xf80,{0x00000000, 0x80000000}
0f08 027b       | {  |		Execute	Discrete,Greater_Equal
0f09 6807       |h   |		Jump_Zero	0xf11
0f0a e404       |    |		Load	0x2,0x4
0f0b 6070       |`p  |		Indirect_Literal	Discrete,0xf7c,{0xffffffff, 0x80000000}
0f0c 0273       | s  |		Execute	Discrete,Plus
0f0d a404       |    |		Store_Unchecked	0x2,0x4
0f0e 4801       |H   |		Short_Literal	0x1
0f0f a403       |    |		Store_Unchecked	0x2,0x3
0f10 7802       |x   |		Jump	0xf13
0f11 4800       |H   |		Short_Literal	0x0
0f12 a403       |    |		Store_Unchecked	0x2,0x3
0f13 e404       |    |		Load	0x2,0x4
0f14 00d9       |    |		Load_Top	At_Offset_1
0f15 e602       |    |		Load	0x3,0x2
0f16 01d6       |    |		Execute	Vector,Field_Write
0f17 00c8       |    |		Action	Pop_Auxiliary_Range
0f18 37e3       |7   |		Loop_Decreasing	0xefc
0f19 00ce       |    |		Action	Pop_Auxiliary
0f1a e407       |    |		Load	0x2,0x7
0f1b 00da       |    |		Load_Top	At_Offset_2
0f1c 82a4       |    |		Call	0x1,0xa4
0f1d e220       |    |		Load	0x1,0x20
0f1e 01c6       |    |		Execute	Vector,Convert_To_Formal
0f1f 00cb       |    |		Action	Pop_Block_With_Result
0f20 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f21 4800       |H   |		Short_Literal	0x0
0f22 a403       |    |		Store_Unchecked	0x2,0x3
0f23 00cf       |    |		Action	Mark_Auxiliary
0f24 4801       |H   |		Short_Literal	0x1
0f25 e402       |    |		Load	0x2,0x2
0f26 0264       | d  |		Execute	Discrete,Below_Bound
0f27 701c       |p   |		Jump_Nonzero	0xf44
0f28 00d8       |    |		Load_Top	At_Offset_0
0f29 e602       |    |		Load	0x3,0x2
0f2a 01d7       |    |		Execute	Vector,Field_Read
0f2b 00d9       |    |		Load_Top	At_Offset_1
0f2c e603       |    |		Load	0x3,0x3
0f2d 01d7       |    |		Execute	Vector,Field_Read
0f2e 0272       | r  |		Execute	Discrete,Minus
0f2f e403       |    |		Load	0x2,0x3
0f30 0273       | s  |		Execute	Discrete,Plus
0f31 a404       |    |		Store_Unchecked	0x2,0x4
0f32 e404       |    |		Load	0x2,0x4
0f33 0d00       |    |		Execute_Immediate	Less,0x0
0f34 6807       |h   |		Jump_Zero	0xf3c
0f35 e404       |    |		Load	0x2,0x4
0f36 6049       |`I  |		Indirect_Literal	Discrete,0xf80,{0x00000000, 0x80000000}
0f37 0273       | s  |		Execute	Discrete,Plus
0f38 a404       |    |		Store_Unchecked	0x2,0x4
0f39 4fff       |O   |		Short_Literal	-0x1
0f3a a403       |    |		Store_Unchecked	0x2,0x3
0f3b 7802       |x   |		Jump	0xf3e
0f3c 4800       |H   |		Short_Literal	0x0
0f3d a403       |    |		Store_Unchecked	0x2,0x3
0f3e e404       |    |		Load	0x2,0x4
0f3f 00d9       |    |		Load_Top	At_Offset_1
0f40 e602       |    |		Load	0x3,0x2
0f41 01d6       |    |		Execute	Vector,Field_Write
0f42 00c8       |    |		Action	Pop_Auxiliary_Range
0f43 37e4       |7   |		Loop_Decreasing	0xf28
0f44 00ce       |    |		Action	Pop_Auxiliary
0f45 e403       |    |		Load	0x2,0x3
0f46 7007       |p   |		Jump_Nonzero	0xf4e
0f47 e407       |    |		Load	0x2,0x7
0f48 00da       |    |		Load_Top	At_Offset_2
0f49 82a4       |    |		Call	0x1,0xa4
0f4a e220       |    |		Load	0x1,0x20
0f4b 01c6       |    |		Execute	Vector,Convert_To_Formal
0f4c 00cb       |    |		Action	Pop_Block_With_Result
0f4d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f4e 4801       |H   |		Short_Literal	0x1
0f4f a403       |    |		Store_Unchecked	0x2,0x3
0f50 00cf       |    |		Action	Mark_Auxiliary
0f51 4801       |H   |		Short_Literal	0x1
0f52 e402       |    |		Load	0x2,0x2
0f53 0264       | d  |		Execute	Discrete,Below_Bound
0f54 7019       |p   |		Jump_Nonzero	0xf6e
0f55 6022       |`"  |		Indirect_Literal	Discrete,0xf78,{0x00000000, 0x7fffffff}
0f56 00d9       |    |		Load_Top	At_Offset_1
0f57 e602       |    |		Load	0x3,0x2
0f58 01d7       |    |		Execute	Vector,Field_Read
0f59 0272       | r  |		Execute	Discrete,Minus
0f5a e403       |    |		Load	0x2,0x3
0f5b 0273       | s  |		Execute	Discrete,Plus
0f5c a404       |    |		Store_Unchecked	0x2,0x4
0f5d e404       |    |		Load	0x2,0x4
0f5e 6021       |`!  |		Indirect_Literal	Discrete,0xf80,{0x00000000, 0x80000000}
0f5f 027f       |    |		Execute	Discrete,Equal
0f60 6805       |h   |		Jump_Zero	0xf66
0f61 4800       |H   |		Short_Literal	0x0
0f62 a404       |    |		Store_Unchecked	0x2,0x4
0f63 4801       |H   |		Short_Literal	0x1
0f64 a403       |    |		Store_Unchecked	0x2,0x3
0f65 7802       |x   |		Jump	0xf68
0f66 4800       |H   |		Short_Literal	0x0
0f67 a403       |    |		Store_Unchecked	0x2,0x3
0f68 e404       |    |		Load	0x2,0x4
0f69 00d9       |    |		Load_Top	At_Offset_1
0f6a e602       |    |		Load	0x3,0x2
0f6b 01d6       |    |		Execute	Vector,Field_Write
0f6c 00c8       |    |		Action	Pop_Auxiliary_Range
0f6d 37e7       |7   |		Loop_Decreasing	0xf55
0f6e 00ce       |    |		Action	Pop_Auxiliary
0f6f e408       |    |		Load	0x2,0x8
0f70 00da       |    |		Load_Top	At_Offset_2
0f71 82a4       |    |		Call	0x1,0xa4
0f72 e220       |    |		Load	0x1,0x20
0f73 01c6       |    |		Execute	Vector,Convert_To_Formal
0f74 00cb       |    |		Action	Pop_Block_With_Result
0f75 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0f76 0000 0000  |    |		.XXX[0x2]
0f78 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0f7c ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000000}
0f80 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
0f84 0000 0000  |    |		.BLANK	0000[0x4]
0f88 ; --------------------------------------------------------------------------------------
0f88 ; SUBPROGRAM
0f88 ; --------------------------------------------------------------------------------------
0f88 0fa0       |    |		.CONST	0x0fa0								; Address of begin
0f89 0004       |    |		.CONST	0x0004								; Address of exception handler
0f8a 0002       |    |		.CONST	0x0002								; Number of locals
0f8b			INIT_0f88:
0f8b 4801       |H   |		Short_Literal	0x1
0f8c e5ff       |    |		Load	0x2,-0x1
0f8d 01dc       |    |		Execute	Vector,Last
0f8e e405       |    |		Load	0x2,0x5
0f8f 0272       | r  |		Execute	Discrete,Minus
0f90 0a01       |    |		Execute_Immediate	Plus,0x1
0f91 00d8       |    |		Load_Top	At_Offset_0
0f92 00e2       |    |		Load_Encached	Integer_Cache
0f93 0260       | `  |		Execute	Discrete,In_Type
0f94 7001       |p   |		Jump_Nonzero	0xf96
0f95 0801       |    |		Execute_Immediate	Raise,0x1
0f96 e220       |    |		Load	0x1,0x20
0f97 035b       | [  |		Declare_Type	Array,Constrained
0f98 0337       | 7  |		Declare_Variable	Array
0f99 e405       |    |		Load	0x2,0x5
0f9a e5ff       |    |		Load	0x2,-0x1
0f9b 01dc       |    |		Execute	Vector,Last
0f9c e5ff       |    |		Load	0x2,-0x1
0f9d 01cf       |    |		Execute	Vector,Slice_Read
0f9e 00d9       |    |		Load_Top	At_Offset_1
0f9f 01d4       |    |		Execute	Vector,Structure_Write
0fa0			BODY_0f88:
0fa0 e5fe       |    |		Load	0x2,-0x2
0fa1 6807       |h   |		Jump_Zero	0xfa9
0fa2 4801       |H   |		Short_Literal	0x1
0fa3 00d9       |    |		Load_Top	At_Offset_1
0fa4 01d7       |    |		Execute	Vector,Field_Read
0fa5 0275       | u  |		Execute	Discrete,Unary_Minus
0fa6 4801       |H   |		Short_Literal	0x1
0fa7 00da       |    |		Load_Top	At_Offset_2
0fa8 01d6       |    |		Execute	Vector,Field_Write
0fa9 00d8       |    |		Load_Top	At_Offset_0
0faa e220       |    |		Load	0x1,0x20
0fab 01c6       |    |		Execute	Vector,Convert_To_Formal
0fac 00cb       |    |		Action	Pop_Block_With_Result
0fad 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0fae 0000 0000  |    |		.XXX[0x2]
0fb0 ; --------------------------------------------------------------------------------------
0fb0 ; SUBPROGRAM
0fb0 ; --------------------------------------------------------------------------------------
0fb0 0fc7       |    |		.CONST	0x0fc7								; Address of begin
0fb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0fb2 0004       |    |		.CONST	0x0004								; Number of locals
0fb3			INIT_0fb0:
0fb3 e5ff       |    |		Load	0x2,-0x1
0fb4 01da       |    |		Execute	Vector,Bounds
0fb5 e220       |    |		Load	0x1,0x20
0fb6 035b       | [  |		Declare_Type	Array,Constrained
0fb7 0337       | 7  |		Declare_Variable	Array
0fb8 e5ff       |    |		Load	0x2,-0x1
0fb9 00d9       |    |		Load_Top	At_Offset_1
0fba 01d4       |    |		Execute	Vector,Structure_Write
0fbb 4801       |H   |		Short_Literal	0x1
0fbc e5fe       |    |		Load	0x2,-0x2
0fbd 01d7       |    |		Execute	Vector,Field_Read
0fbe 0274       | t  |		Execute	Discrete,Absolute_Value
0fbf e21f       |    |		Load	0x1,0x1f
0fc0 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0fc1 4801       |H   |		Short_Literal	0x1
0fc2 e404       |    |		Load	0x2,0x4
0fc3 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0fc4 0272       | r  |		Execute	Discrete,Minus
0fc5 e21f       |    |		Load	0x1,0x1f
0fc6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0fc7			BODY_0fb0:
0fc7 00d9       |    |		Load_Top	At_Offset_1
0fc8 00db       |    |		Load_Top	At_Offset_3
0fc9 82a7       |    |		Call	0x1,0xa7
0fca 00d1       |    |		Pop_Control	Pop_Count_1
0fcb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0fcc e5fd       |    |		Load	0x2,-0x3
0fcd 4602       |F   |		Jump_Case	0x3
0fce 7815       |x   |		Jump	0xfe4								; case 0x0
0fcf 781d       |x   |		Jump	0xfed								; case 0x1
0fd0 7800       |x   |		Jump	0xfd1								; case 0x2
0fd1 4801       |H   |		Short_Literal	0x1
0fd2 4801       |H   |		Short_Literal	0x1
0fd3 e220       |    |		Load	0x1,0x20
0fd4 035b       | [  |		Declare_Type	Array,Constrained
0fd5 0337       | 7  |		Declare_Variable	Array
0fd6 00d9       |    |		Load_Top	At_Offset_1
0fd7 00db       |    |		Load_Top	At_Offset_3
0fd8 0271       | q  |		Execute	Discrete,Times
0fd9 4801       |H   |		Short_Literal	0x1
0fda 00da       |    |		Load_Top	At_Offset_2
0fdb 01d6       |    |		Execute	Vector,Field_Write
0fdc e405       |    |		Load	0x2,0x5
0fdd e602       |    |		Load	0x3,0x2
0fde 82a4       |    |		Call	0x1,0xa4
0fdf 82a5       |    |		Call	0x1,0xa5
0fe0 e233       | 3  |		Load	0x1,0x33
0fe1 0165       | e  |		Execute	Variant_Record,Convert
0fe2 00cb       |    |		Action	Pop_Block_With_Result
0fe3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0fe4 e294       |    |		Load	0x1,0x94
0fe5 e405       |    |		Load	0x2,0x5
0fe6 e602       |    |		Load	0x3,0x2
0fe7 82a4       |    |		Call	0x1,0xa4
0fe8 82a5       |    |		Call	0x1,0xa5
0fe9 e233       | 3  |		Load	0x1,0x33
0fea 0165       | e  |		Execute	Variant_Record,Convert
0feb 00cb       |    |		Action	Pop_Block_With_Result
0fec 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0fed 4800       |H   |		Short_Literal	0x0
0fee 4801       |H   |		Short_Literal	0x1
0fef e233       | 3  |		Load	0x1,0x33
0ff0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0ff1 e294       |    |		Load	0x1,0x94
0ff2 00d9       |    |		Load_Top	At_Offset_1
0ff3 00d8       |    |		Load_Top	At_Offset_0
0ff4 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0ff5 00da       |    |		Load_Top	At_Offset_2
0ff6 01da       |    |		Execute	Vector,Bounds
0ff7 00da       |    |		Load_Top	At_Offset_2
0ff8 01da       |    |		Execute	Vector,Bounds
0ff9 00da       |    |		Load_Top	At_Offset_2
0ffa 027f       |    |		Execute	Discrete,Equal
0ffb 7001       |p   |		Jump_Nonzero	0xffd
0ffc 08e0       |    |		Execute_Immediate	Raise,0xe0
0ffd 00cd       |    |		Action	Spare6_Action
0ffe 027f       |    |		Execute	Discrete,Equal
0fff 7001       |p   |		Jump_Nonzero	0x1001
1000 08e0       |    |		Execute_Immediate	Raise,0xe0
1001 00d2       |    |		Pop_Control	Pop_Count_2
1002 00d9       |    |		Load_Top	At_Offset_1
1003 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
1004 4801       |H   |		Short_Literal	0x1
1005 4801       |H   |		Short_Literal	0x1
1006 e220       |    |		Load	0x1,0x20
1007 035b       | [  |		Declare_Type	Array,Constrained
1008 0337       | 7  |		Declare_Variable	Array
1009 00da       |    |		Load_Top	At_Offset_2
100a e603       |    |		Load	0x3,0x3
100b 0271       | q  |		Execute	Discrete,Times
100c 4801       |H   |		Short_Literal	0x1
100d 00da       |    |		Load_Top	At_Offset_2
100e 01d6       |    |		Execute	Vector,Field_Write
100f 00d9       |    |		Load_Top	At_Offset_1
1010 00d8       |    |		Load_Top	At_Offset_0
1011 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
1012 00da       |    |		Load_Top	At_Offset_2
1013 01da       |    |		Execute	Vector,Bounds
1014 00da       |    |		Load_Top	At_Offset_2
1015 01da       |    |		Execute	Vector,Bounds
1016 00da       |    |		Load_Top	At_Offset_2
1017 027f       |    |		Execute	Discrete,Equal
1018 7001       |p   |		Jump_Nonzero	0x101a
1019 08e0       |    |		Execute_Immediate	Raise,0xe0
101a 00cd       |    |		Action	Spare6_Action
101b 027f       |    |		Execute	Discrete,Equal
101c 7001       |p   |		Jump_Nonzero	0x101e
101d 08e0       |    |		Execute_Immediate	Raise,0xe0
101e 00d2       |    |		Pop_Control	Pop_Count_2
101f 00d9       |    |		Load_Top	At_Offset_1
1020 2904       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
1021 00cb       |    |		Action	Pop_Block_With_Result
1022 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
1023 0000 0000  |    |		.BLANK	0000[0x5]
1028 ; --------------------------------------------------------------------------------------
1028 ; SUBPROGRAM
1028 ; --------------------------------------------------------------------------------------
1028 1075       | u  |		.CONST	0x1075								; Address of begin
1029 0004       |    |		.CONST	0x0004								; Address of exception handler
102a 000b       |    |		.CONST	0x000b								; Number of locals
102b			INIT_1028:
102b 612c       |a,  |		Indirect_Literal	Discrete,0x1158,{0x00000000, 0x80000000}
102c 4801       |H   |		Short_Literal	0x1
102d e5fe       |    |		Load	0x2,-0x2
102e 01d7       |    |		Execute	Vector,Field_Read
102f 0274       | t  |		Execute	Discrete,Absolute_Value
1030 0a01       |    |		Execute_Immediate	Plus,0x1
1031 0270       | p  |		Execute	Discrete,Divide
1032 00e5       |    |		Load_Encached	Long_Integer_Cache
1033 03f1       |    |		Declare_Variable	Discrete,With_Value
1034 4801       |H   |		Short_Literal	0x1
1035 e402       |    |		Load	0x2,0x2
1036 0a01       |    |		Execute_Immediate	Plus,0x1
1037 00d8       |    |		Load_Top	At_Offset_0
1038 00e2       |    |		Load_Encached	Integer_Cache
1039 0260       | `  |		Execute	Discrete,In_Type
103a 7001       |p   |		Jump_Nonzero	0x103c
103b 0801       |    |		Execute_Immediate	Raise,0x1
103c e220       |    |		Load	0x1,0x20
103d 035b       | [  |		Declare_Type	Array,Constrained
103e 0337       | 7  |		Declare_Variable	Array
103f 00d9       |    |		Load_Top	At_Offset_1
1040 00d8       |    |		Load_Top	At_Offset_0
1041 e21f       |    |		Load	0x1,0x1f
1042 0260       | `  |		Execute	Discrete,In_Type
1043 7001       |p   |		Jump_Nonzero	0x1045
1044 0801       |    |		Execute_Immediate	Raise,0x1
1045 4800       |H   |		Short_Literal	0x0
1046 e5ff       |    |		Load	0x2,-0x1
1047 01ca       |    |		Execute	Vector,Prepend
1048 82a6       |    |		Call	0x1,0xa6
1049 00d9       |    |		Load_Top	At_Offset_1
104a 01d4       |    |		Execute	Vector,Structure_Write
104b 4801       |H   |		Short_Literal	0x1
104c e403       |    |		Load	0x2,0x3
104d e220       |    |		Load	0x1,0x20
104e 035b       | [  |		Declare_Type	Array,Constrained
104f 0337       | 7  |		Declare_Variable	Array
1050 00da       |    |		Load_Top	At_Offset_2
1051 00d8       |    |		Load_Top	At_Offset_0
1052 e21f       |    |		Load	0x1,0x1f
1053 0260       | `  |		Execute	Discrete,In_Type
1054 7001       |p   |		Jump_Nonzero	0x1056
1055 0801       |    |		Execute_Immediate	Raise,0x1
1056 e5fe       |    |		Load	0x2,-0x2
1057 82a6       |    |		Call	0x1,0xa6
1058 00d9       |    |		Load_Top	At_Offset_1
1059 01d4       |    |		Execute	Vector,Structure_Write
105a 4801       |H   |		Short_Literal	0x1
105b 00d9       |    |		Load_Top	At_Offset_1
105c 01d7       |    |		Execute	Vector,Field_Read
105d 00e5       |    |		Load_Encached	Long_Integer_Cache
105e 03f1       |    |		Declare_Variable	Discrete,With_Value
105f 4802       |H   |		Short_Literal	0x2
1060 00da       |    |		Load_Top	At_Offset_2
1061 01d7       |    |		Execute	Vector,Field_Read
1062 00e5       |    |		Load_Encached	Long_Integer_Cache
1063 03f1       |    |		Declare_Variable	Discrete,With_Value
1064 4801       |H   |		Short_Literal	0x1
1065 e402       |    |		Load	0x2,0x2
1066 e403       |    |		Load	0x2,0x3
1067 0272       | r  |		Execute	Discrete,Minus
1068 0a01       |    |		Execute_Immediate	Plus,0x1
1069 00d8       |    |		Load_Top	At_Offset_0
106a 00e2       |    |		Load_Encached	Integer_Cache
106b 0260       | `  |		Execute	Discrete,In_Type
106c 7001       |p   |		Jump_Nonzero	0x106e
106d 0801       |    |		Execute_Immediate	Raise,0x1
106e e220       |    |		Load	0x1,0x20
106f 035b       | [  |		Declare_Type	Array,Constrained
1070 0337       | 7  |		Declare_Variable	Array
1071 00e5       |    |		Load_Encached	Long_Integer_Cache
1072 00e5       |    |		Load_Encached	Long_Integer_Cache
1073 03e9       |    |		Declare_Variable	Discrete,Duplicate
1074 00e5       |    |		Load_Encached	Long_Integer_Cache
1075			BODY_1028:
1075 00cf       |    |		Action	Mark_Auxiliary
1076 e607       |    |		Load	0x3,0x7
1077 01d9       |    |		Execute	Vector,Reverse_Bounds
1078 0263       | c  |		Execute	Discrete,Above_Bound
1079 70a4       |p   |		Jump_Nonzero	0x111e
107a 00d8       |    |		Load_Top	At_Offset_0
107b e603       |    |		Load	0x3,0x3
107c 01d7       |    |		Execute	Vector,Field_Read
107d 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
107e 00d9       |    |		Load_Top	At_Offset_1
107f 0a01       |    |		Execute_Immediate	Plus,0x1
1080 e603       |    |		Load	0x3,0x3
1081 01d7       |    |		Execute	Vector,Field_Read
1082 0273       | s  |		Execute	Discrete,Plus
1083 a60a       |    |		Store_Unchecked	0x3,0xa
1084 00d8       |    |		Load_Top	At_Offset_0
1085 e603       |    |		Load	0x3,0x3
1086 01d7       |    |		Execute	Vector,Field_Read
1087 e605       |    |		Load	0x3,0x5
1088 027e       | ~  |		Execute	Discrete,Not_Equal
1089 6805       |h   |		Jump_Zero	0x108f
108a e60a       |    |		Load	0x3,0xa
108b e605       |    |		Load	0x3,0x5
108c 0270       | p  |		Execute	Discrete,Divide
108d a60b       |    |		Store_Unchecked	0x3,0xb
108e 7802       |x   |		Jump	0x1091
108f 60c4       |`   |		Indirect_Literal	Discrete,0x1154,{0x00000000, 0x7fffffff}
1090 a60b       |    |		Store_Unchecked	0x3,0xb
1091 00cf       |    |		Action	Mark_Auxiliary
1092 7804       |x   |		Jump	0x1097
1093 e60b       |    |		Load	0x3,0xb
1094 0aff       |    |		Execute_Immediate	Plus,-0x1
1095 a60b       |    |		Store_Unchecked	0x3,0xb
1096 00c9       |    |		Action	Pop_Auxiliary_Loop
1097 e606       |    |		Load	0x3,0x6
1098 e60b       |    |		Load	0x3,0xb
1099 0271       | q  |		Execute	Discrete,Times
109a e60a       |    |		Load	0x3,0xa
109b e60b       |    |		Load	0x3,0xb
109c e605       |    |		Load	0x3,0x5
109d 0271       | q  |		Execute	Discrete,Times
109e 0272       | r  |		Execute	Discrete,Minus
109f 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
10a0 00db       |    |		Load_Top	At_Offset_3
10a1 0a02       |    |		Execute_Immediate	Plus,0x2
10a2 e603       |    |		Load	0x3,0x3
10a3 01d7       |    |		Execute	Vector,Field_Read
10a4 0273       | s  |		Execute	Discrete,Plus
10a5 027d       | }  |		Execute	Discrete,Greater
10a6 77ec       |w   |		Jump_Nonzero	0x1093
10a7 00ce       |    |		Action	Pop_Auxiliary
10a8 4800       |H   |		Short_Literal	0x0
10a9 a609       |    |		Store_Unchecked	0x3,0x9
10aa 00cf       |    |		Action	Mark_Auxiliary
10ab e604       |    |		Load	0x3,0x4
10ac 01da       |    |		Execute	Vector,Bounds
10ad 0264       | d  |		Execute	Discrete,Below_Bound
10ae 7027       |p'  |		Jump_Nonzero	0x10d6
10af 00db       |    |		Load_Top	At_Offset_3
10b0 00d9       |    |		Load_Top	At_Offset_1
10b1 0273       | s  |		Execute	Discrete,Plus
10b2 e603       |    |		Load	0x3,0x3
10b3 01d7       |    |		Execute	Vector,Field_Read
10b4 e60b       |    |		Load	0x3,0xb
10b5 00da       |    |		Load_Top	At_Offset_2
10b6 e604       |    |		Load	0x3,0x4
10b7 01d7       |    |		Execute	Vector,Field_Read
10b8 0271       | q  |		Execute	Discrete,Times
10b9 0272       | r  |		Execute	Discrete,Minus
10ba e609       |    |		Load	0x3,0x9
10bb 0273       | s  |		Execute	Discrete,Plus
10bc a60a       |    |		Store_Unchecked	0x3,0xa
10bd e60a       |    |		Load	0x3,0xa
10be 6099       |`   |		Indirect_Literal	Discrete,0x1158,{0x00000000, 0x80000000}
10bf 026f       | o  |		Execute	Discrete,Remainder
10c0 a608       |    |		Store_Unchecked	0x3,0x8
10c1 e60a       |    |		Load	0x3,0xa
10c2 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
10c3 a609       |    |		Store_Unchecked	0x3,0x9
10c4 e608       |    |		Load	0x3,0x8
10c5 0d00       |    |		Execute_Immediate	Less,0x0
10c6 6807       |h   |		Jump_Zero	0x10ce
10c7 e608       |    |		Load	0x3,0x8
10c8 608f       |`   |		Indirect_Literal	Discrete,0x1158,{0x00000000, 0x80000000}
10c9 0273       | s  |		Execute	Discrete,Plus
10ca a608       |    |		Store_Unchecked	0x3,0x8
10cb e609       |    |		Load	0x3,0x9
10cc 0aff       |    |		Execute_Immediate	Plus,-0x1
10cd a609       |    |		Store_Unchecked	0x3,0x9
10ce e608       |    |		Load	0x3,0x8
10cf e60e       |    |		Load	0x3,0xe
10d0 00da       |    |		Load_Top	At_Offset_2
10d1 0273       | s  |		Execute	Discrete,Plus
10d2 e603       |    |		Load	0x3,0x3
10d3 01d6       |    |		Execute	Vector,Field_Write
10d4 00c8       |    |		Action	Pop_Auxiliary_Range
10d5 37d9       |7   |		Loop_Decreasing	0x10af
10d6 00ce       |    |		Action	Pop_Auxiliary
10d7 00d8       |    |		Load_Top	At_Offset_0
10d8 e603       |    |		Load	0x3,0x3
10d9 01d7       |    |		Execute	Vector,Field_Read
10da e609       |    |		Load	0x3,0x9
10db 0273       | s  |		Execute	Discrete,Plus
10dc 00d9       |    |		Load_Top	At_Offset_1
10dd e603       |    |		Load	0x3,0x3
10de 01d6       |    |		Execute	Vector,Field_Write
10df 00d8       |    |		Load_Top	At_Offset_0
10e0 e603       |    |		Load	0x3,0x3
10e1 01d7       |    |		Execute	Vector,Field_Read
10e2 0d00       |    |		Execute_Immediate	Less,0x0
10e3 6834       |h4  |		Jump_Zero	0x1118
10e4 00db       |    |		Load_Top	At_Offset_3
10e5 0aff       |    |		Execute_Immediate	Plus,-0x1
10e6 a60b       |    |		Store_Unchecked	0x3,0xb
10e7 4800       |H   |		Short_Literal	0x0
10e8 a609       |    |		Store_Unchecked	0x3,0x9
10e9 00cf       |    |		Action	Mark_Auxiliary
10ea e604       |    |		Load	0x3,0x4
10eb 01da       |    |		Execute	Vector,Bounds
10ec 0264       | d  |		Execute	Discrete,Below_Bound
10ed 7021       |p!  |		Jump_Nonzero	0x110f
10ee 00db       |    |		Load_Top	At_Offset_3
10ef 00d9       |    |		Load_Top	At_Offset_1
10f0 0273       | s  |		Execute	Discrete,Plus
10f1 e603       |    |		Load	0x3,0x3
10f2 01d7       |    |		Execute	Vector,Field_Read
10f3 00d9       |    |		Load_Top	At_Offset_1
10f4 e604       |    |		Load	0x3,0x4
10f5 01d7       |    |		Execute	Vector,Field_Read
10f6 0273       | s  |		Execute	Discrete,Plus
10f7 e609       |    |		Load	0x3,0x9
10f8 0273       | s  |		Execute	Discrete,Plus
10f9 a60a       |    |		Store_Unchecked	0x3,0xa
10fa e60a       |    |		Load	0x3,0xa
10fb 605c       |`\  |		Indirect_Literal	Discrete,0x1158,{0x00000000, 0x80000000}
10fc 027b       | {  |		Execute	Discrete,Greater_Equal
10fd 6807       |h   |		Jump_Zero	0x1105
10fe e60a       |    |		Load	0x3,0xa
10ff 6050       |`P  |		Indirect_Literal	Discrete,0x1150,{0xffffffff, 0x80000000}
1100 0273       | s  |		Execute	Discrete,Plus
1101 a60a       |    |		Store_Unchecked	0x3,0xa
1102 4801       |H   |		Short_Literal	0x1
1103 a609       |    |		Store_Unchecked	0x3,0x9
1104 7802       |x   |		Jump	0x1107
1105 4800       |H   |		Short_Literal	0x0
1106 a609       |    |		Store_Unchecked	0x3,0x9
1107 e60a       |    |		Load	0x3,0xa
1108 e60e       |    |		Load	0x3,0xe
1109 00da       |    |		Load_Top	At_Offset_2
110a 0273       | s  |		Execute	Discrete,Plus
110b e603       |    |		Load	0x3,0x3
110c 01d6       |    |		Execute	Vector,Field_Write
110d 00c8       |    |		Action	Pop_Auxiliary_Range
110e 37df       |7   |		Loop_Decreasing	0x10ee
110f 00ce       |    |		Action	Pop_Auxiliary
1110 00d8       |    |		Load_Top	At_Offset_0
1111 e603       |    |		Load	0x3,0x3
1112 01d7       |    |		Execute	Vector,Field_Read
1113 e609       |    |		Load	0x3,0x9
1114 0273       | s  |		Execute	Discrete,Plus
1115 00d9       |    |		Load_Top	At_Offset_1
1116 e603       |    |		Load	0x3,0x3
1117 01d6       |    |		Execute	Vector,Field_Write
1118 00db       |    |		Load_Top	At_Offset_3
1119 00d9       |    |		Load_Top	At_Offset_1
111a e607       |    |		Load	0x3,0x7
111b 01d6       |    |		Execute	Vector,Field_Write
111c 00c8       |    |		Action	Pop_Auxiliary_Range
111d 3f5c       |?\  |		Loop_Increasing	0x107a
111e 00ce       |    |		Action	Pop_Auxiliary
111f e602       |    |		Load	0x3,0x2
1120 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
1121 6809       |h   |		Jump_Zero	0x112b
1122 e5fd       |    |		Load	0x2,-0x3
1123 6807       |h   |		Jump_Zero	0x112b
1124 e602       |    |		Load	0x3,0x2
1125 e21f       |    |		Load	0x1,0x1f
1126 025e       | ^  |		Execute	Discrete,Convert
1127 e603       |    |		Load	0x3,0x3
1128 82a7       |    |		Call	0x1,0xa7
1129 00d1       |    |		Pop_Control	Pop_Count_1
112a c602       |    |		Store	0x3,0x2
112b e5fd       |    |		Load	0x2,-0x3
112c 4602       |F   |		Jump_Case	0x3
112d 780d       |x   |		Jump	0x113b								; case 0x0
112e 7815       |x   |		Jump	0x1144								; case 0x1
112f 7800       |x   |		Jump	0x1130								; case 0x2
1130 e404       |    |		Load	0x2,0x4
1131 e603       |    |		Load	0x3,0x3
1132 82a4       |    |		Call	0x1,0xa4
1133 e405       |    |		Load	0x2,0x5
1134 e607       |    |		Load	0x3,0x7
1135 82a4       |    |		Call	0x1,0xa4
1136 82a5       |    |		Call	0x1,0xa5
1137 e233       | 3  |		Load	0x1,0x33
1138 0165       | e  |		Execute	Variant_Record,Convert
1139 00cb       |    |		Action	Pop_Block_With_Result
113a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
113b e294       |    |		Load	0x1,0x94
113c e405       |    |		Load	0x2,0x5
113d e607       |    |		Load	0x3,0x7
113e 82a4       |    |		Call	0x1,0xa4
113f 82a5       |    |		Call	0x1,0xa5
1140 e233       | 3  |		Load	0x1,0x33
1141 0165       | e  |		Execute	Variant_Record,Convert
1142 00cb       |    |		Action	Pop_Block_With_Result
1143 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
1144 e404       |    |		Load	0x2,0x4
1145 e603       |    |		Load	0x3,0x3
1146 82a4       |    |		Call	0x1,0xa4
1147 e294       |    |		Load	0x1,0x94
1148 82a5       |    |		Call	0x1,0xa5
1149 e233       | 3  |		Load	0x1,0x33
114a 0165       | e  |		Execute	Variant_Record,Convert
114b 00cb       |    |		Action	Pop_Block_With_Result
114c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
114d 0000 0000  |    |		.XXX[0x3]
114f 0000       |    |
1150 ffff ffff  |    |		.LITERAL	{0xffffffff, 0x80000000}
1154 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
1158 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
115c 0000 0000  |    |		.BLANK	0000[0x4]
1160 ; --------------------------------------------------------------------------------------
1160 ; SUBPROGRAM
1160 ; --------------------------------------------------------------------------------------
1160 118f       |    |		.CONST	0x118f								; Address of begin
1161 0004       |    |		.CONST	0x0004								; Address of exception handler
1162 000b       |    |		.CONST	0x000b								; Number of locals
1163			INIT_1160:
1163 67f4       |g   |		Indirect_Literal	Discrete,0x1158,{0x00000000, 0x80000000}
1164 e403       |    |		Load	0x2,0x3
1165 e5fe       |    |		Load	0x2,-0x2
1166 01d7       |    |		Execute	Vector,Field_Read
1167 0274       | t  |		Execute	Discrete,Absolute_Value
1168 0a01       |    |		Execute_Immediate	Plus,0x1
1169 0270       | p  |		Execute	Discrete,Divide
116a 00e5       |    |		Load_Encached	Long_Integer_Cache
116b 03f1       |    |		Declare_Variable	Discrete,With_Value
116c 4801       |H   |		Short_Literal	0x1
116d e404       |    |		Load	0x2,0x4
116e 0a01       |    |		Execute_Immediate	Plus,0x1
116f 00d8       |    |		Load_Top	At_Offset_0
1170 00e2       |    |		Load_Encached	Integer_Cache
1171 0260       | `  |		Execute	Discrete,In_Type
1172 7001       |p   |		Jump_Nonzero	0x1174
1173 0801       |    |		Execute_Immediate	Raise,0x1
1174 e220       |    |		Load	0x1,0x20
1175 035b       | [  |		Declare_Type	Array,Constrained
1176 0337       | 7  |		Declare_Variable	Array
1177 4801       |H   |		Short_Literal	0x1
1178 e405       |    |		Load	0x2,0x5
1179 e220       |    |		Load	0x1,0x20
117a 035b       | [  |		Declare_Type	Array,Constrained
117b 0337       | 7  |		Declare_Variable	Array
117c 00e5       |    |		Load_Encached	Long_Integer_Cache
117d 00e5       |    |		Load_Encached	Long_Integer_Cache
117e 4801       |H   |		Short_Literal	0x1
117f e404       |    |		Load	0x2,0x4
1180 e405       |    |		Load	0x2,0x5
1181 0272       | r  |		Execute	Discrete,Minus
1182 0a01       |    |		Execute_Immediate	Plus,0x1
1183 00d8       |    |		Load_Top	At_Offset_0
1184 00e2       |    |		Load_Encached	Integer_Cache
1185 0260       | `  |		Execute	Discrete,In_Type
1186 7001       |p   |		Jump_Nonzero	0x1188
1187 0801       |    |		Execute_Immediate	Raise,0x1
1188 e220       |    |		Load	0x1,0x20
1189 035b       | [  |		Declare_Type	Array,Constrained
118a 0337       | 7  |		Declare_Variable	Array
118b 00e5       |    |		Load_Encached	Long_Integer_Cache
118c 00e5       |    |		Load_Encached	Long_Integer_Cache
118d 03e9       |    |		Declare_Variable	Discrete,Duplicate
118e 00e5       |    |		Load_Encached	Long_Integer_Cache
118f			BODY_1160:
118f e603       |    |		Load	0x3,0x3
1190 e402       |    |		Load	0x2,0x2
1191 e5ff       |    |		Load	0x2,-0x1
1192 01dc       |    |		Execute	Vector,Last
1193 e5ff       |    |		Load	0x2,-0x1
1194 01cf       |    |		Execute	Vector,Slice_Read
1195 82a1       |    |		Call	0x1,0xa1
1196 00d1       |    |		Pop_Control	Pop_Count_1
1197 e604       |    |		Load	0x3,0x4
1198 e403       |    |		Load	0x2,0x3
1199 e5fe       |    |		Load	0x2,-0x2
119a 01dc       |    |		Execute	Vector,Last
119b e5fe       |    |		Load	0x2,-0x2
119c 01cf       |    |		Execute	Vector,Slice_Read
119d 82a1       |    |		Call	0x1,0xa1
119e 00d1       |    |		Pop_Control	Pop_Count_1
119f 4802       |H   |		Short_Literal	0x2
11a0 e603       |    |		Load	0x3,0x3
11a1 01d7       |    |		Execute	Vector,Field_Read
11a2 0274       | t  |		Execute	Discrete,Absolute_Value
11a3 4802       |H   |		Short_Literal	0x2
11a4 e603       |    |		Load	0x3,0x3
11a5 01d6       |    |		Execute	Vector,Field_Write
11a6 4801       |H   |		Short_Literal	0x1
11a7 e604       |    |		Load	0x3,0x4
11a8 01d7       |    |		Execute	Vector,Field_Read
11a9 0274       | t  |		Execute	Discrete,Absolute_Value
11aa 4801       |H   |		Short_Literal	0x1
11ab e604       |    |		Load	0x3,0x4
11ac 01d6       |    |		Execute	Vector,Field_Write
11ad e602       |    |		Load	0x3,0x2
11ae 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
11af 6812       |h   |		Jump_Zero	0x11c2
11b0 e603       |    |		Load	0x3,0x3
11b1 e602       |    |		Load	0x3,0x2
11b2 00d8       |    |		Load_Top	At_Offset_0
11b3 e21f       |    |		Load	0x1,0x1f
11b4 0260       | `  |		Execute	Discrete,In_Type
11b5 7001       |p   |		Jump_Nonzero	0x11b7
11b6 0801       |    |		Execute_Immediate	Raise,0x1
11b7 82aa       |    |		Call	0x1,0xaa
11b8 00d1       |    |		Pop_Control	Pop_Count_1
11b9 e604       |    |		Load	0x3,0x4
11ba e602       |    |		Load	0x3,0x2
11bb 00d8       |    |		Load_Top	At_Offset_0
11bc e21f       |    |		Load	0x1,0x1f
11bd 0260       | `  |		Execute	Discrete,In_Type
11be 7001       |p   |		Jump_Nonzero	0x11c0
11bf 0801       |    |		Execute_Immediate	Raise,0x1
11c0 82aa       |    |		Call	0x1,0xaa
11c1 00d1       |    |		Pop_Control	Pop_Count_1
11c2 4801       |H   |		Short_Literal	0x1
11c3 e604       |    |		Load	0x3,0x4
11c4 01d7       |    |		Execute	Vector,Field_Read
11c5 a605       |    |		Store_Unchecked	0x3,0x5
11c6 4802       |H   |		Short_Literal	0x2
11c7 e604       |    |		Load	0x3,0x4
11c8 01d7       |    |		Execute	Vector,Field_Read
11c9 a606       |    |		Store_Unchecked	0x3,0x6
11ca 00cf       |    |		Action	Mark_Auxiliary
11cb e607       |    |		Load	0x3,0x7
11cc 01d9       |    |		Execute	Vector,Reverse_Bounds
11cd 0263       | c  |		Execute	Discrete,Above_Bound
11ce 70a4       |p   |		Jump_Nonzero	0x1273
11cf 00d8       |    |		Load_Top	At_Offset_0
11d0 e603       |    |		Load	0x3,0x3
11d1 01d7       |    |		Execute	Vector,Field_Read
11d2 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
11d3 00d9       |    |		Load_Top	At_Offset_1
11d4 0a01       |    |		Execute_Immediate	Plus,0x1
11d5 e603       |    |		Load	0x3,0x3
11d6 01d7       |    |		Execute	Vector,Field_Read
11d7 0273       | s  |		Execute	Discrete,Plus
11d8 a60a       |    |		Store_Unchecked	0x3,0xa
11d9 00d8       |    |		Load_Top	At_Offset_0
11da e603       |    |		Load	0x3,0x3
11db 01d7       |    |		Execute	Vector,Field_Read
11dc e605       |    |		Load	0x3,0x5
11dd 027e       | ~  |		Execute	Discrete,Not_Equal
11de 6805       |h   |		Jump_Zero	0x11e4
11df e60a       |    |		Load	0x3,0xa
11e0 e605       |    |		Load	0x3,0x5
11e1 0270       | p  |		Execute	Discrete,Divide
11e2 a60b       |    |		Store_Unchecked	0x3,0xb
11e3 7802       |x   |		Jump	0x11e6
11e4 676f       |go  |		Indirect_Literal	Discrete,0x1154,{0x00000000, 0x7fffffff}
11e5 a60b       |    |		Store_Unchecked	0x3,0xb
11e6 00cf       |    |		Action	Mark_Auxiliary
11e7 7804       |x   |		Jump	0x11ec
11e8 e60b       |    |		Load	0x3,0xb
11e9 0aff       |    |		Execute_Immediate	Plus,-0x1
11ea a60b       |    |		Store_Unchecked	0x3,0xb
11eb 00c9       |    |		Action	Pop_Auxiliary_Loop
11ec e606       |    |		Load	0x3,0x6
11ed e60b       |    |		Load	0x3,0xb
11ee 0271       | q  |		Execute	Discrete,Times
11ef e60a       |    |		Load	0x3,0xa
11f0 e60b       |    |		Load	0x3,0xb
11f1 e605       |    |		Load	0x3,0x5
11f2 0271       | q  |		Execute	Discrete,Times
11f3 0272       | r  |		Execute	Discrete,Minus
11f4 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
11f5 00db       |    |		Load_Top	At_Offset_3
11f6 0a02       |    |		Execute_Immediate	Plus,0x2
11f7 e603       |    |		Load	0x3,0x3
11f8 01d7       |    |		Execute	Vector,Field_Read
11f9 0273       | s  |		Execute	Discrete,Plus
11fa 027d       | }  |		Execute	Discrete,Greater
11fb 77ec       |w   |		Jump_Nonzero	0x11e8
11fc 00ce       |    |		Action	Pop_Auxiliary
11fd 4800       |H   |		Short_Literal	0x0
11fe a609       |    |		Store_Unchecked	0x3,0x9
11ff 00cf       |    |		Action	Mark_Auxiliary
1200 e604       |    |		Load	0x3,0x4
1201 01da       |    |		Execute	Vector,Bounds
1202 0264       | d  |		Execute	Discrete,Below_Bound
1203 7027       |p'  |		Jump_Nonzero	0x122b
1204 00db       |    |		Load_Top	At_Offset_3
1205 00d9       |    |		Load_Top	At_Offset_1
1206 0273       | s  |		Execute	Discrete,Plus
1207 e603       |    |		Load	0x3,0x3
1208 01d7       |    |		Execute	Vector,Field_Read
1209 e60b       |    |		Load	0x3,0xb
120a 00da       |    |		Load_Top	At_Offset_2
120b e604       |    |		Load	0x3,0x4
120c 01d7       |    |		Execute	Vector,Field_Read
120d 0271       | q  |		Execute	Discrete,Times
120e 0272       | r  |		Execute	Discrete,Minus
120f e609       |    |		Load	0x3,0x9
1210 0273       | s  |		Execute	Discrete,Plus
1211 a60a       |    |		Store_Unchecked	0x3,0xa
1212 e60a       |    |		Load	0x3,0xa
1213 6744       |gD  |		Indirect_Literal	Discrete,0x1158,{0x00000000, 0x80000000}
1214 026f       | o  |		Execute	Discrete,Remainder
1215 a608       |    |		Store_Unchecked	0x3,0x8
1216 e60a       |    |		Load	0x3,0xa
1217 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
1218 a609       |    |		Store_Unchecked	0x3,0x9
1219 e608       |    |		Load	0x3,0x8
121a 0d00       |    |		Execute_Immediate	Less,0x0
121b 6807       |h   |		Jump_Zero	0x1223
121c e608       |    |		Load	0x3,0x8
121d 673a       |g:  |		Indirect_Literal	Discrete,0x1158,{0x00000000, 0x80000000}
121e 0273       | s  |		Execute	Discrete,Plus
121f a608       |    |		Store_Unchecked	0x3,0x8
1220 e609       |    |		Load	0x3,0x9
1221 0aff       |    |		Execute_Immediate	Plus,-0x1
1222 a609       |    |		Store_Unchecked	0x3,0x9
1223 e608       |    |		Load	0x3,0x8
1224 e60e       |    |		Load	0x3,0xe
1225 00da       |    |		Load_Top	At_Offset_2
1226 0273       | s  |		Execute	Discrete,Plus
1227 e603       |    |		Load	0x3,0x3
1228 01d6       |    |		Execute	Vector,Field_Write
1229 00c8       |    |		Action	Pop_Auxiliary_Range
122a 37d9       |7   |		Loop_Decreasing	0x1204
122b 00ce       |    |		Action	Pop_Auxiliary
122c 00d8       |    |		Load_Top	At_Offset_0
122d e603       |    |		Load	0x3,0x3
122e 01d7       |    |		Execute	Vector,Field_Read
122f e609       |    |		Load	0x3,0x9
1230 0273       | s  |		Execute	Discrete,Plus
1231 00d9       |    |		Load_Top	At_Offset_1
1232 e603       |    |		Load	0x3,0x3
1233 01d6       |    |		Execute	Vector,Field_Write
1234 00d8       |    |		Load_Top	At_Offset_0
1235 e603       |    |		Load	0x3,0x3
1236 01d7       |    |		Execute	Vector,Field_Read
1237 0d00       |    |		Execute_Immediate	Less,0x0
1238 6834       |h4  |		Jump_Zero	0x126d
1239 00db       |    |		Load_Top	At_Offset_3
123a 0aff       |    |		Execute_Immediate	Plus,-0x1
123b a60b       |    |		Store_Unchecked	0x3,0xb
123c 4800       |H   |		Short_Literal	0x0
123d a609       |    |		Store_Unchecked	0x3,0x9
123e 00cf       |    |		Action	Mark_Auxiliary
123f e604       |    |		Load	0x3,0x4
1240 01da       |    |		Execute	Vector,Bounds
1241 0264       | d  |		Execute	Discrete,Below_Bound
1242 7021       |p!  |		Jump_Nonzero	0x1264
1243 00db       |    |		Load_Top	At_Offset_3
1244 00d9       |    |		Load_Top	At_Offset_1
1245 0273       | s  |		Execute	Discrete,Plus
1246 e603       |    |		Load	0x3,0x3
1247 01d7       |    |		Execute	Vector,Field_Read
1248 00d9       |    |		Load_Top	At_Offset_1
1249 e604       |    |		Load	0x3,0x4
124a 01d7       |    |		Execute	Vector,Field_Read
124b 0273       | s  |		Execute	Discrete,Plus
124c e609       |    |		Load	0x3,0x9
124d 0273       | s  |		Execute	Discrete,Plus
124e a60a       |    |		Store_Unchecked	0x3,0xa
124f e60a       |    |		Load	0x3,0xa
1250 6707       |g   |		Indirect_Literal	Discrete,0x1158,{0x00000000, 0x80000000}
1251 027b       | {  |		Execute	Discrete,Greater_Equal
1252 6807       |h   |		Jump_Zero	0x125a
1253 e60a       |    |		Load	0x3,0xa
1254 66fb       |f   |		Indirect_Literal	Discrete,0x1150,{0xffffffff, 0x80000000}
1255 0273       | s  |		Execute	Discrete,Plus
1256 a60a       |    |		Store_Unchecked	0x3,0xa
1257 4801       |H   |		Short_Literal	0x1
1258 a609       |    |		Store_Unchecked	0x3,0x9
1259 7802       |x   |		Jump	0x125c
125a 4800       |H   |		Short_Literal	0x0
125b a609       |    |		Store_Unchecked	0x3,0x9
125c e60a       |    |		Load	0x3,0xa
125d e60e       |    |		Load	0x3,0xe
125e 00da       |    |		Load_Top	At_Offset_2
125f 0273       | s  |		Execute	Discrete,Plus
1260 e603       |    |		Load	0x3,0x3
1261 01d6       |    |		Execute	Vector,Field_Write
1262 00c8       |    |		Action	Pop_Auxiliary_Range
1263 37df       |7   |		Loop_Decreasing	0x1243
1264 00ce       |    |		Action	Pop_Auxiliary
1265 00d8       |    |		Load_Top	At_Offset_0
1266 e603       |    |		Load	0x3,0x3
1267 01d7       |    |		Execute	Vector,Field_Read
1268 e609       |    |		Load	0x3,0x9
1269 0273       | s  |		Execute	Discrete,Plus
126a 00d9       |    |		Load_Top	At_Offset_1
126b e603       |    |		Load	0x3,0x3
126c 01d6       |    |		Execute	Vector,Field_Write
126d 00db       |    |		Load_Top	At_Offset_3
126e 00d9       |    |		Load_Top	At_Offset_1
126f e607       |    |		Load	0x3,0x7
1270 01d6       |    |		Execute	Vector,Field_Write
1271 00c8       |    |		Action	Pop_Auxiliary_Range
1272 3f5c       |?\  |		Loop_Increasing	0x11cf
1273 00ce       |    |		Action	Pop_Auxiliary
1274 e407       |    |		Load	0x2,0x7
1275 680a       |h   |		Jump_Zero	0x1280
1276 e607       |    |		Load	0x3,0x7
1277 82a9       |    |		Call	0x1,0xa9
1278 a402       |    |		Store_Unchecked	0x2,0x2
1279 e402       |    |		Load	0x2,0x2
127a e607       |    |		Load	0x3,0x7
127b 01d7       |    |		Execute	Vector,Field_Read
127c 0275       | u  |		Execute	Discrete,Unary_Minus
127d e402       |    |		Load	0x2,0x2
127e e607       |    |		Load	0x3,0x7
127f 01d6       |    |		Execute	Vector,Field_Write
1280 e5fd       |    |		Load	0x2,-0x3
1281 e607       |    |		Load	0x3,0x7
1282 82a1       |    |		Call	0x1,0xa1
1283 00d1       |    |		Pop_Control	Pop_Count_1
1284 4800       |H   |		Short_Literal	0x0
1285 a5fb       |    |		Store_Unchecked	0x2,-0x5
1286 e5fc       |    |		Load	0x2,-0x4
1287 01db       |    |		Execute	Vector,Length
1288 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1289 684d       |hM  |		Jump_Zero	0x12d7
128a e603       |    |		Load	0x3,0x3
128b 82a9       |    |		Call	0x1,0xa9
128c a402       |    |		Store_Unchecked	0x2,0x2
128d e603       |    |		Load	0x3,0x3
128e 01dc       |    |		Execute	Vector,Last
128f e603       |    |		Load	0x3,0x3
1290 01d7       |    |		Execute	Vector,Field_Read
1291 700c       |p   |		Jump_Nonzero	0x129e
1292 e402       |    |		Load	0x2,0x2
1293 e603       |    |		Load	0x3,0x3
1294 01dc       |    |		Execute	Vector,Last
1295 027f       |    |		Execute	Discrete,Equal
1296 6807       |h   |		Jump_Zero	0x129e
1297 4801       |H   |		Short_Literal	0x1
1298 a5fb       |    |		Store_Unchecked	0x2,-0x5
1299 e5fc       |    |		Load	0x2,-0x4
129a 4800       |H   |		Short_Literal	0x0
129b 82a2       |    |		Call	0x1,0xa2
129c 00d1       |    |		Pop_Control	Pop_Count_1
129d 7831       |x1  |		Jump	0x12cf
129e 4800       |H   |		Short_Literal	0x0
129f a5fb       |    |		Store_Unchecked	0x2,-0x5
12a0 e602       |    |		Load	0x3,0x2
12a1 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
12a2 6823       |h#  |		Jump_Zero	0x12c6
12a3 4800       |H   |		Short_Literal	0x0
12a4 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
12a5 00cf       |    |		Action	Mark_Auxiliary
12a6 e603       |    |		Load	0x3,0x3
12a7 01dc       |    |		Execute	Vector,Last
12a8 e402       |    |		Load	0x2,0x2
12a9 0263       | c  |		Execute	Discrete,Above_Bound
12aa 7013       |p   |		Jump_Nonzero	0x12be
12ab e609       |    |		Load	0x3,0x9
12ac 091f       |    |		Execute_Immediate	Binary_Scale,0x1f
12ad 00d9       |    |		Load_Top	At_Offset_1
12ae e603       |    |		Load	0x3,0x3
12af 01d7       |    |		Execute	Vector,Field_Read
12b0 0273       | s  |		Execute	Discrete,Plus
12b1 a60a       |    |		Store_Unchecked	0x3,0xa
12b2 e60a       |    |		Load	0x3,0xa
12b3 e602       |    |		Load	0x3,0x2
12b4 0270       | p  |		Execute	Discrete,Divide
12b5 00d9       |    |		Load_Top	At_Offset_1
12b6 e603       |    |		Load	0x3,0x3
12b7 01d6       |    |		Execute	Vector,Field_Write
12b8 e60a       |    |		Load	0x3,0xa
12b9 e602       |    |		Load	0x3,0x2
12ba 026f       | o  |		Execute	Discrete,Remainder
12bb a609       |    |		Store_Unchecked	0x3,0x9
12bc 00c8       |    |		Action	Pop_Auxiliary_Range
12bd 3fed       |?   |		Loop_Increasing	0x12ab
12be 00ce       |    |		Action	Pop_Auxiliary
12bf e402       |    |		Load	0x2,0x2
12c0 e603       |    |		Load	0x3,0x3
12c1 01dc       |    |		Execute	Vector,Last
12c2 e603       |    |		Load	0x3,0x3
12c3 01cf       |    |		Execute	Vector,Slice_Read
12c4 82a9       |    |		Call	0x1,0xa9
12c5 a402       |    |		Store_Unchecked	0x2,0x2
12c6 e406       |    |		Load	0x2,0x6
12c7 6807       |h   |		Jump_Zero	0x12cf
12c8 e402       |    |		Load	0x2,0x2
12c9 e603       |    |		Load	0x3,0x3
12ca 01d7       |    |		Execute	Vector,Field_Read
12cb 0275       | u  |		Execute	Discrete,Unary_Minus
12cc e402       |    |		Load	0x2,0x2
12cd e603       |    |		Load	0x3,0x3
12ce 01d6       |    |		Execute	Vector,Field_Write
12cf e5fc       |    |		Load	0x2,-0x4
12d0 4802       |H   |		Short_Literal	0x2
12d1 e603       |    |		Load	0x3,0x3
12d2 01dc       |    |		Execute	Vector,Last
12d3 e603       |    |		Load	0x3,0x3
12d4 01cf       |    |		Execute	Vector,Slice_Read
12d5 82a1       |    |		Call	0x1,0xa1
12d6 00d1       |    |		Pop_Control	Pop_Count_1
12d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12d8 ; --------------------------------------------------------------------------------------
12d8 ; SUBPROGRAM
12d8 ; --------------------------------------------------------------------------------------
12d8 12f7       |    |		.CONST	0x12f7								; Address of begin
12d9 0004       |    |		.CONST	0x0004								; Address of exception handler
12da 0004       |    |		.CONST	0x0004								; Number of locals
12db			INIT_12d8:
12db 4801       |H   |		Short_Literal	0x1
12dc e404       |    |		Load	0x2,0x4
12dd e405       |    |		Load	0x2,0x5
12de 0273       | s  |		Execute	Discrete,Plus
12df 00d8       |    |		Load_Top	At_Offset_0
12e0 00e2       |    |		Load_Encached	Integer_Cache
12e1 0260       | `  |		Execute	Discrete,In_Type
12e2 7001       |p   |		Jump_Nonzero	0x12e4
12e3 0801       |    |		Execute_Immediate	Raise,0x1
12e4 e220       |    |		Load	0x1,0x20
12e5 035b       | [  |		Declare_Type	Array,Constrained
12e6 0337       | 7  |		Declare_Variable	Array
12e7 00d8       |    |		Load_Top	At_Offset_0
12e8 0335       | 5  |		Declare_Variable	Array,Duplicate
12e9 00cd       |    |		Action	Spare6_Action
12ea 00d9       |    |		Load_Top	At_Offset_1
12eb 01d9       |    |		Execute	Vector,Reverse_Bounds
12ec 0263       | c  |		Execute	Discrete,Above_Bound
12ed 7005       |p   |		Jump_Nonzero	0x12f3
12ee 4800       |H   |		Short_Literal	0x0
12ef 00d9       |    |		Load_Top	At_Offset_1
12f0 e603       |    |		Load	0x3,0x3
12f1 01d6       |    |		Execute	Vector,Field_Write
12f2 3ffb       |?   |		Loop_Increasing	0x12ee
12f3 00d9       |    |		Load_Top	At_Offset_1
12f4 01d4       |    |		Execute	Vector,Structure_Write
12f5 00e5       |    |		Load_Encached	Long_Integer_Cache
12f6 03e9       |    |		Declare_Variable	Discrete,Duplicate
12f7			BODY_12d8:
12f7 00cf       |    |		Action	Mark_Auxiliary
12f8 4801       |H   |		Short_Literal	0x1
12f9 e405       |    |		Load	0x2,0x5
12fa 0264       | d  |		Execute	Discrete,Below_Bound
12fb 7032       |p2  |		Jump_Nonzero	0x132e
12fc 4800       |H   |		Short_Literal	0x0
12fd a603       |    |		Store_Unchecked	0x3,0x3
12fe 00cf       |    |		Action	Mark_Auxiliary
12ff 4801       |H   |		Short_Literal	0x1
1300 e404       |    |		Load	0x2,0x4
1301 0264       | d  |		Execute	Discrete,Below_Bound
1302 7024       |p$  |		Jump_Nonzero	0x1327
1303 e402       |    |		Load	0x2,0x2
1304 00d9       |    |		Load_Top	At_Offset_1
1305 0273       | s  |		Execute	Discrete,Plus
1306 0aff       |    |		Execute_Immediate	Plus,-0x1
1307 e5ff       |    |		Load	0x2,-0x1
1308 01d7       |    |		Execute	Vector,Field_Read
1309 e403       |    |		Load	0x2,0x3
130a e607       |    |		Load	0x3,0x7
130b 0273       | s  |		Execute	Discrete,Plus
130c 0aff       |    |		Execute_Immediate	Plus,-0x1
130d e5fe       |    |		Load	0x2,-0x2
130e 01d7       |    |		Execute	Vector,Field_Read
130f 0271       | q  |		Execute	Discrete,Times
1310 0274       | t  |		Execute	Discrete,Absolute_Value
1311 00d9       |    |		Load_Top	At_Offset_1
1312 e607       |    |		Load	0x3,0x7
1313 0273       | s  |		Execute	Discrete,Plus
1314 e602       |    |		Load	0x3,0x2
1315 01d7       |    |		Execute	Vector,Field_Read
1316 0273       | s  |		Execute	Discrete,Plus
1317 e603       |    |		Load	0x3,0x3
1318 0273       | s  |		Execute	Discrete,Plus
1319 a604       |    |		Store_Unchecked	0x3,0x4
131a e604       |    |		Load	0x3,0x4
131b 602c       |`,  |		Indirect_Literal	Discrete,0x1348,{0x00000000, 0x80000000}
131c 026f       | o  |		Execute	Discrete,Remainder
131d 00d9       |    |		Load_Top	At_Offset_1
131e e607       |    |		Load	0x3,0x7
131f 0273       | s  |		Execute	Discrete,Plus
1320 e602       |    |		Load	0x3,0x2
1321 01d6       |    |		Execute	Vector,Field_Write
1322 e604       |    |		Load	0x3,0x4
1323 09e1       |    |		Execute_Immediate	Binary_Scale,-0x1f
1324 a603       |    |		Store_Unchecked	0x3,0x3
1325 00c8       |    |		Action	Pop_Auxiliary_Range
1326 37dc       |7   |		Loop_Decreasing	0x1303
1327 00ce       |    |		Action	Pop_Auxiliary
1328 e603       |    |		Load	0x3,0x3
1329 00d9       |    |		Load_Top	At_Offset_1
132a e602       |    |		Load	0x3,0x2
132b 01d6       |    |		Execute	Vector,Field_Write
132c 00c8       |    |		Action	Pop_Auxiliary_Range
132d 37ce       |7   |		Loop_Decreasing	0x12fc
132e 00ce       |    |		Action	Pop_Auxiliary
132f e402       |    |		Load	0x2,0x2
1330 e5ff       |    |		Load	0x2,-0x1
1331 01d7       |    |		Execute	Vector,Field_Read
1332 0d00       |    |		Execute_Immediate	Less,0x0
1333 e403       |    |		Load	0x2,0x3
1334 e5fe       |    |		Load	0x2,-0x2
1335 01d7       |    |		Execute	Vector,Field_Read
1336 0d00       |    |		Execute_Immediate	Less,0x0
1337 0277       | w  |		Execute	Discrete,Xor
1338 680a       |h   |		Jump_Zero	0x1343
1339 00da       |    |		Load_Top	At_Offset_2
133a 82a9       |    |		Call	0x1,0xa9
133b a402       |    |		Store_Unchecked	0x2,0x2
133c e402       |    |		Load	0x2,0x2
133d 00db       |    |		Load_Top	At_Offset_3
133e 01d7       |    |		Execute	Vector,Field_Read
133f 0275       | u  |		Execute	Discrete,Unary_Minus
1340 e402       |    |		Load	0x2,0x2
1341 e602       |    |		Load	0x3,0x2
1342 01d6       |    |		Execute	Vector,Field_Write
1343 e5fd       |    |		Load	0x2,-0x3
1344 00db       |    |		Load_Top	At_Offset_3
1345 82a1       |    |		Call	0x1,0xa1
1346 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1347 0000       |    |		.XXX[0x1]
1348 0000 0000  |    |		.LITERAL	{0x00000000, 0x80000000}
134c 0000 0000  |    |		.BLANK	0000[0x4]
1350 ; --------------------------------------------------------------------------------------
1350 ; SUBPROGRAM
1350 ; --------------------------------------------------------------------------------------
1350 1366       | f  |		.CONST	0x1366								; Address of begin
1351 0004       |    |		.CONST	0x0004								; Address of exception handler
1352 0005       |    |		.CONST	0x0005								; Number of locals
1353			INIT_1350:
1353 e403       |    |		Load	0x2,0x3
1354 e5fe       |    |		Load	0x2,-0x2
1355 82af       |    |		Call	0x1,0xaf
1356 0271       | q  |		Execute	Discrete,Times
1357 00e2       |    |		Load_Encached	Integer_Cache
1358 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
1359 4801       |H   |		Short_Literal	0x1
135a 00d9       |    |		Load_Top	At_Offset_1
135b e220       |    |		Load	0x1,0x20
135c 035b       | [  |		Declare_Type	Array,Constrained
135d 0337       | 7  |		Declare_Variable	Array
135e 4801       |H   |		Short_Literal	0x1
135f 00da       |    |		Load_Top	At_Offset_2
1360 e220       |    |		Load	0x1,0x20
1361 035b       | [  |		Declare_Type	Array,Constrained
1362 0337       | 7  |		Declare_Variable	Array
1363 e5fe       |    |		Load	0x2,-0x2
1364 00e2       |    |		Load_Encached	Integer_Cache
1365 03f1       |    |		Declare_Variable	Discrete,With_Value
1366			BODY_1350:
1366 00d9       |    |		Load_Top	At_Offset_1
1367 e402       |    |		Load	0x2,0x2
1368 e5ff       |    |		Load	0x2,-0x1
1369 01dc       |    |		Execute	Vector,Last
136a e5ff       |    |		Load	0x2,-0x1
136b 01cf       |    |		Execute	Vector,Slice_Read
136c 8227       | '  |		Call	0x1,0x27
136d 82a1       |    |		Call	0x1,0xa1
136e 00d1       |    |		Pop_Control	Pop_Count_1
136f 00da       |    |		Load_Top	At_Offset_2
1370 4801       |H   |		Short_Literal	0x1
1371 82a2       |    |		Call	0x1,0xa2
1372 00d1       |    |		Pop_Control	Pop_Count_1
1373 00cf       |    |		Action	Mark_Auxiliary
1374 00d9       |    |		Load_Top	At_Offset_1
1375 4802       |H   |		Short_Literal	0x2
1376 026f       | o  |		Execute	Discrete,Remainder
1377 0f01       |    |		Execute_Immediate	Equal,0x1
1378 6805       |h   |		Jump_Zero	0x137e
1379 00db       |    |		Load_Top	At_Offset_3
137a 00db       |    |		Load_Top	At_Offset_3
137b e603       |    |		Load	0x3,0x3
137c 82ae       |    |		Call	0x1,0xae
137d 00d1       |    |		Pop_Control	Pop_Count_1
137e 00d9       |    |		Load_Top	At_Offset_1
137f 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
1380 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
1381 00d9       |    |		Load_Top	At_Offset_1
1382 6807       |h   |		Jump_Zero	0x138a
1383 00da       |    |		Load_Top	At_Offset_2
1384 00db       |    |		Load_Top	At_Offset_3
1385 e604       |    |		Load	0x3,0x4
1386 82ae       |    |		Call	0x1,0xae
1387 00d1       |    |		Pop_Control	Pop_Count_1
1388 00c9       |    |		Action	Pop_Auxiliary_Loop
1389 7fea       |    |		Jump	0x1374
138a 00ce       |    |		Action	Pop_Auxiliary
138b e402       |    |		Load	0x2,0x2
138c e5ff       |    |		Load	0x2,-0x1
138d 01d7       |    |		Execute	Vector,Field_Read
138e 0d00       |    |		Execute_Immediate	Less,0x0
138f 680f       |h   |		Jump_Zero	0x139f
1390 e5fe       |    |		Load	0x2,-0x2
1391 4802       |H   |		Short_Literal	0x2
1392 026f       | o  |		Execute	Discrete,Remainder
1393 0f01       |    |		Execute_Immediate	Equal,0x1
1394 680a       |h   |		Jump_Zero	0x139f
1395 00da       |    |		Load_Top	At_Offset_2
1396 82a9       |    |		Call	0x1,0xa9
1397 a402       |    |		Store_Unchecked	0x2,0x2
1398 e402       |    |		Load	0x2,0x2
1399 00db       |    |		Load_Top	At_Offset_3
139a 01d7       |    |		Execute	Vector,Field_Read
139b 0275       | u  |		Execute	Discrete,Unary_Minus
139c e402       |    |		Load	0x2,0x2
139d e603       |    |		Load	0x3,0x3
139e 01d6       |    |		Execute	Vector,Field_Write
139f e5fd       |    |		Load	0x2,-0x3
13a0 00db       |    |		Load_Top	At_Offset_3
13a1 82a1       |    |		Call	0x1,0xa1
13a2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
13a3 0000 0000  |    |		.BLANK	0000[0x5]
13a8 ; --------------------------------------------------------------------------------------
13a8 ; SUBPROGRAM
13a8 ; SUBPROGRAM
13a8 ; --------------------------------------------------------------------------------------
13a8 13ab       |    |		.CONST	0x13ab								; Address of begin
13a9 0004       |    |		.CONST	0x0004								; Address of exception handler
13aa 0001       |    |		.CONST	0x0001								; Number of locals
13ab			BODY_13a8:
13ab			BODY_13a8:
13ab			INIT_13a8:
13ab			INIT_13a8:
13ab 4608       |F   |		Jump_Case	0x9
13ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
13ad 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
13ae 7824       |x$  |		Jump	0x13d3								; case 0x2
13af 7823       |x#  |		Jump	0x13d3								; case 0x3
13b0 7822       |x"  |		Jump	0x13d3								; case 0x4
13b1 7821       |x!  |		Jump	0x13d3								; case 0x5
13b2 7820       |x   |		Jump	0x13d3								; case 0x6
13b3 7801       |x   |		Jump	0x13b5								; case 0x7
13b4 780e       |x   |		Jump	0x13c3								; case 0x8
13b5 e5fd       |    |		Load	0x2,-0x3
13b6 e5fe       |    |		Load	0x2,-0x2
13b7 4801       |H   |		Short_Literal	0x1
13b8 e5fd       |    |		Load	0x2,-0x3
13b9 e220       |    |		Load	0x1,0x20
13ba 035b       | [  |		Declare_Type	Array,Constrained
13bb 4801       |H   |		Short_Literal	0x1
13bc e5fe       |    |		Load	0x2,-0x2
13bd e220       |    |		Load	0x1,0x20
13be 035b       | [  |		Declare_Type	Array,Constrained
13bf 4802       |H   |		Short_Literal	0x2
13c0 e5ff       |    |		Load	0x2,-0x1
13c1 031b       |    |		Declare_Type	Variant_Record,Constrained
13c2 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
13c3 e5fd       |    |		Load	0x2,-0x3
13c4 e5fe       |    |		Load	0x2,-0x2
13c5 e5ff       |    |		Load	0x2,-0x1
13c6 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
13c7 4801       |H   |		Short_Literal	0x1
13c8 e5fd       |    |		Load	0x2,-0x3
13c9 e220       |    |		Load	0x1,0x20
13ca 0334       | 4  |		Declare_Variable	Array,With_Constraint
13cb 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
13cc 4801       |H   |		Short_Literal	0x1
13cd e5fe       |    |		Load	0x2,-0x2
13ce e220       |    |		Load	0x1,0x20
13cf 0334       | 4  |		Declare_Variable	Array,With_Constraint
13d0 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
13d1 016a       | j  |		QQ_execute	Variant_Record,XXX
13d2 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
13d3 0869       | i  |		Execute_Immediate	Raise,0x69
13d4 0000 0000  |    |		.BLANK	0000[0x4]
13d8 ; --------------------------------------------------------------------------------------
13d8 ; SUBPROGRAM
13d8 ; --------------------------------------------------------------------------------------
13d8 13db       |    |		.CONST	0x13db								; Address of begin
13d9 0004       |    |		.CONST	0x0004								; Address of exception handler
13da 0001       |    |		.CONST	0x0001								; Number of locals
13db			BODY_13d8:
13db			INIT_13d8:
13db 4608       |F   |		Jump_Case	0x9
13dc 7808       |x   |		Jump	0x13e5								; case 0x0
13dd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
13de 7831       |x1  |		Jump	0x1410								; case 0x2
13df 7830       |x0  |		Jump	0x1410								; case 0x3
13e0 782f       |x/  |		Jump	0x1410								; case 0x4
13e1 782e       |x.  |		Jump	0x1410								; case 0x5
13e2 782d       |x-  |		Jump	0x1410								; case 0x6
13e3 780e       |x   |		Jump	0x13f2								; case 0x7
13e4 781b       |x   |		Jump	0x1400								; case 0x8
13e5 00da       |    |		Load_Top	At_Offset_2
13e6 016c       | l  |		Execute	Variant_Record,Is_Constrained
13e7 7009       |p   |		Jump_Nonzero	0x13f1
13e8 00cf       |    |		Action	Mark_Auxiliary
13e9 4801       |H   |		Short_Literal	0x1
13ea 4801       |H   |		Short_Literal	0x1
13eb e5ff       |    |		Load	0x2,-0x1
13ec 1c08       |    |		Execute_Immediate	Run_Utility,0x8
13ed 00d8       |    |		Load_Top	At_Offset_0
13ee 1c00       |    |		Execute_Immediate	Run_Utility,0x0
13ef c5ff       |    |		Store	0x2,-0x1
13f0 00ce       |    |		Action	Pop_Auxiliary
13f1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
13f2 e5fd       |    |		Load	0x2,-0x3
13f3 e5fe       |    |		Load	0x2,-0x2
13f4 4801       |H   |		Short_Literal	0x1
13f5 e5fd       |    |		Load	0x2,-0x3
13f6 e220       |    |		Load	0x1,0x20
13f7 035b       | [  |		Declare_Type	Array,Constrained
13f8 4801       |H   |		Short_Literal	0x1
13f9 e5fe       |    |		Load	0x2,-0x2
13fa e220       |    |		Load	0x1,0x20
13fb 035b       | [  |		Declare_Type	Array,Constrained
13fc 4802       |H   |		Short_Literal	0x2
13fd e5ff       |    |		Load	0x2,-0x1
13fe 031b       |    |		Declare_Type	Variant_Record,Constrained
13ff 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1400 e5fd       |    |		Load	0x2,-0x3
1401 e5fe       |    |		Load	0x2,-0x2
1402 e5ff       |    |		Load	0x2,-0x1
1403 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
1404 4801       |H   |		Short_Literal	0x1
1405 e5fd       |    |		Load	0x2,-0x3
1406 e220       |    |		Load	0x1,0x20
1407 0334       | 4  |		Declare_Variable	Array,With_Constraint
1408 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
1409 4801       |H   |		Short_Literal	0x1
140a e5fe       |    |		Load	0x2,-0x2
140b e220       |    |		Load	0x1,0x20
140c 0334       | 4  |		Declare_Variable	Array,With_Constraint
140d 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
140e 016a       | j  |		QQ_execute	Variant_Record,XXX
140f 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
1410 0869       | i  |		Execute_Immediate	Raise,0x69
1411 0000 0000  |    |		.BLANK	0000[0x7]
1418 ; --------------------------------------------------------------------------------------
1418 ; SUBPROGRAM
1418 ; --------------------------------------------------------------------------------------
1418 141b       |    |		.CONST	0x141b								; Address of begin
1419 0004       |    |		.CONST	0x0004								; Address of exception handler
141a 0001       |    |		.CONST	0x0001								; Number of locals
141b			BODY_1418:
141b			INIT_1418:
141b 4608       |F   |		Jump_Case	0x9
141c 7808       |x   |		Jump	0x1425								; case 0x0
141d 781b       |x   |		Jump	0x1439								; case 0x1
141e 783d       |x=  |		Jump	0x145c								; case 0x2
141f 783c       |x<  |		Jump	0x145c								; case 0x3
1420 783b       |x;  |		Jump	0x145c								; case 0x4
1421 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
1422 7839       |x9  |		Jump	0x145c								; case 0x6
1423 7818       |x   |		Jump	0x143c								; case 0x7
1424 7826       |x&  |		Jump	0x144b								; case 0x8
1425 00da       |    |		Load_Top	At_Offset_2
1426 016c       | l  |		Execute	Variant_Record,Is_Constrained
1427 700b       |p   |		Jump_Nonzero	0x1433
1428 00cf       |    |		Action	Mark_Auxiliary
1429 4801       |H   |		Short_Literal	0x1
142a 4801       |H   |		Short_Literal	0x1
142b 4801       |H   |		Short_Literal	0x1
142c e5ff       |    |		Load	0x2,-0x1
142d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
142e 00d8       |    |		Load_Top	At_Offset_0
142f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1430 c5ff       |    |		Store	0x2,-0x1
1431 00ce       |    |		Action	Pop_Auxiliary
1432 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
1433 00da       |    |		Load_Top	At_Offset_2
1434 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
1435 00da       |    |		Load_Top	At_Offset_2
1436 2507       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x7
1437 1c00       |    |		Execute_Immediate	Run_Utility,0x0
1438 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
1439 00da       |    |		Load_Top	At_Offset_2
143a 2207       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x7
143b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
143c e5fc       |    |		Load	0x2,-0x4
143d e5fd       |    |		Load	0x2,-0x3
143e e5fe       |    |		Load	0x2,-0x2
143f 4801       |H   |		Short_Literal	0x1
1440 e5fc       |    |		Load	0x2,-0x4
1441 e260       | `  |		Load	0x1,0x60
1442 035b       | [  |		Declare_Type	Array,Constrained
1443 e5fd       |    |		Load	0x2,-0x3
1444 e5fe       |    |		Load	0x2,-0x2
1445 e23f       | ?  |		Load	0x1,0x3f
1446 1c07       |    |		Execute_Immediate	Run_Utility,0x7
1447 4802       |H   |		Short_Literal	0x2
1448 e5ff       |    |		Load	0x2,-0x1
1449 031b       |    |		Declare_Type	Variant_Record,Constrained
144a 4204       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x4
144b e5fc       |    |		Load	0x2,-0x4
144c e5fd       |    |		Load	0x2,-0x3
144d e5fe       |    |		Load	0x2,-0x2
144e e5ff       |    |		Load	0x2,-0x1
144f 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
1450 4801       |H   |		Short_Literal	0x1
1451 e5fc       |    |		Load	0x2,-0x4
1452 e260       | `  |		Load	0x1,0x60
1453 0334       | 4  |		Declare_Variable	Array,With_Constraint
1454 2d06       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6
1455 e5fd       |    |		Load	0x2,-0x3
1456 e5fe       |    |		Load	0x2,-0x2
1457 e23f       | ?  |		Load	0x1,0x3f
1458 1c08       |    |		Execute_Immediate	Run_Utility,0x8
1459 2d07       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7
145a 016a       | j  |		QQ_execute	Variant_Record,XXX
145b 4204       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x4
145c 0869       | i  |		Execute_Immediate	Raise,0x69
145d ; --------------------------------------------------------------------------------------
145d ; STRING TABLE
145d ; --------------------------------------------------------------------------------------
145d 0008       |    |		.STRTAB	0x0008->0x1461							; "QUOTIENT"
145e 000e       |    |		.STRTAB	0x000e->0x1465							; "REMAINDER"
145f 0015       |    |		.STRTAB	0x0015->0x1469							; "BOTH"
1460 0017       |    |		.STREND 0x0017->0x146b
1461 5155 4f54  |QUOT|		.STRTAB_STRINGS
146c 0000 0000  |    |		.BLANK	0000[0x4]
1470 ; --------------------------------------------------------------------------------------
1470 ; Debug Table
1470 ; --------------------------------------------------------------------------------------
1470 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x7a72,0x0000,0x0001,0x0000
1476 0000 0000  |    |		.BLANK	0000[0xa]
1480 3649 6885  |6Ih |		.XXX[0x1e]
1482 8008 3980  |  9 |
1484 0050 47b4  | PG |
1486 3a00 8008  |:   |
1488 0005 9800  |    |
148a 0004 12c6  |    |
148c 0000 1000  |    |
148e 0000 d801  |    |
1490 4000 0028  |@  (|
1492 8000 0010  |    |
1494 0000 0088  |    |
1496 0000 0000  |    |
1498 4000 0002  |@   |
149a 9000 0081  |    |
149c b7d0 4000  |  @ |
149e 0000 0000  |    |		.BLANK	0000[0x1b]
14b9 0dec 3090  |  0 |		.XXX[0x1e]
14bb b001 0740  |   @|
14bd 000a 08f6  |    |
14bf 8740 1001  | @  |
14c1 0000 b300  |    |
14c3 0000 825b  |   [|
14c5 0000 0200  |    |
14c7 0000 0300  |    |
14c9 2800 0000  |(   |
14cb 0800 0002  |    |
14cd 0000 0011  |    |
14cf 0000 0000  |    |
14d1 0800 0000  |    |
14d3 5200 0010  |R   |
14d5 36fb c000  |6   |
14d7 0000 0000  |    |		.BLANK	0000[0x1b]
14f2 01bd c610  |    |		.XXX[0x2]
14f4 0000 0000  |    |		.BLANK	0000[0xd]
1501 0020 0500  |    |		.XXX[0xc]
1503 0000 0000  |    |
1505 0000 4000  |  @ |
1507 0002 2000  |    |
1509 0000 0100  |    |
150b 0000 0a00  |    |
150d 0000 0000  |    |		.BLANK	0000[0x2d]
153a 0004 00a0  |    |		.XXX[0xc]
153c 0000 0000  |    |
153e 0000 0800  |    |
1540 0000 4400  |  D |
1542 0000 0020  |    |
1544 0000 0140  |   @|
1546 0000 0000  |    |		.BLANK	0000[0x2e]
1574 8014 0000  |    |		.XXX[0xb]
1576 0000 0000  |    |
1578 0100 0000  |    |
157a 0880 0000  |    |
157c 0004 0000  |    |
157e 0028       | (  |
157f 0000 0000  |    |		.BLANK	0000[0x2e]
15ad 1002 8000  |    |		.XXX[0xb]
15af 0000 0000  |    |
15b1 0020 0000  |    |
15b3 0110 0000  |    |
15b5 0000 8000  |    |
15b7 0005       |    |
15b8 0000 0000  |    |		.BLANK	0000[0x48]