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

⟦77b66d668⟧

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

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 0350       | P  |		.CONST	0x0350								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0040       | @  |		.CONST	0x0040								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated
0021 c21f       |    |		Store	0x1,0x1f
0022 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0024 c220       |    |		Store	0x1,0x20
0025 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0027 c20f       |    |		Store	0x1,0xf
0028 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
002a c210       |    |		Store	0x1,0x10
002b 029a 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call,Visible,Unelaborated
002d c21d       |    |		Store	0x1,0x1d
002e 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0030 c21e       |    |		Store	0x1,0x1e
0031 00bf       |    |		Action	Accept_Activation
0032 029d 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call
0034 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
003f 00c7       |    |		Action	Elaborate_Subprogram
0040			BODY_0008:
0040 00bc       |    |		Action	Signal_Activated
0041 00bb       |    |		Action	Signal_Completion
0042 0000 0000  |    |		.BLANK	0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0055       | U  |		.CONST	0x0055								; Address of begin
0049 008a       |    |		.CONST	0x008a								; Address of exception handler
004a 0003       |    |		.CONST	0x0003								; Number of locals
004b			INIT_0048:
004b e001       |    |		Load	0x0,0x1
004c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004d 02c7       |    |		Declare_Variable	Any
004e 00d8       |    |		Load_Top	At_Offset_0
004f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0050 e002       |    |		Load	0x0,0x2
0051 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0052 02c7       |    |		Declare_Variable	Any
0053 00d8       |    |		Load_Top	At_Offset_0
0054 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0055			BODY_0048:
0055 e5f8       |    |		Load	0x2,-0x8
0056 e002       |    |		Load	0x0,0x2
0057 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0058 c403       |    |		Store	0x2,0x3
0059 00d8       |    |		Load_Top	At_Offset_0
005a e002       |    |		Load	0x0,0x2
005b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
005c 6816       |h   |		Jump_Zero	0x73
005d e003       |    |		Load	0x0,0x3
005e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
005f 4801       |H   |		Short_Literal	0x1
0060 4801       |H   |		Short_Literal	0x1
0061 e004       |    |		Load	0x0,0x4
0062 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0063 035b       | [  |		Declare_Type	Array,Constrained
0064 0337       | 7  |		Declare_Variable	Array
0065 e5f8       |    |		Load	0x2,-0x8
0066 e005       |    |		Load	0x0,0x5
0067 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0068 e004       |    |		Load	0x0,0x4
0069 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006a 0119       |    |		Execute	Any,Check_In_Formal_Type
006b 4801       |H   |		Short_Literal	0x1
006c 00da       |    |		Load_Top	At_Offset_2
006d 01d6       |    |		Execute	Vector,Field_Write
006e 6045       |`E  |		Indirect_Literal	Discrete,0xb4,{0x00000000, 0x000081b9}
006f e006       |    |		Load	0x0,0x6
0070 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0071 4800       |H   |		Short_Literal	0x0
0072 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
0073 00d9       |    |		Load_Top	At_Offset_1
0074 e5f9       |    |		Load	0x2,-0x7
0075 e5fa       |    |		Load	0x2,-0x6
0076 e5fb       |    |		Load	0x2,-0x5
0077 e5fc       |    |		Load	0x2,-0x4
0078 e5fd       |    |		Load	0x2,-0x3
0079 e5fe       |    |		Load	0x2,-0x2
007a e5ff       |    |		Load	0x2,-0x1
007b e403       |    |		Load	0x2,0x3
007c e007       |    |		Load	0x0,0x7
007d 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
007e 00d8       |    |		Load_Top	At_Offset_0
007f e007       |    |		Load	0x0,0x7
0080 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0081 7003       |p   |		Jump_Nonzero	0x85
0082 e008       |    |		Load	0x0,0x8
0083 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0084 0257       | W  |		Execute	Discrete,Raise
0085 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0086 c402       |    |		Store	0x2,0x2
0087 00d9       |    |		Load_Top	At_Offset_1
0088 8221       | !  |		Call	0x1,0x21
0089 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
008a			TRAP_0048:
008a 4884       |H   |		Short_Literal	0x84
008b 010f       |    |		Execute	Exception,Equal
008c 7004       |p   |		Jump_Nonzero	0x91
008d e008       |    |		Load	0x0,0x8
008e 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
008f 010f       |    |		Execute	Exception,Equal
0090 6816       |h   |		Jump_Zero	0xa7
0091 e003       |    |		Load	0x0,0x3
0092 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0093 4801       |H   |		Short_Literal	0x1
0094 4801       |H   |		Short_Literal	0x1
0095 e004       |    |		Load	0x0,0x4
0096 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0097 035b       | [  |		Declare_Type	Array,Constrained
0098 0337       | 7  |		Declare_Variable	Array
0099 e5f8       |    |		Load	0x2,-0x8
009a e005       |    |		Load	0x0,0x5
009b 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
009c e004       |    |		Load	0x0,0x4
009d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
009e 0119       |    |		Execute	Any,Check_In_Formal_Type
009f 4801       |H   |		Short_Literal	0x1
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 01d6       |    |		Execute	Vector,Field_Write
00a2 600d       |`   |		Indirect_Literal	Discrete,0xb0,{0x00000000, 0x000081bb}
00a3 e006       |    |		Load	0x0,0x6
00a4 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00a5 4800       |H   |		Short_Literal	0x0
00a6 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
00a7 e006       |    |		Load	0x0,0x6
00a8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00a9 010f       |    |		Execute	Exception,Equal
00aa 6802       |h   |		Jump_Zero	0xad
00ab 4800       |H   |		Short_Literal	0x0
00ac 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
00ad 0100       |    |		Execute	Exception,Raise
00ae 0000 0000  |    |		.XXX[0x2]
00b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081bb}
00b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b9}
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c5       |    |		.CONST	0x00c5								; Address of begin
00b9 00fa       |    |		.CONST	0x00fa								; Address of exception handler
00ba 0003       |    |		.CONST	0x0003								; Number of locals
00bb			INIT_00b8:
00bb e001       |    |		Load	0x0,0x1
00bc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00bd 02c7       |    |		Declare_Variable	Any
00be 00d8       |    |		Load_Top	At_Offset_0
00bf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c0 e002       |    |		Load	0x0,0x2
00c1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c2 02c7       |    |		Declare_Variable	Any
00c3 00d8       |    |		Load_Top	At_Offset_0
00c4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c5			BODY_00b8:
00c5 e5f8       |    |		Load	0x2,-0x8
00c6 e002       |    |		Load	0x0,0x2
00c7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00c8 c403       |    |		Store	0x2,0x3
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca e002       |    |		Load	0x0,0x2
00cb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00cc 6816       |h   |		Jump_Zero	0xe3
00cd e003       |    |		Load	0x0,0x3
00ce 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00cf 4801       |H   |		Short_Literal	0x1
00d0 4801       |H   |		Short_Literal	0x1
00d1 e004       |    |		Load	0x0,0x4
00d2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d3 035b       | [  |		Declare_Type	Array,Constrained
00d4 0337       | 7  |		Declare_Variable	Array
00d5 e5f8       |    |		Load	0x2,-0x8
00d6 e005       |    |		Load	0x0,0x5
00d7 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
00d8 e004       |    |		Load	0x0,0x4
00d9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00da 0119       |    |		Execute	Any,Check_In_Formal_Type
00db 4801       |H   |		Short_Literal	0x1
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 67d5       |g   |		Indirect_Literal	Discrete,0xb4,{0x00000000, 0x000081b9}
00df e006       |    |		Load	0x0,0x6
00e0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00e1 4800       |H   |		Short_Literal	0x0
00e2 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
00e3 00d9       |    |		Load_Top	At_Offset_1
00e4 e5f9       |    |		Load	0x2,-0x7
00e5 e5fa       |    |		Load	0x2,-0x6
00e6 e5fb       |    |		Load	0x2,-0x5
00e7 e5fc       |    |		Load	0x2,-0x4
00e8 e5fd       |    |		Load	0x2,-0x3
00e9 e5fe       |    |		Load	0x2,-0x2
00ea e5ff       |    |		Load	0x2,-0x1
00eb e403       |    |		Load	0x2,0x3
00ec e007       |    |		Load	0x0,0x7
00ed 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef e007       |    |		Load	0x0,0x7
00f0 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00f1 7003       |p   |		Jump_Nonzero	0xf5
00f2 e008       |    |		Load	0x0,0x8
00f3 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00f4 0257       | W  |		Execute	Discrete,Raise
00f5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00f6 c402       |    |		Store	0x2,0x2
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 8221       | !  |		Call	0x1,0x21
00f9 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
00fa			TRAP_00b8:
00fa 4884       |H   |		Short_Literal	0x84
00fb 010f       |    |		Execute	Exception,Equal
00fc 7004       |p   |		Jump_Nonzero	0x101
00fd e008       |    |		Load	0x0,0x8
00fe 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00ff 010f       |    |		Execute	Exception,Equal
0100 6816       |h   |		Jump_Zero	0x117
0101 e003       |    |		Load	0x0,0x3
0102 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0103 4801       |H   |		Short_Literal	0x1
0104 4801       |H   |		Short_Literal	0x1
0105 e004       |    |		Load	0x0,0x4
0106 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0107 035b       | [  |		Declare_Type	Array,Constrained
0108 0337       | 7  |		Declare_Variable	Array
0109 e5f8       |    |		Load	0x2,-0x8
010a e005       |    |		Load	0x0,0x5
010b 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
010c e004       |    |		Load	0x0,0x4
010d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010e 0119       |    |		Execute	Any,Check_In_Formal_Type
010f 4801       |H   |		Short_Literal	0x1
0110 00da       |    |		Load_Top	At_Offset_2
0111 01d6       |    |		Execute	Vector,Field_Write
0112 679d       |g   |		Indirect_Literal	Discrete,0xb0,{0x00000000, 0x000081bb}
0113 e006       |    |		Load	0x0,0x6
0114 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0115 4800       |H   |		Short_Literal	0x0
0116 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
0117 e006       |    |		Load	0x0,0x6
0118 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0119 010f       |    |		Execute	Exception,Equal
011a 6802       |h   |		Jump_Zero	0x11d
011b 4800       |H   |		Short_Literal	0x0
011c 4408       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x8
011d 0100       |    |		Execute	Exception,Raise
011e 0000 0000  |    |		.XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012d       | -  |		.CONST	0x012d								; Address of begin
0121 015e       | ^  |		.CONST	0x015e								; Address of exception handler
0122 0003       |    |		.CONST	0x0003								; Number of locals
0123			INIT_0120:
0123 e001       |    |		Load	0x0,0x1
0124 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0125 02c7       |    |		Declare_Variable	Any
0126 00d8       |    |		Load_Top	At_Offset_0
0127 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0128 e002       |    |		Load	0x0,0x2
0129 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012a 02c7       |    |		Declare_Variable	Any
012b 00d8       |    |		Load_Top	At_Offset_0
012c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012d			BODY_0120:
012d e5fc       |    |		Load	0x2,-0x4
012e e002       |    |		Load	0x0,0x2
012f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0130 c403       |    |		Store	0x2,0x3
0131 00d8       |    |		Load_Top	At_Offset_0
0132 e002       |    |		Load	0x0,0x2
0133 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0134 6816       |h   |		Jump_Zero	0x14b
0135 e003       |    |		Load	0x0,0x3
0136 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0137 4801       |H   |		Short_Literal	0x1
0138 4801       |H   |		Short_Literal	0x1
0139 e004       |    |		Load	0x0,0x4
013a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
013b 035b       | [  |		Declare_Type	Array,Constrained
013c 0337       | 7  |		Declare_Variable	Array
013d e5fc       |    |		Load	0x2,-0x4
013e e005       |    |		Load	0x0,0x5
013f 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0140 e004       |    |		Load	0x0,0x4
0141 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0142 0119       |    |		Execute	Any,Check_In_Formal_Type
0143 4801       |H   |		Short_Literal	0x1
0144 00da       |    |		Load_Top	At_Offset_2
0145 01d6       |    |		Execute	Vector,Field_Write
0146 6041       |`A  |		Indirect_Literal	Discrete,0x188,{0x00000000, 0x000081b9}
0147 e006       |    |		Load	0x0,0x6
0148 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0149 4800       |H   |		Short_Literal	0x0
014a 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
014b 00d9       |    |		Load_Top	At_Offset_1
014c e5fd       |    |		Load	0x2,-0x3
014d e5fe       |    |		Load	0x2,-0x2
014e e5ff       |    |		Load	0x2,-0x1
014f e403       |    |		Load	0x2,0x3
0150 e007       |    |		Load	0x0,0x7
0151 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0152 00d8       |    |		Load_Top	At_Offset_0
0153 e007       |    |		Load	0x0,0x7
0154 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0155 7003       |p   |		Jump_Nonzero	0x159
0156 e008       |    |		Load	0x0,0x8
0157 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0158 0257       | W  |		Execute	Discrete,Raise
0159 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
015a c402       |    |		Store	0x2,0x2
015b 00d9       |    |		Load_Top	At_Offset_1
015c 8221       | !  |		Call	0x1,0x21
015d 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
015e			TRAP_0120:
015e 4884       |H   |		Short_Literal	0x84
015f 010f       |    |		Execute	Exception,Equal
0160 7004       |p   |		Jump_Nonzero	0x165
0161 e008       |    |		Load	0x0,0x8
0162 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0163 010f       |    |		Execute	Exception,Equal
0164 6816       |h   |		Jump_Zero	0x17b
0165 e003       |    |		Load	0x0,0x3
0166 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0167 4801       |H   |		Short_Literal	0x1
0168 4801       |H   |		Short_Literal	0x1
0169 e004       |    |		Load	0x0,0x4
016a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016b 035b       | [  |		Declare_Type	Array,Constrained
016c 0337       | 7  |		Declare_Variable	Array
016d e5fc       |    |		Load	0x2,-0x4
016e e005       |    |		Load	0x0,0x5
016f 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0170 e004       |    |		Load	0x0,0x4
0171 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0172 0119       |    |		Execute	Any,Check_In_Formal_Type
0173 4801       |H   |		Short_Literal	0x1
0174 00da       |    |		Load_Top	At_Offset_2
0175 01d6       |    |		Execute	Vector,Field_Write
0176 600d       |`   |		Indirect_Literal	Discrete,0x184,{0x00000000, 0x000081bb}
0177 e006       |    |		Load	0x0,0x6
0178 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0179 4800       |H   |		Short_Literal	0x0
017a 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
017b e006       |    |		Load	0x0,0x6
017c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
017d 010f       |    |		Execute	Exception,Equal
017e 6802       |h   |		Jump_Zero	0x181
017f 4800       |H   |		Short_Literal	0x0
0180 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0181 0100       |    |		Execute	Exception,Raise
0182 0000 0000  |    |		.XXX[0x2]
0184 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081bb}
0188 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b9}
018c 0000 0000  |    |		.BLANK	0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019d       |    |		.CONST	0x019d								; Address of begin
0191 01ce       |    |		.CONST	0x01ce								; Address of exception handler
0192 0003       |    |		.CONST	0x0003								; Number of locals
0193			INIT_0190:
0193 e001       |    |		Load	0x0,0x1
0194 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0195 02c7       |    |		Declare_Variable	Any
0196 00d8       |    |		Load_Top	At_Offset_0
0197 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0198 e002       |    |		Load	0x0,0x2
0199 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019a 02c7       |    |		Declare_Variable	Any
019b 00d8       |    |		Load_Top	At_Offset_0
019c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
019d			BODY_0190:
019d e5fc       |    |		Load	0x2,-0x4
019e e002       |    |		Load	0x0,0x2
019f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a0 c403       |    |		Store	0x2,0x3
01a1 00d8       |    |		Load_Top	At_Offset_0
01a2 e002       |    |		Load	0x0,0x2
01a3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01a4 6816       |h   |		Jump_Zero	0x1bb
01a5 e003       |    |		Load	0x0,0x3
01a6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01a7 4801       |H   |		Short_Literal	0x1
01a8 4801       |H   |		Short_Literal	0x1
01a9 e004       |    |		Load	0x0,0x4
01aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ab 035b       | [  |		Declare_Type	Array,Constrained
01ac 0337       | 7  |		Declare_Variable	Array
01ad e5fc       |    |		Load	0x2,-0x4
01ae e005       |    |		Load	0x0,0x5
01af 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
01b0 e004       |    |		Load	0x0,0x4
01b1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b2 0119       |    |		Execute	Any,Check_In_Formal_Type
01b3 4801       |H   |		Short_Literal	0x1
01b4 00da       |    |		Load_Top	At_Offset_2
01b5 01d6       |    |		Execute	Vector,Field_Write
01b6 67d1       |g   |		Indirect_Literal	Discrete,0x188,{0x00000000, 0x000081b9}
01b7 e006       |    |		Load	0x0,0x6
01b8 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
01b9 4800       |H   |		Short_Literal	0x0
01ba 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01bb 00d9       |    |		Load_Top	At_Offset_1
01bc e5fd       |    |		Load	0x2,-0x3
01bd e5fe       |    |		Load	0x2,-0x2
01be e5ff       |    |		Load	0x2,-0x1
01bf e403       |    |		Load	0x2,0x3
01c0 e007       |    |		Load	0x0,0x7
01c1 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
01c2 00d8       |    |		Load_Top	At_Offset_0
01c3 e007       |    |		Load	0x0,0x7
01c4 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
01c5 7003       |p   |		Jump_Nonzero	0x1c9
01c6 e008       |    |		Load	0x0,0x8
01c7 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
01c8 0257       | W  |		Execute	Discrete,Raise
01c9 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
01ca c402       |    |		Store	0x2,0x2
01cb 00d9       |    |		Load_Top	At_Offset_1
01cc 8221       | !  |		Call	0x1,0x21
01cd 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01ce			TRAP_0190:
01ce 4884       |H   |		Short_Literal	0x84
01cf 010f       |    |		Execute	Exception,Equal
01d0 7004       |p   |		Jump_Nonzero	0x1d5
01d1 e008       |    |		Load	0x0,0x8
01d2 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
01d3 010f       |    |		Execute	Exception,Equal
01d4 6816       |h   |		Jump_Zero	0x1eb
01d5 e003       |    |		Load	0x0,0x3
01d6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01d7 4801       |H   |		Short_Literal	0x1
01d8 4801       |H   |		Short_Literal	0x1
01d9 e004       |    |		Load	0x0,0x4
01da 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01db 035b       | [  |		Declare_Type	Array,Constrained
01dc 0337       | 7  |		Declare_Variable	Array
01dd e5fc       |    |		Load	0x2,-0x4
01de e005       |    |		Load	0x0,0x5
01df 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
01e0 e004       |    |		Load	0x0,0x4
01e1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e2 0119       |    |		Execute	Any,Check_In_Formal_Type
01e3 4801       |H   |		Short_Literal	0x1
01e4 00da       |    |		Load_Top	At_Offset_2
01e5 01d6       |    |		Execute	Vector,Field_Write
01e6 679d       |g   |		Indirect_Literal	Discrete,0x184,{0x00000000, 0x000081bb}
01e7 e006       |    |		Load	0x0,0x6
01e8 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
01e9 4800       |H   |		Short_Literal	0x0
01ea 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01eb e006       |    |		Load	0x0,0x6
01ec 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01ed 010f       |    |		Execute	Exception,Equal
01ee 6802       |h   |		Jump_Zero	0x1f1
01ef 4800       |H   |		Short_Literal	0x0
01f0 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01f1 0100       |    |		Execute	Exception,Raise
01f2 0000 0000  |    |		.BLANK	0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0205       |    |		.CONST	0x0205								; Address of begin
01f9 0236       | 6  |		.CONST	0x0236								; Address of exception handler
01fa 0003       |    |		.CONST	0x0003								; Number of locals
01fb			INIT_01f8:
01fb e001       |    |		Load	0x0,0x1
01fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fd 02c7       |    |		Declare_Variable	Any
01fe 00d8       |    |		Load_Top	At_Offset_0
01ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0200 e002       |    |		Load	0x0,0x2
0201 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0202 02c7       |    |		Declare_Variable	Any
0203 00d8       |    |		Load_Top	At_Offset_0
0204 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0205			BODY_01f8:
0205 e5fc       |    |		Load	0x2,-0x4
0206 e002       |    |		Load	0x0,0x2
0207 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0208 c403       |    |		Store	0x2,0x3
0209 00d8       |    |		Load_Top	At_Offset_0
020a e002       |    |		Load	0x0,0x2
020b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
020c 6816       |h   |		Jump_Zero	0x223
020d e003       |    |		Load	0x0,0x3
020e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
020f 4801       |H   |		Short_Literal	0x1
0210 4801       |H   |		Short_Literal	0x1
0211 e004       |    |		Load	0x0,0x4
0212 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0213 035b       | [  |		Declare_Type	Array,Constrained
0214 0337       | 7  |		Declare_Variable	Array
0215 e5fc       |    |		Load	0x2,-0x4
0216 e005       |    |		Load	0x0,0x5
0217 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0218 e004       |    |		Load	0x0,0x4
0219 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
021a 0119       |    |		Execute	Any,Check_In_Formal_Type
021b 4801       |H   |		Short_Literal	0x1
021c 00da       |    |		Load_Top	At_Offset_2
021d 01d6       |    |		Execute	Vector,Field_Write
021e 6041       |`A  |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x000081b9}
021f e006       |    |		Load	0x0,0x6
0220 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0221 4800       |H   |		Short_Literal	0x0
0222 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0223 00d9       |    |		Load_Top	At_Offset_1
0224 e5fd       |    |		Load	0x2,-0x3
0225 e5fe       |    |		Load	0x2,-0x2
0226 e5ff       |    |		Load	0x2,-0x1
0227 e403       |    |		Load	0x2,0x3
0228 e007       |    |		Load	0x0,0x7
0229 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
022a 00d8       |    |		Load_Top	At_Offset_0
022b e007       |    |		Load	0x0,0x7
022c 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
022d 7003       |p   |		Jump_Nonzero	0x231
022e e008       |    |		Load	0x0,0x8
022f 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0230 0257       | W  |		Execute	Discrete,Raise
0231 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0232 c402       |    |		Store	0x2,0x2
0233 00d9       |    |		Load_Top	At_Offset_1
0234 8221       | !  |		Call	0x1,0x21
0235 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0236			TRAP_01f8:
0236 4884       |H   |		Short_Literal	0x84
0237 010f       |    |		Execute	Exception,Equal
0238 7004       |p   |		Jump_Nonzero	0x23d
0239 e008       |    |		Load	0x0,0x8
023a 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
023b 010f       |    |		Execute	Exception,Equal
023c 6816       |h   |		Jump_Zero	0x253
023d e003       |    |		Load	0x0,0x3
023e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
023f 4801       |H   |		Short_Literal	0x1
0240 4801       |H   |		Short_Literal	0x1
0241 e004       |    |		Load	0x0,0x4
0242 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0243 035b       | [  |		Declare_Type	Array,Constrained
0244 0337       | 7  |		Declare_Variable	Array
0245 e5fc       |    |		Load	0x2,-0x4
0246 e005       |    |		Load	0x0,0x5
0247 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0248 e004       |    |		Load	0x0,0x4
0249 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
024a 0119       |    |		Execute	Any,Check_In_Formal_Type
024b 4801       |H   |		Short_Literal	0x1
024c 00da       |    |		Load_Top	At_Offset_2
024d 01d6       |    |		Execute	Vector,Field_Write
024e 600d       |`   |		Indirect_Literal	Discrete,0x25c,{0x00000000, 0x000081bb}
024f e006       |    |		Load	0x0,0x6
0250 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0251 4800       |H   |		Short_Literal	0x0
0252 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0253 e006       |    |		Load	0x0,0x6
0254 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0255 010f       |    |		Execute	Exception,Equal
0256 6802       |h   |		Jump_Zero	0x259
0257 4800       |H   |		Short_Literal	0x0
0258 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0259 0100       |    |		Execute	Exception,Raise
025a 0000 0000  |    |		.XXX[0x2]
025c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081bb}
0260 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081b9}
0264 0000 0000  |    |		.BLANK	0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0275       | u  |		.CONST	0x0275								; Address of begin
0269 02a6       |    |		.CONST	0x02a6								; Address of exception handler
026a 0003       |    |		.CONST	0x0003								; Number of locals
026b			INIT_0268:
026b e001       |    |		Load	0x0,0x1
026c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
026d 02c7       |    |		Declare_Variable	Any
026e 00d8       |    |		Load_Top	At_Offset_0
026f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0270 e002       |    |		Load	0x0,0x2
0271 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0272 02c7       |    |		Declare_Variable	Any
0273 00d8       |    |		Load_Top	At_Offset_0
0274 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0275			BODY_0268:
0275 e5fc       |    |		Load	0x2,-0x4
0276 e002       |    |		Load	0x0,0x2
0277 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0278 c403       |    |		Store	0x2,0x3
0279 00d8       |    |		Load_Top	At_Offset_0
027a e002       |    |		Load	0x0,0x2
027b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
027c 6816       |h   |		Jump_Zero	0x293
027d e003       |    |		Load	0x0,0x3
027e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
027f 4801       |H   |		Short_Literal	0x1
0280 4801       |H   |		Short_Literal	0x1
0281 e004       |    |		Load	0x0,0x4
0282 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0283 035b       | [  |		Declare_Type	Array,Constrained
0284 0337       | 7  |		Declare_Variable	Array
0285 e5fc       |    |		Load	0x2,-0x4
0286 e005       |    |		Load	0x0,0x5
0287 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0288 e004       |    |		Load	0x0,0x4
0289 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
028a 0119       |    |		Execute	Any,Check_In_Formal_Type
028b 4801       |H   |		Short_Literal	0x1
028c 00da       |    |		Load_Top	At_Offset_2
028d 01d6       |    |		Execute	Vector,Field_Write
028e 67d1       |g   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x000081b9}
028f e006       |    |		Load	0x0,0x6
0290 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0291 4800       |H   |		Short_Literal	0x0
0292 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0293 00d9       |    |		Load_Top	At_Offset_1
0294 e5fd       |    |		Load	0x2,-0x3
0295 e5fe       |    |		Load	0x2,-0x2
0296 e5ff       |    |		Load	0x2,-0x1
0297 e403       |    |		Load	0x2,0x3
0298 e007       |    |		Load	0x0,0x7
0299 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
029a 00d8       |    |		Load_Top	At_Offset_0
029b e007       |    |		Load	0x0,0x7
029c 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
029d 7003       |p   |		Jump_Nonzero	0x2a1
029e e008       |    |		Load	0x0,0x8
029f 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
02a0 0257       | W  |		Execute	Discrete,Raise
02a1 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
02a2 c402       |    |		Store	0x2,0x2
02a3 00d9       |    |		Load_Top	At_Offset_1
02a4 8221       | !  |		Call	0x1,0x21
02a5 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
02a6			TRAP_0268:
02a6 4884       |H   |		Short_Literal	0x84
02a7 010f       |    |		Execute	Exception,Equal
02a8 7004       |p   |		Jump_Nonzero	0x2ad
02a9 e008       |    |		Load	0x0,0x8
02aa 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
02ab 010f       |    |		Execute	Exception,Equal
02ac 6816       |h   |		Jump_Zero	0x2c3
02ad e003       |    |		Load	0x0,0x3
02ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02af 4801       |H   |		Short_Literal	0x1
02b0 4801       |H   |		Short_Literal	0x1
02b1 e004       |    |		Load	0x0,0x4
02b2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02b3 035b       | [  |		Declare_Type	Array,Constrained
02b4 0337       | 7  |		Declare_Variable	Array
02b5 e5fc       |    |		Load	0x2,-0x4
02b6 e005       |    |		Load	0x0,0x5
02b7 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
02b8 e004       |    |		Load	0x0,0x4
02b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ba 0119       |    |		Execute	Any,Check_In_Formal_Type
02bb 4801       |H   |		Short_Literal	0x1
02bc 00da       |    |		Load_Top	At_Offset_2
02bd 01d6       |    |		Execute	Vector,Field_Write
02be 679d       |g   |		Indirect_Literal	Discrete,0x25c,{0x00000000, 0x000081bb}
02bf e006       |    |		Load	0x0,0x6
02c0 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02c1 4800       |H   |		Short_Literal	0x0
02c2 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
02c3 e006       |    |		Load	0x0,0x6
02c4 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02c5 010f       |    |		Execute	Exception,Equal
02c6 6802       |h   |		Jump_Zero	0x2c9
02c7 4800       |H   |		Short_Literal	0x0
02c8 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
02c9 0100       |    |		Execute	Exception,Raise
02ca 0000 0000  |    |		.BLANK	0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3       |    |		.CONST	0x02d3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0001       |    |		.CONST	0x0001								; Number of locals
02d3			BODY_02d0:
02d3			INIT_02d0:
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 e001       |    |		Load	0x0,0x1
02d5 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02d6 4603       |F   |		Jump_Case	0x4
02d7 7819       |x   |		Jump	0x2f1								; case 0x0
02d8 7830       |x0  |		Jump	0x309								; case 0x1
02d9 7847       |xG  |		Jump	0x321								; case 0x2
02da 7800       |x   |		Jump	0x2db								; case 0x3
02db 4801       |H   |		Short_Literal	0x1
02dc 4801       |H   |		Short_Literal	0x1
02dd e004       |    |		Load	0x0,0x4
02de 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02df 035b       | [  |		Declare_Type	Array,Constrained
02e0 0337       | 7  |		Declare_Variable	Array
02e1 00db       |    |		Load_Top	At_Offset_3
02e2 e001       |    |		Load	0x0,0x1
02e3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02e4 e004       |    |		Load	0x0,0x4
02e5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02e6 e004       |    |		Load	0x0,0x4
02e7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e8 0119       |    |		Execute	Any,Check_In_Formal_Type
02e9 4801       |H   |		Short_Literal	0x1
02ea 00da       |    |		Load_Top	At_Offset_2
02eb 01d6       |    |		Execute	Vector,Field_Write
02ec 605b       |`[  |		Indirect_Literal	Discrete,0x348,{0x00000000, 0x000081be}
02ed e006       |    |		Load	0x0,0x6
02ee 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
02ef 4800       |H   |		Short_Literal	0x0
02f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f1 e003       |    |		Load	0x0,0x3
02f2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02f3 4801       |H   |		Short_Literal	0x1
02f4 4801       |H   |		Short_Literal	0x1
02f5 e004       |    |		Load	0x0,0x4
02f6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02f7 035b       | [  |		Declare_Type	Array,Constrained
02f8 0337       | 7  |		Declare_Variable	Array
02f9 e5ff       |    |		Load	0x2,-0x1
02fa e001       |    |		Load	0x0,0x1
02fb 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02fc e004       |    |		Load	0x0,0x4
02fd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02fe e004       |    |		Load	0x0,0x4
02ff 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0300 0119       |    |		Execute	Any,Check_In_Formal_Type
0301 4801       |H   |		Short_Literal	0x1
0302 00da       |    |		Load_Top	At_Offset_2
0303 01d6       |    |		Execute	Vector,Field_Write
0304 603f       |`?  |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x000081ba}
0305 e006       |    |		Load	0x0,0x6
0306 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0307 4801       |H   |		Short_Literal	0x1
0308 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0309 e003       |    |		Load	0x0,0x3
030a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
030b 4801       |H   |		Short_Literal	0x1
030c 4801       |H   |		Short_Literal	0x1
030d e004       |    |		Load	0x0,0x4
030e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
030f 035b       | [  |		Declare_Type	Array,Constrained
0310 0337       | 7  |		Declare_Variable	Array
0311 e5ff       |    |		Load	0x2,-0x1
0312 e001       |    |		Load	0x0,0x1
0313 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0314 e004       |    |		Load	0x0,0x4
0315 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0316 e004       |    |		Load	0x0,0x4
0317 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0318 0119       |    |		Execute	Any,Check_In_Formal_Type
0319 4801       |H   |		Short_Literal	0x1
031a 00da       |    |		Load_Top	At_Offset_2
031b 01d6       |    |		Execute	Vector,Field_Write
031c 6023       |`#  |		Indirect_Literal	Discrete,0x340,{0x00000000, 0x000081bc}
031d e006       |    |		Load	0x0,0x6
031e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
031f 4801       |H   |		Short_Literal	0x1
0320 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0321 e003       |    |		Load	0x0,0x3
0322 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0323 4801       |H   |		Short_Literal	0x1
0324 4801       |H   |		Short_Literal	0x1
0325 e004       |    |		Load	0x0,0x4
0326 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0327 035b       | [  |		Declare_Type	Array,Constrained
0328 0337       | 7  |		Declare_Variable	Array
0329 e5ff       |    |		Load	0x2,-0x1
032a e001       |    |		Load	0x0,0x1
032b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
032c e004       |    |		Load	0x0,0x4
032d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
032e e004       |    |		Load	0x0,0x4
032f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0330 0119       |    |		Execute	Any,Check_In_Formal_Type
0331 4801       |H   |		Short_Literal	0x1
0332 00da       |    |		Load_Top	At_Offset_2
0333 01d6       |    |		Execute	Vector,Field_Write
0334 6007       |`   |		Indirect_Literal	Discrete,0x33c,{0x00000000, 0x000081bd}
0335 e006       |    |		Load	0x0,0x6
0336 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0337 4800       |H   |		Short_Literal	0x0
0338 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0339 0000 0000  |    |		.XXX[0x3]
033b 0000       |    |
033c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081bd}
0340 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081bc}
0344 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081ba}
0348 0000 0000  |    |		.LITERAL	{0x00000000, 0x000081be}
034c 0000 0000  |    |		.BLANK	0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug Table
0350 ; --------------------------------------------------------------------------------------
0350 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xccb9,0x0000,0x0001,0x0000
0356 0000 0000  |    |		.BLANK	0000[0x10]
0366 0022 1353  | " S|		.XXX[0x1c]
0368 f800 050b  |    |
036a 4480 0008  |D   |
036c 0060 0059  | ` Y|
036e 8000 0052  |   R|
0370 2ac0 0001  |*   |
0372 0000 0001  |    |
0374 8014 0000  |    |
0376 0004 0000  |    |
0378 0100 0000  |    |
037a 0880 0000  |    |
037c 0004 0000  |    |
037e 0029 0000  | )  |
0380 0822 1220  | "  |
0382 0000 0000  |    |		.BLANK	0000[0x1d]
039f 0004 426a  |  Bj|		.XXX[0x1d]
03a1 8a00 0099  |    |
03a3 0090 0001  |    |
03a5 000c 000b  |    |
03a7 3000 0000  |0   |
03a9 2494 0000  |$   |
03ab 2000 0000  |    |
03ad 3002 8000  |0   |
03af 0000 8000  |    |
03b1 0020 0000  |    |
03b3 0110 0000  |    |
03b5 0000 8000  |    |
03b7 0005 2000  |    |
03b9 0101 0690  |    |
03bb 8000       |    |
03bc 0000 0000  |    |		.BLANK	0000[0x44]