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

⟦55e621a77⟧

    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 0440       | @  |		.CONST	0x0440								; 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 0094       |    |		.CONST	0x0094								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002a       | *  |		.CONST	0x002a								; 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 041b  |    |		Declare_Subprogram	INIT_0418,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 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
001a 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,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 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0022 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0024 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0026 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0028 e001       |    |		Load	0x0,0x1
0029 0129       | )  |		Execute	Any,Make_Visible
002a 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
002c 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
002e 029a 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call,Visible,Unelaborated
0030 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated
0032 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0034 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
0036 029a 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call,Visible,Unelaborated
0038 029a 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Outer_Call,Visible,Unelaborated
003a 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
003c 029a 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call,Visible,Unelaborated
003e 4818       |H   |		Short_Literal	0x18
003f 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
0040 029a 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call,Visible,Unelaborated
0042 029a 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call,Visible,Unelaborated
0044 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
0046 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
0048 e002       |    |		Load	0x0,0x2
0049 e003       |    |		Load	0x0,0x3
004a 4850       |HP  |		Short_Literal	0x50
004b e004       |    |		Load	0x0,0x4
004c 0387       |    |		Declare_Variable	Package
004d 00d8       |    |		Load_Top	At_Offset_0
004e 020f       |    |		Execute	Module,Activate
004f 00d8       |    |		Load_Top	At_Offset_0
0050 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0051 00e4       |    |		Load_Encached	Positive_Cache
0052 0266       | f  |		Execute	Discrete,Bounds
0053 00da       |    |		Load_Top	At_Offset_2
0054 02a0       |    |		Declare_Subprogram	Null_Subprogram
0055 4801       |H   |		Short_Literal	0x1
0056 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0057 00e4       |    |		Load_Encached	Positive_Cache
0058 00e3       |    |		Load_Encached	Natural_Cache
0059 00da       |    |		Load_Top	At_Offset_2
005a 029f 041b  |    |		Declare_Subprogram	INIT_0418,For_Call
005c 4800       |H   |		Short_Literal	0x0
005d 4801       |H   |		Short_Literal	0x1
005e 4802       |H   |		Short_Literal	0x2
005f e20d       |    |		Load	0x1,0xd
0060 0307       |    |		Complete_Type	Variant_Record,By_Defining
0061 e20d       |    |		Load	0x1,0xd
0062 02a0       |    |		Declare_Subprogram	Null_Subprogram
0063 e222       | "  |		Load	0x1,0x22
0064 03c7       |    |		Complete_Type	Access,By_Defining
0065 00bf       |    |		Action	Accept_Activation
0066 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 029d 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call
0088 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0091 00c7       |    |		Action	Elaborate_Subprogram
0092 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0093 00c7       |    |		Action	Elaborate_Subprogram
0094			BODY_0008:
0094 00bc       |    |		Action	Signal_Activated
0095 00bb       |    |		Action	Signal_Completion
0096 0000 0000  |    |		.XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 4801       |H   |		Short_Literal	0x1
009c 00db       |    |		Load_Top	At_Offset_3
009d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
009e 4800       |H   |		Short_Literal	0x0
009f 00db       |    |		Load_Top	At_Offset_3
00a0 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00a1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a2 0000 0000  |    |		.BLANK	0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00ad e5fe       |    |		Load	0x2,-0x2
00ae 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00af 0273       | s  |		Execute	Discrete,Plus
00b0 e5fe       |    |		Load	0x2,-0x2
00b1 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00b2 027d       | }  |		Execute	Discrete,Greater
00b3 6802       |h   |		Jump_Zero	0xb6
00b4 e217       |    |		Load	0x1,0x17
00b5 0257       | W  |		Execute	Discrete,Raise
00b6 00cf       |    |		Action	Mark_Auxiliary
00b7 00db       |    |		Load_Top	At_Offset_3
00b8 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00b9 4801       |H   |		Short_Literal	0x1
00ba 0263       | c  |		Execute	Discrete,Above_Bound
00bb 7018       |p   |		Jump_Nonzero	0xd4
00bc e5fe       |    |		Load	0x2,-0x2
00bd 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00be e5fe       |    |		Load	0x2,-0x2
00bf 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 0273       | s  |		Execute	Discrete,Plus
00c2 0aff       |    |		Execute_Immediate	Plus,-0x1
00c3 00d8       |    |		Load_Top	At_Offset_0
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 01d7       |    |		Execute	Vector,Field_Read
00c6 00db       |    |		Load_Top	At_Offset_3
00c7 e5ff       |    |		Load	0x2,-0x1
00c8 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00c9 01d7       |    |		Execute	Vector,Field_Read
00ca e227       | '  |		Load	0x1,0x27
00cb 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00cc e227       | '  |		Load	0x1,0x27
00cd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00ce 00d9       |    |		Load_Top	At_Offset_1
00cf 00db       |    |		Load_Top	At_Offset_3
00d0 01d6       |    |		Execute	Vector,Field_Write
00d1 00d2       |    |		Pop_Control	Pop_Count_2
00d2 00c8       |    |		Action	Pop_Auxiliary_Range
00d3 3fe8       |?   |		Loop_Increasing	0xbc
00d4 00ce       |    |		Action	Pop_Auxiliary
00d5 00db       |    |		Load_Top	At_Offset_3
00d6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00d7 00db       |    |		Load_Top	At_Offset_3
00d8 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00d9 0273       | s  |		Execute	Discrete,Plus
00da e5fe       |    |		Load	0x2,-0x2
00db 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00dc 00db       |    |		Load_Top	At_Offset_3
00dd 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00de 00db       |    |		Load_Top	At_Offset_3
00df 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00e0 0273       | s  |		Execute	Discrete,Plus
00e1 e5fe       |    |		Load	0x2,-0x2
00e2 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e4 0000 0000  |    |		.BLANK	0000[0x4]
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 6802       |h   |		Jump_Zero	0xf3
00f1 e217       |    |		Load	0x1,0x17
00f2 0257       | W  |		Execute	Discrete,Raise
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00f5 e5fe       |    |		Load	0x2,-0x2
00f6 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f7 00d8       |    |		Load_Top	At_Offset_0
00f8 00da       |    |		Load_Top	At_Offset_2
00f9 01d7       |    |		Execute	Vector,Field_Read
00fa e5ff       |    |		Load	0x2,-0x1
00fb e227       | '  |		Load	0x1,0x27
00fc 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00fd 00d9       |    |		Load_Top	At_Offset_1
00fe 00db       |    |		Load_Top	At_Offset_3
00ff 01d6       |    |		Execute	Vector,Field_Write
0100 00d2       |    |		Pop_Control	Pop_Count_2
0101 00db       |    |		Load_Top	At_Offset_3
0102 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0103 0a01       |    |		Execute_Immediate	Plus,0x1
0104 e5fe       |    |		Load	0x2,-0x2
0105 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0106 00db       |    |		Load_Top	At_Offset_3
0107 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0108 0a01       |    |		Execute_Immediate	Plus,0x1
0109 e5fe       |    |		Load	0x2,-0x2
010a 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
010b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010c 0000 0000  |    |		.BLANK	0000[0x4]
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 6802       |h   |		Jump_Zero	0x11b
0119 e217       |    |		Load	0x1,0x17
011a 0257       | W  |		Execute	Discrete,Raise
011b 00cf       |    |		Action	Mark_Auxiliary
011c 4801       |H   |		Short_Literal	0x1
011d e5fe       |    |		Load	0x2,-0x2
011e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
011f 0264       | d  |		Execute	Discrete,Below_Bound
0120 7015       |p   |		Jump_Nonzero	0x136
0121 e5fe       |    |		Load	0x2,-0x2
0122 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0123 00d9       |    |		Load_Top	At_Offset_1
0124 0a01       |    |		Execute_Immediate	Plus,0x1
0125 00d8       |    |		Load_Top	At_Offset_0
0126 00da       |    |		Load_Top	At_Offset_2
0127 01d7       |    |		Execute	Vector,Field_Read
0128 00db       |    |		Load_Top	At_Offset_3
0129 e5fe       |    |		Load	0x2,-0x2
012a 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
012b 01d7       |    |		Execute	Vector,Field_Read
012c e227       | '  |		Load	0x1,0x27
012d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
012e e227       | '  |		Load	0x1,0x27
012f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0130 00d9       |    |		Load_Top	At_Offset_1
0131 00db       |    |		Load_Top	At_Offset_3
0132 01d6       |    |		Execute	Vector,Field_Write
0133 00d2       |    |		Pop_Control	Pop_Count_2
0134 00c8       |    |		Action	Pop_Auxiliary_Range
0135 37eb       |7   |		Loop_Decreasing	0x121
0136 00ce       |    |		Action	Pop_Auxiliary
0137 00db       |    |		Load_Top	At_Offset_3
0138 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0139 4801       |H   |		Short_Literal	0x1
013a 00d9       |    |		Load_Top	At_Offset_1
013b 01d7       |    |		Execute	Vector,Field_Read
013c e5ff       |    |		Load	0x2,-0x1
013d e227       | '  |		Load	0x1,0x27
013e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
013f 4801       |H   |		Short_Literal	0x1
0140 00da       |    |		Load_Top	At_Offset_2
0141 01d6       |    |		Execute	Vector,Field_Write
0142 00d1       |    |		Pop_Control	Pop_Count_1
0143 00db       |    |		Load_Top	At_Offset_3
0144 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0145 0a01       |    |		Execute_Immediate	Plus,0x1
0146 e5fe       |    |		Load	0x2,-0x2
0147 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0148 00db       |    |		Load_Top	At_Offset_3
0149 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
014a 0a01       |    |		Execute_Immediate	Plus,0x1
014b e5fe       |    |		Load	0x2,-0x2
014c 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
014d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
014e 0000 0000  |    |		.XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00db       |    |		Load_Top	At_Offset_3
0154 e5fd       |    |		Load	0x2,-0x3
0155 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0156 027a       | z  |		Execute	Discrete,Less_Equal
0157 e5fe       |    |		Load	0x2,-0x2
0158 e5fd       |    |		Load	0x2,-0x3
0159 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
015a 027a       | z  |		Execute	Discrete,Less_Equal
015b 0279       | y  |		Execute	Discrete,And
015c 680e       |h   |		Jump_Zero	0x16b
015d e5fd       |    |		Load	0x2,-0x3
015e 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
015f e5fe       |    |		Load	0x2,-0x2
0160 00d8       |    |		Load_Top	At_Offset_0
0161 00da       |    |		Load_Top	At_Offset_2
0162 01d7       |    |		Execute	Vector,Field_Read
0163 e5ff       |    |		Load	0x2,-0x1
0164 e227       | '  |		Load	0x1,0x27
0165 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0166 00d9       |    |		Load_Top	At_Offset_1
0167 00db       |    |		Load_Top	At_Offset_3
0168 01d6       |    |		Execute	Vector,Field_Write
0169 00d2       |    |		Pop_Control	Pop_Count_2
016a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
016b e217       |    |		Load	0x1,0x17
016c 0257       | W  |		Execute	Discrete,Raise
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00da       |    |		Load_Top	At_Offset_2
0174 e5fe       |    |		Load	0x2,-0x2
0175 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0176 027a       | z  |		Execute	Discrete,Less_Equal
0177 681e       |h   |		Jump_Zero	0x196
0178 00da       |    |		Load_Top	At_Offset_2
0179 0a01       |    |		Execute_Immediate	Plus,0x1
017a 00d8       |    |		Load_Top	At_Offset_0
017b 00e2       |    |		Load_Encached	Integer_Cache
017c 0260       | `  |		Execute	Discrete,In_Type
017d 7001       |p   |		Jump_Nonzero	0x17f
017e 0801       |    |		Execute_Immediate	Raise,0x1
017f e5fe       |    |		Load	0x2,-0x2
0180 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0181 e5fe       |    |		Load	0x2,-0x2
0182 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0183 01cf       |    |		Execute	Vector,Slice_Read
0184 00db       |    |		Load_Top	At_Offset_3
0185 e5fe       |    |		Load	0x2,-0x2
0186 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0187 0aff       |    |		Execute_Immediate	Plus,-0x1
0188 e5fe       |    |		Load	0x2,-0x2
0189 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
018a 01ce       |    |		Execute	Vector,Slice_Write
018b 00db       |    |		Load_Top	At_Offset_3
018c 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
018d 0aff       |    |		Execute_Immediate	Plus,-0x1
018e e5fe       |    |		Load	0x2,-0x2
018f 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0190 00db       |    |		Load_Top	At_Offset_3
0191 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0192 0aff       |    |		Execute_Immediate	Plus,-0x1
0193 e5fe       |    |		Load	0x2,-0x2
0194 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0195 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0196 e217       |    |		Load	0x1,0x17
0197 0257       | W  |		Execute	Discrete,Raise
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00da       |    |		Load_Top	At_Offset_2
019c 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
019d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019e 0000 0000  |    |		.XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5       |    |		.CONST	0x01a5								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 e227       | '  |		Load	0x1,0x27
01a4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01a5			BODY_01a0:
01a5 00cf       |    |		Action	Mark_Auxiliary
01a6 e5ff       |    |		Load	0x2,-0x1
01a7 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01a8 4801       |H   |		Short_Literal	0x1
01a9 0263       | c  |		Execute	Discrete,Above_Bound
01aa 7013       |p   |		Jump_Nonzero	0x1be
01ab 00db       |    |		Load_Top	At_Offset_3
01ac 00d9       |    |		Load_Top	At_Offset_1
01ad e5ff       |    |		Load	0x2,-0x1
01ae 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01af 01d7       |    |		Execute	Vector,Field_Read
01b0 e227       | '  |		Load	0x1,0x27
01b1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01b2 e227       | '  |		Load	0x1,0x27
01b3 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01b4 c402       |    |		Store	0x2,0x2
01b5 e5fe       |    |		Load	0x2,-0x2
01b6 6805       |h   |		Jump_Zero	0x1bc
01b7 00db       |    |		Load_Top	At_Offset_3
01b8 480a       |H   |		Short_Literal	0xa
01b9 e227       | '  |		Load	0x1,0x27
01ba 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01bb c402       |    |		Store	0x2,0x2
01bc 00c8       |    |		Action	Pop_Auxiliary_Range
01bd 3fed       |?   |		Loop_Increasing	0x1ab
01be 00ce       |    |		Action	Pop_Auxiliary
01bf 00d8       |    |		Load_Top	At_Offset_0
01c0 e227       | '  |		Load	0x1,0x27
01c1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01c2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01c3 0000 0000  |    |		.BLANK	0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 01e1       |    |		.CONST	0x01e1								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00cf       |    |		Action	Mark_Auxiliary
01cc e5fe       |    |		Load	0x2,-0x2
01cd 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01ce 4801       |H   |		Short_Literal	0x1
01cf 0263       | c  |		Execute	Discrete,Above_Bound
01d0 700f       |p   |		Jump_Nonzero	0x1e0
01d1 e5fe       |    |		Load	0x2,-0x2
01d2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01d3 00d9       |    |		Load_Top	At_Offset_1
01d4 00d8       |    |		Load_Top	At_Offset_0
01d5 00da       |    |		Load_Top	At_Offset_2
01d6 01d7       |    |		Execute	Vector,Field_Read
01d7 e5ff       |    |		Load	0x2,-0x1
01d8 e227       | '  |		Load	0x1,0x27
01d9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01da 00d9       |    |		Load_Top	At_Offset_1
01db 00db       |    |		Load_Top	At_Offset_3
01dc 01d6       |    |		Execute	Vector,Field_Write
01dd 00d2       |    |		Pop_Control	Pop_Count_2
01de 00c8       |    |		Action	Pop_Auxiliary_Range
01df 3ff1       |?   |		Loop_Increasing	0x1d1
01e0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01e1			TRAP_01c8:
01e1 010e       |    |		Execute	Exception,Is_Constraint_Error
01e2 6802       |h   |		Jump_Zero	0x1e5
01e3 e217       |    |		Load	0x1,0x17
01e4 0257       | W  |		Execute	Discrete,Raise
01e5 0100       |    |		Execute	Exception,Raise
01e6 0000 0000  |    |		.XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0202       |    |		.CONST	0x0202								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00cf       |    |		Action	Mark_Auxiliary
01ec e5fe       |    |		Load	0x2,-0x2
01ed 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01ee 4801       |H   |		Short_Literal	0x1
01ef 0263       | c  |		Execute	Discrete,Above_Bound
01f0 7010       |p   |		Jump_Nonzero	0x201
01f1 e5fe       |    |		Load	0x2,-0x2
01f2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01f3 00d9       |    |		Load_Top	At_Offset_1
01f4 00d8       |    |		Load_Top	At_Offset_0
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 01d7       |    |		Execute	Vector,Field_Read
01f7 e5ff       |    |		Load	0x2,-0x1
01f8 4801       |H   |		Short_Literal	0x1
01f9 e227       | '  |		Load	0x1,0x27
01fa 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01fb 00d9       |    |		Load_Top	At_Offset_1
01fc 00db       |    |		Load_Top	At_Offset_3
01fd 01d6       |    |		Execute	Vector,Field_Write
01fe 00d2       |    |		Pop_Control	Pop_Count_2
01ff 00c8       |    |		Action	Pop_Auxiliary_Range
0200 3ff0       |?   |		Loop_Increasing	0x1f1
0201 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0202			TRAP_01e8:
0202 010e       |    |		Execute	Exception,Is_Constraint_Error
0203 6802       |h   |		Jump_Zero	0x206
0204 e217       |    |		Load	0x1,0x17
0205 0257       | W  |		Execute	Discrete,Raise
0206 0100       |    |		Execute	Exception,Raise
0207 0000       |    |		.XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0216       |    |		.CONST	0x0216								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0006       |    |		.CONST	0x0006								; Number of locals
020b			INIT_0208:
020b 029f 035b  |   [|		Declare_Subprogram	INIT_0358,For_Call
020d 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
020e 00c6       |    |		Action	Check_Subprogram_Elaborated
020f 4802       |H   |		Short_Literal	0x2
0210 4802       |H   |		Short_Literal	0x2
0211 0099       |    |		Action	Reference_Dynamic
0212 e005       |    |		Load	0x0,0x5
0213 e006       |    |		Load	0x0,0x6
0214 4806       |H   |		Short_Literal	0x6
0215 0007       |    |		Action	Break_Optional
0216			BODY_0208:
0216 e5fe       |    |		Load	0x2,-0x2
0217 4803       |H   |		Short_Literal	0x3
0218 4802       |H   |		Short_Literal	0x2
0219 0099       |    |		Action	Reference_Dynamic
021a 4804       |H   |		Short_Literal	0x4
021b 4802       |H   |		Short_Literal	0x2
021c 0099       |    |		Action	Reference_Dynamic
021d 8220       |    |		Call	0x1,0x20
021e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
021f 0000       |    |		.XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022e       | .  |		.CONST	0x022e								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0006       |    |		.CONST	0x0006								; Number of locals
0223			INIT_0220:
0223 029f 0363  |   c|		Declare_Subprogram	INIT_0360,For_Call
0225 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0226 00c6       |    |		Action	Check_Subprogram_Elaborated
0227 4802       |H   |		Short_Literal	0x2
0228 4802       |H   |		Short_Literal	0x2
0229 0099       |    |		Action	Reference_Dynamic
022a e007       |    |		Load	0x0,0x7
022b e008       |    |		Load	0x0,0x8
022c 4806       |H   |		Short_Literal	0x6
022d 0007       |    |		Action	Break_Optional
022e			BODY_0220:
022e e5fe       |    |		Load	0x2,-0x2
022f 4803       |H   |		Short_Literal	0x3
0230 4802       |H   |		Short_Literal	0x2
0231 0099       |    |		Action	Reference_Dynamic
0232 4804       |H   |		Short_Literal	0x4
0233 4802       |H   |		Short_Literal	0x2
0234 0099       |    |		Action	Reference_Dynamic
0235 8220       |    |		Call	0x1,0x20
0236 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0237 0000       |    |		.XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0246       | F  |		.CONST	0x0246								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0006       |    |		.CONST	0x0006								; Number of locals
023b			INIT_0238:
023b 029f 036b  |   k|		Declare_Subprogram	INIT_0368,For_Call
023d 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
023e 00c6       |    |		Action	Check_Subprogram_Elaborated
023f 4802       |H   |		Short_Literal	0x2
0240 4802       |H   |		Short_Literal	0x2
0241 0099       |    |		Action	Reference_Dynamic
0242 e009       |    |		Load	0x0,0x9
0243 e00a       |    |		Load	0x0,0xa
0244 4806       |H   |		Short_Literal	0x6
0245 0007       |    |		Action	Break_Optional
0246			BODY_0238:
0246 e5fe       |    |		Load	0x2,-0x2
0247 4803       |H   |		Short_Literal	0x3
0248 4802       |H   |		Short_Literal	0x2
0249 0099       |    |		Action	Reference_Dynamic
024a 4804       |H   |		Short_Literal	0x4
024b 4802       |H   |		Short_Literal	0x2
024c 0099       |    |		Action	Reference_Dynamic
024d 8220       |    |		Call	0x1,0x20
024e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
024f 0000       |    |		.XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 025b       | [  |		.CONST	0x025b								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0003       |    |		.CONST	0x0003								; Number of locals
0253			INIT_0250:
0253 e5fd       |    |		Load	0x2,-0x3
0254 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0255 e20d       |    |		Load	0x1,0xd
0256 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0257 00d8       |    |		Load_Top	At_Offset_0
0258 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0259 029f 0373  |   s|		Declare_Subprogram	INIT_0370,For_Call
025b			BODY_0250:
025b 00cf       |    |		Action	Mark_Auxiliary
025c e5fd       |    |		Load	0x2,-0x3
025d 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
025e 4801       |H   |		Short_Literal	0x1
025f 0263       | c  |		Execute	Discrete,Above_Bound
0260 7003       |p   |		Jump_Nonzero	0x264
0261 8403       |    |		Call	0x2,0x3
0262 00c8       |    |		Action	Pop_Auxiliary_Range
0263 3ffd       |?   |		Loop_Increasing	0x261
0264 00ce       |    |		Action	Pop_Auxiliary
0265 00d9       |    |		Load_Top	At_Offset_1
0266 e5fd       |    |		Load	0x2,-0x3
0267 016d       | m  |		Execute	Variant_Record,Structure_Write
0268 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0269 0000 0000  |    |		.BLANK	0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 028f       |    |		.CONST	0x028f								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 000a       |    |		.CONST	0x000a								; Number of locals
0273			INIT_0270:
0273 4801       |H   |		Short_Literal	0x1
0274 e5fd       |    |		Load	0x2,-0x3
0275 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0276 e229       | )  |		Load	0x1,0x29
0277 035b       | [  |		Declare_Type	Array,Constrained
0278 0337       | 7  |		Declare_Variable	Array
0279 4801       |H   |		Short_Literal	0x1
027a e5fd       |    |		Load	0x2,-0x3
027b 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
027c e5fd       |    |		Load	0x2,-0x3
027d 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
027e 01cf       |    |		Execute	Vector,Slice_Read
027f 00d9       |    |		Load_Top	At_Offset_1
0280 01d4       |    |		Execute	Vector,Structure_Write
0281 029f 038b  |    |		Declare_Subprogram	INIT_0388,For_Call
0283 a00b       |    |		Store_Unchecked	0x0,0xb
0284 00c6       |    |		Action	Check_Subprogram_Elaborated
0285 e228       | (  |		Load	0x1,0x28
0286 00e4       |    |		Load_Encached	Positive_Cache
0287 e229       | )  |		Load	0x1,0x29
0288 4803       |H   |		Short_Literal	0x3
0289 4802       |H   |		Short_Literal	0x2
028a 0099       |    |		Action	Reference_Dynamic
028b e00c       |    |		Load	0x0,0xc
028c e00d       |    |		Load	0x0,0xd
028d 480a       |H   |		Short_Literal	0xa
028e 0007       |    |		Action	Break_Optional
028f			BODY_0270:
028f e402       |    |		Load	0x2,0x2
0290 e404       |    |		Load	0x2,0x4
0291 e405       |    |		Load	0x2,0x5
0292 e406       |    |		Load	0x2,0x6
0293 4807       |H   |		Short_Literal	0x7
0294 4802       |H   |		Short_Literal	0x2
0295 0099       |    |		Action	Reference_Dynamic
0296 4808       |H   |		Short_Literal	0x8
0297 4802       |H   |		Short_Literal	0x2
0298 0099       |    |		Action	Reference_Dynamic
0299 800b       |    |		Call	0x0,0xb
029a 00d1       |    |		Pop_Control	Pop_Count_1
029b e402       |    |		Load	0x2,0x2
029c 4801       |H   |		Short_Literal	0x1
029d e5fd       |    |		Load	0x2,-0x3
029e 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
029f e5fd       |    |		Load	0x2,-0x3
02a0 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02a1 01ce       |    |		Execute	Vector,Slice_Write
02a2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02a3 0000 0000  |    |		.BLANK	0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b1       |    |		.CONST	0x02b1								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0004       |    |		.CONST	0x0004								; Number of locals
02ab			INIT_02a8:
02ab 00e3       |    |		Load_Encached	Natural_Cache
02ac 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02ad 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
02af 029f 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Call
02b1			BODY_02a8:
02b1 00cf       |    |		Action	Mark_Auxiliary
02b2 e5fd       |    |		Load	0x2,-0x3
02b3 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02b4 4801       |H   |		Short_Literal	0x1
02b5 0263       | c  |		Execute	Discrete,Above_Bound
02b6 7003       |p   |		Jump_Nonzero	0x2ba
02b7 8403       |    |		Call	0x2,0x3
02b8 00c8       |    |		Action	Pop_Auxiliary_Range
02b9 3ffd       |?   |		Loop_Increasing	0x2b7
02ba 00c9       |    |		Action	Pop_Auxiliary_Loop
02bb e5fd       |    |		Load	0x2,-0x3
02bc 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02bd 4801       |H   |		Short_Literal	0x1
02be 0263       | c  |		Execute	Discrete,Above_Bound
02bf 7003       |p   |		Jump_Nonzero	0x2c3
02c0 8404       |    |		Call	0x2,0x4
02c1 00c8       |    |		Action	Pop_Auxiliary_Range
02c2 3ffd       |?   |		Loop_Increasing	0x2c0
02c3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02c4 0000 0000  |    |		.BLANK	0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00cf       |    |		Action	Mark_Auxiliary
02cc e5fd       |    |		Load	0x2,-0x3
02cd 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02ce 4801       |H   |		Short_Literal	0x1
02cf 0263       | c  |		Execute	Discrete,Above_Bound
02d0 7015       |p   |		Jump_Nonzero	0x2e6
02d1 e5fd       |    |		Load	0x2,-0x3
02d2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02d3 00d9       |    |		Load_Top	At_Offset_1
02d4 00d8       |    |		Load_Top	At_Offset_0
02d5 00da       |    |		Load_Top	At_Offset_2
02d6 01d7       |    |		Execute	Vector,Field_Read
02d7 00db       |    |		Load_Top	At_Offset_3
02d8 e5fd       |    |		Load	0x2,-0x3
02d9 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02da 01d7       |    |		Execute	Vector,Field_Read
02db e227       | '  |		Load	0x1,0x27
02dc 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02dd 85fe       |    |		Call	0x2,-0x2
02de e227       | '  |		Load	0x1,0x27
02df 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02e0 00d9       |    |		Load_Top	At_Offset_1
02e1 00db       |    |		Load_Top	At_Offset_3
02e2 01d6       |    |		Execute	Vector,Field_Write
02e3 00d2       |    |		Pop_Control	Pop_Count_2
02e4 00c8       |    |		Action	Pop_Auxiliary_Range
02e5 3feb       |?   |		Loop_Increasing	0x2d1
02e6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e7 0000       |    |		.XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb       |    |		.CONST	0x02eb								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0001       |    |		.CONST	0x0001								; Number of locals
02eb			BODY_02e8:
02eb			INIT_02e8:
02eb 00cf       |    |		Action	Mark_Auxiliary
02ec e5fd       |    |		Load	0x2,-0x3
02ed 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02ee 4801       |H   |		Short_Literal	0x1
02ef 0263       | c  |		Execute	Discrete,Above_Bound
02f0 7009       |p   |		Jump_Nonzero	0x2fa
02f1 00d8       |    |		Load_Top	At_Offset_0
02f2 e5fd       |    |		Load	0x2,-0x3
02f3 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02f4 01d7       |    |		Execute	Vector,Field_Read
02f5 e227       | '  |		Load	0x1,0x27
02f6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02f7 85fe       |    |		Call	0x2,-0x2
02f8 00c8       |    |		Action	Pop_Auxiliary_Range
02f9 3ff7       |?   |		Loop_Increasing	0x2f1
02fa 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02fb 0000 0000  |    |		.BLANK	0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 00da       |    |		Load_Top	At_Offset_2
0304 e222       | "  |		Load	0x1,0x22
0305 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0306 a5fe       |    |		Store_Unchecked	0x2,-0x2
0307 4801       |H   |		Short_Literal	0x1
0308 e5fe       |    |		Load	0x2,-0x2
0309 0227       | '  |		Execute	Access,All_Reference
030a 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
030b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
030c 0000 0000  |    |		.BLANK	0000[0x4]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 00da       |    |		Load_Top	At_Offset_2
0314 0227       | '  |		Execute	Access,All_Reference
0315 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0316 00db       |    |		Load_Top	At_Offset_3
0317 0227       | '  |		Execute	Access,All_Reference
0318 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0319 027d       | }  |		Execute	Discrete,Greater
031a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
031b 0000 0000  |    |		.BLANK	0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 00da       |    |		Load_Top	At_Offset_2
0324 0227       | '  |		Execute	Access,All_Reference
0325 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0326 00db       |    |		Load_Top	At_Offset_3
0327 0227       | '  |		Execute	Access,All_Reference
0328 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0329 01d7       |    |		Execute	Vector,Field_Read
032a e227       | '  |		Load	0x1,0x27
032b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
032c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
032d 0000 0000  |    |		.XXX[0x3]
032f 0000       |    |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 00da       |    |		Load_Top	At_Offset_2
0334 0227       | '  |		Execute	Access,All_Reference
0335 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0336 0a01       |    |		Execute_Immediate	Plus,0x1
0337 00db       |    |		Load_Top	At_Offset_3
0338 0227       | '  |		Execute	Access,All_Reference
0339 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
033a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
033b 0000 0000  |    |		.BLANK	0000[0x5]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 00da       |    |		Load_Top	At_Offset_2
0344 e5fe       |    |		Load	0x2,-0x2
0345 027d       | }  |		Execute	Discrete,Greater
0346 6807       |h   |		Jump_Zero	0x34e
0347 00da       |    |		Load_Top	At_Offset_2
0348 00d8       |    |		Load_Top	At_Offset_0
0349 00e4       |    |		Load_Encached	Positive_Cache
034a 0260       | `  |		Execute	Discrete,In_Type
034b 7001       |p   |		Jump_Nonzero	0x34d
034c 0801       |    |		Execute_Immediate	Raise,0x1
034d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
034e 00db       |    |		Load_Top	At_Offset_3
034f 00d8       |    |		Load_Top	At_Offset_0
0350 00e4       |    |		Load_Encached	Positive_Cache
0351 0260       | `  |		Execute	Discrete,In_Type
0352 7001       |p   |		Jump_Nonzero	0x354
0353 0801       |    |		Execute_Immediate	Raise,0x1
0354 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0355 0000 0000  |    |		.XXX[0x3]
0357 0000       |    |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b e5ff       |    |		Load	0x2,-0x1
035c 00db       |    |		Load_Top	At_Offset_3
035d e00e       |    |		Load	0x0,0xe
035e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
035f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363       | c  |		.CONST	0x0363								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0001       |    |		.CONST	0x0001								; Number of locals
0363			BODY_0360:
0363			INIT_0360:
0363 e5ff       |    |		Load	0x2,-0x1
0364 00db       |    |		Load_Top	At_Offset_3
0365 e00e       |    |		Load	0x0,0xe
0366 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0367 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 e5ff       |    |		Load	0x2,-0x1
036c 00db       |    |		Load_Top	At_Offset_3
036d e00e       |    |		Load	0x0,0xe
036e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
036f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0379       | y  |		.CONST	0x0379								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0002       |    |		.CONST	0x0002								; Number of locals
0373			INIT_0370:
0373 e406       |    |		Load	0x2,0x6
0374 e5fd       |    |		Load	0x2,-0x3
0375 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0376 01d7       |    |		Execute	Vector,Field_Read
0377 e227       | '  |		Load	0x1,0x27
0378 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0379			BODY_0370:
0379 00d8       |    |		Load_Top	At_Offset_0
037a 85fe       |    |		Call	0x2,-0x2
037b 7004       |p   |		Jump_Nonzero	0x380
037c e402       |    |		Load	0x2,0x2
037d 00d9       |    |		Load_Top	At_Offset_1
037e 8211       |    |		Call	0x1,0x11
037f 00d1       |    |		Pop_Control	Pop_Count_1
0380 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0381 0000 0000  |    |		.BLANK	0000[0x7]
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 00db       |    |		Load_Top	At_Offset_3
038c e227       | '  |		Load	0x1,0x27
038d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
038e 00db       |    |		Load_Top	At_Offset_3
038f e227       | '  |		Load	0x1,0x27
0390 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0391 85fe       |    |		Call	0x2,-0x2
0392 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0393 0000 0000  |    |		.BLANK	0000[0x5]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a5       |    |		.CONST	0x03a5								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0003       |    |		.CONST	0x0003								; Number of locals
039b			INIT_0398:
039b e407       |    |		Load	0x2,0x7
039c e5fd       |    |		Load	0x2,-0x3
039d 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
039e 01d7       |    |		Execute	Vector,Field_Read
039f e227       | '  |		Load	0x1,0x27
03a0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03a1 00d8       |    |		Load_Top	At_Offset_0
03a2 85fe       |    |		Call	0x2,-0x2
03a3 00e3       |    |		Load_Encached	Natural_Cache
03a4 03f1       |    |		Declare_Variable	Discrete,With_Value
03a5			BODY_0398:
03a5 00d8       |    |		Load_Top	At_Offset_0
03a6 00da       |    |		Load_Top	At_Offset_2
03a7 01dc       |    |		Execute	Vector,Last
03a8 027d       | }  |		Execute	Discrete,Greater
03a9 7005       |p   |		Jump_Nonzero	0x3af
03aa 00d8       |    |		Load_Top	At_Offset_0
03ab 00da       |    |		Load_Top	At_Offset_2
03ac 01dd       |    |		Execute	Vector,First
03ad 027c       | |  |		Execute	Discrete,Less
03ae 6801       |h   |		Jump_Zero	0x3b0
03af 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03b0 00d8       |    |		Load_Top	At_Offset_0
03b1 e402       |    |		Load	0x2,0x2
03b2 822a       | *  |		Call	0x1,0x2a
03b3 a402       |    |		Store_Unchecked	0x2,0x2
03b4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03b5 0000 0000  |    |		.XXX[0x3]
03b7 0000       |    |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03de       |    |		.CONST	0x03de								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 0004       |    |		.CONST	0x0004								; Number of locals
03bb			INIT_03b8:
03bb e407       |    |		Load	0x2,0x7
03bc e5fd       |    |		Load	0x2,-0x3
03bd 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03be 01d7       |    |		Execute	Vector,Field_Read
03bf e227       | '  |		Load	0x1,0x27
03c0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03c1 00d8       |    |		Load_Top	At_Offset_0
03c2 85fe       |    |		Call	0x2,-0x2
03c3 4801       |H   |		Short_Literal	0x1
03c4 e402       |    |		Load	0x2,0x2
03c5 00da       |    |		Load_Top	At_Offset_2
03c6 0272       | r  |		Execute	Discrete,Minus
03c7 0a01       |    |		Execute_Immediate	Plus,0x1
03c8 00d8       |    |		Load_Top	At_Offset_0
03c9 00e2       |    |		Load_Encached	Integer_Cache
03ca 0260       | `  |		Execute	Discrete,In_Type
03cb 7001       |p   |		Jump_Nonzero	0x3cd
03cc 0801       |    |		Execute_Immediate	Raise,0x1
03cd 00e9       |    |		Load_Encached	String_Cache
03ce 035b       | [  |		Declare_Type	Array,Constrained
03cf 0337       | 7  |		Declare_Variable	Array
03d0 00d8       |    |		Load_Top	At_Offset_0
03d1 0335       | 5  |		Declare_Variable	Array,Duplicate
03d2 00cd       |    |		Action	Spare6_Action
03d3 00d9       |    |		Load_Top	At_Offset_1
03d4 01d9       |    |		Execute	Vector,Reverse_Bounds
03d5 0263       | c  |		Execute	Discrete,Above_Bound
03d6 7005       |p   |		Jump_Nonzero	0x3dc
03d7 4820       |H   |		Short_Literal	0x20
03d8 00d9       |    |		Load_Top	At_Offset_1
03d9 e605       |    |		Load	0x3,0x5
03da 01d6       |    |		Execute	Vector,Field_Write
03db 3ffb       |?   |		Loop_Increasing	0x3d7
03dc 00d9       |    |		Load_Top	At_Offset_1
03dd 01d4       |    |		Execute	Vector,Structure_Write
03de			BODY_03b8:
03de 00d9       |    |		Load_Top	At_Offset_1
03df 00db       |    |		Load_Top	At_Offset_3
03e0 01dc       |    |		Execute	Vector,Last
03e1 027d       | }  |		Execute	Discrete,Greater
03e2 7005       |p   |		Jump_Nonzero	0x3e8
03e3 00d9       |    |		Load_Top	At_Offset_1
03e4 00db       |    |		Load_Top	At_Offset_3
03e5 01dd       |    |		Execute	Vector,First
03e6 027c       | |  |		Execute	Discrete,Less
03e7 680e       |h   |		Jump_Zero	0x3f6
03e8 e5fd       |    |		Load	0x2,-0x3
03e9 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03ea e407       |    |		Load	0x2,0x7
03eb 00d8       |    |		Load_Top	At_Offset_0
03ec 00da       |    |		Load_Top	At_Offset_2
03ed 01d7       |    |		Execute	Vector,Field_Read
03ee e602       |    |		Load	0x3,0x2
03ef e227       | '  |		Load	0x1,0x27
03f0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03f1 00d9       |    |		Load_Top	At_Offset_1
03f2 00db       |    |		Load_Top	At_Offset_3
03f3 01d6       |    |		Execute	Vector,Field_Write
03f4 00d2       |    |		Pop_Control	Pop_Count_2
03f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03f6 e5fd       |    |		Load	0x2,-0x3
03f7 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
03f8 e407       |    |		Load	0x2,0x7
03f9 00d8       |    |		Load_Top	At_Offset_0
03fa 00da       |    |		Load_Top	At_Offset_2
03fb 01d7       |    |		Execute	Vector,Field_Read
03fc e602       |    |		Load	0x3,0x2
03fd 01dd       |    |		Execute	Vector,First
03fe e603       |    |		Load	0x3,0x3
03ff 0aff       |    |		Execute_Immediate	Plus,-0x1
0400 e602       |    |		Load	0x3,0x2
0401 01cf       |    |		Execute	Vector,Slice_Read
0402 e604       |    |		Load	0x3,0x4
0403 01cc       |    |		Execute	Vector,Catenate
0404 e603       |    |		Load	0x3,0x3
0405 e602       |    |		Load	0x3,0x2
0406 01dc       |    |		Execute	Vector,Last
0407 e602       |    |		Load	0x3,0x2
0408 01cf       |    |		Execute	Vector,Slice_Read
0409 01cc       |    |		Execute	Vector,Catenate
040a e227       | '  |		Load	0x1,0x27
040b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
040c 00d9       |    |		Load_Top	At_Offset_1
040d 00db       |    |		Load_Top	At_Offset_3
040e 01d6       |    |		Execute	Vector,Field_Write
040f 00d2       |    |		Pop_Control	Pop_Count_2
0410 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0411 0000 0000  |    |		.BLANK	0000[0x7]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			BODY_0418:
041b			INIT_0418:
041b			INIT_0418:
041b 4608       |F   |		Jump_Case	0x9
041c 7808       |x   |		Jump	0x425								; case 0x0
041d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
041e 7820       |x   |		Jump	0x43f								; case 0x2
041f 781f       |x   |		Jump	0x43f								; case 0x3
0420 781e       |x   |		Jump	0x43f								; case 0x4
0421 781d       |x   |		Jump	0x43f								; case 0x5
0422 781c       |x   |		Jump	0x43f								; case 0x6
0423 7808       |x   |		Jump	0x42c								; case 0x7
0424 7810       |x   |		Jump	0x435								; case 0x8
0425 4801       |H   |		Short_Literal	0x1
0426 00db       |    |		Load_Top	At_Offset_3
0427 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0428 4800       |H   |		Short_Literal	0x0
0429 00db       |    |		Load_Top	At_Offset_3
042a 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
042b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
042c 00db       |    |		Load_Top	At_Offset_3
042d 4801       |H   |		Short_Literal	0x1
042e e5fe       |    |		Load	0x2,-0x2
042f e229       | )  |		Load	0x1,0x29
0430 035b       | [  |		Declare_Type	Array,Constrained
0431 4801       |H   |		Short_Literal	0x1
0432 e5ff       |    |		Load	0x2,-0x1
0433 031b       |    |		Declare_Type	Variant_Record,Constrained
0434 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0435 00db       |    |		Load_Top	At_Offset_3
0436 00db       |    |		Load_Top	At_Offset_3
0437 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0438 4801       |H   |		Short_Literal	0x1
0439 e5fe       |    |		Load	0x2,-0x2
043a e229       | )  |		Load	0x1,0x29
043b 0334       | 4  |		Declare_Variable	Array,With_Constraint
043c 2d04       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
043d 016a       | j  |		QQ_execute	Variant_Record,XXX
043e 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
043f 0869       | i  |		Execute_Immediate	Raise,0x69
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug Table
0440 ; --------------------------------------------------------------------------------------
0440 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x714b,0x0000,0x0001,0x0021
0446 000b 04ca  |    |		.DBG4T	0x000b,0x04ca,0x8000,0x0000
044a 0066 04eb  | f  |		.DBG4T	0x0066,0x04eb,0x8000,0x0000
044e 009b 0504  |    |		.DBG4T	0x009b,0x0504,0x0001,0x0000
0452 00ab 0508  |    |		.DBG4T	0x00ab,0x0508,0x0001,0x0000
0456 00eb 0510  |    |		.DBG4T	0x00eb,0x0510,0x0001,0x0000
045a 0113 0517  |    |		.DBG4T	0x0113,0x0517,0x0001,0x0000
045e 0153 0520  | S  |		.DBG4T	0x0153,0x0520,0x0001,0x0000
0462 0173 0525  | s %|		.DBG4T	0x0173,0x0525,0x0001,0x0000
0466 019b 052c  |   ,|		.DBG4T	0x019b,0x052c,0x0002,0x0000
046a 01a3 052f  |   /|		.DBG4T	0x01a3,0x052f,0x0002,0x0000
046e 01cb 0537  |   7|		.DBG4T	0x01cb,0x0537,0x0001,0x0000
0472 01eb 053c  |   <|		.DBG4T	0x01eb,0x053c,0x0001,0x0000
0476 020b 0541  |   A|		.DBG4T	0x020b,0x0541,0x0001,0x0000
047a 0223 0546  | # F|		.DBG4T	0x0223,0x0546,0x0001,0x0000
047e 023b 054b  | ; K|		.DBG4T	0x023b,0x054b,0x0001,0x0000
0482 0253 0550  | S P|		.DBG4T	0x0253,0x0550,0x2801,0x0002
0486 0273 0556  | s V|		.DBG4T	0x0273,0x0556,0x2801,0x0002
048a 02ab 055d  |   ]|		.DBG4T	0x02ab,0x055d,0x2801,0x0002
048e 02cb 0564  |   d|		.DBG4T	0x02cb,0x0564,0x2801,0x0002
0492 02eb 0568  |   h|		.DBG4T	0x02eb,0x0568,0x2801,0x0002
0496 0303 056c  |   l|		.DBG4T	0x0303,0x056c,0x0001,0x0000
049a 0313 0570  |   p|		.DBG4T	0x0313,0x0570,0x0002,0x0000
049e 0323 0573  | # s|		.DBG4T	0x0323,0x0573,0x0002,0x0000
04a2 0333 0576  | 3 v|		.DBG4T	0x0333,0x0576,0x0001,0x0000
04a6 0343 0579  | C y|		.DBG4T	0x0343,0x0579,0x0002,0x0000
04aa 035b 057e  | [ ~|		.DBG4T	0x035b,0x057e,0x0002,0x0000
04ae 0363 0581  | c  |		.DBG4T	0x0363,0x0581,0x0002,0x0000
04b2 036b 0584  | k  |		.DBG4T	0x036b,0x0584,0x0002,0x0000
04b6 0373 0587  | s  |		.DBG4T	0x0373,0x0587,0x0804,0x0002
04ba 038b 058c  |    |		.DBG4T	0x038b,0x058c,0x0802,0x0002
04be 039b 058f  |    |		.DBG4T	0x039b,0x058f,0x0804,0x0002
04c2 03bb 0596  |    |		.DBG4T	0x03bb,0x0596,0x0804,0x0002
04c6 041b 0000  |    |		.DBG4T	0x041b,0x0000,0x0005,0x0000
04ca ; --------------------------------------------------------------------------------------
04ca ; Debug chain
04ca ; --------------------------------------------------------------------------------------
04ca 001f 0000  |    |		.DBGLEN	0x001f,0x0000
04cc 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,0x004f,0x0051,0x0057,0x0061
04eb ; --------------------------------------------------------------------------------------
04eb ; Debug chain
04eb ; --------------------------------------------------------------------------------------
04eb 0017 0000  |    |		.DBGLEN	0x0017,0x0000
04ed 0066 0068  | f h|		.DBGLNO	0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092
0504 ; --------------------------------------------------------------------------------------
0504 ; Debug chain
0504 ; --------------------------------------------------------------------------------------
0504 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0506 009b 009e  |    |		.DBGLNO	0x009b,0x009e
0508 ; --------------------------------------------------------------------------------------
0508 ; Debug chain
0508 ; --------------------------------------------------------------------------------------
0508 0000 0006  |    |		.DBGLEN	0x0000,0x0006
050a 00ab 00b4  |    |		.DBGLNO	0x00ab,0x00b4,0x00b7,0x00bc,0x00d5,0x00dc
0510 ; --------------------------------------------------------------------------------------
0510 ; Debug chain
0510 ; --------------------------------------------------------------------------------------
0510 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0512 00eb 00f1  |    |		.DBGLNO	0x00eb,0x00f1,0x00f3,0x0101,0x0106
0517 ; --------------------------------------------------------------------------------------
0517 ; Debug chain
0517 ; --------------------------------------------------------------------------------------
0517 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0519 0113 0119  |    |		.DBGLNO	0x0113,0x0119,0x011c,0x0121,0x0137,0x0143,0x0148
0520 ; --------------------------------------------------------------------------------------
0520 ; Debug chain
0520 ; --------------------------------------------------------------------------------------
0520 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0522 0153 015d  | S ]|		.DBGLNO	0x0153,0x015d,0x016b
0525 ; --------------------------------------------------------------------------------------
0525 ; Debug chain
0525 ; --------------------------------------------------------------------------------------
0525 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0527 0173 0178  | s x|		.DBGLNO	0x0173,0x0178,0x018b,0x0190,0x0196
052c ; --------------------------------------------------------------------------------------
052c ; Debug chain
052c ; --------------------------------------------------------------------------------------
052c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
052e 019b       |    |		.DBGLNO	0x019b
052f ; --------------------------------------------------------------------------------------
052f ; Debug chain
052f ; --------------------------------------------------------------------------------------
052f 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0531 01a3 01a6  |    |		.DBGLNO	0x01a3,0x01a6,0x01ab,0x01b5,0x01b7,0x01bf
0537 ; --------------------------------------------------------------------------------------
0537 ; Debug chain
0537 ; --------------------------------------------------------------------------------------
0537 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0539 01cc 01d1  |    |		.DBGLNO	0x01cc,0x01d1,0x01e3
053c ; --------------------------------------------------------------------------------------
053c ; Debug chain
053c ; --------------------------------------------------------------------------------------
053c 0000 0003  |    |		.DBGLEN	0x0000,0x0003
053e 01ec 01f1  |    |		.DBGLNO	0x01ec,0x01f1,0x0204
0541 ; --------------------------------------------------------------------------------------
0541 ; Debug chain
0541 ; --------------------------------------------------------------------------------------
0541 0002 0001  |    |		.DBGLEN	0x0002,0x0001
0543 020b 020d  |    |		.DBGLNO	0x020b,0x020d,0x0216
0546 ; --------------------------------------------------------------------------------------
0546 ; Debug chain
0546 ; --------------------------------------------------------------------------------------
0546 0002 0001  |    |		.DBGLEN	0x0002,0x0001
0548 0223 0225  | # %|		.DBGLNO	0x0223,0x0225,0x022e
054b ; --------------------------------------------------------------------------------------
054b ; Debug chain
054b ; --------------------------------------------------------------------------------------
054b 0002 0001  |    |		.DBGLEN	0x0002,0x0001
054d 023b 023d  | ; =|		.DBGLNO	0x023b,0x023d,0x0246
0550 ; --------------------------------------------------------------------------------------
0550 ; Debug chain
0550 ; --------------------------------------------------------------------------------------
0550 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0552 0253 025c  | S \|		.DBGLNO	0x0253,0x025c,0x0261,0x0265
0556 ; --------------------------------------------------------------------------------------
0556 ; Debug chain
0556 ; --------------------------------------------------------------------------------------
0556 0003 0002  |    |		.DBGLEN	0x0003,0x0002
0558 0273 0281  | s  |		.DBGLNO	0x0273,0x0281,0x0283,0x028f,0x029b
055d ; --------------------------------------------------------------------------------------
055d ; Debug chain
055d ; --------------------------------------------------------------------------------------
055d 0001 0004  |    |		.DBGLEN	0x0001,0x0004
055f 02ab 02b2  |    |		.DBGLNO	0x02ab,0x02b2,0x02b7,0x02bb,0x02c0
0564 ; --------------------------------------------------------------------------------------
0564 ; Debug chain
0564 ; --------------------------------------------------------------------------------------
0564 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0566 02cc 02d1  |    |		.DBGLNO	0x02cc,0x02d1
0568 ; --------------------------------------------------------------------------------------
0568 ; Debug chain
0568 ; --------------------------------------------------------------------------------------
0568 0000 0002  |    |		.DBGLEN	0x0000,0x0002
056a 02ec 02f1  |    |		.DBGLNO	0x02ec,0x02f1
056c ; --------------------------------------------------------------------------------------
056c ; Debug chain
056c ; --------------------------------------------------------------------------------------
056c 0000 0002  |    |		.DBGLEN	0x0000,0x0002
056e 0303 0307  |    |		.DBGLNO	0x0303,0x0307
0570 ; --------------------------------------------------------------------------------------
0570 ; Debug chain
0570 ; --------------------------------------------------------------------------------------
0570 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0572 0313       |    |		.DBGLNO	0x0313
0573 ; --------------------------------------------------------------------------------------
0573 ; Debug chain
0573 ; --------------------------------------------------------------------------------------
0573 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0575 0323       | #  |		.DBGLNO	0x0323
0576 ; --------------------------------------------------------------------------------------
0576 ; Debug chain
0576 ; --------------------------------------------------------------------------------------
0576 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0578 0333       | 3  |		.DBGLNO	0x0333
0579 ; --------------------------------------------------------------------------------------
0579 ; Debug chain
0579 ; --------------------------------------------------------------------------------------
0579 0000 0003  |    |		.DBGLEN	0x0000,0x0003
057b 0343 0347  | C G|		.DBGLNO	0x0343,0x0347,0x034e
057e ; --------------------------------------------------------------------------------------
057e ; Debug chain
057e ; --------------------------------------------------------------------------------------
057e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0580 035b       | [  |		.DBGLNO	0x035b
0581 ; --------------------------------------------------------------------------------------
0581 ; Debug chain
0581 ; --------------------------------------------------------------------------------------
0581 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0583 0363       | c  |		.DBGLNO	0x0363
0584 ; --------------------------------------------------------------------------------------
0584 ; Debug chain
0584 ; --------------------------------------------------------------------------------------
0584 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0586 036b       | k  |		.DBGLNO	0x036b
0587 ; --------------------------------------------------------------------------------------
0587 ; Debug chain
0587 ; --------------------------------------------------------------------------------------
0587 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0589 0373 0379  | s y|		.DBGLNO	0x0373,0x0379,0x037c
058c ; --------------------------------------------------------------------------------------
058c ; Debug chain
058c ; --------------------------------------------------------------------------------------
058c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
058e 038b       |    |		.DBGLNO	0x038b
058f ; --------------------------------------------------------------------------------------
058f ; Debug chain
058f ; --------------------------------------------------------------------------------------
058f 0002 0003  |    |		.DBGLEN	0x0002,0x0003
0591 039b 03a1  |    |		.DBGLNO	0x039b,0x03a1,0x03a5,0x03af,0x03b0
0596 ; --------------------------------------------------------------------------------------
0596 ; Debug chain
0596 ; --------------------------------------------------------------------------------------
0596 0003 0003  |    |		.DBGLEN	0x0003,0x0003
0598 03bb 03c1  |    |		.DBGLNO	0x03bb,0x03c1,0x03c3,0x03de,0x03e8,0x03f6
059e 0000 0000  |    |		.BLANK	0000[0x62]