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

⟦e090b5bff⟧

    Length: 8192 (0x2000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0cb8       |    |		.CONST	0x0cb8								; 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 0007       |    |		.CONST	0x0007								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0100       |    |		.CONST	0x0100								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0044       | D  |		.CONST	0x0044								; Number of locals
000b			INIT_0008:
000b 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 0093 0000  |    |		push_full_address	0x0
0010 62ef       |b   |		Indirect_Literal	Discrete,0x300,{0x80000000, 0x00010000}
0011 0273       | s  |		Execute	Discrete,Plus
0012 0007       |    |		Action	Break_Optional
0013 e002       |    |		Load	0x0,0x2
0014 0007       |    |		Action	Break_Optional
0015 4800       |H   |		Short_Literal	0x0
0016 4803       |H   |		Short_Literal	0x3
0017 4800       |H   |		Short_Literal	0x0
0018 4803       |H   |		Short_Literal	0x3
0019 00e6       |    |		Load_Encached	Float_Cache
001a 02a0       |    |		Declare_Subprogram	Null_Subprogram
001b 4802       |H   |		Short_Literal	0x2
001c 035d       | ]  |		Declare_Type	Array,Defined
001d e003       |    |		Load	0x0,0x3
001e 02a0       |    |		Declare_Subprogram	Null_Subprogram
001f 4818       |H   |		Short_Literal	0x18
0020 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0021 00e3       |    |		Load_Encached	Natural_Cache
0022 0266       | f  |		Execute	Discrete,Bounds
0023 00da       |    |		Load_Top	At_Offset_2
0024 02a0       |    |		Declare_Subprogram	Null_Subprogram
0025 4801       |H   |		Short_Literal	0x1
0026 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0027 4801       |H   |		Short_Literal	0x1
0028 4803       |H   |		Short_Literal	0x3
0029 00da       |    |		Load_Top	At_Offset_2
002a 0334       | 4  |		Declare_Variable	Array,With_Constraint
002b e004       |    |		Load	0x0,0x4
002c 00db       |    |		Load_Top	At_Offset_3
002d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
002e 4801       |H   |		Short_Literal	0x1
002f 00da       |    |		Load_Top	At_Offset_2
0030 01d6       |    |		Execute	Vector,Field_Write
0031 e005       |    |		Load	0x0,0x5
0032 00db       |    |		Load_Top	At_Offset_3
0033 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0034 4802       |H   |		Short_Literal	0x2
0035 00da       |    |		Load_Top	At_Offset_2
0036 01d6       |    |		Execute	Vector,Field_Write
0037 e006       |    |		Load	0x0,0x6
0038 00db       |    |		Load_Top	At_Offset_3
0039 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
003a 4803       |H   |		Short_Literal	0x3
003b 00da       |    |		Load_Top	At_Offset_2
003c 01d6       |    |		Execute	Vector,Field_Write
003d e007       |    |		Load	0x0,0x7
003e 02a0       |    |		Declare_Subprogram	Null_Subprogram
003f 4818       |H   |		Short_Literal	0x18
0040 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0041 e008       |    |		Load	0x0,0x8
0042 02a0       |    |		Declare_Subprogram	Null_Subprogram
0043 4818       |H   |		Short_Literal	0x18
0044 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0045 e009       |    |		Load	0x0,0x9
0046 02a0       |    |		Declare_Subprogram	Null_Subprogram
0047 4818       |H   |		Short_Literal	0x18
0048 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0049 e00a       |    |		Load	0x0,0xa
004a 02a0       |    |		Declare_Subprogram	Null_Subprogram
004b 4818       |H   |		Short_Literal	0x18
004c 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
004d e00b       |    |		Load	0x0,0xb
004e 00d8       |    |		Load_Top	At_Offset_0
004f e00c       |    |		Load	0x0,0xc
0050 e00d       |    |		Load	0x0,0xd
0051 e214       |    |		Load	0x1,0x14
0052 e215       |    |		Load	0x1,0x15
0053 02a0       |    |		Declare_Subprogram	Null_Subprogram
0054 4806       |H   |		Short_Literal	0x6
0055 032d       | -  |		Declare_Type	Record,Defined
0056 e00c       |    |		Load	0x0,0xc
0057 0266       | f  |		Execute	Discrete,Bounds
0058 00da       |    |		Load_Top	At_Offset_2
0059 02a0       |    |		Declare_Subprogram	Null_Subprogram
005a 4801       |H   |		Short_Literal	0x1
005b 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
005c e00c       |    |		Load	0x0,0xc
005d 00d8       |    |		Load_Top	At_Offset_0
005e e00c       |    |		Load	0x0,0xc
005f 00d8       |    |		Load_Top	At_Offset_0
0060 e216       |    |		Load	0x1,0x16
0061 4800       |H   |		Short_Literal	0x0
0062 4800       |H   |		Short_Literal	0x0
0063 e008       |    |		Load	0x0,0x8
0064 035b       | [  |		Declare_Type	Array,Constrained
0065 e00c       |    |		Load	0x0,0xc
0066 4800       |H   |		Short_Literal	0x0
0067 4801       |H   |		Short_Literal	0x1
0068 e219       |    |		Load	0x1,0x19
0069 035b       | [  |		Declare_Type	Array,Constrained
006a e00c       |    |		Load	0x0,0xc
006b 00d8       |    |		Load_Top	At_Offset_0
006c 02a0       |    |		Declare_Subprogram	Null_Subprogram
006d 480a       |H   |		Short_Literal	0xa
006e 032d       | -  |		Declare_Type	Record,Defined
006f 00d8       |    |		Load_Top	At_Offset_0
0070 0322       | "  |		Declare_Variable	Record
0071 e00c       |    |		Load	0x0,0xc
0072 0266       | f  |		Execute	Discrete,Bounds
0073 e00c       |    |		Load	0x0,0xc
0074 0266       | f  |		Execute	Discrete,Bounds
0075 e00e       |    |		Load	0x0,0xe
0076 02a0       |    |		Declare_Subprogram	Null_Subprogram
0077 4802       |H   |		Short_Literal	0x2
0078 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0079 4800       |H   |		Short_Literal	0x0
007a 4877       |Hw  |		Short_Literal	0x77
007b 4800       |H   |		Short_Literal	0x0
007c 4877       |Hw  |		Short_Literal	0x77
007d e21c       |    |		Load	0x1,0x1c
007e 035b       | [  |		Declare_Type	Array,Constrained
007f 0337       | 7  |		Declare_Variable	Array
0080 4800       |H   |		Short_Literal	0x0
0081 4877       |Hw  |		Short_Literal	0x77
0082 4800       |H   |		Short_Literal	0x0
0083 4877       |Hw  |		Short_Literal	0x77
0084 e21c       |    |		Load	0x1,0x1c
0085 035b       | [  |		Declare_Type	Array,Constrained
0086 0337       | 7  |		Declare_Variable	Array
0087 00d8       |    |		Load_Top	At_Offset_0
0088 0335       | 5  |		Declare_Variable	Array,Duplicate
0089 00cd       |    |		Action	Spare6_Action
008a 4877       |Hw  |		Short_Literal	0x77
008b 4800       |H   |		Short_Literal	0x0
008c 4877       |Hw  |		Short_Literal	0x77
008d 4800       |H   |		Short_Literal	0x0
008e 4800       |H   |		Short_Literal	0x0
008f 00d9       |    |		Load_Top	At_Offset_1
0090 e221       | !  |		Load	0x1,0x21
0091 e21f       |    |		Load	0x1,0x1f
0092 01a6       |    |		Execute	Matrix,Field_Write
0093 3ffa       |?   |		Loop_Increasing	0x8e
0094 3ff7       |?   |		Loop_Increasing	0x8c
0095 00d9       |    |		Load_Top	At_Offset_1
0096 01a4       |    |		Execute	Matrix,Structure_Write
0097 e00f       |    |		Load	0x0,0xf
0098 0322       | "  |		Declare_Variable	Record
0099 00d8       |    |		Load_Top	At_Offset_0
009a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009b e00f       |    |		Load	0x0,0xf
009c 0322       | "  |		Declare_Variable	Record
009d 00d8       |    |		Load_Top	At_Offset_0
009e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009f e010       |    |		Load	0x0,0x10
00a0 0007       |    |		Action	Break_Optional
00a1 e011       |    |		Load	0x0,0x11
00a2 0322       | "  |		Declare_Variable	Record
00a3 e012       |    |		Load	0x0,0x12
00a4 0007       |    |		Action	Break_Optional
00a5 e012       |    |		Load	0x0,0x12
00a6 0007       |    |		Action	Break_Optional
00a7 e013       |    |		Load	0x0,0x13
00a8 0322       | "  |		Declare_Variable	Record
00a9 e014       |    |		Load	0x0,0x14
00aa 0007       |    |		Action	Break_Optional
00ab 00e1       |    |		Load_Encached	Boolean_Cache
00ac 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00ad 00e1       |    |		Load_Encached	Boolean_Cache
00ae 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00af 00e1       |    |		Load_Encached	Boolean_Cache
00b0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00b1 00e7       |    |		Load_Encached	Duration_Cache
00b2 6249       |bI  |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x00028000}
00b3 00e7       |    |		Load_Encached	Duration_Cache
00b4 03f1       |    |		Declare_Variable	Discrete,With_Value
00b5 e00c       |    |		Load	0x0,0xc
00b6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00b7 e217       |    |		Load	0x1,0x17
00b8 0007       |    |		Action	Break_Optional
00b9 00e1       |    |		Load_Encached	Boolean_Cache
00ba 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00bb 00e1       |    |		Load_Encached	Boolean_Cache
00bc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00bd e210       |    |		Load	0x1,0x10
00be 0337       | 7  |		Declare_Variable	Array
00bf e015       |    |		Load	0x0,0x15
00c0 0337       | 7  |		Declare_Variable	Array
00c1 00e1       |    |		Load_Encached	Boolean_Cache
00c2 00e6       |    |		Load_Encached	Float_Cache
00c3 00e6       |    |		Load_Encached	Float_Cache
00c4 029b 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Unelaborated
00c6 029b 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Unelaborated
00c8 029b 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call,Unelaborated
00ca 029b 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Outer_Call,Unelaborated
00cc 029b 0613  |    |		Declare_Subprogram	INIT_0610,For_Outer_Call,Unelaborated
00ce 029b 065b  |   [|		Declare_Subprogram	INIT_0658,For_Outer_Call,Unelaborated
00d0 029b 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call,Unelaborated
00d2 029b 0693  |    |		Declare_Subprogram	INIT_0690,For_Outer_Call,Unelaborated
00d4 029b 074b  |   K|		Declare_Subprogram	INIT_0748,For_Outer_Call,Unelaborated
00d6 029b 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Outer_Call,Unelaborated
00d8 029b 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Outer_Call,Unelaborated
00da 029b 0813  |    |		Declare_Subprogram	INIT_0810,For_Outer_Call,Unelaborated
00dc 029b 082b  |   +|		Declare_Subprogram	INIT_0828,For_Outer_Call,Unelaborated
00de 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
00df 00c7       |    |		Action	Elaborate_Subprogram
00e0 029d 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call
00e2 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
00e3 00c7       |    |		Action	Elaborate_Subprogram
00e4 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
00e5 00c7       |    |		Action	Elaborate_Subprogram
00e6 029d 08c3  |    |		Declare_Subprogram	INIT_08c0,For_Outer_Call
00e8 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
00e9 00c7       |    |		Action	Elaborate_Subprogram
00ea 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
00eb 00c7       |    |		Action	Elaborate_Subprogram
00ec 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
00ed 00c7       |    |		Action	Elaborate_Subprogram
00ee 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
00ef 00c7       |    |		Action	Elaborate_Subprogram
00f0 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
00f1 00c7       |    |		Action	Elaborate_Subprogram
00f2 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
00f3 00c7       |    |		Action	Elaborate_Subprogram
00f4 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
00f5 00c7       |    |		Action	Elaborate_Subprogram
00f6 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
00f7 00c7       |    |		Action	Elaborate_Subprogram
00f8 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
00f9 00c7       |    |		Action	Elaborate_Subprogram
00fa 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
00fb 00c7       |    |		Action	Elaborate_Subprogram
00fc 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
00fd 00c7       |    |		Action	Elaborate_Subprogram
00fe 029f 08eb  |    |		Declare_Subprogram	INIT_08e8,For_Call
0100			BODY_0008:
0100 8244       | D  |		Call	0x1,0x44
0101 00bc       |    |		Action	Signal_Activated
0102 00bb       |    |		Action	Signal_Completion
0103 0000 0000  |    |		.BLANK	0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0145       | E  |		.CONST	0x0145								; Address of begin
0109 02f1       |    |		.CONST	0x02f1								; Address of exception handler
010a 0019       |    |		.CONST	0x0019								; Number of locals
010b			INIT_0108:
010b e00d       |    |		Load	0x0,0xd
010c 0007       |    |		Action	Break_Optional
010d e00d       |    |		Load	0x0,0xd
010e 0007       |    |		Action	Break_Optional
010f e00b       |    |		Load	0x0,0xb
0110 0007       |    |		Action	Break_Optional
0111 e00b       |    |		Load	0x0,0xb
0112 0007       |    |		Action	Break_Optional
0113 e012       |    |		Load	0x0,0x12
0114 0007       |    |		Action	Break_Optional
0115 e012       |    |		Load	0x0,0x12
0116 0007       |    |		Action	Break_Optional
0117 e016       |    |		Load	0x0,0x16
0118 0322       | "  |		Declare_Variable	Record
0119 00d8       |    |		Load_Top	At_Offset_0
011a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011b e017       |    |		Load	0x0,0x17
011c 0322       | "  |		Declare_Variable	Record
011d 00d8       |    |		Load_Top	At_Offset_0
011e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011f e211       |    |		Load	0x1,0x11
0120 0007       |    |		Action	Break_Optional
0121 e00b       |    |		Load	0x0,0xb
0122 0007       |    |		Action	Break_Optional
0123 e00b       |    |		Load	0x0,0xb
0124 0007       |    |		Action	Break_Optional
0125 e00b       |    |		Load	0x0,0xb
0126 0007       |    |		Action	Break_Optional
0127 e00b       |    |		Load	0x0,0xb
0128 0007       |    |		Action	Break_Optional
0129 e012       |    |		Load	0x0,0x12
012a 0007       |    |		Action	Break_Optional
012b e012       |    |		Load	0x0,0x12
012c 0007       |    |		Action	Break_Optional
012d e018       |    |		Load	0x0,0x18
012e 02ff       |    |		Declare_Variable	Variant_Record
012f 00d8       |    |		Load_Top	At_Offset_0
0130 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0131 e019       |    |		Load	0x0,0x19
0132 0322       | "  |		Declare_Variable	Record
0133 00d8       |    |		Load_Top	At_Offset_0
0134 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0135 e01a       |    |		Load	0x0,0x1a
0136 0322       | "  |		Declare_Variable	Record
0137 00d8       |    |		Load_Top	At_Offset_0
0138 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0139 e01b       |    |		Load	0x0,0x1b
013a 0007       |    |		Action	Break_Optional
013b e5ff       |    |		Load	0x2,-0x1
013c 801c       |    |		Call	0x0,0x1c
013d 029f 092b  |   +|		Declare_Subprogram	INIT_0928,For_Call
013f 029f 0983  |    |		Declare_Subprogram	INIT_0980,For_Call
0141 029f 09c3  |    |		Declare_Subprogram	INIT_09c0,For_Call
0143 029f 09e3  |    |		Declare_Subprogram	INIT_09e0,For_Call
0145			BODY_0108:
0145 8416       |    |		Call	0x2,0x16
0146 e5f6       |    |		Load	0x2,-0xa
0147 a229       | )  |		Store_Unchecked	0x1,0x29
0148 e5fd       |    |		Load	0x2,-0x3
0149 a22f       | /  |		Store_Unchecked	0x1,0x2f
014a e5fc       |    |		Load	0x2,-0x4
014b a22e       | .  |		Store_Unchecked	0x1,0x2e
014c e5f7       |    |		Load	0x2,-0x9
014d a22a       | *  |		Store_Unchecked	0x1,0x2a
014e e5fe       |    |		Load	0x2,-0x2
014f 8237       | 7  |		Call	0x1,0x37
0150 a40a       |    |		Store_Unchecked	0x2,0xa
0151 e5f4       |    |		Load	0x2,-0xc
0152 6802       |h   |		Jump_Zero	0x155
0153 8239       | 9  |		Call	0x1,0x39
0154 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
0155 e22e       | .  |		Load	0x1,0x2e
0156 7005       |p   |		Jump_Nonzero	0x15c
0157 e22f       | /  |		Load	0x1,0x2f
0158 7003       |p   |		Jump_Nonzero	0x15c
0159 0092 0c41  |   A|		Action	Push_String_Extended,0xc41					; "nothing to draw"
015b 823a       | :  |		Call	0x1,0x3a
015c e413       |    |		Load	0x2,0x13
015d e010       |    |		Load	0x0,0x10
015e e415       |    |		Load	0x2,0x15
015f 801d       |    |		Call	0x0,0x1d
0160 c221       | !  |		Store	0x1,0x21
0161 00d1       |    |		Pop_Control	Pop_Count_1
0162 e221       | !  |		Load	0x1,0x21
0163 e010       |    |		Load	0x0,0x10
0164 022f       | /  |		Execute	Access,Equal
0165 6807       |h   |		Jump_Zero	0x16d
0166 0092 0c42  |   B|		Action	Push_String_Extended,0xc42					; "Cannot open display:"
0168 e413       |    |		Load	0x2,0x13
0169 801e       |    |		Call	0x0,0x1e
016a 801f       |    |		Call	0x0,0x1f
016b 01cc       |    |		Execute	Vector,Catenate
016c 823a       | :  |		Call	0x1,0x3a
016d e5fa       |    |		Load	0x2,-0x6
016e 680b       |h   |		Jump_Zero	0x17a
016f e221       | !  |		Load	0x1,0x21
0170 8020       |    |		Call	0x0,0x20
0171 e221       | !  |		Load	0x1,0x21
0172 8021       | !  |		Call	0x0,0x21
0173 a402       |    |		Store_Unchecked	0x2,0x2
0174 e221       | !  |		Load	0x1,0x21
0175 8020       |    |		Call	0x0,0x20
0176 e221       | !  |		Load	0x1,0x21
0177 8022       | "  |		Call	0x0,0x22
0178 a403       |    |		Store_Unchecked	0x2,0x3
0179 780a       |x   |		Jump	0x184
017a e221       | !  |		Load	0x1,0x21
017b 8020       |    |		Call	0x0,0x20
017c e221       | !  |		Load	0x1,0x21
017d 8022       | "  |		Call	0x0,0x22
017e a402       |    |		Store_Unchecked	0x2,0x2
017f e221       | !  |		Load	0x1,0x21
0180 8020       |    |		Call	0x0,0x20
0181 e221       | !  |		Load	0x1,0x21
0182 8021       | !  |		Call	0x0,0x21
0183 a403       |    |		Store_Unchecked	0x2,0x3
0184 e5f5       |    |		Load	0x2,-0xb
0185 6813       |h   |		Jump_Zero	0x199
0186 e221       | !  |		Load	0x1,0x21
0187 8023       | #  |		Call	0x0,0x23
0188 e222       | "  |		Load	0x1,0x22
0189 017d       | }  |		Execute	Record,Structure_Write
018a 4800       |H   |		Short_Literal	0x0
018b a404       |    |		Store_Unchecked	0x2,0x4
018c 4800       |H   |		Short_Literal	0x0
018d a405       |    |		Store_Unchecked	0x2,0x5
018e e221       | !  |		Load	0x1,0x21
018f 8020       |    |		Call	0x0,0x20
0190 e221       | !  |		Load	0x1,0x21
0191 8024       | $  |		Call	0x0,0x24
0192 a406       |    |		Store_Unchecked	0x2,0x6
0193 e221       | !  |		Load	0x1,0x21
0194 8020       |    |		Call	0x0,0x20
0195 e221       | !  |		Load	0x1,0x21
0196 8025       | %  |		Call	0x0,0x25
0197 a407       |    |		Store_Unchecked	0x2,0x7
0198 78aa       |x   |		Jump	0x243
0199 4abc       |J   |		Short_Literal	0x2bc
019a a406       |    |		Store_Unchecked	0x2,0x6
019b 49f4       |I   |		Short_Literal	0x1f4
019c a407       |    |		Store_Unchecked	0x2,0x7
019d e221       | !  |		Load	0x1,0x21
019e 8020       |    |		Call	0x0,0x20
019f e221       | !  |		Load	0x1,0x21
01a0 8024       | $  |		Call	0x0,0x24
01a1 e406       |    |		Load	0x2,0x6
01a2 0272       | r  |		Execute	Discrete,Minus
01a3 00d8       |    |		Load_Top	At_Offset_0
01a4 e00b       |    |		Load	0x0,0xb
01a5 0260       | `  |		Execute	Discrete,In_Type
01a6 7001       |p   |		Jump_Nonzero	0x1a8
01a7 0801       |    |		Execute_Immediate	Raise,0x1
01a8 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
01a9 c404       |    |		Store	0x2,0x4
01aa e221       | !  |		Load	0x1,0x21
01ab 8020       |    |		Call	0x0,0x20
01ac e221       | !  |		Load	0x1,0x21
01ad 8025       | %  |		Call	0x0,0x25
01ae e407       |    |		Load	0x2,0x7
01af 0272       | r  |		Execute	Discrete,Minus
01b0 00d8       |    |		Load_Top	At_Offset_0
01b1 e00b       |    |		Load	0x0,0xb
01b2 0260       | `  |		Execute	Discrete,In_Type
01b3 7001       |p   |		Jump_Nonzero	0x1b5
01b4 0801       |    |		Execute_Immediate	Raise,0x1
01b5 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
01b6 c405       |    |		Store	0x2,0x5
01b7 e5fb       |    |		Load	0x2,-0x5
01b8 4800       |H   |		Short_Literal	0x0
01b9 00e5       |    |		Load_Encached	Long_Integer_Cache
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb 0267       | g  |		Execute	Discrete,Predecessor
01bc e026       | &  |		Load	0x0,0x26
01bd 0334       | 4  |		Declare_Variable	Array,With_Constraint
01be 01de       |    |		Execute	Vector,Not_Equal
01bf 6801       |h   |		Jump_Zero	0x1c1
01c0 8417       |    |		Call	0x2,0x17
01c1 e027       | '  |		Load	0x0,0x27
01c2 0337       | 7  |		Declare_Variable	Array
01c3 4801       |H   |		Short_Literal	0x1
01c4 481d       |H   |		Short_Literal	0x1d
01c5 00da       |    |		Load_Top	At_Offset_2
01c6 01d6       |    |		Execute	Vector,Field_Write
01c7 481c       |H   |		Short_Literal	0x1c
01c8 4800       |H   |		Short_Literal	0x0
01c9 4800       |H   |		Short_Literal	0x0
01ca 00d9       |    |		Load_Top	At_Offset_1
01cb e41a       |    |		Load	0x2,0x1a
01cc 01d6       |    |		Execute	Vector,Field_Write
01cd 3ffb       |?   |		Loop_Increasing	0x1c9
01ce 4800       |H   |		Short_Literal	0x0
01cf 481e       |H   |		Short_Literal	0x1e
01d0 00da       |    |		Load_Top	At_Offset_2
01d1 01d6       |    |		Execute	Vector,Field_Write
01d2 4800       |H   |		Short_Literal	0x0
01d3 481f       |H   |		Short_Literal	0x1f
01d4 00da       |    |		Load_Top	At_Offset_2
01d5 01d6       |    |		Execute	Vector,Field_Write
01d6 e027       | '  |		Load	0x0,0x27
01d7 01c3       |    |		Execute	Vector,Check_In_Type
01d8 e408       |    |		Load	0x2,0x8
01d9 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
01da e403       |    |		Load	0x2,0x3
01db e408       |    |		Load	0x2,0x8
01dc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01dd e402       |    |		Load	0x2,0x2
01de e408       |    |		Load	0x2,0x8
01df 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01e0 e408       |    |		Load	0x2,0x8
01e1 e028       | (  |		Load	0x0,0x28
01e2 0337       | 7  |		Declare_Variable	Array
01e3 4801       |H   |		Short_Literal	0x1
01e4 4814       |H   |		Short_Literal	0x14
01e5 00da       |    |		Load_Top	At_Offset_2
01e6 01d6       |    |		Execute	Vector,Field_Write
01e7 4801       |H   |		Short_Literal	0x1
01e8 481e       |H   |		Short_Literal	0x1e
01e9 00da       |    |		Load_Top	At_Offset_2
01ea 01d6       |    |		Execute	Vector,Field_Write
01eb 4801       |H   |		Short_Literal	0x1
01ec 481c       |H   |		Short_Literal	0x1c
01ed 00da       |    |		Load_Top	At_Offset_2
01ee 01d6       |    |		Execute	Vector,Field_Write
01ef 4813       |H   |		Short_Literal	0x13
01f0 4800       |H   |		Short_Literal	0x0
01f1 4800       |H   |		Short_Literal	0x0
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 e41b       |    |		Load	0x2,0x1b
01f4 01d6       |    |		Execute	Vector,Field_Write
01f5 3ffb       |?   |		Loop_Increasing	0x1f1
01f6 481b       |H   |		Short_Literal	0x1b
01f7 4815       |H   |		Short_Literal	0x15
01f8 4800       |H   |		Short_Literal	0x0
01f9 00d9       |    |		Load_Top	At_Offset_1
01fa e41b       |    |		Load	0x2,0x1b
01fb 01d6       |    |		Execute	Vector,Field_Write
01fc 3ffb       |?   |		Loop_Increasing	0x1f8
01fd 4800       |H   |		Short_Literal	0x0
01fe 481d       |H   |		Short_Literal	0x1d
01ff 00da       |    |		Load_Top	At_Offset_2
0200 01d6       |    |		Execute	Vector,Field_Write
0201 4800       |H   |		Short_Literal	0x0
0202 481f       |H   |		Short_Literal	0x1f
0203 00da       |    |		Load_Top	At_Offset_2
0204 01d6       |    |		Execute	Vector,Field_Write
0205 e028       | (  |		Load	0x0,0x28
0206 01c3       |    |		Execute	Vector,Check_In_Type
0207 e221       | !  |		Load	0x1,0x21
0208 8020       |    |		Call	0x0,0x20
0209 e221       | !  |		Load	0x1,0x21
020a 8029       | )  |		Call	0x0,0x29
020b 4801       |H   |		Short_Literal	0x1
020c e221       | !  |		Load	0x1,0x21
020d 8020       |    |		Call	0x0,0x20
020e e221       | !  |		Load	0x1,0x21
020f 802a       | *  |		Call	0x0,0x2a
0210 4800       |H   |		Short_Literal	0x0
0211 e407       |    |		Load	0x2,0x7
0212 00d8       |    |		Load_Top	At_Offset_0
0213 e02b       | +  |		Load	0x0,0x2b
0214 0260       | `  |		Execute	Discrete,In_Type
0215 7001       |p   |		Jump_Nonzero	0x217
0216 0801       |    |		Execute_Immediate	Raise,0x1
0217 e406       |    |		Load	0x2,0x6
0218 00d8       |    |		Load_Top	At_Offset_0
0219 e02b       | +  |		Load	0x0,0x2b
021a 0260       | `  |		Execute	Discrete,In_Type
021b 7001       |p   |		Jump_Nonzero	0x21d
021c 0801       |    |		Execute_Immediate	Raise,0x1
021d e405       |    |		Load	0x2,0x5
021e e404       |    |		Load	0x2,0x4
021f e221       | !  |		Load	0x1,0x21
0220 8023       | #  |		Call	0x0,0x23
0221 e221       | !  |		Load	0x1,0x21
0222 802c       | ,  |		Call	0x0,0x2c
0223 e222       | "  |		Load	0x1,0x22
0224 017d       | }  |		Execute	Record,Structure_Write
0225 e02d       | -  |		Load	0x0,0x2d
0226 4800       |H   |		Short_Literal	0x0
0227 4802       |H   |		Short_Literal	0x2
0228 e026       | &  |		Load	0x0,0x26
0229 0334       | 4  |		Declare_Variable	Array,With_Constraint
022a 50d9       |P   |		Indirect_Literal	Any,0x304,{0x49636f00, 0x00000000}
022b e222       | "  |		Load	0x1,0x22
022c e221       | !  |		Load	0x1,0x21
022d 802e       | .  |		Call	0x0,0x2e
022e e222       | "  |		Load	0x1,0x22
022f e221       | !  |		Load	0x1,0x21
0230 802f       | /  |		Call	0x0,0x2f
0231 e01b       |    |		Load	0x0,0x1b
0232 e409       |    |		Load	0x2,0x9
0233 e222       | "  |		Load	0x1,0x22
0234 e221       | !  |		Load	0x1,0x21
0235 8030       | 0  |		Call	0x0,0x30
0236 00d1       |    |		Pop_Control	Pop_Count_1
0237 c414       |    |		Store	0x2,0x14
0238 e414       |    |		Load	0x2,0x14
0239 7003       |p   |		Jump_Nonzero	0x23d
023a 0092 0c43  |   C|		Action	Push_String_Extended,0xc43					; "cant get window attributes (size)"
023c 823a       | :  |		Call	0x1,0x3a
023d e409       |    |		Load	0x2,0x9
023e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
023f a223       | #  |		Store_Unchecked	0x1,0x23
0240 e409       |    |		Load	0x2,0x9
0241 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0242 a224       | $  |		Store_Unchecked	0x1,0x24
0243 e031       | 1  |		Load	0x0,0x31
0244 e032       | 2  |		Load	0x0,0x32
0245 e222       | "  |		Load	0x1,0x22
0246 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0247 e221       | !  |		Load	0x1,0x21
0248 8033       | 3  |		Call	0x0,0x33
0249 a226       | &  |		Store_Unchecked	0x1,0x26
024a e402       |    |		Load	0x2,0x2
024b e226       | &  |		Load	0x1,0x26
024c e221       | !  |		Load	0x1,0x21
024d 8034       | 4  |		Call	0x0,0x34
024e e403       |    |		Load	0x2,0x3
024f e226       | &  |		Load	0x1,0x26
0250 e221       | !  |		Load	0x1,0x21
0251 8035       | 5  |		Call	0x0,0x35
0252 e5f8       |    |		Load	0x2,-0x8
0253 6830       |h0  |		Jump_Zero	0x284
0254 4802       |H   |		Short_Literal	0x2
0255 e412       |    |		Load	0x2,0x12
0256 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0257 e5f8       |    |		Load	0x2,-0x8
0258 00d8       |    |		Load_Top	At_Offset_0
0259 e036       | 6  |		Load	0x0,0x36
025a 0260       | `  |		Execute	Discrete,In_Type
025b 7001       |p   |		Jump_Nonzero	0x25d
025c 0801       |    |		Execute_Immediate	Raise,0x1
025d e412       |    |		Load	0x2,0x12
025e 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
025f e412       |    |		Load	0x2,0x12
0260 e037       | 7  |		Load	0x0,0x37
0261 0337       | 7  |		Declare_Variable	Array
0262 4801       |H   |		Short_Literal	0x1
0263 481a       |H   |		Short_Literal	0x1a
0264 00da       |    |		Load_Top	At_Offset_2
0265 01d6       |    |		Execute	Vector,Field_Write
0266 4801       |H   |		Short_Literal	0x1
0267 480a       |H   |		Short_Literal	0xa
0268 00da       |    |		Load_Top	At_Offset_2
0269 01d6       |    |		Execute	Vector,Field_Write
026a 4809       |H   |		Short_Literal	0x9
026b 4800       |H   |		Short_Literal	0x0
026c 4800       |H   |		Short_Literal	0x0
026d 00d9       |    |		Load_Top	At_Offset_1
026e e41b       |    |		Load	0x2,0x1b
026f 01d6       |    |		Execute	Vector,Field_Write
0270 3ffb       |?   |		Loop_Increasing	0x26c
0271 4819       |H   |		Short_Literal	0x19
0272 480b       |H   |		Short_Literal	0xb
0273 4800       |H   |		Short_Literal	0x0
0274 00d9       |    |		Load_Top	At_Offset_1
0275 e41b       |    |		Load	0x2,0x1b
0276 01d6       |    |		Execute	Vector,Field_Write
0277 3ffb       |?   |		Loop_Increasing	0x273
0278 481f       |H   |		Short_Literal	0x1f
0279 481b       |H   |		Short_Literal	0x1b
027a 4800       |H   |		Short_Literal	0x0
027b 00d9       |    |		Load_Top	At_Offset_1
027c e41b       |    |		Load	0x2,0x1b
027d 01d6       |    |		Execute	Vector,Field_Write
027e 3ffb       |?   |		Loop_Increasing	0x27a
027f e037       | 7  |		Load	0x0,0x37
0280 01c3       |    |		Execute	Vector,Check_In_Type
0281 e226       | &  |		Load	0x1,0x26
0282 e221       | !  |		Load	0x1,0x21
0283 8038       | 8  |		Call	0x0,0x38
0284 e22e       | .  |		Load	0x1,0x2e
0285 6822       |h"  |		Jump_Zero	0x2a8
0286 e22c       | ,  |		Load	0x1,0x2c
0287 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0288 681f       |h   |		Jump_Zero	0x2a8
0289 8418       |    |		Call	0x2,0x18
028a 00cf       |    |		Action	Mark_Auxiliary
028b e22d       | -  |		Load	0x1,0x2d
028c 0227       | '  |		Execute	Access,All_Reference
028d 01d9       |    |		Execute	Vector,Reverse_Bounds
028e 0263       | c  |		Execute	Discrete,Above_Bound
028f 700f       |p   |		Jump_Nonzero	0x29f
0290 00d8       |    |		Load_Top	At_Offset_0
0291 e22d       | -  |		Load	0x1,0x2d
0292 0227       | '  |		Execute	Access,All_Reference
0293 01d7       |    |		Execute	Vector,Field_Read
0294 0227       | '  |		Execute	Access,All_Reference
0295 00d9       |    |		Load_Top	At_Offset_1
0296 0a01       |    |		Execute_Immediate	Plus,0x1
0297 00d8       |    |		Load_Top	At_Offset_0
0298 e00c       |    |		Load	0x0,0xc
0299 0260       | `  |		Execute	Discrete,In_Type
029a 7001       |p   |		Jump_Nonzero	0x29c
029b 0801       |    |		Execute_Immediate	Raise,0x1
029c 823f       | ?  |		Call	0x1,0x3f
029d 00c8       |    |		Action	Pop_Auxiliary_Range
029e 3ff1       |?   |		Loop_Increasing	0x290
029f 00ce       |    |		Action	Pop_Auxiliary
02a0 e229       | )  |		Load	0x1,0x29
02a1 6803       |h   |		Jump_Zero	0x2a5
02a2 4801       |H   |		Short_Literal	0x1
02a3 8240       | @  |		Call	0x1,0x40
02a4 780b       |x   |		Jump	0x2b0
02a5 4800       |H   |		Short_Literal	0x0
02a6 8240       | @  |		Call	0x1,0x40
02a7 7808       |x   |		Jump	0x2b0
02a8 e229       | )  |		Load	0x1,0x29
02a9 7002       |p   |		Jump_Nonzero	0x2ac
02aa e22e       | .  |		Load	0x1,0x2e
02ab 6804       |h   |		Jump_Zero	0x2b0
02ac 4801       |H   |		Short_Literal	0x1
02ad e403       |    |		Load	0x2,0x3
02ae e402       |    |		Load	0x2,0x2
02af 823c       | <  |		Call	0x1,0x3c
02b0 e22c       | ,  |		Load	0x1,0x2c
02b1 7002       |p   |		Jump_Nonzero	0x2b4
02b2 4801       |H   |		Short_Literal	0x1
02b3 a22c       | ,  |		Store_Unchecked	0x1,0x2c
02b4 e228       | (  |		Load	0x1,0x28
02b5 6803       |h   |		Jump_Zero	0x2b9
02b6 4800       |H   |		Short_Literal	0x0
02b7 e221       | !  |		Load	0x1,0x21
02b8 8039       | 9  |		Call	0x0,0x39
02b9 4896       |H   |		Short_Literal	0x96
02ba a40f       |    |		Store_Unchecked	0x2,0xf
02bb 4896       |H   |		Short_Literal	0x96
02bc a410       |    |		Store_Unchecked	0x2,0x10
02bd e406       |    |		Load	0x2,0x6
02be e40f       |    |		Load	0x2,0xf
02bf 0272       | r  |		Execute	Discrete,Minus
02c0 00d8       |    |		Load_Top	At_Offset_0
02c1 e00d       |    |		Load	0x0,0xd
02c2 0260       | `  |		Execute	Discrete,In_Type
02c3 7001       |p   |		Jump_Nonzero	0x2c5
02c4 0801       |    |		Execute_Immediate	Raise,0x1
02c5 5832       |X2  |		Indirect_Literal	Float,0x2f8,255.0
02c6 e20f       |    |		Load	0x1,0xf
02c7 803a       | :  |		Call	0x0,0x3a
02c8 023b       | ;  |		Execute	Float,Times
02c9 0235       | 5  |		Execute	Float,Round_To_Discrete
02ca e00d       |    |		Load	0x0,0xd
02cb 025e       | ^  |		Execute	Discrete,Convert
02cc 0271       | q  |		Execute	Discrete,Times
02cd 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
02ce 00d8       |    |		Load_Top	At_Offset_0
02cf e00b       |    |		Load	0x0,0xb
02d0 0260       | `  |		Execute	Discrete,In_Type
02d1 7001       |p   |		Jump_Nonzero	0x2d3
02d2 0801       |    |		Execute_Immediate	Raise,0x1
02d3 a40b       |    |		Store_Unchecked	0x2,0xb
02d4 e407       |    |		Load	0x2,0x7
02d5 e410       |    |		Load	0x2,0x10
02d6 0272       | r  |		Execute	Discrete,Minus
02d7 00d8       |    |		Load_Top	At_Offset_0
02d8 e00d       |    |		Load	0x0,0xd
02d9 0260       | `  |		Execute	Discrete,In_Type
02da 7001       |p   |		Jump_Nonzero	0x2dc
02db 0801       |    |		Execute_Immediate	Raise,0x1
02dc 581b       |X   |		Indirect_Literal	Float,0x2f8,255.0
02dd e20f       |    |		Load	0x1,0xf
02de 803a       | :  |		Call	0x0,0x3a
02df 023b       | ;  |		Execute	Float,Times
02e0 0235       | 5  |		Execute	Float,Round_To_Discrete
02e1 e00d       |    |		Load	0x0,0xd
02e2 025e       | ^  |		Execute	Discrete,Convert
02e3 0271       | q  |		Execute	Discrete,Times
02e4 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
02e5 00d8       |    |		Load_Top	At_Offset_0
02e6 e00b       |    |		Load	0x0,0xb
02e7 0260       | `  |		Execute	Discrete,In_Type
02e8 7001       |p   |		Jump_Nonzero	0x2ea
02e9 0801       |    |		Execute_Immediate	Raise,0x1
02ea a40c       |    |		Store_Unchecked	0x2,0xc
02eb 480d       |H   |		Short_Literal	0xd
02ec a40d       |    |		Store_Unchecked	0x2,0xd
02ed 4809       |H   |		Short_Literal	0x9
02ee a40e       |    |		Store_Unchecked	0x2,0xe
02ef 8419       |    |		Call	0x2,0x19
02f0 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
02f1			TRAP_0108:
02f1 e20e       |    |		Load	0x1,0xe
02f2 010f       |    |		Execute	Exception,Equal
02f3 6802       |h   |		Jump_Zero	0x2f6
02f4 0008       |    |		Action	Idle
02f5 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
02f6 0100       |    |		Execute	Exception,Raise
02f7 0000       |    |		.XXX[0x1]
02f8 406f e000  |@o  |		.DBL	255.0
02fa 0000 0000  |    |
02fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
0300 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0304 4963 6f00  |Ico |		.LITERAL	{0x49636f00, 0x00000000}
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 00cf       |    |		Action	Mark_Auxiliary
030c 4803       |H   |		Short_Literal	0x3
030d 4800       |H   |		Short_Literal	0x0
030e 00cf       |    |		Action	Mark_Auxiliary
030f 4803       |H   |		Short_Literal	0x3
0310 4800       |H   |		Short_Literal	0x0
0311 0007       |    |		Action	Break_Optional
0312 4800       |H   |		Short_Literal	0x0
0313 e404       |    |		Load	0x2,0x4
0314 e5ff       |    |		Load	0x2,-0x1
0315 01a7       |    |		Execute	Matrix,Field_Read
0316 00d9       |    |		Load_Top	At_Offset_1
0317 4800       |H   |		Short_Literal	0x0
0318 e5fe       |    |		Load	0x2,-0x2
0319 01a7       |    |		Execute	Matrix,Field_Read
031a 023b       | ;  |		Execute	Float,Times
031b 4801       |H   |		Short_Literal	0x1
031c e404       |    |		Load	0x2,0x4
031d e5ff       |    |		Load	0x2,-0x1
031e 01a7       |    |		Execute	Matrix,Field_Read
031f 00da       |    |		Load_Top	At_Offset_2
0320 4801       |H   |		Short_Literal	0x1
0321 e5fe       |    |		Load	0x2,-0x2
0322 01a7       |    |		Execute	Matrix,Field_Read
0323 023b       | ;  |		Execute	Float,Times
0324 023d       | =  |		Execute	Float,Plus
0325 4802       |H   |		Short_Literal	0x2
0326 e404       |    |		Load	0x2,0x4
0327 e5ff       |    |		Load	0x2,-0x1
0328 01a7       |    |		Execute	Matrix,Field_Read
0329 00da       |    |		Load_Top	At_Offset_2
032a 4802       |H   |		Short_Literal	0x2
032b e5fe       |    |		Load	0x2,-0x2
032c 01a7       |    |		Execute	Matrix,Field_Read
032d 023b       | ;  |		Execute	Float,Times
032e 023d       | =  |		Execute	Float,Plus
032f 4803       |H   |		Short_Literal	0x3
0330 e404       |    |		Load	0x2,0x4
0331 e5ff       |    |		Load	0x2,-0x1
0332 01a7       |    |		Execute	Matrix,Field_Read
0333 00da       |    |		Load_Top	At_Offset_2
0334 4803       |H   |		Short_Literal	0x3
0335 e5fe       |    |		Load	0x2,-0x2
0336 01a7       |    |		Execute	Matrix,Field_Read
0337 023b       | ;  |		Execute	Float,Times
0338 023d       | =  |		Execute	Float,Plus
0339 00d9       |    |		Load_Top	At_Offset_1
033a e404       |    |		Load	0x2,0x4
033b e5fd       |    |		Load	0x2,-0x3
033c 01a6       |    |		Execute	Matrix,Field_Write
033d 00c8       |    |		Action	Pop_Auxiliary_Range
033e 3fd3       |?   |		Loop_Increasing	0x312
033f 00ce       |    |		Action	Pop_Auxiliary
0340 00c8       |    |		Action	Pop_Auxiliary_Range
0341 3fcc       |?   |		Loop_Increasing	0x30e
0342 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0343 0000 0000  |    |		.BLANK	0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0383       |    |		.CONST	0x0383								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0013       |    |		.CONST	0x0013								; Number of locals
034b			INIT_0348:
034b e03b       | ;  |		Load	0x0,0x3b
034c 00db       |    |		Load_Top	At_Offset_3
034d 0227       | '  |		Execute	Access,All_Reference
034e 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
034f 0039       | 9  |		Store_Top	Access,At_Offset_1
0350 00db       |    |		Load_Top	At_Offset_3
0351 0227       | '  |		Execute	Access,All_Reference
0352 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0353 e00c       |    |		Load	0x0,0xc
0354 03f1       |    |		Declare_Variable	Discrete,With_Value
0355 e03c       | <  |		Load	0x0,0x3c
0356 e5ff       |    |		Load	0x2,-0x1
0357 0227       | '  |		Execute	Access,All_Reference
0358 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0359 0039       | 9  |		Store_Top	Access,At_Offset_1
035a e5ff       |    |		Load	0x2,-0x1
035b 0227       | '  |		Execute	Access,All_Reference
035c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
035d e00c       |    |		Load	0x0,0xc
035e 03f1       |    |		Declare_Variable	Discrete,With_Value
035f e00c       |    |		Load	0x0,0xc
0360 0007       |    |		Action	Break_Optional
0361 e00c       |    |		Load	0x0,0xc
0362 0007       |    |		Action	Break_Optional
0363 e00c       |    |		Load	0x0,0xc
0364 0007       |    |		Action	Break_Optional
0365 e00c       |    |		Load	0x0,0xc
0366 0007       |    |		Action	Break_Optional
0367 e00c       |    |		Load	0x0,0xc
0368 0007       |    |		Action	Break_Optional
0369 4800       |H   |		Short_Literal	0x0
036a 4877       |Hw  |		Short_Literal	0x77
036b e03d       | =  |		Load	0x0,0x3d
036c 035b       | [  |		Declare_Type	Array,Constrained
036d 0337       | 7  |		Declare_Variable	Array
036e 4800       |H   |		Short_Literal	0x0
036f 48b3       |H   |		Short_Literal	0xb3
0370 e03e       | >  |		Load	0x0,0x3e
0371 035b       | [  |		Declare_Type	Array,Constrained
0372 0337       | 7  |		Declare_Variable	Array
0373 e00c       |    |		Load	0x0,0xc
0374 0007       |    |		Action	Break_Optional
0375 e00c       |    |		Load	0x0,0xc
0376 0007       |    |		Action	Break_Optional
0377 e00c       |    |		Load	0x0,0xc
0378 0007       |    |		Action	Break_Optional
0379 e00c       |    |		Load	0x0,0xc
037a 0007       |    |		Action	Break_Optional
037b 00e6       |    |		Load_Encached	Float_Cache
037c 4800       |H   |		Short_Literal	0x0
037d 4813       |H   |		Short_Literal	0x13
037e e03d       | =  |		Load	0x0,0x3d
037f 035b       | [  |		Declare_Type	Array,Constrained
0380 0337       | 7  |		Declare_Variable	Array
0381 029f 0a4b  |   K|		Declare_Subprogram	INIT_0a48,For_Call
0383			BODY_0348:
0383 e227       | '  |		Load	0x1,0x27
0384 7001       |p   |		Jump_Nonzero	0x386
0385 8413       |    |		Call	0x2,0x13
0386 e232       | 2  |		Load	0x1,0x32
0387 0f00       |    |		Execute_Immediate	Equal,0x0
0388 a232       | 2  |		Store_Unchecked	0x1,0x32
0389 e232       | 2  |		Load	0x1,0x32
038a e231       | 1  |		Load	0x1,0x31
038b 01d5       |    |		Execute	Vector,Field_Reference
038c 00d8       |    |		Load_Top	At_Offset_0
038d e232       | 2  |		Load	0x1,0x32
038e 0f00       |    |		Execute_Immediate	Equal,0x0
038f e231       | 1  |		Load	0x1,0x31
0390 01d5       |    |		Execute	Vector,Field_Reference
0391 e230       | 0  |		Load	0x1,0x30
0392 e403       |    |		Load	0x2,0x3
0393 823d       | =  |		Call	0x1,0x3d
0394 00d2       |    |		Pop_Control	Pop_Count_2
0395 e232       | 2  |		Load	0x1,0x32
0396 e231       | 1  |		Load	0x1,0x31
0397 01d5       |    |		Execute	Vector,Field_Reference
0398 01dd       |    |		Execute	Vector,First
0399 c40a       |    |		Store	0x2,0xa
039a 4800       |H   |		Short_Literal	0x0
039b a408       |    |		Store_Unchecked	0x2,0x8
039c 00cf       |    |		Action	Mark_Auxiliary
039d 4800       |H   |		Short_Literal	0x0
039e e403       |    |		Load	0x2,0x3
039f 0aff       |    |		Execute_Immediate	Plus,-0x1
03a0 0264       | d  |		Execute	Discrete,Below_Bound
03a1 702e       |p.  |		Jump_Nonzero	0x3d0
03a2 e40a       |    |		Load	0x2,0xa
03a3 e232       | 2  |		Load	0x1,0x32
03a4 e231       | 1  |		Load	0x1,0x31
03a5 01d5       |    |		Execute	Vector,Field_Reference
03a6 01d5       |    |		Execute	Vector,Field_Reference
03a7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a8 59d7       |Y   |		Indirect_Literal	Float,0x580,1.0
03a9 023d       | =  |		Execute	Float,Plus
03aa e233       | 3  |		Load	0x1,0x33
03ab 023b       | ;  |		Execute	Float,Times
03ac 0235       | 5  |		Execute	Float,Round_To_Discrete
03ad e00b       |    |		Load	0x0,0xb
03ae 025e       | ^  |		Execute	Discrete,Convert
03af e5fc       |    |		Load	0x2,-0x4
03b0 0273       | s  |		Execute	Discrete,Plus
03b1 e408       |    |		Load	0x2,0x8
03b2 e40b       |    |		Load	0x2,0xb
03b3 01d5       |    |		Execute	Vector,Field_Reference
03b4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03b5 e40a       |    |		Load	0x2,0xa
03b6 e232       | 2  |		Load	0x1,0x32
03b7 e231       | 1  |		Load	0x1,0x31
03b8 01d5       |    |		Execute	Vector,Field_Reference
03b9 01d5       |    |		Execute	Vector,Field_Reference
03ba 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03bb 59c4       |Y   |		Indirect_Literal	Float,0x580,1.0
03bc 023d       | =  |		Execute	Float,Plus
03bd e234       | 4  |		Load	0x1,0x34
03be 023b       | ;  |		Execute	Float,Times
03bf 0235       | 5  |		Execute	Float,Round_To_Discrete
03c0 e00b       |    |		Load	0x0,0xb
03c1 025e       | ^  |		Execute	Discrete,Convert
03c2 e5fb       |    |		Load	0x2,-0x5
03c3 0273       | s  |		Execute	Discrete,Plus
03c4 e408       |    |		Load	0x2,0x8
03c5 e40b       |    |		Load	0x2,0xb
03c6 01d5       |    |		Execute	Vector,Field_Reference
03c7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03c8 e40a       |    |		Load	0x2,0xa
03c9 0a01       |    |		Execute_Immediate	Plus,0x1
03ca c40a       |    |		Store	0x2,0xa
03cb e408       |    |		Load	0x2,0x8
03cc 0a01       |    |		Execute_Immediate	Plus,0x1
03cd c408       |    |		Store	0x2,0x8
03ce 00c8       |    |		Action	Pop_Auxiliary_Range
03cf 37d2       |7   |		Loop_Decreasing	0x3a2
03d0 00ce       |    |		Action	Pop_Auxiliary
03d1 e232       | 2  |		Load	0x1,0x32
03d2 e231       | 1  |		Load	0x1,0x31
03d3 01d5       |    |		Execute	Vector,Field_Reference
03d4 01dd       |    |		Execute	Vector,First
03d5 c40a       |    |		Store	0x2,0xa
03d6 4800       |H   |		Short_Literal	0x0
03d7 a408       |    |		Store_Unchecked	0x2,0x8
03d8 e404       |    |		Load	0x2,0x4
03d9 0227       | '  |		Execute	Access,All_Reference
03da 01dd       |    |		Execute	Vector,First
03db c40d       |    |		Store	0x2,0xd
03dc 4800       |H   |		Short_Literal	0x0
03dd a409       |    |		Store_Unchecked	0x2,0x9
03de e21e       |    |		Load	0x1,0x1e
03df e21d       |    |		Load	0x1,0x1d
03e0 01a4       |    |		Execute	Matrix,Structure_Write
03e1 e229       | )  |		Load	0x1,0x29
03e2 6803       |h   |		Jump_Zero	0x3e6
03e3 e21b       |    |		Load	0x1,0x1b
03e4 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
03e5 8241       | A  |		Call	0x1,0x41
03e6 e22e       | .  |		Load	0x1,0x2e
03e7 682e       |h.  |		Jump_Zero	0x416
03e8 e229       | )  |		Load	0x1,0x29
03e9 681b       |h   |		Jump_Zero	0x405
03ea e5f9       |    |		Load	0x2,-0x7
03eb 0a01       |    |		Execute_Immediate	Plus,0x1
03ec 00d8       |    |		Load_Top	At_Offset_0
03ed e012       |    |		Load	0x0,0x12
03ee 0260       | `  |		Execute	Discrete,In_Type
03ef 7001       |p   |		Jump_Nonzero	0x3f1
03f0 0801       |    |		Execute_Immediate	Raise,0x1
03f1 e5fa       |    |		Load	0x2,-0x6
03f2 0a01       |    |		Execute_Immediate	Plus,0x1
03f3 00d8       |    |		Load_Top	At_Offset_0
03f4 e012       |    |		Load	0x0,0x12
03f5 0260       | `  |		Execute	Discrete,In_Type
03f6 7001       |p   |		Jump_Nonzero	0x3f8
03f7 0801       |    |		Execute_Immediate	Raise,0x1
03f8 e21b       |    |		Load	0x1,0x1b
03f9 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
03fa e21b       |    |		Load	0x1,0x1b
03fb 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
03fc 01d5       |    |		Execute	Vector,Field_Reference
03fd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03fe e21b       |    |		Load	0x1,0x1b
03ff 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0400 e21b       |    |		Load	0x1,0x1b
0401 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0402 01d5       |    |		Execute	Vector,Field_Reference
0403 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0404 8243       | C  |		Call	0x1,0x43
0405 e5f9       |    |		Load	0x2,-0x7
0406 0a01       |    |		Execute_Immediate	Plus,0x1
0407 00d8       |    |		Load_Top	At_Offset_0
0408 e012       |    |		Load	0x0,0x12
0409 0260       | `  |		Execute	Discrete,In_Type
040a 7001       |p   |		Jump_Nonzero	0x40c
040b 0801       |    |		Execute_Immediate	Raise,0x1
040c e5fa       |    |		Load	0x2,-0x6
040d 0a01       |    |		Execute_Immediate	Plus,0x1
040e 00d8       |    |		Load_Top	At_Offset_0
040f e012       |    |		Load	0x0,0x12
0410 0260       | `  |		Execute	Discrete,In_Type
0411 7001       |p   |		Jump_Nonzero	0x413
0412 0801       |    |		Execute_Immediate	Raise,0x1
0413 e5f7       |    |		Load	0x2,-0x9
0414 e5f8       |    |		Load	0x2,-0x8
0415 8243       | C  |		Call	0x1,0x43
0416 e228       | (  |		Load	0x1,0x28
0417 6803       |h   |		Jump_Zero	0x41b
0418 4800       |H   |		Short_Literal	0x0
0419 e221       | !  |		Load	0x1,0x21
041a 8039       | 9  |		Call	0x0,0x39
041b 00cf       |    |		Action	Mark_Auxiliary
041c 4800       |H   |		Short_Literal	0x0
041d e405       |    |		Load	0x2,0x5
041e 0aff       |    |		Execute_Immediate	Plus,-0x1
041f 0264       | d  |		Execute	Discrete,Below_Bound
0420 70d7       |p   |		Jump_Nonzero	0x4f8
0421 e40d       |    |		Load	0x2,0xd
0422 e404       |    |		Load	0x2,0x4
0423 0227       | '  |		Execute	Access,All_Reference
0424 01d7       |    |		Execute	Vector,Field_Read
0425 a410       |    |		Store_Unchecked	0x2,0x10
0426 e40d       |    |		Load	0x2,0xd
0427 0a01       |    |		Execute_Immediate	Plus,0x1
0428 c40d       |    |		Store	0x2,0xd
0429 5952       |YR  |		Indirect_Literal	Float,0x57c,0.0
042a a411       |    |		Store_Unchecked	0x2,0x11
042b 00cf       |    |		Action	Mark_Auxiliary
042c e410       |    |		Load	0x2,0x10
042d 0aff       |    |		Execute_Immediate	Plus,-0x1
042e 4800       |H   |		Short_Literal	0x0
042f 0263       | c  |		Execute	Discrete,Above_Bound
0430 7014       |p   |		Jump_Nonzero	0x445
0431 e40d       |    |		Load	0x2,0xd
0432 00d9       |    |		Load_Top	At_Offset_1
0433 0273       | s  |		Execute	Discrete,Plus
0434 e404       |    |		Load	0x2,0x4
0435 0227       | '  |		Execute	Access,All_Reference
0436 01d7       |    |		Execute	Vector,Field_Read
0437 a406       |    |		Store_Unchecked	0x2,0x6
0438 e411       |    |		Load	0x2,0x11
0439 e40a       |    |		Load	0x2,0xa
043a e406       |    |		Load	0x2,0x6
043b 0273       | s  |		Execute	Discrete,Plus
043c e232       | 2  |		Load	0x1,0x32
043d e231       | 1  |		Load	0x1,0x31
043e 01d5       |    |		Execute	Vector,Field_Reference
043f 01d5       |    |		Execute	Vector,Field_Reference
0440 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0441 023d       | =  |		Execute	Float,Plus
0442 a411       |    |		Store_Unchecked	0x2,0x11
0443 00c8       |    |		Action	Pop_Auxiliary_Range
0444 3fec       |?   |		Loop_Increasing	0x431
0445 00ce       |    |		Action	Pop_Auxiliary
0446 e411       |    |		Load	0x2,0x11
0447 014b       | K  |		Execute	Float,Less_Zero
0448 6801       |h   |		Jump_Zero	0x44a
0449 78a6       |x   |		Jump	0x4f0
044a e22e       | .  |		Load	0x1,0x2e
044b 6846       |hF  |		Jump_Zero	0x492
044c e22c       | ,  |		Load	0x1,0x2c
044d 6806       |h   |		Jump_Zero	0x454
044e 00d8       |    |		Load_Top	At_Offset_0
044f e22c       | ,  |		Load	0x1,0x2c
0450 026f       | o  |		Execute	Discrete,Remainder
0451 0a01       |    |		Execute_Immediate	Plus,0x1
0452 c40e       |    |		Store	0x2,0xe
0453 7802       |x   |		Jump	0x456
0454 4801       |H   |		Short_Literal	0x1
0455 a40e       |    |		Store_Unchecked	0x2,0xe
0456 e40e       |    |		Load	0x2,0xe
0457 e21b       |    |		Load	0x1,0x1b
0458 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0459 e21b       |    |		Load	0x1,0x1b
045a 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
045b 01d5       |    |		Execute	Vector,Field_Reference
045c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
045d 0227       | '  |		Execute	Access,All_Reference
045e 01d7       |    |		Execute	Vector,Field_Read
045f e5fd       |    |		Load	0x2,-0x3
0460 e221       | !  |		Load	0x1,0x21
0461 8034       | 4  |		Call	0x0,0x34
0462 00cf       |    |		Action	Mark_Auxiliary
0463 e410       |    |		Load	0x2,0x10
0464 0aff       |    |		Execute_Immediate	Plus,-0x1
0465 4800       |H   |		Short_Literal	0x0
0466 0263       | c  |		Execute	Discrete,Above_Bound
0467 701d       |p   |		Jump_Nonzero	0x485
0468 e40d       |    |		Load	0x2,0xd
0469 00d9       |    |		Load_Top	At_Offset_1
046a 0273       | s  |		Execute	Discrete,Plus
046b e404       |    |		Load	0x2,0x4
046c 0227       | '  |		Execute	Access,All_Reference
046d 01d7       |    |		Execute	Vector,Field_Read
046e a406       |    |		Store_Unchecked	0x2,0x6
046f e408       |    |		Load	0x2,0x8
0470 e406       |    |		Load	0x2,0x6
0471 0273       | s  |		Execute	Discrete,Plus
0472 e40b       |    |		Load	0x2,0xb
0473 01d5       |    |		Execute	Vector,Field_Reference
0474 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0475 00d9       |    |		Load_Top	At_Offset_1
0476 e412       |    |		Load	0x2,0x12
0477 01d5       |    |		Execute	Vector,Field_Reference
0478 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0479 e408       |    |		Load	0x2,0x8
047a e406       |    |		Load	0x2,0x6
047b 0273       | s  |		Execute	Discrete,Plus
047c e40b       |    |		Load	0x2,0xb
047d 01d5       |    |		Execute	Vector,Field_Reference
047e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
047f 00d9       |    |		Load_Top	At_Offset_1
0480 e412       |    |		Load	0x2,0x12
0481 01d5       |    |		Execute	Vector,Field_Reference
0482 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0483 00c8       |    |		Action	Pop_Auxiliary_Range
0484 3fe3       |?   |		Loop_Increasing	0x468
0485 00ce       |    |		Action	Pop_Auxiliary
0486 4800       |H   |		Short_Literal	0x0
0487 4802       |H   |		Short_Literal	0x2
0488 4800       |H   |		Short_Literal	0x0
0489 e410       |    |		Load	0x2,0x10
048a 0aff       |    |		Execute_Immediate	Plus,-0x1
048b e412       |    |		Load	0x2,0x12
048c 01cf       |    |		Execute	Vector,Slice_Read
048d e5fd       |    |		Load	0x2,-0x3
048e e5fe       |    |		Load	0x2,-0x2
048f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0490 e221       | !  |		Load	0x1,0x21
0491 803f       | ?  |		Call	0x0,0x3f
0492 e22f       | /  |		Load	0x1,0x2f
0493 685c       |h\  |		Jump_Zero	0x4f0
0494 00cf       |    |		Action	Mark_Auxiliary
0495 e410       |    |		Load	0x2,0x10
0496 0aff       |    |		Execute_Immediate	Plus,-0x1
0497 4800       |H   |		Short_Literal	0x0
0498 0263       | c  |		Execute	Discrete,Above_Bound
0499 7055       |pU  |		Jump_Nonzero	0x4ef
049a 00d8       |    |		Load_Top	At_Offset_0
049b e410       |    |		Load	0x2,0x10
049c 0aff       |    |		Execute_Immediate	Plus,-0x1
049d 027c       | |  |		Execute	Discrete,Less
049e 6804       |h   |		Jump_Zero	0x4a3
049f 00d8       |    |		Load_Top	At_Offset_0
04a0 0a01       |    |		Execute_Immediate	Plus,0x1
04a1 c40f       |    |		Store	0x2,0xf
04a2 7802       |x   |		Jump	0x4a5
04a3 4800       |H   |		Short_Literal	0x0
04a4 a40f       |    |		Store_Unchecked	0x2,0xf
04a5 e40d       |    |		Load	0x2,0xd
04a6 00d9       |    |		Load_Top	At_Offset_1
04a7 0273       | s  |		Execute	Discrete,Plus
04a8 e404       |    |		Load	0x2,0x4
04a9 0227       | '  |		Execute	Access,All_Reference
04aa 01d7       |    |		Execute	Vector,Field_Read
04ab a406       |    |		Store_Unchecked	0x2,0x6
04ac e40d       |    |		Load	0x2,0xd
04ad e40f       |    |		Load	0x2,0xf
04ae 0273       | s  |		Execute	Discrete,Plus
04af e404       |    |		Load	0x2,0x4
04b0 0227       | '  |		Execute	Access,All_Reference
04b1 01d7       |    |		Execute	Vector,Field_Read
04b2 a407       |    |		Store_Unchecked	0x2,0x7
04b3 e407       |    |		Load	0x2,0x7
04b4 e406       |    |		Load	0x2,0x6
04b5 e21d       |    |		Load	0x1,0x1d
04b6 01a7       |    |		Execute	Matrix,Field_Read
04b7 7035       |p5  |		Jump_Nonzero	0x4ed
04b8 4801       |H   |		Short_Literal	0x1
04b9 e407       |    |		Load	0x2,0x7
04ba e406       |    |		Load	0x2,0x6
04bb e21d       |    |		Load	0x1,0x1d
04bc 01a6       |    |		Execute	Matrix,Field_Write
04bd 4801       |H   |		Short_Literal	0x1
04be e406       |    |		Load	0x2,0x6
04bf e407       |    |		Load	0x2,0x7
04c0 e21d       |    |		Load	0x1,0x1d
04c1 01a6       |    |		Execute	Matrix,Field_Write
04c2 e408       |    |		Load	0x2,0x8
04c3 e406       |    |		Load	0x2,0x6
04c4 0273       | s  |		Execute	Discrete,Plus
04c5 e40b       |    |		Load	0x2,0xb
04c6 01d5       |    |		Execute	Vector,Field_Reference
04c7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04c8 e409       |    |		Load	0x2,0x9
04c9 e40c       |    |		Load	0x2,0xc
04ca 01d5       |    |		Execute	Vector,Field_Reference
04cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04cc e408       |    |		Load	0x2,0x8
04cd e406       |    |		Load	0x2,0x6
04ce 0273       | s  |		Execute	Discrete,Plus
04cf e40b       |    |		Load	0x2,0xb
04d0 01d5       |    |		Execute	Vector,Field_Reference
04d1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04d2 e409       |    |		Load	0x2,0x9
04d3 e40c       |    |		Load	0x2,0xc
04d4 01d5       |    |		Execute	Vector,Field_Reference
04d5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04d6 e408       |    |		Load	0x2,0x8
04d7 e407       |    |		Load	0x2,0x7
04d8 0273       | s  |		Execute	Discrete,Plus
04d9 e40b       |    |		Load	0x2,0xb
04da 01d5       |    |		Execute	Vector,Field_Reference
04db 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04dc e409       |    |		Load	0x2,0x9
04dd e40c       |    |		Load	0x2,0xc
04de 01d5       |    |		Execute	Vector,Field_Reference
04df 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04e0 e408       |    |		Load	0x2,0x8
04e1 e407       |    |		Load	0x2,0x7
04e2 0273       | s  |		Execute	Discrete,Plus
04e3 e40b       |    |		Load	0x2,0xb
04e4 01d5       |    |		Execute	Vector,Field_Reference
04e5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04e6 e409       |    |		Load	0x2,0x9
04e7 e40c       |    |		Load	0x2,0xc
04e8 01d5       |    |		Execute	Vector,Field_Reference
04e9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04ea e409       |    |		Load	0x2,0x9
04eb 0a01       |    |		Execute_Immediate	Plus,0x1
04ec c409       |    |		Store	0x2,0x9
04ed 00c8       |    |		Action	Pop_Auxiliary_Range
04ee 3fab       |?   |		Loop_Increasing	0x49a
04ef 00ce       |    |		Action	Pop_Auxiliary
04f0 0008       |    |		Action	Idle
04f1 0007       |    |		Action	Break_Optional
04f2 e40d       |    |		Load	0x2,0xd
04f3 e410       |    |		Load	0x2,0x10
04f4 0273       | s  |		Execute	Discrete,Plus
04f5 c40d       |    |		Store	0x2,0xd
04f6 00c8       |    |		Action	Pop_Auxiliary_Range
04f7 3729       |7)  |		Loop_Decreasing	0x421
04f8 00ce       |    |		Action	Pop_Auxiliary
04f9 e22f       | /  |		Load	0x1,0x2f
04fa 6859       |hY  |		Jump_Zero	0x554
04fb e22e       | .  |		Load	0x1,0x2e
04fc 680d       |h   |		Jump_Zero	0x50a
04fd 4800       |H   |		Short_Literal	0x0
04fe e21b       |    |		Load	0x1,0x1b
04ff 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0500 e21b       |    |		Load	0x1,0x1b
0501 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0502 01d5       |    |		Execute	Vector,Field_Reference
0503 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0504 0227       | '  |		Execute	Access,All_Reference
0505 01d7       |    |		Execute	Vector,Field_Read
0506 e5fd       |    |		Load	0x2,-0x3
0507 e221       | !  |		Load	0x1,0x21
0508 8034       | 4  |		Call	0x0,0x34
0509 7840       |x@  |		Jump	0x54a
050a e229       | )  |		Load	0x1,0x29
050b 681b       |h   |		Jump_Zero	0x527
050c e5f9       |    |		Load	0x2,-0x7
050d 0a01       |    |		Execute_Immediate	Plus,0x1
050e 00d8       |    |		Load_Top	At_Offset_0
050f e012       |    |		Load	0x0,0x12
0510 0260       | `  |		Execute	Discrete,In_Type
0511 7001       |p   |		Jump_Nonzero	0x513
0512 0801       |    |		Execute_Immediate	Raise,0x1
0513 e5fa       |    |		Load	0x2,-0x6
0514 0a01       |    |		Execute_Immediate	Plus,0x1
0515 00d8       |    |		Load_Top	At_Offset_0
0516 e012       |    |		Load	0x0,0x12
0517 0260       | `  |		Execute	Discrete,In_Type
0518 7001       |p   |		Jump_Nonzero	0x51a
0519 0801       |    |		Execute_Immediate	Raise,0x1
051a e21b       |    |		Load	0x1,0x1b
051b 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
051c e21b       |    |		Load	0x1,0x1b
051d 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
051e 01d5       |    |		Execute	Vector,Field_Reference
051f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0520 e21b       |    |		Load	0x1,0x1b
0521 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0522 e21b       |    |		Load	0x1,0x1b
0523 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0524 01d5       |    |		Execute	Vector,Field_Reference
0525 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0526 8243       | C  |		Call	0x1,0x43
0527 e5f9       |    |		Load	0x2,-0x7
0528 0a01       |    |		Execute_Immediate	Plus,0x1
0529 00d8       |    |		Load_Top	At_Offset_0
052a e012       |    |		Load	0x0,0x12
052b 0260       | `  |		Execute	Discrete,In_Type
052c 7001       |p   |		Jump_Nonzero	0x52e
052d 0801       |    |		Execute_Immediate	Raise,0x1
052e e5fa       |    |		Load	0x2,-0x6
052f 0a01       |    |		Execute_Immediate	Plus,0x1
0530 00d8       |    |		Load_Top	At_Offset_0
0531 e012       |    |		Load	0x0,0x12
0532 0260       | `  |		Execute	Discrete,In_Type
0533 7001       |p   |		Jump_Nonzero	0x535
0534 0801       |    |		Execute_Immediate	Raise,0x1
0535 e5f7       |    |		Load	0x2,-0x9
0536 e5f8       |    |		Load	0x2,-0x8
0537 8243       | C  |		Call	0x1,0x43
0538 e229       | )  |		Load	0x1,0x29
0539 7002       |p   |		Jump_Nonzero	0x53c
053a e22e       | .  |		Load	0x1,0x2e
053b 680e       |h   |		Jump_Zero	0x54a
053c e21b       |    |		Load	0x1,0x1b
053d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
053e 0aff       |    |		Execute_Immediate	Plus,-0x1
053f e21b       |    |		Load	0x1,0x1b
0540 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0541 e21b       |    |		Load	0x1,0x1b
0542 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0543 01d5       |    |		Execute	Vector,Field_Reference
0544 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0545 0227       | '  |		Execute	Access,All_Reference
0546 01d7       |    |		Execute	Vector,Field_Read
0547 e5fd       |    |		Load	0x2,-0x3
0548 e221       | !  |		Load	0x1,0x21
0549 8034       | 4  |		Call	0x0,0x34
054a 4800       |H   |		Short_Literal	0x0
054b e409       |    |		Load	0x2,0x9
054c 0aff       |    |		Execute_Immediate	Plus,-0x1
054d e40c       |    |		Load	0x2,0xc
054e 01cf       |    |		Execute	Vector,Slice_Read
054f e5fd       |    |		Load	0x2,-0x3
0550 e5fe       |    |		Load	0x2,-0x2
0551 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0552 e221       | !  |		Load	0x1,0x21
0553 8040       | @  |		Call	0x0,0x40
0554 e228       | (  |		Load	0x1,0x28
0555 6803       |h   |		Jump_Zero	0x559
0556 4800       |H   |		Short_Literal	0x0
0557 e221       | !  |		Load	0x1,0x21
0558 8039       | 9  |		Call	0x0,0x39
0559 e229       | )  |		Load	0x1,0x29
055a 6811       |h   |		Jump_Zero	0x56c
055b e5fc       |    |		Load	0x2,-0x4
055c e21b       |    |		Load	0x1,0x1b
055d 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
055e e21b       |    |		Load	0x1,0x1b
055f 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0560 01d5       |    |		Execute	Vector,Field_Reference
0561 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0562 e5fb       |    |		Load	0x2,-0x5
0563 e21b       |    |		Load	0x1,0x1b
0564 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0565 e21b       |    |		Load	0x1,0x1b
0566 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0567 01d5       |    |		Execute	Vector,Field_Reference
0568 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0569 e21b       |    |		Load	0x1,0x1b
056a 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
056b 8240       | @  |		Call	0x1,0x40
056c e229       | )  |		Load	0x1,0x29
056d 6806       |h   |		Jump_Zero	0x574
056e 4801       |H   |		Short_Literal	0x1
056f e21b       |    |		Load	0x1,0x1b
0570 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0571 0272       | r  |		Execute	Discrete,Minus
0572 e21b       |    |		Load	0x1,0x1b
0573 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0574 e22a       | *  |		Load	0x1,0x2a
0575 6802       |h   |		Jump_Zero	0x578
0576 e22a       | *  |		Load	0x1,0x2a
0577 00ba       |    |		Action	Initiate_Delay
0578 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
0579 0000 0000  |    |		.XXX[0x3]
057b 0000       |    |
057c 0000 0000  |    |		.DBL	0.0
057e 0000 0000  |    |
0580 3ff0 0000  |?   |		.DBL	1.0
0582 0000 0000  |    |
0584 0000 0000  |    |		.BLANK	0000[0x4]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058d       |    |		.CONST	0x058d								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0002       |    |		.CONST	0x0002								; Number of locals
058b			INIT_0588:
058b 029f 0a83  |    |		Declare_Subprogram	INIT_0a80,For_Call
058d			BODY_0588:
058d 00cf       |    |		Action	Mark_Auxiliary
058e e213       |    |		Load	0x1,0x13
058f 01d9       |    |		Execute	Vector,Reverse_Bounds
0590 0007       |    |		Action	Break_Optional
0591 e5ff       |    |		Load	0x2,-0x1
0592 00d9       |    |		Load_Top	At_Offset_1
0593 e213       |    |		Load	0x1,0x13
0594 01d7       |    |		Execute	Vector,Field_Read
0595 0227       | '  |		Execute	Access,All_Reference
0596 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0597 0227       | '  |		Execute	Access,All_Reference
0598 8402       |    |		Call	0x2,0x2
0599 7009       |p   |		Jump_Nonzero	0x5a3
059a e5ff       |    |		Load	0x2,-0x1
059b 00d9       |    |		Load_Top	At_Offset_1
059c e213       |    |		Load	0x1,0x13
059d 01d7       |    |		Execute	Vector,Field_Read
059e 0227       | '  |		Execute	Access,All_Reference
059f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05a0 0227       | '  |		Execute	Access,All_Reference
05a1 8402       |    |		Call	0x2,0x2
05a2 6804       |h   |		Jump_Zero	0x5a7
05a3 00d8       |    |		Load_Top	At_Offset_0
05a4 e213       |    |		Load	0x1,0x13
05a5 01d7       |    |		Execute	Vector,Field_Read
05a6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a7 00c8       |    |		Action	Pop_Auxiliary_Range
05a8 3fe8       |?   |		Loop_Increasing	0x591
05a9 00ce       |    |		Action	Pop_Auxiliary
05aa 0092 0c44  |   D|		Action	Push_String_Extended,0xc44					; "can't find object "
05ac e5ff       |    |		Load	0x2,-0x1
05ad 01cc       |    |		Execute	Vector,Catenate
05ae 823a       | :  |		Call	0x1,0x3a
05af 0831       | 1  |		Execute_Immediate	Raise,0x31
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b5       |    |		.CONST	0x05b5								; Address of begin
05b1 0004       |    |		.CONST	0x0004								; Address of exception handler
05b2 0003       |    |		.CONST	0x0003								; Number of locals
05b3			INIT_05b0:
05b3 00e6       |    |		Load_Encached	Float_Cache
05b4 00e6       |    |		Load_Encached	Float_Cache
05b5			BODY_05b0:
05b5 e5fd       |    |		Load	0x2,-0x3
05b6 823b       | ;  |		Call	0x1,0x3b
05b7 00d1       |    |		Pop_Control	Pop_Count_1
05b8 e5fe       |    |		Load	0x2,-0x2
05b9 8041       | A  |		Call	0x0,0x41
05ba 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
05bb e5fe       |    |		Load	0x2,-0x2
05bc 8042       | B  |		Call	0x0,0x42
05bd 0041       | A  |		Store_Top_Unchecked	Float,At_Offset_1
05be e5ff       |    |		Load	0x2,-0x1
05bf 0b78       | x  |		Execute_Immediate	Case_Compare,0x78
05c0 7005       |p   |		Jump_Nonzero	0x5c6
05c1 0b79       | y  |		Execute_Immediate	Case_Compare,0x79
05c2 701a       |p   |		Jump_Nonzero	0x5dd
05c3 0f7a       | z  |		Execute_Immediate	Equal,0x7a
05c4 702f       |p/  |		Jump_Nonzero	0x5f4
05c5 08e2       |    |		Execute_Immediate	Raise,0xe2
05c6 00d1       |    |		Pop_Control	Pop_Count_1
05c7 00d8       |    |		Load_Top	At_Offset_0
05c8 4801       |H   |		Short_Literal	0x1
05c9 4801       |H   |		Short_Literal	0x1
05ca e5fd       |    |		Load	0x2,-0x3
05cb 01a6       |    |		Execute	Matrix,Field_Write
05cc 00d8       |    |		Load_Top	At_Offset_0
05cd 4802       |H   |		Short_Literal	0x2
05ce 4802       |H   |		Short_Literal	0x2
05cf e5fd       |    |		Load	0x2,-0x3
05d0 01a6       |    |		Execute	Matrix,Field_Write
05d1 00d9       |    |		Load_Top	At_Offset_1
05d2 4802       |H   |		Short_Literal	0x2
05d3 4801       |H   |		Short_Literal	0x1
05d4 e5fd       |    |		Load	0x2,-0x3
05d5 01a6       |    |		Execute	Matrix,Field_Write
05d6 00d9       |    |		Load_Top	At_Offset_1
05d7 023f       | ?  |		Execute	Float,Unary_Minus
05d8 4801       |H   |		Short_Literal	0x1
05d9 4802       |H   |		Short_Literal	0x2
05da e5fd       |    |		Load	0x2,-0x3
05db 01a6       |    |		Execute	Matrix,Field_Write
05dc 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05dd 00d1       |    |		Pop_Control	Pop_Count_1
05de 00d8       |    |		Load_Top	At_Offset_0
05df 4800       |H   |		Short_Literal	0x0
05e0 4800       |H   |		Short_Literal	0x0
05e1 e5fd       |    |		Load	0x2,-0x3
05e2 01a6       |    |		Execute	Matrix,Field_Write
05e3 00d8       |    |		Load_Top	At_Offset_0
05e4 4802       |H   |		Short_Literal	0x2
05e5 4802       |H   |		Short_Literal	0x2
05e6 e5fd       |    |		Load	0x2,-0x3
05e7 01a6       |    |		Execute	Matrix,Field_Write
05e8 00d9       |    |		Load_Top	At_Offset_1
05e9 4800       |H   |		Short_Literal	0x0
05ea 4802       |H   |		Short_Literal	0x2
05eb e5fd       |    |		Load	0x2,-0x3
05ec 01a6       |    |		Execute	Matrix,Field_Write
05ed 00d9       |    |		Load_Top	At_Offset_1
05ee 023f       | ?  |		Execute	Float,Unary_Minus
05ef 4802       |H   |		Short_Literal	0x2
05f0 4800       |H   |		Short_Literal	0x0
05f1 e5fd       |    |		Load	0x2,-0x3
05f2 01a6       |    |		Execute	Matrix,Field_Write
05f3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05f4 00d8       |    |		Load_Top	At_Offset_0
05f5 4800       |H   |		Short_Literal	0x0
05f6 4800       |H   |		Short_Literal	0x0
05f7 e5fd       |    |		Load	0x2,-0x3
05f8 01a6       |    |		Execute	Matrix,Field_Write
05f9 00d8       |    |		Load_Top	At_Offset_0
05fa 4801       |H   |		Short_Literal	0x1
05fb 4801       |H   |		Short_Literal	0x1
05fc e5fd       |    |		Load	0x2,-0x3
05fd 01a6       |    |		Execute	Matrix,Field_Write
05fe 00d9       |    |		Load_Top	At_Offset_1
05ff 4801       |H   |		Short_Literal	0x1
0600 4800       |H   |		Short_Literal	0x0
0601 e5fd       |    |		Load	0x2,-0x3
0602 01a6       |    |		Execute	Matrix,Field_Write
0603 00d9       |    |		Load_Top	At_Offset_1
0604 023f       | ?  |		Execute	Float,Unary_Minus
0605 4800       |H   |		Short_Literal	0x0
0606 4801       |H   |		Short_Literal	0x1
0607 e5fd       |    |		Load	0x2,-0x3
0608 01a6       |    |		Execute	Matrix,Field_Write
0609 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
060a 0000 0000  |    |		.BLANK	0000[0x6]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 0092 0c45  |   E|		Action	Push_String_Extended,0xc45					; "Name            Short Name    #Vert.  #Edges  #Faces  Dual"
0615 e043       | C  |		Load	0x0,0x43
0616 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0617 00cf       |    |		Action	Mark_Auxiliary
0618 e213       |    |		Load	0x1,0x13
0619 01d9       |    |		Execute	Vector,Reverse_Bounds
061a 0007       |    |		Action	Break_Optional
061b 4810       |H   |		Short_Literal	0x10
061c 00d9       |    |		Load_Top	At_Offset_1
061d e213       |    |		Load	0x1,0x13
061e 01d7       |    |		Execute	Vector,Field_Read
061f 0227       | '  |		Execute	Access,All_Reference
0620 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0621 0227       | '  |		Execute	Access,All_Reference
0622 8242       | B  |		Call	0x1,0x42
0623 e043       | C  |		Load	0x0,0x43
0624 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0625 480c       |H   |		Short_Literal	0xc
0626 00d9       |    |		Load_Top	At_Offset_1
0627 e213       |    |		Load	0x1,0x13
0628 01d7       |    |		Execute	Vector,Field_Read
0629 0227       | '  |		Execute	Access,All_Reference
062a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
062b 0227       | '  |		Execute	Access,All_Reference
062c 8242       | B  |		Call	0x1,0x42
062d e043       | C  |		Load	0x0,0x43
062e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
062f e044       | D  |		Load	0x0,0x44
0630 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0631 4806       |H   |		Short_Literal	0x6
0632 00da       |    |		Load_Top	At_Offset_2
0633 e213       |    |		Load	0x1,0x13
0634 01d7       |    |		Execute	Vector,Field_Read
0635 0227       | '  |		Execute	Access,All_Reference
0636 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0637 e044       | D  |		Load	0x0,0x44
0638 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0639 e044       | D  |		Load	0x0,0x44
063a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
063b 4808       |H   |		Short_Literal	0x8
063c 00da       |    |		Load_Top	At_Offset_2
063d e213       |    |		Load	0x1,0x13
063e 01d7       |    |		Execute	Vector,Field_Read
063f 0227       | '  |		Execute	Access,All_Reference
0640 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0641 e044       | D  |		Load	0x0,0x44
0642 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0643 e044       | D  |		Load	0x0,0x44
0644 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0645 4808       |H   |		Short_Literal	0x8
0646 00da       |    |		Load_Top	At_Offset_2
0647 e213       |    |		Load	0x1,0x13
0648 01d7       |    |		Execute	Vector,Field_Read
0649 0227       | '  |		Execute	Access,All_Reference
064a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
064b e044       | D  |		Load	0x0,0x44
064c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
064d 00d8       |    |		Load_Top	At_Offset_0
064e e213       |    |		Load	0x1,0x13
064f 01d7       |    |		Execute	Vector,Field_Read
0650 0227       | '  |		Execute	Access,All_Reference
0651 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0652 0227       | '  |		Execute	Access,All_Reference
0653 e043       | C  |		Load	0x0,0x43
0654 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0655 00c8       |    |		Action	Pop_Auxiliary_Range
0656 3fc4       |?   |		Loop_Increasing	0x61b
0657 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b       | [  |		.CONST	0x065b								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0001       |    |		.CONST	0x0001								; Number of locals
065b			BODY_0658:
065b			INIT_0658:
065b 0092 0c46  |   F|		Action	Push_String_Extended,0xc46					; "ico: "
065d 00db       |    |		Load_Top	At_Offset_3
065e 01cc       |    |		Execute	Vector,Catenate
065f e043       | C  |		Load	0x0,0x43
0660 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0661 e20e       |    |		Load	0x1,0xe
0662 0257       | W  |		Execute	Discrete,Raise
0663 0000 0000  |    |		.BLANK	0000[0x5]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b       | k  |		.CONST	0x066b								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0001       |    |		.CONST	0x0001								; Number of locals
066b			BODY_0668:
066b			INIT_0668:
066b 00cf       |    |		Action	Mark_Auxiliary
066c 4800       |H   |		Short_Literal	0x0
066d 4803       |H   |		Short_Literal	0x3
066e 00cf       |    |		Action	Mark_Auxiliary
066f 4800       |H   |		Short_Literal	0x0
0670 4803       |H   |		Short_Literal	0x3
0671 0007       |    |		Action	Break_Optional
0672 5815       |X   |		Indirect_Literal	Float,0x688,0.0
0673 00d9       |    |		Load_Top	At_Offset_1
0674 e404       |    |		Load	0x2,0x4
0675 e5ff       |    |		Load	0x2,-0x1
0676 01a6       |    |		Execute	Matrix,Field_Write
0677 00c8       |    |		Action	Pop_Auxiliary_Range
0678 37f9       |7   |		Loop_Decreasing	0x672
0679 00ce       |    |		Action	Pop_Auxiliary
067a 5809       |X   |		Indirect_Literal	Float,0x684,1.0
067b 00d9       |    |		Load_Top	At_Offset_1
067c 00da       |    |		Load_Top	At_Offset_2
067d e5ff       |    |		Load	0x2,-0x1
067e 01a6       |    |		Execute	Matrix,Field_Write
067f 00c8       |    |		Action	Pop_Auxiliary_Range
0680 37ed       |7   |		Loop_Decreasing	0x66e
0681 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0682 0000 0000  |    |		.XXX[0x2]
0684 3ff0 0000  |?   |		.DBL	1.0
0686 0000 0000  |    |
0688 0000 0000  |    |		.DBL	0.0
068a 0000 0000  |    |
068c 0000 0000  |    |		.BLANK	0000[0x4]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 069e       |    |		.CONST	0x069e								; Address of begin
0691 0004       |    |		.CONST	0x0004								; Address of exception handler
0692 0007       |    |		.CONST	0x0007								; Number of locals
0693			INIT_0690:
0693 e00c       |    |		Load	0x0,0xc
0694 0007       |    |		Action	Break_Optional
0695 e00c       |    |		Load	0x0,0xc
0696 0007       |    |		Action	Break_Optional
0697 e00c       |    |		Load	0x0,0xc
0698 0007       |    |		Action	Break_Optional
0699 e01b       |    |		Load	0x0,0x1b
069a 029f 0adb  |    |		Declare_Subprogram	INIT_0ad8,For_Call
069c 029f 0b03  |    |		Declare_Subprogram	INIT_0b00,For_Call
069e			BODY_0690:
069e e5fd       |    |		Load	0x2,-0x3
069f e21b       |    |		Load	0x1,0x1b
06a0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06a1 4801       |H   |		Short_Literal	0x1
06a2 e5fd       |    |		Load	0x2,-0x3
06a3 0253       | S  |		Execute	Discrete,Binary_Scale
06a4 e21b       |    |		Load	0x1,0x1b
06a5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
06a6 e229       | )  |		Load	0x1,0x29
06a7 680a       |h   |		Jump_Zero	0x6b2
06a8 e5fd       |    |		Load	0x2,-0x3
06a9 0901       |    |		Execute_Immediate	Binary_Scale,0x1
06aa 00d8       |    |		Load_Top	At_Offset_0
06ab e00d       |    |		Load	0x0,0xd
06ac 0260       | `  |		Execute	Discrete,In_Type
06ad 7001       |p   |		Jump_Nonzero	0x6af
06ae 0801       |    |		Execute_Immediate	Raise,0x1
06af e21b       |    |		Load	0x1,0x1b
06b0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06b1 7803       |x   |		Jump	0x6b5
06b2 e5fd       |    |		Load	0x2,-0x3
06b3 e21b       |    |		Load	0x1,0x1b
06b4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06b5 4801       |H   |		Short_Literal	0x1
06b6 e21b       |    |		Load	0x1,0x1b
06b7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
06b8 0253       | S  |		Execute	Discrete,Binary_Scale
06b9 e21b       |    |		Load	0x1,0x1b
06ba 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06bb 4800       |H   |		Short_Literal	0x0
06bc e21b       |    |		Load	0x1,0x1b
06bd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
06be 0aff       |    |		Execute_Immediate	Plus,-0x1
06bf e216       |    |		Load	0x1,0x16
06c0 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
06c1 e21b       |    |		Load	0x1,0x1b
06c2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
06c3 4800       |H   |		Short_Literal	0x0
06c4 e21b       |    |		Load	0x1,0x1b
06c5 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
06c6 e229       | )  |		Load	0x1,0x29
06c7 6803       |h   |		Jump_Zero	0x6cb
06c8 4802       |H   |		Short_Literal	0x2
06c9 a404       |    |		Store_Unchecked	0x2,0x4
06ca 7802       |x   |		Jump	0x6cd
06cb 4801       |H   |		Short_Literal	0x1
06cc a404       |    |		Store_Unchecked	0x2,0x4
06cd 00cf       |    |		Action	Mark_Auxiliary
06ce e404       |    |		Load	0x2,0x4
06cf 0aff       |    |		Execute_Immediate	Plus,-0x1
06d0 4800       |H   |		Short_Literal	0x0
06d1 0263       | c  |		Execute	Discrete,Above_Bound
06d2 7003       |p   |		Jump_Nonzero	0x6d6
06d3 8406       |    |		Call	0x2,0x6
06d4 00c8       |    |		Action	Pop_Auxiliary_Range
06d5 3ffd       |?   |		Loop_Increasing	0x6d3
06d6 00ce       |    |		Action	Pop_Auxiliary
06d7 e221       | !  |		Load	0x1,0x21
06d8 8020       |    |		Call	0x0,0x20
06d9 e221       | !  |		Load	0x1,0x21
06da 8045       | E  |		Call	0x0,0x45
06db e225       | %  |		Load	0x1,0x25
06dc 017d       | }  |		Execute	Record,Structure_Write
06dd e225       | %  |		Load	0x1,0x25
06de e046       | F  |		Load	0x0,0x46
06df 017f       |    |		Execute	Record,Equal
06e0 6803       |h   |		Jump_Zero	0x6e4
06e1 0092 0c47  |   G|		Action	Push_String_Extended,0xc47					; "can't get default colormap"
06e3 823a       | :  |		Call	0x1,0x3a
06e4 e21b       |    |		Load	0x1,0x1b
06e5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
06e6 4800       |H   |		Short_Literal	0x0
06e7 4800       |H   |		Short_Literal	0x0
06e8 00da       |    |		Load_Top	At_Offset_2
06e9 035b       | [  |		Declare_Type	Array,Constrained
06ea 00d0       |    |		Action	Swap_Control
06eb 01cd       |    |		Execute	Vector,Slice_Reference
06ec e21b       |    |		Load	0x1,0x1b
06ed 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
06ee 0229       | )  |		Execute	Access,All_Read
06ef e01b       |    |		Load	0x0,0x1b
06f0 00da       |    |		Load_Top	At_Offset_2
06f1 00da       |    |		Load_Top	At_Offset_2
06f2 4800       |H   |		Short_Literal	0x0
06f3 e225       | %  |		Load	0x1,0x25
06f4 e221       | !  |		Load	0x1,0x21
06f5 8047       | G  |		Call	0x0,0x47
06f6 00d2       |    |		Pop_Control	Pop_Count_2
06f7 c405       |    |		Store	0x2,0x5
06f8 00d2       |    |		Pop_Control	Pop_Count_2
06f9 00da       |    |		Load_Top	At_Offset_2
06fa 7003       |p   |		Jump_Nonzero	0x6fe
06fb 0092 0c48  |   H|		Action	Push_String_Extended,0xc48					; "can't allocate color planes"
06fd 823a       | :  |		Call	0x1,0x3a
06fe e5ff       |    |		Load	0x2,-0x1
06ff e220       |    |		Load	0x1,0x20
0700 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0701 e5fe       |    |		Load	0x2,-0x2
0702 e21f       |    |		Load	0x1,0x1f
0703 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0704 e220       |    |		Load	0x1,0x20
0705 e225       | %  |		Load	0x1,0x25
0706 e221       | !  |		Load	0x1,0x21
0707 8048       | H  |		Call	0x0,0x48
0708 00d1       |    |		Pop_Control	Pop_Count_1
0709 e21f       |    |		Load	0x1,0x1f
070a e225       | %  |		Load	0x1,0x25
070b e221       | !  |		Load	0x1,0x21
070c 8048       | H  |		Call	0x0,0x48
070d 00d1       |    |		Pop_Control	Pop_Count_1
070e e21f       |    |		Load	0x1,0x1f
070f 4800       |H   |		Short_Literal	0x0
0710 823e       | >  |		Call	0x1,0x3e
0711 e220       |    |		Load	0x1,0x20
0712 4801       |H   |		Short_Literal	0x1
0713 823e       | >  |		Call	0x1,0x3e
0714 00cf       |    |		Action	Mark_Auxiliary
0715 e404       |    |		Load	0x2,0x4
0716 0aff       |    |		Execute_Immediate	Plus,-0x1
0717 4800       |H   |		Short_Literal	0x0
0718 0263       | c  |		Execute	Discrete,Above_Bound
0719 7003       |p   |		Jump_Nonzero	0x71d
071a 8407       |    |		Call	0x2,0x7
071b 00c8       |    |		Action	Pop_Auxiliary_Range
071c 3ffd       |?   |		Loop_Increasing	0x71a
071d 00ce       |    |		Action	Pop_Auxiliary
071e 4800       |H   |		Short_Literal	0x0
071f 8241       | A  |		Call	0x1,0x41
0720 4800       |H   |		Short_Literal	0x0
0721 4800       |H   |		Short_Literal	0x0
0722 e21b       |    |		Load	0x1,0x1b
0723 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0724 01d5       |    |		Execute	Vector,Field_Reference
0725 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0726 0227       | '  |		Execute	Access,All_Reference
0727 01d7       |    |		Execute	Vector,Field_Read
0728 e226       | &  |		Load	0x1,0x26
0729 e221       | !  |		Load	0x1,0x21
072a 8035       | 5  |		Call	0x0,0x35
072b 4fff       |O   |		Short_Literal	-0x1
072c e226       | &  |		Load	0x1,0x26
072d e221       | !  |		Load	0x1,0x21
072e 8049       | I  |		Call	0x0,0x49
072f e224       | $  |		Load	0x1,0x24
0730 e223       | #  |		Load	0x1,0x23
0731 4800       |H   |		Short_Literal	0x0
0732 4800       |H   |		Short_Literal	0x0
0733 8243       | C  |		Call	0x1,0x43
0734 e22b       | +  |		Load	0x1,0x2b
0735 00ba       |    |		Action	Initiate_Delay
0736 4800       |H   |		Short_Literal	0x0
0737 e221       | !  |		Load	0x1,0x21
0738 8039       | 9  |		Call	0x0,0x39
0739 e229       | )  |		Load	0x1,0x29
073a 6803       |h   |		Jump_Zero	0x73e
073b 4801       |H   |		Short_Literal	0x1
073c 8240       | @  |		Call	0x1,0x40
073d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
073e 4800       |H   |		Short_Literal	0x0
073f 8240       | @  |		Call	0x1,0x40
0740 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0741 0000 0000  |    |		.BLANK	0000[0x7]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 0753       | S  |		.CONST	0x0753								; Address of begin
0749 0004       |    |		.CONST	0x0004								; Address of exception handler
074a 0003       |    |		.CONST	0x0003								; Number of locals
074b			INIT_0748:
074b e5fd       |    |		Load	0x2,-0x3
074c 01dd       |    |		Execute	Vector,First
074d e00c       |    |		Load	0x0,0xc
074e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
074f e5fc       |    |		Load	0x2,-0x4
0750 01dd       |    |		Execute	Vector,First
0751 e00c       |    |		Load	0x0,0xc
0752 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0753			BODY_0748:
0753 00cf       |    |		Action	Mark_Auxiliary
0754 e5ff       |    |		Load	0x2,-0x1
0755 4801       |H   |		Short_Literal	0x1
0756 0263       | c  |		Execute	Discrete,Above_Bound
0757 706b       |pk  |		Jump_Nonzero	0x7c3
0758 e402       |    |		Load	0x2,0x2
0759 e5fd       |    |		Load	0x2,-0x3
075a 01d5       |    |		Execute	Vector,Field_Reference
075b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
075c 4800       |H   |		Short_Literal	0x0
075d 4800       |H   |		Short_Literal	0x0
075e e5fe       |    |		Load	0x2,-0x2
075f 01a7       |    |		Execute	Matrix,Field_Read
0760 023b       | ;  |		Execute	Float,Times
0761 e402       |    |		Load	0x2,0x2
0762 e5fd       |    |		Load	0x2,-0x3
0763 01d5       |    |		Execute	Vector,Field_Reference
0764 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0765 4800       |H   |		Short_Literal	0x0
0766 4801       |H   |		Short_Literal	0x1
0767 e5fe       |    |		Load	0x2,-0x2
0768 01a7       |    |		Execute	Matrix,Field_Read
0769 023b       | ;  |		Execute	Float,Times
076a 023d       | =  |		Execute	Float,Plus
076b e402       |    |		Load	0x2,0x2
076c e5fd       |    |		Load	0x2,-0x3
076d 01d5       |    |		Execute	Vector,Field_Reference
076e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
076f 4800       |H   |		Short_Literal	0x0
0770 4802       |H   |		Short_Literal	0x2
0771 e5fe       |    |		Load	0x2,-0x2
0772 01a7       |    |		Execute	Matrix,Field_Read
0773 023b       | ;  |		Execute	Float,Times
0774 023d       | =  |		Execute	Float,Plus
0775 e403       |    |		Load	0x2,0x3
0776 e5fc       |    |		Load	0x2,-0x4
0777 01d5       |    |		Execute	Vector,Field_Reference
0778 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0779 e402       |    |		Load	0x2,0x2
077a e5fd       |    |		Load	0x2,-0x3
077b 01d5       |    |		Execute	Vector,Field_Reference
077c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
077d 4801       |H   |		Short_Literal	0x1
077e 4800       |H   |		Short_Literal	0x0
077f e5fe       |    |		Load	0x2,-0x2
0780 01a7       |    |		Execute	Matrix,Field_Read
0781 023b       | ;  |		Execute	Float,Times
0782 e402       |    |		Load	0x2,0x2
0783 e5fd       |    |		Load	0x2,-0x3
0784 01d5       |    |		Execute	Vector,Field_Reference
0785 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0786 4801       |H   |		Short_Literal	0x1
0787 4801       |H   |		Short_Literal	0x1
0788 e5fe       |    |		Load	0x2,-0x2
0789 01a7       |    |		Execute	Matrix,Field_Read
078a 023b       | ;  |		Execute	Float,Times
078b 023d       | =  |		Execute	Float,Plus
078c e402       |    |		Load	0x2,0x2
078d e5fd       |    |		Load	0x2,-0x3
078e 01d5       |    |		Execute	Vector,Field_Reference
078f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0790 4801       |H   |		Short_Literal	0x1
0791 4802       |H   |		Short_Literal	0x2
0792 e5fe       |    |		Load	0x2,-0x2
0793 01a7       |    |		Execute	Matrix,Field_Read
0794 023b       | ;  |		Execute	Float,Times
0795 023d       | =  |		Execute	Float,Plus
0796 e403       |    |		Load	0x2,0x3
0797 e5fc       |    |		Load	0x2,-0x4
0798 01d5       |    |		Execute	Vector,Field_Reference
0799 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
079a e402       |    |		Load	0x2,0x2
079b e5fd       |    |		Load	0x2,-0x3
079c 01d5       |    |		Execute	Vector,Field_Reference
079d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
079e 4802       |H   |		Short_Literal	0x2
079f 4800       |H   |		Short_Literal	0x0
07a0 e5fe       |    |		Load	0x2,-0x2
07a1 01a7       |    |		Execute	Matrix,Field_Read
07a2 023b       | ;  |		Execute	Float,Times
07a3 e402       |    |		Load	0x2,0x2
07a4 e5fd       |    |		Load	0x2,-0x3
07a5 01d5       |    |		Execute	Vector,Field_Reference
07a6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07a7 4802       |H   |		Short_Literal	0x2
07a8 4801       |H   |		Short_Literal	0x1
07a9 e5fe       |    |		Load	0x2,-0x2
07aa 01a7       |    |		Execute	Matrix,Field_Read
07ab 023b       | ;  |		Execute	Float,Times
07ac 023d       | =  |		Execute	Float,Plus
07ad e402       |    |		Load	0x2,0x2
07ae e5fd       |    |		Load	0x2,-0x3
07af 01d5       |    |		Execute	Vector,Field_Reference
07b0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
07b1 4802       |H   |		Short_Literal	0x2
07b2 4802       |H   |		Short_Literal	0x2
07b3 e5fe       |    |		Load	0x2,-0x2
07b4 01a7       |    |		Execute	Matrix,Field_Read
07b5 023b       | ;  |		Execute	Float,Times
07b6 023d       | =  |		Execute	Float,Plus
07b7 e403       |    |		Load	0x2,0x3
07b8 e5fc       |    |		Load	0x2,-0x4
07b9 01d5       |    |		Execute	Vector,Field_Reference
07ba 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
07bb e402       |    |		Load	0x2,0x2
07bc 0a01       |    |		Execute_Immediate	Plus,0x1
07bd c402       |    |		Store	0x2,0x2
07be 00db       |    |		Load_Top	At_Offset_3
07bf 0a01       |    |		Execute_Immediate	Plus,0x1
07c0 c403       |    |		Store	0x2,0x3
07c1 00c8       |    |		Action	Pop_Auxiliary_Range
07c2 3f95       |?   |		Loop_Increasing	0x758
07c3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
07c4 0000 0000  |    |		.BLANK	0000[0x4]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07d2       |    |		.CONST	0x07d2								; Address of begin
07c9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ca 0005       |    |		.CONST	0x0005								; Number of locals
07cb			INIT_07c8:
07cb e00c       |    |		Load	0x0,0xc
07cc 0007       |    |		Action	Break_Optional
07cd e00d       |    |		Load	0x0,0xd
07ce 0007       |    |		Action	Break_Optional
07cf e00c       |    |		Load	0x0,0xc
07d0 029f 0bf3  |    |		Declare_Subprogram	INIT_0bf0,For_Call
07d2			BODY_07c8:
07d2 e229       | )  |		Load	0x1,0x29
07d3 6803       |h   |		Jump_Zero	0x7d7
07d4 4802       |H   |		Short_Literal	0x2
07d5 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
07d6 7802       |x   |		Jump	0x7d9
07d7 4801       |H   |		Short_Literal	0x1
07d8 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
07d9 00cf       |    |		Action	Mark_Auxiliary
07da 00da       |    |		Load_Top	At_Offset_2
07db 0aff       |    |		Execute_Immediate	Plus,-0x1
07dc 4800       |H   |		Short_Literal	0x0
07dd 0263       | c  |		Execute	Discrete,Above_Bound
07de 7003       |p   |		Jump_Nonzero	0x7e2
07df 8405       |    |		Call	0x2,0x5
07e0 00c8       |    |		Action	Pop_Auxiliary_Range
07e1 3ffd       |?   |		Loop_Increasing	0x7df
07e2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07e3 0000 0000  |    |		.BLANK	0000[0x5]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07f5       |    |		.CONST	0x07f5								; Address of begin
07e9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ea 0004       |    |		.CONST	0x0004								; Number of locals
07eb			INIT_07e8:
07eb e01b       |    |		Load	0x0,0x1b
07ec 0007       |    |		Action	Break_Optional
07ed e00f       |    |		Load	0x0,0xf
07ee 0322       | "  |		Declare_Variable	Record
07ef 00d8       |    |		Load_Top	At_Offset_0
07f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07f1 e00f       |    |		Load	0x0,0xf
07f2 0322       | "  |		Declare_Variable	Record
07f3 00d8       |    |		Load_Top	At_Offset_0
07f4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07f5			BODY_07e8:
07f5 e01b       |    |		Load	0x0,0x1b
07f6 00d9       |    |		Load_Top	At_Offset_1
07f7 00db       |    |		Load_Top	At_Offset_3
07f8 e5fe       |    |		Load	0x2,-0x2
07f9 e225       | %  |		Load	0x1,0x25
07fa e221       | !  |		Load	0x1,0x21
07fb 804a       | J  |		Call	0x0,0x4a
07fc 00d2       |    |		Pop_Control	Pop_Count_2
07fd 005b       | [  |		Store_Top	Discrete,At_Offset_3
07fe 00da       |    |		Load_Top	At_Offset_2
07ff 7006       |p   |		Jump_Nonzero	0x806
0800 0092 0c49  |   I|		Action	Push_String_Extended,0xc49					; "no such color "
0802 e5fe       |    |		Load	0x2,-0x2
0803 801f       |    |		Call	0x0,0x1f
0804 01cc       |    |		Execute	Vector,Catenate
0805 823a       | :  |		Call	0x1,0x3a
0806 00d8       |    |		Load_Top	At_Offset_0
0807 e5ff       |    |		Load	0x2,-0x1
0808 823e       | >  |		Call	0x1,0x3e
0809 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
080a 0000 0000  |    |		.BLANK	0000[0x6]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813       |    |		.CONST	0x0813								; Address of begin
0811 0004       |    |		.CONST	0x0004								; Address of exception handler
0812 0001       |    |		.CONST	0x0001								; Number of locals
0813			BODY_0810:
0813			INIT_0810:
0813 00da       |    |		Load_Top	At_Offset_2
0814 e21b       |    |		Load	0x1,0x1b
0815 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0816 e21b       |    |		Load	0x1,0x1b
0817 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0818 e21b       |    |		Load	0x1,0x1b
0819 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
081a 01d5       |    |		Execute	Vector,Field_Reference
081b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
081c 0227       | '  |		Execute	Access,All_Reference
081d e225       | %  |		Load	0x1,0x25
081e e221       | !  |		Load	0x1,0x21
081f 804b       | K  |		Call	0x0,0x4b
0820 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0821 0000 0000  |    |		.BLANK	0000[0x7]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0831       | 1  |		.CONST	0x0831								; Address of begin
0829 0004       |    |		.CONST	0x0004								; Address of exception handler
082a 0003       |    |		.CONST	0x0003								; Number of locals
082b			INIT_0828:
082b e019       |    |		Load	0x0,0x19
082c 0322       | "  |		Declare_Variable	Record
082d 00d8       |    |		Load_Top	At_Offset_0
082e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
082f e037       | 7  |		Load	0x0,0x37
0830 0337       | 7  |		Declare_Variable	Array
0831			BODY_0828:
0831 e5ff       |    |		Load	0x2,-0x1
0832 e21b       |    |		Load	0x1,0x1b
0833 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0834 e21b       |    |		Load	0x1,0x1b
0835 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0836 e21b       |    |		Load	0x1,0x1b
0837 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0838 01d5       |    |		Execute	Vector,Field_Reference
0839 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
083a 00da       |    |		Load_Top	At_Offset_2
083b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
083c e21b       |    |		Load	0x1,0x1b
083d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
083e 0aff       |    |		Execute_Immediate	Plus,-0x1
083f e21b       |    |		Load	0x1,0x1b
0840 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0841 e21b       |    |		Load	0x1,0x1b
0842 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0843 01d5       |    |		Execute	Vector,Field_Reference
0844 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0845 0227       | '  |		Execute	Access,All_Reference
0846 01d7       |    |		Execute	Vector,Field_Read
0847 00da       |    |		Load_Top	At_Offset_2
0848 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0849 4800       |H   |		Short_Literal	0x0
084a e21b       |    |		Load	0x1,0x1b
084b 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
084c e21b       |    |		Load	0x1,0x1b
084d 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
084e 01d5       |    |		Execute	Vector,Field_Reference
084f 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0850 0227       | '  |		Execute	Access,All_Reference
0851 01d7       |    |		Execute	Vector,Field_Read
0852 00da       |    |		Load_Top	At_Offset_2
0853 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0854 e037       | 7  |		Load	0x0,0x37
0855 0337       | 7  |		Declare_Variable	Array
0856 4801       |H   |		Short_Literal	0x1
0857 481d       |H   |		Short_Literal	0x1d
0858 00da       |    |		Load_Top	At_Offset_2
0859 01d6       |    |		Execute	Vector,Field_Write
085a 4801       |H   |		Short_Literal	0x1
085b 481c       |H   |		Short_Literal	0x1c
085c 00da       |    |		Load_Top	At_Offset_2
085d 01d6       |    |		Execute	Vector,Field_Write
085e 481b       |H   |		Short_Literal	0x1b
085f 4800       |H   |		Short_Literal	0x0
0860 4800       |H   |		Short_Literal	0x0
0861 00d9       |    |		Load_Top	At_Offset_1
0862 e404       |    |		Load	0x2,0x4
0863 01d6       |    |		Execute	Vector,Field_Write
0864 3ffb       |?   |		Loop_Increasing	0x860
0865 4800       |H   |		Short_Literal	0x0
0866 481e       |H   |		Short_Literal	0x1e
0867 00da       |    |		Load_Top	At_Offset_2
0868 01d6       |    |		Execute	Vector,Field_Write
0869 4800       |H   |		Short_Literal	0x0
086a 481f       |H   |		Short_Literal	0x1f
086b 00da       |    |		Load_Top	At_Offset_2
086c 01d6       |    |		Execute	Vector,Field_Write
086d e037       | 7  |		Load	0x0,0x37
086e 01c3       |    |		Execute	Vector,Check_In_Type
086f 00d9       |    |		Load_Top	At_Offset_1
0870 01d4       |    |		Execute	Vector,Structure_Write
0871 e229       | )  |		Load	0x1,0x29
0872 6804       |h   |		Jump_Zero	0x877
0873 4801       |H   |		Short_Literal	0x1
0874 481e       |H   |		Short_Literal	0x1e
0875 00da       |    |		Load_Top	At_Offset_2
0876 01d6       |    |		Execute	Vector,Field_Write
0877 00d9       |    |		Load_Top	At_Offset_1
0878 00d9       |    |		Load_Top	At_Offset_1
0879 e226       | &  |		Load	0x1,0x26
087a e221       | !  |		Load	0x1,0x21
087b 8038       | 8  |		Call	0x0,0x38
087c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
087d 0000 0000  |    |		.XXX[0x3]
087f 0000       |    |
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0896       |    |		.CONST	0x0896								; Address of begin
0881 0004       |    |		.CONST	0x0004								; Address of exception handler
0882 0002       |    |		.CONST	0x0002								; Number of locals
0883			INIT_0880:
0883 4801       |H   |		Short_Literal	0x1
0884 e5fe       |    |		Load	0x2,-0x2
0885 00e9       |    |		Load_Encached	String_Cache
0886 035b       | [  |		Declare_Type	Array,Constrained
0887 0337       | 7  |		Declare_Variable	Array
0888 00d8       |    |		Load_Top	At_Offset_0
0889 0335       | 5  |		Declare_Variable	Array,Duplicate
088a 00cd       |    |		Action	Spare6_Action
088b 00d9       |    |		Load_Top	At_Offset_1
088c 01d9       |    |		Execute	Vector,Reverse_Bounds
088d 0263       | c  |		Execute	Discrete,Above_Bound
088e 7005       |p   |		Jump_Nonzero	0x894
088f 4820       |H   |		Short_Literal	0x20
0890 00d9       |    |		Load_Top	At_Offset_1
0891 e403       |    |		Load	0x2,0x3
0892 01d6       |    |		Execute	Vector,Field_Write
0893 3ffb       |?   |		Loop_Increasing	0x88f
0894 00d9       |    |		Load_Top	At_Offset_1
0895 01d4       |    |		Execute	Vector,Structure_Write
0896			BODY_0880:
0896 00db       |    |		Load_Top	At_Offset_3
0897 01db       |    |		Execute	Vector,Length
0898 e5fe       |    |		Load	0x2,-0x2
0899 027c       | |  |		Execute	Discrete,Less
089a 680c       |h   |		Jump_Zero	0x8a7
089b 00db       |    |		Load_Top	At_Offset_3
089c 4801       |H   |		Short_Literal	0x1
089d e5ff       |    |		Load	0x2,-0x1
089e 01db       |    |		Execute	Vector,Length
089f 00d8       |    |		Load_Top	At_Offset_0
08a0 00e2       |    |		Load_Encached	Integer_Cache
08a1 0260       | `  |		Execute	Discrete,In_Type
08a2 7001       |p   |		Jump_Nonzero	0x8a4
08a3 0801       |    |		Execute_Immediate	Raise,0x1
08a4 00db       |    |		Load_Top	At_Offset_3
08a5 01ce       |    |		Execute	Vector,Slice_Write
08a6 7810       |x   |		Jump	0x8b7
08a7 00db       |    |		Load_Top	At_Offset_3
08a8 01dd       |    |		Execute	Vector,First
08a9 e5ff       |    |		Load	0x2,-0x1
08aa 01dd       |    |		Execute	Vector,First
08ab 0aff       |    |		Execute_Immediate	Plus,-0x1
08ac e5fe       |    |		Load	0x2,-0x2
08ad 0273       | s  |		Execute	Discrete,Plus
08ae 00d8       |    |		Load_Top	At_Offset_0
08af 00e2       |    |		Load_Encached	Integer_Cache
08b0 0260       | `  |		Execute	Discrete,In_Type
08b1 7001       |p   |		Jump_Nonzero	0x8b3
08b2 0801       |    |		Execute_Immediate	Raise,0x1
08b3 e5ff       |    |		Load	0x2,-0x1
08b4 01cf       |    |		Execute	Vector,Slice_Read
08b5 00d9       |    |		Load_Top	At_Offset_1
08b6 01d4       |    |		Execute	Vector,Structure_Write
08b7 00d8       |    |		Load_Top	At_Offset_0
08b8 00e9       |    |		Load_Encached	String_Cache
08b9 01c6       |    |		Execute	Vector,Convert_To_Formal
08ba 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08bb 0000 0000  |    |		.BLANK	0000[0x5]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c3       |    |		.CONST	0x08c3								; Address of begin
08c1 0004       |    |		.CONST	0x0004								; Address of exception handler
08c2 0001       |    |		.CONST	0x0001								; Number of locals
08c3			BODY_08c0:
08c3			INIT_08c0:
08c3 e229       | )  |		Load	0x1,0x29
08c4 7002       |p   |		Jump_Nonzero	0x8c7
08c5 e22e       | .  |		Load	0x1,0x2e
08c6 6816       |h   |		Jump_Zero	0x8dd
08c7 4800       |H   |		Short_Literal	0x0
08c8 e21b       |    |		Load	0x1,0x1b
08c9 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
08ca e21b       |    |		Load	0x1,0x1b
08cb 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
08cc 01d5       |    |		Execute	Vector,Field_Reference
08cd 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
08ce 0227       | '  |		Execute	Access,All_Reference
08cf 01d7       |    |		Execute	Vector,Field_Read
08d0 e226       | &  |		Load	0x1,0x26
08d1 e221       | !  |		Load	0x1,0x21
08d2 8034       | 4  |		Call	0x0,0x34
08d3 e5fc       |    |		Load	0x2,-0x4
08d4 e5fd       |    |		Load	0x2,-0x3
08d5 e5fe       |    |		Load	0x2,-0x2
08d6 e5ff       |    |		Load	0x2,-0x1
08d7 e226       | &  |		Load	0x1,0x26
08d8 e222       | "  |		Load	0x1,0x22
08d9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
08da e221       | !  |		Load	0x1,0x21
08db 804c       | L  |		Call	0x0,0x4c
08dc 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08dd 4800       |H   |		Short_Literal	0x0
08de e5fc       |    |		Load	0x2,-0x4
08df e5fd       |    |		Load	0x2,-0x3
08e0 e5fe       |    |		Load	0x2,-0x2
08e1 e5ff       |    |		Load	0x2,-0x1
08e2 e222       | "  |		Load	0x1,0x22
08e3 e221       | !  |		Load	0x1,0x21
08e4 804d       | M  |		Call	0x0,0x4d
08e5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08e6 0000 0000  |    |		.XXX[0x2]
08e8 ; --------------------------------------------------------------------------------------
08e8 ; SUBPROGRAM
08e8 ; --------------------------------------------------------------------------------------
08e8 08f3       |    |		.CONST	0x08f3								; Address of begin
08e9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ea 0003       |    |		.CONST	0x0003								; Number of locals
08eb			INIT_08e8:
08eb e04e       | N  |		Load	0x0,0x4e
08ec 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
08ed e04e       | N  |		Load	0x0,0x4e
08ee 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
08ef e04e       | N  |		Load	0x0,0x4e
08f0 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
08f1 03f1       |    |		Declare_Variable	Discrete,With_Value
08f2 00e3       |    |		Load_Encached	Natural_Cache
08f3			BODY_08e8:
08f3 00d9       |    |		Load_Top	At_Offset_1
08f4 602f       |`/  |		Indirect_Literal	Discrete,0x924,{0x00000000, 0x00320000}
08f5 0270       | p  |		Execute	Discrete,Divide
08f6 00d8       |    |		Load_Top	At_Offset_0
08f7 00e3       |    |		Load_Encached	Natural_Cache
08f8 0260       | `  |		Execute	Discrete,In_Type
08f9 7001       |p   |		Jump_Nonzero	0x8fb
08fa 0801       |    |		Execute_Immediate	Raise,0x1
08fb 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
08fc 00d9       |    |		Load_Top	At_Offset_1
08fd 4ff1       |O   |		Short_Literal	-0xf
08fe 00da       |    |		Load_Top	At_Offset_2
08ff 090f       |    |		Execute_Immediate	Binary_Scale,0xf
0900 6023       |`#  |		Indirect_Literal	Discrete,0x924,{0x00000000, 0x00320000}
0901 0141       | A  |		Execute	Discrete,Multiply_And_Scale
0902 00d8       |    |		Load_Top	At_Offset_0
0903 00e7       |    |		Load_Encached	Duration_Cache
0904 0260       | `  |		Execute	Discrete,In_Type
0905 7001       |p   |		Jump_Nonzero	0x907
0906 0801       |    |		Execute_Immediate	Raise,0x1
0907 0272       | r  |		Execute	Discrete,Minus
0908 00d8       |    |		Load_Top	At_Offset_0
0909 e04e       | N  |		Load	0x0,0x4e
090a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
090b 0260       | `  |		Execute	Discrete,In_Type
090c 7001       |p   |		Jump_Nonzero	0x90e
090d 0801       |    |		Execute_Immediate	Raise,0x1
090e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
090f 00d9       |    |		Load_Top	At_Offset_1
0910 0237       | 7  |		Execute	Float,Convert_From_Discrete
0911 580e       |X   |		Indirect_Literal	Float,0x920,3.0517578125e-05
0912 023b       | ;  |		Execute	Float,Times
0913 5808       |X   |		Indirect_Literal	Float,0x91c,21262214.0
0914 023b       | ;  |		Execute	Float,Times
0915 0235       | 5  |		Execute	Float,Round_To_Discrete
0916 e00c       |    |		Load	0x0,0xc
0917 025e       | ^  |		Execute	Discrete,Convert
0918 804f       | O  |		Call	0x0,0x4f
0919 a20f       |    |		Store_Unchecked	0x1,0xf
091a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
091b 0000       |    |		.XXX[0x1]
091c 4174 46f8  |AtF |		.DBL	21262214.0
091e 6000 0000  |`   |
0920 3f00 0000  |?   |		.DBL	3.0517578125e-05
0922 0000 0000  |    |
0924 0000 0000  |    |		.LITERAL	{0x00000000, 0x00320000}
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092d       | -  |		.CONST	0x092d								; Address of begin
0929 0004       |    |		.CONST	0x0004								; Address of exception handler
092a 0002       |    |		.CONST	0x0002								; Number of locals
092b			INIT_0928:
092b e00c       |    |		Load	0x0,0xc
092c 0007       |    |		Action	Break_Optional
092d			BODY_0928:
092d 4800       |H   |		Short_Literal	0x0
092e a22c       | ,  |		Store_Unchecked	0x1,0x2c
092f 00cf       |    |		Action	Mark_Auxiliary
0930 e5f9       |    |		Load	0x2,-0x7
0931 01d9       |    |		Execute	Vector,Reverse_Bounds
0932 0263       | c  |		Execute	Discrete,Above_Bound
0933 700a       |p   |		Jump_Nonzero	0x93e
0934 00d8       |    |		Load_Top	At_Offset_0
0935 e5f9       |    |		Load	0x2,-0x7
0936 01d7       |    |		Execute	Vector,Field_Read
0937 0f2c       | ,  |		Execute_Immediate	Equal,0x2c
0938 6803       |h   |		Jump_Zero	0x93c
0939 e22c       | ,  |		Load	0x1,0x2c
093a 0a01       |    |		Execute_Immediate	Plus,0x1
093b c22c       | ,  |		Store	0x1,0x2c
093c 00c8       |    |		Action	Pop_Auxiliary_Range
093d 3ff6       |?   |		Loop_Increasing	0x934
093e 00ce       |    |		Action	Pop_Auxiliary
093f e5f9       |    |		Load	0x2,-0x7
0940 01db       |    |		Execute	Vector,Length
0941 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0942 683b       |h;  |		Jump_Zero	0x97e
0943 4800       |H   |		Short_Literal	0x0
0944 e22c       | ,  |		Load	0x1,0x2c
0945 e217       |    |		Load	0x1,0x17
0946 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0947 a22d       | -  |		Store_Unchecked	0x1,0x2d
0948 4800       |H   |		Short_Literal	0x0
0949 a22c       | ,  |		Store_Unchecked	0x1,0x2c
094a e5f9       |    |		Load	0x2,-0x7
094b 01dd       |    |		Execute	Vector,First
094c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
094d 00cf       |    |		Action	Mark_Auxiliary
094e e5f9       |    |		Load	0x2,-0x7
094f 01d9       |    |		Execute	Vector,Reverse_Bounds
0950 0263       | c  |		Execute	Discrete,Above_Bound
0951 702b       |p+  |		Jump_Nonzero	0x97d
0952 00d8       |    |		Load_Top	At_Offset_0
0953 e5f9       |    |		Load	0x2,-0x7
0954 01d7       |    |		Execute	Vector,Field_Read
0955 0f2c       | ,  |		Execute_Immediate	Equal,0x2c
0956 6812       |h   |		Jump_Zero	0x969
0957 00db       |    |		Load_Top	At_Offset_3
0958 00d9       |    |		Load_Top	At_Offset_1
0959 0aff       |    |		Execute_Immediate	Plus,-0x1
095a e5f9       |    |		Load	0x2,-0x7
095b 01cf       |    |		Execute	Vector,Slice_Read
095c e050       | P  |		Load	0x0,0x50
095d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
095e e22c       | ,  |		Load	0x1,0x2c
095f e22d       | -  |		Load	0x1,0x2d
0960 0227       | '  |		Execute	Access,All_Reference
0961 01d6       |    |		Execute	Vector,Field_Write
0962 00d8       |    |		Load_Top	At_Offset_0
0963 0a01       |    |		Execute_Immediate	Plus,0x1
0964 c602       |    |		Store	0x3,0x2
0965 e22c       | ,  |		Load	0x1,0x2c
0966 0a01       |    |		Execute_Immediate	Plus,0x1
0967 c22c       | ,  |		Store	0x1,0x2c
0968 7812       |x   |		Jump	0x97b
0969 00d8       |    |		Load_Top	At_Offset_0
096a e5f9       |    |		Load	0x2,-0x7
096b 01dc       |    |		Execute	Vector,Last
096c 027f       |    |		Execute	Discrete,Equal
096d 680d       |h   |		Jump_Zero	0x97b
096e 00db       |    |		Load_Top	At_Offset_3
096f 00d9       |    |		Load_Top	At_Offset_1
0970 e5f9       |    |		Load	0x2,-0x7
0971 01cf       |    |		Execute	Vector,Slice_Read
0972 e050       | P  |		Load	0x0,0x50
0973 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0974 e22c       | ,  |		Load	0x1,0x2c
0975 e22d       | -  |		Load	0x1,0x2d
0976 0227       | '  |		Execute	Access,All_Reference
0977 01d6       |    |		Execute	Vector,Field_Write
0978 e22c       | ,  |		Load	0x1,0x2c
0979 0a01       |    |		Execute_Immediate	Plus,0x1
097a c22c       | ,  |		Store	0x1,0x2c
097b 00c8       |    |		Action	Pop_Auxiliary_Range
097c 3fd5       |?   |		Loop_Increasing	0x952
097d 00ce       |    |		Action	Pop_Auxiliary
097e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
097f 0000       |    |		.XXX[0x1]
0980 ; --------------------------------------------------------------------------------------
0980 ; SUBPROGRAM
0980 ; --------------------------------------------------------------------------------------
0980 0985       |    |		.CONST	0x0985								; Address of begin
0981 0004       |    |		.CONST	0x0004								; Address of exception handler
0982 0002       |    |		.CONST	0x0002								; Number of locals
0983			INIT_0980:
0983 e051       | Q  |		Load	0x0,0x51
0984 0337       | 7  |		Declare_Variable	Array
0985			BODY_0980:
0985 00d8       |    |		Load_Top	At_Offset_0
0986 e407       |    |		Load	0x2,0x7
0987 e406       |    |		Load	0x2,0x6
0988 e405       |    |		Load	0x2,0x5
0989 e404       |    |		Load	0x2,0x4
098a e5fb       |    |		Load	0x2,-0x5
098b 8052       | R  |		Call	0x0,0x52
098c c404       |    |		Store	0x2,0x4
098d c405       |    |		Store	0x2,0x5
098e c406       |    |		Store	0x2,0x6
098f c407       |    |		Store	0x2,0x7
0990 00d1       |    |		Pop_Control	Pop_Count_1
0991 481b       |H   |		Short_Literal	0x1b
0992 00d9       |    |		Load_Top	At_Offset_1
0993 01d7       |    |		Execute	Vector,Field_Read
0994 6813       |h   |		Jump_Zero	0x9a8
0995 e221       | !  |		Load	0x1,0x21
0996 8020       |    |		Call	0x0,0x20
0997 e221       | !  |		Load	0x1,0x21
0998 8024       | $  |		Call	0x0,0x24
0999 00d8       |    |		Load_Top	At_Offset_0
099a e00b       |    |		Load	0x0,0xb
099b 0260       | `  |		Execute	Discrete,In_Type
099c 7001       |p   |		Jump_Nonzero	0x99e
099d 0801       |    |		Execute_Immediate	Raise,0x1
099e e404       |    |		Load	0x2,0x4
099f 0272       | r  |		Execute	Discrete,Minus
09a0 e406       |    |		Load	0x2,0x6
09a1 00d8       |    |		Load_Top	At_Offset_0
09a2 e00b       |    |		Load	0x0,0xb
09a3 0260       | `  |		Execute	Discrete,In_Type
09a4 7001       |p   |		Jump_Nonzero	0x9a6
09a5 0801       |    |		Execute_Immediate	Raise,0x1
09a6 0272       | r  |		Execute	Discrete,Minus
09a7 c404       |    |		Store	0x2,0x4
09a8 481a       |H   |		Short_Literal	0x1a
09a9 00d9       |    |		Load_Top	At_Offset_1
09aa 01d7       |    |		Execute	Vector,Field_Read
09ab 6813       |h   |		Jump_Zero	0x9bf
09ac e221       | !  |		Load	0x1,0x21
09ad 8020       |    |		Call	0x0,0x20
09ae e221       | !  |		Load	0x1,0x21
09af 8025       | %  |		Call	0x0,0x25
09b0 00d8       |    |		Load_Top	At_Offset_0
09b1 e00b       |    |		Load	0x0,0xb
09b2 0260       | `  |		Execute	Discrete,In_Type
09b3 7001       |p   |		Jump_Nonzero	0x9b5
09b4 0801       |    |		Execute_Immediate	Raise,0x1
09b5 e405       |    |		Load	0x2,0x5
09b6 0272       | r  |		Execute	Discrete,Minus
09b7 e407       |    |		Load	0x2,0x7
09b8 00d8       |    |		Load_Top	At_Offset_0
09b9 e00b       |    |		Load	0x0,0xb
09ba 0260       | `  |		Execute	Discrete,In_Type
09bb 7001       |p   |		Jump_Nonzero	0x9bd
09bc 0801       |    |		Execute_Immediate	Raise,0x1
09bd 0272       | r  |		Execute	Discrete,Minus
09be c405       |    |		Store	0x2,0x5
09bf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09c0 ; --------------------------------------------------------------------------------------
09c0 ; SUBPROGRAM
09c0 ; --------------------------------------------------------------------------------------
09c0 09c6       |    |		.CONST	0x09c6								; Address of begin
09c1 0004       |    |		.CONST	0x0004								; Address of exception handler
09c2 0003       |    |		.CONST	0x0003								; Number of locals
09c3			INIT_09c0:
09c3 e00c       |    |		Load	0x0,0xc
09c4 0007       |    |		Action	Break_Optional
09c5 00e3       |    |		Load_Encached	Natural_Cache
09c6			BODY_09c0:
09c6 4800       |H   |		Short_Literal	0x0
09c7 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
09c8 e22c       | ,  |		Load	0x1,0x2c
09c9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
09ca 00cf       |    |		Action	Mark_Auxiliary
09cb 7807       |x   |		Jump	0x9d3
09cc 00d9       |    |		Load_Top	At_Offset_1
09cd 0a01       |    |		Execute_Immediate	Plus,0x1
09ce 005a       | Z  |		Store_Top	Discrete,At_Offset_2
09cf 00da       |    |		Load_Top	At_Offset_2
09d0 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
09d1 005b       | [  |		Store_Top	Discrete,At_Offset_3
09d2 00c9       |    |		Action	Pop_Auxiliary_Loop
09d3 00da       |    |		Load_Top	At_Offset_2
09d4 77f7       |w   |		Jump_Nonzero	0x9cc
09d5 00ce       |    |		Action	Pop_Auxiliary
09d6 00d8       |    |		Load_Top	At_Offset_0
09d7 e403       |    |		Load	0x2,0x3
09d8 e402       |    |		Load	0x2,0x2
09d9 823c       | <  |		Call	0x1,0x3c
09da 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09db 0000 0000  |    |		.BLANK	0000[0x5]
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09e6       |    |		.CONST	0x09e6								; Address of begin
09e1 0004       |    |		.CONST	0x0004								; Address of exception handler
09e2 0003       |    |		.CONST	0x0003								; Number of locals
09e3			INIT_09e0:
09e3 e00b       |    |		Load	0x0,0xb
09e4 0007       |    |		Action	Break_Optional
09e5 e00b       |    |		Load	0x0,0xb
09e6			BODY_09e0:
09e6 00cf       |    |		Action	Mark_Auxiliary
09e7 0007       |    |		Action	Break_Optional
09e8 e221       | !  |		Load	0x1,0x21
09e9 8053       | S  |		Call	0x0,0x53
09ea 680e       |h   |		Jump_Zero	0x9f9
09eb e411       |    |		Load	0x2,0x11
09ec e221       | !  |		Load	0x1,0x21
09ed 8054       | T  |		Call	0x0,0x54
09ee 00d1       |    |		Pop_Control	Pop_Count_1
09ef e411       |    |		Load	0x2,0x11
09f0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09f1 0f04       |    |		Execute_Immediate	Equal,0x4
09f2 6806       |h   |		Jump_Zero	0x9f9
09f3 e411       |    |		Load	0x2,0x11
09f4 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
09f5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
09f6 0f02       |    |		Execute_Immediate	Equal,0x2
09f7 6801       |h   |		Jump_Zero	0x9f9
09f8 7844       |xD  |		Jump	0xa3d
09f9 e40b       |    |		Load	0x2,0xb
09fa 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
09fb e40c       |    |		Load	0x2,0xc
09fc 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
09fd e40b       |    |		Load	0x2,0xb
09fe e40d       |    |		Load	0x2,0xd
09ff 0273       | s  |		Execute	Discrete,Plus
0a00 c40b       |    |		Store	0x2,0xb
0a01 e40b       |    |		Load	0x2,0xb
0a02 0d00       |    |		Execute_Immediate	Less,0x0
0a03 700b       |p   |		Jump_Nonzero	0xa0f
0a04 e40b       |    |		Load	0x2,0xb
0a05 00d8       |    |		Load_Top	At_Offset_0
0a06 e012       |    |		Load	0x0,0x12
0a07 0260       | `  |		Execute	Discrete,In_Type
0a08 7001       |p   |		Jump_Nonzero	0xa0a
0a09 0801       |    |		Execute_Immediate	Raise,0x1
0a0a e40f       |    |		Load	0x2,0xf
0a0b 0273       | s  |		Execute	Discrete,Plus
0a0c e406       |    |		Load	0x2,0x6
0a0d 027d       | }  |		Execute	Discrete,Greater
0a0e 6808       |h   |		Jump_Zero	0xa17
0a0f e40b       |    |		Load	0x2,0xb
0a10 e40d       |    |		Load	0x2,0xd
0a11 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0a12 0272       | r  |		Execute	Discrete,Minus
0a13 c40b       |    |		Store	0x2,0xb
0a14 e40d       |    |		Load	0x2,0xd
0a15 0275       | u  |		Execute	Discrete,Unary_Minus
0a16 c40d       |    |		Store	0x2,0xd
0a17 e40c       |    |		Load	0x2,0xc
0a18 e40e       |    |		Load	0x2,0xe
0a19 0273       | s  |		Execute	Discrete,Plus
0a1a c40c       |    |		Store	0x2,0xc
0a1b e40c       |    |		Load	0x2,0xc
0a1c 0d00       |    |		Execute_Immediate	Less,0x0
0a1d 700b       |p   |		Jump_Nonzero	0xa29
0a1e e40c       |    |		Load	0x2,0xc
0a1f 00d8       |    |		Load_Top	At_Offset_0
0a20 e012       |    |		Load	0x0,0x12
0a21 0260       | `  |		Execute	Discrete,In_Type
0a22 7001       |p   |		Jump_Nonzero	0xa24
0a23 0801       |    |		Execute_Immediate	Raise,0x1
0a24 e410       |    |		Load	0x2,0x10
0a25 0273       | s  |		Execute	Discrete,Plus
0a26 e407       |    |		Load	0x2,0x7
0a27 027d       | }  |		Execute	Discrete,Greater
0a28 6808       |h   |		Jump_Zero	0xa31
0a29 e40c       |    |		Load	0x2,0xc
0a2a e40e       |    |		Load	0x2,0xe
0a2b 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0a2c 0272       | r  |		Execute	Discrete,Minus
0a2d c40c       |    |		Store	0x2,0xc
0a2e e40e       |    |		Load	0x2,0xe
0a2f 0275       | u  |		Execute	Discrete,Unary_Minus
0a30 c40e       |    |		Store	0x2,0xe
0a31 00d9       |    |		Load_Top	At_Offset_1
0a32 00db       |    |		Load_Top	At_Offset_3
0a33 e410       |    |		Load	0x2,0x10
0a34 e40f       |    |		Load	0x2,0xf
0a35 e40c       |    |		Load	0x2,0xc
0a36 e40b       |    |		Load	0x2,0xb
0a37 e226       | &  |		Load	0x1,0x26
0a38 e222       | "  |		Load	0x1,0x22
0a39 e40a       |    |		Load	0x2,0xa
0a3a 8236       | 6  |		Call	0x1,0x36
0a3b 00c9       |    |		Action	Pop_Auxiliary_Loop
0a3c 7fab       |    |		Jump	0x9e8
0a3d 00ce       |    |		Action	Pop_Auxiliary
0a3e e221       | !  |		Load	0x1,0x21
0a3f 8055       | U  |		Call	0x0,0x55
0a40 c221       | !  |		Store	0x1,0x21
0a41 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a42 0000 0000  |    |		.BLANK	0000[0x6]
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a4f       | O  |		.CONST	0x0a4f								; Address of begin
0a49 0004       |    |		.CONST	0x0004								; Address of exception handler
0a4a 0003       |    |		.CONST	0x0003								; Number of locals
0a4b			INIT_0a48:
0a4b e210       |    |		Load	0x1,0x10
0a4c 0337       | 7  |		Declare_Variable	Array
0a4d e210       |    |		Load	0x1,0x10
0a4e 0337       | 7  |		Declare_Variable	Array
0a4f			BODY_0a48:
0a4f 00d9       |    |		Load_Top	At_Offset_1
0a50 582b       |X+  |		Indirect_Literal	Float,0xa7c,0.08726666666666666
0a51 4878       |Hx  |		Short_Literal	0x78
0a52 8238       | 8  |		Call	0x1,0x38
0a53 00d1       |    |		Pop_Control	Pop_Count_1
0a54 00d8       |    |		Load_Top	At_Offset_0
0a55 5826       |X&  |		Indirect_Literal	Float,0xa7c,0.08726666666666666
0a56 4879       |Hy  |		Short_Literal	0x79
0a57 8238       | 8  |		Call	0x1,0x38
0a58 00d1       |    |		Pop_Control	Pop_Count_1
0a59 e230       | 0  |		Load	0x1,0x30
0a5a 00d9       |    |		Load_Top	At_Offset_1
0a5b 00db       |    |		Load_Top	At_Offset_3
0a5c 8235       | 5  |		Call	0x1,0x35
0a5d 00d1       |    |		Pop_Control	Pop_Count_1
0a5e e402       |    |		Load	0x2,0x2
0a5f 0227       | '  |		Execute	Access,All_Reference
0a60 4800       |H   |		Short_Literal	0x0
0a61 e403       |    |		Load	0x2,0x3
0a62 0aff       |    |		Execute_Immediate	Plus,-0x1
0a63 4800       |H   |		Short_Literal	0x0
0a64 e231       | 1  |		Load	0x1,0x31
0a65 01d5       |    |		Execute	Vector,Field_Reference
0a66 01ce       |    |		Execute	Vector,Slice_Write
0a67 4800       |H   |		Short_Literal	0x0
0a68 a232       | 2  |		Store_Unchecked	0x1,0x32
0a69 e5fa       |    |		Load	0x2,-0x6
0a6a 0237       | 7  |		Execute	Float,Convert_From_Discrete
0a6b 580c       |X   |		Indirect_Literal	Float,0xa78,2.0
0a6c 023a       | :  |		Execute	Float,Divide
0a6d a233       | 3  |		Store_Unchecked	0x1,0x33
0a6e e5f9       |    |		Load	0x2,-0x7
0a6f 0237       | 7  |		Execute	Float,Convert_From_Discrete
0a70 5807       |X   |		Indirect_Literal	Float,0xa78,2.0
0a71 023a       | :  |		Execute	Float,Divide
0a72 a234       | 4  |		Store_Unchecked	0x1,0x34
0a73 4801       |H   |		Short_Literal	0x1
0a74 a227       | '  |		Store_Unchecked	0x1,0x27
0a75 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a76 0000 0000  |    |		.XXX[0x2]
0a78 4000 0000  |@   |		.DBL	2.0
0a7a 0000 0000  |    |
0a7c 3fb6 571b  |? W |		.DBL	0.08726666666666666
0a7e b75d 4094  | ]@ |
0a80 ; --------------------------------------------------------------------------------------
0a80 ; SUBPROGRAM
0a80 ; --------------------------------------------------------------------------------------
0a80 0a85       |    |		.CONST	0x0a85								; Address of begin
0a81 0004       |    |		.CONST	0x0004								; Address of exception handler
0a82 0003       |    |		.CONST	0x0003								; Number of locals
0a83			INIT_0a80:
0a83 00e8       |    |		Load_Encached	Character_Cache
0a84 00e8       |    |		Load_Encached	Character_Cache
0a85			BODY_0a80:
0a85 e7ff       |    |		Load	0x3,-0x1
0a86 01db       |    |		Execute	Vector,Length
0a87 e7fe       |    |		Load	0x3,-0x2
0a88 01db       |    |		Execute	Vector,Length
0a89 027e       | ~  |		Execute	Discrete,Not_Equal
0a8a 6802       |h   |		Jump_Zero	0xa8d
0a8b 4800       |H   |		Short_Literal	0x0
0a8c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0a8d 00cf       |    |		Action	Mark_Auxiliary
0a8e e7ff       |    |		Load	0x3,-0x1
0a8f 01db       |    |		Execute	Vector,Length
0a90 0aff       |    |		Execute_Immediate	Plus,-0x1
0a91 00d8       |    |		Load_Top	At_Offset_0
0a92 00e2       |    |		Load_Encached	Integer_Cache
0a93 0260       | `  |		Execute	Discrete,In_Type
0a94 7001       |p   |		Jump_Nonzero	0xa96
0a95 0801       |    |		Execute_Immediate	Raise,0x1
0a96 4800       |H   |		Short_Literal	0x0
0a97 00e3       |    |		Load_Encached	Natural_Cache
0a98 025c       | \  |		QQucode_0x025c
0a99 0263       | c  |		Execute	Discrete,Above_Bound
0a9a 7034       |p4  |		Jump_Nonzero	0xacf
0a9b e7ff       |    |		Load	0x3,-0x1
0a9c 01dd       |    |		Execute	Vector,First
0a9d 00d9       |    |		Load_Top	At_Offset_1
0a9e 0273       | s  |		Execute	Discrete,Plus
0a9f e7ff       |    |		Load	0x3,-0x1
0aa0 01d7       |    |		Execute	Vector,Field_Read
0aa1 a602       |    |		Store_Unchecked	0x3,0x2
0aa2 e7fe       |    |		Load	0x3,-0x2
0aa3 01dd       |    |		Execute	Vector,First
0aa4 00d9       |    |		Load_Top	At_Offset_1
0aa5 0273       | s  |		Execute	Discrete,Plus
0aa6 e7fe       |    |		Load	0x3,-0x2
0aa7 01d7       |    |		Execute	Vector,Field_Read
0aa8 a603       |    |		Store_Unchecked	0x3,0x3
0aa9 e602       |    |		Load	0x3,0x2
0aaa e603       |    |		Load	0x3,0x3
0aab 027e       | ~  |		Execute	Discrete,Not_Equal
0aac 6820       |h   |		Jump_Zero	0xacd
0aad e602       |    |		Load	0x3,0x2
0aae 4861       |Ha  |		Short_Literal	0x61
0aaf 487a       |Hz  |		Short_Literal	0x7a
0ab0 0262       | b  |		Execute	Discrete,In_Range
0ab1 6808       |h   |		Jump_Zero	0xaba
0ab2 e602       |    |		Load	0x3,0x2
0ab3 0ae0       |    |		Execute_Immediate	Plus,-0x20
0ab4 00d8       |    |		Load_Top	At_Offset_0
0ab5 00e8       |    |		Load_Encached	Character_Cache
0ab6 0260       | `  |		Execute	Discrete,In_Type
0ab7 7001       |p   |		Jump_Nonzero	0xab9
0ab8 0801       |    |		Execute_Immediate	Raise,0x1
0ab9 a602       |    |		Store_Unchecked	0x3,0x2
0aba 00db       |    |		Load_Top	At_Offset_3
0abb 4861       |Ha  |		Short_Literal	0x61
0abc 487a       |Hz  |		Short_Literal	0x7a
0abd 0262       | b  |		Execute	Discrete,In_Range
0abe 6808       |h   |		Jump_Zero	0xac7
0abf 00db       |    |		Load_Top	At_Offset_3
0ac0 0ae0       |    |		Execute_Immediate	Plus,-0x20
0ac1 00d8       |    |		Load_Top	At_Offset_0
0ac2 00e8       |    |		Load_Encached	Character_Cache
0ac3 0260       | `  |		Execute	Discrete,In_Type
0ac4 7001       |p   |		Jump_Nonzero	0xac6
0ac5 0801       |    |		Execute_Immediate	Raise,0x1
0ac6 a603       |    |		Store_Unchecked	0x3,0x3
0ac7 e602       |    |		Load	0x3,0x2
0ac8 e603       |    |		Load	0x3,0x3
0ac9 027e       | ~  |		Execute	Discrete,Not_Equal
0aca 6802       |h   |		Jump_Zero	0xacd
0acb 4800       |H   |		Short_Literal	0x0
0acc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0acd 00c8       |    |		Action	Pop_Auxiliary_Range
0ace 3fcc       |?   |		Loop_Increasing	0xa9b
0acf 00ce       |    |		Action	Pop_Auxiliary
0ad0 4801       |H   |		Short_Literal	0x1
0ad1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0ad2 0000 0000  |    |		.BLANK	0000[0x6]
0ad8 ; --------------------------------------------------------------------------------------
0ad8 ; SUBPROGRAM
0ad8 ; --------------------------------------------------------------------------------------
0ad8 0ae0       |    |		.CONST	0x0ae0								; Address of begin
0ad9 0004       |    |		.CONST	0x0004								; Address of exception handler
0ada 0002       |    |		.CONST	0x0002								; Number of locals
0adb			INIT_0ad8:
0adb e40a       |    |		Load	0x2,0xa
0adc e21b       |    |		Load	0x1,0x1b
0add 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0ade 01d5       |    |		Execute	Vector,Field_Reference
0adf 0007       |    |		Action	Break_Optional
0ae0			BODY_0ad8:
0ae0 e21b       |    |		Load	0x1,0x1b
0ae1 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0ae2 0227       | '  |		Execute	Access,All_Reference
0ae3 01dd       |    |		Execute	Vector,First
0ae4 e40a       |    |		Load	0x2,0xa
0ae5 e5fd       |    |		Load	0x2,-0x3
0ae6 0271       | q  |		Execute	Discrete,Times
0ae7 0273       | s  |		Execute	Discrete,Plus
0ae8 00d9       |    |		Load_Top	At_Offset_1
0ae9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0aea 4800       |H   |		Short_Literal	0x0
0aeb e21b       |    |		Load	0x1,0x1b
0aec 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0aed 0aff       |    |		Execute_Immediate	Plus,-0x1
0aee e214       |    |		Load	0x1,0x14
0aef 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0af0 00d8       |    |		Load_Top	At_Offset_0
0af1 0227       | '  |		Execute	Access,All_Reference
0af2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0af3 00d9       |    |		Load_Top	At_Offset_1
0af4 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0af5 4800       |H   |		Short_Literal	0x0
0af6 e21b       |    |		Load	0x1,0x1b
0af7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0af8 0aff       |    |		Execute_Immediate	Plus,-0x1
0af9 e215       |    |		Load	0x1,0x15
0afa 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0afb 00d9       |    |		Load_Top	At_Offset_1
0afc 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0afd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0afe 0000 0000  |    |		.XXX[0x2]
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b0c       |    |		.CONST	0x0b0c								; Address of begin
0b01 0004       |    |		.CONST	0x0004								; Address of exception handler
0b02 0004       |    |		.CONST	0x0004								; Number of locals
0b03			INIT_0b00:
0b03 e40a       |    |		Load	0x2,0xa
0b04 e21b       |    |		Load	0x1,0x1b
0b05 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0b06 01d5       |    |		Execute	Vector,Field_Reference
0b07 0007       |    |		Action	Break_Optional
0b08 e00c       |    |		Load	0x0,0xc
0b09 0007       |    |		Action	Break_Optional
0b0a e00c       |    |		Load	0x0,0xc
0b0b 0007       |    |		Action	Break_Optional
0b0c			BODY_0b00:
0b0c e229       | )  |		Load	0x1,0x29
0b0d 6804       |h   |		Jump_Zero	0xb12
0b0e e21b       |    |		Load	0x1,0x1b
0b0f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0b10 a404       |    |		Store_Unchecked	0x2,0x4
0b11 7802       |x   |		Jump	0xb14
0b12 4801       |H   |		Short_Literal	0x1
0b13 a404       |    |		Store_Unchecked	0x2,0x4
0b14 00cf       |    |		Action	Mark_Auxiliary
0b15 e404       |    |		Load	0x2,0x4
0b16 0aff       |    |		Execute_Immediate	Plus,-0x1
0b17 4800       |H   |		Short_Literal	0x0
0b18 0263       | c  |		Execute	Discrete,Above_Bound
0b19 707a       |pz  |		Jump_Nonzero	0xb94
0b1a 00cf       |    |		Action	Mark_Auxiliary
0b1b e21b       |    |		Load	0x1,0x1b
0b1c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0b1d 0aff       |    |		Execute_Immediate	Plus,-0x1
0b1e 4800       |H   |		Short_Literal	0x0
0b1f 0263       | c  |		Execute	Discrete,Above_Bound
0b20 7070       |pp  |		Jump_Nonzero	0xb91
0b21 00d8       |    |		Load_Top	At_Offset_0
0b22 e607       |    |		Load	0x3,0x7
0b23 4801       |H   |		Short_Literal	0x1
0b24 e21b       |    |		Load	0x1,0x1b
0b25 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b26 0253       | S  |		Execute	Discrete,Binary_Scale
0b27 0271       | q  |		Execute	Discrete,Times
0b28 00d8       |    |		Load_Top	At_Offset_0
0b29 e00c       |    |		Load	0x0,0xc
0b2a 0260       | `  |		Execute	Discrete,In_Type
0b2b 7001       |p   |		Jump_Nonzero	0xb2d
0b2c 0801       |    |		Execute_Immediate	Raise,0x1
0b2d 8056       | V  |		Call	0x0,0x56
0b2e c603       |    |		Store	0x3,0x3
0b2f e40a       |    |		Load	0x2,0xa
0b30 7003       |p   |		Jump_Nonzero	0xb34
0b31 e603       |    |		Load	0x3,0x3
0b32 a604       |    |		Store_Unchecked	0x3,0x4
0b33 780e       |x   |		Jump	0xb42
0b34 00db       |    |		Load_Top	At_Offset_3
0b35 00d9       |    |		Load_Top	At_Offset_1
0b36 4801       |H   |		Short_Literal	0x1
0b37 e21b       |    |		Load	0x1,0x1b
0b38 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b39 0253       | S  |		Execute	Discrete,Binary_Scale
0b3a 0271       | q  |		Execute	Discrete,Times
0b3b 00d8       |    |		Load_Top	At_Offset_0
0b3c e00c       |    |		Load	0x0,0xc
0b3d 0260       | `  |		Execute	Discrete,In_Type
0b3e 7001       |p   |		Jump_Nonzero	0xb40
0b3f 0801       |    |		Execute_Immediate	Raise,0x1
0b40 8056       | V  |		Call	0x0,0x56
0b41 c604       |    |		Store	0x3,0x4
0b42 4800       |H   |		Short_Literal	0x0
0b43 e21b       |    |		Load	0x1,0x1b
0b44 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0b45 01d7       |    |		Execute	Vector,Field_Read
0b46 e604       |    |		Load	0x3,0x4
0b47 e602       |    |		Load	0x3,0x2
0b48 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0b49 0227       | '  |		Execute	Access,All_Reference
0b4a 01d5       |    |		Execute	Vector,Field_Reference
0b4b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b4c 4800       |H   |		Short_Literal	0x0
0b4d a402       |    |		Store_Unchecked	0x2,0x2
0b4e e603       |    |		Load	0x3,0x3
0b4f a403       |    |		Store_Unchecked	0x2,0x3
0b50 00cf       |    |		Action	Mark_Auxiliary
0b51 781d       |x   |		Jump	0xb6f
0b52 e403       |    |		Load	0x2,0x3
0b53 4802       |H   |		Short_Literal	0x2
0b54 026f       | o  |		Execute	Discrete,Remainder
0b55 6812       |h   |		Jump_Zero	0xb68
0b56 e402       |    |		Load	0x2,0x2
0b57 e21b       |    |		Load	0x1,0x1b
0b58 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0b59 0227       | '  |		Execute	Access,All_Reference
0b5a 01d7       |    |		Execute	Vector,Field_Read
0b5b e604       |    |		Load	0x3,0x4
0b5c e602       |    |		Load	0x3,0x2
0b5d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0b5e 0227       | '  |		Execute	Access,All_Reference
0b5f 01d5       |    |		Execute	Vector,Field_Reference
0b60 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b61 8056       | V  |		Call	0x0,0x56
0b62 e604       |    |		Load	0x3,0x4
0b63 e602       |    |		Load	0x3,0x2
0b64 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0b65 0227       | '  |		Execute	Access,All_Reference
0b66 01d5       |    |		Execute	Vector,Field_Reference
0b67 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b68 e402       |    |		Load	0x2,0x2
0b69 0a01       |    |		Execute_Immediate	Plus,0x1
0b6a c402       |    |		Store	0x2,0x2
0b6b e403       |    |		Load	0x2,0x3
0b6c 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0b6d c403       |    |		Store	0x2,0x3
0b6e 00c9       |    |		Action	Pop_Auxiliary_Loop
0b6f e403       |    |		Load	0x2,0x3
0b70 77e1       |w   |		Jump_Nonzero	0xb52
0b71 00ce       |    |		Action	Pop_Auxiliary
0b72 e057       | W  |		Load	0x0,0x57
0b73 0337       | 7  |		Declare_Variable	Array
0b74 4801       |H   |		Short_Literal	0x1
0b75 4807       |H   |		Short_Literal	0x7
0b76 00da       |    |		Load_Top	At_Offset_2
0b77 01d6       |    |		Execute	Vector,Field_Write
0b78 4801       |H   |		Short_Literal	0x1
0b79 4806       |H   |		Short_Literal	0x6
0b7a 00da       |    |		Load_Top	At_Offset_2
0b7b 01d6       |    |		Execute	Vector,Field_Write
0b7c 4801       |H   |		Short_Literal	0x1
0b7d 4805       |H   |		Short_Literal	0x5
0b7e 00da       |    |		Load_Top	At_Offset_2
0b7f 01d6       |    |		Execute	Vector,Field_Write
0b80 4804       |H   |		Short_Literal	0x4
0b81 4800       |H   |		Short_Literal	0x0
0b82 4800       |H   |		Short_Literal	0x0
0b83 00d9       |    |		Load_Top	At_Offset_1
0b84 e60b       |    |		Load	0x3,0xb
0b85 01d6       |    |		Execute	Vector,Field_Write
0b86 3ffb       |?   |		Loop_Increasing	0xb82
0b87 e057       | W  |		Load	0x0,0x57
0b88 01c3       |    |		Execute	Vector,Check_In_Type
0b89 e604       |    |		Load	0x3,0x4
0b8a e602       |    |		Load	0x3,0x2
0b8b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0b8c 0227       | '  |		Execute	Access,All_Reference
0b8d 01d5       |    |		Execute	Vector,Field_Reference
0b8e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0b8f 00c8       |    |		Action	Pop_Auxiliary_Range
0b90 3f90       |?   |		Loop_Increasing	0xb21
0b91 00ce       |    |		Action	Pop_Auxiliary
0b92 00c8       |    |		Action	Pop_Auxiliary_Range
0b93 3f86       |?   |		Loop_Increasing	0xb1a
0b94 00ce       |    |		Action	Pop_Auxiliary
0b95 4800       |H   |		Short_Literal	0x0
0b96 00db       |    |		Load_Top	At_Offset_3
0b97 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b98 4800       |H   |		Short_Literal	0x0
0b99 00db       |    |		Load_Top	At_Offset_3
0b9a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0b9b 4800       |H   |		Short_Literal	0x0
0b9c 00db       |    |		Load_Top	At_Offset_3
0b9d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0b9e 00cf       |    |		Action	Mark_Auxiliary
0b9f e5fd       |    |		Load	0x2,-0x3
0ba0 0aff       |    |		Execute_Immediate	Plus,-0x1
0ba1 4800       |H   |		Short_Literal	0x0
0ba2 0263       | c  |		Execute	Discrete,Above_Bound
0ba3 700f       |p   |		Jump_Nonzero	0xbb3
0ba4 e602       |    |		Load	0x3,0x2
0ba5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0ba6 00d9       |    |		Load_Top	At_Offset_1
0ba7 0273       | s  |		Execute	Discrete,Plus
0ba8 e21b       |    |		Load	0x1,0x1b
0ba9 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0baa 0227       | '  |		Execute	Access,All_Reference
0bab 01d7       |    |		Execute	Vector,Field_Read
0bac e602       |    |		Load	0x3,0x2
0bad 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0bae 8056       | V  |		Call	0x0,0x56
0baf e602       |    |		Load	0x3,0x2
0bb0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0bb1 00c8       |    |		Action	Pop_Auxiliary_Range
0bb2 3ff1       |?   |		Loop_Increasing	0xba4
0bb3 00c9       |    |		Action	Pop_Auxiliary_Loop
0bb4 e21b       |    |		Load	0x1,0x1b
0bb5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0bb6 0aff       |    |		Execute_Immediate	Plus,-0x1
0bb7 4800       |H   |		Short_Literal	0x0
0bb8 0263       | c  |		Execute	Discrete,Above_Bound
0bb9 7032       |p2  |		Jump_Nonzero	0xbec
0bba 4800       |H   |		Short_Literal	0x0
0bbb e21b       |    |		Load	0x1,0x1b
0bbc 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0bbd 01d7       |    |		Execute	Vector,Field_Read
0bbe 00d9       |    |		Load_Top	At_Offset_1
0bbf e602       |    |		Load	0x3,0x2
0bc0 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0bc1 0227       | '  |		Execute	Access,All_Reference
0bc2 01d6       |    |		Execute	Vector,Field_Write
0bc3 4800       |H   |		Short_Literal	0x0
0bc4 a402       |    |		Store_Unchecked	0x2,0x2
0bc5 00d8       |    |		Load_Top	At_Offset_0
0bc6 a403       |    |		Store_Unchecked	0x2,0x3
0bc7 00cf       |    |		Action	Mark_Auxiliary
0bc8 781e       |x   |		Jump	0xbe7
0bc9 e403       |    |		Load	0x2,0x3
0bca 4802       |H   |		Short_Literal	0x2
0bcb 026f       | o  |		Execute	Discrete,Remainder
0bcc 6813       |h   |		Jump_Zero	0xbe0
0bcd e602       |    |		Load	0x3,0x2
0bce 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0bcf e402       |    |		Load	0x2,0x2
0bd0 0273       | s  |		Execute	Discrete,Plus
0bd1 e21b       |    |		Load	0x1,0x1b
0bd2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0bd3 0227       | '  |		Execute	Access,All_Reference
0bd4 01d7       |    |		Execute	Vector,Field_Read
0bd5 00da       |    |		Load_Top	At_Offset_2
0bd6 e602       |    |		Load	0x3,0x2
0bd7 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0bd8 0227       | '  |		Execute	Access,All_Reference
0bd9 01d7       |    |		Execute	Vector,Field_Read
0bda 8056       | V  |		Call	0x0,0x56
0bdb 00da       |    |		Load_Top	At_Offset_2
0bdc e602       |    |		Load	0x3,0x2
0bdd 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0bde 0227       | '  |		Execute	Access,All_Reference
0bdf 01d6       |    |		Execute	Vector,Field_Write
0be0 e402       |    |		Load	0x2,0x2
0be1 0a01       |    |		Execute_Immediate	Plus,0x1
0be2 c402       |    |		Store	0x2,0x2
0be3 e403       |    |		Load	0x2,0x3
0be4 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0be5 c403       |    |		Store	0x2,0x3
0be6 00c9       |    |		Action	Pop_Auxiliary_Loop
0be7 e403       |    |		Load	0x2,0x3
0be8 77e0       |w   |		Jump_Nonzero	0xbc9
0be9 00ce       |    |		Action	Pop_Auxiliary
0bea 00c8       |    |		Action	Pop_Auxiliary_Range
0beb 3fce       |?   |		Loop_Increasing	0xbba
0bec 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0bed 0000 0000  |    |		.XXX[0x3]
0bef 0000       |    |
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bf8       |    |		.CONST	0x0bf8								; Address of begin
0bf1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bf2 0002       |    |		.CONST	0x0002								; Number of locals
0bf3			INIT_0bf0:
0bf3 e408       |    |		Load	0x2,0x8
0bf4 e21b       |    |		Load	0x1,0x1b
0bf5 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0bf6 01d5       |    |		Execute	Vector,Field_Reference
0bf7 0007       |    |		Action	Break_Optional
0bf8			BODY_0bf0:
0bf8 e229       | )  |		Load	0x1,0x29
0bf9 6804       |h   |		Jump_Zero	0xbfe
0bfa e21b       |    |		Load	0x1,0x1b
0bfb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0bfc a404       |    |		Store_Unchecked	0x2,0x4
0bfd 7802       |x   |		Jump	0xc00
0bfe 4801       |H   |		Short_Literal	0x1
0bff a404       |    |		Store_Unchecked	0x2,0x4
0c00 00cf       |    |		Action	Mark_Auxiliary
0c01 e404       |    |		Load	0x2,0x4
0c02 0aff       |    |		Execute_Immediate	Plus,-0x1
0c03 4800       |H   |		Short_Literal	0x0
0c04 0263       | c  |		Execute	Discrete,Above_Bound
0c05 703a       |p:  |		Jump_Nonzero	0xc40
0c06 e5ff       |    |		Load	0x2,-0x1
0c07 00d9       |    |		Load_Top	At_Offset_1
0c08 e21b       |    |		Load	0x1,0x1b
0c09 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0c0a 0271       | q  |		Execute	Discrete,Times
0c0b 0273       | s  |		Execute	Discrete,Plus
0c0c c402       |    |		Store	0x2,0x2
0c0d e402       |    |		Load	0x2,0x2
0c0e e602       |    |		Load	0x3,0x2
0c0f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c10 0227       | '  |		Execute	Access,All_Reference
0c11 01d5       |    |		Execute	Vector,Field_Reference
0c12 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c13 a403       |    |		Store_Unchecked	0x2,0x3
0c14 e5fe       |    |		Load	0x2,-0x2
0c15 e402       |    |		Load	0x2,0x2
0c16 e602       |    |		Load	0x3,0x2
0c17 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c18 0227       | '  |		Execute	Access,All_Reference
0c19 01d6       |    |		Execute	Vector,Field_Write
0c1a e403       |    |		Load	0x2,0x3
0c1b e402       |    |		Load	0x2,0x2
0c1c e602       |    |		Load	0x3,0x2
0c1d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c1e 0227       | '  |		Execute	Access,All_Reference
0c1f 01d5       |    |		Execute	Vector,Field_Reference
0c20 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0c21 e057       | W  |		Load	0x0,0x57
0c22 0337       | 7  |		Declare_Variable	Array
0c23 4801       |H   |		Short_Literal	0x1
0c24 4807       |H   |		Short_Literal	0x7
0c25 00da       |    |		Load_Top	At_Offset_2
0c26 01d6       |    |		Execute	Vector,Field_Write
0c27 4801       |H   |		Short_Literal	0x1
0c28 4806       |H   |		Short_Literal	0x6
0c29 00da       |    |		Load_Top	At_Offset_2
0c2a 01d6       |    |		Execute	Vector,Field_Write
0c2b 4801       |H   |		Short_Literal	0x1
0c2c 4805       |H   |		Short_Literal	0x5
0c2d 00da       |    |		Load_Top	At_Offset_2
0c2e 01d6       |    |		Execute	Vector,Field_Write
0c2f 4804       |H   |		Short_Literal	0x4
0c30 4800       |H   |		Short_Literal	0x0
0c31 4800       |H   |		Short_Literal	0x0
0c32 00d9       |    |		Load_Top	At_Offset_1
0c33 e606       |    |		Load	0x3,0x6
0c34 01d6       |    |		Execute	Vector,Field_Write
0c35 3ffb       |?   |		Loop_Increasing	0xc31
0c36 e057       | W  |		Load	0x0,0x57
0c37 01c3       |    |		Execute	Vector,Check_In_Type
0c38 e402       |    |		Load	0x2,0x2
0c39 e602       |    |		Load	0x3,0x2
0c3a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0c3b 0227       | '  |		Execute	Access,All_Reference
0c3c 01d5       |    |		Execute	Vector,Field_Reference
0c3d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0c3e 00c8       |    |		Action	Pop_Auxiliary_Range
0c3f 3fc6       |?   |		Loop_Increasing	0xc06
0c40 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c41 ; --------------------------------------------------------------------------------------
0c41 ; STRING TABLE
0c41 ; --------------------------------------------------------------------------------------
0c41 0014       |    |		.STRTAB	0x0014->0x0c4b							; "nothing to draw"
0c42 0021       | !  |		.STRTAB	0x0021->0x0c52							; "Cannot open display:"
0c43 0033       | 3  |		.STRTAB	0x0033->0x0c5c							; "cant get window attributes (size)"
0c44 0052       | R  |		.STRTAB	0x0052->0x0c6d							; "can't find object "
0c45 0062       | b  |		.STRTAB	0x0062->0x0c76							; "Name            Short Name    #Vert.  #Edges  #Faces  Dual"
0c46 009a       |    |		.STRTAB	0x009a->0x0c93							; "ico: "
0c47 009d       |    |		.STRTAB	0x009d->0x0c95							; "can't get default colormap"
0c48 00b5       |    |		.STRTAB	0x00b5->0x0ca2							; "can't allocate color planes"
0c49 00ce       |    |		.STRTAB	0x00ce->0x0cb0							; "no such color "
0c4a 00da       |    |		.STREND 0x00da->0x0cb7
0c4b 6e6f 7468  |noth|		.STRTAB_STRINGS
0cb7 0000       |    |		.XXX[0x1]
0cb8 ; --------------------------------------------------------------------------------------
0cb8 ; Debug Table
0cb8 ; --------------------------------------------------------------------------------------
0cb8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x6887,0x0000,0x0001,0x001c
0cbe 000b 0d2e  |   .|		.DBG4T	0x000b,0x0d2e,0x8000,0x0000
0cc2 000e 0d31  |   1|		.DBG4T	0x000e,0x0d31,0x8000,0x0000
0cc6 010b 0d78  |   x|		.DBG4T	0x010b,0x0d78,0x0001,0x0000
0cca 030b 0dd4  |    |		.DBG4T	0x030b,0x0dd4,0x0001,0x0000
0cce 034b 0dd9  | K  |		.DBG4T	0x034b,0x0dd9,0x0001,0x0000
0cd2 058b 0e3b  |   ;|		.DBG4T	0x058b,0x0e3b,0x0002,0x0000
0cd6 05b3 0e42  |   B|		.DBG4T	0x05b3,0x0e42,0x0001,0x4000
0cda 0613 0e68  |   h|		.DBG4T	0x0613,0x0e68,0x0001,0x0000
0cde 065b 0e72  | [ r|		.DBG4T	0x065b,0x0e72,0x0001,0x0000
0ce2 066b 0e76  | k v|		.DBG4T	0x066b,0x0e76,0x0001,0x0000
0ce6 0693 0e7c  |   ||		.DBG4T	0x0693,0x0e7c,0x0001,0x0000
0cea 074b 0ea6  | K  |		.DBG4T	0x074b,0x0ea6,0x0001,0x0000
0cee 07cb 0eb0  |    |		.DBG4T	0x07cb,0x0eb0,0x0001,0x0000
0cf2 07eb 0eba  |    |		.DBG4T	0x07eb,0x0eba,0x0001,0x0000
0cf6 0813 0ec3  |    |		.DBG4T	0x0813,0x0ec3,0x0001,0x0000
0cfa 082b 0ec7  | +  |		.DBG4T	0x082b,0x0ec7,0x0001,0x0000
0cfe 0883 0ed3  |    |		.DBG4T	0x0883,0x0ed3,0x0002,0x0000
0d02 08c3 0eda  |    |		.DBG4T	0x08c3,0x0eda,0x0001,0x0000
0d06 08eb 0ee0  |    |		.DBG4T	0x08eb,0x0ee0,0x0004,0x0000
0d0a 092b 0ee7  | +  |		.DBG4T	0x092b,0x0ee7,0x0004,0x0000
0d0e 0983 0efa  |    |		.DBG4T	0x0983,0x0efa,0x0004,0x0000
0d12 09c3 0f02  |    |		.DBG4T	0x09c3,0x0f02,0x0004,0x4000
0d16 09e3 0f12  |    |		.DBG4T	0x09e3,0x0f12,0x0004,0x0000
0d1a 0a4b 0f27  | K '|		.DBG4T	0x0a4b,0x0f27,0x0004,0x0000
0d1e 0a83 0f33  |   3|		.DBG4T	0x0a83,0x0f33,0x0002,0x0000
0d22 0adb 0f44  |   D|		.DBG4T	0x0adb,0x0f44,0x0004,0x0000
0d26 0b03 0f4a  |   J|		.DBG4T	0x0b03,0x0f4a,0x0004,0x4000
0d2a 0bf3 0f8f  |    |		.DBG4T	0x0bf3,0x0f8f,0x0004,0x0000
0d2e ; --------------------------------------------------------------------------------------
0d2e ; Debug chain
0d2e ; --------------------------------------------------------------------------------------
0d2e 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0d30 000b       |    |		.DBGLNO	0x000b
0d31 ; --------------------------------------------------------------------------------------
0d31 ; Debug chain
0d31 ; --------------------------------------------------------------------------------------
0d31 0044 0001  | D  |		.DBGLEN	0x0044,0x0001
0d33 000e 0013  |    |		.DBGLNO	0x000e,0x0013,0x0015,0x001d,0x0021,0x0027,0x003d,0x0041,0x0045,0x0049,0x004d,0x0056,0x005c,0x006f,0x0071,0x0079,0x0080,0x0097,0x009b,0x009f,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b2,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00bf,0x00c1,0x00c2,0x00c3,0x00c4,0x00c6,0x00c8,0x00ca,0x00cc,0x00ce,0x00d0,0x00d2,0x00d4,0x00d6,0x00d8,0x00da,0x00dc,0x00de,0x00e0,0x00e2,0x00e4,0x00e6,0x00e8,0x00ea,0x00ec,0x00ee,0x00f0,0x00f2,0x00f4,0x00f6,0x00f8,0x00fa,0x00fc,0x0100
0d78 ; --------------------------------------------------------------------------------------
0d78 ; Debug chain
0d78 ; --------------------------------------------------------------------------------------
0d78 0014 0046  |   F|		.DBGLEN	0x0014,0x0046
0d7a 010b 010d  |    |		.DBGLNO	0x010b,0x010d,0x010f,0x0111,0x0113,0x0115,0x0117,0x011b,0x011f,0x0121,0x0123,0x0125,0x0127,0x0129,0x012b,0x012d,0x0131,0x0135,0x0139,0x013b,0x0145,0x0146,0x0148,0x014a,0x014c,0x014e,0x0151,0x0153,0x0154,0x0155,0x0159,0x015c,0x0162,0x0166,0x016d,0x016f,0x0174,0x017a,0x017f,0x0184,0x0186,0x018a,0x018c,0x018e,0x0193,0x0199,0x019b,0x019d,0x01aa,0x01b7,0x01c0,0x01c1,0x01da,0x01dd,0x01e0,0x0225,0x022e,0x0231,0x0238,0x023a,0x023d,0x0240,0x0243,0x024a,0x024e,0x0252,0x0254,0x0257,0x025f,0x0284,0x0289,0x028b,0x0290,0x02a0,0x02a2,0x02a5,0x02a8,0x02ac,0x02b0,0x02b2,0x02b4,0x02b6,0x02b9,0x02bb,0x02bd,0x02d4,0x02eb,0x02ed,0x02ef,0x02f4
0dd4 ; --------------------------------------------------------------------------------------
0dd4 ; Debug chain
0dd4 ; --------------------------------------------------------------------------------------
0dd4 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0dd6 030c 030f  |    |		.DBGLNO	0x030c,0x030f,0x0312
0dd9 ; --------------------------------------------------------------------------------------
0dd9 ; Debug chain
0dd9 ; --------------------------------------------------------------------------------------
0dd9 0011 004f  |   O|		.DBGLEN	0x0011,0x004f
0ddb 034b 0350  | K P|		.DBGLNO	0x034b,0x0350,0x0355,0x035a,0x035f,0x0361,0x0363,0x0365,0x0367,0x0369,0x036e,0x0373,0x0375,0x0377,0x0379,0x037b,0x037c,0x0383,0x0385,0x0386,0x0389,0x0395,0x039a,0x039d,0x03a2,0x03b5,0x03c8,0x03cb,0x03d1,0x03d6,0x03d8,0x03dc,0x03de,0x03e1,0x03e3,0x03e6,0x03e8,0x03ea,0x0405,0x0416,0x0418,0x041c,0x0421,0x0426,0x0429,0x042c,0x0431,0x0438,0x0446,0x0449,0x044a,0x044c,0x044e,0x0454,0x0456,0x0463,0x0468,0x046f,0x0479,0x0486,0x0492,0x0495,0x049a,0x049f,0x04a3,0x04a5,0x04ac,0x04b3,0x04b8,0x04bd,0x04c2,0x04cc,0x04d6,0x04e0,0x04ea,0x04f0,0x04f2,0x04f9,0x04fb,0x04fd,0x050a,0x050c,0x0527,0x0538,0x053c,0x054a,0x0554,0x0556,0x0559,0x055b,0x0562,0x0569,0x056c,0x056e,0x0574,0x0576
0e3b ; --------------------------------------------------------------------------------------
0e3b ; Debug chain
0e3b ; --------------------------------------------------------------------------------------
0e3b 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0e3d 058b 058e  |    |		.DBGLNO	0x058b,0x058e,0x0591,0x05a3,0x05aa
0e42 ; --------------------------------------------------------------------------------------
0e42 ; Debug chain
0e42 ; --------------------------------------------------------------------------------------
0e42 0002 0011  |    |		.DBGLEN	0x0002,0x0011
0e44 05b3 05b4  |    |		.DBGLNO	0x05b3,0x05b4,0x05b5,0x05b8,0x05bb,0x05be,0x05c5,0x05c7,0x05cc,0x05d1,0x05d6,0x05de,0x05e3,0x05e8,0x05ed,0x05f4,0x05f9,0x05fe,0x0603
0e57 0001 0002  |    |		.XXX[0x11]
0e59 0003 0004  |    |
0e5b 0011 0005  |    |
0e5d 0006 0007  |    |
0e5f 0008 0009  |    |
0e61 000a 000b  |    |
0e63 000c 000d  |    |
0e65 000e 000f  |    |
0e67 0010       |    |
0e68 ; --------------------------------------------------------------------------------------
0e68 ; Debug chain
0e68 ; --------------------------------------------------------------------------------------
0e68 0000 0008  |    |		.DBGLEN	0x0000,0x0008
0e6a 0613 0618  |    |		.DBGLNO	0x0613,0x0618,0x061b,0x0625,0x062f,0x0639,0x0643,0x064d
0e72 ; --------------------------------------------------------------------------------------
0e72 ; Debug chain
0e72 ; --------------------------------------------------------------------------------------
0e72 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0e74 065b 0661  | [ a|		.DBGLNO	0x065b,0x0661
0e76 ; --------------------------------------------------------------------------------------
0e76 ; Debug chain
0e76 ; --------------------------------------------------------------------------------------
0e76 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e78 066c 066f  | l o|		.DBGLNO	0x066c,0x066f,0x0672,0x067a
0e7c ; --------------------------------------------------------------------------------------
0e7c ; Debug chain
0e7c ; --------------------------------------------------------------------------------------
0e7c 0004 0024  |   $|		.DBGLEN	0x0004,0x0024
0e7e 0693 0695  |    |		.DBGLNO	0x0693,0x0695,0x0697,0x0699,0x069e,0x06a1,0x06a6,0x06a8,0x06b2,0x06b5,0x06bb,0x06c3,0x06c6,0x06c8,0x06cb,0x06ce,0x06d3,0x06d7,0x06dd,0x06e1,0x06e4,0x06f9,0x06fb,0x06fe,0x0701,0x0704,0x0709,0x070e,0x0711,0x0715,0x071a,0x071e,0x0720,0x072b,0x072f,0x0734,0x0736,0x0739,0x073b,0x073e
0ea6 ; --------------------------------------------------------------------------------------
0ea6 ; Debug chain
0ea6 ; --------------------------------------------------------------------------------------
0ea6 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0ea8 074b 074f  | K O|		.DBGLNO	0x074b,0x074f,0x0754,0x0758,0x0779,0x079a,0x07bb,0x07be
0eb0 ; --------------------------------------------------------------------------------------
0eb0 ; Debug chain
0eb0 ; --------------------------------------------------------------------------------------
0eb0 0003 0005  |    |		.DBGLEN	0x0003,0x0005
0eb2 07cb 07cd  |    |		.DBGLNO	0x07cb,0x07cd,0x07cf,0x07d2,0x07d4,0x07d7,0x07da,0x07df
0eba ; --------------------------------------------------------------------------------------
0eba ; Debug chain
0eba ; --------------------------------------------------------------------------------------
0eba 0003 0004  |    |		.DBGLEN	0x0003,0x0004
0ebc 07eb 07ed  |    |		.DBGLNO	0x07eb,0x07ed,0x07f1,0x07f5,0x07fe,0x0800,0x0806
0ec3 ; --------------------------------------------------------------------------------------
0ec3 ; Debug chain
0ec3 ; --------------------------------------------------------------------------------------
0ec3 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0ec5 0813 0816  |    |		.DBGLNO	0x0813,0x0816
0ec7 ; --------------------------------------------------------------------------------------
0ec7 ; Debug chain
0ec7 ; --------------------------------------------------------------------------------------
0ec7 0002 0008  |    |		.DBGLEN	0x0002,0x0008
0ec9 082b 082f  | + /|		.DBGLNO	0x082b,0x082f,0x0831,0x0834,0x083c,0x0849,0x0854,0x0871,0x0873,0x0877
0ed3 ; --------------------------------------------------------------------------------------
0ed3 ; Debug chain
0ed3 ; --------------------------------------------------------------------------------------
0ed3 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0ed5 0883 0896  |    |		.DBGLNO	0x0883,0x0896,0x089b,0x08a7,0x08b7
0eda ; --------------------------------------------------------------------------------------
0eda ; Debug chain
0eda ; --------------------------------------------------------------------------------------
0eda 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0edc 08c3 08c7  |    |		.DBGLNO	0x08c3,0x08c7,0x08d3,0x08dd
0ee0 ; --------------------------------------------------------------------------------------
0ee0 ; Debug chain
0ee0 ; --------------------------------------------------------------------------------------
0ee0 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0ee2 08eb 08f2  |    |		.DBGLNO	0x08eb,0x08f2,0x08f3,0x08fc,0x090f
0ee7 ; --------------------------------------------------------------------------------------
0ee7 ; Debug chain
0ee7 ; --------------------------------------------------------------------------------------
0ee7 0001 0010  |    |		.DBGLEN	0x0001,0x0010
0ee9 092b 092d  | + -|		.DBGLNO	0x092b,0x092d,0x0930,0x0934,0x0939,0x093f,0x0943,0x0948,0x094a,0x094e,0x0952,0x0957,0x0962,0x0965,0x0969,0x096e,0x0978
0efa ; --------------------------------------------------------------------------------------
0efa ; Debug chain
0efa ; --------------------------------------------------------------------------------------
0efa 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0efc 0983 0985  |    |		.DBGLNO	0x0983,0x0985,0x0991,0x0995,0x09a8,0x09ac
0f02 ; --------------------------------------------------------------------------------------
0f02 ; Debug chain
0f02 ; --------------------------------------------------------------------------------------
0f02 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0f04 09c3 09c5  |    |		.DBGLNO	0x09c3,0x09c5,0x09c6,0x09c8,0x09cc,0x09cf,0x09d3,0x09d6
0f0c 0001 0002  |    |		.XXX[0x6]
0f0e 0004 0005  |    |
0f10 0003 0006  |    |
0f12 ; --------------------------------------------------------------------------------------
0f12 ; Debug chain
0f12 ; --------------------------------------------------------------------------------------
0f12 0002 0011  |    |		.DBGLEN	0x0002,0x0011
0f14 09e3 09e5  |    |		.DBGLNO	0x09e3,0x09e5,0x09e7,0x09e8,0x09eb,0x09ef,0x09f8,0x09f9,0x09fb,0x09fd,0x0a01,0x0a0f,0x0a14,0x0a17,0x0a1b,0x0a29,0x0a2e,0x0a31,0x0a3e
0f27 ; --------------------------------------------------------------------------------------
0f27 ; Debug chain
0f27 ; --------------------------------------------------------------------------------------
0f27 0002 0008  |    |		.DBGLEN	0x0002,0x0008
0f29 0a4b 0a4d  | K M|		.DBGLNO	0x0a4b,0x0a4d,0x0a4f,0x0a54,0x0a59,0x0a5e,0x0a67,0x0a69,0x0a6e,0x0a73
0f33 ; --------------------------------------------------------------------------------------
0f33 ; Debug chain
0f33 ; --------------------------------------------------------------------------------------
0f33 0002 000d  |    |		.DBGLEN	0x0002,0x000d
0f35 0a83 0a84  |    |		.DBGLNO	0x0a83,0x0a84,0x0a85,0x0a8b,0x0a8e,0x0a9b,0x0aa2,0x0aa9,0x0aad,0x0ab2,0x0aba,0x0abf,0x0ac7,0x0acb,0x0ad0
0f44 ; --------------------------------------------------------------------------------------
0f44 ; Debug chain
0f44 ; --------------------------------------------------------------------------------------
0f44 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0f46 0adb 0ae0  |    |		.DBGLNO	0x0adb,0x0ae0,0x0aea,0x0af5
0f4a ; --------------------------------------------------------------------------------------
0f4a ; Debug chain
0f4a ; --------------------------------------------------------------------------------------
0f4a 0003 0020  |    |		.DBGLEN	0x0003,0x0020
0f4c 0b03 0b08  |    |		.DBGLNO	0x0b03,0x0b08,0x0b0a,0x0b0c,0x0b0e,0x0b12,0x0b15,0x0b1b,0x0b21,0x0b2f,0x0b31,0x0b34,0x0b42,0x0b4c,0x0b4e,0x0b52,0x0b56,0x0b68,0x0b6b,0x0b6f,0x0b72,0x0b95,0x0b98,0x0b9b,0x0b9f,0x0ba4,0x0bb4,0x0bba,0x0bc3,0x0bc5,0x0bc9,0x0bcd,0x0be0,0x0be3,0x0be7
0f6f 0001 0002  |    |		.XXX[0x20]
0f71 0003 0004  |    |
0f73 0005 0006  |    |
0f75 0007 0008  |    |
0f77 0009 000a  |    |
0f79 000b 000c  |    |
0f7b 000e 000f  |    |
0f7d 0010 0011  |    |
0f7f 000d 0012  |    |
0f81 0013 0014  |    |
0f83 0015 0016  |    |
0f85 0017 0018  |    |
0f87 0019 001a  |    |
0f89 001b 001d  |    |
0f8b 001e 001f  |    |
0f8d 0020 001c  |    |
0f8f ; --------------------------------------------------------------------------------------
0f8f ; Debug chain
0f8f ; --------------------------------------------------------------------------------------
0f8f 0001 0009  |    |		.DBGLEN	0x0001,0x0009
0f91 0bf3 0bf8  |    |		.DBGLNO	0x0bf3,0x0bf8,0x0bfa,0x0bfe,0x0c01,0x0c06,0x0c0d,0x0c14,0x0c1a,0x0c21
0f9b 0000 0000  |    |		.BLANK	0000[0x65]