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

⟦0c960023f⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_11cacfe

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 0358       | X  |		.CONST	0x0358								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 008c       |    |		.CONST	0x008c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; Number of locals
000b			INIT_0008:
000b 4818       |H   |		Short_Literal	0x18
000c 03cd       |    |		Declare_Type	Access,Incomplete,Visible,Accesses_Protected
000d 00e4       |    |		Load_Encached	Positive_Cache
000e 0129       | )  |		Execute	Any,Make_Visible
000f 00d8       |    |		Load_Top	At_Offset_0
0010 0266       | f  |		Execute	Discrete,Bounds
0011 00db       |    |		Load_Top	At_Offset_3
0012 02a0       |    |		Declare_Subprogram	Null_Subprogram
0013 4801       |H   |		Short_Literal	0x1
0014 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0015 e001       |    |		Load	0x0,0x1
0016 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0017 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0018 0129       | )  |		Execute	Any,Make_Visible
0019 e001       |    |		Load	0x0,0x1
001a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001b 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
001c 0129       | )  |		Execute	Any,Make_Visible
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
002e c220       |    |		Store	0x1,0x20
002f 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0031 c214       |    |		Store	0x1,0x14
0032 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0034 c215       |    |		Store	0x1,0x15
0035 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0037 c216       |    |		Store	0x1,0x16
0038 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
003a c217       |    |		Store	0x1,0x17
003b 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
003d c218       |    |		Store	0x1,0x18
003e 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0040 c219       |    |		Store	0x1,0x19
0041 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0043 c21b       |    |		Store	0x1,0x1b
0044 e20e       |    |		Load	0x1,0xe
0045 4800       |H   |		Short_Literal	0x0
0046 4801       |H   |		Short_Literal	0x1
0047 4801       |H   |		Short_Literal	0x1
0048 4809       |H   |		Short_Literal	0x9
0049 0318       |    |		Declare_Type	Variant_Record,Incomplete
004a 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
004c 00d9       |    |		Load_Top	At_Offset_1
004d 012a       | *  |		Execute	Any,Change_Utility
004e c21a       |    |		Store	0x1,0x1a
004f e21a       |    |		Load	0x1,0x1a
0050 02a0       |    |		Declare_Subprogram	Null_Subprogram
0051 e20d       |    |		Load	0x1,0xd
0052 03c7       |    |		Complete_Type	Access,By_Defining
0053 00bf       |    |		Action	Accept_Activation
0054 e002       |    |		Load	0x0,0x2
0055 e003       |    |		Load	0x0,0x3
0056 e20d       |    |		Load	0x1,0xd
0057 e004       |    |		Load	0x0,0x4
0058 0387       |    |		Declare_Variable	Package
0059 00d8       |    |		Load_Top	At_Offset_0
005a 020f       |    |		Execute	Module,Activate
005b 00d8       |    |		Load_Top	At_Offset_0
005c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
005d 00e9       |    |		Load_Encached	String_Cache
005e 02a0       |    |		Declare_Subprogram	Null_Subprogram
005f 4818       |H   |		Short_Literal	0x18
0060 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0061 e20e       |    |		Load	0x1,0xe
0062 0266       | f  |		Execute	Discrete,Bounds
0063 00e1       |    |		Load_Encached	Boolean_Cache
0064 02a0       |    |		Declare_Subprogram	Null_Subprogram
0065 4801       |H   |		Short_Literal	0x1
0066 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0067 e210       |    |		Load	0x1,0x10
0068 00da       |    |		Load_Top	At_Offset_2
0069 e20e       |    |		Load	0x1,0xe
006a 00e1       |    |		Load_Encached	Boolean_Cache
006b 00e3       |    |		Load_Encached	Natural_Cache
006c e222       | "  |		Load	0x1,0x22
006d 00e4       |    |		Load_Encached	Positive_Cache
006e e224       | $  |		Load	0x1,0x24
006f 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
0071 4800       |H   |		Short_Literal	0x0
0072 4801       |H   |		Short_Literal	0x1
0073 4807       |H   |		Short_Literal	0x7
0074 e21a       |    |		Load	0x1,0x1a
0075 0307       |    |		Complete_Type	Variant_Record,By_Defining
0076 029d 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call
0078 029d 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call
007a 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call
007c 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
008b 00c7       |    |		Action	Elaborate_Subprogram
008c			BODY_0008:
008c 00bc       |    |		Action	Signal_Activated
008d 00bb       |    |		Action	Signal_Completion
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095       |    |		.CONST	0x0095								; Address of begin
0091 0097       |    |		.CONST	0x0097								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 029f 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Call
0095			BODY_0090:
0095 8402       |    |		Call	0x2,0x2
0096 0831       | 1  |		Execute_Immediate	Raise,0x31
0097			TRAP_0090:
0097 010e       |    |		Execute	Exception,Is_Constraint_Error
0098 6808       |h   |		Jump_Zero	0xa1
0099 4801       |H   |		Short_Literal	0x1
009a 4800       |H   |		Short_Literal	0x0
009b e20f       |    |		Load	0x1,0xf
009c 035b       | [  |		Declare_Type	Array,Constrained
009d 0337       | 7  |		Declare_Variable	Array
009e e20f       |    |		Load	0x1,0xf
009f 01c6       |    |		Execute	Vector,Convert_To_Formal
00a0 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00a1 0100       |    |		Execute	Exception,Raise
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 0227       | '  |		Execute	Access,All_Reference
00ad 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 0120       |    |		Execute	Any,Is_Value
00b0 7002       |p   |		Jump_Nonzero	0xb3
00b1 00d8       |    |		Load_Top	At_Offset_0
00b2 011e       |    |		Execute	Any,Convert
00b3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b4 0000 0000  |    |		.BLANK	0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 0227       | '  |		Execute	Access,All_Reference
00bd 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
00be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00ce       |    |		.CONST	0x00ce								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0003       |    |		.CONST	0x0003								; Number of locals
00c3			INIT_00c0:
00c3 4801       |H   |		Short_Literal	0x1
00c4 00db       |    |		Load_Top	At_Offset_3
00c5 0227       | '  |		Execute	Access,All_Reference
00c6 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
00c7 e221       | !  |		Load	0x1,0x21
00c8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00c9 e20f       |    |		Load	0x1,0xf
00ca 035b       | [  |		Declare_Type	Array,Constrained
00cb 0337       | 7  |		Declare_Variable	Array
00cc e221       | !  |		Load	0x1,0x21
00cd 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00ce			BODY_00c0:
00ce e221       | !  |		Load	0x1,0x21
00cf 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 0227       | '  |		Execute	Access,All_Reference
00d2 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
00d3 e221       | !  |		Load	0x1,0x21
00d4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d5 0039       | 9  |		Store_Top	Access,At_Offset_1
00d6 00cf       |    |		Action	Mark_Auxiliary
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 01d9       |    |		Execute	Vector,Reverse_Bounds
00d9 0263       | c  |		Execute	Discrete,Above_Bound
00da 700c       |p   |		Jump_Nonzero	0xe7
00db 00db       |    |		Load_Top	At_Offset_3
00dc e221       | !  |		Load	0x1,0x21
00dd 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00de 00d9       |    |		Load_Top	At_Offset_1
00df e402       |    |		Load	0x2,0x2
00e0 01d6       |    |		Execute	Vector,Field_Write
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 e221       | !  |		Load	0x1,0x21
00e3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e4 c403       |    |		Store	0x2,0x3
00e5 00c8       |    |		Action	Pop_Auxiliary_Range
00e6 3ff4       |?   |		Loop_Increasing	0xdb
00e7 00ce       |    |		Action	Pop_Auxiliary
00e8 00d9       |    |		Load_Top	At_Offset_1
00e9 e20f       |    |		Load	0x1,0xf
00ea 01c6       |    |		Execute	Vector,Convert_To_Formal
00eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ec 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
00f4 0227       | '  |		Execute	Access,All_Reference
00f5 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
00f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f7 0000       |    |		.XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 00db       |    |		Load_Top	At_Offset_3
00fd 01dd       |    |		Execute	Vector,First
00fe 027f       |    |		Execute	Discrete,Equal
00ff 6802       |h   |		Jump_Zero	0x102
0100 4800       |H   |		Short_Literal	0x0
0101 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0102 00db       |    |		Load_Top	At_Offset_3
0103 00db       |    |		Load_Top	At_Offset_3
0104 01d7       |    |		Execute	Vector,Field_Read
0105 0227       | '  |		Execute	Access,All_Reference
0106 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
0107 e5fe       |    |		Load	0x2,-0x2
0108 0aff       |    |		Execute_Immediate	Plus,-0x1
0109 e5ff       |    |		Load	0x2,-0x1
010a 01d7       |    |		Execute	Vector,Field_Read
010b 0227       | '  |		Execute	Access,All_Reference
010c 2c08       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x8
010d 027d       | }  |		Execute	Discrete,Greater
010e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010f 0000       |    |		.XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0115       |    |		.CONST	0x0115								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0002       |    |		.CONST	0x0002								; Number of locals
0113			INIT_0110:
0113 00e3       |    |		Load_Encached	Natural_Cache
0114 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0115			BODY_0110:
0115 00cf       |    |		Action	Mark_Auxiliary
0116 e5ff       |    |		Load	0x2,-0x1
0117 01d9       |    |		Execute	Vector,Reverse_Bounds
0118 0263       | c  |		Execute	Discrete,Above_Bound
0119 700c       |p   |		Jump_Nonzero	0x126
011a 00db       |    |		Load_Top	At_Offset_3
011b 00d9       |    |		Load_Top	At_Offset_1
011c e5ff       |    |		Load	0x2,-0x1
011d 01d7       |    |		Execute	Vector,Field_Read
011e 0227       | '  |		Execute	Access,All_Reference
011f 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
0120 e221       | !  |		Load	0x1,0x21
0121 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0122 0273       | s  |		Execute	Discrete,Plus
0123 c402       |    |		Store	0x2,0x2
0124 00c8       |    |		Action	Pop_Auxiliary_Range
0125 3ff4       |?   |		Loop_Increasing	0x11a
0126 00ce       |    |		Action	Pop_Auxiliary
0127 00d8       |    |		Load_Top	At_Offset_0
0128 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0129 0000 0000  |    |		.BLANK	0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00da       |    |		Load_Top	At_Offset_2
0134 0227       | '  |		Execute	Access,All_Reference
0135 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
0136 e221       | !  |		Load	0x1,0x21
0137 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0138 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0139 0000 0000  |    |		.BLANK	0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			BODY_0140:
0143			INIT_0140:
0143			INIT_0140:
0143 4608       |F   |		Jump_Case	0x9
0144 7808       |x   |		Jump	0x14d								; case 0x0
0145 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0146 781f       |x   |		Jump	0x166								; case 0x2
0147 781e       |x   |		Jump	0x166								; case 0x3
0148 781d       |x   |		Jump	0x166								; case 0x4
0149 781c       |x   |		Jump	0x166								; case 0x5
014a 781b       |x   |		Jump	0x166								; case 0x6
014b 7807       |x   |		Jump	0x153								; case 0x7
014c 780f       |x   |		Jump	0x15c								; case 0x8
014d 00da       |    |		Load_Top	At_Offset_2
014e 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
014f 00da       |    |		Load_Top	At_Offset_2
0150 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0151 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0152 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0153 00db       |    |		Load_Top	At_Offset_3
0154 4801       |H   |		Short_Literal	0x1
0155 e5fe       |    |		Load	0x2,-0x2
0156 e224       | $  |		Load	0x1,0x24
0157 035b       | [  |		Declare_Type	Array,Constrained
0158 4801       |H   |		Short_Literal	0x1
0159 e5ff       |    |		Load	0x2,-0x1
015a 031b       |    |		Declare_Type	Variant_Record,Constrained
015b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
015c 00db       |    |		Load_Top	At_Offset_3
015d 00db       |    |		Load_Top	At_Offset_3
015e 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
015f 4801       |H   |		Short_Literal	0x1
0160 e5fe       |    |		Load	0x2,-0x2
0161 e224       | $  |		Load	0x1,0x24
0162 0334       | 4  |		Declare_Variable	Array,With_Constraint
0163 2d09       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x9
0164 016a       | j  |		QQ_execute	Variant_Record,XXX
0165 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0166 0869       | i  |		Execute_Immediate	Raise,0x69
0167 0000       |    |		.XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 4800       |H   |		Short_Literal	0x0
016c 00ea       |    |		Load_Encached	Null_String_Cache
016d 4800       |H   |		Short_Literal	0x0
016e e5ff       |    |		Load	0x2,-0x1
016f e001       |    |		Load	0x0,0x1
0170 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0171 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0172 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0173 0000 0000  |    |		.BLANK	0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0183       |    |		.CONST	0x0183								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0003       |    |		.CONST	0x0003								; Number of locals
017b			INIT_0178:
017b e001       |    |		Load	0x0,0x1
017c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
017e 02c7       |    |		Declare_Variable	Any
017f 00db       |    |		Load_Top	At_Offset_3
0180 a402       |    |		Store_Unchecked	0x2,0x2
0181 00e3       |    |		Load_Encached	Natural_Cache
0182 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0183			BODY_0178:
0183 00d9       |    |		Load_Top	At_Offset_1
0184 e001       |    |		Load	0x0,0x1
0185 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0186 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0187 00cf       |    |		Action	Mark_Auxiliary
0188 7809       |x   |		Jump	0x192
0189 00d9       |    |		Load_Top	At_Offset_1
018a 0a01       |    |		Execute_Immediate	Plus,0x1
018b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
018c 00da       |    |		Load_Top	At_Offset_2
018d e001       |    |		Load	0x0,0x1
018e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0190 c402       |    |		Store	0x2,0x2
0191 00c9       |    |		Action	Pop_Auxiliary_Loop
0192 00da       |    |		Load_Top	At_Offset_2
0193 e001       |    |		Load	0x0,0x1
0194 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0195 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0196 6ff2       |o   |		Jump_Zero	0x189
0197 00ce       |    |		Action	Pop_Auxiliary
0198 00d9       |    |		Load_Top	At_Offset_1
0199 e001       |    |		Load	0x0,0x1
019a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019b 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
019c 00d8       |    |		Load_Top	At_Offset_0
019d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019e 0000 0000  |    |		.XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a7       |    |		.CONST	0x01a7								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0003       |    |		.CONST	0x0003								; Number of locals
01a3			INIT_01a0:
01a3 e221       | !  |		Load	0x1,0x21
01a4 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
01a5 e20d       |    |		Load	0x1,0xd
01a6 0007       |    |		Action	Break_Optional
01a7			BODY_01a0:
01a7 e221       | !  |		Load	0x1,0x21
01a8 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
01a9 e5ff       |    |		Load	0x2,-0x1
01aa e221       | !  |		Load	0x1,0x21
01ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01ac 003a       | :  |		Store_Top	Access,At_Offset_2
01ad 00cf       |    |		Action	Mark_Auxiliary
01ae 7825       |x%  |		Jump	0x1d4
01af 00da       |    |		Load_Top	At_Offset_2
01b0 e221       | !  |		Load	0x1,0x21
01b1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01b2 003a       | :  |		Store_Top	Access,At_Offset_2
01b3 e5fe       |    |		Load	0x2,-0x2
01b4 0227       | '  |		Execute	Access,All_Reference
01b5 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
01b6 00da       |    |		Load_Top	At_Offset_2
01b7 0227       | '  |		Execute	Access,All_Reference
01b8 2509       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x9
01b9 01d7       |    |		Execute	Vector,Field_Read
01ba 7014       |p   |		Jump_Nonzero	0x1cf
01bb 4801       |H   |		Short_Literal	0x1
01bc e5fe       |    |		Load	0x2,-0x2
01bd 0227       | '  |		Execute	Access,All_Reference
01be 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
01bf 00db       |    |		Load_Top	At_Offset_3
01c0 0227       | '  |		Execute	Access,All_Reference
01c1 2509       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x9
01c2 01d6       |    |		Execute	Vector,Field_Write
01c3 00d9       |    |		Load_Top	At_Offset_1
01c4 0227       | '  |		Execute	Access,All_Reference
01c5 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
01c6 0a01       |    |		Execute_Immediate	Plus,0x1
01c7 00da       |    |		Load_Top	At_Offset_2
01c8 0227       | '  |		Execute	Access,All_Reference
01c9 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
01ca e5fe       |    |		Load	0x2,-0x2
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 0227       | '  |		Execute	Access,All_Reference
01cd 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
01ce 8227       | '  |		Call	0x1,0x27
01cf 00da       |    |		Load_Top	At_Offset_2
01d0 e221       | !  |		Load	0x1,0x21
01d1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01d2 003b       | ;  |		Store_Top	Access,At_Offset_3
01d3 00c9       |    |		Action	Pop_Auxiliary_Loop
01d4 00da       |    |		Load_Top	At_Offset_2
01d5 e221       | !  |		Load	0x1,0x21
01d6 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01d7 6fd7       |o   |		Jump_Zero	0x1af
01d8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d9 0000 0000  |    |		.BLANK	0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 0228       | (  |		.CONST	0x0228								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0016       |    |		.CONST	0x0016								; Number of locals
01e3			INIT_01e0:
01e3 e211       |    |		Load	0x1,0x11
01e4 02c7       |    |		Declare_Variable	Any
01e5 e5fb       |    |		Load	0x2,-0x5
01e6 85fc       |    |		Call	0x2,-0x4
01e7 a602       |    |		Store_Unchecked	0x3,0x2
01e8 00d8       |    |		Load_Top	At_Offset_0
01e9 8226       | &  |		Call	0x1,0x26
01ea 00e3       |    |		Load_Encached	Natural_Cache
01eb 03f1       |    |		Declare_Variable	Discrete,With_Value
01ec e005       |    |		Load	0x0,0x5
01ed e006       |    |		Load	0x0,0x6
01ee 00da       |    |		Load_Top	At_Offset_2
01ef e20d       |    |		Load	0x1,0xd
01f0 4801       |H   |		Short_Literal	0x1
01f1 e007       |    |		Load	0x0,0x7
01f2 0387       |    |		Declare_Variable	Package
01f3 00d8       |    |		Load_Top	At_Offset_0
01f4 020f       |    |		Execute	Module,Activate
01f5 00d8       |    |		Load_Top	At_Offset_0
01f6 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01f7 e210       |    |		Load	0x1,0x10
01f8 02c7       |    |		Declare_Variable	Any
01f9 00d8       |    |		Load_Top	At_Offset_0
01fa 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01fb e211       |    |		Load	0x1,0x11
01fc 02c7       |    |		Declare_Variable	Any
01fd 00d8       |    |		Load_Top	At_Offset_0
01fe 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ff e20d       |    |		Load	0x1,0xd
0200 0007       |    |		Action	Break_Optional
0201 00e1       |    |		Load_Encached	Boolean_Cache
0202 4801       |H   |		Short_Literal	0x1
0203 e603       |    |		Load	0x3,0x3
0204 e20f       |    |		Load	0x1,0xf
0205 035b       | [  |		Declare_Type	Array,Constrained
0206 0337       | 7  |		Declare_Variable	Array
0207 e603       |    |		Load	0x3,0x3
0208 e20d       |    |		Load	0x1,0xd
0209 022a       | *  |		Execute	Access,Element_Type
020a 1c07       |    |		Execute_Immediate	Run_Utility,0x7
020b e20d       |    |		Load	0x1,0xd
020c 03d1       |    |		Declare_Type	Access,Constrained
020d 00e4       |    |		Load_Encached	Positive_Cache
020e 0266       | f  |		Execute	Discrete,Bounds
020f 00da       |    |		Load_Top	At_Offset_2
0210 02a0       |    |		Declare_Subprogram	Null_Subprogram
0211 4801       |H   |		Short_Literal	0x1
0212 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0213 a008       |    |		Store_Unchecked	0x0,0x8
0214 00c6       |    |		Action	Check_Subprogram_Elaborated
0215 00d9       |    |		Load_Top	At_Offset_1
0216 00e4       |    |		Load_Encached	Positive_Cache
0217 00da       |    |		Load_Top	At_Offset_2
0218 4ffe       |O   |		Short_Literal	-0x2
0219 4802       |H   |		Short_Literal	0x2
021a 0099       |    |		Action	Reference_Dynamic
021b e009       |    |		Load	0x0,0x9
021c e00a       |    |		Load	0x0,0xa
021d 4813       |H   |		Short_Literal	0x13
021e 0007       |    |		Action	Break_Optional
021f 4801       |H   |		Short_Literal	0x1
0220 e603       |    |		Load	0x3,0x3
0221 e60c       |    |		Load	0x3,0xc
0222 035b       | [  |		Declare_Type	Array,Constrained
0223 0337       | 7  |		Declare_Variable	Array
0224 029f 0303  |    |		Declare_Subprogram	INIT_0300,For_Call
0226 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
0228			BODY_01e0:
0228 e604       |    |		Load	0x3,0x4
0229 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
022a e604       |    |		Load	0x3,0x4
022b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
022c c605       |    |		Store	0x3,0x5
022d 00cf       |    |		Action	Mark_Auxiliary
022e 00db       |    |		Load_Top	At_Offset_3
022f 01d9       |    |		Execute	Vector,Reverse_Bounds
0230 0263       | c  |		Execute	Discrete,Above_Bound
0231 705e       |p^  |		Jump_Nonzero	0x290
0232 e602       |    |		Load	0x3,0x2
0233 e001       |    |		Load	0x0,0x1
0234 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0235 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0236 c606       |    |		Store	0x3,0x6
0237 e603       |    |		Load	0x3,0x3
0238 e21a       |    |		Load	0x1,0x1a
0239 1c08       |    |		Execute_Immediate	Run_Utility,0x8
023a e606       |    |		Load	0x3,0x6
023b e21a       |    |		Load	0x1,0x1a
023c 2302       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x2
023d 0119       |    |		Execute	Any,Check_In_Formal_Type
023e 00d9       |    |		Load_Top	At_Offset_1
023f 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0240 e606       |    |		Load	0x3,0x6
0241 8225       | %  |		Call	0x1,0x25
0242 e223       | #  |		Load	0x1,0x23
0243 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0244 00d9       |    |		Load_Top	At_Offset_1
0245 2803       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0246 00d9       |    |		Load_Top	At_Offset_1
0247 00d9       |    |		Load_Top	At_Offset_1
0248 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0249 4800       |H   |		Short_Literal	0x0
024a 00d9       |    |		Load_Top	At_Offset_1
024b 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
024c 00d8       |    |		Load_Top	At_Offset_0
024d 2509       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x9
024e 0335       | 5  |		Declare_Variable	Array,Duplicate
024f 00cd       |    |		Action	Spare6_Action
0250 00d9       |    |		Load_Top	At_Offset_1
0251 2509       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x9
0252 01d9       |    |		Execute	Vector,Reverse_Bounds
0253 0263       | c  |		Execute	Discrete,Above_Bound
0254 7005       |p   |		Jump_Nonzero	0x25a
0255 4800       |H   |		Short_Literal	0x0
0256 00d9       |    |		Load_Top	At_Offset_1
0257 e61b       |    |		Load	0x3,0x1b
0258 01d6       |    |		Execute	Vector,Field_Write
0259 3ffb       |?   |		Loop_Increasing	0x255
025a 00d9       |    |		Load_Top	At_Offset_1
025b 00d8       |    |		Load_Top	At_Offset_0
025c 2509       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x9
025d 00da       |    |		Load_Top	At_Offset_2
025e 01da       |    |		Execute	Vector,Bounds
025f 00da       |    |		Load_Top	At_Offset_2
0260 01da       |    |		Execute	Vector,Bounds
0261 00da       |    |		Load_Top	At_Offset_2
0262 027f       |    |		Execute	Discrete,Equal
0263 7001       |p   |		Jump_Nonzero	0x265
0264 08e0       |    |		Execute_Immediate	Raise,0xe0
0265 00cd       |    |		Action	Spare6_Action
0266 027f       |    |		Execute	Discrete,Equal
0267 7001       |p   |		Jump_Nonzero	0x269
0268 08e0       |    |		Execute_Immediate	Raise,0xe0
0269 00d2       |    |		Pop_Control	Pop_Count_2
026a 00d9       |    |		Load_Top	At_Offset_1
026b 2909       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x9
026c 4800       |H   |		Short_Literal	0x0
026d 00d9       |    |		Load_Top	At_Offset_1
026e 2806       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
026f e221       | !  |		Load	0x1,0x21
0270 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0271 00d9       |    |		Load_Top	At_Offset_1
0272 2807       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0273 4801       |H   |		Short_Literal	0x1
0274 00d9       |    |		Load_Top	At_Offset_1
0275 2808       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
0276 e20d       |    |		Load	0x1,0xd
0277 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0278 00d9       |    |		Load_Top	At_Offset_1
0279 e614       |    |		Load	0x3,0x14
027a 01d6       |    |		Execute	Vector,Field_Write
027b e605       |    |		Load	0x3,0x5
027c 4800       |H   |		Short_Literal	0x0
027d 00da       |    |		Load_Top	At_Offset_2
027e e614       |    |		Load	0x3,0x14
027f 01d7       |    |		Execute	Vector,Field_Read
0280 00db       |    |		Load_Top	At_Offset_3
0281 e614       |    |		Load	0x3,0x14
0282 01d7       |    |		Execute	Vector,Field_Read
0283 0227       | '  |		Execute	Access,All_Reference
0284 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0285 0227       | '  |		Execute	Access,All_Reference
0286 e604       |    |		Load	0x3,0x4
0287 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0288 c605       |    |		Store	0x3,0x5
0289 e602       |    |		Load	0x3,0x2
028a e001       |    |		Load	0x0,0x1
028b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028c 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
028d c602       |    |		Store	0x3,0x2
028e 00c8       |    |		Action	Pop_Auxiliary_Range
028f 3fa2       |?   |		Loop_Increasing	0x232
0290 00c9       |    |		Action	Pop_Auxiliary_Loop
0291 00db       |    |		Load_Top	At_Offset_3
0292 01d9       |    |		Execute	Vector,Reverse_Bounds
0293 0263       | c  |		Execute	Discrete,Above_Bound
0294 7037       |p7  |		Jump_Nonzero	0x2cc
0295 00d8       |    |		Load_Top	At_Offset_0
0296 e614       |    |		Load	0x3,0x14
0297 01d7       |    |		Execute	Vector,Field_Read
0298 0227       | '  |		Execute	Access,All_Reference
0299 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
029a 85fd       |    |		Call	0x2,-0x3
029b c607       |    |		Store	0x3,0x7
029c 00cf       |    |		Action	Mark_Auxiliary
029d 7826       |x&  |		Jump	0x2c4
029e 8615       |    |		Call	0x3,0x15
029f e609       |    |		Load	0x3,0x9
02a0 680e       |h   |		Jump_Zero	0x2af
02a1 00d9       |    |		Load_Top	At_Offset_1
02a2 e614       |    |		Load	0x3,0x14
02a3 01d7       |    |		Execute	Vector,Field_Read
02a4 0227       | '  |		Execute	Access,All_Reference
02a5 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
02a6 e608       |    |		Load	0x3,0x8
02a7 e221       | !  |		Load	0x1,0x21
02a8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02a9 00da       |    |		Load_Top	At_Offset_2
02aa e614       |    |		Load	0x3,0x14
02ab 01d7       |    |		Execute	Vector,Field_Read
02ac 0227       | '  |		Execute	Access,All_Reference
02ad 2807       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
02ae 780f       |x   |		Jump	0x2be
02af e607       |    |		Load	0x3,0x7
02b0 e001       |    |		Load	0x0,0x1
02b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b2 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
02b3 e00b       |    |		Load	0x0,0xb
02b4 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02b5 6802       |h   |		Jump_Zero	0x2b8
02b6 8616       |    |		Call	0x3,0x16
02b7 7806       |x   |		Jump	0x2be
02b8 4801       |H   |		Short_Literal	0x1
02b9 00da       |    |		Load_Top	At_Offset_2
02ba e614       |    |		Load	0x3,0x14
02bb 01d7       |    |		Execute	Vector,Field_Read
02bc 0227       | '  |		Execute	Access,All_Reference
02bd 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
02be e607       |    |		Load	0x3,0x7
02bf e001       |    |		Load	0x0,0x1
02c0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c1 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
02c2 c607       |    |		Store	0x3,0x7
02c3 00c9       |    |		Action	Pop_Auxiliary_Loop
02c4 e607       |    |		Load	0x3,0x7
02c5 e001       |    |		Load	0x0,0x1
02c6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c7 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02c8 6fd5       |o   |		Jump_Zero	0x29e
02c9 00ce       |    |		Action	Pop_Auxiliary
02ca 00c8       |    |		Action	Pop_Auxiliary_Range
02cb 3fc9       |?   |		Loop_Increasing	0x295
02cc 00c9       |    |		Action	Pop_Auxiliary_Loop
02cd 00db       |    |		Load_Top	At_Offset_3
02ce 01d9       |    |		Execute	Vector,Reverse_Bounds
02cf 0263       | c  |		Execute	Discrete,Above_Bound
02d0 700b       |p   |		Jump_Nonzero	0x2dc
02d1 00d8       |    |		Load_Top	At_Offset_0
02d2 e614       |    |		Load	0x3,0x14
02d3 01d7       |    |		Execute	Vector,Field_Read
02d4 00d9       |    |		Load_Top	At_Offset_1
02d5 e614       |    |		Load	0x3,0x14
02d6 01d7       |    |		Execute	Vector,Field_Read
02d7 0227       | '  |		Execute	Access,All_Reference
02d8 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
02d9 8227       | '  |		Call	0x1,0x27
02da 00c8       |    |		Action	Pop_Auxiliary_Range
02db 3ff5       |?   |		Loop_Increasing	0x2d1
02dc 00ce       |    |		Action	Pop_Auxiliary
02dd 00da       |    |		Load_Top	At_Offset_2
02de e60d       |    |		Load	0x3,0xd
02df e60e       |    |		Load	0x3,0xe
02e0 e60f       |    |		Load	0x3,0xf
02e1 4810       |H   |		Short_Literal	0x10
02e2 4803       |H   |		Short_Literal	0x3
02e3 0099       |    |		Action	Reference_Dynamic
02e4 4811       |H   |		Short_Literal	0x11
02e5 4803       |H   |		Short_Literal	0x3
02e6 0099       |    |		Action	Reference_Dynamic
02e7 8008       |    |		Call	0x0,0x8
02e8 00d1       |    |		Pop_Control	Pop_Count_1
02e9 00cf       |    |		Action	Mark_Auxiliary
02ea 00db       |    |		Load_Top	At_Offset_3
02eb 01d9       |    |		Execute	Vector,Reverse_Bounds
02ec 0263       | c  |		Execute	Discrete,Above_Bound
02ed 7008       |p   |		Jump_Nonzero	0x2f6
02ee 00d8       |    |		Load_Top	At_Offset_0
02ef e614       |    |		Load	0x3,0x14
02f0 01d7       |    |		Execute	Vector,Field_Read
02f1 00d9       |    |		Load_Top	At_Offset_1
02f2 e60a       |    |		Load	0x3,0xa
02f3 01d6       |    |		Execute	Vector,Field_Write
02f4 00c8       |    |		Action	Pop_Auxiliary_Range
02f5 3ff8       |?   |		Loop_Increasing	0x2ee
02f6 00ce       |    |		Action	Pop_Auxiliary
02f7 e60a       |    |		Load	0x3,0xa
02f8 e20f       |    |		Load	0x1,0xf
02f9 01c6       |    |		Execute	Vector,Convert_To_Formal
02fa 00cb       |    |		Action	Pop_Block_With_Result
02fb 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
02fc 0000 0000  |    |		.BLANK	0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0308       |    |		.CONST	0x0308								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0002       |    |		.CONST	0x0002								; Number of locals
0303			INIT_0300:
0303 e607       |    |		Load	0x3,0x7
0304 e001       |    |		Load	0x0,0x1
0305 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0306 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0307 8225       | %  |		Call	0x1,0x25
0308			BODY_0300:
0308 00e1       |    |		Load_Encached	Boolean_Cache
0309 e608       |    |		Load	0x3,0x8
030a 00da       |    |		Load_Top	At_Offset_2
030b e605       |    |		Load	0x3,0x5
030c e604       |    |		Load	0x3,0x4
030d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
030e c608       |    |		Store	0x3,0x8
030f c609       |    |		Store	0x3,0x9
0310 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0311 0000 0000  |    |		.BLANK	0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0326       | &  |		.CONST	0x0326								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0002       |    |		.CONST	0x0002								; Number of locals
031b			INIT_0318:
031b e001       |    |		Load	0x0,0x1
031c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031e 02c7       |    |		Declare_Variable	Any
031f e607       |    |		Load	0x3,0x7
0320 e001       |    |		Load	0x0,0x1
0321 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0322 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0323 e00b       |    |		Load	0x0,0xb
0324 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0325 a802       |    |		Store_Unchecked	0x4,0x2
0326			BODY_0318:
0326 00d8       |    |		Load_Top	At_Offset_0
0327 e001       |    |		Load	0x0,0x1
0328 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0329 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
032a 7020       |p   |		Jump_Nonzero	0x34b
032b 00e1       |    |		Load_Encached	Boolean_Cache
032c e608       |    |		Load	0x3,0x8
032d 00da       |    |		Load_Top	At_Offset_2
032e 8225       | %  |		Call	0x1,0x25
032f e605       |    |		Load	0x3,0x5
0330 e604       |    |		Load	0x3,0x4
0331 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0332 c608       |    |		Store	0x3,0x8
0333 c609       |    |		Store	0x3,0x9
0334 e609       |    |		Load	0x3,0x9
0335 680e       |h   |		Jump_Zero	0x344
0336 e619       |    |		Load	0x3,0x19
0337 e614       |    |		Load	0x3,0x14
0338 01d7       |    |		Execute	Vector,Field_Read
0339 0227       | '  |		Execute	Access,All_Reference
033a 2c07       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x7
033b e608       |    |		Load	0x3,0x8
033c e221       | !  |		Load	0x1,0x21
033d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
033e e619       |    |		Load	0x3,0x19
033f e614       |    |		Load	0x3,0x14
0340 01d7       |    |		Execute	Vector,Field_Read
0341 0227       | '  |		Execute	Access,All_Reference
0342 2807       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0343 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0344 4801       |H   |		Short_Literal	0x1
0345 e619       |    |		Load	0x3,0x19
0346 e614       |    |		Load	0x3,0x14
0347 01d7       |    |		Execute	Vector,Field_Read
0348 0227       | '  |		Execute	Access,All_Reference
0349 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
034a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034b 4801       |H   |		Short_Literal	0x1
034c e619       |    |		Load	0x3,0x19
034d e614       |    |		Load	0x3,0x14
034e 01d7       |    |		Execute	Vector,Field_Read
034f 0227       | '  |		Execute	Access,All_Reference
0350 2805       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0351 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0352 0000 0000  |    |		.BLANK	0000[0x6]
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug Table
0358 ; --------------------------------------------------------------------------------------
0358 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x71f2,0x0000,0x0001,0x0000
035e 01bd 75e0  |  u |		.XXX[0x4a]
0360 025b f660  | [ `|
0362 01c1 76a0  |  v |
0364 0236 7700  | 6w |
0366 025e 7780  | ^w |
0368 0261 f7c0  | a  |
036a 0290 77e0  |  w |
036c 01fc 7800  |  x |
036e 0286 f820  |    |
0370 01fd f840  |   @|
0372 01ee f8a0  |    |
0374 01ad 78c0  |  x |
0376 025a f8e0  | Z  |
0378 0186 7900  |  y |
037a 020c f940  |   @|
037c 0157 7980  | Wy |
037e 0169 79a0  | iy |
0380 01ad f9c0  |    |
0382 01fa 7a00  |  z |
0384 01df 7a40  |  z@|
0386 022d 7b20  | -{ |
0388 0252 fb40  | R @|
038a 024a fb60  | J `|
038c 0259 7c00  | Y| |
038e 01fd 7d60  |  }`|
0390 020c 7e60  |  ~`|
0392 01ce fe80  |    |
0394 01ed fea0  |    |
0396 01e4 fec0  |    |
0398 01cb fee0  |    |
039a 014a ff00  | J  |
039c 01f7 7f20  |    |
039e 01e4 7f40  |   @|
03a0 01d6 ff60  |   `|
03a2 01f1 ff80  |    |
03a4 01db ffc0  |    |
03a6 0000 0020  |    |
03a8 0000 0000  |    |		.BLANK	0000[0x4]
03ac 01db ffc0  |    |		.XXX[0x4]
03ae 0000 0020  |    |
03b0 0000 0000  |    |		.BLANK	0000[0x50]