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

⟦b839a45b8⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0468       | h  |		.CONST	0x0468								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0097       |    |		.CONST	0x0097								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002d       | -  |		.CONST	0x002d								; Number of locals
000b			INIT_0008:
000b 00e4       |    |		Load_Encached	Positive_Cache
000c 4800       |H   |		Short_Literal	0x0
000d 4801       |H   |		Short_Literal	0x1
000e 4801       |H   |		Short_Literal	0x1
000f 4804       |H   |		Short_Literal	0x4
0010 0319       |    |		Declare_Type	Variant_Record,Incomplete,Visible
0011 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
0013 00d9       |    |		Load_Top	At_Offset_1
0014 012a       | *  |		Execute	Any,Change_Utility
0015 0007       |    |		Action	Break_Optional
0016 00e9       |    |		Load_Encached	String_Cache
0017 0129       | )  |		Execute	Any,Make_Visible
0018 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
001a 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
001c 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
001e 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0020 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0022 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0024 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0026 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0028 e001       |    |		Load	0x0,0x1
0029 0129       | )  |		Execute	Any,Make_Visible
002a 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
002c 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
002e 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0030 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
0032 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
0034 029a 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call,Visible,Unelaborated
0036 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0038 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
003a 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
003c 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
003e 4818       |H   |		Short_Literal	0x18
003f 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0040 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0042 029a 030b  |    |		Declare_Subprogram	INIT_0308,For_Outer_Call,Visible,Unelaborated
0044 029a 031b  |    |		Declare_Subprogram	INIT_0318,For_Outer_Call,Visible,Unelaborated
0046 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0048 e20f       |    |		Load	0x1,0xf
0049 e002       |    |		Load	0x0,0x2
004a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004b 1c07       |    |		Execute_Immediate	Run_Utility,0x7
004c 00e4       |    |		Load_Encached	Positive_Cache
004d 0266       | f  |		Execute	Discrete,Bounds
004e 00da       |    |		Load_Top	At_Offset_2
004f 029f 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Call
0051 4801       |H   |		Short_Literal	0x1
0052 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0053 00e4       |    |		Load_Encached	Positive_Cache
0054 00e3       |    |		Load_Encached	Natural_Cache
0055 00da       |    |		Load_Top	At_Offset_2
0056 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
0058 4800       |H   |		Short_Literal	0x0
0059 4801       |H   |		Short_Literal	0x1
005a 4802       |H   |		Short_Literal	0x2
005b e210       |    |		Load	0x1,0x10
005c 0307       |    |		Complete_Type	Variant_Record,By_Defining
005d e210       |    |		Load	0x1,0x10
005e 02a0       |    |		Declare_Subprogram	Null_Subprogram
005f e225       | %  |		Load	0x1,0x25
0060 03c7       |    |		Complete_Type	Access,By_Defining
0061 00bf       |    |		Action	Accept_Activation
0062 e003       |    |		Load	0x0,0x3
0063 e004       |    |		Load	0x0,0x4
0064 4900       |I   |		Short_Literal	0x100
0065 e005       |    |		Load	0x0,0x5
0066 0387       |    |		Declare_Variable	Package
0067 00d8       |    |		Load_Top	At_Offset_0
0068 020f       |    |		Execute	Module,Activate
0069 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 029d 036b  |   k|		Declare_Subprogram	INIT_0368,For_Outer_Call
008b 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0096 00c7       |    |		Action	Elaborate_Subprogram
0097			BODY_0008:
0097 00bc       |    |		Action	Signal_Activated
0098 00bb       |    |		Action	Signal_Completion
0099 0000 0000  |    |		.BLANK	0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4801       |H   |		Short_Literal	0x1
00a4 00db       |    |		Load_Top	At_Offset_3
00a5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00a6 4800       |H   |		Short_Literal	0x0
00a7 00db       |    |		Load_Top	At_Offset_3
00a8 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00aa 0000 0000  |    |		.BLANK	0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00b5 e5fe       |    |		Load	0x2,-0x2
00b6 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00b7 0273       | s  |		Execute	Discrete,Plus
00b8 e5fe       |    |		Load	0x2,-0x2
00b9 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ba 027d       | }  |		Execute	Discrete,Greater
00bb 6802       |h   |		Jump_Zero	0xbe
00bc e21a       |    |		Load	0x1,0x1a
00bd 0257       | W  |		Execute	Discrete,Raise
00be 4801       |H   |		Short_Literal	0x1
00bf 00db       |    |		Load_Top	At_Offset_3
00c0 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00c1 e5ff       |    |		Load	0x2,-0x1
00c2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00c3 01cf       |    |		Execute	Vector,Slice_Read
00c4 e5fe       |    |		Load	0x2,-0x2
00c5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00c6 e5fe       |    |		Load	0x2,-0x2
00c7 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00c8 e5ff       |    |		Load	0x2,-0x1
00c9 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00ca 0273       | s  |		Execute	Discrete,Plus
00cb 0aff       |    |		Execute_Immediate	Plus,-0x1
00cc 00d8       |    |		Load_Top	At_Offset_0
00cd 00e2       |    |		Load_Encached	Integer_Cache
00ce 0260       | `  |		Execute	Discrete,In_Type
00cf 7001       |p   |		Jump_Nonzero	0xd1
00d0 0801       |    |		Execute_Immediate	Raise,0x1
00d1 e5fe       |    |		Load	0x2,-0x2
00d2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00d3 01ce       |    |		Execute	Vector,Slice_Write
00d4 00db       |    |		Load_Top	At_Offset_3
00d5 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00d6 00db       |    |		Load_Top	At_Offset_3
00d7 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00d8 0273       | s  |		Execute	Discrete,Plus
00d9 e5fe       |    |		Load	0x2,-0x2
00da 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00db 00db       |    |		Load_Top	At_Offset_3
00dc 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00dd 00db       |    |		Load_Top	At_Offset_3
00de 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00df 0273       | s  |		Execute	Discrete,Plus
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00e2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e3 0000 0000  |    |		.BLANK	0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00db       |    |		Load_Top	At_Offset_3
00ec 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ed e5fe       |    |		Load	0x2,-0x2
00ee 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ef 027d       | }  |		Execute	Discrete,Greater
00f0 00db       |    |		Load_Top	At_Offset_3
00f1 01db       |    |		Execute	Vector,Length
00f2 e20f       |    |		Load	0x1,0xf
00f3 027d       | }  |		Execute	Discrete,Greater
00f4 0278       | x  |		Execute	Discrete,Or
00f5 6802       |h   |		Jump_Zero	0xf8
00f6 e21a       |    |		Load	0x1,0x1a
00f7 0257       | W  |		Execute	Discrete,Raise
00f8 00db       |    |		Load_Top	At_Offset_3
00f9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00fa e5fe       |    |		Load	0x2,-0x2
00fb 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00fc 01d5       |    |		Execute	Vector,Field_Reference
00fd 00d8       |    |		Load_Top	At_Offset_0
00fe e5ff       |    |		Load	0x2,-0x1
00ff e002       |    |		Load	0x0,0x2
0100 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0101 00d2       |    |		Pop_Control	Pop_Count_2
0102 00db       |    |		Load_Top	At_Offset_3
0103 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0104 0a01       |    |		Execute_Immediate	Plus,0x1
0105 e5fe       |    |		Load	0x2,-0x2
0106 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0107 00db       |    |		Load_Top	At_Offset_3
0108 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0109 0a01       |    |		Execute_Immediate	Plus,0x1
010a e5fe       |    |		Load	0x2,-0x2
010b 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
010c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010d 0000 0000  |    |		.XXX[0x3]
010f 0000       |    |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00db       |    |		Load_Top	At_Offset_3
0114 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0115 e5fe       |    |		Load	0x2,-0x2
0116 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0117 027d       | }  |		Execute	Discrete,Greater
0118 00db       |    |		Load_Top	At_Offset_3
0119 01db       |    |		Execute	Vector,Length
011a e20f       |    |		Load	0x1,0xf
011b 027d       | }  |		Execute	Discrete,Greater
011c 0278       | x  |		Execute	Discrete,Or
011d 6802       |h   |		Jump_Zero	0x120
011e e21a       |    |		Load	0x1,0x1a
011f 0257       | W  |		Execute	Discrete,Raise
0120 4801       |H   |		Short_Literal	0x1
0121 e5fe       |    |		Load	0x2,-0x2
0122 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0123 e5fe       |    |		Load	0x2,-0x2
0124 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0125 01cf       |    |		Execute	Vector,Slice_Read
0126 4802       |H   |		Short_Literal	0x2
0127 e5fe       |    |		Load	0x2,-0x2
0128 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0129 0a01       |    |		Execute_Immediate	Plus,0x1
012a 00d8       |    |		Load_Top	At_Offset_0
012b 00e2       |    |		Load_Encached	Integer_Cache
012c 0260       | `  |		Execute	Discrete,In_Type
012d 7001       |p   |		Jump_Nonzero	0x12f
012e 0801       |    |		Execute_Immediate	Raise,0x1
012f e5fe       |    |		Load	0x2,-0x2
0130 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0131 01ce       |    |		Execute	Vector,Slice_Write
0132 4801       |H   |		Short_Literal	0x1
0133 e5fe       |    |		Load	0x2,-0x2
0134 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0135 01d5       |    |		Execute	Vector,Field_Reference
0136 00d8       |    |		Load_Top	At_Offset_0
0137 e5ff       |    |		Load	0x2,-0x1
0138 e002       |    |		Load	0x0,0x2
0139 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
013a 00d2       |    |		Pop_Control	Pop_Count_2
013b 00db       |    |		Load_Top	At_Offset_3
013c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
013d 0a01       |    |		Execute_Immediate	Plus,0x1
013e e5fe       |    |		Load	0x2,-0x2
013f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0140 00db       |    |		Load_Top	At_Offset_3
0141 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0142 0a01       |    |		Execute_Immediate	Plus,0x1
0143 e5fe       |    |		Load	0x2,-0x2
0144 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0145 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 00da       |    |		Load_Top	At_Offset_2
014c 01db       |    |		Execute	Vector,Length
014d e20f       |    |		Load	0x1,0xf
014e 027d       | }  |		Execute	Discrete,Greater
014f 6802       |h   |		Jump_Zero	0x152
0150 e21a       |    |		Load	0x1,0x1a
0151 0257       | W  |		Execute	Discrete,Raise
0152 00db       |    |		Load_Top	At_Offset_3
0153 e5fd       |    |		Load	0x2,-0x3
0154 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0155 027a       | z  |		Execute	Discrete,Less_Equal
0156 e5fe       |    |		Load	0x2,-0x2
0157 e5fd       |    |		Load	0x2,-0x3
0158 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0159 027a       | z  |		Execute	Discrete,Less_Equal
015a 0279       | y  |		Execute	Discrete,And
015b 680a       |h   |		Jump_Zero	0x166
015c 00db       |    |		Load_Top	At_Offset_3
015d e5fd       |    |		Load	0x2,-0x3
015e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
015f 01d5       |    |		Execute	Vector,Field_Reference
0160 00d8       |    |		Load_Top	At_Offset_0
0161 e5ff       |    |		Load	0x2,-0x1
0162 e002       |    |		Load	0x0,0x2
0163 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0164 00d2       |    |		Pop_Control	Pop_Count_2
0165 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0166 e21a       |    |		Load	0x1,0x1a
0167 0257       | W  |		Execute	Discrete,Raise
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c e5fe       |    |		Load	0x2,-0x2
016d 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
016e 027a       | z  |		Execute	Discrete,Less_Equal
016f 681e       |h   |		Jump_Zero	0x18e
0170 00da       |    |		Load_Top	At_Offset_2
0171 0a01       |    |		Execute_Immediate	Plus,0x1
0172 00d8       |    |		Load_Top	At_Offset_0
0173 00e2       |    |		Load_Encached	Integer_Cache
0174 0260       | `  |		Execute	Discrete,In_Type
0175 7001       |p   |		Jump_Nonzero	0x177
0176 0801       |    |		Execute_Immediate	Raise,0x1
0177 e5fe       |    |		Load	0x2,-0x2
0178 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0179 e5fe       |    |		Load	0x2,-0x2
017a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
017b 01cf       |    |		Execute	Vector,Slice_Read
017c 00db       |    |		Load_Top	At_Offset_3
017d e5fe       |    |		Load	0x2,-0x2
017e 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
017f 0aff       |    |		Execute_Immediate	Plus,-0x1
0180 e5fe       |    |		Load	0x2,-0x2
0181 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0182 01ce       |    |		Execute	Vector,Slice_Write
0183 00db       |    |		Load_Top	At_Offset_3
0184 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0185 0aff       |    |		Execute_Immediate	Plus,-0x1
0186 e5fe       |    |		Load	0x2,-0x2
0187 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0188 00db       |    |		Load_Top	At_Offset_3
0189 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
018a 0aff       |    |		Execute_Immediate	Plus,-0x1
018b e5fe       |    |		Load	0x2,-0x2
018c 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
018d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
018e e21a       |    |		Load	0x1,0x1a
018f 0257       | W  |		Execute	Discrete,Raise
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 00da       |    |		Load_Top	At_Offset_2
0194 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0195 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0196 0000 0000  |    |		.XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d       |    |		.CONST	0x019d								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b e22c       | ,  |		Load	0x1,0x2c
019c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
019d			BODY_0198:
019d 00cf       |    |		Action	Mark_Auxiliary
019e e5ff       |    |		Load	0x2,-0x1
019f 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01a0 4801       |H   |		Short_Literal	0x1
01a1 0263       | c  |		Execute	Discrete,Above_Bound
01a2 7013       |p   |		Jump_Nonzero	0x1b6
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 00d9       |    |		Load_Top	At_Offset_1
01a5 e5ff       |    |		Load	0x2,-0x1
01a6 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01a7 01d5       |    |		Execute	Vector,Field_Reference
01a8 e002       |    |		Load	0x0,0x2
01a9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01aa e22c       | ,  |		Load	0x1,0x2c
01ab 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01ac c402       |    |		Store	0x2,0x2
01ad e5fe       |    |		Load	0x2,-0x2
01ae 6805       |h   |		Jump_Zero	0x1b4
01af 00db       |    |		Load_Top	At_Offset_3
01b0 480a       |H   |		Short_Literal	0xa
01b1 e22c       | ,  |		Load	0x1,0x2c
01b2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01b3 c402       |    |		Store	0x2,0x2
01b4 00c8       |    |		Action	Pop_Auxiliary_Range
01b5 3fed       |?   |		Loop_Increasing	0x1a3
01b6 00ce       |    |		Action	Pop_Auxiliary
01b7 00d8       |    |		Load_Top	At_Offset_0
01b8 e22c       | ,  |		Load	0x1,0x2c
01b9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01ba 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01bb 0000 0000  |    |		.BLANK	0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 01d5       |    |		.CONST	0x01d5								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00cf       |    |		Action	Mark_Auxiliary
01c4 e5fe       |    |		Load	0x2,-0x2
01c5 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01c6 4801       |H   |		Short_Literal	0x1
01c7 0263       | c  |		Execute	Discrete,Above_Bound
01c8 700b       |p   |		Jump_Nonzero	0x1d4
01c9 00d8       |    |		Load_Top	At_Offset_0
01ca e5fe       |    |		Load	0x2,-0x2
01cb 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01cc 01d5       |    |		Execute	Vector,Field_Reference
01cd 00d8       |    |		Load_Top	At_Offset_0
01ce e5ff       |    |		Load	0x2,-0x1
01cf e002       |    |		Load	0x0,0x2
01d0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01d1 00d2       |    |		Pop_Control	Pop_Count_2
01d2 00c8       |    |		Action	Pop_Auxiliary_Range
01d3 3ff5       |?   |		Loop_Increasing	0x1c9
01d4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d5			TRAP_01c0:
01d5 010e       |    |		Execute	Exception,Is_Constraint_Error
01d6 6802       |h   |		Jump_Zero	0x1d9
01d7 e21a       |    |		Load	0x1,0x1a
01d8 0257       | W  |		Execute	Discrete,Raise
01d9 0100       |    |		Execute	Exception,Raise
01da 0000 0000  |    |		.BLANK	0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 01f6       |    |		.CONST	0x01f6								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00cf       |    |		Action	Mark_Auxiliary
01e4 e5fe       |    |		Load	0x2,-0x2
01e5 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01e6 4801       |H   |		Short_Literal	0x1
01e7 0263       | c  |		Execute	Discrete,Above_Bound
01e8 700c       |p   |		Jump_Nonzero	0x1f5
01e9 00d8       |    |		Load_Top	At_Offset_0
01ea e5fe       |    |		Load	0x2,-0x2
01eb 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01ec 01d5       |    |		Execute	Vector,Field_Reference
01ed 00d8       |    |		Load_Top	At_Offset_0
01ee e5ff       |    |		Load	0x2,-0x1
01ef 4801       |H   |		Short_Literal	0x1
01f0 e002       |    |		Load	0x0,0x2
01f1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01f2 00d2       |    |		Pop_Control	Pop_Count_2
01f3 00c8       |    |		Action	Pop_Auxiliary_Range
01f4 3ff4       |?   |		Loop_Increasing	0x1e9
01f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f6			TRAP_01e0:
01f6 010e       |    |		Execute	Exception,Is_Constraint_Error
01f7 6802       |h   |		Jump_Zero	0x1fa
01f8 e21a       |    |		Load	0x1,0x1a
01f9 0257       | W  |		Execute	Discrete,Raise
01fa 0100       |    |		Execute	Exception,Raise
01fb 0000 0000  |    |		.BLANK	0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020e       |    |		.CONST	0x020e								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0006       |    |		.CONST	0x0006								; Number of locals
0203			INIT_0200:
0203 029f 0383  |    |		Declare_Subprogram	INIT_0380,For_Call
0205 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0206 00c6       |    |		Action	Check_Subprogram_Elaborated
0207 4802       |H   |		Short_Literal	0x2
0208 4802       |H   |		Short_Literal	0x2
0209 0099       |    |		Action	Reference_Dynamic
020a e006       |    |		Load	0x0,0x6
020b e007       |    |		Load	0x0,0x7
020c 4806       |H   |		Short_Literal	0x6
020d 0007       |    |		Action	Break_Optional
020e			BODY_0200:
020e e5fe       |    |		Load	0x2,-0x2
020f 4803       |H   |		Short_Literal	0x3
0210 4802       |H   |		Short_Literal	0x2
0211 0099       |    |		Action	Reference_Dynamic
0212 4804       |H   |		Short_Literal	0x4
0213 4802       |H   |		Short_Literal	0x2
0214 0099       |    |		Action	Reference_Dynamic
0215 8223       | #  |		Call	0x1,0x23
0216 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0217 0000       |    |		.XXX[0x1]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0226       | &  |		.CONST	0x0226								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0006       |    |		.CONST	0x0006								; Number of locals
021b			INIT_0218:
021b 029f 038b  |    |		Declare_Subprogram	INIT_0388,For_Call
021d 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
021e 00c6       |    |		Action	Check_Subprogram_Elaborated
021f 4802       |H   |		Short_Literal	0x2
0220 4802       |H   |		Short_Literal	0x2
0221 0099       |    |		Action	Reference_Dynamic
0222 e008       |    |		Load	0x0,0x8
0223 e009       |    |		Load	0x0,0x9
0224 4806       |H   |		Short_Literal	0x6
0225 0007       |    |		Action	Break_Optional
0226			BODY_0218:
0226 e5fe       |    |		Load	0x2,-0x2
0227 4803       |H   |		Short_Literal	0x3
0228 4802       |H   |		Short_Literal	0x2
0229 0099       |    |		Action	Reference_Dynamic
022a 4804       |H   |		Short_Literal	0x4
022b 4802       |H   |		Short_Literal	0x2
022c 0099       |    |		Action	Reference_Dynamic
022d 8223       | #  |		Call	0x1,0x23
022e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
022f 0000       |    |		.XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023e       | >  |		.CONST	0x023e								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0006       |    |		.CONST	0x0006								; Number of locals
0233			INIT_0230:
0233 029f 0393  |    |		Declare_Subprogram	INIT_0390,For_Call
0235 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0236 00c6       |    |		Action	Check_Subprogram_Elaborated
0237 4802       |H   |		Short_Literal	0x2
0238 4802       |H   |		Short_Literal	0x2
0239 0099       |    |		Action	Reference_Dynamic
023a e00a       |    |		Load	0x0,0xa
023b e00b       |    |		Load	0x0,0xb
023c 4806       |H   |		Short_Literal	0x6
023d 0007       |    |		Action	Break_Optional
023e			BODY_0230:
023e e5fe       |    |		Load	0x2,-0x2
023f 4803       |H   |		Short_Literal	0x3
0240 4802       |H   |		Short_Literal	0x2
0241 0099       |    |		Action	Reference_Dynamic
0242 4804       |H   |		Short_Literal	0x4
0243 4802       |H   |		Short_Literal	0x2
0244 0099       |    |		Action	Reference_Dynamic
0245 8223       | #  |		Call	0x1,0x23
0246 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0247 0000       |    |		.XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0253       | S  |		.CONST	0x0253								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0003       |    |		.CONST	0x0003								; Number of locals
024b			INIT_0248:
024b e5fd       |    |		Load	0x2,-0x3
024c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
024d e210       |    |		Load	0x1,0x10
024e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
024f 00d8       |    |		Load_Top	At_Offset_0
0250 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0251 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
0253			BODY_0248:
0253 00cf       |    |		Action	Mark_Auxiliary
0254 e5fd       |    |		Load	0x2,-0x3
0255 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0256 4801       |H   |		Short_Literal	0x1
0257 0263       | c  |		Execute	Discrete,Above_Bound
0258 7003       |p   |		Jump_Nonzero	0x25c
0259 8403       |    |		Call	0x2,0x3
025a 00c8       |    |		Action	Pop_Auxiliary_Range
025b 3ffd       |?   |		Loop_Increasing	0x259
025c 00ce       |    |		Action	Pop_Auxiliary
025d 00d9       |    |		Load_Top	At_Offset_1
025e e5fd       |    |		Load	0x2,-0x3
025f 016d       | m  |		Execute	Variant_Record,Structure_Write
0260 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0261 0000 0000  |    |		.BLANK	0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0289       |    |		.CONST	0x0289								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 000a       |    |		.CONST	0x000a								; Number of locals
026b			INIT_0268:
026b 4801       |H   |		Short_Literal	0x1
026c e5fd       |    |		Load	0x2,-0x3
026d 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
026e e22b       | +  |		Load	0x1,0x2b
026f 035b       | [  |		Declare_Type	Array,Constrained
0270 0337       | 7  |		Declare_Variable	Array
0271 00d8       |    |		Load_Top	At_Offset_0
0272 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0273 4801       |H   |		Short_Literal	0x1
0274 e5fd       |    |		Load	0x2,-0x3
0275 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0276 e5fd       |    |		Load	0x2,-0x3
0277 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0278 01cf       |    |		Execute	Vector,Slice_Read
0279 00d9       |    |		Load_Top	At_Offset_1
027a 01d4       |    |		Execute	Vector,Structure_Write
027b 029f 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Call
027d a00c       |    |		Store_Unchecked	0x0,0xc
027e 00c6       |    |		Action	Check_Subprogram_Elaborated
027f e22a       | *  |		Load	0x1,0x2a
0280 00e4       |    |		Load_Encached	Positive_Cache
0281 e22b       | +  |		Load	0x1,0x2b
0282 4803       |H   |		Short_Literal	0x3
0283 4802       |H   |		Short_Literal	0x2
0284 0099       |    |		Action	Reference_Dynamic
0285 e00d       |    |		Load	0x0,0xd
0286 e00e       |    |		Load	0x0,0xe
0287 480a       |H   |		Short_Literal	0xa
0288 0007       |    |		Action	Break_Optional
0289			BODY_0268:
0289 e402       |    |		Load	0x2,0x2
028a e404       |    |		Load	0x2,0x4
028b e405       |    |		Load	0x2,0x5
028c e406       |    |		Load	0x2,0x6
028d 4807       |H   |		Short_Literal	0x7
028e 4802       |H   |		Short_Literal	0x2
028f 0099       |    |		Action	Reference_Dynamic
0290 4808       |H   |		Short_Literal	0x8
0291 4802       |H   |		Short_Literal	0x2
0292 0099       |    |		Action	Reference_Dynamic
0293 800c       |    |		Call	0x0,0xc
0294 00d1       |    |		Pop_Control	Pop_Count_1
0295 e402       |    |		Load	0x2,0x2
0296 4801       |H   |		Short_Literal	0x1
0297 e5fd       |    |		Load	0x2,-0x3
0298 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0299 e5fd       |    |		Load	0x2,-0x3
029a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
029b 01ce       |    |		Execute	Vector,Slice_Write
029c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a9       |    |		.CONST	0x02a9								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0004       |    |		.CONST	0x0004								; Number of locals
02a3			INIT_02a0:
02a3 00e3       |    |		Load_Encached	Natural_Cache
02a4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02a5 029f 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Call
02a7 029f 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Call
02a9			BODY_02a0:
02a9 00cf       |    |		Action	Mark_Auxiliary
02aa e5fd       |    |		Load	0x2,-0x3
02ab 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02ac 4801       |H   |		Short_Literal	0x1
02ad 0263       | c  |		Execute	Discrete,Above_Bound
02ae 7003       |p   |		Jump_Nonzero	0x2b2
02af 8403       |    |		Call	0x2,0x3
02b0 00c8       |    |		Action	Pop_Auxiliary_Range
02b1 3ffd       |?   |		Loop_Increasing	0x2af
02b2 00c9       |    |		Action	Pop_Auxiliary_Loop
02b3 e5fd       |    |		Load	0x2,-0x3
02b4 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02b5 4801       |H   |		Short_Literal	0x1
02b6 0263       | c  |		Execute	Discrete,Above_Bound
02b7 7003       |p   |		Jump_Nonzero	0x2bb
02b8 8404       |    |		Call	0x2,0x4
02b9 00c8       |    |		Action	Pop_Auxiliary_Range
02ba 3ffd       |?   |		Loop_Increasing	0x2b8
02bb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02bc 0000 0000  |    |		.BLANK	0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 02db       |    |		.CONST	0x02db								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 00cf       |    |		Action	Mark_Auxiliary
02c4 e5fd       |    |		Load	0x2,-0x3
02c5 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02c6 4801       |H   |		Short_Literal	0x1
02c7 0263       | c  |		Execute	Discrete,Above_Bound
02c8 7011       |p   |		Jump_Nonzero	0x2da
02c9 00d8       |    |		Load_Top	At_Offset_0
02ca e5fd       |    |		Load	0x2,-0x3
02cb 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02cc 01d5       |    |		Execute	Vector,Field_Reference
02cd 00d8       |    |		Load_Top	At_Offset_0
02ce 00da       |    |		Load_Top	At_Offset_2
02cf e5fd       |    |		Load	0x2,-0x3
02d0 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02d1 01d5       |    |		Execute	Vector,Field_Reference
02d2 e002       |    |		Load	0x0,0x2
02d3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d4 85fe       |    |		Call	0x2,-0x2
02d5 e002       |    |		Load	0x0,0x2
02d6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02d7 00d2       |    |		Pop_Control	Pop_Count_2
02d8 00c8       |    |		Action	Pop_Auxiliary_Range
02d9 3fef       |?   |		Loop_Increasing	0x2c9
02da 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02db			TRAP_02c0:
02db 010e       |    |		Execute	Exception,Is_Constraint_Error
02dc 6802       |h   |		Jump_Zero	0x2df
02dd e21a       |    |		Load	0x1,0x1a
02de 0257       | W  |		Execute	Discrete,Raise
02df 0100       |    |		Execute	Exception,Raise
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 00cf       |    |		Action	Mark_Auxiliary
02e4 e5fd       |    |		Load	0x2,-0x3
02e5 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02e6 4801       |H   |		Short_Literal	0x1
02e7 0263       | c  |		Execute	Discrete,Above_Bound
02e8 7009       |p   |		Jump_Nonzero	0x2f2
02e9 00d8       |    |		Load_Top	At_Offset_0
02ea e5fd       |    |		Load	0x2,-0x3
02eb 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02ec 01d5       |    |		Execute	Vector,Field_Reference
02ed e002       |    |		Load	0x0,0x2
02ee 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02ef 85fe       |    |		Call	0x2,-0x2
02f0 00c8       |    |		Action	Pop_Auxiliary_Range
02f1 3ff7       |?   |		Loop_Increasing	0x2e9
02f2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02f3 0000 0000  |    |		.BLANK	0000[0x5]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb       |    |		.CONST	0x02fb								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0001       |    |		.CONST	0x0001								; Number of locals
02fb			BODY_02f8:
02fb			INIT_02f8:
02fb 00da       |    |		Load_Top	At_Offset_2
02fc e225       | %  |		Load	0x1,0x25
02fd 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
02fe a5fe       |    |		Store_Unchecked	0x2,-0x2
02ff 4801       |H   |		Short_Literal	0x1
0300 e5fe       |    |		Load	0x2,-0x2
0301 0227       | '  |		Execute	Access,All_Reference
0302 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0303 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0304 0000 0000  |    |		.BLANK	0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b       |    |		.CONST	0x030b								; Address of begin
0309 0004       |    |		.CONST	0x0004								; Address of exception handler
030a 0001       |    |		.CONST	0x0001								; Number of locals
030b			BODY_0308:
030b			INIT_0308:
030b 00da       |    |		Load_Top	At_Offset_2
030c 0227       | '  |		Execute	Access,All_Reference
030d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
030e 00db       |    |		Load_Top	At_Offset_3
030f 0227       | '  |		Execute	Access,All_Reference
0310 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0311 027d       | }  |		Execute	Discrete,Greater
0312 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0313 0000 0000  |    |		.BLANK	0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b       |    |		.CONST	0x031b								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0001       |    |		.CONST	0x0001								; Number of locals
031b			BODY_0318:
031b			INIT_0318:
031b 00da       |    |		Load_Top	At_Offset_2
031c 0227       | '  |		Execute	Access,All_Reference
031d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
031e 00db       |    |		Load_Top	At_Offset_3
031f 0227       | '  |		Execute	Access,All_Reference
0320 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0321 01d5       |    |		Execute	Vector,Field_Reference
0322 e002       |    |		Load	0x0,0x2
0323 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0324 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0325 0000 0000  |    |		.XXX[0x3]
0327 0000       |    |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 00da       |    |		Load_Top	At_Offset_2
032c 0227       | '  |		Execute	Access,All_Reference
032d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
032e 0a01       |    |		Execute_Immediate	Plus,0x1
032f 00db       |    |		Load_Top	At_Offset_3
0330 0227       | '  |		Execute	Access,All_Reference
0331 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0332 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0333 0000 0000  |    |		.BLANK	0000[0x5]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 4605       |F   |		Jump_Case	0x6
033c 7804       |x   |		Jump	0x341								; case 0x0
033d 7819       |x   |		Jump	0x357								; case 0x1
033e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
033f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0340 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0341 00da       |    |		Load_Top	At_Offset_2						; case 0x5
0342 01d8       |    |		Execute	Vector,Element_Type
0343 02ff       |    |		Declare_Variable	Variant_Record
0344 00d8       |    |		Load_Top	At_Offset_0
0345 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0346 00db       |    |		Load_Top	At_Offset_3
0347 01dc       |    |		Execute	Vector,Last
0348 e5ff       |    |		Load	0x2,-0x1
0349 01dd       |    |		Execute	Vector,First
034a 0263       | c  |		Execute	Discrete,Above_Bound
034b 700a       |p   |		Jump_Nonzero	0x356
034c 00d8       |    |		Load_Top	At_Offset_0
034d e5ff       |    |		Load	0x2,-0x1
034e 01d5       |    |		Execute	Vector,Field_Reference
034f 0125       | %  |		Execute	Any,Set_Constraint
0350 00da       |    |		Load_Top	At_Offset_2
0351 00d9       |    |		Load_Top	At_Offset_1
0352 e5ff       |    |		Load	0x2,-0x1
0353 01d6       |    |		Execute	Vector,Field_Write
0354 0a01       |    |		Execute_Immediate	Plus,0x1
0355 7ff4       |    |		Jump	0x34a
0356 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0357 00da       |    |		Load_Top	At_Offset_2
0358 01dc       |    |		Execute	Vector,Last
0359 00db       |    |		Load_Top	At_Offset_3
035a 01dd       |    |		Execute	Vector,First
035b 0263       | c  |		Execute	Discrete,Above_Bound
035c 7006       |p   |		Jump_Nonzero	0x363
035d 00d8       |    |		Load_Top	At_Offset_0
035e e5ff       |    |		Load	0x2,-0x1
035f 01d5       |    |		Execute	Vector,Field_Reference
0360 0125       | %  |		Execute	Any,Set_Constraint
0361 0a01       |    |		Execute_Immediate	Plus,0x1
0362 7ff8       |    |		Jump	0x35b
0363 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0364 0000 0000  |    |		.BLANK	0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b       | k  |		.CONST	0x036b								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0001       |    |		.CONST	0x0001								; Number of locals
036b			BODY_0368:
036b			INIT_0368:
036b 00da       |    |		Load_Top	At_Offset_2
036c e5fe       |    |		Load	0x2,-0x2
036d 027d       | }  |		Execute	Discrete,Greater
036e 6807       |h   |		Jump_Zero	0x376
036f 00da       |    |		Load_Top	At_Offset_2
0370 00d8       |    |		Load_Top	At_Offset_0
0371 00e4       |    |		Load_Encached	Positive_Cache
0372 0260       | `  |		Execute	Discrete,In_Type
0373 7001       |p   |		Jump_Nonzero	0x375
0374 0801       |    |		Execute_Immediate	Raise,0x1
0375 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0376 00db       |    |		Load_Top	At_Offset_3
0377 00d8       |    |		Load_Top	At_Offset_0
0378 00e4       |    |		Load_Encached	Positive_Cache
0379 0260       | `  |		Execute	Discrete,In_Type
037a 7001       |p   |		Jump_Nonzero	0x37c
037b 0801       |    |		Execute_Immediate	Raise,0x1
037c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
037d 0000 0000  |    |		.XXX[0x3]
037f 0000       |    |
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 e5ff       |    |		Load	0x2,-0x1
0384 00db       |    |		Load_Top	At_Offset_3
0385 e00f       |    |		Load	0x0,0xf
0386 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0387 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b e5ff       |    |		Load	0x2,-0x1
038c 00db       |    |		Load_Top	At_Offset_3
038d e00f       |    |		Load	0x0,0xf
038e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
038f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 e5ff       |    |		Load	0x2,-0x1
0394 00db       |    |		Load_Top	At_Offset_3
0395 e00f       |    |		Load	0x0,0xf
0396 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0397 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a1       |    |		.CONST	0x03a1								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0002       |    |		.CONST	0x0002								; Number of locals
039b			INIT_0398:
039b e406       |    |		Load	0x2,0x6
039c e5fd       |    |		Load	0x2,-0x3
039d 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
039e 01d5       |    |		Execute	Vector,Field_Reference
039f e002       |    |		Load	0x0,0x2
03a0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03a1			BODY_0398:
03a1 00d8       |    |		Load_Top	At_Offset_0
03a2 85fe       |    |		Call	0x2,-0x2
03a3 7004       |p   |		Jump_Nonzero	0x3a8
03a4 e402       |    |		Load	0x2,0x2
03a5 00d9       |    |		Load_Top	At_Offset_1
03a6 8214       |    |		Call	0x1,0x14
03a7 00d1       |    |		Pop_Control	Pop_Count_1
03a8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03a9 0000 0000  |    |		.BLANK	0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3       |    |		.CONST	0x03b3								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0001       |    |		.CONST	0x0001								; Number of locals
03b3			BODY_03b0:
03b3			INIT_03b0:
03b3 00db       |    |		Load_Top	At_Offset_3
03b4 e002       |    |		Load	0x0,0x2
03b5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03b6 00db       |    |		Load_Top	At_Offset_3
03b7 e002       |    |		Load	0x0,0x2
03b8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03b9 85fe       |    |		Call	0x2,-0x2
03ba 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03bb 0000 0000  |    |		.BLANK	0000[0x5]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03cd       |    |		.CONST	0x03cd								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0003       |    |		.CONST	0x0003								; Number of locals
03c3			INIT_03c0:
03c3 e407       |    |		Load	0x2,0x7
03c4 e5fd       |    |		Load	0x2,-0x3
03c5 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03c6 01d5       |    |		Execute	Vector,Field_Reference
03c7 e002       |    |		Load	0x0,0x2
03c8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03c9 00d8       |    |		Load_Top	At_Offset_0
03ca 85fe       |    |		Call	0x2,-0x2
03cb 00e3       |    |		Load_Encached	Natural_Cache
03cc 03f1       |    |		Declare_Variable	Discrete,With_Value
03cd			BODY_03c0:
03cd 00d8       |    |		Load_Top	At_Offset_0
03ce 00da       |    |		Load_Top	At_Offset_2
03cf 01dc       |    |		Execute	Vector,Last
03d0 027d       | }  |		Execute	Discrete,Greater
03d1 7005       |p   |		Jump_Nonzero	0x3d7
03d2 00d8       |    |		Load_Top	At_Offset_0
03d3 00da       |    |		Load_Top	At_Offset_2
03d4 01dd       |    |		Execute	Vector,First
03d5 027c       | |  |		Execute	Discrete,Less
03d6 6801       |h   |		Jump_Zero	0x3d8
03d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03d8 00d8       |    |		Load_Top	At_Offset_0
03d9 e402       |    |		Load	0x2,0x2
03da 822d       | -  |		Call	0x1,0x2d
03db a402       |    |		Store_Unchecked	0x2,0x2
03dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03dd 0000 0000  |    |		.XXX[0x3]
03df 0000       |    |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 0406       |    |		.CONST	0x0406								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0004       |    |		.CONST	0x0004								; Number of locals
03e3			INIT_03e0:
03e3 e407       |    |		Load	0x2,0x7
03e4 e5fd       |    |		Load	0x2,-0x3
03e5 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03e6 01d5       |    |		Execute	Vector,Field_Reference
03e7 e002       |    |		Load	0x0,0x2
03e8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03e9 00d8       |    |		Load_Top	At_Offset_0
03ea 85fe       |    |		Call	0x2,-0x2
03eb 4801       |H   |		Short_Literal	0x1
03ec e402       |    |		Load	0x2,0x2
03ed 00da       |    |		Load_Top	At_Offset_2
03ee 0272       | r  |		Execute	Discrete,Minus
03ef 0a01       |    |		Execute_Immediate	Plus,0x1
03f0 00d8       |    |		Load_Top	At_Offset_0
03f1 00e2       |    |		Load_Encached	Integer_Cache
03f2 0260       | `  |		Execute	Discrete,In_Type
03f3 7001       |p   |		Jump_Nonzero	0x3f5
03f4 0801       |    |		Execute_Immediate	Raise,0x1
03f5 00e9       |    |		Load_Encached	String_Cache
03f6 035b       | [  |		Declare_Type	Array,Constrained
03f7 0337       | 7  |		Declare_Variable	Array
03f8 00d8       |    |		Load_Top	At_Offset_0
03f9 0335       | 5  |		Declare_Variable	Array,Duplicate
03fa 00cd       |    |		Action	Spare6_Action
03fb 00d9       |    |		Load_Top	At_Offset_1
03fc 01d9       |    |		Execute	Vector,Reverse_Bounds
03fd 0263       | c  |		Execute	Discrete,Above_Bound
03fe 7005       |p   |		Jump_Nonzero	0x404
03ff 4820       |H   |		Short_Literal	0x20
0400 00d9       |    |		Load_Top	At_Offset_1
0401 e605       |    |		Load	0x3,0x5
0402 01d6       |    |		Execute	Vector,Field_Write
0403 3ffb       |?   |		Loop_Increasing	0x3ff
0404 00d9       |    |		Load_Top	At_Offset_1
0405 01d4       |    |		Execute	Vector,Structure_Write
0406			BODY_03e0:
0406 00d9       |    |		Load_Top	At_Offset_1
0407 00db       |    |		Load_Top	At_Offset_3
0408 01dc       |    |		Execute	Vector,Last
0409 027d       | }  |		Execute	Discrete,Greater
040a 7005       |p   |		Jump_Nonzero	0x410
040b 00d9       |    |		Load_Top	At_Offset_1
040c 00db       |    |		Load_Top	At_Offset_3
040d 01dd       |    |		Execute	Vector,First
040e 027c       | |  |		Execute	Discrete,Less
040f 680a       |h   |		Jump_Zero	0x41a
0410 e407       |    |		Load	0x2,0x7
0411 e5fd       |    |		Load	0x2,-0x3
0412 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0413 01d5       |    |		Execute	Vector,Field_Reference
0414 00d8       |    |		Load_Top	At_Offset_0
0415 e602       |    |		Load	0x3,0x2
0416 e002       |    |		Load	0x0,0x2
0417 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0418 00d2       |    |		Pop_Control	Pop_Count_2
0419 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
041a e407       |    |		Load	0x2,0x7
041b e5fd       |    |		Load	0x2,-0x3
041c 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
041d 01d5       |    |		Execute	Vector,Field_Reference
041e 00d8       |    |		Load_Top	At_Offset_0
041f e602       |    |		Load	0x3,0x2
0420 01dd       |    |		Execute	Vector,First
0421 e603       |    |		Load	0x3,0x3
0422 0aff       |    |		Execute_Immediate	Plus,-0x1
0423 e602       |    |		Load	0x3,0x2
0424 01cf       |    |		Execute	Vector,Slice_Read
0425 00db       |    |		Load_Top	At_Offset_3
0426 01cc       |    |		Execute	Vector,Catenate
0427 e603       |    |		Load	0x3,0x3
0428 e602       |    |		Load	0x3,0x2
0429 01dc       |    |		Execute	Vector,Last
042a e602       |    |		Load	0x3,0x2
042b 01cf       |    |		Execute	Vector,Slice_Read
042c 01cc       |    |		Execute	Vector,Catenate
042d e002       |    |		Load	0x0,0x2
042e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
042f 00d2       |    |		Pop_Control	Pop_Count_2
0430 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0431 0000 0000  |    |		.BLANK	0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			BODY_0438:
043b			INIT_0438:
043b			INIT_0438:
043b 4608       |F   |		Jump_Case	0x9
043c 7808       |x   |		Jump	0x445								; case 0x0
043d 7811       |x   |		Jump	0x44f								; case 0x1
043e 7827       |x'  |		Jump	0x466								; case 0x2
043f 7826       |x&  |		Jump	0x466								; case 0x3
0440 7825       |x%  |		Jump	0x466								; case 0x4
0441 7824       |x$  |		Jump	0x466								; case 0x5
0442 7823       |x#  |		Jump	0x466								; case 0x6
0443 780f       |x   |		Jump	0x453								; case 0x7
0444 7817       |x   |		Jump	0x45c								; case 0x8
0445 00da       |    |		Load_Top	At_Offset_2
0446 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0447 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0448 4801       |H   |		Short_Literal	0x1
0449 00db       |    |		Load_Top	At_Offset_3
044a 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
044b 4800       |H   |		Short_Literal	0x0
044c 00db       |    |		Load_Top	At_Offset_3
044d 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
044e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
044f 00da       |    |		Load_Top	At_Offset_2
0450 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0451 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0452 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0453 00db       |    |		Load_Top	At_Offset_3
0454 4801       |H   |		Short_Literal	0x1
0455 e5fe       |    |		Load	0x2,-0x2
0456 e22b       | +  |		Load	0x1,0x2b
0457 035b       | [  |		Declare_Type	Array,Constrained
0458 4801       |H   |		Short_Literal	0x1
0459 e5ff       |    |		Load	0x2,-0x1
045a 031b       |    |		Declare_Type	Variant_Record,Constrained
045b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
045c 00db       |    |		Load_Top	At_Offset_3
045d 00db       |    |		Load_Top	At_Offset_3
045e 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
045f 4801       |H   |		Short_Literal	0x1
0460 e5fe       |    |		Load	0x2,-0x2
0461 e22b       | +  |		Load	0x1,0x2b
0462 0334       | 4  |		Declare_Variable	Array,With_Constraint
0463 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
0464 016a       | j  |		QQ_execute	Variant_Record,XXX
0465 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0466 0869       | i  |		Execute_Immediate	Raise,0x69
0467 0000       |    |		.XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug Table
0468 ; --------------------------------------------------------------------------------------
0468 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x714a,0x0000,0x0001,0x0022
046e 000b 04f6  |    |		.DBG4T	0x000b,0x04f6,0xc000,0x0000
0472 0062 0516  | b  |		.DBG4T	0x0062,0x0516,0xc000,0x0000
0476 00a3 0530  |   0|		.DBG4T	0x00a3,0x0530,0x1001,0x0000
047a 00b3 0534  |   4|		.DBG4T	0x00b3,0x0534,0x1001,0x0000
047e 00eb 053b  |   ;|		.DBG4T	0x00eb,0x053b,0x1001,0x0000
0482 0113 0542  |   B|		.DBG4T	0x0113,0x0542,0x1001,0x0000
0486 014b 054a  | K J|		.DBG4T	0x014b,0x054a,0x1001,0x0000
048a 016b 0551  | k Q|		.DBG4T	0x016b,0x0551,0x1001,0x0000
048e 0193 0558  |   X|		.DBG4T	0x0193,0x0558,0x1002,0x0000
0492 019b 055b  |   [|		.DBG4T	0x019b,0x055b,0x1002,0x0000
0496 01c3 0563  |   c|		.DBG4T	0x01c3,0x0563,0x1001,0x0000
049a 01e3 0568  |   h|		.DBG4T	0x01e3,0x0568,0x1001,0x0000
049e 0203 056d  |   m|		.DBG4T	0x0203,0x056d,0x1001,0x0000
04a2 021b 0572  |   r|		.DBG4T	0x021b,0x0572,0x1001,0x0000
04a6 0233 0577  | 3 w|		.DBG4T	0x0233,0x0577,0x1001,0x0000
04aa 024b 057c  | K ||		.DBG4T	0x024b,0x057c,0x3801,0x0002
04ae 026b 0582  | k  |		.DBG4T	0x026b,0x0582,0x3801,0x0002
04b2 02a3 0589  |    |		.DBG4T	0x02a3,0x0589,0x3801,0x0002
04b6 02c3 0590  |    |		.DBG4T	0x02c3,0x0590,0x3801,0x0002
04ba 02e3 0595  |    |		.DBG4T	0x02e3,0x0595,0x3801,0x0002
04be 02fb 0599  |    |		.DBG4T	0x02fb,0x0599,0x1001,0x0000
04c2 030b 059d  |    |		.DBG4T	0x030b,0x059d,0x1002,0x0000
04c6 031b 05a0  |    |		.DBG4T	0x031b,0x05a0,0x1002,0x0000
04ca 032b 05a3  | +  |		.DBG4T	0x032b,0x05a3,0x1001,0x0000
04ce 033b 0000  | ;  |		.DBG4T	0x033b,0x0000,0x1005,0x0000
04d2 036b 05a6  | k  |		.DBG4T	0x036b,0x05a6,0x1002,0x0000
04d6 0383 05ab  |    |		.DBG4T	0x0383,0x05ab,0x1002,0x0000
04da 038b 05ae  |    |		.DBG4T	0x038b,0x05ae,0x1002,0x0000
04de 0393 05b1  |    |		.DBG4T	0x0393,0x05b1,0x1002,0x0000
04e2 039b 05b4  |    |		.DBG4T	0x039b,0x05b4,0x1804,0x0002
04e6 03b3 05b9  |    |		.DBG4T	0x03b3,0x05b9,0x1802,0x0002
04ea 03c3 05bc  |    |		.DBG4T	0x03c3,0x05bc,0x1804,0x0002
04ee 03e3 05c3  |    |		.DBG4T	0x03e3,0x05c3,0x1804,0x0002
04f2 043b 0000  | ;  |		.DBG4T	0x043b,0x0000,0x1005,0x0000
04f6 ; --------------------------------------------------------------------------------------
04f6 ; Debug chain
04f6 ; --------------------------------------------------------------------------------------
04f6 001e 0000  |    |		.DBGLEN	0x001e,0x0000
04f8 000b 0016  |    |		.DBGLNO	0x000b,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004c,0x0053,0x005d
0516 ; --------------------------------------------------------------------------------------
0516 ; Debug chain
0516 ; --------------------------------------------------------------------------------------
0516 0018 0000  |    |		.DBGLEN	0x0018,0x0000
0518 0062 0069  | b i|		.DBGLNO	0x0062,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095
0530 ; --------------------------------------------------------------------------------------
0530 ; Debug chain
0530 ; --------------------------------------------------------------------------------------
0530 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0532 00a3 00a6  |    |		.DBGLNO	0x00a3,0x00a6
0534 ; --------------------------------------------------------------------------------------
0534 ; Debug chain
0534 ; --------------------------------------------------------------------------------------
0534 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0536 00b3 00bc  |    |		.DBGLNO	0x00b3,0x00bc,0x00be,0x00d4,0x00db
053b ; --------------------------------------------------------------------------------------
053b ; Debug chain
053b ; --------------------------------------------------------------------------------------
053b 0000 0005  |    |		.DBGLEN	0x0000,0x0005
053d 00eb 00f6  |    |		.DBGLNO	0x00eb,0x00f6,0x00f8,0x0102,0x0107
0542 ; --------------------------------------------------------------------------------------
0542 ; Debug chain
0542 ; --------------------------------------------------------------------------------------
0542 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0544 0113 011e  |    |		.DBGLNO	0x0113,0x011e,0x0120,0x0132,0x013b,0x0140
054a ; --------------------------------------------------------------------------------------
054a ; Debug chain
054a ; --------------------------------------------------------------------------------------
054a 0000 0005  |    |		.DBGLEN	0x0000,0x0005
054c 014b 0150  | K P|		.DBGLNO	0x014b,0x0150,0x0152,0x015c,0x0166
0551 ; --------------------------------------------------------------------------------------
0551 ; Debug chain
0551 ; --------------------------------------------------------------------------------------
0551 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0553 016b 0170  | k p|		.DBGLNO	0x016b,0x0170,0x0183,0x0188,0x018e
0558 ; --------------------------------------------------------------------------------------
0558 ; Debug chain
0558 ; --------------------------------------------------------------------------------------
0558 0000 0001  |    |		.DBGLEN	0x0000,0x0001
055a 0193       |    |		.DBGLNO	0x0193
055b ; --------------------------------------------------------------------------------------
055b ; Debug chain
055b ; --------------------------------------------------------------------------------------
055b 0001 0005  |    |		.DBGLEN	0x0001,0x0005
055d 019b 019e  |    |		.DBGLNO	0x019b,0x019e,0x01a3,0x01ad,0x01af,0x01b7
0563 ; --------------------------------------------------------------------------------------
0563 ; Debug chain
0563 ; --------------------------------------------------------------------------------------
0563 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0565 01c4 01c9  |    |		.DBGLNO	0x01c4,0x01c9,0x01d7
0568 ; --------------------------------------------------------------------------------------
0568 ; Debug chain
0568 ; --------------------------------------------------------------------------------------
0568 0000 0003  |    |		.DBGLEN	0x0000,0x0003
056a 01e4 01e9  |    |		.DBGLNO	0x01e4,0x01e9,0x01f8
056d ; --------------------------------------------------------------------------------------
056d ; Debug chain
056d ; --------------------------------------------------------------------------------------
056d 0002 0001  |    |		.DBGLEN	0x0002,0x0001
056f 0203 0205  |    |		.DBGLNO	0x0203,0x0205,0x020e
0572 ; --------------------------------------------------------------------------------------
0572 ; Debug chain
0572 ; --------------------------------------------------------------------------------------
0572 0002 0001  |    |		.DBGLEN	0x0002,0x0001
0574 021b 021d  |    |		.DBGLNO	0x021b,0x021d,0x0226
0577 ; --------------------------------------------------------------------------------------
0577 ; Debug chain
0577 ; --------------------------------------------------------------------------------------
0577 0002 0001  |    |		.DBGLEN	0x0002,0x0001
0579 0233 0235  | 3 5|		.DBGLNO	0x0233,0x0235,0x023e
057c ; --------------------------------------------------------------------------------------
057c ; Debug chain
057c ; --------------------------------------------------------------------------------------
057c 0001 0003  |    |		.DBGLEN	0x0001,0x0003
057e 024b 0254  | K T|		.DBGLNO	0x024b,0x0254,0x0259,0x025d
0582 ; --------------------------------------------------------------------------------------
0582 ; Debug chain
0582 ; --------------------------------------------------------------------------------------
0582 0003 0002  |    |		.DBGLEN	0x0003,0x0002
0584 026b 027b  | k {|		.DBGLNO	0x026b,0x027b,0x027d,0x0289,0x0295
0589 ; --------------------------------------------------------------------------------------
0589 ; Debug chain
0589 ; --------------------------------------------------------------------------------------
0589 0001 0004  |    |		.DBGLEN	0x0001,0x0004
058b 02a3 02aa  |    |		.DBGLNO	0x02a3,0x02aa,0x02af,0x02b3,0x02b8
0590 ; --------------------------------------------------------------------------------------
0590 ; Debug chain
0590 ; --------------------------------------------------------------------------------------
0590 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0592 02c4 02c9  |    |		.DBGLNO	0x02c4,0x02c9,0x02dd
0595 ; --------------------------------------------------------------------------------------
0595 ; Debug chain
0595 ; --------------------------------------------------------------------------------------
0595 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0597 02e4 02e9  |    |		.DBGLNO	0x02e4,0x02e9
0599 ; --------------------------------------------------------------------------------------
0599 ; Debug chain
0599 ; --------------------------------------------------------------------------------------
0599 0000 0002  |    |		.DBGLEN	0x0000,0x0002
059b 02fb 02ff  |    |		.DBGLNO	0x02fb,0x02ff
059d ; --------------------------------------------------------------------------------------
059d ; Debug chain
059d ; --------------------------------------------------------------------------------------
059d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
059f 030b       |    |		.DBGLNO	0x030b
05a0 ; --------------------------------------------------------------------------------------
05a0 ; Debug chain
05a0 ; --------------------------------------------------------------------------------------
05a0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05a2 031b       |    |		.DBGLNO	0x031b
05a3 ; --------------------------------------------------------------------------------------
05a3 ; Debug chain
05a3 ; --------------------------------------------------------------------------------------
05a3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05a5 032b       | +  |		.DBGLNO	0x032b
05a6 ; --------------------------------------------------------------------------------------
05a6 ; Debug chain
05a6 ; --------------------------------------------------------------------------------------
05a6 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05a8 036b 036f  | k o|		.DBGLNO	0x036b,0x036f,0x0376
05ab ; --------------------------------------------------------------------------------------
05ab ; Debug chain
05ab ; --------------------------------------------------------------------------------------
05ab 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05ad 0383       |    |		.DBGLNO	0x0383
05ae ; --------------------------------------------------------------------------------------
05ae ; Debug chain
05ae ; --------------------------------------------------------------------------------------
05ae 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05b0 038b       |    |		.DBGLNO	0x038b
05b1 ; --------------------------------------------------------------------------------------
05b1 ; Debug chain
05b1 ; --------------------------------------------------------------------------------------
05b1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05b3 0393       |    |		.DBGLNO	0x0393
05b4 ; --------------------------------------------------------------------------------------
05b4 ; Debug chain
05b4 ; --------------------------------------------------------------------------------------
05b4 0001 0002  |    |		.DBGLEN	0x0001,0x0002
05b6 039b 03a1  |    |		.DBGLNO	0x039b,0x03a1,0x03a4
05b9 ; --------------------------------------------------------------------------------------
05b9 ; Debug chain
05b9 ; --------------------------------------------------------------------------------------
05b9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
05bb 03b3       |    |		.DBGLNO	0x03b3
05bc ; --------------------------------------------------------------------------------------
05bc ; Debug chain
05bc ; --------------------------------------------------------------------------------------
05bc 0002 0003  |    |		.DBGLEN	0x0002,0x0003
05be 03c3 03c9  |    |		.DBGLNO	0x03c3,0x03c9,0x03cd,0x03d7,0x03d8
05c3 ; --------------------------------------------------------------------------------------
05c3 ; Debug chain
05c3 ; --------------------------------------------------------------------------------------
05c3 0003 0003  |    |		.DBGLEN	0x0003,0x0003
05c5 03e3 03e9  |    |		.DBGLNO	0x03e3,0x03e9,0x03eb,0x0406,0x0410,0x041a
05cb 0000 0000  |    |		.BLANK	0000[0x35]