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

⟦7d9eee161⟧

    Length: 7168 (0x1c00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0c18       |    |		.CONST	0x0c18								; 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 8008       |    |		.CONST	0x8008								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01e6       |    |		.CONST	0x01e6								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 007c       | |  |		.CONST	0x007c								; Number of locals
000b			INIT_0008:
000b 4802       |H   |		Short_Literal	0x2
000c 02cb       |    |		Declare_Variable	Entry
000d 4806       |H   |		Short_Literal	0x6
000e 02cb       |    |		Declare_Variable	Entry
000f 4801       |H   |		Short_Literal	0x1
0010 02cb       |    |		Declare_Variable	Entry
0011 4803       |H   |		Short_Literal	0x3
0012 02cb       |    |		Declare_Variable	Entry
0013 4805       |H   |		Short_Literal	0x5
0014 02cb       |    |		Declare_Variable	Entry
0015 4808       |H   |		Short_Literal	0x8
0016 02cb       |    |		Declare_Variable	Entry
0017 4807       |H   |		Short_Literal	0x7
0018 02cb       |    |		Declare_Variable	Entry
0019 4803       |H   |		Short_Literal	0x3
001a 02cb       |    |		Declare_Variable	Entry
001b 4808       |H   |		Short_Literal	0x8
001c 02cb       |    |		Declare_Variable	Entry
001d 4807       |H   |		Short_Literal	0x7
001e 02cb       |    |		Declare_Variable	Entry
001f 4801       |H   |		Short_Literal	0x1
0020 02cb       |    |		Declare_Variable	Entry
0021 4801       |H   |		Short_Literal	0x1
0022 02cb       |    |		Declare_Variable	Entry
0023 4801       |H   |		Short_Literal	0x1
0024 02cb       |    |		Declare_Variable	Entry
0025 4800       |H   |		Short_Literal	0x0
0026 02cb       |    |		Declare_Variable	Entry
0027 4802       |H   |		Short_Literal	0x2
0028 02cb       |    |		Declare_Variable	Entry
0029 4801       |H   |		Short_Literal	0x1
002a 02cb       |    |		Declare_Variable	Entry
002b 4801       |H   |		Short_Literal	0x1
002c 02cb       |    |		Declare_Variable	Entry
002d 4802       |H   |		Short_Literal	0x2
002e 02cb       |    |		Declare_Variable	Entry
002f 4801       |H   |		Short_Literal	0x1
0030 02cb       |    |		Declare_Variable	Entry
0031 4800       |H   |		Short_Literal	0x0
0032 02cb       |    |		Declare_Variable	Entry
0033 4803       |H   |		Short_Literal	0x3
0034 02cb       |    |		Declare_Variable	Entry
0035 4800       |H   |		Short_Literal	0x0
0036 02cb       |    |		Declare_Variable	Entry
0037 00bf       |    |		Action	Accept_Activation
0038 0092 0c07  |    |		Action	Push_String_Extended,0xc07					; "Action not found"
003a 0093 0000  |    |		push_full_address	0x0
003c 6203       |b   |		Indirect_Literal	Discrete,0x240,{0x80000000, 0x00010000}
003d 0273       | s  |		Execute	Discrete,Plus
003e 0007       |    |		Action	Break_Optional
003f 0093 0000  |    |		push_full_address	0x0
0041 61fa       |a   |		Indirect_Literal	Discrete,0x23c,{0x80000000, 0x00020000}
0042 0273       | s  |		Execute	Discrete,Plus
0043 0007       |    |		Action	Break_Optional
0044 e001       |    |		Load	0x0,0x1
0045 0007       |    |		Action	Break_Optional
0046 00e1       |    |		Load_Encached	Boolean_Cache
0047 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0048 029d 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call
004a 029d 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call
004c 029d 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call
004e 029d 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call
0050 e002       |    |		Load	0x0,0x2
0051 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0052 0337       | 7  |		Declare_Variable	Array
0053 4801       |H   |		Short_Literal	0x1
0054 4801       |H   |		Short_Literal	0x1
0055 00da       |    |		Load_Top	At_Offset_2
0056 01d6       |    |		Execute	Vector,Field_Write
0057 4801       |H   |		Short_Literal	0x1
0058 4802       |H   |		Short_Literal	0x2
0059 00da       |    |		Load_Top	At_Offset_2
005a 01d6       |    |		Execute	Vector,Field_Write
005b 4801       |H   |		Short_Literal	0x1
005c 4803       |H   |		Short_Literal	0x3
005d 00da       |    |		Load_Top	At_Offset_2
005e 01d6       |    |		Execute	Vector,Field_Write
005f 4801       |H   |		Short_Literal	0x1
0060 4809       |H   |		Short_Literal	0x9
0061 00da       |    |		Load_Top	At_Offset_2
0062 01d6       |    |		Execute	Vector,Field_Write
0063 4801       |H   |		Short_Literal	0x1
0064 4804       |H   |		Short_Literal	0x4
0065 00da       |    |		Load_Top	At_Offset_2
0066 01d6       |    |		Execute	Vector,Field_Write
0067 4801       |H   |		Short_Literal	0x1
0068 4805       |H   |		Short_Literal	0x5
0069 00da       |    |		Load_Top	At_Offset_2
006a 01d6       |    |		Execute	Vector,Field_Write
006b 4801       |H   |		Short_Literal	0x1
006c 4806       |H   |		Short_Literal	0x6
006d 00da       |    |		Load_Top	At_Offset_2
006e 01d6       |    |		Execute	Vector,Field_Write
006f 4801       |H   |		Short_Literal	0x1
0070 4807       |H   |		Short_Literal	0x7
0071 00da       |    |		Load_Top	At_Offset_2
0072 01d6       |    |		Execute	Vector,Field_Write
0073 4800       |H   |		Short_Literal	0x0
0074 4800       |H   |		Short_Literal	0x0
0075 00da       |    |		Load_Top	At_Offset_2
0076 01d6       |    |		Execute	Vector,Field_Write
0077 4800       |H   |		Short_Literal	0x0
0078 4808       |H   |		Short_Literal	0x8
0079 00da       |    |		Load_Top	At_Offset_2
007a 01d6       |    |		Execute	Vector,Field_Write
007b 480f       |H   |		Short_Literal	0xf
007c 480a       |H   |		Short_Literal	0xa
007d 4800       |H   |		Short_Literal	0x0
007e 00d9       |    |		Load_Top	At_Offset_1
007f e22c       | ,  |		Load	0x1,0x2c
0080 01d6       |    |		Execute	Vector,Field_Write
0081 3ffb       |?   |		Loop_Increasing	0x7d
0082 e002       |    |		Load	0x0,0x2
0083 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0084 01c3       |    |		Execute	Vector,Check_In_Type
0085 e002       |    |		Load	0x0,0x2
0086 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0087 e002       |    |		Load	0x0,0x2
0088 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0089 03f1       |    |		Declare_Variable	Discrete,With_Value
008a e002       |    |		Load	0x0,0x2
008b 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
008c 0337       | 7  |		Declare_Variable	Array
008d 4801       |H   |		Short_Literal	0x1
008e 4803       |H   |		Short_Literal	0x3
008f 00da       |    |		Load_Top	At_Offset_2
0090 01d6       |    |		Execute	Vector,Field_Write
0091 4802       |H   |		Short_Literal	0x2
0092 4800       |H   |		Short_Literal	0x0
0093 4800       |H   |		Short_Literal	0x0
0094 00d9       |    |		Load_Top	At_Offset_1
0095 e22d       | -  |		Load	0x1,0x2d
0096 01d6       |    |		Execute	Vector,Field_Write
0097 3ffb       |?   |		Loop_Increasing	0x93
0098 480f       |H   |		Short_Literal	0xf
0099 4804       |H   |		Short_Literal	0x4
009a 4800       |H   |		Short_Literal	0x0
009b 00d9       |    |		Load_Top	At_Offset_1
009c e22d       | -  |		Load	0x1,0x2d
009d 01d6       |    |		Execute	Vector,Field_Write
009e 3ffb       |?   |		Loop_Increasing	0x9a
009f e002       |    |		Load	0x0,0x2
00a0 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
00a1 01c3       |    |		Execute	Vector,Check_In_Type
00a2 e002       |    |		Load	0x0,0x2
00a3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00a4 e002       |    |		Load	0x0,0x2
00a5 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
00a6 03f1       |    |		Declare_Variable	Discrete,With_Value
00a7 e002       |    |		Load	0x0,0x2
00a8 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
00a9 0337       | 7  |		Declare_Variable	Array
00aa 4801       |H   |		Short_Literal	0x1
00ab 4801       |H   |		Short_Literal	0x1
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 01d6       |    |		Execute	Vector,Field_Write
00ae 4801       |H   |		Short_Literal	0x1
00af 4802       |H   |		Short_Literal	0x2
00b0 00da       |    |		Load_Top	At_Offset_2
00b1 01d6       |    |		Execute	Vector,Field_Write
00b2 4801       |H   |		Short_Literal	0x1
00b3 4803       |H   |		Short_Literal	0x3
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 01d6       |    |		Execute	Vector,Field_Write
00b6 4801       |H   |		Short_Literal	0x1
00b7 4809       |H   |		Short_Literal	0x9
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 01d6       |    |		Execute	Vector,Field_Write
00ba 4801       |H   |		Short_Literal	0x1
00bb 4804       |H   |		Short_Literal	0x4
00bc 00da       |    |		Load_Top	At_Offset_2
00bd 01d6       |    |		Execute	Vector,Field_Write
00be 4801       |H   |		Short_Literal	0x1
00bf 4805       |H   |		Short_Literal	0x5
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 01d6       |    |		Execute	Vector,Field_Write
00c2 4801       |H   |		Short_Literal	0x1
00c3 4806       |H   |		Short_Literal	0x6
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 01d6       |    |		Execute	Vector,Field_Write
00c6 4801       |H   |		Short_Literal	0x1
00c7 4807       |H   |		Short_Literal	0x7
00c8 00da       |    |		Load_Top	At_Offset_2
00c9 01d6       |    |		Execute	Vector,Field_Write
00ca 4801       |H   |		Short_Literal	0x1
00cb 4808       |H   |		Short_Literal	0x8
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 01d6       |    |		Execute	Vector,Field_Write
00ce 4800       |H   |		Short_Literal	0x0
00cf 4800       |H   |		Short_Literal	0x0
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 01d6       |    |		Execute	Vector,Field_Write
00d2 480f       |H   |		Short_Literal	0xf
00d3 480a       |H   |		Short_Literal	0xa
00d4 4800       |H   |		Short_Literal	0x0
00d5 00d9       |    |		Load_Top	At_Offset_1
00d6 e22e       | .  |		Load	0x1,0x2e
00d7 01d6       |    |		Execute	Vector,Field_Write
00d8 3ffb       |?   |		Loop_Increasing	0xd4
00d9 e002       |    |		Load	0x0,0x2
00da 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
00db 01c3       |    |		Execute	Vector,Check_In_Type
00dc e002       |    |		Load	0x0,0x2
00dd 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00de e002       |    |		Load	0x0,0x2
00df 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
00e0 03f1       |    |		Declare_Variable	Discrete,With_Value
00e1 e002       |    |		Load	0x0,0x2
00e2 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
00e3 0337       | 7  |		Declare_Variable	Array
00e4 4801       |H   |		Short_Literal	0x1
00e5 480d       |H   |		Short_Literal	0xd
00e6 00da       |    |		Load_Top	At_Offset_2
00e7 01d6       |    |		Execute	Vector,Field_Write
00e8 480c       |H   |		Short_Literal	0xc
00e9 4800       |H   |		Short_Literal	0x0
00ea 4800       |H   |		Short_Literal	0x0
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec e22f       | /  |		Load	0x1,0x2f
00ed 01d6       |    |		Execute	Vector,Field_Write
00ee 3ffb       |?   |		Loop_Increasing	0xea
00ef 4800       |H   |		Short_Literal	0x0
00f0 480e       |H   |		Short_Literal	0xe
00f1 00da       |    |		Load_Top	At_Offset_2
00f2 01d6       |    |		Execute	Vector,Field_Write
00f3 4800       |H   |		Short_Literal	0x0
00f4 480f       |H   |		Short_Literal	0xf
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 01d6       |    |		Execute	Vector,Field_Write
00f7 e002       |    |		Load	0x0,0x2
00f8 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
00f9 01c3       |    |		Execute	Vector,Check_In_Type
00fa e002       |    |		Load	0x0,0x2
00fb 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00fc e002       |    |		Load	0x0,0x2
00fd 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
00fe 03f1       |    |		Declare_Variable	Discrete,With_Value
00ff e002       |    |		Load	0x0,0x2
0100 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0101 0337       | 7  |		Declare_Variable	Array
0102 4801       |H   |		Short_Literal	0x1
0103 480e       |H   |		Short_Literal	0xe
0104 00da       |    |		Load_Top	At_Offset_2
0105 01d6       |    |		Execute	Vector,Field_Write
0106 4801       |H   |		Short_Literal	0x1
0107 480d       |H   |		Short_Literal	0xd
0108 00da       |    |		Load_Top	At_Offset_2
0109 01d6       |    |		Execute	Vector,Field_Write
010a 480c       |H   |		Short_Literal	0xc
010b 4800       |H   |		Short_Literal	0x0
010c 4800       |H   |		Short_Literal	0x0
010d 00d9       |    |		Load_Top	At_Offset_1
010e e230       | 0  |		Load	0x1,0x30
010f 01d6       |    |		Execute	Vector,Field_Write
0110 3ffb       |?   |		Loop_Increasing	0x10c
0111 4800       |H   |		Short_Literal	0x0
0112 480f       |H   |		Short_Literal	0xf
0113 00da       |    |		Load_Top	At_Offset_2
0114 01d6       |    |		Execute	Vector,Field_Write
0115 e002       |    |		Load	0x0,0x2
0116 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0117 01c3       |    |		Execute	Vector,Check_In_Type
0118 e002       |    |		Load	0x0,0x2
0119 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
011a e002       |    |		Load	0x0,0x2
011b 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
011c 03f1       |    |		Declare_Variable	Discrete,With_Value
011d e002       |    |		Load	0x0,0x2
011e 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
011f 0337       | 7  |		Declare_Variable	Array
0120 4801       |H   |		Short_Literal	0x1
0121 480f       |H   |		Short_Literal	0xf
0122 00da       |    |		Load_Top	At_Offset_2
0123 01d6       |    |		Execute	Vector,Field_Write
0124 480e       |H   |		Short_Literal	0xe
0125 4800       |H   |		Short_Literal	0x0
0126 4800       |H   |		Short_Literal	0x0
0127 00d9       |    |		Load_Top	At_Offset_1
0128 e231       | 1  |		Load	0x1,0x31
0129 01d6       |    |		Execute	Vector,Field_Write
012a 3ffb       |?   |		Loop_Increasing	0x126
012b e002       |    |		Load	0x0,0x2
012c 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
012d 01c3       |    |		Execute	Vector,Check_In_Type
012e e002       |    |		Load	0x0,0x2
012f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0130 e002       |    |		Load	0x0,0x2
0131 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
0132 03f1       |    |		Declare_Variable	Discrete,With_Value
0133 029d 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call
0135 029d 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call
0137 029d 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call
0139 a003       |    |		Store_Unchecked	0x0,0x3
013a 00c6       |    |		Action	Check_Subprogram_Elaborated
013b 00e2       |    |		Load_Encached	Integer_Cache
013c 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
013d 4800       |H   |		Short_Literal	0x0
013e 0093 0000  |    |		push_full_address	0x0
0140 60f7       |`   |		Indirect_Literal	Discrete,0x238,{0x80000000, 0x00060000}
0141 0273       | s  |		Execute	Discrete,Plus
0142 e004       |    |		Load	0x0,0x4
0143 0273       | s  |		Execute	Discrete,Plus
0144 e005       |    |		Load	0x0,0x5
0145 0273       | s  |		Execute	Discrete,Plus
0146 4800       |H   |		Short_Literal	0x0
0147 0007       |    |		Action	Break_Optional
0148 029d 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call
014a 029d 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call
014c a006       |    |		Store_Unchecked	0x0,0x6
014d 00c6       |    |		Action	Check_Subprogram_Elaborated
014e 00e2       |    |		Load_Encached	Integer_Cache
014f 00e2       |    |		Load_Encached	Integer_Cache
0150 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
0151 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
0152 0093 0000  |    |		push_full_address	0x0
0154 60df       |`   |		Indirect_Literal	Discrete,0x234,{0x80000000, 0x00050000}
0155 0273       | s  |		Execute	Discrete,Plus
0156 e004       |    |		Load	0x0,0x4
0157 0273       | s  |		Execute	Discrete,Plus
0158 e007       |    |		Load	0x0,0x7
0159 0273       | s  |		Execute	Discrete,Plus
015a 4800       |H   |		Short_Literal	0x0
015b 0007       |    |		Action	Break_Optional
015c 029d 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call
015e 029d 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call
0160 029d 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call
0162 029d 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call
0164 029d 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call
0166 029d 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call
0168 029d 047b  |   {|		Declare_Subprogram	INIT_0478,For_Outer_Call
016a 029d 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call
016c 029d 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Outer_Call
016e 029d 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call
0170 029d 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call
0172 029d 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call
0174 029d 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call
0176 029d 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call
0178 029d 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call
017a 029d 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call
017c 029d 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call
017e 029d 065b  |   [|		Declare_Subprogram	INIT_0658,For_Outer_Call
0180 029d 069b  |    |		Declare_Subprogram	INIT_0698,For_Outer_Call
0182 029d 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Outer_Call
0184 029d 06db  |    |		Declare_Subprogram	INIT_06d8,For_Outer_Call
0186 a006       |    |		Store_Unchecked	0x0,0x6
0187 00c6       |    |		Action	Check_Subprogram_Elaborated
0188 00e2       |    |		Load_Encached	Integer_Cache
0189 00e2       |    |		Load_Encached	Integer_Cache
018a 1d55       | U  |		Execute_Immediate	Reference_Lex_1,0x55
018b 1d56       | V  |		Execute_Immediate	Reference_Lex_1,0x56
018c 0093 0000  |    |		push_full_address	0x0
018e 60a1       |`   |		Indirect_Literal	Discrete,0x230,{0x80000000, 0x00040000}
018f 0273       | s  |		Execute	Discrete,Plus
0190 e004       |    |		Load	0x0,0x4
0191 0273       | s  |		Execute	Discrete,Plus
0192 e008       |    |		Load	0x0,0x8
0193 0273       | s  |		Execute	Discrete,Plus
0194 4800       |H   |		Short_Literal	0x0
0195 0007       |    |		Action	Break_Optional
0196 029d 06c3  |    |		Declare_Subprogram	INIT_06c0,For_Outer_Call
0198 a003       |    |		Store_Unchecked	0x0,0x3
0199 00c6       |    |		Action	Check_Subprogram_Elaborated
019a 00e2       |    |		Load_Encached	Integer_Cache
019b 1d5d       | ]  |		Execute_Immediate	Reference_Lex_1,0x5d
019c 4800       |H   |		Short_Literal	0x0
019d 0093 0000  |    |		push_full_address	0x0
019f 608c       |`   |		Indirect_Literal	Discrete,0x22c,{0x80000000, 0x00030000}
01a0 0273       | s  |		Execute	Discrete,Plus
01a1 e004       |    |		Load	0x0,0x4
01a2 0273       | s  |		Execute	Discrete,Plus
01a3 e009       |    |		Load	0x0,0x9
01a4 0273       | s  |		Execute	Discrete,Plus
01a5 4800       |H   |		Short_Literal	0x0
01a6 0007       |    |		Action	Break_Optional
01a7 029d 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Outer_Call
01a9 029d 070b  |    |		Declare_Subprogram	INIT_0708,For_Outer_Call
01ab 029d 0733  |   3|		Declare_Subprogram	INIT_0730,For_Outer_Call
01ad 029d 0743  |   C|		Declare_Subprogram	INIT_0740,For_Outer_Call
01af 029d 075b  |   [|		Declare_Subprogram	INIT_0758,For_Outer_Call
01b1 a006       |    |		Store_Unchecked	0x0,0x6
01b2 00c6       |    |		Action	Check_Subprogram_Elaborated
01b3 00e2       |    |		Load_Encached	Integer_Cache
01b4 00e2       |    |		Load_Encached	Integer_Cache
01b5 1d66       | f  |		Execute_Immediate	Reference_Lex_1,0x66
01b6 1d67       | g  |		Execute_Immediate	Reference_Lex_1,0x67
01b7 0093 0000  |    |		push_full_address	0x0
01b9 606e       |`n  |		Indirect_Literal	Discrete,0x228,{0x80000000, 0x00020000}
01ba 0273       | s  |		Execute	Discrete,Plus
01bb e004       |    |		Load	0x0,0x4
01bc 0273       | s  |		Execute	Discrete,Plus
01bd e00a       |    |		Load	0x0,0xa
01be 0273       | s  |		Execute	Discrete,Plus
01bf 4800       |H   |		Short_Literal	0x0
01c0 0007       |    |		Action	Break_Optional
01c1 029d 0773  |   s|		Declare_Subprogram	INIT_0770,For_Outer_Call
01c3 029d 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Outer_Call
01c5 029d 0813  |    |		Declare_Subprogram	INIT_0810,For_Outer_Call
01c7 029d 0823  |   #|		Declare_Subprogram	INIT_0820,For_Outer_Call
01c9 a003       |    |		Store_Unchecked	0x0,0x3
01ca 00c6       |    |		Action	Check_Subprogram_Elaborated
01cb e001       |    |		Load	0x0,0x1
01cc 1d71       | q  |		Execute_Immediate	Reference_Lex_1,0x71
01cd 4800       |H   |		Short_Literal	0x0
01ce 0093 0000  |    |		push_full_address	0x0
01d0 6053       |`S  |		Indirect_Literal	Discrete,0x224,{0x80000000, 0x00010000}
01d1 0273       | s  |		Execute	Discrete,Plus
01d2 e004       |    |		Load	0x0,0x4
01d3 0273       | s  |		Execute	Discrete,Plus
01d4 e00b       |    |		Load	0x0,0xb
01d5 0273       | s  |		Execute	Discrete,Plus
01d6 4800       |H   |		Short_Literal	0x0
01d7 0007       |    |		Action	Break_Optional
01d8 029d 083b  |   ;|		Declare_Subprogram	INIT_0838,For_Outer_Call
01da 029d 0853  |   S|		Declare_Subprogram	INIT_0850,For_Outer_Call
01dc 029d 086b  |   k|		Declare_Subprogram	INIT_0868,For_Outer_Call
01de 029d 088b  |    |		Declare_Subprogram	INIT_0888,For_Outer_Call
01e0 4820       |H   |		Short_Literal	0x20
01e1 0299 08fb  |    |		Declare_Subprogram	INIT_08f8,For_Accept
01e3 029f 0903  |    |		Declare_Subprogram	INIT_0900,For_Call
01e5 00bc       |    |		Action	Signal_Activated
01e6			BODY_0008:
01e6 1d7b       | {  |		Execute_Immediate	Reference_Lex_1,0x7b
01e7 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
01e8 0137       | 7  |		Execute	Entry,Rendezvous
01e9 00cf       |    |		Action	Mark_Auxiliary
01ea 4864       |Hd  |		Short_Literal	0x64
01eb 4801       |H   |		Short_Literal	0x1
01ec 0007       |    |		Action	Break_Optional
01ed 4800       |H   |		Short_Literal	0x0
01ee 00d9       |    |		Load_Top	At_Offset_1
01ef e00c       |    |		Load	0x0,0xc
01f0 01d5       |    |		Execute	Vector,Field_Reference
01f1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01f2 00c8       |    |		Action	Pop_Auxiliary_Range
01f3 3ff9       |?   |		Loop_Increasing	0x1ed
01f4 00ce       |    |		Action	Pop_Auxiliary
01f5 4801       |H   |		Short_Literal	0x1
01f6 a226       | &  |		Store_Unchecked	0x1,0x26
01f7 00cf       |    |		Action	Mark_Auxiliary
01f8 7802       |x   |		Jump	0x1fb
01f9 827c       | |  |		Call	0x1,0x7c
01fa 00c9       |    |		Action	Pop_Auxiliary_Loop
01fb e227       | '  |		Load	0x1,0x27
01fc 77fc       |w   |		Jump_Nonzero	0x1f9
01fd 00ce       |    |		Action	Pop_Auxiliary
01fe 00bb       |    |		Action	Signal_Completion
01ff 0000       |    |		.XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 021f       |    |		.CONST	0x021f								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00db       |    |		Load_Top	At_Offset_3
0204 e002       |    |		Load	0x0,0x2
0205 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0206 e5fd       |    |		Load	0x2,-0x3
0207 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0208 00da       |    |		Load_Top	At_Offset_2
0209 800d       |    |		Call	0x0,0xd
020a 7007       |p   |		Jump_Nonzero	0x212
020b 00db       |    |		Load_Top	At_Offset_3
020c 00db       |    |		Load_Top	At_Offset_3
020d e00e       |    |		Load	0x0,0xe
020e 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
020f e002       |    |		Load	0x0,0x2
0210 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0211 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0212 4801       |H   |		Short_Literal	0x1
0213 00db       |    |		Load_Top	At_Offset_3
0214 800f       |    |		Call	0x0,0xf
0215 00da       |    |		Load_Top	At_Offset_2
0216 800d       |    |		Call	0x0,0xd
0217 7006       |p   |		Jump_Nonzero	0x21e
0218 00db       |    |		Load_Top	At_Offset_3
0219 00db       |    |		Load_Top	At_Offset_3
021a e00e       |    |		Load	0x0,0xe
021b 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
021c e002       |    |		Load	0x0,0x2
021d 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
021e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021f			TRAP_0200:
021f 0007       |    |		Action	Break_Optional
0220 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0221 0000 0000  |    |		.XXX[0x3]
0223 0000       |    |
0224 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0228 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
022c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
0230 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0234 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0238 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
023c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0240 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0244 0000 0000  |    |		.BLANK	0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b 00cf       |    |		Action	Mark_Auxiliary
024c e010       |    |		Load	0x0,0x10
024d 4801       |H   |		Short_Literal	0x1
024e 0263       | c  |		Execute	Discrete,Above_Bound
024f 7026       |p&  |		Jump_Nonzero	0x276
0250 00d8       |    |		Load_Top	At_Offset_0
0251 e011       |    |		Load	0x0,0x11
0252 01d5       |    |		Execute	Vector,Field_Reference
0253 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0254 e012       |    |		Load	0x0,0x12
0255 027e       | ~  |		Execute	Discrete,Not_Equal
0256 681d       |h   |		Jump_Zero	0x274
0257 00d8       |    |		Load_Top	At_Offset_0
0258 e011       |    |		Load	0x0,0x11
0259 01d5       |    |		Execute	Vector,Field_Reference
025a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
025b e013       |    |		Load	0x0,0x13
025c 027f       |    |		Execute	Discrete,Equal
025d 7007       |p   |		Jump_Nonzero	0x265
025e 00d8       |    |		Load_Top	At_Offset_0
025f e011       |    |		Load	0x0,0x11
0260 01d5       |    |		Execute	Vector,Field_Reference
0261 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0262 e5ff       |    |		Load	0x2,-0x1
0263 027f       |    |		Execute	Discrete,Equal
0264 680f       |h   |		Jump_Zero	0x274
0265 00d8       |    |		Load_Top	At_Offset_0
0266 e011       |    |		Load	0x0,0x11
0267 01d5       |    |		Execute	Vector,Field_Reference
0268 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0269 8014       |    |		Call	0x0,0x14
026a 027f       |    |		Execute	Discrete,Equal
026b 7006       |p   |		Jump_Nonzero	0x272
026c 00d8       |    |		Load_Top	At_Offset_0
026d e011       |    |		Load	0x0,0x11
026e 01d5       |    |		Execute	Vector,Field_Reference
026f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0270 8015       |    |		Call	0x0,0x15
0271 7002       |p   |		Jump_Nonzero	0x274
0272 4801       |H   |		Short_Literal	0x1
0273 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0274 00c8       |    |		Action	Pop_Auxiliary_Range
0275 3fda       |?   |		Loop_Increasing	0x250
0276 00ce       |    |		Action	Pop_Auxiliary
0277 4800       |H   |		Short_Literal	0x0
0278 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0279 0000 0000  |    |		.BLANK	0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 00cf       |    |		Action	Mark_Auxiliary
0284 e010       |    |		Load	0x0,0x10
0285 4801       |H   |		Short_Literal	0x1
0286 0263       | c  |		Execute	Discrete,Above_Bound
0287 701f       |p   |		Jump_Nonzero	0x2a7
0288 00d8       |    |		Load_Top	At_Offset_0
0289 e011       |    |		Load	0x0,0x11
028a 01d5       |    |		Execute	Vector,Field_Reference
028b 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
028c e012       |    |		Load	0x0,0x12
028d 027e       | ~  |		Execute	Discrete,Not_Equal
028e 6816       |h   |		Jump_Zero	0x2a5
028f 00d8       |    |		Load_Top	At_Offset_0
0290 e011       |    |		Load	0x0,0x11
0291 01d5       |    |		Execute	Vector,Field_Reference
0292 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0293 e013       |    |		Load	0x0,0x13
0294 027f       |    |		Execute	Discrete,Equal
0295 7007       |p   |		Jump_Nonzero	0x29d
0296 00d8       |    |		Load_Top	At_Offset_0
0297 e011       |    |		Load	0x0,0x11
0298 01d5       |    |		Execute	Vector,Field_Reference
0299 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
029a e5ff       |    |		Load	0x2,-0x1
029b 027f       |    |		Execute	Discrete,Equal
029c 6808       |h   |		Jump_Zero	0x2a5
029d 00d8       |    |		Load_Top	At_Offset_0
029e e011       |    |		Load	0x0,0x11
029f 01d5       |    |		Execute	Vector,Field_Reference
02a0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a1 8015       |    |		Call	0x0,0x15
02a2 6802       |h   |		Jump_Zero	0x2a5
02a3 4801       |H   |		Short_Literal	0x1
02a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a5 00c8       |    |		Action	Pop_Auxiliary_Range
02a6 3fe1       |?   |		Loop_Increasing	0x288
02a7 00ce       |    |		Action	Pop_Auxiliary
02a8 4800       |H   |		Short_Literal	0x0
02a9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02aa 0000 0000  |    |		.BLANK	0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 e5ff       |    |		Load	0x2,-0x1
02b4 e5fe       |    |		Load	0x2,-0x2
02b5 0278       | x  |		Execute	Discrete,Or
02b6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02b7 0831       | 1  |		.XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c3       |    |		.CONST	0x02c3								; Address of begin
02b9 035b       | [  |		.CONST	0x035b								; Address of exception handler
02ba 0005       |    |		.CONST	0x0005								; Number of locals
02bb			INIT_02b8:
02bb e231       | 1  |		Load	0x1,0x31
02bc 0007       |    |		Action	Break_Optional
02bd 00e1       |    |		Load_Encached	Boolean_Cache
02be 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
02bf 00e1       |    |		Load_Encached	Boolean_Cache
02c0 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
02c1 029f 0943  |   C|		Declare_Subprogram	INIT_0940,For_Call
02c3			BODY_02b8:
02c3 e016       |    |		Load	0x0,0x16
02c4 6804       |h   |		Jump_Zero	0x2c9
02c5 e22c       | ,  |		Load	0x1,0x2c
02c6 4801       |H   |		Short_Literal	0x1
02c7 4801       |H   |		Short_Literal	0x1
02c8 8405       |    |		Call	0x2,0x5
02c9 e5ff       |    |		Load	0x2,-0x1
02ca 8017       |    |		Call	0x0,0x17
02cb 6804       |h   |		Jump_Zero	0x2d0
02cc e22c       | ,  |		Load	0x1,0x2c
02cd 4800       |H   |		Short_Literal	0x0
02ce 4801       |H   |		Short_Literal	0x1
02cf 8405       |    |		Call	0x2,0x5
02d0 e5ff       |    |		Load	0x2,-0x1
02d1 e018       |    |		Load	0x0,0x18
02d2 027f       |    |		Execute	Discrete,Equal
02d3 6804       |h   |		Jump_Zero	0x2d8
02d4 e22c       | ,  |		Load	0x1,0x2c
02d5 4801       |H   |		Short_Literal	0x1
02d6 4800       |H   |		Short_Literal	0x0
02d7 8405       |    |		Call	0x2,0x5
02d8 e019       |    |		Load	0x0,0x19
02d9 6804       |h   |		Jump_Zero	0x2de
02da e22c       | ,  |		Load	0x1,0x2c
02db 4801       |H   |		Short_Literal	0x1
02dc 4800       |H   |		Short_Literal	0x0
02dd 8405       |    |		Call	0x2,0x5
02de e01a       |    |		Load	0x0,0x1a
02df 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02e0 6817       |h   |		Jump_Zero	0x2f8
02e1 e5ff       |    |		Load	0x2,-0x1
02e2 801b       |    |		Call	0x0,0x1b
02e3 6805       |h   |		Jump_Zero	0x2e9
02e4 e22e       | .  |		Load	0x1,0x2e
02e5 4800       |H   |		Short_Literal	0x0
02e6 4800       |H   |		Short_Literal	0x0
02e7 8405       |    |		Call	0x2,0x5
02e8 780f       |x   |		Jump	0x2f8
02e9 e5ff       |    |		Load	0x2,-0x1
02ea 801c       |    |		Call	0x0,0x1c
02eb 6805       |h   |		Jump_Zero	0x2f1
02ec e22c       | ,  |		Load	0x1,0x2c
02ed 4800       |H   |		Short_Literal	0x0
02ee 4800       |H   |		Short_Literal	0x0
02ef 8405       |    |		Call	0x2,0x5
02f0 7807       |x   |		Jump	0x2f8
02f1 e5ff       |    |		Load	0x2,-0x1
02f2 801d       |    |		Call	0x0,0x1d
02f3 6804       |h   |		Jump_Zero	0x2f8
02f4 e22d       | -  |		Load	0x1,0x2d
02f5 4800       |H   |		Short_Literal	0x0
02f6 4800       |H   |		Short_Literal	0x0
02f7 8405       |    |		Call	0x2,0x5
02f8 e5fe       |    |		Load	0x2,-0x2
02f9 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
02fa 6804       |h   |		Jump_Zero	0x2ff
02fb e22c       | ,  |		Load	0x1,0x2c
02fc 4800       |H   |		Short_Literal	0x0
02fd 4800       |H   |		Short_Literal	0x0
02fe 8405       |    |		Call	0x2,0x5
02ff e01e       |    |		Load	0x0,0x1e
0300 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0301 6825       |h%  |		Jump_Zero	0x327
0302 e5ff       |    |		Load	0x2,-0x1
0303 801f       |    |		Call	0x0,0x1f
0304 6808       |h   |		Jump_Zero	0x30d
0305 e22e       | .  |		Load	0x1,0x2e
0306 4800       |H   |		Short_Literal	0x0
0307 4800       |H   |		Short_Literal	0x0
0308 8405       |    |		Call	0x2,0x5
0309 4801       |H   |		Short_Literal	0x1
030a e5fe       |    |		Load	0x2,-0x2
030b 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
030c 781d       |x   |		Jump	0x32a
030d e5ff       |    |		Load	0x2,-0x1
030e 8020       |    |		Call	0x0,0x20
030f 6808       |h   |		Jump_Zero	0x318
0310 e22c       | ,  |		Load	0x1,0x2c
0311 4800       |H   |		Short_Literal	0x0
0312 4800       |H   |		Short_Literal	0x0
0313 8405       |    |		Call	0x2,0x5
0314 4801       |H   |		Short_Literal	0x1
0315 e5fe       |    |		Load	0x2,-0x2
0316 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0317 7812       |x   |		Jump	0x32a
0318 e5ff       |    |		Load	0x2,-0x1
0319 8021       | !  |		Call	0x0,0x21
031a 6808       |h   |		Jump_Zero	0x323
031b e22d       | -  |		Load	0x1,0x2d
031c 4800       |H   |		Short_Literal	0x0
031d 4800       |H   |		Short_Literal	0x0
031e 8405       |    |		Call	0x2,0x5
031f 4801       |H   |		Short_Literal	0x1
0320 e5fe       |    |		Load	0x2,-0x2
0321 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0322 7807       |x   |		Jump	0x32a
0323 4800       |H   |		Short_Literal	0x0
0324 e5fe       |    |		Load	0x2,-0x2
0325 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0326 7803       |x   |		Jump	0x32a
0327 4800       |H   |		Short_Literal	0x0
0328 e5fe       |    |		Load	0x2,-0x2
0329 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
032a e5fe       |    |		Load	0x2,-0x2
032b 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
032c 6804       |h   |		Jump_Zero	0x331
032d e22c       | ,  |		Load	0x1,0x2c
032e 4800       |H   |		Short_Literal	0x0
032f 4800       |H   |		Short_Literal	0x0
0330 8405       |    |		Call	0x2,0x5
0331 e5ff       |    |		Load	0x2,-0x1
0332 e022       | "  |		Load	0x0,0x22
0333 027f       |    |		Execute	Discrete,Equal
0334 6804       |h   |		Jump_Zero	0x339
0335 e22e       | .  |		Load	0x1,0x2e
0336 4801       |H   |		Short_Literal	0x1
0337 4800       |H   |		Short_Literal	0x0
0338 8405       |    |		Call	0x2,0x5
0339 e5fe       |    |		Load	0x2,-0x2
033a 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
033b 6804       |h   |		Jump_Zero	0x340
033c e230       | 0  |		Load	0x1,0x30
033d 4801       |H   |		Short_Literal	0x1
033e 4801       |H   |		Short_Literal	0x1
033f 8405       |    |		Call	0x2,0x5
0340 e5ff       |    |		Load	0x2,-0x1
0341 8229       | )  |		Call	0x1,0x29
0342 6804       |h   |		Jump_Zero	0x347
0343 e230       | 0  |		Load	0x1,0x30
0344 4801       |H   |		Short_Literal	0x1
0345 4801       |H   |		Short_Literal	0x1
0346 8405       |    |		Call	0x2,0x5
0347 e5ff       |    |		Load	0x2,-0x1
0348 822a       | *  |		Call	0x1,0x2a
0349 6804       |h   |		Jump_Zero	0x34e
034a e22f       | /  |		Load	0x1,0x2f
034b 4801       |H   |		Short_Literal	0x1
034c 4801       |H   |		Short_Literal	0x1
034d 8405       |    |		Call	0x2,0x5
034e e5fe       |    |		Load	0x2,-0x2
034f e402       |    |		Load	0x2,0x2
0350 e002       |    |		Load	0x0,0x2
0351 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0352 e5ff       |    |		Load	0x2,-0x1
0353 8228       | (  |		Call	0x1,0x28
0354 00d1       |    |		Pop_Control	Pop_Count_1
0355 00d9       |    |		Load_Top	At_Offset_1
0356 00db       |    |		Load_Top	At_Offset_3
0357 e5ff       |    |		Load	0x2,-0x1
0358 8023       | #  |		Call	0x0,0x23
0359 8024       | $  |		Call	0x0,0x24
035a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
035b			TRAP_02b8:
035b 0007       |    |		Action	Break_Optional
035c e5ff       |    |		Load	0x2,-0x1
035d e002       |    |		Load	0x0,0x2
035e 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
035f 7004       |p   |		Jump_Nonzero	0x364
0360 4800       |H   |		Short_Literal	0x0
0361 4802       |H   |		Short_Literal	0x2
0362 e5ff       |    |		Load	0x2,-0x1
0363 8025       | %  |		Call	0x0,0x25
0364 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0365 0000 0000  |    |		.XXX[0x3]
0367 0000       |    |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b e026       | &  |		Load	0x0,0x26
036c e5fe       |    |		Load	0x2,-0x2
036d e5ff       |    |		Load	0x2,-0x1
036e 8232       | 2  |		Call	0x1,0x32
036f 00d1       |    |		Pop_Control	Pop_Count_1
0370 c026       | &  |		Store	0x0,0x26
0371 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0372 0000 0000  |    |		.BLANK	0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			BODY_0378:
037b			INIT_0378:
037b			INIT_0378:
037b e5fd       |    |		Load	0x2,-0x3
037c 00e2       |    |		Load_Encached	Integer_Cache
037d 025e       | ^  |		Execute	Discrete,Convert
037e e5fe       |    |		Load	0x2,-0x2
037f e5ff       |    |		Load	0x2,-0x1
0380 e027       | '  |		Load	0x0,0x27
0381 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0382 00d9       |    |		Load_Top	At_Offset_1
0383 00d0       |    |		Action	Swap_Control
0384 0260       | `  |		Execute	Discrete,In_Type
0385 7001       |p   |		Jump_Nonzero	0x387
0386 0801       |    |		Execute_Immediate	Raise,0x1
0387 8232       | 2  |		Call	0x1,0x32
0388 00d1       |    |		Pop_Control	Pop_Count_1
0389 c5fd       |    |		Store	0x2,-0x3
038a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
038b 0000 0000  |    |		.BLANK	0000[0x5]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 e5fd       |    |		Load	0x2,-0x3
0394 00d8       |    |		Load_Top	At_Offset_0
0395 00e2       |    |		Load_Encached	Integer_Cache
0396 0260       | `  |		Execute	Discrete,In_Type
0397 7001       |p   |		Jump_Nonzero	0x399
0398 0801       |    |		Execute_Immediate	Raise,0x1
0399 e5fe       |    |		Load	0x2,-0x2
039a e5ff       |    |		Load	0x2,-0x1
039b e027       | '  |		Load	0x0,0x27
039c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
039d 00d9       |    |		Load_Top	At_Offset_1
039e 00d0       |    |		Action	Swap_Control
039f 0260       | `  |		Execute	Discrete,In_Type
03a0 7001       |p   |		Jump_Nonzero	0x3a2
03a1 0801       |    |		Execute_Immediate	Raise,0x1
03a2 8028       | (  |		Call	0x0,0x28
03a3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03a4 0000 0000  |    |		.BLANK	0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ad       |    |		.CONST	0x03ad								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0002       |    |		.CONST	0x0002								; Number of locals
03ab			INIT_03a8:
03ab 029f 0953  |   S|		Declare_Subprogram	INIT_0950,For_Call
03ad			BODY_03a8:
03ad 00db       |    |		Load_Top	At_Offset_3
03ae e013       |    |		Load	0x0,0x13
03af 027f       |    |		Execute	Discrete,Equal
03b0 680a       |h   |		Jump_Zero	0x3bb
03b1 e026       | &  |		Load	0x0,0x26
03b2 00d8       |    |		Load_Top	At_Offset_0
03b3 e23c       | <  |		Load	0x1,0x3c
03b4 e23d       | =  |		Load	0x1,0x3d
03b5 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
03b6 1d3f       | ?  |		Execute_Immediate	Reference_Lex_1,0x3f
03b7 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
03b8 8006       |    |		Call	0x0,0x6
03b9 c026       | &  |		Store	0x0,0x26
03ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03bb 8402       |    |		Call	0x2,0x2
03bc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03bd 0000 0000  |    |		.XXX[0x3]
03bf 0000       |    |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c7       |    |		.CONST	0x03c7								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0003       |    |		.CONST	0x0003								; Number of locals
03c3			INIT_03c0:
03c3 029f 0963  |   c|		Declare_Subprogram	INIT_0960,For_Call
03c5 029f 098b  |    |		Declare_Subprogram	INIT_0988,For_Call
03c7			BODY_03c0:
03c7 e5fe       |    |		Load	0x2,-0x2
03c8 e029       | )  |		Load	0x0,0x29
03c9 027f       |    |		Execute	Discrete,Equal
03ca 6802       |h   |		Jump_Zero	0x3cd
03cb e02a       | *  |		Load	0x0,0x2a
03cc 0257       | W  |		Execute	Discrete,Raise
03cd e5ff       |    |		Load	0x2,-0x1
03ce e013       |    |		Load	0x0,0x13
03cf 027f       |    |		Execute	Discrete,Equal
03d0 6826       |h&  |		Jump_Zero	0x3f7
03d1 00cf       |    |		Action	Mark_Auxiliary
03d2 e02b       | +  |		Load	0x0,0x2b
03d3 4801       |H   |		Short_Literal	0x1
03d4 0263       | c  |		Execute	Discrete,Above_Bound
03d5 700d       |p   |		Jump_Nonzero	0x3e3
03d6 00d8       |    |		Load_Top	At_Offset_0
03d7 e02c       | ,  |		Load	0x0,0x2c
03d8 01d7       |    |		Execute	Vector,Field_Read
03d9 e029       | )  |		Load	0x0,0x29
03da 027f       |    |		Execute	Discrete,Equal
03db 6805       |h   |		Jump_Zero	0x3e1
03dc 00d8       |    |		Load_Top	At_Offset_0
03dd 8402       |    |		Call	0x2,0x2
03de e013       |    |		Load	0x0,0x13
03df 8242       | B  |		Call	0x1,0x42
03e0 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
03e1 00c8       |    |		Action	Pop_Auxiliary_Range
03e2 3ff3       |?   |		Loop_Increasing	0x3d6
03e3 00ce       |    |		Action	Pop_Auxiliary
03e4 e016       |    |		Load	0x0,0x16
03e5 0f14       |    |		Execute_Immediate	Equal,0x14
03e6 6802       |h   |		Jump_Zero	0x3e9
03e7 e02d       | -  |		Load	0x0,0x2d
03e8 0257       | W  |		Execute	Discrete,Raise
03e9 e02b       | +  |		Load	0x0,0x2b
03ea 0a01       |    |		Execute_Immediate	Plus,0x1
03eb 00d8       |    |		Load_Top	At_Offset_0
03ec 00e3       |    |		Load_Encached	Natural_Cache
03ed 0260       | `  |		Execute	Discrete,In_Type
03ee 7001       |p   |		Jump_Nonzero	0x3f0
03ef 0801       |    |		Execute_Immediate	Raise,0x1
03f0 8402       |    |		Call	0x2,0x2
03f1 e02b       | +  |		Load	0x0,0x2b
03f2 0a01       |    |		Execute_Immediate	Plus,0x1
03f3 c02b       | +  |		Store	0x0,0x2b
03f4 e013       |    |		Load	0x0,0x13
03f5 8242       | B  |		Call	0x1,0x42
03f6 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
03f7 00cf       |    |		Action	Mark_Auxiliary
03f8 e02e       | .  |		Load	0x0,0x2e
03f9 4801       |H   |		Short_Literal	0x1
03fa 0263       | c  |		Execute	Discrete,Above_Bound
03fb 700e       |p   |		Jump_Nonzero	0x40a
03fc 00d8       |    |		Load_Top	At_Offset_0
03fd e02f       | /  |		Load	0x0,0x2f
03fe 01d5       |    |		Execute	Vector,Field_Reference
03ff 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0400 e029       | )  |		Load	0x0,0x29
0401 027f       |    |		Execute	Discrete,Equal
0402 6805       |h   |		Jump_Zero	0x408
0403 00d8       |    |		Load_Top	At_Offset_0
0404 8403       |    |		Call	0x2,0x3
0405 e5ff       |    |		Load	0x2,-0x1
0406 8242       | B  |		Call	0x1,0x42
0407 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0408 00c8       |    |		Action	Pop_Auxiliary_Range
0409 3ff2       |?   |		Loop_Increasing	0x3fc
040a 00ce       |    |		Action	Pop_Auxiliary
040b e030       | 0  |		Load	0x0,0x30
040c 0f1e       |    |		Execute_Immediate	Equal,0x1e
040d 6802       |h   |		Jump_Zero	0x410
040e e031       | 1  |		Load	0x0,0x31
040f 0257       | W  |		Execute	Discrete,Raise
0410 e02e       | .  |		Load	0x0,0x2e
0411 0a01       |    |		Execute_Immediate	Plus,0x1
0412 00d8       |    |		Load_Top	At_Offset_0
0413 00e3       |    |		Load_Encached	Natural_Cache
0414 0260       | `  |		Execute	Discrete,In_Type
0415 7001       |p   |		Jump_Nonzero	0x417
0416 0801       |    |		Execute_Immediate	Raise,0x1
0417 8403       |    |		Call	0x2,0x3
0418 e02e       | .  |		Load	0x0,0x2e
0419 0a01       |    |		Execute_Immediate	Plus,0x1
041a c02e       | .  |		Store	0x0,0x2e
041b e5ff       |    |		Load	0x2,-0x1
041c 8242       | B  |		Call	0x1,0x42
041d 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
041e 0000 0000  |    |		.XXX[0x2]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 00da       |    |		Load_Top	At_Offset_2
0424 c032       | 2  |		Store	0x0,0x32
0425 4801       |H   |		Short_Literal	0x1
0426 c019       |    |		Store	0x0,0x19
0427 e013       |    |		Load	0x0,0x13
0428 8242       | B  |		Call	0x1,0x42
0429 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
042a 0000 0000  |    |		.BLANK	0000[0x6]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 00db       |    |		Load_Top	At_Offset_3
0434 e5fd       |    |		Load	0x2,-0x3
0435 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0436 4801       |H   |		Short_Literal	0x1
0437 e5fd       |    |		Load	0x2,-0x3
0438 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0439 e5fd       |    |		Load	0x2,-0x3
043a 00db       |    |		Load_Top	At_Offset_3
043b 8233       | 3  |		Call	0x1,0x33
043c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
043d 0000 0000  |    |		.XXX[0x3]
043f 0000       |    |
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 e018       |    |		Load	0x0,0x18
0444 e013       |    |		Load	0x0,0x13
0445 027f       |    |		Execute	Discrete,Equal
0446 7004       |p   |		Jump_Nonzero	0x44b
0447 e018       |    |		Load	0x0,0x18
0448 00db       |    |		Load_Top	At_Offset_3
0449 027f       |    |		Execute	Discrete,Equal
044a 680e       |h   |		Jump_Zero	0x459
044b e013       |    |		Load	0x0,0x13
044c c018       |    |		Store	0x0,0x18
044d 00db       |    |		Load_Top	At_Offset_3
044e c033       | 3  |		Store	0x0,0x33
044f e5fd       |    |		Load	0x2,-0x3
0450 c034       | 4  |		Store	0x0,0x34
0451 e5fc       |    |		Load	0x2,-0x4
0452 c035       | 5  |		Store	0x0,0x35
0453 4800       |H   |		Short_Literal	0x0
0454 e5fb       |    |		Load	0x2,-0x5
0455 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0456 00da       |    |		Load_Top	At_Offset_2
0457 c018       |    |		Store	0x0,0x18
0458 7809       |x   |		Jump	0x462
0459 e5fd       |    |		Load	0x2,-0x3
045a e5fb       |    |		Load	0x2,-0x5
045b 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
045c e5fc       |    |		Load	0x2,-0x4
045d e5fb       |    |		Load	0x2,-0x5
045e 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
045f 00db       |    |		Load_Top	At_Offset_3
0460 e5fb       |    |		Load	0x2,-0x5
0461 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0462 e5fb       |    |		Load	0x2,-0x5
0463 00db       |    |		Load_Top	At_Offset_3
0464 8233       | 3  |		Call	0x1,0x33
0465 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0466 0000 0000  |    |		.XXX[0x2]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046f       | o  |		.CONST	0x046f								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0003       |    |		.CONST	0x0003								; Number of locals
046b			INIT_0468:
046b 029f 09bb  |    |		Declare_Subprogram	INIT_09b8,For_Call
046d 029f 09e3  |    |		Declare_Subprogram	INIT_09e0,For_Call
046f			BODY_0468:
046f 8403       |    |		Call	0x2,0x3
0470 4801       |H   |		Short_Literal	0x1
0471 e5f8       |    |		Load	0x2,-0x8
0472 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
0473 e5f8       |    |		Load	0x2,-0x8
0474 e5ff       |    |		Load	0x2,-0x1
0475 8233       | 3  |		Call	0x1,0x33
0476 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0477 0000       |    |		.XXX[0x1]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0486       |    |		.CONST	0x0486								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0005       |    |		.CONST	0x0005								; Number of locals
047b			INIT_0478:
047b e036       | 6  |		Load	0x0,0x36
047c 0337       | 7  |		Declare_Variable	Array
047d e037       | 7  |		Load	0x0,0x37
047e 00d9       |    |		Load_Top	At_Offset_1
047f 01d4       |    |		Execute	Vector,Structure_Write
0480 00e3       |    |		Load_Encached	Natural_Cache
0481 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0482 029f 0a1b  |    |		Declare_Subprogram	INIT_0a18,For_Call
0484 029f 0a4b  |   K|		Declare_Subprogram	INIT_0a48,For_Call
0486			BODY_0478:
0486 e5fc       |    |		Load	0x2,-0x4
0487 e038       | 8  |		Load	0x0,0x38
0488 017f       |    |		Execute	Record,Equal
0489 6801       |h   |		Jump_Zero	0x48b
048a 781e       |x   |		Jump	0x4a9
048b e5fb       |    |		Load	0x2,-0x5
048c 0f00       |    |		Execute_Immediate	Equal,0x0
048d 680b       |h   |		Jump_Zero	0x499
048e 00e3       |    |		Load_Encached	Natural_Cache
048f e402       |    |		Load	0x2,0x2
0490 e5fc       |    |		Load	0x2,-0x4
0491 e5fa       |    |		Load	0x2,-0x6
0492 8039       | 9  |		Call	0x0,0x39
0493 00d1       |    |		Pop_Control	Pop_Count_1
0494 005b       | [  |		Store_Top	Discrete,At_Offset_3
0495 00da       |    |		Load_Top	At_Offset_2
0496 7012       |p   |		Jump_Nonzero	0x4a9
0497 e02a       | *  |		Load	0x0,0x2a
0498 0257       | W  |		Execute	Discrete,Raise
0499 e5fb       |    |		Load	0x2,-0x5
049a e5fc       |    |		Load	0x2,-0x4
049b e5fa       |    |		Load	0x2,-0x6
049c 803a       | :  |		Call	0x0,0x3a
049d 4801       |H   |		Short_Literal	0x1
049e e402       |    |		Load	0x2,0x2
049f 01d5       |    |		Execute	Vector,Field_Reference
04a0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04a1 4801       |H   |		Short_Literal	0x1
04a2 e402       |    |		Load	0x2,0x2
04a3 01d5       |    |		Execute	Vector,Field_Reference
04a4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04a5 4801       |H   |		Short_Literal	0x1
04a6 e402       |    |		Load	0x2,0x2
04a7 01d5       |    |		Execute	Vector,Field_Reference
04a8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04a9 00da       |    |		Load_Top	At_Offset_2
04aa 7002       |p   |		Jump_Nonzero	0x4ad
04ab 4801       |H   |		Short_Literal	0x1
04ac 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
04ad 8405       |    |		Call	0x2,0x5
04ae e5ff       |    |		Load	0x2,-0x1
04af 8242       | B  |		Call	0x1,0x42
04b0 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
04b1 0000 0000  |    |		.BLANK	0000[0x7]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb       |    |		.CONST	0x04bb								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0001       |    |		.CONST	0x0001								; Number of locals
04bb			BODY_04b8:
04bb			INIT_04b8:
04bb e022       | "  |		Load	0x0,0x22
04bc e013       |    |		Load	0x0,0x13
04bd 027f       |    |		Execute	Discrete,Equal
04be 7006       |p   |		Jump_Nonzero	0x4c5
04bf e022       | "  |		Load	0x0,0x22
04c0 00db       |    |		Load_Top	At_Offset_3
04c1 027f       |    |		Execute	Discrete,Equal
04c2 7002       |p   |		Jump_Nonzero	0x4c5
04c3 e03b       | ;  |		Load	0x0,0x3b
04c4 0257       | W  |		Execute	Discrete,Raise
04c5 00db       |    |		Load_Top	At_Offset_3
04c6 c03c       | <  |		Store	0x0,0x3c
04c7 e5fd       |    |		Load	0x2,-0x3
04c8 c03d       | =  |		Store	0x0,0x3d
04c9 00da       |    |		Load_Top	At_Offset_2
04ca c022       | "  |		Store	0x0,0x22
04cb 00da       |    |		Load_Top	At_Offset_2
04cc 8242       | B  |		Call	0x1,0x42
04cd 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04ce 0000 0000  |    |		.XXX[0x2]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d7       |    |		.CONST	0x04d7								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0003       |    |		.CONST	0x0003								; Number of locals
04d3			INIT_04d0:
04d3 029f 0a9b  |    |		Declare_Subprogram	INIT_0a98,For_Call
04d5 029f 0acb  |    |		Declare_Subprogram	INIT_0ac8,For_Call
04d7			BODY_04d0:
04d7 00cf       |    |		Action	Mark_Auxiliary
04d8 e010       |    |		Load	0x0,0x10
04d9 4801       |H   |		Short_Literal	0x1
04da 0263       | c  |		Execute	Discrete,Above_Bound
04db 700b       |p   |		Jump_Nonzero	0x4e7
04dc 00d8       |    |		Load_Top	At_Offset_0
04dd e011       |    |		Load	0x0,0x11
04de 01d5       |    |		Execute	Vector,Field_Reference
04df 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
04e0 e5f8       |    |		Load	0x2,-0x8
04e1 027f       |    |		Execute	Discrete,Equal
04e2 6802       |h   |		Jump_Zero	0x4e5
04e3 e224       | $  |		Load	0x1,0x24
04e4 0257       | W  |		Execute	Discrete,Raise
04e5 00c8       |    |		Action	Pop_Auxiliary_Range
04e6 3ff5       |?   |		Loop_Increasing	0x4dc
04e7 00ce       |    |		Action	Pop_Auxiliary
04e8 8403       |    |		Call	0x2,0x3
04e9 e5ff       |    |		Load	0x2,-0x1
04ea 8242       | B  |		Call	0x1,0x42
04eb 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
04ec 0000 0000  |    |		.BLANK	0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3       |    |		.CONST	0x04f3								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0001       |    |		.CONST	0x0001								; Number of locals
04f3			BODY_04f0:
04f3			INIT_04f0:
04f3 e5f9       |    |		Load	0x2,-0x7
04f4 e5fa       |    |		Load	0x2,-0x6
04f5 600a       |`   |		Indirect_Literal	Discrete,0x500,{0x00000000, 0x7fffffff}
04f6 e5fb       |    |		Load	0x2,-0x5
04f7 e5fc       |    |		Load	0x2,-0x4
04f8 e5fd       |    |		Load	0x2,-0x3
04f9 e5fe       |    |		Load	0x2,-0x2
04fa e5ff       |    |		Load	0x2,-0x1
04fb 824a       | J  |		Call	0x1,0x4a
04fc 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
04fd 0000 0000  |    |		.XXX[0x3]
04ff 0000       |    |
0500 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0504 0000 0000  |    |		.BLANK	0000[0x4]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			INIT_0508:
050b 00da       |    |		Load_Top	At_Offset_2
050c e02c       | ,  |		Load	0x0,0x2c
050d 01d7       |    |		Execute	Vector,Field_Read
050e e029       | )  |		Load	0x0,0x29
050f 027f       |    |		Execute	Discrete,Equal
0510 701e       |p   |		Jump_Nonzero	0x52f
0511 e029       | )  |		Load	0x0,0x29
0512 00db       |    |		Load_Top	At_Offset_3
0513 e02c       | ,  |		Load	0x0,0x2c
0514 01d6       |    |		Execute	Vector,Field_Write
0515 e016       |    |		Load	0x0,0x16
0516 0aff       |    |		Execute_Immediate	Plus,-0x1
0517 c016       |    |		Store	0x0,0x16
0518 00da       |    |		Load_Top	At_Offset_2
0519 e02b       | +  |		Load	0x0,0x2b
051a 027f       |    |		Execute	Discrete,Equal
051b 680f       |h   |		Jump_Zero	0x52b
051c 00cf       |    |		Action	Mark_Auxiliary
051d e02b       | +  |		Load	0x0,0x2b
051e 0aff       |    |		Execute_Immediate	Plus,-0x1
051f c02b       | +  |		Store	0x0,0x2b
0520 e02b       | +  |		Load	0x0,0x2b
0521 6808       |h   |		Jump_Zero	0x52a
0522 e02b       | +  |		Load	0x0,0x2b
0523 e02c       | ,  |		Load	0x0,0x2c
0524 01d7       |    |		Execute	Vector,Field_Read
0525 e029       | )  |		Load	0x0,0x29
0526 027f       |    |		Execute	Discrete,Equal
0527 6802       |h   |		Jump_Zero	0x52a
0528 00c9       |    |		Action	Pop_Auxiliary_Loop
0529 7ff3       |    |		Jump	0x51d
052a 00ce       |    |		Action	Pop_Auxiliary
052b e016       |    |		Load	0x0,0x16
052c 7002       |p   |		Jump_Nonzero	0x52f
052d e013       |    |		Load	0x0,0x13
052e 8242       | B  |		Call	0x1,0x42
052f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0535       | 5  |		.CONST	0x0535								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0002       |    |		.CONST	0x0002								; Number of locals
0533			INIT_0530:
0533 00e1       |    |		Load_Encached	Boolean_Cache
0534 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0535			BODY_0530:
0535 00cf       |    |		Action	Mark_Auxiliary
0536 e02b       | +  |		Load	0x0,0x2b
0537 4801       |H   |		Short_Literal	0x1
0538 0263       | c  |		Execute	Discrete,Above_Bound
0539 702d       |p-  |		Jump_Nonzero	0x567
053a 00d8       |    |		Load_Top	At_Offset_0
053b e02c       | ,  |		Load	0x0,0x2c
053c 01d7       |    |		Execute	Vector,Field_Read
053d e029       | )  |		Load	0x0,0x29
053e 027f       |    |		Execute	Discrete,Equal
053f 7025       |p%  |		Jump_Nonzero	0x565
0540 00d8       |    |		Load_Top	At_Offset_0
0541 e03e       | >  |		Load	0x0,0x3e
0542 01d5       |    |		Execute	Vector,Field_Reference
0543 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0544 e5ff       |    |		Load	0x2,-0x1
0545 027f       |    |		Execute	Discrete,Equal
0546 681e       |h   |		Jump_Zero	0x565
0547 e029       | )  |		Load	0x0,0x29
0548 00d9       |    |		Load_Top	At_Offset_1
0549 e02c       | ,  |		Load	0x0,0x2c
054a 01d6       |    |		Execute	Vector,Field_Write
054b e016       |    |		Load	0x0,0x16
054c 0aff       |    |		Execute_Immediate	Plus,-0x1
054d c016       |    |		Store	0x0,0x16
054e 4801       |H   |		Short_Literal	0x1
054f a402       |    |		Store_Unchecked	0x2,0x2
0550 00d8       |    |		Load_Top	At_Offset_0
0551 e02b       | +  |		Load	0x0,0x2b
0552 027f       |    |		Execute	Discrete,Equal
0553 6811       |h   |		Jump_Zero	0x565
0554 00cf       |    |		Action	Mark_Auxiliary
0555 e02b       | +  |		Load	0x0,0x2b
0556 0aff       |    |		Execute_Immediate	Plus,-0x1
0557 c02b       | +  |		Store	0x0,0x2b
0558 e02b       | +  |		Load	0x0,0x2b
0559 6808       |h   |		Jump_Zero	0x562
055a e02b       | +  |		Load	0x0,0x2b
055b e02c       | ,  |		Load	0x0,0x2c
055c 01d7       |    |		Execute	Vector,Field_Read
055d e029       | )  |		Load	0x0,0x29
055e 027f       |    |		Execute	Discrete,Equal
055f 6802       |h   |		Jump_Zero	0x562
0560 00c9       |    |		Action	Pop_Auxiliary_Loop
0561 7ff3       |    |		Jump	0x555
0562 00ce       |    |		Action	Pop_Auxiliary
0563 00d2       |    |		Pop_Control	Pop_Count_2
0564 7802       |x   |		Jump	0x567
0565 00c8       |    |		Action	Pop_Auxiliary_Range
0566 3fd3       |?   |		Loop_Increasing	0x53a
0567 00c9       |    |		Action	Pop_Auxiliary_Loop
0568 e02e       | .  |		Load	0x0,0x2e
0569 4801       |H   |		Short_Literal	0x1
056a 0263       | c  |		Execute	Discrete,Above_Bound
056b 7031       |p1  |		Jump_Nonzero	0x59d
056c 00d8       |    |		Load_Top	At_Offset_0
056d e02f       | /  |		Load	0x0,0x2f
056e 01d5       |    |		Execute	Vector,Field_Reference
056f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0570 e029       | )  |		Load	0x0,0x29
0571 027f       |    |		Execute	Discrete,Equal
0572 7028       |p(  |		Jump_Nonzero	0x59b
0573 00d8       |    |		Load_Top	At_Offset_0
0574 e02f       | /  |		Load	0x0,0x2f
0575 01d5       |    |		Execute	Vector,Field_Reference
0576 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0577 e5ff       |    |		Load	0x2,-0x1
0578 027f       |    |		Execute	Discrete,Equal
0579 6821       |h!  |		Jump_Zero	0x59b
057a e029       | )  |		Load	0x0,0x29
057b 00d9       |    |		Load_Top	At_Offset_1
057c e02f       | /  |		Load	0x0,0x2f
057d 01d5       |    |		Execute	Vector,Field_Reference
057e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
057f e030       | 0  |		Load	0x0,0x30
0580 0aff       |    |		Execute_Immediate	Plus,-0x1
0581 c030       | 0  |		Store	0x0,0x30
0582 00d8       |    |		Load_Top	At_Offset_0
0583 e02e       | .  |		Load	0x0,0x2e
0584 027f       |    |		Execute	Discrete,Equal
0585 6810       |h   |		Jump_Zero	0x596
0586 00cf       |    |		Action	Mark_Auxiliary
0587 e02e       | .  |		Load	0x0,0x2e
0588 0aff       |    |		Execute_Immediate	Plus,-0x1
0589 c02e       | .  |		Store	0x0,0x2e
058a e02e       | .  |		Load	0x0,0x2e
058b 6809       |h   |		Jump_Zero	0x595
058c e02e       | .  |		Load	0x0,0x2e
058d e02f       | /  |		Load	0x0,0x2f
058e 01d5       |    |		Execute	Vector,Field_Reference
058f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0590 e029       | )  |		Load	0x0,0x29
0591 027f       |    |		Execute	Discrete,Equal
0592 6802       |h   |		Jump_Zero	0x595
0593 00c9       |    |		Action	Pop_Auxiliary_Loop
0594 7ff2       |    |		Jump	0x587
0595 00ce       |    |		Action	Pop_Auxiliary
0596 00d8       |    |		Load_Top	At_Offset_0
0597 e02f       | /  |		Load	0x0,0x2f
0598 01d5       |    |		Execute	Vector,Field_Reference
0599 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
059a 8242       | B  |		Call	0x1,0x42
059b 00c8       |    |		Action	Pop_Auxiliary_Range
059c 3fcf       |?   |		Loop_Increasing	0x56c
059d 00ce       |    |		Action	Pop_Auxiliary
059e 00d8       |    |		Load_Top	At_Offset_0
059f 6804       |h   |		Jump_Zero	0x5a4
05a0 e016       |    |		Load	0x0,0x16
05a1 7002       |p   |		Jump_Nonzero	0x5a4
05a2 e013       |    |		Load	0x0,0x13
05a3 8242       | B  |		Call	0x1,0x42
05a4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05a5 0000 0000  |    |		.XXX[0x3]
05a7 0000       |    |
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab       |    |		.CONST	0x05ab								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0001       |    |		.CONST	0x0001								; Number of locals
05ab			BODY_05a8:
05ab			INIT_05a8:
05ab e032       | 2  |		Load	0x0,0x32
05ac 00db       |    |		Load_Top	At_Offset_3
05ad 027f       |    |		Execute	Discrete,Equal
05ae 6806       |h   |		Jump_Zero	0x5b5
05af 4800       |H   |		Short_Literal	0x0
05b0 c019       |    |		Store	0x0,0x19
05b1 e012       |    |		Load	0x0,0x12
05b2 c032       | 2  |		Store	0x0,0x32
05b3 e013       |    |		Load	0x0,0x13
05b4 8242       | B  |		Call	0x1,0x42
05b5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05b6 0000 0000  |    |		.XXX[0x2]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bd       |    |		.CONST	0x05bd								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0002       |    |		.CONST	0x0002								; Number of locals
05bb			INIT_05b8:
05bb e002       |    |		Load	0x0,0x2
05bc 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
05bd			BODY_05b8:
05bd e018       |    |		Load	0x0,0x18
05be e013       |    |		Load	0x0,0x13
05bf 027f       |    |		Execute	Discrete,Equal
05c0 700c       |p   |		Jump_Nonzero	0x5cd
05c1 e035       | 5  |		Load	0x0,0x35
05c2 e5ff       |    |		Load	0x2,-0x1
05c3 027f       |    |		Execute	Discrete,Equal
05c4 6808       |h   |		Jump_Zero	0x5cd
05c5 e018       |    |		Load	0x0,0x18
05c6 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
05c7 e013       |    |		Load	0x0,0x13
05c8 c018       |    |		Store	0x0,0x18
05c9 e012       |    |		Load	0x0,0x12
05ca c035       | 5  |		Store	0x0,0x35
05cb 00d8       |    |		Load_Top	At_Offset_0
05cc 8242       | B  |		Call	0x1,0x42
05cd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05ce 0000 0000  |    |		.XXX[0x2]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d5       |    |		.CONST	0x05d5								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0002       |    |		.CONST	0x0002								; Number of locals
05d3			INIT_05d0:
05d3 e002       |    |		Load	0x0,0x2
05d4 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
05d5			BODY_05d0:
05d5 e022       | "  |		Load	0x0,0x22
05d6 e013       |    |		Load	0x0,0x13
05d7 027f       |    |		Execute	Discrete,Equal
05d8 700c       |p   |		Jump_Nonzero	0x5e5
05d9 00db       |    |		Load_Top	At_Offset_3
05da e03d       | =  |		Load	0x0,0x3d
05db 027e       | ~  |		Execute	Discrete,Not_Equal
05dc 6802       |h   |		Jump_Zero	0x5df
05dd e225       | %  |		Load	0x1,0x25
05de 0257       | W  |		Execute	Discrete,Raise
05df e022       | "  |		Load	0x0,0x22
05e0 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
05e1 e013       |    |		Load	0x0,0x13
05e2 c022       | "  |		Store	0x0,0x22
05e3 00d8       |    |		Load_Top	At_Offset_0
05e4 8242       | B  |		Call	0x1,0x42
05e5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05e6 0000 0000  |    |		.XXX[0x2]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb       |    |		.CONST	0x05eb								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0001       |    |		.CONST	0x0001								; Number of locals
05eb			BODY_05e8:
05eb			INIT_05e8:
05eb 00cf       |    |		Action	Mark_Auxiliary
05ec e03f       | ?  |		Load	0x0,0x3f
05ed 4801       |H   |		Short_Literal	0x1
05ee 0263       | c  |		Execute	Discrete,Above_Bound
05ef 702a       |p*  |		Jump_Nonzero	0x61a
05f0 00d8       |    |		Load_Top	At_Offset_0
05f1 e040       | @  |		Load	0x0,0x40
05f2 01d5       |    |		Execute	Vector,Field_Reference
05f3 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
05f4 e5ff       |    |		Load	0x2,-0x1
05f5 027f       |    |		Execute	Discrete,Equal
05f6 6821       |h!  |		Jump_Zero	0x618
05f7 e012       |    |		Load	0x0,0x12
05f8 00d9       |    |		Load_Top	At_Offset_1
05f9 e040       | @  |		Load	0x0,0x40
05fa 01d5       |    |		Execute	Vector,Field_Reference
05fb 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
05fc e01e       |    |		Load	0x0,0x1e
05fd 0aff       |    |		Execute_Immediate	Plus,-0x1
05fe c01e       |    |		Store	0x0,0x1e
05ff 00d8       |    |		Load_Top	At_Offset_0
0600 e03f       | ?  |		Load	0x0,0x3f
0601 027f       |    |		Execute	Discrete,Equal
0602 6810       |h   |		Jump_Zero	0x613
0603 00cf       |    |		Action	Mark_Auxiliary
0604 e03f       | ?  |		Load	0x0,0x3f
0605 0aff       |    |		Execute_Immediate	Plus,-0x1
0606 c03f       | ?  |		Store	0x0,0x3f
0607 e03f       | ?  |		Load	0x0,0x3f
0608 6809       |h   |		Jump_Zero	0x612
0609 e03f       | ?  |		Load	0x0,0x3f
060a e040       | @  |		Load	0x0,0x40
060b 01d5       |    |		Execute	Vector,Field_Reference
060c 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
060d e012       |    |		Load	0x0,0x12
060e 027e       | ~  |		Execute	Discrete,Not_Equal
060f 7002       |p   |		Jump_Nonzero	0x612
0610 00c9       |    |		Action	Pop_Auxiliary_Loop
0611 7ff2       |    |		Jump	0x604
0612 00ce       |    |		Action	Pop_Auxiliary
0613 00d8       |    |		Load_Top	At_Offset_0
0614 e040       | @  |		Load	0x0,0x40
0615 01d5       |    |		Execute	Vector,Field_Reference
0616 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0617 8242       | B  |		Call	0x1,0x42
0618 00c8       |    |		Action	Pop_Auxiliary_Range
0619 3fd6       |?   |		Loop_Increasing	0x5f0
061a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
061b 0000 0000  |    |		.BLANK	0000[0x5]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0004       |    |		.CONST	0x0004								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 00cf       |    |		Action	Mark_Auxiliary
0624 e041       | A  |		Load	0x0,0x41
0625 4801       |H   |		Short_Literal	0x1
0626 0263       | c  |		Execute	Discrete,Above_Bound
0627 702a       |p*  |		Jump_Nonzero	0x652
0628 00d8       |    |		Load_Top	At_Offset_0
0629 e042       | B  |		Load	0x0,0x42
062a 01d5       |    |		Execute	Vector,Field_Reference
062b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
062c e5ff       |    |		Load	0x2,-0x1
062d 027f       |    |		Execute	Discrete,Equal
062e 6821       |h!  |		Jump_Zero	0x650
062f e012       |    |		Load	0x0,0x12
0630 00d9       |    |		Load_Top	At_Offset_1
0631 e042       | B  |		Load	0x0,0x42
0632 01d5       |    |		Execute	Vector,Field_Reference
0633 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0634 e01a       |    |		Load	0x0,0x1a
0635 0aff       |    |		Execute_Immediate	Plus,-0x1
0636 c01a       |    |		Store	0x0,0x1a
0637 00d8       |    |		Load_Top	At_Offset_0
0638 e041       | A  |		Load	0x0,0x41
0639 027f       |    |		Execute	Discrete,Equal
063a 6810       |h   |		Jump_Zero	0x64b
063b 00cf       |    |		Action	Mark_Auxiliary
063c e041       | A  |		Load	0x0,0x41
063d 0aff       |    |		Execute_Immediate	Plus,-0x1
063e c041       | A  |		Store	0x0,0x41
063f e041       | A  |		Load	0x0,0x41
0640 6809       |h   |		Jump_Zero	0x64a
0641 e041       | A  |		Load	0x0,0x41
0642 e042       | B  |		Load	0x0,0x42
0643 01d5       |    |		Execute	Vector,Field_Reference
0644 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0645 e012       |    |		Load	0x0,0x12
0646 027e       | ~  |		Execute	Discrete,Not_Equal
0647 7002       |p   |		Jump_Nonzero	0x64a
0648 00c9       |    |		Action	Pop_Auxiliary_Loop
0649 7ff2       |    |		Jump	0x63c
064a 00ce       |    |		Action	Pop_Auxiliary
064b 00d8       |    |		Load_Top	At_Offset_0
064c e042       | B  |		Load	0x0,0x42
064d 01d5       |    |		Execute	Vector,Field_Reference
064e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
064f 8242       | B  |		Call	0x1,0x42
0650 00c8       |    |		Action	Pop_Auxiliary_Range
0651 3fd6       |?   |		Loop_Increasing	0x628
0652 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0653 0000 0000  |    |		.BLANK	0000[0x5]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b       | [  |		.CONST	0x065b								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0001       |    |		.CONST	0x0001								; Number of locals
065b			BODY_0658:
065b			INIT_0658:
065b 00cf       |    |		Action	Mark_Auxiliary
065c e010       |    |		Load	0x0,0x10
065d 4801       |H   |		Short_Literal	0x1
065e 0263       | c  |		Execute	Discrete,Above_Bound
065f 7031       |p1  |		Jump_Nonzero	0x691
0660 00d8       |    |		Load_Top	At_Offset_0
0661 e011       |    |		Load	0x0,0x11
0662 01d5       |    |		Execute	Vector,Field_Reference
0663 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0664 e012       |    |		Load	0x0,0x12
0665 027e       | ~  |		Execute	Discrete,Not_Equal
0666 6828       |h(  |		Jump_Zero	0x68f
0667 00d8       |    |		Load_Top	At_Offset_0
0668 e011       |    |		Load	0x0,0x11
0669 01d5       |    |		Execute	Vector,Field_Reference
066a 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
066b e5ff       |    |		Load	0x2,-0x1
066c 027f       |    |		Execute	Discrete,Equal
066d 6821       |h!  |		Jump_Zero	0x68f
066e e012       |    |		Load	0x0,0x12
066f 00d9       |    |		Load_Top	At_Offset_1
0670 e011       |    |		Load	0x0,0x11
0671 01d5       |    |		Execute	Vector,Field_Reference
0672 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0673 e043       | C  |		Load	0x0,0x43
0674 0aff       |    |		Execute_Immediate	Plus,-0x1
0675 c043       | C  |		Store	0x0,0x43
0676 00d8       |    |		Load_Top	At_Offset_0
0677 e010       |    |		Load	0x0,0x10
0678 027f       |    |		Execute	Discrete,Equal
0679 6810       |h   |		Jump_Zero	0x68a
067a 00cf       |    |		Action	Mark_Auxiliary
067b e010       |    |		Load	0x0,0x10
067c 0aff       |    |		Execute_Immediate	Plus,-0x1
067d c010       |    |		Store	0x0,0x10
067e e010       |    |		Load	0x0,0x10
067f 6809       |h   |		Jump_Zero	0x689
0680 e010       |    |		Load	0x0,0x10
0681 e011       |    |		Load	0x0,0x11
0682 01d5       |    |		Execute	Vector,Field_Reference
0683 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0684 e012       |    |		Load	0x0,0x12
0685 027e       | ~  |		Execute	Discrete,Not_Equal
0686 7002       |p   |		Jump_Nonzero	0x689
0687 00c9       |    |		Action	Pop_Auxiliary_Loop
0688 7ff2       |    |		Jump	0x67b
0689 00ce       |    |		Action	Pop_Auxiliary
068a 00d8       |    |		Load_Top	At_Offset_0
068b e011       |    |		Load	0x0,0x11
068c 01d5       |    |		Execute	Vector,Field_Reference
068d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
068e 8242       | B  |		Call	0x1,0x42
068f 00c8       |    |		Action	Pop_Auxiliary_Range
0690 3fcf       |?   |		Loop_Increasing	0x660
0691 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0692 0000 0000  |    |		.BLANK	0000[0x6]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b       |    |		.CONST	0x069b								; Address of begin
0699 0004       |    |		.CONST	0x0004								; Address of exception handler
069a 0001       |    |		.CONST	0x0001								; Number of locals
069b			BODY_0698:
069b			INIT_0698:
069b 00db       |    |		Load_Top	At_Offset_3
069c 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
069d 680e       |h   |		Jump_Zero	0x6ac
069e 00db       |    |		Load_Top	At_Offset_3
069f 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
06a0 e5fd       |    |		Load	0x2,-0x3
06a1 027f       |    |		Execute	Discrete,Equal
06a2 6809       |h   |		Jump_Zero	0x6ac
06a3 4800       |H   |		Short_Literal	0x0
06a4 e5fe       |    |		Load	0x2,-0x2
06a5 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
06a6 e026       | &  |		Load	0x0,0x26
06a7 e5fe       |    |		Load	0x2,-0x2
06a8 e5ff       |    |		Load	0x2,-0x1
06a9 8232       | 2  |		Call	0x1,0x32
06aa 00d1       |    |		Pop_Control	Pop_Count_1
06ab c026       | &  |		Store	0x0,0x26
06ac 00db       |    |		Load_Top	At_Offset_3
06ad 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
06ae 680e       |h   |		Jump_Zero	0x6bd
06af 00db       |    |		Load_Top	At_Offset_3
06b0 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
06b1 e5fd       |    |		Load	0x2,-0x3
06b2 027f       |    |		Execute	Discrete,Equal
06b3 6809       |h   |		Jump_Zero	0x6bd
06b4 4800       |H   |		Short_Literal	0x0
06b5 e5fe       |    |		Load	0x2,-0x2
06b6 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
06b7 e026       | &  |		Load	0x0,0x26
06b8 e5fe       |    |		Load	0x2,-0x2
06b9 e5ff       |    |		Load	0x2,-0x1
06ba 8232       | 2  |		Call	0x1,0x32
06bb 00d1       |    |		Pop_Control	Pop_Count_1
06bc c026       | &  |		Store	0x0,0x26
06bd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06be 0000 0000  |    |		.XXX[0x2]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3       |    |		.CONST	0x06c3								; Address of begin
06c1 0004       |    |		.CONST	0x0004								; Address of exception handler
06c2 0001       |    |		.CONST	0x0001								; Number of locals
06c3			BODY_06c0:
06c3			BODY_06c0:
06c3			INIT_06c0:
06c3			INIT_06c0:
06c3 e5fd       |    |		Load	0x2,-0x3
06c4 00e2       |    |		Load_Encached	Integer_Cache
06c5 025e       | ^  |		Execute	Discrete,Convert
06c6 e5fe       |    |		Load	0x2,-0x2
06c7 e5ff       |    |		Load	0x2,-0x1
06c8 e027       | '  |		Load	0x0,0x27
06c9 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
06ca 00d9       |    |		Load_Top	At_Offset_1
06cb 00d0       |    |		Action	Swap_Control
06cc 0260       | `  |		Execute	Discrete,In_Type
06cd 7001       |p   |		Jump_Nonzero	0x6cf
06ce 0801       |    |		Execute_Immediate	Raise,0x1
06cf 8254       | T  |		Call	0x1,0x54
06d0 00d1       |    |		Pop_Control	Pop_Count_1
06d1 c5fd       |    |		Store	0x2,-0x3
06d2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
06d3 0000 0000  |    |		.BLANK	0000[0x5]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db       |    |		.CONST	0x06db								; Address of begin
06d9 0004       |    |		.CONST	0x0004								; Address of exception handler
06da 0001       |    |		.CONST	0x0001								; Number of locals
06db			BODY_06d8:
06db			INIT_06d8:
06db e5fd       |    |		Load	0x2,-0x3
06dc 00d8       |    |		Load_Top	At_Offset_0
06dd 00e2       |    |		Load_Encached	Integer_Cache
06de 0260       | `  |		Execute	Discrete,In_Type
06df 7001       |p   |		Jump_Nonzero	0x6e1
06e0 0801       |    |		Execute_Immediate	Raise,0x1
06e1 e5fe       |    |		Load	0x2,-0x2
06e2 e5ff       |    |		Load	0x2,-0x1
06e3 e027       | '  |		Load	0x0,0x27
06e4 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
06e5 00d9       |    |		Load_Top	At_Offset_1
06e6 00d0       |    |		Action	Swap_Control
06e7 0260       | `  |		Execute	Discrete,In_Type
06e8 7001       |p   |		Jump_Nonzero	0x6ea
06e9 0801       |    |		Execute_Immediate	Raise,0x1
06ea 8028       | (  |		Call	0x0,0x28
06eb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
06ec 0000 0000  |    |		.BLANK	0000[0x4]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f6       |    |		.CONST	0x06f6								; Address of begin
06f1 06ff       |    |		.CONST	0x06ff								; Address of exception handler
06f2 0002       |    |		.CONST	0x0002								; Number of locals
06f3			INIT_06f0:
06f3 00db       |    |		Load_Top	At_Offset_3
06f4 00e2       |    |		Load_Encached	Integer_Cache
06f5 03f1       |    |		Declare_Variable	Discrete,With_Value
06f6			BODY_06f0:
06f6 00d8       |    |		Load_Top	At_Offset_0
06f7 e5ff       |    |		Load	0x2,-0x1
06f8 e25e       | ^  |		Load	0x1,0x5e
06f9 1d5f       | _  |		Execute_Immediate	Reference_Lex_1,0x5f
06fa e260       | `  |		Load	0x1,0x60
06fb 1d61       | a  |		Execute_Immediate	Reference_Lex_1,0x61
06fc 8003       |    |		Call	0x0,0x3
06fd 0059       | Y  |		Store_Top	Discrete,At_Offset_1
06fe 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06ff			TRAP_06f0:
06ff 0007       |    |		Action	Break_Optional
0700 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0701 0000 0000  |    |		.BLANK	0000[0x7]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0710       |    |		.CONST	0x0710								; Address of begin
0709 0004       |    |		.CONST	0x0004								; Address of exception handler
070a 0003       |    |		.CONST	0x0003								; Number of locals
070b			INIT_0708:
070b 00da       |    |		Load_Top	At_Offset_2
070c 00e2       |    |		Load_Encached	Integer_Cache
070d 03f1       |    |		Declare_Variable	Discrete,With_Value
070e 029f 0af3  |    |		Declare_Subprogram	INIT_0af0,For_Call
0710			BODY_0708:
0710 e044       | D  |		Load	0x0,0x44
0711 e5ff       |    |		Load	0x2,-0x1
0712 027f       |    |		Execute	Discrete,Equal
0713 6804       |h   |		Jump_Zero	0x718
0714 4800       |H   |		Short_Literal	0x0
0715 c045       | E  |		Store	0x0,0x45
0716 e012       |    |		Load	0x0,0x12
0717 c044       | D  |		Store	0x0,0x44
0718 e5ff       |    |		Load	0x2,-0x1
0719 824d       | M  |		Call	0x1,0x4d
071a e5ff       |    |		Load	0x2,-0x1
071b 824e       | N  |		Call	0x1,0x4e
071c e5ff       |    |		Load	0x2,-0x1
071d 824f       | O  |		Call	0x1,0x4f
071e 8403       |    |		Call	0x2,0x3
071f e5ff       |    |		Load	0x2,-0x1
0720 8253       | S  |		Call	0x1,0x53
0721 e5ff       |    |		Load	0x2,-0x1
0722 8251       | Q  |		Call	0x1,0x51
0723 e5ff       |    |		Load	0x2,-0x1
0724 8252       | R  |		Call	0x1,0x52
0725 00d9       |    |		Load_Top	At_Offset_1
0726 e026       | &  |		Load	0x0,0x26
0727 e257       | W  |		Load	0x1,0x57
0728 e258       | X  |		Load	0x1,0x58
0729 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
072a 1d5a       | Z  |		Execute_Immediate	Reference_Lex_1,0x5a
072b 1d5b       | [  |		Execute_Immediate	Reference_Lex_1,0x5b
072c 8006       |    |		Call	0x0,0x6
072d 005a       | Z  |		Store_Top	Discrete,At_Offset_2
072e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
072f 0000       |    |		.XXX[0x1]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733       | 3  |		.CONST	0x0733								; Address of begin
0731 0004       |    |		.CONST	0x0004								; Address of exception handler
0732 0001       |    |		.CONST	0x0001								; Number of locals
0733			BODY_0730:
0733			INIT_0730:
0733 4800       |H   |		Short_Literal	0x0
0734 e5fe       |    |		Load	0x2,-0x2
0735 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0736 4800       |H   |		Short_Literal	0x0
0737 e5fe       |    |		Load	0x2,-0x2
0738 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0739 4800       |H   |		Short_Literal	0x0
073a e5fe       |    |		Load	0x2,-0x2
073b 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
073c 4800       |H   |		Short_Literal	0x0
073d e5fe       |    |		Load	0x2,-0x2
073e 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
073f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743       | C  |		.CONST	0x0743								; Address of begin
0741 0004       |    |		.CONST	0x0004								; Address of exception handler
0742 0001       |    |		.CONST	0x0001								; Number of locals
0743			BODY_0740:
0743			INIT_0740:
0743 e5fd       |    |		Load	0x2,-0x3
0744 00e2       |    |		Load_Encached	Integer_Cache
0745 025e       | ^  |		Execute	Discrete,Convert
0746 e5fe       |    |		Load	0x2,-0x2
0747 e5ff       |    |		Load	0x2,-0x1
0748 e027       | '  |		Load	0x0,0x27
0749 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
074a 00d9       |    |		Load_Top	At_Offset_1
074b 00d0       |    |		Action	Swap_Control
074c 0260       | `  |		Execute	Discrete,In_Type
074d 7001       |p   |		Jump_Nonzero	0x74f
074e 0801       |    |		Execute_Immediate	Raise,0x1
074f 8265       | e  |		Call	0x1,0x65
0750 00d1       |    |		Pop_Control	Pop_Count_1
0751 c5fd       |    |		Store	0x2,-0x3
0752 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0753 0000 0000  |    |		.BLANK	0000[0x5]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b       | [  |		.CONST	0x075b								; Address of begin
0759 0004       |    |		.CONST	0x0004								; Address of exception handler
075a 0001       |    |		.CONST	0x0001								; Number of locals
075b			BODY_0758:
075b			INIT_0758:
075b e5fd       |    |		Load	0x2,-0x3
075c 00d8       |    |		Load_Top	At_Offset_0
075d 00e2       |    |		Load_Encached	Integer_Cache
075e 0260       | `  |		Execute	Discrete,In_Type
075f 7001       |p   |		Jump_Nonzero	0x761
0760 0801       |    |		Execute_Immediate	Raise,0x1
0761 e5fe       |    |		Load	0x2,-0x2
0762 e5ff       |    |		Load	0x2,-0x1
0763 e027       | '  |		Load	0x0,0x27
0764 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0765 00d9       |    |		Load_Top	At_Offset_1
0766 00d0       |    |		Action	Swap_Control
0767 0260       | `  |		Execute	Discrete,In_Type
0768 7001       |p   |		Jump_Nonzero	0x76a
0769 0801       |    |		Execute_Immediate	Raise,0x1
076a 8028       | (  |		Call	0x0,0x28
076b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
076c 0000 0000  |    |		.BLANK	0000[0x4]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773       | s  |		.CONST	0x0773								; Address of begin
0771 0004       |    |		.CONST	0x0004								; Address of exception handler
0772 0001       |    |		.CONST	0x0001								; Number of locals
0773			BODY_0770:
0773			INIT_0770:
0773 4800       |H   |		Short_Literal	0x0
0774 c019       |    |		Store	0x0,0x19
0775 e013       |    |		Load	0x0,0x13
0776 c018       |    |		Store	0x0,0x18
0777 e013       |    |		Load	0x0,0x13
0778 c022       | "  |		Store	0x0,0x22
0779 4800       |H   |		Short_Literal	0x0
077a c02e       | .  |		Store	0x0,0x2e
077b 4800       |H   |		Short_Literal	0x0
077c c030       | 0  |		Store	0x0,0x30
077d 4800       |H   |		Short_Literal	0x0
077e c02b       | +  |		Store	0x0,0x2b
077f 4800       |H   |		Short_Literal	0x0
0780 c016       |    |		Store	0x0,0x16
0781 4800       |H   |		Short_Literal	0x0
0782 c03f       | ?  |		Store	0x0,0x3f
0783 4800       |H   |		Short_Literal	0x0
0784 c01e       |    |		Store	0x0,0x1e
0785 4800       |H   |		Short_Literal	0x0
0786 c010       |    |		Store	0x0,0x10
0787 4800       |H   |		Short_Literal	0x0
0788 c043       | C  |		Store	0x0,0x43
0789 4800       |H   |		Short_Literal	0x0
078a c041       | A  |		Store	0x0,0x41
078b 4800       |H   |		Short_Literal	0x0
078c c01a       |    |		Store	0x0,0x1a
078d 4800       |H   |		Short_Literal	0x0
078e e046       | F  |		Load	0x0,0x46
078f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0790 00cf       |    |		Action	Mark_Auxiliary
0791 e047       | G  |		Load	0x0,0x47
0792 01d9       |    |		Execute	Vector,Reverse_Bounds
0793 0007       |    |		Action	Break_Optional
0794 8048       | H  |		Call	0x0,0x48
0795 00d9       |    |		Load_Top	At_Offset_1
0796 e047       | G  |		Load	0x0,0x47
0797 01d6       |    |		Execute	Vector,Field_Write
0798 00c8       |    |		Action	Pop_Auxiliary_Range
0799 3ffa       |?   |		Loop_Increasing	0x794
079a 00ce       |    |		Action	Pop_Auxiliary
079b e026       | &  |		Load	0x0,0x26
079c 00d8       |    |		Load_Top	At_Offset_0
079d e268       | h  |		Load	0x1,0x68
079e e269       | i  |		Load	0x1,0x69
079f 1d6a       | j  |		Execute_Immediate	Reference_Lex_1,0x6a
07a0 1d6b       | k  |		Execute_Immediate	Reference_Lex_1,0x6b
07a1 1d6c       | l  |		Execute_Immediate	Reference_Lex_1,0x6c
07a2 8006       |    |		Call	0x0,0x6
07a3 c026       | &  |		Store	0x0,0x26
07a4 8049       | I  |		Call	0x0,0x49
07a5 8242       | B  |		Call	0x1,0x42
07a6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07a7 0000       |    |		.XXX[0x1]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07b1       |    |		.CONST	0x07b1								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0003       |    |		.CONST	0x0003								; Number of locals
07ab			INIT_07a8:
07ab e04a       | J  |		Load	0x0,0x4a
07ac 0322       | "  |		Declare_Variable	Record
07ad 00d8       |    |		Load_Top	At_Offset_0
07ae 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07af e04b       | K  |		Load	0x0,0x4b
07b0 0007       |    |		Action	Break_Optional
07b1			BODY_07a8:
07b1 e5fd       |    |		Load	0x2,-0x3
07b2 e04c       | L  |		Load	0x0,0x4c
07b3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
07b4 c5fd       |    |		Store	0x2,-0x3
07b5 e5ff       |    |		Load	0x2,-0x1
07b6 e035       | 5  |		Load	0x0,0x35
07b7 027f       |    |		Execute	Discrete,Equal
07b8 6803       |h   |		Jump_Zero	0x7bc
07b9 e033       | 3  |		Load	0x0,0x33
07ba a5fe       |    |		Store_Unchecked	0x2,-0x2
07bb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07bc e5ff       |    |		Load	0x2,-0x1
07bd e03d       | =  |		Load	0x0,0x3d
07be 027f       |    |		Execute	Discrete,Equal
07bf 6803       |h   |		Jump_Zero	0x7c3
07c0 e03c       | <  |		Load	0x0,0x3c
07c1 a5fe       |    |		Store_Unchecked	0x2,-0x2
07c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07c3 00cf       |    |		Action	Mark_Auxiliary
07c4 e02b       | +  |		Load	0x0,0x2b
07c5 4801       |H   |		Short_Literal	0x1
07c6 0263       | c  |		Execute	Discrete,Above_Bound
07c7 700f       |p   |		Jump_Nonzero	0x7d7
07c8 e5ff       |    |		Load	0x2,-0x1
07c9 00d9       |    |		Load_Top	At_Offset_1
07ca e03e       | >  |		Load	0x0,0x3e
07cb 01d5       |    |		Execute	Vector,Field_Reference
07cc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
07cd 027f       |    |		Execute	Discrete,Equal
07ce 6806       |h   |		Jump_Zero	0x7d5
07cf 00d8       |    |		Load_Top	At_Offset_0
07d0 e03e       | >  |		Load	0x0,0x3e
07d1 01d5       |    |		Execute	Vector,Field_Reference
07d2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07d3 a5fe       |    |		Store_Unchecked	0x2,-0x2
07d4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07d5 00c8       |    |		Action	Pop_Auxiliary_Range
07d6 3ff1       |?   |		Loop_Increasing	0x7c8
07d7 00c9       |    |		Action	Pop_Auxiliary_Loop
07d8 e02e       | .  |		Load	0x0,0x2e
07d9 4801       |H   |		Short_Literal	0x1
07da 0263       | c  |		Execute	Discrete,Above_Bound
07db 700f       |p   |		Jump_Nonzero	0x7eb
07dc e5ff       |    |		Load	0x2,-0x1
07dd 00d9       |    |		Load_Top	At_Offset_1
07de e02f       | /  |		Load	0x0,0x2f
07df 01d5       |    |		Execute	Vector,Field_Reference
07e0 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
07e1 027f       |    |		Execute	Discrete,Equal
07e2 6806       |h   |		Jump_Zero	0x7e9
07e3 00d8       |    |		Load_Top	At_Offset_0
07e4 e02f       | /  |		Load	0x0,0x2f
07e5 01d5       |    |		Execute	Vector,Field_Reference
07e6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
07e7 a5fe       |    |		Store_Unchecked	0x2,-0x2
07e8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07e9 00c8       |    |		Action	Pop_Auxiliary_Range
07ea 3ff1       |?   |		Loop_Increasing	0x7dc
07eb 00ce       |    |		Action	Pop_Auxiliary
07ec e04b       | K  |		Load	0x0,0x4b
07ed 804d       | M  |		Call	0x0,0x4d
07ee 0039       | 9  |		Store_Top	Access,At_Offset_1
07ef 00cf       |    |		Action	Mark_Auxiliary
07f0 7812       |x   |		Jump	0x803
07f1 00d9       |    |		Load_Top	At_Offset_1
07f2 804e       | N  |		Call	0x0,0x4e
07f3 804f       | O  |		Call	0x0,0x4f
07f4 00db       |    |		Load_Top	At_Offset_3
07f5 017d       | }  |		Execute	Record,Structure_Write
07f6 e5ff       |    |		Load	0x2,-0x1
07f7 00db       |    |		Load_Top	At_Offset_3
07f8 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
07f9 027f       |    |		Execute	Discrete,Equal
07fa 6804       |h   |		Jump_Zero	0x7ff
07fb 00da       |    |		Load_Top	At_Offset_2
07fc 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
07fd a5fe       |    |		Store_Unchecked	0x2,-0x2
07fe 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07ff 00d9       |    |		Load_Top	At_Offset_1
0800 8050       | P  |		Call	0x0,0x50
0801 003a       | :  |		Store_Top	Access,At_Offset_2
0802 00c9       |    |		Action	Pop_Auxiliary_Loop
0803 00d9       |    |		Load_Top	At_Offset_1
0804 8051       | Q  |		Call	0x0,0x51
0805 6feb       |o   |		Jump_Zero	0x7f1
0806 00ce       |    |		Action	Pop_Auxiliary
0807 4800       |H   |		Short_Literal	0x0
0808 a5fe       |    |		Store_Unchecked	0x2,-0x2
0809 e5fd       |    |		Load	0x2,-0x3
080a e223       | #  |		Load	0x1,0x23
080b e04c       | L  |		Load	0x0,0x4c
080c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
080d c5fd       |    |		Store	0x2,-0x3
080e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
080f 0000       |    |		.XXX[0x1]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0813       |    |		.CONST	0x0813								; Address of begin
0811 0004       |    |		.CONST	0x0004								; Address of exception handler
0812 0001       |    |		.CONST	0x0001								; Number of locals
0813			BODY_0810:
0813			INIT_0810:
0813 00db       |    |		Load_Top	At_Offset_3
0814 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0815 e5fd       |    |		Load	0x2,-0x3
0816 e00c       |    |		Load	0x0,0xc
0817 01d5       |    |		Execute	Vector,Field_Reference
0818 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0819 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
081a 0000 0000  |    |		.BLANK	0000[0x6]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0823       | #  |		.CONST	0x0823								; Address of begin
0821 0004       |    |		.CONST	0x0004								; Address of exception handler
0822 0001       |    |		.CONST	0x0001								; Number of locals
0823			BODY_0820:
0823			INIT_0820:
0823 e5fd       |    |		Load	0x2,-0x3
0824 e001       |    |		Load	0x0,0x1
0825 025e       | ^  |		Execute	Discrete,Convert
0826 e5fe       |    |		Load	0x2,-0x2
0827 e5ff       |    |		Load	0x2,-0x1
0828 e027       | '  |		Load	0x0,0x27
0829 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
082a 00d9       |    |		Load_Top	At_Offset_1
082b 00d0       |    |		Action	Swap_Control
082c 0260       | `  |		Execute	Discrete,In_Type
082d 7001       |p   |		Jump_Nonzero	0x82f
082e 0801       |    |		Execute_Immediate	Raise,0x1
082f 8270       | p  |		Call	0x1,0x70
0830 00d1       |    |		Pop_Control	Pop_Count_1
0831 c5fd       |    |		Store	0x2,-0x3
0832 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0833 0000 0000  |    |		.BLANK	0000[0x5]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 083e       | >  |		.CONST	0x083e								; Address of begin
0839 084a       | J  |		.CONST	0x084a								; Address of exception handler
083a 0002       |    |		.CONST	0x0002								; Number of locals
083b			INIT_0838:
083b 00da       |    |		Load_Top	At_Offset_2
083c e001       |    |		Load	0x0,0x1
083d 03f1       |    |		Declare_Variable	Discrete,With_Value
083e			BODY_0838:
083e 00d8       |    |		Load_Top	At_Offset_0
083f e5ff       |    |		Load	0x2,-0x1
0840 e00c       |    |		Load	0x0,0xc
0841 01d5       |    |		Execute	Vector,Field_Reference
0842 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0843 e272       | r  |		Load	0x1,0x72
0844 1d73       | s  |		Execute_Immediate	Reference_Lex_1,0x73
0845 e274       | t  |		Load	0x1,0x74
0846 1d75       | u  |		Execute_Immediate	Reference_Lex_1,0x75
0847 8003       |    |		Call	0x0,0x3
0848 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0849 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
084a			TRAP_0838:
084a e052       | R  |		Load	0x0,0x52
084b 010f       |    |		Execute	Exception,Equal
084c 6801       |h   |		Jump_Zero	0x84e
084d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
084e 0100       |    |		Execute	Exception,Raise
084f 0000       |    |		.XXX[0x1]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0853       | S  |		.CONST	0x0853								; Address of begin
0851 0004       |    |		.CONST	0x0004								; Address of exception handler
0852 0001       |    |		.CONST	0x0001								; Number of locals
0853			BODY_0850:
0853			INIT_0850:
0853 00da       |    |		Load_Top	At_Offset_2
0854 e5fe       |    |		Load	0x2,-0x2
0855 e00c       |    |		Load	0x0,0xc
0856 01d5       |    |		Execute	Vector,Field_Reference
0857 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0858 4801       |H   |		Short_Literal	0x1
0859 e5fe       |    |		Load	0x2,-0x2
085a e00c       |    |		Load	0x0,0xc
085b 01d5       |    |		Execute	Vector,Field_Reference
085c 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
085d 4800       |H   |		Short_Literal	0x0
085e e5fe       |    |		Load	0x2,-0x2
085f e00c       |    |		Load	0x0,0xc
0860 01d5       |    |		Execute	Vector,Field_Reference
0861 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0862 00db       |    |		Load_Top	At_Offset_3
0863 8277       | w  |		Call	0x1,0x77
0864 00db       |    |		Load_Top	At_Offset_3
0865 00db       |    |		Load_Top	At_Offset_3
0866 8053       | S  |		Call	0x0,0x53
0867 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b       | k  |		.CONST	0x086b								; Address of begin
0869 0004       |    |		.CONST	0x0004								; Address of exception handler
086a 0001       |    |		.CONST	0x0001								; Number of locals
086b			BODY_0868:
086b			INIT_0868:
086b 00cf       |    |		Action	Mark_Auxiliary
086c 4864       |Hd  |		Short_Literal	0x64
086d 4801       |H   |		Short_Literal	0x1
086e 0007       |    |		Action	Break_Optional
086f 00d8       |    |		Load_Top	At_Offset_0
0870 e00c       |    |		Load	0x0,0xc
0871 01d5       |    |		Execute	Vector,Field_Reference
0872 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0873 0d0f       |    |		Execute_Immediate	Less,0xf
0874 6809       |h   |		Jump_Zero	0x87e
0875 00d8       |    |		Load_Top	At_Offset_0
0876 e00c       |    |		Load	0x0,0xc
0877 01d5       |    |		Execute	Vector,Field_Reference
0878 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0879 0a01       |    |		Execute_Immediate	Plus,0x1
087a 00d9       |    |		Load_Top	At_Offset_1
087b e00c       |    |		Load	0x0,0xc
087c 01d5       |    |		Execute	Vector,Field_Reference
087d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
087e 00c8       |    |		Action	Pop_Auxiliary_Range
087f 3fef       |?   |		Loop_Increasing	0x86f
0880 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0881 0000 0000  |    |		.BLANK	0000[0x7]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088e       |    |		.CONST	0x088e								; Address of begin
0889 08ea       |    |		.CONST	0x08ea								; Address of exception handler
088a 0003       |    |		.CONST	0x0003								; Number of locals
088b			INIT_0888:
088b 00e2       |    |		Load_Encached	Integer_Cache
088c e002       |    |		Load	0x0,0x2
088d 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
088e			BODY_0888:
088e 00cf       |    |		Action	Mark_Auxiliary
088f 4864       |Hd  |		Short_Literal	0x64
0890 4801       |H   |		Short_Literal	0x1
0891 0007       |    |		Action	Break_Optional
0892 00d8       |    |		Load_Top	At_Offset_0
0893 e00c       |    |		Load	0x0,0xc
0894 01d5       |    |		Execute	Vector,Field_Reference
0895 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0896 7005       |p   |		Jump_Nonzero	0x89c
0897 00d8       |    |		Load_Top	At_Offset_0
0898 e5ff       |    |		Load	0x2,-0x1
0899 8278       | x  |		Call	0x1,0x78
089a 00d8       |    |		Load_Top	At_Offset_0
089b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
089c 00d8       |    |		Load_Top	At_Offset_0
089d e00c       |    |		Load	0x0,0xc
089e 01d5       |    |		Execute	Vector,Field_Reference
089f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
08a0 a403       |    |		Store_Unchecked	0x2,0x3
08a1 00db       |    |		Load_Top	At_Offset_3
08a2 e002       |    |		Load	0x0,0x2
08a3 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
08a4 7005       |p   |		Jump_Nonzero	0x8aa
08a5 00d8       |    |		Load_Top	At_Offset_0
08a6 e5ff       |    |		Load	0x2,-0x1
08a7 8278       | x  |		Call	0x1,0x78
08a8 00d8       |    |		Load_Top	At_Offset_0
08a9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08aa 00db       |    |		Load_Top	At_Offset_3
08ab e002       |    |		Load	0x0,0x2
08ac 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
08ad 0b0d       |    |		Execute_Immediate	Case_Compare,0xd
08ae 7003       |p   |		Jump_Nonzero	0x8b2
08af 0f07       |    |		Execute_Immediate	Equal,0x7
08b0 7002       |p   |		Jump_Nonzero	0x8b3
08b1 7809       |x   |		Jump	0x8bb
08b2 00d1       |    |		Pop_Control	Pop_Count_1
08b3 4800       |H   |		Short_Literal	0x0
08b4 e403       |    |		Load	0x2,0x3
08b5 8053       | S  |		Call	0x0,0x53
08b6 00d8       |    |		Load_Top	At_Offset_0
08b7 e5ff       |    |		Load	0x2,-0x1
08b8 8278       | x  |		Call	0x1,0x78
08b9 00d8       |    |		Load_Top	At_Offset_0
08ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08bb 00c8       |    |		Action	Pop_Auxiliary_Range
08bc 3fd5       |?   |		Loop_Increasing	0x892
08bd 00ce       |    |		Action	Pop_Auxiliary
08be 4800       |H   |		Short_Literal	0x0
08bf 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
08c0 00cf       |    |		Action	Mark_Auxiliary
08c1 e226       | &  |		Load	0x1,0x26
08c2 4864       |Hd  |		Short_Literal	0x64
08c3 026e       | n  |		Execute	Discrete,Modulo
08c4 0a01       |    |		Execute_Immediate	Plus,0x1
08c5 c226       | &  |		Store	0x1,0x26
08c6 e226       | &  |		Load	0x1,0x26
08c7 e00c       |    |		Load	0x0,0xc
08c8 01d5       |    |		Execute	Vector,Field_Reference
08c9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
08ca 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
08cb e226       | &  |		Load	0x1,0x26
08cc e00c       |    |		Load	0x0,0xc
08cd 01d5       |    |		Execute	Vector,Field_Reference
08ce 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
08cf 680d       |h   |		Jump_Zero	0x8dd
08d0 e5ff       |    |		Load	0x2,-0x1
08d1 e226       | &  |		Load	0x1,0x26
08d2 e00c       |    |		Load	0x0,0xc
08d3 01d5       |    |		Execute	Vector,Field_Reference
08d4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
08d5 4800       |H   |		Short_Literal	0x0
08d6 00da       |    |		Load_Top	At_Offset_2
08d7 8053       | S  |		Call	0x0,0x53
08d8 e226       | &  |		Load	0x1,0x26
08d9 e5ff       |    |		Load	0x2,-0x1
08da 8278       | x  |		Call	0x1,0x78
08db e226       | &  |		Load	0x1,0x26
08dc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08dd 00da       |    |		Load_Top	At_Offset_2
08de 0a01       |    |		Execute_Immediate	Plus,0x1
08df 005b       | [  |		Store_Top	Discrete,At_Offset_3
08e0 00da       |    |		Load_Top	At_Offset_2
08e1 0cc9       |    |		Execute_Immediate	Greater_Equal,-0x37
08e2 6805       |h   |		Jump_Zero	0x8e8
08e3 8279       | y  |		Call	0x1,0x79
08e4 600b       |`   |		Indirect_Literal	Discrete,0x8f0,{0x00000000, 0x00002000}
08e5 00ba       |    |		Action	Initiate_Delay
08e6 4800       |H   |		Short_Literal	0x0
08e7 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
08e8 00c9       |    |		Action	Pop_Auxiliary_Loop
08e9 7fd7       |    |		Jump	0x8c1
08ea			TRAP_0888:
08ea 0007       |    |		Action	Break_Optional
08eb 4800       |H   |		Short_Literal	0x0
08ec 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
08ed 0000 0000  |    |		.XXX[0x3]
08ef 0000       |    |
08f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002000}
08f4 0000 0000  |    |		.BLANK	0000[0x4]
08f8 ; --------------------------------------------------------------------------------------
08f8 ; SUBPROGRAM
08f8 ; --------------------------------------------------------------------------------------
08f8 08fb       |    |		.CONST	0x08fb								; Address of begin
08f9 0004       |    |		.CONST	0x0004								; Address of exception handler
08fa 0001       |    |		.CONST	0x0001								; Number of locals
08fb			BODY_08f8:
08fb			INIT_08f8:
08fb 4100       |A   |		End_Rendezvous	0x0
08fc 0000 0000  |    |		.BLANK	0000[0x4]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0934       | 4  |		.CONST	0x0934								; Address of begin
0901 093d       | =  |		.CONST	0x093d								; Address of exception handler
0902 0002       |    |		.CONST	0x0002								; Number of locals
0903			INIT_0900:
0903 4822 495f  |H"I_|		Declare_Variable	Select	0x000, 0x016,
0905 4821 4960  |H!I`|				[0x000]: 0x000 = 0x0000,
0907 4820 4962  |H Ib|				[0x00d]: 0x180 = 0x0c00,
0909 481f 4963  |H Ic|				[0x00e]: 0x17e = 0x0bf0,
090b 481e 4964  |H Id|				[0x00f]: 0x17d = 0x0be8,
090d 481d 496a  |H Ij|				[0x010]: 0x17c = 0x0be0,
090f 481c 496b  |H Ik|				[0x011]: 0x17a = 0x0bd0,
0911 481b 496c  |H Il|				[0x012]: 0x178 = 0x0bc0,
0913 481a 496d  |H Im|				[0x013]: 0x176 = 0x0bb0,
0915 4819 496e  |H In|				[0x014]: 0x175 = 0x0ba8,
0917 4818 496f  |H Io|				[0x015]: 0x173 = 0x0b98,
0919 4817 4970  |H Ip|				[0x016]: 0x171 = 0x0b88,
091b 4816 4971  |H Iq|				[0x017]: 0x170 = 0x0b80,
091d 4815 4973  |H Is|				[0x018]: 0x16f = 0x0b78,
091f 4814 4975  |H Iu|				[0x019]: 0x16e = 0x0b70,
0921 4813 4976  |H Iv|				[0x01a]: 0x16d = 0x0b68,
0923 4812 4978  |H Ix|				[0x01b]: 0x16c = 0x0b60,
0925 4811 497a  |H Iz|				[0x01c]: 0x16b = 0x0b58,
0927 4810 497c  |H I||				[0x01d]: 0x16a = 0x0b50,
0929 480f 497d  |H I}|				[0x01e]: 0x164 = 0x0b20,
092b 480e 497e  |H I~|				[0x01f]: 0x163 = 0x0b18,
092d 480d 4980  |H I |				[0x020]: 0x162 = 0x0b10,
092f 4800 4800  |H H |				[0x021]: 0x160 = 0x0b00,
0931 4800 4816  |H H |				[0x022]: 0x15f = 0x0af8
0933 02cf       |    |
0934			BODY_0900:
0934 00cf       |    |		Action	Mark_Auxiliary
0935 7804       |x   |		Jump	0x93a
0936 00d9       |    |		Load_Top	At_Offset_1
0937 013f       | ?  |		Execute	Select,Rendezvous
0938 00d1       |    |		Pop_Control	Pop_Count_1
0939 00c9       |    |		Action	Pop_Auxiliary_Loop
093a e227       | '  |		Load	0x1,0x27
093b 77fa       |w   |		Jump_Nonzero	0x936
093c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
093d			TRAP_0900:
093d 0007       |    |		Action	Break_Optional
093e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
093f 0000       |    |		.XXX[0x1]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943       | C  |		.CONST	0x0943								; Address of begin
0941 0004       |    |		.CONST	0x0004								; Address of exception handler
0942 0001       |    |		.CONST	0x0001								; Number of locals
0943			BODY_0940:
0943			INIT_0940:
0943 00da       |    |		Load_Top	At_Offset_2
0944 e403       |    |		Load	0x2,0x3
0945 0279       | y  |		Execute	Discrete,And
0946 a403       |    |		Store_Unchecked	0x2,0x3
0947 e404       |    |		Load	0x2,0x4
0948 e7fe       |    |		Load	0x3,-0x2
0949 0279       | y  |		Execute	Discrete,And
094a a404       |    |		Store_Unchecked	0x2,0x4
094b e7fd       |    |		Load	0x3,-0x3
094c e402       |    |		Load	0x2,0x2
094d 822b       | +  |		Call	0x1,0x2b
094e a402       |    |		Store_Unchecked	0x2,0x2
094f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0953       | S  |		.CONST	0x0953								; Address of begin
0951 095c       | \  |		.CONST	0x095c								; Address of exception handler
0952 0001       |    |		.CONST	0x0001								; Number of locals
0953			BODY_0950:
0953			INIT_0950:
0953 e026       | &  |		Load	0x0,0x26
0954 e5ff       |    |		Load	0x2,-0x1
0955 e235       | 5  |		Load	0x1,0x35
0956 1d36       | 6  |		Execute_Immediate	Reference_Lex_1,0x36
0957 e237       | 7  |		Load	0x1,0x37
0958 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0959 8003       |    |		Call	0x0,0x3
095a c026       | &  |		Store	0x0,0x26
095b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
095c			TRAP_0950:
095c 0007       |    |		Action	Break_Optional
095d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
095e 0000 0000  |    |		.XXX[0x2]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0963       | c  |		.CONST	0x0963								; Address of begin
0961 0004       |    |		.CONST	0x0004								; Address of exception handler
0962 0001       |    |		.CONST	0x0001								; Number of locals
0963			BODY_0960:
0963			INIT_0960:
0963 e5fc       |    |		Load	0x2,-0x4
0964 00db       |    |		Load_Top	At_Offset_3
0965 e03e       | >  |		Load	0x0,0x3e
0966 01d5       |    |		Execute	Vector,Field_Reference
0967 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0968 e5fc       |    |		Load	0x2,-0x4
0969 00db       |    |		Load_Top	At_Offset_3
096a e03e       | >  |		Load	0x0,0x3e
096b 01d5       |    |		Execute	Vector,Field_Reference
096c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
096d e5fd       |    |		Load	0x2,-0x3
096e 00db       |    |		Load_Top	At_Offset_3
096f e03e       | >  |		Load	0x0,0x3e
0970 01d5       |    |		Execute	Vector,Field_Reference
0971 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0972 e5fa       |    |		Load	0x2,-0x6
0973 00db       |    |		Load_Top	At_Offset_3
0974 e03e       | >  |		Load	0x0,0x3e
0975 01d5       |    |		Execute	Vector,Field_Reference
0976 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0977 e5fb       |    |		Load	0x2,-0x5
0978 00db       |    |		Load_Top	At_Offset_3
0979 e03e       | >  |		Load	0x0,0x3e
097a 01d5       |    |		Execute	Vector,Field_Reference
097b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
097c e5fe       |    |		Load	0x2,-0x2
097d 00db       |    |		Load_Top	At_Offset_3
097e e02c       | ,  |		Load	0x0,0x2c
097f 01d6       |    |		Execute	Vector,Field_Write
0980 e016       |    |		Load	0x0,0x16
0981 0a01       |    |		Execute_Immediate	Plus,0x1
0982 c016       |    |		Store	0x0,0x16
0983 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0984 0000 0000  |    |		.BLANK	0000[0x4]
0988 ; --------------------------------------------------------------------------------------
0988 ; SUBPROGRAM
0988 ; --------------------------------------------------------------------------------------
0988 098b       |    |		.CONST	0x098b								; Address of begin
0989 0004       |    |		.CONST	0x0004								; Address of exception handler
098a 0001       |    |		.CONST	0x0001								; Number of locals
098b			BODY_0988:
098b			INIT_0988:
098b e5ff       |    |		Load	0x2,-0x1
098c 00db       |    |		Load_Top	At_Offset_3
098d e02f       | /  |		Load	0x0,0x2f
098e 01d5       |    |		Execute	Vector,Field_Reference
098f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0990 e5fc       |    |		Load	0x2,-0x4
0991 00db       |    |		Load_Top	At_Offset_3
0992 e02f       | /  |		Load	0x0,0x2f
0993 01d5       |    |		Execute	Vector,Field_Reference
0994 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0995 e5fc       |    |		Load	0x2,-0x4
0996 00db       |    |		Load_Top	At_Offset_3
0997 e02f       | /  |		Load	0x0,0x2f
0998 01d5       |    |		Execute	Vector,Field_Reference
0999 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
099a e5fd       |    |		Load	0x2,-0x3
099b 00db       |    |		Load_Top	At_Offset_3
099c e02f       | /  |		Load	0x0,0x2f
099d 01d5       |    |		Execute	Vector,Field_Reference
099e 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
099f e5fa       |    |		Load	0x2,-0x6
09a0 00db       |    |		Load_Top	At_Offset_3
09a1 e02f       | /  |		Load	0x0,0x2f
09a2 01d5       |    |		Execute	Vector,Field_Reference
09a3 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
09a4 e5fb       |    |		Load	0x2,-0x5
09a5 00db       |    |		Load_Top	At_Offset_3
09a6 e02f       | /  |		Load	0x0,0x2f
09a7 01d5       |    |		Execute	Vector,Field_Reference
09a8 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
09a9 e5fe       |    |		Load	0x2,-0x2
09aa 00db       |    |		Load_Top	At_Offset_3
09ab e02f       | /  |		Load	0x0,0x2f
09ac 01d5       |    |		Execute	Vector,Field_Reference
09ad 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
09ae e030       | 0  |		Load	0x0,0x30
09af 0a01       |    |		Execute_Immediate	Plus,0x1
09b0 c030       | 0  |		Store	0x0,0x30
09b1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09b2 0000 0000  |    |		.BLANK	0000[0x6]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb       |    |		.CONST	0x09bb								; Address of begin
09b9 0004       |    |		.CONST	0x0004								; Address of exception handler
09ba 0001       |    |		.CONST	0x0001								; Number of locals
09bb			BODY_09b8:
09bb			INIT_09b8:
09bb e5f9       |    |		Load	0x2,-0x7
09bc 00db       |    |		Load_Top	At_Offset_3
09bd e040       | @  |		Load	0x0,0x40
09be 01d5       |    |		Execute	Vector,Field_Reference
09bf 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
09c0 e5fe       |    |		Load	0x2,-0x2
09c1 00db       |    |		Load_Top	At_Offset_3
09c2 e040       | @  |		Load	0x0,0x40
09c3 01d5       |    |		Execute	Vector,Field_Reference
09c4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
09c5 e5fd       |    |		Load	0x2,-0x3
09c6 00db       |    |		Load_Top	At_Offset_3
09c7 e040       | @  |		Load	0x0,0x40
09c8 01d5       |    |		Execute	Vector,Field_Reference
09c9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
09ca e5fc       |    |		Load	0x2,-0x4
09cb 00db       |    |		Load_Top	At_Offset_3
09cc e040       | @  |		Load	0x0,0x40
09cd 01d5       |    |		Execute	Vector,Field_Reference
09ce 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
09cf e5fb       |    |		Load	0x2,-0x5
09d0 00db       |    |		Load_Top	At_Offset_3
09d1 e040       | @  |		Load	0x0,0x40
09d2 01d5       |    |		Execute	Vector,Field_Reference
09d3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
09d4 e5fa       |    |		Load	0x2,-0x6
09d5 00db       |    |		Load_Top	At_Offset_3
09d6 e040       | @  |		Load	0x0,0x40
09d7 01d5       |    |		Execute	Vector,Field_Reference
09d8 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
09d9 e01e       |    |		Load	0x0,0x1e
09da 0a01       |    |		Execute_Immediate	Plus,0x1
09db c01e       |    |		Store	0x0,0x1e
09dc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09dd 0000 0000  |    |		.XXX[0x3]
09df 0000       |    |
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09e3       |    |		.CONST	0x09e3								; Address of begin
09e1 0004       |    |		.CONST	0x0004								; Address of exception handler
09e2 0001       |    |		.CONST	0x0001								; Number of locals
09e3			BODY_09e0:
09e3			INIT_09e0:
09e3 00cf       |    |		Action	Mark_Auxiliary
09e4 e03f       | ?  |		Load	0x0,0x3f
09e5 4801       |H   |		Short_Literal	0x1
09e6 0263       | c  |		Execute	Discrete,Above_Bound
09e7 700a       |p   |		Jump_Nonzero	0x9f2
09e8 00d8       |    |		Load_Top	At_Offset_0
09e9 e040       | @  |		Load	0x0,0x40
09ea 01d5       |    |		Execute	Vector,Field_Reference
09eb 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
09ec e5fa       |    |		Load	0x2,-0x6
09ed 027f       |    |		Execute	Discrete,Equal
09ee 6801       |h   |		Jump_Zero	0x9f0
09ef 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09f0 00c8       |    |		Action	Pop_Auxiliary_Range
09f1 3ff6       |?   |		Loop_Increasing	0x9e8
09f2 00c9       |    |		Action	Pop_Auxiliary_Loop
09f3 e03f       | ?  |		Load	0x0,0x3f
09f4 4801       |H   |		Short_Literal	0x1
09f5 0263       | c  |		Execute	Discrete,Above_Bound
09f6 700c       |p   |		Jump_Nonzero	0xa03
09f7 00d8       |    |		Load_Top	At_Offset_0
09f8 e040       | @  |		Load	0x0,0x40
09f9 01d5       |    |		Execute	Vector,Field_Reference
09fa 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
09fb e012       |    |		Load	0x0,0x12
09fc 027f       |    |		Execute	Discrete,Equal
09fd 6803       |h   |		Jump_Zero	0xa01
09fe 00d8       |    |		Load_Top	At_Offset_0
09ff 8402       |    |		Call	0x2,0x2
0a00 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a01 00c8       |    |		Action	Pop_Auxiliary_Range
0a02 3ff4       |?   |		Loop_Increasing	0x9f7
0a03 00ce       |    |		Action	Pop_Auxiliary
0a04 e01e       |    |		Load	0x0,0x1e
0a05 0f14       |    |		Execute_Immediate	Equal,0x14
0a06 6802       |h   |		Jump_Zero	0xa09
0a07 e054       | T  |		Load	0x0,0x54
0a08 0257       | W  |		Execute	Discrete,Raise
0a09 e03f       | ?  |		Load	0x0,0x3f
0a0a 0a01       |    |		Execute_Immediate	Plus,0x1
0a0b 00d8       |    |		Load_Top	At_Offset_0
0a0c 00e3       |    |		Load_Encached	Natural_Cache
0a0d 0260       | `  |		Execute	Discrete,In_Type
0a0e 7001       |p   |		Jump_Nonzero	0xa10
0a0f 0801       |    |		Execute_Immediate	Raise,0x1
0a10 8402       |    |		Call	0x2,0x2
0a11 e03f       | ?  |		Load	0x0,0x3f
0a12 0a01       |    |		Execute_Immediate	Plus,0x1
0a13 c03f       | ?  |		Store	0x0,0x3f
0a14 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a15 0000 0000  |    |		.XXX[0x3]
0a17 0000       |    |
0a18 ; --------------------------------------------------------------------------------------
0a18 ; SUBPROGRAM
0a18 ; --------------------------------------------------------------------------------------
0a18 0a1b       |    |		.CONST	0x0a1b								; Address of begin
0a19 0004       |    |		.CONST	0x0004								; Address of exception handler
0a1a 0001       |    |		.CONST	0x0001								; Number of locals
0a1b			BODY_0a18:
0a1b			INIT_0a18:
0a1b e5ff       |    |		Load	0x2,-0x1
0a1c 00db       |    |		Load_Top	At_Offset_3
0a1d e042       | B  |		Load	0x0,0x42
0a1e 01d5       |    |		Execute	Vector,Field_Reference
0a1f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0a20 e5fe       |    |		Load	0x2,-0x2
0a21 00db       |    |		Load_Top	At_Offset_3
0a22 e042       | B  |		Load	0x0,0x42
0a23 01d5       |    |		Execute	Vector,Field_Reference
0a24 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a25 e5fd       |    |		Load	0x2,-0x3
0a26 00db       |    |		Load_Top	At_Offset_3
0a27 e042       | B  |		Load	0x0,0x42
0a28 01d5       |    |		Execute	Vector,Field_Reference
0a29 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0a2a 00db       |    |		Load_Top	At_Offset_3
0a2b e402       |    |		Load	0x2,0x2
0a2c 01d5       |    |		Execute	Vector,Field_Reference
0a2d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a2e 00db       |    |		Load_Top	At_Offset_3
0a2f e042       | B  |		Load	0x0,0x42
0a30 01d5       |    |		Execute	Vector,Field_Reference
0a31 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0a32 00db       |    |		Load_Top	At_Offset_3
0a33 e402       |    |		Load	0x2,0x2
0a34 01d5       |    |		Execute	Vector,Field_Reference
0a35 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0a36 00db       |    |		Load_Top	At_Offset_3
0a37 e042       | B  |		Load	0x0,0x42
0a38 01d5       |    |		Execute	Vector,Field_Reference
0a39 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0a3a e5f9       |    |		Load	0x2,-0x7
0a3b 00db       |    |		Load_Top	At_Offset_3
0a3c e042       | B  |		Load	0x0,0x42
0a3d 01d5       |    |		Execute	Vector,Field_Reference
0a3e 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0a3f e01a       |    |		Load	0x0,0x1a
0a40 0a01       |    |		Execute_Immediate	Plus,0x1
0a41 c01a       |    |		Store	0x0,0x1a
0a42 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0a43 0000 0000  |    |		.BLANK	0000[0x5]
0a48 ; --------------------------------------------------------------------------------------
0a48 ; SUBPROGRAM
0a48 ; --------------------------------------------------------------------------------------
0a48 0a4d       | M  |		.CONST	0x0a4d								; Address of begin
0a49 0004       |    |		.CONST	0x0004								; Address of exception handler
0a4a 0003       |    |		.CONST	0x0003								; Number of locals
0a4b			INIT_0a48:
0a4b 00e3       |    |		Load_Encached	Natural_Cache
0a4c 00e1       |    |		Load_Encached	Boolean_Cache
0a4d			BODY_0a48:
0a4d 00cf       |    |		Action	Mark_Auxiliary
0a4e e041       | A  |		Load	0x0,0x41
0a4f 4801       |H   |		Short_Literal	0x1
0a50 0263       | c  |		Execute	Discrete,Above_Bound
0a51 700a       |p   |		Jump_Nonzero	0xa5c
0a52 00d8       |    |		Load_Top	At_Offset_0
0a53 e042       | B  |		Load	0x0,0x42
0a54 01d5       |    |		Execute	Vector,Field_Reference
0a55 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0a56 e5f9       |    |		Load	0x2,-0x7
0a57 027f       |    |		Execute	Discrete,Equal
0a58 6801       |h   |		Jump_Zero	0xa5a
0a59 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a5a 00c8       |    |		Action	Pop_Auxiliary_Range
0a5b 3ff6       |?   |		Loop_Increasing	0xa52
0a5c 00ce       |    |		Action	Pop_Auxiliary
0a5d 4801       |H   |		Short_Literal	0x1
0a5e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0a5f 00cf       |    |		Action	Mark_Auxiliary
0a60 e403       |    |		Load	0x2,0x3
0a61 4801       |H   |		Short_Literal	0x1
0a62 0263       | c  |		Execute	Discrete,Above_Bound
0a63 7030       |p0  |		Jump_Nonzero	0xa94
0a64 4801       |H   |		Short_Literal	0x1
0a65 a603       |    |		Store_Unchecked	0x3,0x3
0a66 00cf       |    |		Action	Mark_Auxiliary
0a67 e041       | A  |		Load	0x0,0x41
0a68 e602       |    |		Load	0x3,0x2
0a69 0263       | c  |		Execute	Discrete,Above_Bound
0a6a 7013       |p   |		Jump_Nonzero	0xa7e
0a6b 00d8       |    |		Load_Top	At_Offset_0
0a6c e042       | B  |		Load	0x0,0x42
0a6d 01d5       |    |		Execute	Vector,Field_Reference
0a6e 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0a6f e012       |    |		Load	0x0,0x12
0a70 027f       |    |		Execute	Discrete,Equal
0a71 680a       |h   |		Jump_Zero	0xa7c
0a72 00db       |    |		Load_Top	At_Offset_3
0a73 00d9       |    |		Load_Top	At_Offset_1
0a74 8404       |    |		Call	0x2,0x4
0a75 00d8       |    |		Load_Top	At_Offset_0
0a76 0a01       |    |		Execute_Immediate	Plus,0x1
0a77 c602       |    |		Store	0x3,0x2
0a78 4800       |H   |		Short_Literal	0x0
0a79 a603       |    |		Store_Unchecked	0x3,0x3
0a7a 00d2       |    |		Pop_Control	Pop_Count_2
0a7b 7802       |x   |		Jump	0xa7e
0a7c 00c8       |    |		Action	Pop_Auxiliary_Range
0a7d 3fed       |?   |		Loop_Increasing	0xa6b
0a7e 00ce       |    |		Action	Pop_Auxiliary
0a7f 00db       |    |		Load_Top	At_Offset_3
0a80 6811       |h   |		Jump_Zero	0xa92
0a81 e01a       |    |		Load	0x0,0x1a
0a82 0f14       |    |		Execute_Immediate	Equal,0x14
0a83 6802       |h   |		Jump_Zero	0xa86
0a84 e055       | U  |		Load	0x0,0x55
0a85 0257       | W  |		Execute	Discrete,Raise
0a86 00d8       |    |		Load_Top	At_Offset_0
0a87 e041       | A  |		Load	0x0,0x41
0a88 0a01       |    |		Execute_Immediate	Plus,0x1
0a89 00d8       |    |		Load_Top	At_Offset_0
0a8a 00e3       |    |		Load_Encached	Natural_Cache
0a8b 0260       | `  |		Execute	Discrete,In_Type
0a8c 7001       |p   |		Jump_Nonzero	0xa8e
0a8d 0801       |    |		Execute_Immediate	Raise,0x1
0a8e 8404       |    |		Call	0x2,0x4
0a8f e041       | A  |		Load	0x0,0x41
0a90 0a01       |    |		Execute_Immediate	Plus,0x1
0a91 c041       | A  |		Store	0x0,0x41
0a92 00c8       |    |		Action	Pop_Auxiliary_Range
0a93 3fd0       |?   |		Loop_Increasing	0xa64
0a94 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a95 0000 0000  |    |		.XXX[0x3]
0a97 0000       |    |
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0a9b       |    |		.CONST	0x0a9b								; Address of begin
0a99 0004       |    |		.CONST	0x0004								; Address of exception handler
0a9a 0001       |    |		.CONST	0x0001								; Number of locals
0a9b			BODY_0a98:
0a9b			INIT_0a98:
0a9b e5ff       |    |		Load	0x2,-0x1
0a9c 00db       |    |		Load_Top	At_Offset_3
0a9d e011       |    |		Load	0x0,0x11
0a9e 01d5       |    |		Execute	Vector,Field_Reference
0a9f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0aa0 e5fe       |    |		Load	0x2,-0x2
0aa1 00db       |    |		Load_Top	At_Offset_3
0aa2 e011       |    |		Load	0x0,0x11
0aa3 01d5       |    |		Execute	Vector,Field_Reference
0aa4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0aa5 e5fa       |    |		Load	0x2,-0x6
0aa6 00db       |    |		Load_Top	At_Offset_3
0aa7 e011       |    |		Load	0x0,0x11
0aa8 01d5       |    |		Execute	Vector,Field_Reference
0aa9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0aaa e5fd       |    |		Load	0x2,-0x3
0aab 00db       |    |		Load_Top	At_Offset_3
0aac e011       |    |		Load	0x0,0x11
0aad 01d5       |    |		Execute	Vector,Field_Reference
0aae 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0aaf e5fc       |    |		Load	0x2,-0x4
0ab0 00db       |    |		Load_Top	At_Offset_3
0ab1 e011       |    |		Load	0x0,0x11
0ab2 01d5       |    |		Execute	Vector,Field_Reference
0ab3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0ab4 e5fb       |    |		Load	0x2,-0x5
0ab5 00db       |    |		Load_Top	At_Offset_3
0ab6 e011       |    |		Load	0x0,0x11
0ab7 01d5       |    |		Execute	Vector,Field_Reference
0ab8 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0ab9 e5f9       |    |		Load	0x2,-0x7
0aba 00db       |    |		Load_Top	At_Offset_3
0abb e011       |    |		Load	0x0,0x11
0abc 01d5       |    |		Execute	Vector,Field_Reference
0abd 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0abe e5f8       |    |		Load	0x2,-0x8
0abf 00db       |    |		Load_Top	At_Offset_3
0ac0 e011       |    |		Load	0x0,0x11
0ac1 01d5       |    |		Execute	Vector,Field_Reference
0ac2 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0ac3 e043       | C  |		Load	0x0,0x43
0ac4 0a01       |    |		Execute_Immediate	Plus,0x1
0ac5 c043       | C  |		Store	0x0,0x43
0ac6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ac7 0000       |    |		.XXX[0x1]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0acb       |    |		.CONST	0x0acb								; Address of begin
0ac9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aca 0001       |    |		.CONST	0x0001								; Number of locals
0acb			BODY_0ac8:
0acb			INIT_0ac8:
0acb 00cf       |    |		Action	Mark_Auxiliary
0acc e010       |    |		Load	0x0,0x10
0acd 4801       |H   |		Short_Literal	0x1
0ace 0263       | c  |		Execute	Discrete,Above_Bound
0acf 700c       |p   |		Jump_Nonzero	0xadc
0ad0 00d8       |    |		Load_Top	At_Offset_0
0ad1 e011       |    |		Load	0x0,0x11
0ad2 01d5       |    |		Execute	Vector,Field_Reference
0ad3 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0ad4 e012       |    |		Load	0x0,0x12
0ad5 027f       |    |		Execute	Discrete,Equal
0ad6 6803       |h   |		Jump_Zero	0xada
0ad7 00d8       |    |		Load_Top	At_Offset_0
0ad8 8402       |    |		Call	0x2,0x2
0ad9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ada 00c8       |    |		Action	Pop_Auxiliary_Range
0adb 3ff4       |?   |		Loop_Increasing	0xad0
0adc 00ce       |    |		Action	Pop_Auxiliary
0add e043       | C  |		Load	0x0,0x43
0ade 4990       |I   |		Short_Literal	0x190
0adf 027f       |    |		Execute	Discrete,Equal
0ae0 6802       |h   |		Jump_Zero	0xae3
0ae1 e056       | V  |		Load	0x0,0x56
0ae2 0257       | W  |		Execute	Discrete,Raise
0ae3 e010       |    |		Load	0x0,0x10
0ae4 0a01       |    |		Execute_Immediate	Plus,0x1
0ae5 00d8       |    |		Load_Top	At_Offset_0
0ae6 00e3       |    |		Load_Encached	Natural_Cache
0ae7 0260       | `  |		Execute	Discrete,In_Type
0ae8 7001       |p   |		Jump_Nonzero	0xaea
0ae9 0801       |    |		Execute_Immediate	Raise,0x1
0aea 8402       |    |		Call	0x2,0x2
0aeb e010       |    |		Load	0x0,0x10
0aec 0a01       |    |		Execute_Immediate	Plus,0x1
0aed c010       |    |		Store	0x0,0x10
0aee 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0aef 0000       |    |		.XXX[0x1]
0af0 ; --------------------------------------------------------------------------------------
0af0 ; SUBPROGRAM
0af0 ; --------------------------------------------------------------------------------------
0af0 0af3       |    |		.CONST	0x0af3								; Address of begin
0af1 0af6       |    |		.CONST	0x0af6								; Address of exception handler
0af2 0001       |    |		.CONST	0x0001								; Number of locals
0af3			BODY_0af0:
0af3			INIT_0af0:
0af3 e5ff       |    |		Load	0x2,-0x1
0af4 8250       | P  |		Call	0x1,0x50
0af5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0af6			TRAP_0af0:
0af6 0007       |    |		Action	Break_Optional
0af7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0af8 ; --------------------------------------------------------------------------------------
0af8 ; SUBPROGRAM
0af8 ; See instruction 0x02cf at 0x903, index=0x22
0af8 ; --------------------------------------------------------------------------------------
0af8 0afb       |    |		.CONST	0x0afb								; Address of begin
0af9 0004       |    |		.CONST	0x0004								; Address of exception handler
0afa 0001       |    |		.CONST	0x0001								; Number of locals
0afb			BODY_0af8:
0afb			INIT_0af8:
0afb 4800       |H   |		Short_Literal	0x0
0afc a227       | '  |		Store_Unchecked	0x1,0x27
0afd 4100       |A   |		End_Rendezvous	0x0
0afe 0000 0000  |    |		.XXX[0x2]
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; See instruction 0x02cf at 0x903, index=0x21
0b00 ; --------------------------------------------------------------------------------------
0b00 0b03       |    |		.CONST	0x0b03								; Address of begin
0b01 0004       |    |		.CONST	0x0004								; Address of exception handler
0b02 0001       |    |		.CONST	0x0001								; Number of locals
0b03			BODY_0b00:
0b03			INIT_0b00:
0b03 e7fc       |    |		Load	0x3,-0x4
0b04 00e3       |    |		Load_Encached	Natural_Cache
0b05 e7fe       |    |		Load	0x3,-0x2
0b06 826f       | o  |		Call	0x1,0x6f
0b07 c7fd       |    |		Store	0x3,-0x3
0b08 c7fc       |    |		Store	0x3,-0x4
0b09 4102       |A   |		End_Rendezvous	0x2
0b0a 0000 0000  |    |		.BLANK	0000[0x6]
0b10 ; --------------------------------------------------------------------------------------
0b10 ; SUBPROGRAM
0b10 ; See instruction 0x02cf at 0x903, index=0x20
0b10 ; --------------------------------------------------------------------------------------
0b10 0b13       |    |		.CONST	0x0b13								; Address of begin
0b11 0004       |    |		.CONST	0x0004								; Address of exception handler
0b12 0001       |    |		.CONST	0x0001								; Number of locals
0b13			BODY_0b10:
0b13			INIT_0b10:
0b13 4100       |A   |		End_Rendezvous	0x0
0b14 0000 0000  |    |		.BLANK	0000[0x4]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; See instruction 0x02cf at 0x903, index=0x1f
0b18 ; --------------------------------------------------------------------------------------
0b18 0b1b       |    |		.CONST	0x0b1b								; Address of begin
0b19 0004       |    |		.CONST	0x0004								; Address of exception handler
0b1a 0001       |    |		.CONST	0x0001								; Number of locals
0b1b			BODY_0b18:
0b1b			INIT_0b18:
0b1b 00db       |    |		Load_Top	At_Offset_3
0b1c 824c       | L  |		Call	0x1,0x4c
0b1d 4100       |A   |		End_Rendezvous	0x0
0b1e 0000 0000  |    |		.XXX[0x2]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; See instruction 0x02cf at 0x903, index=0x1e
0b20 ; --------------------------------------------------------------------------------------
0b20 0b23       | #  |		.CONST	0x0b23								; Address of begin
0b21 0004       |    |		.CONST	0x0004								; Address of exception handler
0b22 0001       |    |		.CONST	0x0001								; Number of locals
0b23			BODY_0b20:
0b23			INIT_0b20:
0b23 00db       |    |		Load_Top	At_Offset_3
0b24 e03e       | >  |		Load	0x0,0x3e
0b25 01d5       |    |		Execute	Vector,Field_Reference
0b26 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b27 0f01       |    |		Execute_Immediate	Equal,0x1
0b28 6814       |h   |		Jump_Zero	0xb3d
0b29 00db       |    |		Load_Top	At_Offset_3
0b2a e03e       | >  |		Load	0x0,0x3e
0b2b 01d5       |    |		Execute	Vector,Field_Reference
0b2c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0b2d a7fd       |    |		Store_Unchecked	0x3,-0x3
0b2e 00db       |    |		Load_Top	At_Offset_3
0b2f e03e       | >  |		Load	0x0,0x3e
0b30 01d5       |    |		Execute	Vector,Field_Reference
0b31 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0b32 6801       |h   |		Jump_Zero	0xb34
0b33 4101       |A   |		End_Rendezvous	0x1
0b34 00db       |    |		Load_Top	At_Offset_3
0b35 e03e       | >  |		Load	0x0,0x3e
0b36 01d5       |    |		Execute	Vector,Field_Reference
0b37 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0b38 e7fe       |    |		Load	0x3,-0x2
0b39 e03e       | >  |		Load	0x0,0x3e
0b3a 01d5       |    |		Execute	Vector,Field_Reference
0b3b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b3c 4101       |A   |		End_Rendezvous	0x1
0b3d e012       |    |		Load	0x0,0x12
0b3e a7fd       |    |		Store_Unchecked	0x3,-0x3
0b3f 00db       |    |		Load_Top	At_Offset_3
0b40 e03e       | >  |		Load	0x0,0x3e
0b41 01d5       |    |		Execute	Vector,Field_Reference
0b42 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b43 0aff       |    |		Execute_Immediate	Plus,-0x1
0b44 e7fe       |    |		Load	0x3,-0x2
0b45 e03e       | >  |		Load	0x0,0x3e
0b46 01d5       |    |		Execute	Vector,Field_Reference
0b47 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b48 4101       |A   |		End_Rendezvous	0x1
0b49 0000 0000  |    |		.BLANK	0000[0x7]
0b50 ; --------------------------------------------------------------------------------------
0b50 ; SUBPROGRAM
0b50 ; See instruction 0x02cf at 0x903, index=0x1d
0b50 ; --------------------------------------------------------------------------------------
0b50 0b53       | S  |		.CONST	0x0b53								; Address of begin
0b51 0004       |    |		.CONST	0x0004								; Address of exception handler
0b52 0001       |    |		.CONST	0x0001								; Number of locals
0b53			BODY_0b50:
0b53			INIT_0b50:
0b53 00db       |    |		Load_Top	At_Offset_3
0b54 8242       | B  |		Call	0x1,0x42
0b55 4100       |A   |		End_Rendezvous	0x0
0b56 0000 0000  |    |		.XXX[0x2]
0b58 ; --------------------------------------------------------------------------------------
0b58 ; SUBPROGRAM
0b58 ; See instruction 0x02cf at 0x903, index=0x1c
0b58 ; --------------------------------------------------------------------------------------
0b58 0b5b       | [  |		.CONST	0x0b5b								; Address of begin
0b59 0004       |    |		.CONST	0x0004								; Address of exception handler
0b5a 0001       |    |		.CONST	0x0001								; Number of locals
0b5b			BODY_0b58:
0b5b			INIT_0b58:
0b5b 00db       |    |		Load_Top	At_Offset_3
0b5c 824d       | M  |		Call	0x1,0x4d
0b5d 4100       |A   |		End_Rendezvous	0x0
0b5e 0000 0000  |    |		.XXX[0x2]
0b60 ; --------------------------------------------------------------------------------------
0b60 ; SUBPROGRAM
0b60 ; See instruction 0x02cf at 0x903, index=0x1b
0b60 ; --------------------------------------------------------------------------------------
0b60 0b63       | c  |		.CONST	0x0b63								; Address of begin
0b61 0004       |    |		.CONST	0x0004								; Address of exception handler
0b62 0001       |    |		.CONST	0x0001								; Number of locals
0b63			BODY_0b60:
0b63			INIT_0b60:
0b63 e7fd       |    |		Load	0x3,-0x3
0b64 e7fe       |    |		Load	0x3,-0x2
0b65 8263       | c  |		Call	0x1,0x63
0b66 4100       |A   |		End_Rendezvous	0x0
0b67 0000       |    |		.XXX[0x1]
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; See instruction 0x02cf at 0x903, index=0x1a
0b68 ; --------------------------------------------------------------------------------------
0b68 0b6b       | k  |		.CONST	0x0b6b								; Address of begin
0b69 0004       |    |		.CONST	0x0004								; Address of exception handler
0b6a 0001       |    |		.CONST	0x0001								; Number of locals
0b6b			BODY_0b68:
0b6b			INIT_0b68:
0b6b 826e       | n  |		Call	0x1,0x6e
0b6c 4100       |A   |		End_Rendezvous	0x0
0b6d 0000 0000  |    |		.XXX[0x3]
0b6f 0000       |    |
0b70 ; --------------------------------------------------------------------------------------
0b70 ; SUBPROGRAM
0b70 ; See instruction 0x02cf at 0x903, index=0x19
0b70 ; --------------------------------------------------------------------------------------
0b70 0b73       | s  |		.CONST	0x0b73								; Address of begin
0b71 0004       |    |		.CONST	0x0004								; Address of exception handler
0b72 0001       |    |		.CONST	0x0001								; Number of locals
0b73			BODY_0b70:
0b73			INIT_0b70:
0b73 00db       |    |		Load_Top	At_Offset_3
0b74 8250       | P  |		Call	0x1,0x50
0b75 4100       |A   |		End_Rendezvous	0x0
0b76 0000 0000  |    |		.XXX[0x2]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; See instruction 0x02cf at 0x903, index=0x18
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7b       | {  |		.CONST	0x0b7b								; Address of begin
0b79 0004       |    |		.CONST	0x0004								; Address of exception handler
0b7a 0001       |    |		.CONST	0x0001								; Number of locals
0b7b			BODY_0b78:
0b7b			INIT_0b78:
0b7b 00db       |    |		Load_Top	At_Offset_3
0b7c 8264       | d  |		Call	0x1,0x64
0b7d 4100       |A   |		End_Rendezvous	0x0
0b7e 0000 0000  |    |		.XXX[0x2]
0b80 ; --------------------------------------------------------------------------------------
0b80 ; SUBPROGRAM
0b80 ; See instruction 0x02cf at 0x903, index=0x17
0b80 ; --------------------------------------------------------------------------------------
0b80 0b83       |    |		.CONST	0x0b83								; Address of begin
0b81 0004       |    |		.CONST	0x0004								; Address of exception handler
0b82 0001       |    |		.CONST	0x0001								; Number of locals
0b83			BODY_0b80:
0b83			INIT_0b80:
0b83 00db       |    |		Load_Top	At_Offset_3
0b84 824e       | N  |		Call	0x1,0x4e
0b85 4100       |A   |		End_Rendezvous	0x0
0b86 0000 0000  |    |		.XXX[0x2]
0b88 ; --------------------------------------------------------------------------------------
0b88 ; SUBPROGRAM
0b88 ; See instruction 0x02cf at 0x903, index=0x16
0b88 ; --------------------------------------------------------------------------------------
0b88 0b8b       |    |		.CONST	0x0b8b								; Address of begin
0b89 0004       |    |		.CONST	0x0004								; Address of exception handler
0b8a 0001       |    |		.CONST	0x0001								; Number of locals
0b8b			BODY_0b88:
0b8b			INIT_0b88:
0b8b e7f8       |    |		Load	0x3,-0x8
0b8c e7f9       |    |		Load	0x3,-0x7
0b8d e7fa       |    |		Load	0x3,-0x6
0b8e e7fb       |    |		Load	0x3,-0x5
0b8f e7fc       |    |		Load	0x3,-0x4
0b90 e7fd       |    |		Load	0x3,-0x3
0b91 e7fe       |    |		Load	0x3,-0x2
0b92 824b       | K  |		Call	0x1,0x4b
0b93 4100       |A   |		End_Rendezvous	0x0
0b94 0000 0000  |    |		.BLANK	0000[0x4]
0b98 ; --------------------------------------------------------------------------------------
0b98 ; SUBPROGRAM
0b98 ; See instruction 0x02cf at 0x903, index=0x15
0b98 ; --------------------------------------------------------------------------------------
0b98 0b9b       |    |		.CONST	0x0b9b								; Address of begin
0b99 0004       |    |		.CONST	0x0004								; Address of exception handler
0b9a 0001       |    |		.CONST	0x0001								; Number of locals
0b9b			BODY_0b98:
0b9b			INIT_0b98:
0b9b e7f7       |    |		Load	0x3,-0x9
0b9c e7f8       |    |		Load	0x3,-0x8
0b9d e7f9       |    |		Load	0x3,-0x7
0b9e e7fa       |    |		Load	0x3,-0x6
0b9f e7fb       |    |		Load	0x3,-0x5
0ba0 e7fc       |    |		Load	0x3,-0x4
0ba1 e7fd       |    |		Load	0x3,-0x3
0ba2 e7fe       |    |		Load	0x3,-0x2
0ba3 824a       | J  |		Call	0x1,0x4a
0ba4 4100       |A   |		End_Rendezvous	0x0
0ba5 0000 0000  |    |		.XXX[0x3]
0ba7 0000       |    |
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; See instruction 0x02cf at 0x903, index=0x14
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bab       |    |		.CONST	0x0bab								; Address of begin
0ba9 0004       |    |		.CONST	0x0004								; Address of exception handler
0baa 0001       |    |		.CONST	0x0001								; Number of locals
0bab			BODY_0ba8:
0bab			INIT_0ba8:
0bab e7fc       |    |		Load	0x3,-0x4
0bac e7fd       |    |		Load	0x3,-0x3
0bad e7fe       |    |		Load	0x3,-0x2
0bae 8249       | I  |		Call	0x1,0x49
0baf 4100       |A   |		End_Rendezvous	0x0
0bb0 ; --------------------------------------------------------------------------------------
0bb0 ; SUBPROGRAM
0bb0 ; See instruction 0x02cf at 0x903, index=0x13
0bb0 ; --------------------------------------------------------------------------------------
0bb0 0bb3       |    |		.CONST	0x0bb3								; Address of begin
0bb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bb2 0001       |    |		.CONST	0x0001								; Number of locals
0bb3			BODY_0bb0:
0bb3			INIT_0bb0:
0bb3 e7f8       |    |		Load	0x3,-0x8
0bb4 e7f9       |    |		Load	0x3,-0x7
0bb5 e7fa       |    |		Load	0x3,-0x6
0bb6 e7fb       |    |		Load	0x3,-0x5
0bb7 e7fc       |    |		Load	0x3,-0x4
0bb8 e7fd       |    |		Load	0x3,-0x3
0bb9 e7fe       |    |		Load	0x3,-0x2
0bba 8248       | H  |		Call	0x1,0x48
0bbb 4100       |A   |		End_Rendezvous	0x0
0bbc 0000 0000  |    |		.BLANK	0000[0x4]
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; SUBPROGRAM
0bc0 ; See instruction 0x02cf at 0x903, index=0x12
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0bc3       |    |		.CONST	0x0bc3								; Address of begin
0bc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bc2 0001       |    |		.CONST	0x0001								; Number of locals
0bc3			BODY_0bc0:
0bc3			INIT_0bc0:
0bc3 e7f7       |    |		Load	0x3,-0x9
0bc4 e7f8       |    |		Load	0x3,-0x8
0bc5 e7f9       |    |		Load	0x3,-0x7
0bc6 e7fa       |    |		Load	0x3,-0x6
0bc7 e7fb       |    |		Load	0x3,-0x5
0bc8 e7fc       |    |		Load	0x3,-0x4
0bc9 e7fd       |    |		Load	0x3,-0x3
0bca e7fe       |    |		Load	0x3,-0x2
0bcb 8247       | G  |		Call	0x1,0x47
0bcc 4101       |A   |		End_Rendezvous	0x1
0bcd 0000 0000  |    |		.XXX[0x3]
0bcf 0000       |    |
0bd0 ; --------------------------------------------------------------------------------------
0bd0 ; SUBPROGRAM
0bd0 ; See instruction 0x02cf at 0x903, index=0x11
0bd0 ; --------------------------------------------------------------------------------------
0bd0 0bd3       |    |		.CONST	0x0bd3								; Address of begin
0bd1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bd2 0001       |    |		.CONST	0x0001								; Number of locals
0bd3			BODY_0bd0:
0bd3			INIT_0bd0:
0bd3 e7fa       |    |		Load	0x3,-0x6
0bd4 e7fb       |    |		Load	0x3,-0x5
0bd5 e7fc       |    |		Load	0x3,-0x4
0bd6 e7fd       |    |		Load	0x3,-0x3
0bd7 e7fe       |    |		Load	0x3,-0x2
0bd8 8246       | F  |		Call	0x1,0x46
0bd9 4101       |A   |		End_Rendezvous	0x1
0bda 0000 0000  |    |		.BLANK	0000[0x6]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
0be0 ; See instruction 0x02cf at 0x903, index=0x10
0be0 ; --------------------------------------------------------------------------------------
0be0 0be3       |    |		.CONST	0x0be3								; Address of begin
0be1 0004       |    |		.CONST	0x0004								; Address of exception handler
0be2 0001       |    |		.CONST	0x0001								; Number of locals
0be3			BODY_0be0:
0be3			INIT_0be0:
0be3 e7fd       |    |		Load	0x3,-0x3
0be4 e7fc       |    |		Load	0x3,-0x4
0be5 e7fe       |    |		Load	0x3,-0x2
0be6 8245       | E  |		Call	0x1,0x45
0be7 4102       |A   |		End_Rendezvous	0x2
0be8 ; --------------------------------------------------------------------------------------
0be8 ; SUBPROGRAM
0be8 ; See instruction 0x02cf at 0x903, index=0xf
0be8 ; --------------------------------------------------------------------------------------
0be8 0beb       |    |		.CONST	0x0beb								; Address of begin
0be9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bea 0001       |    |		.CONST	0x0001								; Number of locals
0beb			BODY_0be8:
0beb			INIT_0be8:
0beb 00db       |    |		Load_Top	At_Offset_3
0bec 8244       | D  |		Call	0x1,0x44
0bed 4100       |A   |		End_Rendezvous	0x0
0bee 0000 0000  |    |		.XXX[0x2]
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; See instruction 0x02cf at 0x903, index=0xe
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bf3       |    |		.CONST	0x0bf3								; Address of begin
0bf1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bf2 0001       |    |		.CONST	0x0001								; Number of locals
0bf3			BODY_0bf0:
0bf3			INIT_0bf0:
0bf3 e7f9       |    |		Load	0x3,-0x7
0bf4 e7fa       |    |		Load	0x3,-0x6
0bf5 e7fb       |    |		Load	0x3,-0x5
0bf6 e7fc       |    |		Load	0x3,-0x4
0bf7 e7fd       |    |		Load	0x3,-0x3
0bf8 e7fe       |    |		Load	0x3,-0x2
0bf9 8243       | C  |		Call	0x1,0x43
0bfa 4100       |A   |		End_Rendezvous	0x0
0bfb 0000 0000  |    |		.BLANK	0000[0x5]
0c00 ; --------------------------------------------------------------------------------------
0c00 ; SUBPROGRAM
0c00 ; See instruction 0x02cf at 0x903, index=0xd
0c00 ; --------------------------------------------------------------------------------------
0c00 0c03       |    |		.CONST	0x0c03								; Address of begin
0c01 0004       |    |		.CONST	0x0004								; Address of exception handler
0c02 0001       |    |		.CONST	0x0001								; Number of locals
0c03			BODY_0c00:
0c03			INIT_0c00:
0c03 00db       |    |		Load_Top	At_Offset_3
0c04 827a       | z  |		Call	0x1,0x7a
0c05 a7fd       |    |		Store_Unchecked	0x3,-0x3
0c06 4101       |A   |		End_Rendezvous	0x1
0c07 ; --------------------------------------------------------------------------------------
0c07 ; STRING TABLE
0c07 ; --------------------------------------------------------------------------------------
0c07 0004       |    |		.STRTAB	0x0004->0x0c09							; "Action not found"
0c08 0012       |    |		.STREND 0x0012->0x0c11
0c09 4163 7469  |Acti|		.STRTAB_STRINGS
0c11 0000 0000  |    |		.BLANK	0000[0x7]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; Debug Table
0c18 ; --------------------------------------------------------------------------------------
0c18 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0x8a9e,0x0000,0x0001,0x0000
0c1e 0000 0000  |    |		.BLANK	0000[0x1e2]