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

⟦2ee5f6315⟧

    Length: 10240 (0x2800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd

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 1300       |    |		.CONST	0x1300								; 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 800c       |    |		.CONST	0x800c								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x10c3, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 027c       | |  |		.CONST	0x027c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0089       |    |		.CONST	0x0089								; Number of locals
000b			INIT_0008:
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1
000c 4828       |H(  |		Short_Literal	0x28
000d e003       |    |		Load	0x0,0x3
000e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0010 4801       |H   |		Short_Literal	0x1
0011 035e       | ^  |		Declare_Type	Array,Defined,Visible
0012 4800       |H   |		Short_Literal	0x0
0013 4828       |H(  |		Short_Literal	0x28
0014 00e3       |    |		Load_Encached	Natural_Cache
0015 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0016 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0018 0093 0000  |    |		push_full_address	0x0
001a 6291       |b   |		Indirect_Literal	Discrete,0x2ac,{0x80000000, 0x00050000}
001b 0273       | s  |		Execute	Discrete,Plus
001c 0129       | )  |		Execute	Any,Make_Visible
001d 0093 0000  |    |		push_full_address	0x0
001f 6288       |b   |		Indirect_Literal	Discrete,0x2a8,{0x80000000, 0x00060000}
0020 0273       | s  |		Execute	Discrete,Plus
0021 0129       | )  |		Execute	Any,Make_Visible
0022 0093 0000  |    |		push_full_address	0x0
0024 627f       |b   |		Indirect_Literal	Discrete,0x2a4,{0x80000000, 0x00070000}
0025 0273       | s  |		Execute	Discrete,Plus
0026 0129       | )  |		Execute	Any,Make_Visible
0027 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
0029 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
002b 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
002d 029a 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call,Visible,Unelaborated
002f 0093 0000  |    |		push_full_address	0x0
0031 626e       |bn  |		Indirect_Literal	Discrete,0x2a0,{0x80000000, 0x00080000}
0032 0273       | s  |		Execute	Discrete,Plus
0033 0129       | )  |		Execute	Any,Make_Visible
0034 029a 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Outer_Call,Visible,Unelaborated
0036 0093 0000  |    |		push_full_address	0x0
0038 6263       |bc  |		Indirect_Literal	Discrete,0x29c,{0x80000000, 0x00090000}
0039 0273       | s  |		Execute	Discrete,Plus
003a 0129       | )  |		Execute	Any,Make_Visible
003b 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
003d 0093 0000  |    |		push_full_address	0x0
003f 6258       |bX  |		Indirect_Literal	Discrete,0x298,{0x80000000, 0x000a0000}
0040 0273       | s  |		Execute	Discrete,Plus
0041 0129       | )  |		Execute	Any,Make_Visible
0042 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
0044 0093 0000  |    |		push_full_address	0x0
0046 624d       |bM  |		Indirect_Literal	Discrete,0x294,{0x80000000, 0x000b0000}
0047 0273       | s  |		Execute	Discrete,Plus
0048 0129       | )  |		Execute	Any,Make_Visible
0049 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
004b 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
004d 029a 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Outer_Call,Visible,Unelaborated
004f 029a 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Visible,Unelaborated
0051 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0053 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0055 029a 0363  |   c|		Declare_Subprogram	INIT_0360,For_Outer_Call,Visible,Unelaborated
0057 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0059 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
005b 029a 03ab  |    |		Declare_Subprogram	INIT_03a8,For_Outer_Call,Visible,Unelaborated
005d 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
005f 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
0061 029a 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call,Visible,Unelaborated
0063 029a 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call,Visible,Unelaborated
0065 029a 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call,Visible,Unelaborated
0067 029a 05f3  |    |		Declare_Subprogram	INIT_05f0,For_Outer_Call,Visible,Unelaborated
0069 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
006b 00bf       |    |		Action	Accept_Activation
006c 4800       |H   |		Short_Literal	0x0
006d 4864       |Hd  |		Short_Literal	0x64
006e 00e3       |    |		Load_Encached	Natural_Cache
006f 03f8       |    |		Declare_Type	Discrete,Constrained
0070 4800       |H   |		Short_Literal	0x0
0071 480f       |H   |		Short_Literal	0xf
0072 00e3       |    |		Load_Encached	Natural_Cache
0073 03f8       |    |		Declare_Type	Discrete,Constrained
0074 e004       |    |		Load	0x0,0x4
0075 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0076 e004       |    |		Load	0x0,0x4
0077 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0078 00e3       |    |		Load_Encached	Natural_Cache
0079 e004       |    |		Load	0x0,0x4
007a 1b51       | Q  |		Execute	Package,Field_Read,Field_Number 0x51
007b e004       |    |		Load	0x0,0x4
007c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
007d e004       |    |		Load	0x0,0x4
007e 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
007f e004       |    |		Load	0x0,0x4
0080 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0081 e230       | 0  |		Load	0x1,0x30
0082 00e1       |    |		Load_Encached	Boolean_Cache
0083 00e1       |    |		Load_Encached	Boolean_Cache
0084 02a0       |    |		Declare_Subprogram	Null_Subprogram
0085 4805       |H   |		Short_Literal	0x5
0086 032d       | -  |		Declare_Type	Record,Defined
0087 4800       |H   |		Short_Literal	0x0
0088 4864       |Hd  |		Short_Literal	0x64
0089 00da       |    |		Load_Top	At_Offset_2
008a 02a0       |    |		Declare_Subprogram	Null_Subprogram
008b 4801       |H   |		Short_Literal	0x1
008c 035d       | ]  |		Declare_Type	Array,Defined
008d 00d8       |    |		Load_Top	At_Offset_0
008e 0337       | 7  |		Declare_Variable	Array
008f 00e5       |    |		Load_Encached	Long_Integer_Cache
0090 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0091 00e5       |    |		Load_Encached	Long_Integer_Cache
0092 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0093 00e5       |    |		Load_Encached	Long_Integer_Cache
0094 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0095 00e5       |    |		Load_Encached	Long_Integer_Cache
0096 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0097 00e5       |    |		Load_Encached	Long_Integer_Cache
0098 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0099 00e1       |    |		Load_Encached	Boolean_Cache
009a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
009b 4800       |H   |		Short_Literal	0x0
009c 4803       |H   |		Short_Literal	0x3
009d 029f 060b  |    |		Declare_Subprogram	INIT_0608,For_Call
009f 03fd       |    |		Declare_Type	Discrete,Defined
00a0 00e1       |    |		Load_Encached	Boolean_Cache
00a1 00e2       |    |		Load_Encached	Integer_Cache
00a2 e004       |    |		Load	0x0,0x4
00a3 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
00a4 00e3       |    |		Load_Encached	Natural_Cache
00a5 e004       |    |		Load	0x0,0x4
00a6 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
00a7 00e2       |    |		Load_Encached	Integer_Cache
00a8 e004       |    |		Load	0x0,0x4
00a9 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
00aa 00e3       |    |		Load_Encached	Natural_Cache
00ab 00e2       |    |		Load_Encached	Integer_Cache
00ac 00e4       |    |		Load_Encached	Positive_Cache
00ad 00e4       |    |		Load_Encached	Positive_Cache
00ae e005       |    |		Load	0x0,0x5
00af 00e2       |    |		Load_Encached	Integer_Cache
00b0 00e1       |    |		Load_Encached	Boolean_Cache
00b1 029f 0633  |   3|		Declare_Subprogram	INIT_0630,For_Call
00b3 4805       |H   |		Short_Literal	0x5
00b4 032d       | -  |		Declare_Type	Record,Defined
00b5 e004       |    |		Load	0x0,0x4
00b6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b7 e004       |    |		Load	0x0,0x4
00b8 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
00b9 00e4       |    |		Load_Encached	Positive_Cache
00ba 00e4       |    |		Load_Encached	Positive_Cache
00bb e005       |    |		Load	0x0,0x5
00bc 00e2       |    |		Load_Encached	Integer_Cache
00bd 00e1       |    |		Load_Encached	Boolean_Cache
00be 029f 0643  |   C|		Declare_Subprogram	INIT_0640,For_Call
00c0 4807       |H   |		Short_Literal	0x7
00c1 032d       | -  |		Declare_Type	Record,Defined
00c2 4801       |H   |		Short_Literal	0x1
00c3 4814       |H   |		Short_Literal	0x14
00c4 e004       |    |		Load	0x0,0x4
00c5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c6 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c7 4801       |H   |		Short_Literal	0x1
00c8 035d       | ]  |		Declare_Type	Array,Defined
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca 0337       | 7  |		Declare_Variable	Array
00cb 4801       |H   |		Short_Literal	0x1
00cc 4814       |H   |		Short_Literal	0x14
00cd e249       | I  |		Load	0x1,0x49
00ce 029f 0653  |   S|		Declare_Subprogram	INIT_0650,For_Call
00d0 4801       |H   |		Short_Literal	0x1
00d1 035d       | ]  |		Declare_Type	Array,Defined
00d2 00d8       |    |		Load_Top	At_Offset_0
00d3 0337       | 7  |		Declare_Variable	Array
00d4 00d8       |    |		Load_Top	At_Offset_0
00d5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d6 4800       |H   |		Short_Literal	0x0
00d7 4814       |H   |		Short_Literal	0x14
00d8 00e3       |    |		Load_Encached	Natural_Cache
00d9 03f8       |    |		Declare_Type	Discrete,Constrained
00da 4800       |H   |		Short_Literal	0x0
00db 4814       |H   |		Short_Literal	0x14
00dc 00e3       |    |		Load_Encached	Natural_Cache
00dd 03f8       |    |		Declare_Type	Discrete,Constrained
00de 4801       |H   |		Short_Literal	0x1
00df 481e       |H   |		Short_Literal	0x1e
00e0 e24a       | J  |		Load	0x1,0x4a
00e1 029f 067b  |   {|		Declare_Subprogram	INIT_0678,For_Call
00e3 4801       |H   |		Short_Literal	0x1
00e4 035d       | ]  |		Declare_Type	Array,Defined
00e5 00d8       |    |		Load_Top	At_Offset_0
00e6 0337       | 7  |		Declare_Variable	Array
00e7 00d8       |    |		Load_Top	At_Offset_0
00e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e9 4800       |H   |		Short_Literal	0x0
00ea 481e       |H   |		Short_Literal	0x1e
00eb 00e3       |    |		Load_Encached	Natural_Cache
00ec 03f8       |    |		Declare_Type	Discrete,Constrained
00ed 4800       |H   |		Short_Literal	0x0
00ee 481e       |H   |		Short_Literal	0x1e
00ef 00e3       |    |		Load_Encached	Natural_Cache
00f0 03f8       |    |		Declare_Type	Discrete,Constrained
00f1 e004       |    |		Load	0x0,0x4
00f2 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
00f3 e003       |    |		Load	0x0,0x3
00f4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f5 e005       |    |		Load	0x0,0x5
00f6 e006       |    |		Load	0x0,0x6
00f7 e007       |    |		Load	0x0,0x7
00f8 00e2       |    |		Load_Encached	Integer_Cache
00f9 029f 06a3  |    |		Declare_Subprogram	INIT_06a0,For_Call
00fb 4806       |H   |		Short_Literal	0x6
00fc 032d       | -  |		Declare_Type	Record,Defined
00fd 4801       |H   |		Short_Literal	0x1
00fe 4814       |H   |		Short_Literal	0x14
00ff 00da       |    |		Load_Top	At_Offset_2
0100 029f 06b3  |    |		Declare_Subprogram	INIT_06b0,For_Call
0102 4801       |H   |		Short_Literal	0x1
0103 035d       | ]  |		Declare_Type	Array,Defined
0104 00d8       |    |		Load_Top	At_Offset_0
0105 0337       | 7  |		Declare_Variable	Array
0106 00d8       |    |		Load_Top	At_Offset_0
0107 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0108 4800       |H   |		Short_Literal	0x0
0109 4814       |H   |		Short_Literal	0x14
010a 00e3       |    |		Load_Encached	Natural_Cache
010b 03f8       |    |		Declare_Type	Discrete,Constrained
010c 4800       |H   |		Short_Literal	0x0
010d 4814       |H   |		Short_Literal	0x14
010e 00e3       |    |		Load_Encached	Natural_Cache
010f 03f8       |    |		Declare_Type	Discrete,Constrained
0110 e004       |    |		Load	0x0,0x4
0111 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0112 e003       |    |		Load	0x0,0x3
0113 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0114 e004       |    |		Load	0x0,0x4
0115 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0116 e004       |    |		Load	0x0,0x4
0117 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0118 e005       |    |		Load	0x0,0x5
0119 00e2       |    |		Load_Encached	Integer_Cache
011a 029f 06db  |    |		Declare_Subprogram	INIT_06d8,For_Call
011c 4806       |H   |		Short_Literal	0x6
011d 032d       | -  |		Declare_Type	Record,Defined
011e 4801       |H   |		Short_Literal	0x1
011f 4814       |H   |		Short_Literal	0x14
0120 00da       |    |		Load_Top	At_Offset_2
0121 029f 06eb  |    |		Declare_Subprogram	INIT_06e8,For_Call
0123 4801       |H   |		Short_Literal	0x1
0124 035d       | ]  |		Declare_Type	Array,Defined
0125 00d8       |    |		Load_Top	At_Offset_0
0126 0337       | 7  |		Declare_Variable	Array
0127 00d8       |    |		Load_Top	At_Offset_0
0128 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0129 4800       |H   |		Short_Literal	0x0
012a 4814       |H   |		Short_Literal	0x14
012b 00e3       |    |		Load_Encached	Natural_Cache
012c 03f8       |    |		Declare_Type	Discrete,Constrained
012d 4800       |H   |		Short_Literal	0x0
012e 4814       |H   |		Short_Literal	0x14
012f 00e3       |    |		Load_Encached	Natural_Cache
0130 03f8       |    |		Declare_Type	Discrete,Constrained
0131 4801       |H   |		Short_Literal	0x1
0132 4be8       |K   |		Short_Literal	0x3e8
0133 00e5       |    |		Load_Encached	Long_Integer_Cache
0134 03f8       |    |		Declare_Type	Discrete,Constrained
0135 4800       |H   |		Short_Literal	0x0
0136 4be8       |K   |		Short_Literal	0x3e8
0137 00e5       |    |		Load_Encached	Long_Integer_Cache
0138 03f8       |    |		Declare_Type	Discrete,Constrained
0139 4801       |H   |		Short_Literal	0x1
013a 4be8       |K   |		Short_Literal	0x3e8
013b e008       |    |		Load	0x0,0x8
013c 029f 0713  |    |		Declare_Subprogram	INIT_0710,For_Call
013e 4801       |H   |		Short_Literal	0x1
013f 035d       | ]  |		Declare_Type	Array,Defined
0140 00e5       |    |		Load_Encached	Long_Integer_Cache
0141 02a0       |    |		Declare_Subprogram	Null_Subprogram
0142 4801       |H   |		Short_Literal	0x1
0143 032d       | -  |		Declare_Type	Record,Defined
0144 00d9       |    |		Load_Top	At_Offset_1
0145 0337       | 7  |		Declare_Variable	Array
0146 00d8       |    |		Load_Top	At_Offset_0
0147 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0148 00d9       |    |		Load_Top	At_Offset_1
0149 0322       | "  |		Declare_Variable	Record
014a e004       |    |		Load	0x0,0x4
014b 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
014c e009       |    |		Load	0x0,0x9
014d 00e3       |    |		Load_Encached	Natural_Cache
014e e005       |    |		Load	0x0,0x5
014f e006       |    |		Load	0x0,0x6
0150 e007       |    |		Load	0x0,0x7
0151 e003       |    |		Load	0x0,0x3
0152 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0153 00e2       |    |		Load_Encached	Integer_Cache
0154 029f 073b  |   ;|		Declare_Subprogram	INIT_0738,For_Call
0156 4808       |H   |		Short_Literal	0x8
0157 032d       | -  |		Declare_Type	Record,Defined
0158 4801       |H   |		Short_Literal	0x1
0159 4828       |H(  |		Short_Literal	0x28
015a 00da       |    |		Load_Top	At_Offset_2
015b 029f 074b  |   K|		Declare_Subprogram	INIT_0748,For_Call
015d 4801       |H   |		Short_Literal	0x1
015e 035d       | ]  |		Declare_Type	Array,Defined
015f 00d8       |    |		Load_Top	At_Offset_0
0160 0337       | 7  |		Declare_Variable	Array
0161 00d8       |    |		Load_Top	At_Offset_0
0162 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0163 4800       |H   |		Short_Literal	0x0
0164 4828       |H(  |		Short_Literal	0x28
0165 00e3       |    |		Load_Encached	Natural_Cache
0166 03f8       |    |		Declare_Type	Discrete,Constrained
0167 4800       |H   |		Short_Literal	0x0
0168 4828       |H(  |		Short_Literal	0x28
0169 00e3       |    |		Load_Encached	Natural_Cache
016a 03f8       |    |		Declare_Type	Discrete,Constrained
016b 4800       |H   |		Short_Literal	0x0
016c e002       |    |		Load	0x0,0x2
016d 0a05       |    |		Execute_Immediate	Plus,0x5
016e e001       |    |		Load	0x0,0x1
016f 01d7       |    |		Execute	Vector,Field_Read
0170 02a0       |    |		Declare_Subprogram	Null_Subprogram
0171 038e       |    |		Declare_Type	Package,Defined
0172 e001       |    |		Load	0x0,0x1
0173 e002       |    |		Load	0x0,0x2
0174 0a04       |    |		Execute_Immediate	Plus,0x4
0175 e001       |    |		Load	0x0,0x1
0176 01d7       |    |		Execute	Vector,Field_Read
0177 e261       | a  |		Load	0x1,0x61
0178 e260       | `  |		Load	0x1,0x60
0179 4804       |H   |		Short_Literal	0x4
017a e26a       | j  |		Load	0x1,0x6a
017b 020e       |    |		Execute	Module,Augment_Imports
017c 0387       |    |		Declare_Variable	Package
017d a00a       |    |		Store_Unchecked	0x0,0xa
017e e00b       |    |		Load	0x0,0xb
017f a00c       |    |		Store_Unchecked	0x0,0xc
0180 e006       |    |		Load	0x0,0x6
0181 e007       |    |		Load	0x0,0x7
0182 a00d       |    |		Store_Unchecked	0x0,0xd
0183 a00e       |    |		Store_Unchecked	0x0,0xe
0184 a00f       |    |		Store_Unchecked	0x0,0xf
0185 e010       |    |		Load	0x0,0x10
0186 a011       |    |		Store_Unchecked	0x0,0x11
0187 e012       |    |		Load	0x0,0x12
0188 e004       |    |		Load	0x0,0x4
0189 480c       |H   |		Short_Literal	0xc
018a e26a       | j  |		Load	0x1,0x6a
018b 020e       |    |		Execute	Module,Augment_Imports
018c 00d8       |    |		Load_Top	At_Offset_0
018d 020f       |    |		Execute	Module,Activate
018e 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
018f 00c7       |    |		Action	Elaborate_Subprogram
0190 4800       |H   |		Short_Literal	0x0
0191 e002       |    |		Load	0x0,0x2
0192 0a01       |    |		Execute_Immediate	Plus,0x1
0193 e001       |    |		Load	0x0,0x1
0194 01d7       |    |		Execute	Vector,Field_Read
0195 00f5       |    |		Load_Encached	Unused21
0196 037d       | }  |		Declare_Type	Task,Defined
0197 036f       | o  |		Declare_Variable	Task
0198 029d 0773  |   s|		Declare_Subprogram	INIT_0770,For_Outer_Call
019a 029d 0793  |    |		Declare_Subprogram	INIT_0790,For_Outer_Call
019c 029d 07c3  |    |		Declare_Subprogram	INIT_07c0,For_Outer_Call
019e 029d 07eb  |    |		Declare_Subprogram	INIT_07e8,For_Outer_Call
01a0 4800       |H   |		Short_Literal	0x0
01a1 0093 10ab  |    |		push_full_address	INIT_10a8
01a3 00f5       |    |		Load_Encached	Unused21
01a4 037d       | }  |		Declare_Type	Task,Defined
01a5 036f       | o  |		Declare_Variable	Task
01a6 e22f       | /  |		Load	0x1,0x2f
01a7 e004       |    |		Load	0x0,0x4
01a8 a013       |    |		Store_Unchecked	0x0,0x13
01a9 e014       |    |		Load	0x0,0x14
01aa e015       |    |		Load	0x0,0x15
01ab a016       |    |		Store_Unchecked	0x0,0x16
01ac e017       |    |		Load	0x0,0x17
01ad e018       |    |		Load	0x0,0x18
01ae e019       |    |		Load	0x0,0x19
01af e01a       |    |		Load	0x0,0x1a
01b0 e01b       |    |		Load	0x0,0x1b
01b1 e238       | 8  |		Load	0x1,0x38
01b2 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
01b3 e01c       |    |		Load	0x0,0x1c
01b4 a01d       |    |		Store_Unchecked	0x0,0x1d
01b5 1d68       | h  |		Execute_Immediate	Reference_Lex_1,0x68
01b6 e267       | g  |		Load	0x1,0x67
01b7 a01e       |    |		Store_Unchecked	0x0,0x1e
01b8 a011       |    |		Store_Unchecked	0x0,0x11
01b9 a01f       |    |		Store_Unchecked	0x0,0x1f
01ba a020       |    |		Store_Unchecked	0x0,0x20
01bb 1d6f       | o  |		Execute_Immediate	Reference_Lex_1,0x6f
01bc 1d50       | P  |		Execute_Immediate	Reference_Lex_1,0x50
01bd 1d6c       | l  |		Execute_Immediate	Reference_Lex_1,0x6c
01be 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
01bf 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
01c0 1d6d       | m  |		Execute_Immediate	Reference_Lex_1,0x6d
01c1 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
01c2 1d46       | F  |		Execute_Immediate	Reference_Lex_1,0x46
01c3 a021       | !  |		Store_Unchecked	0x0,0x21
01c4 a022       | "  |		Store_Unchecked	0x0,0x22
01c5 a023       | #  |		Store_Unchecked	0x0,0x23
01c6 a024       | $  |		Store_Unchecked	0x0,0x24
01c7 e025       | %  |		Load	0x0,0x25
01c8 a026       | &  |		Store_Unchecked	0x0,0x26
01c9 a027       | '  |		Store_Unchecked	0x0,0x27
01ca e212       |    |		Load	0x1,0x12
01cb 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
01cc e24c       | L  |		Load	0x1,0x4c
01cd e210       |    |		Load	0x1,0x10
01ce 1d53       | S  |		Execute_Immediate	Reference_Lex_1,0x53
01cf e252       | R  |		Load	0x1,0x52
01d0 1d54       | T  |		Execute_Immediate	Reference_Lex_1,0x54
01d1 e211       |    |		Load	0x1,0x11
01d2 1d41       | A  |		Execute_Immediate	Reference_Lex_1,0x41
01d3 1d43       | C  |		Execute_Immediate	Reference_Lex_1,0x43
01d4 1d44       | D  |		Execute_Immediate	Reference_Lex_1,0x44
01d5 1d45       | E  |		Execute_Immediate	Reference_Lex_1,0x45
01d6 e028       | (  |		Load	0x0,0x28
01d7 e029       | )  |		Load	0x0,0x29
01d8 e010       |    |		Load	0x0,0x10
01d9 a02a       | *  |		Store_Unchecked	0x0,0x2a
01da a02b       | +  |		Store_Unchecked	0x0,0x2b
01db e21b       |    |		Load	0x1,0x1b
01dc 1d47       | G  |		Execute_Immediate	Reference_Lex_1,0x47
01dd 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
01de e24e       | N  |		Load	0x1,0x4e
01df 1d58       | X  |		Execute_Immediate	Reference_Lex_1,0x58
01e0 e257       | W  |		Load	0x1,0x57
01e1 1d59       | Y  |		Execute_Immediate	Reference_Lex_1,0x59
01e2 1d5d       | ]  |		Execute_Immediate	Reference_Lex_1,0x5d
01e3 e25c       | \  |		Load	0x1,0x5c
01e4 1d5e       | ^  |		Execute_Immediate	Reference_Lex_1,0x5e
01e5 1d69       | i  |		Execute_Immediate	Reference_Lex_1,0x69
01e6 a02c       | ,  |		Store_Unchecked	0x0,0x2c
01e7 a02d       | -  |		Store_Unchecked	0x0,0x2d
01e8 e264       | d  |		Load	0x1,0x64
01e9 e263       | c  |		Load	0x1,0x63
01ea a02e       | .  |		Store_Unchecked	0x0,0x2e
01eb a02f       | /  |		Store_Unchecked	0x0,0x2f
01ec e030       | 0  |		Load	0x0,0x30
01ed e031       | 1  |		Load	0x0,0x31
01ee e00b       |    |		Load	0x0,0xb
01ef a032       | 2  |		Store_Unchecked	0x0,0x32
01f0 a033       | 3  |		Store_Unchecked	0x0,0x33
01f1 a034       | 4  |		Store_Unchecked	0x0,0x34
01f2 a035       | 5  |		Store_Unchecked	0x0,0x35
01f3 a036       | 6  |		Store_Unchecked	0x0,0x36
01f4 e037       | 7  |		Load	0x0,0x37
01f5 a038       | 8  |		Store_Unchecked	0x0,0x38
01f6 e217       |    |		Load	0x1,0x17
01f7 e219       |    |		Load	0x1,0x19
01f8 e21d       |    |		Load	0x1,0x1d
01f9 4853       |HS  |		Short_Literal	0x53
01fa e26b       | k  |		Load	0x1,0x6b
01fb 020e       |    |		Execute	Module,Augment_Imports
01fc 0007       |    |		Action	Break_Optional
01fd 029d 0813  |    |		Declare_Subprogram	INIT_0810,For_Outer_Call
01ff 029d 084b  |   K|		Declare_Subprogram	INIT_0848,For_Outer_Call
0201 029d 086b  |   k|		Declare_Subprogram	INIT_0868,For_Outer_Call
0203 029d 08bb  |    |		Declare_Subprogram	INIT_08b8,For_Outer_Call
0205 029d 08e3  |    |		Declare_Subprogram	INIT_08e0,For_Outer_Call
0207 029d 08f3  |    |		Declare_Subprogram	INIT_08f0,For_Outer_Call
0209 029d 0903  |    |		Declare_Subprogram	INIT_0900,For_Outer_Call
020b e039       | 9  |		Load	0x0,0x39
020c e03a       | :  |		Load	0x0,0x3a
020d a03b       | ;  |		Store_Unchecked	0x0,0x3b
020e a03c       | <  |		Store_Unchecked	0x0,0x3c
020f a03d       | =  |		Store_Unchecked	0x0,0x3d
0210 a03e       | >  |		Store_Unchecked	0x0,0x3e
0211 a03f       | ?  |		Store_Unchecked	0x0,0x3f
0212 e004       |    |		Load	0x0,0x4
0213 1d40       | @  |		Execute_Immediate	Reference_Lex_1,0x40
0214 1d4f       | O  |		Execute_Immediate	Reference_Lex_1,0x4f
0215 e24c       | L  |		Load	0x1,0x4c
0216 1d6e       | n  |		Execute_Immediate	Reference_Lex_1,0x6e
0217 1d6f       | o  |		Execute_Immediate	Reference_Lex_1,0x6f
0218 e26b       | k  |		Load	0x1,0x6b
0219 481d       |H   |		Short_Literal	0x1d
021a 480f       |H   |		Short_Literal	0xf
021b e270       | p  |		Load	0x1,0x70
021c 020e       |    |		Execute	Module,Augment_Imports
021d 0007       |    |		Action	Break_Optional
021e 029b 0963  |   c|		Declare_Subprogram	INIT_0960,For_Outer_Call,Unelaborated
0220 029d 0a9b  |    |		Declare_Subprogram	INIT_0a98,For_Outer_Call
0222 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0223 00c7       |    |		Action	Elaborate_Subprogram
0224 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0225 00c7       |    |		Action	Elaborate_Subprogram
0226 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0227 00c7       |    |		Action	Elaborate_Subprogram
0228 029d 0abb  |    |		Declare_Subprogram	INIT_0ab8,For_Outer_Call
022a 029d 0ae3  |    |		Declare_Subprogram	INIT_0ae0,For_Outer_Call
022c 1d78       | x  |		Execute_Immediate	Reference_Lex_1,0x78
022d 00c7       |    |		Action	Elaborate_Subprogram
022e 029d 0b0b  |    |		Declare_Subprogram	INIT_0b08,For_Outer_Call
0230 029d 0b43  |   C|		Declare_Subprogram	INIT_0b40,For_Outer_Call
0232 a040       | @  |		Store_Unchecked	0x0,0x40
0233 00c6       |    |		Action	Check_Subprogram_Elaborated
0234 00e1       |    |		Load_Encached	Boolean_Cache
0235 e004       |    |		Load	0x0,0x4
0236 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0237 1d7d       | }  |		Execute_Immediate	Reference_Lex_1,0x7d
0238 4800       |H   |		Short_Literal	0x0
0239 0093 0000  |    |		push_full_address	0x0
023b 6054       |`T  |		Indirect_Literal	Discrete,0x290,{0x80000000, 0x00050000}
023c 0273       | s  |		Execute	Discrete,Plus
023d e014       |    |		Load	0x0,0x14
023e 0273       | s  |		Execute	Discrete,Plus
023f e041       | A  |		Load	0x0,0x41
0240 0273       | s  |		Execute	Discrete,Plus
0241 4800       |H   |		Short_Literal	0x0
0242 0007       |    |		Action	Break_Optional
0243 029d 0b5b  |   [|		Declare_Subprogram	INIT_0b58,For_Outer_Call
0245 e002       |    |		Load	0x0,0x2
0246 0a03       |    |		Execute_Immediate	Plus,0x3
0247 e001       |    |		Load	0x0,0x1
0248 01d7       |    |		Execute	Vector,Field_Read
0249 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
024a e004       |    |		Load	0x0,0x4
024b 194a       | J  |		Execute	Package,Field_Reference,Field_Number 0x4a
024c 00c6       |    |		Action	Check_Subprogram_Elaborated
024d 1d85       |    |		Execute_Immediate	Reference_Lex_1,0x85
024e e042       | B  |		Load	0x0,0x42
024f e043       | C  |		Load	0x0,0x43
0250 4800       |H   |		Short_Literal	0x0
0251 0007       |    |		Action	Break_Optional
0252 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0253 00c7       |    |		Action	Elaborate_Subprogram
0254 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0255 00c7       |    |		Action	Elaborate_Subprogram
0256 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0257 00c7       |    |		Action	Elaborate_Subprogram
0258 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0259 00c7       |    |		Action	Elaborate_Subprogram
025a 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
025b 00c7       |    |		Action	Elaborate_Subprogram
025c 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
025d 00c7       |    |		Action	Elaborate_Subprogram
025e 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
025f 00c7       |    |		Action	Elaborate_Subprogram
0260 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0261 00c7       |    |		Action	Elaborate_Subprogram
0262 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0263 00c7       |    |		Action	Elaborate_Subprogram
0264 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0265 00c7       |    |		Action	Elaborate_Subprogram
0266 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0267 00c7       |    |		Action	Elaborate_Subprogram
0268 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0269 00c7       |    |		Action	Elaborate_Subprogram
026a 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
026b 00c7       |    |		Action	Elaborate_Subprogram
026c 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
026d 00c7       |    |		Action	Elaborate_Subprogram
026e 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
026f 00c7       |    |		Action	Elaborate_Subprogram
0270 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0271 00c7       |    |		Action	Elaborate_Subprogram
0272 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0273 00c7       |    |		Action	Elaborate_Subprogram
0274 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0275 00c7       |    |		Action	Elaborate_Subprogram
0276 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0277 00c7       |    |		Action	Elaborate_Subprogram
0278 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0279 00c7       |    |		Action	Elaborate_Subprogram
027a 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
027b 00c7       |    |		Action	Elaborate_Subprogram
027c			BODY_0008:
027c			BODY_0008:
027c 00be       |    |		Action	Activate_Tasks
027d 00bc       |    |		Action	Signal_Activated
027e 00bb       |    |		Action	Signal_Completion
027f 0000       |    |		.XXX[0x1]
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 e5fa       |    |		Load	0x2,-0x6
0284 e5fb       |    |		Load	0x2,-0x5
0285 e5fc       |    |		Load	0x2,-0x4
0286 e5fd       |    |		Load	0x2,-0x3
0287 e5fe       |    |		Load	0x2,-0x2
0288 e5ff       |    |		Load	0x2,-0x1
0289 4806       |H   |		Short_Literal	0x6
028a e26b       | k  |		Load	0x1,0x6b
028b 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
028c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
028d 0000 0000  |    |		.XXX[0x3]
028f 0000       |    |
0290 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0294 8000 0000  |    |		.LITERAL	{0x80000000, 0x000b0000}
0298 8000 0000  |    |		.LITERAL	{0x80000000, 0x000a0000}
029c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00090000}
02a0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00080000}
02a4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00070000}
02a8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
02ac 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
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 00da       |    |		Load_Top	At_Offset_2
02b4 4801       |H   |		Short_Literal	0x1
02b5 e26b       | k  |		Load	0x1,0x6b
02b6 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
02b7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb e5fd       |    |		Load	0x2,-0x3
02bc e5fe       |    |		Load	0x2,-0x2
02bd e5ff       |    |		Load	0x2,-0x1
02be 4803       |H   |		Short_Literal	0x3
02bf e26b       | k  |		Load	0x1,0x6b
02c0 1710       |    |		Execute	Task,Entry_Call,Field_Number 0x10
02c1 00d1       |    |		Pop_Control	Pop_Count_1
02c2 c5fd       |    |		Store	0x2,-0x3
02c3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02c4 0000 0000  |    |		.BLANK	0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb e5fb       |    |		Load	0x2,-0x5
02cc e5fc       |    |		Load	0x2,-0x4
02cd e5fd       |    |		Load	0x2,-0x3
02ce e5fe       |    |		Load	0x2,-0x2
02cf e5ff       |    |		Load	0x2,-0x1
02d0 4805       |H   |		Short_Literal	0x5
02d1 e26b       | k  |		Load	0x1,0x6b
02d2 1711       |    |		Execute	Task,Entry_Call,Field_Number 0x11
02d3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02d4 0000 0000  |    |		.BLANK	0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd       |    |		.CONST	0x02dd								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0002       |    |		.CONST	0x0002								; Number of locals
02db			INIT_02d8:
02db e004       |    |		Load	0x0,0x4
02dc 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
02dd			BODY_02d8:
02dd e5f9       |    |		Load	0x2,-0x7
02de 6803       |h   |		Jump_Zero	0x2e2
02df e011       |    |		Load	0x0,0x11
02e0 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02e1 7802       |x   |		Jump	0x2e4
02e2 00db       |    |		Load_Top	At_Offset_3
02e3 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02e4 e5f8       |    |		Load	0x2,-0x8
02e5 00d9       |    |		Load_Top	At_Offset_1
02e6 e5fa       |    |		Load	0x2,-0x6
02e7 e5fb       |    |		Load	0x2,-0x5
02e8 e5fc       |    |		Load	0x2,-0x4
02e9 e5fd       |    |		Load	0x2,-0x3
02ea e5fe       |    |		Load	0x2,-0x2
02eb e5ff       |    |		Load	0x2,-0x1
02ec 4808       |H   |		Short_Literal	0x8
02ed e26b       | k  |		Load	0x1,0x6b
02ee 1712       |    |		Execute	Task,Entry_Call,Field_Number 0x12
02ef 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 e5f9       |    |		Load	0x2,-0x7
02f4 e5fa       |    |		Load	0x2,-0x6
02f5 e5fb       |    |		Load	0x2,-0x5
02f6 e5fc       |    |		Load	0x2,-0x4
02f7 e5fd       |    |		Load	0x2,-0x3
02f8 e5fe       |    |		Load	0x2,-0x2
02f9 e5ff       |    |		Load	0x2,-0x1
02fa 4807       |H   |		Short_Literal	0x7
02fb e26b       | k  |		Load	0x1,0x6b
02fc 1713       |    |		Execute	Task,Entry_Call,Field_Number 0x13
02fd 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
02fe 0000 0000  |    |		.XXX[0x2]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 e5fd       |    |		Load	0x2,-0x3
0304 e5fe       |    |		Load	0x2,-0x2
0305 e5ff       |    |		Load	0x2,-0x1
0306 4803       |H   |		Short_Literal	0x3
0307 e26b       | k  |		Load	0x1,0x6b
0308 1714       |    |		Execute	Task,Entry_Call,Field_Number 0x14
0309 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
030a 0000 0000  |    |		.BLANK	0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 e5f8       |    |		Load	0x2,-0x8
0314 e5f9       |    |		Load	0x2,-0x7
0315 e5fa       |    |		Load	0x2,-0x6
0316 e5fb       |    |		Load	0x2,-0x5
0317 e5fc       |    |		Load	0x2,-0x4
0318 e5fd       |    |		Load	0x2,-0x3
0319 e5fe       |    |		Load	0x2,-0x2
031a e5ff       |    |		Load	0x2,-0x1
031b 4808       |H   |		Short_Literal	0x8
031c e26b       | k  |		Load	0x1,0x6b
031d 1715       |    |		Execute	Task,Entry_Call,Field_Number 0x15
031e 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
031f 0000       |    |		.XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 e5f9       |    |		Load	0x2,-0x7
0324 e5fa       |    |		Load	0x2,-0x6
0325 e5fb       |    |		Load	0x2,-0x5
0326 e5fc       |    |		Load	0x2,-0x4
0327 e5fd       |    |		Load	0x2,-0x3
0328 e5fe       |    |		Load	0x2,-0x2
0329 e5ff       |    |		Load	0x2,-0x1
032a 4807       |H   |		Short_Literal	0x7
032b e26b       | k  |		Load	0x1,0x6b
032c 1716       |    |		Execute	Task,Entry_Call,Field_Number 0x16
032d 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
032e 0000 0000  |    |		.XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 00da       |    |		Load_Top	At_Offset_2
0334 4801       |H   |		Short_Literal	0x1
0335 e26b       | k  |		Load	0x1,0x6b
0336 1718       |    |		Execute	Task,Entry_Call,Field_Number 0x18
0337 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 00da       |    |		Load_Top	At_Offset_2
033c 4801       |H   |		Short_Literal	0x1
033d e26b       | k  |		Load	0x1,0x6b
033e 1717       |    |		Execute	Task,Entry_Call,Field_Number 0x17
033f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2
0344 4801       |H   |		Short_Literal	0x1
0345 e26b       | k  |		Load	0x1,0x6b
0346 1719       |    |		Execute	Task,Entry_Call,Field_Number 0x19
0347 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b       | K  |		.CONST	0x034b								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0001       |    |		.CONST	0x0001								; Number of locals
034b			BODY_0348:
034b			INIT_0348:
034b 4800       |H   |		Short_Literal	0x0
034c e26b       | k  |		Load	0x1,0x6b
034d 171a       |    |		Execute	Task,Entry_Call,Field_Number 0x1a
034e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034f 0000       |    |		.XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 00db       |    |		Load_Top	At_Offset_3
0354 00db       |    |		Load_Top	At_Offset_3
0355 4802       |H   |		Short_Literal	0x2
0356 e26b       | k  |		Load	0x1,0x6b
0357 171b       |    |		Execute	Task,Entry_Call,Field_Number 0x1b
0358 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0359 0000 0000  |    |		.BLANK	0000[0x7]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 e240       | @  |		Load	0x1,0x40
0364 6804       |h   |		Jump_Zero	0x369
0365 e241       | A  |		Load	0x1,0x41
0366 00db       |    |		Load_Top	At_Offset_3
0367 027f       |    |		Execute	Discrete,Equal
0368 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0369 4800       |H   |		Short_Literal	0x0
036a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
036b 0000 0000  |    |		.BLANK	0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0383       |    |		.CONST	0x0383								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0004       |    |		.CONST	0x0004								; Number of locals
0373			INIT_0370:
0373 e039       | 9  |		Load	0x0,0x39
0374 0322       | "  |		Declare_Variable	Record
0375 00d8       |    |		Load_Top	At_Offset_0
0376 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0377 e044       | D  |		Load	0x0,0x44
0378 00d9       |    |		Load_Top	At_Offset_1
0379 017d       | }  |		Execute	Record,Structure_Write
037a e004       |    |		Load	0x0,0x4
037b 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
037c 02c7       |    |		Declare_Variable	Any
037d e5ff       |    |		Load	0x2,-0x1
037e e01c       |    |		Load	0x0,0x1c
037f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0380 a403       |    |		Store_Unchecked	0x2,0x3
0381 029f 0b7b  |   {|		Declare_Subprogram	INIT_0b78,For_Call
0383			BODY_0370:
0383 8404       |    |		Call	0x2,0x4
0384 00d9       |    |		Load_Top	At_Offset_1
0385 1d86       |    |		Execute_Immediate	Reference_Lex_1,0x86
0386 1d87       |    |		Execute_Immediate	Reference_Lex_1,0x87
0387 e004       |    |		Load	0x0,0x4
0388 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0389 4800       |H   |		Short_Literal	0x0
038a e5ff       |    |		Load	0x2,-0x1
038b 8038       | 8  |		Call	0x0,0x38
038c 4800       |H   |		Short_Literal	0x0
038d 4800       |H   |		Short_Literal	0x0
038e e5ff       |    |		Load	0x2,-0x1
038f 8021       | !  |		Call	0x0,0x21
0390 00da       |    |		Load_Top	At_Offset_2
0391 e5ff       |    |		Load	0x2,-0x1
0392 803e       | >  |		Call	0x0,0x3e
0393 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0394 0000 0000  |    |		.BLANK	0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 00da       |    |		Load_Top	At_Offset_2
039c e01c       |    |		Load	0x0,0x1c
039d 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
039e e004       |    |		Load	0x0,0x4
039f 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
03a0 6802       |h   |		Jump_Zero	0x3a3
03a1 4800       |H   |		Short_Literal	0x0
03a2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a3 4801       |H   |		Short_Literal	0x1
03a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a5 0000 0000  |    |		.XXX[0x3]
03a7 0000       |    |
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab       |    |		.CONST	0x03ab								; Address of begin
03a9 0004       |    |		.CONST	0x0004								; Address of exception handler
03aa 0001       |    |		.CONST	0x0001								; Number of locals
03ab			BODY_03a8:
03ab			INIT_03a8:
03ab 00da       |    |		Load_Top	At_Offset_2
03ac 4801       |H   |		Short_Literal	0x1
03ad e26b       | k  |		Load	0x1,0x6b
03ae 171d       |    |		Execute	Task,Entry_Call,Field_Number 0x1d
03af 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 e5fa       |    |		Load	0x2,-0x6
03b4 e5fb       |    |		Load	0x2,-0x5
03b5 00e3       |    |		Load_Encached	Natural_Cache
03b6 e26a       | j  |		Load	0x1,0x6a
03b7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b8 0322       | "  |		Declare_Variable	Record
03b9 00d8       |    |		Load_Top	At_Offset_0
03ba 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03bb e263       | c  |		Load	0x1,0x63
03bc e26a       | j  |		Load	0x1,0x6a
03bd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03be 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
03bf 0119       |    |		Execute	Any,Check_In_Formal_Type
03c0 00d9       |    |		Load_Top	At_Offset_1
03c1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03c2 e264       | d  |		Load	0x1,0x64
03c3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03c4 0aff       |    |		Execute_Immediate	Plus,-0x1
03c5 4be8       |K   |		Short_Literal	0x3e8
03c6 026e       | n  |		Execute	Discrete,Modulo
03c7 0a01       |    |		Execute_Immediate	Plus,0x1
03c8 00d9       |    |		Load_Top	At_Offset_1
03c9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03ca e264       | d  |		Load	0x1,0x64
03cb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03cc 4be8       |K   |		Short_Literal	0x3e8
03cd 027d       | }  |		Execute	Discrete,Greater
03ce 00d9       |    |		Load_Top	At_Offset_1
03cf 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03d0 e5fd       |    |		Load	0x2,-0x3
03d1 e5fe       |    |		Load	0x2,-0x2
03d2 e5ff       |    |		Load	0x2,-0x1
03d3 e26a       | j  |		Load	0x1,0x6a
03d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03d5 c5fc       |    |		Store	0x2,-0x4
03d6 00d1       |    |		Pop_Control	Pop_Count_1
03d7 c5fa       |    |		Store	0x2,-0x6
03d8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03d9 0000 0000  |    |		.BLANK	0000[0x7]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3       |    |		.CONST	0x03e3								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0001       |    |		.CONST	0x0001								; Number of locals
03e3			BODY_03e0:
03e3			INIT_03e0:
03e3 e239       | 9  |		Load	0x1,0x39
03e4 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
03e5 e23a       | :  |		Load	0x1,0x3a
03e6 a5fe       |    |		Store_Unchecked	0x2,-0x2
03e7 e23b       | ;  |		Load	0x1,0x3b
03e8 a5fd       |    |		Store_Unchecked	0x2,-0x3
03e9 e23c       | <  |		Load	0x1,0x3c
03ea a5fc       |    |		Store_Unchecked	0x2,-0x4
03eb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03ec 0000 0000  |    |		.BLANK	0000[0x4]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 0452       | R  |		.CONST	0x0452								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0025       | %  |		.CONST	0x0025								; Number of locals
03f3			INIT_03f0:
03f3 029f 0b8b  |    |		Declare_Subprogram	INIT_0b88,For_Call
03f5 029f 0b9b  |    |		Declare_Subprogram	INIT_0b98,For_Call
03f7 029f 0bb3  |    |		Declare_Subprogram	INIT_0bb0,For_Call
03f9 029f 0bcb  |    |		Declare_Subprogram	INIT_0bc8,For_Call
03fb 029f 0be3  |    |		Declare_Subprogram	INIT_0be0,For_Call
03fd 029f 0c33  |   3|		Declare_Subprogram	INIT_0c30,For_Call
03ff 029f 0c4b  |   K|		Declare_Subprogram	INIT_0c48,For_Call
0401 029f 0c63  |   c|		Declare_Subprogram	INIT_0c60,For_Call
0403 029f 0c7b  |   {|		Declare_Subprogram	INIT_0c78,For_Call
0405 a016       |    |		Store_Unchecked	0x0,0x16
0406 00c6       |    |		Action	Check_Subprogram_Elaborated
0407 00e2       |    |		Load_Encached	Integer_Cache
0408 00e2       |    |		Load_Encached	Integer_Cache
0409 4809       |H   |		Short_Literal	0x9
040a 4802       |H   |		Short_Literal	0x2
040b 0099       |    |		Action	Reference_Dynamic
040c 480a       |H   |		Short_Literal	0xa
040d 4802       |H   |		Short_Literal	0x2
040e 0099       |    |		Action	Reference_Dynamic
040f 0093 0000  |    |		push_full_address	0x0
0411 619e       |a   |		Indirect_Literal	Discrete,0x5b0,{0x80000000, 0x00030000}
0412 0273       | s  |		Execute	Discrete,Plus
0413 e014       |    |		Load	0x0,0x14
0414 0273       | s  |		Execute	Discrete,Plus
0415 e045       | E  |		Load	0x0,0x45
0416 0273       | s  |		Execute	Discrete,Plus
0417 4810       |H   |		Short_Literal	0x10
0418 0007       |    |		Action	Break_Optional
0419 029f 0c93  |    |		Declare_Subprogram	INIT_0c90,For_Call
041b 029f 0c7b  |   {|		Declare_Subprogram	INIT_0c78,For_Call
041d a016       |    |		Store_Unchecked	0x0,0x16
041e 00c6       |    |		Action	Check_Subprogram_Elaborated
041f 00e2       |    |		Load_Encached	Integer_Cache
0420 00e2       |    |		Load_Encached	Integer_Cache
0421 4811       |H   |		Short_Literal	0x11
0422 4802       |H   |		Short_Literal	0x2
0423 0099       |    |		Action	Reference_Dynamic
0424 4812       |H   |		Short_Literal	0x12
0425 4802       |H   |		Short_Literal	0x2
0426 0099       |    |		Action	Reference_Dynamic
0427 0093 0000  |    |		push_full_address	0x0
0429 6182       |a   |		Indirect_Literal	Discrete,0x5ac,{0x80000000, 0x00020000}
042a 0273       | s  |		Execute	Discrete,Plus
042b e014       |    |		Load	0x0,0x14
042c 0273       | s  |		Execute	Discrete,Plus
042d e046       | F  |		Load	0x0,0x46
042e 0273       | s  |		Execute	Discrete,Plus
042f 4818       |H   |		Short_Literal	0x18
0430 0007       |    |		Action	Break_Optional
0431 029f 0cab  |    |		Declare_Subprogram	INIT_0ca8,For_Call
0433 029f 0c7b  |   {|		Declare_Subprogram	INIT_0c78,For_Call
0435 a016       |    |		Store_Unchecked	0x0,0x16
0436 00c6       |    |		Action	Check_Subprogram_Elaborated
0437 00e2       |    |		Load_Encached	Integer_Cache
0438 00e2       |    |		Load_Encached	Integer_Cache
0439 4819       |H   |		Short_Literal	0x19
043a 4802       |H   |		Short_Literal	0x2
043b 0099       |    |		Action	Reference_Dynamic
043c 481a       |H   |		Short_Literal	0x1a
043d 4802       |H   |		Short_Literal	0x2
043e 0099       |    |		Action	Reference_Dynamic
043f 0093 0000  |    |		push_full_address	0x0
0441 6166       |af  |		Indirect_Literal	Discrete,0x5a8,{0x80000000, 0x00010000}
0442 0273       | s  |		Execute	Discrete,Plus
0443 e014       |    |		Load	0x0,0x14
0444 0273       | s  |		Execute	Discrete,Plus
0445 e047       | G  |		Load	0x0,0x47
0446 0273       | s  |		Execute	Discrete,Plus
0447 4820       |H   |		Short_Literal	0x20
0448 029f 0cc3  |    |		Declare_Subprogram	INIT_0cc0,For_Call
044a 029f 0d03  |    |		Declare_Subprogram	INIT_0d00,For_Call
044c 029f 0d43  |   C|		Declare_Subprogram	INIT_0d40,For_Call
044e 029f 0db3  |    |		Declare_Subprogram	INIT_0db0,For_Call
0450 029f 0de3  |    |		Declare_Subprogram	INIT_0de0,For_Call
0452			BODY_03f0:
0452 e5ff       |    |		Load	0x2,-0x1
0453 00d8       |    |		Load_Top	At_Offset_0
0454 0c0c       |    |		Execute_Immediate	Greater_Equal,0xc
0455 7028       |p(  |		Jump_Nonzero	0x47e
0456 0aff       |    |		Execute_Immediate	Plus,-0x1
0457 460a       |F   |		Jump_Case	0xb
0458 792a       |y*  |		Jump	0x583								; case 0x0
0459 7826       |x&  |		Jump	0x480								; case 0x1
045a 7848       |xH  |		Jump	0x4a3								; case 0x2
045b 7875       |xu  |		Jump	0x4d1								; case 0x3
045c 7897       |x   |		Jump	0x4f4								; case 0x4
045d 78bd       |x   |		Jump	0x51b								; case 0x5
045e 78ca       |x   |		Jump	0x529								; case 0x6
045f 78da       |x   |		Jump	0x53a								; case 0x7
0460 78ea       |x   |		Jump	0x54b								; case 0x8
0461 78fa       |x   |		Jump	0x55c								; case 0x9
0462 7800       |x   |		Jump	0x463								; case 0xa
0463 0092 1123  |   #|		Action	Push_String_Extended,0x1123					; "Trace requests"
0465 8048       | H  |		Call	0x0,0x48
0466 8049       | I  |		Call	0x0,0x49
0467 8049       | I  |		Call	0x0,0x49
0468 00cf       |    |		Action	Mark_Auxiliary
0469 e258       | X  |		Load	0x1,0x58
046a 4801       |H   |		Short_Literal	0x1
046b 0263       | c  |		Execute	Discrete,Above_Bound
046c 7003       |p   |		Jump_Nonzero	0x470
046d 8425       | %  |		Call	0x2,0x25
046e 00c8       |    |		Action	Pop_Auxiliary_Range
046f 3ffd       |?   |		Loop_Increasing	0x46d
0470 00ce       |    |		Action	Pop_Auxiliary
0471 e04a       | J  |		Load	0x0,0x4a
0472 6804       |h   |		Jump_Zero	0x477
0473 0092 1124  |   $|		Action	Push_String_Extended,0x1124					; "New task trace is on"
0475 8048       | H  |		Call	0x0,0x48
0476 8049       | I  |		Call	0x0,0x49
0477 e04b       | K  |		Load	0x0,0x4b
0478 692e       |i.  |		Jump_Zero	0x5a7
0479 0092 1125  |   %|		Action	Push_String_Extended,0x1125					; "Inform on task creation mode set"
047b 8048       | H  |		Call	0x0,0x48
047c 8049       | I  |		Call	0x0,0x49
047d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
047e 00d1       |    |		Pop_Control	Pop_Count_1
047f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0480 0092 1126  |   &|		Action	Push_String_Extended,0x1126					; "Global stop: "
0482 8048       | H  |		Call	0x0,0x48
0483 e240       | @  |		Load	0x1,0x40
0484 6809       |h   |		Jump_Zero	0x48e
0485 0092 1127  |   '|		Action	Push_String_Extended,0x1127					; "Aid: "
0487 e241       | A  |		Load	0x1,0x41
0488 00e0       |    |		Load_Encached	Standard_Cache
0489 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
048a 01cc       |    |		Execute	Vector,Catenate
048b 8048       | H  |		Call	0x0,0x48
048c 8049       | I  |		Call	0x0,0x49
048d 7804       |x   |		Jump	0x492
048e 0092 1128  |   (|		Action	Push_String_Extended,0x1128					; "none"
0490 8048       | H  |		Call	0x0,0x48
0491 8049       | I  |		Call	0x0,0x49
0492 e02d       | -  |		Load	0x0,0x2d
0493 6808       |h   |		Jump_Zero	0x49c
0494 0092 1129  |   )|		Action	Push_String_Extended,0x1129					; "New task stop, action ="
0496 e02c       | ,  |		Load	0x0,0x2c
0497 00e0       |    |		Load_Encached	Standard_Cache
0498 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0499 01cc       |    |		Execute	Vector,Catenate
049a 8048       | H  |		Call	0x0,0x48
049b 8049       | I  |		Call	0x0,0x49
049c e04c       | L  |		Load	0x0,0x4c
049d 6909       |i   |		Jump_Zero	0x5a7
049e 0092 112a  |   *|		Action	Push_String_Extended,0x112a					; "Holding initial registrants"
04a0 8048       | H  |		Call	0x0,0x48
04a1 8049       | I  |		Call	0x0,0x49
04a2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04a3 0092 112b  |   +|		Action	Push_String_Extended,0x112b					; "Global stepping: "
04a5 8048       | H  |		Call	0x0,0x48
04a6 e242       | B  |		Load	0x1,0x42
04a7 e011       |    |		Load	0x0,0x11
04a8 027f       |    |		Execute	Discrete,Equal
04a9 7021       |p!  |		Jump_Nonzero	0x4cb
04aa 0092 112c  |   ,|		Action	Push_String_Extended,0x112c					; "Task = "
04ac e242       | B  |		Load	0x1,0x42
04ad 804d       | M  |		Call	0x0,0x4d
04ae 01cc       |    |		Execute	Vector,Catenate
04af 0092 112d  |   -|		Action	Push_String_Extended,0x112d					; " Count = "
04b1 01cc       |    |		Execute	Vector,Catenate
04b2 e243       | C  |		Load	0x1,0x43
04b3 00e0       |    |		Load_Encached	Standard_Cache
04b4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04b5 01cc       |    |		Execute	Vector,Catenate
04b6 8048       | H  |		Call	0x0,0x48
04b7 8049       | I  |		Call	0x0,0x49
04b8 0092 112e  |   .|		Action	Push_String_Extended,0x112e					; "       Frame restriction = #"
04ba 8048       | H  |		Call	0x0,0x48
04bb 4820       |H   |		Short_Literal	0x20
04bc 4800       |H   |		Short_Literal	0x0
04bd 4810       |H   |		Short_Literal	0x10
04be e244       | D  |		Load	0x1,0x44
04bf e04e       | N  |		Load	0x0,0x4e
04c0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04c1 0092 112f  |   /|		Action	Push_String_Extended,0x112f					; " Action = "
04c3 01cc       |    |		Execute	Vector,Catenate
04c4 e245       | E  |		Load	0x1,0x45
04c5 00e0       |    |		Load_Encached	Standard_Cache
04c6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04c7 01cc       |    |		Execute	Vector,Catenate
04c8 8048       | H  |		Call	0x0,0x48
04c9 8049       | I  |		Call	0x0,0x49
04ca 7804       |x   |		Jump	0x4cf
04cb 0092 1128  |   (|		Action	Push_String_Extended,0x1128					; "none"
04cd 8048       | H  |		Call	0x0,0x48
04ce 8049       | I  |		Call	0x0,0x49
04cf 8049       | I  |		Call	0x0,0x49
04d0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04d1 0092 1130  |   0|		Action	Push_String_Extended,0x1130					; "Instruction stepping: "
04d3 8048       | H  |		Call	0x0,0x48
04d4 e246       | F  |		Load	0x1,0x46
04d5 e011       |    |		Load	0x0,0x11
04d6 027f       |    |		Execute	Discrete,Equal
04d7 7016       |p   |		Jump_Nonzero	0x4ee
04d8 0092 112c  |   ,|		Action	Push_String_Extended,0x112c					; "Task = "
04da 8048       | H  |		Call	0x0,0x48
04db e246       | F  |		Load	0x1,0x46
04dc 804d       | M  |		Call	0x0,0x4d
04dd 0092 112d  |   -|		Action	Push_String_Extended,0x112d					; " Count = "
04df 01cc       |    |		Execute	Vector,Catenate
04e0 e247       | G  |		Load	0x1,0x47
04e1 00e0       |    |		Load_Encached	Standard_Cache
04e2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04e3 01cc       |    |		Execute	Vector,Catenate
04e4 0092 112f  |   /|		Action	Push_String_Extended,0x112f					; " Action = "
04e6 01cc       |    |		Execute	Vector,Catenate
04e7 e248       | H  |		Load	0x1,0x48
04e8 00e0       |    |		Load_Encached	Standard_Cache
04e9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04ea 01cc       |    |		Execute	Vector,Catenate
04eb 8048       | H  |		Call	0x0,0x48
04ec 8049       | I  |		Call	0x0,0x49
04ed 7804       |x   |		Jump	0x4f2
04ee 0092 1131  |   1|		Action	Push_String_Extended,0x1131					; "None"
04f0 8048       | H  |		Call	0x0,0x48
04f1 8049       | I  |		Call	0x0,0x49
04f2 8049       | I  |		Call	0x0,0x49
04f3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04f4 0092 1132  |   2|		Action	Push_String_Extended,0x1132					; "Breakpoints:"
04f6 8048       | H  |		Call	0x0,0x48
04f7 8049       | I  |		Call	0x0,0x49
04f8 e23d       | =  |		Load	0x1,0x3d
04f9 6808       |h   |		Jump_Zero	0x502
04fa 0092 1133  |   3|		Action	Push_String_Extended,0x1133					; "  Accelerator load failures: "
04fc e23d       | =  |		Load	0x1,0x3d
04fd 00e0       |    |		Load_Encached	Standard_Cache
04fe 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04ff 01cc       |    |		Execute	Vector,Catenate
0500 8048       | H  |		Call	0x0,0x48
0501 8049       | I  |		Call	0x0,0x49
0502 00cf       |    |		Action	Mark_Auxiliary
0503 e24f       | O  |		Load	0x1,0x4f
0504 4801       |H   |		Short_Literal	0x1
0505 0263       | c  |		Execute	Discrete,Above_Bound
0506 7003       |p   |		Jump_Nonzero	0x50a
0507 8421       | !  |		Call	0x2,0x21
0508 00c8       |    |		Action	Pop_Auxiliary_Range
0509 3ffd       |?   |		Loop_Increasing	0x507
050a 00c9       |    |		Action	Pop_Auxiliary_Loop
050b e253       | S  |		Load	0x1,0x53
050c 4801       |H   |		Short_Literal	0x1
050d 0263       | c  |		Execute	Discrete,Above_Bound
050e 7003       |p   |		Jump_Nonzero	0x512
050f 8422       | "  |		Call	0x2,0x22
0510 00c8       |    |		Action	Pop_Auxiliary_Range
0511 3ffd       |?   |		Loop_Increasing	0x50f
0512 00ce       |    |		Action	Pop_Auxiliary
0513 e04f       | O  |		Load	0x0,0x4f
0514 6804       |h   |		Jump_Zero	0x519
0515 0092 1134  |   4|		Action	Push_String_Extended,0x1134					; "Break on task creation mode set"
0517 8048       | H  |		Call	0x0,0x48
0518 8049       | I  |		Call	0x0,0x49
0519 8049       | I  |		Call	0x0,0x49
051a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
051b 0092 1135  |   5|		Action	Push_String_Extended,0x1135					; "Exception Requests:"
051d 8048       | H  |		Call	0x0,0x48
051e 8049       | I  |		Call	0x0,0x49
051f 00cf       |    |		Action	Mark_Auxiliary
0520 e268       | h  |		Load	0x1,0x68
0521 4801       |H   |		Short_Literal	0x1
0522 0263       | c  |		Execute	Discrete,Above_Bound
0523 7003       |p   |		Jump_Nonzero	0x527
0524 8423       | #  |		Call	0x2,0x23
0525 00c8       |    |		Action	Pop_Auxiliary_Range
0526 3ffd       |?   |		Loop_Increasing	0x524
0527 00ce       |    |		Action	Pop_Auxiliary
0528 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0529 e024       | $  |		Load	0x0,0x24
052a 00d8       |    |		Load_Top	At_Offset_0
052b e40b       |    |		Load	0x2,0xb
052c e40c       |    |		Load	0x2,0xc
052d 480d       |H   |		Short_Literal	0xd
052e 4802       |H   |		Short_Literal	0x2
052f 0099       |    |		Action	Reference_Dynamic
0530 480e       |H   |		Short_Literal	0xe
0531 4802       |H   |		Short_Literal	0x2
0532 0099       |    |		Action	Reference_Dynamic
0533 480f       |H   |		Short_Literal	0xf
0534 4802       |H   |		Short_Literal	0x2
0535 0099       |    |		Action	Reference_Dynamic
0536 8016       |    |		Call	0x0,0x16
0537 c024       | $  |		Store	0x0,0x24
0538 8049       | I  |		Call	0x0,0x49
0539 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
053a e024       | $  |		Load	0x0,0x24
053b 00d8       |    |		Load_Top	At_Offset_0
053c e413       |    |		Load	0x2,0x13
053d e414       |    |		Load	0x2,0x14
053e 4815       |H   |		Short_Literal	0x15
053f 4802       |H   |		Short_Literal	0x2
0540 0099       |    |		Action	Reference_Dynamic
0541 4816       |H   |		Short_Literal	0x16
0542 4802       |H   |		Short_Literal	0x2
0543 0099       |    |		Action	Reference_Dynamic
0544 4817       |H   |		Short_Literal	0x17
0545 4802       |H   |		Short_Literal	0x2
0546 0099       |    |		Action	Reference_Dynamic
0547 8016       |    |		Call	0x0,0x16
0548 c024       | $  |		Store	0x0,0x24
0549 8049       | I  |		Call	0x0,0x49
054a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
054b e024       | $  |		Load	0x0,0x24
054c 00d8       |    |		Load_Top	At_Offset_0
054d e41b       |    |		Load	0x2,0x1b
054e e41c       |    |		Load	0x2,0x1c
054f 481d       |H   |		Short_Literal	0x1d
0550 4802       |H   |		Short_Literal	0x2
0551 0099       |    |		Action	Reference_Dynamic
0552 481e       |H   |		Short_Literal	0x1e
0553 4802       |H   |		Short_Literal	0x2
0554 0099       |    |		Action	Reference_Dynamic
0555 481f       |H   |		Short_Literal	0x1f
0556 4802       |H   |		Short_Literal	0x2
0557 0099       |    |		Action	Reference_Dynamic
0558 8016       |    |		Call	0x0,0x16
0559 c024       | $  |		Store	0x0,0x24
055a 8049       | I  |		Call	0x0,0x49
055b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
055c 0092 1136  |   6|		Action	Push_String_Extended,0x1136					; "History requests and status"
055e 8048       | H  |		Call	0x0,0x48
055f 8049       | I  |		Call	0x0,0x49
0560 8049       | I  |		Call	0x0,0x49
0561 0092 1137  |   7|		Action	Push_String_Extended,0x1137					; "Next_Index = "
0563 e264       | d  |		Load	0x1,0x64
0564 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0565 00e0       |    |		Load_Encached	Standard_Cache
0566 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0567 01cc       |    |		Execute	Vector,Catenate
0568 8048       | H  |		Call	0x0,0x48
0569 8049       | I  |		Call	0x0,0x49
056a 00cf       |    |		Action	Mark_Auxiliary
056b e25d       | ]  |		Load	0x1,0x5d
056c 4801       |H   |		Short_Literal	0x1
056d 0263       | c  |		Execute	Discrete,Above_Bound
056e 7011       |p   |		Jump_Nonzero	0x580
056f 00d8       |    |		Load_Top	At_Offset_0
0570 e25c       | \  |		Load	0x1,0x5c
0571 01d5       |    |		Execute	Vector,Field_Reference
0572 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0573 e01e       |    |		Load	0x0,0x1e
0574 027e       | ~  |		Execute	Discrete,Not_Equal
0575 6808       |h   |		Jump_Zero	0x57e
0576 00d8       |    |		Load_Top	At_Offset_0
0577 00e0       |    |		Load_Encached	Standard_Cache
0578 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0579 0092 1138  |   8|		Action	Push_String_Extended,0x1138					; ": Task : "
057b 01cc       |    |		Execute	Vector,Catenate
057c 8048       | H  |		Call	0x0,0x48
057d 8424       | $  |		Call	0x2,0x24
057e 00c8       |    |		Action	Pop_Auxiliary_Range
057f 3fef       |?   |		Loop_Increasing	0x56f
0580 00ce       |    |		Action	Pop_Auxiliary
0581 8049       | I  |		Call	0x0,0x49
0582 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0583 0092 1139  |   9|		Action	Push_String_Extended,0x1139					; "Exception Cache (tasks propagating)"
0585 8048       | H  |		Call	0x0,0x48
0586 8049       | I  |		Call	0x0,0x49
0587 00cf       |    |		Action	Mark_Auxiliary
0588 4864       |Hd  |		Short_Literal	0x64
0589 4800       |H   |		Short_Literal	0x0
058a 0007       |    |		Action	Break_Optional
058b 00d8       |    |		Load_Top	At_Offset_0
058c e238       | 8  |		Load	0x1,0x38
058d 01d5       |    |		Execute	Vector,Field_Reference
058e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
058f 6813       |h   |		Jump_Zero	0x5a3
0590 00d8       |    |		Load_Top	At_Offset_0
0591 e238       | 8  |		Load	0x1,0x38
0592 01d5       |    |		Execute	Vector,Field_Reference
0593 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0594 680e       |h   |		Jump_Zero	0x5a3
0595 00d8       |    |		Load_Top	At_Offset_0
0596 e238       | 8  |		Load	0x1,0x38
0597 01d5       |    |		Execute	Vector,Field_Reference
0598 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0599 804d       | M  |		Call	0x0,0x4d
059a 00d9       |    |		Load_Top	At_Offset_1
059b e238       | 8  |		Load	0x1,0x38
059c 01d5       |    |		Execute	Vector,Field_Reference
059d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
059e 00e0       |    |		Load_Encached	Standard_Cache
059f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05a0 01cc       |    |		Execute	Vector,Catenate
05a1 8048       | H  |		Call	0x0,0x48
05a2 8049       | I  |		Call	0x0,0x49
05a3 00c8       |    |		Action	Pop_Auxiliary_Range
05a4 3fe6       |?   |		Loop_Increasing	0x58b
05a5 00ce       |    |		Action	Pop_Auxiliary
05a6 8049       | I  |		Call	0x0,0x49
05a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05a8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
05ac 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
05b0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
05b4 0000 0000  |    |		.BLANK	0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb       |    |		.CONST	0x05bb								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0001       |    |		.CONST	0x0001								; Number of locals
05bb			BODY_05b8:
05bb			INIT_05b8:
05bb 4800       |H   |		Short_Literal	0x0
05bc a240       | @  |		Store_Unchecked	0x1,0x40
05bd e011       |    |		Load	0x0,0x11
05be a242       | B  |		Store_Unchecked	0x1,0x42
05bf e011       |    |		Load	0x0,0x11
05c0 a246       | F  |		Store_Unchecked	0x1,0x46
05c1 4800       |H   |		Short_Literal	0x0
05c2 a24f       | O  |		Store_Unchecked	0x1,0x4f
05c3 4800       |H   |		Short_Literal	0x0
05c4 a250       | P  |		Store_Unchecked	0x1,0x50
05c5 4800       |H   |		Short_Literal	0x0
05c6 a253       | S  |		Store_Unchecked	0x1,0x53
05c7 4800       |H   |		Short_Literal	0x0
05c8 a254       | T  |		Store_Unchecked	0x1,0x54
05c9 4800       |H   |		Short_Literal	0x0
05ca a258       | X  |		Store_Unchecked	0x1,0x58
05cb 4800       |H   |		Short_Literal	0x0
05cc a259       | Y  |		Store_Unchecked	0x1,0x59
05cd 4800       |H   |		Short_Literal	0x0
05ce a268       | h  |		Store_Unchecked	0x1,0x68
05cf 4800       |H   |		Short_Literal	0x0
05d0 a269       | i  |		Store_Unchecked	0x1,0x69
05d1 4800       |H   |		Short_Literal	0x0
05d2 a25d       | ]  |		Store_Unchecked	0x1,0x5d
05d3 4800       |H   |		Short_Literal	0x0
05d4 a25e       | ^  |		Store_Unchecked	0x1,0x5e
05d5 4800       |H   |		Short_Literal	0x0
05d6 e264       | d  |		Load	0x1,0x64
05d7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05d8 00cf       |    |		Action	Mark_Auxiliary
05d9 e263       | c  |		Load	0x1,0x63
05da 01d9       |    |		Execute	Vector,Reverse_Bounds
05db 0007       |    |		Action	Break_Optional
05dc 802e       | .  |		Call	0x0,0x2e
05dd 00d9       |    |		Load_Top	At_Offset_1
05de e263       | c  |		Load	0x1,0x63
05df 01d6       |    |		Execute	Vector,Field_Write
05e0 00c8       |    |		Action	Pop_Auxiliary_Range
05e1 3ffa       |?   |		Loop_Increasing	0x5dc
05e2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05e3 0000 0000  |    |		.BLANK	0000[0x5]
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 4800       |H   |		Short_Literal	0x0
05ec e26b       | k  |		Load	0x1,0x6b
05ed 171f       |    |		Execute	Task,Entry_Call,Field_Number 0x1f
05ee 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05ef 0000       |    |		.XXX[0x1]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3       |    |		.CONST	0x05f3								; Address of begin
05f1 0004       |    |		.CONST	0x0004								; Address of exception handler
05f2 0001       |    |		.CONST	0x0001								; Number of locals
05f3			BODY_05f0:
05f3			INIT_05f0:
05f3 00da       |    |		Load_Top	At_Offset_2
05f4 a23e       | >  |		Store_Unchecked	0x1,0x3e
05f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05f6 0000 0000  |    |		.XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb e5fd       |    |		Load	0x2,-0x3
05fc 00e3       |    |		Load_Encached	Natural_Cache
05fd e5ff       |    |		Load	0x2,-0x1
05fe 4803       |H   |		Short_Literal	0x3
05ff e26b       | k  |		Load	0x1,0x6b
0600 1720       |    |		Execute	Task,Entry_Call,Field_Number 0x20
0601 c5fe       |    |		Store	0x2,-0x2
0602 c5fd       |    |		Store	0x2,-0x3
0603 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0604 0000 0000  |    |		.BLANK	0000[0x4]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b       |    |		.CONST	0x060b								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0001       |    |		.CONST	0x0001								; Number of locals
060b			BODY_0608:
060b			INIT_0608:
060b 4607       |F   |		Jump_Case	0x8
060c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
060d 7807       |x   |		Jump	0x615								; case 0x1
060e 780a       |x   |		Jump	0x619								; case 0x2
060f 780e       |x   |		Jump	0x61e								; case 0x3
0610 7811       |x   |		Jump	0x622								; case 0x4
0611 7812       |x   |		Jump	0x624								; case 0x5
0612 7813       |x   |		Jump	0x626								; case 0x6
0613 7816       |x   |		Jump	0x62a								; case 0x7
0614 4302       |C   |		.XXX[0x1]
0615 00da       |    |		Load_Top	At_Offset_2
0616 0091 111f  |    |		Action	Push_String_Extended_Indexed,0x111f				; "LOCAL_UNCONSTRAINED"
0618 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0619 00db       |    |		Load_Top	At_Offset_3
061a 00db       |    |		Load_Top	At_Offset_3
061b 00e0       |    |		Load_Encached	Standard_Cache
061c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
061d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
061e 00da       |    |		Load_Top	At_Offset_2
061f 00e0       |    |		Load_Encached	Standard_Cache
0620 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0621 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0622 00db       |    |		Load_Top	At_Offset_3
0623 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0624 00db       |    |		Load_Top	At_Offset_3
0625 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0626 e23f       | ?  |		Load	0x1,0x3f
0627 00dc       |    |		Load_Top	At_Offset_4
0628 0267       | g  |		Execute	Discrete,Predecessor
0629 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
062a e23f       | ?  |		Load	0x1,0x3f
062b 00dc       |    |		Load_Top	At_Offset_4
062c 0268       | h  |		Execute	Discrete,Successor
062d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
062e 0000 0000  |    |		.XXX[0x2]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 4601       |F   |		Jump_Case	0x2
0634 7801       |x   |		Jump	0x636								; case 0x0
0635 7804       |x   |		Jump	0x63a								; case 0x1
0636 00da       |    |		Load_Top	At_Offset_2
0637 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0638 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0639 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
063a 00da       |    |		Load_Top	At_Offset_2
063b 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
063c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
063d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
063e 0000 0000  |    |		.XXX[0x2]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643       | C  |		.CONST	0x0643								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0001       |    |		.CONST	0x0001								; Number of locals
0643			BODY_0640:
0643			INIT_0640:
0643 4601       |F   |		Jump_Case	0x2
0644 7801       |x   |		Jump	0x646								; case 0x0
0645 7804       |x   |		Jump	0x64a								; case 0x1
0646 00da       |    |		Load_Top	At_Offset_2
0647 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0648 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0649 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
064a 00da       |    |		Load_Top	At_Offset_2
064b 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
064c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
064d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
064e 0000 0000  |    |		.XXX[0x2]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653       | S  |		.CONST	0x0653								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0001       |    |		.CONST	0x0001								; Number of locals
0653			BODY_0650:
0653			INIT_0650:
0653 4605       |F   |		Jump_Case	0x6
0654 7804       |x   |		Jump	0x659								; case 0x0
0655 7815       |x   |		Jump	0x66b								; case 0x1
0656 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0657 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0658 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0659 00da       |    |		Load_Top	At_Offset_2						; case 0x5
065a 01d8       |    |		Execute	Vector,Element_Type
065b 0322       | "  |		Declare_Variable	Record
065c 00d8       |    |		Load_Top	At_Offset_0
065d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
065e 00db       |    |		Load_Top	At_Offset_3
065f 01dc       |    |		Execute	Vector,Last
0660 e5ff       |    |		Load	0x2,-0x1
0661 01dd       |    |		Execute	Vector,First
0662 0263       | c  |		Execute	Discrete,Above_Bound
0663 7006       |p   |		Jump_Nonzero	0x66a
0664 00da       |    |		Load_Top	At_Offset_2
0665 00d9       |    |		Load_Top	At_Offset_1
0666 e5ff       |    |		Load	0x2,-0x1
0667 01d6       |    |		Execute	Vector,Field_Write
0668 0a01       |    |		Execute_Immediate	Plus,0x1
0669 7ff8       |    |		Jump	0x662
066a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
066b 00da       |    |		Load_Top	At_Offset_2
066c 01dc       |    |		Execute	Vector,Last
066d 00db       |    |		Load_Top	At_Offset_3
066e 01dd       |    |		Execute	Vector,First
066f 0263       | c  |		Execute	Discrete,Above_Bound
0670 7006       |p   |		Jump_Nonzero	0x677
0671 00d8       |    |		Load_Top	At_Offset_0
0672 e5ff       |    |		Load	0x2,-0x1
0673 01d7       |    |		Execute	Vector,Field_Read
0674 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0675 0a01       |    |		Execute_Immediate	Plus,0x1
0676 7ff8       |    |		Jump	0x66f
0677 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b       | {  |		.CONST	0x067b								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0001       |    |		.CONST	0x0001								; Number of locals
067b			BODY_0678:
067b			INIT_0678:
067b 4605       |F   |		Jump_Case	0x6
067c 7804       |x   |		Jump	0x681								; case 0x0
067d 7815       |x   |		Jump	0x693								; case 0x1
067e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
067f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0680 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0681 00da       |    |		Load_Top	At_Offset_2						; case 0x5
0682 01d8       |    |		Execute	Vector,Element_Type
0683 0322       | "  |		Declare_Variable	Record
0684 00d8       |    |		Load_Top	At_Offset_0
0685 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0686 00db       |    |		Load_Top	At_Offset_3
0687 01dc       |    |		Execute	Vector,Last
0688 e5ff       |    |		Load	0x2,-0x1
0689 01dd       |    |		Execute	Vector,First
068a 0263       | c  |		Execute	Discrete,Above_Bound
068b 7006       |p   |		Jump_Nonzero	0x692
068c 00da       |    |		Load_Top	At_Offset_2
068d 00d9       |    |		Load_Top	At_Offset_1
068e e5ff       |    |		Load	0x2,-0x1
068f 01d6       |    |		Execute	Vector,Field_Write
0690 0a01       |    |		Execute_Immediate	Plus,0x1
0691 7ff8       |    |		Jump	0x68a
0692 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0693 00da       |    |		Load_Top	At_Offset_2
0694 01dc       |    |		Execute	Vector,Last
0695 00db       |    |		Load_Top	At_Offset_3
0696 01dd       |    |		Execute	Vector,First
0697 0263       | c  |		Execute	Discrete,Above_Bound
0698 7006       |p   |		Jump_Nonzero	0x69f
0699 00d8       |    |		Load_Top	At_Offset_0
069a e5ff       |    |		Load	0x2,-0x1
069b 01d7       |    |		Execute	Vector,Field_Read
069c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
069d 0a01       |    |		Execute_Immediate	Plus,0x1
069e 7ff8       |    |		Jump	0x697
069f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3       |    |		.CONST	0x06a3								; Address of begin
06a1 0004       |    |		.CONST	0x0004								; Address of exception handler
06a2 0001       |    |		.CONST	0x0001								; Number of locals
06a3			BODY_06a0:
06a3			INIT_06a0:
06a3 4601       |F   |		Jump_Case	0x2
06a4 7801       |x   |		Jump	0x6a6								; case 0x0
06a5 7804       |x   |		Jump	0x6aa								; case 0x1
06a6 00da       |    |		Load_Top	At_Offset_2
06a7 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
06a8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06a9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06aa 00da       |    |		Load_Top	At_Offset_2
06ab 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
06ac 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06ad 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06ae 0000 0000  |    |		.XXX[0x2]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3       |    |		.CONST	0x06b3								; Address of begin
06b1 0004       |    |		.CONST	0x0004								; Address of exception handler
06b2 0001       |    |		.CONST	0x0001								; Number of locals
06b3			BODY_06b0:
06b3			INIT_06b0:
06b3 4605       |F   |		Jump_Case	0x6
06b4 7804       |x   |		Jump	0x6b9								; case 0x0
06b5 7815       |x   |		Jump	0x6cb								; case 0x1
06b6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
06b7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
06b8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
06b9 00da       |    |		Load_Top	At_Offset_2						; case 0x5
06ba 01d8       |    |		Execute	Vector,Element_Type
06bb 0322       | "  |		Declare_Variable	Record
06bc 00d8       |    |		Load_Top	At_Offset_0
06bd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06be 00db       |    |		Load_Top	At_Offset_3
06bf 01dc       |    |		Execute	Vector,Last
06c0 e5ff       |    |		Load	0x2,-0x1
06c1 01dd       |    |		Execute	Vector,First
06c2 0263       | c  |		Execute	Discrete,Above_Bound
06c3 7006       |p   |		Jump_Nonzero	0x6ca
06c4 00da       |    |		Load_Top	At_Offset_2
06c5 00d9       |    |		Load_Top	At_Offset_1
06c6 e5ff       |    |		Load	0x2,-0x1
06c7 01d6       |    |		Execute	Vector,Field_Write
06c8 0a01       |    |		Execute_Immediate	Plus,0x1
06c9 7ff8       |    |		Jump	0x6c2
06ca 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06cb 00da       |    |		Load_Top	At_Offset_2
06cc 01dc       |    |		Execute	Vector,Last
06cd 00db       |    |		Load_Top	At_Offset_3
06ce 01dd       |    |		Execute	Vector,First
06cf 0263       | c  |		Execute	Discrete,Above_Bound
06d0 7006       |p   |		Jump_Nonzero	0x6d7
06d1 00d8       |    |		Load_Top	At_Offset_0
06d2 e5ff       |    |		Load	0x2,-0x1
06d3 01d7       |    |		Execute	Vector,Field_Read
06d4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06d5 0a01       |    |		Execute_Immediate	Plus,0x1
06d6 7ff8       |    |		Jump	0x6cf
06d7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
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 4601       |F   |		Jump_Case	0x2
06dc 7801       |x   |		Jump	0x6de								; case 0x0
06dd 7804       |x   |		Jump	0x6e2								; case 0x1
06de 00da       |    |		Load_Top	At_Offset_2
06df 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
06e0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06e1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06e2 00da       |    |		Load_Top	At_Offset_2
06e3 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
06e4 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06e5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
06e6 0000 0000  |    |		.XXX[0x2]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb       |    |		.CONST	0x06eb								; Address of begin
06e9 0004       |    |		.CONST	0x0004								; Address of exception handler
06ea 0001       |    |		.CONST	0x0001								; Number of locals
06eb			BODY_06e8:
06eb			INIT_06e8:
06eb 4605       |F   |		Jump_Case	0x6
06ec 7804       |x   |		Jump	0x6f1								; case 0x0
06ed 7815       |x   |		Jump	0x703								; case 0x1
06ee 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
06ef 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
06f0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
06f1 00da       |    |		Load_Top	At_Offset_2						; case 0x5
06f2 01d8       |    |		Execute	Vector,Element_Type
06f3 0322       | "  |		Declare_Variable	Record
06f4 00d8       |    |		Load_Top	At_Offset_0
06f5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
06f6 00db       |    |		Load_Top	At_Offset_3
06f7 01dc       |    |		Execute	Vector,Last
06f8 e5ff       |    |		Load	0x2,-0x1
06f9 01dd       |    |		Execute	Vector,First
06fa 0263       | c  |		Execute	Discrete,Above_Bound
06fb 7006       |p   |		Jump_Nonzero	0x702
06fc 00da       |    |		Load_Top	At_Offset_2
06fd 00d9       |    |		Load_Top	At_Offset_1
06fe e5ff       |    |		Load	0x2,-0x1
06ff 01d6       |    |		Execute	Vector,Field_Write
0700 0a01       |    |		Execute_Immediate	Plus,0x1
0701 7ff8       |    |		Jump	0x6fa
0702 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0703 00da       |    |		Load_Top	At_Offset_2
0704 01dc       |    |		Execute	Vector,Last
0705 00db       |    |		Load_Top	At_Offset_3
0706 01dd       |    |		Execute	Vector,First
0707 0263       | c  |		Execute	Discrete,Above_Bound
0708 7006       |p   |		Jump_Nonzero	0x70f
0709 00d8       |    |		Load_Top	At_Offset_0
070a e5ff       |    |		Load	0x2,-0x1
070b 01d7       |    |		Execute	Vector,Field_Read
070c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
070d 0a01       |    |		Execute_Immediate	Plus,0x1
070e 7ff8       |    |		Jump	0x707
070f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713       |    |		.CONST	0x0713								; Address of begin
0711 0004       |    |		.CONST	0x0004								; Address of exception handler
0712 0001       |    |		.CONST	0x0001								; Number of locals
0713			BODY_0710:
0713			INIT_0710:
0713 4605       |F   |		Jump_Case	0x6
0714 7804       |x   |		Jump	0x719								; case 0x0
0715 7815       |x   |		Jump	0x72b								; case 0x1
0716 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0717 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0718 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0719 00da       |    |		Load_Top	At_Offset_2						; case 0x5
071a 01d8       |    |		Execute	Vector,Element_Type
071b 0322       | "  |		Declare_Variable	Record
071c 00d8       |    |		Load_Top	At_Offset_0
071d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
071e 00db       |    |		Load_Top	At_Offset_3
071f 01dc       |    |		Execute	Vector,Last
0720 e5ff       |    |		Load	0x2,-0x1
0721 01dd       |    |		Execute	Vector,First
0722 0263       | c  |		Execute	Discrete,Above_Bound
0723 7006       |p   |		Jump_Nonzero	0x72a
0724 00da       |    |		Load_Top	At_Offset_2
0725 00d9       |    |		Load_Top	At_Offset_1
0726 e5ff       |    |		Load	0x2,-0x1
0727 01d6       |    |		Execute	Vector,Field_Write
0728 0a01       |    |		Execute_Immediate	Plus,0x1
0729 7ff8       |    |		Jump	0x722
072a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
072b 00da       |    |		Load_Top	At_Offset_2
072c 01dc       |    |		Execute	Vector,Last
072d 00db       |    |		Load_Top	At_Offset_3
072e 01dd       |    |		Execute	Vector,First
072f 0263       | c  |		Execute	Discrete,Above_Bound
0730 7006       |p   |		Jump_Nonzero	0x737
0731 00d8       |    |		Load_Top	At_Offset_0
0732 e5ff       |    |		Load	0x2,-0x1
0733 01d7       |    |		Execute	Vector,Field_Read
0734 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0735 0a01       |    |		Execute_Immediate	Plus,0x1
0736 7ff8       |    |		Jump	0x72f
0737 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b       | ;  |		.CONST	0x073b								; Address of begin
0739 0004       |    |		.CONST	0x0004								; Address of exception handler
073a 0001       |    |		.CONST	0x0001								; Number of locals
073b			BODY_0738:
073b			INIT_0738:
073b 4601       |F   |		Jump_Case	0x2
073c 7801       |x   |		Jump	0x73e								; case 0x0
073d 7804       |x   |		Jump	0x742								; case 0x1
073e 00da       |    |		Load_Top	At_Offset_2
073f 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0740 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0741 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0742 00da       |    |		Load_Top	At_Offset_2
0743 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0744 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0745 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0746 0000 0000  |    |		.XXX[0x2]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b       | K  |		.CONST	0x074b								; Address of begin
0749 0004       |    |		.CONST	0x0004								; Address of exception handler
074a 0001       |    |		.CONST	0x0001								; Number of locals
074b			BODY_0748:
074b			INIT_0748:
074b 4605       |F   |		Jump_Case	0x6
074c 7804       |x   |		Jump	0x751								; case 0x0
074d 7815       |x   |		Jump	0x763								; case 0x1
074e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
074f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0750 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0751 00da       |    |		Load_Top	At_Offset_2						; case 0x5
0752 01d8       |    |		Execute	Vector,Element_Type
0753 0322       | "  |		Declare_Variable	Record
0754 00d8       |    |		Load_Top	At_Offset_0
0755 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0756 00db       |    |		Load_Top	At_Offset_3
0757 01dc       |    |		Execute	Vector,Last
0758 e5ff       |    |		Load	0x2,-0x1
0759 01dd       |    |		Execute	Vector,First
075a 0263       | c  |		Execute	Discrete,Above_Bound
075b 7006       |p   |		Jump_Nonzero	0x762
075c 00da       |    |		Load_Top	At_Offset_2
075d 00d9       |    |		Load_Top	At_Offset_1
075e e5ff       |    |		Load	0x2,-0x1
075f 01d6       |    |		Execute	Vector,Field_Write
0760 0a01       |    |		Execute_Immediate	Plus,0x1
0761 7ff8       |    |		Jump	0x75a
0762 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0763 00da       |    |		Load_Top	At_Offset_2
0764 01dc       |    |		Execute	Vector,Last
0765 00db       |    |		Load_Top	At_Offset_3
0766 01dd       |    |		Execute	Vector,First
0767 0263       | c  |		Execute	Discrete,Above_Bound
0768 7006       |p   |		Jump_Nonzero	0x76f
0769 00d8       |    |		Load_Top	At_Offset_0
076a e5ff       |    |		Load	0x2,-0x1
076b 01d7       |    |		Execute	Vector,Field_Read
076c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
076d 0a01       |    |		Execute_Immediate	Plus,0x1
076e 7ff8       |    |		Jump	0x767
076f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
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 00cf       |    |		Action	Mark_Auxiliary
0774 e253       | S  |		Load	0x1,0x53
0775 4801       |H   |		Short_Literal	0x1
0776 0263       | c  |		Execute	Discrete,Above_Bound
0777 7012       |p   |		Jump_Nonzero	0x78a
0778 00d8       |    |		Load_Top	At_Offset_0
0779 e252       | R  |		Load	0x1,0x52
077a 01d5       |    |		Execute	Vector,Field_Reference
077b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
077c e027       | '  |		Load	0x0,0x27
077d 027f       |    |		Execute	Discrete,Equal
077e 7009       |p   |		Jump_Nonzero	0x788
077f 00d8       |    |		Load_Top	At_Offset_0
0780 e252       | R  |		Load	0x1,0x52
0781 01d5       |    |		Execute	Vector,Field_Reference
0782 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0783 e5ff       |    |		Load	0x2,-0x1
0784 027f       |    |		Execute	Discrete,Equal
0785 6802       |h   |		Jump_Zero	0x788
0786 4801       |H   |		Short_Literal	0x1
0787 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0788 00c8       |    |		Action	Pop_Auxiliary_Range
0789 3fee       |?   |		Loop_Increasing	0x778
078a 00ce       |    |		Action	Pop_Auxiliary
078b 4800       |H   |		Short_Literal	0x0
078c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
078d 0000 0000  |    |		.XXX[0x3]
078f 0000       |    |
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793       |    |		.CONST	0x0793								; Address of begin
0791 0004       |    |		.CONST	0x0004								; Address of exception handler
0792 0001       |    |		.CONST	0x0001								; Number of locals
0793			BODY_0790:
0793			INIT_0790:
0793 00cf       |    |		Action	Mark_Auxiliary
0794 e25d       | ]  |		Load	0x1,0x5d
0795 4801       |H   |		Short_Literal	0x1
0796 0263       | c  |		Execute	Discrete,Above_Bound
0797 701f       |p   |		Jump_Nonzero	0x7b7
0798 00d8       |    |		Load_Top	At_Offset_0
0799 e25c       | \  |		Load	0x1,0x5c
079a 01d5       |    |		Execute	Vector,Field_Reference
079b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
079c e01e       |    |		Load	0x0,0x1e
079d 027e       | ~  |		Execute	Discrete,Not_Equal
079e 6816       |h   |		Jump_Zero	0x7b5
079f 00d8       |    |		Load_Top	At_Offset_0
07a0 e25c       | \  |		Load	0x1,0x5c
07a1 01d5       |    |		Execute	Vector,Field_Reference
07a2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07a3 e5ff       |    |		Load	0x2,-0x1
07a4 027f       |    |		Execute	Discrete,Equal
07a5 7007       |p   |		Jump_Nonzero	0x7ad
07a6 00d8       |    |		Load_Top	At_Offset_0
07a7 e25c       | \  |		Load	0x1,0x5c
07a8 01d5       |    |		Execute	Vector,Field_Reference
07a9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07aa e011       |    |		Load	0x0,0x11
07ab 027f       |    |		Execute	Discrete,Equal
07ac 6808       |h   |		Jump_Zero	0x7b5
07ad 00d8       |    |		Load_Top	At_Offset_0
07ae e25c       | \  |		Load	0x1,0x5c
07af 01d5       |    |		Execute	Vector,Field_Reference
07b0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
07b1 0f01       |    |		Execute_Immediate	Equal,0x1
07b2 6802       |h   |		Jump_Zero	0x7b5
07b3 4801       |H   |		Short_Literal	0x1
07b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07b5 00c8       |    |		Action	Pop_Auxiliary_Range
07b6 3fe1       |?   |		Loop_Increasing	0x798
07b7 00ce       |    |		Action	Pop_Auxiliary
07b8 4800       |H   |		Short_Literal	0x0
07b9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07ba 0000 0000  |    |		.BLANK	0000[0x6]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3       |    |		.CONST	0x07c3								; Address of begin
07c1 0004       |    |		.CONST	0x0004								; Address of exception handler
07c2 0001       |    |		.CONST	0x0001								; Number of locals
07c3			BODY_07c0:
07c3			INIT_07c0:
07c3 00cf       |    |		Action	Mark_Auxiliary
07c4 e25d       | ]  |		Load	0x1,0x5d
07c5 4801       |H   |		Short_Literal	0x1
07c6 0263       | c  |		Execute	Discrete,Above_Bound
07c7 7019       |p   |		Jump_Nonzero	0x7e1
07c8 00d8       |    |		Load_Top	At_Offset_0
07c9 e25c       | \  |		Load	0x1,0x5c
07ca 01d5       |    |		Execute	Vector,Field_Reference
07cb 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
07cc e01e       |    |		Load	0x0,0x1e
07cd 027e       | ~  |		Execute	Discrete,Not_Equal
07ce 6810       |h   |		Jump_Zero	0x7df
07cf 00d8       |    |		Load_Top	At_Offset_0
07d0 e25c       | \  |		Load	0x1,0x5c
07d1 01d5       |    |		Execute	Vector,Field_Reference
07d2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07d3 e5ff       |    |		Load	0x2,-0x1
07d4 027f       |    |		Execute	Discrete,Equal
07d5 7007       |p   |		Jump_Nonzero	0x7dd
07d6 00d8       |    |		Load_Top	At_Offset_0
07d7 e25c       | \  |		Load	0x1,0x5c
07d8 01d5       |    |		Execute	Vector,Field_Reference
07d9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07da e011       |    |		Load	0x0,0x11
07db 027f       |    |		Execute	Discrete,Equal
07dc 6802       |h   |		Jump_Zero	0x7df
07dd 4801       |H   |		Short_Literal	0x1
07de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07df 00c8       |    |		Action	Pop_Auxiliary_Range
07e0 3fe7       |?   |		Loop_Increasing	0x7c8
07e1 00ce       |    |		Action	Pop_Auxiliary
07e2 4800       |H   |		Short_Literal	0x0
07e3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07e4 0000 0000  |    |		.BLANK	0000[0x4]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb       |    |		.CONST	0x07eb								; Address of begin
07e9 0004       |    |		.CONST	0x0004								; Address of exception handler
07ea 0001       |    |		.CONST	0x0001								; Number of locals
07eb			BODY_07e8:
07eb			INIT_07e8:
07eb 00cf       |    |		Action	Mark_Auxiliary
07ec e258       | X  |		Load	0x1,0x58
07ed 4801       |H   |		Short_Literal	0x1
07ee 0263       | c  |		Execute	Discrete,Above_Bound
07ef 7019       |p   |		Jump_Nonzero	0x809
07f0 00d8       |    |		Load_Top	At_Offset_0
07f1 e257       | W  |		Load	0x1,0x57
07f2 01d5       |    |		Execute	Vector,Field_Reference
07f3 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
07f4 e01e       |    |		Load	0x0,0x1e
07f5 027e       | ~  |		Execute	Discrete,Not_Equal
07f6 6810       |h   |		Jump_Zero	0x807
07f7 00d8       |    |		Load_Top	At_Offset_0
07f8 e257       | W  |		Load	0x1,0x57
07f9 01d5       |    |		Execute	Vector,Field_Reference
07fa 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07fb e011       |    |		Load	0x0,0x11
07fc 027f       |    |		Execute	Discrete,Equal
07fd 7007       |p   |		Jump_Nonzero	0x805
07fe 00d8       |    |		Load_Top	At_Offset_0
07ff e257       | W  |		Load	0x1,0x57
0800 01d5       |    |		Execute	Vector,Field_Reference
0801 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0802 e5ff       |    |		Load	0x2,-0x1
0803 027f       |    |		Execute	Discrete,Equal
0804 6802       |h   |		Jump_Zero	0x807
0805 4801       |H   |		Short_Literal	0x1
0806 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0807 00c8       |    |		Action	Pop_Auxiliary_Range
0808 3fe7       |?   |		Loop_Increasing	0x7f0
0809 00ce       |    |		Action	Pop_Auxiliary
080a 4800       |H   |		Short_Literal	0x0
080b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
080c 0000 0000  |    |		.BLANK	0000[0x4]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 081a       |    |		.CONST	0x081a								; Address of begin
0811 0836       | 6  |		.CONST	0x0836								; Address of exception handler
0812 0003       |    |		.CONST	0x0003								; Number of locals
0813			INIT_0810:
0813 e22f       | /  |		Load	0x1,0x2f
0814 0007       |    |		Action	Break_Optional
0815 0093 0000  |    |		push_full_address	0x0
0817 6028       |`(  |		Indirect_Literal	Discrete,0x840,{0x80000000, 0x00010000}
0818 0273       | s  |		Execute	Discrete,Plus
0819 0007       |    |		Action	Break_Optional
081a			BODY_0810:
081a e5ff       |    |		Load	0x2,-0x1
081b 8050       | P  |		Call	0x0,0x50
081c 005a       | Z  |		Store_Top	Discrete,At_Offset_2
081d 00d9       |    |		Load_Top	At_Offset_1
081e e238       | 8  |		Load	0x1,0x38
081f 01d5       |    |		Execute	Vector,Field_Reference
0820 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0821 e5ff       |    |		Load	0x2,-0x1
0822 027f       |    |		Execute	Discrete,Equal
0823 6810       |h   |		Jump_Zero	0x834
0824 4800       |H   |		Short_Literal	0x0
0825 00da       |    |		Load_Top	At_Offset_2
0826 e238       | 8  |		Load	0x1,0x38
0827 01d5       |    |		Execute	Vector,Field_Reference
0828 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0829 00d9       |    |		Load_Top	At_Offset_1
082a e238       | 8  |		Load	0x1,0x38
082b 01d5       |    |		Execute	Vector,Field_Reference
082c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
082d e5ff       |    |		Load	0x2,-0x1
082e 027f       |    |		Execute	Discrete,Equal
082f 6802       |h   |		Jump_Zero	0x832
0830 00d9       |    |		Load_Top	At_Offset_1
0831 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0832 00d8       |    |		Load_Top	At_Offset_0
0833 0257       | W  |		Execute	Discrete,Raise
0834 00d8       |    |		Load_Top	At_Offset_0
0835 0257       | W  |		Execute	Discrete,Raise
0836			TRAP_0810:
0836 0007       |    |		Action	Break_Optional
0837 e22f       | /  |		Load	0x1,0x2f
0838 e5ff       |    |		Load	0x2,-0x1
0839 4802       |H   |		Short_Literal	0x2
083a e26b       | k  |		Load	0x1,0x6b
083b 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
083c 005b       | [  |		Store_Top	Discrete,At_Offset_3
083d 00da       |    |		Load_Top	At_Offset_2
083e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
083f 0000       |    |		.XXX[0x1]
0840 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0844 0000 0000  |    |		.BLANK	0000[0x4]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084d       | M  |		.CONST	0x084d								; Address of begin
0849 0860       | `  |		.CONST	0x0860								; Address of exception handler
084a 0002       |    |		.CONST	0x0002								; Number of locals
084b			INIT_0848:
084b e22f       | /  |		Load	0x1,0x2f
084c 0007       |    |		Action	Break_Optional
084d			BODY_0848:
084d 00db       |    |		Load_Top	At_Offset_3
084e 8050       | P  |		Call	0x0,0x50
084f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0850 00d8       |    |		Load_Top	At_Offset_0
0851 e238       | 8  |		Load	0x1,0x38
0852 01d5       |    |		Execute	Vector,Field_Reference
0853 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0854 e5ff       |    |		Load	0x2,-0x1
0855 027f       |    |		Execute	Discrete,Equal
0856 6807       |h   |		Jump_Zero	0x85e
0857 4800       |H   |		Short_Literal	0x0
0858 00d9       |    |		Load_Top	At_Offset_1
0859 e238       | 8  |		Load	0x1,0x38
085a 01d5       |    |		Execute	Vector,Field_Reference
085b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
085c 00d8       |    |		Load_Top	At_Offset_0
085d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
085e 4800       |H   |		Short_Literal	0x0
085f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0860			TRAP_0848:
0860 0007       |    |		Action	Break_Optional
0861 4800       |H   |		Short_Literal	0x0
0862 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0863 0000 0000  |    |		.BLANK	0000[0x5]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 0876       | v  |		.CONST	0x0876								; Address of begin
0869 0004       |    |		.CONST	0x0004								; Address of exception handler
086a 0007       |    |		.CONST	0x0007								; Number of locals
086b			INIT_0868:
086b e006       |    |		Load	0x0,0x6
086c 0322       | "  |		Declare_Variable	Record
086d 00d8       |    |		Load_Top	At_Offset_0
086e 0322       | "  |		Declare_Variable	Record
086f 00e3       |    |		Load_Encached	Natural_Cache
0870 00e3       |    |		Load_Encached	Natural_Cache
0871 e5ff       |    |		Load	0x2,-0x1
0872 8051       | Q  |		Call	0x0,0x51
0873 00e3       |    |		Load_Encached	Natural_Cache
0874 03f1       |    |		Declare_Variable	Discrete,With_Value
0875 00e3       |    |		Load_Encached	Natural_Cache
0876			BODY_0868:
0876 e5ff       |    |		Load	0x2,-0x1
0877 e5fe       |    |		Load	0x2,-0x2
0878 017f       |    |		Execute	Record,Equal
0879 6802       |h   |		Jump_Zero	0x87c
087a 4801       |H   |		Short_Literal	0x1
087b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
087c 4801       |H   |		Short_Literal	0x1
087d 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
087e 4801       |H   |		Short_Literal	0x1
087f a404       |    |		Store_Unchecked	0x2,0x4
0880 e5fe       |    |		Load	0x2,-0x2
0881 8051       | Q  |		Call	0x0,0x51
0882 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0883 00cf       |    |		Action	Mark_Auxiliary
0884 00db       |    |		Load_Top	At_Offset_3
0885 00da       |    |		Load_Top	At_Offset_2
0886 027d       | }  |		Execute	Discrete,Greater
0887 7024       |p$  |		Jump_Nonzero	0x8ac
0888 e404       |    |		Load	0x2,0x4
0889 00db       |    |		Load_Top	At_Offset_3
088a 027d       | }  |		Execute	Discrete,Greater
088b 7020       |p   |		Jump_Nonzero	0x8ac
088c e404       |    |		Load	0x2,0x4
088d 00d8       |    |		Load_Top	At_Offset_0
088e 00e4       |    |		Load_Encached	Positive_Cache
088f 0260       | `  |		Execute	Discrete,In_Type
0890 7001       |p   |		Jump_Nonzero	0x892
0891 0801       |    |		Execute_Immediate	Raise,0x1
0892 e5ff       |    |		Load	0x2,-0x1
0893 8052       | R  |		Call	0x0,0x52
0894 e402       |    |		Load	0x2,0x2
0895 017d       | }  |		Execute	Record,Structure_Write
0896 00db       |    |		Load_Top	At_Offset_3
0897 00d8       |    |		Load_Top	At_Offset_0
0898 00e4       |    |		Load_Encached	Positive_Cache
0899 0260       | `  |		Execute	Discrete,In_Type
089a 7001       |p   |		Jump_Nonzero	0x89c
089b 0801       |    |		Execute_Immediate	Raise,0x1
089c e5fe       |    |		Load	0x2,-0x2
089d 8052       | R  |		Call	0x0,0x52
089e e403       |    |		Load	0x2,0x3
089f 017d       | }  |		Execute	Record,Structure_Write
08a0 00db       |    |		Load_Top	At_Offset_3
08a1 0a01       |    |		Execute_Immediate	Plus,0x1
08a2 c405       |    |		Store	0x2,0x5
08a3 e402       |    |		Load	0x2,0x2
08a4 e403       |    |		Load	0x2,0x3
08a5 017f       |    |		Execute	Record,Equal
08a6 6803       |h   |		Jump_Zero	0x8aa
08a7 e404       |    |		Load	0x2,0x4
08a8 0a01       |    |		Execute_Immediate	Plus,0x1
08a9 c404       |    |		Store	0x2,0x4
08aa 00c9       |    |		Action	Pop_Auxiliary_Loop
08ab 7fd8       |    |		Jump	0x884
08ac 00ce       |    |		Action	Pop_Auxiliary
08ad 00db       |    |		Load_Top	At_Offset_3
08ae 00da       |    |		Load_Top	At_Offset_2
08af 027d       | }  |		Execute	Discrete,Greater
08b0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08b1 0000 0000  |    |		.BLANK	0000[0x7]
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08c1       |    |		.CONST	0x08c1								; Address of begin
08b9 0004       |    |		.CONST	0x0004								; Address of exception handler
08ba 0004       |    |		.CONST	0x0004								; Number of locals
08bb			INIT_08b8:
08bb 00e3       |    |		Load_Encached	Natural_Cache
08bc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
08bd 00e3       |    |		Load_Encached	Natural_Cache
08be 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
08bf 029f 0e1b  |    |		Declare_Subprogram	INIT_0e18,For_Call
08c1			BODY_08b8:
08c1 e01e       |    |		Load	0x0,0x1e
08c2 a5fb       |    |		Store_Unchecked	0x2,-0x5
08c3 e01e       |    |		Load	0x0,0x1e
08c4 a5f9       |    |		Store_Unchecked	0x2,-0x7
08c5 00cf       |    |		Action	Mark_Auxiliary
08c6 e268       | h  |		Load	0x1,0x68
08c7 4801       |H   |		Short_Literal	0x1
08c8 0263       | c  |		Execute	Discrete,Above_Bound
08c9 7003       |p   |		Jump_Nonzero	0x8cd
08ca 8404       |    |		Call	0x2,0x4
08cb 00c8       |    |		Action	Pop_Auxiliary_Range
08cc 3ffd       |?   |		Loop_Increasing	0x8ca
08cd 00ce       |    |		Action	Pop_Auxiliary
08ce 00da       |    |		Load_Top	At_Offset_2
08cf 680c       |h   |		Jump_Zero	0x8dc
08d0 00da       |    |		Load_Top	At_Offset_2
08d1 e267       | g  |		Load	0x1,0x67
08d2 01d5       |    |		Execute	Vector,Field_Reference
08d3 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
08d4 0f04       |    |		Execute_Immediate	Equal,0x4
08d5 6806       |h   |		Jump_Zero	0x8dc
08d6 00da       |    |		Load_Top	At_Offset_2
08d7 e267       | g  |		Load	0x1,0x67
08d8 01d5       |    |		Execute	Vector,Field_Reference
08d9 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
08da a5fa       |    |		Store_Unchecked	0x2,-0x6
08db 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08dc e01e       |    |		Load	0x0,0x1e
08dd a5fa       |    |		Store_Unchecked	0x2,-0x6
08de 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
08df 0000       |    |		.XXX[0x1]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 08e3       |    |		.CONST	0x08e3								; Address of begin
08e1 0004       |    |		.CONST	0x0004								; Address of exception handler
08e2 0001       |    |		.CONST	0x0001								; Number of locals
08e3			BODY_08e0:
08e3			INIT_08e0:
08e3 00db       |    |		Load_Top	At_Offset_3
08e4 7003       |p   |		Jump_Nonzero	0x8e8
08e5 00da       |    |		Load_Top	At_Offset_2
08e6 8053       | S  |		Call	0x0,0x53
08e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08e8 4800       |H   |		Short_Literal	0x0
08e9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
08ea 0000 0000  |    |		.BLANK	0000[0x6]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f3       |    |		.CONST	0x08f3								; Address of begin
08f1 0004       |    |		.CONST	0x0004								; Address of exception handler
08f2 0001       |    |		.CONST	0x0001								; Number of locals
08f3			BODY_08f0:
08f3			INIT_08f0:
08f3 00da       |    |		Load_Top	At_Offset_2
08f4 6003       |`   |		Indirect_Literal	Discrete,0x8f8,{0x00000000, 0x7fffffff}
08f5 8054       | T  |		Call	0x0,0x54
08f6 8055       | U  |		Call	0x0,0x55
08f7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
08fc 0000 0000  |    |		.BLANK	0000[0x4]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 090a       |    |		.CONST	0x090a								; Address of begin
0901 0951       | Q  |		.CONST	0x0951								; Address of exception handler
0902 0004       |    |		.CONST	0x0004								; Number of locals
0903			INIT_0900:
0903 e039       | 9  |		Load	0x0,0x39
0904 0322       | "  |		Declare_Variable	Record
0905 00d8       |    |		Load_Top	At_Offset_0
0906 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0907 e20d       |    |		Load	0x1,0xd
0908 0337       | 7  |		Declare_Variable	Array
0909 00e3       |    |		Load_Encached	Natural_Cache
090a			BODY_0900:
090a e23c       | <  |		Load	0x1,0x3c
090b 0a01       |    |		Execute_Immediate	Plus,0x1
090c a23c       | <  |		Store_Unchecked	0x1,0x3c
090d 00da       |    |		Load_Top	At_Offset_2
090e e5fd       |    |		Load	0x2,-0x3
090f 803c       | <  |		Call	0x0,0x3c
0910 00d1       |    |		Pop_Control	Pop_Count_1
0911 e5f7       |    |		Load	0x2,-0x9
0912 e5fb       |    |		Load	0x2,-0x5
0913 8275       | u  |		Call	0x1,0x75
0914 6807       |h   |		Jump_Zero	0x91c
0915 e5fd       |    |		Load	0x2,-0x3
0916 e5fc       |    |		Load	0x2,-0x4
0917 027f       |    |		Execute	Discrete,Equal
0918 6803       |h   |		Jump_Zero	0x91c
0919 00da       |    |		Load_Top	At_Offset_2
091a 8276       | v  |		Call	0x1,0x76
091b 00d1       |    |		Pop_Control	Pop_Count_1
091c 00da       |    |		Load_Top	At_Offset_2
091d e5fe       |    |		Load	0x2,-0x2
091e 803d       | =  |		Call	0x0,0x3d
091f 00d1       |    |		Pop_Control	Pop_Count_1
0920 00da       |    |		Load_Top	At_Offset_2
0921 8056       | V  |		Call	0x0,0x56
0922 00d1       |    |		Pop_Control	Pop_Count_1
0923 00da       |    |		Load_Top	At_Offset_2
0924 8057       | W  |		Call	0x0,0x57
0925 00d1       |    |		Pop_Control	Pop_Count_1
0926 e5fa       |    |		Load	0x2,-0x6
0927 e238       | 8  |		Load	0x1,0x38
0928 01d5       |    |		Execute	Vector,Field_Reference
0929 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
092a e5ff       |    |		Load	0x2,-0x1
092b 8058       | X  |		Call	0x0,0x58
092c 4800       |H   |		Short_Literal	0x0
092d 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
092e e5f9       |    |		Load	0x2,-0x7
092f e01e       |    |		Load	0x0,0x1e
0930 027e       | ~  |		Execute	Discrete,Not_Equal
0931 6807       |h   |		Jump_Zero	0x939
0932 00d8       |    |		Load_Top	At_Offset_0
0933 0a01       |    |		Execute_Immediate	Plus,0x1
0934 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0935 e5f9       |    |		Load	0x2,-0x7
0936 00d9       |    |		Load_Top	At_Offset_1
0937 00db       |    |		Load_Top	At_Offset_3
0938 01d6       |    |		Execute	Vector,Field_Write
0939 e5f8       |    |		Load	0x2,-0x8
093a e01e       |    |		Load	0x0,0x1e
093b 027e       | ~  |		Execute	Discrete,Not_Equal
093c 6807       |h   |		Jump_Zero	0x944
093d 00d8       |    |		Load_Top	At_Offset_0
093e 0a01       |    |		Execute_Immediate	Plus,0x1
093f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0940 e5f8       |    |		Load	0x2,-0x8
0941 00d9       |    |		Load_Top	At_Offset_1
0942 00db       |    |		Load_Top	At_Offset_3
0943 01d6       |    |		Execute	Vector,Field_Write
0944 00da       |    |		Load_Top	At_Offset_2
0945 00d9       |    |		Load_Top	At_Offset_1
0946 00d8       |    |		Load_Top	At_Offset_0
0947 e20e       |    |		Load	0x1,0xe
0948 0260       | `  |		Execute	Discrete,In_Type
0949 7001       |p   |		Jump_Nonzero	0x94b
094a 0801       |    |		Execute_Immediate	Raise,0x1
094b 00db       |    |		Load_Top	At_Offset_3
094c e5fb       |    |		Load	0x2,-0x5
094d 8059       | Y  |		Call	0x0,0x59
094e e5ff       |    |		Load	0x2,-0x1
094f 805a       | Z  |		Call	0x0,0x5a
0950 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
0951			TRAP_0900:
0951 0007       |    |		Action	Break_Optional
0952 e23e       | >  |		Load	0x1,0x3e
0953 6806       |h   |		Jump_Zero	0x95a
0954 0092 113a  |   :|		Action	Push_String_Extended,0x113a					; "Process_Action: exception: "
0956 e03a       | :  |		Load	0x0,0x3a
0957 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0958 01cc       |    |		Execute	Vector,Catenate
0959 803b       | ;  |		Call	0x0,0x3b
095a 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
095b 0000 0000  |    |		.BLANK	0000[0x5]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0987       |    |		.CONST	0x0987								; Address of begin
0961 0a91       |    |		.CONST	0x0a91								; Address of exception handler
0962 0010       |    |		.CONST	0x0010								; Number of locals
0963			INIT_0960:
0963 e20d       |    |		Load	0x1,0xd
0964 0337       | 7  |		Declare_Variable	Array
0965 e20e       |    |		Load	0x1,0xe
0966 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0967 00e2       |    |		Load_Encached	Integer_Cache
0968 e039       | 9  |		Load	0x0,0x39
0969 0322       | "  |		Declare_Variable	Record
096a 00d8       |    |		Load_Top	At_Offset_0
096b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
096c 00e1       |    |		Load_Encached	Boolean_Cache
096d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
096e 00e2       |    |		Load_Encached	Integer_Cache
096f 029f 0e6b  |   k|		Declare_Subprogram	INIT_0e68,For_Call
0971 029f 0e93  |    |		Declare_Subprogram	INIT_0e90,For_Call
0973 029f 0edb  |    |		Declare_Subprogram	INIT_0ed8,For_Call
0975 a013       |    |		Store_Unchecked	0x0,0x13
0976 00c6       |    |		Action	Check_Subprogram_Elaborated
0977 00e2       |    |		Load_Encached	Integer_Cache
0978 480a       |H   |		Short_Literal	0xa
0979 4802       |H   |		Short_Literal	0x2
097a 0099       |    |		Action	Reference_Dynamic
097b 4800       |H   |		Short_Literal	0x0
097c 0093 0000  |    |		push_full_address	0x0
097e 6115       |a   |		Indirect_Literal	Discrete,0xa94,{0x80000000, 0x00060000}
097f 0273       | s  |		Execute	Discrete,Plus
0980 e014       |    |		Load	0x0,0x14
0981 0273       | s  |		Execute	Discrete,Plus
0982 e05b       | [  |		Load	0x0,0x5b
0983 0273       | s  |		Execute	Discrete,Plus
0984 480f       |H   |		Short_Literal	0xf
0985 029f 0ef3  |    |		Declare_Subprogram	INIT_0ef0,For_Call
0987			BODY_0960:
0987 e5fd       |    |		Load	0x2,-0x3
0988 8408       |    |		Call	0x2,0x8
0989 e405       |    |		Load	0x2,0x5
098a e5fc       |    |		Load	0x2,-0x4
098b 803c       | <  |		Call	0x0,0x3c
098c 00d1       |    |		Pop_Control	Pop_Count_1
098d e405       |    |		Load	0x2,0x5
098e e5fe       |    |		Load	0x2,-0x2
098f 803d       | =  |		Call	0x0,0x3d
0990 00d1       |    |		Pop_Control	Pop_Count_1
0991 e405       |    |		Load	0x2,0x5
0992 8056       | V  |		Call	0x0,0x56
0993 00d1       |    |		Pop_Control	Pop_Count_1
0994 e405       |    |		Load	0x2,0x5
0995 8057       | W  |		Call	0x0,0x57
0996 00d1       |    |		Pop_Control	Pop_Count_1
0997 00cf       |    |		Action	Mark_Auxiliary
0998 e24f       | O  |		Load	0x1,0x4f
0999 4801       |H   |		Short_Literal	0x1
099a 0263       | c  |		Execute	Discrete,Above_Bound
099b 704a       |pJ  |		Jump_Nonzero	0x9e6
099c 00d8       |    |		Load_Top	At_Offset_0
099d e24c       | L  |		Load	0x1,0x4c
099e 01d7       |    |		Execute	Vector,Field_Read
099f e5fc       |    |		Load	0x2,-0x4
09a0 027f       |    |		Execute	Discrete,Equal
09a1 6842       |hB  |		Jump_Zero	0x9e4
09a2 00d8       |    |		Load_Top	At_Offset_0
09a3 e24e       | N  |		Load	0x1,0x4e
09a4 01d5       |    |		Execute	Vector,Field_Reference
09a5 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
09a6 e05c       | \  |		Load	0x0,0x5c
09a7 017f       |    |		Execute	Record,Equal
09a8 7008       |p   |		Jump_Nonzero	0x9b1
09a9 e405       |    |		Load	0x2,0x5
09aa 805d       | ]  |		Call	0x0,0x5d
09ab 00d9       |    |		Load_Top	At_Offset_1
09ac e24e       | N  |		Load	0x1,0x4e
09ad 01d5       |    |		Execute	Vector,Field_Reference
09ae 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
09af 8273       | s  |		Call	0x1,0x73
09b0 6833       |h3  |		Jump_Zero	0x9e4
09b1 e5fd       |    |		Load	0x2,-0x3
09b2 00d9       |    |		Load_Top	At_Offset_1
09b3 e24e       | N  |		Load	0x1,0x4e
09b4 01d5       |    |		Execute	Vector,Field_Reference
09b5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
09b6 027f       |    |		Execute	Discrete,Equal
09b7 6806       |h   |		Jump_Zero	0x9be
09b8 00d8       |    |		Load_Top	At_Offset_0
09b9 e24e       | N  |		Load	0x1,0x4e
09ba 01d5       |    |		Execute	Vector,Field_Reference
09bb 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
09bc 8408       |    |		Call	0x2,0x8
09bd 7826       |x&  |		Jump	0x9e4
09be e406       |    |		Load	0x2,0x6
09bf 7004       |p   |		Jump_Nonzero	0x9c4
09c0 e5fd       |    |		Load	0x2,-0x3
09c1 e01e       |    |		Load	0x0,0x1e
09c2 027f       |    |		Execute	Discrete,Equal
09c3 6820       |h   |		Jump_Zero	0x9e4
09c4 00d8       |    |		Load_Top	At_Offset_0
09c5 e24e       | N  |		Load	0x1,0x4e
09c6 01d5       |    |		Execute	Vector,Field_Reference
09c7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
09c8 0e01       |    |		Execute_Immediate	Not_Equal,0x1
09c9 7005       |p   |		Jump_Nonzero	0x9cf
09ca 00d8       |    |		Load_Top	At_Offset_0
09cb e24e       | N  |		Load	0x1,0x4e
09cc 01d5       |    |		Execute	Vector,Field_Reference
09cd 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
09ce 6810       |h   |		Jump_Zero	0x9df
09cf 00e2       |    |		Load_Encached	Integer_Cache
09d0 00d9       |    |		Load_Top	At_Offset_1
09d1 4802       |H   |		Short_Literal	0x2
09d2 e26b       | k  |		Load	0x1,0x6b
09d3 171e       |    |		Execute	Task,Entry_Call,Field_Number 0x1e
09d4 c407       |    |		Store	0x2,0x7
09d5 e407       |    |		Load	0x2,0x7
09d6 e01e       |    |		Load	0x0,0x1e
09d7 027e       | ~  |		Execute	Discrete,Not_Equal
09d8 680b       |h   |		Jump_Zero	0x9e4
09d9 00d8       |    |		Load_Top	At_Offset_0
09da e24e       | N  |		Load	0x1,0x4e
09db 01d5       |    |		Execute	Vector,Field_Reference
09dc 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
09dd 8408       |    |		Call	0x2,0x8
09de 7805       |x   |		Jump	0x9e4
09df 00d8       |    |		Load_Top	At_Offset_0
09e0 e24e       | N  |		Load	0x1,0x4e
09e1 01d5       |    |		Execute	Vector,Field_Reference
09e2 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
09e3 8408       |    |		Call	0x2,0x8
09e4 00c8       |    |		Action	Pop_Auxiliary_Range
09e5 3fb6       |?   |		Loop_Increasing	0x99c
09e6 00c9       |    |		Action	Pop_Auxiliary_Loop
09e7 e253       | S  |		Load	0x1,0x53
09e8 4801       |H   |		Short_Literal	0x1
09e9 0263       | c  |		Execute	Discrete,Above_Bound
09ea 7051       |pQ  |		Jump_Nonzero	0xa3c
09eb 00d8       |    |		Load_Top	At_Offset_0
09ec e252       | R  |		Load	0x1,0x52
09ed 01d5       |    |		Execute	Vector,Field_Reference
09ee 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
09ef e5fc       |    |		Load	0x2,-0x4
09f0 027f       |    |		Execute	Discrete,Equal
09f1 6848       |hH  |		Jump_Zero	0xa3a
09f2 e5ff       |    |		Load	0x2,-0x1
09f3 00d9       |    |		Load_Top	At_Offset_1
09f4 e252       | R  |		Load	0x1,0x52
09f5 01d5       |    |		Execute	Vector,Field_Reference
09f6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
09f7 027f       |    |		Execute	Discrete,Equal
09f8 6841       |hA  |		Jump_Zero	0xa3a
09f9 00d8       |    |		Load_Top	At_Offset_0
09fa e252       | R  |		Load	0x1,0x52
09fb 01d5       |    |		Execute	Vector,Field_Reference
09fc 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
09fd e05c       | \  |		Load	0x0,0x5c
09fe 017f       |    |		Execute	Record,Equal
09ff 7008       |p   |		Jump_Nonzero	0xa08
0a00 e405       |    |		Load	0x2,0x5
0a01 805d       | ]  |		Call	0x0,0x5d
0a02 00d9       |    |		Load_Top	At_Offset_1
0a03 e252       | R  |		Load	0x1,0x52
0a04 01d5       |    |		Execute	Vector,Field_Reference
0a05 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0a06 8273       | s  |		Call	0x1,0x73
0a07 6832       |h2  |		Jump_Zero	0xa3a
0a08 e406       |    |		Load	0x2,0x6
0a09 7007       |p   |		Jump_Nonzero	0xa11
0a0a 00d8       |    |		Load_Top	At_Offset_0
0a0b e252       | R  |		Load	0x1,0x52
0a0c 01d5       |    |		Execute	Vector,Field_Reference
0a0d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0a0e e5fd       |    |		Load	0x2,-0x3
0a0f 027f       |    |		Execute	Discrete,Equal
0a10 6829       |h)  |		Jump_Zero	0xa3a
0a11 00d8       |    |		Load_Top	At_Offset_0
0a12 e252       | R  |		Load	0x1,0x52
0a13 01d5       |    |		Execute	Vector,Field_Reference
0a14 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0a15 0f01       |    |		Execute_Immediate	Equal,0x1
0a16 681a       |h   |		Jump_Zero	0xa31
0a17 00d8       |    |		Load_Top	At_Offset_0
0a18 e252       | R  |		Load	0x1,0x52
0a19 01d5       |    |		Execute	Vector,Field_Reference
0a1a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0a1b a404       |    |		Store_Unchecked	0x2,0x4
0a1c 00d8       |    |		Load_Top	At_Offset_0
0a1d e252       | R  |		Load	0x1,0x52
0a1e 01d5       |    |		Execute	Vector,Field_Reference
0a1f 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0a20 6805       |h   |		Jump_Zero	0xa26
0a21 e404       |    |		Load	0x2,0x4
0a22 4801       |H   |		Short_Literal	0x1
0a23 e26b       | k  |		Load	0x1,0x6b
0a24 171c       |    |		Execute	Task,Entry_Call,Field_Number 0x1c
0a25 7808       |x   |		Jump	0xa2e
0a26 00d8       |    |		Load_Top	At_Offset_0
0a27 e252       | R  |		Load	0x1,0x52
0a28 01d5       |    |		Execute	Vector,Field_Reference
0a29 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0a2a 00d9       |    |		Load_Top	At_Offset_1
0a2b e252       | R  |		Load	0x1,0x52
0a2c 01d5       |    |		Execute	Vector,Field_Reference
0a2d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0a2e e404       |    |		Load	0x2,0x4
0a2f 8408       |    |		Call	0x2,0x8
0a30 7809       |x   |		Jump	0xa3a
0a31 00d8       |    |		Load_Top	At_Offset_0
0a32 e252       | R  |		Load	0x1,0x52
0a33 01d5       |    |		Execute	Vector,Field_Reference
0a34 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0a35 0aff       |    |		Execute_Immediate	Plus,-0x1
0a36 00d9       |    |		Load_Top	At_Offset_1
0a37 e252       | R  |		Load	0x1,0x52
0a38 01d5       |    |		Execute	Vector,Field_Reference
0a39 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0a3a 00c8       |    |		Action	Pop_Auxiliary_Range
0a3b 3faf       |?   |		Loop_Increasing	0x9eb
0a3c 00ce       |    |		Action	Pop_Auxiliary
0a3d e240       | @  |		Load	0x1,0x40
0a3e 6805       |h   |		Jump_Zero	0xa44
0a3f e5fc       |    |		Load	0x2,-0x4
0a40 805e       | ^  |		Call	0x0,0x5e
0a41 6802       |h   |		Jump_Zero	0xa44
0a42 e241       | A  |		Load	0x1,0x41
0a43 8408       |    |		Call	0x2,0x8
0a44 e242       | B  |		Load	0x1,0x42
0a45 e5ff       |    |		Load	0x2,-0x1
0a46 027f       |    |		Execute	Discrete,Equal
0a47 681e       |h   |		Jump_Zero	0xa66
0a48 e5fe       |    |		Load	0x2,-0x2
0a49 e004       |    |		Load	0x0,0x4
0a4a 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0a4b e244       | D  |		Load	0x1,0x44
0a4c 027c       | |  |		Execute	Discrete,Less
0a4d 6818       |h   |		Jump_Zero	0xa66
0a4e e5fc       |    |		Load	0x2,-0x4
0a4f 805e       | ^  |		Call	0x0,0x5e
0a50 6815       |h   |		Jump_Zero	0xa66
0a51 e5fd       |    |		Load	0x2,-0x3
0a52 e245       | E  |		Load	0x1,0x45
0a53 027f       |    |		Execute	Discrete,Equal
0a54 7002       |p   |		Jump_Nonzero	0xa57
0a55 e406       |    |		Load	0x2,0x6
0a56 680f       |h   |		Jump_Zero	0xa66
0a57 e243       | C  |		Load	0x1,0x43
0a58 0f01       |    |		Execute_Immediate	Equal,0x1
0a59 6809       |h   |		Jump_Zero	0xa63
0a5a e011       |    |		Load	0x0,0x11
0a5b a242       | B  |		Store_Unchecked	0x1,0x42
0a5c e245       | E  |		Load	0x1,0x45
0a5d 8408       |    |		Call	0x2,0x8
0a5e e5ff       |    |		Load	0x2,-0x1
0a5f 4801       |H   |		Short_Literal	0x1
0a60 e26b       | k  |		Load	0x1,0x6b
0a61 171d       |    |		Execute	Task,Entry_Call,Field_Number 0x1d
0a62 7803       |x   |		Jump	0xa66
0a63 e243       | C  |		Load	0x1,0x43
0a64 0aff       |    |		Execute_Immediate	Plus,-0x1
0a65 c243       | C  |		Store	0x1,0x43
0a66 e5ff       |    |		Load	0x2,-0x1
0a67 e246       | F  |		Load	0x1,0x46
0a68 027f       |    |		Execute	Discrete,Equal
0a69 6815       |h   |		Jump_Zero	0xa7f
0a6a e5fd       |    |		Load	0x2,-0x3
0a6b e248       | H  |		Load	0x1,0x48
0a6c 027f       |    |		Execute	Discrete,Equal
0a6d 7002       |p   |		Jump_Nonzero	0xa70
0a6e e406       |    |		Load	0x2,0x6
0a6f 680f       |h   |		Jump_Zero	0xa7f
0a70 e247       | G  |		Load	0x1,0x47
0a71 0f01       |    |		Execute_Immediate	Equal,0x1
0a72 6809       |h   |		Jump_Zero	0xa7c
0a73 e011       |    |		Load	0x0,0x11
0a74 a246       | F  |		Store_Unchecked	0x1,0x46
0a75 e248       | H  |		Load	0x1,0x48
0a76 8408       |    |		Call	0x2,0x8
0a77 e5ff       |    |		Load	0x2,-0x1
0a78 4801       |H   |		Short_Literal	0x1
0a79 e26b       | k  |		Load	0x1,0x6b
0a7a 171d       |    |		Execute	Task,Entry_Call,Field_Number 0x1d
0a7b 7803       |x   |		Jump	0xa7f
0a7c e247       | G  |		Load	0x1,0x47
0a7d 0aff       |    |		Execute_Immediate	Plus,-0x1
0a7e c247       | G  |		Store	0x1,0x47
0a7f e024       | $  |		Load	0x0,0x24
0a80 e5ff       |    |		Load	0x2,-0x1
0a81 e40b       |    |		Load	0x2,0xb
0a82 480c       |H   |		Short_Literal	0xc
0a83 4802       |H   |		Short_Literal	0x2
0a84 0099       |    |		Action	Reference_Dynamic
0a85 e40d       |    |		Load	0x2,0xd
0a86 480e       |H   |		Short_Literal	0xe
0a87 4802       |H   |		Short_Literal	0x2
0a88 0099       |    |		Action	Reference_Dynamic
0a89 8013       |    |		Call	0x0,0x13
0a8a c024       | $  |		Store	0x0,0x24
0a8b e405       |    |		Load	0x2,0x5
0a8c e403       |    |		Load	0x2,0x3
0a8d e402       |    |		Load	0x2,0x2
0a8e e5ff       |    |		Load	0x2,-0x1
0a8f 805f       | _  |		Call	0x0,0x5f
0a90 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0a91			TRAP_0960:
0a91 0007       |    |		Action	Break_Optional
0a92 8410       |    |		Call	0x2,0x10
0a93 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0a94 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0a9e       |    |		.CONST	0x0a9e								; Address of begin
0a99 0aaa       |    |		.CONST	0x0aaa								; Address of exception handler
0a9a 0003       |    |		.CONST	0x0003								; Number of locals
0a9b			INIT_0a98:
0a9b 00e1       |    |		Load_Encached	Boolean_Cache
0a9c 029f 0f13  |    |		Declare_Subprogram	INIT_0f10,For_Call
0a9e			BODY_0a98:
0a9e 00e1       |    |		Load_Encached	Boolean_Cache
0a9f e5fd       |    |		Load	0x2,-0x3
0aa0 e5fe       |    |		Load	0x2,-0x2
0aa1 e5ff       |    |		Load	0x2,-0x1
0aa2 4804       |H   |		Short_Literal	0x4
0aa3 e270       | p  |		Load	0x1,0x70
0aa4 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0aa5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0aa6 00d9       |    |		Load_Top	At_Offset_1
0aa7 6801       |h   |		Jump_Zero	0xaa9
0aa8 8403       |    |		Call	0x2,0x3
0aa9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0aaa			TRAP_0a98:
0aaa 0007       |    |		Action	Break_Optional
0aab 0092 113b  |   ;|		Action	Push_String_Extended,0x113b					; "Creation_Register:"
0aad e03a       | :  |		Load	0x0,0x3a
0aae 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0aaf 01cc       |    |		Execute	Vector,Catenate
0ab0 803b       | ;  |		Call	0x0,0x3b
0ab1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0ab2 0000 0000  |    |		.BLANK	0000[0x6]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; SUBPROGRAM
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0abd       |    |		.CONST	0x0abd								; Address of begin
0ab9 0004       |    |		.CONST	0x0004								; Address of exception handler
0aba 0002       |    |		.CONST	0x0002								; Number of locals
0abb			INIT_0ab8:
0abb e004       |    |		Load	0x0,0x4
0abc 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0abd			BODY_0ab8:
0abd e004       |    |		Load	0x0,0x4
0abe 1b51       | Q  |		Execute	Package,Field_Read,Field_Number 0x51
0abf 00e3       |    |		Load_Encached	Natural_Cache
0ac0 e004       |    |		Load	0x0,0x4
0ac1 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0ac2 e004       |    |		Load	0x0,0x4
0ac3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0ac4 e004       |    |		Load	0x0,0x4
0ac5 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0ac6 e5ff       |    |		Load	0x2,-0x1
0ac7 0a02       |    |		Execute_Immediate	Plus,0x2
0ac8 00d8       |    |		Load_Top	At_Offset_0
0ac9 00e3       |    |		Load_Encached	Natural_Cache
0aca 0260       | `  |		Execute	Discrete,In_Type
0acb 7001       |p   |		Jump_Nonzero	0xacd
0acc 0801       |    |		Execute_Immediate	Raise,0x1
0acd e01c       |    |		Load	0x0,0x1c
0ace 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0acf e004       |    |		Load	0x0,0x4
0ad0 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
0ad1 e01c       |    |		Load	0x0,0x1c
0ad2 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0ad3 e004       |    |		Load	0x0,0x4
0ad4 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
0ad5 c402       |    |		Store	0x2,0x2
0ad6 c235       | 5  |		Store	0x1,0x35
0ad7 c232       | 2  |		Store	0x1,0x32
0ad8 c233       | 3  |		Store	0x1,0x33
0ad9 c234       | 4  |		Store	0x1,0x34
0ada 00d8       |    |		Load_Top	At_Offset_0
0adb e004       |    |		Load	0x0,0x4
0adc 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0add 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ade 0000 0000  |    |		.XXX[0x2]
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae7       |    |		.CONST	0x0ae7								; Address of begin
0ae1 0004       |    |		.CONST	0x0004								; Address of exception handler
0ae2 0002       |    |		.CONST	0x0002								; Number of locals
0ae3			INIT_0ae0:
0ae3 e039       | 9  |		Load	0x0,0x39
0ae4 0322       | "  |		Declare_Variable	Record
0ae5 00d8       |    |		Load_Top	At_Offset_0
0ae6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0ae7			BODY_0ae0:
0ae7 00d8       |    |		Load_Top	At_Offset_0
0ae8 e5fe       |    |		Load	0x2,-0x2
0ae9 803c       | <  |		Call	0x0,0x3c
0aea 00d1       |    |		Pop_Control	Pop_Count_1
0aeb 00d8       |    |		Load_Top	At_Offset_0
0aec 8056       | V  |		Call	0x0,0x56
0aed 00d1       |    |		Pop_Control	Pop_Count_1
0aee 00d8       |    |		Load_Top	At_Offset_0
0aef e5ff       |    |		Load	0x2,-0x1
0af0 0a01       |    |		Execute_Immediate	Plus,0x1
0af1 00d8       |    |		Load_Top	At_Offset_0
0af2 00e3       |    |		Load_Encached	Natural_Cache
0af3 0260       | `  |		Execute	Discrete,In_Type
0af4 7001       |p   |		Jump_Nonzero	0xaf6
0af5 0801       |    |		Execute_Immediate	Raise,0x1
0af6 827a       | z  |		Call	0x1,0x7a
0af7 803d       | =  |		Call	0x0,0x3d
0af8 00d1       |    |		Pop_Control	Pop_Count_1
0af9 00d8       |    |		Load_Top	At_Offset_0
0afa 8057       | W  |		Call	0x0,0x57
0afb 00d1       |    |		Pop_Control	Pop_Count_1
0afc 00d8       |    |		Load_Top	At_Offset_0
0afd 805d       | ]  |		Call	0x0,0x5d
0afe e5fd       |    |		Load	0x2,-0x3
0aff 017d       | }  |		Execute	Record,Structure_Write
0b00 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b01 0000 0000  |    |		.BLANK	0000[0x7]
0b08 ; --------------------------------------------------------------------------------------
0b08 ; SUBPROGRAM
0b08 ; --------------------------------------------------------------------------------------
0b08 0b0d       |    |		.CONST	0x0b0d								; Address of begin
0b09 0004       |    |		.CONST	0x0004								; Address of exception handler
0b0a 0002       |    |		.CONST	0x0002								; Number of locals
0b0b			INIT_0b08:
0b0b 029f 0f33  |   3|		Declare_Subprogram	INIT_0f30,For_Call
0b0d			BODY_0b08:
0b0d e5fe       |    |		Load	0x2,-0x2
0b0e 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0b0f 6805       |h   |		Jump_Zero	0xb15
0b10 e5fd       |    |		Load	0x2,-0x3
0b11 805e       | ^  |		Call	0x0,0x5e
0b12 6802       |h   |		Jump_Zero	0xb15
0b13 4801       |H   |		Short_Literal	0x1
0b14 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b15 e5fe       |    |		Load	0x2,-0x2
0b16 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0b17 6812       |h   |		Jump_Zero	0xb2a
0b18 e5fe       |    |		Load	0x2,-0x2
0b19 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0b1a 601d       |`   |		Indirect_Literal	Discrete,0xb38,{0x00000000, 0x000fffff}
0b1b 027e       | ~  |		Execute	Discrete,Not_Equal
0b1c 7008       |p   |		Jump_Nonzero	0xb25
0b1d 4803       |H   |		Short_Literal	0x3
0b1e 827a       | z  |		Call	0x1,0x7a
0b1f e004       |    |		Load	0x0,0x4
0b20 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0b21 e5fe       |    |		Load	0x2,-0x2
0b22 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0b23 027c       | |  |		Execute	Discrete,Less
0b24 6805       |h   |		Jump_Zero	0xb2a
0b25 e5fd       |    |		Load	0x2,-0x3
0b26 805e       | ^  |		Call	0x0,0x5e
0b27 6802       |h   |		Jump_Zero	0xb2a
0b28 4801       |H   |		Short_Literal	0x1
0b29 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b2a e5fe       |    |		Load	0x2,-0x2
0b2b 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0b2c 6809       |h   |		Jump_Zero	0xb36
0b2d 00cf       |    |		Action	Mark_Auxiliary
0b2e e258       | X  |		Load	0x1,0x58
0b2f 4801       |H   |		Short_Literal	0x1
0b30 0263       | c  |		Execute	Discrete,Above_Bound
0b31 7003       |p   |		Jump_Nonzero	0xb35
0b32 8402       |    |		Call	0x2,0x2
0b33 00c8       |    |		Action	Pop_Auxiliary_Range
0b34 3ffd       |?   |		Loop_Increasing	0xb32
0b35 00ce       |    |		Action	Pop_Auxiliary
0b36 4800       |H   |		Short_Literal	0x0
0b37 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b38 0000 0000  |    |		.LITERAL	{0x00000000, 0x000fffff}
0b3c 0000 0000  |    |		.BLANK	0000[0x4]
0b40 ; --------------------------------------------------------------------------------------
0b40 ; SUBPROGRAM
0b40 ; --------------------------------------------------------------------------------------
0b40 0b43       | C  |		.CONST	0x0b43								; Address of begin
0b41 0004       |    |		.CONST	0x0004								; Address of exception handler
0b42 0001       |    |		.CONST	0x0001								; Number of locals
0b43			BODY_0b40:
0b43			INIT_0b40:
0b43 e5fd       |    |		Load	0x2,-0x3
0b44 e004       |    |		Load	0x0,0x4
0b45 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0b46 00d9       |    |		Load_Top	At_Offset_1
0b47 00d0       |    |		Action	Swap_Control
0b48 0260       | `  |		Execute	Discrete,In_Type
0b49 7001       |p   |		Jump_Nonzero	0xb4b
0b4a 0801       |    |		Execute_Immediate	Raise,0x1
0b4b e5fe       |    |		Load	0x2,-0x2
0b4c e5ff       |    |		Load	0x2,-0x1
0b4d e025       | %  |		Load	0x0,0x25
0b4e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0b4f 00d9       |    |		Load_Top	At_Offset_1
0b50 00d0       |    |		Action	Swap_Control
0b51 0260       | `  |		Execute	Discrete,In_Type
0b52 7001       |p   |		Jump_Nonzero	0xb54
0b53 0801       |    |		Execute_Immediate	Raise,0x1
0b54 827c       | |  |		Call	0x1,0x7c
0b55 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0b56 0000 0000  |    |		.XXX[0x2]
0b58 ; --------------------------------------------------------------------------------------
0b58 ; SUBPROGRAM
0b58 ; --------------------------------------------------------------------------------------
0b58 0b5e       | ^  |		.CONST	0x0b5e								; Address of begin
0b59 0004       |    |		.CONST	0x0004								; Address of exception handler
0b5a 0002       |    |		.CONST	0x0002								; Number of locals
0b5b			INIT_0b58:
0b5b e004       |    |		Load	0x0,0x4
0b5c 1b5a       | Z  |		Execute	Package,Field_Read,Field_Number 0x5a
0b5d 0322       | "  |		Declare_Variable	Record
0b5e			BODY_0b58:
0b5e 00db       |    |		Load_Top	At_Offset_3
0b5f e004       |    |		Load	0x0,0x4
0b60 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0b61 0a01       |    |		Execute_Immediate	Plus,0x1
0b62 e004       |    |		Load	0x0,0x4
0b63 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
0b64 00d9       |    |		Load_Top	At_Offset_1
0b65 00d0       |    |		Action	Swap_Control
0b66 0260       | `  |		Execute	Discrete,In_Type
0b67 7001       |p   |		Jump_Nonzero	0xb69
0b68 0801       |    |		Execute_Immediate	Raise,0x1
0b69 e5ff       |    |		Load	0x2,-0x1
0b6a e004       |    |		Load	0x0,0x4
0b6b 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0b6c e01c       |    |		Load	0x0,0x1c
0b6d 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0b6e e004       |    |		Load	0x0,0x4
0b6f 185b       | [  |		Execute	Package,Field_Execute,Field_Number 0x5b
0b70 00d9       |    |		Load_Top	At_Offset_1
0b71 017d       | }  |		Execute	Record,Structure_Write
0b72 4822       |H"  |		Short_Literal	0x22
0b73 00d9       |    |		Load_Top	At_Offset_1
0b74 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b75 e01c       |    |		Load	0x0,0x1c
0b76 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0b77 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7b       | {  |		.CONST	0x0b7b								; Address of begin
0b79 0b80       |    |		.CONST	0x0b80								; Address of exception handler
0b7a 0001       |    |		.CONST	0x0001								; Number of locals
0b7b			BODY_0b78:
0b7b			INIT_0b78:
0b7b e403       |    |		Load	0x2,0x3
0b7c 00d8       |    |		Load_Top	At_Offset_0
0b7d e004       |    |		Load	0x0,0x4
0b7e 1849       | I  |		Execute	Package,Field_Execute,Field_Number 0x49
0b7f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b80			TRAP_0b78:
0b80 0007       |    |		Action	Break_Optional
0b81 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b82 0000 0000  |    |		.BLANK	0000[0x6]
0b88 ; --------------------------------------------------------------------------------------
0b88 ; SUBPROGRAM
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 00da       |    |		Load_Top	At_Offset_2
0b8c 00d8       |    |		Load_Top	At_Offset_0
0b8d 00e2       |    |		Load_Encached	Integer_Cache
0b8e 0260       | `  |		Execute	Discrete,In_Type
0b8f 7001       |p   |		Jump_Nonzero	0xb91
0b90 0801       |    |		Execute_Immediate	Raise,0x1
0b91 00e0       |    |		Load_Encached	Standard_Cache
0b92 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0b93 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0b94 0000 0000  |    |		.BLANK	0000[0x4]
0b98 ; --------------------------------------------------------------------------------------
0b98 ; SUBPROGRAM
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 00da       |    |		Load_Top	At_Offset_2
0b9c e05c       | \  |		Load	0x0,0x5c
0b9d 017f       |    |		Execute	Record,Equal
0b9e 6803       |h   |		Jump_Zero	0xba2
0b9f 0092 113c  |   <|		Action	Push_String_Extended,0x113c					; " [any inst]"
0ba1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0ba2 0092 113d  |   =|		Action	Push_String_Extended,0x113d					; " ["
0ba4 00db       |    |		Load_Top	At_Offset_3
0ba5 8060       | `  |		Call	0x0,0x60
0ba6 01cc       |    |		Execute	Vector,Catenate
0ba7 0092 113e  |   >|		Action	Push_String_Extended,0x113e					; "]"
0ba9 01cc       |    |		Execute	Vector,Catenate
0baa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bab 0000 0000  |    |		.BLANK	0000[0x5]
0bb0 ; --------------------------------------------------------------------------------------
0bb0 ; SUBPROGRAM
0bb0 ; --------------------------------------------------------------------------------------
0bb0 0bb3       |    |		.CONST	0x0bb3								; Address of begin
0bb1 0004       |    |		.CONST	0x0004								; Address of exception handler
0bb2 0001       |    |		.CONST	0x0001								; Number of locals
0bb3			BODY_0bb0:
0bb3			INIT_0bb0:
0bb3 00da       |    |		Load_Top	At_Offset_2
0bb4 e061       | a  |		Load	0x0,0x61
0bb5 017f       |    |		Execute	Record,Equal
0bb6 6803       |h   |		Jump_Zero	0xbba
0bb7 0092 113f  |   ?|		Action	Push_String_Extended,0x113f					; " [any sub]"
0bb9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bba 0092 113d  |   =|		Action	Push_String_Extended,0x113d					; " ["
0bbc 00db       |    |		Load_Top	At_Offset_3
0bbd 8062       | b  |		Call	0x0,0x62
0bbe 01cc       |    |		Execute	Vector,Catenate
0bbf 0092 113e  |   >|		Action	Push_String_Extended,0x113e					; "]"
0bc1 01cc       |    |		Execute	Vector,Catenate
0bc2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bc3 0000 0000  |    |		.BLANK	0000[0x5]
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bcb       |    |		.CONST	0x0bcb								; Address of begin
0bc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0bca 0001       |    |		.CONST	0x0001								; Number of locals
0bcb			BODY_0bc8:
0bcb			INIT_0bc8:
0bcb 00da       |    |		Load_Top	At_Offset_2
0bcc e063       | c  |		Load	0x0,0x63
0bcd 027f       |    |		Execute	Discrete,Equal
0bce 6803       |h   |		Jump_Zero	0xbd2
0bcf 0092 1140  |   @|		Action	Push_String_Extended,0x1140					; " [any stmt]"
0bd1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bd2 0092 113d  |   =|		Action	Push_String_Extended,0x113d					; " ["
0bd4 00db       |    |		Load_Top	At_Offset_3
0bd5 8064       | d  |		Call	0x0,0x64
0bd6 01cc       |    |		Execute	Vector,Catenate
0bd7 0092 113e  |   >|		Action	Push_String_Extended,0x113e					; "]"
0bd9 01cc       |    |		Execute	Vector,Catenate
0bda 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0bdb 0000 0000  |    |		.BLANK	0000[0x5]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
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 00db       |    |		Load_Top	At_Offset_3
0be4 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0be5 7009       |p   |		Jump_Nonzero	0xbef
0be6 00db       |    |		Load_Top	At_Offset_3
0be7 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
0be8 7006       |p   |		Jump_Nonzero	0xbef
0be9 00db       |    |		Load_Top	At_Offset_3
0bea 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0beb 7003       |p   |		Jump_Nonzero	0xbef
0bec 00db       |    |		Load_Top	At_Offset_3
0bed 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0bee 683c       |h<  |		Jump_Zero	0xc2b
0bef 00da       |    |		Load_Top	At_Offset_2
0bf0 804d       | M  |		Call	0x0,0x4d
0bf1 0092 1141  |   A|		Action	Push_String_Extended,0x1141					; ": "
0bf3 01cc       |    |		Execute	Vector,Catenate
0bf4 8048       | H  |		Call	0x0,0x48
0bf5 00db       |    |		Load_Top	At_Offset_3
0bf6 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0bf7 6803       |h   |		Jump_Zero	0xbfb
0bf8 0092 1142  |   B|		Action	Push_String_Extended,0x1142					; " Tracing"
0bfa 8048       | H  |		Call	0x0,0x48
0bfb 00db       |    |		Load_Top	At_Offset_3
0bfc 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
0bfd 6803       |h   |		Jump_Zero	0xc01
0bfe 0092 1143  |   C|		Action	Push_String_Extended,0x1143					; " Exc Tracing"
0c00 8048       | H  |		Call	0x0,0x48
0c01 00db       |    |		Load_Top	At_Offset_3
0c02 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0c03 6808       |h   |		Jump_Zero	0xc0c
0c04 0092 1144  |   D|		Action	Push_String_Extended,0x1144					; " Stop, action="
0c06 e7fe       |    |		Load	0x3,-0x2
0c07 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0c08 00e0       |    |		Load_Encached	Standard_Cache
0c09 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0c0a 01cc       |    |		Execute	Vector,Catenate
0c0b 8048       | H  |		Call	0x0,0x48
0c0c 00db       |    |		Load_Top	At_Offset_3
0c0d 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0c0e 681b       |h   |		Jump_Zero	0xc2a
0c0f 0092 1145  |   E|		Action	Push_String_Extended,0x1145					; " Stepping: "
0c11 e7fe       |    |		Load	0x3,-0x2
0c12 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0c13 00e0       |    |		Load_Encached	Standard_Cache
0c14 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0c15 01cc       |    |		Execute	Vector,Catenate
0c16 0092 1146  |   F|		Action	Push_String_Extended,0x1146					; " level=#"
0c18 01cc       |    |		Execute	Vector,Catenate
0c19 4820       |H   |		Short_Literal	0x20
0c1a 4800       |H   |		Short_Literal	0x0
0c1b 4810       |H   |		Short_Literal	0x10
0c1c e7fe       |    |		Load	0x3,-0x2
0c1d 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0c1e e04e       | N  |		Load	0x0,0x4e
0c1f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0c20 01cc       |    |		Execute	Vector,Catenate
0c21 0092 1147  |   G|		Action	Push_String_Extended,0x1147					; " action="
0c23 01cc       |    |		Execute	Vector,Catenate
0c24 e7fe       |    |		Load	0x3,-0x2
0c25 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0c26 00e0       |    |		Load_Encached	Standard_Cache
0c27 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0c28 01cc       |    |		Execute	Vector,Catenate
0c29 8048       | H  |		Call	0x0,0x48
0c2a 8049       | I  |		Call	0x0,0x49
0c2b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c2c 0000 0000  |    |		.BLANK	0000[0x4]
0c30 ; --------------------------------------------------------------------------------------
0c30 ; SUBPROGRAM
0c30 ; --------------------------------------------------------------------------------------
0c30 0c33       | 3  |		.CONST	0x0c33								; Address of begin
0c31 0004       |    |		.CONST	0x0004								; Address of exception handler
0c32 0001       |    |		.CONST	0x0001								; Number of locals
0c33			BODY_0c30:
0c33			INIT_0c30:
0c33 00da       |    |		Load_Top	At_Offset_2
0c34 804d       | M  |		Call	0x0,0x4d
0c35 0092 1148  |   H|		Action	Push_String_Extended,0x1148					; " DB mask= "
0c37 01cc       |    |		Execute	Vector,Catenate
0c38 4820       |H   |		Short_Literal	0x20
0c39 4800       |H   |		Short_Literal	0x0
0c3a 4810       |H   |		Short_Literal	0x10
0c3b e7fe       |    |		Load	0x3,-0x2
0c3c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0c3d e04e       | N  |		Load	0x0,0x4e
0c3e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0c3f 01cc       |    |		Execute	Vector,Catenate
0c40 8048       | H  |		Call	0x0,0x48
0c41 8049       | I  |		Call	0x0,0x49
0c42 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c43 0000 0000  |    |		.BLANK	0000[0x5]
0c48 ; --------------------------------------------------------------------------------------
0c48 ; SUBPROGRAM
0c48 ; --------------------------------------------------------------------------------------
0c48 0c4b       | K  |		.CONST	0x0c4b								; Address of begin
0c49 0004       |    |		.CONST	0x0004								; Address of exception handler
0c4a 0001       |    |		.CONST	0x0001								; Number of locals
0c4b			BODY_0c48:
0c4b			INIT_0c48:
0c4b 00da       |    |		Load_Top	At_Offset_2
0c4c 804d       | M  |		Call	0x0,0x4d
0c4d 0092 1149  |   I|		Action	Push_String_Extended,0x1149					; " exc info:"
0c4f 01cc       |    |		Execute	Vector,Catenate
0c50 e7fe       |    |		Load	0x3,-0x2
0c51 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0c52 e01c       |    |		Load	0x0,0x1c
0c53 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0c54 01cc       |    |		Execute	Vector,Catenate
0c55 0092 114a  |   J|		Action	Push_String_Extended,0x114a					; " "
0c57 01cc       |    |		Execute	Vector,Catenate
0c58 e7fe       |    |		Load	0x3,-0x2
0c59 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0c5a e01c       |    |		Load	0x0,0x1c
0c5b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0c5c 01cc       |    |		Execute	Vector,Catenate
0c5d 8048       | H  |		Call	0x0,0x48
0c5e 8049       | I  |		Call	0x0,0x49
0c5f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c60 ; --------------------------------------------------------------------------------------
0c60 ; SUBPROGRAM
0c60 ; --------------------------------------------------------------------------------------
0c60 0c63       | c  |		.CONST	0x0c63								; Address of begin
0c61 0004       |    |		.CONST	0x0004								; Address of exception handler
0c62 0001       |    |		.CONST	0x0001								; Number of locals
0c63			BODY_0c60:
0c63			INIT_0c60:
0c63 e7fd       |    |		Load	0x3,-0x3
0c64 00e2       |    |		Load_Encached	Integer_Cache
0c65 025e       | ^  |		Execute	Discrete,Convert
0c66 e7fe       |    |		Load	0x3,-0x2
0c67 e7ff       |    |		Load	0x3,-0x1
0c68 e025       | %  |		Load	0x0,0x25
0c69 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0c6a 00d9       |    |		Load_Top	At_Offset_1
0c6b 00d0       |    |		Action	Swap_Control
0c6c 0260       | `  |		Execute	Discrete,In_Type
0c6d 7001       |p   |		Jump_Nonzero	0xc6f
0c6e 0801       |    |		Execute_Immediate	Raise,0x1
0c6f 8406       |    |		Call	0x2,0x6
0c70 00d1       |    |		Pop_Control	Pop_Count_1
0c71 c7fd       |    |		Store	0x3,-0x3
0c72 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0c73 0000 0000  |    |		.BLANK	0000[0x5]
0c78 ; --------------------------------------------------------------------------------------
0c78 ; SUBPROGRAM
0c78 ; SUBPROGRAM
0c78 ; SUBPROGRAM
0c78 ; --------------------------------------------------------------------------------------
0c78 0c7b       | {  |		.CONST	0x0c7b								; Address of begin
0c79 0004       |    |		.CONST	0x0004								; Address of exception handler
0c7a 0001       |    |		.CONST	0x0001								; Number of locals
0c7b			BODY_0c78:
0c7b			BODY_0c78:
0c7b			BODY_0c78:
0c7b			INIT_0c78:
0c7b			INIT_0c78:
0c7b			INIT_0c78:
0c7b e7fd       |    |		Load	0x3,-0x3
0c7c 00d8       |    |		Load_Top	At_Offset_0
0c7d 00e2       |    |		Load_Encached	Integer_Cache
0c7e 0260       | `  |		Execute	Discrete,In_Type
0c7f 7001       |p   |		Jump_Nonzero	0xc81
0c80 0801       |    |		Execute_Immediate	Raise,0x1
0c81 e7fe       |    |		Load	0x3,-0x2
0c82 e7ff       |    |		Load	0x3,-0x1
0c83 e025       | %  |		Load	0x0,0x25
0c84 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0c85 00d9       |    |		Load_Top	At_Offset_1
0c86 00d0       |    |		Action	Swap_Control
0c87 0260       | `  |		Execute	Discrete,In_Type
0c88 7001       |p   |		Jump_Nonzero	0xc8a
0c89 0801       |    |		Execute_Immediate	Raise,0x1
0c8a 8065       | e  |		Call	0x0,0x65
0c8b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0c8c 0000 0000  |    |		.BLANK	0000[0x4]
0c90 ; --------------------------------------------------------------------------------------
0c90 ; SUBPROGRAM
0c90 ; --------------------------------------------------------------------------------------
0c90 0c93       |    |		.CONST	0x0c93								; Address of begin
0c91 0004       |    |		.CONST	0x0004								; Address of exception handler
0c92 0001       |    |		.CONST	0x0001								; Number of locals
0c93			BODY_0c90:
0c93			INIT_0c90:
0c93 e7fd       |    |		Load	0x3,-0x3
0c94 00e2       |    |		Load_Encached	Integer_Cache
0c95 025e       | ^  |		Execute	Discrete,Convert
0c96 e7fe       |    |		Load	0x3,-0x2
0c97 e7ff       |    |		Load	0x3,-0x1
0c98 e025       | %  |		Load	0x0,0x25
0c99 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0c9a 00d9       |    |		Load_Top	At_Offset_1
0c9b 00d0       |    |		Action	Swap_Control
0c9c 0260       | `  |		Execute	Discrete,In_Type
0c9d 7001       |p   |		Jump_Nonzero	0xc9f
0c9e 0801       |    |		Execute_Immediate	Raise,0x1
0c9f 8407       |    |		Call	0x2,0x7
0ca0 00d1       |    |		Pop_Control	Pop_Count_1
0ca1 c7fd       |    |		Store	0x3,-0x3
0ca2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ca3 0000 0000  |    |		.BLANK	0000[0x5]
0ca8 ; --------------------------------------------------------------------------------------
0ca8 ; SUBPROGRAM
0ca8 ; --------------------------------------------------------------------------------------
0ca8 0cab       |    |		.CONST	0x0cab								; Address of begin
0ca9 0004       |    |		.CONST	0x0004								; Address of exception handler
0caa 0001       |    |		.CONST	0x0001								; Number of locals
0cab			BODY_0ca8:
0cab			INIT_0ca8:
0cab e7fd       |    |		Load	0x3,-0x3
0cac 00e2       |    |		Load_Encached	Integer_Cache
0cad 025e       | ^  |		Execute	Discrete,Convert
0cae e7fe       |    |		Load	0x3,-0x2
0caf e7ff       |    |		Load	0x3,-0x1
0cb0 e025       | %  |		Load	0x0,0x25
0cb1 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0cb2 00d9       |    |		Load_Top	At_Offset_1
0cb3 00d0       |    |		Action	Swap_Control
0cb4 0260       | `  |		Execute	Discrete,In_Type
0cb5 7001       |p   |		Jump_Nonzero	0xcb7
0cb6 0801       |    |		Execute_Immediate	Raise,0x1
0cb7 8408       |    |		Call	0x2,0x8
0cb8 00d1       |    |		Pop_Control	Pop_Count_1
0cb9 c7fd       |    |		Store	0x3,-0x3
0cba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0cbb 0000 0000  |    |		.BLANK	0000[0x5]
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0ccb       |    |		.CONST	0x0ccb								; Address of begin
0cc1 0004       |    |		.CONST	0x0004								; Address of exception handler
0cc2 0003       |    |		.CONST	0x0003								; Number of locals
0cc3			INIT_0cc0:
0cc3 e428       | (  |		Load	0x2,0x28
0cc4 e24c       | L  |		Load	0x1,0x4c
0cc5 01d5       |    |		Execute	Vector,Field_Reference
0cc6 0007       |    |		Action	Break_Optional
0cc7 e428       | (  |		Load	0x2,0x28
0cc8 e24e       | N  |		Load	0x1,0x4e
0cc9 01d5       |    |		Execute	Vector,Field_Reference
0cca 0007       |    |		Action	Break_Optional
0ccb			BODY_0cc0:
0ccb 00d9       |    |		Load_Top	At_Offset_1
0ccc e027       | '  |		Load	0x0,0x27
0ccd 027f       |    |		Execute	Discrete,Equal
0cce 702a       |p*  |		Jump_Nonzero	0xcf9
0ccf 0092 114b  |   K|		Action	Push_String_Extended,0x114b					; "Task=all, Pc="
0cd1 00da       |    |		Load_Top	At_Offset_2
0cd2 e01c       |    |		Load	0x0,0x1c
0cd3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0cd4 01cc       |    |		Execute	Vector,Catenate
0cd5 0092 114c  |   L|		Action	Push_String_Extended,0x114c					; " Id="
0cd7 01cc       |    |		Execute	Vector,Catenate
0cd8 00d9       |    |		Load_Top	At_Offset_1
0cd9 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0cda 00e0       |    |		Load_Encached	Standard_Cache
0cdb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0cdc 01cc       |    |		Execute	Vector,Catenate
0cdd 0092 114d  |   M|		Action	Push_String_Extended,0x114d					; "  "
0cdf 01cc       |    |		Execute	Vector,Catenate
0ce0 00d9       |    |		Load_Top	At_Offset_1
0ce1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0ce2 00e0       |    |		Load_Encached	Standard_Cache
0ce3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0ce4 01cc       |    |		Execute	Vector,Catenate
0ce5 0092 114e  |   N|		Action	Push_String_Extended,0x114e					; " /"
0ce7 01cc       |    |		Execute	Vector,Catenate
0ce8 00d9       |    |		Load_Top	At_Offset_1
0ce9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0cea 00e0       |    |		Load_Encached	Standard_Cache
0ceb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0cec 01cc       |    |		Execute	Vector,Catenate
0ced 8048       | H  |		Call	0x0,0x48
0cee 00d8       |    |		Load_Top	At_Offset_0
0cef 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0cf0 6803       |h   |		Jump_Zero	0xcf4
0cf1 0092 114f  |   O|		Action	Push_String_Extended,0x114f					; "  T"
0cf3 8048       | H  |		Call	0x0,0x48
0cf4 00d8       |    |		Load_Top	At_Offset_0
0cf5 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0cf6 8403       |    |		Call	0x2,0x3
0cf7 8048       | H  |		Call	0x0,0x48
0cf8 8049       | I  |		Call	0x0,0x49
0cf9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0cfa 0000 0000  |    |		.BLANK	0000[0x6]
0d00 ; --------------------------------------------------------------------------------------
0d00 ; SUBPROGRAM
0d00 ; --------------------------------------------------------------------------------------
0d00 0d07       |    |		.CONST	0x0d07								; Address of begin
0d01 0004       |    |		.CONST	0x0004								; Address of exception handler
0d02 0002       |    |		.CONST	0x0002								; Number of locals
0d03			INIT_0d00:
0d03 e428       | (  |		Load	0x2,0x28
0d04 e252       | R  |		Load	0x1,0x52
0d05 01d5       |    |		Execute	Vector,Field_Reference
0d06 0007       |    |		Action	Break_Optional
0d07			BODY_0d00:
0d07 00d8       |    |		Load_Top	At_Offset_0
0d08 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0d09 e027       | '  |		Load	0x0,0x27
0d0a 027f       |    |		Execute	Discrete,Equal
0d0b 7032       |p2  |		Jump_Nonzero	0xd3e
0d0c 0092 1150  |   P|		Action	Push_String_Extended,0x1150					; "Task: "
0d0e 00d9       |    |		Load_Top	At_Offset_1
0d0f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0d10 804d       | M  |		Call	0x0,0x4d
0d11 01cc       |    |		Execute	Vector,Catenate
0d12 0092 1151  |   Q|		Action	Push_String_Extended,0x1151					; " Pc="
0d14 01cc       |    |		Execute	Vector,Catenate
0d15 00d9       |    |		Load_Top	At_Offset_1
0d16 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0d17 e01c       |    |		Load	0x0,0x1c
0d18 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0d19 01cc       |    |		Execute	Vector,Catenate
0d1a 0092 114c  |   L|		Action	Push_String_Extended,0x114c					; " Id="
0d1c 01cc       |    |		Execute	Vector,Catenate
0d1d 00d9       |    |		Load_Top	At_Offset_1
0d1e 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0d1f 00e0       |    |		Load_Encached	Standard_Cache
0d20 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0d21 01cc       |    |		Execute	Vector,Catenate
0d22 0092 114d  |   M|		Action	Push_String_Extended,0x114d					; "  "
0d24 01cc       |    |		Execute	Vector,Catenate
0d25 00d9       |    |		Load_Top	At_Offset_1
0d26 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0d27 00e0       |    |		Load_Encached	Standard_Cache
0d28 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0d29 01cc       |    |		Execute	Vector,Catenate
0d2a 0092 114e  |   N|		Action	Push_String_Extended,0x114e					; " /"
0d2c 01cc       |    |		Execute	Vector,Catenate
0d2d 00d9       |    |		Load_Top	At_Offset_1
0d2e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0d2f 00e0       |    |		Load_Encached	Standard_Cache
0d30 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0d31 01cc       |    |		Execute	Vector,Catenate
0d32 8048       | H  |		Call	0x0,0x48
0d33 00d8       |    |		Load_Top	At_Offset_0
0d34 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0d35 6803       |h   |		Jump_Zero	0xd39
0d36 0092 114f  |   O|		Action	Push_String_Extended,0x114f					; "  T"
0d38 8048       | H  |		Call	0x0,0x48
0d39 00d8       |    |		Load_Top	At_Offset_0
0d3a 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0d3b 8403       |    |		Call	0x2,0x3
0d3c 8048       | H  |		Call	0x0,0x48
0d3d 8049       | I  |		Call	0x0,0x49
0d3e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d3f 0000       |    |		.XXX[0x1]
0d40 ; --------------------------------------------------------------------------------------
0d40 ; SUBPROGRAM
0d40 ; --------------------------------------------------------------------------------------
0d40 0d47       | G  |		.CONST	0x0d47								; Address of begin
0d41 0004       |    |		.CONST	0x0004								; Address of exception handler
0d42 0002       |    |		.CONST	0x0002								; Number of locals
0d43			INIT_0d40:
0d43 e428       | (  |		Load	0x2,0x28
0d44 e267       | g  |		Load	0x1,0x67
0d45 01d5       |    |		Execute	Vector,Field_Reference
0d46 0007       |    |		Action	Break_Optional
0d47			BODY_0d40:
0d47 00d8       |    |		Load_Top	At_Offset_0
0d48 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0d49 e01e       |    |		Load	0x0,0x1e
0d4a 027e       | ~  |		Execute	Discrete,Not_Equal
0d4b 685e       |h^  |		Jump_Zero	0xdaa
0d4c e428       | (  |		Load	0x2,0x28
0d4d 00e0       |    |		Load_Encached	Standard_Cache
0d4e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0d4f 0092 1141  |   A|		Action	Push_String_Extended,0x1141					; ": "
0d51 01cc       |    |		Execute	Vector,Catenate
0d52 0092 1152  |   R|		Action	Push_String_Extended,0x1152					; "Id="
0d54 01cc       |    |		Execute	Vector,Catenate
0d55 00d9       |    |		Load_Top	At_Offset_1
0d56 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0d57 00e0       |    |		Load_Encached	Standard_Cache
0d58 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0d59 01cc       |    |		Execute	Vector,Catenate
0d5a 0092 114d  |   M|		Action	Push_String_Extended,0x114d					; "  "
0d5c 01cc       |    |		Execute	Vector,Catenate
0d5d 8048       | H  |		Call	0x0,0x48
0d5e 00d8       |    |		Load_Top	At_Offset_0
0d5f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0d60 e011       |    |		Load	0x0,0x11
0d61 027f       |    |		Execute	Discrete,Equal
0d62 6804       |h   |		Jump_Zero	0xd67
0d63 0092 1153  |   S|		Action	Push_String_Extended,0x1153					; "all"
0d65 8048       | H  |		Call	0x0,0x48
0d66 7804       |x   |		Jump	0xd6b
0d67 00d8       |    |		Load_Top	At_Offset_0
0d68 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0d69 804d       | M  |		Call	0x0,0x4d
0d6a 8048       | H  |		Call	0x0,0x48
0d6b 0092 1154  |   T|		Action	Push_String_Extended,0x1154					; " Pri="
0d6d 00d9       |    |		Load_Top	At_Offset_1
0d6e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0d6f 00e0       |    |		Load_Encached	Standard_Cache
0d70 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0d71 01cc       |    |		Execute	Vector,Catenate
0d72 8048       | H  |		Call	0x0,0x48
0d73 0092 1155  |   U|		Action	Push_String_Extended,0x1155					; " Action= "
0d75 8048       | H  |		Call	0x0,0x48
0d76 00d8       |    |		Load_Top	At_Offset_0
0d77 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0d78 4605       |F   |		Jump_Case	0x6
0d79 7815       |x   |		Jump	0xd8f								; case 0x0
0d7a 7804       |x   |		Jump	0xd7f								; case 0x1
0d7b 7817       |x   |		Jump	0xd93								; case 0x2
0d7c 780a       |x   |		Jump	0xd87								; case 0x3
0d7d 780d       |x   |		Jump	0xd8b								; case 0x4
0d7e 7800       |x   |		Jump	0xd7f								; case 0x5
0d7f 00d8       |    |		Load_Top	At_Offset_0
0d80 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0d81 e003       |    |		Load	0x0,0x3
0d82 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0d83 011c       |    |		Execute	Any,Convert_Unchecked
0d84 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0d85 8048       | H  |		Call	0x0,0x48
0d86 780f       |x   |		Jump	0xd96
0d87 0092 1156  |   V|		Action	Push_String_Extended,0x1156					; "Propagate"
0d89 8048       | H  |		Call	0x0,0x48
0d8a 780b       |x   |		Jump	0xd96
0d8b 0092 1157  |   W|		Action	Push_String_Extended,0x1157					; "Catch"
0d8d 8048       | H  |		Call	0x0,0x48
0d8e 7807       |x   |		Jump	0xd96
0d8f 0092 1158  |   X|		Action	Push_String_Extended,0x1158					; "History"
0d91 8048       | H  |		Call	0x0,0x48
0d92 7803       |x   |		Jump	0xd96
0d93 0092 1159  |   Y|		Action	Push_String_Extended,0x1159					; "Trace"
0d95 8048       | H  |		Call	0x0,0x48
0d96 0092 115a  |   Z|		Action	Push_String_Extended,0x115a					; " Exc= "
0d98 00d9       |    |		Load_Top	At_Offset_1
0d99 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0d9a 8066       | f  |		Call	0x0,0x66
0d9b 01cc       |    |		Execute	Vector,Catenate
0d9c 00d9       |    |		Load_Top	At_Offset_1
0d9d 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0d9e 8403       |    |		Call	0x2,0x3
0d9f 01cc       |    |		Execute	Vector,Catenate
0da0 00d9       |    |		Load_Top	At_Offset_1
0da1 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0da2 8404       |    |		Call	0x2,0x4
0da3 01cc       |    |		Execute	Vector,Catenate
0da4 00d9       |    |		Load_Top	At_Offset_1
0da5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0da6 8405       |    |		Call	0x2,0x5
0da7 01cc       |    |		Execute	Vector,Catenate
0da8 8048       | H  |		Call	0x0,0x48
0da9 8049       | I  |		Call	0x0,0x49
0daa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0dab 0000 0000  |    |		.BLANK	0000[0x5]
0db0 ; --------------------------------------------------------------------------------------
0db0 ; SUBPROGRAM
0db0 ; --------------------------------------------------------------------------------------
0db0 0db7       |    |		.CONST	0x0db7								; Address of begin
0db1 0004       |    |		.CONST	0x0004								; Address of exception handler
0db2 0002       |    |		.CONST	0x0002								; Number of locals
0db3			INIT_0db0:
0db3 e428       | (  |		Load	0x2,0x28
0db4 e25c       | \  |		Load	0x1,0x5c
0db5 01d5       |    |		Execute	Vector,Field_Reference
0db6 0007       |    |		Action	Break_Optional
0db7			BODY_0db0:
0db7 00d8       |    |		Load_Top	At_Offset_0
0db8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0db9 804d       | M  |		Call	0x0,0x4d
0dba 0092 113d  |   =|		Action	Push_String_Extended,0x113d					; " ["
0dbc 01cc       |    |		Execute	Vector,Catenate
0dbd 00d9       |    |		Load_Top	At_Offset_1
0dbe 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0dbf e003       |    |		Load	0x0,0x3
0dc0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0dc1 011c       |    |		Execute	Any,Convert_Unchecked
0dc2 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0dc3 01cc       |    |		Execute	Vector,Catenate
0dc4 0092 113e  |   >|		Action	Push_String_Extended,0x113e					; "]"
0dc6 01cc       |    |		Execute	Vector,Catenate
0dc7 00d9       |    |		Load_Top	At_Offset_1
0dc8 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0dc9 8403       |    |		Call	0x2,0x3
0dca 01cc       |    |		Execute	Vector,Catenate
0dcb 0092 115b  |   [|		Action	Push_String_Extended,0x115b					; " Low = "
0dcd 01cc       |    |		Execute	Vector,Catenate
0dce 00d9       |    |		Load_Top	At_Offset_1
0dcf 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0dd0 e01c       |    |		Load	0x0,0x1c
0dd1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0dd2 01cc       |    |		Execute	Vector,Catenate
0dd3 0092 115c  |   \|		Action	Push_String_Extended,0x115c					; " High = "
0dd5 01cc       |    |		Execute	Vector,Catenate
0dd6 00d9       |    |		Load_Top	At_Offset_1
0dd7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0dd8 e01c       |    |		Load	0x0,0x1c
0dd9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0dda 01cc       |    |		Execute	Vector,Catenate
0ddb 8048       | H  |		Call	0x0,0x48
0ddc 8049       | I  |		Call	0x0,0x49
0ddd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0dde 0000 0000  |    |		.XXX[0x2]
0de0 ; --------------------------------------------------------------------------------------
0de0 ; SUBPROGRAM
0de0 ; --------------------------------------------------------------------------------------
0de0 0de7       |    |		.CONST	0x0de7								; Address of begin
0de1 0004       |    |		.CONST	0x0004								; Address of exception handler
0de2 0002       |    |		.CONST	0x0002								; Number of locals
0de3			INIT_0de0:
0de3 e428       | (  |		Load	0x2,0x28
0de4 e257       | W  |		Load	0x1,0x57
0de5 01d5       |    |		Execute	Vector,Field_Reference
0de6 0007       |    |		Action	Break_Optional
0de7			BODY_0de0:
0de7 00d8       |    |		Load_Top	At_Offset_0
0de8 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0de9 e01e       |    |		Load	0x0,0x1e
0dea 027e       | ~  |		Execute	Discrete,Not_Equal
0deb 682a       |h*  |		Jump_Zero	0xe16
0dec e428       | (  |		Load	0x2,0x28
0ded 00e0       |    |		Load_Encached	Standard_Cache
0dee 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0def 0092 1141  |   A|		Action	Push_String_Extended,0x1141					; ": "
0df1 01cc       |    |		Execute	Vector,Catenate
0df2 8048       | H  |		Call	0x0,0x48
0df3 00d8       |    |		Load_Top	At_Offset_0
0df4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0df5 e003       |    |		Load	0x0,0x3
0df6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0df7 011c       |    |		Execute	Any,Convert_Unchecked
0df8 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0df9 8048       | H  |		Call	0x0,0x48
0dfa 0092 115d  |   ]|		Action	Push_String_Extended,0x115d					; " Action="
0dfc 00d9       |    |		Load_Top	At_Offset_1
0dfd 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0dfe 00e0       |    |		Load_Encached	Standard_Cache
0dff 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0e00 01cc       |    |		Execute	Vector,Catenate
0e01 0092 114d  |   M|		Action	Push_String_Extended,0x114d					; "  "
0e03 01cc       |    |		Execute	Vector,Catenate
0e04 00d9       |    |		Load_Top	At_Offset_1
0e05 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e06 804d       | M  |		Call	0x0,0x4d
0e07 01cc       |    |		Execute	Vector,Catenate
0e08 00d9       |    |		Load_Top	At_Offset_1
0e09 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0e0a 8403       |    |		Call	0x2,0x3
0e0b 01cc       |    |		Execute	Vector,Catenate
0e0c 00d9       |    |		Load_Top	At_Offset_1
0e0d 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0e0e 8404       |    |		Call	0x2,0x4
0e0f 01cc       |    |		Execute	Vector,Catenate
0e10 00d9       |    |		Load_Top	At_Offset_1
0e11 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0e12 8405       |    |		Call	0x2,0x5
0e13 01cc       |    |		Execute	Vector,Catenate
0e14 8048       | H  |		Call	0x0,0x48
0e15 8049       | I  |		Call	0x0,0x49
0e16 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e17 0000       |    |		.XXX[0x1]
0e18 ; --------------------------------------------------------------------------------------
0e18 ; SUBPROGRAM
0e18 ; --------------------------------------------------------------------------------------
0e18 0e20       |    |		.CONST	0x0e20								; Address of begin
0e19 0004       |    |		.CONST	0x0004								; Address of exception handler
0e1a 0003       |    |		.CONST	0x0003								; Number of locals
0e1b			INIT_0e18:
0e1b e407       |    |		Load	0x2,0x7
0e1c e267       | g  |		Load	0x1,0x67
0e1d 01d5       |    |		Execute	Vector,Field_Reference
0e1e 029f 0f5b  |   [|		Declare_Subprogram	INIT_0f58,For_Call
0e20			BODY_0e18:
0e20 00d9       |    |		Load_Top	At_Offset_1
0e21 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e22 e01e       |    |		Load	0x0,0x1e
0e23 027e       | ~  |		Execute	Discrete,Not_Equal
0e24 683e       |h>  |		Jump_Zero	0xe63
0e25 00d9       |    |		Load_Top	At_Offset_1
0e26 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e27 e011       |    |		Load	0x0,0x11
0e28 027f       |    |		Execute	Discrete,Equal
0e29 7005       |p   |		Jump_Nonzero	0xe2f
0e2a 00d9       |    |		Load_Top	At_Offset_1
0e2b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e2c e5fe       |    |		Load	0x2,-0x2
0e2d 027f       |    |		Execute	Discrete,Equal
0e2e 6834       |h4  |		Jump_Zero	0xe63
0e2f 00d9       |    |		Load_Top	At_Offset_1
0e30 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0e31 8067       | g  |		Call	0x0,0x67
0e32 7006       |p   |		Jump_Nonzero	0xe39
0e33 00d9       |    |		Load_Top	At_Offset_1
0e34 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0e35 8068       | h  |		Call	0x0,0x68
0e36 e5ff       |    |		Load	0x2,-0x1
0e37 8069       | i  |		Call	0x0,0x69
0e38 682a       |h*  |		Jump_Zero	0xe63
0e39 00d9       |    |		Load_Top	At_Offset_1
0e3a 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0e3b e061       | a  |		Load	0x0,0x61
0e3c 017f       |    |		Execute	Record,Equal
0e3d 6824       |h$  |		Jump_Zero	0xe62
0e3e 00d9       |    |		Load_Top	At_Offset_1
0e3f 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0e40 e063       | c  |		Load	0x0,0x63
0e41 027f       |    |		Execute	Discrete,Equal
0e42 681f       |h   |		Jump_Zero	0xe62
0e43 00d9       |    |		Load_Top	At_Offset_1
0e44 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0e45 e05c       | \  |		Load	0x0,0x5c
0e46 017f       |    |		Execute	Record,Equal
0e47 681a       |h   |		Jump_Zero	0xe62
0e48 00d9       |    |		Load_Top	At_Offset_1
0e49 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0e4a 0f02       |    |		Execute_Immediate	Equal,0x2
0e4b 6804       |h   |		Jump_Zero	0xe50
0e4c 00d9       |    |		Load_Top	At_Offset_1
0e4d 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e4e a5fb       |    |		Store_Unchecked	0x2,-0x5
0e4f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e50 00d9       |    |		Load_Top	At_Offset_1
0e51 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0e52 7004       |p   |		Jump_Nonzero	0xe57
0e53 00d9       |    |		Load_Top	At_Offset_1
0e54 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e55 a5f9       |    |		Store_Unchecked	0x2,-0x7
0e56 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e57 00d9       |    |		Load_Top	At_Offset_1
0e58 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0e59 e403       |    |		Load	0x2,0x3
0e5a 027d       | }  |		Execute	Discrete,Greater
0e5b 6805       |h   |		Jump_Zero	0xe61
0e5c 00d9       |    |		Load_Top	At_Offset_1
0e5d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0e5e a403       |    |		Store_Unchecked	0x2,0x3
0e5f e407       |    |		Load	0x2,0x7
0e60 a402       |    |		Store_Unchecked	0x2,0x2
0e61 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e62 8603       |    |		Call	0x3,0x3
0e63 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e64 0000 0000  |    |		.BLANK	0000[0x4]
0e68 ; --------------------------------------------------------------------------------------
0e68 ; SUBPROGRAM
0e68 ; --------------------------------------------------------------------------------------
0e68 0e6b       | k  |		.CONST	0x0e6b								; Address of begin
0e69 0004       |    |		.CONST	0x0004								; Address of exception handler
0e6a 0001       |    |		.CONST	0x0001								; Number of locals
0e6b			BODY_0e68:
0e6b			INIT_0e68:
0e6b 00da       |    |		Load_Top	At_Offset_2
0e6c e01e       |    |		Load	0x0,0x1e
0e6d 027f       |    |		Execute	Discrete,Equal
0e6e 6801       |h   |		Jump_Zero	0xe70
0e6f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e70 00cf       |    |		Action	Mark_Auxiliary
0e71 e403       |    |		Load	0x2,0x3
0e72 4801       |H   |		Short_Literal	0x1
0e73 0263       | c  |		Execute	Discrete,Above_Bound
0e74 700b       |p   |		Jump_Nonzero	0xe80
0e75 00d8       |    |		Load_Top	At_Offset_0
0e76 e402       |    |		Load	0x2,0x2
0e77 01d7       |    |		Execute	Vector,Field_Read
0e78 e7ff       |    |		Load	0x3,-0x1
0e79 027f       |    |		Execute	Discrete,Equal
0e7a 6803       |h   |		Jump_Zero	0xe7e
0e7b 4801       |H   |		Short_Literal	0x1
0e7c a406       |    |		Store_Unchecked	0x2,0x6
0e7d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e7e 00c8       |    |		Action	Pop_Auxiliary_Range
0e7f 3ff5       |?   |		Loop_Increasing	0xe75
0e80 00ce       |    |		Action	Pop_Auxiliary
0e81 e403       |    |		Load	0x2,0x3
0e82 0d28       | (  |		Execute_Immediate	Less,0x28
0e83 6808       |h   |		Jump_Zero	0xe8c
0e84 e403       |    |		Load	0x2,0x3
0e85 0a01       |    |		Execute_Immediate	Plus,0x1
0e86 c403       |    |		Store	0x2,0x3
0e87 00da       |    |		Load_Top	At_Offset_2
0e88 e403       |    |		Load	0x2,0x3
0e89 e402       |    |		Load	0x2,0x2
0e8a 01d6       |    |		Execute	Vector,Field_Write
0e8b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e8c 0092 115e  |   ^|		Action	Push_String_Extended,0x115e					; "Action buffer overflow"
0e8e 803b       | ;  |		Call	0x0,0x3b
0e8f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0e90 ; --------------------------------------------------------------------------------------
0e90 ; SUBPROGRAM
0e90 ; --------------------------------------------------------------------------------------
0e90 0e95       |    |		.CONST	0x0e95								; Address of begin
0e91 0004       |    |		.CONST	0x0004								; Address of exception handler
0e92 0002       |    |		.CONST	0x0002								; Number of locals
0e93			INIT_0e90:
0e93 029f 0f8b  |    |		Declare_Subprogram	INIT_0f88,For_Call
0e95			BODY_0e90:
0e95 e7fe       |    |		Load	0x3,-0x2
0e96 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0e97 6806       |h   |		Jump_Zero	0xe9e
0e98 e5fc       |    |		Load	0x2,-0x4
0e99 805e       | ^  |		Call	0x0,0x5e
0e9a 6803       |h   |		Jump_Zero	0xe9e
0e9b e7fe       |    |		Load	0x3,-0x2
0e9c 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0e9d 8408       |    |		Call	0x2,0x8
0e9e e7fe       |    |		Load	0x3,-0x2
0e9f 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0ea0 6829       |h)  |		Jump_Zero	0xeca
0ea1 e5fe       |    |		Load	0x2,-0x2
0ea2 e004       |    |		Load	0x0,0x4
0ea3 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0ea4 e7fe       |    |		Load	0x3,-0x2
0ea5 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
0ea6 027c       | |  |		Execute	Discrete,Less
0ea7 6822       |h"  |		Jump_Zero	0xeca
0ea8 e5fc       |    |		Load	0x2,-0x4
0ea9 805e       | ^  |		Call	0x0,0x5e
0eaa 681f       |h   |		Jump_Zero	0xeca
0eab e7fe       |    |		Load	0x3,-0x2
0eac 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0ead e5fd       |    |		Load	0x2,-0x3
0eae 027f       |    |		Execute	Discrete,Equal
0eaf 7006       |p   |		Jump_Nonzero	0xeb6
0eb0 e406       |    |		Load	0x2,0x6
0eb1 7004       |p   |		Jump_Nonzero	0xeb6
0eb2 e5fd       |    |		Load	0x2,-0x3
0eb3 e01e       |    |		Load	0x0,0x1e
0eb4 027f       |    |		Execute	Discrete,Equal
0eb5 6814       |h   |		Jump_Zero	0xeca
0eb6 e7fe       |    |		Load	0x3,-0x2
0eb7 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0eb8 0f01       |    |		Execute_Immediate	Equal,0x1
0eb9 680b       |h   |		Jump_Zero	0xec5
0eba 4800       |H   |		Short_Literal	0x0
0ebb e7fe       |    |		Load	0x3,-0x2
0ebc 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0ebd e7fe       |    |		Load	0x3,-0x2
0ebe 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
0ebf 8408       |    |		Call	0x2,0x8
0ec0 00db       |    |		Load_Top	At_Offset_3
0ec1 4801       |H   |		Short_Literal	0x1
0ec2 e26b       | k  |		Load	0x1,0x6b
0ec3 171d       |    |		Execute	Task,Entry_Call,Field_Number 0x1d
0ec4 7805       |x   |		Jump	0xeca
0ec5 e7fe       |    |		Load	0x3,-0x2
0ec6 3c0b       |<   |		Execute	Record,Field_Read,Field_Number 0xb
0ec7 0aff       |    |		Execute_Immediate	Plus,-0x1
0ec8 e7fe       |    |		Load	0x3,-0x2
0ec9 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
0eca e7fe       |    |		Load	0x3,-0x2
0ecb 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
0ecc 6809       |h   |		Jump_Zero	0xed6
0ecd 00cf       |    |		Action	Mark_Auxiliary
0ece e258       | X  |		Load	0x1,0x58
0ecf 4801       |H   |		Short_Literal	0x1
0ed0 0263       | c  |		Execute	Discrete,Above_Bound
0ed1 7003       |p   |		Jump_Nonzero	0xed5
0ed2 8602       |    |		Call	0x3,0x2
0ed3 00c8       |    |		Action	Pop_Auxiliary_Range
0ed4 3ffd       |?   |		Loop_Increasing	0xed2
0ed5 00ce       |    |		Action	Pop_Auxiliary
0ed6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ed7 0000       |    |		.XXX[0x1]
0ed8 ; --------------------------------------------------------------------------------------
0ed8 ; SUBPROGRAM
0ed8 ; --------------------------------------------------------------------------------------
0ed8 0edb       |    |		.CONST	0x0edb								; Address of begin
0ed9 0004       |    |		.CONST	0x0004								; Address of exception handler
0eda 0001       |    |		.CONST	0x0001								; Number of locals
0edb			BODY_0ed8:
0edb			INIT_0ed8:
0edb e7fd       |    |		Load	0x3,-0x3
0edc 00e2       |    |		Load_Encached	Integer_Cache
0edd 025e       | ^  |		Execute	Discrete,Convert
0ede e7fe       |    |		Load	0x3,-0x2
0edf e7ff       |    |		Load	0x3,-0x1
0ee0 e025       | %  |		Load	0x0,0x25
0ee1 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0ee2 00d9       |    |		Load_Top	At_Offset_1
0ee3 00d0       |    |		Action	Swap_Control
0ee4 0260       | `  |		Execute	Discrete,In_Type
0ee5 7001       |p   |		Jump_Nonzero	0xee7
0ee6 0801       |    |		Execute_Immediate	Raise,0x1
0ee7 8409       |    |		Call	0x2,0x9
0ee8 00d1       |    |		Pop_Control	Pop_Count_1
0ee9 c7fd       |    |		Store	0x3,-0x3
0eea 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0eeb 0000 0000  |    |		.BLANK	0000[0x5]
0ef0 ; --------------------------------------------------------------------------------------
0ef0 ; SUBPROGRAM
0ef0 ; --------------------------------------------------------------------------------------
0ef0 0ef3       |    |		.CONST	0x0ef3								; Address of begin
0ef1 0f0d       |    |		.CONST	0x0f0d								; Address of exception handler
0ef2 0001       |    |		.CONST	0x0001								; Number of locals
0ef3			BODY_0ef0:
0ef3			INIT_0ef0:
0ef3 e23e       | >  |		Load	0x1,0x3e
0ef4 6817       |h   |		Jump_Zero	0xf0c
0ef5 0092 113a  |   :|		Action	Push_String_Extended,0x113a					; "Process_Action: exception: "
0ef7 e03a       | :  |		Load	0x0,0x3a
0ef8 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0ef9 01cc       |    |		Execute	Vector,Catenate
0efa 803b       | ;  |		Call	0x0,0x3b
0efb 00cf       |    |		Action	Mark_Auxiliary
0efc e403       |    |		Load	0x2,0x3
0efd 4801       |H   |		Short_Literal	0x1
0efe 0263       | c  |		Execute	Discrete,Above_Bound
0eff 700b       |p   |		Jump_Nonzero	0xf0b
0f00 0092 115f  |   _|		Action	Push_String_Extended,0x115f					; "Aid= "
0f02 00d9       |    |		Load_Top	At_Offset_1
0f03 e402       |    |		Load	0x2,0x2
0f04 01d7       |    |		Execute	Vector,Field_Read
0f05 00e0       |    |		Load_Encached	Standard_Cache
0f06 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0f07 01cc       |    |		Execute	Vector,Catenate
0f08 803b       | ;  |		Call	0x0,0x3b
0f09 00c8       |    |		Action	Pop_Auxiliary_Range
0f0a 3ff5       |?   |		Loop_Increasing	0xf00
0f0b 00ce       |    |		Action	Pop_Auxiliary
0f0c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0f0d			TRAP_0ef0:
0f0d 0007       |    |		Action	Break_Optional
0f0e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0f0f 0000       |    |		.XXX[0x1]
0f10 ; --------------------------------------------------------------------------------------
0f10 ; SUBPROGRAM
0f10 ; --------------------------------------------------------------------------------------
0f10 0f17       |    |		.CONST	0x0f17								; Address of begin
0f11 0004       |    |		.CONST	0x0004								; Address of exception handler
0f12 0002       |    |		.CONST	0x0002								; Number of locals
0f13			INIT_0f10:
0f13 e039       | 9  |		Load	0x0,0x39
0f14 0322       | "  |		Declare_Variable	Record
0f15 00d8       |    |		Load_Top	At_Offset_0
0f16 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f17			BODY_0f10:
0f17 00d8       |    |		Load_Top	At_Offset_0
0f18 e5fe       |    |		Load	0x2,-0x2
0f19 803c       | <  |		Call	0x0,0x3c
0f1a 00d1       |    |		Pop_Control	Pop_Count_1
0f1b 00d8       |    |		Load_Top	At_Offset_0
0f1c e5fd       |    |		Load	0x2,-0x3
0f1d 803d       | =  |		Call	0x0,0x3d
0f1e 00d1       |    |		Pop_Control	Pop_Count_1
0f1f 00d8       |    |		Load_Top	At_Offset_0
0f20 e5ff       |    |		Load	0x2,-0x1
0f21 806a       | j  |		Call	0x0,0x6a
0f22 00d1       |    |		Pop_Control	Pop_Count_1
0f23 e5fe       |    |		Load	0x2,-0x2
0f24 e01e       |    |		Load	0x0,0x1e
0f25 e5fd       |    |		Load	0x2,-0x3
0f26 e5ff       |    |		Load	0x2,-0x1
0f27 8278       | x  |		Call	0x1,0x78
0f28 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0f29 0000 0000  |    |		.BLANK	0000[0x7]
0f30 ; --------------------------------------------------------------------------------------
0f30 ; SUBPROGRAM
0f30 ; --------------------------------------------------------------------------------------
0f30 0f38       | 8  |		.CONST	0x0f38								; Address of begin
0f31 0004       |    |		.CONST	0x0004								; Address of exception handler
0f32 0003       |    |		.CONST	0x0003								; Number of locals
0f33			INIT_0f30:
0f33 e405       |    |		Load	0x2,0x5
0f34 e257       | W  |		Load	0x1,0x57
0f35 01d5       |    |		Execute	Vector,Field_Reference
0f36 029f 0fcb  |    |		Declare_Subprogram	INIT_0fc8,For_Call
0f38			BODY_0f30:
0f38 00d9       |    |		Load_Top	At_Offset_1
0f39 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0f3a e011       |    |		Load	0x0,0x11
0f3b 027f       |    |		Execute	Discrete,Equal
0f3c 7005       |p   |		Jump_Nonzero	0xf42
0f3d 00d9       |    |		Load_Top	At_Offset_1
0f3e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0f3f e5ff       |    |		Load	0x2,-0x1
0f40 027f       |    |		Execute	Discrete,Equal
0f41 6814       |h   |		Jump_Zero	0xf56
0f42 00d9       |    |		Load_Top	At_Offset_1
0f43 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0f44 e061       | a  |		Load	0x0,0x61
0f45 017e       | ~  |		Execute	Record,Not_Equal
0f46 700a       |p   |		Jump_Nonzero	0xf51
0f47 00d9       |    |		Load_Top	At_Offset_1
0f48 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0f49 e063       | c  |		Load	0x0,0x63
0f4a 027e       | ~  |		Execute	Discrete,Not_Equal
0f4b 7005       |p   |		Jump_Nonzero	0xf51
0f4c 00d9       |    |		Load_Top	At_Offset_1
0f4d 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0f4e e05c       | \  |		Load	0x0,0x5c
0f4f 017e       | ~  |		Execute	Record,Not_Equal
0f50 6802       |h   |		Jump_Zero	0xf53
0f51 8603       |    |		Call	0x3,0x3
0f52 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0f53 4801       |H   |		Short_Literal	0x1
0f54 00cb       |    |		Action	Pop_Block_With_Result
0f55 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0f56 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0f57 0000       |    |		.XXX[0x1]
0f58 ; --------------------------------------------------------------------------------------
0f58 ; SUBPROGRAM
0f58 ; --------------------------------------------------------------------------------------
0f58 0f6a       | j  |		.CONST	0x0f6a								; Address of begin
0f59 0004       |    |		.CONST	0x0004								; Address of exception handler
0f5a 0007       |    |		.CONST	0x0007								; Number of locals
0f5b			INIT_0f58:
0f5b e039       | 9  |		Load	0x0,0x39
0f5c 0322       | "  |		Declare_Variable	Record
0f5d 00d8       |    |		Load_Top	At_Offset_0
0f5e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f5f e005       |    |		Load	0x0,0x5
0f60 0322       | "  |		Declare_Variable	Record
0f61 00d8       |    |		Load_Top	At_Offset_0
0f62 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0f63 00e1       |    |		Load_Encached	Boolean_Cache
0f64 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0f65 e006       |    |		Load	0x0,0x6
0f66 0322       | "  |		Declare_Variable	Record
0f67 e007       |    |		Load	0x0,0x7
0f68 029f 0ffb  |    |		Declare_Subprogram	INIT_0ff8,For_Call
0f6a			BODY_0f58:
0f6a e802       |    |		Load	0x4,0x2
0f6b e5fd       |    |		Load	0x2,-0x3
0f6c 803c       | <  |		Call	0x0,0x3c
0f6d 00d1       |    |		Pop_Control	Pop_Count_1
0f6e e802       |    |		Load	0x4,0x2
0f6f 8056       | V  |		Call	0x0,0x56
0f70 00d1       |    |		Pop_Control	Pop_Count_1
0f71 e802       |    |		Load	0x4,0x2
0f72 806b       | k  |		Call	0x0,0x6b
0f73 00db       |    |		Load_Top	At_Offset_3
0f74 017d       | }  |		Execute	Record,Structure_Write
0f75 e802       |    |		Load	0x4,0x2
0f76 806c       | l  |		Call	0x0,0x6c
0f77 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0f78 00cf       |    |		Action	Mark_Auxiliary
0f79 e268       | h  |		Load	0x1,0x68
0f7a e407       |    |		Load	0x2,0x7
0f7b 0263       | c  |		Execute	Discrete,Above_Bound
0f7c 7003       |p   |		Jump_Nonzero	0xf80
0f7d 8807       |    |		Call	0x4,0x7
0f7e 00c8       |    |		Action	Pop_Auxiliary_Range
0f7f 3ffd       |?   |		Loop_Increasing	0xf7d
0f80 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0f81 0000 0000  |    |		.BLANK	0000[0x7]
0f88 ; --------------------------------------------------------------------------------------
0f88 ; SUBPROGRAM
0f88 ; --------------------------------------------------------------------------------------
0f88 0f8f       |    |		.CONST	0x0f8f								; Address of begin
0f89 0004       |    |		.CONST	0x0004								; Address of exception handler
0f8a 0002       |    |		.CONST	0x0002								; Number of locals
0f8b			INIT_0f88:
0f8b e605       |    |		Load	0x3,0x5
0f8c e257       | W  |		Load	0x1,0x57
0f8d 01d5       |    |		Execute	Vector,Field_Reference
0f8e 0007       |    |		Action	Break_Optional
0f8f			BODY_0f88:
0f8f 00d8       |    |		Load_Top	At_Offset_0
0f90 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0f91 e011       |    |		Load	0x0,0x11
0f92 027f       |    |		Execute	Discrete,Equal
0f93 7005       |p   |		Jump_Nonzero	0xf99
0f94 00d8       |    |		Load_Top	At_Offset_0
0f95 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0f96 e7ff       |    |		Load	0x3,-0x1
0f97 027f       |    |		Execute	Discrete,Equal
0f98 682d       |h-  |		Jump_Zero	0xfc6
0f99 00d8       |    |		Load_Top	At_Offset_0
0f9a 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0f9b e061       | a  |		Load	0x0,0x61
0f9c 017f       |    |		Execute	Record,Equal
0f9d 7006       |p   |		Jump_Nonzero	0xfa4
0f9e 00d8       |    |		Load_Top	At_Offset_0
0f9f 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0fa0 e405       |    |		Load	0x2,0x5
0fa1 806b       | k  |		Call	0x0,0x6b
0fa2 017f       |    |		Execute	Record,Equal
0fa3 6822       |h"  |		Jump_Zero	0xfc6
0fa4 00d8       |    |		Load_Top	At_Offset_0
0fa5 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0fa6 e063       | c  |		Load	0x0,0x63
0fa7 027f       |    |		Execute	Discrete,Equal
0fa8 7006       |p   |		Jump_Nonzero	0xfaf
0fa9 00d8       |    |		Load_Top	At_Offset_0
0faa 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0fab e405       |    |		Load	0x2,0x5
0fac 806c       | l  |		Call	0x0,0x6c
0fad 027f       |    |		Execute	Discrete,Equal
0fae 6817       |h   |		Jump_Zero	0xfc6
0faf 00d8       |    |		Load_Top	At_Offset_0
0fb0 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0fb1 e05c       | \  |		Load	0x0,0x5c
0fb2 017f       |    |		Execute	Record,Equal
0fb3 7006       |p   |		Jump_Nonzero	0xfba
0fb4 e405       |    |		Load	0x2,0x5
0fb5 805d       | ]  |		Call	0x0,0x5d
0fb6 00d9       |    |		Load_Top	At_Offset_1
0fb7 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0fb8 8273       | s  |		Call	0x1,0x73
0fb9 680c       |h   |		Jump_Zero	0xfc6
0fba 00d8       |    |		Load_Top	At_Offset_0
0fbb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0fbc 7003       |p   |		Jump_Nonzero	0xfc0
0fbd e405       |    |		Load	0x2,0x5
0fbe 806d       | m  |		Call	0x0,0x6d
0fbf 7003       |p   |		Jump_Nonzero	0xfc3
0fc0 e405       |    |		Load	0x2,0x5
0fc1 806e       | n  |		Call	0x0,0x6e
0fc2 6803       |h   |		Jump_Zero	0xfc6
0fc3 00d8       |    |		Load_Top	At_Offset_0
0fc4 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0fc5 8408       |    |		Call	0x2,0x8
0fc6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0fc7 0000       |    |		.XXX[0x1]
0fc8 ; --------------------------------------------------------------------------------------
0fc8 ; SUBPROGRAM
0fc8 ; --------------------------------------------------------------------------------------
0fc8 0fda       |    |		.CONST	0x0fda								; Address of begin
0fc9 0004       |    |		.CONST	0x0004								; Address of exception handler
0fca 0007       |    |		.CONST	0x0007								; Number of locals
0fcb			INIT_0fc8:
0fcb e006       |    |		Load	0x0,0x6
0fcc 0322       | "  |		Declare_Variable	Record
0fcd 00e2       |    |		Load_Encached	Integer_Cache
0fce 00e1       |    |		Load_Encached	Boolean_Cache
0fcf 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0fd0 e005       |    |		Load	0x0,0x5
0fd1 0322       | "  |		Declare_Variable	Record
0fd2 00d8       |    |		Load_Top	At_Offset_0
0fd3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0fd4 e039       | 9  |		Load	0x0,0x39
0fd5 0322       | "  |		Declare_Variable	Record
0fd6 00d8       |    |		Load_Top	At_Offset_0
0fd7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0fd8 029f 106b  |   k|		Declare_Subprogram	INIT_1068,For_Call
0fda			BODY_0fc8:
0fda 00d9       |    |		Load_Top	At_Offset_1
0fdb e5fd       |    |		Load	0x2,-0x3
0fdc 803c       | <  |		Call	0x0,0x3c
0fdd 00d1       |    |		Pop_Control	Pop_Count_1
0fde 00d9       |    |		Load_Top	At_Offset_1
0fdf 8056       | V  |		Call	0x0,0x56
0fe0 00d1       |    |		Pop_Control	Pop_Count_1
0fe1 00d9       |    |		Load_Top	At_Offset_1
0fe2 806b       | k  |		Call	0x0,0x6b
0fe3 e802       |    |		Load	0x4,0x2
0fe4 017d       | }  |		Execute	Record,Structure_Write
0fe5 00d9       |    |		Load_Top	At_Offset_1
0fe6 806c       | l  |		Call	0x0,0x6c
0fe7 a803       |    |		Store_Unchecked	0x4,0x3
0fe8 00cf       |    |		Action	Mark_Auxiliary
0fe9 e258       | X  |		Load	0x1,0x58
0fea e405       |    |		Load	0x2,0x5
0feb 0263       | c  |		Execute	Discrete,Above_Bound
0fec 7003       |p   |		Jump_Nonzero	0xff0
0fed 8807       |    |		Call	0x4,0x7
0fee 00c8       |    |		Action	Pop_Auxiliary_Range
0fef 3ffd       |?   |		Loop_Increasing	0xfed
0ff0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0ff1 0000 0000  |    |		.BLANK	0000[0x7]
0ff8 ; --------------------------------------------------------------------------------------
0ff8 ; SUBPROGRAM
0ff8 ; --------------------------------------------------------------------------------------
0ff8 0fff       |    |		.CONST	0x0fff								; Address of begin
0ff9 0004       |    |		.CONST	0x0004								; Address of exception handler
0ffa 0002       |    |		.CONST	0x0002								; Number of locals
0ffb			INIT_0ff8:
0ffb e80a       |    |		Load	0x4,0xa
0ffc e267       | g  |		Load	0x1,0x67
0ffd 01d5       |    |		Execute	Vector,Field_Reference
0ffe 0007       |    |		Action	Break_Optional
0fff			BODY_0ff8:
0fff 00d8       |    |		Load_Top	At_Offset_0
1000 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
1001 e01e       |    |		Load	0x0,0x1e
1002 027e       | ~  |		Execute	Discrete,Not_Equal
1003 6863       |hc  |		Jump_Zero	0x1067
1004 00d8       |    |		Load_Top	At_Offset_0
1005 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
1006 e011       |    |		Load	0x0,0x11
1007 027f       |    |		Execute	Discrete,Equal
1008 7005       |p   |		Jump_Nonzero	0x100e
1009 00d8       |    |		Load_Top	At_Offset_0
100a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
100b e5fe       |    |		Load	0x2,-0x2
100c 027f       |    |		Execute	Discrete,Equal
100d 6859       |hY  |		Jump_Zero	0x1067
100e 00d8       |    |		Load_Top	At_Offset_0
100f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1010 8067       | g  |		Call	0x0,0x67
1011 7006       |p   |		Jump_Nonzero	0x1018
1012 00d8       |    |		Load_Top	At_Offset_0
1013 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1014 8068       | h  |		Call	0x0,0x68
1015 e5ff       |    |		Load	0x2,-0x1
1016 8069       | i  |		Call	0x0,0x69
1017 684f       |hO  |		Jump_Zero	0x1067
1018 00d8       |    |		Load_Top	At_Offset_0
1019 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
101a e061       | a  |		Load	0x0,0x61
101b 017f       |    |		Execute	Record,Equal
101c 7005       |p   |		Jump_Nonzero	0x1022
101d 00d8       |    |		Load_Top	At_Offset_0
101e 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
101f e805       |    |		Load	0x4,0x5
1020 017f       |    |		Execute	Record,Equal
1021 6845       |hE  |		Jump_Zero	0x1067
1022 00d8       |    |		Load_Top	At_Offset_0
1023 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
1024 e063       | c  |		Load	0x0,0x63
1025 027f       |    |		Execute	Discrete,Equal
1026 7005       |p   |		Jump_Nonzero	0x102c
1027 00d8       |    |		Load_Top	At_Offset_0
1028 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
1029 e806       |    |		Load	0x4,0x6
102a 027f       |    |		Execute	Discrete,Equal
102b 683b       |h;  |		Jump_Zero	0x1067
102c 00d8       |    |		Load_Top	At_Offset_0
102d 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
102e e05c       | \  |		Load	0x0,0x5c
102f 017f       |    |		Execute	Record,Equal
1030 6813       |h   |		Jump_Zero	0x1044
1031 00d8       |    |		Load_Top	At_Offset_0
1032 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
1033 0f02       |    |		Execute_Immediate	Equal,0x2
1034 6804       |h   |		Jump_Zero	0x1039
1035 00d8       |    |		Load_Top	At_Offset_0
1036 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
1037 a5fb       |    |		Store_Unchecked	0x2,-0x5
1038 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1039 00d8       |    |		Load_Top	At_Offset_0
103a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
103b e403       |    |		Load	0x2,0x3
103c 027d       | }  |		Execute	Discrete,Greater
103d 6805       |h   |		Jump_Zero	0x1043
103e 00d8       |    |		Load_Top	At_Offset_0
103f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1040 a403       |    |		Store_Unchecked	0x2,0x3
1041 e407       |    |		Load	0x2,0x7
1042 a402       |    |		Store_Unchecked	0x2,0x2
1043 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1044 e804       |    |		Load	0x4,0x4
1045 700a       |p   |		Jump_Nonzero	0x1050
1046 e802       |    |		Load	0x4,0x2
1047 e5fc       |    |		Load	0x2,-0x4
1048 803d       | =  |		Call	0x0,0x3d
1049 00d1       |    |		Pop_Control	Pop_Count_1
104a e803       |    |		Load	0x4,0x3
104b e802       |    |		Load	0x4,0x2
104c 806f       | o  |		Call	0x0,0x6f
104d 00d2       |    |		Pop_Control	Pop_Count_2
104e 4801       |H   |		Short_Literal	0x1
104f a804       |    |		Store_Unchecked	0x4,0x4
1050 e803       |    |		Load	0x4,0x3
1051 00d9       |    |		Load_Top	At_Offset_1
1052 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
1053 8273       | s  |		Call	0x1,0x73
1054 6812       |h   |		Jump_Zero	0x1067
1055 00d8       |    |		Load_Top	At_Offset_0
1056 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
1057 0f02       |    |		Execute_Immediate	Equal,0x2
1058 6804       |h   |		Jump_Zero	0x105d
1059 00d8       |    |		Load_Top	At_Offset_0
105a 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
105b a5fb       |    |		Store_Unchecked	0x2,-0x5
105c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
105d 00d8       |    |		Load_Top	At_Offset_0
105e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
105f e403       |    |		Load	0x2,0x3
1060 027d       | }  |		Execute	Discrete,Greater
1061 6805       |h   |		Jump_Zero	0x1067
1062 00d8       |    |		Load_Top	At_Offset_0
1063 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
1064 a403       |    |		Store_Unchecked	0x2,0x3
1065 e407       |    |		Load	0x2,0x7
1066 a402       |    |		Store_Unchecked	0x2,0x2
1067 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1068 ; --------------------------------------------------------------------------------------
1068 ; SUBPROGRAM
1068 ; --------------------------------------------------------------------------------------
1068 106f       | o  |		.CONST	0x106f								; Address of begin
1069 0004       |    |		.CONST	0x0004								; Address of exception handler
106a 0002       |    |		.CONST	0x0002								; Number of locals
106b			INIT_1068:
106b e80a       |    |		Load	0x4,0xa
106c e257       | W  |		Load	0x1,0x57
106d 01d5       |    |		Execute	Vector,Field_Reference
106e 0007       |    |		Action	Break_Optional
106f			BODY_1068:
106f 00d8       |    |		Load_Top	At_Offset_0
1070 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
1071 7003       |p   |		Jump_Nonzero	0x1075
1072 e5fd       |    |		Load	0x2,-0x3
1073 805e       | ^  |		Call	0x0,0x5e
1074 6830       |h0  |		Jump_Zero	0x10a5
1075 00d8       |    |		Load_Top	At_Offset_0
1076 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
1077 e061       | a  |		Load	0x0,0x61
1078 017f       |    |		Execute	Record,Equal
1079 7005       |p   |		Jump_Nonzero	0x107f
107a 00d8       |    |		Load_Top	At_Offset_0
107b 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
107c e802       |    |		Load	0x4,0x2
107d 017f       |    |		Execute	Record,Equal
107e 6826       |h&  |		Jump_Zero	0x10a5
107f 00d8       |    |		Load_Top	At_Offset_0
1080 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
1081 e063       | c  |		Load	0x0,0x63
1082 027f       |    |		Execute	Discrete,Equal
1083 7005       |p   |		Jump_Nonzero	0x1089
1084 00d8       |    |		Load_Top	At_Offset_0
1085 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
1086 e803       |    |		Load	0x4,0x3
1087 027f       |    |		Execute	Discrete,Equal
1088 681c       |h   |		Jump_Zero	0x10a5
1089 00d8       |    |		Load_Top	At_Offset_0
108a 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
108b e05c       | \  |		Load	0x0,0x5c
108c 017f       |    |		Execute	Record,Equal
108d 6805       |h   |		Jump_Zero	0x1093
108e 4801       |H   |		Short_Literal	0x1
108f 00cb       |    |		Action	Pop_Block_With_Result
1090 00cb       |    |		Action	Pop_Block_With_Result
1091 00cb       |    |		Action	Pop_Block_With_Result
1092 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
1093 e804       |    |		Load	0x4,0x4
1094 7006       |p   |		Jump_Nonzero	0x109b
1095 e805       |    |		Load	0x4,0x5
1096 e806       |    |		Load	0x4,0x6
1097 806f       | o  |		Call	0x0,0x6f
1098 00d2       |    |		Pop_Control	Pop_Count_2
1099 4801       |H   |		Short_Literal	0x1
109a a804       |    |		Store_Unchecked	0x4,0x4
109b e805       |    |		Load	0x4,0x5
109c 00d9       |    |		Load_Top	At_Offset_1
109d 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
109e 8273       | s  |		Call	0x1,0x73
109f 6805       |h   |		Jump_Zero	0x10a5
10a0 4801       |H   |		Short_Literal	0x1
10a1 00cb       |    |		Action	Pop_Block_With_Result
10a2 00cb       |    |		Action	Pop_Block_With_Result
10a3 00cb       |    |		Action	Pop_Block_With_Result
10a4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
10a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10a6 0000 0000  |    |		.XXX[0x2]
10a8 ; --------------------------------------------------------------------------------------
10a8 ; SUBPROGRAM
10a8 ; --------------------------------------------------------------------------------------
10a8 10b5       |    |		.CONST	0x10b5								; Address of begin
10a9 0004       |    |		.CONST	0x0004								; Address of exception handler
10aa 000f       |    |		.CONST	0x000f								; Number of locals
10ab			INIT_10a8:
10ab 4804       |H   |		Short_Literal	0x4
10ac 02cb       |    |		Declare_Variable	Entry
10ad 00bf       |    |		Action	Accept_Activation
10ae e001       |    |		Load	0x0,0x1
10af 0322       | "  |		Declare_Variable	Record
10b0 00d8       |    |		Load_Top	At_Offset_0
10b1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
10b2 029f 10c3  |    |		Declare_Subprogram	INIT_10c0,For_Call
10b4 00bc       |    |		Action	Signal_Activated
10b5			BODY_10a8:
10b5 0092 1160  |   `|		Action	Push_String_Extended,0x1160					; "Control.Inner.Creator"
10b7 e002       |    |		Load	0x0,0x2
10b8 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
10b9 00cf       |    |		Action	Mark_Auxiliary
10ba 820f       |    |		Call	0x1,0xf
10bb 00c9       |    |		Action	Pop_Auxiliary_Loop
10bc 7ffd       |    |		Jump	0x10ba
10bd 0000 0000  |    |		.XXX[0x3]
10bf 0000       |    |
10c0 ; --------------------------------------------------------------------------------------
10c0 ; SUBPROGRAM
10c0 ; --------------------------------------------------------------------------------------
10c0 10ca       |    |		.CONST	0x10ca								; Address of begin
10c1 10d0       |    |		.CONST	0x10d0								; Address of exception handler
10c2 0002       |    |		.CONST	0x0002								; Number of locals
10c3			INIT_10c0:
10c3 480d 4a1b  |H J |		Declare_Variable	Select	0x000, 0x001,
10c5 4800 4801  |H H |				[0x000]: 0x001 = 0x0008,
10c7 4800 4801  |H H |				[0x00d]: 0x21b = 0x10d8
10c9 02cf       |    |
10ca			BODY_10c0:
10ca 00cf       |    |		Action	Mark_Auxiliary
10cb 00d9       |    |		Load_Top	At_Offset_1
10cc 013f       | ?  |		Execute	Select,Rendezvous
10cd 00d1       |    |		Pop_Control	Pop_Count_1
10ce 00c9       |    |		Action	Pop_Auxiliary_Loop
10cf 7ffb       |    |		Jump	0x10cb
10d0			TRAP_10c0:
10d0 0007       |    |		Action	Break_Optional
10d1 0092 1161  |   a|		Action	Push_String_Extended,0x1161					; "Creator: exception:"
10d3 e002       |    |		Load	0x0,0x2
10d4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
10d5 01cc       |    |		Execute	Vector,Catenate
10d6 8003       |    |		Call	0x0,0x3
10d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10d8 ; --------------------------------------------------------------------------------------
10d8 ; SUBPROGRAM
10d8 ; See instruction 0x02cf at 0x10c3, index=0xd
10d8 ; --------------------------------------------------------------------------------------
10d8 10db       |    |		.CONST	0x10db								; Address of begin
10d9 0004       |    |		.CONST	0x0004								; Address of exception handler
10da 0001       |    |		.CONST	0x0001								; Number of locals
10db			BODY_10d8:
10db			INIT_10d8:
10db 029f 10e3  |    |		Declare_Subprogram	INIT_10e0,For_Call
10dd 8602       |    |		Call	0x3,0x2
10de 4101       |A   |		End_Rendezvous	0x1
10df 0000       |    |		.XXX[0x1]
10e0 ; --------------------------------------------------------------------------------------
10e0 ; SUBPROGRAM
10e0 ; --------------------------------------------------------------------------------------
10e0 10e3       |    |		.CONST	0x10e3								; Address of begin
10e1 0004       |    |		.CONST	0x0004								; Address of exception handler
10e2 0001       |    |		.CONST	0x0001								; Number of locals
10e3			BODY_10e0:
10e3			INIT_10e0:
10e3 4800       |H   |		Short_Literal	0x0
10e4 a7fb       |    |		Store_Unchecked	0x3,-0x5
10e5 e20e       |    |		Load	0x1,0xe
10e6 e7fd       |    |		Load	0x3,-0x3
10e7 8004       |    |		Call	0x0,0x4
10e8 00d1       |    |		Pop_Control	Pop_Count_1
10e9 e20e       |    |		Load	0x1,0xe
10ea e7fc       |    |		Load	0x3,-0x4
10eb 8005       |    |		Call	0x0,0x5
10ec 00d1       |    |		Pop_Control	Pop_Count_1
10ed e20e       |    |		Load	0x1,0xe
10ee e7fe       |    |		Load	0x3,-0x2
10ef 8006       |    |		Call	0x0,0x6
10f0 00d1       |    |		Pop_Control	Pop_Count_1
10f1 8007       |    |		Call	0x0,0x7
10f2 6807       |h   |		Jump_Zero	0x10fa
10f3 e7fe       |    |		Load	0x3,-0x2
10f4 e008       |    |		Load	0x0,0x8
10f5 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
10f6 7003       |p   |		Jump_Nonzero	0x10fa
10f7 4801       |H   |		Short_Literal	0x1
10f8 a7fb       |    |		Store_Unchecked	0x3,-0x5
10f9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10fa e009       |    |		Load	0x0,0x9
10fb 6803       |h   |		Jump_Zero	0x10ff
10fc 4801       |H   |		Short_Literal	0x1
10fd a7fb       |    |		Store_Unchecked	0x3,-0x5
10fe 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10ff 00cf       |    |		Action	Mark_Auxiliary
1100 e00a       |    |		Load	0x0,0xa
1101 4801       |H   |		Short_Literal	0x1
1102 0263       | c  |		Execute	Discrete,Above_Bound
1103 700c       |p   |		Jump_Nonzero	0x1110
1104 e7fd       |    |		Load	0x3,-0x3
1105 00d9       |    |		Load_Top	At_Offset_1
1106 e00b       |    |		Load	0x0,0xb
1107 01d7       |    |		Execute	Vector,Field_Read
1108 027f       |    |		Execute	Discrete,Equal
1109 6804       |h   |		Jump_Zero	0x110e
110a 4801       |H   |		Short_Literal	0x1
110b a7fb       |    |		Store_Unchecked	0x3,-0x5
110c 00d2       |    |		Pop_Control	Pop_Count_2
110d 7802       |x   |		Jump	0x1110
110e 00c8       |    |		Action	Pop_Auxiliary_Range
110f 3ff4       |?   |		Loop_Increasing	0x1104
1110 00ce       |    |		Action	Pop_Auxiliary
1111 e7fe       |    |		Load	0x3,-0x2
1112 800c       |    |		Call	0x0,0xc
1113 7003       |p   |		Jump_Nonzero	0x1117
1114 e7fe       |    |		Load	0x3,-0x2
1115 800d       |    |		Call	0x0,0xd
1116 6802       |h   |		Jump_Zero	0x1119
1117 4801       |H   |		Short_Literal	0x1
1118 a7fb       |    |		Store_Unchecked	0x3,-0x5
1119 e7fe       |    |		Load	0x3,-0x2
111a 4801       |H   |		Short_Literal	0x1
111b e00e       |    |		Load	0x0,0xe
111c e00f       |    |		Load	0x0,0xf
111d 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
111e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
111f ; --------------------------------------------------------------------------------------
111f ; STRING TABLE
111f ; --------------------------------------------------------------------------------------
111f 0088       |    |		.STRTAB	0x0088->0x1163							; "LOCAL_UNCONSTRAINED"
1120 0099       |    |		.STRTAB	0x0099->0x116c							; "LOCAL_CONSTRAINED"
1121 00a8       |    |		.STRTAB	0x00a8->0x1175							; "GLOBAL_UNCONSTRAINED"
1122 00ba       |    |		.STRTAB	0x00ba->0x117f							; "GLOBAL_CONSTRAINED"
1123 00ca       |    |		.STRTAB	0x00ca->0x1188							; "Trace requests"
1124 00d6       |    |		.STRTAB	0x00d6->0x118f							; "New task trace is on"
1125 00e8       |    |		.STRTAB	0x00e8->0x1199							; "Inform on task creation mode set"
1126 0106       |    |		.STRTAB	0x0106->0x11a9							; "Global stop: "
1127 0111       |    |		.STRTAB	0x0111->0x11af							; "Aid: "
1128 0114       |    |		.STRTAB	0x0114->0x11b2							; "none"
1129 0116       |    |		.STRTAB	0x0116->0x11b4							; "New task stop, action ="
112a 012b       | +  |		.STRTAB	0x012b->0x11bf							; "Holding initial registrants"
112b 0144       | D  |		.STRTAB	0x0144->0x11cd							; "Global stepping: "
112c 0153       | S  |		.STRTAB	0x0153->0x11d5							; "Task = "
112d 0158       | X  |		.STRTAB	0x0158->0x11d9							; " Count = "
112e 015f       | _  |		.STRTAB	0x015f->0x11dd							; "       Frame restriction = #"
112f 0179       | y  |		.STRTAB	0x0179->0x11eb							; " Action = "
1130 0181       |    |		.STRTAB	0x0181->0x11f0							; "Instruction stepping: "
1131 0195       |    |		.STRTAB	0x0195->0x11fb							; "None"
1132 0197       |    |		.STRTAB	0x0197->0x11fd							; "Breakpoints:"
1133 01a1       |    |		.STRTAB	0x01a1->0x1203							; "  Accelerator load failures: "
1134 01bc       |    |		.STRTAB	0x01bc->0x1212							; "Break on task creation mode set"
1135 01d9       |    |		.STRTAB	0x01d9->0x1221							; "Exception Requests:"
1136 01ea       |    |		.STRTAB	0x01ea->0x122b							; "History requests and status"
1137 0203       |    |		.STRTAB	0x0203->0x1238							; "Next_Index = "
1138 020e       |    |		.STRTAB	0x020e->0x123f							; ": Task : "
1139 0215       |    |		.STRTAB	0x0215->0x1243							; "Exception Cache (tasks propagating)"
113a 0236       | 6  |		.STRTAB	0x0236->0x1255							; "Process_Action: exception: "
113b 024f       | O  |		.STRTAB	0x024f->0x1262							; "Creation_Register:"
113c 025f       | _  |		.STRTAB	0x025f->0x126b							; " [any inst]"
113d 0268       | h  |		.STRTAB	0x0268->0x1271							; " ["
113e 0268       | h  |		.STRTAB	0x0268->0x1272							; "]"
113f 0267       | g  |		.STRTAB	0x0267->0x1272							; " [any sub]"
1140 026f       | o  |		.STRTAB	0x026f->0x1277							; " [any stmt]"
1141 0278       | x  |		.STRTAB	0x0278->0x127d							; ": "
1142 0278       | x  |		.STRTAB	0x0278->0x127e							; " Tracing"
1143 027e       | ~  |		.STRTAB	0x027e->0x1282							; " Exc Tracing"
1144 0288       |    |		.STRTAB	0x0288->0x1288							; " Stop, action="
1145 0294       |    |		.STRTAB	0x0294->0x128f							; " Stepping: "
1146 029d       |    |		.STRTAB	0x029d->0x1294							; " level=#"
1147 02a3       |    |		.STRTAB	0x02a3->0x1298							; " action="
1148 02a9       |    |		.STRTAB	0x02a9->0x129c							; " DB mask= "
1149 02b1       |    |		.STRTAB	0x02b1->0x12a1							; " exc info:"
114a 02b9       |    |		.STRTAB	0x02b9->0x12a6							; " "
114b 02b8       |    |		.STRTAB	0x02b8->0x12a7							; "Task=all, Pc="
114c 02c3       |    |		.STRTAB	0x02c3->0x12ad							; " Id="
114d 02c5       |    |		.STRTAB	0x02c5->0x12af							; "  "
114e 02c5       |    |		.STRTAB	0x02c5->0x12b0							; " /"
114f 02c5       |    |		.STRTAB	0x02c5->0x12b1							; "  T"
1150 02c6       |    |		.STRTAB	0x02c6->0x12b3							; "Task: "
1151 02ca       |    |		.STRTAB	0x02ca->0x12b6							; " Pc="
1152 02cc       |    |		.STRTAB	0x02cc->0x12b8							; "Id="
1153 02cd       |    |		.STRTAB	0x02cd->0x12b9							; "all"
1154 02ce       |    |		.STRTAB	0x02ce->0x12bb							; " Pri="
1155 02d1       |    |		.STRTAB	0x02d1->0x12bd							; " Action= "
1156 02d8       |    |		.STRTAB	0x02d8->0x12c2							; "Propagate"
1157 02df       |    |		.STRTAB	0x02df->0x12c6							; "Catch"
1158 02e2       |    |		.STRTAB	0x02e2->0x12c9							; "History"
1159 02e7       |    |		.STRTAB	0x02e7->0x12cc							; "Trace"
115a 02ea       |    |		.STRTAB	0x02ea->0x12cf							; " Exc= "
115b 02ee       |    |		.STRTAB	0x02ee->0x12d2							; " Low = "
115c 02f3       |    |		.STRTAB	0x02f3->0x12d5							; " High = "
115d 02f9       |    |		.STRTAB	0x02f9->0x12d9							; " Action="
115e 02ff       |    |		.STRTAB	0x02ff->0x12dd							; "Action buffer overflow"
115f 0313       |    |		.STRTAB	0x0313->0x12e8							; "Aid= "
1160 0316       |    |		.STRTAB	0x0316->0x12eb							; "Control.Inner.Creator"
1161 0329       | )  |		.STRTAB	0x0329->0x12f5							; "Creator: exception:"
1162 033a       | :  |		.STREND 0x033a->0x12ff
1163 4c4f 4341  |LOCA|		.STRTAB_STRINGS
12ff 0000       |    |		.XXX[0x1]
1300 ; --------------------------------------------------------------------------------------
1300 ; Debug Table
1300 ; --------------------------------------------------------------------------------------
1300 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x1293,0x0000,0x0001,0x0000
1306 0000 0000  |    |		.BLANK	0000[0xfa]