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

⟦bcfc315b1⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2

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 03f0       |    |		.CONST	0x03f0								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 02ed       |    |		.CONST	0x02ed								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0074       | t  |		.CONST	0x0074								; Number of locals
000b			INIT_0008:
000b a002       |    |		Store_Unchecked	0x0,0x2
000c 00c6       |    |		Action	Check_Subprogram_Elaborated
000d e003       |    |		Load	0x0,0x3
000e 0129       | )  |		Execute	Any,Make_Visible
000f e004       |    |		Load	0x0,0x4
0010 00d8       |    |		Load_Top	At_Offset_0
0011 012c       | ,  |		Execute	Any,Size
0012 00d9       |    |		Load_Top	At_Offset_1
0013 0266       | f  |		Execute	Discrete,Bounds
0014 00db       |    |		Load_Top	At_Offset_3
0015 0122       | "  |		Execute	Any,Make_Root_Type
0016 00d8       |    |		Load_Top	At_Offset_0
0017 012c       | ,  |		Execute	Any,Size
0018 00d0       |    |		Action	Swap_Control
0019 0266       | f  |		Execute	Discrete,Bounds
001a 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
001c 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
001d 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
001e 00cd       |    |		Action	Spare6_Action
001f 0129       | )  |		Execute	Any,Make_Visible
0020 e005       |    |		Load	0x0,0x5
0021 0129       | )  |		Execute	Any,Make_Visible
0022 0093 0000  |    |		push_full_address	0x0
0024 6353       |cS  |		Indirect_Literal	Discrete,0x378,{0x80000000, 0x001a0000}
0025 0273       | s  |		Execute	Discrete,Plus
0026 e006       |    |		Load	0x0,0x6
0027 0273       | s  |		Execute	Discrete,Plus
0028 e007       |    |		Load	0x0,0x7
0029 0273       | s  |		Execute	Discrete,Plus
002a 0129       | )  |		Execute	Any,Make_Visible
002b 4800       |H   |		Short_Literal	0x0
002c 0129       | )  |		Execute	Any,Make_Visible
002d a008       |    |		Store_Unchecked	0x0,0x8
002e 00c6       |    |		Action	Check_Subprogram_Elaborated
002f e003       |    |		Load	0x0,0x3
0030 0129       | )  |		Execute	Any,Make_Visible
0031 e004       |    |		Load	0x0,0x4
0032 00d8       |    |		Load_Top	At_Offset_0
0033 012c       | ,  |		Execute	Any,Size
0034 00d9       |    |		Load_Top	At_Offset_1
0035 0266       | f  |		Execute	Discrete,Bounds
0036 00db       |    |		Load_Top	At_Offset_3
0037 0122       | "  |		Execute	Any,Make_Root_Type
0038 00d8       |    |		Load_Top	At_Offset_0
0039 012c       | ,  |		Execute	Any,Size
003a 00d0       |    |		Action	Swap_Control
003b 0266       | f  |		Execute	Discrete,Bounds
003c 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
003e 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
003f 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0040 00cd       |    |		Action	Spare6_Action
0041 0129       | )  |		Execute	Any,Make_Visible
0042 e005       |    |		Load	0x0,0x5
0043 0129       | )  |		Execute	Any,Make_Visible
0044 0093 0000  |    |		push_full_address	0x0
0046 632d       |c-  |		Indirect_Literal	Discrete,0x374,{0x80000000, 0x00190000}
0047 0273       | s  |		Execute	Discrete,Plus
0048 e006       |    |		Load	0x0,0x6
0049 0273       | s  |		Execute	Discrete,Plus
004a e009       |    |		Load	0x0,0x9
004b 0273       | s  |		Execute	Discrete,Plus
004c 0129       | )  |		Execute	Any,Make_Visible
004d 4800       |H   |		Short_Literal	0x0
004e 0129       | )  |		Execute	Any,Make_Visible
004f a002       |    |		Store_Unchecked	0x0,0x2
0050 00c6       |    |		Action	Check_Subprogram_Elaborated
0051 e00a       |    |		Load	0x0,0xa
0052 0129       | )  |		Execute	Any,Make_Visible
0053 e004       |    |		Load	0x0,0x4
0054 00d8       |    |		Load_Top	At_Offset_0
0055 012c       | ,  |		Execute	Any,Size
0056 00d9       |    |		Load_Top	At_Offset_1
0057 0266       | f  |		Execute	Discrete,Bounds
0058 00db       |    |		Load_Top	At_Offset_3
0059 0122       | "  |		Execute	Any,Make_Root_Type
005a 00d8       |    |		Load_Top	At_Offset_0
005b 012c       | ,  |		Execute	Any,Size
005c 00d0       |    |		Action	Swap_Control
005d 0266       | f  |		Execute	Discrete,Bounds
005e 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0060 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0061 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0062 00cd       |    |		Action	Spare6_Action
0063 0129       | )  |		Execute	Any,Make_Visible
0064 e00b       |    |		Load	0x0,0xb
0065 0129       | )  |		Execute	Any,Make_Visible
0066 0093 0000  |    |		push_full_address	0x0
0068 6307       |c   |		Indirect_Literal	Discrete,0x370,{0x80000000, 0x00180000}
0069 0273       | s  |		Execute	Discrete,Plus
006a e006       |    |		Load	0x0,0x6
006b 0273       | s  |		Execute	Discrete,Plus
006c e00c       |    |		Load	0x0,0xc
006d 0273       | s  |		Execute	Discrete,Plus
006e 0129       | )  |		Execute	Any,Make_Visible
006f 4800       |H   |		Short_Literal	0x0
0070 0129       | )  |		Execute	Any,Make_Visible
0071 a008       |    |		Store_Unchecked	0x0,0x8
0072 00c6       |    |		Action	Check_Subprogram_Elaborated
0073 e00a       |    |		Load	0x0,0xa
0074 0129       | )  |		Execute	Any,Make_Visible
0075 e004       |    |		Load	0x0,0x4
0076 00d8       |    |		Load_Top	At_Offset_0
0077 012c       | ,  |		Execute	Any,Size
0078 00d9       |    |		Load_Top	At_Offset_1
0079 0266       | f  |		Execute	Discrete,Bounds
007a 00db       |    |		Load_Top	At_Offset_3
007b 0122       | "  |		Execute	Any,Make_Root_Type
007c 00d8       |    |		Load_Top	At_Offset_0
007d 012c       | ,  |		Execute	Any,Size
007e 00d0       |    |		Action	Swap_Control
007f 0266       | f  |		Execute	Discrete,Bounds
0080 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0082 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0083 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0084 00cd       |    |		Action	Spare6_Action
0085 0129       | )  |		Execute	Any,Make_Visible
0086 e00b       |    |		Load	0x0,0xb
0087 0129       | )  |		Execute	Any,Make_Visible
0088 0093 0000  |    |		push_full_address	0x0
008a 62e1       |b   |		Indirect_Literal	Discrete,0x36c,{0x80000000, 0x00170000}
008b 0273       | s  |		Execute	Discrete,Plus
008c e006       |    |		Load	0x0,0x6
008d 0273       | s  |		Execute	Discrete,Plus
008e e00d       |    |		Load	0x0,0xd
008f 0273       | s  |		Execute	Discrete,Plus
0090 0129       | )  |		Execute	Any,Make_Visible
0091 4800       |H   |		Short_Literal	0x0
0092 0129       | )  |		Execute	Any,Make_Visible
0093 a00e       |    |		Store_Unchecked	0x0,0xe
0094 00c6       |    |		Action	Check_Subprogram_Elaborated
0095 e00f       |    |		Load	0x0,0xf
0096 0129       | )  |		Execute	Any,Make_Visible
0097 0093 0000  |    |		push_full_address	0x0
0099 62ce       |b   |		Indirect_Literal	Discrete,0x368,{0x80000000, 0x00160000}
009a 0273       | s  |		Execute	Discrete,Plus
009b e006       |    |		Load	0x0,0x6
009c 0273       | s  |		Execute	Discrete,Plus
009d e010       |    |		Load	0x0,0x10
009e 0273       | s  |		Execute	Discrete,Plus
009f 0129       | )  |		Execute	Any,Make_Visible
00a0 4800       |H   |		Short_Literal	0x0
00a1 0129       | )  |		Execute	Any,Make_Visible
00a2 a011       |    |		Store_Unchecked	0x0,0x11
00a3 00c6       |    |		Action	Check_Subprogram_Elaborated
00a4 e00f       |    |		Load	0x0,0xf
00a5 0129       | )  |		Execute	Any,Make_Visible
00a6 0093 0000  |    |		push_full_address	0x0
00a8 62bb       |b   |		Indirect_Literal	Discrete,0x364,{0x80000000, 0x00150000}
00a9 0273       | s  |		Execute	Discrete,Plus
00aa e006       |    |		Load	0x0,0x6
00ab 0273       | s  |		Execute	Discrete,Plus
00ac e012       |    |		Load	0x0,0x12
00ad 0273       | s  |		Execute	Discrete,Plus
00ae 0129       | )  |		Execute	Any,Make_Visible
00af 4800       |H   |		Short_Literal	0x0
00b0 0129       | )  |		Execute	Any,Make_Visible
00b1 a011       |    |		Store_Unchecked	0x0,0x11
00b2 00c6       |    |		Action	Check_Subprogram_Elaborated
00b3 e013       |    |		Load	0x0,0x13
00b4 0129       | )  |		Execute	Any,Make_Visible
00b5 0093 0000  |    |		push_full_address	0x0
00b7 62a8       |b   |		Indirect_Literal	Discrete,0x360,{0x80000000, 0x00140000}
00b8 0273       | s  |		Execute	Discrete,Plus
00b9 e006       |    |		Load	0x0,0x6
00ba 0273       | s  |		Execute	Discrete,Plus
00bb e014       |    |		Load	0x0,0x14
00bc 0273       | s  |		Execute	Discrete,Plus
00bd 0129       | )  |		Execute	Any,Make_Visible
00be 4800       |H   |		Short_Literal	0x0
00bf 0129       | )  |		Execute	Any,Make_Visible
00c0 a008       |    |		Store_Unchecked	0x0,0x8
00c1 00c6       |    |		Action	Check_Subprogram_Elaborated
00c2 e013       |    |		Load	0x0,0x13
00c3 0129       | )  |		Execute	Any,Make_Visible
00c4 e004       |    |		Load	0x0,0x4
00c5 00d8       |    |		Load_Top	At_Offset_0
00c6 012c       | ,  |		Execute	Any,Size
00c7 00d9       |    |		Load_Top	At_Offset_1
00c8 0266       | f  |		Execute	Discrete,Bounds
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 0122       | "  |		Execute	Any,Make_Root_Type
00cb 00d8       |    |		Load_Top	At_Offset_0
00cc 012c       | ,  |		Execute	Any,Size
00cd 00d0       |    |		Action	Swap_Control
00ce 0266       | f  |		Execute	Discrete,Bounds
00cf 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
00d1 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
00d2 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
00d3 00cd       |    |		Action	Spare6_Action
00d4 0129       | )  |		Execute	Any,Make_Visible
00d5 e015       |    |		Load	0x0,0x15
00d6 0129       | )  |		Execute	Any,Make_Visible
00d7 0093 0000  |    |		push_full_address	0x0
00d9 6282       |b   |		Indirect_Literal	Discrete,0x35c,{0x80000000, 0x00130000}
00da 0273       | s  |		Execute	Discrete,Plus
00db e006       |    |		Load	0x0,0x6
00dc 0273       | s  |		Execute	Discrete,Plus
00dd e016       |    |		Load	0x0,0x16
00de 0273       | s  |		Execute	Discrete,Plus
00df 0129       | )  |		Execute	Any,Make_Visible
00e0 4800       |H   |		Short_Literal	0x0
00e1 0129       | )  |		Execute	Any,Make_Visible
00e2 a00e       |    |		Store_Unchecked	0x0,0xe
00e3 00c6       |    |		Action	Check_Subprogram_Elaborated
00e4 e017       |    |		Load	0x0,0x17
00e5 0129       | )  |		Execute	Any,Make_Visible
00e6 0093 0000  |    |		push_full_address	0x0
00e8 626f       |bo  |		Indirect_Literal	Discrete,0x358,{0x80000000, 0x00120000}
00e9 0273       | s  |		Execute	Discrete,Plus
00ea e006       |    |		Load	0x0,0x6
00eb 0273       | s  |		Execute	Discrete,Plus
00ec e018       |    |		Load	0x0,0x18
00ed 0273       | s  |		Execute	Discrete,Plus
00ee 0129       | )  |		Execute	Any,Make_Visible
00ef 4800       |H   |		Short_Literal	0x0
00f0 0129       | )  |		Execute	Any,Make_Visible
00f1 a011       |    |		Store_Unchecked	0x0,0x11
00f2 00c6       |    |		Action	Check_Subprogram_Elaborated
00f3 e017       |    |		Load	0x0,0x17
00f4 0129       | )  |		Execute	Any,Make_Visible
00f5 0093 0000  |    |		push_full_address	0x0
00f7 625c       |b\  |		Indirect_Literal	Discrete,0x354,{0x80000000, 0x00110000}
00f8 0273       | s  |		Execute	Discrete,Plus
00f9 e006       |    |		Load	0x0,0x6
00fa 0273       | s  |		Execute	Discrete,Plus
00fb e019       |    |		Load	0x0,0x19
00fc 0273       | s  |		Execute	Discrete,Plus
00fd 0129       | )  |		Execute	Any,Make_Visible
00fe 4800       |H   |		Short_Literal	0x0
00ff 0129       | )  |		Execute	Any,Make_Visible
0100 a008       |    |		Store_Unchecked	0x0,0x8
0101 00c6       |    |		Action	Check_Subprogram_Elaborated
0102 e017       |    |		Load	0x0,0x17
0103 0129       | )  |		Execute	Any,Make_Visible
0104 e004       |    |		Load	0x0,0x4
0105 00d8       |    |		Load_Top	At_Offset_0
0106 012c       | ,  |		Execute	Any,Size
0107 00d9       |    |		Load_Top	At_Offset_1
0108 0266       | f  |		Execute	Discrete,Bounds
0109 00db       |    |		Load_Top	At_Offset_3
010a 0122       | "  |		Execute	Any,Make_Root_Type
010b 00d8       |    |		Load_Top	At_Offset_0
010c 012c       | ,  |		Execute	Any,Size
010d 00d0       |    |		Action	Swap_Control
010e 0266       | f  |		Execute	Discrete,Bounds
010f 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0111 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0112 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0113 00cd       |    |		Action	Spare6_Action
0114 0129       | )  |		Execute	Any,Make_Visible
0115 e01a       |    |		Load	0x0,0x1a
0116 0129       | )  |		Execute	Any,Make_Visible
0117 0093 0000  |    |		push_full_address	0x0
0119 6236       |b6  |		Indirect_Literal	Discrete,0x350,{0x80000000, 0x00100000}
011a 0273       | s  |		Execute	Discrete,Plus
011b e006       |    |		Load	0x0,0x6
011c 0273       | s  |		Execute	Discrete,Plus
011d e01b       |    |		Load	0x0,0x1b
011e 0273       | s  |		Execute	Discrete,Plus
011f 0129       | )  |		Execute	Any,Make_Visible
0120 4800       |H   |		Short_Literal	0x0
0121 0129       | )  |		Execute	Any,Make_Visible
0122 a002       |    |		Store_Unchecked	0x0,0x2
0123 00c6       |    |		Action	Check_Subprogram_Elaborated
0124 e017       |    |		Load	0x0,0x17
0125 0129       | )  |		Execute	Any,Make_Visible
0126 e004       |    |		Load	0x0,0x4
0127 00d8       |    |		Load_Top	At_Offset_0
0128 012c       | ,  |		Execute	Any,Size
0129 00d9       |    |		Load_Top	At_Offset_1
012a 0266       | f  |		Execute	Discrete,Bounds
012b 00db       |    |		Load_Top	At_Offset_3
012c 0122       | "  |		Execute	Any,Make_Root_Type
012d 00d8       |    |		Load_Top	At_Offset_0
012e 012c       | ,  |		Execute	Any,Size
012f 00d0       |    |		Action	Swap_Control
0130 0266       | f  |		Execute	Discrete,Bounds
0131 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0133 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0134 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0135 00cd       |    |		Action	Spare6_Action
0136 0129       | )  |		Execute	Any,Make_Visible
0137 e01a       |    |		Load	0x0,0x1a
0138 0129       | )  |		Execute	Any,Make_Visible
0139 0093 0000  |    |		push_full_address	0x0
013b 6210       |b   |		Indirect_Literal	Discrete,0x34c,{0x80000000, 0x000f0000}
013c 0273       | s  |		Execute	Discrete,Plus
013d e006       |    |		Load	0x0,0x6
013e 0273       | s  |		Execute	Discrete,Plus
013f e01c       |    |		Load	0x0,0x1c
0140 0273       | s  |		Execute	Discrete,Plus
0141 0129       | )  |		Execute	Any,Make_Visible
0142 4800       |H   |		Short_Literal	0x0
0143 0129       | )  |		Execute	Any,Make_Visible
0144 a00e       |    |		Store_Unchecked	0x0,0xe
0145 00c6       |    |		Action	Check_Subprogram_Elaborated
0146 e01d       |    |		Load	0x0,0x1d
0147 0129       | )  |		Execute	Any,Make_Visible
0148 0093 0000  |    |		push_full_address	0x0
014a 61fd       |a   |		Indirect_Literal	Discrete,0x348,{0x80000000, 0x000e0000}
014b 0273       | s  |		Execute	Discrete,Plus
014c e006       |    |		Load	0x0,0x6
014d 0273       | s  |		Execute	Discrete,Plus
014e e01e       |    |		Load	0x0,0x1e
014f 0273       | s  |		Execute	Discrete,Plus
0150 0129       | )  |		Execute	Any,Make_Visible
0151 4800       |H   |		Short_Literal	0x0
0152 0129       | )  |		Execute	Any,Make_Visible
0153 a011       |    |		Store_Unchecked	0x0,0x11
0154 00c6       |    |		Action	Check_Subprogram_Elaborated
0155 e01d       |    |		Load	0x0,0x1d
0156 0129       | )  |		Execute	Any,Make_Visible
0157 0093 0000  |    |		push_full_address	0x0
0159 61ea       |a   |		Indirect_Literal	Discrete,0x344,{0x80000000, 0x000d0000}
015a 0273       | s  |		Execute	Discrete,Plus
015b e006       |    |		Load	0x0,0x6
015c 0273       | s  |		Execute	Discrete,Plus
015d e01f       |    |		Load	0x0,0x1f
015e 0273       | s  |		Execute	Discrete,Plus
015f 0129       | )  |		Execute	Any,Make_Visible
0160 4800       |H   |		Short_Literal	0x0
0161 0129       | )  |		Execute	Any,Make_Visible
0162 a020       |    |		Store_Unchecked	0x0,0x20
0163 00c6       |    |		Action	Check_Subprogram_Elaborated
0164 e021       | !  |		Load	0x0,0x21
0165 00d8       |    |		Load_Top	At_Offset_0
0166 012c       | ,  |		Execute	Any,Size
0167 00d9       |    |		Load_Top	At_Offset_1
0168 0266       | f  |		Execute	Discrete,Bounds
0169 00db       |    |		Load_Top	At_Offset_3
016a 0122       | "  |		Execute	Any,Make_Root_Type
016b 00d8       |    |		Load_Top	At_Offset_0
016c 012c       | ,  |		Execute	Any,Size
016d 00d0       |    |		Action	Swap_Control
016e 0266       | f  |		Execute	Discrete,Bounds
016f 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0171 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0172 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0173 00cd       |    |		Action	Spare6_Action
0174 0129       | )  |		Execute	Any,Make_Visible
0175 0093 0000  |    |		push_full_address	0x0
0177 61c8       |a   |		Indirect_Literal	Discrete,0x340,{0x80000000, 0x000c0000}
0178 0273       | s  |		Execute	Discrete,Plus
0179 e006       |    |		Load	0x0,0x6
017a 0273       | s  |		Execute	Discrete,Plus
017b e022       | "  |		Load	0x0,0x22
017c 0273       | s  |		Execute	Discrete,Plus
017d 0129       | )  |		Execute	Any,Make_Visible
017e 4800       |H   |		Short_Literal	0x0
017f 0129       | )  |		Execute	Any,Make_Visible
0180 a023       | #  |		Store_Unchecked	0x0,0x23
0181 00c6       |    |		Action	Check_Subprogram_Elaborated
0182 e021       | !  |		Load	0x0,0x21
0183 00d8       |    |		Load_Top	At_Offset_0
0184 012c       | ,  |		Execute	Any,Size
0185 00d9       |    |		Load_Top	At_Offset_1
0186 0266       | f  |		Execute	Discrete,Bounds
0187 00db       |    |		Load_Top	At_Offset_3
0188 0122       | "  |		Execute	Any,Make_Root_Type
0189 00d8       |    |		Load_Top	At_Offset_0
018a 012c       | ,  |		Execute	Any,Size
018b 00d0       |    |		Action	Swap_Control
018c 0266       | f  |		Execute	Discrete,Bounds
018d 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
018f 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0190 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0191 00cd       |    |		Action	Spare6_Action
0192 0129       | )  |		Execute	Any,Make_Visible
0193 0093 0000  |    |		push_full_address	0x0
0195 61a6       |a   |		Indirect_Literal	Discrete,0x33c,{0x80000000, 0x000b0000}
0196 0273       | s  |		Execute	Discrete,Plus
0197 e006       |    |		Load	0x0,0x6
0198 0273       | s  |		Execute	Discrete,Plus
0199 e024       | $  |		Load	0x0,0x24
019a 0273       | s  |		Execute	Discrete,Plus
019b 0129       | )  |		Execute	Any,Make_Visible
019c 4800       |H   |		Short_Literal	0x0
019d 0129       | )  |		Execute	Any,Make_Visible
019e a020       |    |		Store_Unchecked	0x0,0x20
019f 00c6       |    |		Action	Check_Subprogram_Elaborated
01a0 e025       | %  |		Load	0x0,0x25
01a1 00d8       |    |		Load_Top	At_Offset_0
01a2 012c       | ,  |		Execute	Any,Size
01a3 00d9       |    |		Load_Top	At_Offset_1
01a4 0266       | f  |		Execute	Discrete,Bounds
01a5 00db       |    |		Load_Top	At_Offset_3
01a6 0122       | "  |		Execute	Any,Make_Root_Type
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 012c       | ,  |		Execute	Any,Size
01a9 00d0       |    |		Action	Swap_Control
01aa 0266       | f  |		Execute	Discrete,Bounds
01ab 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
01ad 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
01ae 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
01af 00cd       |    |		Action	Spare6_Action
01b0 0129       | )  |		Execute	Any,Make_Visible
01b1 0093 0000  |    |		push_full_address	0x0
01b3 6184       |a   |		Indirect_Literal	Discrete,0x338,{0x80000000, 0x000a0000}
01b4 0273       | s  |		Execute	Discrete,Plus
01b5 e006       |    |		Load	0x0,0x6
01b6 0273       | s  |		Execute	Discrete,Plus
01b7 e026       | &  |		Load	0x0,0x26
01b8 0273       | s  |		Execute	Discrete,Plus
01b9 0129       | )  |		Execute	Any,Make_Visible
01ba 4800       |H   |		Short_Literal	0x0
01bb 0129       | )  |		Execute	Any,Make_Visible
01bc a023       | #  |		Store_Unchecked	0x0,0x23
01bd 00c6       |    |		Action	Check_Subprogram_Elaborated
01be e025       | %  |		Load	0x0,0x25
01bf 00d8       |    |		Load_Top	At_Offset_0
01c0 012c       | ,  |		Execute	Any,Size
01c1 00d9       |    |		Load_Top	At_Offset_1
01c2 0266       | f  |		Execute	Discrete,Bounds
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 0122       | "  |		Execute	Any,Make_Root_Type
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 012c       | ,  |		Execute	Any,Size
01c7 00d0       |    |		Action	Swap_Control
01c8 0266       | f  |		Execute	Discrete,Bounds
01c9 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
01cb 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
01cc 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
01cd 00cd       |    |		Action	Spare6_Action
01ce 0129       | )  |		Execute	Any,Make_Visible
01cf 0093 0000  |    |		push_full_address	0x0
01d1 6162       |ab  |		Indirect_Literal	Discrete,0x334,{0x80000000, 0x00090000}
01d2 0273       | s  |		Execute	Discrete,Plus
01d3 e006       |    |		Load	0x0,0x6
01d4 0273       | s  |		Execute	Discrete,Plus
01d5 e027       | '  |		Load	0x0,0x27
01d6 0273       | s  |		Execute	Discrete,Plus
01d7 0129       | )  |		Execute	Any,Make_Visible
01d8 4800       |H   |		Short_Literal	0x0
01d9 0129       | )  |		Execute	Any,Make_Visible
01da a020       |    |		Store_Unchecked	0x0,0x20
01db 00c6       |    |		Action	Check_Subprogram_Elaborated
01dc e028       | (  |		Load	0x0,0x28
01dd 00d8       |    |		Load_Top	At_Offset_0
01de 012c       | ,  |		Execute	Any,Size
01df 00d9       |    |		Load_Top	At_Offset_1
01e0 0266       | f  |		Execute	Discrete,Bounds
01e1 00db       |    |		Load_Top	At_Offset_3
01e2 0122       | "  |		Execute	Any,Make_Root_Type
01e3 00d8       |    |		Load_Top	At_Offset_0
01e4 012c       | ,  |		Execute	Any,Size
01e5 00d0       |    |		Action	Swap_Control
01e6 0266       | f  |		Execute	Discrete,Bounds
01e7 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
01e9 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
01ea 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
01eb 00cd       |    |		Action	Spare6_Action
01ec 0129       | )  |		Execute	Any,Make_Visible
01ed 0093 0000  |    |		push_full_address	0x0
01ef 6140       |a@  |		Indirect_Literal	Discrete,0x330,{0x80000000, 0x00080000}
01f0 0273       | s  |		Execute	Discrete,Plus
01f1 e006       |    |		Load	0x0,0x6
01f2 0273       | s  |		Execute	Discrete,Plus
01f3 e029       | )  |		Load	0x0,0x29
01f4 0273       | s  |		Execute	Discrete,Plus
01f5 0129       | )  |		Execute	Any,Make_Visible
01f6 4800       |H   |		Short_Literal	0x0
01f7 0129       | )  |		Execute	Any,Make_Visible
01f8 a023       | #  |		Store_Unchecked	0x0,0x23
01f9 00c6       |    |		Action	Check_Subprogram_Elaborated
01fa e028       | (  |		Load	0x0,0x28
01fb 00d8       |    |		Load_Top	At_Offset_0
01fc 012c       | ,  |		Execute	Any,Size
01fd 00d9       |    |		Load_Top	At_Offset_1
01fe 0266       | f  |		Execute	Discrete,Bounds
01ff 00db       |    |		Load_Top	At_Offset_3
0200 0122       | "  |		Execute	Any,Make_Root_Type
0201 00d8       |    |		Load_Top	At_Offset_0
0202 012c       | ,  |		Execute	Any,Size
0203 00d0       |    |		Action	Swap_Control
0204 0266       | f  |		Execute	Discrete,Bounds
0205 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0207 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0208 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0209 00cd       |    |		Action	Spare6_Action
020a 0129       | )  |		Execute	Any,Make_Visible
020b 0093 0000  |    |		push_full_address	0x0
020d 611e       |a   |		Indirect_Literal	Discrete,0x32c,{0x80000000, 0x00070000}
020e 0273       | s  |		Execute	Discrete,Plus
020f e006       |    |		Load	0x0,0x6
0210 0273       | s  |		Execute	Discrete,Plus
0211 e02a       | *  |		Load	0x0,0x2a
0212 0273       | s  |		Execute	Discrete,Plus
0213 0129       | )  |		Execute	Any,Make_Visible
0214 4800       |H   |		Short_Literal	0x0
0215 0129       | )  |		Execute	Any,Make_Visible
0216 a020       |    |		Store_Unchecked	0x0,0x20
0217 00c6       |    |		Action	Check_Subprogram_Elaborated
0218 e02b       | +  |		Load	0x0,0x2b
0219 00d8       |    |		Load_Top	At_Offset_0
021a 012c       | ,  |		Execute	Any,Size
021b 00d9       |    |		Load_Top	At_Offset_1
021c 0266       | f  |		Execute	Discrete,Bounds
021d 00db       |    |		Load_Top	At_Offset_3
021e 0122       | "  |		Execute	Any,Make_Root_Type
021f 00d8       |    |		Load_Top	At_Offset_0
0220 012c       | ,  |		Execute	Any,Size
0221 00d0       |    |		Action	Swap_Control
0222 0266       | f  |		Execute	Discrete,Bounds
0223 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0225 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0226 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0227 00cd       |    |		Action	Spare6_Action
0228 0129       | )  |		Execute	Any,Make_Visible
0229 0093 0000  |    |		push_full_address	0x0
022b 60fc       |`   |		Indirect_Literal	Discrete,0x328,{0x80000000, 0x00060000}
022c 0273       | s  |		Execute	Discrete,Plus
022d e006       |    |		Load	0x0,0x6
022e 0273       | s  |		Execute	Discrete,Plus
022f e02c       | ,  |		Load	0x0,0x2c
0230 0273       | s  |		Execute	Discrete,Plus
0231 0129       | )  |		Execute	Any,Make_Visible
0232 4800       |H   |		Short_Literal	0x0
0233 0129       | )  |		Execute	Any,Make_Visible
0234 a023       | #  |		Store_Unchecked	0x0,0x23
0235 00c6       |    |		Action	Check_Subprogram_Elaborated
0236 e02b       | +  |		Load	0x0,0x2b
0237 00d8       |    |		Load_Top	At_Offset_0
0238 012c       | ,  |		Execute	Any,Size
0239 00d9       |    |		Load_Top	At_Offset_1
023a 0266       | f  |		Execute	Discrete,Bounds
023b 00db       |    |		Load_Top	At_Offset_3
023c 0122       | "  |		Execute	Any,Make_Root_Type
023d 00d8       |    |		Load_Top	At_Offset_0
023e 012c       | ,  |		Execute	Any,Size
023f 00d0       |    |		Action	Swap_Control
0240 0266       | f  |		Execute	Discrete,Bounds
0241 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0243 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0244 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0245 00cd       |    |		Action	Spare6_Action
0246 0129       | )  |		Execute	Any,Make_Visible
0247 0093 0000  |    |		push_full_address	0x0
0249 60da       |`   |		Indirect_Literal	Discrete,0x324,{0x80000000, 0x00050000}
024a 0273       | s  |		Execute	Discrete,Plus
024b e006       |    |		Load	0x0,0x6
024c 0273       | s  |		Execute	Discrete,Plus
024d e02d       | -  |		Load	0x0,0x2d
024e 0273       | s  |		Execute	Discrete,Plus
024f 0129       | )  |		Execute	Any,Make_Visible
0250 4800       |H   |		Short_Literal	0x0
0251 0129       | )  |		Execute	Any,Make_Visible
0252 4800       |H   |		Short_Literal	0x0
0253 48ff       |H   |		Short_Literal	0xff
0254 00e8       |    |		Load_Encached	Character_Cache
0255 02a0       |    |		Declare_Subprogram	Null_Subprogram
0256 4801       |H   |		Short_Literal	0x1
0257 035e       | ^  |		Declare_Type	Array,Defined,Visible
0258 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
025a 029a 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call,Visible,Unelaborated
025c 029a 03cb  |    |		Declare_Subprogram	INIT_03c8,For_Outer_Call,Visible,Unelaborated
025e a002       |    |		Store_Unchecked	0x0,0x2
025f 00c6       |    |		Action	Check_Subprogram_Elaborated
0260 e02e       | .  |		Load	0x0,0x2e
0261 0129       | )  |		Execute	Any,Make_Visible
0262 e004       |    |		Load	0x0,0x4
0263 00d8       |    |		Load_Top	At_Offset_0
0264 012c       | ,  |		Execute	Any,Size
0265 00d9       |    |		Load_Top	At_Offset_1
0266 0266       | f  |		Execute	Discrete,Bounds
0267 00db       |    |		Load_Top	At_Offset_3
0268 0122       | "  |		Execute	Any,Make_Root_Type
0269 00d8       |    |		Load_Top	At_Offset_0
026a 012c       | ,  |		Execute	Any,Size
026b 00d0       |    |		Action	Swap_Control
026c 0266       | f  |		Execute	Discrete,Bounds
026d 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
026f 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0270 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0271 00cd       |    |		Action	Spare6_Action
0272 0129       | )  |		Execute	Any,Make_Visible
0273 e02f       | /  |		Load	0x0,0x2f
0274 0129       | )  |		Execute	Any,Make_Visible
0275 0093 0000  |    |		push_full_address	0x0
0277 60a8       |`   |		Indirect_Literal	Discrete,0x320,{0x80000000, 0x00040000}
0278 0273       | s  |		Execute	Discrete,Plus
0279 e006       |    |		Load	0x0,0x6
027a 0273       | s  |		Execute	Discrete,Plus
027b e030       | 0  |		Load	0x0,0x30
027c 0273       | s  |		Execute	Discrete,Plus
027d 0129       | )  |		Execute	Any,Make_Visible
027e 4800       |H   |		Short_Literal	0x0
027f 0129       | )  |		Execute	Any,Make_Visible
0280 a008       |    |		Store_Unchecked	0x0,0x8
0281 00c6       |    |		Action	Check_Subprogram_Elaborated
0282 e02e       | .  |		Load	0x0,0x2e
0283 0129       | )  |		Execute	Any,Make_Visible
0284 e004       |    |		Load	0x0,0x4
0285 00d8       |    |		Load_Top	At_Offset_0
0286 012c       | ,  |		Execute	Any,Size
0287 00d9       |    |		Load_Top	At_Offset_1
0288 0266       | f  |		Execute	Discrete,Bounds
0289 00db       |    |		Load_Top	At_Offset_3
028a 0122       | "  |		Execute	Any,Make_Root_Type
028b 00d8       |    |		Load_Top	At_Offset_0
028c 012c       | ,  |		Execute	Any,Size
028d 00d0       |    |		Action	Swap_Control
028e 0266       | f  |		Execute	Discrete,Bounds
028f 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
0291 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
0292 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
0293 00cd       |    |		Action	Spare6_Action
0294 0129       | )  |		Execute	Any,Make_Visible
0295 e02f       | /  |		Load	0x0,0x2f
0296 0129       | )  |		Execute	Any,Make_Visible
0297 0093 0000  |    |		push_full_address	0x0
0299 6082       |`   |		Indirect_Literal	Discrete,0x31c,{0x80000000, 0x00030000}
029a 0273       | s  |		Execute	Discrete,Plus
029b e006       |    |		Load	0x0,0x6
029c 0273       | s  |		Execute	Discrete,Plus
029d e031       | 1  |		Load	0x0,0x31
029e 0273       | s  |		Execute	Discrete,Plus
029f 0129       | )  |		Execute	Any,Make_Visible
02a0 4800       |H   |		Short_Literal	0x0
02a1 0129       | )  |		Execute	Any,Make_Visible
02a2 a002       |    |		Store_Unchecked	0x0,0x2
02a3 00c6       |    |		Action	Check_Subprogram_Elaborated
02a4 e032       | 2  |		Load	0x0,0x32
02a5 0129       | )  |		Execute	Any,Make_Visible
02a6 e004       |    |		Load	0x0,0x4
02a7 00d8       |    |		Load_Top	At_Offset_0
02a8 012c       | ,  |		Execute	Any,Size
02a9 00d9       |    |		Load_Top	At_Offset_1
02aa 0266       | f  |		Execute	Discrete,Bounds
02ab 00db       |    |		Load_Top	At_Offset_3
02ac 0122       | "  |		Execute	Any,Make_Root_Type
02ad 00d8       |    |		Load_Top	At_Offset_0
02ae 012c       | ,  |		Execute	Any,Size
02af 00d0       |    |		Action	Swap_Control
02b0 0266       | f  |		Execute	Discrete,Bounds
02b1 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
02b3 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
02b4 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
02b5 00cd       |    |		Action	Spare6_Action
02b6 0129       | )  |		Execute	Any,Make_Visible
02b7 e033       | 3  |		Load	0x0,0x33
02b8 0129       | )  |		Execute	Any,Make_Visible
02b9 0093 0000  |    |		push_full_address	0x0
02bb 605c       |`\  |		Indirect_Literal	Discrete,0x318,{0x80000000, 0x00020000}
02bc 0273       | s  |		Execute	Discrete,Plus
02bd e006       |    |		Load	0x0,0x6
02be 0273       | s  |		Execute	Discrete,Plus
02bf e034       | 4  |		Load	0x0,0x34
02c0 0273       | s  |		Execute	Discrete,Plus
02c1 0129       | )  |		Execute	Any,Make_Visible
02c2 4800       |H   |		Short_Literal	0x0
02c3 0129       | )  |		Execute	Any,Make_Visible
02c4 a008       |    |		Store_Unchecked	0x0,0x8
02c5 00c6       |    |		Action	Check_Subprogram_Elaborated
02c6 e032       | 2  |		Load	0x0,0x32
02c7 0129       | )  |		Execute	Any,Make_Visible
02c8 e004       |    |		Load	0x0,0x4
02c9 00d8       |    |		Load_Top	At_Offset_0
02ca 012c       | ,  |		Execute	Any,Size
02cb 00d9       |    |		Load_Top	At_Offset_1
02cc 0266       | f  |		Execute	Discrete,Bounds
02cd 00db       |    |		Load_Top	At_Offset_3
02ce 0122       | "  |		Execute	Any,Make_Root_Type
02cf 00d8       |    |		Load_Top	At_Offset_0
02d0 012c       | ,  |		Execute	Any,Size
02d1 00d0       |    |		Action	Swap_Control
02d2 0266       | f  |		Execute	Discrete,Bounds
02d3 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
02d5 03fa       |    |		Declare_Type	Discrete,Defined,With_Size
02d6 03f7       |    |		QQ_Declare_Variable	Discrete,XXX
02d7 00cd       |    |		Action	Spare6_Action
02d8 0129       | )  |		Execute	Any,Make_Visible
02d9 e033       | 3  |		Load	0x0,0x33
02da 0129       | )  |		Execute	Any,Make_Visible
02db 0093 0000  |    |		push_full_address	0x0
02dd 6036       |`6  |		Indirect_Literal	Discrete,0x314,{0x80000000, 0x00010000}
02de 0273       | s  |		Execute	Discrete,Plus
02df e006       |    |		Load	0x0,0x6
02e0 0273       | s  |		Execute	Discrete,Plus
02e1 e035       | 5  |		Load	0x0,0x35
02e2 0273       | s  |		Execute	Discrete,Plus
02e3 0129       | )  |		Execute	Any,Make_Visible
02e4 4800       |H   |		Short_Literal	0x0
02e5 0129       | )  |		Execute	Any,Make_Visible
02e6 00bf       |    |		Action	Accept_Activation
02e7 1d5e       | ^  |		Execute_Immediate	Reference_Lex_1,0x5e
02e8 00c7       |    |		Action	Elaborate_Subprogram
02e9 1d5f       | _  |		Execute_Immediate	Reference_Lex_1,0x5f
02ea 00c7       |    |		Action	Elaborate_Subprogram
02eb 1d60       | `  |		Execute_Immediate	Reference_Lex_1,0x60
02ec 00c7       |    |		Action	Elaborate_Subprogram
02ed			BODY_0008:
02ed 00bc       |    |		Action	Signal_Activated
02ee 00bb       |    |		Action	Signal_Completion
02ef 0000       |    |		.XXX[0x1]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3			INIT_02f0:
02f3 4607       |F   |		Jump_Case	0x8
02f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02f5 7807       |x   |		Jump	0x2fd								; case 0x1
02f6 780a       |x   |		Jump	0x301								; case 0x2
02f7 780e       |x   |		Jump	0x306								; case 0x3
02f8 7811       |x   |		Jump	0x30a								; case 0x4
02f9 7810       |x   |		Jump	0x30a								; case 0x5
02fa 7811       |x   |		Jump	0x30c								; case 0x6
02fb 7814       |x   |		Jump	0x310								; case 0x7
02fc 4302       |C   |		.XXX[0x1]
02fd 00da       |    |		Load_Top	At_Offset_2
02fe 00e0       |    |		Load_Encached	Standard_Cache
02ff 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0300 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0301 00db       |    |		Load_Top	At_Offset_3
0302 00db       |    |		Load_Top	At_Offset_3
0303 00e0       |    |		Load_Encached	Standard_Cache
0304 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0305 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0306 00da       |    |		Load_Top	At_Offset_2
0307 00e0       |    |		Load_Encached	Standard_Cache
0308 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0309 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
030a 00db       |    |		Load_Top	At_Offset_3
030b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
030c 00e5       |    |		Load_Encached	Long_Integer_Cache
030d 00dc       |    |		Load_Top	At_Offset_4
030e 0267       | g  |		Execute	Discrete,Predecessor
030f 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0310 00e5       |    |		Load_Encached	Long_Integer_Cache
0311 00dc       |    |		Load_Top	At_Offset_4
0312 0268       | h  |		Execute	Discrete,Successor
0313 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0314 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0318 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
031c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
0320 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
0324 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
0328 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
032c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00070000}
0330 8000 0000  |    |		.LITERAL	{0x80000000, 0x00080000}
0334 8000 0000  |    |		.LITERAL	{0x80000000, 0x00090000}
0338 8000 0000  |    |		.LITERAL	{0x80000000, 0x000a0000}
033c 8000 0000  |    |		.LITERAL	{0x80000000, 0x000b0000}
0340 8000 0000  |    |		.LITERAL	{0x80000000, 0x000c0000}
0344 8000 0000  |    |		.LITERAL	{0x80000000, 0x000d0000}
0348 8000 0000  |    |		.LITERAL	{0x80000000, 0x000e0000}
034c 8000 0000  |    |		.LITERAL	{0x80000000, 0x000f0000}
0350 8000 0000  |    |		.LITERAL	{0x80000000, 0x00100000}
0354 8000 0000  |    |		.LITERAL	{0x80000000, 0x00110000}
0358 8000 0000  |    |		.LITERAL	{0x80000000, 0x00120000}
035c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00130000}
0360 8000 0000  |    |		.LITERAL	{0x80000000, 0x00140000}
0364 8000 0000  |    |		.LITERAL	{0x80000000, 0x00150000}
0368 8000 0000  |    |		.LITERAL	{0x80000000, 0x00160000}
036c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00170000}
0370 8000 0000  |    |		.LITERAL	{0x80000000, 0x00180000}
0374 8000 0000  |    |		.LITERAL	{0x80000000, 0x00190000}
0378 8000 0000  |    |		.LITERAL	{0x80000000, 0x001a0000}
037c 0000 0000  |    |		.BLANK	0000[0x4]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0387       |    |		.CONST	0x0387								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0002       |    |		.CONST	0x0002								; Number of locals
0383			INIT_0380:
0383 00da       |    |		Load_Top	At_Offset_2
0384 01dc       |    |		Execute	Vector,Last
0385 00e2       |    |		Load_Encached	Integer_Cache
0386 03f1       |    |		Declare_Variable	Discrete,With_Value
0387			BODY_0380:
0387 00db       |    |		Load_Top	At_Offset_3
0388 01db       |    |		Execute	Vector,Length
0389 e5fe       |    |		Load	0x2,-0x2
038a 01db       |    |		Execute	Vector,Length
038b 027e       | ~  |		Execute	Discrete,Not_Equal
038c 6801       |h   |		Jump_Zero	0x38e
038d 08e0       |    |		Execute_Immediate	Raise,0xe0
038e 00cf       |    |		Action	Mark_Auxiliary
038f e5fe       |    |		Load	0x2,-0x2
0390 01da       |    |		Execute	Vector,Bounds
0391 0264       | d  |		Execute	Discrete,Below_Bound
0392 700b       |p   |		Jump_Nonzero	0x39e
0393 00db       |    |		Load_Top	At_Offset_3
0394 e5ff       |    |		Load	0x2,-0x1
0395 01d7       |    |		Execute	Vector,Field_Read
0396 00d9       |    |		Load_Top	At_Offset_1
0397 e5fe       |    |		Load	0x2,-0x2
0398 01d6       |    |		Execute	Vector,Field_Write
0399 00db       |    |		Load_Top	At_Offset_3
039a 0aff       |    |		Execute_Immediate	Plus,-0x1
039b c402       |    |		Store	0x2,0x2
039c 00c8       |    |		Action	Pop_Auxiliary_Range
039d 37f5       |7   |		Loop_Decreasing	0x393
039e 00ce       |    |		Action	Pop_Auxiliary
039f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a7       |    |		.CONST	0x03a7								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 0002       |    |		.CONST	0x0002								; Number of locals
03a3			INIT_03a0:
03a3 00da       |    |		Load_Top	At_Offset_2
03a4 01dc       |    |		Execute	Vector,Last
03a5 e028       | (  |		Load	0x0,0x28
03a6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
03a7			BODY_03a0:
03a7 e5fe       |    |		Load	0x2,-0x2
03a8 01db       |    |		Execute	Vector,Length
03a9 e5ff       |    |		Load	0x2,-0x1
03aa 01db       |    |		Execute	Vector,Length
03ab 027e       | ~  |		Execute	Discrete,Not_Equal
03ac 6801       |h   |		Jump_Zero	0x3ae
03ad 08e0       |    |		Execute_Immediate	Raise,0xe0
03ae 00cf       |    |		Action	Mark_Auxiliary
03af e5fe       |    |		Load	0x2,-0x2
03b0 01da       |    |		Execute	Vector,Bounds
03b1 0264       | d  |		Execute	Discrete,Below_Bound
03b2 7012       |p   |		Jump_Nonzero	0x3c5
03b3 00db       |    |		Load_Top	At_Offset_3
03b4 e5ff       |    |		Load	0x2,-0x1
03b5 01d7       |    |		Execute	Vector,Field_Read
03b6 4880       |H   |		Short_Literal	0x80
03b7 026f       | o  |		Execute	Discrete,Remainder
03b8 00d8       |    |		Load_Top	At_Offset_0
03b9 00e8       |    |		Load_Encached	Character_Cache
03ba 0260       | `  |		Execute	Discrete,In_Type
03bb 7001       |p   |		Jump_Nonzero	0x3bd
03bc 0801       |    |		Execute_Immediate	Raise,0x1
03bd 00d9       |    |		Load_Top	At_Offset_1
03be e5fe       |    |		Load	0x2,-0x2
03bf 01d6       |    |		Execute	Vector,Field_Write
03c0 00db       |    |		Load_Top	At_Offset_3
03c1 0aff       |    |		Execute_Immediate	Plus,-0x1
03c2 c402       |    |		Store	0x2,0x2
03c3 00c8       |    |		Action	Pop_Auxiliary_Range
03c4 37ee       |7   |		Loop_Decreasing	0x3b3
03c5 00ce       |    |		Action	Pop_Auxiliary
03c6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03c7 0000       |    |		.XXX[0x1]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cf       |    |		.CONST	0x03cf								; Address of begin
03c9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ca 0002       |    |		.CONST	0x0002								; Number of locals
03cb			INIT_03c8:
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 01dc       |    |		Execute	Vector,Last
03cd e028       | (  |		Load	0x0,0x28
03ce 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
03cf			BODY_03c8:
03cf e5fd       |    |		Load	0x2,-0x3
03d0 01db       |    |		Execute	Vector,Length
03d1 e5ff       |    |		Load	0x2,-0x1
03d2 01db       |    |		Execute	Vector,Length
03d3 027e       | ~  |		Execute	Discrete,Not_Equal
03d4 6801       |h   |		Jump_Zero	0x3d6
03d5 08e0       |    |		Execute_Immediate	Raise,0xe0
03d6 00cf       |    |		Action	Mark_Auxiliary
03d7 e5fd       |    |		Load	0x2,-0x3
03d8 01da       |    |		Execute	Vector,Bounds
03d9 0264       | d  |		Execute	Discrete,Below_Bound
03da 700d       |p   |		Jump_Nonzero	0x3e8
03db 00db       |    |		Load_Top	At_Offset_3
03dc e5ff       |    |		Load	0x2,-0x1
03dd 01d7       |    |		Execute	Vector,Field_Read
03de e5fe       |    |		Load	0x2,-0x2
03df 01d7       |    |		Execute	Vector,Field_Read
03e0 00d9       |    |		Load_Top	At_Offset_1
03e1 e5fd       |    |		Load	0x2,-0x3
03e2 01d6       |    |		Execute	Vector,Field_Write
03e3 00db       |    |		Load_Top	At_Offset_3
03e4 0aff       |    |		Execute_Immediate	Plus,-0x1
03e5 c402       |    |		Store	0x2,0x2
03e6 00c8       |    |		Action	Pop_Auxiliary_Range
03e7 37f3       |7   |		Loop_Decreasing	0x3db
03e8 00ce       |    |		Action	Pop_Auxiliary
03e9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03ea 0000 0000  |    |		.BLANK	0000[0x6]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug Table
03f0 ; --------------------------------------------------------------------------------------
03f0 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x67fb,0x0000,0x0001,0x0006
03f6 000b 040e  |    |		.DBG4T	0x000b,0x040e,0x8000,0x0000
03fa 02e7 042e  |   .|		.DBG4T	0x02e7,0x042e,0x8000,0x0000
03fe 02f3 0000  |    |		.DBG4T	0x02f3,0x0000,0x0005,0x0000
0402 0383 0433  |   3|		.DBG4T	0x0383,0x0433,0x0001,0x0000
0406 03a3 043b  |   ;|		.DBG4T	0x03a3,0x043b,0x0001,0x0000
040a 03cb 0443  |   C|		.DBG4T	0x03cb,0x0443,0x0001,0x0000
040e ; --------------------------------------------------------------------------------------
040e ; Debug chain
040e ; --------------------------------------------------------------------------------------
040e 001e 0000  |    |		.DBGLEN	0x001e,0x0000
0410 000b 002d  |   -|		.DBGLNO	0x000b,0x002d,0x004f,0x0071,0x0093,0x00a2,0x00b1,0x00c0,0x00e2,0x00f1,0x0100,0x0122,0x0144,0x0153,0x0162,0x0180,0x019e,0x01bc,0x01da,0x01f8,0x0216,0x0234,0x0252,0x0258,0x025a,0x025c,0x025e,0x0280,0x02a2,0x02c4
042e ; --------------------------------------------------------------------------------------
042e ; Debug chain
042e ; --------------------------------------------------------------------------------------
042e 0003 0000  |    |		.DBGLEN	0x0003,0x0000
0430 02e7 02e9  |    |		.DBGLNO	0x02e7,0x02e9,0x02eb
0433 ; --------------------------------------------------------------------------------------
0433 ; Debug chain
0433 ; --------------------------------------------------------------------------------------
0433 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0435 0383 0387  |    |		.DBGLNO	0x0383,0x0387,0x038d,0x038f,0x0393,0x0399
043b ; --------------------------------------------------------------------------------------
043b ; Debug chain
043b ; --------------------------------------------------------------------------------------
043b 0001 0005  |    |		.DBGLEN	0x0001,0x0005
043d 03a3 03a7  |    |		.DBGLNO	0x03a3,0x03a7,0x03ad,0x03af,0x03b3,0x03c0
0443 ; --------------------------------------------------------------------------------------
0443 ; Debug chain
0443 ; --------------------------------------------------------------------------------------
0443 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0445 03cb 03cf  |    |		.DBGLNO	0x03cb,0x03cf,0x03d5,0x03d7,0x03db,0x03e3
044b 0000 0000  |    |		.BLANK	0000[0x1b5]