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

⟦2ed54c2c1⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0ab8       |    |		.CONST	0x0ab8								; 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 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0127       | '  |		.CONST	0x0127								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 004f       | O  |		.CONST	0x004f								; 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 4800       |H   |		Short_Literal	0x0
002c 4804       |H   |		Short_Literal	0x4
002d 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
002f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0030 c235       | 5  |		Store	0x1,0x35
0031 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0033 c219       |    |		Store	0x1,0x19
0034 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0036 c21a       |    |		Store	0x1,0x1a
0037 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0039 c21b       |    |		Store	0x1,0x1b
003a 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
003c c21c       |    |		Store	0x1,0x1c
003d 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
003f c21d       |    |		Store	0x1,0x1d
0040 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
0041 c21e       |    |		Store	0x1,0x1e
0042 e001       |    |		Load	0x0,0x1
0043 02a8       |    |		Declare_Subprogram	For_Call,Visible,Unelaborated,With_Address
0044 c21f       |    |		Store	0x1,0x1f
0045 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0047 c220       |    |		Store	0x1,0x20
0048 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated
004a c221       | !  |		Store	0x1,0x21
004b 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
004d c222       | "  |		Store	0x1,0x22
004e 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
0050 c223       | #  |		Store	0x1,0x23
0051 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0053 c224       | $  |		Store	0x1,0x24
0054 029a 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Visible,Unelaborated
0056 c225       | %  |		Store	0x1,0x25
0057 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
0059 c226       | &  |		Store	0x1,0x26
005a 029a 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call,Visible,Unelaborated
005c c227       | '  |		Store	0x1,0x27
005d 029a 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Outer_Call,Visible,Unelaborated
005f c228       | (  |		Store	0x1,0x28
0060 029a 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Outer_Call,Visible,Unelaborated
0062 c229       | )  |		Store	0x1,0x29
0063 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
0065 c22a       | *  |		Store	0x1,0x2a
0066 029a 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call,Visible,Unelaborated
0068 c22b       | +  |		Store	0x1,0x2b
0069 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
006b c22c       | ,  |		Store	0x1,0x2c
006c 029a 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call,Visible,Unelaborated
006e c22f       | /  |		Store	0x1,0x2f
006f 029a 0463  |   c|		Declare_Subprogram	INIT_0460,For_Outer_Call,Visible,Unelaborated
0071 c230       | 0  |		Store	0x1,0x30
0072 4806       |H   |		Short_Literal	0x6
0073 0093 0763  |   c|		push_full_address	INIT_0760
0075 02a0       |    |		Declare_Subprogram	Null_Subprogram
0076 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0077 c232       | 2  |		Store	0x1,0x32
0078 4803       |H   |		Short_Literal	0x3
0079 032a       | *  |		Declare_Type	Record,Incomplete
007a c234       | 4  |		Store	0x1,0x34
007b e234       | 4  |		Load	0x1,0x34
007c 02a0       |    |		Declare_Subprogram	Null_Subprogram
007d e21e       |    |		Load	0x1,0x1e
007e 03a3       |    |		Complete_Type	Heap_Access,By_Defining
007f 00bf       |    |		Action	Accept_Activation
0080 00e9       |    |		Load_Encached	String_Cache
0081 02a0       |    |		Declare_Subprogram	Null_Subprogram
0082 4818       |H   |		Short_Literal	0x18
0083 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0084 00e9       |    |		Load_Encached	String_Cache
0085 02a0       |    |		Declare_Subprogram	Null_Subprogram
0086 03ad       |    |		Declare_Type	Heap_Access,Defined
0087 4806       |H   |		Short_Literal	0x6
0088 032a       | *  |		Declare_Type	Record,Incomplete
0089 00d8       |    |		Load_Top	At_Offset_0
008a 02a0       |    |		Declare_Subprogram	Null_Subprogram
008b 4818       |H   |		Short_Literal	0x18
008c 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
008d 00e1       |    |		Load_Encached	Boolean_Cache
008e e235       | 5  |		Load	0x1,0x35
008f e20f       |    |		Load	0x1,0xf
0090 e238       | 8  |		Load	0x1,0x38
0091 00d8       |    |		Load_Top	At_Offset_0
0092 e23b       | ;  |		Load	0x1,0x3b
0093 02a0       |    |		Declare_Subprogram	Null_Subprogram
0094 e23a       | :  |		Load	0x1,0x3a
0095 0326       | &  |		Complete_Type	Record,By_Defining
0096 4806       |H   |		Short_Literal	0x6
0097 032a       | *  |		Declare_Type	Record,Incomplete
0098 00d8       |    |		Load_Top	At_Offset_0
0099 02a0       |    |		Declare_Subprogram	Null_Subprogram
009a 03ad       |    |		Declare_Type	Heap_Access,Defined
009b 4800       |H   |		Short_Literal	0x0
009c 482a       |H*  |		Short_Literal	0x2a
009d 029f 047b  |   {|		Declare_Subprogram	INIT_0478,For_Call
009f 03fd       |    |		Declare_Type	Discrete,Defined
00a0 e23d       | =  |		Load	0x1,0x3d
00a1 00d8       |    |		Load_Top	At_Offset_0
00a2 00e1       |    |		Load_Encached	Boolean_Cache
00a3 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a4 e234       | 4  |		Load	0x1,0x34
00a5 0326       | &  |		Complete_Type	Record,By_Defining
00a6 00d8       |    |		Load_Top	At_Offset_0
00a7 e235       | 5  |		Load	0x1,0x35
00a8 e23b       | ;  |		Load	0x1,0x3b
00a9 e239       | 9  |		Load	0x1,0x39
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab e23d       | =  |		Load	0x1,0x3d
00ac 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ad e23c       | <  |		Load	0x1,0x3c
00ae 0326       | &  |		Complete_Type	Record,By_Defining
00af e23b       | ;  |		Load	0x1,0x3b
00b0 0007       |    |		Action	Break_Optional
00b1 e216       |    |		Load	0x1,0x16
00b2 e20f       |    |		Load	0x1,0xf
00b3 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
00b4 e217       |    |		Load	0x1,0x17
00b5 e20f       |    |		Load	0x1,0xf
00b6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
00b7 029d 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Outer_Call
00b9 029d 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Outer_Call
00bb 029d 04f3  |    |		Declare_Subprogram	INIT_04f0,For_Outer_Call
00bd 029d 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call
00bf 029d 051b  |    |		Declare_Subprogram	INIT_0518,For_Outer_Call
00c1 029d 053b  |   ;|		Declare_Subprogram	INIT_0538,For_Outer_Call
00c3 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 029d 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call
00cf 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00d0 00c7       |    |		Action	Elaborate_Subprogram
00d1 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
00d2 00c7       |    |		Action	Elaborate_Subprogram
00d3 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00d4 00c7       |    |		Action	Elaborate_Subprogram
00d5 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00d6 00c7       |    |		Action	Elaborate_Subprogram
00d7 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00d8 00c7       |    |		Action	Elaborate_Subprogram
00d9 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
00da 00c7       |    |		Action	Elaborate_Subprogram
00db 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
00dc 00c7       |    |		Action	Elaborate_Subprogram
00dd 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
00de 00c7       |    |		Action	Elaborate_Subprogram
00df 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00e0 00c7       |    |		Action	Elaborate_Subprogram
00e1 029d 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call
00e3 029d 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call
00e5 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00e6 00c7       |    |		Action	Elaborate_Subprogram
00e7 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00e8 00c7       |    |		Action	Elaborate_Subprogram
00e9 029d 05eb  |    |		Declare_Subprogram	INIT_05e8,For_Outer_Call
00eb e002       |    |		Load	0x0,0x2
00ec e003       |    |		Load	0x0,0x3
00ed e004       |    |		Load	0x0,0x4
00ee 00b6       |    |		Action	Make_Scope
00ef 1d48       | H  |		Execute_Immediate	Reference_Lex_1,0x48
00f0 1d42       | B  |		Execute_Immediate	Reference_Lex_1,0x42
00f1 4806       |H   |		Short_Literal	0x6
00f2 e232       | 2  |		Load	0x1,0x32
00f3 020e       |    |		Execute	Module,Augment_Imports
00f4 e232       | 2  |		Load	0x1,0x32
00f5 020d       |    |		Execute	Module,Elaborate
00f6 0007       |    |		Action	Break_Optional
00f7 e005       |    |		Load	0x0,0x5
00f8 e006       |    |		Load	0x0,0x6
00f9 00e1       |    |		Load_Encached	Boolean_Cache
00fa 4800       |H   |		Short_Literal	0x0
00fb 00c4       |    |		Action	Make_Default
00fc 4801       |H   |		Short_Literal	0x1
00fd e210       |    |		Load	0x1,0x10
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff e20f       |    |		Load	0x1,0xf
0100 0260       | `  |		Execute	Discrete,In_Type
0101 7001       |p   |		Jump_Nonzero	0x103
0102 0801       |    |		Execute_Immediate	Raise,0x1
0103 c250       | P  |		Store	0x1,0x50
0104 e232       | 2  |		Load	0x1,0x32
0105 0387       |    |		Declare_Variable	Package
0106 00d8       |    |		Load_Top	At_Offset_0
0107 020f       |    |		Execute	Module,Activate
0108 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0109 00c7       |    |		Action	Elaborate_Subprogram
010a 029d 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call
010c 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
010d 00c7       |    |		Action	Elaborate_Subprogram
010e e007       |    |		Load	0x0,0x7
010f e008       |    |		Load	0x0,0x8
0110 e235       | 5  |		Load	0x1,0x35
0111 4800       |H   |		Short_Literal	0x0
0112 00c4       |    |		Action	Make_Default
0113 4801       |H   |		Short_Literal	0x1
0114 e210       |    |		Load	0x1,0x10
0115 00d8       |    |		Load_Top	At_Offset_0
0116 e20f       |    |		Load	0x1,0xf
0117 0260       | `  |		Execute	Discrete,In_Type
0118 7001       |p   |		Jump_Nonzero	0x11a
0119 0801       |    |		Execute_Immediate	Raise,0x1
011a c252       | R  |		Store	0x1,0x52
011b e232       | 2  |		Load	0x1,0x32
011c 0387       |    |		Declare_Variable	Package
011d 00d8       |    |		Load_Top	At_Offset_0
011e 020f       |    |		Execute	Module,Activate
011f 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0120 00c7       |    |		Action	Elaborate_Subprogram
0121 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0122 00c7       |    |		Action	Elaborate_Subprogram
0123 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0124 00c7       |    |		Action	Elaborate_Subprogram
0125 029f 064b  |   K|		Declare_Subprogram	INIT_0648,For_Call
0127			BODY_0008:
0127 00cf       |    |		Action	Mark_Auxiliary
0128 e217       |    |		Load	0x1,0x17
0129 e216       |    |		Load	0x1,0x16
012a 0263       | c  |		Execute	Discrete,Above_Bound
012b 700d       |p   |		Jump_Nonzero	0x139
012c 4801       |H   |		Short_Literal	0x1
012d 00ea       |    |		Load_Encached	Null_String_Cache
012e 4800       |H   |		Short_Literal	0x0
012f 00ea       |    |		Load_Encached	Null_String_Cache
0130 e252       | R  |		Load	0x1,0x52
0131 00d8       |    |		Load_Top	At_Offset_0
0132 e20f       |    |		Load	0x1,0xf
0133 0260       | `  |		Execute	Discrete,In_Type
0134 7001       |p   |		Jump_Nonzero	0x136
0135 0801       |    |		Execute_Immediate	Raise,0x1
0136 8219       |    |		Call	0x1,0x19
0137 00c8       |    |		Action	Pop_Auxiliary_Range
0138 3ff3       |?   |		Loop_Increasing	0x12c
0139 00ce       |    |		Action	Pop_Auxiliary
013a 824f       | O  |		Call	0x1,0x4f
013b 00bc       |    |		Action	Signal_Activated
013c 00bb       |    |		Action	Signal_Completion
013d 0000 0000  |    |		.XXX[0x3]
013f 0000       |    |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 4607       |F   |		Jump_Case	0x8
0144 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0145 7806       |x   |		Jump	0x14c								; case 0x1
0146 7809       |x   |		Jump	0x150								; case 0x2
0147 780d       |x   |		Jump	0x155								; case 0x3
0148 7810       |x   |		Jump	0x159								; case 0x4
0149 7811       |x   |		Jump	0x15b								; case 0x5
014a 7812       |x   |		Jump	0x15d								; case 0x6
014b 7815       |x   |		Jump	0x161								; case 0x7
014c 00da       |    |		Load_Top	At_Offset_2
014d 0091 07e9  |    |		Action	Push_String_Extended_Indexed,0x7e9				; "UNSPECIFIED"
014f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0150 00db       |    |		Load_Top	At_Offset_3
0151 00db       |    |		Load_Top	At_Offset_3
0152 00e0       |    |		Load_Encached	Standard_Cache
0153 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0154 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0155 00da       |    |		Load_Top	At_Offset_2
0156 00e0       |    |		Load_Encached	Standard_Cache
0157 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0158 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0159 00db       |    |		Load_Top	At_Offset_3
015a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
015b 00db       |    |		Load_Top	At_Offset_3
015c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
015d e235       | 5  |		Load	0x1,0x35
015e 00dc       |    |		Load_Top	At_Offset_4
015f 0267       | g  |		Execute	Discrete,Predecessor
0160 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0161 e235       | 5  |		Load	0x1,0x35
0162 00dc       |    |		Load_Top	At_Offset_4
0163 0268       | h  |		Execute	Discrete,Successor
0164 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0165 0000 0000  |    |		.XXX[0x3]
0167 0000       |    |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016d       | m  |		.CONST	0x016d								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0002       |    |		.CONST	0x0002								; Number of locals
016b			INIT_0168:
016b 029f 0723  |   #|		Declare_Subprogram	INIT_0720,For_Call
016d			BODY_0168:
016d e5fe       |    |		Load	0x2,-0x2
016e 01db       |    |		Execute	Vector,Length
016f 7010       |p   |		Jump_Nonzero	0x180
0170 e5fb       |    |		Load	0x2,-0x5
0171 e5fc       |    |		Load	0x2,-0x4
0172 e5fd       |    |		Load	0x2,-0x3
0173 e5ff       |    |		Load	0x2,-0x1
0174 e20f       |    |		Load	0x1,0xf
0175 0122       | "  |		Execute	Any,Make_Root_Type
0176 011c       |    |		Execute	Any,Convert_Unchecked
0177 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0178 e5ff       |    |		Load	0x2,-0x1
0179 00d8       |    |		Load_Top	At_Offset_0
017a e20f       |    |		Load	0x1,0xf
017b 0260       | `  |		Execute	Discrete,In_Type
017c 7001       |p   |		Jump_Nonzero	0x17e
017d 0801       |    |		Execute_Immediate	Raise,0x1
017e 8219       |    |		Call	0x1,0x19
017f 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0180 8402       |    |		Call	0x2,0x2
0181 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0182 0000 0000  |    |		.BLANK	0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0192       |    |		.CONST	0x0192								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0003       |    |		.CONST	0x0003								; Number of locals
018b			INIT_0188:
018b e23f       | ?  |		Load	0x1,0x3f
018c 4800       |H   |		Short_Literal	0x0
018d e5ff       |    |		Load	0x2,-0x1
018e 8245       | E  |		Call	0x1,0x45
018f 8247       | G  |		Call	0x1,0x47
0190 e23f       | ?  |		Load	0x1,0x3f
0191 0007       |    |		Action	Break_Optional
0192			BODY_0188:
0192 e402       |    |		Load	0x2,0x2
0193 681f       |h   |		Jump_Zero	0x1b3
0194 e402       |    |		Load	0x2,0x2
0195 e23f       | ?  |		Load	0x1,0x3f
0196 022f       | /  |		Execute	Access,Equal
0197 6805       |h   |		Jump_Zero	0x19d
0198 e402       |    |		Load	0x2,0x2
0199 0227       | '  |		Execute	Access,All_Reference
019a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
019b a23f       | ?  |		Store_Unchecked	0x1,0x3f
019c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019d 00cf       |    |		Action	Mark_Auxiliary
019e 7805       |x   |		Jump	0x1a4
019f e403       |    |		Load	0x2,0x3
01a0 0227       | '  |		Execute	Access,All_Reference
01a1 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01a2 a403       |    |		Store_Unchecked	0x2,0x3
01a3 00c9       |    |		Action	Pop_Auxiliary_Loop
01a4 e403       |    |		Load	0x2,0x3
01a5 6806       |h   |		Jump_Zero	0x1ac
01a6 e403       |    |		Load	0x2,0x3
01a7 0227       | '  |		Execute	Access,All_Reference
01a8 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01a9 e402       |    |		Load	0x2,0x2
01aa 022e       | .  |		Execute	Access,Not_Equal
01ab 77f3       |w   |		Jump_Nonzero	0x19f
01ac 00ce       |    |		Action	Pop_Auxiliary
01ad e402       |    |		Load	0x2,0x2
01ae 0227       | '  |		Execute	Access,All_Reference
01af 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01b0 e403       |    |		Load	0x2,0x3
01b1 0227       | '  |		Execute	Access,All_Reference
01b2 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01b3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b4 0000 0000  |    |		.BLANK	0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bf       |    |		.CONST	0x01bf								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0003       |    |		.CONST	0x0003								; Number of locals
01bb			INIT_01b8:
01bb e23f       | ?  |		Load	0x1,0x3f
01bc 0007       |    |		Action	Break_Optional
01bd e23b       | ;  |		Load	0x1,0x3b
01be 0007       |    |		Action	Break_Optional
01bf			BODY_01b8:
01bf e5fe       |    |		Load	0x2,-0x2
01c0 e210       |    |		Load	0x1,0x10
01c1 027f       |    |		Execute	Discrete,Equal
01c2 680e       |h   |		Jump_Zero	0x1d1
01c3 e5ff       |    |		Load	0x2,-0x1
01c4 00d8       |    |		Load_Top	At_Offset_0
01c5 e20f       |    |		Load	0x1,0xf
01c6 0260       | `  |		Execute	Discrete,In_Type
01c7 7001       |p   |		Jump_Nonzero	0x1c9
01c8 0801       |    |		Execute_Immediate	Raise,0x1
01c9 e5ff       |    |		Load	0x2,-0x1
01ca 00d8       |    |		Load_Top	At_Offset_0
01cb e20f       |    |		Load	0x1,0xf
01cc 0260       | `  |		Execute	Discrete,In_Type
01cd 7001       |p   |		Jump_Nonzero	0x1cf
01ce 0801       |    |		Execute_Immediate	Raise,0x1
01cf 821b       |    |		Call	0x1,0x1b
01d0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d1 00cf       |    |		Action	Mark_Auxiliary
01d2 781c       |x   |		Jump	0x1ef
01d3 e402       |    |		Load	0x2,0x2
01d4 0227       | '  |		Execute	Access,All_Reference
01d5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01d6 e5ff       |    |		Load	0x2,-0x1
01d7 e5fe       |    |		Load	0x2,-0x2
01d8 0262       | b  |		Execute	Discrete,In_Range
01d9 680e       |h   |		Jump_Zero	0x1e8
01da e403       |    |		Load	0x2,0x3
01db 7005       |p   |		Jump_Nonzero	0x1e1
01dc e402       |    |		Load	0x2,0x2
01dd 0227       | '  |		Execute	Access,All_Reference
01de 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01df a402       |    |		Store_Unchecked	0x2,0x2
01e0 7809       |x   |		Jump	0x1ea
01e1 e402       |    |		Load	0x2,0x2
01e2 0227       | '  |		Execute	Access,All_Reference
01e3 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01e4 e403       |    |		Load	0x2,0x3
01e5 0227       | '  |		Execute	Access,All_Reference
01e6 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01e7 7802       |x   |		Jump	0x1ea
01e8 e402       |    |		Load	0x2,0x2
01e9 a403       |    |		Store_Unchecked	0x2,0x3
01ea e402       |    |		Load	0x2,0x2
01eb 0227       | '  |		Execute	Access,All_Reference
01ec 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
01ed a402       |    |		Store_Unchecked	0x2,0x2
01ee 00c9       |    |		Action	Pop_Auxiliary_Loop
01ef e402       |    |		Load	0x2,0x2
01f0 77e2       |w   |		Jump_Nonzero	0x1d3
01f1 00ce       |    |		Action	Pop_Auxiliary
01f2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f3 0000 0000  |    |		.BLANK	0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0200       |    |		.CONST	0x0200								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0002       |    |		.CONST	0x0002								; Number of locals
01fb			INIT_01f8:
01fb e23f       | ?  |		Load	0x1,0x3f
01fc 4800       |H   |		Short_Literal	0x0
01fd e5ff       |    |		Load	0x2,-0x1
01fe 8245       | E  |		Call	0x1,0x45
01ff 8247       | G  |		Call	0x1,0x47
0200			BODY_01f8:
0200 00d8       |    |		Load_Top	At_Offset_0
0201 6804       |h   |		Jump_Zero	0x206
0202 e5fe       |    |		Load	0x2,-0x2
0203 e402       |    |		Load	0x2,0x2
0204 0227       | '  |		Execute	Access,All_Reference
0205 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0206 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0207 0000       |    |		.XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020d       |    |		.CONST	0x020d								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b e23f       | ?  |		Load	0x1,0x3f
020c 0007       |    |		Action	Break_Optional
020d			BODY_0208:
020d e5fe       |    |		Load	0x2,-0x2
020e e210       |    |		Load	0x1,0x10
020f 027f       |    |		Execute	Discrete,Equal
0210 680f       |h   |		Jump_Zero	0x220
0211 e5fd       |    |		Load	0x2,-0x3
0212 00d8       |    |		Load_Top	At_Offset_0
0213 e20f       |    |		Load	0x1,0xf
0214 0260       | `  |		Execute	Discrete,In_Type
0215 7001       |p   |		Jump_Nonzero	0x217
0216 0801       |    |		Execute_Immediate	Raise,0x1
0217 e241       | A  |		Load	0x1,0x41
0218 00d8       |    |		Load_Top	At_Offset_0
0219 e20f       |    |		Load	0x1,0xf
021a 0260       | `  |		Execute	Discrete,In_Type
021b 7001       |p   |		Jump_Nonzero	0x21d
021c 0801       |    |		Execute_Immediate	Raise,0x1
021d e5ff       |    |		Load	0x2,-0x1
021e 821d       |    |		Call	0x1,0x1d
021f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0220 e5fd       |    |		Load	0x2,-0x3
0221 e210       |    |		Load	0x1,0x10
0222 027f       |    |		Execute	Discrete,Equal
0223 680f       |h   |		Jump_Zero	0x233
0224 e240       | @  |		Load	0x1,0x40
0225 00d8       |    |		Load_Top	At_Offset_0
0226 e20f       |    |		Load	0x1,0xf
0227 0260       | `  |		Execute	Discrete,In_Type
0228 7001       |p   |		Jump_Nonzero	0x22a
0229 0801       |    |		Execute_Immediate	Raise,0x1
022a e5fe       |    |		Load	0x2,-0x2
022b 00d8       |    |		Load_Top	At_Offset_0
022c e20f       |    |		Load	0x1,0xf
022d 0260       | `  |		Execute	Discrete,In_Type
022e 7001       |p   |		Jump_Nonzero	0x230
022f 0801       |    |		Execute_Immediate	Raise,0x1
0230 e5ff       |    |		Load	0x2,-0x1
0231 821d       |    |		Call	0x1,0x1d
0232 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0233 00cf       |    |		Action	Mark_Auxiliary
0234 7810       |x   |		Jump	0x245
0235 e402       |    |		Load	0x2,0x2
0236 0227       | '  |		Execute	Access,All_Reference
0237 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0238 e5fe       |    |		Load	0x2,-0x2
0239 e5fd       |    |		Load	0x2,-0x3
023a 0262       | b  |		Execute	Discrete,In_Range
023b 6804       |h   |		Jump_Zero	0x240
023c e5ff       |    |		Load	0x2,-0x1
023d e402       |    |		Load	0x2,0x2
023e 0227       | '  |		Execute	Access,All_Reference
023f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0240 e402       |    |		Load	0x2,0x2
0241 0227       | '  |		Execute	Access,All_Reference
0242 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0243 a402       |    |		Store_Unchecked	0x2,0x2
0244 00c9       |    |		Action	Pop_Auxiliary_Loop
0245 e402       |    |		Load	0x2,0x2
0246 77ee       |w   |		Jump_Nonzero	0x235
0247 00ce       |    |		Action	Pop_Auxiliary
0248 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0249 0000 0000  |    |		.BLANK	0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0256       | V  |		.CONST	0x0256								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0003       |    |		.CONST	0x0003								; Number of locals
0253			INIT_0250:
0253 00e1       |    |		Load_Encached	Boolean_Cache
0254 e21e       |    |		Load	0x1,0x1e
0255 0007       |    |		Action	Break_Optional
0256			BODY_0250:
0256 00e1       |    |		Load_Encached	Boolean_Cache
0257 e21e       |    |		Load	0x1,0x1e
0258 e5ff       |    |		Load	0x2,-0x1
0259 821f       |    |		Call	0x1,0x1f
025a c403       |    |		Store	0x2,0x3
025b c402       |    |		Store	0x2,0x2
025c 00d8       |    |		Load_Top	At_Offset_0
025d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025e 0000 0000  |    |		.XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 e5ff       |    |		Load	0x2,-0x1
0264 0217       |    |		Execute	Heap_Access,All_Reference
0265 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0266 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0267 0000       |    |		.XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0273       | s  |		.CONST	0x0273								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0002       |    |		.CONST	0x0002								; Number of locals
026b			INIT_0268:
026b e5fe       |    |		Load	0x2,-0x2
026c 00d8       |    |		Load_Top	At_Offset_0
026d e20f       |    |		Load	0x1,0xf
026e 0260       | `  |		Execute	Discrete,In_Type
026f 7001       |p   |		Jump_Nonzero	0x271
0270 0801       |    |		Execute_Immediate	Raise,0x1
0271 e5ff       |    |		Load	0x2,-0x1
0272 8248       | H  |		Call	0x1,0x48
0273			BODY_0268:
0273 00d8       |    |		Load_Top	At_Offset_0
0274 6805       |h   |		Jump_Zero	0x27a
0275 00d8       |    |		Load_Top	At_Offset_0
0276 0217       |    |		Execute	Heap_Access,All_Reference
0277 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0278 0f00       |    |		Execute_Immediate	Equal,0x0
0279 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
027a 4800       |H   |		Short_Literal	0x0
027b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
027c 0000 0000  |    |		.BLANK	0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283       |    |		.CONST	0x0283								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0001       |    |		.CONST	0x0001								; Number of locals
0283			BODY_0280:
0283			INIT_0280:
0283 e5fe       |    |		Load	0x2,-0x2
0284 00d8       |    |		Load_Top	At_Offset_0
0285 e20f       |    |		Load	0x1,0xf
0286 0260       | `  |		Execute	Discrete,In_Type
0287 7001       |p   |		Jump_Nonzero	0x289
0288 0801       |    |		Execute_Immediate	Raise,0x1
0289 e5ff       |    |		Load	0x2,-0x1
028a 8248       | H  |		Call	0x1,0x48
028b 021c       |    |		Execute	Heap_Access,Not_Null
028c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028d 0000 0000  |    |		.XXX[0x3]
028f 0000       |    |
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029b       |    |		.CONST	0x029b								; Address of begin
0291 0391       |    |		.CONST	0x0391								; Address of exception handler
0292 0002       |    |		.CONST	0x0002								; Number of locals
0293			INIT_0290:
0293 e5fe       |    |		Load	0x2,-0x2
0294 00d8       |    |		Load_Top	At_Offset_0
0295 e20f       |    |		Load	0x1,0xf
0296 0260       | `  |		Execute	Discrete,In_Type
0297 7001       |p   |		Jump_Nonzero	0x299
0298 0801       |    |		Execute_Immediate	Raise,0x1
0299 e5ff       |    |		Load	0x2,-0x1
029a 8248       | H  |		Call	0x1,0x48
029b			BODY_0290:
029b 00d8       |    |		Load_Top	At_Offset_0
029c 700c       |p   |		Jump_Nonzero	0x2a9
029d 0092 0819  |    |		Action	Push_String_Extended,0x819					; " option '"
029f e5fe       |    |		Load	0x2,-0x2
02a0 e20f       |    |		Load	0x1,0xf
02a1 0122       | "  |		Execute	Any,Make_Root_Type
02a2 011c       |    |		Execute	Any,Convert_Unchecked
02a3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02a4 01cc       |    |		Execute	Vector,Catenate
02a5 0092 081a  |    |		Action	Push_String_Extended,0x81a					; "' has not been specified"
02a7 01cc       |    |		Execute	Vector,Catenate
02a8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02a9 00d8       |    |		Load_Top	At_Offset_0
02aa 0217       |    |		Execute	Heap_Access,All_Reference
02ab 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ac 462a       |F*  |		Jump_Case	0x2b
02ad 7847       |xG  |		Jump	0x2f5								; case 0x0
02ae 7853       |xS  |		Jump	0x302								; case 0x1
02af 7847       |xG  |		Jump	0x2f7								; case 0x2
02b0 7846       |xF  |		Jump	0x2f7								; case 0x3
02b1 785b       |x[  |		Jump	0x30d								; case 0x4
02b2 788a       |x   |		Jump	0x33d								; case 0x5
02b3 7864       |xd  |		Jump	0x318								; case 0x6
02b4 7870       |xp  |		Jump	0x325								; case 0x7
02b5 787c       |x|  |		Jump	0x332								; case 0x8
02b6 78bd       |x   |		Jump	0x374								; case 0x9
02b7 78c7       |x   |		Jump	0x37f								; case 0xa
02b8 78c6       |x   |		Jump	0x37f								; case 0xb
02b9 78c5       |x   |		Jump	0x37f								; case 0xc
02ba 78c4       |x   |		Jump	0x37f								; case 0xd
02bb 78c3       |x   |		Jump	0x37f								; case 0xe
02bc 78c2       |x   |		Jump	0x37f								; case 0xf
02bd 78c1       |x   |		Jump	0x37f								; case 0x10
02be 78c0       |x   |		Jump	0x37f								; case 0x11
02bf 78bf       |x   |		Jump	0x37f								; case 0x12
02c0 78be       |x   |		Jump	0x37f								; case 0x13
02c1 78bd       |x   |		Jump	0x37f								; case 0x14
02c2 78bc       |x   |		Jump	0x37f								; case 0x15
02c3 78bb       |x   |		Jump	0x37f								; case 0x16
02c4 7813       |x   |		Jump	0x2d8								; case 0x17
02c5 7812       |x   |		Jump	0x2d8								; case 0x18
02c6 7811       |x   |		Jump	0x2d8								; case 0x19
02c7 7810       |x   |		Jump	0x2d8								; case 0x1a
02c8 780f       |x   |		Jump	0x2d8								; case 0x1b
02c9 780e       |x   |		Jump	0x2d8								; case 0x1c
02ca 780d       |x   |		Jump	0x2d8								; case 0x1d
02cb 780c       |x   |		Jump	0x2d8								; case 0x1e
02cc 780b       |x   |		Jump	0x2d8								; case 0x1f
02cd 780a       |x   |		Jump	0x2d8								; case 0x20
02ce 7809       |x   |		Jump	0x2d8								; case 0x21
02cf 7808       |x   |		Jump	0x2d8								; case 0x22
02d0 7807       |x   |		Jump	0x2d8								; case 0x23
02d1 7806       |x   |		Jump	0x2d8								; case 0x24
02d2 788b       |x   |		Jump	0x35e								; case 0x25
02d3 7895       |x   |		Jump	0x369								; case 0x26
02d4 7803       |x   |		Jump	0x2d8								; case 0x27
02d5 782c       |x,  |		Jump	0x302								; case 0x28
02d6 7820       |x   |		Jump	0x2f7								; case 0x29
02d7 7800       |x   |		Jump	0x2d8								; case 0x2a
02d8 00d8       |    |		Load_Top	At_Offset_0
02d9 0217       |    |		Execute	Heap_Access,All_Reference
02da 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02db 6810       |h   |		Jump_Zero	0x2ec
02dc 4820       |H   |		Short_Literal	0x20
02dd 4820       |H   |		Short_Literal	0x20
02de e402       |    |		Load	0x2,0x2
02df 0217       |    |		Execute	Heap_Access,All_Reference
02e0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02e1 e23e       | >  |		Load	0x1,0x3e
02e2 011c       |    |		Execute	Any,Convert_Unchecked
02e3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02e4 01ca       |    |		Execute	Vector,Prepend
02e5 01cb       |    |		Execute	Vector,Append
02e6 e402       |    |		Load	0x2,0x2
02e7 0217       |    |		Execute	Heap_Access,All_Reference
02e8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02e9 0217       |    |		Execute	Heap_Access,All_Reference
02ea 01cc       |    |		Execute	Vector,Catenate
02eb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02ec 4820       |H   |		Short_Literal	0x20
02ed e402       |    |		Load	0x2,0x2
02ee 0217       |    |		Execute	Heap_Access,All_Reference
02ef 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f0 e23e       | >  |		Load	0x1,0x3e
02f1 011c       |    |		Execute	Any,Convert_Unchecked
02f2 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02f3 01ca       |    |		Execute	Vector,Prepend
02f4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f5 00ea       |    |		Load_Encached	Null_String_Cache
02f6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02f7 0092 0819  |    |		Action	Push_String_Extended,0x819					; " option '"
02f9 e402       |    |		Load	0x2,0x2
02fa 0217       |    |		Execute	Heap_Access,All_Reference
02fb 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02fc 0217       |    |		Execute	Heap_Access,All_Reference
02fd 01cc       |    |		Execute	Vector,Catenate
02fe 0092 081b  |    |		Action	Push_String_Extended,0x81b					; "' is not defined"
0300 01cc       |    |		Execute	Vector,Catenate
0301 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0302 0092 0819  |    |		Action	Push_String_Extended,0x819					; " option '"
0304 e402       |    |		Load	0x2,0x2
0305 0217       |    |		Execute	Heap_Access,All_Reference
0306 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0307 0217       |    |		Execute	Heap_Access,All_Reference
0308 01cc       |    |		Execute	Vector,Catenate
0309 0092 081c  |    |		Action	Push_String_Extended,0x81c					; "' is ambiguous"
030b 01cc       |    |		Execute	Vector,Catenate
030c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
030d 0092 0819  |    |		Action	Push_String_Extended,0x819					; " option '"
030f e402       |    |		Load	0x2,0x2
0310 0217       |    |		Execute	Heap_Access,All_Reference
0311 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0312 0217       |    |		Execute	Heap_Access,All_Reference
0313 01cc       |    |		Execute	Vector,Catenate
0314 0092 081d  |    |		Action	Push_String_Extended,0x81d					; "' is a literal and cannot be assigned a value"
0316 01cc       |    |		Execute	Vector,Catenate
0317 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0318 0092 0819  |    |		Action	Push_String_Extended,0x819					; " option '"
031a e402       |    |		Load	0x2,0x2
031b 0217       |    |		Execute	Heap_Access,All_Reference
031c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
031d 0227       | '  |		Execute	Access,All_Reference
031e 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
031f 0227       | '  |		Execute	Access,All_Reference
0320 01cc       |    |		Execute	Vector,Catenate
0321 0092 081e  |    |		Action	Push_String_Extended,0x81e					; "' must have a value"
0323 01cc       |    |		Execute	Vector,Catenate
0324 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0325 0092 0819  |    |		Action	Push_String_Extended,0x819					; " option '"
0327 e402       |    |		Load	0x2,0x2
0328 0217       |    |		Execute	Heap_Access,All_Reference
0329 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
032a 0227       | '  |		Execute	Access,All_Reference
032b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
032c 0227       | '  |		Execute	Access,All_Reference
032d 01cc       |    |		Execute	Vector,Catenate
032e 0092 081f  |    |		Action	Push_String_Extended,0x81f					; "' has both a '~' and a value"
0330 01cc       |    |		Execute	Vector,Catenate
0331 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0332 0092 0820  |    |		Action	Push_String_Extended,0x820					; " literal '"
0334 e402       |    |		Load	0x2,0x2
0335 0217       |    |		Execute	Heap_Access,All_Reference
0336 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0337 0217       |    |		Execute	Heap_Access,All_Reference
0338 01cc       |    |		Execute	Vector,Catenate
0339 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "' has a '~'"
033b 01cc       |    |		Execute	Vector,Catenate
033c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
033d 00d8       |    |		Load_Top	At_Offset_0
033e 0217       |    |		Execute	Heap_Access,All_Reference
033f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0340 700b       |p   |		Jump_Nonzero	0x34c
0341 0092 0822  |   "|		Action	Push_String_Extended,0x822					; " option name is expected where '"
0343 e402       |    |		Load	0x2,0x2
0344 0217       |    |		Execute	Heap_Access,All_Reference
0345 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0346 0217       |    |		Execute	Heap_Access,All_Reference
0347 01cc       |    |		Execute	Vector,Catenate
0348 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "' now appears"
034a 01cc       |    |		Execute	Vector,Catenate
034b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
034c 4820       |H   |		Short_Literal	0x20
034d 0092 0822  |   "|		Action	Push_String_Extended,0x822					; " option name is expected where '"
034f e402       |    |		Load	0x2,0x2
0350 0217       |    |		Execute	Heap_Access,All_Reference
0351 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0352 0217       |    |		Execute	Heap_Access,All_Reference
0353 01cc       |    |		Execute	Vector,Catenate
0354 01cb       |    |		Execute	Vector,Append
0355 e402       |    |		Load	0x2,0x2
0356 0217       |    |		Execute	Heap_Access,All_Reference
0357 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0358 0217       |    |		Execute	Heap_Access,All_Reference
0359 01cc       |    |		Execute	Vector,Catenate
035a 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "' now appears"
035c 01cc       |    |		Execute	Vector,Catenate
035d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
035e 0092 0824  |   $|		Action	Push_String_Extended,0x824					; " option value '"
0360 e402       |    |		Load	0x2,0x2
0361 0217       |    |		Execute	Heap_Access,All_Reference
0362 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0363 0217       |    |		Execute	Heap_Access,All_Reference
0364 01cc       |    |		Execute	Vector,Catenate
0365 0092 0825  |   %|		Action	Push_String_Extended,0x825					; "' is not a valid Boolean"
0367 01cc       |    |		Execute	Vector,Catenate
0368 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0369 0092 0824  |   $|		Action	Push_String_Extended,0x824					; " option value '"
036b e402       |    |		Load	0x2,0x2
036c 0217       |    |		Execute	Heap_Access,All_Reference
036d 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
036e 0217       |    |		Execute	Heap_Access,All_Reference
036f 01cc       |    |		Execute	Vector,Catenate
0370 0092 0826  |   &|		Action	Push_String_Extended,0x826					; "' is not a valid integer"
0372 01cc       |    |		Execute	Vector,Catenate
0373 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0374 0092 0824  |   $|		Action	Push_String_Extended,0x824					; " option value '"
0376 e402       |    |		Load	0x2,0x2
0377 0217       |    |		Execute	Heap_Access,All_Reference
0378 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0379 0217       |    |		Execute	Heap_Access,All_Reference
037a 01cc       |    |		Execute	Vector,Catenate
037b 0092 0827  |   '|		Action	Push_String_Extended,0x827					; "' is not a well-formed directory string name"
037d 01cc       |    |		Execute	Vector,Catenate
037e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
037f 0092 0828  |   (|		Action	Push_String_Extended,0x828					; " resolution of '"
0381 e402       |    |		Load	0x2,0x2
0382 0217       |    |		Execute	Heap_Access,All_Reference
0383 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0384 0217       |    |		Execute	Heap_Access,All_Reference
0385 01cc       |    |		Execute	Vector,Catenate
0386 0092 0829  |   )|		Action	Push_String_Extended,0x829					; "' failed; "
0388 01cc       |    |		Execute	Vector,Catenate
0389 e402       |    |		Load	0x2,0x2
038a 0217       |    |		Execute	Heap_Access,All_Reference
038b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
038c e23e       | >  |		Load	0x1,0x3e
038d 011c       |    |		Execute	Any,Convert_Unchecked
038e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
038f 01cc       |    |		Execute	Vector,Catenate
0390 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0391			TRAP_0290:
0391 010e       |    |		Execute	Exception,Is_Constraint_Error
0392 6803       |h   |		Jump_Zero	0x396
0393 0092 082a  |   *|		Action	Push_String_Extended,0x82a					; " option malformed"
0395 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0396 0100       |    |		Execute	Exception,Raise
0397 0000       |    |		.XXX[0x1]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b e5ff       |    |		Load	0x2,-0x1
039c 0217       |    |		Execute	Heap_Access,All_Reference
039d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
039e 021d       |    |		Execute	Heap_Access,Is_Null
039f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 e5ff       |    |		Load	0x2,-0x1
03a4 0217       |    |		Execute	Heap_Access,All_Reference
03a5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a6 6808       |h   |		Jump_Zero	0x3af
03a7 e5ff       |    |		Load	0x2,-0x1
03a8 0217       |    |		Execute	Heap_Access,All_Reference
03a9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03aa 0217       |    |		Execute	Heap_Access,All_Reference
03ab 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
03ac e5ff       |    |		Load	0x2,-0x1
03ad 0217       |    |		Execute	Heap_Access,All_Reference
03ae 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03af 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 e5ff       |    |		Load	0x2,-0x1
03b4 0217       |    |		Execute	Heap_Access,All_Reference
03b5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b6 e5ff       |    |		Load	0x2,-0x1
03b7 0217       |    |		Execute	Heap_Access,All_Reference
03b8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03ba 0000 0000  |    |		.BLANK	0000[0x6]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c7       |    |		.CONST	0x03c7								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0002       |    |		.CONST	0x0002								; Number of locals
03c3			INIT_03c0:
03c3 e5ff       |    |		Load	0x2,-0x1
03c4 0217       |    |		Execute	Heap_Access,All_Reference
03c5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03c6 0007       |    |		Action	Break_Optional
03c7			BODY_03c0:
03c7 00d8       |    |		Load_Top	At_Offset_0
03c8 680f       |h   |		Jump_Zero	0x3d8
03c9 00d8       |    |		Load_Top	At_Offset_0
03ca 0217       |    |		Execute	Heap_Access,All_Reference
03cb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03cc 680b       |h   |		Jump_Zero	0x3d8
03cd 00d8       |    |		Load_Top	At_Offset_0
03ce 0217       |    |		Execute	Heap_Access,All_Reference
03cf 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03d0 0227       | '  |		Execute	Access,All_Reference
03d1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03d2 00d8       |    |		Load_Top	At_Offset_0
03d3 e20f       |    |		Load	0x1,0xf
03d4 0260       | `  |		Execute	Discrete,In_Type
03d5 7001       |p   |		Jump_Nonzero	0x3d7
03d6 0801       |    |		Execute_Immediate	Raise,0x1
03d7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d8 e210       |    |		Load	0x1,0x10
03d9 00d8       |    |		Load_Top	At_Offset_0
03da e20f       |    |		Load	0x1,0xf
03db 0260       | `  |		Execute	Discrete,In_Type
03dc 7001       |p   |		Jump_Nonzero	0x3de
03dd 0801       |    |		Execute_Immediate	Raise,0x1
03de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03df 0000       |    |		.XXX[0x1]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03eb       |    |		.CONST	0x03eb								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0002       |    |		.CONST	0x0002								; Number of locals
03e3			INIT_03e0:
03e3 e5fe       |    |		Load	0x2,-0x2
03e4 00d8       |    |		Load_Top	At_Offset_0
03e5 e20f       |    |		Load	0x1,0xf
03e6 0260       | `  |		Execute	Discrete,In_Type
03e7 7001       |p   |		Jump_Nonzero	0x3e9
03e8 0801       |    |		Execute_Immediate	Raise,0x1
03e9 e5ff       |    |		Load	0x2,-0x1
03ea 8248       | H  |		Call	0x1,0x48
03eb			BODY_03e0:
03eb 00d8       |    |		Load_Top	At_Offset_0
03ec 681b       |h   |		Jump_Zero	0x408
03ed 00d8       |    |		Load_Top	At_Offset_0
03ee 0217       |    |		Execute	Heap_Access,All_Reference
03ef 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03f0 6809       |h   |		Jump_Zero	0x3fa
03f1 00d8       |    |		Load_Top	At_Offset_0
03f2 0217       |    |		Execute	Heap_Access,All_Reference
03f3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03f4 0227       | '  |		Execute	Access,All_Reference
03f5 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
03f6 0227       | '  |		Execute	Access,All_Reference
03f7 0335       | 5  |		Declare_Variable	Array,Duplicate
03f8 00cd       |    |		Action	Spare6_Action
03f9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03fa 00d8       |    |		Load_Top	At_Offset_0
03fb 0217       |    |		Execute	Heap_Access,All_Reference
03fc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03fd 0f02       |    |		Execute_Immediate	Equal,0x2
03fe 6807       |h   |		Jump_Zero	0x406
03ff 00d8       |    |		Load_Top	At_Offset_0
0400 0217       |    |		Execute	Heap_Access,All_Reference
0401 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0402 0217       |    |		Execute	Heap_Access,All_Reference
0403 0335       | 5  |		Declare_Variable	Array,Duplicate
0404 00cd       |    |		Action	Spare6_Action
0405 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0406 00ea       |    |		Load_Encached	Null_String_Cache
0407 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0408 00ea       |    |		Load_Encached	Null_String_Cache
0409 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
040a 0000 0000  |    |		.BLANK	0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041b       |    |		.CONST	0x041b								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0002       |    |		.CONST	0x0002								; Number of locals
0413			INIT_0410:
0413 e5fe       |    |		Load	0x2,-0x2
0414 00d8       |    |		Load_Top	At_Offset_0
0415 e20f       |    |		Load	0x1,0xf
0416 0260       | `  |		Execute	Discrete,In_Type
0417 7001       |p   |		Jump_Nonzero	0x419
0418 0801       |    |		Execute_Immediate	Raise,0x1
0419 e5ff       |    |		Load	0x2,-0x1
041a 8248       | H  |		Call	0x1,0x48
041b			BODY_0410:
041b 00d8       |    |		Load_Top	At_Offset_0
041c 6805       |h   |		Jump_Zero	0x422
041d 00d8       |    |		Load_Top	At_Offset_0
041e 0217       |    |		Execute	Heap_Access,All_Reference
041f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0420 021c       |    |		Execute	Heap_Access,Not_Null
0421 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0422 4800       |H   |		Short_Literal	0x0
0423 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0424 0000 0000  |    |		.BLANK	0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b e5fd       |    |		Load	0x2,-0x3
042c e5fe       |    |		Load	0x2,-0x2
042d 00d8       |    |		Load_Top	At_Offset_0
042e e20f       |    |		Load	0x1,0xf
042f 0260       | `  |		Execute	Discrete,In_Type
0430 7001       |p   |		Jump_Nonzero	0x432
0431 0801       |    |		Execute_Immediate	Raise,0x1
0432 e5ff       |    |		Load	0x2,-0x1
0433 8248       | H  |		Call	0x1,0x48
0434 824a       | J  |		Call	0x1,0x4a
0435 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0436 0000 0000  |    |		.XXX[0x2]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0443       | C  |		.CONST	0x0443								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0002       |    |		.CONST	0x0002								; Number of locals
043b			INIT_0438:
043b e5fe       |    |		Load	0x2,-0x2
043c 00d8       |    |		Load_Top	At_Offset_0
043d e20f       |    |		Load	0x1,0xf
043e 0260       | `  |		Execute	Discrete,In_Type
043f 7001       |p   |		Jump_Nonzero	0x441
0440 0801       |    |		Execute_Immediate	Raise,0x1
0441 e5ff       |    |		Load	0x2,-0x1
0442 8248       | H  |		Call	0x1,0x48
0443			BODY_0438:
0443 00d8       |    |		Load_Top	At_Offset_0
0444 6808       |h   |		Jump_Zero	0x44d
0445 00d8       |    |		Load_Top	At_Offset_0
0446 0217       |    |		Execute	Heap_Access,All_Reference
0447 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0448 7004       |p   |		Jump_Nonzero	0x44d
0449 00d8       |    |		Load_Top	At_Offset_0
044a 0217       |    |		Execute	Heap_Access,All_Reference
044b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
044c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044d 4800       |H   |		Short_Literal	0x0
044e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044f 0000       |    |		.XXX[0x1]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 e5fd       |    |		Load	0x2,-0x3
0454 4801       |H   |		Short_Literal	0x1
0455 e5fe       |    |		Load	0x2,-0x2
0456 00d8       |    |		Load_Top	At_Offset_0
0457 e20f       |    |		Load	0x1,0xf
0458 0260       | `  |		Execute	Discrete,In_Type
0459 7001       |p   |		Jump_Nonzero	0x45b
045a 0801       |    |		Execute_Immediate	Raise,0x1
045b e5ff       |    |		Load	0x2,-0x1
045c e24c       | L  |		Load	0x1,0x4c
045d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
045e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
045f 0000       |    |		.XXX[0x1]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 046b       | k  |		.CONST	0x046b								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0002       |    |		.CONST	0x0002								; Number of locals
0463			INIT_0460:
0463 e5fe       |    |		Load	0x2,-0x2
0464 00d8       |    |		Load_Top	At_Offset_0
0465 e20f       |    |		Load	0x1,0xf
0466 0260       | `  |		Execute	Discrete,In_Type
0467 7001       |p   |		Jump_Nonzero	0x469
0468 0801       |    |		Execute_Immediate	Raise,0x1
0469 e5ff       |    |		Load	0x2,-0x1
046a 8248       | H  |		Call	0x1,0x48
046b			BODY_0460:
046b 00d8       |    |		Load_Top	At_Offset_0
046c 6804       |h   |		Jump_Zero	0x471
046d e5fd       |    |		Load	0x2,-0x3
046e e402       |    |		Load	0x2,0x2
046f 824d       | M  |		Call	0x1,0x4d
0470 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0471 e5fd       |    |		Load	0x2,-0x3
0472 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0473 0000 0000  |    |		.BLANK	0000[0x5]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b       | {  |		.CONST	0x047b								; Address of begin
0479 0004       |    |		.CONST	0x0004								; Address of exception handler
047a 0001       |    |		.CONST	0x0001								; Number of locals
047b			BODY_0478:
047b			INIT_0478:
047b 4607       |F   |		Jump_Case	0x8
047c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
047d 7806       |x   |		Jump	0x484								; case 0x1
047e 7809       |x   |		Jump	0x488								; case 0x2
047f 780d       |x   |		Jump	0x48d								; case 0x3
0480 7810       |x   |		Jump	0x491								; case 0x4
0481 7811       |x   |		Jump	0x493								; case 0x5
0482 7812       |x   |		Jump	0x495								; case 0x6
0483 7815       |x   |		Jump	0x499								; case 0x7
0484 00da       |    |		Load_Top	At_Offset_2
0485 0091 07ee  |    |		Action	Push_String_Extended_Indexed,0x7ee				; "OK"
0487 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0488 00db       |    |		Load_Top	At_Offset_3
0489 00db       |    |		Load_Top	At_Offset_3
048a 00e0       |    |		Load_Encached	Standard_Cache
048b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
048c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
048d 00da       |    |		Load_Top	At_Offset_2
048e 00e0       |    |		Load_Encached	Standard_Cache
048f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0490 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0491 00db       |    |		Load_Top	At_Offset_3
0492 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0493 00db       |    |		Load_Top	At_Offset_3
0494 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0495 e23e       | >  |		Load	0x1,0x3e
0496 00dc       |    |		Load_Top	At_Offset_4
0497 0267       | g  |		Execute	Discrete,Predecessor
0498 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0499 e23e       | >  |		Load	0x1,0x3e
049a 00dc       |    |		Load_Top	At_Offset_4
049b 0268       | h  |		Execute	Discrete,Successor
049c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
049d 0000 0000  |    |		.XXX[0x3]
049f 0000       |    |
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 e5fe       |    |		Load	0x2,-0x2
04a4 e5ff       |    |		Load	0x2,-0x1
04a5 0217       |    |		Execute	Heap_Access,All_Reference
04a6 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04a7 e5fd       |    |		Load	0x2,-0x3
04a8 01db       |    |		Execute	Vector,Length
04a9 680a       |h   |		Jump_Zero	0x4b4
04aa e5fd       |    |		Load	0x2,-0x3
04ab e239       | 9  |		Load	0x1,0x39
04ac e009       |    |		Load	0x0,0x9
04ad 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04ae e00a       |    |		Load	0x0,0xa
04af 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04b0 0396       |    |		Declare_Variable	Heap_Access,By_Allocation,With_Value
04b1 e5ff       |    |		Load	0x2,-0x1
04b2 0217       |    |		Execute	Heap_Access,All_Reference
04b3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
04b4 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
04b5 0000 0000  |    |		.XXX[0x3]
04b7 0000       |    |
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04c0       |    |		.CONST	0x04c0								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0002       |    |		.CONST	0x0002								; Number of locals
04bb			INIT_04b8:
04bb 4800       |H   |		Short_Literal	0x0
04bc e5ff       |    |		Load	0x2,-0x1
04bd 485c       |H\  |		Short_Literal	0x5c
04be e00b       |    |		Load	0x0,0xb
04bf 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04c0			BODY_04b8:
04c0 00d8       |    |		Load_Top	At_Offset_0
04c1 4801       |H   |		Short_Literal	0x1
04c2 e5ff       |    |		Load	0x2,-0x1
04c3 01dc       |    |		Execute	Vector,Last
04c4 0aff       |    |		Execute_Immediate	Plus,-0x1
04c5 00d8       |    |		Load_Top	At_Offset_0
04c6 00e2       |    |		Load_Encached	Integer_Cache
04c7 0260       | `  |		Execute	Discrete,In_Type
04c8 7001       |p   |		Jump_Nonzero	0x4ca
04c9 0801       |    |		Execute_Immediate	Raise,0x1
04ca 0262       | b  |		Execute	Discrete,In_Range
04cb 681e       |h   |		Jump_Zero	0x4ea
04cc 00d8       |    |		Load_Top	At_Offset_0
04cd 0a01       |    |		Execute_Immediate	Plus,0x1
04ce e5ff       |    |		Load	0x2,-0x1
04cf 01d7       |    |		Execute	Vector,Field_Read
04d0 e5ff       |    |		Load	0x2,-0x1
04d1 01dd       |    |		Execute	Vector,First
04d2 e402       |    |		Load	0x2,0x2
04d3 0aff       |    |		Execute_Immediate	Plus,-0x1
04d4 00d8       |    |		Load_Top	At_Offset_0
04d5 00e2       |    |		Load_Encached	Integer_Cache
04d6 0260       | `  |		Execute	Discrete,In_Type
04d7 7001       |p   |		Jump_Nonzero	0x4d9
04d8 0801       |    |		Execute_Immediate	Raise,0x1
04d9 e5ff       |    |		Load	0x2,-0x1
04da 01cf       |    |		Execute	Vector,Slice_Read
04db 01cb       |    |		Execute	Vector,Append
04dc e402       |    |		Load	0x2,0x2
04dd 0a02       |    |		Execute_Immediate	Plus,0x2
04de 00d8       |    |		Load_Top	At_Offset_0
04df 00e2       |    |		Load_Encached	Integer_Cache
04e0 0260       | `  |		Execute	Discrete,In_Type
04e1 7001       |p   |		Jump_Nonzero	0x4e3
04e2 0801       |    |		Execute_Immediate	Raise,0x1
04e3 e5ff       |    |		Load	0x2,-0x1
04e4 01dc       |    |		Execute	Vector,Last
04e5 e5ff       |    |		Load	0x2,-0x1
04e6 01cf       |    |		Execute	Vector,Slice_Read
04e7 8243       | C  |		Call	0x1,0x43
04e8 01cc       |    |		Execute	Vector,Catenate
04e9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ea e5ff       |    |		Load	0x2,-0x1
04eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ec 0000 0000  |    |		.BLANK	0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3       |    |		.CONST	0x04f3								; Address of begin
04f1 0004       |    |		.CONST	0x0004								; Address of exception handler
04f2 0001       |    |		.CONST	0x0001								; Number of locals
04f3			BODY_04f0:
04f3			INIT_04f0:
04f3 e5ff       |    |		Load	0x2,-0x1
04f4 01db       |    |		Execute	Vector,Length
04f5 7002       |p   |		Jump_Nonzero	0x4f8
04f6 e5ff       |    |		Load	0x2,-0x1
04f7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f8 e5ff       |    |		Load	0x2,-0x1
04f9 8243       | C  |		Call	0x1,0x43
04fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04fb 0000 0000  |    |		.BLANK	0000[0x5]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0513       |    |		.CONST	0x0513								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0002       |    |		.CONST	0x0002								; Number of locals
0503			INIT_0500:
0503 4801       |H   |		Short_Literal	0x1
0504 e5ff       |    |		Load	0x2,-0x1
0505 01db       |    |		Execute	Vector,Length
0506 00d8       |    |		Load_Top	At_Offset_0
0507 00e2       |    |		Load_Encached	Integer_Cache
0508 0260       | `  |		Execute	Discrete,In_Type
0509 7001       |p   |		Jump_Nonzero	0x50b
050a 0801       |    |		Execute_Immediate	Raise,0x1
050b 00e9       |    |		Load_Encached	String_Cache
050c 035b       | [  |		Declare_Type	Array,Constrained
050d 0337       | 7  |		Declare_Variable	Array
050e e5ff       |    |		Load	0x2,-0x1
050f e00b       |    |		Load	0x0,0xb
0510 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0511 e402       |    |		Load	0x2,0x2
0512 01d4       |    |		Execute	Vector,Structure_Write
0513			BODY_0500:
0513 00d8       |    |		Load_Top	At_Offset_0
0514 00e9       |    |		Load_Encached	String_Cache
0515 01c6       |    |		Execute	Vector,Convert_To_Formal
0516 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0517 0000       |    |		.XXX[0x1]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051c       |    |		.CONST	0x051c								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0002       |    |		.CONST	0x0002								; Number of locals
051b			INIT_0518:
051b e5fe       |    |		Load	0x2,-0x2
051c			BODY_0518:
051c 00cf       |    |		Action	Mark_Auxiliary
051d 7810       |x   |		Jump	0x52e
051e e402       |    |		Load	0x2,0x2
051f 0227       | '  |		Execute	Access,All_Reference
0520 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0521 e5ff       |    |		Load	0x2,-0x1
0522 027f       |    |		Execute	Discrete,Equal
0523 6805       |h   |		Jump_Zero	0x529
0524 e402       |    |		Load	0x2,0x2
0525 0227       | '  |		Execute	Access,All_Reference
0526 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0527 0e04       |    |		Execute_Immediate	Not_Equal,0x4
0528 7007       |p   |		Jump_Nonzero	0x530
0529 e402       |    |		Load	0x2,0x2
052a 0227       | '  |		Execute	Access,All_Reference
052b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
052c a402       |    |		Store_Unchecked	0x2,0x2
052d 00c9       |    |		Action	Pop_Auxiliary_Loop
052e e402       |    |		Load	0x2,0x2
052f 77ee       |w   |		Jump_Nonzero	0x51e
0530 00ce       |    |		Action	Pop_Auxiliary
0531 00d8       |    |		Load_Top	At_Offset_0
0532 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0533 0000 0000  |    |		.BLANK	0000[0x5]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053d       | =  |		.CONST	0x053d								; Address of begin
0539 0004       |    |		.CONST	0x0004								; Address of exception handler
053a 0002       |    |		.CONST	0x0002								; Number of locals
053b			INIT_0538:
053b e5fd       |    |		Load	0x2,-0x3
053c 0007       |    |		Action	Break_Optional
053d			BODY_0538:
053d e5fe       |    |		Load	0x2,-0x2
053e 6830       |h0  |		Jump_Zero	0x56f
053f 00cf       |    |		Action	Mark_Auxiliary
0540 782a       |x*  |		Jump	0x56b
0541 e402       |    |		Load	0x2,0x2
0542 0227       | '  |		Execute	Access,All_Reference
0543 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0544 681a       |h   |		Jump_Zero	0x55f
0545 e402       |    |		Load	0x2,0x2
0546 0227       | '  |		Execute	Access,All_Reference
0547 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0548 0227       | '  |		Execute	Access,All_Reference
0549 01db       |    |		Execute	Vector,Length
054a e5ff       |    |		Load	0x2,-0x1
054b 01db       |    |		Execute	Vector,Length
054c 027b       | {  |		Execute	Discrete,Greater_Equal
054d 6818       |h   |		Jump_Zero	0x566
054e 4801       |H   |		Short_Literal	0x1
054f e5ff       |    |		Load	0x2,-0x1
0550 01db       |    |		Execute	Vector,Length
0551 00d8       |    |		Load_Top	At_Offset_0
0552 00e2       |    |		Load_Encached	Integer_Cache
0553 0260       | `  |		Execute	Discrete,In_Type
0554 7001       |p   |		Jump_Nonzero	0x556
0555 0801       |    |		Execute_Immediate	Raise,0x1
0556 e402       |    |		Load	0x2,0x2
0557 0227       | '  |		Execute	Access,All_Reference
0558 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0559 0227       | '  |		Execute	Access,All_Reference
055a 01cf       |    |		Execute	Vector,Slice_Read
055b e5ff       |    |		Load	0x2,-0x1
055c 01df       |    |		Execute	Vector,Equal
055d 700f       |p   |		Jump_Nonzero	0x56d
055e 7807       |x   |		Jump	0x566
055f e402       |    |		Load	0x2,0x2
0560 0227       | '  |		Execute	Access,All_Reference
0561 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0562 0227       | '  |		Execute	Access,All_Reference
0563 e5ff       |    |		Load	0x2,-0x1
0564 01df       |    |		Execute	Vector,Equal
0565 7007       |p   |		Jump_Nonzero	0x56d
0566 e402       |    |		Load	0x2,0x2
0567 0227       | '  |		Execute	Access,All_Reference
0568 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0569 a402       |    |		Store_Unchecked	0x2,0x2
056a 00c9       |    |		Action	Pop_Auxiliary_Loop
056b e402       |    |		Load	0x2,0x2
056c 77d4       |w   |		Jump_Nonzero	0x541
056d 00ce       |    |		Action	Pop_Auxiliary
056e 7811       |x   |		Jump	0x580
056f 00cf       |    |		Action	Mark_Auxiliary
0570 780c       |x   |		Jump	0x57d
0571 e402       |    |		Load	0x2,0x2
0572 0227       | '  |		Execute	Access,All_Reference
0573 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0574 0227       | '  |		Execute	Access,All_Reference
0575 e5ff       |    |		Load	0x2,-0x1
0576 01df       |    |		Execute	Vector,Equal
0577 7007       |p   |		Jump_Nonzero	0x57f
0578 e402       |    |		Load	0x2,0x2
0579 0227       | '  |		Execute	Access,All_Reference
057a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
057b a402       |    |		Store_Unchecked	0x2,0x2
057c 00c9       |    |		Action	Pop_Auxiliary_Loop
057d e402       |    |		Load	0x2,0x2
057e 77f2       |w   |		Jump_Nonzero	0x571
057f 00ce       |    |		Action	Pop_Auxiliary
0580 00d8       |    |		Load_Top	At_Offset_0
0581 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0582 0000 0000  |    |		.BLANK	0000[0x6]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058d       |    |		.CONST	0x058d								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0002       |    |		.CONST	0x0002								; Number of locals
058b			INIT_0588:
058b e23d       | =  |		Load	0x1,0x3d
058c 0007       |    |		Action	Break_Optional
058d			BODY_0588:
058d e5fe       |    |		Load	0x2,-0x2
058e e210       |    |		Load	0x1,0x10
058f 027f       |    |		Execute	Discrete,Equal
0590 6804       |h   |		Jump_Zero	0x595
0591 e5ff       |    |		Load	0x2,-0x1
0592 0217       |    |		Execute	Heap_Access,All_Reference
0593 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0594 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0595 e5ff       |    |		Load	0x2,-0x1
0596 0217       |    |		Execute	Heap_Access,All_Reference
0597 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0598 a402       |    |		Store_Unchecked	0x2,0x2
0599 00cf       |    |		Action	Mark_Auxiliary
059a 7811       |x   |		Jump	0x5ac
059b e402       |    |		Load	0x2,0x2
059c 0217       |    |		Execute	Heap_Access,All_Reference
059d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
059e 6808       |h   |		Jump_Zero	0x5a7
059f e402       |    |		Load	0x2,0x2
05a0 0217       |    |		Execute	Heap_Access,All_Reference
05a1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05a2 0227       | '  |		Execute	Access,All_Reference
05a3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05a4 e5fe       |    |		Load	0x2,-0x2
05a5 027f       |    |		Execute	Discrete,Equal
05a6 7007       |p   |		Jump_Nonzero	0x5ae
05a7 e402       |    |		Load	0x2,0x2
05a8 0217       |    |		Execute	Heap_Access,All_Reference
05a9 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
05aa a402       |    |		Store_Unchecked	0x2,0x2
05ab 00c9       |    |		Action	Pop_Auxiliary_Loop
05ac e402       |    |		Load	0x2,0x2
05ad 77ed       |w   |		Jump_Nonzero	0x59b
05ae 00ce       |    |		Action	Pop_Auxiliary
05af 00d8       |    |		Load_Top	At_Offset_0
05b0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05b1 0000 0000  |    |		.BLANK	0000[0x7]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05c3       |    |		.CONST	0x05c3								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0002       |    |		.CONST	0x0002								; Number of locals
05bb			INIT_05b8:
05bb e5fe       |    |		Load	0x2,-0x2
05bc 00d8       |    |		Load_Top	At_Offset_0
05bd e20f       |    |		Load	0x1,0xf
05be 0260       | `  |		Execute	Discrete,In_Type
05bf 7001       |p   |		Jump_Nonzero	0x5c1
05c0 0801       |    |		Execute_Immediate	Raise,0x1
05c1 e5ff       |    |		Load	0x2,-0x1
05c2 8248       | H  |		Call	0x1,0x48
05c3			BODY_05b8:
05c3 00d8       |    |		Load_Top	At_Offset_0
05c4 6804       |h   |		Jump_Zero	0x5c9
05c5 00d8       |    |		Load_Top	At_Offset_0
05c6 0217       |    |		Execute	Heap_Access,All_Reference
05c7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
05c8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05c9 e23b       | ;  |		Load	0x1,0x3b
05ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05cb 0000 0000  |    |		.BLANK	0000[0x5]
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 e5ff       |    |		Load	0x2,-0x1
05d4 6804       |h   |		Jump_Zero	0x5d9
05d5 e5ff       |    |		Load	0x2,-0x1
05d6 0217       |    |		Execute	Heap_Access,All_Reference
05d7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
05d8 7002       |p   |		Jump_Nonzero	0x5db
05d9 e5fe       |    |		Load	0x2,-0x2
05da 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05db e5ff       |    |		Load	0x2,-0x1
05dc 0217       |    |		Execute	Heap_Access,All_Reference
05dd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
05de 0217       |    |		Execute	Heap_Access,All_Reference
05df 8244       | D  |		Call	0x1,0x44
05e0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05e1 0000 0000  |    |		.BLANK	0000[0x7]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05fe       |    |		.CONST	0x05fe								; Address of begin
05e9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ea 0005       |    |		.CONST	0x0005								; Number of locals
05eb			INIT_05e8:
05eb e5fe       |    |		Load	0x2,-0x2
05ec 00d8       |    |		Load_Top	At_Offset_0
05ed e20f       |    |		Load	0x1,0xf
05ee 0260       | `  |		Execute	Discrete,In_Type
05ef 7001       |p   |		Jump_Nonzero	0x5f1
05f0 0801       |    |		Execute_Immediate	Raise,0x1
05f1 e5ff       |    |		Load	0x2,-0x1
05f2 8248       | H  |		Call	0x1,0x48
05f3 00ea       |    |		Load_Encached	Null_String_Cache
05f4 e402       |    |		Load	0x2,0x2
05f5 824a       | J  |		Call	0x1,0x4a
05f6 e00c       |    |		Load	0x0,0xc
05f7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05f8 02c7       |    |		Declare_Variable	Any
05f9 e5fd       |    |		Load	0x2,-0x3
05fa a404       |    |		Store_Unchecked	0x2,0x4
05fb e00c       |    |		Load	0x0,0xc
05fc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05fd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05fe			BODY_05e8:
05fe e402       |    |		Load	0x2,0x2
05ff 682a       |h*  |		Jump_Zero	0x62a
0600 e00c       |    |		Load	0x0,0xc
0601 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0602 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0603 e404       |    |		Load	0x2,0x4
0604 0120       |    |		Execute	Any,Is_Value
0605 6803       |h   |		Jump_Zero	0x609
0606 e00c       |    |		Load	0x0,0xc
0607 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0608 7801       |x   |		Jump	0x60a
0609 e404       |    |		Load	0x2,0x4
060a 6021       |`!  |		Indirect_Literal	Discrete,0x62c,{0x00000000, 0x00004000}
060b e00d       |    |		Load	0x0,0xd
060c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
060d e009       |    |		Load	0x0,0x9
060e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
060f e00c       |    |		Load	0x0,0xc
0610 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0611 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0612 e403       |    |		Load	0x2,0x3
0613 e00c       |    |		Load	0x0,0xc
0614 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0615 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0616 c404       |    |		Store	0x2,0x4
0617 c405       |    |		Store	0x2,0x5
0618 00d8       |    |		Load_Top	At_Offset_0
0619 6810       |h   |		Jump_Zero	0x62a
061a 0092 082b  |   +|		Action	Push_String_Extended,0x82b					; "NAMING_"
061c e405       |    |		Load	0x2,0x5
061d e00c       |    |		Load	0x0,0xc
061e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
061f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0620 011c       |    |		Execute	Any,Convert_Unchecked
0621 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0622 01cc       |    |		Execute	Vector,Catenate
0623 e23e       | >  |		Load	0x1,0x3e
0624 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0625 e402       |    |		Load	0x2,0x2
0626 0217       |    |		Execute	Heap_Access,All_Reference
0627 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0628 e5fd       |    |		Load	0x2,-0x3
0629 c404       |    |		Store	0x2,0x4
062a e404       |    |		Load	0x2,0x4
062b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
062c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 063a       | :  |		.CONST	0x063a								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 00ea       |    |		Load_Encached	Null_String_Cache
0634 e5ff       |    |		Load	0x2,-0x1
0635 824a       | J  |		Call	0x1,0x4a
0636 00e2       |    |		Load_Encached	Integer_Cache
0637 00e0       |    |		Load_Encached	Standard_Cache
0638 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0639 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
063a			TRAP_0630:
063a 010e       |    |		Execute	Exception,Is_Constraint_Error
063b 6806       |h   |		Jump_Zero	0x642
063c 4826       |H&  |		Short_Literal	0x26
063d e5ff       |    |		Load	0x2,-0x1
063e 0217       |    |		Execute	Heap_Access,All_Reference
063f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0640 e5fe       |    |		Load	0x2,-0x2
0641 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0642 0100       |    |		Execute	Exception,Raise
0643 0000 0000  |    |		.BLANK	0000[0x5]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 0650       | P  |		.CONST	0x0650								; Address of begin
0649 0004       |    |		.CONST	0x0004								; Address of exception handler
064a 0004       |    |		.CONST	0x0004								; Number of locals
064b			INIT_0648:
064b e21e       |    |		Load	0x1,0x1e
064c 0007       |    |		Action	Break_Optional
064d e23b       | ;  |		Load	0x1,0x3b
064e 0007       |    |		Action	Break_Optional
064f 00e1       |    |		Load_Encached	Boolean_Cache
0650			BODY_0648:
0650 00e1       |    |		Load_Encached	Boolean_Cache
0651 e21e       |    |		Load	0x1,0x1e
0652 e213       |    |		Load	0x1,0x13
0653 821f       |    |		Call	0x1,0x1f
0654 c402       |    |		Store	0x2,0x2
0655 c404       |    |		Store	0x2,0x4
0656 00cf       |    |		Action	Mark_Auxiliary
0657 782d       |x-  |		Jump	0x685
0658 e210       |    |		Load	0x1,0x10
0659 00d8       |    |		Load_Top	At_Offset_0
065a e20f       |    |		Load	0x1,0xf
065b 0260       | `  |		Execute	Discrete,In_Type
065c 7001       |p   |		Jump_Nonzero	0x65e
065d 0801       |    |		Execute_Immediate	Raise,0x1
065e e402       |    |		Load	0x2,0x2
065f 8222       | "  |		Call	0x1,0x22
0660 6820       |h   |		Jump_Zero	0x681
0661 e210       |    |		Load	0x1,0x10
0662 00d8       |    |		Load_Top	At_Offset_0
0663 e20f       |    |		Load	0x1,0xf
0664 0260       | `  |		Execute	Discrete,In_Type
0665 7001       |p   |		Jump_Nonzero	0x667
0666 0801       |    |		Execute_Immediate	Raise,0x1
0667 e402       |    |		Load	0x2,0x2
0668 822a       | *  |		Call	0x1,0x2a
0669 6817       |h   |		Jump_Zero	0x681
066a e210       |    |		Load	0x1,0x10
066b 00d8       |    |		Load_Top	At_Offset_0
066c e20f       |    |		Load	0x1,0xf
066d 0260       | `  |		Execute	Discrete,In_Type
066e 7001       |p   |		Jump_Nonzero	0x670
066f 0801       |    |		Execute_Immediate	Raise,0x1
0670 e402       |    |		Load	0x2,0x2
0671 8249       | I  |		Call	0x1,0x49
0672 a403       |    |		Store_Unchecked	0x2,0x3
0673 4800       |H   |		Short_Literal	0x0
0674 4801       |H   |		Short_Literal	0x1
0675 e210       |    |		Load	0x1,0x10
0676 00d8       |    |		Load_Top	At_Offset_0
0677 e20f       |    |		Load	0x1,0xf
0678 0260       | `  |		Execute	Discrete,In_Type
0679 7001       |p   |		Jump_Nonzero	0x67b
067a 0801       |    |		Execute_Immediate	Raise,0x1
067b e402       |    |		Load	0x2,0x2
067c e24e       | N  |		Load	0x1,0x4e
067d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
067e e403       |    |		Load	0x2,0x3
067f 0227       | '  |		Execute	Access,All_Reference
0680 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0681 e402       |    |		Load	0x2,0x2
0682 8226       | &  |		Call	0x1,0x26
0683 c402       |    |		Store	0x2,0x2
0684 00c9       |    |		Action	Pop_Auxiliary_Loop
0685 e402       |    |		Load	0x2,0x2
0686 8225       | %  |		Call	0x1,0x25
0687 6fd0       |o   |		Jump_Zero	0x658
0688 00ce       |    |		Action	Pop_Auxiliary
0689 00e1       |    |		Load_Encached	Boolean_Cache
068a e21e       |    |		Load	0x1,0x1e
068b e214       |    |		Load	0x1,0x14
068c 821f       |    |		Call	0x1,0x1f
068d c402       |    |		Store	0x2,0x2
068e c404       |    |		Store	0x2,0x4
068f 00cf       |    |		Action	Mark_Auxiliary
0690 782d       |x-  |		Jump	0x6be
0691 e210       |    |		Load	0x1,0x10
0692 00d8       |    |		Load_Top	At_Offset_0
0693 e20f       |    |		Load	0x1,0xf
0694 0260       | `  |		Execute	Discrete,In_Type
0695 7001       |p   |		Jump_Nonzero	0x697
0696 0801       |    |		Execute_Immediate	Raise,0x1
0697 e402       |    |		Load	0x2,0x2
0698 8222       | "  |		Call	0x1,0x22
0699 6820       |h   |		Jump_Zero	0x6ba
069a e210       |    |		Load	0x1,0x10
069b 00d8       |    |		Load_Top	At_Offset_0
069c e20f       |    |		Load	0x1,0xf
069d 0260       | `  |		Execute	Discrete,In_Type
069e 7001       |p   |		Jump_Nonzero	0x6a0
069f 0801       |    |		Execute_Immediate	Raise,0x1
06a0 e402       |    |		Load	0x2,0x2
06a1 822a       | *  |		Call	0x1,0x2a
06a2 6817       |h   |		Jump_Zero	0x6ba
06a3 e210       |    |		Load	0x1,0x10
06a4 00d8       |    |		Load_Top	At_Offset_0
06a5 e20f       |    |		Load	0x1,0xf
06a6 0260       | `  |		Execute	Discrete,In_Type
06a7 7001       |p   |		Jump_Nonzero	0x6a9
06a8 0801       |    |		Execute_Immediate	Raise,0x1
06a9 e402       |    |		Load	0x2,0x2
06aa 8249       | I  |		Call	0x1,0x49
06ab a403       |    |		Store_Unchecked	0x2,0x3
06ac 00ea       |    |		Load_Encached	Null_String_Cache
06ad e210       |    |		Load	0x1,0x10
06ae 00d8       |    |		Load_Top	At_Offset_0
06af e20f       |    |		Load	0x1,0xf
06b0 0260       | `  |		Execute	Discrete,In_Type
06b1 7001       |p   |		Jump_Nonzero	0x6b3
06b2 0801       |    |		Execute_Immediate	Raise,0x1
06b3 e402       |    |		Load	0x2,0x2
06b4 822b       | +  |		Call	0x1,0x2b
06b5 e238       | 8  |		Load	0x1,0x38
06b6 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
06b7 e403       |    |		Load	0x2,0x3
06b8 0227       | '  |		Execute	Access,All_Reference
06b9 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
06ba e402       |    |		Load	0x2,0x2
06bb 8226       | &  |		Call	0x1,0x26
06bc c402       |    |		Store	0x2,0x2
06bd 00c9       |    |		Action	Pop_Auxiliary_Loop
06be e402       |    |		Load	0x2,0x2
06bf 8225       | %  |		Call	0x1,0x25
06c0 6fd0       |o   |		Jump_Zero	0x691
06c1 00ce       |    |		Action	Pop_Auxiliary
06c2 00e1       |    |		Load_Encached	Boolean_Cache
06c3 e21e       |    |		Load	0x1,0x1e
06c4 e215       |    |		Load	0x1,0x15
06c5 821f       |    |		Call	0x1,0x1f
06c6 c402       |    |		Store	0x2,0x2
06c7 c404       |    |		Store	0x2,0x4
06c8 00cf       |    |		Action	Mark_Auxiliary
06c9 7850       |xP  |		Jump	0x71a
06ca e210       |    |		Load	0x1,0x10
06cb 00d8       |    |		Load_Top	At_Offset_0
06cc e20f       |    |		Load	0x1,0xf
06cd 0260       | `  |		Execute	Discrete,In_Type
06ce 7001       |p   |		Jump_Nonzero	0x6d0
06cf 0801       |    |		Execute_Immediate	Raise,0x1
06d0 e402       |    |		Load	0x2,0x2
06d1 822a       | *  |		Call	0x1,0x2a
06d2 6843       |hC  |		Jump_Zero	0x716
06d3 e210       |    |		Load	0x1,0x10
06d4 00d8       |    |		Load_Top	At_Offset_0
06d5 e20f       |    |		Load	0x1,0xf
06d6 0260       | `  |		Execute	Discrete,In_Type
06d7 7001       |p   |		Jump_Nonzero	0x6d9
06d8 0801       |    |		Execute_Immediate	Raise,0x1
06d9 e402       |    |		Load	0x2,0x2
06da 8249       | I  |		Call	0x1,0x49
06db a403       |    |		Store_Unchecked	0x2,0x3
06dc e403       |    |		Load	0x2,0x3
06dd 0227       | '  |		Execute	Access,All_Reference
06de 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
06df 681d       |h   |		Jump_Zero	0x6fd
06e0 e403       |    |		Load	0x2,0x3
06e1 0227       | '  |		Execute	Access,All_Reference
06e2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06e3 e403       |    |		Load	0x2,0x3
06e4 0227       | '  |		Execute	Access,All_Reference
06e5 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
06e6 0227       | '  |		Execute	Access,All_Reference
06e7 e403       |    |		Load	0x2,0x3
06e8 0227       | '  |		Execute	Access,All_Reference
06e9 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06ea 00ea       |    |		Load_Encached	Null_String_Cache
06eb e210       |    |		Load	0x1,0x10
06ec 00d8       |    |		Load_Top	At_Offset_0
06ed e20f       |    |		Load	0x1,0xf
06ee 0260       | `  |		Execute	Discrete,In_Type
06ef 7001       |p   |		Jump_Nonzero	0x6f1
06f0 0801       |    |		Execute_Immediate	Raise,0x1
06f1 e402       |    |		Load	0x2,0x2
06f2 822b       | +  |		Call	0x1,0x2b
06f3 e403       |    |		Load	0x2,0x3
06f4 0227       | '  |		Execute	Access,All_Reference
06f5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
06f6 00d8       |    |		Load_Top	At_Offset_0
06f7 e20f       |    |		Load	0x1,0xf
06f8 0260       | `  |		Execute	Discrete,In_Type
06f9 7001       |p   |		Jump_Nonzero	0x6fb
06fa 0801       |    |		Execute_Immediate	Raise,0x1
06fb 8219       |    |		Call	0x1,0x19
06fc 7819       |x   |		Jump	0x716
06fd e403       |    |		Load	0x2,0x3
06fe 0227       | '  |		Execute	Access,All_Reference
06ff 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0700 00ea       |    |		Load_Encached	Null_String_Cache
0701 e403       |    |		Load	0x2,0x3
0702 0227       | '  |		Execute	Access,All_Reference
0703 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0704 00ea       |    |		Load_Encached	Null_String_Cache
0705 e210       |    |		Load	0x1,0x10
0706 00d8       |    |		Load_Top	At_Offset_0
0707 e20f       |    |		Load	0x1,0xf
0708 0260       | `  |		Execute	Discrete,In_Type
0709 7001       |p   |		Jump_Nonzero	0x70b
070a 0801       |    |		Execute_Immediate	Raise,0x1
070b e402       |    |		Load	0x2,0x2
070c 822b       | +  |		Call	0x1,0x2b
070d e403       |    |		Load	0x2,0x3
070e 0227       | '  |		Execute	Access,All_Reference
070f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0710 00d8       |    |		Load_Top	At_Offset_0
0711 e20f       |    |		Load	0x1,0xf
0712 0260       | `  |		Execute	Discrete,In_Type
0713 7001       |p   |		Jump_Nonzero	0x715
0714 0801       |    |		Execute_Immediate	Raise,0x1
0715 8219       |    |		Call	0x1,0x19
0716 e402       |    |		Load	0x2,0x2
0717 8226       | &  |		Call	0x1,0x26
0718 c402       |    |		Store	0x2,0x2
0719 00c9       |    |		Action	Pop_Auxiliary_Loop
071a e402       |    |		Load	0x2,0x2
071b 8225       | %  |		Call	0x1,0x25
071c 6fad       |o   |		Jump_Zero	0x6ca
071d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
071e 0000 0000  |    |		.XXX[0x2]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0729       | )  |		.CONST	0x0729								; Address of begin
0721 0004       |    |		.CONST	0x0004								; Address of exception handler
0722 0003       |    |		.CONST	0x0003								; Number of locals
0723			INIT_0720:
0723 e5fe       |    |		Load	0x2,-0x2
0724 8245       | E  |		Call	0x1,0x45
0725 e23f       | ?  |		Load	0x1,0x3f
0726 4800       |H   |		Short_Literal	0x0
0727 e602       |    |		Load	0x3,0x2
0728 8247       | G  |		Call	0x1,0x47
0729			BODY_0720:
0729 00d8       |    |		Load_Top	At_Offset_0
072a 7016       |p   |		Jump_Nonzero	0x741
072b e23b       | ;  |		Load	0x1,0x3b
072c 03bc       |    |		Declare_Variable	Access,By_Allocation
072d a603       |    |		Store_Unchecked	0x3,0x3
072e e23f       | ?  |		Load	0x1,0x3f
072f e603       |    |		Load	0x3,0x3
0730 0227       | '  |		Execute	Access,All_Reference
0731 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0732 00d8       |    |		Load_Top	At_Offset_0
0733 a23f       | ?  |		Store_Unchecked	0x1,0x3f
0734 e5ff       |    |		Load	0x2,-0x1
0735 e240       | @  |		Load	0x1,0x40
0736 027d       | }  |		Execute	Discrete,Greater
0737 6803       |h   |		Jump_Zero	0x73b
0738 e5ff       |    |		Load	0x2,-0x1
0739 c240       | @  |		Store	0x1,0x40
073a 7806       |x   |		Jump	0x741
073b e5ff       |    |		Load	0x2,-0x1
073c e241       | A  |		Load	0x1,0x41
073d 027c       | |  |		Execute	Discrete,Less
073e 6802       |h   |		Jump_Zero	0x741
073f e5ff       |    |		Load	0x2,-0x1
0740 c241       | A  |		Store	0x1,0x41
0741 e5fb       |    |		Load	0x2,-0x5
0742 e603       |    |		Load	0x3,0x3
0743 0227       | '  |		Execute	Access,All_Reference
0744 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0745 e5fd       |    |		Load	0x2,-0x3
0746 e603       |    |		Load	0x3,0x3
0747 0227       | '  |		Execute	Access,All_Reference
0748 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0749 e5ff       |    |		Load	0x2,-0x1
074a e603       |    |		Load	0x3,0x3
074b 0227       | '  |		Execute	Access,All_Reference
074c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
074d e602       |    |		Load	0x3,0x2
074e e238       | 8  |		Load	0x1,0x38
074f 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0750 e603       |    |		Load	0x3,0x3
0751 0227       | '  |		Execute	Access,All_Reference
0752 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0753 e5fc       |    |		Load	0x2,-0x4
0754 01db       |    |		Execute	Vector,Length
0755 6806       |h   |		Jump_Zero	0x75c
0756 e5fc       |    |		Load	0x2,-0x4
0757 e238       | 8  |		Load	0x1,0x38
0758 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0759 e603       |    |		Load	0x3,0x3
075a 0227       | '  |		Execute	Access,All_Reference
075b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
075c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
075d 0000 0000  |    |		.XXX[0x3]
075f 0000       |    |
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 076f       | o  |		.CONST	0x076f								; Address of begin
0761 0004       |    |		.CONST	0x0004								; Address of exception handler
0762 0014       |    |		.CONST	0x0014								; Number of locals
0763			INIT_0760:
0763 029a 079b  |    |		Declare_Subprogram	INIT_0798,For_Outer_Call,Visible,Unelaborated
0765 00bf       |    |		Action	Accept_Activation
0766 e001       |    |		Load	0x0,0x1
0767 e002       |    |		Load	0x0,0x2
0768 e20f       |    |		Load	0x1,0xf
0769 e003       |    |		Load	0x0,0x3
076a 0387       |    |		Declare_Variable	Package
076b 00d8       |    |		Load_Top	At_Offset_0
076c 020f       |    |		Execute	Module,Activate
076d 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
076e 00c7       |    |		Action	Elaborate_Subprogram
076f			BODY_0760:
076f e211       |    |		Load	0x1,0x11
0770 e004       |    |		Load	0x0,0x4
0771 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0772 027e       | ~  |		Execute	Discrete,Not_Equal
0773 681e       |h   |		Jump_Zero	0x792
0774 00cf       |    |		Action	Mark_Auxiliary
0775 e20f       |    |		Load	0x1,0xf
0776 0265       | e  |		Execute	Discrete,Reverse_Bounds
0777 0263       | c  |		Execute	Discrete,Above_Bound
0778 7018       |p   |		Jump_Nonzero	0x791
0779 00d8       |    |		Load_Top	At_Offset_0
077a e210       |    |		Load	0x1,0x10
077b 027e       | ~  |		Execute	Discrete,Not_Equal
077c 6812       |h   |		Jump_Zero	0x78f
077d e212       |    |		Load	0x1,0x12
077e 00ea       |    |		Load_Encached	Null_String_Cache
077f 4804       |H   |		Short_Literal	0x4
0780 e217       |    |		Load	0x1,0x17
0781 e20f       |    |		Load	0x1,0xf
0782 0122       | "  |		Execute	Any,Make_Root_Type
0783 011c       |    |		Execute	Any,Convert_Unchecked
0784 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0785 e211       |    |		Load	0x1,0x11
0786 e004       |    |		Load	0x0,0x4
0787 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0788 00d9       |    |		Load_Top	At_Offset_1
0789 00d0       |    |		Action	Swap_Control
078a 0260       | `  |		Execute	Discrete,In_Type
078b 7001       |p   |		Jump_Nonzero	0x78d
078c 0801       |    |		Execute_Immediate	Raise,0x1
078d e004       |    |		Load	0x0,0x4
078e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
078f 00c8       |    |		Action	Pop_Auxiliary_Range
0790 3fe8       |?   |		Loop_Increasing	0x779
0791 00ce       |    |		Action	Pop_Auxiliary
0792 00bc       |    |		Action	Signal_Activated
0793 00bb       |    |		Action	Signal_Completion
0794 0000 0000  |    |		.BLANK	0000[0x4]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07b5       |    |		.CONST	0x07b5								; Address of begin
0799 0004       |    |		.CONST	0x0004								; Address of exception handler
079a 0006       |    |		.CONST	0x0006								; Number of locals
079b			INIT_0798:
079b e5fe       |    |		Load	0x2,-0x2
079c e004       |    |		Load	0x0,0x4
079d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
079e 00d9       |    |		Load_Top	At_Offset_1
079f 00d0       |    |		Action	Swap_Control
07a0 0260       | `  |		Execute	Discrete,In_Type
07a1 7001       |p   |		Jump_Nonzero	0x7a3
07a2 0801       |    |		Execute_Immediate	Raise,0x1
07a3 e5ff       |    |		Load	0x2,-0x1
07a4 8005       |    |		Call	0x0,0x5
07a5 00ea       |    |		Load_Encached	Null_String_Cache
07a6 e5fe       |    |		Load	0x2,-0x2
07a7 e004       |    |		Load	0x0,0x4
07a8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07a9 00d9       |    |		Load_Top	At_Offset_1
07aa 00d0       |    |		Action	Swap_Control
07ab 0260       | `  |		Execute	Discrete,In_Type
07ac 7001       |p   |		Jump_Nonzero	0x7ae
07ad 0801       |    |		Execute_Immediate	Raise,0x1
07ae e5ff       |    |		Load	0x2,-0x1
07af e004       |    |		Load	0x0,0x4
07b0 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
07b1 e20f       |    |		Load	0x1,0xf
07b2 0007       |    |		Action	Break_Optional
07b3 00e1       |    |		Load_Encached	Boolean_Cache
07b4 03e9       |    |		Declare_Variable	Discrete,Duplicate
07b5			BODY_0798:
07b5 e402       |    |		Load	0x2,0x2
07b6 682b       |h+  |		Jump_Zero	0x7e2
07b7 00e1       |    |		Load_Encached	Boolean_Cache
07b8 00e1       |    |		Load_Encached	Boolean_Cache
07b9 e214       |    |		Load	0x1,0x14
07ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07bb e403       |    |		Load	0x2,0x3
07bc e214       |    |		Load	0x1,0x14
07bd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
07be c404       |    |		Store	0x2,0x4
07bf c405       |    |		Store	0x2,0x5
07c0 c406       |    |		Store	0x2,0x6
07c1 e405       |    |		Load	0x2,0x5
07c2 7007       |p   |		Jump_Nonzero	0x7ca
07c3 00d8       |    |		Load_Top	At_Offset_0
07c4 7005       |p   |		Jump_Nonzero	0x7ca
07c5 e403       |    |		Load	0x2,0x3
07c6 4829       |H)  |		Short_Literal	0x29
07c7 e402       |    |		Load	0x2,0x2
07c8 8006       |    |		Call	0x0,0x6
07c9 7818       |x   |		Jump	0x7e2
07ca 00d8       |    |		Load_Top	At_Offset_0
07cb 7005       |p   |		Jump_Nonzero	0x7d1
07cc e403       |    |		Load	0x2,0x3
07cd 4828       |H(  |		Short_Literal	0x28
07ce e402       |    |		Load	0x2,0x2
07cf 8006       |    |		Call	0x0,0x6
07d0 7811       |x   |		Jump	0x7e2
07d1 e405       |    |		Load	0x2,0x5
07d2 e5fd       |    |		Load	0x2,-0x3
07d3 0f00       |    |		Execute_Immediate	Equal,0x0
07d4 0279       | y  |		Execute	Discrete,And
07d5 6805       |h   |		Jump_Zero	0x7db
07d6 e403       |    |		Load	0x2,0x3
07d7 4829       |H)  |		Short_Literal	0x29
07d8 e402       |    |		Load	0x2,0x2
07d9 8006       |    |		Call	0x0,0x6
07da 7807       |x   |		Jump	0x7e2
07db e404       |    |		Load	0x2,0x4
07dc 00d8       |    |		Load_Top	At_Offset_0
07dd e20f       |    |		Load	0x1,0xf
07de 0260       | `  |		Execute	Discrete,In_Type
07df 7001       |p   |		Jump_Nonzero	0x7e1
07e0 0801       |    |		Execute_Immediate	Raise,0x1
07e1 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
07e2 e5fc       |    |		Load	0x2,-0x4
07e3 00d8       |    |		Load_Top	At_Offset_0
07e4 e20f       |    |		Load	0x1,0xf
07e5 0260       | `  |		Execute	Discrete,In_Type
07e6 7001       |p   |		Jump_Nonzero	0x7e8
07e7 0801       |    |		Execute_Immediate	Raise,0x1
07e8 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
07e9 ; --------------------------------------------------------------------------------------
07e9 ; STRING TABLE
07e9 ; --------------------------------------------------------------------------------------
07e9 0088       |    |		.STRTAB	0x0088->0x082d							; "UNSPECIFIED"
07ea 0091       |    |		.STRTAB	0x0091->0x0832							; "DIRECTORY_STRING_NAME"
07eb 00a4       |    |		.STRTAB	0x00a4->0x083d							; "BOOLEAN_VALUED"
07ec 00b0       |    |		.STRTAB	0x00b0->0x0844							; "INTEGER_VALUED"
07ed 00bc       |    |		.STRTAB	0x00bc->0x084b							; "LITERAL"
07ee 00c1       |    |		.STRTAB	0x00c1->0x084e							; "OK"
07ef 00c1       |    |		.STRTAB	0x00c1->0x084f							; "AMBIGUOUS_NAME"
07f0 00cd       |    |		.STRTAB	0x00cd->0x0856							; "UNDEFINED_NAME"
07f1 00d9       |    |		.STRTAB	0x00d9->0x085d							; "UNDEFINED_ID"
07f2 00e3       |    |		.STRTAB	0x00e3->0x0863							; "LITERAL_HAS_VALUE"
07f3 00f2       |    |		.STRTAB	0x00f2->0x086c							; "MISSING_NAME"
07f4 00fc       |    |		.STRTAB	0x00fc->0x0872							; "HAS_NO_VALUE"
07f5 0106       |    |		.STRTAB	0x0106->0x0878							; "TILDED_VALUE"
07f6 0110       |    |		.STRTAB	0x0110->0x087e							; "TILDED_LITERAL"
07f7 011c       |    |		.STRTAB	0x011c->0x0885							; "MALFORMED_DIRECTORY_NAME"
07f8 0132       | 2  |		.STRTAB	0x0132->0x0891							; "NAMING_BAD_CONTEXT"
07f9 0142       | B  |		.STRTAB	0x0142->0x089a							; "NAMING_ILL_FORMED_NAME"
07fa 0156       | V  |		.STRTAB	0x0156->0x08a5							; "NAMING_UNDEFINED"
07fb 0164       | d  |		.STRTAB	0x0164->0x08ad							; "NAMING_LOCK_ERROR"
07fc 0173       | s  |		.STRTAB	0x0173->0x08b5							; "NAMING_ACCESS_ERROR"
07fd 0184       |    |		.STRTAB	0x0184->0x08bf							; "NAMING_AMBIGUOUS"
07fe 0192       |    |		.STRTAB	0x0192->0x08c7							; "NAMING_NO_SELECTION"
07ff 01a3       |    |		.STRTAB	0x01a3->0x08d0							; "NAMING_CURSOR_NOT_IN_SELECTION"
0800 01bf       |    |		.STRTAB	0x01bf->0x08df							; "NAMING_SELECTIONS_NOT_SUPPORTED"
0801 01dc       |    |		.STRTAB	0x01dc->0x08ef							; "NAMING_CLASS_ERROR"
0802 01ec       |    |		.STRTAB	0x01ec->0x08f8							; "NAMING_NO_DECLARATION"
0803 01ff       |    |		.STRTAB	0x01ff->0x0902							; "NAMING_NO_OBJECT"
0804 020d       |    |		.STRTAB	0x020d->0x090a							; "NAMING_NO_EDITOR"
0805 021b       |    |		.STRTAB	0x021b->0x0912							; "DIRECTORY_LOCK_ERROR"
0806 022d       | -  |		.STRTAB	0x022d->0x091c							; "DIRECTORY_SEMANTIC_ERROR"
0807 0243       | C  |		.STRTAB	0x0243->0x0928							; "DIRECTORY_CODE_GENERATION_ERROR"
0808 0260       | `  |		.STRTAB	0x0260->0x0938							; "DIRECTORY_OBSOLESCENCE_ERROR"
0809 027a       | z  |		.STRTAB	0x027a->0x0946							; "DIRECTORY_BAD_TREE_PARAMETER"
080a 0294       |    |		.STRTAB	0x0294->0x0954							; "DIRECTORY_ILLEGAL_OPERATION"
080b 02ad       |    |		.STRTAB	0x02ad->0x0961							; "DIRECTORY_CONSISTENCY_ERROR"
080c 02c6       |    |		.STRTAB	0x02c6->0x096f							; "DIRECTORY_VERSION_ERROR"
080d 02db       |    |		.STRTAB	0x02db->0x097a							; "DIRECTORY_NAME_ERROR"
080e 02ed       |    |		.STRTAB	0x02ed->0x0984							; "DIRECTORY_ACCESS_ERROR"
080f 0301       |    |		.STRTAB	0x0301->0x098f							; "DIRECTORY_POLICY_ERROR"
0810 0315       |    |		.STRTAB	0x0315->0x099a							; "DIRECTORY_BAD_ACTION"
0811 0327       | '  |		.STRTAB	0x0327->0x09a4							; "DIRECTORY_CLASS_ERROR"
0812 033a       | :  |		.STRTAB	0x033a->0x09af							; "DIRECTORY_OTHER_ERROR"
0813 034d       | M  |		.STRTAB	0x034d->0x09b9							; "MALFORMED_BOOLEAN"
0814 035c       | \  |		.STRTAB	0x035c->0x09c2							; "MALFORMED_INTEGER"
0815 036b       | k  |		.STRTAB	0x036b->0x09ca							; "MALFORMED_ENUMERATION"
0816 037e       | ~  |		.STRTAB	0x037e->0x09d5							; "AMBIGUOUS_ENUMERATION"
0817 0391       |    |		.STRTAB	0x0391->0x09df							; "UNDEFINED_ENUMERATION"
0818 03a4       |    |		.STRTAB	0x03a4->0x09ea							; "MALFORMED_GENERIC_VALUE"
0819 03b9       |    |		.STRTAB	0x03b9->0x09f5							; " option '"
081a 03c0       |    |		.STRTAB	0x03c0->0x09fa							; "' has not been specified"
081b 03d6       |    |		.STRTAB	0x03d6->0x0a06							; "' is not defined"
081c 03e4       |    |		.STRTAB	0x03e4->0x0a0e							; "' is ambiguous"
081d 03f0       |    |		.STRTAB	0x03f0->0x0a15							; "' is a literal and cannot be assigned a value"
081e 041b       |    |		.STRTAB	0x041b->0x0a2b							; "' must have a value"
081f 042c       | ,  |		.STRTAB	0x042c->0x0a35							; "' has both a '~' and a value"
0820 0446       | F  |		.STRTAB	0x0446->0x0a43							; " literal '"
0821 044e       | N  |		.STRTAB	0x044e->0x0a48							; "' has a '~'"
0822 0457       | W  |		.STRTAB	0x0457->0x0a4d							; " option name is expected where '"
0823 0475       | u  |		.STRTAB	0x0475->0x0a5d							; "' now appears"
0824 0480       |    |		.STRTAB	0x0480->0x0a64							; " option value '"
0825 048d       |    |		.STRTAB	0x048d->0x0a6b							; "' is not a valid Boolean"
0826 04a3       |    |		.STRTAB	0x04a3->0x0a77							; "' is not a valid integer"
0827 04b9       |    |		.STRTAB	0x04b9->0x0a83							; "' is not a well-formed directory string name"
0828 04e3       |    |		.STRTAB	0x04e3->0x0a99							; " resolution of '"
0829 04f1       |    |		.STRTAB	0x04f1->0x0aa1							; "' failed; "
082a 04f9       |    |		.STRTAB	0x04f9->0x0aa6							; " option malformed"
082b 0508       |    |		.STRTAB	0x0508->0x0aaf							; "NAMING_"
082c 050d       |    |		.STREND 0x050d->0x0ab2
082d 554e 5350  |UNSP|		.STRTAB_STRINGS
0ab3 0000 0000  |    |		.BLANK	0000[0x5]
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; Debug Table
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x4314,0x0000,0x0001,0x0000
0abe b9b9 b0b3  |    |		.XXX[0xcc]
0ac0 b280 0000  |    |
0ac2 0480 0000  |    |
0ac4 0c90 aa37  |   7|
0ac6 b7b6 3997  |  9 |
0ac8 2732 ba3b  |'2 ;|
0aca b7b9 35b4  |  5 |
0acc b733 9729  | 3 )|
0ace 3831 9723  |81 #|
0ad0 b2ba 0000  |    |
0ad2 0004 8000  |    |
0ad4 0014 10aa  |    |
0ad6 37b7 b639  |7  9|
0ad8 9727 32ba  | '2 |
0ada 3bb7 b935  |;  5|
0adc b4b7 3397  |  3 |
0ade 2938 3197  |)81 |
0ae0 22bc 31b2  |" 1 |
0ae2 b83a 34b7  | :4 |
0ae4 b72f ab32  | / 2|
0ae6 b939 b4b7  | 9  |
0ae8 b739 8000  | 9  |
0aea 0004 8000  |    |
0aec 0013 10aa  |    |
0aee 37b7 b639  |7  9|
0af0 9727 32ba  | '2 |
0af2 3bb7 b935  |;  5|
0af4 b4b7 3397  |  3 |
0af6 2938 3197  |)81 |
0af8 22bc 31b2  |" 1 |
0afa b83a 34b7  | :4 |
0afc b72f a73a  | / :|
0afe b6b1 32b9  |  2 |
0b00 0000 0004  |    |
0b02 8000 0010  |    |
0b04 10aa 37b7  |  7 |
0b06 b639 9727  | 9 '|
0b08 32ba 3bb7  |2 ; |
0b0a b935 b4b7  | 5  |
0b0c 3397 2938  |3 )8|
0b0e 3197 22b9  |1 " |
0b10 3937 b92f  |97 /|
0b12 aa3c b832  | < 2|
0b14 8000 0004  |    |
0b16 8000 0013  |    |
0b18 10aa 37b7  |  7 |
0b1a b639 9727  | 9 '|
0b1c 32ba 3bb7  |2 ; |
0b1e b935 b4b7  | 5  |
0b20 3397 2938  |3 )8|
0b22 3197 2232  |1 "2|
0b24 b334 b732  | 4 2|
0b26 b22f ab32  | / 2|
0b28 b939 b4b7  | 9  |
0b2a b739 8000  | 9  |
0b2c 0004 8000  |    |
0b2e 000a 90aa  |    |
0b30 37b7 b639  |7  9|
0b32 9727 32ba  | '2 |
0b34 3bb7 b935  |;  5|
0b36 b4b7 3397  |  3 |
0b38 2938 3180  |)81 |
0b3a 0000 0003  |    |
0b3c 169d 6c82  |  l |
0b3e 8dd6 0316  |    |
0b40 cc21 0316  | !  |
0b42 cd6d 8000  | m  |
0b44 0009 4000  |  @ |
0b46 0001 9c9b  |    |
0b48 dd18 5d19  |  ] |
0b4a 4000 0002  |@   |
0b4c 4000 0007  |@   |
0b4e 8850 dbdb  | P  |
0b50 5b58 5b99  |[X[ |
0b52 1ccb 9159  |   Y|
0b54 1a5d 1bdc  | ]  |
0b56 8b94 d8dc  |    |
0b58 9959 5b8b  | Y[ |
0b5a 949b dd18  |    |
0b5c 5d19 4000  |] @ |
0b5e 0002 4000  |  @ |
0b60 0007 0850  |   P|
0b62 dbdb 5b58  |  [X|
0b64 5b99 1ccb  |[   |
0b66 9159 1a5d  | Y ]|
0b68 1bdc 8b93  |    |
0b6a 585c 9acb  |X\  |
0b6c 949b dd18  |    |
0b6e 5d19 4000  |] @ |
0b70 0002 4000  |  @ |
0b72 0008 8850  |   P|
0b74 dbdb 5b58  |  [X|
0b76 5b99 1ccb  |[   |
0b78 9159 1a5d  | Y ]|
0b7a 1bdc 8b92  |    |
0b7c 1bdb 1917  |    |
0b7e d4dd 1858  |   X|
0b80 dacb 949b  |    |
0b82 dd18 5d19  |  ] |
0b84 4000 0000  |@   |
0b86 018b 650c  |  e |
0b88 8147 0ec0  | G  |
0b8a 0000 0000  |    |		.BLANK	0000[0x5]
0b8f 0360 0000  | `  |		.XXX[0x25]
0b91 01ee 4e0c  |  N |
0b93 65ce 4cad  |e L |
0b95 4cac 6e8b  |L n |
0b97 ed6d 2dcc  | m- |
0b99 8000 0001  |    |
0b9b 2000 0004  |    |
0b9d 242a 8ded  |$*  |
0b9f ed8e 65c9  |  e |
0ba1 ccae 8eed  |    |
0ba3 ee4d 6d2d  | Mm-|
0ba5 cce5 ca4e  |   N|
0ba7 0c65 ca4c  | e L|
0ba9 ad4c ac6e  | L n|
0bab 8be9 6d2d  |  m-|
0bad cc80 0000  |    |
0baf 0000 c5b3  |    |
0bb1 1b60 a399  | `  |
0bb3 4000       |@   |
0bb4 0000 0000  |    |		.BLANK	0000[0x4]
0bb8 0001 a000  |    |		.XXX[0x48]
0bba 0000 b736  |   6|
0bbc 5617 2636  |V &6|
0bbe 82e6 e657  |   W|
0bc0 8740 0000  | @  |
0bc2 0090 0000  |    |
0bc4 01c2 1436  |   6|
0bc6 f6d6 d616  |    |
0bc8 e647 32e4  | G2 |
0bca 5646 9746  |VF F|
0bcc f722 e536  | " 6|
0bce 5617 2636  |V &6|
0bd0 82e4 e657  |   W|
0bd2 8740 0000  | @  |
0bd4 0000 62d9  |  b |
0bd6 b740 51d5  | @Q |
0bd8 9062 d11a  | b  |
0bda 4062 dc5a  |@b Z|
0bdc b000 0000  |    |
0bde d800 0000  |    |
0be0 8b9b 1b43  |   C|
0be2 2b23 ab63  |+# c|
0be4 2b91 7323  |+ s#|
0be6 4b9b 8363  |K  c|
0be8 0bc8 0000  |    |
0bea 0088 0000  |    |
0bec 00d9 0a1b  |    |
0bee 7b6b 6b0b  |{kk |
0bf0 7323 9972  |s# r|
0bf2 9b1b 432b  |  C+|
0bf4 23ab 632b  |# c+|
0bf6 9172 234b  | r#K|
0bf8 9b83 630b  |  c |
0bfa c800 0000  |    |
0bfc 0031 6cee  | 1l |
0bfe 2828 ef40  |(( @|