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

⟦5c054302b⟧

    Length: 7168 (0x1c00)
    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
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0a20       |    |		.CONST	0x0a20								; 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 0006       |    |		.CONST	0x0006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 009d       |    |		.CONST	0x009d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0032       | 2  |		.CONST	0x0032								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 60c2       |`   |		Indirect_Literal	Discrete,0xd0,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f 0129       | )  |		Execute	Any,Make_Visible
0010 0093 0000  |    |		push_full_address	0x0
0012 60b9       |`   |		Indirect_Literal	Discrete,0xcc,{0x80000000, 0x00020000}
0013 0273       | s  |		Execute	Discrete,Plus
0014 0129       | )  |		Execute	Any,Make_Visible
0015 e002       |    |		Load	0x0,0x2
0016 00d8       |    |		Load_Top	At_Offset_0
0017 e003       |    |		Load	0x0,0x3
0018 00e1       |    |		Load_Encached	Boolean_Cache
0019 e004       |    |		Load	0x0,0x4
001a 00e1       |    |		Load_Encached	Boolean_Cache
001b e004       |    |		Load	0x0,0x4
001c 00d8       |    |		Load_Top	At_Offset_0
001d 00e1       |    |		Load_Encached	Boolean_Cache
001e 00e3       |    |		Load_Encached	Natural_Cache
001f 00e1       |    |		Load_Encached	Boolean_Cache
0020 00e4       |    |		Load_Encached	Positive_Cache
0021 e005       |    |		Load	0x0,0x5
0022 e006       |    |		Load	0x0,0x6
0023 e004       |    |		Load	0x0,0x4
0024 02a0       |    |		Declare_Subprogram	Null_Subprogram
0025 480f       |H   |		Short_Literal	0xf
0026 032e       | .  |		Declare_Type	Record,Defined,Visible
0027 4800       |H   |		Short_Literal	0x0
0028 4801       |H   |		Short_Literal	0x1
0029 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
002b 03fe       |    |		Declare_Type	Discrete,Defined,Visible
002c 00d9       |    |		Load_Top	At_Offset_1
002d 0321       | !  |		Declare_Variable	Record,Visible
002e e007       |    |		Load	0x0,0x7
002f 0129       | )  |		Execute	Any,Make_Visible
0030 e008       |    |		Load	0x0,0x8
0031 0321       | !  |		Declare_Variable	Record,Visible
0032 e009       |    |		Load	0x0,0x9
0033 0129       | )  |		Execute	Any,Make_Visible
0034 e009       |    |		Load	0x0,0x9
0035 0129       | )  |		Execute	Any,Make_Visible
0036 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0038 00bf       |    |		Action	Accept_Activation
0039 e00a       |    |		Load	0x0,0xa
003a 03bc       |    |		Declare_Variable	Access,By_Allocation
003b 00d8       |    |		Load_Top	At_Offset_0
003c 00e0       |    |		Load_Encached	Standard_Cache
003d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
003e 4801       |H   |		Short_Literal	0x1
003f 6088       |`   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x00000400}
0040 e00b       |    |		Load	0x0,0xb
0041 0334       | 4  |		Declare_Variable	Array,With_Constraint
0042 6085       |`   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x00000400}
0043 4801       |H   |		Short_Literal	0x1
0044 4800       |H   |		Short_Literal	0x0
0045 00d9       |    |		Load_Top	At_Offset_1
0046 e218       |    |		Load	0x1,0x18
0047 01d6       |    |		Execute	Vector,Field_Write
0048 3ffb       |?   |		Loop_Increasing	0x44
0049 e00c       |    |		Load	0x0,0xc
004a 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
004b 00d8       |    |		Load_Top	At_Offset_0
004c 0227       | '  |		Execute	Access,All_Reference
004d 01dc       |    |		Execute	Vector,Last
004e e00d       |    |		Load	0x0,0xd
004f 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0050 00d9       |    |		Load_Top	At_Offset_1
0051 0227       | '  |		Execute	Access,All_Reference
0052 01dc       |    |		Execute	Vector,Last
0053 e00d       |    |		Load	0x0,0xd
0054 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0055 0007       |    |		Action	Break_Optional
0056 e005       |    |		Load	0x0,0x5
0057 0628       | (  |		Execute_Immediate	Set_Value_Unchecked,0x28
0058 e005       |    |		Load	0x0,0x5
0059 0628       | (  |		Execute_Immediate	Set_Value_Unchecked,0x28
005a e005       |    |		Load	0x0,0x5
005b 0628       | (  |		Execute_Immediate	Set_Value_Unchecked,0x28
005c e00d       |    |		Load	0x0,0xd
005d 0646       | F  |		Execute_Immediate	Set_Value_Unchecked,0x46
005e e005       |    |		Load	0x0,0x5
005f 0628       | (  |		Execute_Immediate	Set_Value_Unchecked,0x28
0060 e005       |    |		Load	0x0,0x5
0061 0646       | F  |		Execute_Immediate	Set_Value_Unchecked,0x46
0062 00e1       |    |		Load_Encached	Boolean_Cache
0063 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0064 00e1       |    |		Load_Encached	Boolean_Cache
0065 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0066 e00e       |    |		Load	0x0,0xe
0067 0322       | "  |		Declare_Variable	Record
0068 00d8       |    |		Load_Top	At_Offset_0
0069 1c00       |    |		Execute_Immediate	Run_Utility,0x0
006a e00d       |    |		Load	0x0,0xd
006b 0266       | f  |		Execute	Discrete,Bounds
006c 00e1       |    |		Load_Encached	Boolean_Cache
006d 02a0       |    |		Declare_Subprogram	Null_Subprogram
006e 4801       |H   |		Short_Literal	0x1
006f 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0070 e00d       |    |		Load	0x0,0xd
0071 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
0072 4801       |H   |		Short_Literal	0x1
0073 4814       |H   |		Short_Literal	0x14
0074 e00f       |    |		Load	0x0,0xf
0075 035b       | [  |		Declare_Type	Array,Constrained
0076 0337       | 7  |		Declare_Variable	Array
0077 4801       |H   |		Short_Literal	0x1
0078 4814       |H   |		Short_Literal	0x14
0079 e00f       |    |		Load	0x0,0xf
007a 035b       | [  |		Declare_Type	Array,Constrained
007b 0337       | 7  |		Declare_Variable	Array
007c 4801       |H   |		Short_Literal	0x1
007d 4814       |H   |		Short_Literal	0x14
007e e00f       |    |		Load	0x0,0xf
007f 035b       | [  |		Declare_Type	Array,Constrained
0080 0337       | 7  |		Declare_Variable	Array
0081 4801       |H   |		Short_Literal	0x1
0082 4814       |H   |		Short_Literal	0x14
0083 e224       | $  |		Load	0x1,0x24
0084 035b       | [  |		Declare_Type	Array,Constrained
0085 0337       | 7  |		Declare_Variable	Array
0086 4800       |H   |		Short_Literal	0x0
0087 4814       |H   |		Short_Literal	0x14
0088 e00b       |    |		Load	0x0,0xb
0089 035b       | [  |		Declare_Type	Array,Constrained
008a 0337       | 7  |		Declare_Variable	Array
008b 029d 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call
008d 029d 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call
008f 029d 052b  |   +|		Declare_Subprogram	INIT_0528,For_Outer_Call
0091 029d 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Outer_Call
0093 029d 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call
0095 029d 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Outer_Call
0097 029d 0723  |   #|		Declare_Subprogram	INIT_0720,For_Outer_Call
0099 029d 081b  |    |		Declare_Subprogram	INIT_0818,For_Outer_Call
009b 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
009c 00c7       |    |		Action	Elaborate_Subprogram
009d			BODY_0008:
009d 00bc       |    |		Action	Signal_Activated
009e 00bb       |    |		Action	Signal_Completion
009f 0000       |    |		.XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4607       |F   |		Jump_Case	0x8
00a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00a5 7807       |x   |		Jump	0xad								; case 0x1
00a6 780a       |x   |		Jump	0xb1								; case 0x2
00a7 780e       |x   |		Jump	0xb6								; case 0x3
00a8 7811       |x   |		Jump	0xba								; case 0x4
00a9 7812       |x   |		Jump	0xbc								; case 0x5
00aa 7813       |x   |		Jump	0xbe								; case 0x6
00ab 7816       |x   |		Jump	0xc2								; case 0x7
00ac 4302       |C   |		.XXX[0x1]
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 0091 09d4  |    |		Action	Push_String_Extended_Indexed,0x9d4				; "S_PLAY"
00b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b1 00db       |    |		Load_Top	At_Offset_3
00b2 00db       |    |		Load_Top	At_Offset_3
00b3 00e0       |    |		Load_Encached	Standard_Cache
00b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 00e0       |    |		Load_Encached	Standard_Cache
00b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00ba 00db       |    |		Load_Top	At_Offset_3
00bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00bc 00db       |    |		Load_Top	At_Offset_3
00bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00be e210       |    |		Load	0x1,0x10
00bf 00dc       |    |		Load_Top	At_Offset_4
00c0 0267       | g  |		Execute	Discrete,Predecessor
00c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c2 e210       |    |		Load	0x1,0x10
00c3 00dc       |    |		Load_Top	At_Offset_4
00c4 0268       | h  |		Execute	Discrete,Successor
00c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c6 0000 0000  |    |		.XXX[0x2]
00c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
00cc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00d0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00d4 0000 0000  |    |		.BLANK	0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 0106       |    |		.CONST	0x0106								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 000f       |    |		.CONST	0x000f								; Number of locals
00db			INIT_00d8:
00db e010       |    |		Load	0x0,0x10
00dc 0322       | "  |		Declare_Variable	Record
00dd 00d8       |    |		Load_Top	At_Offset_0
00de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00df e011       |    |		Load	0x0,0x11
00e0 0322       | "  |		Declare_Variable	Record
00e1 e012       |    |		Load	0x0,0x12
00e2 0322       | "  |		Declare_Variable	Record
00e3 00d8       |    |		Load_Top	At_Offset_0
00e4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e5 e013       |    |		Load	0x0,0x13
00e6 0322       | "  |		Declare_Variable	Record
00e7 00d8       |    |		Load_Top	At_Offset_0
00e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e9 e014       |    |		Load	0x0,0x14
00ea 0322       | "  |		Declare_Variable	Record
00eb 00d8       |    |		Load_Top	At_Offset_0
00ec 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ed e015       |    |		Load	0x0,0x15
00ee 0337       | 7  |		Declare_Variable	Array
00ef e016       |    |		Load	0x0,0x16
00f0 00d9       |    |		Load_Top	At_Offset_1
00f1 01d4       |    |		Execute	Vector,Structure_Write
00f2 e017       |    |		Load	0x0,0x17
00f3 0007       |    |		Action	Break_Optional
00f4 e018       |    |		Load	0x0,0x18
00f5 0007       |    |		Action	Break_Optional
00f6 e008       |    |		Load	0x0,0x8
00f7 0322       | "  |		Declare_Variable	Record
00f8 e019       |    |		Load	0x0,0x19
00f9 00d9       |    |		Load_Top	At_Offset_1
00fa 017d       | }  |		Execute	Record,Structure_Write
00fb e5ff       |    |		Load	0x2,-0x1
00fc 801a       |    |		Call	0x0,0x1a
00fd e01b       |    |		Load	0x0,0x1b
00fe 02ff       |    |		Declare_Variable	Variant_Record
00ff 00d8       |    |		Load_Top	At_Offset_0
0100 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0101 00e3       |    |		Load_Encached	Natural_Cache
0102 029f 08bb  |    |		Declare_Subprogram	INIT_08b8,For_Call
0104 029f 08cb  |    |		Declare_Subprogram	INIT_08c8,For_Call
0106			BODY_00d8:
0106 e402       |    |		Load	0x2,0x2
0107 e007       |    |		Load	0x0,0x7
0108 e40b       |    |		Load	0x2,0xb
0109 801c       |    |		Call	0x0,0x1c
010a c212       |    |		Store	0x1,0x12
010b 00d1       |    |		Pop_Control	Pop_Count_1
010c e212       |    |		Load	0x1,0x12
010d 7010       |p   |		Jump_Nonzero	0x11e
010e 0092 09d6  |    |		Action	Push_String_Extended,0x9d6					; "Unable to open display {"
0110 e5ff       |    |		Load	0x2,-0x1
0111 801d       |    |		Call	0x0,0x1d
0112 01cc       |    |		Execute	Vector,Catenate
0113 0092 09d7  |    |		Action	Push_String_Extended,0x9d7					; "}: "
0115 01cc       |    |		Execute	Vector,Catenate
0116 e402       |    |		Load	0x2,0x2
0117 801e       |    |		Call	0x0,0x1e
0118 801d       |    |		Call	0x0,0x1d
0119 01cc       |    |		Execute	Vector,Catenate
011a e01f       |    |		Load	0x0,0x1f
011b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
011c e20e       |    |		Load	0x1,0xe
011d 0257       | W  |		Execute	Discrete,Raise
011e e212       |    |		Load	0x1,0x12
011f 8020       |    |		Call	0x0,0x20
0120 a408       |    |		Store_Unchecked	0x2,0x8
0121 e408       |    |		Load	0x2,0x8
0122 e212       |    |		Load	0x1,0x12
0123 8021       | !  |		Call	0x0,0x21
0124 e211       |    |		Load	0x1,0x11
0125 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0126 e408       |    |		Load	0x2,0x8
0127 e212       |    |		Load	0x1,0x12
0128 8022       | "  |		Call	0x0,0x22
0129 e211       |    |		Load	0x1,0x11
012a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
012b 483c       |H<  |		Short_Literal	0x3c
012c e212       |    |		Load	0x1,0x12
012d 8023       | #  |		Call	0x0,0x23
012e e211       |    |		Load	0x1,0x11
012f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0130 4800       |H   |		Short_Literal	0x0
0131 e211       |    |		Load	0x1,0x11
0132 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0133 e5fe       |    |		Load	0x2,-0x2
0134 e004       |    |		Load	0x0,0x4
0135 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0136 e211       |    |		Load	0x1,0x11
0137 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0138 4800       |H   |		Short_Literal	0x0
0139 4804       |H   |		Short_Literal	0x4
013a e024       | $  |		Load	0x0,0x24
013b 0334       | 4  |		Declare_Variable	Array,With_Constraint
013c 5287       |R   |		Indirect_Literal	Any,0x3c4,{0x33327833, 0x32000000}
013d e004       |    |		Load	0x0,0x4
013e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
013f e211       |    |		Load	0x1,0x11
0140 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0141 4800       |H   |		Short_Literal	0x0
0142 e211       |    |		Load	0x1,0x11
0143 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0144 e004       |    |		Load	0x0,0x4
0145 e211       |    |		Load	0x1,0x11
0146 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0147 4800       |H   |		Short_Literal	0x0
0148 e211       |    |		Load	0x1,0x11
0149 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
014a e5f9       |    |		Load	0x2,-0x7
014b e211       |    |		Load	0x1,0x11
014c 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
014d e5fc       |    |		Load	0x2,-0x4
014e e211       |    |		Load	0x1,0x11
014f 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0150 e5fd       |    |		Load	0x2,-0x3
0151 7004       |p   |		Jump_Nonzero	0x156
0152 4800       |H   |		Short_Literal	0x0
0153 e211       |    |		Load	0x1,0x11
0154 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0155 7811       |x   |		Jump	0x167
0156 e5fd       |    |		Load	0x2,-0x3
0157 0d05       |    |		Execute_Immediate	Less,0x5
0158 6804       |h   |		Jump_Zero	0x15d
0159 4801       |H   |		Short_Literal	0x1
015a e211       |    |		Load	0x1,0x11
015b 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
015c 780a       |x   |		Jump	0x167
015d e5fd       |    |		Load	0x2,-0x3
015e 0d0a       |    |		Execute_Immediate	Less,0xa
015f 6804       |h   |		Jump_Zero	0x164
0160 4805       |H   |		Short_Literal	0x5
0161 e211       |    |		Load	0x1,0x11
0162 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0163 7803       |x   |		Jump	0x167
0164 480f       |H   |		Short_Literal	0xf
0165 e211       |    |		Load	0x1,0x11
0166 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0167 e5fb       |    |		Load	0x2,-0x5
0168 4801       |H   |		Short_Literal	0x1
0169 6256       |bV  |		Indirect_Literal	Discrete,0x3c0,{0x00000000, 0x00007fff}
016a 0262       | b  |		Execute	Discrete,In_Range
016b 6809       |h   |		Jump_Zero	0x175
016c e5fb       |    |		Load	0x2,-0x5
016d 00d8       |    |		Load_Top	At_Offset_0
016e e005       |    |		Load	0x0,0x5
016f 0260       | `  |		Execute	Discrete,In_Type
0170 7001       |p   |		Jump_Nonzero	0x172
0171 0801       |    |		Execute_Immediate	Raise,0x1
0172 e211       |    |		Load	0x1,0x11
0173 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0174 7803       |x   |		Jump	0x178
0175 4802       |H   |		Short_Literal	0x2
0176 e211       |    |		Load	0x1,0x11
0177 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
0178 e5fa       |    |		Load	0x2,-0x6
0179 e212       |    |		Load	0x1,0x12
017a 8025       | %  |		Call	0x0,0x25
017b e211       |    |		Load	0x1,0x11
017c 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
017d e211       |    |		Load	0x1,0x11
017e 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
017f e006       |    |		Load	0x0,0x6
0180 022f       | /  |		Execute	Access,Equal
0181 681d       |h   |		Jump_Zero	0x19f
0182 0092 09d8  |    |		Action	Push_String_Extended,0x9d8					; "Unable to load font :{"
0184 e5fa       |    |		Load	0x2,-0x6
0185 801d       |    |		Call	0x0,0x1d
0186 01cc       |    |		Execute	Vector,Catenate
0187 0092 09d9  |    |		Action	Push_String_Extended,0x9d9					; "}."
0189 01cc       |    |		Execute	Vector,Catenate
018a e01f       |    |		Load	0x0,0x1f
018b 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
018c 4800       |H   |		Short_Literal	0x0
018d 4804       |H   |		Short_Literal	0x4
018e e024       | $  |		Load	0x0,0x24
018f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0190 5237       |R7  |		Indirect_Literal	Any,0x3c8,{0x66697865, 0x64000000}
0191 e212       |    |		Load	0x1,0x12
0192 8025       | %  |		Call	0x0,0x25
0193 e211       |    |		Load	0x1,0x11
0194 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
0195 e211       |    |		Load	0x1,0x11
0196 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0197 e006       |    |		Load	0x0,0x6
0198 022f       | /  |		Execute	Access,Equal
0199 6805       |h   |		Jump_Zero	0x19f
019a 0092 09da  |    |		Action	Push_String_Extended,0x9da					; "Unable to load font :{fixed}; exiting."
019c e01f       |    |		Load	0x0,0x1f
019d 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
019e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
019f e211       |    |		Load	0x1,0x11
01a0 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01a1 6801       |h   |		Jump_Zero	0x1a3
01a2 840e       |    |		Call	0x2,0xe
01a3 8026       | &  |		Call	0x0,0x26
01a4 e211       |    |		Load	0x1,0x11
01a5 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
01a6 00e0       |    |		Load_Encached	Standard_Cache
01a7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a8 8027       | '  |		Call	0x0,0x27
01a9 01cc       |    |		Execute	Vector,Catenate
01aa e004       |    |		Load	0x0,0x4
01ab 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01ac e211       |    |		Load	0x1,0x11
01ad 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
01ae 840f       |    |		Call	0x2,0xf
01af 4801       |H   |		Short_Literal	0x1
01b0 e405       |    |		Load	0x2,0x5
01b1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b2 e028       | (  |		Load	0x0,0x28
01b3 0337       | 7  |		Declare_Variable	Array
01b4 4801       |H   |		Short_Literal	0x1
01b5 481f       |H   |		Short_Literal	0x1f
01b6 00da       |    |		Load_Top	At_Offset_2
01b7 01d6       |    |		Execute	Vector,Field_Write
01b8 481e       |H   |		Short_Literal	0x1e
01b9 4800       |H   |		Short_Literal	0x0
01ba 4800       |H   |		Short_Literal	0x0
01bb 00d9       |    |		Load_Top	At_Offset_1
01bc e410       |    |		Load	0x2,0x10
01bd 01d6       |    |		Execute	Vector,Field_Write
01be 3ffb       |?   |		Loop_Increasing	0x1ba
01bf e028       | (  |		Load	0x0,0x28
01c0 01c3       |    |		Execute	Vector,Check_In_Type
01c1 e405       |    |		Load	0x2,0x5
01c2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01c3 4800       |H   |		Short_Literal	0x0
01c4 4804       |H   |		Short_Literal	0x4
01c5 e024       | $  |		Load	0x0,0x24
01c6 0334       | 4  |		Declare_Variable	Array,With_Constraint
01c7 5204       |R   |		Indirect_Literal	Any,0x3cc,{0x786c6f61, 0x64000000}
01c8 e004       |    |		Load	0x0,0x4
01c9 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01ca e403       |    |		Load	0x2,0x3
01cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01cc 4800       |H   |		Short_Literal	0x0
01cd 4804       |H   |		Short_Literal	0x4
01ce e024       | $  |		Load	0x0,0x24
01cf 0334       | 4  |		Declare_Variable	Array,With_Constraint
01d0 51ff       |Q   |		Indirect_Literal	Any,0x3d0,{0x584c6f61, 0x64000000}
01d1 e004       |    |		Load	0x0,0x4
01d2 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01d3 e403       |    |		Load	0x2,0x3
01d4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01d5 e211       |    |		Load	0x1,0x11
01d6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d7 e406       |    |		Load	0x2,0x6
01d8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01d9 e211       |    |		Load	0x1,0x11
01da 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01db e406       |    |		Load	0x2,0x6
01dc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01dd 483c       |H<  |		Short_Literal	0x3c
01de e212       |    |		Load	0x1,0x12
01df 8023       | #  |		Call	0x0,0x23
01e0 e406       |    |		Load	0x2,0x6
01e1 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
01e2 e015       |    |		Load	0x0,0x15
01e3 0337       | 7  |		Declare_Variable	Array
01e4 4801       |H   |		Short_Literal	0x1
01e5 481e       |H   |		Short_Literal	0x1e
01e6 00da       |    |		Load_Top	At_Offset_2
01e7 01d6       |    |		Execute	Vector,Field_Write
01e8 4801       |H   |		Short_Literal	0x1
01e9 481c       |H   |		Short_Literal	0x1c
01ea 00da       |    |		Load_Top	At_Offset_2
01eb 01d6       |    |		Execute	Vector,Field_Write
01ec 4801       |H   |		Short_Literal	0x1
01ed 4811       |H   |		Short_Literal	0x11
01ee 00da       |    |		Load_Top	At_Offset_2
01ef 01d6       |    |		Execute	Vector,Field_Write
01f0 4810       |H   |		Short_Literal	0x10
01f1 4800       |H   |		Short_Literal	0x0
01f2 4800       |H   |		Short_Literal	0x0
01f3 00d9       |    |		Load_Top	At_Offset_1
01f4 e410       |    |		Load	0x2,0x10
01f5 01d6       |    |		Execute	Vector,Field_Write
01f6 3ffb       |?   |		Loop_Increasing	0x1f2
01f7 481b       |H   |		Short_Literal	0x1b
01f8 4812       |H   |		Short_Literal	0x12
01f9 4800       |H   |		Short_Literal	0x0
01fa 00d9       |    |		Load_Top	At_Offset_1
01fb e410       |    |		Load	0x2,0x10
01fc 01d6       |    |		Execute	Vector,Field_Write
01fd 3ffb       |?   |		Loop_Increasing	0x1f9
01fe 4800       |H   |		Short_Literal	0x0
01ff 481d       |H   |		Short_Literal	0x1d
0200 00da       |    |		Load_Top	At_Offset_2
0201 01d6       |    |		Execute	Vector,Field_Write
0202 4800       |H   |		Short_Literal	0x0
0203 481f       |H   |		Short_Literal	0x1f
0204 00da       |    |		Load_Top	At_Offset_2
0205 01d6       |    |		Execute	Vector,Field_Write
0206 e015       |    |		Load	0x0,0x15
0207 01c3       |    |		Execute	Vector,Check_In_Type
0208 e407       |    |		Load	0x2,0x7
0209 01d4       |    |		Execute	Vector,Structure_Write
020a e405       |    |		Load	0x2,0x5
020b 8029       | )  |		Call	0x0,0x29
020c 00d1       |    |		Pop_Control	Pop_Count_1
020d e406       |    |		Load	0x2,0x6
020e e407       |    |		Load	0x2,0x7
020f e212       |    |		Load	0x1,0x12
0210 802a       | *  |		Call	0x0,0x2a
0211 802b       | +  |		Call	0x0,0x2b
0212 4801       |H   |		Short_Literal	0x1
0213 e408       |    |		Load	0x2,0x8
0214 e212       |    |		Load	0x1,0x12
0215 802c       | ,  |		Call	0x0,0x2c
0216 4802       |H   |		Short_Literal	0x2
0217 e404       |    |		Load	0x2,0x4
0218 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0219 00d8       |    |		Load_Top	At_Offset_0
021a e02d       | -  |		Load	0x0,0x2d
021b 0260       | `  |		Execute	Discrete,In_Type
021c 7001       |p   |		Jump_Nonzero	0x21e
021d 0801       |    |		Execute_Immediate	Raise,0x1
021e 00d8       |    |		Load_Top	At_Offset_0
021f e02e       | .  |		Load	0x0,0x2e
0220 0260       | `  |		Execute	Discrete,In_Type
0221 7001       |p   |		Jump_Nonzero	0x223
0222 0801       |    |		Execute_Immediate	Raise,0x1
0223 e404       |    |		Load	0x2,0x4
0224 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0225 00d8       |    |		Load_Top	At_Offset_0
0226 e02d       | -  |		Load	0x0,0x2d
0227 0260       | `  |		Execute	Discrete,In_Type
0228 7001       |p   |		Jump_Nonzero	0x22a
0229 0801       |    |		Execute_Immediate	Raise,0x1
022a 00d8       |    |		Load_Top	At_Offset_0
022b e02e       | .  |		Load	0x0,0x2e
022c 0260       | `  |		Execute	Discrete,In_Type
022d 7001       |p   |		Jump_Nonzero	0x22f
022e 0801       |    |		Execute_Immediate	Raise,0x1
022f e404       |    |		Load	0x2,0x4
0230 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0231 00d8       |    |		Load_Top	At_Offset_0
0232 e005       |    |		Load	0x0,0x5
0233 0260       | `  |		Execute	Discrete,In_Type
0234 7001       |p   |		Jump_Nonzero	0x236
0235 0801       |    |		Execute_Immediate	Raise,0x1
0236 e404       |    |		Load	0x2,0x4
0237 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0238 00d8       |    |		Load_Top	At_Offset_0
0239 e005       |    |		Load	0x0,0x5
023a 0260       | `  |		Execute	Discrete,In_Type
023b 7001       |p   |		Jump_Nonzero	0x23d
023c 0801       |    |		Execute_Immediate	Raise,0x1
023d e212       |    |		Load	0x1,0x12
023e 802f       | /  |		Call	0x0,0x2f
023f e212       |    |		Load	0x1,0x12
0240 8030       | 0  |		Call	0x0,0x30
0241 e213       |    |		Load	0x1,0x13
0242 017d       | }  |		Execute	Record,Structure_Write
0243 e018       |    |		Load	0x0,0x18
0244 e403       |    |		Load	0x2,0x3
0245 e405       |    |		Load	0x2,0x5
0246 e404       |    |		Load	0x2,0x4
0247 4801       |H   |		Short_Literal	0x1
0248 4800       |H   |		Short_Literal	0x0
0249 e031       | 1  |		Load	0x0,0x31
024a 0334       | 4  |		Declare_Variable	Array,With_Constraint
024b 4800       |H   |		Short_Literal	0x0
024c 4804       |H   |		Short_Literal	0x4
024d e024       | $  |		Load	0x0,0x24
024e 0334       | 4  |		Declare_Variable	Array,With_Constraint
024f 5184       |Q   |		Indirect_Literal	Any,0x3d4,{0x584c6f61, 0x64000000}
0250 4800       |H   |		Short_Literal	0x0
0251 4804       |H   |		Short_Literal	0x4
0252 e024       | $  |		Load	0x0,0x24
0253 0334       | 4  |		Declare_Variable	Array,With_Constraint
0254 5183       |Q   |		Indirect_Literal	Any,0x3d8,{0x786c6f61, 0x64000000}
0255 e213       |    |		Load	0x1,0x13
0256 e212       |    |		Load	0x1,0x12
0257 8032       | 2  |		Call	0x0,0x32
0258 c409       |    |		Store	0x2,0x9
0259 e033       | 3  |		Load	0x0,0x33
025a 0337       | 7  |		Declare_Variable	Array
025b 4801       |H   |		Short_Literal	0x1
025c 480e       |H   |		Short_Literal	0xe
025d 00da       |    |		Load_Top	At_Offset_2
025e 01d6       |    |		Execute	Vector,Field_Write
025f 4801       |H   |		Short_Literal	0x1
0260 4810       |H   |		Short_Literal	0x10
0261 00da       |    |		Load_Top	At_Offset_2
0262 01d6       |    |		Execute	Vector,Field_Write
0263 4801       |H   |		Short_Literal	0x1
0264 481d       |H   |		Short_Literal	0x1d
0265 00da       |    |		Load_Top	At_Offset_2
0266 01d6       |    |		Execute	Vector,Field_Write
0267 480d       |H   |		Short_Literal	0xd
0268 4800       |H   |		Short_Literal	0x0
0269 4800       |H   |		Short_Literal	0x0
026a 00d9       |    |		Load_Top	At_Offset_1
026b e410       |    |		Load	0x2,0x10
026c 01d6       |    |		Execute	Vector,Field_Write
026d 3ffb       |?   |		Loop_Increasing	0x269
026e 4800       |H   |		Short_Literal	0x0
026f 480f       |H   |		Short_Literal	0xf
0270 00da       |    |		Load_Top	At_Offset_2
0271 01d6       |    |		Execute	Vector,Field_Write
0272 481c       |H   |		Short_Literal	0x1c
0273 4811       |H   |		Short_Literal	0x11
0274 4800       |H   |		Short_Literal	0x0
0275 00d9       |    |		Load_Top	At_Offset_1
0276 e410       |    |		Load	0x2,0x10
0277 01d6       |    |		Execute	Vector,Field_Write
0278 3ffb       |?   |		Loop_Increasing	0x274
0279 4800       |H   |		Short_Literal	0x0
027a 481e       |H   |		Short_Literal	0x1e
027b 00da       |    |		Load_Top	At_Offset_2
027c 01d6       |    |		Execute	Vector,Field_Write
027d 4800       |H   |		Short_Literal	0x0
027e 481f       |H   |		Short_Literal	0x1f
027f 00da       |    |		Load_Top	At_Offset_2
0280 01d6       |    |		Execute	Vector,Field_Write
0281 e033       | 3  |		Load	0x0,0x33
0282 01c3       |    |		Execute	Vector,Check_In_Type
0283 e213       |    |		Load	0x1,0x13
0284 e212       |    |		Load	0x1,0x12
0285 8034       | 4  |		Call	0x0,0x34
0286 e213       |    |		Load	0x1,0x13
0287 e212       |    |		Load	0x1,0x12
0288 8035       | 5  |		Call	0x0,0x35
0289 8231       | 1  |		Call	0x1,0x31
028a e226       | &  |		Load	0x1,0x26
028b 00d8       |    |		Load_Top	At_Offset_0
028c 0335       | 5  |		Declare_Variable	Array,Duplicate
028d 00cd       |    |		Action	Spare6_Action
028e 4814       |H   |		Short_Literal	0x14
028f 4801       |H   |		Short_Literal	0x1
0290 4804       |H   |		Short_Literal	0x4
0291 00d9       |    |		Load_Top	At_Offset_1
0292 e411       |    |		Load	0x2,0x11
0293 01d6       |    |		Execute	Vector,Field_Write
0294 3ffb       |?   |		Loop_Increasing	0x290
0295 00cd       |    |		Action	Spare6_Action
0296 e226       | &  |		Load	0x1,0x26
0297 01d4       |    |		Execute	Vector,Structure_Write
0298 e227       | '  |		Load	0x1,0x27
0299 00d8       |    |		Load_Top	At_Offset_0
029a 0335       | 5  |		Declare_Variable	Array,Duplicate
029b 00cd       |    |		Action	Spare6_Action
029c 4814       |H   |		Short_Literal	0x14
029d 4801       |H   |		Short_Literal	0x1
029e 4800       |H   |		Short_Literal	0x0
029f 00d9       |    |		Load_Top	At_Offset_1
02a0 e411       |    |		Load	0x2,0x11
02a1 01d6       |    |		Execute	Vector,Field_Write
02a2 3ffb       |?   |		Loop_Increasing	0x29e
02a3 00cd       |    |		Action	Spare6_Action
02a4 e227       | '  |		Load	0x1,0x27
02a5 01d4       |    |		Execute	Vector,Structure_Write
02a6 e228       | (  |		Load	0x1,0x28
02a7 00d8       |    |		Load_Top	At_Offset_0
02a8 0335       | 5  |		Declare_Variable	Array,Duplicate
02a9 00cd       |    |		Action	Spare6_Action
02aa 4814       |H   |		Short_Literal	0x14
02ab 4801       |H   |		Short_Literal	0x1
02ac 483c       |H<  |		Short_Literal	0x3c
02ad 00d9       |    |		Load_Top	At_Offset_1
02ae e411       |    |		Load	0x2,0x11
02af 01d6       |    |		Execute	Vector,Field_Write
02b0 3ffb       |?   |		Loop_Increasing	0x2ac
02b1 00cd       |    |		Action	Spare6_Action
02b2 e228       | (  |		Load	0x1,0x28
02b3 01d4       |    |		Execute	Vector,Structure_Write
02b4 e229       | )  |		Load	0x1,0x29
02b5 00d8       |    |		Load_Top	At_Offset_0
02b6 0335       | 5  |		Declare_Variable	Array,Duplicate
02b7 00cd       |    |		Action	Spare6_Action
02b8 4814       |H   |		Short_Literal	0x14
02b9 4801       |H   |		Short_Literal	0x1
02ba 4800       |H   |		Short_Literal	0x0
02bb 00d9       |    |		Load_Top	At_Offset_1
02bc e411       |    |		Load	0x2,0x11
02bd 01d6       |    |		Execute	Vector,Field_Write
02be 3ffb       |?   |		Loop_Increasing	0x2ba
02bf 00cd       |    |		Action	Spare6_Action
02c0 e229       | )  |		Load	0x1,0x29
02c1 01d4       |    |		Execute	Vector,Structure_Write
02c2 e211       |    |		Load	0x1,0x11
02c3 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
02c4 00d8       |    |		Load_Top	At_Offset_0
02c5 e00d       |    |		Load	0x0,0xd
02c6 0260       | `  |		Execute	Discrete,In_Type
02c7 7001       |p   |		Jump_Nonzero	0x2c9
02c8 0801       |    |		Execute_Immediate	Raise,0x1
02c9 a225       | %  |		Store_Unchecked	0x1,0x25
02ca 4800       |H   |		Short_Literal	0x0
02cb e217       |    |		Load	0x1,0x17
02cc 0229       | )  |		Execute	Access,All_Read
02cd e036       | 6  |		Load	0x0,0x36
02ce 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
02cf 00cf       |    |		Action	Mark_Auxiliary
02d0 00cf       |    |		Action	Mark_Auxiliary
02d1 7858       |xX  |		Jump	0x32a
02d2 e222       | "  |		Load	0x1,0x22
02d3 6801       |h   |		Jump_Zero	0x2d5
02d4 822b       | +  |		Call	0x1,0x2b
02d5 e212       |    |		Load	0x1,0x12
02d6 0227       | '  |		Execute	Access,All_Reference
02d7 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
02d8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d9 0227       | '  |		Execute	Access,All_Reference
02da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02db 0e01       |    |		Execute_Immediate	Not_Equal,0x1
02dc 6828       |h(  |		Jump_Zero	0x305
02dd e212       |    |		Load	0x1,0x12
02de 0229       | )  |		Execute	Access,All_Read
02df 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
02e0 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02e1 e212       |    |		Load	0x1,0x12
02e2 0227       | '  |		Execute	Access,All_Reference
02e3 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02e4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02e5 0a01       |    |		Execute_Immediate	Plus,0x1
02e6 00d8       |    |		Load_Top	At_Offset_0
02e7 00e2       |    |		Load_Encached	Integer_Cache
02e8 0260       | `  |		Execute	Discrete,In_Type
02e9 7001       |p   |		Jump_Nonzero	0x2eb
02ea 0801       |    |		Execute_Immediate	Raise,0x1
02eb e212       |    |		Load	0x1,0x12
02ec 0227       | '  |		Execute	Access,All_Reference
02ed 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
02ee 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02ef 01dc       |    |		Execute	Vector,Last
02f0 00da       |    |		Load_Top	At_Offset_2
02f1 035b       | [  |		Declare_Type	Array,Constrained
02f2 00d0       |    |		Action	Swap_Control
02f3 01cd       |    |		Execute	Vector,Slice_Reference
02f4 e212       |    |		Load	0x1,0x12
02f5 0229       | )  |		Execute	Access,All_Read
02f6 3c38       |<8  |		Execute	Record,Field_Read,Field_Number 0x38
02f7 00e3       |    |		Load_Encached	Natural_Cache
02f8 00da       |    |		Load_Top	At_Offset_2
02f9 00e2       |    |		Load_Encached	Integer_Cache
02fa e217       |    |		Load	0x1,0x17
02fb e212       |    |		Load	0x1,0x12
02fc 0227       | '  |		Execute	Access,All_Reference
02fd 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
02fe 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ff 8037       | 7  |		Call	0x0,0x37
0300 00db       |    |		Load_Top	At_Offset_3
0301 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0302 00d1       |    |		Pop_Control	Pop_Count_1
0303 c40d       |    |		Store	0x2,0xd
0304 00d2       |    |		Pop_Control	Pop_Count_2
0305 e212       |    |		Load	0x1,0x12
0306 0227       | '  |		Execute	Access,All_Reference
0307 3438       |48  |		Execute	Record,Field_Reference,Field_Number 0x38
0308 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0309 0227       | '  |		Execute	Access,All_Reference
030a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030b 0f01       |    |		Execute_Immediate	Equal,0x1
030c 680f       |h   |		Jump_Zero	0x31c
030d 4800       |H   |		Short_Literal	0x0
030e e211       |    |		Load	0x1,0x11
030f 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0310 090f       |    |		Execute_Immediate	Binary_Scale,0xf
0311 e217       |    |		Load	0x1,0x17
0312 0229       | )  |		Execute	Access,All_Read
0313 e038       | 8  |		Load	0x0,0x38
0314 00ab       |    |		QQucode_0x00ab
0315 4601       |F   |		Jump_Case	0x2
0316 7812       |x   |		Jump	0x329								; case 0x0
0317 7800       |x   |		Jump	0x318								; case 0x1
0318 822e       | .  |		Call	0x1,0x2e
0319 e212       |    |		Load	0x1,0x12
031a 8039       | 9  |		Call	0x0,0x39
031b 780d       |x   |		Jump	0x329
031c e40d       |    |		Load	0x2,0xd
031d 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
031e 680a       |h   |		Jump_Zero	0x329
031f e212       |    |		Load	0x1,0x12
0320 0227       | '  |		Execute	Access,All_Reference
0321 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0322 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0323 e40d       |    |		Load	0x2,0xd
0324 0273       | s  |		Execute	Discrete,Plus
0325 e212       |    |		Load	0x1,0x12
0326 0227       | '  |		Execute	Access,All_Reference
0327 3434       |44  |		Execute	Record,Field_Reference,Field_Number 0x34
0328 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0329 00c9       |    |		Action	Pop_Auxiliary_Loop
032a e212       |    |		Load	0x1,0x12
032b 803a       | :  |		Call	0x0,0x3a
032c 6fa5       |o   |		Jump_Zero	0x2d2
032d 00ce       |    |		Action	Pop_Auxiliary
032e e40c       |    |		Load	0x2,0xc
032f e212       |    |		Load	0x1,0x12
0330 803b       | ;  |		Call	0x0,0x3b
0331 00d1       |    |		Pop_Control	Pop_Count_1
0332 e40c       |    |		Load	0x2,0xc
0333 2405       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5
0334 e213       |    |		Load	0x1,0x13
0335 017f       |    |		Execute	Record,Equal
0336 6867       |hg  |		Jump_Zero	0x39e
0337 e40c       |    |		Load	0x2,0xc
0338 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0339 00d8       |    |		Load_Top	At_Offset_0
033a 0c17       |    |		Execute_Immediate	Greater_Equal,0x17
033b 701d       |p   |		Jump_Nonzero	0x359
033c 4616       |F   |		Jump_Case	0x17
033d 781c       |x   |		Jump	0x35a								; case 0x0
033e 781b       |x   |		Jump	0x35a								; case 0x1
033f 781a       |x   |		Jump	0x35a								; case 0x2
0340 7819       |x   |		Jump	0x35a								; case 0x3
0341 7828       |x(  |		Jump	0x36a								; case 0x4
0342 7817       |x   |		Jump	0x35a								; case 0x5
0343 7816       |x   |		Jump	0x35a								; case 0x6
0344 7815       |x   |		Jump	0x35a								; case 0x7
0345 7814       |x   |		Jump	0x35a								; case 0x8
0346 7813       |x   |		Jump	0x35a								; case 0x9
0347 7812       |x   |		Jump	0x35a								; case 0xa
0348 7811       |x   |		Jump	0x35a								; case 0xb
0349 7812       |x   |		Jump	0x35c								; case 0xc
034a 7818       |x   |		Jump	0x363								; case 0xd
034b 780e       |x   |		Jump	0x35a								; case 0xe
034c 780d       |x   |		Jump	0x35a								; case 0xf
034d 780c       |x   |		Jump	0x35a								; case 0x10
034e 780b       |x   |		Jump	0x35a								; case 0x11
034f 780a       |x   |		Jump	0x35a								; case 0x12
0350 7809       |x   |		Jump	0x35a								; case 0x13
0351 7808       |x   |		Jump	0x35a								; case 0x14
0352 7807       |x   |		Jump	0x35a								; case 0x15
0353 7800       |x   |		Jump	0x354								; case 0x16
0354 e40c       |    |		Load	0x2,0xc
0355 822f       | /  |		Call	0x1,0x2f
0356 4801       |H   |		Short_Literal	0x1
0357 a222       | "  |		Store_Unchecked	0x1,0x22
0358 7860       |x`  |		Jump	0x3b9
0359 00d1       |    |		Pop_Control	Pop_Count_1
035a 0008       |    |		Action	Idle
035b 785d       |x]  |		Jump	0x3b9
035c e40c       |    |		Load	0x2,0xc
035d 260c       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
035e 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
035f 7059       |pY  |		Jump_Nonzero	0x3b9
0360 4801       |H   |		Short_Literal	0x1
0361 a222       | "  |		Store_Unchecked	0x1,0x22
0362 7856       |xV  |		Jump	0x3b9
0363 e40c       |    |		Load	0x2,0xc
0364 260d       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
0365 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0366 7052       |pR  |		Jump_Nonzero	0x3b9
0367 4801       |H   |		Short_Literal	0x1
0368 a222       | "  |		Store_Unchecked	0x1,0x22
0369 784f       |xO  |		Jump	0x3b9
036a e40c       |    |		Load	0x2,0xc
036b 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
036c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
036d 0f01       |    |		Execute_Immediate	Equal,0x1
036e 6802       |h   |		Jump_Zero	0x371
036f 822e       | .  |		Call	0x1,0x2e
0370 7848       |xH  |		Jump	0x3b9
0371 e40c       |    |		Load	0x2,0xc
0372 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0373 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0374 0f02       |    |		Execute_Immediate	Equal,0x2
0375 681d       |h   |		Jump_Zero	0x393
0376 e40c       |    |		Load	0x2,0xc
0377 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0378 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0379 e03c       | <  |		Load	0x0,0x3c
037a 0337       | 7  |		Declare_Variable	Array
037b 4801       |H   |		Short_Literal	0x1
037c 480d       |H   |		Short_Literal	0xd
037d 00da       |    |		Load_Top	At_Offset_2
037e 01d6       |    |		Execute	Vector,Field_Write
037f 4801       |H   |		Short_Literal	0x1
0380 480f       |H   |		Short_Literal	0xf
0381 00da       |    |		Load_Top	At_Offset_2
0382 01d6       |    |		Execute	Vector,Field_Write
0383 480c       |H   |		Short_Literal	0xc
0384 4800       |H   |		Short_Literal	0x0
0385 4800       |H   |		Short_Literal	0x0
0386 00d9       |    |		Load_Top	At_Offset_1
0387 e412       |    |		Load	0x2,0x12
0388 01d6       |    |		Execute	Vector,Field_Write
0389 3ffb       |?   |		Loop_Increasing	0x385
038a 4800       |H   |		Short_Literal	0x0
038b 480e       |H   |		Short_Literal	0xe
038c 00da       |    |		Load_Top	At_Offset_2
038d 01d6       |    |		Execute	Vector,Field_Write
038e e03c       | <  |		Load	0x0,0x3c
038f 01c3       |    |		Execute	Vector,Check_In_Type
0390 01df       |    |		Execute	Vector,Equal
0391 6801       |h   |		Jump_Zero	0x393
0392 7828       |x(  |		Jump	0x3bb
0393 e40c       |    |		Load	0x2,0xc
0394 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0395 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0396 0f03       |    |		Execute_Immediate	Equal,0x3
0397 6802       |h   |		Jump_Zero	0x39a
0398 8230       | 0  |		Call	0x1,0x30
0399 781f       |x   |		Jump	0x3b9
039a 4800       |H   |		Short_Literal	0x0
039b e212       |    |		Load	0x1,0x12
039c 803d       | =  |		Call	0x0,0x3d
039d 781b       |x   |		Jump	0x3b9
039e 0092 09db  |    |		Action	Push_String_Extended,0x9db					; "Event for window "
03a0 e01f       |    |		Load	0x0,0x1f
03a1 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03a2 4810       |H   |		Short_Literal	0x10
03a3 4800       |H   |		Short_Literal	0x0
03a4 e40c       |    |		Load	0x2,0xc
03a5 2405       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5
03a6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03a7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03a8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03a9 e03e       | >  |		Load	0x0,0x3e
03aa 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
03ab 0092 09dc  |    |		Action	Push_String_Extended,0x9dc					; " kind: "
03ad e01f       |    |		Load	0x0,0x1f
03ae 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03af e40c       |    |		Load	0x2,0xc
03b0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03b1 e03f       | ?  |		Load	0x0,0x3f
03b2 011c       |    |		Execute	Any,Convert_Unchecked
03b3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03b4 e01f       |    |		Load	0x0,0x1f
03b5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03b6 4801       |H   |		Short_Literal	0x1
03b7 e01f       |    |		Load	0x0,0x1f
03b8 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
03b9 00c9       |    |		Action	Pop_Auxiliary_Loop
03ba 7f15       |    |		Jump	0x2d0
03bb 00ce       |    |		Action	Pop_Auxiliary
03bc e212       |    |		Load	0x1,0x12
03bd 8040       | @  |		Call	0x0,0x40
03be c212       |    |		Store	0x1,0x12
03bf 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fff}
03c4 3332 7833  |32x3|		.LITERAL	{0x33327833, 0x32000000}
03c8 6669 7865  |fixe|		.LITERAL	{0x66697865, 0x64000000}
03cc 786c 6f61  |xloa|		.LITERAL	{0x786c6f61, 0x64000000}
03d0 584c 6f61  |XLoa|		.LITERAL	{0x584c6f61, 0x64000000}
03d4 584c 6f61  |XLoa|		.LITERAL	{0x584c6f61, 0x64000000}
03d8 786c 6f61  |xloa|		.LITERAL	{0x786c6f61, 0x64000000}
03dc 0000 0000  |    |		.BLANK	0000[0x4]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03f1       |    |		.CONST	0x03f1								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0005       |    |		.CONST	0x0005								; Number of locals
03e3			INIT_03e0:
03e3 4801       |H   |		Short_Literal	0x1
03e4 e21e       |    |		Load	0x1,0x1e
03e5 e041       | A  |		Load	0x0,0x41
03e6 035b       | [  |		Declare_Type	Array,Constrained
03e7 0337       | 7  |		Declare_Variable	Array
03e8 4801       |H   |		Short_Literal	0x1
03e9 e21e       |    |		Load	0x1,0x1e
03ea e042       | B  |		Load	0x0,0x42
03eb 035b       | [  |		Declare_Type	Array,Constrained
03ec 0337       | 7  |		Declare_Variable	Array
03ed e002       |    |		Load	0x0,0x2
03ee 0007       |    |		Action	Break_Optional
03ef e005       |    |		Load	0x0,0x5
03f0 0007       |    |		Action	Break_Optional
03f1			BODY_03e0:
03f1 e213       |    |		Load	0x1,0x13
03f2 e212       |    |		Load	0x1,0x12
03f3 8043       | C  |		Call	0x0,0x43
03f4 4800       |H   |		Short_Literal	0x0
03f5 a222       | "  |		Store_Unchecked	0x1,0x22
03f6 e211       |    |		Load	0x1,0x11
03f7 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
03f8 0227       | '  |		Execute	Access,All_Reference
03f9 e223       | #  |		Load	0x1,0x23
03fa 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03fb 0a04       |    |		Execute_Immediate	Plus,0x4
03fc 00d8       |    |		Load_Top	At_Offset_0
03fd e005       |    |		Load	0x0,0x5
03fe 0260       | `  |		Execute	Discrete,In_Type
03ff 7001       |p   |		Jump_Nonzero	0x401
0400 0801       |    |		Execute_Immediate	Raise,0x1
0401 4804       |H   |		Short_Literal	0x4
0402 e214       |    |		Load	0x1,0x14
0403 e213       |    |		Load	0x1,0x13
0404 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0405 e212       |    |		Load	0x1,0x12
0406 8044       | D  |		Call	0x0,0x44
0407 00cf       |    |		Action	Mark_Auxiliary
0408 e21e       |    |		Load	0x1,0x1e
0409 4801       |H   |		Short_Literal	0x1
040a 0263       | c  |		Execute	Discrete,Above_Bound
040b 7059       |pY  |		Jump_Nonzero	0x465
040c e21e       |    |		Load	0x1,0x1e
040d 00d9       |    |		Load_Top	At_Offset_1
040e 0272       | r  |		Execute	Discrete,Minus
040f 00d8       |    |		Load_Top	At_Offset_0
0410 e005       |    |		Load	0x0,0x5
0411 0260       | `  |		Execute	Discrete,In_Type
0412 7001       |p   |		Jump_Nonzero	0x414
0413 0801       |    |		Execute_Immediate	Raise,0x1
0414 00d9       |    |		Load_Top	At_Offset_1
0415 e402       |    |		Load	0x2,0x2
0416 01d5       |    |		Execute	Vector,Field_Reference
0417 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0418 e21e       |    |		Load	0x1,0x1e
0419 00d9       |    |		Load_Top	At_Offset_1
041a 0272       | r  |		Execute	Discrete,Minus
041b 00d8       |    |		Load_Top	At_Offset_0
041c e005       |    |		Load	0x0,0x5
041d 0260       | `  |		Execute	Discrete,In_Type
041e 7001       |p   |		Jump_Nonzero	0x420
041f 0801       |    |		Execute_Immediate	Raise,0x1
0420 00d9       |    |		Load_Top	At_Offset_1
0421 e402       |    |		Load	0x2,0x2
0422 01d5       |    |		Execute	Vector,Field_Reference
0423 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0424 e21f       |    |		Load	0x1,0x1f
0425 00d9       |    |		Load_Top	At_Offset_1
0426 e402       |    |		Load	0x2,0x2
0427 01d5       |    |		Execute	Vector,Field_Reference
0428 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0429 00d8       |    |		Load_Top	At_Offset_0
042a e219       |    |		Load	0x1,0x19
042b 027d       | }  |		Execute	Discrete,Greater
042c 680c       |h   |		Jump_Zero	0x439
042d e218       |    |		Load	0x1,0x18
042e 0227       | '  |		Execute	Access,All_Reference
042f 01dc       |    |		Execute	Vector,Last
0430 00d9       |    |		Load_Top	At_Offset_1
0431 e219       |    |		Load	0x1,0x19
0432 0272       | r  |		Execute	Discrete,Minus
0433 0272       | r  |		Execute	Discrete,Minus
0434 e218       |    |		Load	0x1,0x18
0435 0227       | '  |		Execute	Access,All_Reference
0436 01d7       |    |		Execute	Vector,Field_Read
0437 a404       |    |		Store_Unchecked	0x2,0x4
0438 7808       |x   |		Jump	0x441
0439 e219       |    |		Load	0x1,0x19
043a 00d9       |    |		Load_Top	At_Offset_1
043b 0272       | r  |		Execute	Discrete,Minus
043c 0a01       |    |		Execute_Immediate	Plus,0x1
043d e218       |    |		Load	0x1,0x18
043e 0227       | '  |		Execute	Access,All_Reference
043f 01d7       |    |		Execute	Vector,Field_Read
0440 a404       |    |		Store_Unchecked	0x2,0x4
0441 e21f       |    |		Load	0x1,0x1f
0442 e404       |    |		Load	0x2,0x4
0443 e225       | %  |		Load	0x1,0x25
0444 e226       | &  |		Load	0x1,0x26
0445 01d7       |    |		Execute	Vector,Field_Read
0446 0271       | q  |		Execute	Discrete,Times
0447 4864       |Hd  |		Short_Literal	0x64
0448 0270       | p  |		Execute	Discrete,Divide
0449 00d8       |    |		Load_Top	At_Offset_0
044a e005       |    |		Load	0x0,0x5
044b 0260       | `  |		Execute	Discrete,In_Type
044c 7001       |p   |		Jump_Nonzero	0x44e
044d 0801       |    |		Execute_Immediate	Raise,0x1
044e 0272       | r  |		Execute	Discrete,Minus
044f 00d9       |    |		Load_Top	At_Offset_1
0450 e402       |    |		Load	0x2,0x2
0451 01d5       |    |		Execute	Vector,Field_Reference
0452 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0453 00d8       |    |		Load_Top	At_Offset_0
0454 e402       |    |		Load	0x2,0x2
0455 01d5       |    |		Execute	Vector,Field_Reference
0456 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0457 00d9       |    |		Load_Top	At_Offset_1
0458 e403       |    |		Load	0x2,0x3
0459 01d5       |    |		Execute	Vector,Field_Reference
045a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
045b 00d8       |    |		Load_Top	At_Offset_0
045c e402       |    |		Load	0x2,0x2
045d 01d5       |    |		Execute	Vector,Field_Reference
045e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
045f 00d9       |    |		Load_Top	At_Offset_1
0460 e403       |    |		Load	0x2,0x3
0461 01d5       |    |		Execute	Vector,Field_Reference
0462 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0463 00c8       |    |		Action	Pop_Auxiliary_Range
0464 3fa7       |?   |		Loop_Increasing	0x40c
0465 00ce       |    |		Action	Pop_Auxiliary
0466 00db       |    |		Load_Top	At_Offset_3
0467 e214       |    |		Load	0x1,0x14
0468 e213       |    |		Load	0x1,0x13
0469 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
046a e212       |    |		Load	0x1,0x12
046b 8045       | E  |		Call	0x0,0x45
046c e211       |    |		Load	0x1,0x11
046d 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
046e 0f00       |    |		Execute_Immediate	Equal,0x0
046f a221       | !  |		Store_Unchecked	0x1,0x21
0470 00cf       |    |		Action	Mark_Auxiliary
0471 e225       | %  |		Load	0x1,0x25
0472 4801       |H   |		Short_Literal	0x1
0473 0263       | c  |		Execute	Discrete,Above_Bound
0474 7018       |p   |		Jump_Nonzero	0x48d
0475 e21f       |    |		Load	0x1,0x1f
0476 00d9       |    |		Load_Top	At_Offset_1
0477 00d8       |    |		Load_Top	At_Offset_0
0478 e005       |    |		Load	0x0,0x5
0479 0260       | `  |		Execute	Discrete,In_Type
047a 7001       |p   |		Jump_Nonzero	0x47c
047b 0801       |    |		Execute_Immediate	Raise,0x1
047c e225       | %  |		Load	0x1,0x25
047d e226       | &  |		Load	0x1,0x26
047e 01d7       |    |		Execute	Vector,Field_Read
047f 0271       | q  |		Execute	Discrete,Times
0480 0272       | r  |		Execute	Discrete,Minus
0481 c405       |    |		Store	0x2,0x5
0482 00db       |    |		Load_Top	At_Offset_3
0483 4800       |H   |		Short_Literal	0x0
0484 e405       |    |		Load	0x2,0x5
0485 e220       |    |		Load	0x1,0x20
0486 e215       |    |		Load	0x1,0x15
0487 e213       |    |		Load	0x1,0x13
0488 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0489 e212       |    |		Load	0x1,0x12
048a 8046       | F  |		Call	0x0,0x46
048b 00c8       |    |		Action	Pop_Auxiliary_Range
048c 3fe8       |?   |		Loop_Increasing	0x475
048d 00ce       |    |		Action	Pop_Auxiliary
048e 4800       |H   |		Short_Literal	0x0
048f 00db       |    |		Load_Top	At_Offset_3
0490 e214       |    |		Load	0x1,0x14
0491 e213       |    |		Load	0x1,0x13
0492 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0493 e212       |    |		Load	0x1,0x12
0494 8047       | G  |		Call	0x0,0x47
0495 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0496 0000 0000  |    |		.XXX[0x2]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a3       |    |		.CONST	0x04a3								; Address of begin
0499 0004       |    |		.CONST	0x0004								; Address of exception handler
049a 0005       |    |		.CONST	0x0005								; Number of locals
049b			INIT_0498:
049b e002       |    |		Load	0x0,0x2
049c 0007       |    |		Action	Break_Optional
049d e002       |    |		Load	0x0,0x2
049e 0007       |    |		Action	Break_Optional
049f e00d       |    |		Load	0x0,0xd
04a0 0007       |    |		Action	Break_Optional
04a1 e005       |    |		Load	0x0,0x5
04a2 0007       |    |		Action	Break_Optional
04a3			BODY_0498:
04a3 e21a       |    |		Load	0x1,0x1a
04a4 e219       |    |		Load	0x1,0x19
04a5 027d       | }  |		Execute	Discrete,Greater
04a6 680a       |h   |		Jump_Zero	0x4b1
04a7 e218       |    |		Load	0x1,0x18
04a8 0227       | '  |		Execute	Access,All_Reference
04a9 01dc       |    |		Execute	Vector,Last
04aa e21a       |    |		Load	0x1,0x1a
04ab 0272       | r  |		Execute	Discrete,Minus
04ac 0a01       |    |		Execute_Immediate	Plus,0x1
04ad e219       |    |		Load	0x1,0x19
04ae 0273       | s  |		Execute	Discrete,Plus
04af 005a       | Z  |		Store_Top	Discrete,At_Offset_2
04b0 7805       |x   |		Jump	0x4b6
04b1 e219       |    |		Load	0x1,0x19
04b2 e21a       |    |		Load	0x1,0x1a
04b3 0272       | r  |		Execute	Discrete,Minus
04b4 0a01       |    |		Execute_Immediate	Plus,0x1
04b5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
04b6 e5ff       |    |		Load	0x2,-0x1
04b7 7004       |p   |		Jump_Nonzero	0x4bc
04b8 00d9       |    |		Load_Top	At_Offset_1
04b9 e21e       |    |		Load	0x1,0x1e
04ba 027d       | }  |		Execute	Discrete,Greater
04bb 682f       |h/  |		Jump_Zero	0x4eb
04bc e219       |    |		Load	0x1,0x19
04bd e218       |    |		Load	0x1,0x18
04be 0227       | '  |		Execute	Access,All_Reference
04bf 01d7       |    |		Execute	Vector,Field_Read
04c0 a402       |    |		Store_Unchecked	0x2,0x2
04c1 e219       |    |		Load	0x1,0x19
04c2 a21a       |    |		Store_Unchecked	0x1,0x1a
04c3 00cf       |    |		Action	Mark_Auxiliary
04c4 e21e       |    |		Load	0x1,0x1e
04c5 4802       |H   |		Short_Literal	0x2
04c6 0263       | c  |		Execute	Discrete,Above_Bound
04c7 7021       |p!  |		Jump_Nonzero	0x4e9
04c8 00d8       |    |		Load_Top	At_Offset_0
04c9 e219       |    |		Load	0x1,0x19
04ca 027d       | }  |		Execute	Discrete,Greater
04cb 6809       |h   |		Jump_Zero	0x4d5
04cc e218       |    |		Load	0x1,0x18
04cd 0227       | '  |		Execute	Access,All_Reference
04ce 01dc       |    |		Execute	Vector,Last
04cf 00d9       |    |		Load_Top	At_Offset_1
04d0 e219       |    |		Load	0x1,0x19
04d1 0272       | r  |		Execute	Discrete,Minus
04d2 0272       | r  |		Execute	Discrete,Minus
04d3 c404       |    |		Store	0x2,0x4
04d4 7805       |x   |		Jump	0x4da
04d5 e219       |    |		Load	0x1,0x19
04d6 00d9       |    |		Load_Top	At_Offset_1
04d7 0272       | r  |		Execute	Discrete,Minus
04d8 0a01       |    |		Execute_Immediate	Plus,0x1
04d9 c404       |    |		Store	0x2,0x4
04da e404       |    |		Load	0x2,0x4
04db e218       |    |		Load	0x1,0x18
04dc 0227       | '  |		Execute	Access,All_Reference
04dd 01d7       |    |		Execute	Vector,Field_Read
04de a403       |    |		Store_Unchecked	0x2,0x3
04df e402       |    |		Load	0x2,0x2
04e0 e403       |    |		Load	0x2,0x3
04e1 027c       | |  |		Execute	Discrete,Less
04e2 6804       |h   |		Jump_Zero	0x4e7
04e3 e403       |    |		Load	0x2,0x3
04e4 a402       |    |		Store_Unchecked	0x2,0x2
04e5 e404       |    |		Load	0x2,0x4
04e6 a21a       |    |		Store_Unchecked	0x1,0x1a
04e7 00c8       |    |		Action	Pop_Auxiliary_Range
04e8 3fdf       |?   |		Loop_Increasing	0x4c8
04e9 00ce       |    |		Action	Pop_Auxiliary
04ea 780c       |x   |		Jump	0x4f7
04eb e21a       |    |		Load	0x1,0x1a
04ec e218       |    |		Load	0x1,0x18
04ed 0227       | '  |		Execute	Access,All_Reference
04ee 01d7       |    |		Execute	Vector,Field_Read
04ef e219       |    |		Load	0x1,0x19
04f0 e218       |    |		Load	0x1,0x18
04f1 0227       | '  |		Execute	Access,All_Reference
04f2 01d7       |    |		Execute	Vector,Field_Read
04f3 027c       | |  |		Execute	Discrete,Less
04f4 6802       |h   |		Jump_Zero	0x4f7
04f5 e219       |    |		Load	0x1,0x19
04f6 a21a       |    |		Store_Unchecked	0x1,0x1a
04f7 e5fe       |    |		Load	0x2,-0x2
04f8 7001       |p   |		Jump_Nonzero	0x4fa
04f9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
04fa 00cf       |    |		Action	Mark_Auxiliary
04fb 7806       |x   |		Jump	0x502
04fc e225       | %  |		Load	0x1,0x25
04fd 0a01       |    |		Execute_Immediate	Plus,0x1
04fe c225       | %  |		Store	0x1,0x25
04ff 4801       |H   |		Short_Literal	0x1
0500 a222       | "  |		Store_Unchecked	0x1,0x22
0501 00c9       |    |		Action	Pop_Auxiliary_Loop
0502 e21a       |    |		Load	0x1,0x1a
0503 e218       |    |		Load	0x1,0x18
0504 0227       | '  |		Execute	Access,All_Reference
0505 01d7       |    |		Execute	Vector,Field_Read
0506 e225       | %  |		Load	0x1,0x25
0507 e22a       | *  |		Load	0x1,0x2a
0508 01d7       |    |		Execute	Vector,Field_Read
0509 027d       | }  |		Execute	Discrete,Greater
050a 77f1       |w   |		Jump_Nonzero	0x4fc
050b 00c9       |    |		Action	Pop_Auxiliary_Loop
050c 7806       |x   |		Jump	0x513
050d e225       | %  |		Load	0x1,0x25
050e 0aff       |    |		Execute_Immediate	Plus,-0x1
050f c225       | %  |		Store	0x1,0x25
0510 4801       |H   |		Short_Literal	0x1
0511 a222       | "  |		Store_Unchecked	0x1,0x22
0512 00c9       |    |		Action	Pop_Auxiliary_Loop
0513 e21a       |    |		Load	0x1,0x1a
0514 e218       |    |		Load	0x1,0x18
0515 0227       | '  |		Execute	Access,All_Reference
0516 01d7       |    |		Execute	Vector,Field_Read
0517 e225       | %  |		Load	0x1,0x25
0518 0aff       |    |		Execute_Immediate	Plus,-0x1
0519 e22a       | *  |		Load	0x1,0x2a
051a 01d7       |    |		Execute	Vector,Field_Read
051b 027a       | z  |		Execute	Discrete,Less_Equal
051c 680a       |h   |		Jump_Zero	0x527
051d e225       | %  |		Load	0x1,0x25
051e e211       |    |		Load	0x1,0x11
051f 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0520 00d8       |    |		Load_Top	At_Offset_0
0521 e00d       |    |		Load	0x0,0xd
0522 0260       | `  |		Execute	Discrete,In_Type
0523 7001       |p   |		Jump_Nonzero	0x525
0524 0801       |    |		Execute_Immediate	Raise,0x1
0525 027d       | }  |		Execute	Discrete,Greater
0526 77e6       |w   |		Jump_Nonzero	0x50d
0527 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052e       | .  |		.CONST	0x052e								; Address of begin
0529 0004       |    |		.CONST	0x0004								; Address of exception handler
052a 0003       |    |		.CONST	0x0003								; Number of locals
052b			INIT_0528:
052b e00d       |    |		Load	0x0,0xd
052c 029f 093b  |   ;|		Declare_Subprogram	INIT_0938,For_Call
052e			BODY_0528:
052e e21e       |    |		Load	0x1,0x1e
052f e218       |    |		Load	0x1,0x18
0530 0227       | '  |		Execute	Access,All_Reference
0531 01db       |    |		Execute	Vector,Length
0532 027d       | }  |		Execute	Discrete,Greater
0533 6802       |h   |		Jump_Zero	0x536
0534 8403       |    |		Call	0x2,0x3
0535 781a       |x   |		Jump	0x550
0536 e21a       |    |		Load	0x1,0x1a
0537 e219       |    |		Load	0x1,0x19
0538 027d       | }  |		Execute	Discrete,Greater
0539 680a       |h   |		Jump_Zero	0x544
053a e218       |    |		Load	0x1,0x18
053b 0227       | '  |		Execute	Access,All_Reference
053c 01dc       |    |		Execute	Vector,Last
053d e21a       |    |		Load	0x1,0x1a
053e 0272       | r  |		Execute	Discrete,Minus
053f e219       |    |		Load	0x1,0x19
0540 0273       | s  |		Execute	Discrete,Plus
0541 0a01       |    |		Execute_Immediate	Plus,0x1
0542 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0543 7805       |x   |		Jump	0x549
0544 e219       |    |		Load	0x1,0x19
0545 e21a       |    |		Load	0x1,0x1a
0546 0272       | r  |		Execute	Discrete,Minus
0547 0a01       |    |		Execute_Immediate	Plus,0x1
0548 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0549 00d9       |    |		Load_Top	At_Offset_1
054a e21e       |    |		Load	0x1,0x1e
054b 027d       | }  |		Execute	Discrete,Greater
054c 6803       |h   |		Jump_Zero	0x550
054d 4800       |H   |		Short_Literal	0x0
054e 4801       |H   |		Short_Literal	0x1
054f 822c       | ,  |		Call	0x1,0x2c
0550 4fff       |O   |		Short_Literal	-0x1
0551 4800       |H   |		Short_Literal	0x0
0552 e22a       | *  |		Load	0x1,0x2a
0553 01d6       |    |		Execute	Vector,Field_Write
0554 00cf       |    |		Action	Mark_Auxiliary
0555 e226       | &  |		Load	0x1,0x26
0556 01d9       |    |		Execute	Vector,Reverse_Bounds
0557 0007       |    |		Action	Break_Optional
0558 e21d       |    |		Load	0x1,0x1d
0559 00d9       |    |		Load_Top	At_Offset_1
055a 0273       | s  |		Execute	Discrete,Plus
055b 0aff       |    |		Execute_Immediate	Plus,-0x1
055c 00d9       |    |		Load_Top	At_Offset_1
055d 0270       | p  |		Execute	Discrete,Divide
055e 00d9       |    |		Load_Top	At_Offset_1
055f e226       | &  |		Load	0x1,0x26
0560 01d6       |    |		Execute	Vector,Field_Write
0561 00d8       |    |		Load_Top	At_Offset_0
0562 e226       | &  |		Load	0x1,0x26
0563 01d7       |    |		Execute	Vector,Field_Read
0564 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0565 6805       |h   |		Jump_Zero	0x56b
0566 4800       |H   |		Short_Literal	0x0
0567 00d9       |    |		Load_Top	At_Offset_1
0568 e229       | )  |		Load	0x1,0x29
0569 01d6       |    |		Execute	Vector,Field_Write
056a 7808       |x   |		Jump	0x573
056b 4802       |H   |		Short_Literal	0x2
056c 00d9       |    |		Load_Top	At_Offset_1
056d e226       | &  |		Load	0x1,0x26
056e 01d6       |    |		Execute	Vector,Field_Write
056f 4801       |H   |		Short_Literal	0x1
0570 00d9       |    |		Load_Top	At_Offset_1
0571 e229       | )  |		Load	0x1,0x29
0572 01d6       |    |		Execute	Vector,Field_Write
0573 e21b       |    |		Load	0x1,0x1b
0574 00d9       |    |		Load_Top	At_Offset_1
0575 e226       | &  |		Load	0x1,0x26
0576 01d7       |    |		Execute	Vector,Field_Read
0577 00da       |    |		Load_Top	At_Offset_2
0578 0271       | q  |		Execute	Discrete,Times
0579 0272       | r  |		Execute	Discrete,Minus
057a 0aff       |    |		Execute_Immediate	Plus,-0x1
057b 00d9       |    |		Load_Top	At_Offset_1
057c e228       | (  |		Load	0x1,0x28
057d 01d6       |    |		Execute	Vector,Field_Write
057e 00d8       |    |		Load_Top	At_Offset_0
057f 00d9       |    |		Load_Top	At_Offset_1
0580 e226       | &  |		Load	0x1,0x26
0581 01d7       |    |		Execute	Vector,Field_Read
0582 0271       | q  |		Execute	Discrete,Times
0583 0a01       |    |		Execute_Immediate	Plus,0x1
0584 00d9       |    |		Load_Top	At_Offset_1
0585 e227       | '  |		Load	0x1,0x27
0586 01d6       |    |		Execute	Vector,Field_Write
0587 00d8       |    |		Load_Top	At_Offset_0
0588 4864       |Hd  |		Short_Literal	0x64
0589 0271       | q  |		Execute	Discrete,Times
058a 4864       |Hd  |		Short_Literal	0x64
058b 00da       |    |		Load_Top	At_Offset_2
058c e226       | &  |		Load	0x1,0x26
058d 01d7       |    |		Execute	Vector,Field_Read
058e 0270       | p  |		Execute	Discrete,Divide
058f 0273       | s  |		Execute	Discrete,Plus
0590 0aff       |    |		Execute_Immediate	Plus,-0x1
0591 00d9       |    |		Load_Top	At_Offset_1
0592 e22a       | *  |		Load	0x1,0x2a
0593 01d6       |    |		Execute	Vector,Field_Write
0594 00c8       |    |		Action	Pop_Auxiliary_Range
0595 3fc2       |?   |		Loop_Increasing	0x558
0596 00ce       |    |		Action	Pop_Auxiliary
0597 e21b       |    |		Load	0x1,0x1b
0598 0aff       |    |		Execute_Immediate	Plus,-0x1
0599 c21f       |    |		Store	0x1,0x1f
059a e21c       |    |		Load	0x1,0x1c
059b 0aff       |    |		Execute_Immediate	Plus,-0x1
059c c220       |    |		Store	0x1,0x20
059d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
059e 0000 0000  |    |		.XXX[0x2]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05af       |    |		.CONST	0x05af								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0007       |    |		.CONST	0x0007								; Number of locals
05a3			INIT_05a0:
05a3 e048       | H  |		Load	0x0,0x48
05a4 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
05a5 e048       | H  |		Load	0x0,0x48
05a6 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
05a7 e048       | H  |		Load	0x0,0x48
05a8 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
05a9 e048       | H  |		Load	0x0,0x48
05aa 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
05ab e005       |    |		Load	0x0,0x5
05ac 0007       |    |		Action	Break_Optional
05ad e002       |    |		Load	0x0,0x2
05ae 0007       |    |		Action	Break_Optional
05af			BODY_05a0:
05af e048       | H  |		Load	0x0,0x48
05b0 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
05b1 e048       | H  |		Load	0x0,0x48
05b2 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
05b3 e048       | H  |		Load	0x0,0x48
05b4 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
05b5 e048       | H  |		Load	0x0,0x48
05b6 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
05b7 e048       | H  |		Load	0x0,0x48
05b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
05b9 c402       |    |		Store	0x2,0x2
05ba c403       |    |		Store	0x2,0x3
05bb c404       |    |		Store	0x2,0x4
05bc 005b       | [  |		Store_Top	Discrete,At_Offset_3
05bd e219       |    |		Load	0x1,0x19
05be e218       |    |		Load	0x1,0x18
05bf 0227       | '  |		Execute	Access,All_Reference
05c0 01dc       |    |		Execute	Vector,Last
05c1 027f       |    |		Execute	Discrete,Equal
05c2 6803       |h   |		Jump_Zero	0x5c6
05c3 4801       |H   |		Short_Literal	0x1
05c4 a219       |    |		Store_Unchecked	0x1,0x19
05c5 7803       |x   |		Jump	0x5c9
05c6 e219       |    |		Load	0x1,0x19
05c7 0a01       |    |		Execute_Immediate	Plus,0x1
05c8 c219       |    |		Store	0x1,0x19
05c9 e211       |    |		Load	0x1,0x11
05ca 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
05cb 7006       |p   |		Jump_Nonzero	0x5d2
05cc e402       |    |		Load	0x2,0x2
05cd e219       |    |		Load	0x1,0x19
05ce e218       |    |		Load	0x1,0x18
05cf 0227       | '  |		Execute	Access,All_Reference
05d0 01d6       |    |		Execute	Vector,Field_Write
05d1 7819       |x   |		Jump	0x5eb
05d2 e211       |    |		Load	0x1,0x11
05d3 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
05d4 0f01       |    |		Execute_Immediate	Equal,0x1
05d5 6806       |h   |		Jump_Zero	0x5dc
05d6 e403       |    |		Load	0x2,0x3
05d7 e219       |    |		Load	0x1,0x19
05d8 e218       |    |		Load	0x1,0x18
05d9 0227       | '  |		Execute	Access,All_Reference
05da 01d6       |    |		Execute	Vector,Field_Write
05db 780f       |x   |		Jump	0x5eb
05dc e211       |    |		Load	0x1,0x11
05dd 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
05de 0f05       |    |		Execute_Immediate	Equal,0x5
05df 6806       |h   |		Jump_Zero	0x5e6
05e0 00db       |    |		Load_Top	At_Offset_3
05e1 e219       |    |		Load	0x1,0x19
05e2 e218       |    |		Load	0x1,0x18
05e3 0227       | '  |		Execute	Access,All_Reference
05e4 01d6       |    |		Execute	Vector,Field_Write
05e5 7805       |x   |		Jump	0x5eb
05e6 00da       |    |		Load_Top	At_Offset_2
05e7 e219       |    |		Load	0x1,0x19
05e8 e218       |    |		Load	0x1,0x18
05e9 0227       | '  |		Execute	Access,All_Reference
05ea 01d6       |    |		Execute	Vector,Field_Write
05eb e219       |    |		Load	0x1,0x19
05ec e218       |    |		Load	0x1,0x18
05ed 0227       | '  |		Execute	Access,All_Reference
05ee 01d7       |    |		Execute	Vector,Field_Read
05ef 60a4       |`   |		Indirect_Literal	Discrete,0x694,{0x00000000, 0x00000834}
05f0 027b       | {  |		Execute	Discrete,Greater_Equal
05f1 6805       |h   |		Jump_Zero	0x5f7
05f2 609d       |`   |		Indirect_Literal	Discrete,0x690,{0x00000000, 0x00000833}
05f3 e219       |    |		Load	0x1,0x19
05f4 e218       |    |		Load	0x1,0x18
05f5 0227       | '  |		Execute	Access,All_Reference
05f6 01d6       |    |		Execute	Vector,Field_Write
05f7 4801       |H   |		Short_Literal	0x1
05f8 4800       |H   |		Short_Literal	0x0
05f9 822c       | ,  |		Call	0x1,0x2c
05fa e222       | "  |		Load	0x1,0x22
05fb 7090       |p   |		Jump_Nonzero	0x68c
05fc e225       | %  |		Load	0x1,0x25
05fd e228       | (  |		Load	0x1,0x28
05fe 01d7       |    |		Execute	Vector,Field_Read
05ff 4800       |H   |		Short_Literal	0x0
0600 e225       | %  |		Load	0x1,0x25
0601 e227       | '  |		Load	0x1,0x27
0602 01d7       |    |		Execute	Vector,Field_Read
0603 00d8       |    |		Load_Top	At_Offset_0
0604 e02d       | -  |		Load	0x0,0x2d
0605 0260       | `  |		Execute	Discrete,In_Type
0606 7001       |p   |		Jump_Nonzero	0x608
0607 0801       |    |		Execute_Immediate	Raise,0x1
0608 e21c       |    |		Load	0x1,0x1c
0609 0aff       |    |		Execute_Immediate	Plus,-0x1
060a 00d8       |    |		Load_Top	At_Offset_0
060b e02d       | -  |		Load	0x0,0x2d
060c 0260       | `  |		Execute	Discrete,In_Type
060d 7001       |p   |		Jump_Nonzero	0x60f
060e 0801       |    |		Execute_Immediate	Raise,0x1
060f e225       | %  |		Load	0x1,0x25
0610 e228       | (  |		Load	0x1,0x28
0611 01d7       |    |		Execute	Vector,Field_Read
0612 4801       |H   |		Short_Literal	0x1
0613 e214       |    |		Load	0x1,0x14
0614 e213       |    |		Load	0x1,0x13
0615 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0616 e213       |    |		Load	0x1,0x13
0617 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0618 e212       |    |		Load	0x1,0x12
0619 8049       | I  |		Call	0x0,0x49
061a e225       | %  |		Load	0x1,0x25
061b e229       | )  |		Load	0x1,0x29
061c 01d7       |    |		Execute	Vector,Field_Read
061d 6811       |h   |		Jump_Zero	0x62f
061e e211       |    |		Load	0x1,0x11
061f 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0620 0227       | '  |		Execute	Access,All_Reference
0621 e223       | #  |		Load	0x1,0x23
0622 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0623 0a04       |    |		Execute_Immediate	Plus,0x4
0624 00d8       |    |		Load_Top	At_Offset_0
0625 e005       |    |		Load	0x0,0x5
0626 0260       | `  |		Execute	Discrete,In_Type
0627 7001       |p   |		Jump_Nonzero	0x629
0628 0801       |    |		Execute_Immediate	Raise,0x1
0629 4804       |H   |		Short_Literal	0x4
062a e214       |    |		Load	0x1,0x14
062b e213       |    |		Load	0x1,0x13
062c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
062d e212       |    |		Load	0x1,0x12
062e 8044       | D  |		Call	0x0,0x44
062f 4800       |H   |		Short_Literal	0x0
0630 e225       | %  |		Load	0x1,0x25
0631 e227       | '  |		Load	0x1,0x27
0632 01d7       |    |		Execute	Vector,Field_Read
0633 00d8       |    |		Load_Top	At_Offset_0
0634 e02d       | -  |		Load	0x0,0x2d
0635 0260       | `  |		Execute	Discrete,In_Type
0636 7001       |p   |		Jump_Nonzero	0x638
0637 0801       |    |		Execute_Immediate	Raise,0x1
0638 4801       |H   |		Short_Literal	0x1
0639 e225       | %  |		Load	0x1,0x25
063a e228       | (  |		Load	0x1,0x28
063b 01d7       |    |		Execute	Vector,Field_Read
063c e220       |    |		Load	0x1,0x20
063d e213       |    |		Load	0x1,0x13
063e e212       |    |		Load	0x1,0x12
063f 804a       | J  |		Call	0x0,0x4a
0640 e21f       |    |		Load	0x1,0x1f
0641 e219       |    |		Load	0x1,0x19
0642 e218       |    |		Load	0x1,0x18
0643 0227       | '  |		Execute	Access,All_Reference
0644 01d7       |    |		Execute	Vector,Field_Read
0645 e225       | %  |		Load	0x1,0x25
0646 e226       | &  |		Load	0x1,0x26
0647 01d7       |    |		Execute	Vector,Field_Read
0648 0271       | q  |		Execute	Discrete,Times
0649 4864       |Hd  |		Short_Literal	0x64
064a 0270       | p  |		Execute	Discrete,Divide
064b 00d8       |    |		Load_Top	At_Offset_0
064c e005       |    |		Load	0x0,0x5
064d 0260       | `  |		Execute	Discrete,In_Type
064e 7001       |p   |		Jump_Nonzero	0x650
064f 0801       |    |		Execute_Immediate	Raise,0x1
0650 0272       | r  |		Execute	Discrete,Minus
0651 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0652 00d9       |    |		Load_Top	At_Offset_1
0653 e220       |    |		Load	0x1,0x20
0654 e21f       |    |		Load	0x1,0x1f
0655 e220       |    |		Load	0x1,0x20
0656 e214       |    |		Load	0x1,0x14
0657 e213       |    |		Load	0x1,0x13
0658 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0659 e212       |    |		Load	0x1,0x12
065a 8046       | F  |		Call	0x0,0x46
065b e211       |    |		Load	0x1,0x11
065c 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
065d 6805       |h   |		Jump_Zero	0x663
065e e221       | !  |		Load	0x1,0x21
065f 6803       |h   |		Jump_Zero	0x663
0660 4800       |H   |		Short_Literal	0x0
0661 a221       | !  |		Store_Unchecked	0x1,0x21
0662 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0663 e211       |    |		Load	0x1,0x11
0664 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0665 a221       | !  |		Store_Unchecked	0x1,0x21
0666 00cf       |    |		Action	Mark_Auxiliary
0667 e225       | %  |		Load	0x1,0x25
0668 4801       |H   |		Short_Literal	0x1
0669 0263       | c  |		Execute	Discrete,Above_Bound
066a 7019       |p   |		Jump_Nonzero	0x684
066b e21f       |    |		Load	0x1,0x1f
066c 00d9       |    |		Load_Top	At_Offset_1
066d 00d8       |    |		Load_Top	At_Offset_0
066e e005       |    |		Load	0x0,0x5
066f 0260       | `  |		Execute	Discrete,In_Type
0670 7001       |p   |		Jump_Nonzero	0x672
0671 0801       |    |		Execute_Immediate	Raise,0x1
0672 e225       | %  |		Load	0x1,0x25
0673 e226       | &  |		Load	0x1,0x26
0674 01d7       |    |		Execute	Vector,Field_Read
0675 0271       | q  |		Execute	Discrete,Times
0676 0272       | r  |		Execute	Discrete,Minus
0677 00d8       |    |		Load_Top	At_Offset_0
0678 e005       |    |		Load	0x0,0x5
0679 0260       | `  |		Execute	Discrete,In_Type
067a 7001       |p   |		Jump_Nonzero	0x67c
067b 0801       |    |		Execute_Immediate	Raise,0x1
067c e220       |    |		Load	0x1,0x20
067d e215       |    |		Load	0x1,0x15
067e e213       |    |		Load	0x1,0x13
067f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0680 e212       |    |		Load	0x1,0x12
0681 804b       | K  |		Call	0x0,0x4b
0682 00c8       |    |		Action	Pop_Auxiliary_Range
0683 3fe7       |?   |		Loop_Increasing	0x66b
0684 00ce       |    |		Action	Pop_Auxiliary
0685 00d9       |    |		Load_Top	At_Offset_1
0686 e220       |    |		Load	0x1,0x20
0687 e214       |    |		Load	0x1,0x14
0688 e213       |    |		Load	0x1,0x13
0689 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
068a e212       |    |		Load	0x1,0x12
068b 804b       | K  |		Call	0x0,0x4b
068c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
068d 0000 0000  |    |		.XXX[0x3]
068f 0000       |    |
0690 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000833}
0694 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000834}
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069d       |    |		.CONST	0x069d								; Address of begin
0699 0004       |    |		.CONST	0x0004								; Address of exception handler
069a 0002       |    |		.CONST	0x0002								; Number of locals
069b			INIT_0698:
069b e005       |    |		Load	0x0,0x5
069c 0007       |    |		Action	Break_Optional
069d			BODY_0698:
069d 00db       |    |		Load_Top	At_Offset_3
069e 2616       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
069f 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
06a0 00d8       |    |		Load_Top	At_Offset_0
06a1 e005       |    |		Load	0x0,0x5
06a2 0260       | `  |		Execute	Discrete,In_Type
06a3 7001       |p   |		Jump_Nonzero	0x6a5
06a4 0801       |    |		Execute_Immediate	Raise,0x1
06a5 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
06a6 00d8       |    |		Load_Top	At_Offset_0
06a7 0d01       |    |		Execute_Immediate	Less,0x1
06a8 6802       |h   |		Jump_Zero	0x6ab
06a9 4801       |H   |		Short_Literal	0x1
06aa 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
06ab 00d8       |    |		Load_Top	At_Offset_0
06ac a21b       |    |		Store_Unchecked	0x1,0x1b
06ad 00d8       |    |		Load_Top	At_Offset_0
06ae 0afc       |    |		Execute_Immediate	Plus,-0x4
06af e223       | #  |		Load	0x1,0x23
06b0 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
06b1 e223       | #  |		Load	0x1,0x23
06b2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
06b3 0273       | s  |		Execute	Discrete,Plus
06b4 0901       |    |		Execute_Immediate	Binary_Scale,0x1
06b5 0272       | r  |		Execute	Discrete,Minus
06b6 0afc       |    |		Execute_Immediate	Plus,-0x4
06b7 0059       | Y  |		Store_Top	Discrete,At_Offset_1
06b8 00d8       |    |		Load_Top	At_Offset_0
06b9 e225       | %  |		Load	0x1,0x25
06ba 00d8       |    |		Load_Top	At_Offset_0
06bb e005       |    |		Load	0x0,0x5
06bc 0260       | `  |		Execute	Discrete,In_Type
06bd 7001       |p   |		Jump_Nonzero	0x6bf
06be 0801       |    |		Execute_Immediate	Raise,0x1
06bf 0901       |    |		Execute_Immediate	Binary_Scale,0x1
06c0 027c       | |  |		Execute	Discrete,Less
06c1 680d       |h   |		Jump_Zero	0x6cf
06c2 e225       | %  |		Load	0x1,0x25
06c3 00d8       |    |		Load_Top	At_Offset_0
06c4 e005       |    |		Load	0x0,0x5
06c5 0260       | `  |		Execute	Discrete,In_Type
06c6 7001       |p   |		Jump_Nonzero	0x6c8
06c7 0801       |    |		Execute_Immediate	Raise,0x1
06c8 0901       |    |		Execute_Immediate	Binary_Scale,0x1
06c9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
06ca 4801       |H   |		Short_Literal	0x1
06cb e225       | %  |		Load	0x1,0x25
06cc e229       | )  |		Load	0x1,0x29
06cd 01d6       |    |		Execute	Vector,Field_Write
06ce 7804       |x   |		Jump	0x6d3
06cf 4800       |H   |		Short_Literal	0x0
06d0 e225       | %  |		Load	0x1,0x25
06d1 e229       | )  |		Load	0x1,0x29
06d2 01d6       |    |		Execute	Vector,Field_Write
06d3 00d8       |    |		Load_Top	At_Offset_0
06d4 a21d       |    |		Store_Unchecked	0x1,0x1d
06d5 00db       |    |		Load_Top	At_Offset_3
06d6 2616       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
06d7 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
06d8 a21e       |    |		Store_Unchecked	0x1,0x1e
06d9 e21e       |    |		Load	0x1,0x1e
06da 0d01       |    |		Execute_Immediate	Less,0x1
06db 6802       |h   |		Jump_Zero	0x6de
06dc 4801       |H   |		Short_Literal	0x1
06dd a21e       |    |		Store_Unchecked	0x1,0x1e
06de e21e       |    |		Load	0x1,0x1e
06df 00d8       |    |		Load_Top	At_Offset_0
06e0 e005       |    |		Load	0x0,0x5
06e1 0260       | `  |		Execute	Discrete,In_Type
06e2 7001       |p   |		Jump_Nonzero	0x6e4
06e3 0801       |    |		Execute_Immediate	Raise,0x1
06e4 a21c       |    |		Store_Unchecked	0x1,0x1c
06e5 822d       | -  |		Call	0x1,0x2d
06e6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06e7 0000       |    |		.XXX[0x1]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06ef       |    |		.CONST	0x06ef								; Address of begin
06e9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ea 0003       |    |		.CONST	0x0003								; Number of locals
06eb			INIT_06e8:
06eb 029f 09a3  |    |		Declare_Subprogram	INIT_09a0,For_Call
06ed 029f 09bb  |    |		Declare_Subprogram	INIT_09b8,For_Call
06ef			BODY_06e8:
06ef e211       |    |		Load	0x1,0x11
06f0 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
06f1 7004       |p   |		Jump_Nonzero	0x6f6
06f2 4801       |H   |		Short_Literal	0x1
06f3 e211       |    |		Load	0x1,0x11
06f4 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
06f5 7813       |x   |		Jump	0x709
06f6 e211       |    |		Load	0x1,0x11
06f7 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
06f8 0f01       |    |		Execute_Immediate	Equal,0x1
06f9 6804       |h   |		Jump_Zero	0x6fe
06fa 4805       |H   |		Short_Literal	0x5
06fb e211       |    |		Load	0x1,0x11
06fc 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
06fd 780b       |x   |		Jump	0x709
06fe e211       |    |		Load	0x1,0x11
06ff 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0700 0f05       |    |		Execute_Immediate	Equal,0x5
0701 6804       |h   |		Jump_Zero	0x706
0702 480f       |H   |		Short_Literal	0xf
0703 e211       |    |		Load	0x1,0x11
0704 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0705 7803       |x   |		Jump	0x709
0706 4800       |H   |		Short_Literal	0x0
0707 e211       |    |		Load	0x1,0x11
0708 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0709 8026       | &  |		Call	0x0,0x26
070a e211       |    |		Load	0x1,0x11
070b 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
070c 00e0       |    |		Load_Encached	Standard_Cache
070d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
070e 8027       | '  |		Call	0x0,0x27
070f 01cc       |    |		Execute	Vector,Catenate
0710 e004       |    |		Load	0x0,0x4
0711 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0712 e211       |    |		Load	0x1,0x11
0713 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0714 8402       |    |		Call	0x2,0x2
0715 8403       |    |		Call	0x2,0x3
0716 4801       |H   |		Short_Literal	0x1
0717 a222       | "  |		Store_Unchecked	0x1,0x22
0718 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0719 0000 0000  |    |		.BLANK	0000[0x7]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0729       | )  |		.CONST	0x0729								; Address of begin
0721 0004       |    |		.CONST	0x0004								; Address of exception handler
0722 0003       |    |		.CONST	0x0003								; Number of locals
0723			INIT_0720:
0723 e04c       | L  |		Load	0x0,0x4c
0724 0322       | "  |		Declare_Variable	Record
0725 00d8       |    |		Load_Top	At_Offset_0
0726 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0727 e002       |    |		Load	0x0,0x2
0728 0007       |    |		Action	Break_Optional
0729			BODY_0720:
0729 4806       |H   |		Short_Literal	0x6
072a 00da       |    |		Load_Top	At_Offset_2
072b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
072c e211       |    |		Load	0x1,0x11
072d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
072e e211       |    |		Load	0x1,0x11
072f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0730 804d       | M  |		Call	0x0,0x4d
0731 00da       |    |		Load_Top	At_Offset_2
0732 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0733 e211       |    |		Load	0x1,0x11
0734 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0735 00da       |    |		Load_Top	At_Offset_2
0736 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0737 e211       |    |		Load	0x1,0x11
0738 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0739 0227       | '  |		Execute	Access,All_Reference
073a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
073b 00da       |    |		Load_Top	At_Offset_2
073c 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
073d 4801       |H   |		Short_Literal	0x1
073e 00da       |    |		Load_Top	At_Offset_2
073f 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0740 4801       |H   |		Short_Literal	0x1
0741 00da       |    |		Load_Top	At_Offset_2
0742 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0743 4801       |H   |		Short_Literal	0x1
0744 00da       |    |		Load_Top	At_Offset_2
0745 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
0746 4801       |H   |		Short_Literal	0x1
0747 00da       |    |		Load_Top	At_Offset_2
0748 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
0749 e211       |    |		Load	0x1,0x11
074a 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
074b 684c       |hL  |		Jump_Zero	0x798
074c 00d9       |    |		Load_Top	At_Offset_1
074d e04e       | N  |		Load	0x0,0x4e
074e 0337       | 7  |		Declare_Variable	Array
074f 4801       |H   |		Short_Literal	0x1
0750 481f       |H   |		Short_Literal	0x1f
0751 00da       |    |		Load_Top	At_Offset_2
0752 01d6       |    |		Execute	Vector,Field_Write
0753 4801       |H   |		Short_Literal	0x1
0754 4811       |H   |		Short_Literal	0x11
0755 00da       |    |		Load_Top	At_Offset_2
0756 01d6       |    |		Execute	Vector,Field_Write
0757 4801       |H   |		Short_Literal	0x1
0758 481d       |H   |		Short_Literal	0x1d
0759 00da       |    |		Load_Top	At_Offset_2
075a 01d6       |    |		Execute	Vector,Field_Write
075b 4801       |H   |		Short_Literal	0x1
075c 481c       |H   |		Short_Literal	0x1c
075d 00da       |    |		Load_Top	At_Offset_2
075e 01d6       |    |		Execute	Vector,Field_Write
075f 4801       |H   |		Short_Literal	0x1
0760 480f       |H   |		Short_Literal	0xf
0761 00da       |    |		Load_Top	At_Offset_2
0762 01d6       |    |		Execute	Vector,Field_Write
0763 4801       |H   |		Short_Literal	0x1
0764 481a       |H   |		Short_Literal	0x1a
0765 00da       |    |		Load_Top	At_Offset_2
0766 01d6       |    |		Execute	Vector,Field_Write
0767 4801       |H   |		Short_Literal	0x1
0768 480b       |H   |		Short_Literal	0xb
0769 00da       |    |		Load_Top	At_Offset_2
076a 01d6       |    |		Execute	Vector,Field_Write
076b 4801       |H   |		Short_Literal	0x1
076c 480a       |H   |		Short_Literal	0xa
076d 00da       |    |		Load_Top	At_Offset_2
076e 01d6       |    |		Execute	Vector,Field_Write
076f 4809       |H   |		Short_Literal	0x9
0770 4800       |H   |		Short_Literal	0x0
0771 4800       |H   |		Short_Literal	0x0
0772 00d9       |    |		Load_Top	At_Offset_1
0773 e405       |    |		Load	0x2,0x5
0774 01d6       |    |		Execute	Vector,Field_Write
0775 3ffb       |?   |		Loop_Increasing	0x771
0776 480e       |H   |		Short_Literal	0xe
0777 480c       |H   |		Short_Literal	0xc
0778 4800       |H   |		Short_Literal	0x0
0779 00d9       |    |		Load_Top	At_Offset_1
077a e405       |    |		Load	0x2,0x5
077b 01d6       |    |		Execute	Vector,Field_Write
077c 3ffb       |?   |		Loop_Increasing	0x778
077d 4800       |H   |		Short_Literal	0x0
077e 4810       |H   |		Short_Literal	0x10
077f 00da       |    |		Load_Top	At_Offset_2
0780 01d6       |    |		Execute	Vector,Field_Write
0781 4819       |H   |		Short_Literal	0x19
0782 4812       |H   |		Short_Literal	0x12
0783 4800       |H   |		Short_Literal	0x0
0784 00d9       |    |		Load_Top	At_Offset_1
0785 e405       |    |		Load	0x2,0x5
0786 01d6       |    |		Execute	Vector,Field_Write
0787 3ffb       |?   |		Loop_Increasing	0x783
0788 4800       |H   |		Short_Literal	0x0
0789 481b       |H   |		Short_Literal	0x1b
078a 00da       |    |		Load_Top	At_Offset_2
078b 01d6       |    |		Execute	Vector,Field_Write
078c 4800       |H   |		Short_Literal	0x0
078d 481e       |H   |		Short_Literal	0x1e
078e 00da       |    |		Load_Top	At_Offset_2
078f 01d6       |    |		Execute	Vector,Field_Write
0790 e04e       | N  |		Load	0x0,0x4e
0791 01c3       |    |		Execute	Vector,Check_In_Type
0792 e213       |    |		Load	0x1,0x13
0793 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0794 e212       |    |		Load	0x1,0x12
0795 804f       | O  |		Call	0x0,0x4f
0796 a215       |    |		Store_Unchecked	0x1,0x15
0797 7834       |x4  |		Jump	0x7cc
0798 00d9       |    |		Load_Top	At_Offset_1
0799 e04e       | N  |		Load	0x0,0x4e
079a 0337       | 7  |		Declare_Variable	Array
079b 4801       |H   |		Short_Literal	0x1
079c 481f       |H   |		Short_Literal	0x1f
079d 00da       |    |		Load_Top	At_Offset_2
079e 01d6       |    |		Execute	Vector,Field_Write
079f 4801       |H   |		Short_Literal	0x1
07a0 4811       |H   |		Short_Literal	0x11
07a1 00da       |    |		Load_Top	At_Offset_2
07a2 01d6       |    |		Execute	Vector,Field_Write
07a3 4801       |H   |		Short_Literal	0x1
07a4 481d       |H   |		Short_Literal	0x1d
07a5 00da       |    |		Load_Top	At_Offset_2
07a6 01d6       |    |		Execute	Vector,Field_Write
07a7 4801       |H   |		Short_Literal	0x1
07a8 481c       |H   |		Short_Literal	0x1c
07a9 00da       |    |		Load_Top	At_Offset_2
07aa 01d6       |    |		Execute	Vector,Field_Write
07ab 4801       |H   |		Short_Literal	0x1
07ac 480f       |H   |		Short_Literal	0xf
07ad 00da       |    |		Load_Top	At_Offset_2
07ae 01d6       |    |		Execute	Vector,Field_Write
07af 480e       |H   |		Short_Literal	0xe
07b0 4800       |H   |		Short_Literal	0x0
07b1 4800       |H   |		Short_Literal	0x0
07b2 00d9       |    |		Load_Top	At_Offset_1
07b3 e405       |    |		Load	0x2,0x5
07b4 01d6       |    |		Execute	Vector,Field_Write
07b5 3ffb       |?   |		Loop_Increasing	0x7b1
07b6 4800       |H   |		Short_Literal	0x0
07b7 4810       |H   |		Short_Literal	0x10
07b8 00da       |    |		Load_Top	At_Offset_2
07b9 01d6       |    |		Execute	Vector,Field_Write
07ba 481b       |H   |		Short_Literal	0x1b
07bb 4812       |H   |		Short_Literal	0x12
07bc 4800       |H   |		Short_Literal	0x0
07bd 00d9       |    |		Load_Top	At_Offset_1
07be e405       |    |		Load	0x2,0x5
07bf 01d6       |    |		Execute	Vector,Field_Write
07c0 3ffb       |?   |		Loop_Increasing	0x7bc
07c1 4800       |H   |		Short_Literal	0x0
07c2 481e       |H   |		Short_Literal	0x1e
07c3 00da       |    |		Load_Top	At_Offset_2
07c4 01d6       |    |		Execute	Vector,Field_Write
07c5 e04e       | N  |		Load	0x0,0x4e
07c6 01c3       |    |		Execute	Vector,Check_In_Type
07c7 e213       |    |		Load	0x1,0x13
07c8 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
07c9 e212       |    |		Load	0x1,0x12
07ca 804f       | O  |		Call	0x0,0x4f
07cb a215       |    |		Store_Unchecked	0x1,0x15
07cc 4803       |H   |		Short_Literal	0x3
07cd 00da       |    |		Load_Top	At_Offset_2
07ce 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07cf e211       |    |		Load	0x1,0x11
07d0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07d1 00da       |    |		Load_Top	At_Offset_2
07d2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
07d3 e211       |    |		Load	0x1,0x11
07d4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07d5 00da       |    |		Load_Top	At_Offset_2
07d6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
07d7 e211       |    |		Load	0x1,0x11
07d8 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
07d9 0227       | '  |		Execute	Access,All_Reference
07da 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
07db 00da       |    |		Load_Top	At_Offset_2
07dc 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
07dd 4801       |H   |		Short_Literal	0x1
07de 00da       |    |		Load_Top	At_Offset_2
07df 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
07e0 00d9       |    |		Load_Top	At_Offset_1
07e1 e04e       | N  |		Load	0x0,0x4e
07e2 0337       | 7  |		Declare_Variable	Array
07e3 4801       |H   |		Short_Literal	0x1
07e4 481f       |H   |		Short_Literal	0x1f
07e5 00da       |    |		Load_Top	At_Offset_2
07e6 01d6       |    |		Execute	Vector,Field_Write
07e7 4801       |H   |		Short_Literal	0x1
07e8 4811       |H   |		Short_Literal	0x11
07e9 00da       |    |		Load_Top	At_Offset_2
07ea 01d6       |    |		Execute	Vector,Field_Write
07eb 4801       |H   |		Short_Literal	0x1
07ec 481d       |H   |		Short_Literal	0x1d
07ed 00da       |    |		Load_Top	At_Offset_2
07ee 01d6       |    |		Execute	Vector,Field_Write
07ef 4801       |H   |		Short_Literal	0x1
07f0 481c       |H   |		Short_Literal	0x1c
07f1 00da       |    |		Load_Top	At_Offset_2
07f2 01d6       |    |		Execute	Vector,Field_Write
07f3 4801       |H   |		Short_Literal	0x1
07f4 480f       |H   |		Short_Literal	0xf
07f5 00da       |    |		Load_Top	At_Offset_2
07f6 01d6       |    |		Execute	Vector,Field_Write
07f7 480e       |H   |		Short_Literal	0xe
07f8 4800       |H   |		Short_Literal	0x0
07f9 4800       |H   |		Short_Literal	0x0
07fa 00d9       |    |		Load_Top	At_Offset_1
07fb e405       |    |		Load	0x2,0x5
07fc 01d6       |    |		Execute	Vector,Field_Write
07fd 3ffb       |?   |		Loop_Increasing	0x7f9
07fe 4800       |H   |		Short_Literal	0x0
07ff 4810       |H   |		Short_Literal	0x10
0800 00da       |    |		Load_Top	At_Offset_2
0801 01d6       |    |		Execute	Vector,Field_Write
0802 481b       |H   |		Short_Literal	0x1b
0803 4812       |H   |		Short_Literal	0x12
0804 4800       |H   |		Short_Literal	0x0
0805 00d9       |    |		Load_Top	At_Offset_1
0806 e405       |    |		Load	0x2,0x5
0807 01d6       |    |		Execute	Vector,Field_Write
0808 3ffb       |?   |		Loop_Increasing	0x804
0809 4800       |H   |		Short_Literal	0x0
080a 481e       |H   |		Short_Literal	0x1e
080b 00da       |    |		Load_Top	At_Offset_2
080c 01d6       |    |		Execute	Vector,Field_Write
080d e04e       | N  |		Load	0x0,0x4e
080e 01c3       |    |		Execute	Vector,Check_In_Type
080f e213       |    |		Load	0x1,0x13
0810 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0811 e212       |    |		Load	0x1,0x12
0812 804f       | O  |		Call	0x0,0x4f
0813 a214       |    |		Store_Unchecked	0x1,0x14
0814 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0815 0000 0000  |    |		.XXX[0x3]
0817 0000       |    |
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081d       |    |		.CONST	0x081d								; Address of begin
0819 0004       |    |		.CONST	0x0004								; Address of exception handler
081a 0002       |    |		.CONST	0x0002								; Number of locals
081b			INIT_0818:
081b e050       | P  |		Load	0x0,0x50
081c 0337       | 7  |		Declare_Variable	Array
081d			BODY_0818:
081d 4800       |H   |		Short_Literal	0x0
081e e5fe       |    |		Load	0x2,-0x2
081f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0820 4800       |H   |		Short_Literal	0x0
0821 e5fe       |    |		Load	0x2,-0x2
0822 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0823 e051       | Q  |		Load	0x0,0x51
0824 00d9       |    |		Load_Top	At_Offset_1
0825 01d4       |    |		Execute	Vector,Structure_Write
0826 00db       |    |		Load_Top	At_Offset_3
0827 4800       |H   |		Short_Literal	0x0
0828 00e5       |    |		Load_Encached	Long_Integer_Cache
0829 00d9       |    |		Load_Top	At_Offset_1
082a 0267       | g  |		Execute	Discrete,Predecessor
082b e024       | $  |		Load	0x0,0x24
082c 0334       | 4  |		Declare_Variable	Array,With_Constraint
082d 01de       |    |		Execute	Vector,Not_Equal
082e 6844       |hD  |		Jump_Zero	0x873
082f 00d8       |    |		Load_Top	At_Offset_0
0830 e5fe       |    |		Load	0x2,-0x2
0831 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0832 e02d       | -  |		Load	0x0,0x2d
0833 025e       | ^  |		Execute	Discrete,Convert
0834 e5fe       |    |		Load	0x2,-0x2
0835 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0836 e02d       | -  |		Load	0x0,0x2d
0837 025e       | ^  |		Execute	Discrete,Convert
0838 e5fe       |    |		Load	0x2,-0x2
0839 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
083a e005       |    |		Load	0x0,0x5
083b 025e       | ^  |		Execute	Discrete,Convert
083c e5fe       |    |		Load	0x2,-0x2
083d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
083e e005       |    |		Load	0x0,0x5
083f 025e       | ^  |		Execute	Discrete,Convert
0840 e5ff       |    |		Load	0x2,-0x1
0841 8052       | R  |		Call	0x0,0x52
0842 e5fe       |    |		Load	0x2,-0x2
0843 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0844 e5fe       |    |		Load	0x2,-0x2
0845 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0846 e5fe       |    |		Load	0x2,-0x2
0847 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0848 e5fe       |    |		Load	0x2,-0x2
0849 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
084a 00d1       |    |		Pop_Control	Pop_Count_1
084b 481d       |H   |		Short_Literal	0x1d
084c 00d9       |    |		Load_Top	At_Offset_1
084d 01d7       |    |		Execute	Vector,Field_Read
084e 6817       |h   |		Jump_Zero	0x866
084f 481c       |H   |		Short_Literal	0x1c
0850 00d9       |    |		Load_Top	At_Offset_1
0851 01d7       |    |		Execute	Vector,Field_Read
0852 6813       |h   |		Jump_Zero	0x866
0853 e5fe       |    |		Load	0x2,-0x2
0854 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0855 e5fe       |    |		Load	0x2,-0x2
0856 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0857 8053       | S  |		Call	0x0,0x53
0858 e5fe       |    |		Load	0x2,-0x2
0859 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
085a e5fe       |    |		Load	0x2,-0x2
085b 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
085c e5fe       |    |		Load	0x2,-0x2
085d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
085e 8053       | S  |		Call	0x0,0x53
085f e5fe       |    |		Load	0x2,-0x2
0860 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0861 4801       |H   |		Short_Literal	0x1
0862 481e       |H   |		Short_Literal	0x1e
0863 e5fe       |    |		Load	0x2,-0x2
0864 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0865 01d6       |    |		Execute	Vector,Field_Write
0866 481f       |H   |		Short_Literal	0x1f
0867 00d9       |    |		Load_Top	At_Offset_1
0868 01d7       |    |		Execute	Vector,Field_Read
0869 6809       |h   |		Jump_Zero	0x873
086a 481e       |H   |		Short_Literal	0x1e
086b 00d9       |    |		Load_Top	At_Offset_1
086c 01d7       |    |		Execute	Vector,Field_Read
086d 6805       |h   |		Jump_Zero	0x873
086e 4801       |H   |		Short_Literal	0x1
086f 481f       |H   |		Short_Literal	0x1f
0870 e5fe       |    |		Load	0x2,-0x2
0871 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0872 01d6       |    |		Execute	Vector,Field_Write
0873 481e       |H   |		Short_Literal	0x1e
0874 e5fe       |    |		Load	0x2,-0x2
0875 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0876 01d7       |    |		Execute	Vector,Field_Read
0877 700d       |p   |		Jump_Nonzero	0x885
0878 e5fe       |    |		Load	0x2,-0x2
0879 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
087a e5fe       |    |		Load	0x2,-0x2
087b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
087c e5fe       |    |		Load	0x2,-0x2
087d 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
087e e5fe       |    |		Load	0x2,-0x2
087f 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0880 4801       |H   |		Short_Literal	0x1
0881 481c       |H   |		Short_Literal	0x1c
0882 e5fe       |    |		Load	0x2,-0x2
0883 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0884 01d6       |    |		Execute	Vector,Field_Write
0885 481f       |H   |		Short_Literal	0x1f
0886 e5fe       |    |		Load	0x2,-0x2
0887 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0888 01d7       |    |		Execute	Vector,Field_Read
0889 700b       |p   |		Jump_Nonzero	0x895
088a 4800       |H   |		Short_Literal	0x0
088b e5fe       |    |		Load	0x2,-0x2
088c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
088d 4800       |H   |		Short_Literal	0x0
088e e5fe       |    |		Load	0x2,-0x2
088f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0890 4801       |H   |		Short_Literal	0x1
0891 481d       |H   |		Short_Literal	0x1d
0892 e5fe       |    |		Load	0x2,-0x2
0893 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0894 01d6       |    |		Execute	Vector,Field_Write
0895 481b       |H   |		Short_Literal	0x1b
0896 00d9       |    |		Load_Top	At_Offset_1
0897 01d7       |    |		Execute	Vector,Field_Read
0898 680c       |h   |		Jump_Zero	0x8a5
0899 e212       |    |		Load	0x1,0x12
089a 8020       |    |		Call	0x0,0x20
089b e212       |    |		Load	0x1,0x12
089c 8054       | T  |		Call	0x0,0x54
089d e5fe       |    |		Load	0x2,-0x2
089e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
089f 0273       | s  |		Execute	Discrete,Plus
08a0 e5fe       |    |		Load	0x2,-0x2
08a1 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
08a2 0272       | r  |		Execute	Discrete,Minus
08a3 e5fe       |    |		Load	0x2,-0x2
08a4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
08a5 481a       |H   |		Short_Literal	0x1a
08a6 00d9       |    |		Load_Top	At_Offset_1
08a7 01d7       |    |		Execute	Vector,Field_Read
08a8 680c       |h   |		Jump_Zero	0x8b5
08a9 e212       |    |		Load	0x1,0x12
08aa 8020       |    |		Call	0x0,0x20
08ab e212       |    |		Load	0x1,0x12
08ac 8055       | U  |		Call	0x0,0x55
08ad e5fe       |    |		Load	0x2,-0x2
08ae 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
08af 0273       | s  |		Execute	Discrete,Plus
08b0 e5fe       |    |		Load	0x2,-0x2
08b1 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
08b2 0272       | r  |		Execute	Discrete,Minus
08b3 e5fe       |    |		Load	0x2,-0x2
08b4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
08b5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08b6 0000 0000  |    |		.XXX[0x2]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08bd       |    |		.CONST	0x08bd								; Address of begin
08b9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ba 0002       |    |		.CONST	0x0002								; Number of locals
08bb			INIT_08b8:
08bb e056       | V  |		Load	0x0,0x56
08bc 0007       |    |		Action	Break_Optional
08bd			BODY_08b8:
08bd 4801       |H   |		Short_Literal	0x1
08be e212       |    |		Load	0x1,0x12
08bf 8057       | W  |		Call	0x0,0x57
08c0 0039       | 9  |		Store_Top	Access,At_Offset_1
08c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08c2 0000 0000  |    |		.BLANK	0000[0x6]
08c8 ; --------------------------------------------------------------------------------------
08c8 ; SUBPROGRAM
08c8 ; --------------------------------------------------------------------------------------
08c8 08d1       |    |		.CONST	0x08d1								; Address of begin
08c9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ca 0004       |    |		.CONST	0x0004								; Number of locals
08cb			INIT_08c8:
08cb e058       | X  |		Load	0x0,0x58
08cc 0007       |    |		Action	Break_Optional
08cd e005       |    |		Load	0x0,0x5
08ce 0007       |    |		Action	Break_Optional
08cf e005       |    |		Load	0x0,0x5
08d0 0007       |    |		Action	Break_Optional
08d1			BODY_08c8:
08d1 e223       | #  |		Load	0x1,0x23
08d2 e005       |    |		Load	0x0,0x5
08d3 00d8       |    |		Load_Top	At_Offset_0
08d4 e058       | X  |		Load	0x0,0x58
08d5 e211       |    |		Load	0x1,0x11
08d6 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
08d7 0227       | '  |		Execute	Access,All_Reference
08d8 e211       |    |		Load	0x1,0x11
08d9 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
08da 8059       | Y  |		Call	0x0,0x59
08db c602       |    |		Store	0x3,0x2
08dc c603       |    |		Store	0x3,0x3
08dd 005a       | Z  |		Store_Top	Discrete,At_Offset_2
08de 00d1       |    |		Pop_Control	Pop_Count_1
08df e223       | #  |		Load	0x1,0x23
08e0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
08e1 0a08       |    |		Execute_Immediate	Plus,0x8
08e2 00d8       |    |		Load_Top	At_Offset_0
08e3 e002       |    |		Load	0x0,0x2
08e4 0260       | `  |		Execute	Discrete,In_Type
08e5 7001       |p   |		Jump_Nonzero	0x8e7
08e6 0801       |    |		Execute_Immediate	Raise,0x1
08e7 e404       |    |		Load	0x2,0x4
08e8 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
08e9 e223       | #  |		Load	0x1,0x23
08ea 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
08eb e223       | #  |		Load	0x1,0x23
08ec 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
08ed 0273       | s  |		Execute	Discrete,Plus
08ee 00d8       |    |		Load_Top	At_Offset_0
08ef e002       |    |		Load	0x0,0x2
08f0 0260       | `  |		Execute	Discrete,In_Type
08f1 7001       |p   |		Jump_Nonzero	0x8f3
08f2 0801       |    |		Execute_Immediate	Raise,0x1
08f3 0a08       |    |		Execute_Immediate	Plus,0x8
08f4 e211       |    |		Load	0x1,0x11
08f5 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
08f6 0902       |    |		Execute_Immediate	Binary_Scale,0x2
08f7 0273       | s  |		Execute	Discrete,Plus
08f8 e404       |    |		Load	0x2,0x4
08f9 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
08fa e404       |    |		Load	0x2,0x4
08fb 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
08fc e404       |    |		Load	0x2,0x4
08fd 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
08fe e404       |    |		Load	0x2,0x4
08ff 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0900 e404       |    |		Load	0x2,0x4
0901 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0902 e5fb       |    |		Load	0x2,-0x5
0903 e404       |    |		Load	0x2,0x4
0904 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0905 e5fb       |    |		Load	0x2,-0x5
0906 e404       |    |		Load	0x2,0x4
0907 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0908 e05a       | Z  |		Load	0x0,0x5a
0909 0337       | 7  |		Declare_Variable	Array
090a 4801       |H   |		Short_Literal	0x1
090b 481b       |H   |		Short_Literal	0x1b
090c 00da       |    |		Load_Top	At_Offset_2
090d 01d6       |    |		Execute	Vector,Field_Write
090e 4801       |H   |		Short_Literal	0x1
090f 4819       |H   |		Short_Literal	0x19
0910 00da       |    |		Load_Top	At_Offset_2
0911 01d6       |    |		Execute	Vector,Field_Write
0912 4801       |H   |		Short_Literal	0x1
0913 4817       |H   |		Short_Literal	0x17
0914 00da       |    |		Load_Top	At_Offset_2
0915 01d6       |    |		Execute	Vector,Field_Write
0916 4816       |H   |		Short_Literal	0x16
0917 4800       |H   |		Short_Literal	0x0
0918 4800       |H   |		Short_Literal	0x0
0919 00d9       |    |		Load_Top	At_Offset_1
091a e605       |    |		Load	0x3,0x5
091b 01d6       |    |		Execute	Vector,Field_Write
091c 3ffb       |?   |		Loop_Increasing	0x918
091d 4800       |H   |		Short_Literal	0x0
091e 4818       |H   |		Short_Literal	0x18
091f 00da       |    |		Load_Top	At_Offset_2
0920 01d6       |    |		Execute	Vector,Field_Write
0921 4800       |H   |		Short_Literal	0x0
0922 481a       |H   |		Short_Literal	0x1a
0923 00da       |    |		Load_Top	At_Offset_2
0924 01d6       |    |		Execute	Vector,Field_Write
0925 481f       |H   |		Short_Literal	0x1f
0926 481c       |H   |		Short_Literal	0x1c
0927 4800       |H   |		Short_Literal	0x0
0928 00d9       |    |		Load_Top	At_Offset_1
0929 e605       |    |		Load	0x3,0x5
092a 01d6       |    |		Execute	Vector,Field_Write
092b 3ffb       |?   |		Loop_Increasing	0x927
092c e05a       | Z  |		Load	0x0,0x5a
092d 01c3       |    |		Execute	Vector,Check_In_Type
092e e404       |    |		Load	0x2,0x4
092f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0930 e404       |    |		Load	0x2,0x4
0931 e211       |    |		Load	0x1,0x11
0932 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0933 0227       | '  |		Execute	Access,All_Reference
0934 8232       | 2  |		Call	0x1,0x32
0935 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0936 0000 0000  |    |		.XXX[0x2]
0938 ; --------------------------------------------------------------------------------------
0938 ; SUBPROGRAM
0938 ; --------------------------------------------------------------------------------------
0938 0955       | U  |		.CONST	0x0955								; Address of begin
0939 0004       |    |		.CONST	0x0004								; Address of exception handler
093a 0005       |    |		.CONST	0x0005								; Number of locals
093b			INIT_0938:
093b 4801       |H   |		Short_Literal	0x1
093c e21e       |    |		Load	0x1,0x1e
093d 48ff       |H   |		Short_Literal	0xff
093e 0273       | s  |		Execute	Discrete,Plus
093f 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
0940 0908       |    |		Execute_Immediate	Binary_Scale,0x8
0941 e00c       |    |		Load	0x0,0xc
0942 03ba       |    |		Declare_Variable	Access,By_Allocation,With_Constraint
0943 e219       |    |		Load	0x1,0x19
0944 0007       |    |		Action	Break_Optional
0945 e218       |    |		Load	0x1,0x18
0946 0227       | '  |		Execute	Access,All_Reference
0947 01dc       |    |		Execute	Vector,Last
0948 e219       |    |		Load	0x1,0x19
0949 0272       | r  |		Execute	Discrete,Minus
094a e00d       |    |		Load	0x0,0xd
094b 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
094c 00da       |    |		Load_Top	At_Offset_2
094d 0227       | '  |		Execute	Access,All_Reference
094e 01dc       |    |		Execute	Vector,Last
094f e218       |    |		Load	0x1,0x18
0950 0227       | '  |		Execute	Access,All_Reference
0951 01dc       |    |		Execute	Vector,Last
0952 0272       | r  |		Execute	Discrete,Minus
0953 e00d       |    |		Load	0x0,0xd
0954 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0955			BODY_0938:
0955 00db       |    |		Load_Top	At_Offset_3
0956 0229       | )  |		Execute	Access,All_Read
0957 e602       |    |		Load	0x3,0x2
0958 0227       | '  |		Execute	Access,All_Reference
0959 01dc       |    |		Execute	Vector,Last
095a 00da       |    |		Load_Top	At_Offset_2
095b 0272       | r  |		Execute	Discrete,Minus
095c 0a01       |    |		Execute_Immediate	Plus,0x1
095d e602       |    |		Load	0x3,0x2
095e 0227       | '  |		Execute	Access,All_Reference
095f 01dc       |    |		Execute	Vector,Last
0960 00d9       |    |		Load_Top	At_Offset_1
0961 00d9       |    |		Load_Top	At_Offset_1
0962 e606       |    |		Load	0x3,0x6
0963 035b       | [  |		Declare_Type	Array,Constrained
0964 00db       |    |		Load_Top	At_Offset_3
0965 01cd       |    |		Execute	Vector,Slice_Reference
0966 00d8       |    |		Load_Top	At_Offset_0
0967 0335       | 5  |		Declare_Variable	Array,Duplicate
0968 00cd       |    |		Action	Spare6_Action
0969 00d9       |    |		Load_Top	At_Offset_1
096a 01d9       |    |		Execute	Vector,Reverse_Bounds
096b 0263       | c  |		Execute	Discrete,Above_Bound
096c 7005       |p   |		Jump_Nonzero	0x972
096d 4800       |H   |		Short_Literal	0x0
096e 00d9       |    |		Load_Top	At_Offset_1
096f e60a       |    |		Load	0x3,0xa
0970 01d6       |    |		Execute	Vector,Field_Write
0971 3ffb       |?   |		Loop_Increasing	0x96d
0972 00cd       |    |		Action	Spare6_Action
0973 00da       |    |		Load_Top	At_Offset_2
0974 00da       |    |		Load_Top	At_Offset_2
0975 e606       |    |		Load	0x3,0x6
0976 01ce       |    |		Execute	Vector,Slice_Write
0977 00d3       |    |		Pop_Control	Pop_Count_3
0978 e219       |    |		Load	0x1,0x19
0979 0a01       |    |		Execute_Immediate	Plus,0x1
097a e218       |    |		Load	0x1,0x18
097b 0227       | '  |		Execute	Access,All_Reference
097c 01dc       |    |		Execute	Vector,Last
097d e218       |    |		Load	0x1,0x18
097e 0227       | '  |		Execute	Access,All_Reference
097f 01cf       |    |		Execute	Vector,Slice_Read
0980 4801       |H   |		Short_Literal	0x1
0981 00db       |    |		Load_Top	At_Offset_3
0982 e602       |    |		Load	0x3,0x2
0983 0229       | )  |		Execute	Access,All_Read
0984 01ce       |    |		Execute	Vector,Slice_Write
0985 4801       |H   |		Short_Literal	0x1
0986 e219       |    |		Load	0x1,0x19
0987 e218       |    |		Load	0x1,0x18
0988 0227       | '  |		Execute	Access,All_Reference
0989 01cf       |    |		Execute	Vector,Slice_Read
098a 00da       |    |		Load_Top	At_Offset_2
098b 0a01       |    |		Execute_Immediate	Plus,0x1
098c 00db       |    |		Load_Top	At_Offset_3
098d e219       |    |		Load	0x1,0x19
098e 0273       | s  |		Execute	Discrete,Plus
098f e602       |    |		Load	0x3,0x2
0990 0229       | )  |		Execute	Access,All_Read
0991 01ce       |    |		Execute	Vector,Slice_Write
0992 e218       |    |		Load	0x1,0x18
0993 0227       | '  |		Execute	Access,All_Reference
0994 01dc       |    |		Execute	Vector,Last
0995 c219       |    |		Store	0x1,0x19
0996 00db       |    |		Load_Top	At_Offset_3
0997 a218       |    |		Store_Unchecked	0x1,0x18
0998 4800       |H   |		Short_Literal	0x0
0999 4801       |H   |		Short_Literal	0x1
099a 822c       | ,  |		Call	0x1,0x2c
099b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
099c 0000 0000  |    |		.BLANK	0000[0x4]
09a0 ; --------------------------------------------------------------------------------------
09a0 ; SUBPROGRAM
09a0 ; --------------------------------------------------------------------------------------
09a0 09a9       |    |		.CONST	0x09a9								; Address of begin
09a1 0004       |    |		.CONST	0x0004								; Address of exception handler
09a2 0004       |    |		.CONST	0x0004								; Number of locals
09a3			INIT_09a0:
09a3 e058       | X  |		Load	0x0,0x58
09a4 0007       |    |		Action	Break_Optional
09a5 e005       |    |		Load	0x0,0x5
09a6 0007       |    |		Action	Break_Optional
09a7 e005       |    |		Load	0x0,0x5
09a8 0007       |    |		Action	Break_Optional
09a9			BODY_09a0:
09a9 e223       | #  |		Load	0x1,0x23
09aa e005       |    |		Load	0x0,0x5
09ab 00d8       |    |		Load_Top	At_Offset_0
09ac e058       | X  |		Load	0x0,0x58
09ad e211       |    |		Load	0x1,0x11
09ae 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
09af 0227       | '  |		Execute	Access,All_Reference
09b0 e211       |    |		Load	0x1,0x11
09b1 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
09b2 8059       | Y  |		Call	0x0,0x59
09b3 c602       |    |		Store	0x3,0x2
09b4 c603       |    |		Store	0x3,0x3
09b5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
09b6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09b7 0000       |    |		.XXX[0x1]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bf       |    |		.CONST	0x09bf								; Address of begin
09b9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ba 0002       |    |		.CONST	0x0002								; Number of locals
09bb			INIT_09b8:
09bb e05b       | [  |		Load	0x0,0x5b
09bc 02ff       |    |		Declare_Variable	Variant_Record
09bd 00d8       |    |		Load_Top	At_Offset_0
09be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
09bf			BODY_09b8:
09bf e21c       |    |		Load	0x1,0x1c
09c0 00d8       |    |		Load_Top	At_Offset_0
09c1 e02d       | -  |		Load	0x0,0x2d
09c2 0260       | `  |		Execute	Discrete,In_Type
09c3 7001       |p   |		Jump_Nonzero	0x9c5
09c4 0801       |    |		Execute_Immediate	Raise,0x1
09c5 00d9       |    |		Load_Top	At_Offset_1
09c6 2616       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
09c7 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
09c8 e21b       |    |		Load	0x1,0x1b
09c9 00d8       |    |		Load_Top	At_Offset_0
09ca e02d       | -  |		Load	0x0,0x2d
09cb 0260       | `  |		Execute	Discrete,In_Type
09cc 7001       |p   |		Jump_Nonzero	0x9ce
09cd 0801       |    |		Execute_Immediate	Raise,0x1
09ce 00d9       |    |		Load_Top	At_Offset_1
09cf 2616       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
09d0 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
09d1 00d8       |    |		Load_Top	At_Offset_0
09d2 822f       | /  |		Call	0x1,0x2f
09d3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09d4 ; --------------------------------------------------------------------------------------
09d4 ; STRING TABLE
09d4 ; --------------------------------------------------------------------------------------
09d4 0014       |    |		.STRTAB	0x0014->0x09de							; "S_PLAY"
09d5 0018       |    |		.STRTAB	0x0018->0x09e1							; "S_SAMPLE"
09d6 001e       |    |		.STRTAB	0x001e->0x09e5							; "Unable to open display {"
09d7 0034       | 4  |		.STRTAB	0x0034->0x09f1							; "}: "
09d8 0035       | 5  |		.STRTAB	0x0035->0x09f2							; "Unable to load font :{"
09d9 0049       | I  |		.STRTAB	0x0049->0x09fd							; "}."
09da 0049       | I  |		.STRTAB	0x0049->0x09fe							; "Unable to load font :{fixed}; exiting."
09db 006d       | m  |		.STRTAB	0x006d->0x0a11							; "Event for window "
09dc 007c       | |  |		.STRTAB	0x007c->0x0a1a							; " kind: "
09dd 0081       |    |		.STREND 0x0081->0x0a1d
09de 535f 504c  |S_PL|		.STRTAB_STRINGS
0a1e 0000 0000  |    |		.XXX[0x2]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; Debug Table
0a20 ; --------------------------------------------------------------------------------------
0a20 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x68e0,0x0000,0x0001,0x0011
0a26 000b 0a6a  |   j|		.DBG4T	0x000b,0x0a6a,0x8000,0x0000
0a2a 0039 0a76  | 9 v|		.DBG4T	0x0039,0x0a76,0x8000,0x0000
0a2e 00a3 0000  |    |		.DBG4T	0x00a3,0x0000,0x0005,0x0000
0a32 00db 0a96  |    |		.DBG4T	0x00db,0x0a96,0x0001,0x4000
0a36 03e3 0b5c  |   \|		.DBG4T	0x03e3,0x0b5c,0x0001,0x0000
0a3a 049b 0b75  |   u|		.DBG4T	0x049b,0x0b75,0x0001,0x4000
0a3e 052b 0bab  | +  |		.DBG4T	0x052b,0x0bab,0x0001,0x0000
0a42 05a3 0bc1  |    |		.DBG4T	0x05a3,0x0bc1,0x0001,0x0000
0a46 069b 0be4  |    |		.DBG4T	0x069b,0x0be4,0x0001,0x0000
0a4a 06eb 0bf6  |    |		.DBG4T	0x06eb,0x0bf6,0x0001,0x0000
0a4e 0723 0c03  | #  |		.DBG4T	0x0723,0x0c03,0x0001,0x0000
0a52 081b 0c18  |    |		.DBG4T	0x081b,0x0c18,0x0001,0x0000
0a56 08bb 0c32  |   2|		.DBG4T	0x08bb,0x0c32,0x0004,0x0000
0a5a 08cb 0c36  |   6|		.DBG4T	0x08cb,0x0c36,0x0004,0x0000
0a5e 093b 0c44  | ; D|		.DBG4T	0x093b,0x0c44,0x0004,0x0000
0a62 09a3 0c50  |   P|		.DBG4T	0x09a3,0x0c50,0x0004,0x0000
0a66 09bb 0c56  |   V|		.DBG4T	0x09bb,0x0c56,0x0004,0x0000
0a6a ; --------------------------------------------------------------------------------------
0a6a ; Debug chain
0a6a ; --------------------------------------------------------------------------------------
0a6a 000a 0000  |    |		.DBGLEN	0x000a,0x0000
0a6c 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0015,0x0027,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036
0a76 ; --------------------------------------------------------------------------------------
0a76 ; Debug chain
0a76 ; --------------------------------------------------------------------------------------
0a76 001e 0000  |    |		.DBGLEN	0x001e,0x0000
0a78 0039 003e  | 9 >|		.DBGLNO	0x0039,0x003e,0x004b,0x0050,0x0055,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x006a,0x0070,0x0072,0x0077,0x007c,0x0081,0x0086,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b
0a96 ; --------------------------------------------------------------------------------------
0a96 ; Debug chain
0a96 ; --------------------------------------------------------------------------------------
0a96 000c 005c  |   \|		.DBGLEN	0x000c,0x005c
0a98 00db 00df  |    |		.DBGLNO	0x00db,0x00df,0x00e1,0x00e5,0x00e9,0x00ed,0x00f2,0x00f4,0x00f6,0x00fb,0x00fd,0x0101,0x0106,0x010c,0x010e,0x011c,0x011e,0x0121,0x0126,0x012b,0x0130,0x0133,0x0138,0x0141,0x0144,0x0147,0x014a,0x014d,0x0150,0x0152,0x0156,0x0159,0x015d,0x0160,0x0164,0x0167,0x016c,0x0175,0x0178,0x017d,0x0182,0x018c,0x0195,0x019a,0x019e,0x019f,0x01a2,0x01a3,0x01ae,0x01af,0x01b2,0x01c3,0x01cc,0x01d5,0x01d9,0x01dd,0x01e2,0x020a,0x020d,0x0243,0x0259,0x0286,0x0289,0x028a,0x0298,0x02a6,0x02b4,0x02c2,0x02ca,0x02d0,0x02d2,0x02d4,0x02d5,0x02dd,0x0305,0x030d,0x0318,0x0319,0x031c,0x031f,0x032a,0x032e,0x0332,0x0337,0x0354,0x0356,0x035a,0x035c,0x0360,0x0363,0x0367,0x036a,0x036f,0x0371,0x0392,0x0393,0x0398,0x039a,0x039e,0x03a2,0x03ab,0x03af,0x03b6,0x03bc
0b00 0001 0002  |    |		.XXX[0x5c]
0b02 0003 0004  |    |
0b04 0005 0006  |    |
0b06 0007 0008  |    |
0b08 0009 000a  |    |
0b0a 000b 000c  |    |
0b0c 000d 000e  |    |
0b0e 000f 0010  |    |
0b10 0011 0012  |    |
0b12 0013 0014  |    |
0b14 0015 0016  |    |
0b16 0017 0018  |    |
0b18 0019 001a  |    |
0b1a 001b 001c  |    |
0b1c 001d 001e  |    |
0b1e 001f 0020  |    |
0b20 0021 0022  | ! "|
0b22 0023 0024  | # $|
0b24 0025 0026  | % &|
0b26 0027 0028  | ' (|
0b28 0029 002a  | ) *|
0b2a 002b 002c  | + ,|
0b2c 002d 002e  | - .|
0b2e 002f 0030  | / 0|
0b30 0031 0032  | 1 2|
0b32 0033 0034  | 3 4|
0b34 0035 0036  | 5 6|
0b36 0037 0038  | 7 8|
0b38 0039 003a  | 9 :|
0b3a 003c 003d  | < =|
0b3c 003e 003f  | > ?|
0b3e 0040 0041  | @ A|
0b40 0043 0044  | C D|
0b42 0045 0046  | E F|
0b44 003b 0047  | ; G|
0b46 0048 0049  | H I|
0b48 004e 004f  | N O|
0b4a 0057 004a  | W J|
0b4c 004b 004c  | K L|
0b4e 004d 0050  | M P|
0b50 0051 0052  | Q R|
0b52 0053 0054  | S T|
0b54 0055 0056  | U V|
0b56 0058 0059  | X Y|
0b58 005a 005b  | Z [|
0b5a 005c 005d  | \ ]|
0b5c ; --------------------------------------------------------------------------------------
0b5c ; Debug chain
0b5c ; --------------------------------------------------------------------------------------
0b5c 0004 0013  |    |		.DBGLEN	0x0004,0x0013
0b5e 03e3 03e8  |    |		.DBGLNO	0x03e3,0x03e8,0x03ed,0x03ef,0x03f1,0x03f4,0x03f6,0x0408,0x040c,0x0418,0x0424,0x0429,0x042d,0x0439,0x0441,0x0453,0x045b,0x0466,0x046c,0x0471,0x0475,0x0482,0x048e
0b75 ; --------------------------------------------------------------------------------------
0b75 ; Debug chain
0b75 ; --------------------------------------------------------------------------------------
0b75 0004 0018  |    |		.DBGLEN	0x0004,0x0018
0b77 049b 049d  |    |		.DBGLNO	0x049b,0x049d,0x049f,0x04a1,0x04a3,0x04a7,0x04b1,0x04b6,0x04bc,0x04c1,0x04c4,0x04c8,0x04cc,0x04d5,0x04da,0x04df,0x04e3,0x04e5,0x04eb,0x04f5,0x04f7,0x04f9,0x04fc,0x04ff,0x0502,0x050d,0x0510,0x0513
0b93 0001 0002  |    |		.XXX[0x18]
0b95 0003 0004  |    |
0b97 0005 0006  |    |
0b99 0007 0008  |    |
0b9b 0009 000a  |    |
0b9d 000b 000c  |    |
0b9f 000d 000e  |    |
0ba1 000f 0010  |    |
0ba3 0011 0012  |    |
0ba5 0014 0015  |    |
0ba7 0013 0017  |    |
0ba9 0018 0016  |    |
0bab ; --------------------------------------------------------------------------------------
0bab ; Debug chain
0bab ; --------------------------------------------------------------------------------------
0bab 0001 0013  |    |		.DBGLEN	0x0001,0x0013
0bad 052b 052e  | + .|		.DBGLNO	0x052b,0x052e,0x0534,0x0536,0x053a,0x0544,0x0549,0x054d,0x0550,0x0555,0x0558,0x0561,0x0566,0x056b,0x056f,0x0573,0x057e,0x0587,0x0597,0x059a
0bc1 ; --------------------------------------------------------------------------------------
0bc1 ; Debug chain
0bc1 ; --------------------------------------------------------------------------------------
0bc1 0006 001b  |    |		.DBGLEN	0x0006,0x001b
0bc3 05a3 05a5  |    |		.DBGLNO	0x05a3,0x05a5,0x05a7,0x05a9,0x05ab,0x05ad,0x05af,0x05bd,0x05c3,0x05c6,0x05c9,0x05cc,0x05d2,0x05d6,0x05dc,0x05e0,0x05e6,0x05eb,0x05f2,0x05f7,0x05fa,0x05fc,0x061a,0x061e,0x062f,0x0640,0x0652,0x065b,0x0660,0x0663,0x0667,0x066b,0x0685
0be4 ; --------------------------------------------------------------------------------------
0be4 ; Debug chain
0be4 ; --------------------------------------------------------------------------------------
0be4 0001 000f  |    |		.DBGLEN	0x0001,0x000f
0be6 069b 069d  |    |		.DBGLNO	0x069b,0x069d,0x06a6,0x06a9,0x06ab,0x06ad,0x06b8,0x06c2,0x06ca,0x06cf,0x06d3,0x06d5,0x06d9,0x06dc,0x06de,0x06e5
0bf6 ; --------------------------------------------------------------------------------------
0bf6 ; Debug chain
0bf6 ; --------------------------------------------------------------------------------------
0bf6 0000 000b  |    |		.DBGLEN	0x0000,0x000b
0bf8 06ef 06f2  |    |		.DBGLNO	0x06ef,0x06f2,0x06f6,0x06fa,0x06fe,0x0702,0x0706,0x0709,0x0714,0x0715,0x0716
0c03 ; --------------------------------------------------------------------------------------
0c03 ; Debug chain
0c03 ; --------------------------------------------------------------------------------------
0c03 0002 0011  |    |		.DBGLEN	0x0002,0x0011
0c05 0723 0727  | # '|		.DBGLNO	0x0723,0x0727,0x0729,0x072c,0x0733,0x0737,0x073d,0x0740,0x0743,0x0746,0x0749,0x074c,0x0798,0x07cc,0x07cf,0x07d3,0x07d7,0x07dd,0x07e0
0c18 ; --------------------------------------------------------------------------------------
0c18 ; Debug chain
0c18 ; --------------------------------------------------------------------------------------
0c18 0001 0017  |    |		.DBGLEN	0x0001,0x0017
0c1a 081b 081d  |    |		.DBGLNO	0x081b,0x081d,0x0820,0x0823,0x0826,0x082f,0x084b,0x0853,0x085a,0x0861,0x0866,0x086e,0x0873,0x0878,0x087c,0x0880,0x0885,0x088a,0x088d,0x0890,0x0895,0x0899,0x08a5,0x08a9
0c32 ; --------------------------------------------------------------------------------------
0c32 ; Debug chain
0c32 ; --------------------------------------------------------------------------------------
0c32 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0c34 08bb 08bd  |    |		.DBGLNO	0x08bb,0x08bd
0c36 ; --------------------------------------------------------------------------------------
0c36 ; Debug chain
0c36 ; --------------------------------------------------------------------------------------
0c36 0003 0009  |    |		.DBGLEN	0x0003,0x0009
0c38 08cb 08cd  |    |		.DBGLNO	0x08cb,0x08cd,0x08cf,0x08d1,0x08df,0x08e9,0x08fa,0x08fe,0x0902,0x0905,0x0908,0x0930
0c44 ; --------------------------------------------------------------------------------------
0c44 ; Debug chain
0c44 ; --------------------------------------------------------------------------------------
0c44 0004 0006  |    |		.DBGLEN	0x0004,0x0006
0c46 093b 0943  | ; C|		.DBGLNO	0x093b,0x0943,0x0945,0x094c,0x0955,0x0978,0x0985,0x0992,0x0996,0x0998
0c50 ; --------------------------------------------------------------------------------------
0c50 ; Debug chain
0c50 ; --------------------------------------------------------------------------------------
0c50 0003 0001  |    |		.DBGLEN	0x0003,0x0001
0c52 09a3 09a5  |    |		.DBGLNO	0x09a3,0x09a5,0x09a7,0x09a9
0c56 ; --------------------------------------------------------------------------------------
0c56 ; Debug chain
0c56 ; --------------------------------------------------------------------------------------
0c56 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0c58 09bb 09bf  |    |		.DBGLNO	0x09bb,0x09bf,0x09c8,0x09d1
0c5c 0000 0000  |    |		.BLANK	0000[0x1a4]