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

⟦b2719871f⟧

    Length: 12288 (0x3000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7

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 16a0       |    |		.CONST	0x16a0								; 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 800d       |    |		.CONST	0x800d								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 04e5       |    |		.CONST	0x04e5								; Address of begin
0009 04e8       |    |		.CONST	0x04e8								; Address of exception handler
000a 00ba       |    |		.CONST	0x00ba								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 00c4       |    |		Action	Make_Default
0046 00c4       |    |		Action	Make_Default
0047 00c4       |    |		Action	Make_Default
0048 00c4       |    |		Action	Make_Default
0049 00c4       |    |		Action	Make_Default
004a 00c4       |    |		Action	Make_Default
004b 00c4       |    |		Action	Make_Default
004c 00c4       |    |		Action	Make_Default
004d 00c4       |    |		Action	Make_Default
004e 00c4       |    |		Action	Make_Default
004f 00c4       |    |		Action	Make_Default
0050 00c4       |    |		Action	Make_Default
0051 00c4       |    |		Action	Make_Default
0052 00c4       |    |		Action	Make_Default
0053 00c4       |    |		Action	Make_Default
0054 00c4       |    |		Action	Make_Default
0055 00c4       |    |		Action	Make_Default
0056 00c4       |    |		Action	Make_Default
0057 00c4       |    |		Action	Make_Default
0058 00c4       |    |		Action	Make_Default
0059 00c4       |    |		Action	Make_Default
005a 00c4       |    |		Action	Make_Default
005b 00c4       |    |		Action	Make_Default
005c 00c4       |    |		Action	Make_Default
005d 00c4       |    |		Action	Make_Default
005e 00c4       |    |		Action	Make_Default
005f 00c4       |    |		Action	Make_Default
0060 00c4       |    |		Action	Make_Default
0061 00c4       |    |		Action	Make_Default
0062 00c4       |    |		Action	Make_Default
0063 00c4       |    |		Action	Make_Default
0064 00c4       |    |		Action	Make_Default
0065 00c4       |    |		Action	Make_Default
0066 00c4       |    |		Action	Make_Default
0067 00c4       |    |		Action	Make_Default
0068 00c4       |    |		Action	Make_Default
0069 00c4       |    |		Action	Make_Default
006a 00c4       |    |		Action	Make_Default
006b 00c4       |    |		Action	Make_Default
006c 00c4       |    |		Action	Make_Default
006d 00c4       |    |		Action	Make_Default
006e 00c4       |    |		Action	Make_Default
006f 00c4       |    |		Action	Make_Default
0070 00c4       |    |		Action	Make_Default
0071 00c4       |    |		Action	Make_Default
0072 00c4       |    |		Action	Make_Default
0073 00c4       |    |		Action	Make_Default
0074 00c4       |    |		Action	Make_Default
0075 00c4       |    |		Action	Make_Default
0076 00c4       |    |		Action	Make_Default
0077 00c4       |    |		Action	Make_Default
0078 00c4       |    |		Action	Make_Default
0079 00c4       |    |		Action	Make_Default
007a 00c4       |    |		Action	Make_Default
007b 00c4       |    |		Action	Make_Default
007c 00c4       |    |		Action	Make_Default
007d 00c4       |    |		Action	Make_Default
007e 00c4       |    |		Action	Make_Default
007f 00c4       |    |		Action	Make_Default
0080 00c4       |    |		Action	Make_Default
0081 00c4       |    |		Action	Make_Default
0082 00c4       |    |		Action	Make_Default
0083 00c4       |    |		Action	Make_Default
0084 00c4       |    |		Action	Make_Default
0085 00c4       |    |		Action	Make_Default
0086 00c4       |    |		Action	Make_Default
0087 00c4       |    |		Action	Make_Default
0088 00c4       |    |		Action	Make_Default
0089 00c4       |    |		Action	Make_Default
008a 00c4       |    |		Action	Make_Default
008b 00c4       |    |		Action	Make_Default
008c 00c4       |    |		Action	Make_Default
008d 00c4       |    |		Action	Make_Default
008e 00c4       |    |		Action	Make_Default
008f 00c4       |    |		Action	Make_Default
0090 00c4       |    |		Action	Make_Default
0091 00c4       |    |		Action	Make_Default
0092 00c4       |    |		Action	Make_Default
0093 00c4       |    |		Action	Make_Default
0094 00c4       |    |		Action	Make_Default
0095 00c4       |    |		Action	Make_Default
0096 00c4       |    |		Action	Make_Default
0097 00c4       |    |		Action	Make_Default
0098 00c4       |    |		Action	Make_Default
0099 00c4       |    |		Action	Make_Default
009a 00c4       |    |		Action	Make_Default
009b 00c4       |    |		Action	Make_Default
009c 00c4       |    |		Action	Make_Default
009d 00c4       |    |		Action	Make_Default
009e 00c4       |    |		Action	Make_Default
009f 00c4       |    |		Action	Make_Default
00a0 00c4       |    |		Action	Make_Default
00a1 00c4       |    |		Action	Make_Default
00a2 00c4       |    |		Action	Make_Default
00a3 00c4       |    |		Action	Make_Default
00a4 00c4       |    |		Action	Make_Default
00a5 00c4       |    |		Action	Make_Default
00a6 00c4       |    |		Action	Make_Default
00a7 00c4       |    |		Action	Make_Default
00a8 00c4       |    |		Action	Make_Default
00a9 00c4       |    |		Action	Make_Default
00aa 00c4       |    |		Action	Make_Default
00ab 00c4       |    |		Action	Make_Default
00ac 00c4       |    |		Action	Make_Default
00ad 00c4       |    |		Action	Make_Default
00ae 00c4       |    |		Action	Make_Default
00af 00c4       |    |		Action	Make_Default
00b0 00c4       |    |		Action	Make_Default
00b1 00c4       |    |		Action	Make_Default
00b2 00c4       |    |		Action	Make_Default
00b3 00c4       |    |		Action	Make_Default
00b4 00c4       |    |		Action	Make_Default
00b5 00c4       |    |		Action	Make_Default
00b6 00c4       |    |		Action	Make_Default
00b7 00c4       |    |		Action	Make_Default
00b8 00c4       |    |		Action	Make_Default
00b9 4801       |H   |		Short_Literal	0x1
00ba 4864       |Hd  |		Short_Literal	0x64
00bb 00e9       |    |		Load_Encached	String_Cache
00bc 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
00bd 4801       |H   |		Short_Literal	0x1
00be 4864       |Hd  |		Short_Literal	0x64
00bf 00e9       |    |		Load_Encached	String_Cache
00c0 0334       | 4  |		Declare_Variable	Array,With_Constraint
00c1 4864       |Hd  |		Short_Literal	0x64
00c2 4801       |H   |		Short_Literal	0x1
00c3 4820       |H   |		Short_Literal	0x20
00c4 e2be       |    |		Load	0x1,0xbe
00c5 e2bc       |    |		Load	0x1,0xbc
00c6 01d6       |    |		Execute	Vector,Field_Write
00c7 3ffb       |?   |		Loop_Increasing	0xc3
00c8 e2bb       |    |		Load	0x1,0xbb
00c9 01d4       |    |		Execute	Vector,Structure_Write
00ca c2b1       |    |		Store	0x1,0xb1
00cb 00e2       |    |		Load_Encached	Integer_Cache
00cc 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
00cd c2b2       |    |		Store	0x1,0xb2
00ce 4801       |H   |		Short_Literal	0x1
00cf 4864       |Hd  |		Short_Literal	0x64
00d0 00e9       |    |		Load_Encached	String_Cache
00d1 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
00d2 4801       |H   |		Short_Literal	0x1
00d3 4864       |Hd  |		Short_Literal	0x64
00d4 00e9       |    |		Load_Encached	String_Cache
00d5 0334       | 4  |		Declare_Variable	Array,With_Constraint
00d6 4864       |Hd  |		Short_Literal	0x64
00d7 4801       |H   |		Short_Literal	0x1
00d8 4820       |H   |		Short_Literal	0x20
00d9 e2be       |    |		Load	0x1,0xbe
00da e2bc       |    |		Load	0x1,0xbc
00db 01d6       |    |		Execute	Vector,Field_Write
00dc 3ffb       |?   |		Loop_Increasing	0xd8
00dd e2bb       |    |		Load	0x1,0xbb
00de 01d4       |    |		Execute	Vector,Structure_Write
00df c20d       |    |		Store	0x1,0xd
00e0 00e2       |    |		Load_Encached	Integer_Cache
00e1 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
00e2 c20e       |    |		Store	0x1,0xe
00e3 4801       |H   |		Short_Literal	0x1
00e4 4864       |Hd  |		Short_Literal	0x64
00e5 00e9       |    |		Load_Encached	String_Cache
00e6 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
00e7 4801       |H   |		Short_Literal	0x1
00e8 4864       |Hd  |		Short_Literal	0x64
00e9 00e9       |    |		Load_Encached	String_Cache
00ea 0334       | 4  |		Declare_Variable	Array,With_Constraint
00eb 4864       |Hd  |		Short_Literal	0x64
00ec 4801       |H   |		Short_Literal	0x1
00ed 4820       |H   |		Short_Literal	0x20
00ee e2be       |    |		Load	0x1,0xbe
00ef e2bc       |    |		Load	0x1,0xbc
00f0 01d6       |    |		Execute	Vector,Field_Write
00f1 3ffb       |?   |		Loop_Increasing	0xed
00f2 e2bb       |    |		Load	0x1,0xbb
00f3 01d4       |    |		Execute	Vector,Structure_Write
00f4 c20f       |    |		Store	0x1,0xf
00f5 00e2       |    |		Load_Encached	Integer_Cache
00f6 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
00f7 c210       |    |		Store	0x1,0x10
00f8 4801       |H   |		Short_Literal	0x1
00f9 4864       |Hd  |		Short_Literal	0x64
00fa 00e9       |    |		Load_Encached	String_Cache
00fb 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
00fc 4801       |H   |		Short_Literal	0x1
00fd 4864       |Hd  |		Short_Literal	0x64
00fe 00e9       |    |		Load_Encached	String_Cache
00ff 0334       | 4  |		Declare_Variable	Array,With_Constraint
0100 4864       |Hd  |		Short_Literal	0x64
0101 4801       |H   |		Short_Literal	0x1
0102 4820       |H   |		Short_Literal	0x20
0103 e2be       |    |		Load	0x1,0xbe
0104 e2bc       |    |		Load	0x1,0xbc
0105 01d6       |    |		Execute	Vector,Field_Write
0106 3ffb       |?   |		Loop_Increasing	0x102
0107 e2bb       |    |		Load	0x1,0xbb
0108 01d4       |    |		Execute	Vector,Structure_Write
0109 c211       |    |		Store	0x1,0x11
010a 00e2       |    |		Load_Encached	Integer_Cache
010b 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
010c c212       |    |		Store	0x1,0x12
010d 4801       |H   |		Short_Literal	0x1
010e 4864       |Hd  |		Short_Literal	0x64
010f 00e9       |    |		Load_Encached	String_Cache
0110 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
0111 4801       |H   |		Short_Literal	0x1
0112 4864       |Hd  |		Short_Literal	0x64
0113 00e9       |    |		Load_Encached	String_Cache
0114 0334       | 4  |		Declare_Variable	Array,With_Constraint
0115 4864       |Hd  |		Short_Literal	0x64
0116 4801       |H   |		Short_Literal	0x1
0117 4820       |H   |		Short_Literal	0x20
0118 e2be       |    |		Load	0x1,0xbe
0119 e2bc       |    |		Load	0x1,0xbc
011a 01d6       |    |		Execute	Vector,Field_Write
011b 3ffb       |?   |		Loop_Increasing	0x117
011c e2bb       |    |		Load	0x1,0xbb
011d 01d4       |    |		Execute	Vector,Structure_Write
011e c213       |    |		Store	0x1,0x13
011f 00e2       |    |		Load_Encached	Integer_Cache
0120 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
0121 c214       |    |		Store	0x1,0x14
0122 4801       |H   |		Short_Literal	0x1
0123 4864       |Hd  |		Short_Literal	0x64
0124 00e9       |    |		Load_Encached	String_Cache
0125 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
0126 4801       |H   |		Short_Literal	0x1
0127 4864       |Hd  |		Short_Literal	0x64
0128 00e9       |    |		Load_Encached	String_Cache
0129 0334       | 4  |		Declare_Variable	Array,With_Constraint
012a 4864       |Hd  |		Short_Literal	0x64
012b 4801       |H   |		Short_Literal	0x1
012c 4820       |H   |		Short_Literal	0x20
012d e2be       |    |		Load	0x1,0xbe
012e e2bc       |    |		Load	0x1,0xbc
012f 01d6       |    |		Execute	Vector,Field_Write
0130 3ffb       |?   |		Loop_Increasing	0x12c
0131 e2bb       |    |		Load	0x1,0xbb
0132 01d4       |    |		Execute	Vector,Structure_Write
0133 c215       |    |		Store	0x1,0x15
0134 00e2       |    |		Load_Encached	Integer_Cache
0135 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
0136 c216       |    |		Store	0x1,0x16
0137 4801       |H   |		Short_Literal	0x1
0138 4864       |Hd  |		Short_Literal	0x64
0139 00e9       |    |		Load_Encached	String_Cache
013a 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
013b 4801       |H   |		Short_Literal	0x1
013c 4864       |Hd  |		Short_Literal	0x64
013d 00e9       |    |		Load_Encached	String_Cache
013e 0334       | 4  |		Declare_Variable	Array,With_Constraint
013f 4864       |Hd  |		Short_Literal	0x64
0140 4801       |H   |		Short_Literal	0x1
0141 4820       |H   |		Short_Literal	0x20
0142 e2be       |    |		Load	0x1,0xbe
0143 e2bc       |    |		Load	0x1,0xbc
0144 01d6       |    |		Execute	Vector,Field_Write
0145 3ffb       |?   |		Loop_Increasing	0x141
0146 e2bb       |    |		Load	0x1,0xbb
0147 01d4       |    |		Execute	Vector,Structure_Write
0148 c217       |    |		Store	0x1,0x17
0149 00e2       |    |		Load_Encached	Integer_Cache
014a 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
014b c218       |    |		Store	0x1,0x18
014c 4801       |H   |		Short_Literal	0x1
014d 4864       |Hd  |		Short_Literal	0x64
014e 00e9       |    |		Load_Encached	String_Cache
014f 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
0150 4801       |H   |		Short_Literal	0x1
0151 4864       |Hd  |		Short_Literal	0x64
0152 00e9       |    |		Load_Encached	String_Cache
0153 0334       | 4  |		Declare_Variable	Array,With_Constraint
0154 4864       |Hd  |		Short_Literal	0x64
0155 4801       |H   |		Short_Literal	0x1
0156 4820       |H   |		Short_Literal	0x20
0157 e2be       |    |		Load	0x1,0xbe
0158 e2bc       |    |		Load	0x1,0xbc
0159 01d6       |    |		Execute	Vector,Field_Write
015a 3ffb       |?   |		Loop_Increasing	0x156
015b e2bb       |    |		Load	0x1,0xbb
015c 01d4       |    |		Execute	Vector,Structure_Write
015d c219       |    |		Store	0x1,0x19
015e 00e2       |    |		Load_Encached	Integer_Cache
015f 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
0160 c21a       |    |		Store	0x1,0x1a
0161 00e2       |    |		Load_Encached	Integer_Cache
0162 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
0163 c21b       |    |		Store	0x1,0x1b
0164 00e2       |    |		Load_Encached	Integer_Cache
0165 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
0166 c21c       |    |		Store	0x1,0x1c
0167 4801       |H   |		Short_Literal	0x1
0168 4801       |H   |		Short_Literal	0x1
0169 00e9       |    |		Load_Encached	String_Cache
016a 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
016b 53cc       |S   |		Indirect_Literal	Any,0x538,{0x20202020, 0x20202020}
016c c21d       |    |		Store	0x1,0x1d
016d 4801       |H   |		Short_Literal	0x1
016e 4801       |H   |		Short_Literal	0x1
016f 00e9       |    |		Load_Encached	String_Cache
0170 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
0171 53ca       |S   |		Indirect_Literal	Any,0x53c,{0x20202020, 0x20202020}
0172 c21e       |    |		Store	0x1,0x1e
0173 4801       |H   |		Short_Literal	0x1
0174 4801       |H   |		Short_Literal	0x1
0175 00e9       |    |		Load_Encached	String_Cache
0176 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
0177 53c8       |S   |		Indirect_Literal	Any,0x540,{0x20202020, 0x20202020}
0178 c21f       |    |		Store	0x1,0x1f
0179 4801       |H   |		Short_Literal	0x1
017a 4850       |HP  |		Short_Literal	0x50
017b 00e9       |    |		Load_Encached	String_Cache
017c 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
017d 4801       |H   |		Short_Literal	0x1
017e 4850       |HP  |		Short_Literal	0x50
017f 00e9       |    |		Load_Encached	String_Cache
0180 0334       | 4  |		Declare_Variable	Array,With_Constraint
0181 4850       |HP  |		Short_Literal	0x50
0182 4801       |H   |		Short_Literal	0x1
0183 4820       |H   |		Short_Literal	0x20
0184 e2be       |    |		Load	0x1,0xbe
0185 e2bc       |    |		Load	0x1,0xbc
0186 01d6       |    |		Execute	Vector,Field_Write
0187 3ffb       |?   |		Loop_Increasing	0x183
0188 e2bb       |    |		Load	0x1,0xbb
0189 01d4       |    |		Execute	Vector,Structure_Write
018a c220       |    |		Store	0x1,0x20
018b 4801       |H   |		Short_Literal	0x1
018c 4850       |HP  |		Short_Literal	0x50
018d 00e9       |    |		Load_Encached	String_Cache
018e 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
018f 4801       |H   |		Short_Literal	0x1
0190 4850       |HP  |		Short_Literal	0x50
0191 00e9       |    |		Load_Encached	String_Cache
0192 0334       | 4  |		Declare_Variable	Array,With_Constraint
0193 4850       |HP  |		Short_Literal	0x50
0194 4801       |H   |		Short_Literal	0x1
0195 485f       |H_  |		Short_Literal	0x5f
0196 e2be       |    |		Load	0x1,0xbe
0197 e2bc       |    |		Load	0x1,0xbc
0198 01d6       |    |		Execute	Vector,Field_Write
0199 3ffb       |?   |		Loop_Increasing	0x195
019a e2bb       |    |		Load	0x1,0xbb
019b 01d4       |    |		Execute	Vector,Structure_Write
019c c221       | !  |		Store	0x1,0x21
019d 4800       |H   |		Short_Literal	0x0
019e 4802       |H   |		Short_Literal	0x2
019f 029f 0553  |   S|		Declare_Subprogram	INIT_0550,For_Call
01a1 03fe       |    |		Declare_Type	Discrete,Defined,Visible
01a2 c222       | "  |		Store	0x1,0x22
01a3 e222       | "  |		Load	0x1,0x22
01a4 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
01a5 c223       | #  |		Store	0x1,0x23
01a6 e222       | "  |		Load	0x1,0x22
01a7 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
01a8 c224       | $  |		Store	0x1,0x24
01a9 e222       | "  |		Load	0x1,0x22
01aa 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
01ab c225       | %  |		Store	0x1,0x25
01ac e222       | "  |		Load	0x1,0x22
01ad 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
01ae c226       | &  |		Store	0x1,0x26
01af e222       | "  |		Load	0x1,0x22
01b0 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
01b1 c227       | '  |		Store	0x1,0x27
01b2 e222       | "  |		Load	0x1,0x22
01b3 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
01b4 c228       | (  |		Store	0x1,0x28
01b5 e222       | "  |		Load	0x1,0x22
01b6 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
01b7 c229       | )  |		Store	0x1,0x29
01b8 e222       | "  |		Load	0x1,0x22
01b9 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
01ba c22a       | *  |		Store	0x1,0x2a
01bb e222       | "  |		Load	0x1,0x22
01bc 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
01bd c22b       | +  |		Store	0x1,0x2b
01be e222       | "  |		Load	0x1,0x22
01bf 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
01c0 c22c       | ,  |		Store	0x1,0x2c
01c1 e222       | "  |		Load	0x1,0x22
01c2 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
01c3 c22d       | -  |		Store	0x1,0x2d
01c4 e222       | "  |		Load	0x1,0x22
01c5 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
01c6 c22e       | .  |		Store	0x1,0x2e
01c7 e222       | "  |		Load	0x1,0x22
01c8 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
01c9 c22f       | /  |		Store	0x1,0x2f
01ca e222       | "  |		Load	0x1,0x22
01cb 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
01cc c230       | 0  |		Store	0x1,0x30
01cd 4800       |H   |		Short_Literal	0x0
01ce 6365       |ce  |		Indirect_Literal	Discrete,0x534,{0x00000000, 0x7fffffff}
01cf 00e5       |    |		Load_Encached	Long_Integer_Cache
01d0 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
01d1 c231       | 1  |		Store	0x1,0x31
01d2 4801       |H   |		Short_Literal	0x1
01d3 635c       |c\  |		Indirect_Literal	Discrete,0x530,{0x00000000, 0x001e8480}
01d4 e231       | 1  |		Load	0x1,0x31
01d5 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
01d6 c232       | 2  |		Store	0x1,0x32
01d7 4801       |H   |		Short_Literal	0x1
01d8 4805       |H   |		Short_Literal	0x5
01d9 00e9       |    |		Load_Encached	String_Cache
01da 035c       | \  |		Declare_Type	Array,Constrained,Visible
01db c233       | 3  |		Store	0x1,0x33
01dc 0007       |    |		Action	Break_Optional
01dd 4800       |H   |		Short_Literal	0x0
01de 4802       |H   |		Short_Literal	0x2
01df 029f 056b  |   k|		Declare_Subprogram	INIT_0568,For_Call
01e1 03fe       |    |		Declare_Type	Discrete,Defined,Visible
01e2 c234       | 4  |		Store	0x1,0x34
01e3 4800       |H   |		Short_Literal	0x0
01e4 4802       |H   |		Short_Literal	0x2
01e5 029f 0583  |    |		Declare_Subprogram	INIT_0580,For_Call
01e7 03fe       |    |		Declare_Type	Discrete,Defined,Visible
01e8 c235       | 5  |		Store	0x1,0x35
01e9 4800       |H   |		Short_Literal	0x0
01ea 6341       |cA  |		Indirect_Literal	Discrete,0x52c,{0x00000000, 0x000005f0}
01eb 00e2       |    |		Load_Encached	Integer_Cache
01ec 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
01ed c236       | 6  |		Store	0x1,0x36
01ee 4801       |H   |		Short_Literal	0x1
01ef 4850       |HP  |		Short_Literal	0x50
01f0 e236       | 6  |		Load	0x1,0x36
01f1 02a0       |    |		Declare_Subprogram	Null_Subprogram
01f2 4801       |H   |		Short_Literal	0x1
01f3 035e       | ^  |		Declare_Type	Array,Defined,Visible
01f4 c237       | 7  |		Store	0x1,0x37
01f5 e237       | 7  |		Load	0x1,0x37
01f6 0336       | 6  |		Declare_Variable	Array,Visible
01f7 c238       | 8  |		Store	0x1,0x38
01f8 4801       |H   |		Short_Literal	0x1
01f9 632e       |c.  |		Indirect_Literal	Discrete,0x528,{0x00000000, 0x000005dc}
01fa 00e9       |    |		Load_Encached	String_Cache
01fb 035c       | \  |		Declare_Type	Array,Constrained,Visible
01fc c239       | 9  |		Store	0x1,0x39
01fd e239       | 9  |		Load	0x1,0x39
01fe 0336       | 6  |		Declare_Variable	Array,Visible
01ff 4801       |H   |		Short_Literal	0x1
0200 6327       |c'  |		Indirect_Literal	Discrete,0x528,{0x00000000, 0x000005dc}
0201 00e9       |    |		Load_Encached	String_Cache
0202 0334       | 4  |		Declare_Variable	Array,With_Constraint
0203 6324       |c$  |		Indirect_Literal	Discrete,0x528,{0x00000000, 0x000005dc}
0204 4801       |H   |		Short_Literal	0x1
0205 4820       |H   |		Short_Literal	0x20
0206 e2be       |    |		Load	0x1,0xbe
0207 e2bc       |    |		Load	0x1,0xbc
0208 01d6       |    |		Execute	Vector,Field_Write
0209 3ffb       |?   |		Loop_Increasing	0x205
020a e2bb       |    |		Load	0x1,0xbb
020b 01d4       |    |		Execute	Vector,Structure_Write
020c c23a       | :  |		Store	0x1,0x3a
020d e239       | 9  |		Load	0x1,0x39
020e 0336       | 6  |		Declare_Variable	Array,Visible
020f 4801       |H   |		Short_Literal	0x1
0210 6317       |c   |		Indirect_Literal	Discrete,0x528,{0x00000000, 0x000005dc}
0211 00e9       |    |		Load_Encached	String_Cache
0212 0334       | 4  |		Declare_Variable	Array,With_Constraint
0213 6314       |c   |		Indirect_Literal	Discrete,0x528,{0x00000000, 0x000005dc}
0214 4801       |H   |		Short_Literal	0x1
0215 4820       |H   |		Short_Literal	0x20
0216 e2be       |    |		Load	0x1,0xbe
0217 e2bc       |    |		Load	0x1,0xbc
0218 01d6       |    |		Execute	Vector,Field_Write
0219 3ffb       |?   |		Loop_Increasing	0x215
021a e2bb       |    |		Load	0x1,0xbb
021b 01d4       |    |		Execute	Vector,Structure_Write
021c c23b       | ;  |		Store	0x1,0x3b
021d 00e2       |    |		Load_Encached	Integer_Cache
021e 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
021f c23c       | <  |		Store	0x1,0x3c
0220 00e2       |    |		Load_Encached	Integer_Cache
0221 e234       | 4  |		Load	0x1,0x34
0222 e235       | 5  |		Load	0x1,0x35
0223 00e2       |    |		Load_Encached	Integer_Cache
0224 00e2       |    |		Load_Encached	Integer_Cache
0225 e237       | 7  |		Load	0x1,0x37
0226 e239       | 9  |		Load	0x1,0x39
0227 00e2       |    |		Load_Encached	Integer_Cache
0228 00e2       |    |		Load_Encached	Integer_Cache
0229 029f 059b  |    |		Declare_Subprogram	INIT_0598,For_Call
022b 4809       |H   |		Short_Literal	0x9
022c 032e       | .  |		Declare_Type	Record,Defined,Visible
022d c23d       | =  |		Store	0x1,0x3d
022e 0007       |    |		Action	Break_Optional
022f 0007       |    |		Action	Break_Optional
0230 00e2       |    |		Load_Encached	Integer_Cache
0231 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
0232 c23e       | >  |		Store	0x1,0x3e
0233 00e2       |    |		Load_Encached	Integer_Cache
0234 0465       | e  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x65
0235 c23f       | ?  |		Store	0x1,0x3f
0236 00e2       |    |		Load_Encached	Integer_Cache
0237 0466       | f  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x66
0238 c240       | @  |		Store	0x1,0x40
0239 00e2       |    |		Load_Encached	Integer_Cache
023a 0467       | g  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x67
023b c241       | A  |		Store	0x1,0x41
023c 00e2       |    |		Load_Encached	Integer_Cache
023d 0468       | h  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x68
023e c242       | B  |		Store	0x1,0x42
023f 00e2       |    |		Load_Encached	Integer_Cache
0240 0469       | i  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x69
0241 c243       | C  |		Store	0x1,0x43
0242 00e2       |    |		Load_Encached	Integer_Cache
0243 046a       | j  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x6a
0244 c244       | D  |		Store	0x1,0x44
0245 00e2       |    |		Load_Encached	Integer_Cache
0246 046b       | k  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x6b
0247 c245       | E  |		Store	0x1,0x45
0248 00e2       |    |		Load_Encached	Integer_Cache
0249 046c       | l  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x6c
024a c246       | F  |		Store	0x1,0x46
024b 00e2       |    |		Load_Encached	Integer_Cache
024c 046d       | m  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x6d
024d c247       | G  |		Store	0x1,0x47
024e 00e2       |    |		Load_Encached	Integer_Cache
024f 046e       | n  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x6e
0250 c248       | H  |		Store	0x1,0x48
0251 00e2       |    |		Load_Encached	Integer_Cache
0252 0129       | )  |		Execute	Any,Make_Visible
0253 c249       | I  |		Store	0x1,0x49
0254 00e2       |    |		Load_Encached	Integer_Cache
0255 0129       | )  |		Execute	Any,Make_Visible
0256 c24a       | J  |		Store	0x1,0x4a
0257 00e2       |    |		Load_Encached	Integer_Cache
0258 0129       | )  |		Execute	Any,Make_Visible
0259 c24b       | K  |		Store	0x1,0x4b
025a e222       | "  |		Load	0x1,0x22
025b 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
025c c24c       | L  |		Store	0x1,0x4c
025d e222       | "  |		Load	0x1,0x22
025e 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
025f c24d       | M  |		Store	0x1,0x4d
0260 00e2       |    |		Load_Encached	Integer_Cache
0261 0129       | )  |		Execute	Any,Make_Visible
0262 c24e       | N  |		Store	0x1,0x4e
0263 4801       |H   |		Short_Literal	0x1
0264 4850       |HP  |		Short_Literal	0x50
0265 00e9       |    |		Load_Encached	String_Cache
0266 035c       | \  |		Declare_Type	Array,Constrained,Visible
0267 c24f       | O  |		Store	0x1,0x4f
0268 0007       |    |		Action	Break_Optional
0269 e249       | I  |		Load	0x1,0x49
026a e24a       | J  |		Load	0x1,0x4a
026b e222       | "  |		Load	0x1,0x22
026c e222       | "  |		Load	0x1,0x22
026d e24e       | N  |		Load	0x1,0x4e
026e e222       | "  |		Load	0x1,0x22
026f e24f       | O  |		Load	0x1,0x4f
0270 e24b       | K  |		Load	0x1,0x4b
0271 029f 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Call
0273 4808       |H   |		Short_Literal	0x8
0274 032e       | .  |		Declare_Type	Record,Defined,Visible
0275 c2b4       |    |		Store	0x1,0xb4
0276 00e2       |    |		Load_Encached	Integer_Cache
0277 046e       | n  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x6e
0278 c251       | Q  |		Store	0x1,0x51
0279 00e2       |    |		Load_Encached	Integer_Cache
027a 0464       | d  |		Execute_Immediate	Set_Value_Visible_Unchecked,0x64
027b c252       | R  |		Store	0x1,0x52
027c e2b4       |    |		Load	0x1,0xb4
027d 0321       | !  |		Declare_Variable	Record,Visible
027e 00d8       |    |		Load_Top	At_Offset_0
027f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0280 c253       | S  |		Store	0x1,0x53
0281 4801       |H   |		Short_Literal	0x1
0282 486e       |Hn  |		Short_Literal	0x6e
0283 e2b4       |    |		Load	0x1,0xb4
0284 029f 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Call
0286 4801       |H   |		Short_Literal	0x1
0287 035e       | ^  |		Declare_Type	Array,Defined,Visible
0288 c254       | T  |		Store	0x1,0x54
0289 0007       |    |		Action	Break_Optional
028a 00e2       |    |		Load_Encached	Integer_Cache
028b 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
028c c255       | U  |		Store	0x1,0x55
028d 00e2       |    |		Load_Encached	Integer_Cache
028e 0402       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x2
028f c256       | V  |		Store	0x1,0x56
0290 00e2       |    |		Load_Encached	Integer_Cache
0291 0403       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x3
0292 c257       | W  |		Store	0x1,0x57
0293 00e2       |    |		Load_Encached	Integer_Cache
0294 0404       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x4
0295 c258       | X  |		Store	0x1,0x58
0296 00e2       |    |		Load_Encached	Integer_Cache
0297 0405       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x5
0298 c259       | Y  |		Store	0x1,0x59
0299 00e2       |    |		Load_Encached	Integer_Cache
029a 0406       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x6
029b c25a       | Z  |		Store	0x1,0x5a
029c 00e2       |    |		Load_Encached	Integer_Cache
029d 0407       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x7
029e c25b       | [  |		Store	0x1,0x5b
029f 00e2       |    |		Load_Encached	Integer_Cache
02a0 0408       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x8
02a1 c25c       | \  |		Store	0x1,0x5c
02a2 00e2       |    |		Load_Encached	Integer_Cache
02a3 0409       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x9
02a4 c25d       | ]  |		Store	0x1,0x5d
02a5 00e2       |    |		Load_Encached	Integer_Cache
02a6 040a       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0xa
02a7 c25e       | ^  |		Store	0x1,0x5e
02a8 e254       | T  |		Load	0x1,0x54
02a9 0336       | 6  |		Declare_Variable	Array,Visible
02aa 00d8       |    |		Load_Top	At_Offset_0
02ab 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02ac c25f       | _  |		Store	0x1,0x5f
02ad 00e2       |    |		Load_Encached	Integer_Cache
02ae 040a       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0xa
02af c260       | `  |		Store	0x1,0x60
02b0 e2b4       |    |		Load	0x1,0xb4
02b1 0321       | !  |		Declare_Variable	Record,Visible
02b2 00d8       |    |		Load_Top	At_Offset_0
02b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b4 c261       | a  |		Store	0x1,0x61
02b5 4801       |H   |		Short_Literal	0x1
02b6 480a       |H   |		Short_Literal	0xa
02b7 e2b4       |    |		Load	0x1,0xb4
02b8 029f 0613  |    |		Declare_Subprogram	INIT_0610,For_Call
02ba 4801       |H   |		Short_Literal	0x1
02bb 035e       | ^  |		Declare_Type	Array,Defined,Visible
02bc c262       | b  |		Store	0x1,0x62
02bd 0007       |    |		Action	Break_Optional
02be 00e2       |    |		Load_Encached	Integer_Cache
02bf 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
02c0 c263       | c  |		Store	0x1,0x63
02c1 4801       |H   |		Short_Literal	0x1
02c2 4814       |H   |		Short_Literal	0x14
02c3 00e9       |    |		Load_Encached	String_Cache
02c4 035c       | \  |		Declare_Type	Array,Constrained,Visible
02c5 00e2       |    |		Load_Encached	Integer_Cache
02c6 e222       | "  |		Load	0x1,0x22
02c7 e222       | "  |		Load	0x1,0x22
02c8 e222       | "  |		Load	0x1,0x22
02c9 e222       | "  |		Load	0x1,0x22
02ca 029f 062b  |   +|		Declare_Subprogram	INIT_0628,For_Call
02cc 4806       |H   |		Short_Literal	0x6
02cd 032e       | .  |		Declare_Type	Record,Defined,Visible
02ce c264       | d  |		Store	0x1,0x64
02cf e23d       | =  |		Load	0x1,0x3d
02d0 0321       | !  |		Declare_Variable	Record,Visible
02d1 00d8       |    |		Load_Top	At_Offset_0
02d2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d3 c265       | e  |		Store	0x1,0x65
02d4 00e3       |    |		Load_Encached	Natural_Cache
02d5 03ea       |    |		Declare_Variable	Discrete,Visible
02d6 c266       | f  |		Store	0x1,0x66
02d7 4801       |H   |		Short_Literal	0x1
02d8 4801       |H   |		Short_Literal	0x1
02d9 00e9       |    |		Load_Encached	String_Cache
02da 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
02db c267       | g  |		Store	0x1,0x67
02dc 4801       |H   |		Short_Literal	0x1
02dd 4802       |H   |		Short_Literal	0x2
02de 00e9       |    |		Load_Encached	String_Cache
02df 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
02e0 c268       | h  |		Store	0x1,0x68
02e1 4801       |H   |		Short_Literal	0x1
02e2 4805       |H   |		Short_Literal	0x5
02e3 00e9       |    |		Load_Encached	String_Cache
02e4 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
02e5 c269       | i  |		Store	0x1,0x69
02e6 4801       |H   |		Short_Literal	0x1
02e7 480a       |H   |		Short_Literal	0xa
02e8 00e9       |    |		Load_Encached	String_Cache
02e9 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
02ea c26a       | j  |		Store	0x1,0x6a
02eb 4801       |H   |		Short_Literal	0x1
02ec 4846       |HF  |		Short_Literal	0x46
02ed 00e9       |    |		Load_Encached	String_Cache
02ee 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
02ef c26b       | k  |		Store	0x1,0x6b
02f0 4801       |H   |		Short_Literal	0x1
02f1 4850       |HP  |		Short_Literal	0x50
02f2 00e9       |    |		Load_Encached	String_Cache
02f3 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
02f4 c26c       | l  |		Store	0x1,0x6c
02f5 4801       |H   |		Short_Literal	0x1
02f6 4801       |H   |		Short_Literal	0x1
02f7 00e9       |    |		Load_Encached	String_Cache
02f8 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
02f9 4801       |H   |		Short_Literal	0x1
02fa 4801       |H   |		Short_Literal	0x1
02fb 00e9       |    |		Load_Encached	String_Cache
02fc 0334       | 4  |		Declare_Variable	Array,With_Constraint
02fd 4820       |H   |		Short_Literal	0x20
02fe 4801       |H   |		Short_Literal	0x1
02ff e2bc       |    |		Load	0x1,0xbc
0300 01d6       |    |		Execute	Vector,Field_Write
0301 e2bb       |    |		Load	0x1,0xbb
0302 01d4       |    |		Execute	Vector,Structure_Write
0303 c26d       | m  |		Store	0x1,0x6d
0304 4801       |H   |		Short_Literal	0x1
0305 4802       |H   |		Short_Literal	0x2
0306 00e9       |    |		Load_Encached	String_Cache
0307 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
0308 4801       |H   |		Short_Literal	0x1
0309 4802       |H   |		Short_Literal	0x2
030a 00e9       |    |		Load_Encached	String_Cache
030b 0334       | 4  |		Declare_Variable	Array,With_Constraint
030c 4820       |H   |		Short_Literal	0x20
030d 4801       |H   |		Short_Literal	0x1
030e e2bc       |    |		Load	0x1,0xbc
030f 01d6       |    |		Execute	Vector,Field_Write
0310 4820       |H   |		Short_Literal	0x20
0311 4802       |H   |		Short_Literal	0x2
0312 e2bc       |    |		Load	0x1,0xbc
0313 01d6       |    |		Execute	Vector,Field_Write
0314 e2bb       |    |		Load	0x1,0xbb
0315 01d4       |    |		Execute	Vector,Structure_Write
0316 c26e       | n  |		Store	0x1,0x6e
0317 4801       |H   |		Short_Literal	0x1
0318 4805       |H   |		Short_Literal	0x5
0319 00e9       |    |		Load_Encached	String_Cache
031a 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
031b 4801       |H   |		Short_Literal	0x1
031c 4805       |H   |		Short_Literal	0x5
031d 00e9       |    |		Load_Encached	String_Cache
031e 0334       | 4  |		Declare_Variable	Array,With_Constraint
031f 4805       |H   |		Short_Literal	0x5
0320 4801       |H   |		Short_Literal	0x1
0321 4820       |H   |		Short_Literal	0x20
0322 e2be       |    |		Load	0x1,0xbe
0323 e2bc       |    |		Load	0x1,0xbc
0324 01d6       |    |		Execute	Vector,Field_Write
0325 3ffb       |?   |		Loop_Increasing	0x321
0326 e2bb       |    |		Load	0x1,0xbb
0327 01d4       |    |		Execute	Vector,Structure_Write
0328 c26f       | o  |		Store	0x1,0x6f
0329 4801       |H   |		Short_Literal	0x1
032a 480a       |H   |		Short_Literal	0xa
032b 00e9       |    |		Load_Encached	String_Cache
032c 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
032d 4801       |H   |		Short_Literal	0x1
032e 480a       |H   |		Short_Literal	0xa
032f 00e9       |    |		Load_Encached	String_Cache
0330 0334       | 4  |		Declare_Variable	Array,With_Constraint
0331 480a       |H   |		Short_Literal	0xa
0332 4801       |H   |		Short_Literal	0x1
0333 4820       |H   |		Short_Literal	0x20
0334 e2be       |    |		Load	0x1,0xbe
0335 e2bc       |    |		Load	0x1,0xbc
0336 01d6       |    |		Execute	Vector,Field_Write
0337 3ffb       |?   |		Loop_Increasing	0x333
0338 e2bb       |    |		Load	0x1,0xbb
0339 01d4       |    |		Execute	Vector,Structure_Write
033a c270       | p  |		Store	0x1,0x70
033b 4801       |H   |		Short_Literal	0x1
033c 4846       |HF  |		Short_Literal	0x46
033d 00e9       |    |		Load_Encached	String_Cache
033e 0333       | 3  |		Declare_Variable	Array,Visible,With_Constraint
033f 4801       |H   |		Short_Literal	0x1
0340 4846       |HF  |		Short_Literal	0x46
0341 00e9       |    |		Load_Encached	String_Cache
0342 0334       | 4  |		Declare_Variable	Array,With_Constraint
0343 4846       |HF  |		Short_Literal	0x46
0344 4801       |H   |		Short_Literal	0x1
0345 4820       |H   |		Short_Literal	0x20
0346 e2be       |    |		Load	0x1,0xbe
0347 e2bc       |    |		Load	0x1,0xbc
0348 01d6       |    |		Execute	Vector,Field_Write
0349 3ffb       |?   |		Loop_Increasing	0x345
034a e2bb       |    |		Load	0x1,0xbb
034b 01d4       |    |		Execute	Vector,Structure_Write
034c c271       | q  |		Store	0x1,0x71
034d 00e2       |    |		Load_Encached	Integer_Cache
034e 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
034f c272       | r  |		Store	0x1,0x72
0350 61d3       |a   |		Indirect_Literal	Discrete,0x524,{0x00000000, 0x00020000}
0351 00e7       |    |		Load_Encached	Duration_Cache
0352 03f0       |    |		Declare_Variable	Discrete,Visible,With_Value
0353 c273       | s  |		Store	0x1,0x73
0354 00e3       |    |		Load_Encached	Natural_Cache
0355 03ea       |    |		Declare_Variable	Discrete,Visible
0356 c274       | t  |		Store	0x1,0x74
0357 0007       |    |		Action	Break_Optional
0358 e001       |    |		Load	0x0,0x1
0359 e002       |    |		Load	0x0,0x2
035a e23d       | =  |		Load	0x1,0x3d
035b e003       |    |		Load	0x0,0x3
035c 0386       |    |		Declare_Variable	Package,Visible
035d 00d8       |    |		Load_Top	At_Offset_0
035e 020f       |    |		Execute	Module,Activate
035f c275       | u  |		Store	0x1,0x75
0360 00e2       |    |		Load_Encached	Integer_Cache
0361 e262       | b  |		Load	0x1,0x62
0362 029f 065b  |   [|		Declare_Subprogram	INIT_0658,For_Call
0364 4802       |H   |		Short_Literal	0x2
0365 032e       | .  |		Declare_Type	Record,Defined,Visible
0366 c276       | v  |		Store	0x1,0x76
0367 00e2       |    |		Load_Encached	Integer_Cache
0368 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
0369 c277       | w  |		Store	0x1,0x77
036a e276       | v  |		Load	0x1,0x76
036b 0321       | !  |		Declare_Variable	Record,Visible
036c 00d8       |    |		Load_Top	At_Offset_0
036d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
036e c278       | x  |		Store	0x1,0x78
036f e276       | v  |		Load	0x1,0x76
0370 0321       | !  |		Declare_Variable	Record,Visible
0371 00d8       |    |		Load_Top	At_Offset_0
0372 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0373 c279       | y  |		Store	0x1,0x79
0374 e004       |    |		Load	0x0,0x4
0375 e005       |    |		Load	0x0,0x5
0376 e276       | v  |		Load	0x1,0x76
0377 e003       |    |		Load	0x0,0x3
0378 0386       |    |		Declare_Variable	Package,Visible
0379 00d8       |    |		Load_Top	At_Offset_0
037a 020f       |    |		Execute	Module,Activate
037b c27a       | z  |		Store	0x1,0x7a
037c e27a       | z  |		Load	0x1,0x7a
037d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
037e 0129       | )  |		Execute	Any,Make_Visible
037f c27b       | {  |		Store	0x1,0x7b
0380 e27a       | z  |		Load	0x1,0x7a
0381 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0382 039e       |    |		Declare_Variable	Heap_Access,Visible
0383 c27c       | |  |		Store	0x1,0x7c
0384 e006       |    |		Load	0x0,0x6
0385 e007       |    |		Load	0x0,0x7
0386 00e7       |    |		Load_Encached	Duration_Cache
0387 e008       |    |		Load	0x0,0x8
0388 1b52       | R  |		Execute	Package,Field_Read,Field_Number 0x52
0389 0386       |    |		Declare_Variable	Package,Visible
038a 00d8       |    |		Load_Top	At_Offset_0
038b 020f       |    |		Execute	Module,Activate
038c c27d       | }  |		Store	0x1,0x7d
038d e008       |    |		Load	0x0,0x8
038e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
038f 02c6       |    |		Declare_Variable	Any,Visible
0390 00d8       |    |		Load_Top	At_Offset_0
0391 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0392 c27e       | ~  |		Store	0x1,0x7e
0393 e275       | u  |		Load	0x1,0x75
0394 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0395 0400       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x0
0396 c27f       |    |		Store	0x1,0x7f
0397 e275       | u  |		Load	0x1,0x75
0398 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0399 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
039a c280       |    |		Store	0x1,0x80
039b e275       | u  |		Load	0x1,0x75
039c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
039d 0402       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x2
039e c281       |    |		Store	0x1,0x81
039f e233       | 3  |		Load	0x1,0x33
03a0 0336       | 6  |		Declare_Variable	Array,Visible
03a1 51a2       |Q   |		Indirect_Literal	Any,0x544,{0x626c616e, 0x6b202020}
03a2 c282       |    |		Store	0x1,0x82
03a3 e233       | 3  |		Load	0x1,0x33
03a4 0336       | 6  |		Declare_Variable	Array,Visible
03a5 51a2       |Q   |		Indirect_Literal	Any,0x548,{0x626c616e, 0x6b202020}
03a6 c283       |    |		Store	0x1,0x83
03a7 e275       | u  |		Load	0x1,0x75
03a8 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03a9 0129       | )  |		Execute	Any,Make_Visible
03aa c284       |    |		Store	0x1,0x84
03ab e275       | u  |		Load	0x1,0x75
03ac 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03ad 03ea       |    |		Declare_Variable	Discrete,Visible
03ae c285       |    |		Store	0x1,0x85
03af 0007       |    |		Action	Break_Optional
03b0 4801       |H   |		Short_Literal	0x1
03b1 4828       |H(  |		Short_Literal	0x28
03b2 00e9       |    |		Load_Encached	String_Cache
03b3 035c       | \  |		Declare_Type	Array,Constrained,Visible
03b4 c286       |    |		Store	0x1,0x86
03b5 4801       |H   |		Short_Literal	0x1
03b6 4850       |HP  |		Short_Literal	0x50
03b7 00e9       |    |		Load_Encached	String_Cache
03b8 035c       | \  |		Declare_Type	Array,Constrained,Visible
03b9 c287       |    |		Store	0x1,0x87
03ba 00e2       |    |		Load_Encached	Integer_Cache
03bb 4801       |H   |		Short_Literal	0x1
03bc 4850       |HP  |		Short_Literal	0x50
03bd 00e9       |    |		Load_Encached	String_Cache
03be 035c       | \  |		Declare_Type	Array,Constrained,Visible
03bf 00e2       |    |		Load_Encached	Integer_Cache
03c0 00e2       |    |		Load_Encached	Integer_Cache
03c1 e286       |    |		Load	0x1,0x86
03c2 00e2       |    |		Load_Encached	Integer_Cache
03c3 00e1       |    |		Load_Encached	Boolean_Cache
03c4 00e2       |    |		Load_Encached	Integer_Cache
03c5 00e2       |    |		Load_Encached	Integer_Cache
03c6 00e2       |    |		Load_Encached	Integer_Cache
03c7 00e1       |    |		Load_Encached	Boolean_Cache
03c8 4801       |H   |		Short_Literal	0x1
03c9 4802       |H   |		Short_Literal	0x2
03ca 00e9       |    |		Load_Encached	String_Cache
03cb 035c       | \  |		Declare_Type	Array,Constrained,Visible
03cc 00e2       |    |		Load_Encached	Integer_Cache
03cd 00e2       |    |		Load_Encached	Integer_Cache
03ce 00e2       |    |		Load_Encached	Integer_Cache
03cf 00e2       |    |		Load_Encached	Integer_Cache
03d0 00e2       |    |		Load_Encached	Integer_Cache
03d1 00e2       |    |		Load_Encached	Integer_Cache
03d2 00e2       |    |		Load_Encached	Integer_Cache
03d3 00e2       |    |		Load_Encached	Integer_Cache
03d4 4801       |H   |		Short_Literal	0x1
03d5 4850       |HP  |		Short_Literal	0x50
03d6 00e9       |    |		Load_Encached	String_Cache
03d7 035c       | \  |		Declare_Type	Array,Constrained,Visible
03d8 00e2       |    |		Load_Encached	Integer_Cache
03d9 00e2       |    |		Load_Encached	Integer_Cache
03da 4801       |H   |		Short_Literal	0x1
03db 4850       |HP  |		Short_Literal	0x50
03dc 00e9       |    |		Load_Encached	String_Cache
03dd 035c       | \  |		Declare_Type	Array,Constrained,Visible
03de 00e2       |    |		Load_Encached	Integer_Cache
03df 00e2       |    |		Load_Encached	Integer_Cache
03e0 4801       |H   |		Short_Literal	0x1
03e1 4850       |HP  |		Short_Literal	0x50
03e2 00e9       |    |		Load_Encached	String_Cache
03e3 035c       | \  |		Declare_Type	Array,Constrained,Visible
03e4 00e2       |    |		Load_Encached	Integer_Cache
03e5 00e2       |    |		Load_Encached	Integer_Cache
03e6 4801       |H   |		Short_Literal	0x1
03e7 4850       |HP  |		Short_Literal	0x50
03e8 00e9       |    |		Load_Encached	String_Cache
03e9 035c       | \  |		Declare_Type	Array,Constrained,Visible
03ea 00e2       |    |		Load_Encached	Integer_Cache
03eb 00e2       |    |		Load_Encached	Integer_Cache
03ec 4801       |H   |		Short_Literal	0x1
03ed 4850       |HP  |		Short_Literal	0x50
03ee 00e9       |    |		Load_Encached	String_Cache
03ef 035c       | \  |		Declare_Type	Array,Constrained,Visible
03f0 00e2       |    |		Load_Encached	Integer_Cache
03f1 e275       | u  |		Load	0x1,0x75
03f2 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03f3 4801       |H   |		Short_Literal	0x1
03f4 4805       |H   |		Short_Literal	0x5
03f5 00e9       |    |		Load_Encached	String_Cache
03f6 035c       | \  |		Declare_Type	Array,Constrained,Visible
03f7 e23d       | =  |		Load	0x1,0x3d
03f8 00e2       |    |		Load_Encached	Integer_Cache
03f9 00e2       |    |		Load_Encached	Integer_Cache
03fa 029f 0673  |   s|		Declare_Subprogram	INIT_0670,For_Call
03fc 4827       |H'  |		Short_Literal	0x27
03fd 032e       | .  |		Declare_Type	Record,Defined,Visible
03fe c2b3       |    |		Store	0x1,0xb3
03ff e2b3       |    |		Load	0x1,0xb3
0400 0321       | !  |		Declare_Variable	Record,Visible
0401 00d8       |    |		Load_Top	At_Offset_0
0402 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0403 c289       |    |		Store	0x1,0x89
0404 00e2       |    |		Load_Encached	Integer_Cache
0405 0415       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x15
0406 c28a       |    |		Store	0x1,0x8a
0407 0007       |    |		Action	Break_Optional
0408 00e2       |    |		Load_Encached	Integer_Cache
0409 0410       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x10
040a c2b5       |    |		Store	0x1,0xb5
040b 4801       |H   |		Short_Literal	0x1
040c 4810       |H   |		Short_Literal	0x10
040d e254       | T  |		Load	0x1,0x54
040e 029f 074b  |   K|		Declare_Subprogram	INIT_0748,For_Call
0410 4801       |H   |		Short_Literal	0x1
0411 035e       | ^  |		Declare_Type	Array,Defined,Visible
0412 c2b6       |    |		Store	0x1,0xb6
0413 e2b6       |    |		Load	0x1,0xb6
0414 0336       | 6  |		Declare_Variable	Array,Visible
0415 00d8       |    |		Load_Top	At_Offset_0
0416 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0417 c28d       |    |		Store	0x1,0x8d
0418 49f4       |I   |		Short_Literal	0x1f4
0419 00e2       |    |		Load_Encached	Integer_Cache
041a 03f0       |    |		Declare_Variable	Discrete,Visible,With_Value
041b c28e       |    |		Store	0x1,0x8e
041c 4801       |H   |		Short_Literal	0x1
041d 49f4       |I   |		Short_Literal	0x1f4
041e e262       | b  |		Load	0x1,0x62
041f 029f 0763  |   c|		Declare_Subprogram	INIT_0760,For_Call
0421 4801       |H   |		Short_Literal	0x1
0422 035e       | ^  |		Declare_Type	Array,Defined,Visible
0423 c28f       |    |		Store	0x1,0x8f
0424 e28f       |    |		Load	0x1,0x8f
0425 0336       | 6  |		Declare_Variable	Array,Visible
0426 00d8       |    |		Load_Top	At_Offset_0
0427 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0428 c290       |    |		Store	0x1,0x90
0429 4990       |I   |		Short_Literal	0x190
042a 00e2       |    |		Load_Encached	Integer_Cache
042b 03f0       |    |		Declare_Variable	Discrete,Visible,With_Value
042c c2b7       |    |		Store	0x1,0xb7
042d 4801       |H   |		Short_Literal	0x1
042e 4990       |I   |		Short_Literal	0x190
042f e264       | d  |		Load	0x1,0x64
0430 029f 077b  |   {|		Declare_Subprogram	INIT_0778,For_Call
0432 4801       |H   |		Short_Literal	0x1
0433 035e       | ^  |		Declare_Type	Array,Defined,Visible
0434 c2b8       |    |		Store	0x1,0xb8
0435 e2b8       |    |		Load	0x1,0xb8
0436 0336       | 6  |		Declare_Variable	Array,Visible
0437 00d8       |    |		Load_Top	At_Offset_0
0438 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0439 c293       |    |		Store	0x1,0x93
043a 00e2       |    |		Load_Encached	Integer_Cache
043b 040c       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0xc
043c c2b9       |    |		Store	0x1,0xb9
043d 4801       |H   |		Short_Literal	0x1
043e 480c       |H   |		Short_Literal	0xc
043f e2b3       |    |		Load	0x1,0xb3
0440 029f 0793  |    |		Declare_Subprogram	INIT_0790,For_Call
0442 4801       |H   |		Short_Literal	0x1
0443 035e       | ^  |		Declare_Type	Array,Defined,Visible
0444 c2ba       |    |		Store	0x1,0xba
0445 00d8       |    |		Load_Top	At_Offset_0
0446 0336       | 6  |		Declare_Variable	Array,Visible
0447 00d8       |    |		Load_Top	At_Offset_0
0448 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0449 c296       |    |		Store	0x1,0x96
044a 0007       |    |		Action	Break_Optional
044b 029a 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Outer_Call,Visible,Unelaborated
044d c297       |    |		Store	0x1,0x97
044e 029a 07cb  |    |		Declare_Subprogram	INIT_07c8,For_Outer_Call,Visible,Unelaborated
0450 c298       |    |		Store	0x1,0x98
0451 029a 07e3  |    |		Declare_Subprogram	INIT_07e0,For_Outer_Call,Visible,Unelaborated
0453 c299       |    |		Store	0x1,0x99
0454 029a 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Outer_Call,Visible,Unelaborated
0456 c29a       |    |		Store	0x1,0x9a
0457 029a 0833  |   3|		Declare_Subprogram	INIT_0830,For_Outer_Call,Visible,Unelaborated
0459 c29b       |    |		Store	0x1,0x9b
045a 029a 0883  |    |		Declare_Subprogram	INIT_0880,For_Outer_Call,Visible,Unelaborated
045c c29c       |    |		Store	0x1,0x9c
045d 029a 088b  |    |		Declare_Subprogram	INIT_0888,For_Outer_Call,Visible,Unelaborated
045f c29d       |    |		Store	0x1,0x9d
0460 029a 08a3  |    |		Declare_Subprogram	INIT_08a0,For_Outer_Call,Visible,Unelaborated
0462 c29e       |    |		Store	0x1,0x9e
0463 029a 08ab  |    |		Declare_Subprogram	INIT_08a8,For_Outer_Call,Visible,Unelaborated
0465 c29f       |    |		Store	0x1,0x9f
0466 029a 08d3  |    |		Declare_Subprogram	INIT_08d0,For_Outer_Call,Visible,Unelaborated
0468 c2a0       |    |		Store	0x1,0xa0
0469 0007       |    |		Action	Break_Optional
046a 029a 091b  |    |		Declare_Subprogram	INIT_0918,For_Outer_Call,Visible,Unelaborated
046c c2a1       |    |		Store	0x1,0xa1
046d 029a 0923  |   #|		Declare_Subprogram	INIT_0920,For_Outer_Call,Visible,Unelaborated
046f c2a2       |    |		Store	0x1,0xa2
0470 029a 092b  |   +|		Declare_Subprogram	INIT_0928,For_Outer_Call,Visible,Unelaborated
0472 c2a3       |    |		Store	0x1,0xa3
0473 029a 0933  |   3|		Declare_Subprogram	INIT_0930,For_Outer_Call,Visible,Unelaborated
0475 c2a4       |    |		Store	0x1,0xa4
0476 029a 094b  |   K|		Declare_Subprogram	INIT_0948,For_Outer_Call,Visible,Unelaborated
0478 c2a5       |    |		Store	0x1,0xa5
0479 029a 0953  |   S|		Declare_Subprogram	INIT_0950,For_Outer_Call,Visible,Unelaborated
047b c2a6       |    |		Store	0x1,0xa6
047c 029a 095b  |   [|		Declare_Subprogram	INIT_0958,For_Outer_Call,Visible,Unelaborated
047e c2a7       |    |		Store	0x1,0xa7
047f 029a 096b  |   k|		Declare_Subprogram	INIT_0968,For_Outer_Call,Visible,Unelaborated
0481 c2a8       |    |		Store	0x1,0xa8
0482 029a 0a03  |    |		Declare_Subprogram	INIT_0a00,For_Outer_Call,Visible,Unelaborated
0484 c2a9       |    |		Store	0x1,0xa9
0485 029a 0a43  |   C|		Declare_Subprogram	INIT_0a40,For_Outer_Call,Visible,Unelaborated
0487 c2aa       |    |		Store	0x1,0xaa
0488 0007       |    |		Action	Break_Optional
0489 029a 0a53  |   S|		Declare_Subprogram	INIT_0a50,For_Outer_Call,Visible,Unelaborated
048b c2ab       |    |		Store	0x1,0xab
048c 029a 0a63  |   c|		Declare_Subprogram	INIT_0a60,For_Outer_Call,Visible,Unelaborated
048e c2ac       |    |		Store	0x1,0xac
048f 029a 0a6b  |   k|		Declare_Subprogram	INIT_0a68,For_Outer_Call,Visible,Unelaborated
0491 c2ad       |    |		Store	0x1,0xad
0492 029a 0a93  |    |		Declare_Subprogram	INIT_0a90,For_Outer_Call,Visible,Unelaborated
0494 c2ae       |    |		Store	0x1,0xae
0495 029a 0a9b  |    |		Declare_Subprogram	INIT_0a98,For_Outer_Call,Visible,Unelaborated
0497 c2af       |    |		Store	0x1,0xaf
0498 029a 0abb  |    |		Declare_Subprogram	INIT_0ab8,For_Outer_Call,Visible,Unelaborated
049a c2b0       |    |		Store	0x1,0xb0
049b 00bf       |    |		Action	Accept_Activation
049c 1d97       |    |		Execute_Immediate	Reference_Lex_1,0x97
049d 00c7       |    |		Action	Elaborate_Subprogram
049e 1d98       |    |		Execute_Immediate	Reference_Lex_1,0x98
049f 00c7       |    |		Action	Elaborate_Subprogram
04a0 0007       |    |		Action	Break_Optional
04a1 1d99       |    |		Execute_Immediate	Reference_Lex_1,0x99
04a2 00c7       |    |		Action	Elaborate_Subprogram
04a3 1d9a       |    |		Execute_Immediate	Reference_Lex_1,0x9a
04a4 00c7       |    |		Action	Elaborate_Subprogram
04a5 0007       |    |		Action	Break_Optional
04a6 1d9b       |    |		Execute_Immediate	Reference_Lex_1,0x9b
04a7 00c7       |    |		Action	Elaborate_Subprogram
04a8 0007       |    |		Action	Break_Optional
04a9 1d9c       |    |		Execute_Immediate	Reference_Lex_1,0x9c
04aa 00c7       |    |		Action	Elaborate_Subprogram
04ab 0007       |    |		Action	Break_Optional
04ac 1d9d       |    |		Execute_Immediate	Reference_Lex_1,0x9d
04ad 00c7       |    |		Action	Elaborate_Subprogram
04ae 0007       |    |		Action	Break_Optional
04af 1d9e       |    |		Execute_Immediate	Reference_Lex_1,0x9e
04b0 00c7       |    |		Action	Elaborate_Subprogram
04b1 0007       |    |		Action	Break_Optional
04b2 0007       |    |		Action	Break_Optional
04b3 1d9f       |    |		Execute_Immediate	Reference_Lex_1,0x9f
04b4 00c7       |    |		Action	Elaborate_Subprogram
04b5 0007       |    |		Action	Break_Optional
04b6 1da0       |    |		Execute_Immediate	Reference_Lex_1,0xa0
04b7 00c7       |    |		Action	Elaborate_Subprogram
04b8 0007       |    |		Action	Break_Optional
04b9 1da1       |    |		Execute_Immediate	Reference_Lex_1,0xa1
04ba 00c7       |    |		Action	Elaborate_Subprogram
04bb 0007       |    |		Action	Break_Optional
04bc 1da2       |    |		Execute_Immediate	Reference_Lex_1,0xa2
04bd 00c7       |    |		Action	Elaborate_Subprogram
04be 0007       |    |		Action	Break_Optional
04bf 1da3       |    |		Execute_Immediate	Reference_Lex_1,0xa3
04c0 00c7       |    |		Action	Elaborate_Subprogram
04c1 1da4       |    |		Execute_Immediate	Reference_Lex_1,0xa4
04c2 00c7       |    |		Action	Elaborate_Subprogram
04c3 0007       |    |		Action	Break_Optional
04c4 1da5       |    |		Execute_Immediate	Reference_Lex_1,0xa5
04c5 00c7       |    |		Action	Elaborate_Subprogram
04c6 0007       |    |		Action	Break_Optional
04c7 1da6       |    |		Execute_Immediate	Reference_Lex_1,0xa6
04c8 00c7       |    |		Action	Elaborate_Subprogram
04c9 0007       |    |		Action	Break_Optional
04ca 1da7       |    |		Execute_Immediate	Reference_Lex_1,0xa7
04cb 00c7       |    |		Action	Elaborate_Subprogram
04cc 0007       |    |		Action	Break_Optional
04cd 1da8       |    |		Execute_Immediate	Reference_Lex_1,0xa8
04ce 00c7       |    |		Action	Elaborate_Subprogram
04cf 0007       |    |		Action	Break_Optional
04d0 1da9       |    |		Execute_Immediate	Reference_Lex_1,0xa9
04d1 00c7       |    |		Action	Elaborate_Subprogram
04d2 0007       |    |		Action	Break_Optional
04d3 1daa       |    |		Execute_Immediate	Reference_Lex_1,0xaa
04d4 00c7       |    |		Action	Elaborate_Subprogram
04d5 0007       |    |		Action	Break_Optional
04d6 1dab       |    |		Execute_Immediate	Reference_Lex_1,0xab
04d7 00c7       |    |		Action	Elaborate_Subprogram
04d8 0007       |    |		Action	Break_Optional
04d9 1dac       |    |		Execute_Immediate	Reference_Lex_1,0xac
04da 00c7       |    |		Action	Elaborate_Subprogram
04db 1dad       |    |		Execute_Immediate	Reference_Lex_1,0xad
04dc 00c7       |    |		Action	Elaborate_Subprogram
04dd 0007       |    |		Action	Break_Optional
04de 1dae       |    |		Execute_Immediate	Reference_Lex_1,0xae
04df 00c7       |    |		Action	Elaborate_Subprogram
04e0 0007       |    |		Action	Break_Optional
04e1 1daf       |    |		Execute_Immediate	Reference_Lex_1,0xaf
04e2 00c7       |    |		Action	Elaborate_Subprogram
04e3 1db0       |    |		Execute_Immediate	Reference_Lex_1,0xb0
04e4 00c7       |    |		Action	Elaborate_Subprogram
04e5			BODY_0008:
04e5 00be       |    |		Action	Activate_Tasks
04e6 00bc       |    |		Action	Signal_Activated
04e7 00bb       |    |		Action	Signal_Completion
04e8			TRAP_0008:
04e8 010e       |    |		Execute	Exception,Is_Constraint_Error
04e9 6808       |h   |		Jump_Zero	0x4f2
04ea 4800       |H   |		Short_Literal	0x0
04eb 4801       |H   |		Short_Literal	0x1
04ec 0092 12dc  |    |		Action	Push_String_Extended,0x12dc					; "Constraint error in base."
04ee e009       |    |		Load	0x0,0x9
04ef 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
04f0 00bc       |    |		Action	Signal_Activated
04f1 00bb       |    |		Action	Signal_Completion
04f2 010d       |    |		Execute	Exception,Is_Numeric_Error
04f3 6808       |h   |		Jump_Zero	0x4fc
04f4 4800       |H   |		Short_Literal	0x0
04f5 4801       |H   |		Short_Literal	0x1
04f6 0092 12dd  |    |		Action	Push_String_Extended,0x12dd					; "Numeric error in base."
04f8 e009       |    |		Load	0x0,0x9
04f9 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
04fa 00bc       |    |		Action	Signal_Activated
04fb 00bb       |    |		Action	Signal_Completion
04fc 010c       |    |		Execute	Exception,Is_Program_Error
04fd 6808       |h   |		Jump_Zero	0x506
04fe 4800       |H   |		Short_Literal	0x0
04ff 4801       |H   |		Short_Literal	0x1
0500 0092 12de  |    |		Action	Push_String_Extended,0x12de					; "Program error in base."
0502 e009       |    |		Load	0x0,0x9
0503 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0504 00bc       |    |		Action	Signal_Activated
0505 00bb       |    |		Action	Signal_Completion
0506 010b       |    |		Execute	Exception,Is_Storage_Error
0507 6808       |h   |		Jump_Zero	0x510
0508 4800       |H   |		Short_Literal	0x0
0509 4801       |H   |		Short_Literal	0x1
050a 0092 12df  |    |		Action	Push_String_Extended,0x12df					; "Storage error in base."
050c e009       |    |		Load	0x0,0x9
050d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
050e 00bc       |    |		Action	Signal_Activated
050f 00bb       |    |		Action	Signal_Completion
0510 010a       |    |		Execute	Exception,Is_Tasking_Error
0511 6808       |h   |		Jump_Zero	0x51a
0512 4800       |H   |		Short_Literal	0x0
0513 4801       |H   |		Short_Literal	0x1
0514 0092 12e0  |    |		Action	Push_String_Extended,0x12e0					; "Tasking error in base."
0516 e009       |    |		Load	0x0,0x9
0517 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0518 00bc       |    |		Action	Signal_Activated
0519 00bb       |    |		Action	Signal_Completion
051a 4800       |H   |		Short_Literal	0x0
051b 4801       |H   |		Short_Literal	0x1
051c 0092 12e1  |    |		Action	Push_String_Extended,0x12e1					; "Other Program error in base."
051e e009       |    |		Load	0x0,0x9
051f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0520 00bc       |    |		Action	Signal_Activated
0521 00bb       |    |		Action	Signal_Completion
0522 0000 0000  |    |		.XXX[0x2]
0524 0000 0000  |    |		.LITERAL	{0x00000000, 0x00020000}
0528 0000 0000  |    |		.LITERAL	{0x00000000, 0x000005dc}
052c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000005f0}
0530 0000 0000  |    |		.LITERAL	{0x00000000, 0x001e8480}
0534 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0538 2020 2020  |    |		.LITERAL	{0x20202020, 0x20202020}
053c 2020 2020  |    |		.LITERAL	{0x20202020, 0x20202020}
0540 2020 2020  |    |		.LITERAL	{0x20202020, 0x20202020}
0544 626c 616e  |blan|		.LITERAL	{0x626c616e, 0x6b202020}
0548 626c 616e  |blan|		.LITERAL	{0x626c616e, 0x6b202020}
054c 0000 0000  |    |		.BLANK	0000[0x4]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 4603       |F   |		Jump_Case	0x4
0554 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0555 7802       |x   |		Jump	0x558								; case 0x1
0556 7805       |x   |		Jump	0x55c								; case 0x2
0557 7809       |x   |		Jump	0x561								; case 0x3
0558 e5ff       |    |		Load	0x2,-0x1
0559 0091 12d3  |    |		Action	Push_String_Extended_Indexed,0x12d3				; "ON"
055b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
055c e5fe       |    |		Load	0x2,-0x2
055d e5ff       |    |		Load	0x2,-0x1
055e 00e0       |    |		Load_Encached	Standard_Cache
055f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0560 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0561 e5ff       |    |		Load	0x2,-0x1
0562 00e0       |    |		Load_Encached	Standard_Cache
0563 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0564 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0565 0000 0000  |    |		.XXX[0x3]
0567 0000       |    |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b       | k  |		.CONST	0x056b								; Address of begin
0569 0004       |    |		.CONST	0x0004								; Address of exception handler
056a 0001       |    |		.CONST	0x0001								; Number of locals
056b			BODY_0568:
056b			INIT_0568:
056b 4603       |F   |		Jump_Case	0x4
056c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
056d 7802       |x   |		Jump	0x570								; case 0x1
056e 7805       |x   |		Jump	0x574								; case 0x2
056f 7809       |x   |		Jump	0x579								; case 0x3
0570 e5ff       |    |		Load	0x2,-0x1
0571 0091 12d6  |    |		Action	Push_String_Extended_Indexed,0x12d6				; "UNUSED"
0573 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0574 e5fe       |    |		Load	0x2,-0x2
0575 e5ff       |    |		Load	0x2,-0x1
0576 00e0       |    |		Load_Encached	Standard_Cache
0577 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0578 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0579 e5ff       |    |		Load	0x2,-0x1
057a 00e0       |    |		Load_Encached	Standard_Cache
057b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
057c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
057d 0000 0000  |    |		.XXX[0x3]
057f 0000       |    |
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583       |    |		.CONST	0x0583								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0001       |    |		.CONST	0x0001								; Number of locals
0583			BODY_0580:
0583			INIT_0580:
0583 4603       |F   |		Jump_Case	0x4
0584 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0585 7802       |x   |		Jump	0x588								; case 0x1
0586 7805       |x   |		Jump	0x58c								; case 0x2
0587 7809       |x   |		Jump	0x591								; case 0x3
0588 e5ff       |    |		Load	0x2,-0x1
0589 0091 12d9  |    |		Action	Push_String_Extended_Indexed,0x12d9				; "UNUSED"
058b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
058c e5fe       |    |		Load	0x2,-0x2
058d e5ff       |    |		Load	0x2,-0x1
058e 00e0       |    |		Load_Encached	Standard_Cache
058f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0590 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0591 e5ff       |    |		Load	0x2,-0x1
0592 00e0       |    |		Load_Encached	Standard_Cache
0593 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0594 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0595 0000 0000  |    |		.XXX[0x3]
0597 0000       |    |
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b       |    |		.CONST	0x059b								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0001       |    |		.CONST	0x0001								; Number of locals
059b			BODY_0598:
059b			INIT_0598:
059b 4608       |F   |		Jump_Case	0x9
059c 7808       |x   |		Jump	0x5a5								; case 0x0
059d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
059e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
059f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
05a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
05a1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
05a2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
05a3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
05a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
05a5 4801       |H   |		Short_Literal	0x1
05a6 e5ff       |    |		Load	0x2,-0x1
05a7 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05a8 4800       |H   |		Short_Literal	0x0
05a9 e5ff       |    |		Load	0x2,-0x1
05aa 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05ab 4800       |H   |		Short_Literal	0x0
05ac e5ff       |    |		Load	0x2,-0x1
05ad 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05ae 4800       |H   |		Short_Literal	0x0
05af e5ff       |    |		Load	0x2,-0x1
05b0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05b1 4800       |H   |		Short_Literal	0x0
05b2 e5ff       |    |		Load	0x2,-0x1
05b3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
05b4 4801       |H   |		Short_Literal	0x1
05b5 6772       |gr  |		Indirect_Literal	Discrete,0x528,{0x00000000, 0x000005dc}
05b6 00e9       |    |		Load_Encached	String_Cache
05b7 0334       | 4  |		Declare_Variable	Array,With_Constraint
05b8 676f       |go  |		Indirect_Literal	Discrete,0x528,{0x00000000, 0x000005dc}
05b9 4801       |H   |		Short_Literal	0x1
05ba 4820       |H   |		Short_Literal	0x20
05bb e404       |    |		Load	0x2,0x4
05bc e402       |    |		Load	0x2,0x2
05bd 01d6       |    |		Execute	Vector,Field_Write
05be 3ffb       |?   |		Loop_Increasing	0x5ba
05bf e5ff       |    |		Load	0x2,-0x1
05c0 00d9       |    |		Load_Top	At_Offset_1
05c1 00d9       |    |		Load_Top	At_Offset_1
05c2 3006       |0   |		Execute	Record,Field_Type,Field_Number 0x6
05c3 0119       |    |		Execute	Any,Check_In_Formal_Type
05c4 00d1       |    |		Pop_Control	Pop_Count_1
05c5 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
05c6 4801       |H   |		Short_Literal	0x1
05c7 e5ff       |    |		Load	0x2,-0x1
05c8 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
05c9 4801       |H   |		Short_Literal	0x1
05ca e5ff       |    |		Load	0x2,-0x1
05cb 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
05cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05cd 0000 0000  |    |		.XXX[0x3]
05cf 0000       |    |
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3       |    |		.CONST	0x05d3								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0001       |    |		.CONST	0x0001								; Number of locals
05d3			BODY_05d0:
05d3			INIT_05d0:
05d3 4608       |F   |		Jump_Case	0x9
05d4 7808       |x   |		Jump	0x5dd								; case 0x0
05d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
05d6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
05d7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
05d8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
05d9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
05da 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
05db 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
05dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
05dd 4800       |H   |		Short_Literal	0x0
05de e5ff       |    |		Load	0x2,-0x1
05df 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05e0 4800       |H   |		Short_Literal	0x0
05e1 e5ff       |    |		Load	0x2,-0x1
05e2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05e3 4801       |H   |		Short_Literal	0x1
05e4 e5ff       |    |		Load	0x2,-0x1
05e5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05e6 4801       |H   |		Short_Literal	0x1
05e7 e5ff       |    |		Load	0x2,-0x1
05e8 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05e9 4800       |H   |		Short_Literal	0x0
05ea e5ff       |    |		Load	0x2,-0x1
05eb 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
05ec 4801       |H   |		Short_Literal	0x1
05ed e5ff       |    |		Load	0x2,-0x1
05ee 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
05ef 4800       |H   |		Short_Literal	0x0
05f0 e5ff       |    |		Load	0x2,-0x1
05f1 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
05f2 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
05f3 0000 0000  |    |		.BLANK	0000[0x5]
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 00d1       |    |		Pop_Control	Pop_Count_1
05fc e5ff       |    |		Load	0x2,-0x1
05fd 01d8       |    |		Execute	Vector,Element_Type
05fe 0322       | "  |		Declare_Variable	Record
05ff 00d8       |    |		Load_Top	At_Offset_0
0600 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0601 e5ff       |    |		Load	0x2,-0x1
0602 01dc       |    |		Execute	Vector,Last
0603 e5ff       |    |		Load	0x2,-0x1
0604 01dd       |    |		Execute	Vector,First
0605 0263       | c  |		Execute	Discrete,Above_Bound
0606 7006       |p   |		Jump_Nonzero	0x60d
0607 e402       |    |		Load	0x2,0x2
0608 e404       |    |		Load	0x2,0x4
0609 e5ff       |    |		Load	0x2,-0x1
060a 01d6       |    |		Execute	Vector,Field_Write
060b 0a01       |    |		Execute_Immediate	Plus,0x1
060c 7ff8       |    |		Jump	0x605
060d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
060e 0000 0000  |    |		.XXX[0x2]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0613       |    |		.CONST	0x0613								; Address of begin
0611 0004       |    |		.CONST	0x0004								; Address of exception handler
0612 0001       |    |		.CONST	0x0001								; Number of locals
0613			BODY_0610:
0613			INIT_0610:
0613 00d1       |    |		Pop_Control	Pop_Count_1
0614 e5ff       |    |		Load	0x2,-0x1
0615 01d8       |    |		Execute	Vector,Element_Type
0616 0322       | "  |		Declare_Variable	Record
0617 00d8       |    |		Load_Top	At_Offset_0
0618 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0619 e5ff       |    |		Load	0x2,-0x1
061a 01dc       |    |		Execute	Vector,Last
061b e5ff       |    |		Load	0x2,-0x1
061c 01dd       |    |		Execute	Vector,First
061d 0263       | c  |		Execute	Discrete,Above_Bound
061e 7006       |p   |		Jump_Nonzero	0x625
061f e402       |    |		Load	0x2,0x2
0620 e404       |    |		Load	0x2,0x4
0621 e5ff       |    |		Load	0x2,-0x1
0622 01d6       |    |		Execute	Vector,Field_Write
0623 0a01       |    |		Execute_Immediate	Plus,0x1
0624 7ff8       |    |		Jump	0x61d
0625 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0626 0000 0000  |    |		.XXX[0x2]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b       | +  |		.CONST	0x062b								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 0001       |    |		.CONST	0x0001								; Number of locals
062b			BODY_0628:
062b			INIT_0628:
062b 4608       |F   |		Jump_Case	0x9
062c 7808       |x   |		Jump	0x635								; case 0x0
062d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
062e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
062f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0630 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0631 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0632 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0633 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0634 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0635 4801       |H   |		Short_Literal	0x1
0636 4814       |H   |		Short_Literal	0x14
0637 00e9       |    |		Load_Encached	String_Cache
0638 0334       | 4  |		Declare_Variable	Array,With_Constraint
0639 4814       |H   |		Short_Literal	0x14
063a 4801       |H   |		Short_Literal	0x1
063b 4820       |H   |		Short_Literal	0x20
063c e404       |    |		Load	0x2,0x4
063d e402       |    |		Load	0x2,0x2
063e 01d6       |    |		Execute	Vector,Field_Write
063f 3ffb       |?   |		Loop_Increasing	0x63b
0640 e5ff       |    |		Load	0x2,-0x1
0641 00d9       |    |		Load_Top	At_Offset_1
0642 00d9       |    |		Load_Top	At_Offset_1
0643 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0644 0119       |    |		Execute	Any,Check_In_Formal_Type
0645 00d1       |    |		Pop_Control	Pop_Count_1
0646 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0647 4800       |H   |		Short_Literal	0x0
0648 e5ff       |    |		Load	0x2,-0x1
0649 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
064a 4800       |H   |		Short_Literal	0x0
064b e5ff       |    |		Load	0x2,-0x1
064c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
064d 4801       |H   |		Short_Literal	0x1
064e e5ff       |    |		Load	0x2,-0x1
064f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0650 4801       |H   |		Short_Literal	0x1
0651 e5ff       |    |		Load	0x2,-0x1
0652 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0653 4801       |H   |		Short_Literal	0x1
0654 e5ff       |    |		Load	0x2,-0x1
0655 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0656 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0657 0000       |    |		.XXX[0x1]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b       | [  |		.CONST	0x065b								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0001       |    |		.CONST	0x0001								; Number of locals
065b			BODY_0658:
065b			INIT_0658:
065b 4608       |F   |		Jump_Case	0x9
065c 7808       |x   |		Jump	0x665								; case 0x0
065d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
065e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
065f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0660 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0661 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0662 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0663 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0664 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0665 4800       |H   |		Short_Literal	0x0
0666 e5ff       |    |		Load	0x2,-0x1
0667 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0668 e5ff       |    |		Load	0x2,-0x1
0669 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
066a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
066b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
066c 0000 0000  |    |		.BLANK	0000[0x4]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673       | s  |		.CONST	0x0673								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0001       |    |		.CONST	0x0001								; Number of locals
0673			BODY_0670:
0673			INIT_0670:
0673 4608       |F   |		Jump_Case	0x9
0674 7808       |x   |		Jump	0x67d								; case 0x0
0675 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0676 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0677 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0678 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0679 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
067a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
067b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
067c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
067d 4800       |H   |		Short_Literal	0x0
067e e5ff       |    |		Load	0x2,-0x1
067f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0680 4800       |H   |		Short_Literal	0x0
0681 e5ff       |    |		Load	0x2,-0x1
0682 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0683 4802       |H   |		Short_Literal	0x2
0684 e5ff       |    |		Load	0x2,-0x1
0685 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0686 4800       |H   |		Short_Literal	0x0
0687 e5ff       |    |		Load	0x2,-0x1
0688 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0689 4800       |H   |		Short_Literal	0x0
068a e5ff       |    |		Load	0x2,-0x1
068b 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
068c 4801       |H   |		Short_Literal	0x1
068d e5ff       |    |		Load	0x2,-0x1
068e 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
068f 4814       |H   |		Short_Literal	0x14
0690 e5ff       |    |		Load	0x2,-0x1
0691 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0692 4800       |H   |		Short_Literal	0x0
0693 e5ff       |    |		Load	0x2,-0x1
0694 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
0695 4800       |H   |		Short_Literal	0x0
0696 e5ff       |    |		Load	0x2,-0x1
0697 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0698 0092 12e2  |    |		Action	Push_String_Extended,0x12e2					; "xx"
069a e5ff       |    |		Load	0x2,-0x1
069b 00d9       |    |		Load_Top	At_Offset_1
069c 00d9       |    |		Load_Top	At_Offset_1
069d 300b       |0   |		Execute	Record,Field_Type,Field_Number 0xb
069e 0119       |    |		Execute	Any,Check_In_Formal_Type
069f 00d1       |    |		Pop_Control	Pop_Count_1
06a0 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
06a1 4800       |H   |		Short_Literal	0x0
06a2 e5ff       |    |		Load	0x2,-0x1
06a3 380c       |8   |		Execute	Record,Field_Write,Field_Number 0xc
06a4 4800       |H   |		Short_Literal	0x0
06a5 e5ff       |    |		Load	0x2,-0x1
06a6 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
06a7 4800       |H   |		Short_Literal	0x0
06a8 e5ff       |    |		Load	0x2,-0x1
06a9 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
06aa 4801       |H   |		Short_Literal	0x1
06ab e5ff       |    |		Load	0x2,-0x1
06ac 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
06ad 4801       |H   |		Short_Literal	0x1
06ae e5ff       |    |		Load	0x2,-0x1
06af 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
06b0 4801       |H   |		Short_Literal	0x1
06b1 e5ff       |    |		Load	0x2,-0x1
06b2 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
06b3 4800       |H   |		Short_Literal	0x0
06b4 e5ff       |    |		Load	0x2,-0x1
06b5 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
06b6 4802       |H   |		Short_Literal	0x2
06b7 e5ff       |    |		Load	0x2,-0x1
06b8 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
06b9 4801       |H   |		Short_Literal	0x1
06ba 4850       |HP  |		Short_Literal	0x50
06bb 00e9       |    |		Load_Encached	String_Cache
06bc 0334       | 4  |		Declare_Variable	Array,With_Constraint
06bd 4850       |HP  |		Short_Literal	0x50
06be 4801       |H   |		Short_Literal	0x1
06bf 4820       |H   |		Short_Literal	0x20
06c0 e404       |    |		Load	0x2,0x4
06c1 e402       |    |		Load	0x2,0x2
06c2 01d6       |    |		Execute	Vector,Field_Write
06c3 3ffb       |?   |		Loop_Increasing	0x6bf
06c4 e5ff       |    |		Load	0x2,-0x1
06c5 00d9       |    |		Load_Top	At_Offset_1
06c6 00d9       |    |		Load_Top	At_Offset_1
06c7 3014       |0   |		Execute	Record,Field_Type,Field_Number 0x14
06c8 0119       |    |		Execute	Any,Check_In_Formal_Type
06c9 00d1       |    |		Pop_Control	Pop_Count_1
06ca 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
06cb 4800       |H   |		Short_Literal	0x0
06cc e5ff       |    |		Load	0x2,-0x1
06cd 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
06ce 4802       |H   |		Short_Literal	0x2
06cf e5ff       |    |		Load	0x2,-0x1
06d0 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
06d1 4801       |H   |		Short_Literal	0x1
06d2 4850       |HP  |		Short_Literal	0x50
06d3 00e9       |    |		Load_Encached	String_Cache
06d4 0334       | 4  |		Declare_Variable	Array,With_Constraint
06d5 4850       |HP  |		Short_Literal	0x50
06d6 4801       |H   |		Short_Literal	0x1
06d7 4820       |H   |		Short_Literal	0x20
06d8 e404       |    |		Load	0x2,0x4
06d9 e402       |    |		Load	0x2,0x2
06da 01d6       |    |		Execute	Vector,Field_Write
06db 3ffb       |?   |		Loop_Increasing	0x6d7
06dc e5ff       |    |		Load	0x2,-0x1
06dd 00d9       |    |		Load_Top	At_Offset_1
06de 00d9       |    |		Load_Top	At_Offset_1
06df 3017       |0   |		Execute	Record,Field_Type,Field_Number 0x17
06e0 0119       |    |		Execute	Any,Check_In_Formal_Type
06e1 00d1       |    |		Pop_Control	Pop_Count_1
06e2 3817       |8   |		Execute	Record,Field_Write,Field_Number 0x17
06e3 4800       |H   |		Short_Literal	0x0
06e4 e5ff       |    |		Load	0x2,-0x1
06e5 3818       |8   |		Execute	Record,Field_Write,Field_Number 0x18
06e6 4802       |H   |		Short_Literal	0x2
06e7 e5ff       |    |		Load	0x2,-0x1
06e8 3819       |8   |		Execute	Record,Field_Write,Field_Number 0x19
06e9 4801       |H   |		Short_Literal	0x1
06ea 4850       |HP  |		Short_Literal	0x50
06eb 00e9       |    |		Load_Encached	String_Cache
06ec 0334       | 4  |		Declare_Variable	Array,With_Constraint
06ed 4850       |HP  |		Short_Literal	0x50
06ee 4801       |H   |		Short_Literal	0x1
06ef 4820       |H   |		Short_Literal	0x20
06f0 e404       |    |		Load	0x2,0x4
06f1 e402       |    |		Load	0x2,0x2
06f2 01d6       |    |		Execute	Vector,Field_Write
06f3 3ffb       |?   |		Loop_Increasing	0x6ef
06f4 e5ff       |    |		Load	0x2,-0x1
06f5 00d9       |    |		Load_Top	At_Offset_1
06f6 00d9       |    |		Load_Top	At_Offset_1
06f7 301a       |0   |		Execute	Record,Field_Type,Field_Number 0x1a
06f8 0119       |    |		Execute	Any,Check_In_Formal_Type
06f9 00d1       |    |		Pop_Control	Pop_Count_1
06fa 381a       |8   |		Execute	Record,Field_Write,Field_Number 0x1a
06fb 4800       |H   |		Short_Literal	0x0
06fc e5ff       |    |		Load	0x2,-0x1
06fd 381b       |8   |		Execute	Record,Field_Write,Field_Number 0x1b
06fe 4802       |H   |		Short_Literal	0x2
06ff e5ff       |    |		Load	0x2,-0x1
0700 381c       |8   |		Execute	Record,Field_Write,Field_Number 0x1c
0701 4801       |H   |		Short_Literal	0x1
0702 4850       |HP  |		Short_Literal	0x50
0703 00e9       |    |		Load_Encached	String_Cache
0704 0334       | 4  |		Declare_Variable	Array,With_Constraint
0705 4850       |HP  |		Short_Literal	0x50
0706 4801       |H   |		Short_Literal	0x1
0707 4820       |H   |		Short_Literal	0x20
0708 e404       |    |		Load	0x2,0x4
0709 e402       |    |		Load	0x2,0x2
070a 01d6       |    |		Execute	Vector,Field_Write
070b 3ffb       |?   |		Loop_Increasing	0x707
070c e5ff       |    |		Load	0x2,-0x1
070d 00d9       |    |		Load_Top	At_Offset_1
070e 00d9       |    |		Load_Top	At_Offset_1
070f 301d       |0   |		Execute	Record,Field_Type,Field_Number 0x1d
0710 0119       |    |		Execute	Any,Check_In_Formal_Type
0711 00d1       |    |		Pop_Control	Pop_Count_1
0712 381d       |8   |		Execute	Record,Field_Write,Field_Number 0x1d
0713 4800       |H   |		Short_Literal	0x0
0714 e5ff       |    |		Load	0x2,-0x1
0715 381e       |8   |		Execute	Record,Field_Write,Field_Number 0x1e
0716 4802       |H   |		Short_Literal	0x2
0717 e5ff       |    |		Load	0x2,-0x1
0718 381f       |8   |		Execute	Record,Field_Write,Field_Number 0x1f
0719 4801       |H   |		Short_Literal	0x1
071a 4850       |HP  |		Short_Literal	0x50
071b 00e9       |    |		Load_Encached	String_Cache
071c 0334       | 4  |		Declare_Variable	Array,With_Constraint
071d 4850       |HP  |		Short_Literal	0x50
071e 4801       |H   |		Short_Literal	0x1
071f 4820       |H   |		Short_Literal	0x20
0720 e404       |    |		Load	0x2,0x4
0721 e402       |    |		Load	0x2,0x2
0722 01d6       |    |		Execute	Vector,Field_Write
0723 3ffb       |?   |		Loop_Increasing	0x71f
0724 e5ff       |    |		Load	0x2,-0x1
0725 00d9       |    |		Load_Top	At_Offset_1
0726 00d9       |    |		Load_Top	At_Offset_1
0727 3020       |0   |		Execute	Record,Field_Type,Field_Number 0x20
0728 0119       |    |		Execute	Any,Check_In_Formal_Type
0729 00d1       |    |		Pop_Control	Pop_Count_1
072a 3820       |8   |		Execute	Record,Field_Write,Field_Number 0x20
072b 4800       |H   |		Short_Literal	0x0
072c e5ff       |    |		Load	0x2,-0x1
072d 3821       |8!  |		Execute	Record,Field_Write,Field_Number 0x21
072e 0092 12e3  |    |		Action	Push_String_Extended,0x12e3					; "blank"
0730 e5ff       |    |		Load	0x2,-0x1
0731 00d9       |    |		Load_Top	At_Offset_1
0732 00d9       |    |		Load_Top	At_Offset_1
0733 3023       |0#  |		Execute	Record,Field_Type,Field_Number 0x23
0734 0119       |    |		Execute	Any,Check_In_Formal_Type
0735 00d1       |    |		Pop_Control	Pop_Count_1
0736 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
0737 e5ff       |    |		Load	0x2,-0x1
0738 3424       |4$  |		Execute	Record,Field_Reference,Field_Number 0x24
0739 1c00       |    |		Execute_Immediate	Run_Utility,0x0
073a 65f5       |e   |		Indirect_Literal	Discrete,0x530,{0x00000000, 0x001e8480}
073b e5ff       |    |		Load	0x2,-0x1
073c 3825       |8%  |		Execute	Record,Field_Write,Field_Number 0x25
073d 4801       |H   |		Short_Literal	0x1
073e e5ff       |    |		Load	0x2,-0x1
073f 3826       |8&  |		Execute	Record,Field_Write,Field_Number 0x26
0740 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0741 0000 0000  |    |		.BLANK	0000[0x7]
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 00d1       |    |		Pop_Control	Pop_Count_1
074c e5ff       |    |		Load	0x2,-0x1
074d 01d8       |    |		Execute	Vector,Element_Type
074e 0337       | 7  |		Declare_Variable	Array
074f 00d8       |    |		Load_Top	At_Offset_0
0750 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0751 e5ff       |    |		Load	0x2,-0x1
0752 01dc       |    |		Execute	Vector,Last
0753 e5ff       |    |		Load	0x2,-0x1
0754 01dd       |    |		Execute	Vector,First
0755 0263       | c  |		Execute	Discrete,Above_Bound
0756 7006       |p   |		Jump_Nonzero	0x75d
0757 e402       |    |		Load	0x2,0x2
0758 e404       |    |		Load	0x2,0x4
0759 e5ff       |    |		Load	0x2,-0x1
075a 01d6       |    |		Execute	Vector,Field_Write
075b 0a01       |    |		Execute_Immediate	Plus,0x1
075c 7ff8       |    |		Jump	0x755
075d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
075e 0000 0000  |    |		.XXX[0x2]
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763       | c  |		.CONST	0x0763								; Address of begin
0761 0004       |    |		.CONST	0x0004								; Address of exception handler
0762 0001       |    |		.CONST	0x0001								; Number of locals
0763			BODY_0760:
0763			INIT_0760:
0763 00d1       |    |		Pop_Control	Pop_Count_1
0764 e5ff       |    |		Load	0x2,-0x1
0765 01d8       |    |		Execute	Vector,Element_Type
0766 0337       | 7  |		Declare_Variable	Array
0767 00d8       |    |		Load_Top	At_Offset_0
0768 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0769 e5ff       |    |		Load	0x2,-0x1
076a 01dc       |    |		Execute	Vector,Last
076b e5ff       |    |		Load	0x2,-0x1
076c 01dd       |    |		Execute	Vector,First
076d 0263       | c  |		Execute	Discrete,Above_Bound
076e 7006       |p   |		Jump_Nonzero	0x775
076f e402       |    |		Load	0x2,0x2
0770 e404       |    |		Load	0x2,0x4
0771 e5ff       |    |		Load	0x2,-0x1
0772 01d6       |    |		Execute	Vector,Field_Write
0773 0a01       |    |		Execute_Immediate	Plus,0x1
0774 7ff8       |    |		Jump	0x76d
0775 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0776 0000 0000  |    |		.XXX[0x2]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b       | {  |		.CONST	0x077b								; Address of begin
0779 0004       |    |		.CONST	0x0004								; Address of exception handler
077a 0001       |    |		.CONST	0x0001								; Number of locals
077b			BODY_0778:
077b			INIT_0778:
077b 00d1       |    |		Pop_Control	Pop_Count_1
077c e5ff       |    |		Load	0x2,-0x1
077d 01dc       |    |		Execute	Vector,Last
077e e5ff       |    |		Load	0x2,-0x1
077f 01dd       |    |		Execute	Vector,First
0780 0263       | c  |		Execute	Discrete,Above_Bound
0781 7006       |p   |		Jump_Nonzero	0x788
0782 00d8       |    |		Load_Top	At_Offset_0
0783 e5ff       |    |		Load	0x2,-0x1
0784 01d5       |    |		Execute	Vector,Field_Reference
0785 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0786 0a01       |    |		Execute_Immediate	Plus,0x1
0787 7ff8       |    |		Jump	0x780
0788 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0789 0000 0000  |    |		.BLANK	0000[0x7]
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 00d1       |    |		Pop_Control	Pop_Count_1
0794 e5ff       |    |		Load	0x2,-0x1
0795 01dc       |    |		Execute	Vector,Last
0796 e5ff       |    |		Load	0x2,-0x1
0797 01dd       |    |		Execute	Vector,First
0798 0263       | c  |		Execute	Discrete,Above_Bound
0799 7006       |p   |		Jump_Nonzero	0x7a0
079a 00d8       |    |		Load_Top	At_Offset_0
079b e5ff       |    |		Load	0x2,-0x1
079c 01d5       |    |		Execute	Vector,Field_Reference
079d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
079e 0a01       |    |		Execute_Immediate	Plus,0x1
079f 7ff8       |    |		Jump	0x798
07a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
07a1 0000 0000  |    |		.BLANK	0000[0x7]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab       |    |		.CONST	0x07ab								; Address of begin
07a9 07be       |    |		.CONST	0x07be								; Address of exception handler
07aa 0001       |    |		.CONST	0x0001								; Number of locals
07ab			BODY_07a8:
07ab			INIT_07a8:
07ab 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
07ad e5fe       |    |		Load	0x2,-0x2
07ae 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
07af e5fe       |    |		Load	0x2,-0x2
07b0 3c22       |<"  |		Execute	Record,Field_Read,Field_Number 0x22
07b1 00ea       |    |		Load_Encached	Null_String_Cache
07b2 4801       |H   |		Short_Literal	0x1
07b3 e5fe       |    |		Load	0x2,-0x2
07b4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
07b5 e5fe       |    |		Load	0x2,-0x2
07b6 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
07b7 01cf       |    |		Execute	Vector,Slice_Read
07b8 e280       |    |		Load	0x1,0x80
07b9 e275       | u  |		Load	0x1,0x75
07ba 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
07bb e5fe       |    |		Load	0x2,-0x2
07bc 3822       |8"  |		Execute	Record,Field_Write,Field_Number 0x22
07bd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07be			TRAP_07a8:
07be 0007       |    |		Action	Break_Optional
07bf 0092 12e5  |    |		Action	Push_String_Extended,0x12e5					; "cr er"
07c1 e5fe       |    |		Load	0x2,-0x2
07c2 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
07c3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07c4 0000 0000  |    |		.BLANK	0000[0x4]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cb       |    |		.CONST	0x07cb								; Address of begin
07c9 07da       |    |		.CONST	0x07da								; Address of exception handler
07ca 0001       |    |		.CONST	0x0001								; Number of locals
07cb			BODY_07c8:
07cb			INIT_07c8:
07cb e5fd       |    |		Load	0x2,-0x3
07cc 3c22       |<"  |		Execute	Record,Field_Read,Field_Number 0x22
07cd 00ea       |    |		Load_Encached	Null_String_Cache
07ce 4801       |H   |		Short_Literal	0x1
07cf e5fd       |    |		Load	0x2,-0x3
07d0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
07d1 e5fd       |    |		Load	0x2,-0x3
07d2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
07d3 01cf       |    |		Execute	Vector,Slice_Read
07d4 e5fe       |    |		Load	0x2,-0x2
07d5 e275       | u  |		Load	0x1,0x75
07d6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
07d7 e5fd       |    |		Load	0x2,-0x3
07d8 3822       |8"  |		Execute	Record,Field_Write,Field_Number 0x22
07d9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07da			TRAP_07c8:
07da 0007       |    |		Action	Break_Optional
07db 0092 12e6  |    |		Action	Push_String_Extended,0x12e6					; "op er"
07dd e5fd       |    |		Load	0x2,-0x3
07de 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
07df 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3       |    |		.CONST	0x07e3								; Address of begin
07e1 07ea       |    |		.CONST	0x07ea								; Address of exception handler
07e2 0001       |    |		.CONST	0x0001								; Number of locals
07e3			BODY_07e0:
07e3			INIT_07e0:
07e3 e5fe       |    |		Load	0x2,-0x2
07e4 3c22       |<"  |		Execute	Record,Field_Read,Field_Number 0x22
07e5 e275       | u  |		Load	0x1,0x75
07e6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
07e7 e5fe       |    |		Load	0x2,-0x2
07e8 3822       |8"  |		Execute	Record,Field_Write,Field_Number 0x22
07e9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07ea			TRAP_07e0:
07ea 0007       |    |		Action	Break_Optional
07eb e5fe       |    |		Load	0x2,-0x2
07ec 3423       |4#  |		Execute	Record,Field_Reference,Field_Number 0x23
07ed 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
07ef 01df       |    |		Execute	Vector,Equal
07f0 6804       |h   |		Jump_Zero	0x7f5
07f1 0092 12e7  |    |		Action	Push_String_Extended,0x12e7					; "cl er"
07f3 e5fe       |    |		Load	0x2,-0x2
07f4 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
07f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
07f6 0000 0000  |    |		.XXX[0x2]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb       |    |		.CONST	0x07fb								; Address of begin
07f9 0816       |    |		.CONST	0x0816								; Address of exception handler
07fa 0001       |    |		.CONST	0x0001								; Number of locals
07fb			BODY_07f8:
07fb			INIT_07f8:
07fb e5fe       |    |		Load	0x2,-0x2
07fc e275       | u  |		Load	0x1,0x75
07fd 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
07fe 025b       | [  |		Execute	Discrete,Check_In_Type
07ff e5fd       |    |		Load	0x2,-0x3
0800 3424       |4$  |		Execute	Record,Field_Reference,Field_Number 0x24
0801 e5fd       |    |		Load	0x2,-0x3
0802 3c22       |<"  |		Execute	Record,Field_Read,Field_Number 0x22
0803 e275       | u  |		Load	0x1,0x75
0804 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0805 e5fe       |    |		Load	0x2,-0x2
0806 e5fd       |    |		Load	0x2,-0x3
0807 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
0808 027f       |    |		Execute	Discrete,Equal
0809 6804       |h   |		Jump_Zero	0x80e
080a e5fe       |    |		Load	0x2,-0x2
080b e5fd       |    |		Load	0x2,-0x3
080c 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
080d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
080e e5fd       |    |		Load	0x2,-0x3
080f 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
0810 e5fd       |    |		Load	0x2,-0x3
0811 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
0812 e5fe       |    |		Load	0x2,-0x2
0813 e5fd       |    |		Load	0x2,-0x3
0814 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0815 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0816			TRAP_07f8:
0816 0007       |    |		Action	Break_Optional
0817 0092 12e8  |    |		Action	Push_String_Extended,0x12e8					; "wr er"
0819 e5fd       |    |		Load	0x2,-0x3
081a 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
081b 4800       |H   |		Short_Literal	0x0
081c 4803       |H   |		Short_Literal	0x3
081d 0092 12e9  |    |		Action	Push_String_Extended,0x12e9					; "Exception in ap_write_master, invalid index/file err.: "
081f e009       |    |		Load	0x0,0x9
0820 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0821 4801       |H   |		Short_Literal	0x1
0822 4804       |H   |		Short_Literal	0x4
0823 4801       |H   |		Short_Literal	0x1
0824 e5fd       |    |		Load	0x2,-0x3
0825 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0826 e5fd       |    |		Load	0x2,-0x3
0827 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0828 01cf       |    |		Execute	Vector,Slice_Read
0829 e009       |    |		Load	0x0,0x9
082a 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
082b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
082c 0000 0000  |    |		.BLANK	0000[0x4]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833       | 3  |		.CONST	0x0833								; Address of begin
0831 0863       | c  |		.CONST	0x0863								; Address of exception handler
0832 0001       |    |		.CONST	0x0001								; Number of locals
0833			BODY_0830:
0833			INIT_0830:
0833 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
0835 e5fd       |    |		Load	0x2,-0x3
0836 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
0837 e5fd       |    |		Load	0x2,-0x3
0838 e281       |    |		Load	0x1,0x81
0839 e5ff       |    |		Load	0x2,-0x1
083a 8298       |    |		Call	0x1,0x98
083b 00d1       |    |		Pop_Control	Pop_Count_1
083c 4800       |H   |		Short_Literal	0x0
083d e5fd       |    |		Load	0x2,-0x3
083e 3424       |4$  |		Execute	Record,Field_Reference,Field_Number 0x24
083f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0840 4802       |H   |		Short_Literal	0x2
0841 e5fd       |    |		Load	0x2,-0x3
0842 3424       |4$  |		Execute	Record,Field_Reference,Field_Number 0x24
0843 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0844 4802       |H   |		Short_Literal	0x2
0845 e5fd       |    |		Load	0x2,-0x3
0846 3424       |4$  |		Execute	Record,Field_Reference,Field_Number 0x24
0847 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0848 e5fe       |    |		Load	0x2,-0x2
0849 e275       | u  |		Load	0x1,0x75
084a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
084b 025b       | [  |		Execute	Discrete,Check_In_Type
084c e5fd       |    |		Load	0x2,-0x3
084d 3424       |4$  |		Execute	Record,Field_Reference,Field_Number 0x24
084e e5fd       |    |		Load	0x2,-0x3
084f 3c22       |<"  |		Execute	Record,Field_Read,Field_Number 0x22
0850 e275       | u  |		Load	0x1,0x75
0851 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0852 4801       |H   |		Short_Literal	0x1
0853 e5fd       |    |		Load	0x2,-0x3
0854 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0855 4801       |H   |		Short_Literal	0x1
0856 e5fd       |    |		Load	0x2,-0x3
0857 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
0858 4801       |H   |		Short_Literal	0x1
0859 e5fd       |    |		Load	0x2,-0x3
085a 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
085b 4800       |H   |		Short_Literal	0x0
085c e5fd       |    |		Load	0x2,-0x3
085d 3424       |4$  |		Execute	Record,Field_Reference,Field_Number 0x24
085e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
085f e5fd       |    |		Load	0x2,-0x3
0860 e5ff       |    |		Load	0x2,-0x1
0861 8299       |    |		Call	0x1,0x99
0862 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0863			TRAP_0830:
0863 0007       |    |		Action	Break_Optional
0864 0092 12ea  |    |		Action	Push_String_Extended,0x12ea					; "dl er"
0866 e5fd       |    |		Load	0x2,-0x3
0867 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
0868 4800       |H   |		Short_Literal	0x0
0869 4803       |H   |		Short_Literal	0x3
086a 0092 12eb  |    |		Action	Push_String_Extended,0x12eb					; "Exception in ap_delete_record, invalid index/file err.: "
086c e009       |    |		Load	0x0,0x9
086d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
086e 4801       |H   |		Short_Literal	0x1
086f 4804       |H   |		Short_Literal	0x4
0870 4801       |H   |		Short_Literal	0x1
0871 e5fd       |    |		Load	0x2,-0x3
0872 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0873 e5fd       |    |		Load	0x2,-0x3
0874 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0875 01cf       |    |		Execute	Vector,Slice_Read
0876 e009       |    |		Load	0x0,0x9
0877 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0878 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0879 0000 0000  |    |		.BLANK	0000[0x7]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0885       |    |		.CONST	0x0885								; Address of begin
0881 0004       |    |		.CONST	0x0004								; Address of exception handler
0882 0002       |    |		.CONST	0x0002								; Number of locals
0883			INIT_0880:
0883 029f 0ae3  |    |		Declare_Subprogram	INIT_0ae0,For_Call
0885			BODY_0880:
0885 8402       |    |		Call	0x2,0x2
0886 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0887 0000       |    |		.XXX[0x1]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088d       |    |		.CONST	0x088d								; Address of begin
0889 088f       |    |		.CONST	0x088f								; Address of exception handler
088a 0002       |    |		.CONST	0x0002								; Number of locals
088b			INIT_0888:
088b 029f 0b2b  |   +|		Declare_Subprogram	INIT_0b28,For_Call
088d			BODY_0888:
088d 8402       |    |		Call	0x2,0x2
088e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
088f			TRAP_0888:
088f 0007       |    |		Action	Break_Optional
0890 4800       |H   |		Short_Literal	0x0
0891 4801       |H   |		Short_Literal	0x1
0892 0092 12ec  |    |		Action	Push_String_Extended,0x12ec					; "Exception in ap_get_last_record.."
0894 e009       |    |		Load	0x0,0x9
0895 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0896 0092 12ed  |    |		Action	Push_String_Extended,0x12ed					; "error"
0898 e5fd       |    |		Load	0x2,-0x3
0899 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
089a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
089b 0000 0000  |    |		.BLANK	0000[0x5]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3       |    |		.CONST	0x08a3								; Address of begin
08a1 08a4       |    |		.CONST	0x08a4								; Address of exception handler
08a2 0001       |    |		.CONST	0x0001								; Number of locals
08a3			BODY_08a0:
08a3			INIT_08a0:
08a3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08a4			TRAP_08a0:
08a4 0007       |    |		Action	Break_Optional
08a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
08a6 0000 0000  |    |		.XXX[0x2]
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08ab       |    |		.CONST	0x08ab								; Address of begin
08a9 08c4       |    |		.CONST	0x08c4								; Address of exception handler
08aa 0001       |    |		.CONST	0x0001								; Number of locals
08ab			BODY_08a8:
08ab			INIT_08a8:
08ab 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
08ad e5fd       |    |		Load	0x2,-0x3
08ae 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
08af e5fd       |    |		Load	0x2,-0x3
08b0 e5fe       |    |		Load	0x2,-0x2
08b1 e5ff       |    |		Load	0x2,-0x1
08b2 8298       |    |		Call	0x1,0x98
08b3 00d1       |    |		Pop_Control	Pop_Count_1
08b4 e5fd       |    |		Load	0x2,-0x3
08b5 3423       |4#  |		Execute	Record,Field_Reference,Field_Number 0x23
08b6 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
08b8 01df       |    |		Execute	Vector,Equal
08b9 6806       |h   |		Jump_Zero	0x8c0
08ba e5fd       |    |		Load	0x2,-0x3
08bb e5fd       |    |		Load	0x2,-0x3
08bc 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
08bd e5ff       |    |		Load	0x2,-0x1
08be 829c       |    |		Call	0x1,0x9c
08bf 00d1       |    |		Pop_Control	Pop_Count_1
08c0 e5fd       |    |		Load	0x2,-0x3
08c1 e5ff       |    |		Load	0x2,-0x1
08c2 8299       |    |		Call	0x1,0x99
08c3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
08c4			TRAP_08a8:
08c4 0007       |    |		Action	Break_Optional
08c5 0092 12ee  |    |		Action	Push_String_Extended,0x12ee					; "rdcer"
08c7 e5fd       |    |		Load	0x2,-0x3
08c8 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
08c9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
08ca 0000 0000  |    |		.BLANK	0000[0x6]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d3       |    |		.CONST	0x08d3								; Address of begin
08d1 090b       |    |		.CONST	0x090b								; Address of exception handler
08d2 0001       |    |		.CONST	0x0001								; Number of locals
08d3			BODY_08d0:
08d3			INIT_08d0:
08d3 00cf       |    |		Action	Mark_Auxiliary
08d4 4805       |H   |		Short_Literal	0x5
08d5 4801       |H   |		Short_Literal	0x1
08d6 0007       |    |		Action	Break_Optional
08d7 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
08d9 e5fd       |    |		Load	0x2,-0x3
08da 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
08db e5fd       |    |		Load	0x2,-0x3
08dc e5fe       |    |		Load	0x2,-0x2
08dd e5ff       |    |		Load	0x2,-0x1
08de 8298       |    |		Call	0x1,0x98
08df 00d1       |    |		Pop_Control	Pop_Count_1
08e0 e5fd       |    |		Load	0x2,-0x3
08e1 3423       |4#  |		Execute	Record,Field_Reference,Field_Number 0x23
08e2 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
08e4 01df       |    |		Execute	Vector,Equal
08e5 6802       |h   |		Jump_Zero	0x8e8
08e6 00d2       |    |		Pop_Control	Pop_Count_2
08e7 780b       |x   |		Jump	0x8f3
08e8 0092 12ef  |    |		Action	Push_String_Extended,0x12ef					; "[Concurrent database update in progress, will delay 2 seconds & retry.]"
08ea e009       |    |		Load	0x0,0x9
08eb 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
08ec e009       |    |		Load	0x0,0x9
08ed 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
08ee 00a2 0cd8  |    |		Action	Push_Discrete_Extended
08f0 00ba       |    |		Action	Initiate_Delay
08f1 00c8       |    |		Action	Pop_Auxiliary_Range
08f2 3fe4       |?   |		Loop_Increasing	0x8d7
08f3 00ce       |    |		Action	Pop_Auxiliary
08f4 e5fd       |    |		Load	0x2,-0x3
08f5 3423       |4#  |		Execute	Record,Field_Reference,Field_Number 0x23
08f6 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
08f8 01df       |    |		Execute	Vector,Equal
08f9 6807       |h   |		Jump_Zero	0x901
08fa e5fd       |    |		Load	0x2,-0x3
08fb e5fd       |    |		Load	0x2,-0x3
08fc 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
08fd e5ff       |    |		Load	0x2,-0x1
08fe 829a       |    |		Call	0x1,0x9a
08ff 00d1       |    |		Pop_Control	Pop_Count_1
0900 7806       |x   |		Jump	0x907
0901 0092 12f0  |    |		Action	Push_String_Extended,0x12f0					; "[Error - Retried database update open 5 times, and file still locked.]"
0903 e009       |    |		Load	0x0,0x9
0904 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0905 e009       |    |		Load	0x0,0x9
0906 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0907 e5fd       |    |		Load	0x2,-0x3
0908 e5ff       |    |		Load	0x2,-0x1
0909 8299       |    |		Call	0x1,0x99
090a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
090b			TRAP_08d0:
090b 0007       |    |		Action	Break_Optional
090c 0092 12e8  |    |		Action	Push_String_Extended,0x12e8					; "wr er"
090e e5fd       |    |		Load	0x2,-0x3
090f 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
0910 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0911 0000 0000  |    |		.BLANK	0000[0x7]
0918 ; --------------------------------------------------------------------------------------
0918 ; SUBPROGRAM
0918 ; --------------------------------------------------------------------------------------
0918 091d       |    |		.CONST	0x091d								; Address of begin
0919 0004       |    |		.CONST	0x0004								; Address of exception handler
091a 0002       |    |		.CONST	0x0002								; Number of locals
091b			INIT_0918:
091b 029f 0b73  |   s|		Declare_Subprogram	INIT_0b70,For_Call
091d			BODY_0918:
091d 8402       |    |		Call	0x2,0x2
091e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
091f 0000       |    |		.XXX[0x1]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0925       | %  |		.CONST	0x0925								; Address of begin
0921 0004       |    |		.CONST	0x0004								; Address of exception handler
0922 0002       |    |		.CONST	0x0002								; Number of locals
0923			INIT_0920:
0923 029f 0ce3  |    |		Declare_Subprogram	INIT_0ce0,For_Call
0925			BODY_0920:
0925 8402       |    |		Call	0x2,0x2
0926 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
0927 0000       |    |		.XXX[0x1]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092b       | +  |		.CONST	0x092b								; Address of begin
0929 0004       |    |		.CONST	0x0004								; Address of exception handler
092a 0001       |    |		.CONST	0x0001								; Number of locals
092b			BODY_0928:
092b			INIT_0928:
092b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
092c 0000 0000  |    |		.BLANK	0000[0x4]
0930 ; --------------------------------------------------------------------------------------
0930 ; SUBPROGRAM
0930 ; --------------------------------------------------------------------------------------
0930 0933       | 3  |		.CONST	0x0933								; Address of begin
0931 093a       | :  |		.CONST	0x093a								; Address of exception handler
0932 0001       |    |		.CONST	0x0001								; Number of locals
0933			BODY_0930:
0933			INIT_0930:
0933 e5fd       |    |		Load	0x2,-0x3
0934 e5fe       |    |		Load	0x2,-0x2
0935 4801       |H   |		Short_Literal	0x1
0936 4801       |H   |		Short_Literal	0x1
0937 e5ff       |    |		Load	0x2,-0x1
0938 82a6       |    |		Call	0x1,0xa6
0939 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
093a			TRAP_0930:
093a 0007       |    |		Action	Break_Optional
093b 4800       |H   |		Short_Literal	0x0
093c 4801       |H   |		Short_Literal	0x1
093d 0092 12f1  |    |		Action	Push_String_Extended,0x12f1					; "Exception in ap_clear_and_display_screen."
093f e009       |    |		Load	0x0,0x9
0940 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0941 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0942 0000 0000  |    |		.BLANK	0000[0x6]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 094d       | M  |		.CONST	0x094d								; Address of begin
0949 0004       |    |		.CONST	0x0004								; Address of exception handler
094a 0002       |    |		.CONST	0x0002								; Number of locals
094b			INIT_0948:
094b 029f 0d03  |    |		Declare_Subprogram	INIT_0d00,For_Call
094d			BODY_0948:
094d 8402       |    |		Call	0x2,0x2
094e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
094f 0000       |    |		.XXX[0x1]
0950 ; --------------------------------------------------------------------------------------
0950 ; SUBPROGRAM
0950 ; --------------------------------------------------------------------------------------
0950 0955       | U  |		.CONST	0x0955								; Address of begin
0951 0004       |    |		.CONST	0x0004								; Address of exception handler
0952 0002       |    |		.CONST	0x0002								; Number of locals
0953			INIT_0950:
0953 029f 0d1b  |    |		Declare_Subprogram	INIT_0d18,For_Call
0955			BODY_0950:
0955 8402       |    |		Call	0x2,0x2
0956 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0957 0000       |    |		.XXX[0x1]
0958 ; --------------------------------------------------------------------------------------
0958 ; SUBPROGRAM
0958 ; --------------------------------------------------------------------------------------
0958 095d       | ]  |		.CONST	0x095d								; Address of begin
0959 095f       | _  |		.CONST	0x095f								; Address of exception handler
095a 0002       |    |		.CONST	0x0002								; Number of locals
095b			INIT_0958:
095b 029f 0dab  |    |		Declare_Subprogram	INIT_0da8,For_Call
095d			BODY_0958:
095d 8402       |    |		Call	0x2,0x2
095e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
095f			TRAP_0958:
095f 0007       |    |		Action	Break_Optional
0960 4800       |H   |		Short_Literal	0x0
0961 4801       |H   |		Short_Literal	0x1
0962 0092 12f2  |    |		Action	Push_String_Extended,0x12f2					; "Exception in ap_print_screen"
0964 e009       |    |		Load	0x0,0x9
0965 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0966 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0967 0000       |    |		.XXX[0x1]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 096b       | k  |		.CONST	0x096b								; Address of begin
0969 09f2       |    |		.CONST	0x09f2								; Address of exception handler
096a 0001       |    |		.CONST	0x0001								; Number of locals
096b			BODY_0968:
096b			INIT_0968:
096b e245       | E  |		Load	0x1,0x45
096c e5ff       |    |		Load	0x2,-0x1
096d 01d5       |    |		Execute	Vector,Field_Reference
096e 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
096f 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0970 4801       |H   |		Short_Literal	0x1
0971 480a       |H   |		Short_Literal	0xa
0972 e245       | E  |		Load	0x1,0x45
0973 e5ff       |    |		Load	0x2,-0x1
0974 01d5       |    |		Execute	Vector,Field_Reference
0975 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0976 01cf       |    |		Execute	Vector,Slice_Read
0977 4801       |H   |		Short_Literal	0x1
0978 480a       |H   |		Short_Literal	0xa
0979 e220       |    |		Load	0x1,0x20
097a 01cf       |    |		Execute	Vector,Slice_Read
097b 01de       |    |		Execute	Vector,Not_Equal
097c 0279       | y  |		Execute	Discrete,And
097d 680e       |h   |		Jump_Zero	0x98c
097e 4800       |H   |		Short_Literal	0x0
097f 4801       |H   |		Short_Literal	0x1
0980 4801       |H   |		Short_Literal	0x1
0981 e245       | E  |		Load	0x1,0x45
0982 e5ff       |    |		Load	0x2,-0x1
0983 01d5       |    |		Execute	Vector,Field_Reference
0984 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0985 e245       | E  |		Load	0x1,0x45
0986 e5ff       |    |		Load	0x2,-0x1
0987 01d5       |    |		Execute	Vector,Field_Reference
0988 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0989 01cf       |    |		Execute	Vector,Slice_Read
098a e009       |    |		Load	0x0,0x9
098b 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
098c e246       | F  |		Load	0x1,0x46
098d e5ff       |    |		Load	0x2,-0x1
098e 01d5       |    |		Execute	Vector,Field_Reference
098f 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0990 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0991 4801       |H   |		Short_Literal	0x1
0992 480a       |H   |		Short_Literal	0xa
0993 e246       | F  |		Load	0x1,0x46
0994 e5ff       |    |		Load	0x2,-0x1
0995 01d5       |    |		Execute	Vector,Field_Reference
0996 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0997 01cf       |    |		Execute	Vector,Slice_Read
0998 4801       |H   |		Short_Literal	0x1
0999 480a       |H   |		Short_Literal	0xa
099a e220       |    |		Load	0x1,0x20
099b 01cf       |    |		Execute	Vector,Slice_Read
099c 01de       |    |		Execute	Vector,Not_Equal
099d 0279       | y  |		Execute	Discrete,And
099e 680e       |h   |		Jump_Zero	0x9ad
099f 4800       |H   |		Short_Literal	0x0
09a0 4802       |H   |		Short_Literal	0x2
09a1 4801       |H   |		Short_Literal	0x1
09a2 e246       | F  |		Load	0x1,0x46
09a3 e5ff       |    |		Load	0x2,-0x1
09a4 01d5       |    |		Execute	Vector,Field_Reference
09a5 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
09a6 e246       | F  |		Load	0x1,0x46
09a7 e5ff       |    |		Load	0x2,-0x1
09a8 01d5       |    |		Execute	Vector,Field_Reference
09a9 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
09aa 01cf       |    |		Execute	Vector,Slice_Read
09ab e009       |    |		Load	0x0,0x9
09ac 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09ad e247       | G  |		Load	0x1,0x47
09ae e5ff       |    |		Load	0x2,-0x1
09af 01d5       |    |		Execute	Vector,Field_Reference
09b0 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
09b1 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
09b2 4801       |H   |		Short_Literal	0x1
09b3 480a       |H   |		Short_Literal	0xa
09b4 e247       | G  |		Load	0x1,0x47
09b5 e5ff       |    |		Load	0x2,-0x1
09b6 01d5       |    |		Execute	Vector,Field_Reference
09b7 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
09b8 01cf       |    |		Execute	Vector,Slice_Read
09b9 4801       |H   |		Short_Literal	0x1
09ba 480a       |H   |		Short_Literal	0xa
09bb e220       |    |		Load	0x1,0x20
09bc 01cf       |    |		Execute	Vector,Slice_Read
09bd 01de       |    |		Execute	Vector,Not_Equal
09be 0279       | y  |		Execute	Discrete,And
09bf 680e       |h   |		Jump_Zero	0x9ce
09c0 4800       |H   |		Short_Literal	0x0
09c1 4803       |H   |		Short_Literal	0x3
09c2 4801       |H   |		Short_Literal	0x1
09c3 e247       | G  |		Load	0x1,0x47
09c4 e5ff       |    |		Load	0x2,-0x1
09c5 01d5       |    |		Execute	Vector,Field_Reference
09c6 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
09c7 e247       | G  |		Load	0x1,0x47
09c8 e5ff       |    |		Load	0x2,-0x1
09c9 01d5       |    |		Execute	Vector,Field_Reference
09ca 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
09cb 01cf       |    |		Execute	Vector,Slice_Read
09cc e009       |    |		Load	0x0,0x9
09cd 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09ce e248       | H  |		Load	0x1,0x48
09cf e5ff       |    |		Load	0x2,-0x1
09d0 01d5       |    |		Execute	Vector,Field_Reference
09d1 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
09d2 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
09d3 4801       |H   |		Short_Literal	0x1
09d4 480a       |H   |		Short_Literal	0xa
09d5 e248       | H  |		Load	0x1,0x48
09d6 e5ff       |    |		Load	0x2,-0x1
09d7 01d5       |    |		Execute	Vector,Field_Reference
09d8 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
09d9 01cf       |    |		Execute	Vector,Slice_Read
09da 4801       |H   |		Short_Literal	0x1
09db 480a       |H   |		Short_Literal	0xa
09dc e220       |    |		Load	0x1,0x20
09dd 01cf       |    |		Execute	Vector,Slice_Read
09de 01de       |    |		Execute	Vector,Not_Equal
09df 0279       | y  |		Execute	Discrete,And
09e0 680e       |h   |		Jump_Zero	0x9ef
09e1 4800       |H   |		Short_Literal	0x0
09e2 4804       |H   |		Short_Literal	0x4
09e3 4801       |H   |		Short_Literal	0x1
09e4 e248       | H  |		Load	0x1,0x48
09e5 e5ff       |    |		Load	0x2,-0x1
09e6 01d5       |    |		Execute	Vector,Field_Reference
09e7 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
09e8 e248       | H  |		Load	0x1,0x48
09e9 e5ff       |    |		Load	0x2,-0x1
09ea 01d5       |    |		Execute	Vector,Field_Reference
09eb 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
09ec 01cf       |    |		Execute	Vector,Slice_Read
09ed e009       |    |		Load	0x0,0x9
09ee 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09ef e009       |    |		Load	0x0,0x9
09f0 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
09f1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09f2			TRAP_0968:
09f2 0007       |    |		Action	Break_Optional
09f3 4800       |H   |		Short_Literal	0x0
09f4 4801       |H   |		Short_Literal	0x1
09f5 0092 12f3  |    |		Action	Push_String_Extended,0x12f3					; "Exception in ap_display_menu_error_message"
09f7 e009       |    |		Load	0x0,0x9
09f8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09f9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
09fa 0000 0000  |    |		.BLANK	0000[0x6]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a03       |    |		.CONST	0x0a03								; Address of begin
0a01 0a38       | 8  |		.CONST	0x0a38								; Address of exception handler
0a02 0001       |    |		.CONST	0x0001								; Number of locals
0a03			BODY_0a00:
0a03			INIT_0a00:
0a03 e5fe       |    |		Load	0x2,-0x2
0a04 e5ff       |    |		Load	0x2,-0x1
0a05 01d5       |    |		Execute	Vector,Field_Reference
0a06 e253       | S  |		Load	0x1,0x53
0a07 017d       | }  |		Execute	Record,Structure_Write
0a08 e253       | S  |		Load	0x1,0x53
0a09 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a0a 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0a0b e253       | S  |		Load	0x1,0x53
0a0c 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0a0d 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0a0e e253       | S  |		Load	0x1,0x53
0a0f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0a10 0f00       |    |		Execute_Immediate	Equal,0x0
0a11 e5fe       |    |		Load	0x2,-0x2
0a12 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0a13 0279       | y  |		Execute	Discrete,And
0a14 0279       | y  |		Execute	Discrete,And
0a15 0279       | y  |		Execute	Discrete,And
0a16 680f       |h   |		Jump_Zero	0xa26
0a17 e5fe       |    |		Load	0x2,-0x2
0a18 0aff       |    |		Execute_Immediate	Plus,-0x1
0a19 0248       | H  |		Execute	Discrete,Check_In_Integer
0a1a e5ff       |    |		Load	0x2,-0x1
0a1b 01d5       |    |		Execute	Vector,Field_Reference
0a1c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0a1d e5fe       |    |		Load	0x2,-0x2
0a1e 0aff       |    |		Execute_Immediate	Plus,-0x1
0a1f 0248       | H  |		Execute	Discrete,Check_In_Integer
0a20 e5ff       |    |		Load	0x2,-0x1
0a21 01d5       |    |		Execute	Vector,Field_Reference
0a22 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0a23 0273       | s  |		Execute	Discrete,Plus
0a24 e253       | S  |		Load	0x1,0x53
0a25 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a26 e5fe       |    |		Load	0x2,-0x2
0a27 e243       | C  |		Load	0x1,0x43
0a28 027e       | ~  |		Execute	Discrete,Not_Equal
0a29 6807       |h   |		Jump_Zero	0xa31
0a2a 4801       |H   |		Short_Literal	0x1
0a2b e5fc       |    |		Load	0x2,-0x4
0a2c e5fd       |    |		Load	0x2,-0x3
0a2d e5fe       |    |		Load	0x2,-0x2
0a2e e253       | S  |		Load	0x1,0x53
0a2f 82aa       |    |		Call	0x1,0xaa
0a30 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0a31 4800       |H   |		Short_Literal	0x0
0a32 e5fc       |    |		Load	0x2,-0x4
0a33 e5fd       |    |		Load	0x2,-0x3
0a34 e5fe       |    |		Load	0x2,-0x2
0a35 e253       | S  |		Load	0x1,0x53
0a36 82aa       |    |		Call	0x1,0xaa
0a37 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0a38			TRAP_0a00:
0a38 0007       |    |		Action	Break_Optional
0a39 4800       |H   |		Short_Literal	0x0
0a3a 4801       |H   |		Short_Literal	0x1
0a3b 0092 12f4  |    |		Action	Push_String_Extended,0x12f4					; "Exception in ap_display_field."
0a3d e009       |    |		Load	0x0,0x9
0a3e 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0a3f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a45       | E  |		.CONST	0x0a45								; Address of begin
0a41 0a47       | G  |		.CONST	0x0a47								; Address of exception handler
0a42 0002       |    |		.CONST	0x0002								; Number of locals
0a43			INIT_0a40:
0a43 029f 0deb  |    |		Declare_Subprogram	INIT_0de8,For_Call
0a45			BODY_0a40:
0a45 8402       |    |		Call	0x2,0x2
0a46 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0a47			TRAP_0a40:
0a47 0007       |    |		Action	Break_Optional
0a48 4800       |H   |		Short_Literal	0x0
0a49 4801       |H   |		Short_Literal	0x1
0a4a 0092 12f5  |    |		Action	Push_String_Extended,0x12f5					; "Exception in ap_display_item."
0a4c e009       |    |		Load	0x0,0x9
0a4d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0a4e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0a4f 0000       |    |		.XXX[0x1]
0a50 ; --------------------------------------------------------------------------------------
0a50 ; SUBPROGRAM
0a50 ; --------------------------------------------------------------------------------------
0a50 0a55       | U  |		.CONST	0x0a55								; Address of begin
0a51 0004       |    |		.CONST	0x0004								; Address of exception handler
0a52 0002       |    |		.CONST	0x0002								; Number of locals
0a53			INIT_0a50:
0a53 029f 0e33  |   3|		Declare_Subprogram	INIT_0e30,For_Call
0a55			BODY_0a50:
0a55 00cf       |    |		Action	Mark_Auxiliary
0a56 0007       |    |		Action	Break_Optional
0a57 8402       |    |		Call	0x2,0x2
0a58 00c9       |    |		Action	Pop_Auxiliary_Loop
0a59 7ffd       |    |		Jump	0xa57
0a5a 0000 0000  |    |		.BLANK	0000[0x6]
0a60 ; --------------------------------------------------------------------------------------
0a60 ; SUBPROGRAM
0a60 ; --------------------------------------------------------------------------------------
0a60 0a65       | e  |		.CONST	0x0a65								; Address of begin
0a61 0004       |    |		.CONST	0x0004								; Address of exception handler
0a62 0002       |    |		.CONST	0x0002								; Number of locals
0a63			INIT_0a60:
0a63 029f 0fdb  |    |		Declare_Subprogram	INIT_0fd8,For_Call
0a65			BODY_0a60:
0a65 8402       |    |		Call	0x2,0x2
0a66 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a67 0000       |    |		.XXX[0x1]
0a68 ; --------------------------------------------------------------------------------------
0a68 ; SUBPROGRAM
0a68 ; --------------------------------------------------------------------------------------
0a68 0a6b       | k  |		.CONST	0x0a6b								; Address of begin
0a69 0004       |    |		.CONST	0x0004								; Address of exception handler
0a6a 0001       |    |		.CONST	0x0001								; Number of locals
0a6b			BODY_0a68:
0a6b			INIT_0a68:
0a6b e5fc       |    |		Load	0x2,-0x4
0a6c e5fd       |    |		Load	0x2,-0x3
0a6d 4801       |H   |		Short_Literal	0x1
0a6e e009       |    |		Load	0x0,0x9
0a6f 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0a70 00d1       |    |		Pop_Control	Pop_Count_1
0a71 c5fc       |    |		Store	0x2,-0x4
0a72 e5fc       |    |		Load	0x2,-0x4
0a73 0aff       |    |		Execute_Immediate	Plus,-0x1
0a74 0248       | H  |		Execute	Discrete,Check_In_Integer
0a75 a5fc       |    |		Store_Unchecked	0x2,-0x4
0a76 e5fc       |    |		Load	0x2,-0x4
0a77 e241       | A  |		Load	0x1,0x41
0a78 e23f       | ?  |		Load	0x1,0x3f
0a79 e5ff       |    |		Load	0x2,-0x1
0a7a 0272       | r  |		Execute	Discrete,Minus
0a7b 0272       | r  |		Execute	Discrete,Minus
0a7c 0248       | H  |		Execute	Discrete,Check_In_Integer
0a7d e5fe       |    |		Load	0x2,-0x2
0a7e 01d5       |    |		Execute	Vector,Field_Reference
0a7f 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0a80 e5fd       |    |		Load	0x2,-0x3
0a81 e241       | A  |		Load	0x1,0x41
0a82 e23f       | ?  |		Load	0x1,0x3f
0a83 e5ff       |    |		Load	0x2,-0x1
0a84 0272       | r  |		Execute	Discrete,Minus
0a85 0272       | r  |		Execute	Discrete,Minus
0a86 0248       | H  |		Execute	Discrete,Check_In_Integer
0a87 e5fe       |    |		Load	0x2,-0x2
0a88 01d5       |    |		Execute	Vector,Field_Reference
0a89 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0a8a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0a8b 0000 0000  |    |		.BLANK	0000[0x5]
0a90 ; --------------------------------------------------------------------------------------
0a90 ; SUBPROGRAM
0a90 ; --------------------------------------------------------------------------------------
0a90 0a95       |    |		.CONST	0x0a95								; Address of begin
0a91 0004       |    |		.CONST	0x0004								; Address of exception handler
0a92 0002       |    |		.CONST	0x0002								; Number of locals
0a93			INIT_0a90:
0a93 029f 10d3  |    |		Declare_Subprogram	INIT_10d0,For_Call
0a95			BODY_0a90:
0a95 8402       |    |		Call	0x2,0x2
0a96 450a       |E   |		Exit_Suprogram	New_Top_Offset 0xa
0a97 0000       |    |		.XXX[0x1]
0a98 ; --------------------------------------------------------------------------------------
0a98 ; SUBPROGRAM
0a98 ; --------------------------------------------------------------------------------------
0a98 0a9b       |    |		.CONST	0x0a9b								; Address of begin
0a99 0aaa       |    |		.CONST	0x0aaa								; Address of exception handler
0a9a 0001       |    |		.CONST	0x0001								; Number of locals
0a9b			BODY_0a98:
0a9b			INIT_0a98:
0a9b e5ff       |    |		Load	0x2,-0x1
0a9c e279       | y  |		Load	0x1,0x79
0a9d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0a9e e5fe       |    |		Load	0x2,-0x2
0a9f e279       | y  |		Load	0x1,0x79
0aa0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0aa1 e5ff       |    |		Load	0x2,-0x1
0aa2 e27a       | z  |		Load	0x1,0x7a
0aa3 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0aa4 025b       | [  |		Execute	Discrete,Check_In_Type
0aa5 e279       | y  |		Load	0x1,0x79
0aa6 e27c       | |  |		Load	0x1,0x7c
0aa7 e27a       | z  |		Load	0x1,0x7a
0aa8 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0aa9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0aaa			TRAP_0a98:
0aaa 0007       |    |		Action	Break_Optional
0aab 4801       |H   |		Short_Literal	0x1
0aac 4804       |H   |		Short_Literal	0x4
0aad 0092 12f6  |    |		Action	Push_String_Extended,0x12f6					; "Exception in ap_write_rec_params, invalid index/file err.: "
0aaf e009       |    |		Load	0x0,0x9
0ab0 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0ab1 00d8       |    |		Load_Top	At_Offset_0
0ab2 0101       |    |		Execute	Exception,Reraise
0ab3 0000 0000  |    |		.BLANK	0000[0x5]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; SUBPROGRAM
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0abc       |    |		.CONST	0x0abc								; Address of begin
0ab9 0ad4       |    |		.CONST	0x0ad4								; Address of exception handler
0aba 0001       |    |		.CONST	0x0001								; Number of locals
0abb			INIT_0ab8:
0abb 0007       |    |		Action	Break_Optional
0abc			BODY_0ab8:
0abc e278       | x  |		Load	0x1,0x78
0abd e5ff       |    |		Load	0x2,-0x1
0abe e27a       | z  |		Load	0x1,0x7a
0abf 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0ac0 025b       | [  |		Execute	Discrete,Check_In_Type
0ac1 e27c       | |  |		Load	0x1,0x7c
0ac2 e27a       | z  |		Load	0x1,0x7a
0ac3 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0ac4 00d1       |    |		Pop_Control	Pop_Count_1
0ac5 e5ff       |    |		Load	0x2,-0x1
0ac6 e278       | x  |		Load	0x1,0x78
0ac7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0ac8 027e       | ~  |		Execute	Discrete,Not_Equal
0ac9 6802       |h   |		Jump_Zero	0xacc
0aca e00a       |    |		Load	0x0,0xa
0acb 0257       | W  |		Execute	Discrete,Raise
0acc e278       | x  |		Load	0x1,0x78
0acd e279       | y  |		Load	0x1,0x79
0ace 017d       | }  |		Execute	Record,Structure_Write
0acf e279       | y  |		Load	0x1,0x79
0ad0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0ad1 e5fe       |    |		Load	0x2,-0x2
0ad2 01d4       |    |		Execute	Vector,Structure_Write
0ad3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0ad4			TRAP_0ab8:
0ad4 0007       |    |		Action	Break_Optional
0ad5 4801       |H   |		Short_Literal	0x1
0ad6 4804       |H   |		Short_Literal	0x4
0ad7 0092 12f7  |    |		Action	Push_String_Extended,0x12f7					; "Exception in ap_read_rec_params, invalid index/file err.: "
0ad9 e009       |    |		Load	0x0,0x9
0ada 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0adb 00d8       |    |		Load_Top	At_Offset_0
0adc 0101       |    |		Execute	Exception,Reraise
0add 0000 0000  |    |		.XXX[0x3]
0adf 0000       |    |
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae4       |    |		.CONST	0x0ae4								; Address of begin
0ae1 0b16       |    |		.CONST	0x0b16								; Address of exception handler
0ae2 0001       |    |		.CONST	0x0001								; Number of locals
0ae3			INIT_0ae0:
0ae3 0007       |    |		Action	Break_Optional
0ae4			BODY_0ae0:
0ae4 e272       | r  |		Load	0x1,0x72
0ae5 0f01       |    |		Execute_Immediate	Equal,0x1
0ae6 6803       |h   |		Jump_Zero	0xaea
0ae7 0092 12f8  |    |		Action	Push_String_Extended,0x12f8					; "1.Before read in ap_read_master"
0ae9 829e       |    |		Call	0x1,0x9e
0aea e265       | e  |		Load	0x1,0x65
0aeb e5fe       |    |		Load	0x2,-0x2
0aec e275       | u  |		Load	0x1,0x75
0aed 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0aee 025b       | [  |		Execute	Discrete,Check_In_Type
0aef e5fd       |    |		Load	0x2,-0x3
0af0 3c22       |<"  |		Execute	Record,Field_Read,Field_Number 0x22
0af1 e275       | u  |		Load	0x1,0x75
0af2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0af3 00d1       |    |		Pop_Control	Pop_Count_1
0af4 e5fe       |    |		Load	0x2,-0x2
0af5 e265       | e  |		Load	0x1,0x65
0af6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0af7 027e       | ~  |		Execute	Discrete,Not_Equal
0af8 6802       |h   |		Jump_Zero	0xafb
0af9 e00b       |    |		Load	0x0,0xb
0afa 0257       | W  |		Execute	Discrete,Raise
0afb 0007       |    |		Action	Break_Optional
0afc e265       | e  |		Load	0x1,0x65
0afd e5fd       |    |		Load	0x2,-0x3
0afe 3824       |8$  |		Execute	Record,Field_Write,Field_Number 0x24
0aff e5fe       |    |		Load	0x2,-0x2
0b00 e5fd       |    |		Load	0x2,-0x3
0b01 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
0b02 027f       |    |		Execute	Discrete,Equal
0b03 6804       |h   |		Jump_Zero	0xb08
0b04 e5fe       |    |		Load	0x2,-0x2
0b05 e5fd       |    |		Load	0x2,-0x3
0b06 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0b07 7807       |x   |		Jump	0xb0f
0b08 e5fd       |    |		Load	0x2,-0x3
0b09 3c11       |<   |		Execute	Record,Field_Read,Field_Number 0x11
0b0a e5fd       |    |		Load	0x2,-0x3
0b0b 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
0b0c e5fe       |    |		Load	0x2,-0x2
0b0d e5fd       |    |		Load	0x2,-0x3
0b0e 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
0b0f e272       | r  |		Load	0x1,0x72
0b10 0f01       |    |		Execute_Immediate	Equal,0x1
0b11 6803       |h   |		Jump_Zero	0xb15
0b12 0092 12f9  |    |		Action	Push_String_Extended,0x12f9					; "5.After update keys in ap_read_master. end."
0b14 829e       |    |		Call	0x1,0x9e
0b15 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b16			TRAP_0ae0:
0b16 0007       |    |		Action	Break_Optional
0b17 0092 12fa  |    |		Action	Push_String_Extended,0x12fa					; "rd er"
0b19 e5fd       |    |		Load	0x2,-0x3
0b1a 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
0b1b e272       | r  |		Load	0x1,0x72
0b1c 0f01       |    |		Execute_Immediate	Equal,0x1
0b1d 6803       |h   |		Jump_Zero	0xb21
0b1e 0092 12fb  |    |		Action	Push_String_Extended,0x12fb					; "6.After got except,end in ap_read_master"
0b20 829e       |    |		Call	0x1,0x9e
0b21 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b22 0000 0000  |    |		.BLANK	0000[0x6]
0b28 ; --------------------------------------------------------------------------------------
0b28 ; SUBPROGRAM
0b28 ; --------------------------------------------------------------------------------------
0b28 0b2d       | -  |		.CONST	0x0b2d								; Address of begin
0b29 0004       |    |		.CONST	0x0004								; Address of exception handler
0b2a 0002       |    |		.CONST	0x0002								; Number of locals
0b2b			INIT_0b28:
0b2b 00e2       |    |		Load_Encached	Integer_Cache
0b2c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0b2d			BODY_0b28:
0b2d 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
0b2f e5fd       |    |		Load	0x2,-0x3
0b30 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
0b31 e5fd       |    |		Load	0x2,-0x3
0b32 e27f       |    |		Load	0x1,0x7f
0b33 e5ff       |    |		Load	0x2,-0x1
0b34 8298       |    |		Call	0x1,0x98
0b35 00d1       |    |		Pop_Control	Pop_Count_1
0b36 4800       |H   |		Short_Literal	0x0
0b37 a602       |    |		Store_Unchecked	0x3,0x2
0b38 e5fd       |    |		Load	0x2,-0x3
0b39 3423       |4#  |		Execute	Record,Field_Reference,Field_Number 0x23
0b3a 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
0b3c 01df       |    |		Execute	Vector,Equal
0b3d 682a       |h*  |		Jump_Zero	0xb68
0b3e e5fd       |    |		Load	0x2,-0x3
0b3f 3c22       |<"  |		Execute	Record,Field_Read,Field_Number 0x22
0b40 e275       | u  |		Load	0x1,0x75
0b41 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0b42 a602       |    |		Store_Unchecked	0x3,0x2
0b43 00d8       |    |		Load_Top	At_Offset_0
0b44 e5fd       |    |		Load	0x2,-0x3
0b45 3826       |8&  |		Execute	Record,Field_Write,Field_Number 0x26
0b46 e5fe       |    |		Load	0x2,-0x2
0b47 0f01       |    |		Execute_Immediate	Equal,0x1
0b48 681f       |h   |		Jump_Zero	0xb68
0b49 00cf       |    |		Action	Mark_Auxiliary
0b4a 0007       |    |		Action	Break_Optional
0b4b e602       |    |		Load	0x3,0x2
0b4c 7001       |p   |		Jump_Nonzero	0xb4e
0b4d 7819       |x   |		Jump	0xb67
0b4e 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
0b50 e5fd       |    |		Load	0x2,-0x3
0b51 3823       |8#  |		Execute	Record,Field_Write,Field_Number 0x23
0b52 e5fd       |    |		Load	0x2,-0x3
0b53 e602       |    |		Load	0x3,0x2
0b54 e5ff       |    |		Load	0x2,-0x1
0b55 829c       |    |		Call	0x1,0x9c
0b56 00d1       |    |		Pop_Control	Pop_Count_1
0b57 e5fd       |    |		Load	0x2,-0x3
0b58 3423       |4#  |		Execute	Record,Field_Reference,Field_Number 0x23
0b59 0092 12e4  |    |		Action	Push_String_Extended,0x12e4					; "ok   "
0b5b 01df       |    |		Execute	Vector,Equal
0b5c 6801       |h   |		Jump_Zero	0xb5e
0b5d 7809       |x   |		Jump	0xb67
0b5e e602       |    |		Load	0x3,0x2
0b5f 0aff       |    |		Execute_Immediate	Plus,-0x1
0b60 0248       | H  |		Execute	Discrete,Check_In_Integer
0b61 a602       |    |		Store_Unchecked	0x3,0x2
0b62 e602       |    |		Load	0x3,0x2
0b63 e5fd       |    |		Load	0x2,-0x3
0b64 3826       |8&  |		Execute	Record,Field_Write,Field_Number 0x26
0b65 00c9       |    |		Action	Pop_Auxiliary_Loop
0b66 7fe4       |    |		Jump	0xb4b
0b67 00ce       |    |		Action	Pop_Auxiliary
0b68 e5fd       |    |		Load	0x2,-0x3
0b69 e5ff       |    |		Load	0x2,-0x1
0b6a 8299       |    |		Call	0x1,0x99
0b6b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b6c 0000 0000  |    |		.BLANK	0000[0x4]
0b70 ; --------------------------------------------------------------------------------------
0b70 ; SUBPROGRAM
0b70 ; --------------------------------------------------------------------------------------
0b70 0b74       | t  |		.CONST	0x0b74								; Address of begin
0b71 0cd0       |    |		.CONST	0x0cd0								; Address of exception handler
0b72 0002       |    |		.CONST	0x0002								; Number of locals
0b73			INIT_0b70:
0b73 00e2       |    |		Load_Encached	Integer_Cache
0b74			BODY_0b70:
0b74 4801       |H   |		Short_Literal	0x1
0b75 e251       | Q  |		Load	0x1,0x51
0b76 e254       | T  |		Load	0x1,0x54
0b77 0334       | 4  |		Declare_Variable	Array,With_Constraint
0b78 00d8       |    |		Load_Top	At_Offset_0
0b79 01dc       |    |		Execute	Vector,Last
0b7a 4801       |H   |		Short_Literal	0x1
0b7b 0263       | c  |		Execute	Discrete,Above_Bound
0b7c 7021       |p!  |		Jump_Nonzero	0xb9e
0b7d e2b4       |    |		Load	0x1,0xb4
0b7e 0322       | "  |		Declare_Variable	Record
0b7f 4800       |H   |		Short_Literal	0x0
0b80 e606       |    |		Load	0x3,0x6
0b81 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0b82 4800       |H   |		Short_Literal	0x0
0b83 e606       |    |		Load	0x3,0x6
0b84 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0b85 4801       |H   |		Short_Literal	0x1
0b86 e606       |    |		Load	0x3,0x6
0b87 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0b88 4801       |H   |		Short_Literal	0x1
0b89 e606       |    |		Load	0x3,0x6
0b8a 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0b8b 4800       |H   |		Short_Literal	0x0
0b8c e606       |    |		Load	0x3,0x6
0b8d 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0b8e 4801       |H   |		Short_Literal	0x1
0b8f e606       |    |		Load	0x3,0x6
0b90 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0b91 e220       |    |		Load	0x1,0x20
0b92 e2b4       |    |		Load	0x1,0xb4
0b93 3006       |0   |		Execute	Record,Field_Type,Field_Number 0x6
0b94 0119       |    |		Execute	Any,Check_In_Formal_Type
0b95 e606       |    |		Load	0x3,0x6
0b96 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0b97 4800       |H   |		Short_Literal	0x0
0b98 e606       |    |		Load	0x3,0x6
0b99 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0b9a e605       |    |		Load	0x3,0x5
0b9b e603       |    |		Load	0x3,0x3
0b9c 01d6       |    |		Execute	Vector,Field_Write
0b9d 3fdf       |?   |		Loop_Increasing	0xb7d
0b9e e254       | T  |		Load	0x1,0x54
0b9f 01c3       |    |		Execute	Vector,Check_In_Type
0ba0 4801       |H   |		Short_Literal	0x1
0ba1 e251       | Q  |		Load	0x1,0x51
0ba2 e5ff       |    |		Load	0x2,-0x1
0ba3 01ce       |    |		Execute	Vector,Slice_Write
0ba4 e5ff       |    |		Load	0x2,-0x1
0ba5 4be7       |K   |		Short_Literal	0x3e7
0ba6 4801       |H   |		Short_Literal	0x1
0ba7 4800       |H   |		Short_Literal	0x0
0ba8 4800       |H   |		Short_Literal	0x0
0ba9 4800       |H   |		Short_Literal	0x0
0baa 4801       |H   |		Short_Literal	0x1
0bab 4801       |H   |		Short_Literal	0x1
0bac e220       |    |		Load	0x1,0x20
0bad e23e       | >  |		Load	0x1,0x3e
0bae 82a2       |    |		Call	0x1,0xa2
0baf 00d1       |    |		Pop_Control	Pop_Count_1
0bb0 0007       |    |		Action	Break_Optional
0bb1 4801       |H   |		Short_Literal	0x1
0bb2 a602       |    |		Store_Unchecked	0x3,0x2
0bb3 00cf       |    |		Action	Mark_Auxiliary
0bb4 4815       |H   |		Short_Literal	0x15
0bb5 4802       |H   |		Short_Literal	0x2
0bb6 0007       |    |		Action	Break_Optional
0bb7 e602       |    |		Load	0x3,0x2
0bb8 0a01       |    |		Execute_Immediate	Plus,0x1
0bb9 0248       | H  |		Execute	Discrete,Check_In_Integer
0bba a602       |    |		Store_Unchecked	0x3,0x2
0bbb e602       |    |		Load	0x3,0x2
0bbc 0a01       |    |		Execute_Immediate	Plus,0x1
0bbd e602       |    |		Load	0x3,0x2
0bbe e5ff       |    |		Load	0x2,-0x1
0bbf 01d5       |    |		Execute	Vector,Field_Reference
0bc0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0bc1 4801       |H   |		Short_Literal	0x1
0bc2 e602       |    |		Load	0x3,0x2
0bc3 e5ff       |    |		Load	0x2,-0x1
0bc4 01d5       |    |		Execute	Vector,Field_Reference
0bc5 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0bc6 00c8       |    |		Action	Pop_Auxiliary_Range
0bc7 3fef       |?   |		Loop_Increasing	0xbb7
0bc8 00ce       |    |		Action	Pop_Auxiliary
0bc9 4815       |H   |		Short_Literal	0x15
0bca a602       |    |		Store_Unchecked	0x3,0x2
0bcb 00cf       |    |		Action	Mark_Auxiliary
0bcc 4829       |H)  |		Short_Literal	0x29
0bcd 4816       |H   |		Short_Literal	0x16
0bce 0007       |    |		Action	Break_Optional
0bcf e602       |    |		Load	0x3,0x2
0bd0 0a01       |    |		Execute_Immediate	Plus,0x1
0bd1 0248       | H  |		Execute	Discrete,Check_In_Integer
0bd2 a602       |    |		Store_Unchecked	0x3,0x2
0bd3 e602       |    |		Load	0x3,0x2
0bd4 0a01       |    |		Execute_Immediate	Plus,0x1
0bd5 0248       | H  |		Execute	Discrete,Check_In_Integer
0bd6 0aec       |    |		Execute_Immediate	Plus,-0x14
0bd7 e602       |    |		Load	0x3,0x2
0bd8 e5ff       |    |		Load	0x2,-0x1
0bd9 01d5       |    |		Execute	Vector,Field_Reference
0bda 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0bdb 4828       |H(  |		Short_Literal	0x28
0bdc e602       |    |		Load	0x3,0x2
0bdd e5ff       |    |		Load	0x2,-0x1
0bde 01d5       |    |		Execute	Vector,Field_Reference
0bdf 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0be0 00c8       |    |		Action	Pop_Auxiliary_Range
0be1 3fed       |?   |		Loop_Increasing	0xbcf
0be2 00ce       |    |		Action	Pop_Auxiliary
0be3 e5ff       |    |		Load	0x2,-0x1
0be4 4be7       |K   |		Short_Literal	0x3e7
0be5 4802       |H   |		Short_Literal	0x2
0be6 4be7       |K   |		Short_Literal	0x3e7
0be7 4801       |H   |		Short_Literal	0x1
0be8 4801       |H   |		Short_Literal	0x1
0be9 4801       |H   |		Short_Literal	0x1
0bea 4800       |H   |		Short_Literal	0x0
0beb e220       |    |		Load	0x1,0x20
0bec e23f       | ?  |		Load	0x1,0x3f
0bed 82a2       |    |		Call	0x1,0xa2
0bee 00d1       |    |		Pop_Control	Pop_Count_1
0bef e5ff       |    |		Load	0x2,-0x1
0bf0 4be7       |K   |		Short_Literal	0x3e7
0bf1 4802       |H   |		Short_Literal	0x2
0bf2 4be7       |K   |		Short_Literal	0x3e7
0bf3 4801       |H   |		Short_Literal	0x1
0bf4 4801       |H   |		Short_Literal	0x1
0bf5 4800       |H   |		Short_Literal	0x0
0bf6 4800       |H   |		Short_Literal	0x0
0bf7 0092 12fc  |    |		Action	Push_String_Extended,0x12fc					; "1 "
0bf9 e241       | A  |		Load	0x1,0x41
0bfa 82a2       |    |		Call	0x1,0xa2
0bfb 00d1       |    |		Pop_Control	Pop_Count_1
0bfc e5ff       |    |		Load	0x2,-0x1
0bfd 4be7       |K   |		Short_Literal	0x3e7
0bfe 4802       |H   |		Short_Literal	0x2
0bff 4be7       |K   |		Short_Literal	0x3e7
0c00 4801       |H   |		Short_Literal	0x1
0c01 4800       |H   |		Short_Literal	0x0
0c02 4801       |H   |		Short_Literal	0x1
0c03 e009       |    |		Load	0x0,0x9
0c04 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0c05 e220       |    |		Load	0x1,0x20
0c06 e242       | B  |		Load	0x1,0x42
0c07 82a2       |    |		Call	0x1,0xa2
0c08 00d1       |    |		Pop_Control	Pop_Count_1
0c09 e5ff       |    |		Load	0x2,-0x1
0c0a 4be7       |K   |		Short_Literal	0x3e7
0c0b 4802       |H   |		Short_Literal	0x2
0c0c 4be7       |K   |		Short_Literal	0x3e7
0c0d 4801       |H   |		Short_Literal	0x1
0c0e 4801       |H   |		Short_Literal	0x1
0c0f 4801       |H   |		Short_Literal	0x1
0c10 e009       |    |		Load	0x0,0x9
0c11 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0c12 e220       |    |		Load	0x1,0x20
0c13 e240       | @  |		Load	0x1,0x40
0c14 82a2       |    |		Call	0x1,0xa2
0c15 00d1       |    |		Pop_Control	Pop_Count_1
0c16 e5ff       |    |		Load	0x2,-0x1
0c17 4be7       |K   |		Short_Literal	0x3e7
0c18 4802       |H   |		Short_Literal	0x2
0c19 4be7       |K   |		Short_Literal	0x3e7
0c1a 4801       |H   |		Short_Literal	0x1
0c1b 4801       |H   |		Short_Literal	0x1
0c1c 4800       |H   |		Short_Literal	0x0
0c1d e009       |    |		Load	0x0,0x9
0c1e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0c1f 0092 12fc  |    |		Action	Push_String_Extended,0x12fc					; "1 "
0c21 e243       | C  |		Load	0x1,0x43
0c22 82a2       |    |		Call	0x1,0xa2
0c23 00d1       |    |		Pop_Control	Pop_Count_1
0c24 e5ff       |    |		Load	0x2,-0x1
0c25 4be7       |K   |		Short_Literal	0x3e7
0c26 4802       |H   |		Short_Literal	0x2
0c27 4be7       |K   |		Short_Literal	0x3e7
0c28 4801       |H   |		Short_Literal	0x1
0c29 4801       |H   |		Short_Literal	0x1
0c2a 4801       |H   |		Short_Literal	0x1
0c2b e009       |    |		Load	0x0,0x9
0c2c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0c2d 0a01       |    |		Execute_Immediate	Plus,0x1
0c2e 0248       | H  |		Execute	Discrete,Check_In_Integer
0c2f 4801       |H   |		Short_Literal	0x1
0c30 4828       |H(  |		Short_Literal	0x28
0c31 e220       |    |		Load	0x1,0x20
0c32 01cf       |    |		Execute	Vector,Slice_Read
0c33 e244       | D  |		Load	0x1,0x44
0c34 82a2       |    |		Call	0x1,0xa2
0c35 00d1       |    |		Pop_Control	Pop_Count_1
0c36 e5ff       |    |		Load	0x2,-0x1
0c37 4be7       |K   |		Short_Literal	0x3e7
0c38 4802       |H   |		Short_Literal	0x2
0c39 4be7       |K   |		Short_Literal	0x3e7
0c3a 4801       |H   |		Short_Literal	0x1
0c3b 4800       |H   |		Short_Literal	0x0
0c3c 4801       |H   |		Short_Literal	0x1
0c3d e009       |    |		Load	0x0,0x9
0c3e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0c3f 0a02       |    |		Execute_Immediate	Plus,0x2
0c40 0248       | H  |		Execute	Discrete,Check_In_Integer
0c41 e220       |    |		Load	0x1,0x20
0c42 e245       | E  |		Load	0x1,0x45
0c43 82a2       |    |		Call	0x1,0xa2
0c44 00d1       |    |		Pop_Control	Pop_Count_1
0c45 e5ff       |    |		Load	0x2,-0x1
0c46 4be7       |K   |		Short_Literal	0x3e7
0c47 4802       |H   |		Short_Literal	0x2
0c48 4be7       |K   |		Short_Literal	0x3e7
0c49 4801       |H   |		Short_Literal	0x1
0c4a 4801       |H   |		Short_Literal	0x1
0c4b 4801       |H   |		Short_Literal	0x1
0c4c e009       |    |		Load	0x0,0x9
0c4d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0c4e 0a01       |    |		Execute_Immediate	Plus,0x1
0c4f 0248       | H  |		Execute	Discrete,Check_In_Integer
0c50 e220       |    |		Load	0x1,0x20
0c51 e246       | F  |		Load	0x1,0x46
0c52 82a2       |    |		Call	0x1,0xa2
0c53 00d1       |    |		Pop_Control	Pop_Count_1
0c54 e5ff       |    |		Load	0x2,-0x1
0c55 4be7       |K   |		Short_Literal	0x3e7
0c56 4802       |H   |		Short_Literal	0x2
0c57 4be7       |K   |		Short_Literal	0x3e7
0c58 4801       |H   |		Short_Literal	0x1
0c59 4801       |H   |		Short_Literal	0x1
0c5a 4801       |H   |		Short_Literal	0x1
0c5b e009       |    |		Load	0x0,0x9
0c5c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0c5d 0a02       |    |		Execute_Immediate	Plus,0x2
0c5e 0248       | H  |		Execute	Discrete,Check_In_Integer
0c5f e220       |    |		Load	0x1,0x20
0c60 e247       | G  |		Load	0x1,0x47
0c61 82a2       |    |		Call	0x1,0xa2
0c62 00d1       |    |		Pop_Control	Pop_Count_1
0c63 e5ff       |    |		Load	0x2,-0x1
0c64 4be7       |K   |		Short_Literal	0x3e7
0c65 4802       |H   |		Short_Literal	0x2
0c66 4be7       |K   |		Short_Literal	0x3e7
0c67 4801       |H   |		Short_Literal	0x1
0c68 4801       |H   |		Short_Literal	0x1
0c69 4801       |H   |		Short_Literal	0x1
0c6a e009       |    |		Load	0x0,0x9
0c6b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0c6c 0a03       |    |		Execute_Immediate	Plus,0x3
0c6d 0248       | H  |		Execute	Discrete,Check_In_Integer
0c6e e220       |    |		Load	0x1,0x20
0c6f e248       | H  |		Load	0x1,0x48
0c70 82a2       |    |		Call	0x1,0xa2
0c71 00d1       |    |		Pop_Control	Pop_Count_1
0c72 0007       |    |		Action	Break_Optional
0c73 e5ff       |    |		Load	0x2,-0x1
0c74 4be7       |K   |		Short_Literal	0x3e7
0c75 4802       |H   |		Short_Literal	0x2
0c76 4be7       |K   |		Short_Literal	0x3e7
0c77 4802       |H   |		Short_Literal	0x2
0c78 4802       |H   |		Short_Literal	0x2
0c79 4be7       |K   |		Short_Literal	0x3e7
0c7a 4be7       |K   |		Short_Literal	0x3e7
0c7b 0092 12fd  |    |		Action	Push_String_Extended,0x12fd					; "  Command: (or ?):"
0c7d e242       | B  |		Load	0x1,0x42
0c7e 82a2       |    |		Call	0x1,0xa2
0c7f 00d1       |    |		Pop_Control	Pop_Count_1
0c80 e5ff       |    |		Load	0x2,-0x1
0c81 4be7       |K   |		Short_Literal	0x3e7
0c82 4802       |H   |		Short_Literal	0x2
0c83 4be7       |K   |		Short_Literal	0x3e7
0c84 4802       |H   |		Short_Literal	0x2
0c85 4802       |H   |		Short_Literal	0x2
0c86 4be7       |K   |		Short_Literal	0x3e7
0c87 4be7       |K   |		Short_Literal	0x3e7
0c88 0092 12fe  |    |		Action	Push_String_Extended,0x12fe					; "Command:"
0c8a e240       | @  |		Load	0x1,0x40
0c8b 82a2       |    |		Call	0x1,0xa2
0c8c 00d1       |    |		Pop_Control	Pop_Count_1
0c8d e5ff       |    |		Load	0x2,-0x1
0c8e 4be7       |K   |		Short_Literal	0x3e7
0c8f 4802       |H   |		Short_Literal	0x2
0c90 4be7       |K   |		Short_Literal	0x3e7
0c91 4802       |H   |		Short_Literal	0x2
0c92 4802       |H   |		Short_Literal	0x2
0c93 4be7       |K   |		Short_Literal	0x3e7
0c94 4be7       |K   |		Short_Literal	0x3e7
0c95 4801       |H   |		Short_Literal	0x1
0c96 4828       |H(  |		Short_Literal	0x28
0c97 e220       |    |		Load	0x1,0x20
0c98 01cf       |    |		Execute	Vector,Slice_Read
0c99 e244       | D  |		Load	0x1,0x44
0c9a 82a2       |    |		Call	0x1,0xa2
0c9b 00d1       |    |		Pop_Control	Pop_Count_1
0c9c e5ff       |    |		Load	0x2,-0x1
0c9d 4be7       |K   |		Short_Literal	0x3e7
0c9e 4802       |H   |		Short_Literal	0x2
0c9f 4be7       |K   |		Short_Literal	0x3e7
0ca0 4802       |H   |		Short_Literal	0x2
0ca1 4802       |H   |		Short_Literal	0x2
0ca2 4be7       |K   |		Short_Literal	0x3e7
0ca3 4be7       |K   |		Short_Literal	0x3e7
0ca4 0092 12ff  |    |		Action	Push_String_Extended,0x12ff					; "Invalid Menu Command.   A '?' re-displays the menu choices."
0ca6 e245       | E  |		Load	0x1,0x45
0ca7 82a2       |    |		Call	0x1,0xa2
0ca8 00d1       |    |		Pop_Control	Pop_Count_1
0ca9 e5ff       |    |		Load	0x2,-0x1
0caa 4be7       |K   |		Short_Literal	0x3e7
0cab 4802       |H   |		Short_Literal	0x2
0cac 4be7       |K   |		Short_Literal	0x3e7
0cad 4802       |H   |		Short_Literal	0x2
0cae 4802       |H   |		Short_Literal	0x2
0caf 4be7       |K   |		Short_Literal	0x3e7
0cb0 4be7       |K   |		Short_Literal	0x3e7
0cb1 0092 1300  |    |		Action	Push_String_Extended,0x1300					; "Please enter a keyword or numeric command or use default and promote."
0cb3 e246       | F  |		Load	0x1,0x46
0cb4 82a2       |    |		Call	0x1,0xa2
0cb5 00d1       |    |		Pop_Control	Pop_Count_1
0cb6 e5ff       |    |		Load	0x2,-0x1
0cb7 4be7       |K   |		Short_Literal	0x3e7
0cb8 4802       |H   |		Short_Literal	0x2
0cb9 4be7       |K   |		Short_Literal	0x3e7
0cba 4802       |H   |		Short_Literal	0x2
0cbb 4802       |H   |		Short_Literal	0x2
0cbc 4be7       |K   |		Short_Literal	0x3e7
0cbd 4be7       |K   |		Short_Literal	0x3e7
0cbe 0092 1301  |    |		Action	Push_String_Extended,0x1301					; "[Or '?' for new menu, Or use standard R1000 window & editing.]"
0cc0 e247       | G  |		Load	0x1,0x47
0cc1 82a2       |    |		Call	0x1,0xa2
0cc2 00d1       |    |		Pop_Control	Pop_Count_1
0cc3 e5ff       |    |		Load	0x2,-0x1
0cc4 4be7       |K   |		Short_Literal	0x3e7
0cc5 4802       |H   |		Short_Literal	0x2
0cc6 4be7       |K   |		Short_Literal	0x3e7
0cc7 4802       |H   |		Short_Literal	0x2
0cc8 4802       |H   |		Short_Literal	0x2
0cc9 4be7       |K   |		Short_Literal	0x3e7
0cca 4be7       |K   |		Short_Literal	0x3e7
0ccb 0092 1302  |    |		Action	Push_String_Extended,0x1302					; "[Or for record editing:   Up= ^   Top= ,   Select= .   Exit= /    ]"
0ccd e248       | H  |		Load	0x1,0x48
0cce 82a2       |    |		Call	0x1,0xa2
0ccf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0cd0			TRAP_0b70:
0cd0 0007       |    |		Action	Break_Optional
0cd1 4800       |H   |		Short_Literal	0x0
0cd2 4801       |H   |		Short_Literal	0x1
0cd3 0092 1303  |    |		Action	Push_String_Extended,0x1303					; "Exception occurred in ap_init_screen_array_defaults."
0cd5 e009       |    |		Load	0x0,0x9
0cd6 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0cd7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0cd8 0000 0000  |    |		.XXX[0x3]
0cda 0001       |    |
0cdb 0000 0000  |    |		.BLANK	0000[0x5]
0ce0 ; --------------------------------------------------------------------------------------
0ce0 ; SUBPROGRAM
0ce0 ; --------------------------------------------------------------------------------------
0ce0 0ce4       |    |		.CONST	0x0ce4								; Address of begin
0ce1 0cf3       |    |		.CONST	0x0cf3								; Address of exception handler
0ce2 0001       |    |		.CONST	0x0001								; Number of locals
0ce3			INIT_0ce0:
0ce3 0007       |    |		Action	Break_Optional
0ce4			BODY_0ce0:
0ce4 e5ff       |    |		Load	0x2,-0x1
0ce5 e5f6       |    |		Load	0x2,-0xa
0ce6 01d7       |    |		Execute	Vector,Field_Read
0ce7 00d8       |    |		Load_Top	At_Offset_0
0ce8 4800       |H   |		Short_Literal	0x0
0ce9 e5f7       |    |		Load	0x2,-0x9
0cea e5f8       |    |		Load	0x2,-0x8
0ceb e5f9       |    |		Load	0x2,-0x7
0cec e5fa       |    |		Load	0x2,-0x6
0ced e5fb       |    |		Load	0x2,-0x5
0cee e5fc       |    |		Load	0x2,-0x4
0cef e5fd       |    |		Load	0x2,-0x3
0cf0 e5fe       |    |		Load	0x2,-0x2
0cf1 82ae       |    |		Call	0x1,0xae
0cf2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0cf3			TRAP_0ce0:
0cf3 0007       |    |		Action	Break_Optional
0cf4 4800       |H   |		Short_Literal	0x0
0cf5 4801       |H   |		Short_Literal	0x1
0cf6 0092 1304  |    |		Action	Push_String_Extended,0x1304					; "Exception occurred in ap_screen."
0cf8 e009       |    |		Load	0x0,0x9
0cf9 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0cfa e00c       |    |		Load	0x0,0xc
0cfb 0257       | W  |		Execute	Discrete,Raise
0cfc 0000 0000  |    |		.BLANK	0000[0x4]
0d00 ; --------------------------------------------------------------------------------------
0d00 ; SUBPROGRAM
0d00 ; --------------------------------------------------------------------------------------
0d00 0d05       |    |		.CONST	0x0d05								; Address of begin
0d01 0d0d       |    |		.CONST	0x0d0d								; Address of exception handler
0d02 0003       |    |		.CONST	0x0003								; Number of locals
0d03			INIT_0d00:
0d03 00e2       |    |		Load_Encached	Integer_Cache
0d04 00e2       |    |		Load_Encached	Integer_Cache
0d05			BODY_0d00:
0d05 0007       |    |		Action	Break_Optional
0d06 e5fb       |    |		Load	0x2,-0x5
0d07 e5fc       |    |		Load	0x2,-0x4
0d08 e5fd       |    |		Load	0x2,-0x3
0d09 e5fe       |    |		Load	0x2,-0x2
0d0a e5ff       |    |		Load	0x2,-0x1
0d0b 82a6       |    |		Call	0x1,0xa6
0d0c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d0d			TRAP_0d00:
0d0d 0007       |    |		Action	Break_Optional
0d0e 4800       |H   |		Short_Literal	0x0
0d0f 4801       |H   |		Short_Literal	0x1
0d10 0092 1305  |    |		Action	Push_String_Extended,0x1305					; "Exception in ap_display_random_screen."
0d12 e009       |    |		Load	0x0,0x9
0d13 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0d14 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d15 0000 0000  |    |		.XXX[0x3]
0d17 0000       |    |
0d18 ; --------------------------------------------------------------------------------------
0d18 ; SUBPROGRAM
0d18 ; --------------------------------------------------------------------------------------
0d18 0d2f       | /  |		.CONST	0x0d2f								; Address of begin
0d19 0d9b       |    |		.CONST	0x0d9b								; Address of exception handler
0d1a 0004       |    |		.CONST	0x0004								; Number of locals
0d1b			INIT_0d18:
0d1b 00e2       |    |		Load_Encached	Integer_Cache
0d1c 00e2       |    |		Load_Encached	Integer_Cache
0d1d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0d1e 4801       |H   |		Short_Literal	0x1
0d1f 4850       |HP  |		Short_Literal	0x50
0d20 00e9       |    |		Load_Encached	String_Cache
0d21 0334       | 4  |		Declare_Variable	Array,With_Constraint
0d22 4801       |H   |		Short_Literal	0x1
0d23 4850       |HP  |		Short_Literal	0x50
0d24 00e9       |    |		Load_Encached	String_Cache
0d25 0334       | 4  |		Declare_Variable	Array,With_Constraint
0d26 4850       |HP  |		Short_Literal	0x50
0d27 4801       |H   |		Short_Literal	0x1
0d28 483d       |H=  |		Short_Literal	0x3d
0d29 e607       |    |		Load	0x3,0x7
0d2a e605       |    |		Load	0x3,0x5
0d2b 01d6       |    |		Execute	Vector,Field_Write
0d2c 3ffb       |?   |		Loop_Increasing	0xd28
0d2d e604       |    |		Load	0x3,0x4
0d2e 01d4       |    |		Execute	Vector,Structure_Write
0d2f			BODY_0d18:
0d2f 4800       |H   |		Short_Literal	0x0
0d30 a603       |    |		Store_Unchecked	0x3,0x3
0d31 e223       | #  |		Load	0x1,0x23
0d32 7006       |p   |		Jump_Nonzero	0xd39
0d33 e23f       | ?  |		Load	0x1,0x3f
0d34 0aff       |    |		Execute_Immediate	Plus,-0x1
0d35 0248       | H  |		Execute	Discrete,Check_In_Integer
0d36 e5fc       |    |		Load	0x2,-0x4
0d37 e5ff       |    |		Load	0x2,-0x1
0d38 82a7       |    |		Call	0x1,0xa7
0d39 00cf       |    |		Action	Mark_Auxiliary
0d3a e5fb       |    |		Load	0x2,-0x5
0d3b e5fc       |    |		Load	0x2,-0x4
0d3c 0263       | c  |		Execute	Discrete,Above_Bound
0d3d 7057       |pW  |		Jump_Nonzero	0xd95
0d3e 00d8       |    |		Load_Top	At_Offset_0
0d3f e5ff       |    |		Load	0x2,-0x1
0d40 01d5       |    |		Execute	Vector,Field_Reference
0d41 e253       | S  |		Load	0x1,0x53
0d42 017d       | }  |		Execute	Record,Structure_Write
0d43 e253       | S  |		Load	0x1,0x53
0d44 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0d45 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0d46 e253       | S  |		Load	0x1,0x53
0d47 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0d48 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0d49 0279       | y  |		Execute	Discrete,And
0d4a 6848       |hH  |		Jump_Zero	0xd93
0d4b e603       |    |		Load	0x3,0x3
0d4c 0f00       |    |		Execute_Immediate	Equal,0x0
0d4d e607       |    |		Load	0x3,0x7
0d4e e23e       | >  |		Load	0x1,0x3e
0d4f 027e       | ~  |		Execute	Discrete,Not_Equal
0d50 0279       | y  |		Execute	Discrete,And
0d51 6801       |h   |		Jump_Zero	0xd53
0d52 780a       |x   |		Jump	0xd5d
0d53 00d8       |    |		Load_Top	At_Offset_0
0d54 e23e       | >  |		Load	0x1,0x3e
0d55 027f       |    |		Execute	Discrete,Equal
0d56 6806       |h   |		Jump_Zero	0xd5d
0d57 e009       |    |		Load	0x0,0x9
0d58 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0d59 e009       |    |		Load	0x0,0x9
0d5a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0d5b 4800       |H   |		Short_Literal	0x0
0d5c a603       |    |		Store_Unchecked	0x3,0x3
0d5d e603       |    |		Load	0x3,0x3
0d5e 7001       |p   |		Jump_Nonzero	0xd60
0d5f 7819       |x   |		Jump	0xd79
0d60 e603       |    |		Load	0x3,0x3
0d61 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0d62 e603       |    |		Load	0x3,0x3
0d63 0d28       | (  |		Execute_Immediate	Less,0x28
0d64 0279       | y  |		Execute	Discrete,And
0d65 680c       |h   |		Jump_Zero	0xd72
0d66 4801       |H   |		Short_Literal	0x1
0d67 4828       |H(  |		Short_Literal	0x28
0d68 e603       |    |		Load	0x3,0x3
0d69 0272       | r  |		Execute	Discrete,Minus
0d6a 0248       | H  |		Execute	Discrete,Check_In_Integer
0d6b e220       |    |		Load	0x1,0x20
0d6c 01cf       |    |		Execute	Vector,Slice_Read
0d6d e009       |    |		Load	0x0,0x9
0d6e 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0d6f 4828       |H(  |		Short_Literal	0x28
0d70 a603       |    |		Store_Unchecked	0x3,0x3
0d71 7807       |x   |		Jump	0xd79
0d72 e603       |    |		Load	0x3,0x3
0d73 0c29       | )  |		Execute_Immediate	Greater_Equal,0x29
0d74 6804       |h   |		Jump_Zero	0xd79
0d75 4800       |H   |		Short_Literal	0x0
0d76 a603       |    |		Store_Unchecked	0x3,0x3
0d77 e009       |    |		Load	0x0,0x9
0d78 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0d79 4801       |H   |		Short_Literal	0x1
0d7a 4801       |H   |		Short_Literal	0x1
0d7b e607       |    |		Load	0x3,0x7
0d7c e5ff       |    |		Load	0x2,-0x1
0d7d 82a9       |    |		Call	0x1,0xa9
0d7e 00d8       |    |		Load_Top	At_Offset_0
0d7f e23e       | >  |		Load	0x1,0x3e
0d80 027f       |    |		Execute	Discrete,Equal
0d81 680b       |h   |		Jump_Zero	0xd8d
0d82 e009       |    |		Load	0x0,0x9
0d83 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0d84 4801       |H   |		Short_Literal	0x1
0d85 e253       | S  |		Load	0x1,0x53
0d86 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0d87 e604       |    |		Load	0x3,0x4
0d88 01cf       |    |		Execute	Vector,Slice_Read
0d89 e009       |    |		Load	0x0,0x9
0d8a 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0d8b 4850       |HP  |		Short_Literal	0x50
0d8c a603       |    |		Store_Unchecked	0x3,0x3
0d8d e603       |    |		Load	0x3,0x3
0d8e e253       | S  |		Load	0x1,0x53
0d8f 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0d90 0273       | s  |		Execute	Discrete,Plus
0d91 0248       | H  |		Execute	Discrete,Check_In_Integer
0d92 a603       |    |		Store_Unchecked	0x3,0x3
0d93 00c8       |    |		Action	Pop_Auxiliary_Range
0d94 3fa9       |?   |		Loop_Increasing	0xd3e
0d95 00ce       |    |		Action	Pop_Auxiliary
0d96 e009       |    |		Load	0x0,0x9
0d97 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0d98 e009       |    |		Load	0x0,0x9
0d99 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0d9a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0d9b			TRAP_0d18:
0d9b 0007       |    |		Action	Break_Optional
0d9c 4800       |H   |		Short_Literal	0x0
0d9d 4801       |H   |		Short_Literal	0x1
0d9e 0092 1306  |    |		Action	Push_String_Extended,0x1306					; "Exception in ap_display_screen."
0da0 e009       |    |		Load	0x0,0x9
0da1 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0da2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0da3 0000 0000  |    |		.BLANK	0000[0x5]
0da8 ; --------------------------------------------------------------------------------------
0da8 ; SUBPROGRAM
0da8 ; --------------------------------------------------------------------------------------
0da8 0dac       |    |		.CONST	0x0dac								; Address of begin
0da9 0004       |    |		.CONST	0x0004								; Address of exception handler
0daa 0002       |    |		.CONST	0x0002								; Number of locals
0dab			INIT_0da8:
0dab 00e2       |    |		Load_Encached	Integer_Cache
0dac			BODY_0da8:
0dac 00cf       |    |		Action	Mark_Auxiliary
0dad e5fd       |    |		Load	0x2,-0x3
0dae e5fe       |    |		Load	0x2,-0x2
0daf 0263       | c  |		Execute	Discrete,Above_Bound
0db0 702e       |p.  |		Jump_Nonzero	0xddf
0db1 00d8       |    |		Load_Top	At_Offset_0
0db2 e5ff       |    |		Load	0x2,-0x1
0db3 01d5       |    |		Execute	Vector,Field_Reference
0db4 e253       | S  |		Load	0x1,0x53
0db5 017d       | }  |		Execute	Record,Structure_Write
0db6 e253       | S  |		Load	0x1,0x53
0db7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0db8 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0db9 e253       | S  |		Load	0x1,0x53
0dba 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0dbb 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0dbc 0279       | y  |		Execute	Discrete,And
0dbd 681f       |h   |		Jump_Zero	0xddd
0dbe 4801       |H   |		Short_Literal	0x1
0dbf e27e       | ~  |		Load	0x1,0x7e
0dc0 e008       |    |		Load	0x0,0x8
0dc1 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0dc2 0092 1307  |    |		Action	Push_String_Extended,0x1307					; "  "
0dc4 e27e       | ~  |		Load	0x1,0x7e
0dc5 e008       |    |		Load	0x0,0x8
0dc6 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0dc7 4801       |H   |		Short_Literal	0x1
0dc8 e253       | S  |		Load	0x1,0x53
0dc9 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0dca e253       | S  |		Load	0x1,0x53
0dcb 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0dcc 01cf       |    |		Execute	Vector,Slice_Read
0dcd e27e       | ~  |		Load	0x1,0x7e
0dce e008       |    |		Load	0x0,0x8
0dcf 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0dd0 00d8       |    |		Load_Top	At_Offset_0
0dd1 e5fe       |    |		Load	0x2,-0x2
0dd2 027f       |    |		Execute	Discrete,Equal
0dd3 6809       |h   |		Jump_Zero	0xddd
0dd4 4801       |H   |		Short_Literal	0x1
0dd5 e27e       | ~  |		Load	0x1,0x7e
0dd6 e008       |    |		Load	0x0,0x8
0dd7 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0dd8 0092 1308  |    |		Action	Push_String_Extended,0x1308					; "  ----------------------------------------"
0dda e27e       | ~  |		Load	0x1,0x7e
0ddb e008       |    |		Load	0x0,0x8
0ddc 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0ddd 00c8       |    |		Action	Pop_Auxiliary_Range
0dde 3fd2       |?   |		Loop_Increasing	0xdb1
0ddf 00ce       |    |		Action	Pop_Auxiliary
0de0 4802       |H   |		Short_Literal	0x2
0de1 e27e       | ~  |		Load	0x1,0x7e
0de2 e008       |    |		Load	0x0,0x8
0de3 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0de4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0de5 0000 0000  |    |		.XXX[0x3]
0de7 0000       |    |
0de8 ; --------------------------------------------------------------------------------------
0de8 ; SUBPROGRAM
0de8 ; --------------------------------------------------------------------------------------
0de8 0dec       |    |		.CONST	0x0dec								; Address of begin
0de9 0004       |    |		.CONST	0x0004								; Address of exception handler
0dea 0002       |    |		.CONST	0x0002								; Number of locals
0deb			INIT_0de8:
0deb 00e2       |    |		Load_Encached	Integer_Cache
0dec			BODY_0de8:
0dec 00cf       |    |		Action	Mark_Auxiliary
0ded 0007       |    |		Action	Break_Optional
0dee e5ff       |    |		Load	0x2,-0x1
0def 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0df0 0f00       |    |		Execute_Immediate	Equal,0x0
0df1 e5ff       |    |		Load	0x2,-0x1
0df2 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0df3 0f00       |    |		Execute_Immediate	Equal,0x0
0df4 0278       | x  |		Execute	Discrete,Or
0df5 6801       |h   |		Jump_Zero	0xdf7
0df6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0df7 0007       |    |		Action	Break_Optional
0df8 e5ff       |    |		Load	0x2,-0x1
0df9 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0dfa 701f       |p   |		Jump_Nonzero	0xe1a
0dfb e5ff       |    |		Load	0x2,-0x1
0dfc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0dfd 700e       |p   |		Jump_Nonzero	0xe0c
0dfe 4801       |H   |		Short_Literal	0x1
0dff e5ff       |    |		Load	0x2,-0x1
0e00 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e01 e5ff       |    |		Load	0x2,-0x1
0e02 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0e03 01cf       |    |		Execute	Vector,Slice_Read
0e04 4801       |H   |		Short_Literal	0x1
0e05 e5ff       |    |		Load	0x2,-0x1
0e06 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0e07 e5ff       |    |		Load	0x2,-0x1
0e08 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e09 e009       |    |		Load	0x0,0x9
0e0a 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0e0b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e0c 4801       |H   |		Short_Literal	0x1
0e0d e5ff       |    |		Load	0x2,-0x1
0e0e 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e0f e5ff       |    |		Load	0x2,-0x1
0e10 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0e11 01cf       |    |		Execute	Vector,Slice_Read
0e12 4800       |H   |		Short_Literal	0x0
0e13 e5ff       |    |		Load	0x2,-0x1
0e14 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0e15 e5ff       |    |		Load	0x2,-0x1
0e16 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e17 e009       |    |		Load	0x0,0x9
0e18 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0e19 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e1a e5fb       |    |		Load	0x2,-0x5
0e1b 7004       |p   |		Jump_Nonzero	0xe20
0e1c 0092 1309  |    |		Action	Push_String_Extended,0x1309					; "["
0e1e e009       |    |		Load	0x0,0x9
0e1f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0e20 4801       |H   |		Short_Literal	0x1
0e21 e5ff       |    |		Load	0x2,-0x1
0e22 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e23 e5ff       |    |		Load	0x2,-0x1
0e24 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0e25 01cf       |    |		Execute	Vector,Slice_Read
0e26 e009       |    |		Load	0x0,0x9
0e27 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0e28 e5fb       |    |		Load	0x2,-0x5
0e29 7004       |p   |		Jump_Nonzero	0xe2e
0e2a 0092 130a  |    |		Action	Push_String_Extended,0x130a					; "]:"
0e2c e009       |    |		Load	0x0,0x9
0e2d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0e2e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0e2f 0000       |    |		.XXX[0x1]
0e30 ; --------------------------------------------------------------------------------------
0e30 ; SUBPROGRAM
0e30 ; --------------------------------------------------------------------------------------
0e30 0e41       | A  |		.CONST	0x0e41								; Address of begin
0e31 0fbc       |    |		.CONST	0x0fbc								; Address of exception handler
0e32 0009       |    |		.CONST	0x0009								; Number of locals
0e33			INIT_0e30:
0e33 0007       |    |		Action	Break_Optional
0e34 4801       |H   |		Short_Literal	0x1
0e35 4850       |HP  |		Short_Literal	0x50
0e36 00e9       |    |		Load_Encached	String_Cache
0e37 0334       | 4  |		Declare_Variable	Array,With_Constraint
0e38 00e2       |    |		Load_Encached	Integer_Cache
0e39 00e2       |    |		Load_Encached	Integer_Cache
0e3a 00e2       |    |		Load_Encached	Integer_Cache
0e3b 00e2       |    |		Load_Encached	Integer_Cache
0e3c 00e2       |    |		Load_Encached	Integer_Cache
0e3d 00e2       |    |		Load_Encached	Integer_Cache
0e3e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0e3f 029f 122b  |   +|		Declare_Subprogram	INIT_1228,For_Call
0e41			BODY_0e30:
0e41 4800       |H   |		Short_Literal	0x0
0e42 a603       |    |		Store_Unchecked	0x3,0x3
0e43 4800       |H   |		Short_Literal	0x0
0e44 a608       |    |		Store_Unchecked	0x3,0x8
0e45 e23f       | ?  |		Load	0x1,0x3f
0e46 e5fc       |    |		Load	0x2,-0x4
0e47 0272       | r  |		Execute	Discrete,Minus
0e48 0248       | H  |		Execute	Discrete,Check_In_Integer
0e49 a606       |    |		Store_Unchecked	0x3,0x6
0e4a e5fd       |    |		Load	0x2,-0x3
0e4b 7009       |p   |		Jump_Nonzero	0xe55
0e4c e272       | r  |		Load	0x1,0x72
0e4d 0f01       |    |		Execute_Immediate	Equal,0x1
0e4e 6804       |h   |		Jump_Zero	0xe53
0e4f 0092 130b  |    |		Action	Push_String_Extended,0x130b					; "--deb*2* before menu error in proc menu."
0e51 e009       |    |		Load	0x0,0x9
0e52 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0e53 e5fb       |    |		Load	0x2,-0x5
0e54 82a8       |    |		Call	0x1,0xa8
0e55 0007       |    |		Action	Break_Optional
0e56 e229       | )  |		Load	0x1,0x29
0e57 701e       |p   |		Jump_Nonzero	0xe76
0e58 e242       | B  |		Load	0x1,0x42
0e59 e606       |    |		Load	0x3,0x6
0e5a 0272       | r  |		Execute	Discrete,Minus
0e5b 0248       | H  |		Execute	Discrete,Check_In_Integer
0e5c e5fb       |    |		Load	0x2,-0x5
0e5d 01d5       |    |		Execute	Vector,Field_Reference
0e5e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e5f 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0e60 e242       | B  |		Load	0x1,0x42
0e61 e606       |    |		Load	0x3,0x6
0e62 0272       | r  |		Execute	Discrete,Minus
0e63 0248       | H  |		Execute	Discrete,Check_In_Integer
0e64 e5fb       |    |		Load	0x2,-0x5
0e65 01d5       |    |		Execute	Vector,Field_Reference
0e66 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e67 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0e68 0279       | y  |		Execute	Discrete,And
0e69 680c       |h   |		Jump_Zero	0xe76
0e6a 4801       |H   |		Short_Literal	0x1
0e6b 4801       |H   |		Short_Literal	0x1
0e6c e242       | B  |		Load	0x1,0x42
0e6d e606       |    |		Load	0x3,0x6
0e6e 0272       | r  |		Execute	Discrete,Minus
0e6f 0248       | H  |		Execute	Discrete,Check_In_Integer
0e70 e5fb       |    |		Load	0x2,-0x5
0e71 82a9       |    |		Call	0x1,0xa9
0e72 e228       | (  |		Load	0x1,0x28
0e73 7002       |p   |		Jump_Nonzero	0xe76
0e74 e009       |    |		Load	0x0,0x9
0e75 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0e76 e240       | @  |		Load	0x1,0x40
0e77 e606       |    |		Load	0x3,0x6
0e78 0272       | r  |		Execute	Discrete,Minus
0e79 0248       | H  |		Execute	Discrete,Check_In_Integer
0e7a e5fb       |    |		Load	0x2,-0x5
0e7b 01d5       |    |		Execute	Vector,Field_Reference
0e7c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0e7d 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0e7e e240       | @  |		Load	0x1,0x40
0e7f e606       |    |		Load	0x3,0x6
0e80 0272       | r  |		Execute	Discrete,Minus
0e81 0248       | H  |		Execute	Discrete,Check_In_Integer
0e82 e5fb       |    |		Load	0x2,-0x5
0e83 01d5       |    |		Execute	Vector,Field_Reference
0e84 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e85 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0e86 0279       | y  |		Execute	Discrete,And
0e87 680a       |h   |		Jump_Zero	0xe92
0e88 e228       | (  |		Load	0x1,0x28
0e89 7008       |p   |		Jump_Nonzero	0xe92
0e8a 4801       |H   |		Short_Literal	0x1
0e8b 4801       |H   |		Short_Literal	0x1
0e8c e240       | @  |		Load	0x1,0x40
0e8d e606       |    |		Load	0x3,0x6
0e8e 0272       | r  |		Execute	Discrete,Minus
0e8f 0248       | H  |		Execute	Discrete,Check_In_Integer
0e90 e5fb       |    |		Load	0x2,-0x5
0e91 82a9       |    |		Call	0x1,0xa9
0e92 e241       | A  |		Load	0x1,0x41
0e93 e606       |    |		Load	0x3,0x6
0e94 0272       | r  |		Execute	Discrete,Minus
0e95 0248       | H  |		Execute	Discrete,Check_In_Integer
0e96 e5fb       |    |		Load	0x2,-0x5
0e97 01d5       |    |		Execute	Vector,Field_Reference
0e98 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0e99 e243       | C  |		Load	0x1,0x43
0e9a e606       |    |		Load	0x3,0x6
0e9b 0272       | r  |		Execute	Discrete,Minus
0e9c 0248       | H  |		Execute	Discrete,Check_In_Integer
0e9d e5fb       |    |		Load	0x2,-0x5
0e9e 01d5       |    |		Execute	Vector,Field_Reference
0e9f 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0ea0 e241       | A  |		Load	0x1,0x41
0ea1 e606       |    |		Load	0x3,0x6
0ea2 0272       | r  |		Execute	Discrete,Minus
0ea3 0248       | H  |		Execute	Discrete,Check_In_Integer
0ea4 e5fb       |    |		Load	0x2,-0x5
0ea5 01d5       |    |		Execute	Vector,Field_Reference
0ea6 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0ea7 e243       | C  |		Load	0x1,0x43
0ea8 e606       |    |		Load	0x3,0x6
0ea9 0272       | r  |		Execute	Discrete,Minus
0eaa 0248       | H  |		Execute	Discrete,Check_In_Integer
0eab e5fb       |    |		Load	0x2,-0x5
0eac 01d5       |    |		Execute	Vector,Field_Reference
0ead 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0eae e243       | C  |		Load	0x1,0x43
0eaf e606       |    |		Load	0x3,0x6
0eb0 0272       | r  |		Execute	Discrete,Minus
0eb1 0248       | H  |		Execute	Discrete,Check_In_Integer
0eb2 e5fb       |    |		Load	0x2,-0x5
0eb3 01d5       |    |		Execute	Vector,Field_Reference
0eb4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0eb5 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0eb6 e243       | C  |		Load	0x1,0x43
0eb7 e606       |    |		Load	0x3,0x6
0eb8 0272       | r  |		Execute	Discrete,Minus
0eb9 0248       | H  |		Execute	Discrete,Check_In_Integer
0eba e5fb       |    |		Load	0x2,-0x5
0ebb 01d5       |    |		Execute	Vector,Field_Reference
0ebc 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0ebd 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0ebe 0279       | y  |		Execute	Discrete,And
0ebf 6830       |h0  |		Jump_Zero	0xef0
0ec0 e243       | C  |		Load	0x1,0x43
0ec1 e606       |    |		Load	0x3,0x6
0ec2 0272       | r  |		Execute	Discrete,Minus
0ec3 0248       | H  |		Execute	Discrete,Check_In_Integer
0ec4 e5fb       |    |		Load	0x2,-0x5
0ec5 01d5       |    |		Execute	Vector,Field_Reference
0ec6 e261       | a  |		Load	0x1,0x61
0ec7 017d       | }  |		Execute	Record,Structure_Write
0ec8 e228       | (  |		Load	0x1,0x28
0ec9 7026       |p&  |		Jump_Nonzero	0xef0
0eca 4801       |H   |		Short_Literal	0x1
0ecb e261       | a  |		Load	0x1,0x61
0ecc 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0ecd e261       | a  |		Load	0x1,0x61
0ece 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0ecf 01cf       |    |		Execute	Vector,Slice_Read
0ed0 e009       |    |		Load	0x0,0x9
0ed1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0ed2 e244       | D  |		Load	0x1,0x44
0ed3 e606       |    |		Load	0x3,0x6
0ed4 0272       | r  |		Execute	Discrete,Minus
0ed5 0248       | H  |		Execute	Discrete,Check_In_Integer
0ed6 e5fb       |    |		Load	0x2,-0x5
0ed7 01d5       |    |		Execute	Vector,Field_Reference
0ed8 e261       | a  |		Load	0x1,0x61
0ed9 017d       | }  |		Execute	Record,Structure_Write
0eda 4801       |H   |		Short_Literal	0x1
0edb e261       | a  |		Load	0x1,0x61
0edc 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0edd e243       | C  |		Load	0x1,0x43
0ede e606       |    |		Load	0x3,0x6
0edf 0272       | r  |		Execute	Discrete,Minus
0ee0 0248       | H  |		Execute	Discrete,Check_In_Integer
0ee1 e5fb       |    |		Load	0x2,-0x5
0ee2 01d5       |    |		Execute	Vector,Field_Reference
0ee3 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0ee4 0272       | r  |		Execute	Discrete,Minus
0ee5 0248       | H  |		Execute	Discrete,Check_In_Integer
0ee6 e220       |    |		Load	0x1,0x20
0ee7 01cf       |    |		Execute	Vector,Slice_Read
0ee8 e009       |    |		Load	0x0,0x9
0ee9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0eea 0092 130c  |    |		Action	Push_String_Extended,0x130c					; "<="
0eec e009       |    |		Load	0x0,0x9
0eed 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0eee e009       |    |		Load	0x0,0x9
0eef 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0ef0 0007       |    |		Action	Break_Optional
0ef1 e22b       | +  |		Load	0x1,0x2b
0ef2 701a       |p   |		Jump_Nonzero	0xf0d
0ef3 e240       | @  |		Load	0x1,0x40
0ef4 e606       |    |		Load	0x3,0x6
0ef5 0272       | r  |		Execute	Discrete,Minus
0ef6 0248       | H  |		Execute	Discrete,Check_In_Integer
0ef7 e5fb       |    |		Load	0x2,-0x5
0ef8 01d5       |    |		Execute	Vector,Field_Reference
0ef9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0efa 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0efb e240       | @  |		Load	0x1,0x40
0efc e606       |    |		Load	0x3,0x6
0efd 0272       | r  |		Execute	Discrete,Minus
0efe 0248       | H  |		Execute	Discrete,Check_In_Integer
0eff e5fb       |    |		Load	0x2,-0x5
0f00 01d5       |    |		Execute	Vector,Field_Reference
0f01 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0f02 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0f03 0279       | y  |		Execute	Discrete,And
0f04 6808       |h   |		Jump_Zero	0xf0d
0f05 4801       |H   |		Short_Literal	0x1
0f06 4801       |H   |		Short_Literal	0x1
0f07 e240       | @  |		Load	0x1,0x40
0f08 e606       |    |		Load	0x3,0x6
0f09 0272       | r  |		Execute	Discrete,Minus
0f0a 0248       | H  |		Execute	Discrete,Check_In_Integer
0f0b e5fb       |    |		Load	0x2,-0x5
0f0c 82a9       |    |		Call	0x1,0xa9
0f0d e22c       | ,  |		Load	0x1,0x2c
0f0e 702a       |p*  |		Jump_Nonzero	0xf39
0f0f 0092 1309  |    |		Action	Push_String_Extended,0x1309					; "["
0f11 4801       |H   |		Short_Literal	0x1
0f12 e261       | a  |		Load	0x1,0x61
0f13 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0f14 e261       | a  |		Load	0x1,0x61
0f15 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0f16 01cf       |    |		Execute	Vector,Slice_Read
0f17 01cc       |    |		Execute	Vector,Catenate
0f18 0092 130a  |    |		Action	Push_String_Extended,0x130a					; "]:"
0f1a 01cc       |    |		Execute	Vector,Catenate
0f1b e009       |    |		Load	0x0,0x9
0f1c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0f1d e240       | @  |		Load	0x1,0x40
0f1e e606       |    |		Load	0x3,0x6
0f1f 0272       | r  |		Execute	Discrete,Minus
0f20 0248       | H  |		Execute	Discrete,Check_In_Integer
0f21 e5fb       |    |		Load	0x2,-0x5
0f22 01d5       |    |		Execute	Vector,Field_Reference
0f23 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0f24 e243       | C  |		Load	0x1,0x43
0f25 e606       |    |		Load	0x3,0x6
0f26 0272       | r  |		Execute	Discrete,Minus
0f27 0248       | H  |		Execute	Discrete,Check_In_Integer
0f28 e5fb       |    |		Load	0x2,-0x5
0f29 01d5       |    |		Execute	Vector,Field_Reference
0f2a 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0f2b 0273       | s  |		Execute	Discrete,Plus
0f2c 0248       | H  |		Execute	Discrete,Check_In_Integer
0f2d e244       | D  |		Load	0x1,0x44
0f2e e606       |    |		Load	0x3,0x6
0f2f 0272       | r  |		Execute	Discrete,Minus
0f30 0248       | H  |		Execute	Discrete,Check_In_Integer
0f31 e5fb       |    |		Load	0x2,-0x5
0f32 01d5       |    |		Execute	Vector,Field_Reference
0f33 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0f34 0273       | s  |		Execute	Discrete,Plus
0f35 0c4c       | L  |		Execute_Immediate	Greater_Equal,0x4c
0f36 6802       |h   |		Jump_Zero	0xf39
0f37 e009       |    |		Load	0x0,0x9
0f38 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0f39 e5f9       |    |		Load	0x2,-0x7
0f3a 01dd       |    |		Execute	Vector,First
0f3b e5f9       |    |		Load	0x2,-0x7
0f3c 01dd       |    |		Execute	Vector,First
0f3d e5f9       |    |		Load	0x2,-0x7
0f3e 01cf       |    |		Execute	Vector,Slice_Read
0f3f 0092 130d  |    |		Action	Push_String_Extended,0x130d					; "#"
0f41 01df       |    |		Execute	Vector,Equal
0f42 6808       |h   |		Jump_Zero	0xf4b
0f43 e603       |    |		Load	0x3,0x3
0f44 e602       |    |		Load	0x3,0x2
0f45 e5fb       |    |		Load	0x2,-0x5
0f46 e5fc       |    |		Load	0x2,-0x4
0f47 82ad       |    |		Call	0x1,0xad
0f48 00d2       |    |		Pop_Control	Pop_Count_2
0f49 c603       |    |		Store	0x3,0x3
0f4a 7807       |x   |		Jump	0xf52
0f4b e603       |    |		Load	0x3,0x3
0f4c e602       |    |		Load	0x3,0x2
0f4d e5fb       |    |		Load	0x2,-0x5
0f4e e5fc       |    |		Load	0x2,-0x4
0f4f 82ac       |    |		Call	0x1,0xac
0f50 00d2       |    |		Pop_Control	Pop_Count_2
0f51 c603       |    |		Store	0x3,0x3
0f52 0092 130e  |    |		Action	Push_String_Extended,0x130e					; " "
0f54 e5f9       |    |		Load	0x2,-0x7
0f55 01dd       |    |		Execute	Vector,First
0f56 e5f9       |    |		Load	0x2,-0x7
0f57 01dd       |    |		Execute	Vector,First
0f58 e5f9       |    |		Load	0x2,-0x7
0f59 01ce       |    |		Execute	Vector,Slice_Write
0f5a e272       | r  |		Load	0x1,0x72
0f5b 0f01       |    |		Execute_Immediate	Equal,0x1
0f5c 6804       |h   |		Jump_Zero	0xf61
0f5d 0092 130f  |    |		Action	Push_String_Extended,0x130f					; "--deb*31--"
0f5f e009       |    |		Load	0x0,0x9
0f60 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0f61 e603       |    |		Load	0x3,0x3
0f62 0f01       |    |		Execute_Immediate	Equal,0x1
0f63 4801       |H   |		Short_Literal	0x1
0f64 4801       |H   |		Short_Literal	0x1
0f65 e602       |    |		Load	0x3,0x2
0f66 01cf       |    |		Execute	Vector,Slice_Read
0f67 0092 1310  |    |		Action	Push_String_Extended,0x1310					; ","
0f69 01df       |    |		Execute	Vector,Equal
0f6a 4801       |H   |		Short_Literal	0x1
0f6b 4801       |H   |		Short_Literal	0x1
0f6c e602       |    |		Load	0x3,0x2
0f6d 01cf       |    |		Execute	Vector,Slice_Read
0f6e 0092 1311  |    |		Action	Push_String_Extended,0x1311					; "."
0f70 01df       |    |		Execute	Vector,Equal
0f71 4801       |H   |		Short_Literal	0x1
0f72 4801       |H   |		Short_Literal	0x1
0f73 e602       |    |		Load	0x3,0x2
0f74 01cf       |    |		Execute	Vector,Slice_Read
0f75 0092 1312  |    |		Action	Push_String_Extended,0x1312					; "/"
0f77 01df       |    |		Execute	Vector,Equal
0f78 4801       |H   |		Short_Literal	0x1
0f79 4801       |H   |		Short_Literal	0x1
0f7a e602       |    |		Load	0x3,0x2
0f7b 01cf       |    |		Execute	Vector,Slice_Read
0f7c 0092 1313  |    |		Action	Push_String_Extended,0x1313					; "^"
0f7e 01df       |    |		Execute	Vector,Equal
0f7f 0278       | x  |		Execute	Discrete,Or
0f80 0278       | x  |		Execute	Discrete,Or
0f81 0278       | x  |		Execute	Discrete,Or
0f82 0279       | y  |		Execute	Discrete,And
0f83 680a       |h   |		Jump_Zero	0xf8e
0f84 4801       |H   |		Short_Literal	0x1
0f85 4801       |H   |		Short_Literal	0x1
0f86 e602       |    |		Load	0x3,0x2
0f87 01cf       |    |		Execute	Vector,Slice_Read
0f88 e5f9       |    |		Load	0x2,-0x7
0f89 01dd       |    |		Execute	Vector,First
0f8a e5f9       |    |		Load	0x2,-0x7
0f8b 01dd       |    |		Execute	Vector,First
0f8c e5f9       |    |		Load	0x2,-0x7
0f8d 01ce       |    |		Execute	Vector,Slice_Write
0f8e e5ff       |    |		Load	0x2,-0x1
0f8f 0f01       |    |		Execute_Immediate	Equal,0x1
0f90 6802       |h   |		Jump_Zero	0xf93
0f91 00cc       |    |		Action	Pop_Block
0f92 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0f93 4800       |H   |		Short_Literal	0x0
0f94 a5fa       |    |		Store_Unchecked	0x2,-0x6
0f95 00cf       |    |		Action	Mark_Auxiliary
0f96 4828       |H(  |		Short_Literal	0x28
0f97 4801       |H   |		Short_Literal	0x1
0f98 0007       |    |		Action	Break_Optional
0f99 8609       |    |		Call	0x3,0x9
0f9a 00c8       |    |		Action	Pop_Auxiliary_Range
0f9b 3ffd       |?   |		Loop_Increasing	0xf99
0f9c 00ce       |    |		Action	Pop_Auxiliary
0f9d e5fa       |    |		Load	0x2,-0x6
0f9e 700d       |p   |		Jump_Nonzero	0xfac
0f9f 00e4       |    |		Load_Encached	Positive_Cache
0fa0 e009       |    |		Load	0x0,0x9
0fa1 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0fa2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0fa3 4801       |H   |		Short_Literal	0x1
0fa4 e603       |    |		Load	0x3,0x3
0fa5 e602       |    |		Load	0x3,0x2
0fa6 01cf       |    |		Execute	Vector,Slice_Read
0fa7 e009       |    |		Load	0x0,0x9
0fa8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0fa9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0faa c5fa       |    |		Store	0x2,-0x6
0fab c607       |    |		Store	0x3,0x7
0fac e5fa       |    |		Load	0x2,-0x6
0fad 0d01       |    |		Execute_Immediate	Less,0x1
0fae 6802       |h   |		Jump_Zero	0xfb1
0faf e00d       |    |		Load	0x0,0xd
0fb0 0257       | W  |		Execute	Discrete,Raise
0fb1 e5fa       |    |		Load	0x2,-0x6
0fb2 e5fc       |    |		Load	0x2,-0x4
0fb3 e5fb       |    |		Load	0x2,-0x5
0fb4 01d5       |    |		Execute	Vector,Field_Reference
0fb5 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0fb6 027d       | }  |		Execute	Discrete,Greater
0fb7 6802       |h   |		Jump_Zero	0xfba
0fb8 e00d       |    |		Load	0x0,0xd
0fb9 0257       | W  |		Execute	Discrete,Raise
0fba 00cc       |    |		Action	Pop_Block
0fbb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0fbc			TRAP_0e30:
0fbc 0007       |    |		Action	Break_Optional
0fbd 4801       |H   |		Short_Literal	0x1
0fbe 4801       |H   |		Short_Literal	0x1
0fbf e602       |    |		Load	0x3,0x2
0fc0 01cf       |    |		Execute	Vector,Slice_Read
0fc1 0092 1314  |    |		Action	Push_String_Extended,0x1314					; "?"
0fc3 01de       |    |		Execute	Vector,Not_Equal
0fc4 680a       |h   |		Jump_Zero	0xfcf
0fc5 4801       |H   |		Short_Literal	0x1
0fc6 4801       |H   |		Short_Literal	0x1
0fc7 e245       | E  |		Load	0x1,0x45
0fc8 e606       |    |		Load	0x3,0x6
0fc9 0272       | r  |		Execute	Discrete,Minus
0fca 0248       | H  |		Execute	Discrete,Check_In_Integer
0fcb e5fb       |    |		Load	0x2,-0x5
0fcc 82a9       |    |		Call	0x1,0xa9
0fcd e009       |    |		Load	0x0,0x9
0fce 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0fcf e5ff       |    |		Load	0x2,-0x1
0fd0 7006       |p   |		Jump_Nonzero	0xfd7
0fd1 e252       | R  |		Load	0x1,0x52
0fd2 4801       |H   |		Short_Literal	0x1
0fd3 4801       |H   |		Short_Literal	0x1
0fd4 4801       |H   |		Short_Literal	0x1
0fd5 e5fb       |    |		Load	0x2,-0x5
0fd6 82a6       |    |		Call	0x1,0xa6
0fd7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0fd8 ; --------------------------------------------------------------------------------------
0fd8 ; SUBPROGRAM
0fd8 ; --------------------------------------------------------------------------------------
0fd8 0ff2       |    |		.CONST	0x0ff2								; Address of begin
0fd9 10ca       |    |		.CONST	0x10ca								; Address of exception handler
0fda 0006       |    |		.CONST	0x0006								; Number of locals
0fdb			INIT_0fd8:
0fdb 0007       |    |		Action	Break_Optional
0fdc 00e2       |    |		Load_Encached	Integer_Cache
0fdd 00e2       |    |		Load_Encached	Integer_Cache
0fde 00e2       |    |		Load_Encached	Integer_Cache
0fdf 00e2       |    |		Load_Encached	Integer_Cache
0fe0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0fe1 4801       |H   |		Short_Literal	0x1
0fe2 4850       |HP  |		Short_Literal	0x50
0fe3 00e9       |    |		Load_Encached	String_Cache
0fe4 0334       | 4  |		Declare_Variable	Array,With_Constraint
0fe5 4801       |H   |		Short_Literal	0x1
0fe6 4850       |HP  |		Short_Literal	0x50
0fe7 00e9       |    |		Load_Encached	String_Cache
0fe8 0334       | 4  |		Declare_Variable	Array,With_Constraint
0fe9 4850       |HP  |		Short_Literal	0x50
0fea 4801       |H   |		Short_Literal	0x1
0feb 4820       |H   |		Short_Literal	0x20
0fec e609       |    |		Load	0x3,0x9
0fed e607       |    |		Load	0x3,0x7
0fee 01d6       |    |		Execute	Vector,Field_Write
0fef 3ffb       |?   |		Loop_Increasing	0xfeb
0ff0 e606       |    |		Load	0x3,0x6
0ff1 01d4       |    |		Execute	Vector,Structure_Write
0ff2			BODY_0fd8:
0ff2 e23f       | ?  |		Load	0x1,0x3f
0ff3 e5ff       |    |		Load	0x2,-0x1
0ff4 0272       | r  |		Execute	Discrete,Minus
0ff5 0248       | H  |		Execute	Discrete,Check_In_Integer
0ff6 a604       |    |		Store_Unchecked	0x3,0x4
0ff7 e244       | D  |		Load	0x1,0x44
0ff8 e604       |    |		Load	0x3,0x4
0ff9 0272       | r  |		Execute	Discrete,Minus
0ffa 0248       | H  |		Execute	Discrete,Check_In_Integer
0ffb e5fe       |    |		Load	0x2,-0x2
0ffc 01d5       |    |		Execute	Vector,Field_Reference
0ffd 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0ffe a602       |    |		Store_Unchecked	0x3,0x2
0fff e243       | C  |		Load	0x1,0x43
1000 e604       |    |		Load	0x3,0x4
1001 0272       | r  |		Execute	Discrete,Minus
1002 0248       | H  |		Execute	Discrete,Check_In_Integer
1003 e5fe       |    |		Load	0x2,-0x2
1004 01d5       |    |		Execute	Vector,Field_Reference
1005 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
1006 a603       |    |		Store_Unchecked	0x3,0x3
1007 e605       |    |		Load	0x3,0x5
1008 e606       |    |		Load	0x3,0x6
1009 4801       |H   |		Short_Literal	0x1
100a e009       |    |		Load	0x0,0x9
100b 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
100c 00d1       |    |		Pop_Control	Pop_Count_1
100d c605       |    |		Store	0x3,0x5
100e e605       |    |		Load	0x3,0x5
100f a5fc       |    |		Store_Unchecked	0x2,-0x4
1010 00d8       |    |		Load_Top	At_Offset_0
1011 e5fd       |    |		Load	0x2,-0x3
1012 01d4       |    |		Execute	Vector,Structure_Write
1013 e5fc       |    |		Load	0x2,-0x4
1014 0aff       |    |		Execute_Immediate	Plus,-0x1
1015 0248       | H  |		Execute	Discrete,Check_In_Integer
1016 a5fc       |    |		Store_Unchecked	0x2,-0x4
1017 e272       | r  |		Load	0x1,0x72
1018 0f01       |    |		Execute_Immediate	Equal,0x1
1019 6816       |h   |		Jump_Zero	0x1030
101a 0092 1315  |    |		Action	Push_String_Extended,0x1315					; "deb*7: input=>"
101c 4801       |H   |		Short_Literal	0x1
101d e5fc       |    |		Load	0x2,-0x4
101e e5fd       |    |		Load	0x2,-0x3
101f 01cf       |    |		Execute	Vector,Slice_Read
1020 01cc       |    |		Execute	Vector,Catenate
1021 0092 1316  |    |		Action	Push_String_Extended,0x1316					; "<end, size ="
1023 01cc       |    |		Execute	Vector,Catenate
1024 e009       |    |		Load	0x0,0x9
1025 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1026 e5fc       |    |		Load	0x2,-0x4
1027 e009       |    |		Load	0x0,0x9
1028 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1029 0092 1317  |    |		Action	Push_String_Extended,0x1317					; ", and size max="
102b e009       |    |		Load	0x0,0x9
102c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
102d e602       |    |		Load	0x3,0x2
102e e009       |    |		Load	0x0,0x9
102f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1030 e5fc       |    |		Load	0x2,-0x4
1031 0f01       |    |		Execute_Immediate	Equal,0x1
1032 e5fd       |    |		Load	0x2,-0x3
1033 01dd       |    |		Execute	Vector,First
1034 e5fd       |    |		Load	0x2,-0x3
1035 01dd       |    |		Execute	Vector,First
1036 e5fd       |    |		Load	0x2,-0x3
1037 01cf       |    |		Execute	Vector,Slice_Read
1038 0092 1314  |    |		Action	Push_String_Extended,0x1314					; "?"
103a 01df       |    |		Execute	Vector,Equal
103b 0279       | y  |		Execute	Discrete,And
103c 6802       |h   |		Jump_Zero	0x103f
103d e00e       |    |		Load	0x0,0xe
103e 0257       | W  |		Execute	Discrete,Raise
103f e5fc       |    |		Load	0x2,-0x4
1040 e602       |    |		Load	0x3,0x2
1041 027d       | }  |		Execute	Discrete,Greater
1042 6804       |h   |		Jump_Zero	0x1047
1043 e602       |    |		Load	0x3,0x2
1044 a5fc       |    |		Store_Unchecked	0x2,-0x4
1045 e00e       |    |		Load	0x0,0xe
1046 0257       | W  |		Execute	Discrete,Raise
1047 0007       |    |		Action	Break_Optional
1048 e5fc       |    |		Load	0x2,-0x4
1049 0f01       |    |		Execute_Immediate	Equal,0x1
104a e5fd       |    |		Load	0x2,-0x3
104b 01dd       |    |		Execute	Vector,First
104c e5fd       |    |		Load	0x2,-0x3
104d 01dd       |    |		Execute	Vector,First
104e e5fd       |    |		Load	0x2,-0x3
104f 01cf       |    |		Execute	Vector,Slice_Read
1050 0092 1310  |    |		Action	Push_String_Extended,0x1310					; ","
1052 01df       |    |		Execute	Vector,Equal
1053 e5fd       |    |		Load	0x2,-0x3
1054 01dd       |    |		Execute	Vector,First
1055 e5fd       |    |		Load	0x2,-0x3
1056 01dd       |    |		Execute	Vector,First
1057 e5fd       |    |		Load	0x2,-0x3
1058 01cf       |    |		Execute	Vector,Slice_Read
1059 0092 1311  |    |		Action	Push_String_Extended,0x1311					; "."
105b 01df       |    |		Execute	Vector,Equal
105c e5fd       |    |		Load	0x2,-0x3
105d 01dd       |    |		Execute	Vector,First
105e e5fd       |    |		Load	0x2,-0x3
105f 01dd       |    |		Execute	Vector,First
1060 e5fd       |    |		Load	0x2,-0x3
1061 01cf       |    |		Execute	Vector,Slice_Read
1062 0092 1312  |    |		Action	Push_String_Extended,0x1312					; "/"
1064 01df       |    |		Execute	Vector,Equal
1065 e5fd       |    |		Load	0x2,-0x3
1066 01dd       |    |		Execute	Vector,First
1067 e5fd       |    |		Load	0x2,-0x3
1068 01dd       |    |		Execute	Vector,First
1069 e5fd       |    |		Load	0x2,-0x3
106a 01cf       |    |		Execute	Vector,Slice_Read
106b 0092 1313  |    |		Action	Push_String_Extended,0x1313					; "^"
106d 01df       |    |		Execute	Vector,Equal
106e 0278       | x  |		Execute	Discrete,Or
106f 0278       | x  |		Execute	Discrete,Or
1070 0278       | x  |		Execute	Discrete,Or
1071 0279       | y  |		Execute	Discrete,And
1072 6813       |h   |		Jump_Zero	0x1086
1073 e241       | A  |		Load	0x1,0x41
1074 e604       |    |		Load	0x3,0x4
1075 0272       | r  |		Execute	Discrete,Minus
1076 0248       | H  |		Execute	Discrete,Check_In_Integer
1077 e5fe       |    |		Load	0x2,-0x2
1078 01d5       |    |		Execute	Vector,Field_Reference
1079 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
107a e244       | D  |		Load	0x1,0x44
107b e604       |    |		Load	0x3,0x4
107c 0272       | r  |		Execute	Discrete,Minus
107d 0248       | H  |		Execute	Discrete,Check_In_Integer
107e e5fe       |    |		Load	0x2,-0x2
107f 01d5       |    |		Execute	Vector,Field_Reference
1080 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
1081 027d       | }  |		Execute	Discrete,Greater
1082 6802       |h   |		Jump_Zero	0x1085
1083 e00e       |    |		Load	0x0,0xe
1084 0257       | W  |		Execute	Discrete,Raise
1085 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1086 e243       | C  |		Load	0x1,0x43
1087 e604       |    |		Load	0x3,0x4
1088 0272       | r  |		Execute	Discrete,Minus
1089 0248       | H  |		Execute	Discrete,Check_In_Integer
108a e5fe       |    |		Load	0x2,-0x2
108b 01d5       |    |		Execute	Vector,Field_Reference
108c 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
108d 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
108e e5fc       |    |		Load	0x2,-0x4
108f 0f00       |    |		Execute_Immediate	Equal,0x0
1090 0279       | y  |		Execute	Discrete,And
1091 6827       |h'  |		Jump_Zero	0x10b9
1092 4801       |H   |		Short_Literal	0x1
1093 e5fd       |    |		Load	0x2,-0x3
1094 01db       |    |		Execute	Vector,Length
1095 e220       |    |		Load	0x1,0x20
1096 01cf       |    |		Execute	Vector,Slice_Read
1097 4801       |H   |		Short_Literal	0x1
1098 e5fd       |    |		Load	0x2,-0x3
1099 01db       |    |		Execute	Vector,Length
109a e5fd       |    |		Load	0x2,-0x3
109b 01ce       |    |		Execute	Vector,Slice_Write
109c 4801       |H   |		Short_Literal	0x1
109d e603       |    |		Load	0x3,0x3
109e e243       | C  |		Load	0x1,0x43
109f e604       |    |		Load	0x3,0x4
10a0 0272       | r  |		Execute	Discrete,Minus
10a1 0248       | H  |		Execute	Discrete,Check_In_Integer
10a2 e5fe       |    |		Load	0x2,-0x2
10a3 01d5       |    |		Execute	Vector,Field_Reference
10a4 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
10a5 01cf       |    |		Execute	Vector,Slice_Read
10a6 4801       |H   |		Short_Literal	0x1
10a7 e603       |    |		Load	0x3,0x3
10a8 e5fd       |    |		Load	0x2,-0x3
10a9 01ce       |    |		Execute	Vector,Slice_Write
10aa e603       |    |		Load	0x3,0x3
10ab a5fc       |    |		Store_Unchecked	0x2,-0x4
10ac e5fc       |    |		Load	0x2,-0x4
10ad e244       | D  |		Load	0x1,0x44
10ae e604       |    |		Load	0x3,0x4
10af 0272       | r  |		Execute	Discrete,Minus
10b0 0248       | H  |		Execute	Discrete,Check_In_Integer
10b1 e5fe       |    |		Load	0x2,-0x2
10b2 01d5       |    |		Execute	Vector,Field_Reference
10b3 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
10b4 027d       | }  |		Execute	Discrete,Greater
10b5 6802       |h   |		Jump_Zero	0x10b8
10b6 e00e       |    |		Load	0x0,0xe
10b7 0257       | W  |		Execute	Discrete,Raise
10b8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10b9 e5fc       |    |		Load	0x2,-0x4
10ba e241       | A  |		Load	0x1,0x41
10bb e604       |    |		Load	0x3,0x4
10bc 0272       | r  |		Execute	Discrete,Minus
10bd 0248       | H  |		Execute	Discrete,Check_In_Integer
10be e5fe       |    |		Load	0x2,-0x2
10bf 01d5       |    |		Execute	Vector,Field_Reference
10c0 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
10c1 e5fd       |    |		Load	0x2,-0x3
10c2 e241       | A  |		Load	0x1,0x41
10c3 e604       |    |		Load	0x3,0x4
10c4 0272       | r  |		Execute	Discrete,Minus
10c5 0248       | H  |		Execute	Discrete,Check_In_Integer
10c6 e5fe       |    |		Load	0x2,-0x2
10c7 01d5       |    |		Execute	Vector,Field_Reference
10c8 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
10c9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
10ca			TRAP_0fd8:
10ca 0007       |    |		Action	Break_Optional
10cb 00d8       |    |		Load_Top	At_Offset_0
10cc 0101       |    |		Execute	Exception,Reraise
10cd 0000 0000  |    |		.XXX[0x3]
10cf 0000       |    |
10d0 ; --------------------------------------------------------------------------------------
10d0 ; SUBPROGRAM
10d0 ; --------------------------------------------------------------------------------------
10d0 10e6       |    |		.CONST	0x10e6								; Address of begin
10d1 1218       |    |		.CONST	0x1218								; Address of exception handler
10d2 0006       |    |		.CONST	0x0006								; Number of locals
10d3			INIT_10d0:
10d3 4801       |H   |		Short_Literal	0x1
10d4 4802       |H   |		Short_Literal	0x2
10d5 00e9       |    |		Load_Encached	String_Cache
10d6 0334       | 4  |		Declare_Variable	Array,With_Constraint
10d7 4801       |H   |		Short_Literal	0x1
10d8 4803       |H   |		Short_Literal	0x3
10d9 00e9       |    |		Load_Encached	String_Cache
10da 0334       | 4  |		Declare_Variable	Array,With_Constraint
10db 4801       |H   |		Short_Literal	0x1
10dc 4805       |H   |		Short_Literal	0x5
10dd 00e9       |    |		Load_Encached	String_Cache
10de 0334       | 4  |		Declare_Variable	Array,With_Constraint
10df 4801       |H   |		Short_Literal	0x1
10e0 4850       |HP  |		Short_Literal	0x50
10e1 00e9       |    |		Load_Encached	String_Cache
10e2 0334       | 4  |		Declare_Variable	Array,With_Constraint
10e3 00e2       |    |		Load_Encached	Integer_Cache
10e4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
10e5 0007       |    |		Action	Break_Optional
10e6			BODY_10d0:
10e6 e5fe       |    |		Load	0x2,-0x2
10e7 4be7       |K   |		Short_Literal	0x3e7
10e8 027e       | ~  |		Execute	Discrete,Not_Equal
10e9 6803       |h   |		Jump_Zero	0x10ed
10ea e5fe       |    |		Load	0x2,-0x2
10eb e5f6       |    |		Load	0x2,-0xa
10ec 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
10ed e5fd       |    |		Load	0x2,-0x3
10ee 4be7       |K   |		Short_Literal	0x3e7
10ef 027e       | ~  |		Execute	Discrete,Not_Equal
10f0 6803       |h   |		Jump_Zero	0x10f4
10f1 e5fd       |    |		Load	0x2,-0x3
10f2 e5f6       |    |		Load	0x2,-0xa
10f3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
10f4 e5fc       |    |		Load	0x2,-0x4
10f5 0e02       |    |		Execute_Immediate	Not_Equal,0x2
10f6 6803       |h   |		Jump_Zero	0x10fa
10f7 e5fc       |    |		Load	0x2,-0x4
10f8 e5f6       |    |		Load	0x2,-0xa
10f9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
10fa e5fb       |    |		Load	0x2,-0x5
10fb 0e02       |    |		Execute_Immediate	Not_Equal,0x2
10fc 6803       |h   |		Jump_Zero	0x1100
10fd e5fb       |    |		Load	0x2,-0x5
10fe e5f6       |    |		Load	0x2,-0xa
10ff 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
1100 e5fa       |    |		Load	0x2,-0x6
1101 4be7       |K   |		Short_Literal	0x3e7
1102 027e       | ~  |		Execute	Discrete,Not_Equal
1103 6803       |h   |		Jump_Zero	0x1107
1104 e5fa       |    |		Load	0x2,-0x6
1105 e5f6       |    |		Load	0x2,-0xa
1106 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
1107 e5f9       |    |		Load	0x2,-0x7
1108 0e02       |    |		Execute_Immediate	Not_Equal,0x2
1109 6803       |h   |		Jump_Zero	0x110d
110a e5f9       |    |		Load	0x2,-0x7
110b e5f6       |    |		Load	0x2,-0xa
110c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
110d 0007       |    |		Action	Break_Optional
110e 4801       |H   |		Short_Literal	0x1
110f e5ff       |    |		Load	0x2,-0x1
1110 01db       |    |		Execute	Vector,Length
1111 e5ff       |    |		Load	0x2,-0x1
1112 01cf       |    |		Execute	Vector,Slice_Read
1113 4801       |H   |		Short_Literal	0x1
1114 4850       |HP  |		Short_Literal	0x50
1115 e5ff       |    |		Load	0x2,-0x1
1116 01db       |    |		Execute	Vector,Length
1117 0272       | r  |		Execute	Discrete,Minus
1118 0248       | H  |		Execute	Discrete,Check_In_Integer
1119 e220       |    |		Load	0x1,0x20
111a 01cf       |    |		Execute	Vector,Slice_Read
111b 01cc       |    |		Execute	Vector,Catenate
111c 4801       |H   |		Short_Literal	0x1
111d 4850       |HP  |		Short_Literal	0x50
111e e605       |    |		Load	0x3,0x5
111f 01ce       |    |		Execute	Vector,Slice_Write
1120 e5ff       |    |		Load	0x2,-0x1
1121 01db       |    |		Execute	Vector,Length
1122 a606       |    |		Store_Unchecked	0x3,0x6
1123 e5f7       |    |		Load	0x2,-0x9
1124 0f01       |    |		Execute_Immediate	Equal,0x1
1125 4801       |H   |		Short_Literal	0x1
1126 4809       |H   |		Short_Literal	0x9
1127 e605       |    |		Load	0x3,0x5
1128 01cf       |    |		Execute	Vector,Slice_Read
1129 0092 1318  |    |		Action	Push_String_Extended,0x1318					; "\x5cdefault\x5c"
112b 01df       |    |		Execute	Vector,Equal
112c 0279       | y  |		Execute	Discrete,And
112d 6801       |h   |		Jump_Zero	0x112f
112e 78de       |x   |		Jump	0x120d
112f e5f7       |    |		Load	0x2,-0x9
1130 0f01       |    |		Execute_Immediate	Equal,0x1
1131 4801       |H   |		Short_Literal	0x1
1132 4809       |H   |		Short_Literal	0x9
1133 e605       |    |		Load	0x3,0x5
1134 01cf       |    |		Execute	Vector,Slice_Read
1135 0092 1318  |    |		Action	Push_String_Extended,0x1318					; "\x5cdefault\x5c"
1137 01de       |    |		Execute	Vector,Not_Equal
1138 0279       | y  |		Execute	Discrete,And
1139 680d       |h   |		Jump_Zero	0x1147
113a 4801       |H   |		Short_Literal	0x1
113b 4850       |HP  |		Short_Literal	0x50
113c e605       |    |		Load	0x3,0x5
113d 01cf       |    |		Execute	Vector,Slice_Read
113e 4801       |H   |		Short_Literal	0x1
113f 4850       |HP  |		Short_Literal	0x50
1140 e5f6       |    |		Load	0x2,-0xa
1141 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
1142 01ce       |    |		Execute	Vector,Slice_Write
1143 00d8       |    |		Load_Top	At_Offset_0
1144 e5f6       |    |		Load	0x2,-0xa
1145 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
1146 78c6       |x   |		Jump	0x120d
1147 4801       |H   |		Short_Literal	0x1
1148 4809       |H   |		Short_Literal	0x9
1149 e605       |    |		Load	0x3,0x5
114a 01cf       |    |		Execute	Vector,Slice_Read
114b 0092 1318  |    |		Action	Push_String_Extended,0x1318					; "\x5cdefault\x5c"
114d 01df       |    |		Execute	Vector,Equal
114e e5fa       |    |		Load	0x2,-0x6
114f 0f00       |    |		Execute_Immediate	Equal,0x0
1150 0279       | y  |		Execute	Discrete,And
1151 6801       |h   |		Jump_Zero	0x1153
1152 78ba       |x   |		Jump	0x120d
1153 4801       |H   |		Short_Literal	0x1
1154 4809       |H   |		Short_Literal	0x9
1155 e605       |    |		Load	0x3,0x5
1156 01cf       |    |		Execute	Vector,Slice_Read
1157 0092 1318  |    |		Action	Push_String_Extended,0x1318					; "\x5cdefault\x5c"
1159 01df       |    |		Execute	Vector,Equal
115a e5fa       |    |		Load	0x2,-0x6
115b 4be7       |K   |		Short_Literal	0x3e7
115c 027f       |    |		Execute	Discrete,Equal
115d 0279       | y  |		Execute	Discrete,And
115e 6801       |h   |		Jump_Zero	0x1160
115f 78ad       |x   |		Jump	0x120d
1160 e5fa       |    |		Load	0x2,-0x6
1161 700d       |p   |		Jump_Nonzero	0x116f
1162 4801       |H   |		Short_Literal	0x1
1163 4850       |HP  |		Short_Literal	0x50
1164 e605       |    |		Load	0x3,0x5
1165 01cf       |    |		Execute	Vector,Slice_Read
1166 4801       |H   |		Short_Literal	0x1
1167 4850       |HP  |		Short_Literal	0x50
1168 e5f6       |    |		Load	0x2,-0xa
1169 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
116a 01ce       |    |		Execute	Vector,Slice_Write
116b 00d8       |    |		Load_Top	At_Offset_0
116c e5f6       |    |		Load	0x2,-0xa
116d 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
116e 789e       |x   |		Jump	0x120d
116f e5fa       |    |		Load	0x2,-0x6
1170 0c64       | d  |		Execute_Immediate	Greater_Equal,0x64
1171 680d       |h   |		Jump_Zero	0x117f
1172 4801       |H   |		Short_Literal	0x1
1173 4850       |HP  |		Short_Literal	0x50
1174 e605       |    |		Load	0x3,0x5
1175 01cf       |    |		Execute	Vector,Slice_Read
1176 4801       |H   |		Short_Literal	0x1
1177 4850       |HP  |		Short_Literal	0x50
1178 e5f6       |    |		Load	0x2,-0xa
1179 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
117a 01ce       |    |		Execute	Vector,Slice_Write
117b 00d8       |    |		Load_Top	At_Offset_0
117c e5f6       |    |		Load	0x2,-0xa
117d 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
117e 788e       |x   |		Jump	0x120d
117f e5fa       |    |		Load	0x2,-0x6
1180 4f9d       |O   |		Short_Literal	-0x63
1181 027c       | |  |		Execute	Discrete,Less
1182 680d       |h   |		Jump_Zero	0x1190
1183 4801       |H   |		Short_Literal	0x1
1184 4850       |HP  |		Short_Literal	0x50
1185 e605       |    |		Load	0x3,0x5
1186 01cf       |    |		Execute	Vector,Slice_Read
1187 4801       |H   |		Short_Literal	0x1
1188 4850       |HP  |		Short_Literal	0x50
1189 e5f6       |    |		Load	0x2,-0xa
118a 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
118b 01ce       |    |		Execute	Vector,Slice_Write
118c 00d8       |    |		Load_Top	At_Offset_0
118d e5f6       |    |		Load	0x2,-0xa
118e 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
118f 787d       |x}  |		Jump	0x120d
1190 4801       |H   |		Short_Literal	0x1
1191 4809       |H   |		Short_Literal	0x9
1192 e605       |    |		Load	0x3,0x5
1193 01cf       |    |		Execute	Vector,Slice_Read
1194 0092 1318  |    |		Action	Push_String_Extended,0x1318					; "\x5cdefault\x5c"
1196 01df       |    |		Execute	Vector,Equal
1197 6838       |h8  |		Jump_Zero	0x11d0
1198 0092 1307  |    |		Action	Push_String_Extended,0x1307					; "  "
119a 4801       |H   |		Short_Literal	0x1
119b 4802       |H   |		Short_Literal	0x2
119c e602       |    |		Load	0x3,0x2
119d 01ce       |    |		Execute	Vector,Slice_Write
119e 0092 1319  |    |		Action	Push_String_Extended,0x1319					; ".  "
11a0 4801       |H   |		Short_Literal	0x1
11a1 4803       |H   |		Short_Literal	0x3
11a2 e603       |    |		Load	0x3,0x3
11a3 01ce       |    |		Execute	Vector,Slice_Write
11a4 0092 131a  |    |		Action	Push_String_Extended,0x131a					; "     "
11a6 4801       |H   |		Short_Literal	0x1
11a7 4805       |H   |		Short_Literal	0x5
11a8 e604       |    |		Load	0x3,0x4
11a9 01ce       |    |		Execute	Vector,Slice_Write
11aa e602       |    |		Load	0x3,0x2
11ab 4801       |H   |		Short_Literal	0x1
11ac 4802       |H   |		Short_Literal	0x2
11ad e607       |    |		Load	0x3,0x7
11ae 035b       | [  |		Declare_Type	Array,Constrained
11af 00d0       |    |		Action	Swap_Control
11b0 01cd       |    |		Execute	Vector,Slice_Reference
11b1 480a       |H   |		Short_Literal	0xa
11b2 e5f6       |    |		Load	0x2,-0xa
11b3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
11b4 0274       | t  |		Execute	Discrete,Absolute_Value
11b5 e009       |    |		Load	0x0,0x9
11b6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
11b7 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
11b8 00d1       |    |		Pop_Control	Pop_Count_1
11b9 4801       |H   |		Short_Literal	0x1
11ba 4802       |H   |		Short_Literal	0x2
11bb e602       |    |		Load	0x3,0x2
11bc 01cf       |    |		Execute	Vector,Slice_Read
11bd 4801       |H   |		Short_Literal	0x1
11be 4803       |H   |		Short_Literal	0x3
11bf e603       |    |		Load	0x3,0x3
11c0 01cf       |    |		Execute	Vector,Slice_Read
11c1 01cc       |    |		Execute	Vector,Catenate
11c2 4801       |H   |		Short_Literal	0x1
11c3 4805       |H   |		Short_Literal	0x5
11c4 e604       |    |		Load	0x3,0x4
11c5 01ce       |    |		Execute	Vector,Slice_Write
11c6 4801       |H   |		Short_Literal	0x1
11c7 4804       |H   |		Short_Literal	0x4
11c8 e604       |    |		Load	0x3,0x4
11c9 01cf       |    |		Execute	Vector,Slice_Read
11ca 4801       |H   |		Short_Literal	0x1
11cb 4804       |H   |		Short_Literal	0x4
11cc e5f6       |    |		Load	0x2,-0xa
11cd 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
11ce 01ce       |    |		Execute	Vector,Slice_Write
11cf 783d       |x=  |		Jump	0x120d
11d0 0092 1307  |    |		Action	Push_String_Extended,0x1307					; "  "
11d2 4801       |H   |		Short_Literal	0x1
11d3 4802       |H   |		Short_Literal	0x2
11d4 e602       |    |		Load	0x3,0x2
11d5 01ce       |    |		Execute	Vector,Slice_Write
11d6 0092 1319  |    |		Action	Push_String_Extended,0x1319					; ".  "
11d8 4801       |H   |		Short_Literal	0x1
11d9 4803       |H   |		Short_Literal	0x3
11da e603       |    |		Load	0x3,0x3
11db 01ce       |    |		Execute	Vector,Slice_Write
11dc 0092 131a  |    |		Action	Push_String_Extended,0x131a					; "     "
11de 4801       |H   |		Short_Literal	0x1
11df 4805       |H   |		Short_Literal	0x5
11e0 e604       |    |		Load	0x3,0x4
11e1 01ce       |    |		Execute	Vector,Slice_Write
11e2 e602       |    |		Load	0x3,0x2
11e3 4801       |H   |		Short_Literal	0x1
11e4 4802       |H   |		Short_Literal	0x2
11e5 e607       |    |		Load	0x3,0x7
11e6 035b       | [  |		Declare_Type	Array,Constrained
11e7 00d0       |    |		Action	Swap_Control
11e8 01cd       |    |		Execute	Vector,Slice_Reference
11e9 480a       |H   |		Short_Literal	0xa
11ea e5f6       |    |		Load	0x2,-0xa
11eb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
11ec 0274       | t  |		Execute	Discrete,Absolute_Value
11ed e009       |    |		Load	0x0,0x9
11ee 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
11ef 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
11f0 00d1       |    |		Pop_Control	Pop_Count_1
11f1 4801       |H   |		Short_Literal	0x1
11f2 4802       |H   |		Short_Literal	0x2
11f3 e602       |    |		Load	0x3,0x2
11f4 01cf       |    |		Execute	Vector,Slice_Read
11f5 4801       |H   |		Short_Literal	0x1
11f6 4803       |H   |		Short_Literal	0x3
11f7 e603       |    |		Load	0x3,0x3
11f8 01cf       |    |		Execute	Vector,Slice_Read
11f9 01cc       |    |		Execute	Vector,Catenate
11fa 4801       |H   |		Short_Literal	0x1
11fb 4805       |H   |		Short_Literal	0x5
11fc e604       |    |		Load	0x3,0x4
11fd 01ce       |    |		Execute	Vector,Slice_Write
11fe 4801       |H   |		Short_Literal	0x1
11ff 4804       |H   |		Short_Literal	0x4
1200 e604       |    |		Load	0x3,0x4
1201 01cf       |    |		Execute	Vector,Slice_Read
1202 4801       |H   |		Short_Literal	0x1
1203 484c       |HL  |		Short_Literal	0x4c
1204 e605       |    |		Load	0x3,0x5
1205 01cf       |    |		Execute	Vector,Slice_Read
1206 01cc       |    |		Execute	Vector,Catenate
1207 e5f6       |    |		Load	0x2,-0xa
1208 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
1209 00d8       |    |		Load_Top	At_Offset_0
120a 0a04       |    |		Execute_Immediate	Plus,0x4
120b e5f6       |    |		Load	0x2,-0xa
120c 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
120d e5f8       |    |		Load	0x2,-0x8
120e 4be7       |K   |		Short_Literal	0x3e7
120f 027e       | ~  |		Execute	Discrete,Not_Equal
1210 6806       |h   |		Jump_Zero	0x1217
1211 e5f8       |    |		Load	0x2,-0x8
1212 0d51       | Q  |		Execute_Immediate	Less,0x51
1213 6803       |h   |		Jump_Zero	0x1217
1214 e5f8       |    |		Load	0x2,-0x8
1215 e5f6       |    |		Load	0x2,-0xa
1216 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
1217 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
1218			TRAP_10d0:
1218 0007       |    |		Action	Break_Optional
1219 4800       |H   |		Short_Literal	0x0
121a 4801       |H   |		Short_Literal	0x1
121b 0092 131b  |    |		Action	Push_String_Extended,0x131b					; "Exception occurred in ap_load_param."
121d e009       |    |		Load	0x0,0x9
121e 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
121f e00f       |    |		Load	0x0,0xf
1220 0257       | W  |		Execute	Discrete,Raise
1221 0000 0000  |    |		.BLANK	0000[0x7]
1228 ; --------------------------------------------------------------------------------------
1228 ; SUBPROGRAM
1228 ; --------------------------------------------------------------------------------------
1228 122d       | -  |		.CONST	0x122d								; Address of begin
1229 12cd       |    |		.CONST	0x12cd								; Address of exception handler
122a 0002       |    |		.CONST	0x0002								; Number of locals
122b			INIT_1228:
122b 00e1       |    |		Load_Encached	Boolean_Cache
122c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
122d			BODY_1228:
122d 4800       |H   |		Short_Literal	0x0
122e a802       |    |		Store_Unchecked	0x4,0x2
122f e272       | r  |		Load	0x1,0x72
1230 0f01       |    |		Execute_Immediate	Equal,0x1
1231 6831       |h1  |		Jump_Zero	0x1263
1232 0092 131c  |    |		Action	Push_String_Extended,0x131c					; "**Debugging:  Keyword loop=> "
1234 e009       |    |		Load	0x0,0x9
1235 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1236 e60c       |    |		Load	0x3,0xc
1237 e009       |    |		Load	0x0,0x9
1238 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
1239 e009       |    |		Load	0x0,0x9
123a 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
123b 0092 131d  |    |		Action	Push_String_Extended,0x131d					; "   Search mask=>"
123d 4801       |H   |		Short_Literal	0x1
123e e241       | A  |		Load	0x1,0x41
123f e5fb       |    |		Load	0x2,-0x5
1240 01d5       |    |		Execute	Vector,Field_Reference
1241 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
1242 e241       | A  |		Load	0x1,0x41
1243 e5fb       |    |		Load	0x2,-0x5
1244 01d5       |    |		Execute	Vector,Field_Reference
1245 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
1246 01cf       |    |		Execute	Vector,Slice_Read
1247 01cc       |    |		Execute	Vector,Catenate
1248 0092 130c  |    |		Action	Push_String_Extended,0x130c					; "<="
124a 01cc       |    |		Execute	Vector,Catenate
124b e009       |    |		Load	0x0,0x9
124c 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
124d e009       |    |		Load	0x0,0x9
124e 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
124f 0092 131e  |    |		Action	Push_String_Extended,0x131e					; "   Value  mask=>"
1251 4801       |H   |		Short_Literal	0x1
1252 e60c       |    |		Load	0x3,0xc
1253 e5fb       |    |		Load	0x2,-0x5
1254 01d5       |    |		Execute	Vector,Field_Reference
1255 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
1256 e60c       |    |		Load	0x3,0xc
1257 e5fb       |    |		Load	0x2,-0x5
1258 01d5       |    |		Execute	Vector,Field_Reference
1259 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
125a 01cf       |    |		Execute	Vector,Slice_Read
125b 01cc       |    |		Execute	Vector,Catenate
125c 0092 131f  |    |		Action	Push_String_Extended,0x131f					; "<=(& +4,-4"
125e 01cc       |    |		Execute	Vector,Catenate
125f e009       |    |		Load	0x0,0x9
1260 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
1261 e009       |    |		Load	0x0,0x9
1262 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
1263 e60c       |    |		Load	0x3,0xc
1264 e5fb       |    |		Load	0x2,-0x5
1265 01d5       |    |		Execute	Vector,Field_Reference
1266 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
1267 0c05       |    |		Execute_Immediate	Greater_Equal,0x5
1268 e60c       |    |		Load	0x3,0xc
1269 e5fb       |    |		Load	0x2,-0x5
126a 01d5       |    |		Execute	Vector,Field_Reference
126b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
126c 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
126d 0279       | y  |		Execute	Discrete,And
126e 685d       |h]  |		Jump_Zero	0x12cc
126f 00e1       |    |		Load_Encached	Boolean_Cache
1270 4801       |H   |		Short_Literal	0x1
1271 4fff       |O   |		Short_Literal	-0x1
1272 4805       |H   |		Short_Literal	0x5
1273 e60c       |    |		Load	0x3,0xc
1274 e5fb       |    |		Load	0x2,-0x5
1275 01d5       |    |		Execute	Vector,Field_Reference
1276 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
1277 0afc       |    |		Execute_Immediate	Plus,-0x4
1278 0248       | H  |		Execute	Discrete,Check_In_Integer
1279 e60c       |    |		Load	0x3,0xc
127a e5fb       |    |		Load	0x2,-0x5
127b 01d5       |    |		Execute	Vector,Field_Reference
127c 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
127d 01cf       |    |		Execute	Vector,Slice_Read
127e 4fff       |O   |		Short_Literal	-0x1
127f 4801       |H   |		Short_Literal	0x1
1280 e241       | A  |		Load	0x1,0x41
1281 e5fb       |    |		Load	0x2,-0x5
1282 01d5       |    |		Execute	Vector,Field_Reference
1283 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
1284 e241       | A  |		Load	0x1,0x41
1285 e5fb       |    |		Load	0x2,-0x5
1286 01d5       |    |		Execute	Vector,Field_Reference
1287 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
1288 01cf       |    |		Execute	Vector,Slice_Read
1289 e009       |    |		Load	0x0,0x9
128a 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
128b c802       |    |		Store	0x4,0x2
128c 00d8       |    |		Load_Top	At_Offset_0
128d 0f01       |    |		Execute_Immediate	Equal,0x1
128e 681c       |h   |		Jump_Zero	0x12ab
128f e60c       |    |		Load	0x3,0xc
1290 e5fb       |    |		Load	0x2,-0x5
1291 01d5       |    |		Execute	Vector,Field_Reference
1292 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
1293 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
1294 6815       |h   |		Jump_Zero	0x12aa
1295 e60c       |    |		Load	0x3,0xc
1296 e5fb       |    |		Load	0x2,-0x5
1297 01d5       |    |		Execute	Vector,Field_Reference
1298 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
1299 a5fa       |    |		Store_Unchecked	0x2,-0x6
129a e272       | r  |		Load	0x1,0x72
129b 0f01       |    |		Execute_Immediate	Equal,0x1
129c 680a       |h   |		Jump_Zero	0x12a7
129d 0092 1320  |    |		Action	Push_String_Extended,0x1320					; "Debug: Got match, substituting command no=>"
129f e009       |    |		Load	0x0,0x9
12a0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
12a1 e60c       |    |		Load	0x3,0xc
12a2 e5fb       |    |		Load	0x2,-0x5
12a3 01d5       |    |		Execute	Vector,Field_Reference
12a4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
12a5 e009       |    |		Load	0x0,0x9
12a6 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
12a7 00cc       |    |		Action	Pop_Block
12a8 00d2       |    |		Pop_Control	Pop_Count_2
12a9 7cf2       ||   |		Jump	0xf9c
12aa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12ab 4801       |H   |		Short_Literal	0x1
12ac 4804       |H   |		Short_Literal	0x4
12ad e241       | A  |		Load	0x1,0x41
12ae e5fb       |    |		Load	0x2,-0x5
12af 01d5       |    |		Execute	Vector,Field_Reference
12b0 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
12b1 01cf       |    |		Execute	Vector,Slice_Read
12b2 0092 1321  |   !|		Action	Push_String_Extended,0x1321					; "Exit"
12b4 01df       |    |		Execute	Vector,Equal
12b5 4801       |H   |		Short_Literal	0x1
12b6 4804       |H   |		Short_Literal	0x4
12b7 e241       | A  |		Load	0x1,0x41
12b8 e5fb       |    |		Load	0x2,-0x5
12b9 01d5       |    |		Execute	Vector,Field_Reference
12ba 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
12bb 01cf       |    |		Execute	Vector,Slice_Read
12bc 0092 1322  |   "|		Action	Push_String_Extended,0x1322					; "exit"
12be 01df       |    |		Execute	Vector,Equal
12bf 0278       | x  |		Execute	Discrete,Or
12c0 680b       |h   |		Jump_Zero	0x12cc
12c1 0092 1323  |   #|		Action	Push_String_Extended,0x1323					; "Quit"
12c3 4801       |H   |		Short_Literal	0x1
12c4 4804       |H   |		Short_Literal	0x4
12c5 e241       | A  |		Load	0x1,0x41
12c6 e5fb       |    |		Load	0x2,-0x5
12c7 01d7       |    |		Execute	Vector,Field_Read
12c8 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
12c9 01ce       |    |		Execute	Vector,Slice_Write
12ca 481e       |H   |		Short_Literal	0x1e
12cb a5fa       |    |		Store_Unchecked	0x2,-0x6
12cc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12cd			TRAP_1228:
12cd 0007       |    |		Action	Break_Optional
12ce 0092 1324  |   $|		Action	Push_String_Extended,0x1324					; "Error => Common_base.process_menu Got exception in keyword match handling."
12d0 e009       |    |		Load	0x0,0x9
12d1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
12d2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
12d3 ; --------------------------------------------------------------------------------------
12d3 ; STRING TABLE
12d3 ; --------------------------------------------------------------------------------------
12d3 00a6       |    |		.STRTAB	0x00a6->0x1326							; "ON"
12d4 00a6       |    |		.STRTAB	0x00a6->0x1327							; "OFF"
12d5 00a7       |    |		.STRTAB	0x00a7->0x1328							; "DEFAULT"
12d6 00ac       |    |		.STRTAB	0x00ac->0x132c							; "UNUSED"
12d7 00b0       |    |		.STRTAB	0x00b0->0x132f							; "VALID"
12d8 00b3       |    |		.STRTAB	0x00b3->0x1331							; "DELETED"
12d9 00b8       |    |		.STRTAB	0x00b8->0x1335							; "UNUSED"
12da 00bc       |    |		.STRTAB	0x00bc->0x1338							; "LOCKED"
12db 00c0       |    |		.STRTAB	0x00c0->0x133b							; "UNLOCKED"
12dc 00c6       |    |		.STRTAB	0x00c6->0x133f							; "Constraint error in base."
12dd 00dd       |    |		.STRTAB	0x00dd->0x134b							; "Numeric error in base."
12de 00f1       |    |		.STRTAB	0x00f1->0x1356							; "Program error in base."
12df 0105       |    |		.STRTAB	0x0105->0x1361							; "Storage error in base."
12e0 0119       |    |		.STRTAB	0x0119->0x136c							; "Tasking error in base."
12e1 012d       | -  |		.STRTAB	0x012d->0x1377							; "Other Program error in base."
12e2 0147       | G  |		.STRTAB	0x0147->0x1385							; "xx"
12e3 0147       | G  |		.STRTAB	0x0147->0x1386							; "blank"
12e4 014a       | J  |		.STRTAB	0x014a->0x1389							; "ok   "
12e5 014d       | M  |		.STRTAB	0x014d->0x138b							; "cr er"
12e6 0150       | P  |		.STRTAB	0x0150->0x138e							; "op er"
12e7 0153       | S  |		.STRTAB	0x0153->0x1390							; "cl er"
12e8 0156       | V  |		.STRTAB	0x0156->0x1393							; "wr er"
12e9 0159       | Y  |		.STRTAB	0x0159->0x1395							; "Exception in ap_write_master, invalid index/file err.: "
12ea 018e       |    |		.STRTAB	0x018e->0x13b1							; "dl er"
12eb 0191       |    |		.STRTAB	0x0191->0x13b3							; "Exception in ap_delete_record, invalid index/file err.: "
12ec 01c7       |    |		.STRTAB	0x01c7->0x13cf							; "Exception in ap_get_last_record.."
12ed 01e6       |    |		.STRTAB	0x01e6->0x13e0							; "error"
12ee 01e9       |    |		.STRTAB	0x01e9->0x13e2							; "rdcer"
12ef 01ec       |    |		.STRTAB	0x01ec->0x13e5							; "[Concurrent database update in progress, will delay 2 seconds & retry.]"
12f0 0231       | 1  |		.STRTAB	0x0231->0x1408							; "[Error - Retried database update open 5 times, and file still locked.]"
12f1 0275       | u  |		.STRTAB	0x0275->0x142b							; "Exception in ap_clear_and_display_screen."
12f2 029c       |    |		.STRTAB	0x029c->0x1440							; "Exception in ap_print_screen"
12f3 02b6       |    |		.STRTAB	0x02b6->0x144e							; "Exception in ap_display_menu_error_message"
12f4 02de       |    |		.STRTAB	0x02de->0x1463							; "Exception in ap_display_field."
12f5 02fa       |    |		.STRTAB	0x02fa->0x1472							; "Exception in ap_display_item."
12f6 0315       |    |		.STRTAB	0x0315->0x1480							; "Exception in ap_write_rec_params, invalid index/file err.: "
12f7 034e       | N  |		.STRTAB	0x034e->0x149e							; "Exception in ap_read_rec_params, invalid index/file err.: "
12f8 0386       |    |		.STRTAB	0x0386->0x14bb							; "1.Before read in ap_read_master"
12f9 03a3       |    |		.STRTAB	0x03a3->0x14ca							; "5.After update keys in ap_read_master. end."
12fa 03cc       |    |		.STRTAB	0x03cc->0x14e0							; "rd er"
12fb 03cf       |    |		.STRTAB	0x03cf->0x14e2							; "6.After got except,end in ap_read_master"
12fc 03f5       |    |		.STRTAB	0x03f5->0x14f6							; "1 "
12fd 03f5       |    |		.STRTAB	0x03f5->0x14f7							; "  Command: (or ?):"
12fe 0405       |    |		.STRTAB	0x0405->0x1500							; "Command:"
12ff 040b       |    |		.STRTAB	0x040b->0x1504							; "Invalid Menu Command.   A '?' re-displays the menu choices."
1300 0444       | D  |		.STRTAB	0x0444->0x1522							; "Please enter a keyword or numeric command or use default and promote."
1301 0487       |    |		.STRTAB	0x0487->0x1544							; "[Or '?' for new menu, Or use standard R1000 window & editing.]"
1302 04c3       |    |		.STRTAB	0x04c3->0x1563							; "[Or for record editing:   Up= ^   Top= ,   Select= .   Exit= /    ]"
1303 0504       |    |		.STRTAB	0x0504->0x1585							; "Exception occurred in ap_init_screen_array_defaults."
1304 0536       | 6  |		.STRTAB	0x0536->0x159f							; "Exception occurred in ap_screen."
1305 0554       | T  |		.STRTAB	0x0554->0x15af							; "Exception in ap_display_random_screen."
1306 0578       | x  |		.STRTAB	0x0578->0x15c2							; "Exception in ap_display_screen."
1307 0595       |    |		.STRTAB	0x0595->0x15d1							; "  "
1308 0595       |    |		.STRTAB	0x0595->0x15d2							; "  ----------------------------------------"
1309 05bd       |    |		.STRTAB	0x05bd->0x15e7							; "["
130a 05bc       |    |		.STRTAB	0x05bc->0x15e8							; "]:"
130b 05bc       |    |		.STRTAB	0x05bc->0x15e9							; "--deb*2* before menu error in proc menu."
130c 05e2       |    |		.STRTAB	0x05e2->0x15fd							; "<="
130d 05e2       |    |		.STRTAB	0x05e2->0x15fe							; "#"
130e 05e1       |    |		.STRTAB	0x05e1->0x15fe							; " "
130f 05e0       |    |		.STRTAB	0x05e0->0x15ff							; "--deb*31--"
1310 05e8       |    |		.STRTAB	0x05e8->0x1604							; ","
1311 05e7       |    |		.STRTAB	0x05e7->0x1604							; "."
1312 05e6       |    |		.STRTAB	0x05e6->0x1605							; "/"
1313 05e5       |    |		.STRTAB	0x05e5->0x1605							; "^"
1314 05e4       |    |		.STRTAB	0x05e4->0x1606							; "?"
1315 05e3       |    |		.STRTAB	0x05e3->0x1606							; "deb*7: input=>"
1316 05ef       |    |		.STRTAB	0x05ef->0x160d							; "<end, size ="
1317 05f9       |    |		.STRTAB	0x05f9->0x1613							; ", and size max="
1318 0606       |    |		.STRTAB	0x0606->0x161b							; "\x5cdefault\x5c"
1319 060d       |    |		.STRTAB	0x060d->0x161f							; ".  "
131a 060e       |    |		.STRTAB	0x060e->0x1621							; "     "
131b 0611       |    |		.STRTAB	0x0611->0x1623							; "Exception occurred in ap_load_param."
131c 0633       | 3  |		.STRTAB	0x0633->0x1635							; "**Debugging:  Keyword loop=> "
131d 064e       | N  |		.STRTAB	0x064e->0x1644							; "   Search mask=>"
131e 065c       | \  |		.STRTAB	0x065c->0x164c							; "   Value  mask=>"
131f 066a       | j  |		.STRTAB	0x066a->0x1654							; "<=(& +4,-4"
1320 0672       | r  |		.STRTAB	0x0672->0x1659							; "Debug: Got match, substituting command no=>"
1321 069b       |    |		.STRTAB	0x069b->0x166e							; "Exit"
1322 069d       |    |		.STRTAB	0x069d->0x1670							; "exit"
1323 069f       |    |		.STRTAB	0x069f->0x1672							; "Quit"
1324 06a1       |    |		.STRTAB	0x06a1->0x1674							; "Error => Common_base.process_menu Got exception in keyword match handling."
1325 06e9       |    |		.STREND 0x06e9->0x1699
1326 4f4e 4f46  |ONOF|		.STRTAB_STRINGS
169a 0000 0000  |    |		.BLANK	0000[0x6]
16a0 ; --------------------------------------------------------------------------------------
16a0 ; Debug Table
16a0 ; --------------------------------------------------------------------------------------
16a0 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x1204,0x0000,0x0001,0x0000
16a6 0000 0000  |    |		.BLANK	0000[0x15a]