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

⟦ea53b7ed4⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

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 0898       |    |		.CONST	0x0898								; 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 8005       |    |		.CONST	0x8005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 008a       |    |		.CONST	0x008a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002b       | +  |		.CONST	0x002b								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
000d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000e 0129       | )  |		Execute	Any,Make_Visible
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 e001       |    |		Load	0x0,0x1
001e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
001f e20d       |    |		Load	0x1,0xd
0020 00e2       |    |		Load_Encached	Integer_Cache
0021 029f 07c3  |    |		Declare_Subprogram	INIT_07c0,For_Call
0023 4803       |H   |		Short_Literal	0x3
0024 032e       | .  |		Declare_Type	Record,Defined,Visible
0025 c215       |    |		Store	0x1,0x15
0026 00e2       |    |		Load_Encached	Integer_Cache
0027 0266       | f  |		Execute	Discrete,Bounds
0028 e215       |    |		Load	0x1,0x15
0029 029f 0093  |    |		Declare_Subprogram	INIT_0090,For_Call
002b 4801       |H   |		Short_Literal	0x1
002c 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
002d c20f       |    |		Store	0x1,0xf
002e 00e2       |    |		Load_Encached	Integer_Cache
002f 4801       |H   |		Short_Literal	0x1
0030 6073       |`s  |		Indirect_Literal	Discrete,0xa4,{0x00000000, 0x7fffffff}
0031 e20f       |    |		Load	0x1,0xf
0032 034f       | O  |		Declare_Type	Array,Constrained,Visible,Bounds_With_Object
0033 029f 07db  |    |		Declare_Subprogram	INIT_07d8,For_Call
0035 4800       |H   |		Short_Literal	0x0
0036 4801       |H   |		Short_Literal	0x1
0037 4800       |H   |		Short_Literal	0x0
0038 4800       |H   |		Short_Literal	0x0
0039 4801       |H   |		Short_Literal	0x1
003a 4801       |H   |		Short_Literal	0x1
003b 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
003c c210       |    |		Store	0x1,0x10
003d e001       |    |		Load	0x0,0x1
003e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003f e001       |    |		Load	0x0,0x1
0040 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0041 029f 0803  |    |		Declare_Subprogram	INIT_0800,For_Call
0043 4802       |H   |		Short_Literal	0x2
0044 032e       | .  |		Declare_Type	Record,Defined,Visible
0045 c211       |    |		Store	0x1,0x11
0046 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0048 c216       |    |		Store	0x1,0x16
0049 029a 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call,Visible,Unelaborated
004b c213       |    |		Store	0x1,0x13
004c 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
004e c217       |    |		Store	0x1,0x17
004f 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0051 c218       |    |		Store	0x1,0x18
0052 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0054 c219       |    |		Store	0x1,0x19
0055 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0057 c21a       |    |		Store	0x1,0x1a
0058 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
005a c21b       |    |		Store	0x1,0x1b
005b 00bf       |    |		Action	Accept_Activation
005c 029d 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call
005e 029d 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call
0060 029d 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call
0062 029d 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call
0064 029d 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call
0066 029d 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call
0068 029d 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call
006a 029d 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call
006c 029d 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call
006e 029d 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call
0070 029d 042b  |   +|		Declare_Subprogram	INIT_0428,For_Outer_Call
0072 029d 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call
0074 029d 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call
0076 029d 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Outer_Call
0078 029d 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call
007a 029d 0523  |   #|		Declare_Subprogram	INIT_0520,For_Outer_Call
007c 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0089 00c7       |    |		Action	Elaborate_Subprogram
008a			BODY_0008:
008a 00bc       |    |		Action	Signal_Activated
008b 00bb       |    |		Action	Signal_Completion
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 00d1       |    |		Pop_Control	Pop_Count_1
0094 00da       |    |		Load_Top	At_Offset_2
0095 01dc       |    |		Execute	Vector,Last
0096 00db       |    |		Load_Top	At_Offset_3
0097 01dd       |    |		Execute	Vector,First
0098 0263       | c  |		Execute	Discrete,Above_Bound
0099 7006       |p   |		Jump_Nonzero	0xa0
009a 00d8       |    |		Load_Top	At_Offset_0
009b e5ff       |    |		Load	0x2,-0x1
009c 01d5       |    |		Execute	Vector,Field_Reference
009d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009e 0a01       |    |		Execute_Immediate	Plus,0x1
009f 7ff8       |    |		Jump	0x98
00a0 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00a1 0000 0000  |    |		.XXX[0x3]
00a3 0000       |    |
00a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00cd       |    |		.CONST	0x00cd								; Address of begin
00a9 0183       |    |		.CONST	0x0183								; Address of exception handler
00aa 0009       |    |		.CONST	0x0009								; Number of locals
00ab			INIT_00a8:
00ab e001       |    |		Load	0x0,0x1
00ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ad 02c7       |    |		Declare_Variable	Any
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b0 e001       |    |		Load	0x0,0x1
00b1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00b2 02c7       |    |		Declare_Variable	Any
00b3 00d8       |    |		Load_Top	At_Offset_0
00b4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b5 e002       |    |		Load	0x0,0x2
00b6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00b7 e002       |    |		Load	0x0,0x2
00b8 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00b9 02c7       |    |		Declare_Variable	Any
00ba 00d8       |    |		Load_Top	At_Offset_0
00bb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00bc e002       |    |		Load	0x0,0x2
00bd 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
00be 02c7       |    |		Declare_Variable	Any
00bf 00d8       |    |		Load_Top	At_Offset_0
00c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c1 e002       |    |		Load	0x0,0x2
00c2 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
00c3 02c7       |    |		Declare_Variable	Any
00c4 00d8       |    |		Load_Top	At_Offset_0
00c5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c6 e002       |    |		Load	0x0,0x2
00c7 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
00c8 02c7       |    |		Declare_Variable	Any
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00cb 029f 054b  |   K|		Declare_Subprogram	INIT_0548,For_Call
00cd			BODY_00a8:
00cd 4800       |H   |		Short_Literal	0x0
00ce a5fd       |    |		Store_Unchecked	0x2,-0x3
00cf 4800       |H   |		Short_Literal	0x0
00d0 a5fc       |    |		Store_Unchecked	0x2,-0x4
00d1 4800       |H   |		Short_Literal	0x0
00d2 a5fb       |    |		Store_Unchecked	0x2,-0x5
00d3 e5fe       |    |		Load	0x2,-0x2
00d4 e5ff       |    |		Load	0x2,-0x1
00d5 e003       |    |		Load	0x0,0x3
00d6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00d7 7001       |p   |		Jump_Nonzero	0xd9
00d8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d9 e5fe       |    |		Load	0x2,-0x2
00da 4801       |H   |		Short_Literal	0x1
00db e5ff       |    |		Load	0x2,-0x1
00dc e003       |    |		Load	0x0,0x3
00dd 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00de c402       |    |		Store	0x2,0x2
00df e5fe       |    |		Load	0x2,-0x2
00e0 4801       |H   |		Short_Literal	0x1
00e1 e402       |    |		Load	0x2,0x2
00e2 e003       |    |		Load	0x0,0x3
00e3 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00e4 c403       |    |		Store	0x2,0x3
00e5 e002       |    |		Load	0x0,0x2
00e6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00e7 e405       |    |		Load	0x2,0x5
00e8 0120       |    |		Execute	Any,Is_Value
00e9 6803       |h   |		Jump_Zero	0xed
00ea e002       |    |		Load	0x0,0x2
00eb 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00ec 7801       |x   |		Jump	0xee
00ed e405       |    |		Load	0x2,0x5
00ee e004       |    |		Load	0x0,0x4
00ef 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f0 e403       |    |		Load	0x2,0x3
00f1 e003       |    |		Load	0x0,0x3
00f2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00f3 0092 081b  |    |		Action	Push_String_Extended,0x81b					; ".state.cmvc_database"
00f5 01cc       |    |		Execute	Vector,Catenate
00f6 e002       |    |		Load	0x0,0x2
00f7 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00f8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f9 c405       |    |		Store	0x2,0x5
00fa c404       |    |		Store	0x2,0x4
00fb e404       |    |		Load	0x2,0x4
00fc e002       |    |		Load	0x0,0x2
00fd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00fe 6816       |h   |		Jump_Zero	0x115
00ff e5fe       |    |		Load	0x2,-0x2
0100 4801       |H   |		Short_Literal	0x1
0101 4801       |H   |		Short_Literal	0x1
0102 e005       |    |		Load	0x0,0x5
0103 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0104 0334       | 4  |		Declare_Variable	Array,With_Constraint
0105 e403       |    |		Load	0x2,0x3
0106 e003       |    |		Load	0x0,0x3
0107 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0108 e005       |    |		Load	0x0,0x5
0109 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010a 0119       |    |		Execute	Any,Check_In_Formal_Type
010b 4801       |H   |		Short_Literal	0x1
010c 00da       |    |		Load_Top	At_Offset_2
010d 01d6       |    |		Execute	Vector,Field_Write
010e 6091       |`   |		Indirect_Literal	Discrete,0x1a0,{0x00000000, 0x000081c7}
010f e006       |    |		Load	0x0,0x6
0110 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0111 608e       |`   |		Indirect_Literal	Discrete,0x1a0,{0x00000000, 0x000081c7}
0112 a5fb       |    |		Store_Unchecked	0x2,-0x5
0113 e007       |    |		Load	0x0,0x7
0114 0257       | W  |		Execute	Discrete,Raise
0115 e002       |    |		Load	0x0,0x2
0116 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0117 00db       |    |		Load_Top	At_Offset_3
0118 0120       |    |		Execute	Any,Is_Value
0119 6803       |h   |		Jump_Zero	0x11d
011a e002       |    |		Load	0x0,0x2
011b 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
011c 7801       |x   |		Jump	0x11e
011d 00db       |    |		Load_Top	At_Offset_3
011e e405       |    |		Load	0x2,0x5
011f e402       |    |		Load	0x2,0x2
0120 e003       |    |		Load	0x0,0x3
0121 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0122 e001       |    |		Load	0x0,0x1
0123 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0124 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0125 e002       |    |		Load	0x0,0x2
0126 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
0127 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0128 c407       |    |		Store	0x2,0x7
0129 c404       |    |		Store	0x2,0x4
012a e404       |    |		Load	0x2,0x4
012b e002       |    |		Load	0x0,0x2
012c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
012d 6816       |h   |		Jump_Zero	0x144
012e e5fe       |    |		Load	0x2,-0x2
012f 4801       |H   |		Short_Literal	0x1
0130 4801       |H   |		Short_Literal	0x1
0131 e005       |    |		Load	0x0,0x5
0132 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0133 0334       | 4  |		Declare_Variable	Array,With_Constraint
0134 e402       |    |		Load	0x2,0x2
0135 e003       |    |		Load	0x0,0x3
0136 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0137 e005       |    |		Load	0x0,0x5
0138 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0139 0119       |    |		Execute	Any,Check_In_Formal_Type
013a 4801       |H   |		Short_Literal	0x1
013b 00da       |    |		Load_Top	At_Offset_2
013c 01d6       |    |		Execute	Vector,Field_Write
013d 605e       |`^  |		Indirect_Literal	Discrete,0x19c,{0x00000000, 0x000081c8}
013e e006       |    |		Load	0x0,0x6
013f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0140 605b       |`[  |		Indirect_Literal	Discrete,0x19c,{0x00000000, 0x000081c8}
0141 a5fb       |    |		Store_Unchecked	0x2,-0x5
0142 e007       |    |		Load	0x0,0x7
0143 0257       | W  |		Execute	Discrete,Raise
0144 8409       |    |		Call	0x2,0x9
0145 e002       |    |		Load	0x0,0x2
0146 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0147 00da       |    |		Load_Top	At_Offset_2
0148 0120       |    |		Execute	Any,Is_Value
0149 6803       |h   |		Jump_Zero	0x14d
014a e002       |    |		Load	0x0,0x2
014b 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
014c 7801       |x   |		Jump	0x14e
014d 00da       |    |		Load_Top	At_Offset_2
014e e407       |    |		Load	0x2,0x7
014f e406       |    |		Load	0x2,0x6
0150 e002       |    |		Load	0x0,0x2
0151 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
0152 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0153 c408       |    |		Store	0x2,0x8
0154 c404       |    |		Store	0x2,0x4
0155 e404       |    |		Load	0x2,0x4
0156 e002       |    |		Load	0x0,0x2
0157 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0158 6816       |h   |		Jump_Zero	0x16f
0159 e5fe       |    |		Load	0x2,-0x2
015a 4801       |H   |		Short_Literal	0x1
015b 4801       |H   |		Short_Literal	0x1
015c e005       |    |		Load	0x0,0x5
015d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015e 0334       | 4  |		Declare_Variable	Array,With_Constraint
015f e5ff       |    |		Load	0x2,-0x1
0160 e003       |    |		Load	0x0,0x3
0161 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0162 e005       |    |		Load	0x0,0x5
0163 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0164 0119       |    |		Execute	Any,Check_In_Formal_Type
0165 4801       |H   |		Short_Literal	0x1
0166 00da       |    |		Load_Top	At_Offset_2
0167 01d6       |    |		Execute	Vector,Field_Write
0168 602f       |`/  |		Indirect_Literal	Discrete,0x198,{0x00000000, 0x000081c9}
0169 e006       |    |		Load	0x0,0x6
016a 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
016b 602c       |`,  |		Indirect_Literal	Discrete,0x198,{0x00000000, 0x000081c9}
016c a5fb       |    |		Store_Unchecked	0x2,-0x5
016d e007       |    |		Load	0x0,0x7
016e 0257       | W  |		Execute	Discrete,Raise
016f 00da       |    |		Load_Top	At_Offset_2
0170 e406       |    |		Load	0x2,0x6
0171 e002       |    |		Load	0x0,0x2
0172 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0173 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0174 a5fd       |    |		Store_Unchecked	0x2,-0x3
0175 00d9       |    |		Load_Top	At_Offset_1
0176 e002       |    |		Load	0x0,0x2
0177 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0178 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0179 a5fc       |    |		Store_Unchecked	0x2,-0x4
017a e002       |    |		Load	0x0,0x2
017b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
017c 4800       |H   |		Short_Literal	0x0
017d e405       |    |		Load	0x2,0x5
017e e002       |    |		Load	0x0,0x2
017f 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
0180 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0181 c404       |    |		Store	0x2,0x4
0182 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0183			TRAP_00a8:
0183 e007       |    |		Load	0x0,0x7
0184 010f       |    |		Execute	Exception,Equal
0185 6809       |h   |		Jump_Zero	0x18f
0186 e002       |    |		Load	0x0,0x2
0187 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0188 4800       |H   |		Short_Literal	0x0
0189 e405       |    |		Load	0x2,0x5
018a e002       |    |		Load	0x0,0x2
018b 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
018c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
018d c404       |    |		Store	0x2,0x4
018e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
018f 6004       |`   |		Indirect_Literal	Discrete,0x194,{0x00000000, 0x0000813b}
0190 a5fb       |    |		Store_Unchecked	0x2,-0x5
0191 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0192 0000 0000  |    |		.XXX[0x2]
0194 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000813b}
0198 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081c9}
019c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081c8}
01a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081c7}
01a4 0000 0000  |    |		.BLANK	0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ba       |    |		.CONST	0x01ba								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0005       |    |		.CONST	0x0005								; Number of locals
01ab			INIT_01a8:
01ab e001       |    |		Load	0x0,0x1
01ac 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01ad 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
01ae 02c7       |    |		Declare_Variable	Any
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b1 4800       |H   |		Short_Literal	0x0
01b2 e210       |    |		Load	0x1,0x10
01b3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b6 00e2       |    |		Load_Encached	Integer_Cache
01b7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01b8 029f 0583  |    |		Declare_Subprogram	INIT_0580,For_Call
01ba			BODY_01a8:
01ba e5ff       |    |		Load	0x2,-0x1
01bb e003       |    |		Load	0x0,0x3
01bc 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01bd 0092 081c  |    |		Action	Push_String_Extended,0x81c					; ".units.??'c(~library)"
01bf 01cc       |    |		Execute	Vector,Catenate
01c0 8220       |    |		Call	0x1,0x20
01c1 c402       |    |		Store	0x2,0x2
01c2 00db       |    |		Load_Top	At_Offset_3
01c3 8222       | "  |		Call	0x1,0x22
01c4 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
01c5 00d9       |    |		Load_Top	At_Offset_1
01c6 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
01c7 6801       |h   |		Jump_Zero	0x1c9
01c8 8405       |    |		Call	0x2,0x5
01c9 00da       |    |		Load_Top	At_Offset_2
01ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01cb 0000 0000  |    |		.BLANK	0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 01f4       |    |		.CONST	0x01f4								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 4800       |H   |		Short_Literal	0x0
01d4 a5f8       |    |		Store_Unchecked	0x2,-0x8
01d5 e5f9       |    |		Load	0x2,-0x7
01d6 e5fc       |    |		Load	0x2,-0x4
01d7 e5fd       |    |		Load	0x2,-0x3
01d8 8226       | &  |		Call	0x1,0x26
01d9 e5f9       |    |		Load	0x2,-0x7
01da e5fb       |    |		Load	0x2,-0x5
01db e5fa       |    |		Load	0x2,-0x6
01dc e5fd       |    |		Load	0x2,-0x3
01dd e5fe       |    |		Load	0x2,-0x2
01de e5ff       |    |		Load	0x2,-0x1
01df 8229       | )  |		Call	0x1,0x29
01e0 e5f9       |    |		Load	0x2,-0x7
01e1 e5fb       |    |		Load	0x2,-0x5
01e2 e5fa       |    |		Load	0x2,-0x6
01e3 e5fd       |    |		Load	0x2,-0x3
01e4 e5fe       |    |		Load	0x2,-0x2
01e5 e5ff       |    |		Load	0x2,-0x1
01e6 8228       | (  |		Call	0x1,0x28
01e7 e006       |    |		Load	0x0,0x6
01e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e9 e5f9       |    |		Load	0x2,-0x7
01ea e5fe       |    |		Load	0x2,-0x2
01eb e003       |    |		Load	0x0,0x3
01ec 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01ed 0092 081d  |    |		Action	Push_String_Extended,0x81d					; ".units"
01ef 01cc       |    |		Execute	Vector,Catenate
01f0 e008       |    |		Load	0x0,0x8
01f1 1884       |    |		Execute	Package,Field_Execute,Field_Number 0x84
01f2 c5f8       |    |		Store	0x2,-0x8
01f3 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
01f4			TRAP_01d0:
01f4 0007       |    |		Action	Break_Optional
01f5 6002       |`   |		Indirect_Literal	Discrete,0x1f8,{0x00000000, 0x0000813b}
01f6 a5f8       |    |		Store_Unchecked	0x2,-0x8
01f7 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
01f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000813b}
01fc 0000 0000  |    |		.BLANK	0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0217       |    |		.CONST	0x0217								; Address of begin
0201 0223       | #  |		.CONST	0x0223								; Address of exception handler
0202 0007       |    |		.CONST	0x0007								; Number of locals
0203			INIT_0200:
0203 4800       |H   |		Short_Literal	0x0
0204 e210       |    |		Load	0x1,0x10
0205 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0206 00d8       |    |		Load_Top	At_Offset_0
0207 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0208 e001       |    |		Load	0x0,0x1
0209 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
020a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
020b 02c7       |    |		Declare_Variable	Any
020c 00d8       |    |		Load_Top	At_Offset_0
020d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
020e 00e2       |    |		Load_Encached	Integer_Cache
020f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0210 00e1       |    |		Load_Encached	Boolean_Cache
0211 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0212 e006       |    |		Load	0x0,0x6
0213 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0214 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0215 029f 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Call
0217			BODY_0200:
0217 e5ff       |    |		Load	0x2,-0x1
0218 8220       |    |		Call	0x1,0x20
0219 c403       |    |		Store	0x2,0x3
021a e403       |    |		Load	0x2,0x3
021b 8222       | "  |		Call	0x1,0x22
021c a404       |    |		Store_Unchecked	0x2,0x4
021d 00db       |    |		Load_Top	At_Offset_3
021e 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
021f 6801       |h   |		Jump_Zero	0x221
0220 8407       |    |		Call	0x2,0x7
0221 e402       |    |		Load	0x2,0x2
0222 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0223			TRAP_0200:
0223 0007       |    |		Action	Break_Optional
0224 e402       |    |		Load	0x2,0x2
0225 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 023f       | ?  |		.CONST	0x023f								; Address of begin
0229 024b       | K  |		.CONST	0x024b								; Address of exception handler
022a 0007       |    |		.CONST	0x0007								; Number of locals
022b			INIT_0228:
022b 4800       |H   |		Short_Literal	0x0
022c e210       |    |		Load	0x1,0x10
022d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
022e 00d8       |    |		Load_Top	At_Offset_0
022f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0230 e001       |    |		Load	0x0,0x1
0231 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0232 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0233 02c7       |    |		Declare_Variable	Any
0234 00d8       |    |		Load_Top	At_Offset_0
0235 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0236 00e2       |    |		Load_Encached	Integer_Cache
0237 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0238 00e1       |    |		Load_Encached	Boolean_Cache
0239 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
023a e006       |    |		Load	0x0,0x6
023b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
023c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
023d 029f 0633  |   3|		Declare_Subprogram	INIT_0630,For_Call
023f			BODY_0228:
023f e5ff       |    |		Load	0x2,-0x1
0240 8220       |    |		Call	0x1,0x20
0241 c403       |    |		Store	0x2,0x3
0242 e403       |    |		Load	0x2,0x3
0243 8222       | "  |		Call	0x1,0x22
0244 a404       |    |		Store_Unchecked	0x2,0x4
0245 00db       |    |		Load_Top	At_Offset_3
0246 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0247 6801       |h   |		Jump_Zero	0x249
0248 8407       |    |		Call	0x2,0x7
0249 e402       |    |		Load	0x2,0x2
024a 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
024b			TRAP_0228:
024b 0007       |    |		Action	Break_Optional
024c e402       |    |		Load	0x2,0x2
024d 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
024e 0000 0000  |    |		.XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0266       | f  |		.CONST	0x0266								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 4800       |H   |		Short_Literal	0x0
0254 a5fc       |    |		Store_Unchecked	0x2,-0x4
0255 00cf       |    |		Action	Mark_Auxiliary
0256 00db       |    |		Load_Top	At_Offset_3
0257 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0258 4801       |H   |		Short_Literal	0x1
0259 0263       | c  |		Execute	Discrete,Above_Bound
025a 700a       |p   |		Jump_Nonzero	0x265
025b e5fd       |    |		Load	0x2,-0x3
025c e5fe       |    |		Load	0x2,-0x2
025d 00da       |    |		Load_Top	At_Offset_2
025e e5ff       |    |		Load	0x2,-0x1
025f 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0260 01d5       |    |		Execute	Vector,Field_Reference
0261 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0262 8224       | $  |		Call	0x1,0x24
0263 00c8       |    |		Action	Pop_Auxiliary_Range
0264 3ff6       |?   |		Loop_Increasing	0x25b
0265 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0266			TRAP_0250:
0266 0007       |    |		Action	Break_Optional
0267 6004       |`   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0000813b}
0268 a5fc       |    |		Store_Unchecked	0x2,-0x4
0269 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
026a 0000 0000  |    |		.XXX[0x2]
026c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000813b}
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0278       | x  |		.CONST	0x0278								; Address of begin
0271 0299       |    |		.CONST	0x0299								; Address of exception handler
0272 0002       |    |		.CONST	0x0002								; Number of locals
0273			INIT_0270:
0273 e001       |    |		Load	0x0,0x1
0274 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0275 02c7       |    |		Declare_Variable	Any
0276 00d8       |    |		Load_Top	At_Offset_0
0277 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0278			BODY_0270:
0278 4800       |H   |		Short_Literal	0x0
0279 a5fb       |    |		Store_Unchecked	0x2,-0x5
027a e5fe       |    |		Load	0x2,-0x2
027b 7001       |p   |		Jump_Nonzero	0x27d
027c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
027d 00cf       |    |		Action	Mark_Auxiliary
027e e5ff       |    |		Load	0x2,-0x1
027f 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0280 4801       |H   |		Short_Literal	0x1
0281 0263       | c  |		Execute	Discrete,Above_Bound
0282 7015       |p   |		Jump_Nonzero	0x298
0283 00d8       |    |		Load_Top	At_Offset_0
0284 e5ff       |    |		Load	0x2,-0x1
0285 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0286 01d5       |    |		Execute	Vector,Field_Reference
0287 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0288 c402       |    |		Store	0x2,0x2
0289 00d8       |    |		Load_Top	At_Offset_0
028a e5ff       |    |		Load	0x2,-0x1
028b 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
028c 01d5       |    |		Execute	Vector,Field_Reference
028d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
028e e402       |    |		Load	0x2,0x2
028f 821d       |    |		Call	0x1,0x1d
0290 027d       | }  |		Execute	Discrete,Greater
0291 6804       |h   |		Jump_Zero	0x296
0292 e5fc       |    |		Load	0x2,-0x4
0293 e5fd       |    |		Load	0x2,-0x3
0294 e402       |    |		Load	0x2,0x2
0295 8225       | %  |		Call	0x1,0x25
0296 00c8       |    |		Action	Pop_Auxiliary_Range
0297 3feb       |?   |		Loop_Increasing	0x283
0298 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0299			TRAP_0270:
0299 0007       |    |		Action	Break_Optional
029a 67d1       |g   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0000813b}
029b a5fb       |    |		Store_Unchecked	0x2,-0x5
029c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ad       |    |		.CONST	0x02ad								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0003       |    |		.CONST	0x0003								; Number of locals
02a3			INIT_02a0:
02a3 00db       |    |		Load_Top	At_Offset_3
02a4 4801       |H   |		Short_Literal	0x1
02a5 e5ff       |    |		Load	0x2,-0x1
02a6 e003       |    |		Load	0x0,0x3
02a7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02a8 e003       |    |		Load	0x0,0x3
02a9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02aa 00db       |    |		Load_Top	At_Offset_3
02ab e003       |    |		Load	0x0,0x3
02ac 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02ad			BODY_02a0:
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae 01dd       |    |		Execute	Vector,First
02af 00da       |    |		Load_Top	At_Offset_2
02b0 01db       |    |		Execute	Vector,Length
02b1 0273       | s  |		Execute	Discrete,Plus
02b2 0a01       |    |		Execute_Immediate	Plus,0x1
02b3 00d8       |    |		Load_Top	At_Offset_0
02b4 00e2       |    |		Load_Encached	Integer_Cache
02b5 0260       | `  |		Execute	Discrete,In_Type
02b6 7001       |p   |		Jump_Nonzero	0x2b8
02b7 0801       |    |		Execute_Immediate	Raise,0x1
02b8 00d9       |    |		Load_Top	At_Offset_1
02b9 01dc       |    |		Execute	Vector,Last
02ba 00da       |    |		Load_Top	At_Offset_2
02bb 01cf       |    |		Execute	Vector,Slice_Read
02bc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02bd 0000 0000  |    |		.XXX[0x3]
02bf 0000       |    |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c8       |    |		.CONST	0x02c8								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0003       |    |		.CONST	0x0003								; Number of locals
02c3			INIT_02c0:
02c3 e001       |    |		Load	0x0,0x1
02c4 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
02c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c6 e001       |    |		Load	0x0,0x1
02c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c8			BODY_02c0:
02c8 e001       |    |		Load	0x0,0x1
02c9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ca e001       |    |		Load	0x0,0x1
02cb 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
02cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02cd 600e       |`   |		Indirect_Literal	Discrete,0x2dc,{0x00000000, 0x00004000}
02ce e004       |    |		Load	0x0,0x4
02cf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d0 4800       |H   |		Short_Literal	0x0
02d1 e5ff       |    |		Load	0x2,-0x1
02d2 e001       |    |		Load	0x0,0x1
02d3 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
02d4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02d5 e001       |    |		Load	0x0,0x1
02d6 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
02d7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
02d8 005b       | [  |		Store_Top	Discrete,At_Offset_3
02d9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02da 00d9       |    |		Load_Top	At_Offset_1
02db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02ee       |    |		.CONST	0x02ee								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0005       |    |		.CONST	0x0005								; Number of locals
02e3			INIT_02e0:
02e3 e001       |    |		Load	0x0,0x1
02e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02e5 02c7       |    |		Declare_Variable	Any
02e6 00d8       |    |		Load_Top	At_Offset_0
02e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02e8 e006       |    |		Load	0x0,0x6
02e9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ea 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02eb 00e1       |    |		Load_Encached	Boolean_Cache
02ec 029f 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Call
02ee			BODY_02e0:
02ee e5ff       |    |		Load	0x2,-0x1
02ef e001       |    |		Load	0x0,0x1
02f0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02f1 012f       | /  |		Execute	Any,Equal
02f2 6801       |h   |		Jump_Zero	0x2f4
02f3 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02f4 e5fd       |    |		Load	0x2,-0x3
02f5 e003       |    |		Load	0x0,0x3
02f6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02f7 e009       |    |		Load	0x0,0x9
02f8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02f9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
02fa 6801       |h   |		Jump_Zero	0x2fc
02fb 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02fc 8405       |    |		Call	0x2,0x5
02fd e006       |    |		Load	0x0,0x6
02fe 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ff e5fc       |    |		Load	0x2,-0x4
0300 e5fe       |    |		Load	0x2,-0x2
0301 e003       |    |		Load	0x0,0x3
0302 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0303 0092 081d  |    |		Action	Push_String_Extended,0x81d					; ".units"
0305 01cc       |    |		Execute	Vector,Catenate
0306 e008       |    |		Load	0x0,0x8
0307 1883       |    |		Execute	Package,Field_Execute,Field_Number 0x83
0308 005b       | [  |		Store_Top	Discrete,At_Offset_3
0309 e006       |    |		Load	0x0,0x6
030a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030b e5fc       |    |		Load	0x2,-0x4
030c e5fe       |    |		Load	0x2,-0x2
030d e003       |    |		Load	0x0,0x3
030e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
030f 0092 081d  |    |		Action	Push_String_Extended,0x81d					; ".units"
0311 01cc       |    |		Execute	Vector,Catenate
0312 e008       |    |		Load	0x0,0x8
0313 1884       |    |		Execute	Package,Field_Execute,Field_Number 0x84
0314 005b       | [  |		Store_Top	Discrete,At_Offset_3
0315 00da       |    |		Load_Top	At_Offset_2
0316 6803       |h   |		Jump_Zero	0x31a
0317 e006       |    |		Load	0x0,0x6
0318 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0319 0257       | W  |		Execute	Discrete,Raise
031a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
031b 0000 0000  |    |		.BLANK	0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0328       | (  |		.CONST	0x0328								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0003       |    |		.CONST	0x0003								; Number of locals
0323			INIT_0320:
0323 e001       |    |		Load	0x0,0x1
0324 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0325 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0326 e001       |    |		Load	0x0,0x1
0327 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0328			BODY_0320:
0328 e001       |    |		Load	0x0,0x1
0329 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
032a e001       |    |		Load	0x0,0x1
032b 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
032c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
032d 6012       |`   |		Indirect_Literal	Discrete,0x340,{0x00000000, 0x00004000}
032e e004       |    |		Load	0x0,0x4
032f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0330 4800       |H   |		Short_Literal	0x0
0331 e5ff       |    |		Load	0x2,-0x1
0332 e001       |    |		Load	0x0,0x1
0333 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0334 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0335 e001       |    |		Load	0x0,0x1
0336 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0337 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0338 005b       | [  |		Store_Top	Discrete,At_Offset_3
0339 0059       | Y  |		Store_Top	Discrete,At_Offset_1
033a 00d9       |    |		Load_Top	At_Offset_1
033b 0f04       |    |		Execute_Immediate	Equal,0x4
033c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
033d 0000 0000  |    |		.XXX[0x3]
033f 0000       |    |
0340 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0344 0000 0000  |    |		.BLANK	0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0354       | T  |		.CONST	0x0354								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0003       |    |		.CONST	0x0003								; Number of locals
034b			INIT_0348:
034b e001       |    |		Load	0x0,0x1
034c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
034d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
034e 02c7       |    |		Declare_Variable	Any
034f 00d8       |    |		Load_Top	At_Offset_0
0350 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0351 e001       |    |		Load	0x0,0x1
0352 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0353 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0354			BODY_0348:
0354 e001       |    |		Load	0x0,0x1
0355 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0356 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0357 00da       |    |		Load_Top	At_Offset_2
0358 67e7       |g   |		Indirect_Literal	Discrete,0x340,{0x00000000, 0x00004000}
0359 e004       |    |		Load	0x0,0x4
035a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
035b e00a       |    |		Load	0x0,0xa
035c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
035d e00b       |    |		Load	0x0,0xb
035e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
035f 4801       |H   |		Short_Literal	0x1
0360 4800       |H   |		Short_Literal	0x0
0361 e00a       |    |		Load	0x0,0xa
0362 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0363 e001       |    |		Load	0x0,0x1
0364 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0365 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0366 e5ff       |    |		Load	0x2,-0x1
0367 e001       |    |		Load	0x0,0x1
0368 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0369 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
036a c402       |    |		Store	0x2,0x2
036b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
036c 00d8       |    |		Load_Top	At_Offset_0
036d 0e00       |    |		Execute_Immediate	Not_Equal,0x0
036e 00d9       |    |		Load_Top	At_Offset_1
036f 0e03       |    |		Execute_Immediate	Not_Equal,0x3
0370 0279       | y  |		Execute	Discrete,And
0371 6804       |h   |		Jump_Zero	0x376
0372 e001       |    |		Load	0x0,0x1
0373 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0374 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0375 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0376 00d9       |    |		Load_Top	At_Offset_1
0377 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0381       |    |		.CONST	0x0381								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0004       |    |		.CONST	0x0004								; Number of locals
037b			INIT_0378:
037b 00e2       |    |		Load_Encached	Integer_Cache
037c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
037d 03e9       |    |		Declare_Variable	Discrete,Duplicate
037e e006       |    |		Load	0x0,0x6
037f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0380 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0381			BODY_0378:
0381 e006       |    |		Load	0x0,0x6
0382 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0383 00e3       |    |		Load_Encached	Natural_Cache
0384 00e3       |    |		Load_Encached	Natural_Cache
0385 e5fe       |    |		Load	0x2,-0x2
0386 e5ff       |    |		Load	0x2,-0x1
0387 8216       |    |		Call	0x1,0x16
0388 c402       |    |		Store	0x2,0x2
0389 005b       | [  |		Store_Top	Discrete,At_Offset_3
038a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
038b 00d8       |    |		Load_Top	At_Offset_0
038c 6802       |h   |		Jump_Zero	0x38f
038d 4800       |H   |		Short_Literal	0x0
038e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
038f 00da       |    |		Load_Top	At_Offset_2
0390 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0391 0000 0000  |    |		.BLANK	0000[0x7]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a3       |    |		.CONST	0x03a3								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0003       |    |		.CONST	0x0003								; Number of locals
039b			INIT_0398:
039b 00e2       |    |		Load_Encached	Integer_Cache
039c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
039d e001       |    |		Load	0x0,0x1
039e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
039f 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
03a0 02c7       |    |		Declare_Variable	Any
03a1 e5ff       |    |		Load	0x2,-0x1
03a2 a403       |    |		Store_Unchecked	0x2,0x3
03a3			BODY_0398:
03a3 00d8       |    |		Load_Top	At_Offset_0
03a4 e001       |    |		Load	0x0,0x1
03a5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03a6 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
03a7 6802       |h   |		Jump_Zero	0x3aa
03a8 4800       |H   |		Short_Literal	0x0
03a9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03aa 00d8       |    |		Load_Top	At_Offset_0
03ab e001       |    |		Load	0x0,0x1
03ac 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03ad 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03ae c403       |    |		Store	0x2,0x3
03af 00cf       |    |		Action	Mark_Auxiliary
03b0 7809       |x   |		Jump	0x3ba
03b1 00da       |    |		Load_Top	At_Offset_2
03b2 0a01       |    |		Execute_Immediate	Plus,0x1
03b3 005b       | [  |		Store_Top	Discrete,At_Offset_3
03b4 00d9       |    |		Load_Top	At_Offset_1
03b5 e001       |    |		Load	0x0,0x1
03b6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03b7 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
03b8 c403       |    |		Store	0x2,0x3
03b9 00c9       |    |		Action	Pop_Auxiliary_Loop
03ba 00d9       |    |		Load_Top	At_Offset_1
03bb e001       |    |		Load	0x0,0x1
03bc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03bd 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
03be 6ff2       |o   |		Jump_Zero	0x3b1
03bf 00ce       |    |		Action	Pop_Auxiliary
03c0 00d8       |    |		Load_Top	At_Offset_0
03c1 e001       |    |		Load	0x0,0x1
03c2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03c3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03c4 c403       |    |		Store	0x2,0x3
03c5 00d9       |    |		Load_Top	At_Offset_1
03c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03c7 0000       |    |		.XXX[0x1]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb       |    |		.CONST	0x03cb								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0001       |    |		.CONST	0x0001								; Number of locals
03cb			BODY_03c8:
03cb			INIT_03c8:
03cb e004       |    |		Load	0x0,0x4
03cc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03cd 00db       |    |		Load_Top	At_Offset_3
03ce e00c       |    |		Load	0x0,0xc
03cf 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
03d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03d1 0000 0000  |    |		.BLANK	0000[0x7]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db       |    |		.CONST	0x03db								; Address of begin
03d9 0004       |    |		.CONST	0x0004								; Address of exception handler
03da 0001       |    |		.CONST	0x0001								; Number of locals
03db			BODY_03d8:
03db			INIT_03d8:
03db 00da       |    |		Load_Top	At_Offset_2
03dc 821f       |    |		Call	0x1,0x1f
03dd 6829       |h)  |		Jump_Zero	0x407
03de 00db       |    |		Load_Top	At_Offset_3
03df 7015       |p   |		Jump_Nonzero	0x3f5
03e0 e5fd       |    |		Load	0x2,-0x3
03e1 4801       |H   |		Short_Literal	0x1
03e2 4801       |H   |		Short_Literal	0x1
03e3 e005       |    |		Load	0x0,0x5
03e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03e5 0334       | 4  |		Declare_Variable	Array,With_Constraint
03e6 e5ff       |    |		Load	0x2,-0x1
03e7 e003       |    |		Load	0x0,0x3
03e8 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
03e9 e005       |    |		Load	0x0,0x5
03ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03eb 0119       |    |		Execute	Any,Check_In_Formal_Type
03ec 4801       |H   |		Short_Literal	0x1
03ed 00da       |    |		Load_Top	At_Offset_2
03ee 01d6       |    |		Execute	Vector,Field_Write
03ef 6018       |`   |		Indirect_Literal	Discrete,0x408,{0x00000000, 0x000081ca}
03f0 e006       |    |		Load	0x0,0x6
03f1 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03f2 e006       |    |		Load	0x0,0x6
03f3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03f4 0257       | W  |		Execute	Discrete,Raise
03f5 4801       |H   |		Short_Literal	0x1
03f6 4801       |H   |		Short_Literal	0x1
03f7 4800       |H   |		Short_Literal	0x0
03f8 4801       |H   |		Short_Literal	0x1
03f9 e5fd       |    |		Load	0x2,-0x3
03fa e003       |    |		Load	0x0,0x3
03fb 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
03fc e00d       |    |		Load	0x0,0xd
03fd 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
03fe 4800       |H   |		Short_Literal	0x0
03ff 0092 081e  |    |		Action	Push_String_Extended,0x81e					; "<ALL_WORLDS>"
0401 4802       |H   |		Short_Literal	0x2
0402 e5ff       |    |		Load	0x2,-0x1
0403 e003       |    |		Load	0x0,0x3
0404 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0405 e00e       |    |		Load	0x0,0xe
0406 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0407 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0408 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081ca}
040c 0000 0000  |    |		.BLANK	0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 4800       |H   |		Short_Literal	0x0
0414 4801       |H   |		Short_Literal	0x1
0415 4800       |H   |		Short_Literal	0x0
0416 4801       |H   |		Short_Literal	0x1
0417 e5fd       |    |		Load	0x2,-0x3
0418 e003       |    |		Load	0x0,0x3
0419 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
041a e00d       |    |		Load	0x0,0xd
041b 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
041c 4800       |H   |		Short_Literal	0x0
041d 0092 081f  |    |		Action	Push_String_Extended,0x81f					; "<WORLDS>"
041f e5fe       |    |		Load	0x2,-0x2
0420 4803       |H   |		Short_Literal	0x3
0421 e5ff       |    |		Load	0x2,-0x1
0422 e003       |    |		Load	0x0,0x3
0423 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0424 e00e       |    |		Load	0x0,0xe
0425 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0426 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0427 0000       |    |		.XXX[0x1]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0436       | 6  |		.CONST	0x0436								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0004       |    |		.CONST	0x0004								; Number of locals
042b			INIT_0428:
042b e001       |    |		Load	0x0,0x1
042c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
042d 02c7       |    |		Declare_Variable	Any
042e 00d8       |    |		Load_Top	At_Offset_0
042f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0430 e001       |    |		Load	0x0,0x1
0431 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0432 02c7       |    |		Declare_Variable	Any
0433 00d8       |    |		Load_Top	At_Offset_0
0434 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0435 00e1       |    |		Load_Encached	Boolean_Cache
0436			BODY_0428:
0436 00cf       |    |		Action	Mark_Auxiliary
0437 e5ff       |    |		Load	0x2,-0x1
0438 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0439 4801       |H   |		Short_Literal	0x1
043a 0263       | c  |		Execute	Discrete,Above_Bound
043b 702a       |p*  |		Jump_Nonzero	0x466
043c 00d8       |    |		Load_Top	At_Offset_0
043d e5ff       |    |		Load	0x2,-0x1
043e 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
043f 01d5       |    |		Execute	Vector,Field_Reference
0440 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0441 c402       |    |		Store	0x2,0x2
0442 00d8       |    |		Load_Top	At_Offset_0
0443 e5ff       |    |		Load	0x2,-0x1
0444 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0445 01d5       |    |		Execute	Vector,Field_Reference
0446 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0447 e5fd       |    |		Load	0x2,-0x3
0448 e402       |    |		Load	0x2,0x2
0449 8221       | !  |		Call	0x1,0x21
044a 027c       | |  |		Execute	Discrete,Less
044b 6818       |h   |		Jump_Zero	0x464
044c e402       |    |		Load	0x2,0x2
044d e003       |    |		Load	0x0,0x3
044e 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
044f 7014       |p   |		Jump_Nonzero	0x464
0450 00e1       |    |		Load_Encached	Boolean_Cache
0451 e403       |    |		Load	0x2,0x3
0452 0120       |    |		Execute	Any,Is_Value
0453 6803       |h   |		Jump_Zero	0x457
0454 e001       |    |		Load	0x0,0x1
0455 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0456 7801       |x   |		Jump	0x458
0457 e403       |    |		Load	0x2,0x3
0458 e5fd       |    |		Load	0x2,-0x3
0459 e402       |    |		Load	0x2,0x2
045a e008       |    |		Load	0x0,0x8
045b 1887       |    |		Execute	Package,Field_Execute,Field_Number 0x87
045c c403       |    |		Store	0x2,0x3
045d c404       |    |		Store	0x2,0x4
045e 00db       |    |		Load_Top	At_Offset_3
045f 6804       |h   |		Jump_Zero	0x464
0460 e5fd       |    |		Load	0x2,-0x3
0461 e5fe       |    |		Load	0x2,-0x2
0462 e403       |    |		Load	0x2,0x3
0463 8224       | $  |		Call	0x1,0x24
0464 00c8       |    |		Action	Pop_Auxiliary_Range
0465 3fd6       |?   |		Loop_Increasing	0x43c
0466 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0467 0000       |    |		.XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b 00cf       |    |		Action	Mark_Auxiliary
046c e5fe       |    |		Load	0x2,-0x2
046d 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
046e 4801       |H   |		Short_Literal	0x1
046f 0263       | c  |		Execute	Discrete,Above_Bound
0470 700c       |p   |		Jump_Nonzero	0x47d
0471 e5ff       |    |		Load	0x2,-0x1
0472 00d9       |    |		Load_Top	At_Offset_1
0473 e5fe       |    |		Load	0x2,-0x2
0474 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0475 01d5       |    |		Execute	Vector,Field_Reference
0476 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0477 012f       | /  |		Execute	Any,Equal
0478 6802       |h   |		Jump_Zero	0x47b
0479 4801       |H   |		Short_Literal	0x1
047a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
047b 00c8       |    |		Action	Pop_Auxiliary_Range
047c 3ff4       |?   |		Loop_Increasing	0x471
047d 00ce       |    |		Action	Pop_Auxiliary
047e 4800       |H   |		Short_Literal	0x0
047f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 048e       |    |		.CONST	0x048e								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0003       |    |		.CONST	0x0003								; Number of locals
0483			INIT_0480:
0483 e001       |    |		Load	0x0,0x1
0484 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0485 02c7       |    |		Declare_Variable	Any
0486 00d8       |    |		Load_Top	At_Offset_0
0487 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0488 e001       |    |		Load	0x0,0x1
0489 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
048a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
048b 02c7       |    |		Declare_Variable	Any
048c 00d8       |    |		Load_Top	At_Offset_0
048d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
048e			BODY_0480:
048e e5fe       |    |		Load	0x2,-0x2
048f e003       |    |		Load	0x0,0x3
0490 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0491 0092 0820  |    |		Action	Push_String_Extended,0x820					; ".units.??'c(ada)'if(controlled)"
0493 01cc       |    |		Execute	Vector,Catenate
0494 8220       |    |		Call	0x1,0x20
0495 c403       |    |		Store	0x2,0x3
0496 00cf       |    |		Action	Mark_Auxiliary
0497 781b       |x   |		Jump	0x4b3
0498 e5fa       |    |		Load	0x2,-0x6
0499 4801       |H   |		Short_Literal	0x1
049a 00db       |    |		Load_Top	At_Offset_3
049b e003       |    |		Load	0x0,0x3
049c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
049d c402       |    |		Store	0x2,0x2
049e e5fd       |    |		Load	0x2,-0x3
049f 00db       |    |		Load_Top	At_Offset_3
04a0 8227       | '  |		Call	0x1,0x27
04a1 700b       |p   |		Jump_Nonzero	0x4ad
04a2 e5fa       |    |		Load	0x2,-0x6
04a3 00db       |    |		Load_Top	At_Offset_3
04a4 e5fe       |    |		Load	0x2,-0x2
04a5 e5ff       |    |		Load	0x2,-0x1
04a6 821e       |    |		Call	0x1,0x1e
04a7 e5fb       |    |		Load	0x2,-0x5
04a8 6804       |h   |		Jump_Zero	0x4ad
04a9 e5fa       |    |		Load	0x2,-0x6
04aa e5fc       |    |		Load	0x2,-0x4
04ab e402       |    |		Load	0x2,0x2
04ac 8225       | %  |		Call	0x1,0x25
04ad 00d9       |    |		Load_Top	At_Offset_1
04ae e001       |    |		Load	0x0,0x1
04af 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04b0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04b1 c403       |    |		Store	0x2,0x3
04b2 00c9       |    |		Action	Pop_Auxiliary_Loop
04b3 00d9       |    |		Load_Top	At_Offset_1
04b4 e001       |    |		Load	0x0,0x1
04b5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04b6 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
04b7 6fe0       |o   |		Jump_Zero	0x498
04b8 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
04b9 0000 0000  |    |		.BLANK	0000[0x7]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c8       |    |		.CONST	0x04c8								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0002       |    |		.CONST	0x0002								; Number of locals
04c3			INIT_04c0:
04c3 e001       |    |		Load	0x0,0x1
04c4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04c5 02c7       |    |		Declare_Variable	Any
04c6 00d8       |    |		Load_Top	At_Offset_0
04c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04c8			BODY_04c0:
04c8 00cf       |    |		Action	Mark_Auxiliary
04c9 e5fd       |    |		Load	0x2,-0x3
04ca 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04cb 4801       |H   |		Short_Literal	0x1
04cc 0263       | c  |		Execute	Discrete,Above_Bound
04cd 7031       |p1  |		Jump_Nonzero	0x4ff
04ce 00d8       |    |		Load_Top	At_Offset_0
04cf e5fd       |    |		Load	0x2,-0x3
04d0 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04d1 01d5       |    |		Execute	Vector,Field_Reference
04d2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04d3 c402       |    |		Store	0x2,0x2
04d4 00db       |    |		Load_Top	At_Offset_3
04d5 e003       |    |		Load	0x0,0x3
04d6 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
04d7 6825       |h%  |		Jump_Zero	0x4fd
04d8 00d8       |    |		Load_Top	At_Offset_0
04d9 e5fd       |    |		Load	0x2,-0x3
04da 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04db 01d5       |    |		Execute	Vector,Field_Reference
04dc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04dd e5fa       |    |		Load	0x2,-0x6
04de e402       |    |		Load	0x2,0x2
04df 8221       | !  |		Call	0x1,0x21
04e0 027c       | |  |		Execute	Discrete,Less
04e1 680c       |h   |		Jump_Zero	0x4ee
04e2 e5fa       |    |		Load	0x2,-0x6
04e3 e402       |    |		Load	0x2,0x2
04e4 e5fe       |    |		Load	0x2,-0x2
04e5 e5ff       |    |		Load	0x2,-0x1
04e6 821e       |    |		Call	0x1,0x1e
04e7 e5fb       |    |		Load	0x2,-0x5
04e8 6814       |h   |		Jump_Zero	0x4fd
04e9 e5fa       |    |		Load	0x2,-0x6
04ea e5fc       |    |		Load	0x2,-0x4
04eb e402       |    |		Load	0x2,0x2
04ec 8225       | %  |		Call	0x1,0x25
04ed 780f       |x   |		Jump	0x4fd
04ee 00d8       |    |		Load_Top	At_Offset_0
04ef e5fd       |    |		Load	0x2,-0x3
04f0 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
04f1 01d5       |    |		Execute	Vector,Field_Reference
04f2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04f3 e402       |    |		Load	0x2,0x2
04f4 821d       |    |		Call	0x1,0x1d
04f5 027d       | }  |		Execute	Discrete,Greater
04f6 6806       |h   |		Jump_Zero	0x4fd
04f7 e5fb       |    |		Load	0x2,-0x5
04f8 6804       |h   |		Jump_Zero	0x4fd
04f9 e5fa       |    |		Load	0x2,-0x6
04fa e5fc       |    |		Load	0x2,-0x4
04fb e402       |    |		Load	0x2,0x2
04fc 8225       | %  |		Call	0x1,0x25
04fd 00c8       |    |		Action	Pop_Auxiliary_Range
04fe 3fcf       |?   |		Loop_Increasing	0x4ce
04ff 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0515       |    |		.CONST	0x0515								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0007       |    |		.CONST	0x0007								; Number of locals
0503			INIT_0500:
0503 e001       |    |		Load	0x0,0x1
0504 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0505 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0506 02c7       |    |		Declare_Variable	Any
0507 00d8       |    |		Load_Top	At_Offset_0
0508 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0509 e001       |    |		Load	0x0,0x1
050a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
050b 02c7       |    |		Declare_Variable	Any
050c 00d8       |    |		Load_Top	At_Offset_0
050d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
050e e006       |    |		Load	0x0,0x6
050f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0510 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0511 00e2       |    |		Load_Encached	Integer_Cache
0512 00e1       |    |		Load_Encached	Boolean_Cache
0513 029f 0753  |   S|		Declare_Subprogram	INIT_0750,For_Call
0515			BODY_0500:
0515 e5ff       |    |		Load	0x2,-0x1
0516 e003       |    |		Load	0x0,0x3
0517 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0518 7001       |p   |		Jump_Nonzero	0x51a
0519 8407       |    |		Call	0x2,0x7
051a 4800       |H   |		Short_Literal	0x0
051b a5fc       |    |		Store_Unchecked	0x2,-0x4
051c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
051d 0000 0000  |    |		.XXX[0x3]
051f 0000       |    |
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0529       | )  |		.CONST	0x0529								; Address of begin
0521 0004       |    |		.CONST	0x0004								; Address of exception handler
0522 0004       |    |		.CONST	0x0004								; Number of locals
0523			INIT_0520:
0523 e006       |    |		Load	0x0,0x6
0524 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0525 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0526 00e2       |    |		Load_Encached	Integer_Cache
0527 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0528 03e9       |    |		Declare_Variable	Discrete,Duplicate
0529			BODY_0520:
0529 e006       |    |		Load	0x0,0x6
052a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
052b 00e3       |    |		Load_Encached	Natural_Cache
052c 00e3       |    |		Load_Encached	Natural_Cache
052d e5fc       |    |		Load	0x2,-0x4
052e e5ff       |    |		Load	0x2,-0x1
052f 8216       |    |		Call	0x1,0x16
0530 c403       |    |		Store	0x2,0x3
0531 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0532 005b       | [  |		Store_Top	Discrete,At_Offset_3
0533 00da       |    |		Load_Top	At_Offset_2
0534 6802       |h   |		Jump_Zero	0x537
0535 4800       |H   |		Short_Literal	0x0
0536 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0537 e5fe       |    |		Load	0x2,-0x2
0538 4fff       |O   |		Short_Literal	-0x1
0539 027f       |    |		Execute	Discrete,Equal
053a 6805       |h   |		Jump_Zero	0x540
053b 00d9       |    |		Load_Top	At_Offset_1
053c 0f01       |    |		Execute_Immediate	Equal,0x1
053d 6802       |h   |		Jump_Zero	0x540
053e 4800       |H   |		Short_Literal	0x0
053f 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0540 00d9       |    |		Load_Top	At_Offset_1
0541 e5fe       |    |		Load	0x2,-0x2
0542 027f       |    |		Execute	Discrete,Equal
0543 6802       |h   |		Jump_Zero	0x546
0544 4800       |H   |		Short_Literal	0x0
0545 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0546 4801       |H   |		Short_Literal	0x1
0547 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054e       | N  |		.CONST	0x054e								; Address of begin
0549 0004       |    |		.CONST	0x0004								; Address of exception handler
054a 0002       |    |		.CONST	0x0002								; Number of locals
054b			INIT_0548:
054b e5fe       |    |		Load	0x2,-0x2
054c e5ff       |    |		Load	0x2,-0x1
054d 821c       |    |		Call	0x1,0x1c
054e			BODY_0548:
054e e002       |    |		Load	0x0,0x2
054f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0550 e406       |    |		Load	0x2,0x6
0551 0120       |    |		Execute	Any,Is_Value
0552 6803       |h   |		Jump_Zero	0x556
0553 e002       |    |		Load	0x0,0x2
0554 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0555 7801       |x   |		Jump	0x557
0556 e406       |    |		Load	0x2,0x6
0557 e405       |    |		Load	0x2,0x5
0558 00db       |    |		Load_Top	At_Offset_3
0559 e002       |    |		Load	0x0,0x2
055a 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
055b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
055c c406       |    |		Store	0x2,0x6
055d c404       |    |		Store	0x2,0x4
055e e404       |    |		Load	0x2,0x4
055f e002       |    |		Load	0x0,0x2
0560 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0561 6816       |h   |		Jump_Zero	0x578
0562 e5fe       |    |		Load	0x2,-0x2
0563 4801       |H   |		Short_Literal	0x1
0564 4801       |H   |		Short_Literal	0x1
0565 e005       |    |		Load	0x0,0x5
0566 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0567 0334       | 4  |		Declare_Variable	Array,With_Constraint
0568 e5ff       |    |		Load	0x2,-0x1
0569 e003       |    |		Load	0x0,0x3
056a 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
056b e005       |    |		Load	0x0,0x5
056c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
056d 0119       |    |		Execute	Any,Check_In_Formal_Type
056e 4801       |H   |		Short_Literal	0x1
056f 00da       |    |		Load_Top	At_Offset_2
0570 01d6       |    |		Execute	Vector,Field_Write
0571 600a       |`   |		Indirect_Literal	Discrete,0x57c,{0x00000000, 0x000081c9}
0572 e006       |    |		Load	0x0,0x6
0573 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0574 6007       |`   |		Indirect_Literal	Discrete,0x57c,{0x00000000, 0x000081c9}
0575 a5fb       |    |		Store_Unchecked	0x2,-0x5
0576 e007       |    |		Load	0x0,0x7
0577 0257       | W  |		Execute	Discrete,Raise
0578 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0579 0000 0000  |    |		.XXX[0x3]
057b 0000       |    |
057c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081c9}
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 058f       |    |		.CONST	0x058f								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0004       |    |		.CONST	0x0004								; Number of locals
0583			INIT_0580:
0583 e404       |    |		Load	0x2,0x4
0584 e210       |    |		Load	0x1,0x10
0585 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0586 00d8       |    |		Load_Top	At_Offset_0
0587 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0588 00e2       |    |		Load_Encached	Integer_Cache
0589 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
058a e001       |    |		Load	0x0,0x1
058b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
058c 02c7       |    |		Declare_Variable	Any
058d 00d8       |    |		Load_Top	At_Offset_0
058e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
058f			BODY_0580:
058f 00cf       |    |		Action	Mark_Auxiliary
0590 7824       |x$  |		Jump	0x5b5
0591 00da       |    |		Load_Top	At_Offset_2
0592 0a01       |    |		Execute_Immediate	Plus,0x1
0593 005b       | [  |		Store_Top	Discrete,At_Offset_3
0594 e5fe       |    |		Load	0x2,-0x2
0595 4801       |H   |		Short_Literal	0x1
0596 e402       |    |		Load	0x2,0x2
0597 e003       |    |		Load	0x0,0x3
0598 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0599 c604       |    |		Store	0x3,0x4
059a 00d9       |    |		Load_Top	At_Offset_1
059b 00db       |    |		Load_Top	At_Offset_3
059c e602       |    |		Load	0x3,0x2
059d 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
059e 01d5       |    |		Execute	Vector,Field_Reference
059f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05a0 00d9       |    |		Load_Top	At_Offset_1
05a1 821d       |    |		Call	0x1,0x1d
05a2 00db       |    |		Load_Top	At_Offset_3
05a3 e602       |    |		Load	0x3,0x2
05a4 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05a5 01d5       |    |		Execute	Vector,Field_Reference
05a6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05a7 e5fe       |    |		Load	0x2,-0x2
05a8 00da       |    |		Load_Top	At_Offset_2
05a9 8221       | !  |		Call	0x1,0x21
05aa 00db       |    |		Load_Top	At_Offset_3
05ab e602       |    |		Load	0x3,0x2
05ac 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
05ad 01d5       |    |		Execute	Vector,Field_Reference
05ae 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05af e402       |    |		Load	0x2,0x2
05b0 e001       |    |		Load	0x0,0x1
05b1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05b2 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
05b3 c402       |    |		Store	0x2,0x2
05b4 00c9       |    |		Action	Pop_Auxiliary_Loop
05b5 e402       |    |		Load	0x2,0x2
05b6 e001       |    |		Load	0x0,0x1
05b7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05b8 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
05b9 6fd7       |o   |		Jump_Zero	0x591
05ba 00ce       |    |		Action	Pop_Auxiliary
05bb 00da       |    |		Load_Top	At_Offset_2
05bc 00cb       |    |		Action	Pop_Block_With_Result
05bd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05be 0000 0000  |    |		.XXX[0x2]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05d6       |    |		.CONST	0x05d6								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0006       |    |		.CONST	0x0006								; Number of locals
05c3			INIT_05c0:
05c3 e404       |    |		Load	0x2,0x4
05c4 e210       |    |		Load	0x1,0x10
05c5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
05c6 00d8       |    |		Load_Top	At_Offset_0
05c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05c8 00e2       |    |		Load_Encached	Integer_Cache
05c9 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05ca e001       |    |		Load	0x0,0x1
05cb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05cc 02c7       |    |		Declare_Variable	Any
05cd 00d8       |    |		Load_Top	At_Offset_0
05ce 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05cf e001       |    |		Load	0x0,0x1
05d0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05d1 02c7       |    |		Declare_Variable	Any
05d2 00d8       |    |		Load_Top	At_Offset_0
05d3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
05d4 029f 0793  |    |		Declare_Subprogram	INIT_0790,For_Call
05d6			BODY_05c0:
05d6 00cf       |    |		Action	Mark_Auxiliary
05d7 784b       |xK  |		Jump	0x623
05d8 e5fe       |    |		Load	0x2,-0x2
05d9 4801       |H   |		Short_Literal	0x1
05da e403       |    |		Load	0x2,0x3
05db e003       |    |		Load	0x0,0x3
05dc 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
05dd c604       |    |		Store	0x3,0x4
05de 00db       |    |		Load_Top	At_Offset_3
05df e003       |    |		Load	0x0,0x3
05e0 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
05e1 703b       |p;  |		Jump_Nonzero	0x61d
05e2 e5fe       |    |		Load	0x2,-0x2
05e3 e604       |    |		Load	0x3,0x4
05e4 e003       |    |		Load	0x0,0x3
05e5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05e6 6836       |h6  |		Jump_Zero	0x61d
05e7 e5fe       |    |		Load	0x2,-0x2
05e8 e604       |    |		Load	0x3,0x4
05e9 e003       |    |		Load	0x0,0x3
05ea 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05eb 6831       |h1  |		Jump_Zero	0x61d
05ec 00e1       |    |		Load_Encached	Boolean_Cache
05ed 00db       |    |		Load_Top	At_Offset_3
05ee 0120       |    |		Execute	Any,Is_Value
05ef 6803       |h   |		Jump_Zero	0x5f3
05f0 e001       |    |		Load	0x0,0x1
05f1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05f2 7801       |x   |		Jump	0x5f4
05f3 00db       |    |		Load_Top	At_Offset_3
05f4 e5fe       |    |		Load	0x2,-0x2
05f5 e604       |    |		Load	0x3,0x4
05f6 822a       | *  |		Call	0x1,0x2a
05f7 c605       |    |		Store	0x3,0x5
05f8 c405       |    |		Store	0x2,0x5
05f9 e405       |    |		Load	0x2,0x5
05fa 6822       |h"  |		Jump_Zero	0x61d
05fb e006       |    |		Load	0x0,0x6
05fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05fd e5fe       |    |		Load	0x2,-0x2
05fe e604       |    |		Load	0x3,0x4
05ff e008       |    |		Load	0x0,0x8
0600 1861       | a  |		Execute	Package,Field_Execute,Field_Number 0x61
0601 c406       |    |		Store	0x2,0x6
0602 e406       |    |		Load	0x2,0x6
0603 6803       |h   |		Jump_Zero	0x607
0604 e006       |    |		Load	0x0,0x6
0605 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0606 0257       | W  |		Execute	Discrete,Raise
0607 e603       |    |		Load	0x3,0x3
0608 0a01       |    |		Execute_Immediate	Plus,0x1
0609 c603       |    |		Store	0x3,0x3
060a 00da       |    |		Load_Top	At_Offset_2
060b e603       |    |		Load	0x3,0x3
060c e602       |    |		Load	0x3,0x2
060d 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
060e 01d5       |    |		Execute	Vector,Field_Reference
060f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0610 00da       |    |		Load_Top	At_Offset_2
0611 821d       |    |		Call	0x1,0x1d
0612 e603       |    |		Load	0x3,0x3
0613 e602       |    |		Load	0x3,0x2
0614 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0615 01d5       |    |		Execute	Vector,Field_Reference
0616 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0617 4800       |H   |		Short_Literal	0x0
0618 e603       |    |		Load	0x3,0x3
0619 e602       |    |		Load	0x3,0x2
061a 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
061b 01d5       |    |		Execute	Vector,Field_Reference
061c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
061d e403       |    |		Load	0x2,0x3
061e e001       |    |		Load	0x0,0x1
061f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0620 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0621 c403       |    |		Store	0x2,0x3
0622 00c9       |    |		Action	Pop_Auxiliary_Loop
0623 e403       |    |		Load	0x2,0x3
0624 e001       |    |		Load	0x0,0x1
0625 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0626 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0627 6fb0       |o   |		Jump_Zero	0x5d8
0628 00ce       |    |		Action	Pop_Auxiliary
0629 00db       |    |		Load_Top	At_Offset_3
062a 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
062b 6801       |h   |		Jump_Zero	0x62d
062c 8606       |    |		Call	0x3,0x6
062d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
062e 0000 0000  |    |		.XXX[0x2]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0646       | F  |		.CONST	0x0646								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0006       |    |		.CONST	0x0006								; Number of locals
0633			INIT_0630:
0633 e404       |    |		Load	0x2,0x4
0634 e210       |    |		Load	0x1,0x10
0635 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0636 00d8       |    |		Load_Top	At_Offset_0
0637 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0638 00e2       |    |		Load_Encached	Integer_Cache
0639 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
063a e001       |    |		Load	0x0,0x1
063b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
063c 02c7       |    |		Declare_Variable	Any
063d 00d8       |    |		Load_Top	At_Offset_0
063e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
063f e001       |    |		Load	0x0,0x1
0640 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0641 02c7       |    |		Declare_Variable	Any
0642 00d8       |    |		Load_Top	At_Offset_0
0643 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0644 029f 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Call
0646			BODY_0630:
0646 00cf       |    |		Action	Mark_Auxiliary
0647 7851       |xQ  |		Jump	0x699
0648 e5fc       |    |		Load	0x2,-0x4
0649 4801       |H   |		Short_Literal	0x1
064a e403       |    |		Load	0x2,0x3
064b e003       |    |		Load	0x0,0x3
064c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
064d c604       |    |		Store	0x3,0x4
064e 00db       |    |		Load_Top	At_Offset_3
064f e003       |    |		Load	0x0,0x3
0650 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0651 7041       |pA  |		Jump_Nonzero	0x693
0652 e5fc       |    |		Load	0x2,-0x4
0653 e604       |    |		Load	0x3,0x4
0654 e003       |    |		Load	0x0,0x3
0655 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0656 683c       |h<  |		Jump_Zero	0x693
0657 e5fc       |    |		Load	0x2,-0x4
0658 e604       |    |		Load	0x3,0x4
0659 e003       |    |		Load	0x0,0x3
065a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
065b 7037       |p7  |		Jump_Nonzero	0x693
065c 00e1       |    |		Load_Encached	Boolean_Cache
065d 00db       |    |		Load_Top	At_Offset_3
065e 0120       |    |		Execute	Any,Is_Value
065f 6803       |h   |		Jump_Zero	0x663
0660 e001       |    |		Load	0x0,0x1
0661 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0662 7801       |x   |		Jump	0x664
0663 00db       |    |		Load_Top	At_Offset_3
0664 e5fc       |    |		Load	0x2,-0x4
0665 e604       |    |		Load	0x3,0x4
0666 822a       | *  |		Call	0x1,0x2a
0667 c605       |    |		Store	0x3,0x5
0668 c405       |    |		Store	0x2,0x5
0669 e405       |    |		Load	0x2,0x5
066a 6828       |h(  |		Jump_Zero	0x693
066b e5fc       |    |		Load	0x2,-0x4
066c e5fd       |    |		Load	0x2,-0x3
066d e5fe       |    |		Load	0x2,-0x2
066e e604       |    |		Load	0x3,0x4
066f 822b       | +  |		Call	0x1,0x2b
0670 6822       |h"  |		Jump_Zero	0x693
0671 e006       |    |		Load	0x0,0x6
0672 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0673 e5fc       |    |		Load	0x2,-0x4
0674 e604       |    |		Load	0x3,0x4
0675 e008       |    |		Load	0x0,0x8
0676 1861       | a  |		Execute	Package,Field_Execute,Field_Number 0x61
0677 c406       |    |		Store	0x2,0x6
0678 e406       |    |		Load	0x2,0x6
0679 6803       |h   |		Jump_Zero	0x67d
067a e006       |    |		Load	0x0,0x6
067b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
067c 0257       | W  |		Execute	Discrete,Raise
067d e603       |    |		Load	0x3,0x3
067e 0a01       |    |		Execute_Immediate	Plus,0x1
067f c603       |    |		Store	0x3,0x3
0680 00da       |    |		Load_Top	At_Offset_2
0681 e603       |    |		Load	0x3,0x3
0682 e602       |    |		Load	0x3,0x2
0683 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0684 01d5       |    |		Execute	Vector,Field_Reference
0685 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0686 00da       |    |		Load_Top	At_Offset_2
0687 821d       |    |		Call	0x1,0x1d
0688 e603       |    |		Load	0x3,0x3
0689 e602       |    |		Load	0x3,0x2
068a 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
068b 01d5       |    |		Execute	Vector,Field_Reference
068c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
068d 4800       |H   |		Short_Literal	0x0
068e e603       |    |		Load	0x3,0x3
068f e602       |    |		Load	0x3,0x2
0690 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0691 01d5       |    |		Execute	Vector,Field_Reference
0692 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0693 e403       |    |		Load	0x2,0x3
0694 e001       |    |		Load	0x0,0x1
0695 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0696 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0697 c403       |    |		Store	0x2,0x3
0698 00c9       |    |		Action	Pop_Auxiliary_Loop
0699 e403       |    |		Load	0x2,0x3
069a e001       |    |		Load	0x0,0x1
069b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
069c 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
069d 6faa       |o   |		Jump_Zero	0x648
069e 00ce       |    |		Action	Pop_Auxiliary
069f 00db       |    |		Load_Top	At_Offset_3
06a0 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
06a1 6801       |h   |		Jump_Zero	0x6a3
06a2 8606       |    |		Call	0x3,0x6
06a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06a4 0000 0000  |    |		.BLANK	0000[0x4]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06c1       |    |		.CONST	0x06c1								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0005       |    |		.CONST	0x0005								; Number of locals
06ab			INIT_06a8:
06ab e5fc       |    |		Load	0x2,-0x4
06ac 00d8       |    |		Load_Top	At_Offset_0
06ad 4801       |H   |		Short_Literal	0x1
06ae e5fd       |    |		Load	0x2,-0x3
06af e003       |    |		Load	0x0,0x3
06b0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
06b1 821c       |    |		Call	0x1,0x1c
06b2 00d8       |    |		Load_Top	At_Offset_0
06b3 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
06b5 01cc       |    |		Execute	Vector,Catenate
06b6 e5fd       |    |		Load	0x2,-0x3
06b7 e003       |    |		Load	0x0,0x3
06b8 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
06b9 01cc       |    |		Execute	Vector,Catenate
06ba 0007       |    |		Action	Break_Optional
06bb e5ff       |    |		Load	0x2,-0x1
06bc e003       |    |		Load	0x0,0x3
06bd 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
06be e5fe       |    |		Load	0x2,-0x2
06bf e003       |    |		Load	0x0,0x3
06c0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
06c1			BODY_06a8:
06c1 e5fd       |    |		Load	0x2,-0x3
06c2 e003       |    |		Load	0x0,0x3
06c3 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
06c4 6842       |hB  |		Jump_Zero	0x707
06c5 00ea       |    |		Load_Encached	Null_String_Cache
06c6 4801       |H   |		Short_Literal	0x1
06c7 0092 0822  |   "|		Action	Push_String_Extended,0x822					; "<QUIET>"
06c9 4801       |H   |		Short_Literal	0x1
06ca e604       |    |		Load	0x3,0x4
06cb 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
06cd 01cc       |    |		Execute	Vector,Catenate
06ce e603       |    |		Load	0x3,0x3
06cf 01cc       |    |		Execute	Vector,Catenate
06d0 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "_secondary_@_spec"
06d2 01cc       |    |		Execute	Vector,Catenate
06d3 e604       |    |		Load	0x3,0x4
06d4 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
06d6 01cc       |    |		Execute	Vector,Catenate
06d7 e603       |    |		Load	0x3,0x3
06d8 01cc       |    |		Execute	Vector,Catenate
06d9 0092 0824  |   $|		Action	Push_String_Extended,0x824					; "'spec.<secondary_@>"
06db 01cc       |    |		Execute	Vector,Catenate
06dc e00f       |    |		Load	0x0,0xf
06dd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06de 00ea       |    |		Load_Encached	Null_String_Cache
06df 4801       |H   |		Short_Literal	0x1
06e0 0092 0822  |   "|		Action	Push_String_Extended,0x822					; "<QUIET>"
06e2 4801       |H   |		Short_Literal	0x1
06e3 e605       |    |		Load	0x3,0x5
06e4 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
06e6 01cc       |    |		Execute	Vector,Catenate
06e7 e603       |    |		Load	0x3,0x3
06e8 01cc       |    |		Execute	Vector,Catenate
06e9 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "_secondary_@_spec"
06eb 01cc       |    |		Execute	Vector,Catenate
06ec e604       |    |		Load	0x3,0x4
06ed 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
06ef 01cc       |    |		Execute	Vector,Catenate
06f0 e603       |    |		Load	0x3,0x3
06f1 01cc       |    |		Execute	Vector,Catenate
06f2 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "_secondary_@_spec"
06f4 01cc       |    |		Execute	Vector,Catenate
06f5 e00f       |    |		Load	0x0,0xf
06f6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06f7 0092 0822  |   "|		Action	Push_String_Extended,0x822					; "<QUIET>"
06f9 0092 0825  |   %|		Action	Push_String_Extended,0x825					; "<DIRECTORIES>"
06fb 00db       |    |		Load_Top	At_Offset_3
06fc 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
06fe 01cc       |    |		Execute	Vector,Catenate
06ff e603       |    |		Load	0x3,0x3
0700 01cc       |    |		Execute	Vector,Catenate
0701 0092 0823  |   #|		Action	Push_String_Extended,0x823					; "_secondary_@_spec"
0703 01cc       |    |		Execute	Vector,Catenate
0704 e00f       |    |		Load	0x0,0xf
0705 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0706 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0707 00ea       |    |		Load_Encached	Null_String_Cache
0708 4801       |H   |		Short_Literal	0x1
0709 0092 0822  |   "|		Action	Push_String_Extended,0x822					; "<QUIET>"
070b 4801       |H   |		Short_Literal	0x1
070c e604       |    |		Load	0x3,0x4
070d 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
070f 01cc       |    |		Execute	Vector,Catenate
0710 e603       |    |		Load	0x3,0x3
0711 01cc       |    |		Execute	Vector,Catenate
0712 0092 0826  |   &|		Action	Push_String_Extended,0x826					; "_secondary_@_body"
0714 01cc       |    |		Execute	Vector,Catenate
0715 e604       |    |		Load	0x3,0x4
0716 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
0718 01cc       |    |		Execute	Vector,Catenate
0719 e603       |    |		Load	0x3,0x3
071a 01cc       |    |		Execute	Vector,Catenate
071b 0092 0827  |   '|		Action	Push_String_Extended,0x827					; "'body.<secondary_@>"
071d 01cc       |    |		Execute	Vector,Catenate
071e e00f       |    |		Load	0x0,0xf
071f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0720 00ea       |    |		Load_Encached	Null_String_Cache
0721 4801       |H   |		Short_Literal	0x1
0722 0092 0822  |   "|		Action	Push_String_Extended,0x822					; "<QUIET>"
0724 4801       |H   |		Short_Literal	0x1
0725 e605       |    |		Load	0x3,0x5
0726 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
0728 01cc       |    |		Execute	Vector,Catenate
0729 e603       |    |		Load	0x3,0x3
072a 01cc       |    |		Execute	Vector,Catenate
072b 0092 0826  |   &|		Action	Push_String_Extended,0x826					; "_secondary_@_body"
072d 01cc       |    |		Execute	Vector,Catenate
072e e604       |    |		Load	0x3,0x4
072f 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
0731 01cc       |    |		Execute	Vector,Catenate
0732 e603       |    |		Load	0x3,0x3
0733 01cc       |    |		Execute	Vector,Catenate
0734 0092 0826  |   &|		Action	Push_String_Extended,0x826					; "_secondary_@_body"
0736 01cc       |    |		Execute	Vector,Catenate
0737 e00f       |    |		Load	0x0,0xf
0738 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0739 0092 0822  |   "|		Action	Push_String_Extended,0x822					; "<QUIET>"
073b 0092 0825  |   %|		Action	Push_String_Extended,0x825					; "<DIRECTORIES>"
073d 00db       |    |		Load_Top	At_Offset_3
073e 0092 0821  |   !|		Action	Push_String_Extended,0x821					; "."
0740 01cc       |    |		Execute	Vector,Catenate
0741 e603       |    |		Load	0x3,0x3
0742 01cc       |    |		Execute	Vector,Catenate
0743 0092 0826  |   &|		Action	Push_String_Extended,0x826					; "_secondary_@_body"
0745 01cc       |    |		Execute	Vector,Catenate
0746 e00f       |    |		Load	0x0,0xf
0747 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0748 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0749 0000 0000  |    |		.BLANK	0000[0x7]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0765       | e  |		.CONST	0x0765								; Address of begin
0751 0004       |    |		.CONST	0x0004								; Address of exception handler
0752 0002       |    |		.CONST	0x0002								; Number of locals
0753			INIT_0750:
0753 e5fe       |    |		Load	0x2,-0x2
0754 4801       |H   |		Short_Literal	0x1
0755 e5ff       |    |		Load	0x2,-0x1
0756 e003       |    |		Load	0x0,0x3
0757 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0758 e003       |    |		Load	0x0,0x3
0759 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
075a 0092 0828  |   (|		Action	Push_String_Extended,0x828					; ".@'c(ada).<secondary_"
075c 01cc       |    |		Execute	Vector,Catenate
075d e5ff       |    |		Load	0x2,-0x1
075e e003       |    |		Load	0x0,0x3
075f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0760 01cc       |    |		Execute	Vector,Catenate
0761 0092 0829  |   )|		Action	Push_String_Extended,0x829					; ">"
0763 01cc       |    |		Execute	Vector,Catenate
0764 0007       |    |		Action	Break_Optional
0765			BODY_0750:
0765 00d8       |    |		Load_Top	At_Offset_0
0766 8220       |    |		Call	0x1,0x20
0767 c402       |    |		Store	0x2,0x2
0768 e402       |    |		Load	0x2,0x2
0769 e001       |    |		Load	0x0,0x1
076a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
076b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
076c 7022       |p"  |		Jump_Nonzero	0x78f
076d e402       |    |		Load	0x2,0x2
076e e001       |    |		Load	0x0,0x1
076f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0770 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0771 701d       |p   |		Jump_Nonzero	0x78f
0772 e5fe       |    |		Load	0x2,-0x2
0773 4801       |H   |		Short_Literal	0x1
0774 e402       |    |		Load	0x2,0x2
0775 e003       |    |		Load	0x0,0x3
0776 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0777 c403       |    |		Store	0x2,0x3
0778 e006       |    |		Load	0x0,0x6
0779 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
077a 00e2       |    |		Load_Encached	Integer_Cache
077b 00e1       |    |		Load_Encached	Boolean_Cache
077c e5fd       |    |		Load	0x2,-0x3
077d 0120       |    |		Execute	Any,Is_Value
077e 6803       |h   |		Jump_Zero	0x782
077f e001       |    |		Load	0x0,0x1
0780 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0781 7801       |x   |		Jump	0x783
0782 e5fd       |    |		Load	0x2,-0x3
0783 e5fe       |    |		Load	0x2,-0x2
0784 e403       |    |		Load	0x2,0x3
0785 e008       |    |		Load	0x0,0x8
0786 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0787 c5fd       |    |		Store	0x2,-0x3
0788 c406       |    |		Store	0x2,0x6
0789 c405       |    |		Store	0x2,0x5
078a c404       |    |		Store	0x2,0x4
078b e406       |    |		Load	0x2,0x6
078c a5fc       |    |		Store_Unchecked	0x2,-0x4
078d 00cc       |    |		Action	Pop_Block
078e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
078f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0798       |    |		.CONST	0x0798								; Address of begin
0791 0004       |    |		.CONST	0x0004								; Address of exception handler
0792 0002       |    |		.CONST	0x0002								; Number of locals
0793			INIT_0790:
0793 e603       |    |		Load	0x3,0x3
0794 e210       |    |		Load	0x1,0x10
0795 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0796 00d8       |    |		Load_Top	At_Offset_0
0797 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0798			BODY_0790:
0798 4801       |H   |		Short_Literal	0x1
0799 e603       |    |		Load	0x3,0x3
079a e602       |    |		Load	0x3,0x2
079b 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
079c 01cf       |    |		Execute	Vector,Slice_Read
079d 4801       |H   |		Short_Literal	0x1
079e e603       |    |		Load	0x3,0x3
079f 00db       |    |		Load_Top	At_Offset_3
07a0 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
07a1 01ce       |    |		Execute	Vector,Slice_Write
07a2 00d8       |    |		Load_Top	At_Offset_0
07a3 00cb       |    |		Action	Pop_Block_With_Result
07a4 00cb       |    |		Action	Pop_Block_With_Result
07a5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07a6 0000 0000  |    |		.XXX[0x2]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07b0       |    |		.CONST	0x07b0								; Address of begin
07a9 0004       |    |		.CONST	0x0004								; Address of exception handler
07aa 0002       |    |		.CONST	0x0002								; Number of locals
07ab			INIT_07a8:
07ab e603       |    |		Load	0x3,0x3
07ac e210       |    |		Load	0x1,0x10
07ad 1c08       |    |		Execute_Immediate	Run_Utility,0x8
07ae 00d8       |    |		Load_Top	At_Offset_0
07af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07b0			BODY_07a8:
07b0 4801       |H   |		Short_Literal	0x1
07b1 e603       |    |		Load	0x3,0x3
07b2 e602       |    |		Load	0x3,0x2
07b3 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
07b4 01cf       |    |		Execute	Vector,Slice_Read
07b5 4801       |H   |		Short_Literal	0x1
07b6 e603       |    |		Load	0x3,0x3
07b7 00db       |    |		Load_Top	At_Offset_3
07b8 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
07b9 01ce       |    |		Execute	Vector,Slice_Write
07ba 00d8       |    |		Load_Top	At_Offset_0
07bb 00cb       |    |		Action	Pop_Block_With_Result
07bc 00cb       |    |		Action	Pop_Block_With_Result
07bd 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
07be 0000 0000  |    |		.XXX[0x2]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3       |    |		.CONST	0x07c3								; Address of begin
07c1 0004       |    |		.CONST	0x0004								; Address of exception handler
07c2 0001       |    |		.CONST	0x0001								; Number of locals
07c3			BODY_07c0:
07c3			INIT_07c0:
07c3 4608       |F   |		Jump_Case	0x9
07c4 7808       |x   |		Jump	0x7cd								; case 0x0
07c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
07c6 780d       |x   |		Jump	0x7d4								; case 0x2
07c7 780c       |x   |		Jump	0x7d4								; case 0x3
07c8 780b       |x   |		Jump	0x7d4								; case 0x4
07c9 780a       |x   |		Jump	0x7d4								; case 0x5
07ca 7809       |x   |		Jump	0x7d4								; case 0x6
07cb 7808       |x   |		Jump	0x7d4								; case 0x7
07cc 7807       |x   |		Jump	0x7d4								; case 0x8
07cd 00da       |    |		Load_Top	At_Offset_2
07ce 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
07cf 0125       | %  |		Execute	Any,Set_Constraint
07d0 00da       |    |		Load_Top	At_Offset_2
07d1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
07d2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07d3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
07d4 0869       | i  |		Execute_Immediate	Raise,0x69
07d5 0000 0000  |    |		.XXX[0x3]
07d7 0000       |    |
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07db       |    |		.CONST	0x07db								; Address of begin
07d9 0004       |    |		.CONST	0x0004								; Address of exception handler
07da 0001       |    |		.CONST	0x0001								; Number of locals
07db			BODY_07d8:
07db			INIT_07d8:
07db 4608       |F   |		Jump_Case	0x9
07dc 7808       |x   |		Jump	0x7e5								; case 0x0
07dd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
07de 781d       |x   |		Jump	0x7fc								; case 0x2
07df 781c       |x   |		Jump	0x7fc								; case 0x3
07e0 781b       |x   |		Jump	0x7fc								; case 0x4
07e1 781a       |x   |		Jump	0x7fc								; case 0x5
07e2 7819       |x   |		Jump	0x7fc								; case 0x6
07e3 7805       |x   |		Jump	0x7e9								; case 0x7
07e4 780d       |x   |		Jump	0x7f2								; case 0x8
07e5 00da       |    |		Load_Top	At_Offset_2
07e6 2502       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x2
07e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07e8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
07e9 00db       |    |		Load_Top	At_Offset_3
07ea 4801       |H   |		Short_Literal	0x1
07eb e5fe       |    |		Load	0x2,-0x2
07ec e20f       |    |		Load	0x1,0xf
07ed 035b       | [  |		Declare_Type	Array,Constrained
07ee 4801       |H   |		Short_Literal	0x1
07ef e5ff       |    |		Load	0x2,-0x1
07f0 031b       |    |		Declare_Type	Variant_Record,Constrained
07f1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07f2 00db       |    |		Load_Top	At_Offset_3
07f3 00db       |    |		Load_Top	At_Offset_3
07f4 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
07f5 4801       |H   |		Short_Literal	0x1
07f6 e5fe       |    |		Load	0x2,-0x2
07f7 e20f       |    |		Load	0x1,0xf
07f8 0334       | 4  |		Declare_Variable	Array,With_Constraint
07f9 2d02       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
07fa 016a       | j  |		QQ_execute	Variant_Record,XXX
07fb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
07fc 0869       | i  |		Execute_Immediate	Raise,0x69
07fd 0000 0000  |    |		.XXX[0x3]
07ff 0000       |    |
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803       |    |		.CONST	0x0803								; Address of begin
0801 0004       |    |		.CONST	0x0004								; Address of exception handler
0802 0001       |    |		.CONST	0x0001								; Number of locals
0803			BODY_0800:
0803			INIT_0800:
0803 4608       |F   |		Jump_Case	0x9
0804 7808       |x   |		Jump	0x80d								; case 0x0
0805 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0806 7813       |x   |		Jump	0x81a								; case 0x2
0807 7812       |x   |		Jump	0x81a								; case 0x3
0808 7811       |x   |		Jump	0x81a								; case 0x4
0809 7810       |x   |		Jump	0x81a								; case 0x5
080a 780f       |x   |		Jump	0x81a								; case 0x6
080b 780e       |x   |		Jump	0x81a								; case 0x7
080c 780d       |x   |		Jump	0x81a								; case 0x8
080d 00da       |    |		Load_Top	At_Offset_2
080e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
080f 0125       | %  |		Execute	Any,Set_Constraint
0810 00da       |    |		Load_Top	At_Offset_2
0811 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0812 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0813 00da       |    |		Load_Top	At_Offset_2
0814 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0815 0125       | %  |		Execute	Any,Set_Constraint
0816 00da       |    |		Load_Top	At_Offset_2
0817 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0818 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0819 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
081a 0869       | i  |		Execute_Immediate	Raise,0x69
081b ; --------------------------------------------------------------------------------------
081b ; STRING TABLE
081b ; --------------------------------------------------------------------------------------
081b 0020       |    |		.STRTAB	0x0020->0x082b							; ".state.cmvc_database"
081c 0032       | 2  |		.STRTAB	0x0032->0x0835							; ".units.??'c(~library)"
081d 0045       | E  |		.STRTAB	0x0045->0x083f							; ".units"
081e 0049       | I  |		.STRTAB	0x0049->0x0842							; "<ALL_WORLDS>"
081f 0053       | S  |		.STRTAB	0x0053->0x0848							; "<WORLDS>"
0820 0059       | Y  |		.STRTAB	0x0059->0x084c							; ".units.??'c(ada)'if(controlled)"
0821 0076       | v  |		.STRTAB	0x0076->0x085c							; "."
0822 0075       | u  |		.STRTAB	0x0075->0x085c							; "<QUIET>"
0823 007a       | z  |		.STRTAB	0x007a->0x0860							; "_secondary_@_spec"
0824 0089       |    |		.STRTAB	0x0089->0x0868							; "'spec.<secondary_@>"
0825 009a       |    |		.STRTAB	0x009a->0x0872							; "<DIRECTORIES>"
0826 00a5       |    |		.STRTAB	0x00a5->0x0878							; "_secondary_@_body"
0827 00b4       |    |		.STRTAB	0x00b4->0x0881							; "'body.<secondary_@>"
0828 00c5       |    |		.STRTAB	0x00c5->0x088a							; ".@'c(ada).<secondary_"
0829 00d8       |    |		.STRTAB	0x00d8->0x0895							; ">"
082a 00d7       |    |		.STREND 0x00d7->0x0895
082b 2e73 7461  |.sta|		.STRTAB_STRINGS
0896 0000 0000  |    |		.XXX[0x2]
0898 ; --------------------------------------------------------------------------------------
0898 ; Debug Table
0898 ; --------------------------------------------------------------------------------------
0898 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x2def,0x0000,0x0001,0x0000
089e 595c c812  |Y\  |		.XXX[0x14]
08a0 5cd7 d4dd  |\   |
08a2 185d 194e  | ] N|
08a4 c288 0808  |    |
08a6 0819 9d5b  |   [|
08a8 98dd 1a5b  |   [|
08aa db88 125c  |   \|
08ac d7d2 5b9c  |  [ |
08ae dd18 5b1b  |  [ |
08b0 1959 0288  | Y  |
08b2 0808 0808  |    |		.BLANK	0808[0x7]
08b9 080a 13d8  |    |		.XXX[0xa]
08bb 9a99 58dd  |  X |
08bd 080e 8814  |    |
08bf dd1c 9a5b  |   [|
08c1 99ce c288  |    |
08c3 0808 0808  |    |		.BLANK	0808[0x8]
08cb 11db d85b  |   [|		.XXX[0x1c]
08cd 17d4 dd18  |    |
08cf 5d19 480e  |] H |
08d1 8811 1a5c  |   \|
08d3 9958 dd1b  | X  |
08d5 dc9e 57d5  |  W |
08d7 1bdb db1c  |    |
08d9 cb90 5918  |  Y |
08db 57d3 d89a  |W   |
08dd 9958 dd0b  | X  |
08df 955b 9a5d  | [ ]|
08e1 17d4 dd18  |    |
08e3 5d19 480e  |] H |
08e5 8f42 8808  | B  |
08e7 0808 0808  |    |		.BLANK	0808[0x9]
08f0 111a 5c99  |  \ |		.XXX[0x3d]
08f2 58dd 1bdc  |X   |
08f4 9e57 d51b  | W  |
08f6 dbdb 1ccb  |    |
08f8 9059 1857  | Y W|
08fa d3d8 9a99  |    |
08fc 58dd 0b92  |X   |
08fe 5b9c dd18  |[   |
0900 5b1b 1959  |[  Y|
0902 0a48 1c99  | H  |
0904 5d1d 5c9b  |] \ |
0906 8810 9bdb  |    |
0908 db19 585b  |  X[|
090a 8288 0808  |    |
090c 0808 0808  |    |
090e 081c 995b  |   [|
0910 985b 595c  | [Y\|
0912 c812 5cd7  |  \ |
0914 d4dd 185d  |   ]|
0916 194e c282  | N  |
0918 8288 0808  |    |
091a 0819 9d5b  |   [|
091c 98dd 1a5b  |   [|
091e db88 125c  |   \|
0920 d7d4 dd18  |    |
0922 5d19 480a  |] H |
0924 13d8 9a99  |    |
0926 58dd 080e  |X   |
0928 8814 dd1c  |    |
092a 9a5b 99ce  | [  |
092c c288       |    |
092d 0808 0808  |    |		.BLANK	0808[0xb]
0938 11db d85b  |   [|		.XXX[0x1b]
093a 17d4 dd18  |    |
093c 5d19 480e  |] H |
093e 8811 1a5c  |   \|
0940 9958 dd1b  | X  |
0942 dc9e 57d5  |  W |
0944 1bdb db1c  |    |
0946 cb90 5918  |  Y |
0948 57d3 d89a  |W   |
094a 9958 dd0b  | X  |
094c 955b 9a5d  | [ ]|
094e 17d4 dd18  |    |
0950 5d19 4a42  |] JB|
0952 8808       |    |
0953 0808 0808  |    |		.BLANK	0808[0xa]
095d 1c99 5d1d  |  ] |		.XXX[0x3d]
095f 5c9b 8810  |\   |
0961 9bdb db19  |    |
0963 585b 881a  |X[  |
0965 5cc2 8808  |\   |
0967 0808 0808  |    |
0969 0808 1d5c  |   \|
096b d948 111a  | H  |
096d 5c99 58dd  |\ X |
096f 1bdc 9e57  |   W|
0971 d51b dbdb  |    |
0973 1ccb 9059  |   Y|
0975 1857 d3d8  | W  |
0977 9a99 58dd  |  X |
0979 0ec2 8808  |    |
097b 0808 0808  |    |
097d 0808 125c  |   \|
097f d7d3 dac8  |    |
0981 0e88 109b  |    |
0983 dbdb 1958  |   X|
0985 5b88 0e8f  |[   |
0987 480a 155b  |H  [|
0989 9a5d 17d4  | ]  |
098b dd18 5d19  |  ] |
098d 49d4 1bdc  |I   |
098f c80a 14dd  |    |
0991 185d 1948  | ] H|
0993 0a13 d89a  |    |
0995 9958 dd0a  | X  |
0997 4a48 0f8f  |JH  |
0999 4288       |B   |
099a 0808 0808  |    |		.BLANK	0808[0xd]
09a7 0815 5b9a  |  [ |		.XXX[0x22]
09a9 5d17 d4dd  |]   |
09ab 185d 1949  | ] I|
09ad d41b dcc8  |    |
09af 0a11 dbd8  |    |
09b1 5b17 d4dd  |[   |
09b3 185d 194a  | ] J|
09b5 4a4e c288  |JN  |
09b7 0808 0818  |    |
09b9 9959 da5b  | Y [|
09bb 8288 0808  |    |
09bd 0808 0808  |    |
09bf 081a 5988  |  Y |
09c1 1b9b dd08  |    |
09c3 125c d7d3  | \  |
09c5 dac8 1d1a  |    |
09c7 195b 8288  | [  |
09c9 0808 0808  |    |		.BLANK	0808[0x5]
09ce 0813 1bd9  |    |		.XXX[0x17]
09d0 cb94 1d5d  |   ]|
09d2 17d3 1a5b  |   [|
09d4 9948 0a13  | H  |
09d6 d89a 9958  |   X|
09d8 dd08 0988  |    |
09da 0888 1a5c  |   \|
09dc c81b 9bdd  |    |
09de 0818 5d08  |  ] |
09e0 1d1a 1948  |   H|
09e2 0888 0982  |    |
09e4 8808       |    |
09e5 0808 0808  |    |		.BLANK	0808[0xc]
09f1 155b 9a5d  | [ ]|		.XXX[0xf]
09f3 17d4 dd18  |    |
09f5 5d19 49d2  |] I |
09f7 5b58 59d9  |[XY |
09f9 480a 11db  |H   |
09fb d85b 17d4  | [  |
09fd dd18 5d19  |  ] |
09ff 4a48       |JH  |