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

⟦258084f7d⟧

    Length: 3072 (0xc00)
    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 04d0       |    |		.CONST	0x04d0								; 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 005a       | Z  |		.CONST	0x005a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0027       | '  |		.CONST	0x0027								; 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 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 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
0027 c21d       |    |		Store	0x1,0x1d
0028 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
002a c21e       |    |		Store	0x1,0x1e
002b 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
002d c21f       |    |		Store	0x1,0x1f
002e 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
0030 c220       |    |		Store	0x1,0x20
0031 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated
0033 c221       | !  |		Store	0x1,0x21
0034 029a 026b  |   k|		Declare_Subprogram	INIT_0268,For_Outer_Call,Visible,Unelaborated
0036 c222       | "  |		Store	0x1,0x22
0037 029a 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Outer_Call,Visible,Unelaborated
0039 c223       | #  |		Store	0x1,0x23
003a 029a 0333  |   3|		Declare_Subprogram	INIT_0330,For_Outer_Call,Visible,Unelaborated
003c c224       | $  |		Store	0x1,0x24
003d 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
003f c225       | %  |		Store	0x1,0x25
0040 029a 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Outer_Call,Visible,Unelaborated
0042 c226       | &  |		Store	0x1,0x26
0043 00bf       |    |		Action	Accept_Activation
0044 029d 045b  |   [|		Declare_Subprogram	INIT_0458,For_Outer_Call
0046 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0059 00c7       |    |		Action	Elaborate_Subprogram
005a			BODY_0008:
005a 00bc       |    |		Action	Signal_Activated
005b 00bb       |    |		Action	Signal_Completion
005c 0000 0000  |    |		.BLANK	0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006d       | m  |		.CONST	0x006d								; Address of begin
0061 009f       |    |		.CONST	0x009f								; Address of exception handler
0062 0003       |    |		.CONST	0x0003								; Number of locals
0063			INIT_0060:
0063 e001       |    |		Load	0x0,0x1
0064 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0065 02c7       |    |		Declare_Variable	Any
0066 00d8       |    |		Load_Top	At_Offset_0
0067 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0068 e002       |    |		Load	0x0,0x2
0069 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006a 02c7       |    |		Declare_Variable	Any
006b 00d8       |    |		Load_Top	At_Offset_0
006c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
006d			BODY_0060:
006d e5fc       |    |		Load	0x2,-0x4
006e e002       |    |		Load	0x0,0x2
006f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0070 c403       |    |		Store	0x2,0x3
0071 00d8       |    |		Load_Top	At_Offset_0
0072 e002       |    |		Load	0x0,0x2
0073 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0074 6815       |h   |		Jump_Zero	0x8a
0075 e003       |    |		Load	0x0,0x3
0076 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0077 4801       |H   |		Short_Literal	0x1
0078 4801       |H   |		Short_Literal	0x1
0079 e004       |    |		Load	0x0,0x4
007a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
007b 0334       | 4  |		Declare_Variable	Array,With_Constraint
007c e5fc       |    |		Load	0x2,-0x4
007d e005       |    |		Load	0x0,0x5
007e 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
007f e004       |    |		Load	0x0,0x4
0080 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0081 0119       |    |		Execute	Any,Check_In_Formal_Type
0082 4801       |H   |		Short_Literal	0x1
0083 00da       |    |		Load_Top	At_Offset_2
0084 01d6       |    |		Execute	Vector,Field_Write
0085 6042       |`B  |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x0000885a}
0086 e006       |    |		Load	0x0,0x6
0087 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0088 4800       |H   |		Short_Literal	0x0
0089 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
008a 00d9       |    |		Load_Top	At_Offset_1
008b e5fb       |    |		Load	0x2,-0x5
008c e5fd       |    |		Load	0x2,-0x3
008d e5fe       |    |		Load	0x2,-0x2
008e e5ff       |    |		Load	0x2,-0x1
008f e403       |    |		Load	0x2,0x3
0090 e007       |    |		Load	0x0,0x7
0091 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0092 00d8       |    |		Load_Top	At_Offset_0
0093 e007       |    |		Load	0x0,0x7
0094 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0095 7003       |p   |		Jump_Nonzero	0x99
0096 e008       |    |		Load	0x0,0x8
0097 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0098 0257       | W  |		Execute	Discrete,Raise
0099 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
009a c402       |    |		Store	0x2,0x2
009b 00d9       |    |		Load_Top	At_Offset_1
009c 8227       | '  |		Call	0x1,0x27
009d 4801       |H   |		Short_Literal	0x1
009e 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
009f			TRAP_0060:
009f 4884       |H   |		Short_Literal	0x84
00a0 010f       |    |		Execute	Exception,Equal
00a1 7004       |p   |		Jump_Nonzero	0xa6
00a2 e008       |    |		Load	0x0,0x8
00a3 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00a4 010f       |    |		Execute	Exception,Equal
00a5 6815       |h   |		Jump_Zero	0xbb
00a6 e003       |    |		Load	0x0,0x3
00a7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00a8 4801       |H   |		Short_Literal	0x1
00a9 4801       |H   |		Short_Literal	0x1
00aa e004       |    |		Load	0x0,0x4
00ab 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ac 0334       | 4  |		Declare_Variable	Array,With_Constraint
00ad e5fc       |    |		Load	0x2,-0x4
00ae e005       |    |		Load	0x0,0x5
00af 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
00b0 e004       |    |		Load	0x0,0x4
00b1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b2 0119       |    |		Execute	Any,Check_In_Formal_Type
00b3 4801       |H   |		Short_Literal	0x1
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 01d6       |    |		Execute	Vector,Field_Write
00b6 600d       |`   |		Indirect_Literal	Discrete,0xc4,{0x00000000, 0x0000885b}
00b7 e006       |    |		Load	0x0,0x6
00b8 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00b9 4800       |H   |		Short_Literal	0x0
00ba 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00bb e006       |    |		Load	0x0,0x6
00bc 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00bd 010f       |    |		Execute	Exception,Equal
00be 6802       |h   |		Jump_Zero	0xc1
00bf 4800       |H   |		Short_Literal	0x0
00c0 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00c1 0100       |    |		Execute	Exception,Raise
00c2 0000 0000  |    |		.XXX[0x2]
00c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885b}
00c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885a}
00cc 0000 0000  |    |		.BLANK	0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00dd       |    |		.CONST	0x00dd								; Address of begin
00d1 010f       |    |		.CONST	0x010f								; Address of exception handler
00d2 0003       |    |		.CONST	0x0003								; Number of locals
00d3			INIT_00d0:
00d3 e001       |    |		Load	0x0,0x1
00d4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00d5 02c7       |    |		Declare_Variable	Any
00d6 00d8       |    |		Load_Top	At_Offset_0
00d7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d8 e002       |    |		Load	0x0,0x2
00d9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00da 02c7       |    |		Declare_Variable	Any
00db 00d8       |    |		Load_Top	At_Offset_0
00dc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00dd			BODY_00d0:
00dd e5fc       |    |		Load	0x2,-0x4
00de e002       |    |		Load	0x0,0x2
00df 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00e0 c403       |    |		Store	0x2,0x3
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 e002       |    |		Load	0x0,0x2
00e3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00e4 6815       |h   |		Jump_Zero	0xfa
00e5 e003       |    |		Load	0x0,0x3
00e6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00e7 4801       |H   |		Short_Literal	0x1
00e8 4801       |H   |		Short_Literal	0x1
00e9 e004       |    |		Load	0x0,0x4
00ea 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00eb 0334       | 4  |		Declare_Variable	Array,With_Constraint
00ec e5fc       |    |		Load	0x2,-0x4
00ed e005       |    |		Load	0x0,0x5
00ee 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
00ef e004       |    |		Load	0x0,0x4
00f0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f1 0119       |    |		Execute	Any,Check_In_Formal_Type
00f2 4801       |H   |		Short_Literal	0x1
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 01d6       |    |		Execute	Vector,Field_Write
00f5 67d2       |g   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x0000885a}
00f6 e006       |    |		Load	0x0,0x6
00f7 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00f8 4800       |H   |		Short_Literal	0x0
00f9 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
00fa 00d9       |    |		Load_Top	At_Offset_1
00fb e5fb       |    |		Load	0x2,-0x5
00fc e5fd       |    |		Load	0x2,-0x3
00fd e5fe       |    |		Load	0x2,-0x2
00fe e5ff       |    |		Load	0x2,-0x1
00ff e403       |    |		Load	0x2,0x3
0100 e007       |    |		Load	0x0,0x7
0101 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0102 00d8       |    |		Load_Top	At_Offset_0
0103 e007       |    |		Load	0x0,0x7
0104 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0105 7003       |p   |		Jump_Nonzero	0x109
0106 e008       |    |		Load	0x0,0x8
0107 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0108 0257       | W  |		Execute	Discrete,Raise
0109 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
010a c402       |    |		Store	0x2,0x2
010b 00d9       |    |		Load_Top	At_Offset_1
010c 8227       | '  |		Call	0x1,0x27
010d 4801       |H   |		Short_Literal	0x1
010e 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
010f			TRAP_00d0:
010f 4884       |H   |		Short_Literal	0x84
0110 010f       |    |		Execute	Exception,Equal
0111 7004       |p   |		Jump_Nonzero	0x116
0112 e008       |    |		Load	0x0,0x8
0113 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0114 010f       |    |		Execute	Exception,Equal
0115 6815       |h   |		Jump_Zero	0x12b
0116 e003       |    |		Load	0x0,0x3
0117 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0118 4801       |H   |		Short_Literal	0x1
0119 4801       |H   |		Short_Literal	0x1
011a e004       |    |		Load	0x0,0x4
011b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011c 0334       | 4  |		Declare_Variable	Array,With_Constraint
011d e5fc       |    |		Load	0x2,-0x4
011e e005       |    |		Load	0x0,0x5
011f 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0120 e004       |    |		Load	0x0,0x4
0121 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0122 0119       |    |		Execute	Any,Check_In_Formal_Type
0123 4801       |H   |		Short_Literal	0x1
0124 00da       |    |		Load_Top	At_Offset_2
0125 01d6       |    |		Execute	Vector,Field_Write
0126 679d       |g   |		Indirect_Literal	Discrete,0xc4,{0x00000000, 0x0000885b}
0127 e006       |    |		Load	0x0,0x6
0128 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0129 4800       |H   |		Short_Literal	0x0
012a 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
012b e006       |    |		Load	0x0,0x6
012c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
012d 010f       |    |		Execute	Exception,Equal
012e 6802       |h   |		Jump_Zero	0x131
012f 4800       |H   |		Short_Literal	0x0
0130 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
0131 0100       |    |		Execute	Exception,Raise
0132 0000 0000  |    |		.BLANK	0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0147       | G  |		.CONST	0x0147								; Address of begin
0139 0172       | r  |		.CONST	0x0172								; Address of exception handler
013a 0003       |    |		.CONST	0x0003								; Number of locals
013b			INIT_0138:
013b e001       |    |		Load	0x0,0x1
013c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
013d 02c7       |    |		Declare_Variable	Any
013e 00d8       |    |		Load_Top	At_Offset_0
013f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0140 e002       |    |		Load	0x0,0x2
0141 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0142 02c7       |    |		Declare_Variable	Any
0143 e5fe       |    |		Load	0x2,-0x2
0144 e002       |    |		Load	0x0,0x2
0145 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0146 a403       |    |		Store_Unchecked	0x2,0x3
0147			BODY_0138:
0147 00d8       |    |		Load_Top	At_Offset_0
0148 e002       |    |		Load	0x0,0x2
0149 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
014a 6815       |h   |		Jump_Zero	0x160
014b e003       |    |		Load	0x0,0x3
014c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014d 4801       |H   |		Short_Literal	0x1
014e 4801       |H   |		Short_Literal	0x1
014f e004       |    |		Load	0x0,0x4
0150 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0151 0334       | 4  |		Declare_Variable	Array,With_Constraint
0152 e5fe       |    |		Load	0x2,-0x2
0153 e005       |    |		Load	0x0,0x5
0154 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0155 e004       |    |		Load	0x0,0x4
0156 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0157 0119       |    |		Execute	Any,Check_In_Formal_Type
0158 4801       |H   |		Short_Literal	0x1
0159 00da       |    |		Load_Top	At_Offset_2
015a 01d6       |    |		Execute	Vector,Field_Write
015b 6040       |`@  |		Indirect_Literal	Discrete,0x19c,{0x00000000, 0x0000885a}
015c e006       |    |		Load	0x0,0x6
015d 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
015e 4800       |H   |		Short_Literal	0x0
015f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0160 00d9       |    |		Load_Top	At_Offset_1
0161 e5ff       |    |		Load	0x2,-0x1
0162 00da       |    |		Load_Top	At_Offset_2
0163 e007       |    |		Load	0x0,0x7
0164 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0165 00d8       |    |		Load_Top	At_Offset_0
0166 e007       |    |		Load	0x0,0x7
0167 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0168 7003       |p   |		Jump_Nonzero	0x16c
0169 e008       |    |		Load	0x0,0x8
016a 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
016b 0257       | W  |		Execute	Discrete,Raise
016c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
016d c402       |    |		Store	0x2,0x2
016e 00d9       |    |		Load_Top	At_Offset_1
016f 8227       | '  |		Call	0x1,0x27
0170 4801       |H   |		Short_Literal	0x1
0171 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0172			TRAP_0138:
0172 4884       |H   |		Short_Literal	0x84
0173 010f       |    |		Execute	Exception,Equal
0174 7004       |p   |		Jump_Nonzero	0x179
0175 e008       |    |		Load	0x0,0x8
0176 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0177 010f       |    |		Execute	Exception,Equal
0178 6815       |h   |		Jump_Zero	0x18e
0179 e003       |    |		Load	0x0,0x3
017a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
017b 4801       |H   |		Short_Literal	0x1
017c 4801       |H   |		Short_Literal	0x1
017d e004       |    |		Load	0x0,0x4
017e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017f 0334       | 4  |		Declare_Variable	Array,With_Constraint
0180 e5fe       |    |		Load	0x2,-0x2
0181 e005       |    |		Load	0x0,0x5
0182 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0183 e004       |    |		Load	0x0,0x4
0184 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0185 0119       |    |		Execute	Any,Check_In_Formal_Type
0186 4801       |H   |		Short_Literal	0x1
0187 00da       |    |		Load_Top	At_Offset_2
0188 01d6       |    |		Execute	Vector,Field_Write
0189 600e       |`   |		Indirect_Literal	Discrete,0x198,{0x00000000, 0x0000885b}
018a e006       |    |		Load	0x0,0x6
018b 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
018c 4800       |H   |		Short_Literal	0x0
018d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
018e e006       |    |		Load	0x0,0x6
018f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0190 010f       |    |		Execute	Exception,Equal
0191 6802       |h   |		Jump_Zero	0x194
0192 4800       |H   |		Short_Literal	0x0
0193 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0194 0100       |    |		Execute	Exception,Raise
0195 0000 0000  |    |		.XXX[0x3]
0197 0000       |    |
0198 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885b}
019c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885a}
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ad       |    |		.CONST	0x01ad								; Address of begin
01a1 01dc       |    |		.CONST	0x01dc								; Address of exception handler
01a2 0003       |    |		.CONST	0x0003								; Number of locals
01a3			INIT_01a0:
01a3 e001       |    |		Load	0x0,0x1
01a4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01a5 02c7       |    |		Declare_Variable	Any
01a6 00d8       |    |		Load_Top	At_Offset_0
01a7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a8 e002       |    |		Load	0x0,0x2
01a9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01aa 02c7       |    |		Declare_Variable	Any
01ab 00d8       |    |		Load_Top	At_Offset_0
01ac 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ad			BODY_01a0:
01ad e5fe       |    |		Load	0x2,-0x2
01ae e002       |    |		Load	0x0,0x2
01af 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01b0 c403       |    |		Store	0x2,0x3
01b1 00d8       |    |		Load_Top	At_Offset_0
01b2 e002       |    |		Load	0x0,0x2
01b3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01b4 6815       |h   |		Jump_Zero	0x1ca
01b5 e003       |    |		Load	0x0,0x3
01b6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01b7 4801       |H   |		Short_Literal	0x1
01b8 4801       |H   |		Short_Literal	0x1
01b9 e004       |    |		Load	0x0,0x4
01ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01bb 0334       | 4  |		Declare_Variable	Array,With_Constraint
01bc e5fe       |    |		Load	0x2,-0x2
01bd e005       |    |		Load	0x0,0x5
01be 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
01bf e004       |    |		Load	0x0,0x4
01c0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01c1 0119       |    |		Execute	Any,Check_In_Formal_Type
01c2 4801       |H   |		Short_Literal	0x1
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 01d6       |    |		Execute	Vector,Field_Write
01c5 67d6       |g   |		Indirect_Literal	Discrete,0x19c,{0x00000000, 0x0000885a}
01c6 e006       |    |		Load	0x0,0x6
01c7 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
01c8 4800       |H   |		Short_Literal	0x0
01c9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ca 00d9       |    |		Load_Top	At_Offset_1
01cb e5ff       |    |		Load	0x2,-0x1
01cc 00da       |    |		Load_Top	At_Offset_2
01cd e007       |    |		Load	0x0,0x7
01ce 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
01cf 00d8       |    |		Load_Top	At_Offset_0
01d0 e007       |    |		Load	0x0,0x7
01d1 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
01d2 7003       |p   |		Jump_Nonzero	0x1d6
01d3 e008       |    |		Load	0x0,0x8
01d4 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
01d5 0257       | W  |		Execute	Discrete,Raise
01d6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01d7 c402       |    |		Store	0x2,0x2
01d8 00d9       |    |		Load_Top	At_Offset_1
01d9 8227       | '  |		Call	0x1,0x27
01da 4801       |H   |		Short_Literal	0x1
01db 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01dc			TRAP_01a0:
01dc 4884       |H   |		Short_Literal	0x84
01dd 010f       |    |		Execute	Exception,Equal
01de 7004       |p   |		Jump_Nonzero	0x1e3
01df e008       |    |		Load	0x0,0x8
01e0 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
01e1 010f       |    |		Execute	Exception,Equal
01e2 6815       |h   |		Jump_Zero	0x1f8
01e3 e003       |    |		Load	0x0,0x3
01e4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01e5 4801       |H   |		Short_Literal	0x1
01e6 4801       |H   |		Short_Literal	0x1
01e7 e004       |    |		Load	0x0,0x4
01e8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01e9 0334       | 4  |		Declare_Variable	Array,With_Constraint
01ea e5fe       |    |		Load	0x2,-0x2
01eb e005       |    |		Load	0x0,0x5
01ec 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
01ed e004       |    |		Load	0x0,0x4
01ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ef 0119       |    |		Execute	Any,Check_In_Formal_Type
01f0 4801       |H   |		Short_Literal	0x1
01f1 00da       |    |		Load_Top	At_Offset_2
01f2 01d6       |    |		Execute	Vector,Field_Write
01f3 67a4       |g   |		Indirect_Literal	Discrete,0x198,{0x00000000, 0x0000885b}
01f4 e006       |    |		Load	0x0,0x6
01f5 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
01f6 4800       |H   |		Short_Literal	0x0
01f7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f8 e006       |    |		Load	0x0,0x6
01f9 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01fa 010f       |    |		Execute	Exception,Equal
01fb 6802       |h   |		Jump_Zero	0x1fe
01fc 4800       |H   |		Short_Literal	0x0
01fd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01fe 0100       |    |		Execute	Exception,Raise
01ff 0000       |    |		.XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020d       |    |		.CONST	0x020d								; Address of begin
0201 023d       | =  |		.CONST	0x023d								; Address of exception handler
0202 0003       |    |		.CONST	0x0003								; Number of locals
0203			INIT_0200:
0203 e001       |    |		Load	0x0,0x1
0204 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0205 02c7       |    |		Declare_Variable	Any
0206 00d8       |    |		Load_Top	At_Offset_0
0207 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0208 e002       |    |		Load	0x0,0x2
0209 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
020a 02c7       |    |		Declare_Variable	Any
020b 00d8       |    |		Load_Top	At_Offset_0
020c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
020d			BODY_0200:
020d e5fd       |    |		Load	0x2,-0x3
020e e002       |    |		Load	0x0,0x2
020f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0210 c403       |    |		Store	0x2,0x3
0211 00d8       |    |		Load_Top	At_Offset_0
0212 e002       |    |		Load	0x0,0x2
0213 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0214 6815       |h   |		Jump_Zero	0x22a
0215 e003       |    |		Load	0x0,0x3
0216 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0217 4801       |H   |		Short_Literal	0x1
0218 4801       |H   |		Short_Literal	0x1
0219 e004       |    |		Load	0x0,0x4
021a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
021b 0334       | 4  |		Declare_Variable	Array,With_Constraint
021c e5fd       |    |		Load	0x2,-0x3
021d e005       |    |		Load	0x0,0x5
021e 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
021f e004       |    |		Load	0x0,0x4
0220 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0221 0119       |    |		Execute	Any,Check_In_Formal_Type
0222 4801       |H   |		Short_Literal	0x1
0223 00da       |    |		Load_Top	At_Offset_2
0224 01d6       |    |		Execute	Vector,Field_Write
0225 603e       |`>  |		Indirect_Literal	Discrete,0x264,{0x00000000, 0x0000885a}
0226 e006       |    |		Load	0x0,0x6
0227 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0228 4800       |H   |		Short_Literal	0x0
0229 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
022a 00d9       |    |		Load_Top	At_Offset_1
022b e5fe       |    |		Load	0x2,-0x2
022c e5ff       |    |		Load	0x2,-0x1
022d 00db       |    |		Load_Top	At_Offset_3
022e e007       |    |		Load	0x0,0x7
022f 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0230 00d8       |    |		Load_Top	At_Offset_0
0231 e007       |    |		Load	0x0,0x7
0232 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0233 7003       |p   |		Jump_Nonzero	0x237
0234 e008       |    |		Load	0x0,0x8
0235 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0236 0257       | W  |		Execute	Discrete,Raise
0237 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0238 c402       |    |		Store	0x2,0x2
0239 00d9       |    |		Load_Top	At_Offset_1
023a 8227       | '  |		Call	0x1,0x27
023b 4801       |H   |		Short_Literal	0x1
023c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
023d			TRAP_0200:
023d 4884       |H   |		Short_Literal	0x84
023e 010f       |    |		Execute	Exception,Equal
023f 7004       |p   |		Jump_Nonzero	0x244
0240 e008       |    |		Load	0x0,0x8
0241 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0242 010f       |    |		Execute	Exception,Equal
0243 6815       |h   |		Jump_Zero	0x259
0244 e003       |    |		Load	0x0,0x3
0245 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0246 4801       |H   |		Short_Literal	0x1
0247 4801       |H   |		Short_Literal	0x1
0248 e004       |    |		Load	0x0,0x4
0249 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
024a 0334       | 4  |		Declare_Variable	Array,With_Constraint
024b e5fd       |    |		Load	0x2,-0x3
024c e005       |    |		Load	0x0,0x5
024d 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
024e e004       |    |		Load	0x0,0x4
024f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0250 0119       |    |		Execute	Any,Check_In_Formal_Type
0251 4801       |H   |		Short_Literal	0x1
0252 00da       |    |		Load_Top	At_Offset_2
0253 01d6       |    |		Execute	Vector,Field_Write
0254 600b       |`   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x0000885b}
0255 e006       |    |		Load	0x0,0x6
0256 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0257 4800       |H   |		Short_Literal	0x0
0258 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0259 e006       |    |		Load	0x0,0x6
025a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
025b 010f       |    |		Execute	Exception,Equal
025c 6802       |h   |		Jump_Zero	0x25f
025d 4800       |H   |		Short_Literal	0x0
025e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
025f 0100       |    |		Execute	Exception,Raise
0260 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885b}
0264 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885a}
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0275       | u  |		.CONST	0x0275								; Address of begin
0269 02a5       |    |		.CONST	0x02a5								; 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 e5fd       |    |		Load	0x2,-0x3
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 6815       |h   |		Jump_Zero	0x292
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 0334       | 4  |		Declare_Variable	Array,With_Constraint
0284 e5fd       |    |		Load	0x2,-0x3
0285 e005       |    |		Load	0x0,0x5
0286 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0287 e004       |    |		Load	0x0,0x4
0288 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0289 0119       |    |		Execute	Any,Check_In_Formal_Type
028a 4801       |H   |		Short_Literal	0x1
028b 00da       |    |		Load_Top	At_Offset_2
028c 01d6       |    |		Execute	Vector,Field_Write
028d 67d6       |g   |		Indirect_Literal	Discrete,0x264,{0x00000000, 0x0000885a}
028e e006       |    |		Load	0x0,0x6
028f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0290 4800       |H   |		Short_Literal	0x0
0291 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0292 00d9       |    |		Load_Top	At_Offset_1
0293 e5fe       |    |		Load	0x2,-0x2
0294 e5ff       |    |		Load	0x2,-0x1
0295 00db       |    |		Load_Top	At_Offset_3
0296 e007       |    |		Load	0x0,0x7
0297 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0298 00d8       |    |		Load_Top	At_Offset_0
0299 e007       |    |		Load	0x0,0x7
029a 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
029b 7003       |p   |		Jump_Nonzero	0x29f
029c e008       |    |		Load	0x0,0x8
029d 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
029e 0257       | W  |		Execute	Discrete,Raise
029f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02a0 c402       |    |		Store	0x2,0x2
02a1 00d9       |    |		Load_Top	At_Offset_1
02a2 8227       | '  |		Call	0x1,0x27
02a3 4801       |H   |		Short_Literal	0x1
02a4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02a5			TRAP_0268:
02a5 4884       |H   |		Short_Literal	0x84
02a6 010f       |    |		Execute	Exception,Equal
02a7 7004       |p   |		Jump_Nonzero	0x2ac
02a8 e008       |    |		Load	0x0,0x8
02a9 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
02aa 010f       |    |		Execute	Exception,Equal
02ab 6815       |h   |		Jump_Zero	0x2c1
02ac e003       |    |		Load	0x0,0x3
02ad 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02ae 4801       |H   |		Short_Literal	0x1
02af 4801       |H   |		Short_Literal	0x1
02b0 e004       |    |		Load	0x0,0x4
02b1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02b2 0334       | 4  |		Declare_Variable	Array,With_Constraint
02b3 e5fd       |    |		Load	0x2,-0x3
02b4 e005       |    |		Load	0x0,0x5
02b5 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
02b6 e004       |    |		Load	0x0,0x4
02b7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02b8 0119       |    |		Execute	Any,Check_In_Formal_Type
02b9 4801       |H   |		Short_Literal	0x1
02ba 00da       |    |		Load_Top	At_Offset_2
02bb 01d6       |    |		Execute	Vector,Field_Write
02bc 67a3       |g   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x0000885b}
02bd e006       |    |		Load	0x0,0x6
02be 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02bf 4800       |H   |		Short_Literal	0x0
02c0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02c1 e006       |    |		Load	0x0,0x6
02c2 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02c3 010f       |    |		Execute	Exception,Equal
02c4 6802       |h   |		Jump_Zero	0x2c7
02c5 4800       |H   |		Short_Literal	0x0
02c6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02c7 0100       |    |		Execute	Exception,Raise
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d5       |    |		.CONST	0x02d5								; Address of begin
02c9 0305       |    |		.CONST	0x0305								; Address of exception handler
02ca 0003       |    |		.CONST	0x0003								; Number of locals
02cb			INIT_02c8:
02cb e001       |    |		Load	0x0,0x1
02cc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02cd 02c7       |    |		Declare_Variable	Any
02ce 00d8       |    |		Load_Top	At_Offset_0
02cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d0 e002       |    |		Load	0x0,0x2
02d1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02d2 02c7       |    |		Declare_Variable	Any
02d3 00d8       |    |		Load_Top	At_Offset_0
02d4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d5			BODY_02c8:
02d5 e5fd       |    |		Load	0x2,-0x3
02d6 e002       |    |		Load	0x0,0x2
02d7 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d8 c403       |    |		Store	0x2,0x3
02d9 00d8       |    |		Load_Top	At_Offset_0
02da e002       |    |		Load	0x0,0x2
02db 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02dc 6815       |h   |		Jump_Zero	0x2f2
02dd e003       |    |		Load	0x0,0x3
02de 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02df 4801       |H   |		Short_Literal	0x1
02e0 4801       |H   |		Short_Literal	0x1
02e1 e004       |    |		Load	0x0,0x4
02e2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02e3 0334       | 4  |		Declare_Variable	Array,With_Constraint
02e4 e5fd       |    |		Load	0x2,-0x3
02e5 e005       |    |		Load	0x0,0x5
02e6 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
02e7 e004       |    |		Load	0x0,0x4
02e8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e9 0119       |    |		Execute	Any,Check_In_Formal_Type
02ea 4801       |H   |		Short_Literal	0x1
02eb 00da       |    |		Load_Top	At_Offset_2
02ec 01d6       |    |		Execute	Vector,Field_Write
02ed 603e       |`>  |		Indirect_Literal	Discrete,0x32c,{0x00000000, 0x0000885a}
02ee e006       |    |		Load	0x0,0x6
02ef 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
02f0 4800       |H   |		Short_Literal	0x0
02f1 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02f2 00d9       |    |		Load_Top	At_Offset_1
02f3 e5fe       |    |		Load	0x2,-0x2
02f4 e5ff       |    |		Load	0x2,-0x1
02f5 00db       |    |		Load_Top	At_Offset_3
02f6 e007       |    |		Load	0x0,0x7
02f7 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
02f8 00d8       |    |		Load_Top	At_Offset_0
02f9 e007       |    |		Load	0x0,0x7
02fa 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
02fb 7003       |p   |		Jump_Nonzero	0x2ff
02fc e008       |    |		Load	0x0,0x8
02fd 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
02fe 0257       | W  |		Execute	Discrete,Raise
02ff 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0300 c402       |    |		Store	0x2,0x2
0301 00d9       |    |		Load_Top	At_Offset_1
0302 8227       | '  |		Call	0x1,0x27
0303 4801       |H   |		Short_Literal	0x1
0304 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0305			TRAP_02c8:
0305 4884       |H   |		Short_Literal	0x84
0306 010f       |    |		Execute	Exception,Equal
0307 7004       |p   |		Jump_Nonzero	0x30c
0308 e008       |    |		Load	0x0,0x8
0309 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
030a 010f       |    |		Execute	Exception,Equal
030b 6815       |h   |		Jump_Zero	0x321
030c e003       |    |		Load	0x0,0x3
030d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
030e 4801       |H   |		Short_Literal	0x1
030f 4801       |H   |		Short_Literal	0x1
0310 e004       |    |		Load	0x0,0x4
0311 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0312 0334       | 4  |		Declare_Variable	Array,With_Constraint
0313 e5fd       |    |		Load	0x2,-0x3
0314 e005       |    |		Load	0x0,0x5
0315 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
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 600b       |`   |		Indirect_Literal	Discrete,0x328,{0x00000000, 0x0000885b}
031d e006       |    |		Load	0x0,0x6
031e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
031f 4800       |H   |		Short_Literal	0x0
0320 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0321 e006       |    |		Load	0x0,0x6
0322 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0323 010f       |    |		Execute	Exception,Equal
0324 6802       |h   |		Jump_Zero	0x327
0325 4800       |H   |		Short_Literal	0x0
0326 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0327 0100       |    |		Execute	Exception,Raise
0328 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885b}
032c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885a}
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 033d       | =  |		.CONST	0x033d								; Address of begin
0331 036d       | m  |		.CONST	0x036d								; Address of exception handler
0332 0003       |    |		.CONST	0x0003								; Number of locals
0333			INIT_0330:
0333 e001       |    |		Load	0x0,0x1
0334 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0335 02c7       |    |		Declare_Variable	Any
0336 00d8       |    |		Load_Top	At_Offset_0
0337 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0338 e002       |    |		Load	0x0,0x2
0339 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
033a 02c7       |    |		Declare_Variable	Any
033b 00d8       |    |		Load_Top	At_Offset_0
033c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
033d			BODY_0330:
033d e5fd       |    |		Load	0x2,-0x3
033e e002       |    |		Load	0x0,0x2
033f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0340 c403       |    |		Store	0x2,0x3
0341 00d8       |    |		Load_Top	At_Offset_0
0342 e002       |    |		Load	0x0,0x2
0343 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0344 6815       |h   |		Jump_Zero	0x35a
0345 e003       |    |		Load	0x0,0x3
0346 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0347 4801       |H   |		Short_Literal	0x1
0348 4801       |H   |		Short_Literal	0x1
0349 e004       |    |		Load	0x0,0x4
034a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
034b 0334       | 4  |		Declare_Variable	Array,With_Constraint
034c e5fd       |    |		Load	0x2,-0x3
034d e005       |    |		Load	0x0,0x5
034e 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
034f e004       |    |		Load	0x0,0x4
0350 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0351 0119       |    |		Execute	Any,Check_In_Formal_Type
0352 4801       |H   |		Short_Literal	0x1
0353 00da       |    |		Load_Top	At_Offset_2
0354 01d6       |    |		Execute	Vector,Field_Write
0355 67d6       |g   |		Indirect_Literal	Discrete,0x32c,{0x00000000, 0x0000885a}
0356 e006       |    |		Load	0x0,0x6
0357 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0358 4800       |H   |		Short_Literal	0x0
0359 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
035a 00d9       |    |		Load_Top	At_Offset_1
035b e5fe       |    |		Load	0x2,-0x2
035c e5ff       |    |		Load	0x2,-0x1
035d 00db       |    |		Load_Top	At_Offset_3
035e e007       |    |		Load	0x0,0x7
035f 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0360 00d8       |    |		Load_Top	At_Offset_0
0361 e007       |    |		Load	0x0,0x7
0362 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0363 7003       |p   |		Jump_Nonzero	0x367
0364 e008       |    |		Load	0x0,0x8
0365 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0366 0257       | W  |		Execute	Discrete,Raise
0367 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0368 c402       |    |		Store	0x2,0x2
0369 00d9       |    |		Load_Top	At_Offset_1
036a 8227       | '  |		Call	0x1,0x27
036b 4801       |H   |		Short_Literal	0x1
036c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
036d			TRAP_0330:
036d 4884       |H   |		Short_Literal	0x84
036e 010f       |    |		Execute	Exception,Equal
036f 7004       |p   |		Jump_Nonzero	0x374
0370 e008       |    |		Load	0x0,0x8
0371 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0372 010f       |    |		Execute	Exception,Equal
0373 6815       |h   |		Jump_Zero	0x389
0374 e003       |    |		Load	0x0,0x3
0375 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0376 4801       |H   |		Short_Literal	0x1
0377 4801       |H   |		Short_Literal	0x1
0378 e004       |    |		Load	0x0,0x4
0379 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
037a 0334       | 4  |		Declare_Variable	Array,With_Constraint
037b e5fd       |    |		Load	0x2,-0x3
037c e005       |    |		Load	0x0,0x5
037d 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
037e e004       |    |		Load	0x0,0x4
037f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0380 0119       |    |		Execute	Any,Check_In_Formal_Type
0381 4801       |H   |		Short_Literal	0x1
0382 00da       |    |		Load_Top	At_Offset_2
0383 01d6       |    |		Execute	Vector,Field_Write
0384 67a3       |g   |		Indirect_Literal	Discrete,0x328,{0x00000000, 0x0000885b}
0385 e006       |    |		Load	0x0,0x6
0386 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0387 4800       |H   |		Short_Literal	0x0
0388 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0389 e006       |    |		Load	0x0,0x6
038a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
038b 010f       |    |		Execute	Exception,Equal
038c 6802       |h   |		Jump_Zero	0x38f
038d 4800       |H   |		Short_Literal	0x0
038e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
038f 0100       |    |		Execute	Exception,Raise
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 039d       |    |		.CONST	0x039d								; Address of begin
0391 03cd       |    |		.CONST	0x03cd								; Address of exception handler
0392 0003       |    |		.CONST	0x0003								; Number of locals
0393			INIT_0390:
0393 e001       |    |		Load	0x0,0x1
0394 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0395 02c7       |    |		Declare_Variable	Any
0396 00d8       |    |		Load_Top	At_Offset_0
0397 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0398 e002       |    |		Load	0x0,0x2
0399 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
039a 02c7       |    |		Declare_Variable	Any
039b 00d8       |    |		Load_Top	At_Offset_0
039c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
039d			BODY_0390:
039d e5fd       |    |		Load	0x2,-0x3
039e e002       |    |		Load	0x0,0x2
039f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03a0 c403       |    |		Store	0x2,0x3
03a1 00d8       |    |		Load_Top	At_Offset_0
03a2 e002       |    |		Load	0x0,0x2
03a3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03a4 6815       |h   |		Jump_Zero	0x3ba
03a5 e003       |    |		Load	0x0,0x3
03a6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03a7 4801       |H   |		Short_Literal	0x1
03a8 4801       |H   |		Short_Literal	0x1
03a9 e004       |    |		Load	0x0,0x4
03aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03ab 0334       | 4  |		Declare_Variable	Array,With_Constraint
03ac e5fd       |    |		Load	0x2,-0x3
03ad e005       |    |		Load	0x0,0x5
03ae 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
03af e004       |    |		Load	0x0,0x4
03b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03b1 0119       |    |		Execute	Any,Check_In_Formal_Type
03b2 4801       |H   |		Short_Literal	0x1
03b3 00da       |    |		Load_Top	At_Offset_2
03b4 01d6       |    |		Execute	Vector,Field_Write
03b5 603e       |`>  |		Indirect_Literal	Discrete,0x3f4,{0x00000000, 0x0000885a}
03b6 e006       |    |		Load	0x0,0x6
03b7 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03b8 4800       |H   |		Short_Literal	0x0
03b9 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03ba 00d9       |    |		Load_Top	At_Offset_1
03bb e5fe       |    |		Load	0x2,-0x2
03bc e5ff       |    |		Load	0x2,-0x1
03bd 00db       |    |		Load_Top	At_Offset_3
03be e007       |    |		Load	0x0,0x7
03bf 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
03c0 00d8       |    |		Load_Top	At_Offset_0
03c1 e007       |    |		Load	0x0,0x7
03c2 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
03c3 7003       |p   |		Jump_Nonzero	0x3c7
03c4 e008       |    |		Load	0x0,0x8
03c5 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
03c6 0257       | W  |		Execute	Discrete,Raise
03c7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
03c8 c402       |    |		Store	0x2,0x2
03c9 00d9       |    |		Load_Top	At_Offset_1
03ca 8227       | '  |		Call	0x1,0x27
03cb 4801       |H   |		Short_Literal	0x1
03cc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03cd			TRAP_0390:
03cd 4884       |H   |		Short_Literal	0x84
03ce 010f       |    |		Execute	Exception,Equal
03cf 7004       |p   |		Jump_Nonzero	0x3d4
03d0 e008       |    |		Load	0x0,0x8
03d1 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
03d2 010f       |    |		Execute	Exception,Equal
03d3 6815       |h   |		Jump_Zero	0x3e9
03d4 e003       |    |		Load	0x0,0x3
03d5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03d6 4801       |H   |		Short_Literal	0x1
03d7 4801       |H   |		Short_Literal	0x1
03d8 e004       |    |		Load	0x0,0x4
03d9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03da 0334       | 4  |		Declare_Variable	Array,With_Constraint
03db e5fd       |    |		Load	0x2,-0x3
03dc e005       |    |		Load	0x0,0x5
03dd 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
03de e004       |    |		Load	0x0,0x4
03df 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03e0 0119       |    |		Execute	Any,Check_In_Formal_Type
03e1 4801       |H   |		Short_Literal	0x1
03e2 00da       |    |		Load_Top	At_Offset_2
03e3 01d6       |    |		Execute	Vector,Field_Write
03e4 600b       |`   |		Indirect_Literal	Discrete,0x3f0,{0x00000000, 0x0000885b}
03e5 e006       |    |		Load	0x0,0x6
03e6 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
03e7 4800       |H   |		Short_Literal	0x0
03e8 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03e9 e006       |    |		Load	0x0,0x6
03ea 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03eb 010f       |    |		Execute	Exception,Equal
03ec 6802       |h   |		Jump_Zero	0x3ef
03ed 4800       |H   |		Short_Literal	0x0
03ee 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
03ef 0100       |    |		Execute	Exception,Raise
03f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885b}
03f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000885a}
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0405       |    |		.CONST	0x0405								; Address of begin
03f9 0435       | 5  |		.CONST	0x0435								; Address of exception handler
03fa 0003       |    |		.CONST	0x0003								; Number of locals
03fb			INIT_03f8:
03fb e001       |    |		Load	0x0,0x1
03fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03fd 02c7       |    |		Declare_Variable	Any
03fe 00d8       |    |		Load_Top	At_Offset_0
03ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0400 e002       |    |		Load	0x0,0x2
0401 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0402 02c7       |    |		Declare_Variable	Any
0403 00d8       |    |		Load_Top	At_Offset_0
0404 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0405			BODY_03f8:
0405 e5fd       |    |		Load	0x2,-0x3
0406 e002       |    |		Load	0x0,0x2
0407 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0408 c403       |    |		Store	0x2,0x3
0409 00d8       |    |		Load_Top	At_Offset_0
040a e002       |    |		Load	0x0,0x2
040b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
040c 6815       |h   |		Jump_Zero	0x422
040d e003       |    |		Load	0x0,0x3
040e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
040f 4801       |H   |		Short_Literal	0x1
0410 4801       |H   |		Short_Literal	0x1
0411 e004       |    |		Load	0x0,0x4
0412 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0413 0334       | 4  |		Declare_Variable	Array,With_Constraint
0414 e5fd       |    |		Load	0x2,-0x3
0415 e005       |    |		Load	0x0,0x5
0416 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0417 e004       |    |		Load	0x0,0x4
0418 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0419 0119       |    |		Execute	Any,Check_In_Formal_Type
041a 4801       |H   |		Short_Literal	0x1
041b 00da       |    |		Load_Top	At_Offset_2
041c 01d6       |    |		Execute	Vector,Field_Write
041d 67d6       |g   |		Indirect_Literal	Discrete,0x3f4,{0x00000000, 0x0000885a}
041e e006       |    |		Load	0x0,0x6
041f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0420 4800       |H   |		Short_Literal	0x0
0421 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0422 00d9       |    |		Load_Top	At_Offset_1
0423 e5fe       |    |		Load	0x2,-0x2
0424 e5ff       |    |		Load	0x2,-0x1
0425 00db       |    |		Load_Top	At_Offset_3
0426 e007       |    |		Load	0x0,0x7
0427 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0428 00d8       |    |		Load_Top	At_Offset_0
0429 e007       |    |		Load	0x0,0x7
042a 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
042b 7003       |p   |		Jump_Nonzero	0x42f
042c e008       |    |		Load	0x0,0x8
042d 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
042e 0257       | W  |		Execute	Discrete,Raise
042f 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0430 c402       |    |		Store	0x2,0x2
0431 00d9       |    |		Load_Top	At_Offset_1
0432 8227       | '  |		Call	0x1,0x27
0433 4801       |H   |		Short_Literal	0x1
0434 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0435			TRAP_03f8:
0435 4884       |H   |		Short_Literal	0x84
0436 010f       |    |		Execute	Exception,Equal
0437 7004       |p   |		Jump_Nonzero	0x43c
0438 e008       |    |		Load	0x0,0x8
0439 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
043a 010f       |    |		Execute	Exception,Equal
043b 6815       |h   |		Jump_Zero	0x451
043c e003       |    |		Load	0x0,0x3
043d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
043e 4801       |H   |		Short_Literal	0x1
043f 4801       |H   |		Short_Literal	0x1
0440 e004       |    |		Load	0x0,0x4
0441 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0442 0334       | 4  |		Declare_Variable	Array,With_Constraint
0443 e5fd       |    |		Load	0x2,-0x3
0444 e005       |    |		Load	0x0,0x5
0445 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0446 e004       |    |		Load	0x0,0x4
0447 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0448 0119       |    |		Execute	Any,Check_In_Formal_Type
0449 4801       |H   |		Short_Literal	0x1
044a 00da       |    |		Load_Top	At_Offset_2
044b 01d6       |    |		Execute	Vector,Field_Write
044c 67a3       |g   |		Indirect_Literal	Discrete,0x3f0,{0x00000000, 0x0000885b}
044d e006       |    |		Load	0x0,0x6
044e 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
044f 4800       |H   |		Short_Literal	0x0
0450 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0451 e006       |    |		Load	0x0,0x6
0452 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0453 010f       |    |		Execute	Exception,Equal
0454 6802       |h   |		Jump_Zero	0x457
0455 4800       |H   |		Short_Literal	0x0
0456 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0457 0100       |    |		Execute	Exception,Raise
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b 00da       |    |		Load_Top	At_Offset_2
045c e001       |    |		Load	0x0,0x1
045d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
045e 4603       |F   |		Jump_Case	0x4
045f 7817       |x   |		Jump	0x477								; case 0x0
0460 782c       |x,  |		Jump	0x48d								; case 0x1
0461 7841       |xA  |		Jump	0x4a3								; case 0x2
0462 7800       |x   |		Jump	0x463								; case 0x3
0463 4801       |H   |		Short_Literal	0x1
0464 4801       |H   |		Short_Literal	0x1
0465 e004       |    |		Load	0x0,0x4
0466 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0467 0334       | 4  |		Declare_Variable	Array,With_Constraint
0468 00db       |    |		Load_Top	At_Offset_3
0469 e001       |    |		Load	0x0,0x1
046a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
046b e004       |    |		Load	0x0,0x4
046c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
046d e004       |    |		Load	0x0,0x4
046e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
046f 0119       |    |		Execute	Any,Check_In_Formal_Type
0470 4801       |H   |		Short_Literal	0x1
0471 00da       |    |		Load_Top	At_Offset_2
0472 01d6       |    |		Execute	Vector,Field_Write
0473 6054       |`T  |		Indirect_Literal	Discrete,0x4c8,{0x00000000, 0x00008856}
0474 e006       |    |		Load	0x0,0x6
0475 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0476 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0477 e003       |    |		Load	0x0,0x3
0478 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0479 4801       |H   |		Short_Literal	0x1
047a 4801       |H   |		Short_Literal	0x1
047b e004       |    |		Load	0x0,0x4
047c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
047d 0334       | 4  |		Declare_Variable	Array,With_Constraint
047e e5ff       |    |		Load	0x2,-0x1
047f e001       |    |		Load	0x0,0x1
0480 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0481 e004       |    |		Load	0x0,0x4
0482 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0483 e004       |    |		Load	0x0,0x4
0484 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0485 0119       |    |		Execute	Any,Check_In_Formal_Type
0486 4801       |H   |		Short_Literal	0x1
0487 00da       |    |		Load_Top	At_Offset_2
0488 01d6       |    |		Execute	Vector,Field_Write
0489 603a       |`:  |		Indirect_Literal	Discrete,0x4c4,{0x00000000, 0x00008858}
048a e006       |    |		Load	0x0,0x6
048b 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
048c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
048d e003       |    |		Load	0x0,0x3
048e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
048f 4801       |H   |		Short_Literal	0x1
0490 4801       |H   |		Short_Literal	0x1
0491 e004       |    |		Load	0x0,0x4
0492 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0493 0334       | 4  |		Declare_Variable	Array,With_Constraint
0494 e5ff       |    |		Load	0x2,-0x1
0495 e001       |    |		Load	0x0,0x1
0496 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0497 e004       |    |		Load	0x0,0x4
0498 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0499 e004       |    |		Load	0x0,0x4
049a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
049b 0119       |    |		Execute	Any,Check_In_Formal_Type
049c 4801       |H   |		Short_Literal	0x1
049d 00da       |    |		Load_Top	At_Offset_2
049e 01d6       |    |		Execute	Vector,Field_Write
049f 6020       |`   |		Indirect_Literal	Discrete,0x4c0,{0x00000000, 0x00008857}
04a0 e006       |    |		Load	0x0,0x6
04a1 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04a2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04a3 e003       |    |		Load	0x0,0x3
04a4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04a5 4801       |H   |		Short_Literal	0x1
04a6 4801       |H   |		Short_Literal	0x1
04a7 e004       |    |		Load	0x0,0x4
04a8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04a9 0334       | 4  |		Declare_Variable	Array,With_Constraint
04aa e5ff       |    |		Load	0x2,-0x1
04ab e001       |    |		Load	0x0,0x1
04ac 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
04ad e004       |    |		Load	0x0,0x4
04ae 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04af e004       |    |		Load	0x0,0x4
04b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04b1 0119       |    |		Execute	Any,Check_In_Formal_Type
04b2 4801       |H   |		Short_Literal	0x1
04b3 00da       |    |		Load_Top	At_Offset_2
04b4 01d6       |    |		Execute	Vector,Field_Write
04b5 6006       |`   |		Indirect_Literal	Discrete,0x4bc,{0x00000000, 0x00008859}
04b6 e006       |    |		Load	0x0,0x6
04b7 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
04b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04b9 0000 0000  |    |		.XXX[0x3]
04bb 0000       |    |
04bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008859}
04c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008857}
04c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008858}
04c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008856}
04cc 0000 0000  |    |		.BLANK	0000[0x4]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; Debug Table
04d0 ; --------------------------------------------------------------------------------------
04d0 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x168b,0x0000,0x0001,0x0000
04d6 0000 13b2  |    |		.XXX[0xa]
04d8 0001 0404  |    |
04da 0800 0280  |    |
04dc 0000 0008  |    |
04de 0000 0008  |    |
04e0 0000 0000  |    |		.BLANK	0000[0x7]
04e7 00ff e60f  |    |		.XXX[0x119]
04e9 1b11 e60f  |    |
04eb 1916 e60f  |    |
04ed 1922 e60f  | "  |
04ef 1923 e60f  | #  |
04f1 1929 e663  | ) c|
04f3 1940 e66c  | @ l|
04f5 190e e60f  |    |
04f7 1b0d e60f  |    |
04f9 1b10 e60f  |    |
04fb 191f e60f  |    |
04fd 191d e65d  |   ]|
04ff 190d e62f  |   /|
0501 1b0f e62f  |   /|
0503 1910 e62f  |   /|
0505 1911 e663  |   c|
0507 1936 e65b  | 6 [|
0509 1b30 e65b  | 0 [|
050b 190d e65b  |   [|
050d 1919 e65b  |   [|
050f 1910 e65b  |   [|
0511 1911 e65b  |   [|
0513 1915 e65b  |   [|
0515 1914 e65b  |   [|
0517 1916 e65b  |   [|
0519 191a e65b  |   [|
051b 191b e65b  |   [|
051d 1912 e65b  |   [|
051f 1926 e65b  | & [|
0521 1924 e65b  | $ [|
0523 1922 e65b  | " [|
0525 1927 e65b  | ' [|
0527 1923 e65b  | # [|
0529 1925 e65b  | % [|
052b 1918 e65b  |   [|
052d 191f e65b  |   [|
052f 1920 e65b  |   [|
0531 1b2e 190d  | .  |
0533 e65b 1b2e  | [ .|
0535 190e e65b  |   [|
0537 1b2e 190f  | .  |
0539 e65b 1b2e  | [ .|
053b 1910 e65b  |   [|
053d 1b2e 1911  | .  |
053f e65b 1b2e  | [ .|
0541 1912 e65b  |   [|
0543 1b2e 1913  | .  |
0545 e65b 1b2e  | [ .|
0547 1914 e65b  |   [|
0549 1b2e 1915  | .  |
054b e65b 1b2e  | [ .|
054d 1916 e65b  |   [|
054f 1b2e 1917  | .  |
0551 e65b 1b2e  | [ .|
0553 1918 e65b  |   [|
0555 1b2e 1919  | .  |
0557 e65b 1b2e  | [ .|
0559 191a e65b  |   [|
055b 1b2e 191b  | .  |
055d e65b 1b2e  | [ .|
055f 191c e65b  |   [|
0561 1b2e 191d  | .  |
0563 e65b 1b2e  | [ .|
0565 191e e65b  |   [|
0567 1b2e 191f  | .  |
0569 e65b 1b2e  | [ .|
056b 1920 e65b  |   [|
056d 1b2e 1921  | . !|
056f e66d e65d  | m ]|
0571 1917 e65d  |   ]|
0573 1918 e6a4  |    |
0575 e60b e62f  |   /|
0577 1928 e62f  | ( /|
0579 1b22 e615  | "  |
057b e663 1933  | c 3|
057d e663 1932  | c 2|
057f e62f 1926  | / &|
0581 e610 e663  |   c|
0583 1925 e649  | % I|
0585 1b0d e649  |   I|
0587 1b39 e65b  | 9 [|
0589 1929 e663  | ) c|
058b 1921 e61e  | !  |
058d e62f 1925  | / %|
058f e691 191d  |    |
0591 e65a e691  | Z  |
0593 190d e686  |    |
0595 1911 e686  |    |
0597 1910 e663  |   c|
0599 1923 e663  | # c|
059b 191c e65b  |   [|
059d 1b2e 1922  | . "|
059f 4859 e66f  |HY o|
05a1 020e e66f  |   o|
05a3 020f 4801  |  H |
05a5 4800 00e5  |H   |
05a7 02a0 4801  |  H |
05a9 035d 0337  | ] 7|
05ab e60b e60f  |    |
05ad 1928 e691  | (  |
05af 1915 e662  |   b|
05b1 e663 1912  | c  |
05b3 e663 191b  | c  |
05b5 e60f 1b0f  |    |
05b7 e66d e617  | m  |
05b9 e69c 190e  |    |
05bb e69c 1914  |    |
05bd e69c 1916  |    |
05bf e69c 1b0d  |    |
05c1 e69c 1b0e  |    |
05c3 e69c 190f  |    |
05c5 e69c 1910  |    |
05c7 e69c 1911  |    |
05c9 e69c 1912  |    |
05cb e69c 1b13  |    |
05cd e69c 1b14  |    |
05cf e69c 1b15  |    |
05d1 e69c 1b16  |    |
05d3 e69c 1917  |    |
05d5 e69c 1918  |    |
05d7 e69c 1919  |    |
05d9 e69c 191a  |    |
05db e69c 191b  |    |
05dd e69c 191c  |    |
05df e69c 191d  |    |
05e1 e69c 191e  |    |
05e3 e69c 191f  |    |
05e5 e69c 1920  |    |
05e7 e69c 1921  |   !|
05e9 e69c 1922  |   "|
05eb e69c 1923  |   #|
05ed e69c 1924  |   $|
05ef e69c 1925  |   %|
05f1 e69c 1926  |   &|
05f3 e69c 1927  |   '|
05f5 e69c 1929  |   )|
05f7 e69b e61c  |    |
05f9 e66e e65d  | n ]|
05fb 191a e618  |    |
05fd 482e e660  |H. `|
05ff 020e       |    |