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

⟦3f2fe70c1⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0508       |    |		.CONST	0x0508								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ac       |    |		.CONST	0x00ac								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0031       | 1  |		.CONST	0x0031								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4802       |H   |		Short_Literal	0x2
000d 029f 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0012 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0014 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0016 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0018 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
001a 00e2       |    |		Load_Encached	Integer_Cache
001b 0266       | f  |		Execute	Discrete,Bounds
001c 00e2       |    |		Load_Encached	Integer_Cache
001d 02a0       |    |		Declare_Subprogram	Null_Subprogram
001e 4801       |H   |		Short_Literal	0x1
001f 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0020 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0022 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0024 00bf       |    |		Action	Accept_Activation
0025 4801       |H   |		Short_Literal	0x1
0026 e20f       |    |		Load	0x1,0xf
0027 00e3       |    |		Load_Encached	Natural_Cache
0028 03f8       |    |		Declare_Type	Discrete,Constrained
0029 4801       |H   |		Short_Literal	0x1
002a 00d9       |    |		Load_Top	At_Offset_1
002b 0269       | i  |		Execute	Discrete,Last
002c 00e3       |    |		Load_Encached	Natural_Cache
002d 02a0       |    |		Declare_Subprogram	Null_Subprogram
002e 4801       |H   |		Short_Literal	0x1
002f 035d       | ]  |		Declare_Type	Array,Defined
0030 00e9       |    |		Load_Encached	String_Cache
0031 02a0       |    |		Declare_Subprogram	Null_Subprogram
0032 4818       |H   |		Short_Literal	0x18
0033 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0034 00e3       |    |		Load_Encached	Natural_Cache
0035 4800       |H   |		Short_Literal	0x0
0036 4801       |H   |		Short_Literal	0x1
0037 4801       |H   |		Short_Literal	0x1
0038 4803       |H   |		Short_Literal	0x3
0039 0318       |    |		Declare_Type	Variant_Record,Incomplete
003a 029f 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Call
003c 00d9       |    |		Load_Top	At_Offset_1
003d 012a       | *  |		Execute	Any,Change_Utility
003e 0007       |    |		Action	Break_Optional
003f 00d8       |    |		Load_Top	At_Offset_0
0040 02a0       |    |		Declare_Subprogram	Null_Subprogram
0041 4818       |H   |		Short_Literal	0x18
0042 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0043 00d8       |    |		Load_Top	At_Offset_0
0044 00e9       |    |		Load_Encached	String_Cache
0045 029f 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Call
0047 4800       |H   |		Short_Literal	0x0
0048 4801       |H   |		Short_Literal	0x1
0049 4801       |H   |		Short_Literal	0x1
004a e21d       |    |		Load	0x1,0x1d
004b 0307       |    |		Complete_Type	Variant_Record,By_Defining
004c 4801       |H   |		Short_Literal	0x1
004d e21a       |    |		Load	0x1,0x1a
004e 0269       | i  |		Execute	Discrete,Last
004f 00da       |    |		Load_Top	At_Offset_2
0050 02a0       |    |		Declare_Subprogram	Null_Subprogram
0051 4801       |H   |		Short_Literal	0x1
0052 035d       | ]  |		Declare_Type	Array,Defined
0053 4803       |H   |		Short_Literal	0x3
0054 032a       | *  |		Declare_Type	Record,Incomplete
0055 00d8       |    |		Load_Top	At_Offset_0
0056 02a0       |    |		Declare_Subprogram	Null_Subprogram
0057 4818       |H   |		Short_Literal	0x18
0058 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0059 00e2       |    |		Load_Encached	Integer_Cache
005a 0266       | f  |		Execute	Discrete,Bounds
005b 00da       |    |		Load_Top	At_Offset_2
005c 02a0       |    |		Declare_Subprogram	Null_Subprogram
005d 4801       |H   |		Short_Literal	0x1
005e 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
005f 00d9       |    |		Load_Top	At_Offset_1
0060 0007       |    |		Action	Break_Optional
0061 e21f       |    |		Load	0x1,0x1f
0062 e21b       |    |		Load	0x1,0x1b
0063 e221       | !  |		Load	0x1,0x21
0064 029f 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Call
0066 e220       |    |		Load	0x1,0x20
0067 0326       | &  |		Complete_Type	Record,By_Defining
0068 e21a       |    |		Load	0x1,0x1a
0069 0269       | i  |		Execute	Discrete,Last
006a e21a       |    |		Load	0x1,0x1a
006b 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
006c 00e1       |    |		Load_Encached	Boolean_Cache
006d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
006e e21b       |    |		Load	0x1,0x1b
006f 0337       | 7  |		Declare_Variable	Array
0070 00d8       |    |		Load_Top	At_Offset_0
0071 0335       | 5  |		Declare_Variable	Array,Duplicate
0072 00cd       |    |		Action	Spare6_Action
0073 00d9       |    |		Load_Top	At_Offset_1
0074 01d9       |    |		Execute	Vector,Reverse_Bounds
0075 0263       | c  |		Execute	Discrete,Above_Bound
0076 7005       |p   |		Jump_Nonzero	0x7c
0077 4800       |H   |		Short_Literal	0x0
0078 00d9       |    |		Load_Top	At_Offset_1
0079 e227       | '  |		Load	0x1,0x27
007a 01d6       |    |		Execute	Vector,Field_Write
007b 3ffb       |?   |		Loop_Increasing	0x77
007c 00d9       |    |		Load_Top	At_Offset_1
007d 01d4       |    |		Execute	Vector,Structure_Write
007e 4801       |H   |		Short_Literal	0x1
007f e21a       |    |		Load	0x1,0x1a
0080 0269       | i  |		Execute	Discrete,Last
0081 e21c       |    |		Load	0x1,0x1c
0082 02a0       |    |		Declare_Subprogram	Null_Subprogram
0083 4801       |H   |		Short_Literal	0x1
0084 035d       | ]  |		Declare_Type	Array,Defined
0085 00d8       |    |		Load_Top	At_Offset_0
0086 0337       | 7  |		Declare_Variable	Array
0087 00e3       |    |		Load_Encached	Natural_Cache
0088 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0089 4801       |H   |		Short_Literal	0x1
008a e21a       |    |		Load	0x1,0x1a
008b 0269       | i  |		Execute	Discrete,Last
008c e211       |    |		Load	0x1,0x11
008d 02a0       |    |		Declare_Subprogram	Null_Subprogram
008e 4801       |H   |		Short_Literal	0x1
008f 035d       | ]  |		Declare_Type	Array,Defined
0090 00d8       |    |		Load_Top	At_Offset_0
0091 0337       | 7  |		Declare_Variable	Array
0092 029d 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call
0094 029d 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call
0096 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0097 00c7       |    |		Action	Elaborate_Subprogram
0098 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0099 00c7       |    |		Action	Elaborate_Subprogram
009a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
009b 00c7       |    |		Action	Elaborate_Subprogram
009c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
009d 00c7       |    |		Action	Elaborate_Subprogram
009e 029d 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call
00a0 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
00a1 00c7       |    |		Action	Elaborate_Subprogram
00a2 029d 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call
00a4 029d 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Outer_Call
00a6 029d 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call
00a8 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
00ab 00c7       |    |		Action	Elaborate_Subprogram
00ac			BODY_0008:
00ac 00cf       |    |		Action	Mark_Auxiliary
00ad e21a       |    |		Load	0x1,0x1a
00ae 0269       | i  |		Execute	Discrete,Last
00af 4801       |H   |		Short_Literal	0x1
00b0 0263       | c  |		Execute	Discrete,Above_Bound
00b1 700c       |p   |		Jump_Nonzero	0xbe
00b2 4800       |H   |		Short_Literal	0x0
00b3 00d9       |    |		Load_Top	At_Offset_1
00b4 e22b       | +  |		Load	0x1,0x2b
00b5 01d6       |    |		Execute	Vector,Field_Write
00b6 00ea       |    |		Load_Encached	Null_String_Cache
00b7 e21c       |    |		Load	0x1,0x1c
00b8 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00b9 00d9       |    |		Load_Top	At_Offset_1
00ba e228       | (  |		Load	0x1,0x28
00bb 01d6       |    |		Execute	Vector,Field_Write
00bc 00c8       |    |		Action	Pop_Auxiliary_Range
00bd 3ff4       |?   |		Loop_Increasing	0xb2
00be 00ce       |    |		Action	Pop_Auxiliary
00bf 00bc       |    |		Action	Signal_Activated
00c0 00bb       |    |		Action	Signal_Completion
00c1 0000 0000  |    |		.BLANK	0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 4607       |F   |		Jump_Case	0x8
00cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00cd 7806       |x   |		Jump	0xd4								; case 0x1
00ce 7809       |x   |		Jump	0xd8								; case 0x2
00cf 780d       |x   |		Jump	0xdd								; case 0x3
00d0 7810       |x   |		Jump	0xe1								; case 0x4
00d1 7811       |x   |		Jump	0xe3								; case 0x5
00d2 7812       |x   |		Jump	0xe5								; case 0x6
00d3 7815       |x   |		Jump	0xe9								; case 0x7
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 0091 04f1  |    |		Action	Push_String_Extended_Indexed,0x4f1				; "LEFT"
00d7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d8 00db       |    |		Load_Top	At_Offset_3
00d9 00db       |    |		Load_Top	At_Offset_3
00da 00e0       |    |		Load_Encached	Standard_Cache
00db 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00dd 00da       |    |		Load_Top	At_Offset_2
00de 00e0       |    |		Load_Encached	Standard_Cache
00df 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e3 00db       |    |		Load_Top	At_Offset_3
00e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e5 e211       |    |		Load	0x1,0x11
00e6 00dc       |    |		Load_Top	At_Offset_4
00e7 0267       | g  |		Execute	Discrete,Predecessor
00e8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e9 e211       |    |		Load	0x1,0x11
00ea 00dc       |    |		Load_Top	At_Offset_4
00eb 0268       | h  |		Execute	Discrete,Successor
00ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ed 0000 0000  |    |		.XXX[0x3]
00ef 0000       |    |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 e229       | )  |		Load	0x1,0x29
00f4 0a01       |    |		Execute_Immediate	Plus,0x1
00f5 c229       | )  |		Store	0x1,0x29
00f6 00db       |    |		Load_Top	At_Offset_3
00f7 e229       | )  |		Load	0x1,0x29
00f8 e22b       | +  |		Load	0x1,0x2b
00f9 01d6       |    |		Execute	Vector,Field_Write
00fa 00da       |    |		Load_Top	At_Offset_2
00fb e21c       |    |		Load	0x1,0x1c
00fc 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00fd e229       | )  |		Load	0x1,0x29
00fe e228       | (  |		Load	0x1,0x28
00ff 01d6       |    |		Execute	Vector,Field_Write
0100 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b e224       | $  |		Load	0x1,0x24
010c e21a       |    |		Load	0x1,0x1a
010d 0269       | i  |		Execute	Discrete,Last
010e 027f       |    |		Execute	Discrete,Equal
010f 6809       |h   |		Jump_Zero	0x119
0110 e221       | !  |		Load	0x1,0x21
0111 03bc       |    |		Declare_Variable	Access,By_Allocation
0112 00d8       |    |		Load_Top	At_Offset_0
0113 0227       | '  |		Execute	Access,All_Reference
0114 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0115 a223       | #  |		Store_Unchecked	0x1,0x23
0116 4801       |H   |		Short_Literal	0x1
0117 c224       | $  |		Store	0x1,0x24
0118 7803       |x   |		Jump	0x11c
0119 e224       | $  |		Load	0x1,0x24
011a 0a01       |    |		Execute_Immediate	Plus,0x1
011b c224       | $  |		Store	0x1,0x24
011c 00da       |    |		Load_Top	At_Offset_2
011d 822d       | -  |		Call	0x1,0x2d
011e 4800       |H   |		Short_Literal	0x0
011f a225       | %  |		Store_Unchecked	0x1,0x25
0120 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b e225       | %  |		Load	0x1,0x25
012c 6803       |h   |		Jump_Zero	0x130
012d 00da       |    |		Load_Top	At_Offset_2
012e 822d       | -  |		Call	0x1,0x2d
012f 7802       |x   |		Jump	0x132
0130 00da       |    |		Load_Top	At_Offset_2
0131 8213       |    |		Call	0x1,0x13
0132 4801       |H   |		Short_Literal	0x1
0133 a225       | %  |		Store_Unchecked	0x1,0x25
0134 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b e225       | %  |		Load	0x1,0x25
013c 6803       |h   |		Jump_Zero	0x140
013d 4800       |H   |		Short_Literal	0x0
013e a225       | %  |		Store_Unchecked	0x1,0x25
013f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0140 0092 04f4  |    |		Action	Push_String_Extended,0x4f4					; "(none)"
0142 8213       |    |		Call	0x1,0x13
0143 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0155       | U  |		.CONST	0x0155								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0006       |    |		.CONST	0x0006								; Number of locals
014b			INIT_0148:
014b 029f 0333  |   3|		Declare_Subprogram	INIT_0330,For_Call
014d 029f 0353  |   S|		Declare_Subprogram	INIT_0350,For_Call
014f 029f 0363  |   c|		Declare_Subprogram	INIT_0360,For_Call
0151 029f 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Call
0153 029f 0463  |   c|		Declare_Subprogram	INIT_0460,For_Call
0155			BODY_0148:
0155 e223       | #  |		Load	0x1,0x23
0156 8406       |    |		Call	0x2,0x6
0157 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 016e       | n  |		.CONST	0x016e								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 000a       |    |		.CONST	0x000a								; Number of locals
015b			INIT_0158:
015b 4801       |H   |		Short_Literal	0x1
015c 822f       | /  |		Call	0x1,0x2f
015d e222       | "  |		Load	0x1,0x22
015e 035b       | [  |		Declare_Type	Array,Constrained
015f 0337       | 7  |		Declare_Variable	Array
0160 029f 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Call
0162 a001       |    |		Store_Unchecked	0x0,0x1
0163 00c6       |    |		Action	Check_Subprogram_Elaborated
0164 e221       | !  |		Load	0x1,0x21
0165 00e2       |    |		Load_Encached	Integer_Cache
0166 e222       | "  |		Load	0x1,0x22
0167 4803       |H   |		Short_Literal	0x3
0168 4802       |H   |		Short_Literal	0x2
0169 0099       |    |		Action	Reference_Dynamic
016a e002       |    |		Load	0x0,0x2
016b e003       |    |		Load	0x0,0x3
016c 480a       |H   |		Short_Literal	0xa
016d 0007       |    |		Action	Break_Optional
016e			BODY_0158:
016e e402       |    |		Load	0x2,0x2
016f 8230       | 0  |		Call	0x1,0x30
0170 00d1       |    |		Pop_Control	Pop_Count_1
0171 e402       |    |		Load	0x2,0x2
0172 e404       |    |		Load	0x2,0x4
0173 e405       |    |		Load	0x2,0x5
0174 e406       |    |		Load	0x2,0x6
0175 4807       |H   |		Short_Literal	0x7
0176 4802       |H   |		Short_Literal	0x2
0177 0099       |    |		Action	Reference_Dynamic
0178 4808       |H   |		Short_Literal	0x8
0179 4802       |H   |		Short_Literal	0x2
017a 0099       |    |		Action	Reference_Dynamic
017b 8001       |    |		Call	0x0,0x1
017c 00d1       |    |		Pop_Control	Pop_Count_1
017d e402       |    |		Load	0x2,0x2
017e 8231       | 1  |		Call	0x1,0x31
017f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0196       |    |		.CONST	0x0196								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 000a       |    |		.CONST	0x000a								; Number of locals
0183			INIT_0180:
0183 4801       |H   |		Short_Literal	0x1
0184 822f       | /  |		Call	0x1,0x2f
0185 e222       | "  |		Load	0x1,0x22
0186 035b       | [  |		Declare_Type	Array,Constrained
0187 0337       | 7  |		Declare_Variable	Array
0188 029f 04bb  |    |		Declare_Subprogram	INIT_04b8,For_Call
018a a001       |    |		Store_Unchecked	0x0,0x1
018b 00c6       |    |		Action	Check_Subprogram_Elaborated
018c e221       | !  |		Load	0x1,0x21
018d 00e2       |    |		Load_Encached	Integer_Cache
018e e222       | "  |		Load	0x1,0x22
018f 4803       |H   |		Short_Literal	0x3
0190 4802       |H   |		Short_Literal	0x2
0191 0099       |    |		Action	Reference_Dynamic
0192 e004       |    |		Load	0x0,0x4
0193 e005       |    |		Load	0x0,0x5
0194 480a       |H   |		Short_Literal	0xa
0195 0007       |    |		Action	Break_Optional
0196			BODY_0180:
0196 e402       |    |		Load	0x2,0x2
0197 8230       | 0  |		Call	0x1,0x30
0198 00d1       |    |		Pop_Control	Pop_Count_1
0199 e402       |    |		Load	0x2,0x2
019a e404       |    |		Load	0x2,0x4
019b e405       |    |		Load	0x2,0x5
019c e406       |    |		Load	0x2,0x6
019d 4807       |H   |		Short_Literal	0x7
019e 4802       |H   |		Short_Literal	0x2
019f 0099       |    |		Action	Reference_Dynamic
01a0 4808       |H   |		Short_Literal	0x8
01a1 4802       |H   |		Short_Literal	0x2
01a2 0099       |    |		Action	Reference_Dynamic
01a3 8001       |    |		Call	0x0,0x1
01a4 00d1       |    |		Pop_Control	Pop_Count_1
01a5 e402       |    |		Load	0x2,0x2
01a6 8231       | 1  |		Call	0x1,0x31
01a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab			INIT_01a8:
01ab 4608       |F   |		Jump_Case	0x9
01ac 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01ad 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01ae 7819       |x   |		Jump	0x1c8								; case 0x2
01af 7818       |x   |		Jump	0x1c8								; case 0x3
01b0 7817       |x   |		Jump	0x1c8								; case 0x4
01b1 7816       |x   |		Jump	0x1c8								; case 0x5
01b2 7815       |x   |		Jump	0x1c8								; case 0x6
01b3 7801       |x   |		Jump	0x1b5								; case 0x7
01b4 7809       |x   |		Jump	0x1be								; case 0x8
01b5 00db       |    |		Load_Top	At_Offset_3
01b6 4801       |H   |		Short_Literal	0x1
01b7 e5fe       |    |		Load	0x2,-0x2
01b8 00e9       |    |		Load_Encached	String_Cache
01b9 035b       | [  |		Declare_Type	Array,Constrained
01ba 4801       |H   |		Short_Literal	0x1
01bb e5ff       |    |		Load	0x2,-0x1
01bc 031b       |    |		Declare_Type	Variant_Record,Constrained
01bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01be 00db       |    |		Load_Top	At_Offset_3
01bf 00db       |    |		Load_Top	At_Offset_3
01c0 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
01c1 4801       |H   |		Short_Literal	0x1
01c2 e5fe       |    |		Load	0x2,-0x2
01c3 00e9       |    |		Load_Encached	String_Cache
01c4 0334       | 4  |		Declare_Variable	Array,With_Constraint
01c5 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
01c6 016a       | j  |		QQ_execute	Variant_Record,XXX
01c7 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c8 0869       | i  |		Execute_Immediate	Raise,0x69
01c9 0000 0000  |    |		.BLANK	0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 4608       |F   |		Jump_Case	0x9
01d4 7808       |x   |		Jump	0x1dd								; case 0x0
01d5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01d6 781e       |x   |		Jump	0x1f5								; case 0x2
01d7 781d       |x   |		Jump	0x1f5								; case 0x3
01d8 781c       |x   |		Jump	0x1f5								; case 0x4
01d9 781b       |x   |		Jump	0x1f5								; case 0x5
01da 781a       |x   |		Jump	0x1f5								; case 0x6
01db 7819       |x   |		Jump	0x1f5								; case 0x7
01dc 7818       |x   |		Jump	0x1f5								; case 0x8
01dd e220       |    |		Load	0x1,0x20
01de 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
01df 0337       | 7  |		Declare_Variable	Array
01e0 e220       |    |		Load	0x1,0x20
01e1 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
01e2 01d9       |    |		Execute	Vector,Reverse_Bounds
01e3 0263       | c  |		Execute	Discrete,Above_Bound
01e4 7005       |p   |		Jump_Nonzero	0x1ea
01e5 4800       |H   |		Short_Literal	0x0
01e6 00d9       |    |		Load_Top	At_Offset_1
01e7 e402       |    |		Load	0x2,0x2
01e8 01d6       |    |		Execute	Vector,Field_Write
01e9 3ffb       |?   |		Loop_Increasing	0x1e5
01ea 00db       |    |		Load_Top	At_Offset_3
01eb 00d9       |    |		Load_Top	At_Offset_1
01ec 00d9       |    |		Load_Top	At_Offset_1
01ed 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
01ee 0119       |    |		Execute	Any,Check_In_Formal_Type
01ef 00d1       |    |		Pop_Control	Pop_Count_1
01f0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f1 e223       | #  |		Load	0x1,0x23
01f2 00db       |    |		Load_Top	At_Offset_3
01f3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01f5 0869       | i  |		Execute_Immediate	Raise,0x69
01f6 0000 0000  |    |		.XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc e5fe       |    |		Load	0x2,-0x2
01fd 027b       | {  |		Execute	Discrete,Greater_Equal
01fe 6802       |h   |		Jump_Zero	0x201
01ff 00da       |    |		Load_Top	At_Offset_2
0200 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0201 00db       |    |		Load_Top	At_Offset_3
0202 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0203 0000 0000  |    |		.BLANK	0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 021b       |    |		.CONST	0x021b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0004       |    |		.CONST	0x0004								; Number of locals
020b			INIT_0208:
020b e224       | $  |		Load	0x1,0x24
020c e223       | #  |		Load	0x1,0x23
020d 0227       | '  |		Execute	Access,All_Reference
020e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
020f 01d5       |    |		Execute	Vector,Field_Reference
0210 0007       |    |		Action	Break_Optional
0211 e224       | $  |		Load	0x1,0x24
0212 e223       | #  |		Load	0x1,0x23
0213 0227       | '  |		Execute	Access,All_Reference
0214 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0215 01d5       |    |		Execute	Vector,Field_Reference
0216 0007       |    |		Action	Break_Optional
0217 e224       | $  |		Load	0x1,0x24
0218 e226       | &  |		Load	0x1,0x26
0219 01d5       |    |		Execute	Vector,Field_Reference
021a 0007       |    |		Action	Break_Optional
021b			BODY_0208:
021b 00da       |    |		Load_Top	At_Offset_2
021c 7004       |p   |		Jump_Nonzero	0x221
021d e5ff       |    |		Load	0x2,-0x1
021e 01db       |    |		Execute	Vector,Length
021f c403       |    |		Store	0x2,0x3
0220 7808       |x   |		Jump	0x229
0221 00d9       |    |		Load_Top	At_Offset_1
0222 e210       |    |		Load	0x1,0x10
0223 01db       |    |		Execute	Vector,Length
0224 0273       | s  |		Execute	Discrete,Plus
0225 e5ff       |    |		Load	0x2,-0x1
0226 01db       |    |		Execute	Vector,Length
0227 0273       | s  |		Execute	Discrete,Plus
0228 c403       |    |		Store	0x2,0x3
0229 00d9       |    |		Load_Top	At_Offset_1
022a 00d9       |    |		Load_Top	At_Offset_1
022b 027d       | }  |		Execute	Discrete,Greater
022c 6802       |h   |		Jump_Zero	0x22f
022d 00d9       |    |		Load_Top	At_Offset_1
022e a404       |    |		Store_Unchecked	0x2,0x4
022f e5ff       |    |		Load	0x2,-0x1
0230 01db       |    |		Execute	Vector,Length
0231 e21d       |    |		Load	0x1,0x1d
0232 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0233 e5ff       |    |		Load	0x2,-0x1
0234 00d9       |    |		Load_Top	At_Offset_1
0235 00d8       |    |		Load_Top	At_Offset_0
0236 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0237 00da       |    |		Load_Top	At_Offset_2
0238 01da       |    |		Execute	Vector,Bounds
0239 00da       |    |		Load_Top	At_Offset_2
023a 01da       |    |		Execute	Vector,Bounds
023b 00da       |    |		Load_Top	At_Offset_2
023c 027f       |    |		Execute	Discrete,Equal
023d 7001       |p   |		Jump_Nonzero	0x23f
023e 08e0       |    |		Execute_Immediate	Raise,0xe0
023f 00cd       |    |		Action	Spare6_Action
0240 027f       |    |		Execute	Discrete,Equal
0241 7001       |p   |		Jump_Nonzero	0x243
0242 08e0       |    |		Execute_Immediate	Raise,0xe0
0243 00d2       |    |		Pop_Control	Pop_Count_2
0244 00d9       |    |		Load_Top	At_Offset_1
0245 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0246 00db       |    |		Load_Top	At_Offset_3
0247 00d9       |    |		Load_Top	At_Offset_1
0248 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0249 e21e       |    |		Load	0x1,0x1e
024a 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
024b a402       |    |		Store_Unchecked	0x2,0x2
024c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
024d 0000 0000  |    |		.XXX[0x3]
024f 0000       |    |
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2
0254 0227       | '  |		Execute	Access,All_Reference
0255 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0256 7006       |p   |		Jump_Nonzero	0x25d
0257 00da       |    |		Load_Top	At_Offset_2
0258 0227       | '  |		Execute	Access,All_Reference
0259 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
025a 0335       | 5  |		Declare_Variable	Array,Duplicate
025b 00cd       |    |		Action	Spare6_Action
025c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025d 00da       |    |		Load_Top	At_Offset_2
025e 0227       | '  |		Execute	Access,All_Reference
025f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0260 822e       | .  |		Call	0x1,0x2e
0261 e210       |    |		Load	0x1,0x10
0262 01cc       |    |		Execute	Vector,Catenate
0263 00db       |    |		Load_Top	At_Offset_3
0264 0227       | '  |		Execute	Access,All_Reference
0265 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0266 01cc       |    |		Execute	Vector,Catenate
0267 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0270       | p  |		.CONST	0x0270								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 0004       |    |		.CONST	0x0004								; Number of locals
026b			INIT_0268:
026b 00e3       |    |		Load_Encached	Natural_Cache
026c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
026d e223       | #  |		Load	0x1,0x23
026e 0007       |    |		Action	Break_Optional
026f e21e       |    |		Load	0x1,0x1e
0270			BODY_0268:
0270 00cf       |    |		Action	Mark_Auxiliary
0271 786c       |xl  |		Jump	0x2de
0272 00cf       |    |		Action	Mark_Auxiliary
0273 00db       |    |		Load_Top	At_Offset_3
0274 0227       | '  |		Execute	Access,All_Reference
0275 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0276 01d9       |    |		Execute	Vector,Reverse_Bounds
0277 0263       | c  |		Execute	Discrete,Above_Bound
0278 705c       |p\  |		Jump_Nonzero	0x2d5
0279 00d8       |    |		Load_Top	At_Offset_0
027a e403       |    |		Load	0x2,0x3
027b 0227       | '  |		Execute	Access,All_Reference
027c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
027d 01d7       |    |		Execute	Vector,Field_Read
027e a404       |    |		Store_Unchecked	0x2,0x4
027f e404       |    |		Load	0x2,0x4
0280 7029       |p)  |		Jump_Nonzero	0x2aa
0281 4800       |H   |		Short_Literal	0x0
0282 e21d       |    |		Load	0x1,0x1d
0283 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0284 00d8       |    |		Load_Top	At_Offset_0
0285 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0286 01dd       |    |		Execute	Vector,First
0287 00e2       |    |		Load_Encached	Integer_Cache
0288 00d9       |    |		Load_Top	At_Offset_1
0289 0267       | g  |		Execute	Discrete,Predecessor
028a 00e9       |    |		Load_Encached	String_Cache
028b 035b       | [  |		Declare_Type	Array,Constrained
028c 0337       | 7  |		Declare_Variable	Array
028d 00d9       |    |		Load_Top	At_Offset_1
028e 00d8       |    |		Load_Top	At_Offset_0
028f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0290 00da       |    |		Load_Top	At_Offset_2
0291 01da       |    |		Execute	Vector,Bounds
0292 00da       |    |		Load_Top	At_Offset_2
0293 01da       |    |		Execute	Vector,Bounds
0294 00da       |    |		Load_Top	At_Offset_2
0295 027f       |    |		Execute	Discrete,Equal
0296 7001       |p   |		Jump_Nonzero	0x298
0297 08e0       |    |		Execute_Immediate	Raise,0xe0
0298 00cd       |    |		Action	Spare6_Action
0299 027f       |    |		Execute	Discrete,Equal
029a 7001       |p   |		Jump_Nonzero	0x29c
029b 08e0       |    |		Execute_Immediate	Raise,0xe0
029c 00d2       |    |		Pop_Control	Pop_Count_2
029d 00d9       |    |		Load_Top	At_Offset_1
029e 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
029f e21e       |    |		Load	0x1,0x1e
02a0 00d9       |    |		Load_Top	At_Offset_1
02a1 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02a2 e21e       |    |		Load	0x1,0x1e
02a3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
02a4 00d9       |    |		Load_Top	At_Offset_1
02a5 e403       |    |		Load	0x2,0x3
02a6 0227       | '  |		Execute	Access,All_Reference
02a7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02a8 01d6       |    |		Execute	Vector,Field_Write
02a9 7829       |x)  |		Jump	0x2d3
02aa e404       |    |		Load	0x2,0x4
02ab 0227       | '  |		Execute	Access,All_Reference
02ac 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ad 6825       |h%  |		Jump_Zero	0x2d3
02ae 00d8       |    |		Load_Top	At_Offset_0
02af e403       |    |		Load	0x2,0x3
02b0 0227       | '  |		Execute	Access,All_Reference
02b1 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02b2 01d7       |    |		Execute	Vector,Field_Read
02b3 e21d       |    |		Load	0x1,0x1d
02b4 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02b5 e404       |    |		Load	0x2,0x4
02b6 822e       | .  |		Call	0x1,0x2e
02b7 00d9       |    |		Load_Top	At_Offset_1
02b8 00d8       |    |		Load_Top	At_Offset_0
02b9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02ba 00da       |    |		Load_Top	At_Offset_2
02bb 01da       |    |		Execute	Vector,Bounds
02bc 00da       |    |		Load_Top	At_Offset_2
02bd 01da       |    |		Execute	Vector,Bounds
02be 00da       |    |		Load_Top	At_Offset_2
02bf 027f       |    |		Execute	Discrete,Equal
02c0 7001       |p   |		Jump_Nonzero	0x2c2
02c1 08e0       |    |		Execute_Immediate	Raise,0xe0
02c2 00cd       |    |		Action	Spare6_Action
02c3 027f       |    |		Execute	Discrete,Equal
02c4 7001       |p   |		Jump_Nonzero	0x2c6
02c5 08e0       |    |		Execute_Immediate	Raise,0xe0
02c6 00d2       |    |		Pop_Control	Pop_Count_2
02c7 00d9       |    |		Load_Top	At_Offset_1
02c8 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
02c9 e21e       |    |		Load	0x1,0x1e
02ca 00d9       |    |		Load_Top	At_Offset_1
02cb 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02cc e21e       |    |		Load	0x1,0x1e
02cd 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
02ce 00d9       |    |		Load_Top	At_Offset_1
02cf e403       |    |		Load	0x2,0x3
02d0 0227       | '  |		Execute	Access,All_Reference
02d1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
02d2 01d6       |    |		Execute	Vector,Field_Write
02d3 00c8       |    |		Action	Pop_Auxiliary_Range
02d4 3fa4       |?   |		Loop_Increasing	0x279
02d5 00ce       |    |		Action	Pop_Auxiliary
02d6 00da       |    |		Load_Top	At_Offset_2
02d7 0227       | '  |		Execute	Access,All_Reference
02d8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02d9 003b       | ;  |		Store_Top	Access,At_Offset_3
02da 00db       |    |		Load_Top	At_Offset_3
02db 0a01       |    |		Execute_Immediate	Plus,0x1
02dc c402       |    |		Store	0x2,0x2
02dd 00c9       |    |		Action	Pop_Auxiliary_Loop
02de 00da       |    |		Load_Top	At_Offset_2
02df 7792       |w   |		Jump_Nonzero	0x272
02e0 00ce       |    |		Action	Pop_Auxiliary
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 00ca       |    |		Action	Exit_Nullary_Function
02e3 0000 0000  |    |		.BLANK	0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ed       |    |		.CONST	0x02ed								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0002       |    |		.CONST	0x0002								; Number of locals
02eb			INIT_02e8:
02eb e221       | !  |		Load	0x1,0x21
02ec 0007       |    |		Action	Break_Optional
02ed			BODY_02e8:
02ed e223       | #  |		Load	0x1,0x23
02ee 0039       | 9  |		Store_Top	Access,At_Offset_1
02ef 00cf       |    |		Action	Mark_Auxiliary
02f0 e5ff       |    |		Load	0x2,-0x1
02f1 01da       |    |		Execute	Vector,Bounds
02f2 0264       | d  |		Execute	Discrete,Below_Bound
02f3 700a       |p   |		Jump_Nonzero	0x2fe
02f4 00db       |    |		Load_Top	At_Offset_3
02f5 00d9       |    |		Load_Top	At_Offset_1
02f6 e5ff       |    |		Load	0x2,-0x1
02f7 01d6       |    |		Execute	Vector,Field_Write
02f8 00db       |    |		Load_Top	At_Offset_3
02f9 0227       | '  |		Execute	Access,All_Reference
02fa 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02fb a402       |    |		Store_Unchecked	0x2,0x2
02fc 00c8       |    |		Action	Pop_Auxiliary_Range
02fd 37f6       |7   |		Loop_Decreasing	0x2f4
02fe 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ff 0000       |    |		.XXX[0x1]
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 01db       |    |		Execute	Vector,Length
0305 7003       |p   |		Jump_Nonzero	0x309
0306 e221       | !  |		Load	0x1,0x21
0307 a223       | #  |		Store_Unchecked	0x1,0x23
0308 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0309 e221       | !  |		Load	0x1,0x21
030a 00db       |    |		Load_Top	At_Offset_3
030b 01dd       |    |		Execute	Vector,First
030c e5ff       |    |		Load	0x2,-0x1
030d 01d7       |    |		Execute	Vector,Field_Read
030e 0227       | '  |		Execute	Access,All_Reference
030f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0310 00cf       |    |		Action	Mark_Auxiliary
0311 00db       |    |		Load_Top	At_Offset_3
0312 01dc       |    |		Execute	Vector,Last
0313 e5ff       |    |		Load	0x2,-0x1
0314 01dd       |    |		Execute	Vector,First
0315 0a01       |    |		Execute_Immediate	Plus,0x1
0316 00d8       |    |		Load_Top	At_Offset_0
0317 00e2       |    |		Load_Encached	Integer_Cache
0318 0260       | `  |		Execute	Discrete,In_Type
0319 7001       |p   |		Jump_Nonzero	0x31b
031a 0801       |    |		Execute_Immediate	Raise,0x1
031b 0263       | c  |		Execute	Discrete,Above_Bound
031c 700b       |p   |		Jump_Nonzero	0x328
031d 00d8       |    |		Load_Top	At_Offset_0
031e 0aff       |    |		Execute_Immediate	Plus,-0x1
031f e5ff       |    |		Load	0x2,-0x1
0320 01d7       |    |		Execute	Vector,Field_Read
0321 00d9       |    |		Load_Top	At_Offset_1
0322 e5ff       |    |		Load	0x2,-0x1
0323 01d7       |    |		Execute	Vector,Field_Read
0324 0227       | '  |		Execute	Access,All_Reference
0325 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0326 00c8       |    |		Action	Pop_Auxiliary_Range
0327 3ff5       |?   |		Loop_Increasing	0x31d
0328 00ce       |    |		Action	Pop_Auxiliary
0329 00da       |    |		Load_Top	At_Offset_2
032a 01dc       |    |		Execute	Vector,Last
032b 00db       |    |		Load_Top	At_Offset_3
032c 01d7       |    |		Execute	Vector,Field_Read
032d a223       | #  |		Store_Unchecked	0x1,0x23
032e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
032f 0000       |    |		.XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0346       | F  |		.CONST	0x0346								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0002       |    |		.CONST	0x0002								; Number of locals
0333			INIT_0330:
0333 4801       |H   |		Short_Literal	0x1
0334 e7fe       |    |		Load	0x3,-0x2
0335 00e9       |    |		Load_Encached	String_Cache
0336 035b       | [  |		Declare_Type	Array,Constrained
0337 0337       | 7  |		Declare_Variable	Array
0338 00d8       |    |		Load_Top	At_Offset_0
0339 0335       | 5  |		Declare_Variable	Array,Duplicate
033a 00cd       |    |		Action	Spare6_Action
033b 00d9       |    |		Load_Top	At_Offset_1
033c 01d9       |    |		Execute	Vector,Reverse_Bounds
033d 0263       | c  |		Execute	Discrete,Above_Bound
033e 7005       |p   |		Jump_Nonzero	0x344
033f e7ff       |    |		Load	0x3,-0x1
0340 00d9       |    |		Load_Top	At_Offset_1
0341 e603       |    |		Load	0x3,0x3
0342 01d6       |    |		Execute	Vector,Field_Write
0343 3ffb       |?   |		Loop_Increasing	0x33f
0344 00d9       |    |		Load_Top	At_Offset_1
0345 01d4       |    |		Execute	Vector,Structure_Write
0346			BODY_0330:
0346 00d8       |    |		Load_Top	At_Offset_0
0347 e5ff       |    |		Load	0x2,-0x1
0348 e006       |    |		Load	0x0,0x6
0349 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
034a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
034b 0000 0000  |    |		.BLANK	0000[0x5]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353       | S  |		.CONST	0x0353								; Address of begin
0351 0004       |    |		.CONST	0x0004								; Address of exception handler
0352 0001       |    |		.CONST	0x0001								; Number of locals
0353			BODY_0350:
0353			INIT_0350:
0353 00da       |    |		Load_Top	At_Offset_2
0354 6805       |h   |		Jump_Zero	0x35a
0355 00da       |    |		Load_Top	At_Offset_2
0356 822e       | .  |		Call	0x1,0x2e
0357 e5ff       |    |		Load	0x2,-0x1
0358 e006       |    |		Load	0x0,0x6
0359 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
035a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
035b 0000 0000  |    |		.BLANK	0000[0x5]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0365       | e  |		.CONST	0x0365								; Address of begin
0361 0004       |    |		.CONST	0x0004								; Address of exception handler
0362 0002       |    |		.CONST	0x0002								; Number of locals
0363			INIT_0360:
0363 e21b       |    |		Load	0x1,0x1b
0364 0337       | 7  |		Declare_Variable	Array
0365			BODY_0360:
0365 00cf       |    |		Action	Mark_Auxiliary
0366 e21a       |    |		Load	0x1,0x1a
0367 0269       | i  |		Execute	Discrete,Last
0368 4801       |H   |		Short_Literal	0x1
0369 0263       | c  |		Execute	Discrete,Above_Bound
036a 7019       |p   |		Jump_Nonzero	0x384
036b 00d8       |    |		Load_Top	At_Offset_0
036c e226       | &  |		Load	0x1,0x26
036d 01d7       |    |		Execute	Vector,Field_Read
036e 00d9       |    |		Load_Top	At_Offset_1
036f e228       | (  |		Load	0x1,0x28
0370 01d7       |    |		Execute	Vector,Field_Read
0371 0227       | '  |		Execute	Access,All_Reference
0372 01db       |    |		Execute	Vector,Length
0373 00d8       |    |		Load_Top	At_Offset_0
0374 00e2       |    |		Load_Encached	Integer_Cache
0375 0260       | `  |		Execute	Discrete,In_Type
0376 7001       |p   |		Jump_Nonzero	0x378
0377 0801       |    |		Execute_Immediate	Raise,0x1
0378 822c       | ,  |		Call	0x1,0x2c
0379 00d9       |    |		Load_Top	At_Offset_1
037a e228       | (  |		Load	0x1,0x28
037b 01d7       |    |		Execute	Vector,Field_Read
037c 0227       | '  |		Execute	Access,All_Reference
037d 01db       |    |		Execute	Vector,Length
037e 0272       | r  |		Execute	Discrete,Minus
037f 00d9       |    |		Load_Top	At_Offset_1
0380 e602       |    |		Load	0x3,0x2
0381 01d6       |    |		Execute	Vector,Field_Write
0382 00c8       |    |		Action	Pop_Auxiliary_Range
0383 3fe7       |?   |		Loop_Increasing	0x36b
0384 00ce       |    |		Action	Pop_Auxiliary
0385 4801       |H   |		Short_Literal	0x1
0386 00d9       |    |		Load_Top	At_Offset_1
0387 01d7       |    |		Execute	Vector,Field_Read
0388 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0389 00d8       |    |		Load_Top	At_Offset_0
038a 00e3       |    |		Load_Encached	Natural_Cache
038b 0260       | `  |		Execute	Discrete,In_Type
038c 7001       |p   |		Jump_Nonzero	0x38e
038d 0801       |    |		Execute_Immediate	Raise,0x1
038e 4820       |H   |		Short_Literal	0x20
038f 8402       |    |		Call	0x2,0x2
0390 00cf       |    |		Action	Mark_Auxiliary
0391 e21a       |    |		Load	0x1,0x1a
0392 0269       | i  |		Execute	Discrete,Last
0393 4801       |H   |		Short_Literal	0x1
0394 0263       | c  |		Execute	Discrete,Above_Bound
0395 7021       |p!  |		Jump_Nonzero	0x3b7
0396 00d8       |    |		Load_Top	At_Offset_0
0397 e228       | (  |		Load	0x1,0x28
0398 01d7       |    |		Execute	Vector,Field_Read
0399 0227       | '  |		Execute	Access,All_Reference
039a e5ff       |    |		Load	0x2,-0x1
039b e006       |    |		Load	0x0,0x6
039c 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
039d 00d8       |    |		Load_Top	At_Offset_0
039e e21a       |    |		Load	0x1,0x1a
039f 0269       | i  |		Execute	Discrete,Last
03a0 027e       | ~  |		Execute	Discrete,Not_Equal
03a1 6813       |h   |		Jump_Zero	0x3b5
03a2 00d8       |    |		Load_Top	At_Offset_0
03a3 e602       |    |		Load	0x3,0x2
03a4 01d7       |    |		Execute	Vector,Field_Read
03a5 0a01       |    |		Execute_Immediate	Plus,0x1
03a6 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
03a7 00d9       |    |		Load_Top	At_Offset_1
03a8 0a01       |    |		Execute_Immediate	Plus,0x1
03a9 e602       |    |		Load	0x3,0x2
03aa 01d7       |    |		Execute	Vector,Field_Read
03ab 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
03ac 0273       | s  |		Execute	Discrete,Plus
03ad 0a02       |    |		Execute_Immediate	Plus,0x2
03ae 00d8       |    |		Load_Top	At_Offset_0
03af 00e3       |    |		Load_Encached	Natural_Cache
03b0 0260       | `  |		Execute	Discrete,In_Type
03b1 7001       |p   |		Jump_Nonzero	0x3b3
03b2 0801       |    |		Execute_Immediate	Raise,0x1
03b3 4820       |H   |		Short_Literal	0x20
03b4 8402       |    |		Call	0x2,0x2
03b5 00c8       |    |		Action	Pop_Auxiliary_Range
03b6 3fdf       |?   |		Loop_Increasing	0x396
03b7 00ce       |    |		Action	Pop_Auxiliary
03b8 4801       |H   |		Short_Literal	0x1
03b9 e5ff       |    |		Load	0x2,-0x1
03ba e006       |    |		Load	0x0,0x6
03bb 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
03bc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03bd 0000 0000  |    |		.XXX[0x3]
03bf 0000       |    |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c5       |    |		.CONST	0x03c5								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0003       |    |		.CONST	0x0003								; Number of locals
03c3			INIT_03c0:
03c3 00e3       |    |		Load_Encached	Natural_Cache
03c4 03e9       |    |		Declare_Variable	Discrete,Duplicate
03c5			BODY_03c0:
03c5 00cf       |    |		Action	Mark_Auxiliary
03c6 e21a       |    |		Load	0x1,0x1a
03c7 0269       | i  |		Execute	Discrete,Last
03c8 4801       |H   |		Short_Literal	0x1
03c9 0263       | c  |		Execute	Discrete,Above_Bound
03ca 7089       |p   |		Jump_Nonzero	0x454
03cb 00d8       |    |		Load_Top	At_Offset_0
03cc e226       | &  |		Load	0x1,0x26
03cd 01d7       |    |		Execute	Vector,Field_Read
03ce 00d9       |    |		Load_Top	At_Offset_1
03cf e7ff       |    |		Load	0x3,-0x1
03d0 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
03d1 01d7       |    |		Execute	Vector,Field_Read
03d2 0272       | r  |		Execute	Discrete,Minus
03d3 c602       |    |		Store	0x3,0x2
03d4 00d8       |    |		Load_Top	At_Offset_0
03d5 e226       | &  |		Load	0x1,0x26
03d6 01d7       |    |		Execute	Vector,Field_Read
03d7 00d9       |    |		Load_Top	At_Offset_1
03d8 e228       | (  |		Load	0x1,0x28
03d9 01d7       |    |		Execute	Vector,Field_Read
03da 0227       | '  |		Execute	Access,All_Reference
03db 01db       |    |		Execute	Vector,Length
03dc 00d8       |    |		Load_Top	At_Offset_0
03dd 00e2       |    |		Load_Encached	Integer_Cache
03de 0260       | `  |		Execute	Discrete,In_Type
03df 7001       |p   |		Jump_Nonzero	0x3e1
03e0 0801       |    |		Execute_Immediate	Raise,0x1
03e1 822c       | ,  |		Call	0x1,0x2c
03e2 00d9       |    |		Load_Top	At_Offset_1
03e3 e226       | &  |		Load	0x1,0x26
03e4 01d7       |    |		Execute	Vector,Field_Read
03e5 0272       | r  |		Execute	Discrete,Minus
03e6 c603       |    |		Store	0x3,0x3
03e7 00d8       |    |		Load_Top	At_Offset_0
03e8 e22b       | +  |		Load	0x1,0x2b
03e9 01d7       |    |		Execute	Vector,Field_Read
03ea 4602       |F   |		Jump_Case	0x3
03eb 7825       |x%  |		Jump	0x411								; case 0x0
03ec 7845       |xE  |		Jump	0x432								; case 0x1
03ed 7800       |x   |		Jump	0x3ee								; case 0x2
03ee e602       |    |		Load	0x3,0x2
03ef e603       |    |		Load	0x3,0x3
03f0 0273       | s  |		Execute	Discrete,Plus
03f1 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
03f2 00d8       |    |		Load_Top	At_Offset_0
03f3 00e3       |    |		Load_Encached	Natural_Cache
03f4 0260       | `  |		Execute	Discrete,In_Type
03f5 7001       |p   |		Jump_Nonzero	0x3f7
03f6 0801       |    |		Execute_Immediate	Raise,0x1
03f7 4820       |H   |		Short_Literal	0x20
03f8 8402       |    |		Call	0x2,0x2
03f9 00d8       |    |		Load_Top	At_Offset_0
03fa e7ff       |    |		Load	0x3,-0x1
03fb 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03fc 01d7       |    |		Execute	Vector,Field_Read
03fd 8403       |    |		Call	0x2,0x3
03fe 00d8       |    |		Load_Top	At_Offset_0
03ff e21a       |    |		Load	0x1,0x1a
0400 0269       | i  |		Execute	Discrete,Last
0401 027e       | ~  |		Execute	Discrete,Not_Equal
0402 684f       |hO  |		Jump_Zero	0x452
0403 e602       |    |		Load	0x3,0x2
0404 e603       |    |		Load	0x3,0x3
0405 0273       | s  |		Execute	Discrete,Plus
0406 0a01       |    |		Execute_Immediate	Plus,0x1
0407 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0408 0a02       |    |		Execute_Immediate	Plus,0x2
0409 00d8       |    |		Load_Top	At_Offset_0
040a 00e3       |    |		Load_Encached	Natural_Cache
040b 0260       | `  |		Execute	Discrete,In_Type
040c 7001       |p   |		Jump_Nonzero	0x40e
040d 0801       |    |		Execute_Immediate	Raise,0x1
040e 4820       |H   |		Short_Literal	0x20
040f 8402       |    |		Call	0x2,0x2
0410 7841       |xA  |		Jump	0x452
0411 00db       |    |		Load_Top	At_Offset_3
0412 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0413 00d8       |    |		Load_Top	At_Offset_0
0414 00e3       |    |		Load_Encached	Natural_Cache
0415 0260       | `  |		Execute	Discrete,In_Type
0416 7001       |p   |		Jump_Nonzero	0x418
0417 0801       |    |		Execute_Immediate	Raise,0x1
0418 4820       |H   |		Short_Literal	0x20
0419 8402       |    |		Call	0x2,0x2
041a 00d8       |    |		Load_Top	At_Offset_0
041b e7ff       |    |		Load	0x3,-0x1
041c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
041d 01d7       |    |		Execute	Vector,Field_Read
041e 8403       |    |		Call	0x2,0x3
041f 00d8       |    |		Load_Top	At_Offset_0
0420 e21a       |    |		Load	0x1,0x1a
0421 0269       | i  |		Execute	Discrete,Last
0422 027e       | ~  |		Execute	Discrete,Not_Equal
0423 682e       |h.  |		Jump_Zero	0x452
0424 00db       |    |		Load_Top	At_Offset_3
0425 0a01       |    |		Execute_Immediate	Plus,0x1
0426 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0427 e602       |    |		Load	0x3,0x2
0428 0273       | s  |		Execute	Discrete,Plus
0429 0a02       |    |		Execute_Immediate	Plus,0x2
042a 00d8       |    |		Load_Top	At_Offset_0
042b 00e3       |    |		Load_Encached	Natural_Cache
042c 0260       | `  |		Execute	Discrete,In_Type
042d 7001       |p   |		Jump_Nonzero	0x42f
042e 0801       |    |		Execute_Immediate	Raise,0x1
042f 4820       |H   |		Short_Literal	0x20
0430 8402       |    |		Call	0x2,0x2
0431 7820       |x   |		Jump	0x452
0432 00db       |    |		Load_Top	At_Offset_3
0433 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0434 e602       |    |		Load	0x3,0x2
0435 0273       | s  |		Execute	Discrete,Plus
0436 00d8       |    |		Load_Top	At_Offset_0
0437 00e3       |    |		Load_Encached	Natural_Cache
0438 0260       | `  |		Execute	Discrete,In_Type
0439 7001       |p   |		Jump_Nonzero	0x43b
043a 0801       |    |		Execute_Immediate	Raise,0x1
043b 4820       |H   |		Short_Literal	0x20
043c 8402       |    |		Call	0x2,0x2
043d 00d8       |    |		Load_Top	At_Offset_0
043e e7ff       |    |		Load	0x3,-0x1
043f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0440 01d7       |    |		Execute	Vector,Field_Read
0441 8403       |    |		Call	0x2,0x3
0442 00d8       |    |		Load_Top	At_Offset_0
0443 e21a       |    |		Load	0x1,0x1a
0444 0269       | i  |		Execute	Discrete,Last
0445 027e       | ~  |		Execute	Discrete,Not_Equal
0446 680b       |h   |		Jump_Zero	0x452
0447 00db       |    |		Load_Top	At_Offset_3
0448 0a01       |    |		Execute_Immediate	Plus,0x1
0449 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
044a 0a02       |    |		Execute_Immediate	Plus,0x2
044b 00d8       |    |		Load_Top	At_Offset_0
044c 00e3       |    |		Load_Encached	Natural_Cache
044d 0260       | `  |		Execute	Discrete,In_Type
044e 7001       |p   |		Jump_Nonzero	0x450
044f 0801       |    |		Execute_Immediate	Raise,0x1
0450 4820       |H   |		Short_Literal	0x20
0451 8402       |    |		Call	0x2,0x2
0452 00c8       |    |		Action	Pop_Auxiliary_Range
0453 3f77       |?w  |		Loop_Increasing	0x3cb
0454 00ce       |    |		Action	Pop_Auxiliary
0455 4801       |H   |		Short_Literal	0x1
0456 e5ff       |    |		Load	0x2,-0x1
0457 e006       |    |		Load	0x0,0x6
0458 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0459 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
045a 0000 0000  |    |		.BLANK	0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 00da       |    |		Load_Top	At_Offset_2
0464 702c       |p,  |		Jump_Nonzero	0x491
0465 8404       |    |		Call	0x2,0x4
0466 00cf       |    |		Action	Mark_Auxiliary
0467 e21a       |    |		Load	0x1,0x1a
0468 0269       | i  |		Execute	Discrete,Last
0469 4801       |H   |		Short_Literal	0x1
046a 0263       | c  |		Execute	Discrete,Above_Bound
046b 701f       |p   |		Jump_Nonzero	0x48b
046c 00d8       |    |		Load_Top	At_Offset_0
046d e226       | &  |		Load	0x1,0x26
046e 01d7       |    |		Execute	Vector,Field_Read
046f 00d9       |    |		Load_Top	At_Offset_1
0470 e228       | (  |		Load	0x1,0x28
0471 01d7       |    |		Execute	Vector,Field_Read
0472 0227       | '  |		Execute	Access,All_Reference
0473 01db       |    |		Execute	Vector,Length
0474 00d8       |    |		Load_Top	At_Offset_0
0475 00e2       |    |		Load_Encached	Integer_Cache
0476 0260       | `  |		Execute	Discrete,In_Type
0477 7001       |p   |		Jump_Nonzero	0x479
0478 0801       |    |		Execute_Immediate	Raise,0x1
0479 822c       | ,  |		Call	0x1,0x2c
047a 00d8       |    |		Load_Top	At_Offset_0
047b 00e3       |    |		Load_Encached	Natural_Cache
047c 0260       | `  |		Execute	Discrete,In_Type
047d 7001       |p   |		Jump_Nonzero	0x47f
047e 0801       |    |		Execute_Immediate	Raise,0x1
047f 483d       |H=  |		Short_Literal	0x3d
0480 8402       |    |		Call	0x2,0x2
0481 00d8       |    |		Load_Top	At_Offset_0
0482 e21a       |    |		Load	0x1,0x1a
0483 0269       | i  |		Execute	Discrete,Last
0484 027e       | ~  |		Execute	Discrete,Not_Equal
0485 6803       |h   |		Jump_Zero	0x489
0486 4802       |H   |		Short_Literal	0x2
0487 4820       |H   |		Short_Literal	0x20
0488 8402       |    |		Call	0x2,0x2
0489 00c8       |    |		Action	Pop_Auxiliary_Range
048a 3fe1       |?   |		Loop_Increasing	0x46c
048b 00ce       |    |		Action	Pop_Auxiliary
048c 4801       |H   |		Short_Literal	0x1
048d e5ff       |    |		Load	0x2,-0x1
048e e006       |    |		Load	0x0,0x6
048f 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0490 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0491 00da       |    |		Load_Top	At_Offset_2
0492 0227       | '  |		Execute	Access,All_Reference
0493 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0494 8406       |    |		Call	0x2,0x6
0495 00da       |    |		Load_Top	At_Offset_2
0496 0227       | '  |		Execute	Access,All_Reference
0497 8405       |    |		Call	0x2,0x5
0498 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0499 0000 0000  |    |		.BLANK	0000[0x7]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 e5ff       |    |		Load	0x2,-0x1
04a4 00db       |    |		Load_Top	At_Offset_3
04a5 0227       | '  |		Execute	Access,All_Reference
04a6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04a7 01d7       |    |		Execute	Vector,Field_Read
04a8 0227       | '  |		Execute	Access,All_Reference
04a9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04aa e5ff       |    |		Load	0x2,-0x1
04ab e7fe       |    |		Load	0x3,-0x2
04ac 0227       | '  |		Execute	Access,All_Reference
04ad 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04ae 01d7       |    |		Execute	Vector,Field_Read
04af 0227       | '  |		Execute	Access,All_Reference
04b0 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04b1 01c1       |    |		Execute	Vector,Less
04b2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04b3 0000 0000  |    |		.BLANK	0000[0x5]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb       |    |		.CONST	0x04bb								; Address of begin
04b9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ba 0001       |    |		.CONST	0x0001								; Number of locals
04bb			BODY_04b8:
04bb			INIT_04b8:
04bb 00cf       |    |		Action	Mark_Auxiliary
04bc e5ff       |    |		Load	0x2,-0x1
04bd 01d9       |    |		Execute	Vector,Reverse_Bounds
04be 0263       | c  |		Execute	Discrete,Above_Bound
04bf 702e       |p.  |		Jump_Nonzero	0x4ee
04c0 00d8       |    |		Load_Top	At_Offset_0
04c1 e5ff       |    |		Load	0x2,-0x1
04c2 01d7       |    |		Execute	Vector,Field_Read
04c3 e7ff       |    |		Load	0x3,-0x1
04c4 0227       | '  |		Execute	Access,All_Reference
04c5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04c6 01d7       |    |		Execute	Vector,Field_Read
04c7 0227       | '  |		Execute	Access,All_Reference
04c8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04c9 00d9       |    |		Load_Top	At_Offset_1
04ca e5ff       |    |		Load	0x2,-0x1
04cb 01d7       |    |		Execute	Vector,Field_Read
04cc e7fe       |    |		Load	0x3,-0x2
04cd 0227       | '  |		Execute	Access,All_Reference
04ce 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04cf 01d7       |    |		Execute	Vector,Field_Read
04d0 0227       | '  |		Execute	Access,All_Reference
04d1 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04d2 01c1       |    |		Execute	Vector,Less
04d3 6802       |h   |		Jump_Zero	0x4d6
04d4 4801       |H   |		Short_Literal	0x1
04d5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04d6 00d8       |    |		Load_Top	At_Offset_0
04d7 e5ff       |    |		Load	0x2,-0x1
04d8 01d7       |    |		Execute	Vector,Field_Read
04d9 e7fe       |    |		Load	0x3,-0x2
04da 0227       | '  |		Execute	Access,All_Reference
04db 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04dc 01d7       |    |		Execute	Vector,Field_Read
04dd 0227       | '  |		Execute	Access,All_Reference
04de 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04df 00d9       |    |		Load_Top	At_Offset_1
04e0 e5ff       |    |		Load	0x2,-0x1
04e1 01d7       |    |		Execute	Vector,Field_Read
04e2 e7ff       |    |		Load	0x3,-0x1
04e3 0227       | '  |		Execute	Access,All_Reference
04e4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
04e5 01d7       |    |		Execute	Vector,Field_Read
04e6 0227       | '  |		Execute	Access,All_Reference
04e7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04e8 01c1       |    |		Execute	Vector,Less
04e9 6802       |h   |		Jump_Zero	0x4ec
04ea 4800       |H   |		Short_Literal	0x0
04eb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04ec 00c8       |    |		Action	Pop_Auxiliary_Range
04ed 3fd2       |?   |		Loop_Increasing	0x4c0
04ee 00ce       |    |		Action	Pop_Auxiliary
04ef 4800       |H   |		Short_Literal	0x0
04f0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
04f1 ; --------------------------------------------------------------------------------------
04f1 ; STRING TABLE
04f1 ; --------------------------------------------------------------------------------------
04f1 000a       |    |		.STRTAB	0x000a->0x04f6							; "LEFT"
04f2 000c       |    |		.STRTAB	0x000c->0x04f8							; "RIGHT"
04f3 000f       |    |		.STRTAB	0x000f->0x04fa							; "CENTERED"
04f4 0015       |    |		.STRTAB	0x0015->0x04fe							; "(none)"
04f5 0019       |    |		.STREND 0x0019->0x0501
04f6 4c45 4654  |LEFT|		.STRTAB_STRINGS
0502 0000 0000  |    |		.BLANK	0000[0x6]
0508 ; --------------------------------------------------------------------------------------
0508 ; Debug Table
0508 ; --------------------------------------------------------------------------------------
0508 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x2e99,0x0000,0x0001,0x0019
050e 000b 0572  |   r|		.DBG4T	0x000b,0x0572,0xc000,0x0000
0512 0025 057d  | % }|		.DBG4T	0x0025,0x057d,0xc000,0x8000
0516 00cb 0000  |    |		.DBG4T	0x00cb,0x0000,0x1005,0x0000
051a 00f3 05c0  |    |		.DBG4T	0x00f3,0x05c0,0x1001,0x0000
051e 010b 05c5  |    |		.DBG4T	0x010b,0x05c5,0x1001,0x0000
0522 012b 05cd  | +  |		.DBG4T	0x012b,0x05cd,0x1001,0x0000
0526 013b 05d3  | ;  |		.DBG4T	0x013b,0x05d3,0x1001,0x0000
052a 014b 05d8  | K  |		.DBG4T	0x014b,0x05d8,0x1001,0x0000
052e 015b 05e0  | [  |		.DBG4T	0x015b,0x05e0,0x1001,0x0000
0532 0183 05e8  |    |		.DBG4T	0x0183,0x05e8,0x1001,0x0000
0536 01ab 0000  |    |		.DBG4T	0x01ab,0x0000,0x1005,0x0000
053a 01d3 0000  |    |		.DBG4T	0x01d3,0x0000,0x1005,0x0000
053e 01fb 05f0  |    |		.DBG4T	0x01fb,0x05f0,0x1002,0x0000
0542 020b 05f5  |    |		.DBG4T	0x020b,0x05f5,0x1001,0x0000
0546 0253 0600  | S  |		.DBG4T	0x0253,0x0600,0x1002,0x0000
054a 026b 0605  | k  |		.DBG4T	0x026b,0x0605,0x1002,0x4000
054e 02eb 061e  |    |		.DBG4T	0x02eb,0x061e,0x1001,0x0000
0552 0303 0625  |   %|		.DBG4T	0x0303,0x0625,0x1001,0x0000
0556 0333 062e  | 3 .|		.DBG4T	0x0333,0x062e,0x1001,0x0000
055a 0353 0632  | S 2|		.DBG4T	0x0353,0x0632,0x1001,0x0000
055e 0363 0636  | c 6|		.DBG4T	0x0363,0x0636,0x1001,0x0000
0562 03c3 0641  |   A|		.DBG4T	0x03c3,0x0641,0x1001,0x4000
0566 0463 0666  | c f|		.DBG4T	0x0463,0x0666,0x1001,0x0000
056a 04a3 0671  |   q|		.DBG4T	0x04a3,0x0671,0x1002,0x0000
056e 04bb 0674  |   t|		.DBG4T	0x04bb,0x0674,0x1002,0x0000
0572 ; --------------------------------------------------------------------------------------
0572 ; Debug chain
0572 ; --------------------------------------------------------------------------------------
0572 0009 0000  |    |		.DBGLEN	0x0009,0x0000
0574 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x0020,0x0022
057d ; --------------------------------------------------------------------------------------
057d ; Debug chain
057d ; --------------------------------------------------------------------------------------
057d 001f 0003  |    |		.DBGLEN	0x001f,0x0003
057f 0025 0029  | % )|		.DBGLNO	0x0025,0x0029,0x0030,0x0034,0x003f,0x0043,0x004c,0x0053,0x0055,0x0059,0x005f,0x0061,0x0068,0x006c,0x006e,0x007e,0x0087,0x0089,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ad,0x00b2,0x00b6
05a1 0002 0003  |    |		.XXX[0x1f]
05a3 0004 0005  |    |
05a5 0006 0007  |    |
05a7 0008 0009  |    |
05a9 000a 000b  |    |
05ab 000c 000d  |    |
05ad 000e 000f  |    |
05af 0010 0011  |    |
05b1 0012 0013  |    |
05b3 0014 0015  |    |
05b5 0016 0017  |    |
05b7 0018 0019  |    |
05b9 001a 001b  |    |
05bb 001c 001d  |    |
05bd 001e 001f  |    |
05bf 0020       |    |
05c0 ; --------------------------------------------------------------------------------------
05c0 ; Debug chain
05c0 ; --------------------------------------------------------------------------------------
05c0 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05c2 00f3 00f6  |    |		.DBGLNO	0x00f3,0x00f6,0x00fa
05c5 ; --------------------------------------------------------------------------------------
05c5 ; Debug chain
05c5 ; --------------------------------------------------------------------------------------
05c5 0000 0006  |    |		.DBGLEN	0x0000,0x0006
05c7 010b 0110  |    |		.DBGLNO	0x010b,0x0110,0x0116,0x0119,0x011c,0x011e
05cd ; --------------------------------------------------------------------------------------
05cd ; Debug chain
05cd ; --------------------------------------------------------------------------------------
05cd 0000 0004  |    |		.DBGLEN	0x0000,0x0004
05cf 012b 012d  | + -|		.DBGLNO	0x012b,0x012d,0x0130,0x0132
05d3 ; --------------------------------------------------------------------------------------
05d3 ; Debug chain
05d3 ; --------------------------------------------------------------------------------------
05d3 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05d5 013b 013d  | ; =|		.DBGLNO	0x013b,0x013d,0x0140
05d8 ; --------------------------------------------------------------------------------------
05d8 ; Debug chain
05d8 ; --------------------------------------------------------------------------------------
05d8 0005 0001  |    |		.DBGLEN	0x0005,0x0001
05da 014b 014d  | K M|		.DBGLNO	0x014b,0x014d,0x014f,0x0151,0x0153,0x0155
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug chain
05e0 ; --------------------------------------------------------------------------------------
05e0 0003 0003  |    |		.DBGLEN	0x0003,0x0003
05e2 015b 0160  | [ `|		.DBGLNO	0x015b,0x0160,0x0162,0x016e,0x0171,0x017d
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug chain
05e8 ; --------------------------------------------------------------------------------------
05e8 0003 0003  |    |		.DBGLEN	0x0003,0x0003
05ea 0183 0188  |    |		.DBGLNO	0x0183,0x0188,0x018a,0x0196,0x0199,0x01a5
05f0 ; --------------------------------------------------------------------------------------
05f0 ; Debug chain
05f0 ; --------------------------------------------------------------------------------------
05f0 0000 0003  |    |		.DBGLEN	0x0000,0x0003
05f2 01fb 01ff  |    |		.DBGLNO	0x01fb,0x01ff,0x0201
05f5 ; --------------------------------------------------------------------------------------
05f5 ; Debug chain
05f5 ; --------------------------------------------------------------------------------------
05f5 0003 0006  |    |		.DBGLEN	0x0003,0x0006
05f7 020b 0211  |    |		.DBGLNO	0x020b,0x0211,0x0217,0x021b,0x021d,0x0221,0x0229,0x022d,0x022f
0600 ; --------------------------------------------------------------------------------------
0600 ; Debug chain
0600 ; --------------------------------------------------------------------------------------
0600 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0602 0253 0257  | S W|		.DBGLNO	0x0253,0x0257,0x025d
0605 ; --------------------------------------------------------------------------------------
0605 ; Debug chain
0605 ; --------------------------------------------------------------------------------------
0605 0003 000a  |    |		.DBGLEN	0x0003,0x000a
0607 026b 026d  | k m|		.DBGLNO	0x026b,0x026d,0x026f,0x0273,0x0279,0x027f,0x0281,0x02aa,0x02ae,0x02d6,0x02da,0x02de,0x02e1
0614 0002 0003  |    |		.XXX[0xa]
0616 0004 0005  |    |
0618 0006 0007  |    |
061a 0008 0009  |    |
061c 0001 000a  |    |
061e ; --------------------------------------------------------------------------------------
061e ; Debug chain
061e ; --------------------------------------------------------------------------------------
061e 0001 0004  |    |		.DBGLEN	0x0001,0x0004
0620 02eb 02ed  |    |		.DBGLNO	0x02eb,0x02ed,0x02f0,0x02f4,0x02f8
0625 ; --------------------------------------------------------------------------------------
0625 ; Debug chain
0625 ; --------------------------------------------------------------------------------------
0625 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0627 0303 0306  |    |		.DBGLNO	0x0303,0x0306,0x0308,0x0309,0x0311,0x031d,0x0329
062e ; --------------------------------------------------------------------------------------
062e ; Debug chain
062e ; --------------------------------------------------------------------------------------
062e 0001 0001  |    |		.DBGLEN	0x0001,0x0001
0630 0333 0346  | 3 F|		.DBGLNO	0x0333,0x0346
0632 ; --------------------------------------------------------------------------------------
0632 ; Debug chain
0632 ; --------------------------------------------------------------------------------------
0632 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0634 0353 0355  | S U|		.DBGLNO	0x0353,0x0355
0636 ; --------------------------------------------------------------------------------------
0636 ; Debug chain
0636 ; --------------------------------------------------------------------------------------
0636 0001 0008  |    |		.DBGLEN	0x0001,0x0008
0638 0363 0366  | c f|		.DBGLNO	0x0363,0x0366,0x036b,0x0385,0x0391,0x0396,0x039d,0x03a2,0x03b8
0641 ; --------------------------------------------------------------------------------------
0641 ; Debug chain
0641 ; --------------------------------------------------------------------------------------
0641 0001 0011  |    |		.DBGLEN	0x0001,0x0011
0643 03c3 03c6  |    |		.DBGLNO	0x03c3,0x03c6,0x03cb,0x03d4,0x03e7,0x03ee,0x03f9,0x03fe,0x0403,0x0411,0x041a,0x041f,0x0424,0x0432,0x043d,0x0442,0x0447,0x0455
0655 0001 0002  |    |		.XXX[0x11]
0657 0003 0004  |    |
0659 000d 000e  |    |
065b 000f 0010  |    |
065d 0005 0006  |    |
065f 0007 0008  |    |
0661 0009 000a  |    |
0663 000b 000c  |    |
0665 0011       |    |
0666 ; --------------------------------------------------------------------------------------
0666 ; Debug chain
0666 ; --------------------------------------------------------------------------------------
0666 0000 0009  |    |		.DBGLEN	0x0000,0x0009
0668 0463 0465  | c e|		.DBGLNO	0x0463,0x0465,0x0467,0x046c,0x0481,0x0486,0x048c,0x0491,0x0495
0671 ; --------------------------------------------------------------------------------------
0671 ; Debug chain
0671 ; --------------------------------------------------------------------------------------
0671 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0673 04a3       |    |		.DBGLNO	0x04a3
0674 ; --------------------------------------------------------------------------------------
0674 ; Debug chain
0674 ; --------------------------------------------------------------------------------------
0674 0000 0006  |    |		.DBGLEN	0x0000,0x0006
0676 04bc 04c0  |    |		.DBGLNO	0x04bc,0x04c0,0x04d4,0x04d6,0x04ea,0x04ef
067c 0000 0000  |    |		.BLANK	0000[0x184]