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

⟦09a93d769⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦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 0c60       | `  |		.CONST	0x0c60								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0007       |    |		.CONST	0x0007								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0097       |    |		.CONST	0x0097								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0031       | 1  |		.CONST	0x0031								; Number of locals
000b			INIT_0008:
000b 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0011 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0013 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0015 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0017 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0019 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
001b 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
001d 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
001f 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
0021 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0023 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0025 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0027 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0029 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
002b 029a 025b  |   [|		Declare_Subprogram	INIT_0258,For_Outer_Call,Visible,Unelaborated
002d 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
002f 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0031 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
0033 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0035 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
0037 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0039 029a 035b  |   [|		Declare_Subprogram	INIT_0358,For_Outer_Call,Visible,Unelaborated
003b 029a 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call,Visible,Unelaborated
003d 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
003f 029a 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call,Visible,Unelaborated
0041 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
0043 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
0045 00bf       |    |		Action	Accept_Activation
0046 029d 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Outer_Call
0048 029d 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call
004a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 029d 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Outer_Call
0054 029d 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call
0056 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 029d 056b  |   k|		Declare_Subprogram	INIT_0568,For_Outer_Call
0074 a002       |    |		Store_Unchecked	0x0,0x2
0075 00c6       |    |		Action	Check_Subprogram_Elaborated
0076 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0077 0093 0000  |    |		push_full_address	0x0
0079 6042       |`B  |		Indirect_Literal	Discrete,0xbc,{0x80000000, 0x00010000}
007a 0273       | s  |		Execute	Discrete,Plus
007b e003       |    |		Load	0x0,0x3
007c 0273       | s  |		Execute	Discrete,Plus
007d e004       |    |		Load	0x0,0x4
007e 0273       | s  |		Execute	Discrete,Plus
007f 4800       |H   |		Short_Literal	0x0
0080 0007       |    |		Action	Break_Optional
0081 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0096 00c7       |    |		Action	Elaborate_Subprogram
0097			BODY_0008:
0097 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0098 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0099 8002       |    |		Call	0x0,0x2
009a 8005       |    |		Call	0x0,0x5
009b c006       |    |		Store	0x0,0x6
009c 00bc       |    |		Action	Signal_Activated
009d 00bb       |    |		Action	Signal_Completion
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00aa       |    |		.CONST	0x00aa								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0004       |    |		.CONST	0x0004								; Number of locals
00a3			INIT_00a0:
00a3 e007       |    |		Load	0x0,0x7
00a4 0007       |    |		Action	Break_Optional
00a5 e5fd       |    |		Load	0x2,-0x3
00a6 e008       |    |		Load	0x0,0x8
00a7 01d3       |    |		Execute	Vector,And
00a8 029f 058b  |    |		Declare_Subprogram	INIT_0588,For_Call
00aa			BODY_00a0:
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab e009       |    |		Load	0x0,0x9
00ac 01df       |    |		Execute	Vector,Equal
00ad 6801       |h   |		Jump_Zero	0xaf
00ae 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00af 00d9       |    |		Load_Top	At_Offset_1
00b0 822a       | *  |		Call	0x1,0x2a
00b1 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00b2 e5ff       |    |		Load	0x2,-0x1
00b3 800a       |    |		Call	0x0,0xa
00b4 8404       |    |		Call	0x2,0x4
00b5 e5ff       |    |		Load	0x2,-0x1
00b6 800b       |    |		Call	0x0,0xb
00b7 e5ff       |    |		Load	0x2,-0x1
00b8 800c       |    |		Call	0x0,0xc
00b9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00ba 0000 0000  |    |		.XXX[0x2]
00bc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5       |    |		.CONST	0x00c5								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0002       |    |		.CONST	0x0002								; Number of locals
00c3			INIT_00c0:
00c3 029f 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Call
00c5			BODY_00c0:
00c5 00db       |    |		Load_Top	At_Offset_3
00c6 800a       |    |		Call	0x0,0xa
00c7 8402       |    |		Call	0x2,0x2
00c8 00db       |    |		Load_Top	At_Offset_3
00c9 800b       |    |		Call	0x0,0xb
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 800c       |    |		Call	0x0,0xc
00cc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 4801       |H   |		Short_Literal	0x1
00d4 e5fe       |    |		Load	0x2,-0x2
00d5 e5ff       |    |		Load	0x2,-0x1
00d6 820e       |    |		Call	0x1,0xe
00d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 4800       |H   |		Short_Literal	0x0
00dc e5fe       |    |		Load	0x2,-0x2
00dd e5ff       |    |		Load	0x2,-0x1
00de 820e       |    |		Call	0x1,0xe
00df 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ea       |    |		.CONST	0x00ea								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0004       |    |		.CONST	0x0004								; Number of locals
00e3			INIT_00e0:
00e3 e007       |    |		Load	0x0,0x7
00e4 0007       |    |		Action	Break_Optional
00e5 e5fd       |    |		Load	0x2,-0x3
00e6 e00d       |    |		Load	0x0,0xd
00e7 01d3       |    |		Execute	Vector,And
00e8 029f 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Call
00ea			BODY_00e0:
00ea 00d9       |    |		Load_Top	At_Offset_1
00eb e00e       |    |		Load	0x0,0xe
00ec 01df       |    |		Execute	Vector,Equal
00ed 6801       |h   |		Jump_Zero	0xef
00ee 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00ef 00d9       |    |		Load_Top	At_Offset_1
00f0 822c       | ,  |		Call	0x1,0x2c
00f1 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00f2 e5ff       |    |		Load	0x2,-0x1
00f3 800a       |    |		Call	0x0,0xa
00f4 8404       |    |		Call	0x2,0x4
00f5 e5ff       |    |		Load	0x2,-0x1
00f6 800b       |    |		Call	0x0,0xb
00f7 e5ff       |    |		Load	0x2,-0x1
00f8 800c       |    |		Call	0x0,0xc
00f9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00fa 0000 0000  |    |		.BLANK	0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010d       |    |		.CONST	0x010d								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0003       |    |		.CONST	0x0003								; Number of locals
0103			INIT_0100:
0103 e00f       |    |		Load	0x0,0xf
0104 0322       | "  |		Declare_Variable	Record
0105 00d8       |    |		Load_Top	At_Offset_0
0106 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0107 e5ff       |    |		Load	0x2,-0x1
0108 8010       |    |		Call	0x0,0x10
0109 00d0       |    |		Action	Swap_Control
010a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
010b 029f 0623  |   #|		Declare_Subprogram	INIT_0620,For_Call
010d			BODY_0100:
010d e5ff       |    |		Load	0x2,-0x1
010e 800a       |    |		Call	0x0,0xa
010f 8403       |    |		Call	0x2,0x3
0110 e5ff       |    |		Load	0x2,-0x1
0111 800b       |    |		Call	0x0,0xb
0112 e5ff       |    |		Load	0x2,-0x1
0113 800c       |    |		Call	0x0,0xc
0114 00d9       |    |		Load_Top	At_Offset_1
0115 4409       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x9
0116 0000 0000  |    |		.XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0131       | 1  |		.CONST	0x0131								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0006       |    |		.CONST	0x0006								; Number of locals
011b			INIT_0118:
011b e00f       |    |		Load	0x0,0xf
011c 0322       | "  |		Declare_Variable	Record
011d 00d8       |    |		Load_Top	At_Offset_0
011e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
011f e5ff       |    |		Load	0x2,-0x1
0120 8010       |    |		Call	0x0,0x10
0121 00d0       |    |		Action	Swap_Control
0122 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0123 e011       |    |		Load	0x0,0x11
0124 0322       | "  |		Declare_Variable	Record
0125 e012       |    |		Load	0x0,0x12
0126 00d9       |    |		Load_Top	At_Offset_1
0127 017d       | }  |		Execute	Record,Structure_Write
0128 e5f5       |    |		Load	0x2,-0xb
0129 822a       | *  |		Call	0x1,0x2a
012a e007       |    |		Load	0x0,0x7
012b 03f1       |    |		Declare_Variable	Discrete,With_Value
012c e5f5       |    |		Load	0x2,-0xb
012d e008       |    |		Load	0x0,0x8
012e 01d3       |    |		Execute	Vector,And
012f 029f 0693  |    |		Declare_Subprogram	INIT_0690,For_Call
0131			BODY_0118:
0131 e5ff       |    |		Load	0x2,-0x1
0132 800a       |    |		Call	0x0,0xa
0133 8406       |    |		Call	0x2,0x6
0134 e5ff       |    |		Load	0x2,-0x1
0135 800b       |    |		Call	0x0,0xb
0136 e5ff       |    |		Load	0x2,-0x1
0137 800c       |    |		Call	0x0,0xc
0138 e402       |    |		Load	0x2,0x2
0139 440c       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0xc
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145       | E  |		.CONST	0x0145								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 029f 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Call
0145			BODY_0140:
0145 00db       |    |		Load_Top	At_Offset_3
0146 800a       |    |		Call	0x0,0xa
0147 8402       |    |		Call	0x2,0x2
0148 00db       |    |		Load_Top	At_Offset_3
0149 800b       |    |		Call	0x0,0xb
014a 00db       |    |		Load_Top	At_Offset_3
014b 800c       |    |		Call	0x0,0xc
014c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155       | U  |		.CONST	0x0155								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 029f 0713  |    |		Declare_Subprogram	INIT_0710,For_Call
0155			BODY_0150:
0155 00db       |    |		Load_Top	At_Offset_3
0156 800a       |    |		Call	0x0,0xa
0157 8402       |    |		Call	0x2,0x2
0158 00db       |    |		Load_Top	At_Offset_3
0159 800b       |    |		Call	0x0,0xb
015a 00db       |    |		Load_Top	At_Offset_3
015b 800c       |    |		Call	0x0,0xc
015c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0172       | r  |		.CONST	0x0172								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0005       |    |		.CONST	0x0005								; Number of locals
0163			INIT_0160:
0163 e013       |    |		Load	0x0,0x13
0164 02ff       |    |		Declare_Variable	Variant_Record
0165 00d8       |    |		Load_Top	At_Offset_0
0166 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0167 e00f       |    |		Load	0x0,0xf
0168 0322       | "  |		Declare_Variable	Record
0169 e5fd       |    |		Load	0x2,-0x3
016a e5ff       |    |		Load	0x2,-0x1
016b 8014       |    |		Call	0x0,0x14
016c 00d9       |    |		Load_Top	At_Offset_1
016d 017d       | }  |		Execute	Record,Structure_Write
016e e015       |    |		Load	0x0,0x15
016f 0322       | "  |		Declare_Variable	Record
0170 e016       |    |		Load	0x0,0x16
0171 0007       |    |		Action	Break_Optional
0172			BODY_0160:
0172 e5ff       |    |		Load	0x2,-0x1
0173 0227       | '  |		Execute	Access,All_Reference
0174 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0175 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0176 e017       |    |		Load	0x0,0x17
0177 017f       |    |		Execute	Record,Equal
0178 681a       |h   |		Jump_Zero	0x193
0179 4800       |H   |		Short_Literal	0x0
017a 4800       |H   |		Short_Literal	0x0
017b 480e       |H   |		Short_Literal	0xe
017c e018       |    |		Load	0x0,0x18
017d 0334       | 4  |		Declare_Variable	Array,With_Constraint
017e 5071       |Pq  |		Indirect_Literal	Any,0x1f0,{0x574d5f43, 0x48414e47}
017f e5ff       |    |		Load	0x2,-0x1
0180 8019       |    |		Call	0x0,0x19
0181 00da       |    |		Load_Top	At_Offset_2
0182 017d       | }  |		Execute	Record,Structure_Write
0183 00d9       |    |		Load_Top	At_Offset_1
0184 e017       |    |		Load	0x0,0x17
0185 017f       |    |		Execute	Record,Equal
0186 6803       |h   |		Jump_Zero	0x18a
0187 4800       |H   |		Short_Literal	0x0
0188 a5fc       |    |		Store_Unchecked	0x2,-0x4
0189 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
018a e5ff       |    |		Load	0x2,-0x1
018b 800a       |    |		Call	0x0,0xa
018c 00d9       |    |		Load_Top	At_Offset_1
018d e5ff       |    |		Load	0x2,-0x1
018e 0227       | '  |		Execute	Access,All_Reference
018f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0190 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0191 e5ff       |    |		Load	0x2,-0x1
0192 800b       |    |		Call	0x0,0xb
0193 e5fe       |    |		Load	0x2,-0x2
0194 e402       |    |		Load	0x2,0x2
0195 2621       |&!  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21
0196 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0197 e5ff       |    |		Load	0x2,-0x1
0198 0227       | '  |		Execute	Access,All_Reference
0199 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
019a 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
019b e402       |    |		Load	0x2,0x2
019c 2621       |&!  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21
019d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
019e 4820       |H   |		Short_Literal	0x20
019f e402       |    |		Load	0x2,0x2
01a0 2621       |&!  |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21
01a1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a2 00db       |    |		Load_Top	At_Offset_3
01a3 2e21       |.!  |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x21
01a4 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 4803       |H   |		Short_Literal	0x3
01a7 4800       |H   |		Short_Literal	0x0
01a8 801a       |    |		Call	0x0,0x1a
01a9 00d2       |    |		Pop_Control	Pop_Count_2
01aa 00db       |    |		Load_Top	At_Offset_3
01ab 2e21       |.!  |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x21
01ac 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01ad 00d8       |    |		Load_Top	At_Offset_0
01ae 4800       |H   |		Short_Literal	0x0
01af 4801       |H   |		Short_Literal	0x1
01b0 801a       |    |		Call	0x0,0x1a
01b1 00d2       |    |		Pop_Control	Pop_Count_2
01b2 00db       |    |		Load_Top	At_Offset_3
01b3 2e21       |.!  |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x21
01b4 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 4800       |H   |		Short_Literal	0x0
01b7 4802       |H   |		Short_Literal	0x2
01b8 801a       |    |		Call	0x0,0x1a
01b9 00d2       |    |		Pop_Control	Pop_Count_2
01ba 00db       |    |		Load_Top	At_Offset_3
01bb 2e21       |.!  |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x21
01bc 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01bd 00d8       |    |		Load_Top	At_Offset_0
01be 4800       |H   |		Short_Literal	0x0
01bf 4803       |H   |		Short_Literal	0x3
01c0 801a       |    |		Call	0x0,0x1a
01c1 00d2       |    |		Pop_Control	Pop_Count_2
01c2 00db       |    |		Load_Top	At_Offset_3
01c3 2e21       |.!  |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x21
01c4 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 4800       |H   |		Short_Literal	0x0
01c7 4804       |H   |		Short_Literal	0x4
01c8 801a       |    |		Call	0x0,0x1a
01c9 00d2       |    |		Pop_Control	Pop_Count_2
01ca e016       |    |		Load	0x0,0x16
01cb e402       |    |		Load	0x2,0x2
01cc e01b       |    |		Load	0x0,0x1b
01cd 0337       | 7  |		Declare_Variable	Array
01ce 4801       |H   |		Short_Literal	0x1
01cf 480b       |H   |		Short_Literal	0xb
01d0 00da       |    |		Load_Top	At_Offset_2
01d1 01d6       |    |		Execute	Vector,Field_Write
01d2 4801       |H   |		Short_Literal	0x1
01d3 480c       |H   |		Short_Literal	0xc
01d4 00da       |    |		Load_Top	At_Offset_2
01d5 01d6       |    |		Execute	Vector,Field_Write
01d6 480a       |H   |		Short_Literal	0xa
01d7 4800       |H   |		Short_Literal	0x0
01d8 4800       |H   |		Short_Literal	0x0
01d9 00d9       |    |		Load_Top	At_Offset_1
01da e408       |    |		Load	0x2,0x8
01db 01d6       |    |		Execute	Vector,Field_Write
01dc 3ffb       |?   |		Loop_Increasing	0x1d8
01dd 481f       |H   |		Short_Literal	0x1f
01de 480d       |H   |		Short_Literal	0xd
01df 4800       |H   |		Short_Literal	0x0
01e0 00d9       |    |		Load_Top	At_Offset_1
01e1 e408       |    |		Load	0x2,0x8
01e2 01d6       |    |		Execute	Vector,Field_Write
01e3 3ffb       |?   |		Loop_Increasing	0x1df
01e4 e01b       |    |		Load	0x0,0x1b
01e5 01c3       |    |		Execute	Vector,Check_In_Type
01e6 4800       |H   |		Short_Literal	0x0
01e7 e403       |    |		Load	0x2,0x3
01e8 e5ff       |    |		Load	0x2,-0x1
01e9 801c       |    |		Call	0x0,0x1c
01ea 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01eb 00d8       |    |		Load_Top	At_Offset_0
01ec a5fc       |    |		Store_Unchecked	0x2,-0x4
01ed 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01ee 0000 0000  |    |		.XXX[0x2]
01f0 574d 5f43  |WM_C|		.LITERAL	{0x574d5f43, 0x48414e47}
01f4 455f 5354  |E_ST|		.XXX[0x4]
01f6 4154 4500  |ATE |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fd       |    |		.CONST	0x01fd								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb 029f 0733  |   3|		Declare_Subprogram	INIT_0730,For_Call
01fd			BODY_01f8:
01fd 00db       |    |		Load_Top	At_Offset_3
01fe 800a       |    |		Call	0x0,0xa
01ff 8402       |    |		Call	0x2,0x2
0200 00db       |    |		Load_Top	At_Offset_3
0201 800b       |    |		Call	0x0,0xb
0202 00db       |    |		Load_Top	At_Offset_3
0203 800c       |    |		Call	0x0,0xc
0204 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0205 0000 0000  |    |		.XXX[0x3]
0207 0000       |    |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020d       |    |		.CONST	0x020d								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b 029f 077b  |   {|		Declare_Subprogram	INIT_0778,For_Call
020d			BODY_0208:
020d 00db       |    |		Load_Top	At_Offset_3
020e 800a       |    |		Call	0x0,0xa
020f 8402       |    |		Call	0x2,0x2
0210 00db       |    |		Load_Top	At_Offset_3
0211 800b       |    |		Call	0x0,0xb
0212 00db       |    |		Load_Top	At_Offset_3
0213 800c       |    |		Call	0x0,0xc
0214 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0215 0000 0000  |    |		.XXX[0x3]
0217 0000       |    |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021d       |    |		.CONST	0x021d								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0002       |    |		.CONST	0x0002								; Number of locals
021b			INIT_0218:
021b 029f 07db  |    |		Declare_Subprogram	INIT_07d8,For_Call
021d			BODY_0218:
021d 00db       |    |		Load_Top	At_Offset_3
021e 800a       |    |		Call	0x0,0xa
021f 8402       |    |		Call	0x2,0x2
0220 00db       |    |		Load_Top	At_Offset_3
0221 800b       |    |		Call	0x0,0xb
0222 00db       |    |		Load_Top	At_Offset_3
0223 800c       |    |		Call	0x0,0xc
0224 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0225 0000 0000  |    |		.XXX[0x3]
0227 0000       |    |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022d       | -  |		.CONST	0x022d								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0002       |    |		.CONST	0x0002								; Number of locals
022b			INIT_0228:
022b 029f 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Call
022d			BODY_0228:
022d 00db       |    |		Load_Top	At_Offset_3
022e 800a       |    |		Call	0x0,0xa
022f 8402       |    |		Call	0x2,0x2
0230 00db       |    |		Load_Top	At_Offset_3
0231 800b       |    |		Call	0x0,0xb
0232 00db       |    |		Load_Top	At_Offset_3
0233 800c       |    |		Call	0x0,0xc
0234 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0235 0000 0000  |    |		.XXX[0x3]
0237 0000       |    |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d       | =  |		.CONST	0x023d								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0002       |    |		.CONST	0x0002								; Number of locals
023b			INIT_0238:
023b 029f 081b  |    |		Declare_Subprogram	INIT_0818,For_Call
023d			BODY_0238:
023d 00db       |    |		Load_Top	At_Offset_3
023e 800a       |    |		Call	0x0,0xa
023f 8402       |    |		Call	0x2,0x2
0240 00db       |    |		Load_Top	At_Offset_3
0241 800b       |    |		Call	0x0,0xb
0242 00db       |    |		Load_Top	At_Offset_3
0243 800c       |    |		Call	0x0,0xc
0244 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0245 0000 0000  |    |		.XXX[0x3]
0247 0000       |    |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024d       | M  |		.CONST	0x024d								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0002       |    |		.CONST	0x0002								; Number of locals
024b			INIT_0248:
024b 029f 0883  |    |		Declare_Subprogram	INIT_0880,For_Call
024d			BODY_0248:
024d 00db       |    |		Load_Top	At_Offset_3
024e 800a       |    |		Call	0x0,0xa
024f 8402       |    |		Call	0x2,0x2
0250 00db       |    |		Load_Top	At_Offset_3
0251 800b       |    |		Call	0x0,0xb
0252 00db       |    |		Load_Top	At_Offset_3
0253 800c       |    |		Call	0x0,0xc
0254 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0255 0000 0000  |    |		.XXX[0x3]
0257 0000       |    |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025d       | ]  |		.CONST	0x025d								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0002       |    |		.CONST	0x0002								; Number of locals
025b			INIT_0258:
025b 029f 08d3  |    |		Declare_Subprogram	INIT_08d0,For_Call
025d			BODY_0258:
025d 00db       |    |		Load_Top	At_Offset_3
025e 800a       |    |		Call	0x0,0xa
025f 8402       |    |		Call	0x2,0x2
0260 00db       |    |		Load_Top	At_Offset_3
0261 800b       |    |		Call	0x0,0xb
0262 00db       |    |		Load_Top	At_Offset_3
0263 800c       |    |		Call	0x0,0xc
0264 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0265 0000 0000  |    |		.XXX[0x3]
0267 0000       |    |
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 02a1       |    |		.CONST	0x02a1								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0006       |    |		.CONST	0x0006								; Number of locals
026b			INIT_0268:
026b e01d       |    |		Load	0x0,0x1d
026c 0337       | 7  |		Declare_Variable	Array
026d 4801       |H   |		Short_Literal	0x1
026e 480f       |H   |		Short_Literal	0xf
026f 00da       |    |		Load_Top	At_Offset_2
0270 01d6       |    |		Execute	Vector,Field_Write
0271 4801       |H   |		Short_Literal	0x1
0272 480e       |H   |		Short_Literal	0xe
0273 00da       |    |		Load_Top	At_Offset_2
0274 01d6       |    |		Execute	Vector,Field_Write
0275 4801       |H   |		Short_Literal	0x1
0276 480d       |H   |		Short_Literal	0xd
0277 00da       |    |		Load_Top	At_Offset_2
0278 01d6       |    |		Execute	Vector,Field_Write
0279 4801       |H   |		Short_Literal	0x1
027a 480c       |H   |		Short_Literal	0xc
027b 00da       |    |		Load_Top	At_Offset_2
027c 01d6       |    |		Execute	Vector,Field_Write
027d 4801       |H   |		Short_Literal	0x1
027e 480b       |H   |		Short_Literal	0xb
027f 00da       |    |		Load_Top	At_Offset_2
0280 01d6       |    |		Execute	Vector,Field_Write
0281 4801       |H   |		Short_Literal	0x1
0282 480a       |H   |		Short_Literal	0xa
0283 00da       |    |		Load_Top	At_Offset_2
0284 01d6       |    |		Execute	Vector,Field_Write
0285 4801       |H   |		Short_Literal	0x1
0286 4809       |H   |		Short_Literal	0x9
0287 00da       |    |		Load_Top	At_Offset_2
0288 01d6       |    |		Execute	Vector,Field_Write
0289 4808       |H   |		Short_Literal	0x8
028a 4800       |H   |		Short_Literal	0x0
028b 4800       |H   |		Short_Literal	0x0
028c 00d9       |    |		Load_Top	At_Offset_1
028d e402       |    |		Load	0x2,0x2
028e 01d6       |    |		Execute	Vector,Field_Write
028f 3ffb       |?   |		Loop_Increasing	0x28b
0290 e01d       |    |		Load	0x0,0x1d
0291 01c3       |    |		Execute	Vector,Check_In_Type
0292 0007       |    |		Action	Break_Optional
0293 e01e       |    |		Load	0x0,0x1e
0294 02ff       |    |		Declare_Variable	Variant_Record
0295 00d8       |    |		Load_Top	At_Offset_0
0296 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0297 e00f       |    |		Load	0x0,0xf
0298 0322       | "  |		Declare_Variable	Record
0299 e5fd       |    |		Load	0x2,-0x3
029a e5ff       |    |		Load	0x2,-0x1
029b 8014       |    |		Call	0x0,0x14
029c 00d9       |    |		Load_Top	At_Offset_1
029d 017d       | }  |		Execute	Record,Structure_Write
029e 00e1       |    |		Load_Encached	Boolean_Cache
029f 029f 091b  |    |		Declare_Subprogram	INIT_0918,For_Call
02a1			BODY_0268:
02a1 4809       |H   |		Short_Literal	0x9
02a2 e5fc       |    |		Load	0x2,-0x4
02a3 01d7       |    |		Execute	Vector,Field_Read
02a4 7008       |p   |		Jump_Nonzero	0x2ad
02a5 e5fb       |    |		Load	0x2,-0x5
02a6 e5fc       |    |		Load	0x2,-0x4
02a7 e5fe       |    |		Load	0x2,-0x2
02a8 e5ff       |    |		Load	0x2,-0x1
02a9 8211       |    |		Call	0x1,0x11
02aa 4801       |H   |		Short_Literal	0x1
02ab a5fa       |    |		Store_Unchecked	0x2,-0x6
02ac 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02ad e5ff       |    |		Load	0x2,-0x1
02ae 800a       |    |		Call	0x0,0xa
02af 8406       |    |		Call	0x2,0x6
02b0 00d9       |    |		Load_Top	At_Offset_1
02b1 6803       |h   |		Jump_Zero	0x2b5
02b2 4801       |H   |		Short_Literal	0x1
02b3 a5fa       |    |		Store_Unchecked	0x2,-0x6
02b4 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02b5 e5fe       |    |		Load	0x2,-0x2
02b6 e403       |    |		Load	0x2,0x3
02b7 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02b8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02b9 00da       |    |		Load_Top	At_Offset_2
02ba e403       |    |		Load	0x2,0x3
02bb 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02bc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02bd e5fc       |    |		Load	0x2,-0x4
02be e402       |    |		Load	0x2,0x2
02bf 01d3       |    |		Execute	Vector,And
02c0 e403       |    |		Load	0x2,0x3
02c1 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02c2 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
02c3 e5fb       |    |		Load	0x2,-0x5
02c4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c5 e403       |    |		Load	0x2,0x3
02c6 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02c7 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02c8 e5fb       |    |		Load	0x2,-0x5
02c9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ca e403       |    |		Load	0x2,0x3
02cb 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02cc 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
02cd e5fb       |    |		Load	0x2,-0x5
02ce 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02cf e403       |    |		Load	0x2,0x3
02d0 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02d1 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
02d2 e5fb       |    |		Load	0x2,-0x5
02d3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02d4 e403       |    |		Load	0x2,0x3
02d5 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02d6 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
02d7 e5fb       |    |		Load	0x2,-0x5
02d8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02d9 e403       |    |		Load	0x2,0x3
02da 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02db 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
02dc e5fb       |    |		Load	0x2,-0x5
02dd 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
02de e403       |    |		Load	0x2,0x3
02df 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02e0 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
02e1 e5fb       |    |		Load	0x2,-0x5
02e2 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
02e3 e403       |    |		Load	0x2,0x3
02e4 2617       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x17
02e5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02e6 e016       |    |		Load	0x0,0x16
02e7 e403       |    |		Load	0x2,0x3
02e8 e01b       |    |		Load	0x0,0x1b
02e9 0337       | 7  |		Declare_Variable	Array
02ea 4801       |H   |		Short_Literal	0x1
02eb 480b       |H   |		Short_Literal	0xb
02ec 00da       |    |		Load_Top	At_Offset_2
02ed 01d6       |    |		Execute	Vector,Field_Write
02ee 4801       |H   |		Short_Literal	0x1
02ef 480c       |H   |		Short_Literal	0xc
02f0 00da       |    |		Load_Top	At_Offset_2
02f1 01d6       |    |		Execute	Vector,Field_Write
02f2 480a       |H   |		Short_Literal	0xa
02f3 4800       |H   |		Short_Literal	0x0
02f4 4800       |H   |		Short_Literal	0x0
02f5 00d9       |    |		Load_Top	At_Offset_1
02f6 e409       |    |		Load	0x2,0x9
02f7 01d6       |    |		Execute	Vector,Field_Write
02f8 3ffb       |?   |		Loop_Increasing	0x2f4
02f9 481f       |H   |		Short_Literal	0x1f
02fa 480d       |H   |		Short_Literal	0xd
02fb 4800       |H   |		Short_Literal	0x0
02fc 00d9       |    |		Load_Top	At_Offset_1
02fd e409       |    |		Load	0x2,0x9
02fe 01d6       |    |		Execute	Vector,Field_Write
02ff 3ffb       |?   |		Loop_Increasing	0x2fb
0300 e01b       |    |		Load	0x0,0x1b
0301 01c3       |    |		Execute	Vector,Check_In_Type
0302 4800       |H   |		Short_Literal	0x0
0303 e404       |    |		Load	0x2,0x4
0304 e5ff       |    |		Load	0x2,-0x1
0305 801c       |    |		Call	0x0,0x1c
0306 c5fa       |    |		Store	0x2,-0x6
0307 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030d       |    |		.CONST	0x030d								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0002       |    |		.CONST	0x0002								; Number of locals
030b			INIT_0308:
030b 029f 0963  |   c|		Declare_Subprogram	INIT_0960,For_Call
030d			BODY_0308:
030d 00db       |    |		Load_Top	At_Offset_3
030e 800a       |    |		Call	0x0,0xa
030f 8402       |    |		Call	0x2,0x2
0310 00db       |    |		Load_Top	At_Offset_3
0311 800b       |    |		Call	0x0,0xb
0312 00db       |    |		Load_Top	At_Offset_3
0313 800c       |    |		Call	0x0,0xc
0314 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0315 0000 0000  |    |		.XXX[0x3]
0317 0000       |    |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d       |    |		.CONST	0x031d								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0002       |    |		.CONST	0x0002								; Number of locals
031b			INIT_0318:
031b 029f 0993  |    |		Declare_Subprogram	INIT_0990,For_Call
031d			BODY_0318:
031d 00db       |    |		Load_Top	At_Offset_3
031e 800a       |    |		Call	0x0,0xa
031f 8402       |    |		Call	0x2,0x2
0320 00db       |    |		Load_Top	At_Offset_3
0321 800b       |    |		Call	0x0,0xb
0322 00db       |    |		Load_Top	At_Offset_3
0323 800c       |    |		Call	0x0,0xc
0324 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0325 0000 0000  |    |		.XXX[0x3]
0327 0000       |    |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032d       | -  |		.CONST	0x032d								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0002       |    |		.CONST	0x0002								; Number of locals
032b			INIT_0328:
032b 029f 09eb  |    |		Declare_Subprogram	INIT_09e8,For_Call
032d			BODY_0328:
032d 00db       |    |		Load_Top	At_Offset_3
032e 800a       |    |		Call	0x0,0xa
032f 8402       |    |		Call	0x2,0x2
0330 00db       |    |		Load_Top	At_Offset_3
0331 800b       |    |		Call	0x0,0xb
0332 00db       |    |		Load_Top	At_Offset_3
0333 800c       |    |		Call	0x0,0xc
0334 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0335 0000 0000  |    |		.XXX[0x3]
0337 0000       |    |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033d       | =  |		.CONST	0x033d								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0002       |    |		.CONST	0x0002								; Number of locals
033b			INIT_0338:
033b 029f 0a53  |   S|		Declare_Subprogram	INIT_0a50,For_Call
033d			BODY_0338:
033d 00db       |    |		Load_Top	At_Offset_3
033e 800a       |    |		Call	0x0,0xa
033f 8402       |    |		Call	0x2,0x2
0340 00db       |    |		Load_Top	At_Offset_3
0341 800b       |    |		Call	0x0,0xb
0342 00db       |    |		Load_Top	At_Offset_3
0343 800c       |    |		Call	0x0,0xc
0344 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0345 0000 0000  |    |		.XXX[0x3]
0347 0000       |    |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034d       | M  |		.CONST	0x034d								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0002       |    |		.CONST	0x0002								; Number of locals
034b			INIT_0348:
034b 029f 0a9b  |    |		Declare_Subprogram	INIT_0a98,For_Call
034d			BODY_0348:
034d 00db       |    |		Load_Top	At_Offset_3
034e 800a       |    |		Call	0x0,0xa
034f 8402       |    |		Call	0x2,0x2
0350 00db       |    |		Load_Top	At_Offset_3
0351 800b       |    |		Call	0x0,0xb
0352 00db       |    |		Load_Top	At_Offset_3
0353 800c       |    |		Call	0x0,0xc
0354 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0355 0000 0000  |    |		.XXX[0x3]
0357 0000       |    |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035d       | ]  |		.CONST	0x035d								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0002       |    |		.CONST	0x0002								; Number of locals
035b			INIT_0358:
035b 029f 0adb  |    |		Declare_Subprogram	INIT_0ad8,For_Call
035d			BODY_0358:
035d 00db       |    |		Load_Top	At_Offset_3
035e 800a       |    |		Call	0x0,0xa
035f 8402       |    |		Call	0x2,0x2
0360 00db       |    |		Load_Top	At_Offset_3
0361 800b       |    |		Call	0x0,0xb
0362 00db       |    |		Load_Top	At_Offset_3
0363 800c       |    |		Call	0x0,0xc
0364 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0365 0000 0000  |    |		.XXX[0x3]
0367 0000       |    |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036d       | m  |		.CONST	0x036d								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0002       |    |		.CONST	0x0002								; Number of locals
036b			INIT_0368:
036b 029f 0b23  |   #|		Declare_Subprogram	INIT_0b20,For_Call
036d			BODY_0368:
036d 00db       |    |		Load_Top	At_Offset_3
036e 800a       |    |		Call	0x0,0xa
036f 8402       |    |		Call	0x2,0x2
0370 00db       |    |		Load_Top	At_Offset_3
0371 800b       |    |		Call	0x0,0xb
0372 00db       |    |		Load_Top	At_Offset_3
0373 800c       |    |		Call	0x0,0xc
0374 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0375 0000 0000  |    |		.XXX[0x3]
0377 0000       |    |
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037d       | }  |		.CONST	0x037d								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0002       |    |		.CONST	0x0002								; Number of locals
037b			INIT_0378:
037b 029f 0b6b  |   k|		Declare_Subprogram	INIT_0b68,For_Call
037d			BODY_0378:
037d 00db       |    |		Load_Top	At_Offset_3
037e 800a       |    |		Call	0x0,0xa
037f 8402       |    |		Call	0x2,0x2
0380 00db       |    |		Load_Top	At_Offset_3
0381 800b       |    |		Call	0x0,0xb
0382 00db       |    |		Load_Top	At_Offset_3
0383 800c       |    |		Call	0x0,0xc
0384 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0385 0000 0000  |    |		.XXX[0x3]
0387 0000       |    |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038d       |    |		.CONST	0x038d								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0002       |    |		.CONST	0x0002								; Number of locals
038b			INIT_0388:
038b 029f 0bb3  |    |		Declare_Subprogram	INIT_0bb0,For_Call
038d			BODY_0388:
038d 00db       |    |		Load_Top	At_Offset_3
038e 800a       |    |		Call	0x0,0xa
038f 8402       |    |		Call	0x2,0x2
0390 00db       |    |		Load_Top	At_Offset_3
0391 800b       |    |		Call	0x0,0xb
0392 00db       |    |		Load_Top	At_Offset_3
0393 800c       |    |		Call	0x0,0xc
0394 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0395 0000 0000  |    |		.XXX[0x3]
0397 0000       |    |
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039d       |    |		.CONST	0x039d								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0002       |    |		.CONST	0x0002								; Number of locals
039b			INIT_0398:
039b 029f 0bd3  |    |		Declare_Subprogram	INIT_0bd0,For_Call
039d			BODY_0398:
039d 00db       |    |		Load_Top	At_Offset_3
039e 800a       |    |		Call	0x0,0xa
039f 8402       |    |		Call	0x2,0x2
03a0 00db       |    |		Load_Top	At_Offset_3
03a1 800b       |    |		Call	0x0,0xb
03a2 00db       |    |		Load_Top	At_Offset_3
03a3 800c       |    |		Call	0x0,0xc
03a4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03a5 0000 0000  |    |		.XXX[0x3]
03a7 0000       |    |
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b6       |    |		.CONST	0x03b6								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0003       |    |		.CONST	0x0003								; Number of locals
03ab			INIT_03a8:
03ab e01f       |    |		Load	0x0,0x1f
03ac 02ff       |    |		Declare_Variable	Variant_Record
03ad 00d8       |    |		Load_Top	At_Offset_0
03ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03af e00f       |    |		Load	0x0,0xf
03b0 0322       | "  |		Declare_Variable	Record
03b1 e5fd       |    |		Load	0x2,-0x3
03b2 e5ff       |    |		Load	0x2,-0x1
03b3 8014       |    |		Call	0x0,0x14
03b4 00d9       |    |		Load_Top	At_Offset_1
03b5 017d       | }  |		Execute	Record,Structure_Write
03b6			BODY_03a8:
03b6 e5fe       |    |		Load	0x2,-0x2
03b7 e5ff       |    |		Load	0x2,-0x1
03b8 8228       | (  |		Call	0x1,0x28
03b9 00d8       |    |		Load_Top	At_Offset_0
03ba 00da       |    |		Load_Top	At_Offset_2
03bb 2612       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
03bc 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03bd e5fe       |    |		Load	0x2,-0x2
03be 00da       |    |		Load_Top	At_Offset_2
03bf 2612       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
03c0 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
03c1 4800       |H   |		Short_Literal	0x0
03c2 00da       |    |		Load_Top	At_Offset_2
03c3 2612       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
03c4 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
03c5 e016       |    |		Load	0x0,0x16
03c6 00da       |    |		Load_Top	At_Offset_2
03c7 e01b       |    |		Load	0x0,0x1b
03c8 0337       | 7  |		Declare_Variable	Array
03c9 4801       |H   |		Short_Literal	0x1
03ca 480b       |H   |		Short_Literal	0xb
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 01d6       |    |		Execute	Vector,Field_Write
03cd 4801       |H   |		Short_Literal	0x1
03ce 480c       |H   |		Short_Literal	0xc
03cf 00da       |    |		Load_Top	At_Offset_2
03d0 01d6       |    |		Execute	Vector,Field_Write
03d1 480a       |H   |		Short_Literal	0xa
03d2 4800       |H   |		Short_Literal	0x0
03d3 4800       |H   |		Short_Literal	0x0
03d4 00d9       |    |		Load_Top	At_Offset_1
03d5 e406       |    |		Load	0x2,0x6
03d6 01d6       |    |		Execute	Vector,Field_Write
03d7 3ffb       |?   |		Loop_Increasing	0x3d3
03d8 481f       |H   |		Short_Literal	0x1f
03d9 480d       |H   |		Short_Literal	0xd
03da 4800       |H   |		Short_Literal	0x0
03db 00d9       |    |		Load_Top	At_Offset_1
03dc e406       |    |		Load	0x2,0x6
03dd 01d6       |    |		Execute	Vector,Field_Write
03de 3ffb       |?   |		Loop_Increasing	0x3da
03df e01b       |    |		Load	0x0,0x1b
03e0 01c3       |    |		Execute	Vector,Check_In_Type
03e1 4800       |H   |		Short_Literal	0x0
03e2 e403       |    |		Load	0x2,0x3
03e3 e5ff       |    |		Load	0x2,-0x1
03e4 801c       |    |		Call	0x0,0x1c
03e5 c5fc       |    |		Store	0x2,-0x4
03e6 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03e7 0000       |    |		.XXX[0x1]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03ed       |    |		.CONST	0x03ed								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0002       |    |		.CONST	0x0002								; Number of locals
03eb			INIT_03e8:
03eb e007       |    |		Load	0x0,0x7
03ec 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
03ed			BODY_03e8:
03ed 00cf       |    |		Action	Mark_Auxiliary
03ee e5ff       |    |		Load	0x2,-0x1
03ef 01da       |    |		Execute	Vector,Bounds
03f0 0007       |    |		Action	Break_Optional
03f1 00d8       |    |		Load_Top	At_Offset_0
03f2 e5ff       |    |		Load	0x2,-0x1
03f3 01d7       |    |		Execute	Vector,Field_Read
03f4 6803       |h   |		Jump_Zero	0x3f8
03f5 00db       |    |		Load_Top	At_Offset_3
03f6 0a01       |    |		Execute_Immediate	Plus,0x1
03f7 c402       |    |		Store	0x2,0x2
03f8 00c8       |    |		Action	Pop_Auxiliary_Range
03f9 37f7       |7   |		Loop_Decreasing	0x3f1
03fa 00ce       |    |		Action	Pop_Auxiliary
03fb 00d8       |    |		Load_Top	At_Offset_0
03fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03fd 0000 0000  |    |		.XXX[0x3]
03ff 0000       |    |
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0004       |    |		.CONST	0x0004								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 481f       |H   |		Short_Literal	0x1f
0404 e5fe       |    |		Load	0x2,-0x2
0405 01d7       |    |		Execute	Vector,Field_Read
0406 680b       |h   |		Jump_Zero	0x412
0407 e5fd       |    |		Load	0x2,-0x3
0408 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0409 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
040a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
040b 00db       |    |		Load_Top	At_Offset_3
040c e020       |    |		Load	0x0,0x20
040d a021       | !  |		Store_Unchecked	0x0,0x21
040e e022       | "  |		Load	0x0,0x22
040f e023       | #  |		Load	0x0,0x23
0410 a024       | $  |		Store_Unchecked	0x0,0x24
0411 8025       | %  |		Call	0x0,0x25
0412 481e       |H   |		Short_Literal	0x1e
0413 e5fe       |    |		Load	0x2,-0x2
0414 01d7       |    |		Execute	Vector,Field_Read
0415 6809       |h   |		Jump_Zero	0x41f
0416 e5fd       |    |		Load	0x2,-0x3
0417 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0418 00db       |    |		Load_Top	At_Offset_3
0419 e026       | &  |		Load	0x0,0x26
041a a027       | '  |		Store_Unchecked	0x0,0x27
041b e028       | (  |		Load	0x0,0x28
041c e029       | )  |		Load	0x0,0x29
041d a02a       | *  |		Store_Unchecked	0x0,0x2a
041e 8025       | %  |		Call	0x0,0x25
041f 481d       |H   |		Short_Literal	0x1d
0420 e5fe       |    |		Load	0x2,-0x2
0421 01d7       |    |		Execute	Vector,Field_Read
0422 680b       |h   |		Jump_Zero	0x42e
0423 e5fd       |    |		Load	0x2,-0x3
0424 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0425 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0426 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0427 00db       |    |		Load_Top	At_Offset_3
0428 e020       |    |		Load	0x0,0x20
0429 a021       | !  |		Store_Unchecked	0x0,0x21
042a e022       | "  |		Load	0x0,0x22
042b e023       | #  |		Load	0x0,0x23
042c a024       | $  |		Store_Unchecked	0x0,0x24
042d 8025       | %  |		Call	0x0,0x25
042e 481c       |H   |		Short_Literal	0x1c
042f e5fe       |    |		Load	0x2,-0x2
0430 01d7       |    |		Execute	Vector,Field_Read
0431 6809       |h   |		Jump_Zero	0x43b
0432 e5fd       |    |		Load	0x2,-0x3
0433 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0434 00db       |    |		Load_Top	At_Offset_3
0435 e026       | &  |		Load	0x0,0x26
0436 a027       | '  |		Store_Unchecked	0x0,0x27
0437 e028       | (  |		Load	0x0,0x28
0438 e029       | )  |		Load	0x0,0x29
0439 a02a       | *  |		Store_Unchecked	0x0,0x2a
043a 8025       | %  |		Call	0x0,0x25
043b 481b       |H   |		Short_Literal	0x1b
043c e5fe       |    |		Load	0x2,-0x2
043d 01d7       |    |		Execute	Vector,Field_Read
043e 680e       |h   |		Jump_Zero	0x44d
043f e5fd       |    |		Load	0x2,-0x3
0440 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0441 00d8       |    |		Load_Top	At_Offset_0
0442 e02b       | +  |		Load	0x0,0x2b
0443 0260       | `  |		Execute	Discrete,In_Type
0444 7001       |p   |		Jump_Nonzero	0x446
0445 0801       |    |		Execute_Immediate	Raise,0x1
0446 00db       |    |		Load_Top	At_Offset_3
0447 e02c       | ,  |		Load	0x0,0x2c
0448 a02d       | -  |		Store_Unchecked	0x0,0x2d
0449 e02e       | .  |		Load	0x0,0x2e
044a e02f       | /  |		Load	0x0,0x2f
044b a030       | 0  |		Store_Unchecked	0x0,0x30
044c 8025       | %  |		Call	0x0,0x25
044d 481a       |H   |		Short_Literal	0x1a
044e e5fe       |    |		Load	0x2,-0x2
044f 01d7       |    |		Execute	Vector,Field_Read
0450 680e       |h   |		Jump_Zero	0x45f
0451 e5fd       |    |		Load	0x2,-0x3
0452 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0453 00d8       |    |		Load_Top	At_Offset_0
0454 e02b       | +  |		Load	0x0,0x2b
0455 0260       | `  |		Execute	Discrete,In_Type
0456 7001       |p   |		Jump_Nonzero	0x458
0457 0801       |    |		Execute_Immediate	Raise,0x1
0458 00db       |    |		Load_Top	At_Offset_3
0459 e02c       | ,  |		Load	0x0,0x2c
045a a02d       | -  |		Store_Unchecked	0x0,0x2d
045b e02e       | .  |		Load	0x0,0x2e
045c e02f       | /  |		Load	0x0,0x2f
045d a030       | 0  |		Store_Unchecked	0x0,0x30
045e 8025       | %  |		Call	0x0,0x25
045f 4819       |H   |		Short_Literal	0x19
0460 e5fe       |    |		Load	0x2,-0x2
0461 01d7       |    |		Execute	Vector,Field_Read
0462 680e       |h   |		Jump_Zero	0x471
0463 e5fd       |    |		Load	0x2,-0x3
0464 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0465 00d8       |    |		Load_Top	At_Offset_0
0466 e02b       | +  |		Load	0x0,0x2b
0467 0260       | `  |		Execute	Discrete,In_Type
0468 7001       |p   |		Jump_Nonzero	0x46a
0469 0801       |    |		Execute_Immediate	Raise,0x1
046a 00db       |    |		Load_Top	At_Offset_3
046b e02c       | ,  |		Load	0x0,0x2c
046c a02d       | -  |		Store_Unchecked	0x0,0x2d
046d e02e       | .  |		Load	0x0,0x2e
046e e02f       | /  |		Load	0x0,0x2f
046f a030       | 0  |		Store_Unchecked	0x0,0x30
0470 8025       | %  |		Call	0x0,0x25
0471 4818       |H   |		Short_Literal	0x18
0472 e5fe       |    |		Load	0x2,-0x2
0473 01d7       |    |		Execute	Vector,Field_Read
0474 6809       |h   |		Jump_Zero	0x47e
0475 e5fd       |    |		Load	0x2,-0x3
0476 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0477 00db       |    |		Load_Top	At_Offset_3
0478 e031       | 1  |		Load	0x0,0x31
0479 a032       | 2  |		Store_Unchecked	0x0,0x32
047a e033       | 3  |		Load	0x0,0x33
047b e034       | 4  |		Load	0x0,0x34
047c a035       | 5  |		Store_Unchecked	0x0,0x35
047d 8025       | %  |		Call	0x0,0x25
047e 4817       |H   |		Short_Literal	0x17
047f e5fe       |    |		Load	0x2,-0x2
0480 01d7       |    |		Execute	Vector,Field_Read
0481 6809       |h   |		Jump_Zero	0x48b
0482 e5fd       |    |		Load	0x2,-0x3
0483 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0484 00db       |    |		Load_Top	At_Offset_3
0485 e026       | &  |		Load	0x0,0x26
0486 a027       | '  |		Store_Unchecked	0x0,0x27
0487 e028       | (  |		Load	0x0,0x28
0488 e029       | )  |		Load	0x0,0x29
0489 a02a       | *  |		Store_Unchecked	0x0,0x2a
048a 8025       | %  |		Call	0x0,0x25
048b 4816       |H   |		Short_Literal	0x16
048c e5fe       |    |		Load	0x2,-0x2
048d 01d7       |    |		Execute	Vector,Field_Read
048e 680e       |h   |		Jump_Zero	0x49d
048f e5fd       |    |		Load	0x2,-0x3
0490 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0491 00d8       |    |		Load_Top	At_Offset_0
0492 e02b       | +  |		Load	0x0,0x2b
0493 0260       | `  |		Execute	Discrete,In_Type
0494 7001       |p   |		Jump_Nonzero	0x496
0495 0801       |    |		Execute_Immediate	Raise,0x1
0496 00db       |    |		Load_Top	At_Offset_3
0497 e02c       | ,  |		Load	0x0,0x2c
0498 a02d       | -  |		Store_Unchecked	0x0,0x2d
0499 e02e       | .  |		Load	0x0,0x2e
049a e02f       | /  |		Load	0x0,0x2f
049b a030       | 0  |		Store_Unchecked	0x0,0x30
049c 8025       | %  |		Call	0x0,0x25
049d 4815       |H   |		Short_Literal	0x15
049e e5fe       |    |		Load	0x2,-0x2
049f 01d7       |    |		Execute	Vector,Field_Read
04a0 680e       |h   |		Jump_Zero	0x4af
04a1 e5fd       |    |		Load	0x2,-0x3
04a2 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
04a3 00d8       |    |		Load_Top	At_Offset_0
04a4 e02b       | +  |		Load	0x0,0x2b
04a5 0260       | `  |		Execute	Discrete,In_Type
04a6 7001       |p   |		Jump_Nonzero	0x4a8
04a7 0801       |    |		Execute_Immediate	Raise,0x1
04a8 00db       |    |		Load_Top	At_Offset_3
04a9 e02c       | ,  |		Load	0x0,0x2c
04aa a02d       | -  |		Store_Unchecked	0x0,0x2d
04ab e02e       | .  |		Load	0x0,0x2e
04ac e02f       | /  |		Load	0x0,0x2f
04ad a030       | 0  |		Store_Unchecked	0x0,0x30
04ae 8025       | %  |		Call	0x0,0x25
04af 4814       |H   |		Short_Literal	0x14
04b0 e5fe       |    |		Load	0x2,-0x2
04b1 01d7       |    |		Execute	Vector,Field_Read
04b2 6809       |h   |		Jump_Zero	0x4bc
04b3 e5fd       |    |		Load	0x2,-0x3
04b4 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
04b5 00db       |    |		Load_Top	At_Offset_3
04b6 e036       | 6  |		Load	0x0,0x36
04b7 a037       | 7  |		Store_Unchecked	0x0,0x37
04b8 e038       | 8  |		Load	0x0,0x38
04b9 e039       | 9  |		Load	0x0,0x39
04ba a03a       | :  |		Store_Unchecked	0x0,0x3a
04bb 8025       | %  |		Call	0x0,0x25
04bc 4813       |H   |		Short_Literal	0x13
04bd e5fe       |    |		Load	0x2,-0x2
04be 01d7       |    |		Execute	Vector,Field_Read
04bf 6809       |h   |		Jump_Zero	0x4c9
04c0 e5fd       |    |		Load	0x2,-0x3
04c1 340c       |4   |		Execute	Record,Field_Reference,Field_Number 0xc
04c2 00db       |    |		Load_Top	At_Offset_3
04c3 e036       | 6  |		Load	0x0,0x36
04c4 a037       | 7  |		Store_Unchecked	0x0,0x37
04c5 e038       | 8  |		Load	0x0,0x38
04c6 e039       | 9  |		Load	0x0,0x39
04c7 a03a       | :  |		Store_Unchecked	0x0,0x3a
04c8 8025       | %  |		Call	0x0,0x25
04c9 4812       |H   |		Short_Literal	0x12
04ca e5fe       |    |		Load	0x2,-0x2
04cb 01d7       |    |		Execute	Vector,Field_Read
04cc 680a       |h   |		Jump_Zero	0x4d7
04cd e5fd       |    |		Load	0x2,-0x3
04ce 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
04cf 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04d0 00db       |    |		Load_Top	At_Offset_3
04d1 e020       |    |		Load	0x0,0x20
04d2 a021       | !  |		Store_Unchecked	0x0,0x21
04d3 e022       | "  |		Load	0x0,0x22
04d4 e023       | #  |		Load	0x0,0x23
04d5 a024       | $  |		Store_Unchecked	0x0,0x24
04d6 8025       | %  |		Call	0x0,0x25
04d7 4811       |H   |		Short_Literal	0x11
04d8 e5fe       |    |		Load	0x2,-0x2
04d9 01d7       |    |		Execute	Vector,Field_Read
04da 680a       |h   |		Jump_Zero	0x4e5
04db e5fd       |    |		Load	0x2,-0x3
04dc 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
04dd 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04de 00db       |    |		Load_Top	At_Offset_3
04df e020       |    |		Load	0x0,0x20
04e0 a021       | !  |		Store_Unchecked	0x0,0x21
04e1 e022       | "  |		Load	0x0,0x22
04e2 e023       | #  |		Load	0x0,0x23
04e3 a024       | $  |		Store_Unchecked	0x0,0x24
04e4 8025       | %  |		Call	0x0,0x25
04e5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04e6 0000 0000  |    |		.XXX[0x2]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04ec       |    |		.CONST	0x04ec								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0002       |    |		.CONST	0x0002								; Number of locals
04eb			INIT_04e8:
04eb e007       |    |		Load	0x0,0x7
04ec			BODY_04e8:
04ec 00cf       |    |		Action	Mark_Auxiliary
04ed e5ff       |    |		Load	0x2,-0x1
04ee 01da       |    |		Execute	Vector,Bounds
04ef 0007       |    |		Action	Break_Optional
04f0 00d8       |    |		Load_Top	At_Offset_0
04f1 e5ff       |    |		Load	0x2,-0x1
04f2 01d7       |    |		Execute	Vector,Field_Read
04f3 6803       |h   |		Jump_Zero	0x4f7
04f4 00db       |    |		Load_Top	At_Offset_3
04f5 0a01       |    |		Execute_Immediate	Plus,0x1
04f6 c402       |    |		Store	0x2,0x2
04f7 00c8       |    |		Action	Pop_Auxiliary_Range
04f8 37f7       |7   |		Loop_Decreasing	0x4f0
04f9 00ce       |    |		Action	Pop_Auxiliary
04fa 00d8       |    |		Load_Top	At_Offset_0
04fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04fc 0000 0000  |    |		.BLANK	0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503       |    |		.CONST	0x0503								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0001       |    |		.CONST	0x0001								; Number of locals
0503			BODY_0500:
0503			INIT_0500:
0503 480f       |H   |		Short_Literal	0xf
0504 e5fe       |    |		Load	0x2,-0x2
0505 01d7       |    |		Execute	Vector,Field_Read
0506 6809       |h   |		Jump_Zero	0x510
0507 e5fd       |    |		Load	0x2,-0x3
0508 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0509 00db       |    |		Load_Top	At_Offset_3
050a e02c       | ,  |		Load	0x0,0x2c
050b a02d       | -  |		Store_Unchecked	0x0,0x2d
050c e02e       | .  |		Load	0x0,0x2e
050d e02f       | /  |		Load	0x0,0x2f
050e a030       | 0  |		Store_Unchecked	0x0,0x30
050f 8025       | %  |		Call	0x0,0x25
0510 480e       |H   |		Short_Literal	0xe
0511 e5fe       |    |		Load	0x2,-0x2
0512 01d7       |    |		Execute	Vector,Field_Read
0513 6809       |h   |		Jump_Zero	0x51d
0514 e5fd       |    |		Load	0x2,-0x3
0515 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0516 00db       |    |		Load_Top	At_Offset_3
0517 e02c       | ,  |		Load	0x0,0x2c
0518 a02d       | -  |		Store_Unchecked	0x0,0x2d
0519 e02e       | .  |		Load	0x0,0x2e
051a e02f       | /  |		Load	0x0,0x2f
051b a030       | 0  |		Store_Unchecked	0x0,0x30
051c 8025       | %  |		Call	0x0,0x25
051d 480d       |H   |		Short_Literal	0xd
051e e5fe       |    |		Load	0x2,-0x2
051f 01d7       |    |		Execute	Vector,Field_Read
0520 6809       |h   |		Jump_Zero	0x52a
0521 e5fd       |    |		Load	0x2,-0x3
0522 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0523 00db       |    |		Load_Top	At_Offset_3
0524 e02c       | ,  |		Load	0x0,0x2c
0525 a02d       | -  |		Store_Unchecked	0x0,0x2d
0526 e02e       | .  |		Load	0x0,0x2e
0527 e02f       | /  |		Load	0x0,0x2f
0528 a030       | 0  |		Store_Unchecked	0x0,0x30
0529 8025       | %  |		Call	0x0,0x25
052a 480c       |H   |		Short_Literal	0xc
052b e5fe       |    |		Load	0x2,-0x2
052c 01d7       |    |		Execute	Vector,Field_Read
052d 6809       |h   |		Jump_Zero	0x537
052e e5fd       |    |		Load	0x2,-0x3
052f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0530 00db       |    |		Load_Top	At_Offset_3
0531 e02c       | ,  |		Load	0x0,0x2c
0532 a02d       | -  |		Store_Unchecked	0x0,0x2d
0533 e02e       | .  |		Load	0x0,0x2e
0534 e02f       | /  |		Load	0x0,0x2f
0535 a030       | 0  |		Store_Unchecked	0x0,0x30
0536 8025       | %  |		Call	0x0,0x25
0537 480b       |H   |		Short_Literal	0xb
0538 e5fe       |    |		Load	0x2,-0x2
0539 01d7       |    |		Execute	Vector,Field_Read
053a 6809       |h   |		Jump_Zero	0x544
053b e5fd       |    |		Load	0x2,-0x3
053c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
053d 00db       |    |		Load_Top	At_Offset_3
053e e02c       | ,  |		Load	0x0,0x2c
053f a02d       | -  |		Store_Unchecked	0x0,0x2d
0540 e02e       | .  |		Load	0x0,0x2e
0541 e02f       | /  |		Load	0x0,0x2f
0542 a030       | 0  |		Store_Unchecked	0x0,0x30
0543 8025       | %  |		Call	0x0,0x25
0544 480a       |H   |		Short_Literal	0xa
0545 e5fe       |    |		Load	0x2,-0x2
0546 01d7       |    |		Execute	Vector,Field_Read
0547 680b       |h   |		Jump_Zero	0x553
0548 e5fd       |    |		Load	0x2,-0x3
0549 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
054a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
054b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
054c 00db       |    |		Load_Top	At_Offset_3
054d e020       |    |		Load	0x0,0x20
054e a021       | !  |		Store_Unchecked	0x0,0x21
054f e022       | "  |		Load	0x0,0x22
0550 e023       | #  |		Load	0x0,0x23
0551 a024       | $  |		Store_Unchecked	0x0,0x24
0552 8025       | %  |		Call	0x0,0x25
0553 4809       |H   |		Short_Literal	0x9
0554 e5fe       |    |		Load	0x2,-0x2
0555 01d7       |    |		Execute	Vector,Field_Read
0556 680e       |h   |		Jump_Zero	0x565
0557 e5fd       |    |		Load	0x2,-0x3
0558 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0559 00d8       |    |		Load_Top	At_Offset_0
055a e02b       | +  |		Load	0x0,0x2b
055b 0260       | `  |		Execute	Discrete,In_Type
055c 7001       |p   |		Jump_Nonzero	0x55e
055d 0801       |    |		Execute_Immediate	Raise,0x1
055e 00db       |    |		Load_Top	At_Offset_3
055f e02c       | ,  |		Load	0x0,0x2c
0560 a02d       | -  |		Store_Unchecked	0x0,0x2d
0561 e02e       | .  |		Load	0x0,0x2e
0562 e02f       | /  |		Load	0x0,0x2f
0563 a030       | 0  |		Store_Unchecked	0x0,0x30
0564 8025       | %  |		Call	0x0,0x25
0565 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0566 0000 0000  |    |		.XXX[0x2]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 00db       |    |		Load_Top	At_Offset_3
056c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
056d 00db       |    |		Load_Top	At_Offset_3
056e 0227       | '  |		Execute	Access,All_Reference
056f 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0570 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0571 027f       |    |		Execute	Discrete,Equal
0572 680a       |h   |		Jump_Zero	0x57d
0573 00db       |    |		Load_Top	At_Offset_3
0574 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0575 0f08       |    |		Execute_Immediate	Equal,0x8
0576 6806       |h   |		Jump_Zero	0x57d
0577 4800       |H   |		Short_Literal	0x0
0578 00db       |    |		Load_Top	At_Offset_3
0579 0227       | '  |		Execute	Access,All_Reference
057a 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
057b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
057c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
057d 00db       |    |		Load_Top	At_Offset_3
057e 00db       |    |		Load_Top	At_Offset_3
057f e5ff       |    |		Load	0x2,-0x1
0580 0227       | '  |		Execute	Access,All_Reference
0581 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0582 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0583 803b       | ;  |		Call	0x0,0x3b
0584 803c       | <  |		Call	0x0,0x3c
0585 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0586 0000 0000  |    |		.XXX[0x2]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058b       |    |		.CONST	0x058b								; Address of begin
0589 05b5       |    |		.CONST	0x05b5								; Address of exception handler
058a 0001       |    |		.CONST	0x0001								; Number of locals
058b			BODY_0588:
058b			INIT_0588:
058b e402       |    |		Load	0x2,0x2
058c e03d       | =  |		Load	0x0,0x3d
058d 0322       | "  |		Declare_Variable	Record
058e 4802       |H   |		Short_Literal	0x2
058f 00d9       |    |		Load_Top	At_Offset_1
0590 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0591 e03d       | =  |		Load	0x0,0x3d
0592 012c       | ,  |		Execute	Any,Size
0593 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0594 e402       |    |		Load	0x2,0x2
0595 00d8       |    |		Load_Top	At_Offset_0
0596 e03e       | >  |		Load	0x0,0x3e
0597 0260       | `  |		Execute	Discrete,In_Type
0598 7001       |p   |		Jump_Nonzero	0x59a
0599 0801       |    |		Execute_Immediate	Raise,0x1
059a 0273       | s  |		Execute	Discrete,Plus
059b 00d9       |    |		Load_Top	At_Offset_1
059c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
059d 4800       |H   |		Short_Literal	0x0
059e 00d9       |    |		Load_Top	At_Offset_1
059f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05a0 e5fe       |    |		Load	0x2,-0x2
05a1 00d9       |    |		Load_Top	At_Offset_1
05a2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05a3 e403       |    |		Load	0x2,0x3
05a4 e03d       | =  |		Load	0x0,0x3d
05a5 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
05a6 0119       |    |		Execute	Any,Check_In_Formal_Type
05a7 00d9       |    |		Load_Top	At_Offset_1
05a8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
05a9 e5ff       |    |		Load	0x2,-0x1
05aa e03f       | ?  |		Load	0x0,0x3f
05ab a040       | @  |		Store_Unchecked	0x0,0x40
05ac e041       | A  |		Load	0x0,0x41
05ad e042       | B  |		Load	0x0,0x42
05ae a043       | C  |		Store_Unchecked	0x0,0x43
05af 8044       | D  |		Call	0x0,0x44
05b0 e5fc       |    |		Load	0x2,-0x4
05b1 e403       |    |		Load	0x2,0x3
05b2 e5ff       |    |		Load	0x2,-0x1
05b3 822b       | +  |		Call	0x1,0x2b
05b4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05b5			TRAP_0588:
05b5 0007       |    |		Action	Break_Optional
05b6 e5ff       |    |		Load	0x2,-0x1
05b7 800b       |    |		Call	0x0,0xb
05b8 00d8       |    |		Load_Top	At_Offset_0
05b9 0101       |    |		Execute	Exception,Reraise
05ba 0000 0000  |    |		.BLANK	0000[0x6]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 05db       |    |		.CONST	0x05db								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3 e045       | E  |		Load	0x0,0x45
05c4 0322       | "  |		Declare_Variable	Record
05c5 480d       |H   |		Short_Literal	0xd
05c6 00d9       |    |		Load_Top	At_Offset_1
05c7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05c8 e045       | E  |		Load	0x0,0x45
05c9 012c       | ,  |		Execute	Any,Size
05ca 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
05cb 00d9       |    |		Load_Top	At_Offset_1
05cc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05cd e5fd       |    |		Load	0x2,-0x3
05ce 00d9       |    |		Load_Top	At_Offset_1
05cf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05d0 e5fe       |    |		Load	0x2,-0x2
05d1 00d9       |    |		Load_Top	At_Offset_1
05d2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05d3 e5ff       |    |		Load	0x2,-0x1
05d4 e046       | F  |		Load	0x0,0x46
05d5 a047       | G  |		Store_Unchecked	0x0,0x47
05d6 e048       | H  |		Load	0x0,0x48
05d7 e049       | I  |		Load	0x0,0x49
05d8 a04a       | J  |		Store_Unchecked	0x0,0x4a
05d9 804b       | K  |		Call	0x0,0x4b
05da 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05db			TRAP_05c0:
05db 0007       |    |		Action	Break_Optional
05dc e5ff       |    |		Load	0x2,-0x1
05dd 800b       |    |		Call	0x0,0xb
05de 00d8       |    |		Load_Top	At_Offset_0
05df 0101       |    |		Execute	Exception,Reraise
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 0616       |    |		.CONST	0x0616								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 e402       |    |		Load	0x2,0x2
05e4 0902       |    |		Execute_Immediate	Binary_Scale,0x2
05e5 00d8       |    |		Load_Top	At_Offset_0
05e6 e007       |    |		Load	0x0,0x7
05e7 0260       | `  |		Execute	Discrete,In_Type
05e8 7001       |p   |		Jump_Nonzero	0x5ea
05e9 0801       |    |		Execute_Immediate	Raise,0x1
05ea e04c       | L  |		Load	0x0,0x4c
05eb 0322       | "  |		Declare_Variable	Record
05ec 480c       |H   |		Short_Literal	0xc
05ed 00d9       |    |		Load_Top	At_Offset_1
05ee 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05ef e04c       | L  |		Load	0x0,0x4c
05f0 012c       | ,  |		Execute	Any,Size
05f1 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
05f2 e402       |    |		Load	0x2,0x2
05f3 00d8       |    |		Load_Top	At_Offset_0
05f4 e03e       | >  |		Load	0x0,0x3e
05f5 0260       | `  |		Execute	Discrete,In_Type
05f6 7001       |p   |		Jump_Nonzero	0x5f8
05f7 0801       |    |		Execute_Immediate	Raise,0x1
05f8 0273       | s  |		Execute	Discrete,Plus
05f9 00d9       |    |		Load_Top	At_Offset_1
05fa 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05fb 4800       |H   |		Short_Literal	0x0
05fc 00d9       |    |		Load_Top	At_Offset_1
05fd 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05fe 4800       |H   |		Short_Literal	0x0
05ff 00d9       |    |		Load_Top	At_Offset_1
0600 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0601 e5fe       |    |		Load	0x2,-0x2
0602 00d9       |    |		Load_Top	At_Offset_1
0603 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0604 e403       |    |		Load	0x2,0x3
0605 e04c       | L  |		Load	0x0,0x4c
0606 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0607 0119       |    |		Execute	Any,Check_In_Formal_Type
0608 00d9       |    |		Load_Top	At_Offset_1
0609 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
060a e5ff       |    |		Load	0x2,-0x1
060b e04d       | M  |		Load	0x0,0x4d
060c a04e       | N  |		Store_Unchecked	0x0,0x4e
060d e04f       | O  |		Load	0x0,0x4f
060e e050       | P  |		Load	0x0,0x50
060f a051       | Q  |		Store_Unchecked	0x0,0x51
0610 8044       | D  |		Call	0x0,0x44
0611 e5fc       |    |		Load	0x2,-0x4
0612 e403       |    |		Load	0x2,0x3
0613 e5ff       |    |		Load	0x2,-0x1
0614 822d       | -  |		Call	0x1,0x2d
0615 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0616			TRAP_05e0:
0616 0007       |    |		Action	Break_Optional
0617 e5ff       |    |		Load	0x2,-0x1
0618 800b       |    |		Call	0x0,0xb
0619 00d8       |    |		Load_Top	At_Offset_0
061a 0101       |    |		Execute	Exception,Reraise
061b 0000 0000  |    |		.BLANK	0000[0x5]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0684       |    |		.CONST	0x0684								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 4808       |H   |		Short_Literal	0x8
0624 e052       | R  |		Load	0x0,0x52
0625 0322       | "  |		Declare_Variable	Record
0626 4801       |H   |		Short_Literal	0x1
0627 00d9       |    |		Load_Top	At_Offset_1
0628 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0629 e052       | R  |		Load	0x0,0x52
062a 012c       | ,  |		Execute	Any,Size
062b 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
062c 0a02       |    |		Execute_Immediate	Plus,0x2
062d 00d9       |    |		Load_Top	At_Offset_1
062e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
062f e5fe       |    |		Load	0x2,-0x2
0630 00d9       |    |		Load_Top	At_Offset_1
0631 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0632 e5fd       |    |		Load	0x2,-0x3
0633 00d9       |    |		Load_Top	At_Offset_1
0634 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0635 e5fc       |    |		Load	0x2,-0x4
0636 00d9       |    |		Load_Top	At_Offset_1
0637 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0638 e5fb       |    |		Load	0x2,-0x5
0639 00d9       |    |		Load_Top	At_Offset_1
063a 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
063b e5fa       |    |		Load	0x2,-0x6
063c 00d9       |    |		Load_Top	At_Offset_1
063d 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
063e e5f9       |    |		Load	0x2,-0x7
063f 00d9       |    |		Load_Top	At_Offset_1
0640 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0641 4800       |H   |		Short_Literal	0x0
0642 00d9       |    |		Load_Top	At_Offset_1
0643 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0644 4800       |H   |		Short_Literal	0x0
0645 00d9       |    |		Load_Top	At_Offset_1
0646 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0647 e012       |    |		Load	0x0,0x12
0648 00d9       |    |		Load_Top	At_Offset_1
0649 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
064a e402       |    |		Load	0x2,0x2
064b 00d9       |    |		Load_Top	At_Offset_1
064c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
064d e052       | R  |		Load	0x0,0x52
064e 300c       |0   |		Execute	Record,Field_Type,Field_Number 0xc
064f 0337       | 7  |		Declare_Variable	Array
0650 4801       |H   |		Short_Literal	0x1
0651 481e       |H   |		Short_Literal	0x1e
0652 00da       |    |		Load_Top	At_Offset_2
0653 01d6       |    |		Execute	Vector,Field_Write
0654 4801       |H   |		Short_Literal	0x1
0655 481c       |H   |		Short_Literal	0x1c
0656 00da       |    |		Load_Top	At_Offset_2
0657 01d6       |    |		Execute	Vector,Field_Write
0658 481b       |H   |		Short_Literal	0x1b
0659 4800       |H   |		Short_Literal	0x0
065a 4800       |H   |		Short_Literal	0x0
065b 00d9       |    |		Load_Top	At_Offset_1
065c e604       |    |		Load	0x3,0x4
065d 01d6       |    |		Execute	Vector,Field_Write
065e 3ffb       |?   |		Loop_Increasing	0x65a
065f 4800       |H   |		Short_Literal	0x0
0660 481d       |H   |		Short_Literal	0x1d
0661 00da       |    |		Load_Top	At_Offset_2
0662 01d6       |    |		Execute	Vector,Field_Write
0663 4800       |H   |		Short_Literal	0x0
0664 481f       |H   |		Short_Literal	0x1f
0665 00da       |    |		Load_Top	At_Offset_2
0666 01d6       |    |		Execute	Vector,Field_Write
0667 e052       | R  |		Load	0x0,0x52
0668 300c       |0   |		Execute	Record,Field_Type,Field_Number 0xc
0669 0119       |    |		Execute	Any,Check_In_Formal_Type
066a 00d9       |    |		Load_Top	At_Offset_1
066b 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
066c e5ff       |    |		Load	0x2,-0x1
066d e053       | S  |		Load	0x0,0x53
066e a054       | T  |		Store_Unchecked	0x0,0x54
066f e055       | U  |		Load	0x0,0x55
0670 e056       | V  |		Load	0x0,0x56
0671 a057       | W  |		Store_Unchecked	0x0,0x57
0672 8044       | D  |		Call	0x0,0x44
0673 e5f7       |    |		Load	0x2,-0x9
0674 e5ff       |    |		Load	0x2,-0x1
0675 e026       | &  |		Load	0x0,0x26
0676 a027       | '  |		Store_Unchecked	0x0,0x27
0677 e028       | (  |		Load	0x0,0x28
0678 e029       | )  |		Load	0x0,0x29
0679 a02a       | *  |		Store_Unchecked	0x0,0x2a
067a 8025       | %  |		Call	0x0,0x25
067b e5f8       |    |		Load	0x2,-0x8
067c e5ff       |    |		Load	0x2,-0x1
067d e026       | &  |		Load	0x0,0x26
067e a027       | '  |		Store_Unchecked	0x0,0x27
067f e028       | (  |		Load	0x0,0x28
0680 e029       | )  |		Load	0x0,0x29
0681 a02a       | *  |		Store_Unchecked	0x0,0x2a
0682 8025       | %  |		Call	0x0,0x25
0683 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0684			TRAP_0620:
0684 0007       |    |		Action	Break_Optional
0685 e5ff       |    |		Load	0x2,-0x1
0686 800b       |    |		Call	0x0,0xb
0687 00d8       |    |		Load_Top	At_Offset_0
0688 0101       |    |		Execute	Exception,Reraise
0689 0000 0000  |    |		.BLANK	0000[0x7]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693       |    |		.CONST	0x0693								; Address of begin
0691 06e7       |    |		.CONST	0x06e7								; Address of exception handler
0692 0001       |    |		.CONST	0x0001								; Number of locals
0693			BODY_0690:
0693			INIT_0690:
0693 e5f6       |    |		Load	0x2,-0xa
0694 e058       | X  |		Load	0x0,0x58
0695 022f       | /  |		Execute	Access,Equal
0696 7005       |p   |		Jump_Nonzero	0x69c
0697 e5f6       |    |		Load	0x2,-0xa
0698 0227       | '  |		Execute	Access,All_Reference
0699 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
069a e403       |    |		Load	0x2,0x3
069b 017d       | }  |		Execute	Record,Structure_Write
069c e404       |    |		Load	0x2,0x4
069d 0902       |    |		Execute_Immediate	Binary_Scale,0x2
069e 00d8       |    |		Load_Top	At_Offset_0
069f e007       |    |		Load	0x0,0x7
06a0 0260       | `  |		Execute	Discrete,In_Type
06a1 7001       |p   |		Jump_Nonzero	0x6a3
06a2 0801       |    |		Execute_Immediate	Raise,0x1
06a3 e052       | R  |		Load	0x0,0x52
06a4 0322       | "  |		Declare_Variable	Record
06a5 4801       |H   |		Short_Literal	0x1
06a6 00d9       |    |		Load_Top	At_Offset_1
06a7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06a8 e052       | R  |		Load	0x0,0x52
06a9 012c       | ,  |		Execute	Any,Size
06aa 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
06ab e404       |    |		Load	0x2,0x4
06ac 00d8       |    |		Load_Top	At_Offset_0
06ad e03e       | >  |		Load	0x0,0x3e
06ae 0260       | `  |		Execute	Discrete,In_Type
06af 7001       |p   |		Jump_Nonzero	0x6b1
06b0 0801       |    |		Execute_Immediate	Raise,0x1
06b1 0273       | s  |		Execute	Discrete,Plus
06b2 00d9       |    |		Load_Top	At_Offset_1
06b3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06b4 e5fe       |    |		Load	0x2,-0x2
06b5 00d9       |    |		Load_Top	At_Offset_1
06b6 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
06b7 e5fd       |    |		Load	0x2,-0x3
06b8 00d9       |    |		Load_Top	At_Offset_1
06b9 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
06ba e5fc       |    |		Load	0x2,-0x4
06bb 00d9       |    |		Load_Top	At_Offset_1
06bc 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
06bd e5fb       |    |		Load	0x2,-0x5
06be 00d9       |    |		Load_Top	At_Offset_1
06bf 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
06c0 e5fa       |    |		Load	0x2,-0x6
06c1 00d9       |    |		Load_Top	At_Offset_1
06c2 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
06c3 e5f9       |    |		Load	0x2,-0x7
06c4 00d9       |    |		Load_Top	At_Offset_1
06c5 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
06c6 e5f8       |    |		Load	0x2,-0x8
06c7 00d9       |    |		Load_Top	At_Offset_1
06c8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
06c9 e5f7       |    |		Load	0x2,-0x9
06ca 00d9       |    |		Load_Top	At_Offset_1
06cb 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
06cc e403       |    |		Load	0x2,0x3
06cd 00d9       |    |		Load_Top	At_Offset_1
06ce 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
06cf e402       |    |		Load	0x2,0x2
06d0 00d9       |    |		Load_Top	At_Offset_1
06d1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06d2 e405       |    |		Load	0x2,0x5
06d3 e052       | R  |		Load	0x0,0x52
06d4 300c       |0   |		Execute	Record,Field_Type,Field_Number 0xc
06d5 0119       |    |		Execute	Any,Check_In_Formal_Type
06d6 00d9       |    |		Load_Top	At_Offset_1
06d7 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
06d8 e5ff       |    |		Load	0x2,-0x1
06d9 e053       | S  |		Load	0x0,0x53
06da a054       | T  |		Store_Unchecked	0x0,0x54
06db e055       | U  |		Load	0x0,0x55
06dc e056       | V  |		Load	0x0,0x56
06dd a057       | W  |		Store_Unchecked	0x0,0x57
06de 8044       | D  |		Call	0x0,0x44
06df e404       |    |		Load	0x2,0x4
06e0 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
06e1 6804       |h   |		Jump_Zero	0x6e6
06e2 e5f4       |    |		Load	0x2,-0xc
06e3 e405       |    |		Load	0x2,0x5
06e4 e5ff       |    |		Load	0x2,-0x1
06e5 822b       | +  |		Call	0x1,0x2b
06e6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06e7			TRAP_0690:
06e7 0007       |    |		Action	Break_Optional
06e8 e5ff       |    |		Load	0x2,-0x1
06e9 800b       |    |		Call	0x0,0xb
06ea 00d8       |    |		Load_Top	At_Offset_0
06eb 0101       |    |		Execute	Exception,Reraise
06ec 0000 0000  |    |		.BLANK	0000[0x4]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3       |    |		.CONST	0x06f3								; Address of begin
06f1 070b       |    |		.CONST	0x070b								; Address of exception handler
06f2 0001       |    |		.CONST	0x0001								; Number of locals
06f3			BODY_06f0:
06f3			INIT_06f0:
06f3 e059       | Y  |		Load	0x0,0x59
06f4 0322       | "  |		Declare_Variable	Record
06f5 4805       |H   |		Short_Literal	0x5
06f6 00d9       |    |		Load_Top	At_Offset_1
06f7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
06f8 e059       | Y  |		Load	0x0,0x59
06f9 012c       | ,  |		Execute	Any,Size
06fa 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
06fb 00d9       |    |		Load_Top	At_Offset_1
06fc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06fd 4800       |H   |		Short_Literal	0x0
06fe 00d9       |    |		Load_Top	At_Offset_1
06ff 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0700 e5fe       |    |		Load	0x2,-0x2
0701 00d9       |    |		Load_Top	At_Offset_1
0702 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0703 e5ff       |    |		Load	0x2,-0x1
0704 e05a       | Z  |		Load	0x0,0x5a
0705 a05b       | [  |		Store_Unchecked	0x0,0x5b
0706 e05c       | \  |		Load	0x0,0x5c
0707 e05d       | ]  |		Load	0x0,0x5d
0708 a05e       | ^  |		Store_Unchecked	0x0,0x5e
0709 804b       | K  |		Call	0x0,0x4b
070a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
070b			TRAP_06f0:
070b 0007       |    |		Action	Break_Optional
070c e5ff       |    |		Load	0x2,-0x1
070d 800b       |    |		Call	0x0,0xb
070e 00d8       |    |		Load_Top	At_Offset_0
070f 0101       |    |		Execute	Exception,Reraise
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713       |    |		.CONST	0x0713								; Address of begin
0711 072b       | +  |		.CONST	0x072b								; Address of exception handler
0712 0001       |    |		.CONST	0x0001								; Number of locals
0713			BODY_0710:
0713			INIT_0710:
0713 e05f       | _  |		Load	0x0,0x5f
0714 0322       | "  |		Declare_Variable	Record
0715 4804       |H   |		Short_Literal	0x4
0716 00d9       |    |		Load_Top	At_Offset_1
0717 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0718 e05f       | _  |		Load	0x0,0x5f
0719 012c       | ,  |		Execute	Any,Size
071a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
071b 00d9       |    |		Load_Top	At_Offset_1
071c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
071d 4800       |H   |		Short_Literal	0x0
071e 00d9       |    |		Load_Top	At_Offset_1
071f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0720 e5fe       |    |		Load	0x2,-0x2
0721 00d9       |    |		Load_Top	At_Offset_1
0722 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0723 e5ff       |    |		Load	0x2,-0x1
0724 e060       | `  |		Load	0x0,0x60
0725 a061       | a  |		Store_Unchecked	0x0,0x61
0726 e062       | b  |		Load	0x0,0x62
0727 e063       | c  |		Load	0x0,0x63
0728 a064       | d  |		Store_Unchecked	0x0,0x64
0729 804b       | K  |		Call	0x0,0x4b
072a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
072b			TRAP_0710:
072b 0007       |    |		Action	Break_Optional
072c e5ff       |    |		Load	0x2,-0x1
072d 800b       |    |		Call	0x0,0xb
072e 00d8       |    |		Load_Top	At_Offset_0
072f 0101       |    |		Execute	Exception,Reraise
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733       | 3  |		.CONST	0x0733								; Address of begin
0731 0772       | r  |		.CONST	0x0772								; Address of exception handler
0732 0001       |    |		.CONST	0x0001								; Number of locals
0733			BODY_0730:
0733			INIT_0730:
0733 4804       |H   |		Short_Literal	0x4
0734 e04c       | L  |		Load	0x0,0x4c
0735 0322       | "  |		Declare_Variable	Record
0736 480c       |H   |		Short_Literal	0xc
0737 00d9       |    |		Load_Top	At_Offset_1
0738 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0739 e04c       | L  |		Load	0x0,0x4c
073a 012c       | ,  |		Execute	Any,Size
073b 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
073c 0a01       |    |		Execute_Immediate	Plus,0x1
073d 00d9       |    |		Load_Top	At_Offset_1
073e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
073f 4800       |H   |		Short_Literal	0x0
0740 00d9       |    |		Load_Top	At_Offset_1
0741 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0742 4800       |H   |		Short_Literal	0x0
0743 00d9       |    |		Load_Top	At_Offset_1
0744 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0745 e5fe       |    |		Load	0x2,-0x2
0746 00d9       |    |		Load_Top	At_Offset_1
0747 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0748 e04c       | L  |		Load	0x0,0x4c
0749 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
074a 0337       | 7  |		Declare_Variable	Array
074b 4801       |H   |		Short_Literal	0x1
074c 4809       |H   |		Short_Literal	0x9
074d 00da       |    |		Load_Top	At_Offset_2
074e 01d6       |    |		Execute	Vector,Field_Write
074f 4808       |H   |		Short_Literal	0x8
0750 4800       |H   |		Short_Literal	0x0
0751 4800       |H   |		Short_Literal	0x0
0752 00d9       |    |		Load_Top	At_Offset_1
0753 e604       |    |		Load	0x3,0x4
0754 01d6       |    |		Execute	Vector,Field_Write
0755 3ffb       |?   |		Loop_Increasing	0x751
0756 480f       |H   |		Short_Literal	0xf
0757 480a       |H   |		Short_Literal	0xa
0758 4800       |H   |		Short_Literal	0x0
0759 00d9       |    |		Load_Top	At_Offset_1
075a e604       |    |		Load	0x3,0x4
075b 01d6       |    |		Execute	Vector,Field_Write
075c 3ffb       |?   |		Loop_Increasing	0x758
075d e04c       | L  |		Load	0x0,0x4c
075e 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
075f 0119       |    |		Execute	Any,Check_In_Formal_Type
0760 00d9       |    |		Load_Top	At_Offset_1
0761 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0762 e5ff       |    |		Load	0x2,-0x1
0763 e04d       | M  |		Load	0x0,0x4d
0764 a04e       | N  |		Store_Unchecked	0x0,0x4e
0765 e04f       | O  |		Load	0x0,0x4f
0766 e050       | P  |		Load	0x0,0x50
0767 a051       | Q  |		Store_Unchecked	0x0,0x51
0768 8044       | D  |		Call	0x0,0x44
0769 4801       |H   |		Short_Literal	0x1
076a e5ff       |    |		Load	0x2,-0x1
076b e02c       | ,  |		Load	0x0,0x2c
076c a02d       | -  |		Store_Unchecked	0x0,0x2d
076d e02e       | .  |		Load	0x0,0x2e
076e e02f       | /  |		Load	0x0,0x2f
076f a030       | 0  |		Store_Unchecked	0x0,0x30
0770 8025       | %  |		Call	0x0,0x25
0771 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0772			TRAP_0730:
0772 0007       |    |		Action	Break_Optional
0773 e5ff       |    |		Load	0x2,-0x1
0774 800b       |    |		Call	0x0,0xb
0775 00d8       |    |		Load_Top	At_Offset_0
0776 0101       |    |		Execute	Exception,Reraise
0777 0000       |    |		.XXX[0x1]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b       | {  |		.CONST	0x077b								; Address of begin
0779 07d1       |    |		.CONST	0x07d1								; Address of exception handler
077a 0001       |    |		.CONST	0x0001								; Number of locals
077b			BODY_0778:
077b			INIT_0778:
077b 4804       |H   |		Short_Literal	0x4
077c e04c       | L  |		Load	0x0,0x4c
077d 0322       | "  |		Declare_Variable	Record
077e 480c       |H   |		Short_Literal	0xc
077f 00d9       |    |		Load_Top	At_Offset_1
0780 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0781 e04c       | L  |		Load	0x0,0x4c
0782 012c       | ,  |		Execute	Any,Size
0783 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0784 0a01       |    |		Execute_Immediate	Plus,0x1
0785 00d9       |    |		Load_Top	At_Offset_1
0786 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0787 4800       |H   |		Short_Literal	0x0
0788 00d9       |    |		Load_Top	At_Offset_1
0789 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
078a 4800       |H   |		Short_Literal	0x0
078b 00d9       |    |		Load_Top	At_Offset_1
078c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
078d e5fe       |    |		Load	0x2,-0x2
078e 00d9       |    |		Load_Top	At_Offset_1
078f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0790 e04c       | L  |		Load	0x0,0x4c
0791 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0792 0337       | 7  |		Declare_Variable	Array
0793 4801       |H   |		Short_Literal	0x1
0794 4809       |H   |		Short_Literal	0x9
0795 00da       |    |		Load_Top	At_Offset_2
0796 01d6       |    |		Execute	Vector,Field_Write
0797 4808       |H   |		Short_Literal	0x8
0798 4800       |H   |		Short_Literal	0x0
0799 4800       |H   |		Short_Literal	0x0
079a 00d9       |    |		Load_Top	At_Offset_1
079b e604       |    |		Load	0x3,0x4
079c 01d6       |    |		Execute	Vector,Field_Write
079d 3ffb       |?   |		Loop_Increasing	0x799
079e 480f       |H   |		Short_Literal	0xf
079f 480a       |H   |		Short_Literal	0xa
07a0 4800       |H   |		Short_Literal	0x0
07a1 00d9       |    |		Load_Top	At_Offset_1
07a2 e604       |    |		Load	0x3,0x4
07a3 01d6       |    |		Execute	Vector,Field_Write
07a4 3ffb       |?   |		Loop_Increasing	0x7a0
07a5 e04c       | L  |		Load	0x0,0x4c
07a6 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
07a7 0119       |    |		Execute	Any,Check_In_Formal_Type
07a8 00d9       |    |		Load_Top	At_Offset_1
07a9 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
07aa e5ff       |    |		Load	0x2,-0x1
07ab e04d       | M  |		Load	0x0,0x4d
07ac a04e       | N  |		Store_Unchecked	0x0,0x4e
07ad e04f       | O  |		Load	0x0,0x4f
07ae e050       | P  |		Load	0x0,0x50
07af a051       | Q  |		Store_Unchecked	0x0,0x51
07b0 8044       | D  |		Call	0x0,0x44
07b1 4800       |H   |		Short_Literal	0x0
07b2 e5ff       |    |		Load	0x2,-0x1
07b3 e02c       | ,  |		Load	0x0,0x2c
07b4 a02d       | -  |		Store_Unchecked	0x0,0x2d
07b5 e02e       | .  |		Load	0x0,0x2e
07b6 e02f       | /  |		Load	0x0,0x2f
07b7 a030       | 0  |		Store_Unchecked	0x0,0x30
07b8 8025       | %  |		Call	0x0,0x25
07b9 e065       | e  |		Load	0x0,0x65
07ba 0322       | "  |		Declare_Variable	Record
07bb 4808       |H   |		Short_Literal	0x8
07bc 00d9       |    |		Load_Top	At_Offset_1
07bd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07be e065       | e  |		Load	0x0,0x65
07bf 012c       | ,  |		Execute	Any,Size
07c0 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
07c1 00d9       |    |		Load_Top	At_Offset_1
07c2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
07c3 4800       |H   |		Short_Literal	0x0
07c4 00d9       |    |		Load_Top	At_Offset_1
07c5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07c6 e5fe       |    |		Load	0x2,-0x2
07c7 00d9       |    |		Load_Top	At_Offset_1
07c8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
07c9 e5ff       |    |		Load	0x2,-0x1
07ca e066       | f  |		Load	0x0,0x66
07cb a067       | g  |		Store_Unchecked	0x0,0x67
07cc e068       | h  |		Load	0x0,0x68
07cd e069       | i  |		Load	0x0,0x69
07ce a06a       | j  |		Store_Unchecked	0x0,0x6a
07cf 804b       | K  |		Call	0x0,0x4b
07d0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07d1			TRAP_0778:
07d1 0007       |    |		Action	Break_Optional
07d2 e5ff       |    |		Load	0x2,-0x1
07d3 800b       |    |		Call	0x0,0xb
07d4 00d8       |    |		Load_Top	At_Offset_0
07d5 0101       |    |		Execute	Exception,Reraise
07d6 0000 0000  |    |		.XXX[0x2]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db       |    |		.CONST	0x07db								; Address of begin
07d9 07f3       |    |		.CONST	0x07f3								; Address of exception handler
07da 0001       |    |		.CONST	0x0001								; Number of locals
07db			BODY_07d8:
07db			INIT_07d8:
07db e06b       | k  |		Load	0x0,0x6b
07dc 0322       | "  |		Declare_Variable	Record
07dd 4809       |H   |		Short_Literal	0x9
07de 00d9       |    |		Load_Top	At_Offset_1
07df 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07e0 e06b       | k  |		Load	0x0,0x6b
07e1 012c       | ,  |		Execute	Any,Size
07e2 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
07e3 00d9       |    |		Load_Top	At_Offset_1
07e4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
07e5 4800       |H   |		Short_Literal	0x0
07e6 00d9       |    |		Load_Top	At_Offset_1
07e7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
07e8 e5fe       |    |		Load	0x2,-0x2
07e9 00d9       |    |		Load_Top	At_Offset_1
07ea 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
07eb e5ff       |    |		Load	0x2,-0x1
07ec e06c       | l  |		Load	0x0,0x6c
07ed a06d       | m  |		Store_Unchecked	0x0,0x6d
07ee e06e       | n  |		Load	0x0,0x6e
07ef e06f       | o  |		Load	0x0,0x6f
07f0 a070       | p  |		Store_Unchecked	0x0,0x70
07f1 804b       | K  |		Call	0x0,0x4b
07f2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07f3			TRAP_07d8:
07f3 0007       |    |		Action	Break_Optional
07f4 e5ff       |    |		Load	0x2,-0x1
07f5 800b       |    |		Call	0x0,0xb
07f6 00d8       |    |		Load_Top	At_Offset_0
07f7 0101       |    |		Execute	Exception,Reraise
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb       |    |		.CONST	0x07fb								; Address of begin
07f9 0813       |    |		.CONST	0x0813								; Address of exception handler
07fa 0001       |    |		.CONST	0x0001								; Number of locals
07fb			BODY_07f8:
07fb			INIT_07f8:
07fb e065       | e  |		Load	0x0,0x65
07fc 0322       | "  |		Declare_Variable	Record
07fd 4808       |H   |		Short_Literal	0x8
07fe 00d9       |    |		Load_Top	At_Offset_1
07ff 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0800 e065       | e  |		Load	0x0,0x65
0801 012c       | ,  |		Execute	Any,Size
0802 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0803 00d9       |    |		Load_Top	At_Offset_1
0804 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0805 4800       |H   |		Short_Literal	0x0
0806 00d9       |    |		Load_Top	At_Offset_1
0807 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0808 e5fe       |    |		Load	0x2,-0x2
0809 00d9       |    |		Load_Top	At_Offset_1
080a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
080b e5ff       |    |		Load	0x2,-0x1
080c e066       | f  |		Load	0x0,0x66
080d a067       | g  |		Store_Unchecked	0x0,0x67
080e e068       | h  |		Load	0x0,0x68
080f e069       | i  |		Load	0x0,0x69
0810 a06a       | j  |		Store_Unchecked	0x0,0x6a
0811 804b       | K  |		Call	0x0,0x4b
0812 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0813			TRAP_07f8:
0813 0007       |    |		Action	Break_Optional
0814 e5ff       |    |		Load	0x2,-0x1
0815 800b       |    |		Call	0x0,0xb
0816 00d8       |    |		Load_Top	At_Offset_0
0817 0101       |    |		Execute	Exception,Reraise
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b       |    |		.CONST	0x081b								; Address of begin
0819 0877       | w  |		.CONST	0x0877								; Address of exception handler
081a 0001       |    |		.CONST	0x0001								; Number of locals
081b			BODY_0818:
081b			INIT_0818:
081b 4810       |H   |		Short_Literal	0x10
081c e04c       | L  |		Load	0x0,0x4c
081d 0322       | "  |		Declare_Variable	Record
081e 480c       |H   |		Short_Literal	0xc
081f 00d9       |    |		Load_Top	At_Offset_1
0820 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0821 e04c       | L  |		Load	0x0,0x4c
0822 012c       | ,  |		Execute	Any,Size
0823 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0824 0a04       |    |		Execute_Immediate	Plus,0x4
0825 00d9       |    |		Load_Top	At_Offset_1
0826 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0827 4800       |H   |		Short_Literal	0x0
0828 00d9       |    |		Load_Top	At_Offset_1
0829 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
082a 4800       |H   |		Short_Literal	0x0
082b 00d9       |    |		Load_Top	At_Offset_1
082c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
082d e5fe       |    |		Load	0x2,-0x2
082e 00d9       |    |		Load_Top	At_Offset_1
082f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0830 e04c       | L  |		Load	0x0,0x4c
0831 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0832 0337       | 7  |		Declare_Variable	Array
0833 4801       |H   |		Short_Literal	0x1
0834 480f       |H   |		Short_Literal	0xf
0835 00da       |    |		Load_Top	At_Offset_2
0836 01d6       |    |		Execute	Vector,Field_Write
0837 4801       |H   |		Short_Literal	0x1
0838 480e       |H   |		Short_Literal	0xe
0839 00da       |    |		Load_Top	At_Offset_2
083a 01d6       |    |		Execute	Vector,Field_Write
083b 4801       |H   |		Short_Literal	0x1
083c 480d       |H   |		Short_Literal	0xd
083d 00da       |    |		Load_Top	At_Offset_2
083e 01d6       |    |		Execute	Vector,Field_Write
083f 4801       |H   |		Short_Literal	0x1
0840 480c       |H   |		Short_Literal	0xc
0841 00da       |    |		Load_Top	At_Offset_2
0842 01d6       |    |		Execute	Vector,Field_Write
0843 480b       |H   |		Short_Literal	0xb
0844 4800       |H   |		Short_Literal	0x0
0845 4800       |H   |		Short_Literal	0x0
0846 00d9       |    |		Load_Top	At_Offset_1
0847 e604       |    |		Load	0x3,0x4
0848 01d6       |    |		Execute	Vector,Field_Write
0849 3ffb       |?   |		Loop_Increasing	0x845
084a e04c       | L  |		Load	0x0,0x4c
084b 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
084c 0119       |    |		Execute	Any,Check_In_Formal_Type
084d 00d9       |    |		Load_Top	At_Offset_1
084e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
084f e5ff       |    |		Load	0x2,-0x1
0850 e04d       | M  |		Load	0x0,0x4d
0851 a04e       | N  |		Store_Unchecked	0x0,0x4e
0852 e04f       | O  |		Load	0x0,0x4f
0853 e050       | P  |		Load	0x0,0x50
0854 a051       | Q  |		Store_Unchecked	0x0,0x51
0855 8044       | D  |		Call	0x0,0x44
0856 e5fd       |    |		Load	0x2,-0x3
0857 e5ff       |    |		Load	0x2,-0x1
0858 e02c       | ,  |		Load	0x0,0x2c
0859 a02d       | -  |		Store_Unchecked	0x0,0x2d
085a e02e       | .  |		Load	0x0,0x2e
085b e02f       | /  |		Load	0x0,0x2f
085c a030       | 0  |		Store_Unchecked	0x0,0x30
085d 8025       | %  |		Call	0x0,0x25
085e e5fc       |    |		Load	0x2,-0x4
085f e5ff       |    |		Load	0x2,-0x1
0860 e02c       | ,  |		Load	0x0,0x2c
0861 a02d       | -  |		Store_Unchecked	0x0,0x2d
0862 e02e       | .  |		Load	0x0,0x2e
0863 e02f       | /  |		Load	0x0,0x2f
0864 a030       | 0  |		Store_Unchecked	0x0,0x30
0865 8025       | %  |		Call	0x0,0x25
0866 e5fb       |    |		Load	0x2,-0x5
0867 e5ff       |    |		Load	0x2,-0x1
0868 e02c       | ,  |		Load	0x0,0x2c
0869 a02d       | -  |		Store_Unchecked	0x0,0x2d
086a e02e       | .  |		Load	0x0,0x2e
086b e02f       | /  |		Load	0x0,0x2f
086c a030       | 0  |		Store_Unchecked	0x0,0x30
086d 8025       | %  |		Call	0x0,0x25
086e e5fa       |    |		Load	0x2,-0x6
086f e5ff       |    |		Load	0x2,-0x1
0870 e02c       | ,  |		Load	0x0,0x2c
0871 a02d       | -  |		Store_Unchecked	0x0,0x2d
0872 e02e       | .  |		Load	0x0,0x2e
0873 e02f       | /  |		Load	0x0,0x2f
0874 a030       | 0  |		Store_Unchecked	0x0,0x30
0875 8025       | %  |		Call	0x0,0x25
0876 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0877			TRAP_0818:
0877 0007       |    |		Action	Break_Optional
0878 e5ff       |    |		Load	0x2,-0x1
0879 800b       |    |		Call	0x0,0xb
087a 00d8       |    |		Load_Top	At_Offset_0
087b 0101       |    |		Execute	Exception,Reraise
087c 0000 0000  |    |		.BLANK	0000[0x4]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883       |    |		.CONST	0x0883								; Address of begin
0881 08c7       |    |		.CONST	0x08c7								; Address of exception handler
0882 0001       |    |		.CONST	0x0001								; Number of locals
0883			BODY_0880:
0883			INIT_0880:
0883 4808       |H   |		Short_Literal	0x8
0884 e04c       | L  |		Load	0x0,0x4c
0885 0322       | "  |		Declare_Variable	Record
0886 480c       |H   |		Short_Literal	0xc
0887 00d9       |    |		Load_Top	At_Offset_1
0888 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0889 e04c       | L  |		Load	0x0,0x4c
088a 012c       | ,  |		Execute	Any,Size
088b 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
088c 0a02       |    |		Execute_Immediate	Plus,0x2
088d 00d9       |    |		Load_Top	At_Offset_1
088e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
088f 4800       |H   |		Short_Literal	0x0
0890 00d9       |    |		Load_Top	At_Offset_1
0891 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0892 4800       |H   |		Short_Literal	0x0
0893 00d9       |    |		Load_Top	At_Offset_1
0894 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0895 e5fe       |    |		Load	0x2,-0x2
0896 00d9       |    |		Load_Top	At_Offset_1
0897 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0898 e04c       | L  |		Load	0x0,0x4c
0899 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
089a 0337       | 7  |		Declare_Variable	Array
089b 4801       |H   |		Short_Literal	0x1
089c 480f       |H   |		Short_Literal	0xf
089d 00da       |    |		Load_Top	At_Offset_2
089e 01d6       |    |		Execute	Vector,Field_Write
089f 4801       |H   |		Short_Literal	0x1
08a0 480e       |H   |		Short_Literal	0xe
08a1 00da       |    |		Load_Top	At_Offset_2
08a2 01d6       |    |		Execute	Vector,Field_Write
08a3 480d       |H   |		Short_Literal	0xd
08a4 4800       |H   |		Short_Literal	0x0
08a5 4800       |H   |		Short_Literal	0x0
08a6 00d9       |    |		Load_Top	At_Offset_1
08a7 e604       |    |		Load	0x3,0x4
08a8 01d6       |    |		Execute	Vector,Field_Write
08a9 3ffb       |?   |		Loop_Increasing	0x8a5
08aa e04c       | L  |		Load	0x0,0x4c
08ab 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
08ac 0119       |    |		Execute	Any,Check_In_Formal_Type
08ad 00d9       |    |		Load_Top	At_Offset_1
08ae 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
08af e5ff       |    |		Load	0x2,-0x1
08b0 e04d       | M  |		Load	0x0,0x4d
08b1 a04e       | N  |		Store_Unchecked	0x0,0x4e
08b2 e04f       | O  |		Load	0x0,0x4f
08b3 e050       | P  |		Load	0x0,0x50
08b4 a051       | Q  |		Store_Unchecked	0x0,0x51
08b5 8044       | D  |		Call	0x0,0x44
08b6 e5fd       |    |		Load	0x2,-0x3
08b7 e5ff       |    |		Load	0x2,-0x1
08b8 e02c       | ,  |		Load	0x0,0x2c
08b9 a02d       | -  |		Store_Unchecked	0x0,0x2d
08ba e02e       | .  |		Load	0x0,0x2e
08bb e02f       | /  |		Load	0x0,0x2f
08bc a030       | 0  |		Store_Unchecked	0x0,0x30
08bd 8025       | %  |		Call	0x0,0x25
08be e5fc       |    |		Load	0x2,-0x4
08bf e5ff       |    |		Load	0x2,-0x1
08c0 e02c       | ,  |		Load	0x0,0x2c
08c1 a02d       | -  |		Store_Unchecked	0x0,0x2d
08c2 e02e       | .  |		Load	0x0,0x2e
08c3 e02f       | /  |		Load	0x0,0x2f
08c4 a030       | 0  |		Store_Unchecked	0x0,0x30
08c5 8025       | %  |		Call	0x0,0x25
08c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08c7			TRAP_0880:
08c7 0007       |    |		Action	Break_Optional
08c8 e5ff       |    |		Load	0x2,-0x1
08c9 800b       |    |		Call	0x0,0xb
08ca 00d8       |    |		Load_Top	At_Offset_0
08cb 0101       |    |		Execute	Exception,Reraise
08cc 0000 0000  |    |		.BLANK	0000[0x4]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d3       |    |		.CONST	0x08d3								; Address of begin
08d1 0912       |    |		.CONST	0x0912								; Address of exception handler
08d2 0001       |    |		.CONST	0x0001								; Number of locals
08d3			BODY_08d0:
08d3			INIT_08d0:
08d3 4804       |H   |		Short_Literal	0x4
08d4 e04c       | L  |		Load	0x0,0x4c
08d5 0322       | "  |		Declare_Variable	Record
08d6 480c       |H   |		Short_Literal	0xc
08d7 00d9       |    |		Load_Top	At_Offset_1
08d8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
08d9 e04c       | L  |		Load	0x0,0x4c
08da 012c       | ,  |		Execute	Any,Size
08db 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
08dc 0a01       |    |		Execute_Immediate	Plus,0x1
08dd 00d9       |    |		Load_Top	At_Offset_1
08de 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
08df 4800       |H   |		Short_Literal	0x0
08e0 00d9       |    |		Load_Top	At_Offset_1
08e1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
08e2 4800       |H   |		Short_Literal	0x0
08e3 00d9       |    |		Load_Top	At_Offset_1
08e4 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
08e5 e5fe       |    |		Load	0x2,-0x2
08e6 00d9       |    |		Load_Top	At_Offset_1
08e7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
08e8 e04c       | L  |		Load	0x0,0x4c
08e9 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
08ea 0337       | 7  |		Declare_Variable	Array
08eb 4801       |H   |		Short_Literal	0x1
08ec 4809       |H   |		Short_Literal	0x9
08ed 00da       |    |		Load_Top	At_Offset_2
08ee 01d6       |    |		Execute	Vector,Field_Write
08ef 4808       |H   |		Short_Literal	0x8
08f0 4800       |H   |		Short_Literal	0x0
08f1 4800       |H   |		Short_Literal	0x0
08f2 00d9       |    |		Load_Top	At_Offset_1
08f3 e604       |    |		Load	0x3,0x4
08f4 01d6       |    |		Execute	Vector,Field_Write
08f5 3ffb       |?   |		Loop_Increasing	0x8f1
08f6 480f       |H   |		Short_Literal	0xf
08f7 480a       |H   |		Short_Literal	0xa
08f8 4800       |H   |		Short_Literal	0x0
08f9 00d9       |    |		Load_Top	At_Offset_1
08fa e604       |    |		Load	0x3,0x4
08fb 01d6       |    |		Execute	Vector,Field_Write
08fc 3ffb       |?   |		Loop_Increasing	0x8f8
08fd e04c       | L  |		Load	0x0,0x4c
08fe 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
08ff 0119       |    |		Execute	Any,Check_In_Formal_Type
0900 00d9       |    |		Load_Top	At_Offset_1
0901 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0902 e5ff       |    |		Load	0x2,-0x1
0903 e04d       | M  |		Load	0x0,0x4d
0904 a04e       | N  |		Store_Unchecked	0x0,0x4e
0905 e04f       | O  |		Load	0x0,0x4f
0906 e050       | P  |		Load	0x0,0x50
0907 a051       | Q  |		Store_Unchecked	0x0,0x51
0908 8044       | D  |		Call	0x0,0x44
0909 4800       |H   |		Short_Literal	0x0
090a e5ff       |    |		Load	0x2,-0x1
090b e02c       | ,  |		Load	0x0,0x2c
090c a02d       | -  |		Store_Unchecked	0x0,0x2d
090d e02e       | .  |		Load	0x0,0x2e
090e e02f       | /  |		Load	0x0,0x2f
090f a030       | 0  |		Store_Unchecked	0x0,0x30
0910 8025       | %  |		Call	0x0,0x25
0911 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0912			TRAP_08d0:
0912 0007       |    |		Action	Break_Optional
0913 e5ff       |    |		Load	0x2,-0x1
0914 800b       |    |		Call	0x0,0xb
0915 00d8       |    |		Load_Top	At_Offset_0
0916 0101       |    |		Execute	Exception,Reraise
0917 0000       |    |		.XXX[0x1]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091f       |    |		.CONST	0x091f								; Address of begin
0919 0957       | W  |		.CONST	0x0957								; Address of exception handler
091a 0003       |    |		.CONST	0x0003								; Number of locals
091b			INIT_0918:
091b 029f 0bf3  |    |		Declare_Subprogram	INIT_0bf0,For_Call
091d 029f 0c33  |   3|		Declare_Subprogram	INIT_0c30,For_Call
091f			BODY_0918:
091f e5ff       |    |		Load	0x2,-0x1
0920 0227       | '  |		Execute	Access,All_Reference
0921 3c17       |<   |		Execute	Record,Field_Read,Field_Number 0x17
0922 e5ff       |    |		Load	0x2,-0x1
0923 0227       | '  |		Execute	Access,All_Reference
0924 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0925 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0926 e006       |    |		Load	0x0,0x6
0927 e5ff       |    |		Load	0x2,-0x1
0928 0227       | '  |		Execute	Access,All_Reference
0929 3817       |8   |		Execute	Record,Field_Write,Field_Number 0x17
092a e5ff       |    |		Load	0x2,-0x1
092b 8071       | q  |		Call	0x0,0x71
092c e5ff       |    |		Load	0x2,-0x1
092d 0227       | '  |		Execute	Access,All_Reference
092e 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
092f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0930 4801       |H   |		Short_Literal	0x1
0931 e5ff       |    |		Load	0x2,-0x1
0932 0227       | '  |		Execute	Access,All_Reference
0933 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0934 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0935 8602       |    |		Call	0x3,0x2
0936 8603       |    |		Call	0x3,0x3
0937 e5ff       |    |		Load	0x2,-0x1
0938 0227       | '  |		Execute	Access,All_Reference
0939 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
093a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
093b e5ff       |    |		Load	0x2,-0x1
093c 0227       | '  |		Execute	Access,All_Reference
093d 3817       |8   |		Execute	Record,Field_Write,Field_Number 0x17
093e e5ff       |    |		Load	0x2,-0x1
093f 0227       | '  |		Execute	Access,All_Reference
0940 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0941 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0942 a405       |    |		Store_Unchecked	0x2,0x5
0943 e072       | r  |		Load	0x0,0x72
0944 e5ff       |    |		Load	0x2,-0x1
0945 0227       | '  |		Execute	Access,All_Reference
0946 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0947 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0948 4800       |H   |		Short_Literal	0x0
0949 e5ff       |    |		Load	0x2,-0x1
094a 0227       | '  |		Execute	Access,All_Reference
094b 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
094c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
094d 4800       |H   |		Short_Literal	0x0
094e e5ff       |    |		Load	0x2,-0x1
094f 0227       | '  |		Execute	Access,All_Reference
0950 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0951 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0952 e5ff       |    |		Load	0x2,-0x1
0953 800b       |    |		Call	0x0,0xb
0954 e5ff       |    |		Load	0x2,-0x1
0955 800c       |    |		Call	0x0,0xc
0956 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0957			TRAP_0918:
0957 0007       |    |		Action	Break_Optional
0958 e5ff       |    |		Load	0x2,-0x1
0959 800b       |    |		Call	0x0,0xb
095a 00d8       |    |		Load_Top	At_Offset_0
095b 0101       |    |		Execute	Exception,Reraise
095c 0000 0000  |    |		.BLANK	0000[0x4]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963       | c  |		.CONST	0x0963								; Address of begin
0961 0984       |    |		.CONST	0x0984								; Address of exception handler
0962 0001       |    |		.CONST	0x0001								; Number of locals
0963			BODY_0960:
0963			INIT_0960:
0963 e073       | s  |		Load	0x0,0x73
0964 0322       | "  |		Declare_Variable	Record
0965 4807       |H   |		Short_Literal	0x7
0966 00d9       |    |		Load_Top	At_Offset_1
0967 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0968 e073       | s  |		Load	0x0,0x73
0969 012c       | ,  |		Execute	Any,Size
096a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
096b 00d9       |    |		Load_Top	At_Offset_1
096c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
096d 4800       |H   |		Short_Literal	0x0
096e 00d9       |    |		Load_Top	At_Offset_1
096f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0970 e5fe       |    |		Load	0x2,-0x2
0971 00d9       |    |		Load_Top	At_Offset_1
0972 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0973 e5fd       |    |		Load	0x2,-0x3
0974 00d9       |    |		Load_Top	At_Offset_1
0975 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0976 e5fc       |    |		Load	0x2,-0x4
0977 00d9       |    |		Load_Top	At_Offset_1
0978 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0979 e5fb       |    |		Load	0x2,-0x5
097a 00d9       |    |		Load_Top	At_Offset_1
097b 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
097c e5ff       |    |		Load	0x2,-0x1
097d e074       | t  |		Load	0x0,0x74
097e a075       | u  |		Store_Unchecked	0x0,0x75
097f e076       | v  |		Load	0x0,0x76
0980 e077       | w  |		Load	0x0,0x77
0981 a078       | x  |		Store_Unchecked	0x0,0x78
0982 804b       | K  |		Call	0x0,0x4b
0983 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0984			TRAP_0960:
0984 0007       |    |		Action	Break_Optional
0985 e5ff       |    |		Load	0x2,-0x1
0986 800b       |    |		Call	0x0,0xb
0987 00d8       |    |		Load_Top	At_Offset_0
0988 0101       |    |		Execute	Exception,Reraise
0989 0000 0000  |    |		.BLANK	0000[0x7]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993       |    |		.CONST	0x0993								; Address of begin
0991 09df       |    |		.CONST	0x09df								; Address of exception handler
0992 0001       |    |		.CONST	0x0001								; Number of locals
0993			BODY_0990:
0993			INIT_0990:
0993 4808       |H   |		Short_Literal	0x8
0994 e04c       | L  |		Load	0x0,0x4c
0995 0322       | "  |		Declare_Variable	Record
0996 480c       |H   |		Short_Literal	0xc
0997 00d9       |    |		Load_Top	At_Offset_1
0998 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0999 e04c       | L  |		Load	0x0,0x4c
099a 012c       | ,  |		Execute	Any,Size
099b 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
099c 0a02       |    |		Execute_Immediate	Plus,0x2
099d 00d9       |    |		Load_Top	At_Offset_1
099e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
099f 4800       |H   |		Short_Literal	0x0
09a0 00d9       |    |		Load_Top	At_Offset_1
09a1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
09a2 4800       |H   |		Short_Literal	0x0
09a3 00d9       |    |		Load_Top	At_Offset_1
09a4 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
09a5 e5fe       |    |		Load	0x2,-0x2
09a6 00d9       |    |		Load_Top	At_Offset_1
09a7 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
09a8 e04c       | L  |		Load	0x0,0x4c
09a9 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
09aa 0337       | 7  |		Declare_Variable	Array
09ab 4801       |H   |		Short_Literal	0x1
09ac 480d       |H   |		Short_Literal	0xd
09ad 00da       |    |		Load_Top	At_Offset_2
09ae 01d6       |    |		Execute	Vector,Field_Write
09af 4801       |H   |		Short_Literal	0x1
09b0 480c       |H   |		Short_Literal	0xc
09b1 00da       |    |		Load_Top	At_Offset_2
09b2 01d6       |    |		Execute	Vector,Field_Write
09b3 480b       |H   |		Short_Literal	0xb
09b4 4800       |H   |		Short_Literal	0x0
09b5 4800       |H   |		Short_Literal	0x0
09b6 00d9       |    |		Load_Top	At_Offset_1
09b7 e604       |    |		Load	0x3,0x4
09b8 01d6       |    |		Execute	Vector,Field_Write
09b9 3ffb       |?   |		Loop_Increasing	0x9b5
09ba 4800       |H   |		Short_Literal	0x0
09bb 480e       |H   |		Short_Literal	0xe
09bc 00da       |    |		Load_Top	At_Offset_2
09bd 01d6       |    |		Execute	Vector,Field_Write
09be 4800       |H   |		Short_Literal	0x0
09bf 480f       |H   |		Short_Literal	0xf
09c0 00da       |    |		Load_Top	At_Offset_2
09c1 01d6       |    |		Execute	Vector,Field_Write
09c2 e04c       | L  |		Load	0x0,0x4c
09c3 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
09c4 0119       |    |		Execute	Any,Check_In_Formal_Type
09c5 00d9       |    |		Load_Top	At_Offset_1
09c6 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
09c7 e5ff       |    |		Load	0x2,-0x1
09c8 e04d       | M  |		Load	0x0,0x4d
09c9 a04e       | N  |		Store_Unchecked	0x0,0x4e
09ca e04f       | O  |		Load	0x0,0x4f
09cb e050       | P  |		Load	0x0,0x50
09cc a051       | Q  |		Store_Unchecked	0x0,0x51
09cd 8044       | D  |		Call	0x0,0x44
09ce e5fd       |    |		Load	0x2,-0x3
09cf e5ff       |    |		Load	0x2,-0x1
09d0 e02c       | ,  |		Load	0x0,0x2c
09d1 a02d       | -  |		Store_Unchecked	0x0,0x2d
09d2 e02e       | .  |		Load	0x0,0x2e
09d3 e02f       | /  |		Load	0x0,0x2f
09d4 a030       | 0  |		Store_Unchecked	0x0,0x30
09d5 8025       | %  |		Call	0x0,0x25
09d6 e5fc       |    |		Load	0x2,-0x4
09d7 e5ff       |    |		Load	0x2,-0x1
09d8 e02c       | ,  |		Load	0x0,0x2c
09d9 a02d       | -  |		Store_Unchecked	0x0,0x2d
09da e02e       | .  |		Load	0x0,0x2e
09db e02f       | /  |		Load	0x0,0x2f
09dc a030       | 0  |		Store_Unchecked	0x0,0x30
09dd 8025       | %  |		Call	0x0,0x25
09de 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09df			TRAP_0990:
09df 0007       |    |		Action	Break_Optional
09e0 e5ff       |    |		Load	0x2,-0x1
09e1 800b       |    |		Call	0x0,0xb
09e2 00d8       |    |		Load_Top	At_Offset_0
09e3 0101       |    |		Execute	Exception,Reraise
09e4 0000 0000  |    |		.BLANK	0000[0x4]
09e8 ; --------------------------------------------------------------------------------------
09e8 ; SUBPROGRAM
09e8 ; --------------------------------------------------------------------------------------
09e8 09eb       |    |		.CONST	0x09eb								; Address of begin
09e9 0a47       | G  |		.CONST	0x0a47								; Address of exception handler
09ea 0001       |    |		.CONST	0x0001								; Number of locals
09eb			BODY_09e8:
09eb			INIT_09e8:
09eb 00cf       |    |		Action	Mark_Auxiliary
09ec e5fe       |    |		Load	0x2,-0x2
09ed 01dc       |    |		Execute	Vector,Last
09ee e5fe       |    |		Load	0x2,-0x2
09ef 01dd       |    |		Execute	Vector,First
09f0 0a01       |    |		Execute_Immediate	Plus,0x1
09f1 0263       | c  |		Execute	Discrete,Above_Bound
09f2 7053       |pS  |		Jump_Nonzero	0xa46
09f3 4808       |H   |		Short_Literal	0x8
09f4 e04c       | L  |		Load	0x0,0x4c
09f5 0322       | "  |		Declare_Variable	Record
09f6 480c       |H   |		Short_Literal	0xc
09f7 00d9       |    |		Load_Top	At_Offset_1
09f8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
09f9 e04c       | L  |		Load	0x0,0x4c
09fa 012c       | ,  |		Execute	Any,Size
09fb 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
09fc 0a02       |    |		Execute_Immediate	Plus,0x2
09fd 00d9       |    |		Load_Top	At_Offset_1
09fe 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
09ff 4800       |H   |		Short_Literal	0x0
0a00 00d9       |    |		Load_Top	At_Offset_1
0a01 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a02 4800       |H   |		Short_Literal	0x0
0a03 00d9       |    |		Load_Top	At_Offset_1
0a04 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0a05 00da       |    |		Load_Top	At_Offset_2
0a06 e5fe       |    |		Load	0x2,-0x2
0a07 01d5       |    |		Execute	Vector,Field_Reference
0a08 00d9       |    |		Load_Top	At_Offset_1
0a09 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0a0a e04c       | L  |		Load	0x0,0x4c
0a0b 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0a0c 0337       | 7  |		Declare_Variable	Array
0a0d 4801       |H   |		Short_Literal	0x1
0a0e 480a       |H   |		Short_Literal	0xa
0a0f 00da       |    |		Load_Top	At_Offset_2
0a10 01d6       |    |		Execute	Vector,Field_Write
0a11 4801       |H   |		Short_Literal	0x1
0a12 4809       |H   |		Short_Literal	0x9
0a13 00da       |    |		Load_Top	At_Offset_2
0a14 01d6       |    |		Execute	Vector,Field_Write
0a15 4808       |H   |		Short_Literal	0x8
0a16 4800       |H   |		Short_Literal	0x0
0a17 4800       |H   |		Short_Literal	0x0
0a18 00d9       |    |		Load_Top	At_Offset_1
0a19 e607       |    |		Load	0x3,0x7
0a1a 01d6       |    |		Execute	Vector,Field_Write
0a1b 3ffb       |?   |		Loop_Increasing	0xa17
0a1c 480f       |H   |		Short_Literal	0xf
0a1d 480b       |H   |		Short_Literal	0xb
0a1e 4800       |H   |		Short_Literal	0x0
0a1f 00d9       |    |		Load_Top	At_Offset_1
0a20 e607       |    |		Load	0x3,0x7
0a21 01d6       |    |		Execute	Vector,Field_Write
0a22 3ffb       |?   |		Loop_Increasing	0xa1e
0a23 e04c       | L  |		Load	0x0,0x4c
0a24 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0a25 0119       |    |		Execute	Any,Check_In_Formal_Type
0a26 00d9       |    |		Load_Top	At_Offset_1
0a27 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0a28 e5ff       |    |		Load	0x2,-0x1
0a29 e04d       | M  |		Load	0x0,0x4d
0a2a a04e       | N  |		Store_Unchecked	0x0,0x4e
0a2b e04f       | O  |		Load	0x0,0x4f
0a2c e050       | P  |		Load	0x0,0x50
0a2d a051       | Q  |		Store_Unchecked	0x0,0x51
0a2e 8044       | D  |		Call	0x0,0x44
0a2f 00d8       |    |		Load_Top	At_Offset_0
0a30 0aff       |    |		Execute_Immediate	Plus,-0x1
0a31 e5fe       |    |		Load	0x2,-0x2
0a32 01d5       |    |		Execute	Vector,Field_Reference
0a33 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0a34 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0a35 e5ff       |    |		Load	0x2,-0x1
0a36 e020       |    |		Load	0x0,0x20
0a37 a021       | !  |		Store_Unchecked	0x0,0x21
0a38 e022       | "  |		Load	0x0,0x22
0a39 e023       | #  |		Load	0x0,0x23
0a3a a024       | $  |		Store_Unchecked	0x0,0x24
0a3b 8025       | %  |		Call	0x0,0x25
0a3c 4801       |H   |		Short_Literal	0x1
0a3d e5ff       |    |		Load	0x2,-0x1
0a3e e02c       | ,  |		Load	0x0,0x2c
0a3f a02d       | -  |		Store_Unchecked	0x0,0x2d
0a40 e02e       | .  |		Load	0x0,0x2e
0a41 e02f       | /  |		Load	0x0,0x2f
0a42 a030       | 0  |		Store_Unchecked	0x0,0x30
0a43 8025       | %  |		Call	0x0,0x25
0a44 00c8       |    |		Action	Pop_Auxiliary_Range
0a45 3fad       |?   |		Loop_Increasing	0x9f3
0a46 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a47			TRAP_09e8:
0a47 0007       |    |		Action	Break_Optional
0a48 e5ff       |    |		Load	0x2,-0x1
0a49 800b       |    |		Call	0x0,0xb
0a4a 00d8       |    |		Load_Top	At_Offset_0
0a4b 0101       |    |		Execute	Exception,Reraise
0a4c 0000 0000  |    |		.BLANK	0000[0x4]
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a53       | S  |		.CONST	0x0a53								; Address of begin
0a51 0a8c       |    |		.CONST	0x0a8c								; Address of exception handler
0a52 0001       |    |		.CONST	0x0001								; Number of locals
0a53			BODY_0a50:
0a53			INIT_0a50:
0a53 4804       |H   |		Short_Literal	0x4
0a54 e03d       | =  |		Load	0x0,0x3d
0a55 0322       | "  |		Declare_Variable	Record
0a56 4802       |H   |		Short_Literal	0x2
0a57 00d9       |    |		Load_Top	At_Offset_1
0a58 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0a59 e03d       | =  |		Load	0x0,0x3d
0a5a 012c       | ,  |		Execute	Any,Size
0a5b 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0a5c 0a01       |    |		Execute_Immediate	Plus,0x1
0a5d 00d9       |    |		Load_Top	At_Offset_1
0a5e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0a5f 4800       |H   |		Short_Literal	0x0
0a60 00d9       |    |		Load_Top	At_Offset_1
0a61 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a62 e5fe       |    |		Load	0x2,-0x2
0a63 00d9       |    |		Load_Top	At_Offset_1
0a64 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0a65 e03d       | =  |		Load	0x0,0x3d
0a66 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0a67 0337       | 7  |		Declare_Variable	Array
0a68 4801       |H   |		Short_Literal	0x1
0a69 481e       |H   |		Short_Literal	0x1e
0a6a 00da       |    |		Load_Top	At_Offset_2
0a6b 01d6       |    |		Execute	Vector,Field_Write
0a6c 481d       |H   |		Short_Literal	0x1d
0a6d 4800       |H   |		Short_Literal	0x0
0a6e 4800       |H   |		Short_Literal	0x0
0a6f 00d9       |    |		Load_Top	At_Offset_1
0a70 e604       |    |		Load	0x3,0x4
0a71 01d6       |    |		Execute	Vector,Field_Write
0a72 3ffb       |?   |		Loop_Increasing	0xa6e
0a73 4800       |H   |		Short_Literal	0x0
0a74 481f       |H   |		Short_Literal	0x1f
0a75 00da       |    |		Load_Top	At_Offset_2
0a76 01d6       |    |		Execute	Vector,Field_Write
0a77 e03d       | =  |		Load	0x0,0x3d
0a78 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0a79 0119       |    |		Execute	Any,Check_In_Formal_Type
0a7a 00d9       |    |		Load_Top	At_Offset_1
0a7b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0a7c e5ff       |    |		Load	0x2,-0x1
0a7d e03f       | ?  |		Load	0x0,0x3f
0a7e a040       | @  |		Store_Unchecked	0x0,0x40
0a7f e041       | A  |		Load	0x0,0x41
0a80 e042       | B  |		Load	0x0,0x42
0a81 a043       | C  |		Store_Unchecked	0x0,0x43
0a82 8044       | D  |		Call	0x0,0x44
0a83 e5fd       |    |		Load	0x2,-0x3
0a84 e5ff       |    |		Load	0x2,-0x1
0a85 e026       | &  |		Load	0x0,0x26
0a86 a027       | '  |		Store_Unchecked	0x0,0x27
0a87 e028       | (  |		Load	0x0,0x28
0a88 e029       | )  |		Load	0x0,0x29
0a89 a02a       | *  |		Store_Unchecked	0x0,0x2a
0a8a 8025       | %  |		Call	0x0,0x25
0a8b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a8c			TRAP_0a50:
0a8c 0007       |    |		Action	Break_Optional
0a8d e5ff       |    |		Load	0x2,-0x1
0a8e 800b       |    |		Call	0x0,0xb
0a8f 00d8       |    |		Load_Top	At_Offset_0
0a90 0101       |    |		Execute	Exception,Reraise
0a91 0000 0000  |    |		.BLANK	0000[0x7]
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0a9b       |    |		.CONST	0x0a9b								; Address of begin
0a99 0ad2       |    |		.CONST	0x0ad2								; Address of exception handler
0a9a 0001       |    |		.CONST	0x0001								; Number of locals
0a9b			BODY_0a98:
0a9b			INIT_0a98:
0a9b 4804       |H   |		Short_Literal	0x4
0a9c e03d       | =  |		Load	0x0,0x3d
0a9d 0322       | "  |		Declare_Variable	Record
0a9e 4802       |H   |		Short_Literal	0x2
0a9f 00d9       |    |		Load_Top	At_Offset_1
0aa0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0aa1 e03d       | =  |		Load	0x0,0x3d
0aa2 012c       | ,  |		Execute	Any,Size
0aa3 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0aa4 0a01       |    |		Execute_Immediate	Plus,0x1
0aa5 00d9       |    |		Load_Top	At_Offset_1
0aa6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0aa7 4800       |H   |		Short_Literal	0x0
0aa8 00d9       |    |		Load_Top	At_Offset_1
0aa9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0aaa e5fe       |    |		Load	0x2,-0x2
0aab 00d9       |    |		Load_Top	At_Offset_1
0aac 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0aad e03d       | =  |		Load	0x0,0x3d
0aae 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0aaf 0337       | 7  |		Declare_Variable	Array
0ab0 4801       |H   |		Short_Literal	0x1
0ab1 481f       |H   |		Short_Literal	0x1f
0ab2 00da       |    |		Load_Top	At_Offset_2
0ab3 01d6       |    |		Execute	Vector,Field_Write
0ab4 481e       |H   |		Short_Literal	0x1e
0ab5 4800       |H   |		Short_Literal	0x0
0ab6 4800       |H   |		Short_Literal	0x0
0ab7 00d9       |    |		Load_Top	At_Offset_1
0ab8 e604       |    |		Load	0x3,0x4
0ab9 01d6       |    |		Execute	Vector,Field_Write
0aba 3ffb       |?   |		Loop_Increasing	0xab6
0abb e03d       | =  |		Load	0x0,0x3d
0abc 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0abd 0119       |    |		Execute	Any,Check_In_Formal_Type
0abe 00d9       |    |		Load_Top	At_Offset_1
0abf 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0ac0 e5ff       |    |		Load	0x2,-0x1
0ac1 e03f       | ?  |		Load	0x0,0x3f
0ac2 a040       | @  |		Store_Unchecked	0x0,0x40
0ac3 e041       | A  |		Load	0x0,0x41
0ac4 e042       | B  |		Load	0x0,0x42
0ac5 a043       | C  |		Store_Unchecked	0x0,0x43
0ac6 8044       | D  |		Call	0x0,0x44
0ac7 e5fd       |    |		Load	0x2,-0x3
0ac8 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0ac9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0aca e5ff       |    |		Load	0x2,-0x1
0acb e020       |    |		Load	0x0,0x20
0acc a021       | !  |		Store_Unchecked	0x0,0x21
0acd e022       | "  |		Load	0x0,0x22
0ace e023       | #  |		Load	0x0,0x23
0acf a024       | $  |		Store_Unchecked	0x0,0x24
0ad0 8025       | %  |		Call	0x0,0x25
0ad1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ad2			TRAP_0a98:
0ad2 0007       |    |		Action	Break_Optional
0ad3 e5ff       |    |		Load	0x2,-0x1
0ad4 800b       |    |		Call	0x0,0xb
0ad5 00d8       |    |		Load_Top	At_Offset_0
0ad6 0101       |    |		Execute	Exception,Reraise
0ad7 0000       |    |		.XXX[0x1]
0ad8 ; --------------------------------------------------------------------------------------
0ad8 ; SUBPROGRAM
0ad8 ; --------------------------------------------------------------------------------------
0ad8 0adb       |    |		.CONST	0x0adb								; Address of begin
0ad9 0b17       |    |		.CONST	0x0b17								; Address of exception handler
0ada 0001       |    |		.CONST	0x0001								; Number of locals
0adb			BODY_0ad8:
0adb			INIT_0ad8:
0adb 4804       |H   |		Short_Literal	0x4
0adc e03d       | =  |		Load	0x0,0x3d
0add 0322       | "  |		Declare_Variable	Record
0ade 4802       |H   |		Short_Literal	0x2
0adf 00d9       |    |		Load_Top	At_Offset_1
0ae0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0ae1 e03d       | =  |		Load	0x0,0x3d
0ae2 012c       | ,  |		Execute	Any,Size
0ae3 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0ae4 0a01       |    |		Execute_Immediate	Plus,0x1
0ae5 00d9       |    |		Load_Top	At_Offset_1
0ae6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0ae7 4800       |H   |		Short_Literal	0x0
0ae8 00d9       |    |		Load_Top	At_Offset_1
0ae9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0aea e5fe       |    |		Load	0x2,-0x2
0aeb 00d9       |    |		Load_Top	At_Offset_1
0aec 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0aed e03d       | =  |		Load	0x0,0x3d
0aee 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0aef 0337       | 7  |		Declare_Variable	Array
0af0 4801       |H   |		Short_Literal	0x1
0af1 481c       |H   |		Short_Literal	0x1c
0af2 00da       |    |		Load_Top	At_Offset_2
0af3 01d6       |    |		Execute	Vector,Field_Write
0af4 481b       |H   |		Short_Literal	0x1b
0af5 4800       |H   |		Short_Literal	0x0
0af6 4800       |H   |		Short_Literal	0x0
0af7 00d9       |    |		Load_Top	At_Offset_1
0af8 e604       |    |		Load	0x3,0x4
0af9 01d6       |    |		Execute	Vector,Field_Write
0afa 3ffb       |?   |		Loop_Increasing	0xaf6
0afb 481f       |H   |		Short_Literal	0x1f
0afc 481d       |H   |		Short_Literal	0x1d
0afd 4800       |H   |		Short_Literal	0x0
0afe 00d9       |    |		Load_Top	At_Offset_1
0aff e604       |    |		Load	0x3,0x4
0b00 01d6       |    |		Execute	Vector,Field_Write
0b01 3ffb       |?   |		Loop_Increasing	0xafd
0b02 e03d       | =  |		Load	0x0,0x3d
0b03 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0b04 0119       |    |		Execute	Any,Check_In_Formal_Type
0b05 00d9       |    |		Load_Top	At_Offset_1
0b06 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0b07 e5ff       |    |		Load	0x2,-0x1
0b08 e03f       | ?  |		Load	0x0,0x3f
0b09 a040       | @  |		Store_Unchecked	0x0,0x40
0b0a e041       | A  |		Load	0x0,0x41
0b0b e042       | B  |		Load	0x0,0x42
0b0c a043       | C  |		Store_Unchecked	0x0,0x43
0b0d 8044       | D  |		Call	0x0,0x44
0b0e e5fd       |    |		Load	0x2,-0x3
0b0f e5ff       |    |		Load	0x2,-0x1
0b10 e026       | &  |		Load	0x0,0x26
0b11 a027       | '  |		Store_Unchecked	0x0,0x27
0b12 e028       | (  |		Load	0x0,0x28
0b13 e029       | )  |		Load	0x0,0x29
0b14 a02a       | *  |		Store_Unchecked	0x0,0x2a
0b15 8025       | %  |		Call	0x0,0x25
0b16 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b17			TRAP_0ad8:
0b17 0007       |    |		Action	Break_Optional
0b18 e5ff       |    |		Load	0x2,-0x1
0b19 800b       |    |		Call	0x0,0xb
0b1a 00d8       |    |		Load_Top	At_Offset_0
0b1b 0101       |    |		Execute	Exception,Reraise
0b1c 0000 0000  |    |		.BLANK	0000[0x4]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b23       | #  |		.CONST	0x0b23								; Address of begin
0b21 0b62       | b  |		.CONST	0x0b62								; Address of exception handler
0b22 0001       |    |		.CONST	0x0001								; Number of locals
0b23			BODY_0b20:
0b23			INIT_0b20:
0b23 4804       |H   |		Short_Literal	0x4
0b24 e03d       | =  |		Load	0x0,0x3d
0b25 0322       | "  |		Declare_Variable	Record
0b26 4802       |H   |		Short_Literal	0x2
0b27 00d9       |    |		Load_Top	At_Offset_1
0b28 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b29 e03d       | =  |		Load	0x0,0x3d
0b2a 012c       | ,  |		Execute	Any,Size
0b2b 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0b2c 0a01       |    |		Execute_Immediate	Plus,0x1
0b2d 00d9       |    |		Load_Top	At_Offset_1
0b2e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0b2f 4800       |H   |		Short_Literal	0x0
0b30 00d9       |    |		Load_Top	At_Offset_1
0b31 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0b32 e5fe       |    |		Load	0x2,-0x2
0b33 00d9       |    |		Load_Top	At_Offset_1
0b34 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0b35 e03d       | =  |		Load	0x0,0x3d
0b36 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0b37 0337       | 7  |		Declare_Variable	Array
0b38 4801       |H   |		Short_Literal	0x1
0b39 481d       |H   |		Short_Literal	0x1d
0b3a 00da       |    |		Load_Top	At_Offset_2
0b3b 01d6       |    |		Execute	Vector,Field_Write
0b3c 481c       |H   |		Short_Literal	0x1c
0b3d 4800       |H   |		Short_Literal	0x0
0b3e 4800       |H   |		Short_Literal	0x0
0b3f 00d9       |    |		Load_Top	At_Offset_1
0b40 e604       |    |		Load	0x3,0x4
0b41 01d6       |    |		Execute	Vector,Field_Write
0b42 3ffb       |?   |		Loop_Increasing	0xb3e
0b43 4800       |H   |		Short_Literal	0x0
0b44 481e       |H   |		Short_Literal	0x1e
0b45 00da       |    |		Load_Top	At_Offset_2
0b46 01d6       |    |		Execute	Vector,Field_Write
0b47 4800       |H   |		Short_Literal	0x0
0b48 481f       |H   |		Short_Literal	0x1f
0b49 00da       |    |		Load_Top	At_Offset_2
0b4a 01d6       |    |		Execute	Vector,Field_Write
0b4b e03d       | =  |		Load	0x0,0x3d
0b4c 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0b4d 0119       |    |		Execute	Any,Check_In_Formal_Type
0b4e 00d9       |    |		Load_Top	At_Offset_1
0b4f 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0b50 e5ff       |    |		Load	0x2,-0x1
0b51 e03f       | ?  |		Load	0x0,0x3f
0b52 a040       | @  |		Store_Unchecked	0x0,0x40
0b53 e041       | A  |		Load	0x0,0x41
0b54 e042       | B  |		Load	0x0,0x42
0b55 a043       | C  |		Store_Unchecked	0x0,0x43
0b56 8044       | D  |		Call	0x0,0x44
0b57 e5fd       |    |		Load	0x2,-0x3
0b58 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0b59 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0b5a e5ff       |    |		Load	0x2,-0x1
0b5b e020       |    |		Load	0x0,0x20
0b5c a021       | !  |		Store_Unchecked	0x0,0x21
0b5d e022       | "  |		Load	0x0,0x22
0b5e e023       | #  |		Load	0x0,0x23
0b5f a024       | $  |		Store_Unchecked	0x0,0x24
0b60 8025       | %  |		Call	0x0,0x25
0b61 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b62			TRAP_0b20:
0b62 0007       |    |		Action	Break_Optional
0b63 e5ff       |    |		Load	0x2,-0x1
0b64 800b       |    |		Call	0x0,0xb
0b65 00d8       |    |		Load_Top	At_Offset_0
0b66 0101       |    |		Execute	Exception,Reraise
0b67 0000       |    |		.XXX[0x1]
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; --------------------------------------------------------------------------------------
0b68 0b6b       | k  |		.CONST	0x0b6b								; Address of begin
0b69 0baa       |    |		.CONST	0x0baa								; Address of exception handler
0b6a 0001       |    |		.CONST	0x0001								; Number of locals
0b6b			BODY_0b68:
0b6b			INIT_0b68:
0b6b 4804       |H   |		Short_Literal	0x4
0b6c e04c       | L  |		Load	0x0,0x4c
0b6d 0322       | "  |		Declare_Variable	Record
0b6e 480c       |H   |		Short_Literal	0xc
0b6f 00d9       |    |		Load_Top	At_Offset_1
0b70 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b71 e04c       | L  |		Load	0x0,0x4c
0b72 012c       | ,  |		Execute	Any,Size
0b73 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0b74 0a01       |    |		Execute_Immediate	Plus,0x1
0b75 00d9       |    |		Load_Top	At_Offset_1
0b76 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0b77 4800       |H   |		Short_Literal	0x0
0b78 00d9       |    |		Load_Top	At_Offset_1
0b79 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0b7a 4800       |H   |		Short_Literal	0x0
0b7b 00d9       |    |		Load_Top	At_Offset_1
0b7c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0b7d e5fe       |    |		Load	0x2,-0x2
0b7e 00d9       |    |		Load_Top	At_Offset_1
0b7f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0b80 e04c       | L  |		Load	0x0,0x4c
0b81 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0b82 0337       | 7  |		Declare_Variable	Array
0b83 4801       |H   |		Short_Literal	0x1
0b84 480b       |H   |		Short_Literal	0xb
0b85 00da       |    |		Load_Top	At_Offset_2
0b86 01d6       |    |		Execute	Vector,Field_Write
0b87 480a       |H   |		Short_Literal	0xa
0b88 4800       |H   |		Short_Literal	0x0
0b89 4800       |H   |		Short_Literal	0x0
0b8a 00d9       |    |		Load_Top	At_Offset_1
0b8b e604       |    |		Load	0x3,0x4
0b8c 01d6       |    |		Execute	Vector,Field_Write
0b8d 3ffb       |?   |		Loop_Increasing	0xb89
0b8e 480f       |H   |		Short_Literal	0xf
0b8f 480c       |H   |		Short_Literal	0xc
0b90 4800       |H   |		Short_Literal	0x0
0b91 00d9       |    |		Load_Top	At_Offset_1
0b92 e604       |    |		Load	0x3,0x4
0b93 01d6       |    |		Execute	Vector,Field_Write
0b94 3ffb       |?   |		Loop_Increasing	0xb90
0b95 e04c       | L  |		Load	0x0,0x4c
0b96 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0b97 0119       |    |		Execute	Any,Check_In_Formal_Type
0b98 00d9       |    |		Load_Top	At_Offset_1
0b99 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0b9a e5ff       |    |		Load	0x2,-0x1
0b9b e04d       | M  |		Load	0x0,0x4d
0b9c a04e       | N  |		Store_Unchecked	0x0,0x4e
0b9d e04f       | O  |		Load	0x0,0x4f
0b9e e050       | P  |		Load	0x0,0x50
0b9f a051       | Q  |		Store_Unchecked	0x0,0x51
0ba0 8044       | D  |		Call	0x0,0x44
0ba1 e5fd       |    |		Load	0x2,-0x3
0ba2 e5ff       |    |		Load	0x2,-0x1
0ba3 e02c       | ,  |		Load	0x0,0x2c
0ba4 a02d       | -  |		Store_Unchecked	0x0,0x2d
0ba5 e02e       | .  |		Load	0x0,0x2e
0ba6 e02f       | /  |		Load	0x0,0x2f
0ba7 a030       | 0  |		Store_Unchecked	0x0,0x30
0ba8 8025       | %  |		Call	0x0,0x25
0ba9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0baa			TRAP_0b68:
0baa 0007       |    |		Action	Break_Optional
0bab e5ff       |    |		Load	0x2,-0x1
0bac 800b       |    |		Call	0x0,0xb
0bad 00d8       |    |		Load_Top	At_Offset_0
0bae 0101       |    |		Execute	Exception,Reraise
0baf 0000       |    |		.XXX[0x1]
0bb0 ; --------------------------------------------------------------------------------------
0bb0 ; SUBPROGRAM
0bb0 ; --------------------------------------------------------------------------------------
0bb0 0bb3       |    |		.CONST	0x0bb3								; Address of begin
0bb1 0bcb       |    |		.CONST	0x0bcb								; Address of exception handler
0bb2 0001       |    |		.CONST	0x0001								; Number of locals
0bb3			BODY_0bb0:
0bb3			INIT_0bb0:
0bb3 e079       | y  |		Load	0x0,0x79
0bb4 0322       | "  |		Declare_Variable	Record
0bb5 480b       |H   |		Short_Literal	0xb
0bb6 00d9       |    |		Load_Top	At_Offset_1
0bb7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0bb8 e079       | y  |		Load	0x0,0x79
0bb9 012c       | ,  |		Execute	Any,Size
0bba 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0bbb 00d9       |    |		Load_Top	At_Offset_1
0bbc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0bbd 4800       |H   |		Short_Literal	0x0
0bbe 00d9       |    |		Load_Top	At_Offset_1
0bbf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0bc0 e5fe       |    |		Load	0x2,-0x2
0bc1 00d9       |    |		Load_Top	At_Offset_1
0bc2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0bc3 e5ff       |    |		Load	0x2,-0x1
0bc4 e07a       | z  |		Load	0x0,0x7a
0bc5 a07b       | {  |		Store_Unchecked	0x0,0x7b
0bc6 e07c       | |  |		Load	0x0,0x7c
0bc7 e07d       | }  |		Load	0x0,0x7d
0bc8 a07e       | ~  |		Store_Unchecked	0x0,0x7e
0bc9 804b       | K  |		Call	0x0,0x4b
0bca 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0bcb			TRAP_0bb0:
0bcb 0007       |    |		Action	Break_Optional
0bcc e5ff       |    |		Load	0x2,-0x1
0bcd 800b       |    |		Call	0x0,0xb
0bce 00d8       |    |		Load_Top	At_Offset_0
0bcf 0101       |    |		Execute	Exception,Reraise
0bd0 ; --------------------------------------------------------------------------------------
0bd0 ; SUBPROGRAM
0bd0 ; --------------------------------------------------------------------------------------
0bd0 0bd3       |    |		.CONST	0x0bd3								; Address of begin
0bd1 0beb       |    |		.CONST	0x0beb								; Address of exception handler
0bd2 0001       |    |		.CONST	0x0001								; Number of locals
0bd3			BODY_0bd0:
0bd3			INIT_0bd0:
0bd3 e07f       |    |		Load	0x0,0x7f
0bd4 0322       | "  |		Declare_Variable	Record
0bd5 480a       |H   |		Short_Literal	0xa
0bd6 00d9       |    |		Load_Top	At_Offset_1
0bd7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0bd8 e07f       |    |		Load	0x0,0x7f
0bd9 012c       | ,  |		Execute	Any,Size
0bda 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0bdb 00d9       |    |		Load_Top	At_Offset_1
0bdc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0bdd 4800       |H   |		Short_Literal	0x0
0bde 00d9       |    |		Load_Top	At_Offset_1
0bdf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0be0 e5fe       |    |		Load	0x2,-0x2
0be1 00d9       |    |		Load_Top	At_Offset_1
0be2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0be3 e5ff       |    |		Load	0x2,-0x1
0be4 e080       |    |		Load	0x0,0x80
0be5 a081       |    |		Store_Unchecked	0x0,0x81
0be6 e082       |    |		Load	0x0,0x82
0be7 e083       |    |		Load	0x0,0x83
0be8 a084       |    |		Store_Unchecked	0x0,0x84
0be9 804b       | K  |		Call	0x0,0x4b
0bea 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0beb			TRAP_0bd0:
0beb 0007       |    |		Action	Break_Optional
0bec e5ff       |    |		Load	0x2,-0x1
0bed 800b       |    |		Call	0x0,0xb
0bee 00d8       |    |		Load_Top	At_Offset_0
0bef 0101       |    |		Execute	Exception,Reraise
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bf9       |    |		.CONST	0x0bf9								; Address of begin
0bf1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bf2 0003       |    |		.CONST	0x0003								; Number of locals
0bf3			INIT_0bf0:
0bf3 e007       |    |		Load	0x0,0x7
0bf4 0007       |    |		Action	Break_Optional
0bf5 e5fc       |    |		Load	0x2,-0x4
0bf6 e00d       |    |		Load	0x0,0xd
0bf7 01d3       |    |		Execute	Vector,And
0bf8 0007       |    |		Action	Break_Optional
0bf9			BODY_0bf0:
0bf9 00d8       |    |		Load_Top	At_Offset_0
0bfa 822c       | ,  |		Call	0x1,0x2c
0bfb 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0bfc 00d9       |    |		Load_Top	At_Offset_1
0bfd 0902       |    |		Execute_Immediate	Binary_Scale,0x2
0bfe 00d8       |    |		Load_Top	At_Offset_0
0bff e007       |    |		Load	0x0,0x7
0c00 0260       | `  |		Execute	Discrete,In_Type
0c01 7001       |p   |		Jump_Nonzero	0xc03
0c02 0801       |    |		Execute_Immediate	Raise,0x1
0c03 e04c       | L  |		Load	0x0,0x4c
0c04 0322       | "  |		Declare_Variable	Record
0c05 480c       |H   |		Short_Literal	0xc
0c06 00d9       |    |		Load_Top	At_Offset_1
0c07 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0c08 e04c       | L  |		Load	0x0,0x4c
0c09 012c       | ,  |		Execute	Any,Size
0c0a 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0c0b e802       |    |		Load	0x4,0x2
0c0c 00d8       |    |		Load_Top	At_Offset_0
0c0d e03e       | >  |		Load	0x0,0x3e
0c0e 0260       | `  |		Execute	Discrete,In_Type
0c0f 7001       |p   |		Jump_Nonzero	0xc11
0c10 0801       |    |		Execute_Immediate	Raise,0x1
0c11 0273       | s  |		Execute	Discrete,Plus
0c12 00d9       |    |		Load_Top	At_Offset_1
0c13 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0c14 4800       |H   |		Short_Literal	0x0
0c15 00d9       |    |		Load_Top	At_Offset_1
0c16 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0c17 4800       |H   |		Short_Literal	0x0
0c18 00d9       |    |		Load_Top	At_Offset_1
0c19 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0c1a e5fe       |    |		Load	0x2,-0x2
0c1b 00d9       |    |		Load_Top	At_Offset_1
0c1c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0c1d 00da       |    |		Load_Top	At_Offset_2
0c1e e04c       | L  |		Load	0x0,0x4c
0c1f 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0c20 0119       |    |		Execute	Any,Check_In_Formal_Type
0c21 00d9       |    |		Load_Top	At_Offset_1
0c22 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0c23 e5ff       |    |		Load	0x2,-0x1
0c24 e04d       | M  |		Load	0x0,0x4d
0c25 a04e       | N  |		Store_Unchecked	0x0,0x4e
0c26 e04f       | O  |		Load	0x0,0x4f
0c27 e050       | P  |		Load	0x0,0x50
0c28 a051       | Q  |		Store_Unchecked	0x0,0x51
0c29 8044       | D  |		Call	0x0,0x44
0c2a e5fb       |    |		Load	0x2,-0x5
0c2b 00d9       |    |		Load_Top	At_Offset_1
0c2c e5ff       |    |		Load	0x2,-0x1
0c2d 822d       | -  |		Call	0x1,0x2d
0c2e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c2f 0000       |    |		.XXX[0x1]
0c30 ; --------------------------------------------------------------------------------------
0c30 ; SUBPROGRAM
0c30 ; --------------------------------------------------------------------------------------
0c30 0c39       | 9  |		.CONST	0x0c39								; Address of begin
0c31 0004       |    |		.CONST	0x0004								; Address of exception handler
0c32 0003       |    |		.CONST	0x0003								; Number of locals
0c33			INIT_0c30:
0c33 e085       |    |		Load	0x0,0x85
0c34 02ff       |    |		Declare_Variable	Variant_Record
0c35 00d8       |    |		Load_Top	At_Offset_0
0c36 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0c37 e016       |    |		Load	0x0,0x16
0c38 0007       |    |		Action	Break_Optional
0c39			BODY_0c30:
0c39 e086       |    |		Load	0x0,0x86
0c3a 0322       | "  |		Declare_Variable	Record
0c3b 482b       |H+  |		Short_Literal	0x2b
0c3c 00d9       |    |		Load_Top	At_Offset_1
0c3d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0c3e e086       |    |		Load	0x0,0x86
0c3f 012c       | ,  |		Execute	Any,Size
0c40 09fb       |    |		Execute_Immediate	Binary_Scale,-0x5
0c41 00d9       |    |		Load_Top	At_Offset_1
0c42 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0c43 4800       |H   |		Short_Literal	0x0
0c44 00d9       |    |		Load_Top	At_Offset_1
0c45 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0c46 e5ff       |    |		Load	0x2,-0x1
0c47 e087       |    |		Load	0x0,0x87
0c48 a088       |    |		Store_Unchecked	0x0,0x88
0c49 e089       |    |		Load	0x0,0x89
0c4a e08a       |    |		Load	0x0,0x8a
0c4b a08b       |    |		Store_Unchecked	0x0,0x8b
0c4c 804b       | K  |		Call	0x0,0x4b
0c4d e016       |    |		Load	0x0,0x16
0c4e 00da       |    |		Load_Top	At_Offset_2
0c4f 4801       |H   |		Short_Literal	0x1
0c50 4800       |H   |		Short_Literal	0x0
0c51 482b       |H+  |		Short_Literal	0x2b
0c52 e5ff       |    |		Load	0x2,-0x1
0c53 e08c       |    |		Load	0x0,0x8c
0c54 a08d       |    |		Store_Unchecked	0x0,0x8d
0c55 a08e       |    |		Store_Unchecked	0x0,0x8e
0c56 808f       |    |		Call	0x0,0x8f
0c57 00d1       |    |		Pop_Control	Pop_Count_1
0c58 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0c59 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0c5a 0000 0000  |    |		.BLANK	0000[0x6]
0c60 ; --------------------------------------------------------------------------------------
0c60 ; Debug Table
0c60 ; --------------------------------------------------------------------------------------
0c60 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x68cd,0x0000,0x0001,0x003f
0c66 000b 0d62  |   b|		.DBG4T	0x000b,0x0d62,0x8000,0x0000
0c6a 0046 0d81  | F  |		.DBG4T	0x0046,0x0d81,0x8000,0x0000
0c6e 00a3 0da7  |    |		.DBG4T	0x00a3,0x0da7,0x0001,0x0000
0c72 00c3 0db2  |    |		.DBG4T	0x00c3,0x0db2,0x0001,0x0000
0c76 00d3 0db8  |    |		.DBG4T	0x00d3,0x0db8,0x0001,0x0000
0c7a 00db 0dbb  |    |		.DBG4T	0x00db,0x0dbb,0x0001,0x0000
0c7e 00e3 0dbe  |    |		.DBG4T	0x00e3,0x0dbe,0x0001,0x0000
0c82 0103 0dc9  |    |		.DBG4T	0x0103,0x0dc9,0x0002,0x0000
0c86 011b 0dd1  |    |		.DBG4T	0x011b,0x0dd1,0x0002,0x0000
0c8a 0143 0ddc  | C  |		.DBG4T	0x0143,0x0ddc,0x0001,0x0000
0c8e 0153 0de2  | S  |		.DBG4T	0x0153,0x0de2,0x0001,0x0000
0c92 0163 0de8  | c  |		.DBG4T	0x0163,0x0de8,0x0001,0x0000
0c96 01fb 0e00  |    |		.DBG4T	0x01fb,0x0e00,0x0001,0x0000
0c9a 020b 0e06  |    |		.DBG4T	0x020b,0x0e06,0x0001,0x0000
0c9e 021b 0e0c  |    |		.DBG4T	0x021b,0x0e0c,0x0001,0x0000
0ca2 022b 0e12  | +  |		.DBG4T	0x022b,0x0e12,0x0001,0x0000
0ca6 023b 0e18  | ;  |		.DBG4T	0x023b,0x0e18,0x0001,0x0000
0caa 024b 0e1e  | K  |		.DBG4T	0x024b,0x0e1e,0x0001,0x0000
0cae 025b 0e24  | [ $|		.DBG4T	0x025b,0x0e24,0x0001,0x0000
0cb2 026b 0e2a  | k *|		.DBG4T	0x026b,0x0e2a,0x0001,0x0000
0cb6 030b 0e44  |   D|		.DBG4T	0x030b,0x0e44,0x0001,0x0000
0cba 031b 0e4a  |   J|		.DBG4T	0x031b,0x0e4a,0x0001,0x0000
0cbe 032b 0e50  | + P|		.DBG4T	0x032b,0x0e50,0x0001,0x0000
0cc2 033b 0e56  | ; V|		.DBG4T	0x033b,0x0e56,0x0001,0x0000
0cc6 034b 0e5c  | K \|		.DBG4T	0x034b,0x0e5c,0x0001,0x0000
0cca 035b 0e62  | [ b|		.DBG4T	0x035b,0x0e62,0x0001,0x0000
0cce 036b 0e68  | k h|		.DBG4T	0x036b,0x0e68,0x0001,0x0000
0cd2 037b 0e6e  | { n|		.DBG4T	0x037b,0x0e6e,0x0001,0x0000
0cd6 038b 0e74  |   t|		.DBG4T	0x038b,0x0e74,0x0001,0x0000
0cda 039b 0e7a  |   z|		.DBG4T	0x039b,0x0e7a,0x0001,0x0000
0cde 03ab 0e80  |    |		.DBG4T	0x03ab,0x0e80,0x0001,0x0000
0ce2 03eb 0e89  |    |		.DBG4T	0x03eb,0x0e89,0x0002,0x0000
0ce6 0403 0e90  |    |		.DBG4T	0x0403,0x0e90,0x0001,0x0000
0cea 04eb 0eb0  |    |		.DBG4T	0x04eb,0x0eb0,0x0002,0x0000
0cee 0503 0eb7  |    |		.DBG4T	0x0503,0x0eb7,0x0001,0x0000
0cf2 056b 0ec7  | k  |		.DBG4T	0x056b,0x0ec7,0x0001,0x0000
0cf6 058b 0ecd  |    |		.DBG4T	0x058b,0x0ecd,0x0004,0x0000
0cfa 05c3 0ed3  |    |		.DBG4T	0x05c3,0x0ed3,0x0004,0x0000
0cfe 05e3 0ed8  |    |		.DBG4T	0x05e3,0x0ed8,0x0004,0x0000
0d02 0623 0ede  | #  |		.DBG4T	0x0623,0x0ede,0x0004,0x0000
0d06 0693 0ee5  |    |		.DBG4T	0x0693,0x0ee5,0x0004,0x0000
0d0a 06f3 0eee  |    |		.DBG4T	0x06f3,0x0eee,0x0004,0x0000
0d0e 0713 0ef3  |    |		.DBG4T	0x0713,0x0ef3,0x0004,0x0000
0d12 0733 0ef8  | 3  |		.DBG4T	0x0733,0x0ef8,0x0004,0x0000
0d16 077b 0efe  | {  |		.DBG4T	0x077b,0x0efe,0x0004,0x0000
0d1a 07db 0f05  |    |		.DBG4T	0x07db,0x0f05,0x0004,0x0000
0d1e 07fb 0f0a  |    |		.DBG4T	0x07fb,0x0f0a,0x0004,0x0000
0d22 081b 0f0f  |    |		.DBG4T	0x081b,0x0f0f,0x0004,0x0000
0d26 0883 0f18  |    |		.DBG4T	0x0883,0x0f18,0x0004,0x0000
0d2a 08d3 0f1f  |    |		.DBG4T	0x08d3,0x0f1f,0x0004,0x0000
0d2e 091b 0f25  |   %|		.DBG4T	0x091b,0x0f25,0x0004,0x0000
0d32 0963 0f36  | c 6|		.DBG4T	0x0963,0x0f36,0x0004,0x0000
0d36 0993 0f3b  |   ;|		.DBG4T	0x0993,0x0f3b,0x0004,0x0000
0d3a 09eb 0f42  |   B|		.DBG4T	0x09eb,0x0f42,0x0004,0x0000
0d3e 0a53 0f4a  | S J|		.DBG4T	0x0a53,0x0f4a,0x0004,0x0000
0d42 0a9b 0f50  |   P|		.DBG4T	0x0a9b,0x0f50,0x0004,0x0000
0d46 0adb 0f56  |   V|		.DBG4T	0x0adb,0x0f56,0x0004,0x0000
0d4a 0b23 0f5c  | # \|		.DBG4T	0x0b23,0x0f5c,0x0004,0x0000
0d4e 0b6b 0f62  | k b|		.DBG4T	0x0b6b,0x0f62,0x0004,0x0000
0d52 0bb3 0f68  |   h|		.DBG4T	0x0bb3,0x0f68,0x0004,0x0000
0d56 0bd3 0f6d  |   m|		.DBG4T	0x0bd3,0x0f6d,0x0004,0x0000
0d5a 0bf3 0f72  |   r|		.DBG4T	0x0bf3,0x0f72,0x0004,0x0000
0d5e 0c33 0f79  | 3 y|		.DBG4T	0x0c33,0x0f79,0x0004,0x0000
0d62 ; --------------------------------------------------------------------------------------
0d62 ; Debug chain
0d62 ; --------------------------------------------------------------------------------------
0d62 001d 0000  |    |		.DBGLEN	0x001d,0x0000
0d64 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043
0d81 ; --------------------------------------------------------------------------------------
0d81 ; Debug chain
0d81 ; --------------------------------------------------------------------------------------
0d81 0023 0001  | #  |		.DBGLEN	0x0023,0x0001
0d83 0046 0048  | F H|		.DBGLNO	0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097
0da7 ; --------------------------------------------------------------------------------------
0da7 ; Debug chain
0da7 ; --------------------------------------------------------------------------------------
0da7 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0da9 00a3 00a5  |    |		.DBGLNO	0x00a3,0x00a5,0x00aa,0x00ae,0x00af,0x00b2,0x00b4,0x00b5,0x00b7
0db2 ; --------------------------------------------------------------------------------------
0db2 ; Debug chain
0db2 ; --------------------------------------------------------------------------------------
0db2 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0db4 00c5 00c7  |    |		.DBGLNO	0x00c5,0x00c7,0x00c8,0x00ca
0db8 ; --------------------------------------------------------------------------------------
0db8 ; Debug chain
0db8 ; --------------------------------------------------------------------------------------
0db8 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0dba 00d3       |    |		.DBGLNO	0x00d3
0dbb ; --------------------------------------------------------------------------------------
0dbb ; Debug chain
0dbb ; --------------------------------------------------------------------------------------
0dbb 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0dbd 00db       |    |		.DBGLNO	0x00db
0dbe ; --------------------------------------------------------------------------------------
0dbe ; Debug chain
0dbe ; --------------------------------------------------------------------------------------
0dbe 0002 0007  |    |		.DBGLEN	0x0002,0x0007
0dc0 00e3 00e5  |    |		.DBGLNO	0x00e3,0x00e5,0x00ea,0x00ee,0x00ef,0x00f2,0x00f4,0x00f5,0x00f7
0dc9 ; --------------------------------------------------------------------------------------
0dc9 ; Debug chain
0dc9 ; --------------------------------------------------------------------------------------
0dc9 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0dcb 0103 010d  |    |		.DBGLNO	0x0103,0x010d,0x010f,0x0110,0x0112,0x0114
0dd1 ; --------------------------------------------------------------------------------------
0dd1 ; Debug chain
0dd1 ; --------------------------------------------------------------------------------------
0dd1 0004 0005  |    |		.DBGLEN	0x0004,0x0005
0dd3 011b 0123  |   #|		.DBGLNO	0x011b,0x0123,0x0128,0x012c,0x0131,0x0133,0x0134,0x0136,0x0138
0ddc ; --------------------------------------------------------------------------------------
0ddc ; Debug chain
0ddc ; --------------------------------------------------------------------------------------
0ddc 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0dde 0145 0147  | E G|		.DBGLNO	0x0145,0x0147,0x0148,0x014a
0de2 ; --------------------------------------------------------------------------------------
0de2 ; Debug chain
0de2 ; --------------------------------------------------------------------------------------
0de2 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0de4 0155 0157  | U W|		.DBGLNO	0x0155,0x0157,0x0158,0x015a
0de8 ; --------------------------------------------------------------------------------------
0de8 ; Debug chain
0de8 ; --------------------------------------------------------------------------------------
0de8 0004 0012  |    |		.DBGLEN	0x0004,0x0012
0dea 0163 0167  | c g|		.DBGLNO	0x0163,0x0167,0x016e,0x0170,0x0172,0x0179,0x0183,0x0187,0x0189,0x018a,0x018c,0x0191,0x0193,0x0197,0x019e,0x01a2,0x01aa,0x01b2,0x01ba,0x01c2,0x01ca,0x01eb
0e00 ; --------------------------------------------------------------------------------------
0e00 ; Debug chain
0e00 ; --------------------------------------------------------------------------------------
0e00 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e02 01fd 01ff  |    |		.DBGLNO	0x01fd,0x01ff,0x0200,0x0202
0e06 ; --------------------------------------------------------------------------------------
0e06 ; Debug chain
0e06 ; --------------------------------------------------------------------------------------
0e06 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e08 020d 020f  |    |		.DBGLNO	0x020d,0x020f,0x0210,0x0212
0e0c ; --------------------------------------------------------------------------------------
0e0c ; Debug chain
0e0c ; --------------------------------------------------------------------------------------
0e0c 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e0e 021d 021f  |    |		.DBGLNO	0x021d,0x021f,0x0220,0x0222
0e12 ; --------------------------------------------------------------------------------------
0e12 ; Debug chain
0e12 ; --------------------------------------------------------------------------------------
0e12 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e14 022d 022f  | - /|		.DBGLNO	0x022d,0x022f,0x0230,0x0232
0e18 ; --------------------------------------------------------------------------------------
0e18 ; Debug chain
0e18 ; --------------------------------------------------------------------------------------
0e18 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e1a 023d 023f  | = ?|		.DBGLNO	0x023d,0x023f,0x0240,0x0242
0e1e ; --------------------------------------------------------------------------------------
0e1e ; Debug chain
0e1e ; --------------------------------------------------------------------------------------
0e1e 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e20 024d 024f  | M O|		.DBGLNO	0x024d,0x024f,0x0250,0x0252
0e24 ; --------------------------------------------------------------------------------------
0e24 ; Debug chain
0e24 ; --------------------------------------------------------------------------------------
0e24 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e26 025d 025f  | ] _|		.DBGLNO	0x025d,0x025f,0x0260,0x0262
0e2a ; --------------------------------------------------------------------------------------
0e2a ; Debug chain
0e2a ; --------------------------------------------------------------------------------------
0e2a 0004 0014  |    |		.DBGLEN	0x0004,0x0014
0e2c 026b 0293  | k  |		.DBGLNO	0x026b,0x0293,0x0297,0x029e,0x02a1,0x02a5,0x02aa,0x02ac,0x02ad,0x02af,0x02b0,0x02b2,0x02b4,0x02b5,0x02b9,0x02bd,0x02c3,0x02c8,0x02cd,0x02d2,0x02d7,0x02dc,0x02e1,0x02e6
0e44 ; --------------------------------------------------------------------------------------
0e44 ; Debug chain
0e44 ; --------------------------------------------------------------------------------------
0e44 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e46 030d 030f  |    |		.DBGLNO	0x030d,0x030f,0x0310,0x0312
0e4a ; --------------------------------------------------------------------------------------
0e4a ; Debug chain
0e4a ; --------------------------------------------------------------------------------------
0e4a 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e4c 031d 031f  |    |		.DBGLNO	0x031d,0x031f,0x0320,0x0322
0e50 ; --------------------------------------------------------------------------------------
0e50 ; Debug chain
0e50 ; --------------------------------------------------------------------------------------
0e50 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e52 032d 032f  | - /|		.DBGLNO	0x032d,0x032f,0x0330,0x0332
0e56 ; --------------------------------------------------------------------------------------
0e56 ; Debug chain
0e56 ; --------------------------------------------------------------------------------------
0e56 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e58 033d 033f  | = ?|		.DBGLNO	0x033d,0x033f,0x0340,0x0342
0e5c ; --------------------------------------------------------------------------------------
0e5c ; Debug chain
0e5c ; --------------------------------------------------------------------------------------
0e5c 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e5e 034d 034f  | M O|		.DBGLNO	0x034d,0x034f,0x0350,0x0352
0e62 ; --------------------------------------------------------------------------------------
0e62 ; Debug chain
0e62 ; --------------------------------------------------------------------------------------
0e62 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e64 035d 035f  | ] _|		.DBGLNO	0x035d,0x035f,0x0360,0x0362
0e68 ; --------------------------------------------------------------------------------------
0e68 ; Debug chain
0e68 ; --------------------------------------------------------------------------------------
0e68 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e6a 036d 036f  | m o|		.DBGLNO	0x036d,0x036f,0x0370,0x0372
0e6e ; --------------------------------------------------------------------------------------
0e6e ; Debug chain
0e6e ; --------------------------------------------------------------------------------------
0e6e 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e70 037d 037f  | }  |		.DBGLNO	0x037d,0x037f,0x0380,0x0382
0e74 ; --------------------------------------------------------------------------------------
0e74 ; Debug chain
0e74 ; --------------------------------------------------------------------------------------
0e74 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e76 038d 038f  |    |		.DBGLNO	0x038d,0x038f,0x0390,0x0392
0e7a ; --------------------------------------------------------------------------------------
0e7a ; Debug chain
0e7a ; --------------------------------------------------------------------------------------
0e7a 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0e7c 039d 039f  |    |		.DBGLNO	0x039d,0x039f,0x03a0,0x03a2
0e80 ; --------------------------------------------------------------------------------------
0e80 ; Debug chain
0e80 ; --------------------------------------------------------------------------------------
0e80 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0e82 03ab 03af  |    |		.DBGLNO	0x03ab,0x03af,0x03b6,0x03b9,0x03bd,0x03c1,0x03c5
0e89 ; --------------------------------------------------------------------------------------
0e89 ; Debug chain
0e89 ; --------------------------------------------------------------------------------------
0e89 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0e8b 03eb 03ee  |    |		.DBGLNO	0x03eb,0x03ee,0x03f1,0x03f5,0x03fb
0e90 ; --------------------------------------------------------------------------------------
0e90 ; Debug chain
0e90 ; --------------------------------------------------------------------------------------
0e90 0000 001e  |    |		.DBGLEN	0x0000,0x001e
0e92 0403 0407  |    |		.DBGLNO	0x0403,0x0407,0x0412,0x0416,0x041f,0x0423,0x042e,0x0432,0x043b,0x043f,0x044d,0x0451,0x045f,0x0463,0x0471,0x0475,0x047e,0x0482,0x048b,0x048f,0x049d,0x04a1,0x04af,0x04b3,0x04bc,0x04c0,0x04c9,0x04cd,0x04d7,0x04db
0eb0 ; --------------------------------------------------------------------------------------
0eb0 ; Debug chain
0eb0 ; --------------------------------------------------------------------------------------
0eb0 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0eb2 04eb 04ed  |    |		.DBGLNO	0x04eb,0x04ed,0x04f0,0x04f4,0x04fa
0eb7 ; --------------------------------------------------------------------------------------
0eb7 ; Debug chain
0eb7 ; --------------------------------------------------------------------------------------
0eb7 0000 000e  |    |		.DBGLEN	0x0000,0x000e
0eb9 0503 0507  |    |		.DBGLNO	0x0503,0x0507,0x0510,0x0514,0x051d,0x0521,0x052a,0x052e,0x0537,0x053b,0x0544,0x0548,0x0553,0x0557
0ec7 ; --------------------------------------------------------------------------------------
0ec7 ; Debug chain
0ec7 ; --------------------------------------------------------------------------------------
0ec7 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0ec9 056b 0577  | k w|		.DBGLNO	0x056b,0x0577,0x057c,0x057d
0ecd ; --------------------------------------------------------------------------------------
0ecd ; Debug chain
0ecd ; --------------------------------------------------------------------------------------
0ecd 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0ecf 058b 05b0  |    |		.DBGLNO	0x058b,0x05b0,0x05b6,0x05b8
0ed3 ; --------------------------------------------------------------------------------------
0ed3 ; Debug chain
0ed3 ; --------------------------------------------------------------------------------------
0ed3 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0ed5 05c3 05dc  |    |		.DBGLNO	0x05c3,0x05dc,0x05de
0ed8 ; --------------------------------------------------------------------------------------
0ed8 ; Debug chain
0ed8 ; --------------------------------------------------------------------------------------
0ed8 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0eda 05e3 0611  |    |		.DBGLNO	0x05e3,0x0611,0x0617,0x0619
0ede ; --------------------------------------------------------------------------------------
0ede ; Debug chain
0ede ; --------------------------------------------------------------------------------------
0ede 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0ee0 0623 0673  | # s|		.DBGLNO	0x0623,0x0673,0x067b,0x0685,0x0687
0ee5 ; --------------------------------------------------------------------------------------
0ee5 ; Debug chain
0ee5 ; --------------------------------------------------------------------------------------
0ee5 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0ee7 0693 0697  |    |		.DBGLNO	0x0693,0x0697,0x069c,0x06df,0x06e2,0x06e8,0x06ea
0eee ; --------------------------------------------------------------------------------------
0eee ; Debug chain
0eee ; --------------------------------------------------------------------------------------
0eee 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0ef0 06f3 070c  |    |		.DBGLNO	0x06f3,0x070c,0x070e
0ef3 ; --------------------------------------------------------------------------------------
0ef3 ; Debug chain
0ef3 ; --------------------------------------------------------------------------------------
0ef3 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0ef5 0713 072c  |   ,|		.DBGLNO	0x0713,0x072c,0x072e
0ef8 ; --------------------------------------------------------------------------------------
0ef8 ; Debug chain
0ef8 ; --------------------------------------------------------------------------------------
0ef8 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0efa 0733 0769  | 3 i|		.DBGLNO	0x0733,0x0769,0x0773,0x0775
0efe ; --------------------------------------------------------------------------------------
0efe ; Debug chain
0efe ; --------------------------------------------------------------------------------------
0efe 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0f00 077b 07b1  | {  |		.DBGLNO	0x077b,0x07b1,0x07b9,0x07d2,0x07d4
0f05 ; --------------------------------------------------------------------------------------
0f05 ; Debug chain
0f05 ; --------------------------------------------------------------------------------------
0f05 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0f07 07db 07f4  |    |		.DBGLNO	0x07db,0x07f4,0x07f6
0f0a ; --------------------------------------------------------------------------------------
0f0a ; Debug chain
0f0a ; --------------------------------------------------------------------------------------
0f0a 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0f0c 07fb 0814  |    |		.DBGLNO	0x07fb,0x0814,0x0816
0f0f ; --------------------------------------------------------------------------------------
0f0f ; Debug chain
0f0f ; --------------------------------------------------------------------------------------
0f0f 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0f11 081b 0856  |   V|		.DBGLNO	0x081b,0x0856,0x085e,0x0866,0x086e,0x0878,0x087a
0f18 ; --------------------------------------------------------------------------------------
0f18 ; Debug chain
0f18 ; --------------------------------------------------------------------------------------
0f18 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0f1a 0883 08b6  |    |		.DBGLNO	0x0883,0x08b6,0x08be,0x08c8,0x08ca
0f1f ; --------------------------------------------------------------------------------------
0f1f ; Debug chain
0f1f ; --------------------------------------------------------------------------------------
0f1f 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0f21 08d3 0909  |    |		.DBGLNO	0x08d3,0x0909,0x0913,0x0915
0f25 ; --------------------------------------------------------------------------------------
0f25 ; Debug chain
0f25 ; --------------------------------------------------------------------------------------
0f25 0000 000f  |    |		.DBGLEN	0x0000,0x000f
0f27 091f 0926  |   &|		.DBGLNO	0x091f,0x0926,0x092a,0x0930,0x0935,0x0936,0x0937,0x093e,0x0943,0x0948,0x094d,0x0952,0x0954,0x0958,0x095a
0f36 ; --------------------------------------------------------------------------------------
0f36 ; Debug chain
0f36 ; --------------------------------------------------------------------------------------
0f36 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0f38 0963 0985  | c  |		.DBGLNO	0x0963,0x0985,0x0987
0f3b ; --------------------------------------------------------------------------------------
0f3b ; Debug chain
0f3b ; --------------------------------------------------------------------------------------
0f3b 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0f3d 0993 09ce  |    |		.DBGLNO	0x0993,0x09ce,0x09d6,0x09e0,0x09e2
0f42 ; --------------------------------------------------------------------------------------
0f42 ; Debug chain
0f42 ; --------------------------------------------------------------------------------------
0f42 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0f44 09ec 09f3  |    |		.DBGLNO	0x09ec,0x09f3,0x0a2f,0x0a3c,0x0a48,0x0a4a
0f4a ; --------------------------------------------------------------------------------------
0f4a ; Debug chain
0f4a ; --------------------------------------------------------------------------------------
0f4a 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0f4c 0a53 0a83  | S  |		.DBGLNO	0x0a53,0x0a83,0x0a8d,0x0a8f
0f50 ; --------------------------------------------------------------------------------------
0f50 ; Debug chain
0f50 ; --------------------------------------------------------------------------------------
0f50 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0f52 0a9b 0ac7  |    |		.DBGLNO	0x0a9b,0x0ac7,0x0ad3,0x0ad5
0f56 ; --------------------------------------------------------------------------------------
0f56 ; Debug chain
0f56 ; --------------------------------------------------------------------------------------
0f56 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0f58 0adb 0b0e  |    |		.DBGLNO	0x0adb,0x0b0e,0x0b18,0x0b1a
0f5c ; --------------------------------------------------------------------------------------
0f5c ; Debug chain
0f5c ; --------------------------------------------------------------------------------------
0f5c 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0f5e 0b23 0b57  | # W|		.DBGLNO	0x0b23,0x0b57,0x0b63,0x0b65
0f62 ; --------------------------------------------------------------------------------------
0f62 ; Debug chain
0f62 ; --------------------------------------------------------------------------------------
0f62 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0f64 0b6b 0ba1  | k  |		.DBGLNO	0x0b6b,0x0ba1,0x0bab,0x0bad
0f68 ; --------------------------------------------------------------------------------------
0f68 ; Debug chain
0f68 ; --------------------------------------------------------------------------------------
0f68 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0f6a 0bb3 0bcc  |    |		.DBGLNO	0x0bb3,0x0bcc,0x0bce
0f6d ; --------------------------------------------------------------------------------------
0f6d ; Debug chain
0f6d ; --------------------------------------------------------------------------------------
0f6d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0f6f 0bd3 0bec  |    |		.DBGLNO	0x0bd3,0x0bec,0x0bee
0f72 ; --------------------------------------------------------------------------------------
0f72 ; Debug chain
0f72 ; --------------------------------------------------------------------------------------
0f72 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0f74 0bf3 0bf5  |    |		.DBGLNO	0x0bf3,0x0bf5,0x0bf9,0x0bfc,0x0c2a
0f79 ; --------------------------------------------------------------------------------------
0f79 ; Debug chain
0f79 ; --------------------------------------------------------------------------------------
0f79 0002 0002  |    |		.DBGLEN	0x0002,0x0002
0f7b 0c33 0c37  | 3 7|		.DBGLNO	0x0c33,0x0c37,0x0c39,0x0c4d
0f7f 0000 0000  |    |		.BLANK	0000[0x81]