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

⟦43cba5c3d⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0508       |    |		.CONST	0x0508								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01b0       |    |		.CONST	0x01b0								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0034       | 4  |		.CONST	0x0034								; Number of locals
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1
000c 4802       |H   |		Short_Literal	0x2
000d e001       |    |		Load	0x0,0x1
000e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0010 4801       |H   |		Short_Literal	0x1
0011 035e       | ^  |		Declare_Type	Array,Defined,Visible
0012 4801       |H   |		Short_Literal	0x1
0013 4804       |H   |		Short_Literal	0x4
0014 e001       |    |		Load	0x0,0x1
0015 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0016 02a0       |    |		Declare_Subprogram	Null_Subprogram
0017 4801       |H   |		Short_Literal	0x1
0018 035e       | ^  |		Declare_Type	Array,Defined,Visible
0019 4801       |H   |		Short_Literal	0x1
001a 4806       |H   |		Short_Literal	0x6
001b e001       |    |		Load	0x0,0x1
001c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
001d 02a0       |    |		Declare_Subprogram	Null_Subprogram
001e 4801       |H   |		Short_Literal	0x1
001f 035e       | ^  |		Declare_Type	Array,Defined,Visible
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 00c4       |    |		Action	Make_Default
0032 00c4       |    |		Action	Make_Default
0033 00c4       |    |		Action	Make_Default
0034 00c4       |    |		Action	Make_Default
0035 00c4       |    |		Action	Make_Default
0036 00c4       |    |		Action	Make_Default
0037 00c4       |    |		Action	Make_Default
0038 00c4       |    |		Action	Make_Default
0039 00c4       |    |		Action	Make_Default
003a 00c4       |    |		Action	Make_Default
003b 00c4       |    |		Action	Make_Default
003c 00c4       |    |		Action	Make_Default
003d 00c4       |    |		Action	Make_Default
003e 00c4       |    |		Action	Make_Default
003f 00c4       |    |		Action	Make_Default
0040 00c4       |    |		Action	Make_Default
0041 00c4       |    |		Action	Make_Default
0042 00c4       |    |		Action	Make_Default
0043 00c4       |    |		Action	Make_Default
0044 00c4       |    |		Action	Make_Default
0045 4801       |H   |		Short_Literal	0x1
0046 480f       |H   |		Short_Literal	0xf
0047 e001       |    |		Load	0x0,0x1
0048 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0049 02a0       |    |		Declare_Subprogram	Null_Subprogram
004a 4801       |H   |		Short_Literal	0x1
004b 035e       | ^  |		Declare_Type	Array,Defined,Visible
004c c230       | 0  |		Store	0x1,0x30
004d 4801       |H   |		Short_Literal	0x1
004e 4a70       |Jp  |		Short_Literal	0x270
004f e001       |    |		Load	0x0,0x1
0050 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0051 02a0       |    |		Declare_Subprogram	Null_Subprogram
0052 4801       |H   |		Short_Literal	0x1
0053 035e       | ^  |		Declare_Type	Array,Defined,Visible
0054 c210       |    |		Store	0x1,0x10
0055 4801       |H   |		Short_Literal	0x1
0056 485c       |H\  |		Short_Literal	0x5c
0057 e001       |    |		Load	0x0,0x1
0058 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0059 02a0       |    |		Declare_Subprogram	Null_Subprogram
005a 4801       |H   |		Short_Literal	0x1
005b 035e       | ^  |		Declare_Type	Array,Defined,Visible
005c c212       |    |		Store	0x1,0x12
005d 4801       |H   |		Short_Literal	0x1
005e 4860       |H`  |		Short_Literal	0x60
005f e001       |    |		Load	0x0,0x1
0060 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0061 02a0       |    |		Declare_Subprogram	Null_Subprogram
0062 4801       |H   |		Short_Literal	0x1
0063 035e       | ^  |		Declare_Type	Array,Defined,Visible
0064 c213       |    |		Store	0x1,0x13
0065 4800       |H   |		Short_Literal	0x0
0066 4bdd       |K   |		Short_Literal	0x3dd
0067 e001       |    |		Load	0x0,0x1
0068 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0069 02a0       |    |		Declare_Subprogram	Null_Subprogram
006a 4801       |H   |		Short_Literal	0x1
006b 035e       | ^  |		Declare_Type	Array,Defined,Visible
006c c234       | 4  |		Store	0x1,0x34
006d 4801       |H   |		Short_Literal	0x1
006e 6175       |au  |		Indirect_Literal	Discrete,0x1e4,{0x00000000, 0x00000400}
006f e001       |    |		Load	0x0,0x1
0070 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0071 02a0       |    |		Declare_Subprogram	Null_Subprogram
0072 4801       |H   |		Short_Literal	0x1
0073 035e       | ^  |		Declare_Type	Array,Defined,Visible
0074 c214       |    |		Store	0x1,0x14
0075 4801       |H   |		Short_Literal	0x1
0076 480d       |H   |		Short_Literal	0xd
0077 e001       |    |		Load	0x0,0x1
0078 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0079 02a0       |    |		Declare_Subprogram	Null_Subprogram
007a 4801       |H   |		Short_Literal	0x1
007b 035e       | ^  |		Declare_Type	Array,Defined,Visible
007c c215       |    |		Store	0x1,0x15
007d 4801       |H   |		Short_Literal	0x1
007e 480e       |H   |		Short_Literal	0xe
007f e001       |    |		Load	0x0,0x1
0080 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0081 02a0       |    |		Declare_Subprogram	Null_Subprogram
0082 4801       |H   |		Short_Literal	0x1
0083 035e       | ^  |		Declare_Type	Array,Defined,Visible
0084 c216       |    |		Store	0x1,0x16
0085 4801       |H   |		Short_Literal	0x1
0086 4810       |H   |		Short_Literal	0x10
0087 e001       |    |		Load	0x0,0x1
0088 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0089 02a0       |    |		Declare_Subprogram	Null_Subprogram
008a 4801       |H   |		Short_Literal	0x1
008b 035e       | ^  |		Declare_Type	Array,Defined,Visible
008c c217       |    |		Store	0x1,0x17
008d 4801       |H   |		Short_Literal	0x1
008e 4818       |H   |		Short_Literal	0x18
008f e001       |    |		Load	0x0,0x1
0090 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0091 02a0       |    |		Declare_Subprogram	Null_Subprogram
0092 4801       |H   |		Short_Literal	0x1
0093 035e       | ^  |		Declare_Type	Array,Defined,Visible
0094 c218       |    |		Store	0x1,0x18
0095 4801       |H   |		Short_Literal	0x1
0096 481c       |H   |		Short_Literal	0x1c
0097 e001       |    |		Load	0x0,0x1
0098 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0099 02a0       |    |		Declare_Subprogram	Null_Subprogram
009a 4801       |H   |		Short_Literal	0x1
009b 035e       | ^  |		Declare_Type	Array,Defined,Visible
009c c219       |    |		Store	0x1,0x19
009d 4801       |H   |		Short_Literal	0x1
009e 481e       |H   |		Short_Literal	0x1e
009f e001       |    |		Load	0x0,0x1
00a0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00a1 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a2 4801       |H   |		Short_Literal	0x1
00a3 035e       | ^  |		Declare_Type	Array,Defined,Visible
00a4 c21a       |    |		Store	0x1,0x1a
00a5 4801       |H   |		Short_Literal	0x1
00a6 4820       |H   |		Short_Literal	0x20
00a7 e001       |    |		Load	0x0,0x1
00a8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00a9 02a0       |    |		Declare_Subprogram	Null_Subprogram
00aa 4801       |H   |		Short_Literal	0x1
00ab 035e       | ^  |		Declare_Type	Array,Defined,Visible
00ac c21b       |    |		Store	0x1,0x1b
00ad 00e2       |    |		Load_Encached	Integer_Cache
00ae 00e2       |    |		Load_Encached	Integer_Cache
00af 00e2       |    |		Load_Encached	Integer_Cache
00b0 00e2       |    |		Load_Encached	Integer_Cache
00b1 02a0       |    |		Declare_Subprogram	Null_Subprogram
00b2 4804       |H   |		Short_Literal	0x4
00b3 032e       | .  |		Declare_Type	Record,Defined,Visible
00b4 c233       | 3  |		Store	0x1,0x33
00b5 4800       |H   |		Short_Literal	0x0
00b6 0093 0473  |   s|		push_full_address	INIT_0470
00b8 02a0       |    |		Declare_Subprogram	Null_Subprogram
00b9 038f       |    |		Declare_Type	Package,Defined,Visible
00ba e001       |    |		Load	0x0,0x1
00bb 00b6       |    |		Action	Make_Scope
00bc 4802       |H   |		Short_Literal	0x2
00bd 00db       |    |		Load_Top	At_Offset_3
00be 020e       |    |		Execute	Module,Augment_Imports
00bf 0386       |    |		Declare_Variable	Package,Visible
00c0 c21c       |    |		Store	0x1,0x1c
00c1 4800       |H   |		Short_Literal	0x0
00c2 0093 0453  |   S|		push_full_address	INIT_0450
00c4 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c5 038f       |    |		Declare_Type	Package,Defined,Visible
00c6 e001       |    |		Load	0x0,0x1
00c7 00b6       |    |		Action	Make_Scope
00c8 4802       |H   |		Short_Literal	0x2
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 020e       |    |		Execute	Module,Augment_Imports
00cb 0386       |    |		Declare_Variable	Package,Visible
00cc c21d       |    |		Store	0x1,0x1d
00cd 4800       |H   |		Short_Literal	0x0
00ce 0093 043b  |   ;|		push_full_address	INIT_0438
00d0 02a0       |    |		Declare_Subprogram	Null_Subprogram
00d1 038f       |    |		Declare_Type	Package,Defined,Visible
00d2 e002       |    |		Load	0x0,0x2
00d3 4801       |H   |		Short_Literal	0x1
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 020e       |    |		Execute	Module,Augment_Imports
00d6 0386       |    |		Declare_Variable	Package,Visible
00d7 c21e       |    |		Store	0x1,0x1e
00d8 4800       |H   |		Short_Literal	0x0
00d9 0093 03e3  |    |		push_full_address	INIT_03e0
00db 02a0       |    |		Declare_Subprogram	Null_Subprogram
00dc 038f       |    |		Declare_Type	Package,Defined,Visible
00dd e001       |    |		Load	0x0,0x1
00de 00b6       |    |		Action	Make_Scope
00df 4802       |H   |		Short_Literal	0x2
00e0 00db       |    |		Load_Top	At_Offset_3
00e1 020e       |    |		Execute	Module,Augment_Imports
00e2 0386       |    |		Declare_Variable	Package,Visible
00e3 c21f       |    |		Store	0x1,0x1f
00e4 4800       |H   |		Short_Literal	0x0
00e5 0093 03bb  |    |		push_full_address	INIT_03b8
00e7 02a0       |    |		Declare_Subprogram	Null_Subprogram
00e8 038f       |    |		Declare_Type	Package,Defined,Visible
00e9 e001       |    |		Load	0x0,0x1
00ea 00b6       |    |		Action	Make_Scope
00eb 4802       |H   |		Short_Literal	0x2
00ec 00db       |    |		Load_Top	At_Offset_3
00ed 020e       |    |		Execute	Module,Augment_Imports
00ee 0386       |    |		Declare_Variable	Package,Visible
00ef c220       |    |		Store	0x1,0x20
00f0 4800       |H   |		Short_Literal	0x0
00f1 0093 037b  |   {|		push_full_address	INIT_0378
00f3 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f4 038f       |    |		Declare_Type	Package,Defined,Visible
00f5 e001       |    |		Load	0x0,0x1
00f6 00b6       |    |		Action	Make_Scope
00f7 4802       |H   |		Short_Literal	0x2
00f8 00db       |    |		Load_Top	At_Offset_3
00f9 020e       |    |		Execute	Module,Augment_Imports
00fa 0386       |    |		Declare_Variable	Package,Visible
00fb c221       | !  |		Store	0x1,0x21
00fc e001       |    |		Load	0x0,0x1
00fd 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00fe e001       |    |		Load	0x0,0x1
00ff 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0100 02a0       |    |		Declare_Subprogram	Null_Subprogram
0101 4802       |H   |		Short_Literal	0x2
0102 032e       | .  |		Declare_Type	Record,Defined,Visible
0103 c222       | "  |		Store	0x1,0x22
0104 4800       |H   |		Short_Literal	0x0
0105 480f       |H   |		Short_Literal	0xf
0106 e222       | "  |		Load	0x1,0x22
0107 02a0       |    |		Declare_Subprogram	Null_Subprogram
0108 4801       |H   |		Short_Literal	0x1
0109 035e       | ^  |		Declare_Type	Array,Defined,Visible
010a c223       | #  |		Store	0x1,0x23
010b 4800       |H   |		Short_Literal	0x0
010c 0093 034b  |   K|		push_full_address	INIT_0348
010e 02a0       |    |		Declare_Subprogram	Null_Subprogram
010f 038f       |    |		Declare_Type	Package,Defined,Visible
0110 e001       |    |		Load	0x0,0x1
0111 00b6       |    |		Action	Make_Scope
0112 4802       |H   |		Short_Literal	0x2
0113 00db       |    |		Load_Top	At_Offset_3
0114 020e       |    |		Execute	Module,Augment_Imports
0115 0386       |    |		Declare_Variable	Package,Visible
0116 c224       | $  |		Store	0x1,0x24
0117 4800       |H   |		Short_Literal	0x0
0118 0093 031b  |    |		push_full_address	INIT_0318
011a 02a0       |    |		Declare_Subprogram	Null_Subprogram
011b 038f       |    |		Declare_Type	Package,Defined,Visible
011c e001       |    |		Load	0x0,0x1
011d 00b6       |    |		Action	Make_Scope
011e 4802       |H   |		Short_Literal	0x2
011f 00db       |    |		Load_Top	At_Offset_3
0120 020e       |    |		Execute	Module,Augment_Imports
0121 0386       |    |		Declare_Variable	Package,Visible
0122 c225       | %  |		Store	0x1,0x25
0123 4800       |H   |		Short_Literal	0x0
0124 0093 02f3  |    |		push_full_address	INIT_02f0
0126 02a0       |    |		Declare_Subprogram	Null_Subprogram
0127 038f       |    |		Declare_Type	Package,Defined,Visible
0128 e001       |    |		Load	0x0,0x1
0129 00b6       |    |		Action	Make_Scope
012a 4802       |H   |		Short_Literal	0x2
012b 00db       |    |		Load_Top	At_Offset_3
012c 020e       |    |		Execute	Module,Augment_Imports
012d 0386       |    |		Declare_Variable	Package,Visible
012e c226       | &  |		Store	0x1,0x26
012f 4800       |H   |		Short_Literal	0x0
0130 0093 02d3  |    |		push_full_address	INIT_02d0
0132 02a0       |    |		Declare_Subprogram	Null_Subprogram
0133 038f       |    |		Declare_Type	Package,Defined,Visible
0134 e001       |    |		Load	0x0,0x1
0135 4801       |H   |		Short_Literal	0x1
0136 00da       |    |		Load_Top	At_Offset_2
0137 020e       |    |		Execute	Module,Augment_Imports
0138 0386       |    |		Declare_Variable	Package,Visible
0139 c227       | '  |		Store	0x1,0x27
013a 4800       |H   |		Short_Literal	0x0
013b 480f       |H   |		Short_Literal	0xf
013c e001       |    |		Load	0x0,0x1
013d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
013e 02a0       |    |		Declare_Subprogram	Null_Subprogram
013f 4801       |H   |		Short_Literal	0x1
0140 035e       | ^  |		Declare_Type	Array,Defined,Visible
0141 c228       | (  |		Store	0x1,0x28
0142 4800       |H   |		Short_Literal	0x0
0143 480f       |H   |		Short_Literal	0xf
0144 e001       |    |		Load	0x0,0x1
0145 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0146 02a0       |    |		Declare_Subprogram	Null_Subprogram
0147 4801       |H   |		Short_Literal	0x1
0148 035e       | ^  |		Declare_Type	Array,Defined,Visible
0149 c229       | )  |		Store	0x1,0x29
014a 4800       |H   |		Short_Literal	0x0
014b 0093 028b  |    |		push_full_address	INIT_0288
014d 02a0       |    |		Declare_Subprogram	Null_Subprogram
014e 038f       |    |		Declare_Type	Package,Defined,Visible
014f 00b6       |    |		Action	Make_Scope
0150 e001       |    |		Load	0x0,0x1
0151 4802       |H   |		Short_Literal	0x2
0152 00db       |    |		Load_Top	At_Offset_3
0153 020e       |    |		Execute	Module,Augment_Imports
0154 0386       |    |		Declare_Variable	Package,Visible
0155 c22a       | *  |		Store	0x1,0x2a
0156 4800       |H   |		Short_Literal	0x0
0157 0093 026b  |   k|		push_full_address	INIT_0268
0159 02a0       |    |		Declare_Subprogram	Null_Subprogram
015a 038f       |    |		Declare_Type	Package,Defined,Visible
015b e001       |    |		Load	0x0,0x1
015c 4801       |H   |		Short_Literal	0x1
015d 00da       |    |		Load_Top	At_Offset_2
015e 020e       |    |		Execute	Module,Augment_Imports
015f 0386       |    |		Declare_Variable	Package,Visible
0160 c22b       | +  |		Store	0x1,0x2b
0161 4800       |H   |		Short_Literal	0x0
0162 0093 01eb  |    |		push_full_address	INIT_01e8
0164 02a0       |    |		Declare_Subprogram	Null_Subprogram
0165 038f       |    |		Declare_Type	Package,Defined,Visible
0166 e001       |    |		Load	0x0,0x1
0167 00b6       |    |		Action	Make_Scope
0168 4802       |H   |		Short_Literal	0x2
0169 00db       |    |		Load_Top	At_Offset_3
016a 020e       |    |		Execute	Module,Augment_Imports
016b 0386       |    |		Declare_Variable	Package,Visible
016c c22c       | ,  |		Store	0x1,0x2c
016d e21c       |    |		Load	0x1,0x1c
016e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016f e21d       |    |		Load	0x1,0x1d
0170 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0171 e21f       |    |		Load	0x1,0x1f
0172 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0173 e220       |    |		Load	0x1,0x20
0174 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0175 e221       | !  |		Load	0x1,0x21
0176 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0177 e224       | $  |		Load	0x1,0x24
0178 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0179 e225       | %  |		Load	0x1,0x25
017a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017b e226       | &  |		Load	0x1,0x26
017c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017d e227       | '  |		Load	0x1,0x27
017e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
017f e22a       | *  |		Load	0x1,0x2a
0180 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0181 e22b       | +  |		Load	0x1,0x2b
0182 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0183 e22c       | ,  |		Load	0x1,0x2c
0184 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0185 e21e       |    |		Load	0x1,0x1e
0186 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0187 02a0       |    |		Declare_Subprogram	Null_Subprogram
0188 480d       |H   |		Short_Literal	0xd
0189 032e       | .  |		Declare_Type	Record,Defined,Visible
018a c22d       | -  |		Store	0x1,0x2d
018b e22d       | -  |		Load	0x1,0x2d
018c 02a0       |    |		Declare_Subprogram	Null_Subprogram
018d 4818       |H   |		Short_Literal	0x18
018e 03d6       |    |		Declare_Type	Access,Defined,Visible
018f c22e       | .  |		Store	0x1,0x2e
0190 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0192 c22f       | /  |		Store	0x1,0x2f
0193 00bf       |    |		Action	Accept_Activation
0194 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0195 00c7       |    |		Action	Elaborate_Subprogram
0196 e21c       |    |		Load	0x1,0x1c
0197 020f       |    |		Execute	Module,Activate
0198 e21d       |    |		Load	0x1,0x1d
0199 020f       |    |		Execute	Module,Activate
019a e21e       |    |		Load	0x1,0x1e
019b 020f       |    |		Execute	Module,Activate
019c e21f       |    |		Load	0x1,0x1f
019d 020f       |    |		Execute	Module,Activate
019e e220       |    |		Load	0x1,0x20
019f 020f       |    |		Execute	Module,Activate
01a0 e221       | !  |		Load	0x1,0x21
01a1 020f       |    |		Execute	Module,Activate
01a2 e224       | $  |		Load	0x1,0x24
01a3 020f       |    |		Execute	Module,Activate
01a4 e225       | %  |		Load	0x1,0x25
01a5 020f       |    |		Execute	Module,Activate
01a6 e226       | &  |		Load	0x1,0x26
01a7 020f       |    |		Execute	Module,Activate
01a8 e227       | '  |		Load	0x1,0x27
01a9 020f       |    |		Execute	Module,Activate
01aa e22a       | *  |		Load	0x1,0x2a
01ab 020f       |    |		Execute	Module,Activate
01ac e22b       | +  |		Load	0x1,0x2b
01ad 020f       |    |		Execute	Module,Activate
01ae e22c       | ,  |		Load	0x1,0x2c
01af 020f       |    |		Execute	Module,Activate
01b0			BODY_0008:
01b0 00bc       |    |		Action	Signal_Activated
01b1 00bb       |    |		Action	Signal_Completion
01b2 0000 0000  |    |		.BLANK	0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01cb       |    |		.CONST	0x01cb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0005       |    |		.CONST	0x0005								; Number of locals
01bb			INIT_01b8:
01bb e003       |    |		Load	0x0,0x3
01bc e004       |    |		Load	0x0,0x4
01bd e22d       | -  |		Load	0x1,0x2d
01be e005       |    |		Load	0x0,0x5
01bf 0387       |    |		Declare_Variable	Package
01c0 00d8       |    |		Load_Top	At_Offset_0
01c1 020f       |    |		Execute	Module,Activate
01c2 0092 04b1  |    |		Action	Push_String_Extended,0x4b1					; ".saved_state"
01c4 00d9       |    |		Load_Top	At_Offset_1
01c5 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01c6 02c7       |    |		Declare_Variable	Any
01c7 00d8       |    |		Load_Top	At_Offset_0
01c8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c9 e22e       | .  |		Load	0x1,0x2e
01ca 0007       |    |		Action	Break_Optional
01cb			BODY_01b8:
01cb e22e       | .  |		Load	0x1,0x2e
01cc 03bc       |    |		Declare_Variable	Access,By_Allocation
01cd 0039       | 9  |		Store_Top	Access,At_Offset_1
01ce 00d9       |    |		Load_Top	At_Offset_1
01cf 00ea       |    |		Load_Encached	Null_String_Cache
01d0 e5ff       |    |		Load	0x2,-0x1
01d1 4800       |H   |		Short_Literal	0x0
01d2 e402       |    |		Load	0x2,0x2
01d3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01d4 c404       |    |		Store	0x2,0x4
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 0229       | )  |		Execute	Access,All_Read
01d7 00d8       |    |		Load_Top	At_Offset_0
01d8 00db       |    |		Load_Top	At_Offset_3
01d9 e402       |    |		Load	0x2,0x2
01da 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01db 00d2       |    |		Pop_Control	Pop_Count_2
01dc 00d9       |    |		Load_Top	At_Offset_1
01dd e402       |    |		Load	0x2,0x2
01de 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01df c404       |    |		Store	0x2,0x4
01e0 00d8       |    |		Load_Top	At_Offset_0
01e1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e2 0000 0000  |    |		.XXX[0x2]
01e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 0237       | 7  |		.CONST	0x0237								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0015       |    |		.CONST	0x0015								; Number of locals
01eb			INIT_01e8:
01eb 4800       |H   |		Short_Literal	0x0
01ec 480a       |H   |		Short_Literal	0xa
01ed 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
01ef 03fe       |    |		Declare_Type	Discrete,Defined,Visible
01f0 4801       |H   |		Short_Literal	0x1
01f1 480a       |H   |		Short_Literal	0xa
01f2 00da       |    |		Load_Top	At_Offset_2
01f3 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
01f4 4801       |H   |		Short_Literal	0x1
01f5 481e       |H   |		Short_Literal	0x1e
01f6 00e9       |    |		Load_Encached	String_Cache
01f7 035c       | \  |		Declare_Type	Array,Constrained,Visible
01f8 e001       |    |		Load	0x0,0x1
01f9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fa e001       |    |		Load	0x0,0x1
01fb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fc e001       |    |		Load	0x0,0x1
01fd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01fe e001       |    |		Load	0x0,0x1
01ff 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0200 02a0       |    |		Declare_Subprogram	Null_Subprogram
0201 4804       |H   |		Short_Literal	0x4
0202 032e       | .  |		Declare_Type	Record,Defined,Visible
0203 e001       |    |		Load	0x0,0x1
0204 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0205 e001       |    |		Load	0x0,0x1
0206 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0207 00db       |    |		Load_Top	At_Offset_3
0208 02a0       |    |		Declare_Subprogram	Null_Subprogram
0209 4803       |H   |		Short_Literal	0x3
020a 032e       | .  |		Declare_Type	Record,Defined,Visible
020b e001       |    |		Load	0x0,0x1
020c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
020d 00d9       |    |		Load_Top	At_Offset_1
020e e001       |    |		Load	0x0,0x1
020f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0210 02a0       |    |		Declare_Subprogram	Null_Subprogram
0211 4803       |H   |		Short_Literal	0x3
0212 032e       | .  |		Declare_Type	Record,Defined,Visible
0213 e001       |    |		Load	0x0,0x1
0214 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0215 e001       |    |		Load	0x0,0x1
0216 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0217 e001       |    |		Load	0x0,0x1
0218 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0219 e001       |    |		Load	0x0,0x1
021a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
021b e001       |    |		Load	0x0,0x1
021c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
021d e001       |    |		Load	0x0,0x1
021e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
021f e001       |    |		Load	0x0,0x1
0220 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0221 02a0       |    |		Declare_Subprogram	Null_Subprogram
0222 4807       |H   |		Short_Literal	0x7
0223 032e       | .  |		Declare_Type	Record,Defined,Visible
0224 4801       |H   |		Short_Literal	0x1
0225 480a       |H   |		Short_Literal	0xa
0226 e211       |    |		Load	0x1,0x11
0227 02a0       |    |		Declare_Subprogram	Null_Subprogram
0228 4801       |H   |		Short_Literal	0x1
0229 035e       | ^  |		Declare_Type	Array,Defined,Visible
022a e001       |    |		Load	0x0,0x1
022b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
022c e210       |    |		Load	0x1,0x10
022d e212       |    |		Load	0x1,0x12
022e e213       |    |		Load	0x1,0x13
022f e211       |    |		Load	0x1,0x11
0230 e214       |    |		Load	0x1,0x14
0231 e002       |    |		Load	0x0,0x2
0232 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0233 02a0       |    |		Declare_Subprogram	Null_Subprogram
0234 4807       |H   |		Short_Literal	0x7
0235 032e       | .  |		Declare_Type	Record,Defined,Visible
0236 00bf       |    |		Action	Accept_Activation
0237			BODY_01e8:
0237 00bc       |    |		Action	Signal_Activated
0238 00bb       |    |		Action	Signal_Completion
0239 0000 0000  |    |		.BLANK	0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 4607       |F   |		Jump_Case	0x8
0244 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0245 7806       |x   |		Jump	0x24c								; case 0x1
0246 7809       |x   |		Jump	0x250								; case 0x2
0247 780d       |x   |		Jump	0x255								; case 0x3
0248 7810       |x   |		Jump	0x259								; case 0x4
0249 7811       |x   |		Jump	0x25b								; case 0x5
024a 7812       |x   |		Jump	0x25d								; case 0x6
024b 7815       |x   |		Jump	0x261								; case 0x7
024c 00da       |    |		Load_Top	At_Offset_2
024d 0091 04a6  |    |		Action	Push_String_Extended_Indexed,0x4a6				; "MICROCODE"
024f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0250 00db       |    |		Load_Top	At_Offset_3
0251 00db       |    |		Load_Top	At_Offset_3
0252 00e0       |    |		Load_Encached	Standard_Cache
0253 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0254 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0255 00da       |    |		Load_Top	At_Offset_2
0256 00e0       |    |		Load_Encached	Standard_Cache
0257 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0258 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0259 00db       |    |		Load_Top	At_Offset_3
025a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
025b 00db       |    |		Load_Top	At_Offset_3
025c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
025d e20d       |    |		Load	0x1,0xd
025e 00dc       |    |		Load_Top	At_Offset_4
025f 0267       | g  |		Execute	Discrete,Predecessor
0260 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0261 e20d       |    |		Load	0x1,0xd
0262 00dc       |    |		Load_Top	At_Offset_4
0263 0268       | h  |		Execute	Discrete,Successor
0264 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0265 0000 0000  |    |		.XXX[0x3]
0267 0000       |    |
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0283       |    |		.CONST	0x0283								; Address of begin
0269 0004       |    |		.CONST	0x0004								; Address of exception handler
026a 000e       |    |		.CONST	0x000e								; Number of locals
026b			INIT_0268:
026b e001       |    |		Load	0x0,0x1
026c 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
026d 0129       | )  |		Execute	Any,Make_Visible
026e 00d8       |    |		Load_Top	At_Offset_0
026f 012c       | ,  |		Execute	Any,Size
0270 0f10       |    |		Execute_Immediate	Equal,0x10
0271 7001       |p   |		Jump_Nonzero	0x273
0272 0887       |    |		Execute_Immediate	Raise,0x87
0273 4800       |H   |		Short_Literal	0x0
0274 4bff       |K   |		Short_Literal	0x3ff
0275 00da       |    |		Load_Top	At_Offset_2
0276 02a0       |    |		Declare_Subprogram	Null_Subprogram
0277 4801       |H   |		Short_Literal	0x1
0278 035e       | ^  |		Declare_Type	Array,Defined,Visible
0279 00d8       |    |		Load_Top	At_Offset_0
027a 012c       | ,  |		Execute	Any,Size
027b e001       |    |		Load	0x0,0x1
027c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027d 012c       | ,  |		Execute	Any,Size
027e 0901       |    |		Execute_Immediate	Binary_Scale,0x1
027f 027f       |    |		Execute	Discrete,Equal
0280 7001       |p   |		Jump_Nonzero	0x282
0281 0887       |    |		Execute_Immediate	Raise,0x87
0282 00bf       |    |		Action	Accept_Activation
0283			BODY_0268:
0283 00bc       |    |		Action	Signal_Activated
0284 00bb       |    |		Action	Signal_Completion
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 02cd       |    |		.CONST	0x02cd								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 000d       |    |		.CONST	0x000d								; Number of locals
028b			INIT_0288:
028b e001       |    |		Load	0x0,0x1
028c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028d e002       |    |		Load	0x0,0x2
028e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
028f e002       |    |		Load	0x0,0x2
0290 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0291 e002       |    |		Load	0x0,0x2
0292 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0293 e002       |    |		Load	0x0,0x2
0294 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0295 e002       |    |		Load	0x0,0x2
0296 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0297 e002       |    |		Load	0x0,0x2
0298 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0299 e002       |    |		Load	0x0,0x2
029a 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
029b e002       |    |		Load	0x0,0x2
029c 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
029d e002       |    |		Load	0x0,0x2
029e 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
029f e002       |    |		Load	0x0,0x2
02a0 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02a1 e002       |    |		Load	0x0,0x2
02a2 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02a3 e002       |    |		Load	0x0,0x2
02a4 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
02a5 e002       |    |		Load	0x0,0x2
02a6 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
02a7 e002       |    |		Load	0x0,0x2
02a8 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
02a9 e002       |    |		Load	0x0,0x2
02aa 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
02ab e002       |    |		Load	0x0,0x2
02ac 1b2f       | /  |		Execute	Package,Field_Read,Field_Number 0x2f
02ad e002       |    |		Load	0x0,0x2
02ae 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02af e002       |    |		Load	0x0,0x2
02b0 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02b1 e002       |    |		Load	0x0,0x2
02b2 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02b3 e002       |    |		Load	0x0,0x2
02b4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02b5 e002       |    |		Load	0x0,0x2
02b6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02b7 e002       |    |		Load	0x0,0x2
02b8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02b9 e002       |    |		Load	0x0,0x2
02ba 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02bb e001       |    |		Load	0x0,0x1
02bc 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
02bd e001       |    |		Load	0x0,0x1
02be 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
02bf e001       |    |		Load	0x0,0x1
02c0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02c1 02a0       |    |		Declare_Subprogram	Null_Subprogram
02c2 481b       |H   |		Short_Literal	0x1b
02c3 032e       | .  |		Declare_Type	Record,Defined,Visible
02c4 00d8       |    |		Load_Top	At_Offset_0
02c5 012c       | ,  |		Execute	Any,Size
02c6 e002       |    |		Load	0x0,0x2
02c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02c8 012c       | ,  |		Execute	Any,Size
02c9 027f       |    |		Execute	Discrete,Equal
02ca 7001       |p   |		Jump_Nonzero	0x2cc
02cb 0887       |    |		Execute_Immediate	Raise,0x87
02cc 00bf       |    |		Action	Accept_Activation
02cd			BODY_0288:
02cd 00bc       |    |		Action	Signal_Activated
02ce 00bb       |    |		Action	Signal_Completion
02cf 0000       |    |		.XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e3       |    |		.CONST	0x02e3								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 000d       |    |		.CONST	0x000d								; Number of locals
02d3			INIT_02d0:
02d3 4801       |H   |		Short_Literal	0x1
02d4 6013       |`   |		Indirect_Literal	Discrete,0x2e8,{0x00000000, 0x00000400}
02d5 e001       |    |		Load	0x0,0x1
02d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d7 02a0       |    |		Declare_Subprogram	Null_Subprogram
02d8 4801       |H   |		Short_Literal	0x1
02d9 035e       | ^  |		Declare_Type	Array,Defined,Visible
02da 00d8       |    |		Load_Top	At_Offset_0
02db 012c       | ,  |		Execute	Any,Size
02dc e001       |    |		Load	0x0,0x1
02dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02de 012c       | ,  |		Execute	Any,Size
02df 027f       |    |		Execute	Discrete,Equal
02e0 7001       |p   |		Jump_Nonzero	0x2e2
02e1 0887       |    |		Execute_Immediate	Raise,0x87
02e2 00bf       |    |		Action	Accept_Activation
02e3			BODY_02d0:
02e3 00bc       |    |		Action	Signal_Activated
02e4 00bb       |    |		Action	Signal_Completion
02e5 0000 0000  |    |		.XXX[0x3]
02e7 0000       |    |
02e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
02ec 0000 0000  |    |		.BLANK	0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 030f       |    |		.CONST	0x030f								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 000d       |    |		.CONST	0x000d								; Number of locals
02f3			INIT_02f0:
02f3 e001       |    |		Load	0x0,0x1
02f4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02f5 e002       |    |		Load	0x0,0x2
02f6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02f7 e001       |    |		Load	0x0,0x1
02f8 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02f9 e001       |    |		Load	0x0,0x1
02fa 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02fb e001       |    |		Load	0x0,0x1
02fc 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
02fd e001       |    |		Load	0x0,0x1
02fe 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
02ff e002       |    |		Load	0x0,0x2
0300 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0301 e002       |    |		Load	0x0,0x2
0302 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0303 02a0       |    |		Declare_Subprogram	Null_Subprogram
0304 4808       |H   |		Short_Literal	0x8
0305 032e       | .  |		Declare_Type	Record,Defined,Visible
0306 00d8       |    |		Load_Top	At_Offset_0
0307 012c       | ,  |		Execute	Any,Size
0308 e001       |    |		Load	0x0,0x1
0309 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
030a 012c       | ,  |		Execute	Any,Size
030b 027f       |    |		Execute	Discrete,Equal
030c 7001       |p   |		Jump_Nonzero	0x30e
030d 0887       |    |		Execute_Immediate	Raise,0x87
030e 00bf       |    |		Action	Accept_Activation
030f			BODY_02f0:
030f 00bc       |    |		Action	Signal_Activated
0310 00bb       |    |		Action	Signal_Completion
0311 0000 0000  |    |		.BLANK	0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 033f       | ?  |		.CONST	0x033f								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 000d       |    |		.CONST	0x000d								; Number of locals
031b			INIT_0318:
031b e001       |    |		Load	0x0,0x1
031c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
031d e002       |    |		Load	0x0,0x2
031e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
031f e001       |    |		Load	0x0,0x1
0320 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0321 e001       |    |		Load	0x0,0x1
0322 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0323 e001       |    |		Load	0x0,0x1
0324 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0325 e001       |    |		Load	0x0,0x1
0326 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0327 e001       |    |		Load	0x0,0x1
0328 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0329 e001       |    |		Load	0x0,0x1
032a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
032b e001       |    |		Load	0x0,0x1
032c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
032d e002       |    |		Load	0x0,0x2
032e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
032f e002       |    |		Load	0x0,0x2
0330 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0331 e002       |    |		Load	0x0,0x2
0332 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0333 02a0       |    |		Declare_Subprogram	Null_Subprogram
0334 480c       |H   |		Short_Literal	0xc
0335 032e       | .  |		Declare_Type	Record,Defined,Visible
0336 00d8       |    |		Load_Top	At_Offset_0
0337 012c       | ,  |		Execute	Any,Size
0338 e001       |    |		Load	0x0,0x1
0339 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
033a 012c       | ,  |		Execute	Any,Size
033b 027f       |    |		Execute	Discrete,Equal
033c 7001       |p   |		Jump_Nonzero	0x33e
033d 0887       |    |		Execute_Immediate	Raise,0x87
033e 00bf       |    |		Action	Accept_Activation
033f			BODY_0318:
033f 00bc       |    |		Action	Signal_Activated
0340 00bb       |    |		Action	Signal_Completion
0341 0000 0000  |    |		.BLANK	0000[0x7]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 036f       | o  |		.CONST	0x036f								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 000d       |    |		.CONST	0x000d								; Number of locals
034b			INIT_0348:
034b e001       |    |		Load	0x0,0x1
034c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
034d e002       |    |		Load	0x0,0x2
034e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
034f e001       |    |		Load	0x0,0x1
0350 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0351 e001       |    |		Load	0x0,0x1
0352 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0353 e001       |    |		Load	0x0,0x1
0354 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0355 e001       |    |		Load	0x0,0x1
0356 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0357 e002       |    |		Load	0x0,0x2
0358 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0359 e001       |    |		Load	0x0,0x1
035a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
035b e001       |    |		Load	0x0,0x1
035c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
035d e002       |    |		Load	0x0,0x2
035e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
035f e002       |    |		Load	0x0,0x2
0360 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0361 e002       |    |		Load	0x0,0x2
0362 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0363 02a0       |    |		Declare_Subprogram	Null_Subprogram
0364 480c       |H   |		Short_Literal	0xc
0365 032e       | .  |		Declare_Type	Record,Defined,Visible
0366 00d8       |    |		Load_Top	At_Offset_0
0367 012c       | ,  |		Execute	Any,Size
0368 e001       |    |		Load	0x0,0x1
0369 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
036a 012c       | ,  |		Execute	Any,Size
036b 027f       |    |		Execute	Discrete,Equal
036c 7001       |p   |		Jump_Nonzero	0x36e
036d 0887       |    |		Execute_Immediate	Raise,0x87
036e 00bf       |    |		Action	Accept_Activation
036f			BODY_0348:
036f 00bc       |    |		Action	Signal_Activated
0370 00bb       |    |		Action	Signal_Completion
0371 0000 0000  |    |		.BLANK	0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 03b1       |    |		.CONST	0x03b1								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 000d       |    |		.CONST	0x000d								; Number of locals
037b			INIT_0378:
037b e001       |    |		Load	0x0,0x1
037c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
037d e002       |    |		Load	0x0,0x2
037e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
037f e001       |    |		Load	0x0,0x1
0380 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0381 e001       |    |		Load	0x0,0x1
0382 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0383 e001       |    |		Load	0x0,0x1
0384 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0385 e001       |    |		Load	0x0,0x1
0386 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0387 e001       |    |		Load	0x0,0x1
0388 1b31       | 1  |		Execute	Package,Field_Read,Field_Number 0x31
0389 e001       |    |		Load	0x0,0x1
038a 1b2b       | +  |		Execute	Package,Field_Read,Field_Number 0x2b
038b e001       |    |		Load	0x0,0x1
038c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
038d e001       |    |		Load	0x0,0x1
038e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
038f e001       |    |		Load	0x0,0x1
0390 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0391 e001       |    |		Load	0x0,0x1
0392 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0393 e001       |    |		Load	0x0,0x1
0394 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0395 e001       |    |		Load	0x0,0x1
0396 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0397 e001       |    |		Load	0x0,0x1
0398 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0399 e001       |    |		Load	0x0,0x1
039a 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
039b e001       |    |		Load	0x0,0x1
039c 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
039d e001       |    |		Load	0x0,0x1
039e 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
039f e001       |    |		Load	0x0,0x1
03a0 1b2f       | /  |		Execute	Package,Field_Read,Field_Number 0x2f
03a1 e002       |    |		Load	0x0,0x2
03a2 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
03a3 e002       |    |		Load	0x0,0x2
03a4 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
03a5 02a0       |    |		Declare_Subprogram	Null_Subprogram
03a6 4815       |H   |		Short_Literal	0x15
03a7 032e       | .  |		Declare_Type	Record,Defined,Visible
03a8 00d8       |    |		Load_Top	At_Offset_0
03a9 012c       | ,  |		Execute	Any,Size
03aa e001       |    |		Load	0x0,0x1
03ab 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ac 012c       | ,  |		Execute	Any,Size
03ad 027f       |    |		Execute	Discrete,Equal
03ae 7001       |p   |		Jump_Nonzero	0x3b0
03af 0887       |    |		Execute_Immediate	Raise,0x87
03b0 00bf       |    |		Action	Accept_Activation
03b1			BODY_0378:
03b1 00bc       |    |		Action	Signal_Activated
03b2 00bb       |    |		Action	Signal_Completion
03b3 0000 0000  |    |		.BLANK	0000[0x5]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03dd       |    |		.CONST	0x03dd								; Address of begin
03b9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ba 000d       |    |		.CONST	0x000d								; Number of locals
03bb			INIT_03b8:
03bb e001       |    |		Load	0x0,0x1
03bc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03bd e002       |    |		Load	0x0,0x2
03be 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03bf e001       |    |		Load	0x0,0x1
03c0 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03c1 e001       |    |		Load	0x0,0x1
03c2 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
03c3 e001       |    |		Load	0x0,0x1
03c4 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
03c5 e001       |    |		Load	0x0,0x1
03c6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03c7 e001       |    |		Load	0x0,0x1
03c8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03c9 e001       |    |		Load	0x0,0x1
03ca 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03cb e001       |    |		Load	0x0,0x1
03cc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03cd e002       |    |		Load	0x0,0x2
03ce 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03cf e002       |    |		Load	0x0,0x2
03d0 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
03d1 02a0       |    |		Declare_Subprogram	Null_Subprogram
03d2 480b       |H   |		Short_Literal	0xb
03d3 032e       | .  |		Declare_Type	Record,Defined,Visible
03d4 00d8       |    |		Load_Top	At_Offset_0
03d5 012c       | ,  |		Execute	Any,Size
03d6 e001       |    |		Load	0x0,0x1
03d7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03d8 012c       | ,  |		Execute	Any,Size
03d9 027f       |    |		Execute	Discrete,Equal
03da 7001       |p   |		Jump_Nonzero	0x3dc
03db 0887       |    |		Execute_Immediate	Raise,0x87
03dc 00bf       |    |		Action	Accept_Activation
03dd			BODY_03b8:
03dd 00bc       |    |		Action	Signal_Activated
03de 00bb       |    |		Action	Signal_Completion
03df 0000       |    |		.XXX[0x1]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 0431       | 1  |		.CONST	0x0431								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 000f       |    |		.CONST	0x000f								; Number of locals
03e3			INIT_03e0:
03e3 4800       |H   |		Short_Literal	0x0
03e4 4803       |H   |		Short_Literal	0x3
03e5 00e5       |    |		Load_Encached	Long_Integer_Cache
03e6 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
03e7 e001       |    |		Load	0x0,0x1
03e8 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03e9 e002       |    |		Load	0x0,0x2
03ea 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03eb e001       |    |		Load	0x0,0x1
03ec 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03ed e001       |    |		Load	0x0,0x1
03ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03ef e001       |    |		Load	0x0,0x1
03f0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03f1 e001       |    |		Load	0x0,0x1
03f2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03f3 e001       |    |		Load	0x0,0x1
03f4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03f5 e001       |    |		Load	0x0,0x1
03f6 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03f7 e001       |    |		Load	0x0,0x1
03f8 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
03f9 e001       |    |		Load	0x0,0x1
03fa 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
03fb e001       |    |		Load	0x0,0x1
03fc 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03fd e001       |    |		Load	0x0,0x1
03fe 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
03ff e001       |    |		Load	0x0,0x1
0400 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0401 e001       |    |		Load	0x0,0x1
0402 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0403 e001       |    |		Load	0x0,0x1
0404 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0405 e001       |    |		Load	0x0,0x1
0406 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0407 e001       |    |		Load	0x0,0x1
0408 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0409 e001       |    |		Load	0x0,0x1
040a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
040b e001       |    |		Load	0x0,0x1
040c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
040d e001       |    |		Load	0x0,0x1
040e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
040f e002       |    |		Load	0x0,0x2
0410 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0411 e001       |    |		Load	0x0,0x1
0412 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0413 e001       |    |		Load	0x0,0x1
0414 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0415 e001       |    |		Load	0x0,0x1
0416 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0417 e001       |    |		Load	0x0,0x1
0418 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0419 e001       |    |		Load	0x0,0x1
041a 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
041b e002       |    |		Load	0x0,0x2
041c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
041d e002       |    |		Load	0x0,0x2
041e 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
041f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0420 481c       |H   |		Short_Literal	0x1c
0421 032e       | .  |		Declare_Type	Record,Defined,Visible
0422 00d8       |    |		Load_Top	At_Offset_0
0423 012c       | ,  |		Execute	Any,Size
0424 e001       |    |		Load	0x0,0x1
0425 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0426 012c       | ,  |		Execute	Any,Size
0427 027f       |    |		Execute	Discrete,Equal
0428 7001       |p   |		Jump_Nonzero	0x42a
0429 0887       |    |		Execute_Immediate	Raise,0x87
042a 4800       |H   |		Short_Literal	0x0
042b 4803       |H   |		Short_Literal	0x3
042c 00da       |    |		Load_Top	At_Offset_2
042d 02a0       |    |		Declare_Subprogram	Null_Subprogram
042e 4801       |H   |		Short_Literal	0x1
042f 035e       | ^  |		Declare_Type	Array,Defined,Visible
0430 00bf       |    |		Action	Accept_Activation
0431			BODY_03e0:
0431 00bc       |    |		Action	Signal_Activated
0432 00bb       |    |		Action	Signal_Completion
0433 0000 0000  |    |		.BLANK	0000[0x5]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 044d       | M  |		.CONST	0x044d								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 000f       |    |		.CONST	0x000f								; Number of locals
043b			INIT_0438:
043b 4800       |H   |		Short_Literal	0x0
043c 481f       |H   |		Short_Literal	0x1f
043d e001       |    |		Load	0x0,0x1
043e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
043f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0440 4801       |H   |		Short_Literal	0x1
0441 035e       | ^  |		Declare_Type	Array,Defined,Visible
0442 4800       |H   |		Short_Literal	0x0
0443 481f       |H   |		Short_Literal	0x1f
0444 00da       |    |		Load_Top	At_Offset_2
0445 02a0       |    |		Declare_Subprogram	Null_Subprogram
0446 4801       |H   |		Short_Literal	0x1
0447 035e       | ^  |		Declare_Type	Array,Defined,Visible
0448 00d8       |    |		Load_Top	At_Offset_0
0449 02a0       |    |		Declare_Subprogram	Null_Subprogram
044a 4801       |H   |		Short_Literal	0x1
044b 032e       | .  |		Declare_Type	Record,Defined,Visible
044c 00bf       |    |		Action	Accept_Activation
044d			BODY_0438:
044d 00bc       |    |		Action	Signal_Activated
044e 00bb       |    |		Action	Signal_Completion
044f 0000       |    |		.XXX[0x1]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0468       | h  |		.CONST	0x0468								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 000e       |    |		.CONST	0x000e								; Number of locals
0453			INIT_0450:
0453 4800       |H   |		Short_Literal	0x0
0454 4b3f       |K?  |		Short_Literal	0x33f
0455 e001       |    |		Load	0x0,0x1
0456 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0457 02a0       |    |		Declare_Subprogram	Null_Subprogram
0458 4801       |H   |		Short_Literal	0x1
0459 035e       | ^  |		Declare_Type	Array,Defined,Visible
045a e002       |    |		Load	0x0,0x2
045b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
045c e002       |    |		Load	0x0,0x2
045d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
045e e002       |    |		Load	0x0,0x2
045f 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0460 00e2       |    |		Load_Encached	Integer_Cache
0461 e002       |    |		Load	0x0,0x2
0462 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0463 e20d       |    |		Load	0x1,0xd
0464 02a0       |    |		Declare_Subprogram	Null_Subprogram
0465 4806       |H   |		Short_Literal	0x6
0466 032e       | .  |		Declare_Type	Record,Defined,Visible
0467 00bf       |    |		Action	Accept_Activation
0468			BODY_0450:
0468 00bc       |    |		Action	Signal_Activated
0469 00bb       |    |		Action	Signal_Completion
046a 0000 0000  |    |		.BLANK	0000[0x6]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 04a4       |    |		.CONST	0x04a4								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0011       |    |		.CONST	0x0011								; Number of locals
0473			INIT_0470:
0473 4801       |H   |		Short_Literal	0x1
0474 4812       |H   |		Short_Literal	0x12
0475 00e9       |    |		Load_Encached	String_Cache
0476 035c       | \  |		Declare_Type	Array,Constrained,Visible
0477 00c4       |    |		Action	Make_Default
0478 00c4       |    |		Action	Make_Default
0479 00c4       |    |		Action	Make_Default
047a 00c4       |    |		Action	Make_Default
047b e001       |    |		Load	0x0,0x1
047c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
047d e001       |    |		Load	0x0,0x1
047e 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
047f e001       |    |		Load	0x0,0x1
0480 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0481 e001       |    |		Load	0x0,0x1
0482 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0483 e001       |    |		Load	0x0,0x1
0484 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0485 e001       |    |		Load	0x0,0x1
0486 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0487 e20d       |    |		Load	0x1,0xd
0488 e001       |    |		Load	0x0,0x1
0489 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
048a e001       |    |		Load	0x0,0x1
048b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
048c e002       |    |		Load	0x0,0x2
048d 1b34       | 4  |		Execute	Package,Field_Read,Field_Number 0x34
048e 02a0       |    |		Declare_Subprogram	Null_Subprogram
048f 480a       |H   |		Short_Literal	0xa
0490 032e       | .  |		Declare_Type	Record,Defined,Visible
0491 c20f       |    |		Store	0x1,0xf
0492 e002       |    |		Load	0x0,0x2
0493 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
0494 0322       | "  |		Declare_Variable	Record
0495 4800       |H   |		Short_Literal	0x0
0496 00d9       |    |		Load_Top	At_Offset_1
0497 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0498 481e       |H   |		Short_Literal	0x1e
0499 00d9       |    |		Load_Top	At_Offset_1
049a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
049b 489e       |H   |		Short_Literal	0x9e
049c 00d9       |    |		Load_Top	At_Offset_1
049d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
049e 4bdd       |K   |		Short_Literal	0x3dd
049f 00d9       |    |		Load_Top	At_Offset_1
04a0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04a1 0129       | )  |		Execute	Any,Make_Visible
04a2 c211       |    |		Store	0x1,0x11
04a3 00bf       |    |		Action	Accept_Activation
04a4			BODY_0470:
04a4 00bc       |    |		Action	Signal_Activated
04a5 00bb       |    |		Action	Signal_Completion
04a6 ; --------------------------------------------------------------------------------------
04a6 ; STRING TABLE
04a6 ; --------------------------------------------------------------------------------------
04a6 001a       |    |		.STRTAB	0x001a->0x04b3							; "MICROCODE"
04a7 0021       | !  |		.STRTAB	0x0021->0x04b7							; "ADA_BASE"
04a8 0027       | '  |		.STRTAB	0x0027->0x04bb							; "MACHINE_INTERFACE"
04a9 0036       | 6  |		.STRTAB	0x0036->0x04c4							; "KERNEL_DEBUGGER_IO"
04aa 0046       | F  |		.STRTAB	0x0046->0x04cd							; "KERNEL_DEBUGGER"
04ab 0053       | S  |		.STRTAB	0x0053->0x04d4							; "KERNEL"
04ac 0057       | W  |		.STRTAB	0x0057->0x04d7							; "ENVIRONMENT_DEBUGGER"
04ad 0069       | i  |		.STRTAB	0x0069->0x04e1							; "ABSTRACT_TYPES"
04ae 0075       | u  |		.STRTAB	0x0075->0x04e8							; "MISCELLANEOUS"
04af 0080       |    |		.STRTAB	0x0080->0x04ef							; "OS_UTILITIES"
04b0 008a       |    |		.STRTAB	0x008a->0x04f5							; "ELABORATOR_DATABASE"
04b1 009b       |    |		.STRTAB	0x009b->0x04fe							; ".saved_state"
04b2 00a5       |    |		.STREND 0x00a5->0x0504
04b3 4d49 4352  |MICR|		.STRTAB_STRINGS
0505 0000 0000  |    |		.XXX[0x3]
0507 0000       |    |
0508 ; --------------------------------------------------------------------------------------
0508 ; Debug Table
0508 ; --------------------------------------------------------------------------------------
0508 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x9a01,0x0000,0x0001,0x0000
050e 4190 6419  |A d |		.XXX[0xf2]
0510 0641 9064  | A d|
0512 1906 4190  |  A |
0514 6419 0641  |d  A|
0516 9064 1906  | d  |
0518 4190 6419  |A d |
051a 0641 9064  | A d|
051c 1906 4190  |  A |
051e 6419 0641  |d  A|
0520 9064 1906  | d  |
0522 4190 6419  |A d |
0524 0641 9064  | A d|
0526 1906 4190  |  A |
0528 6419 0641  |d  A|
052a 9064 1906  | d  |
052c 4190 6419  |A d |
052e 0641 9064  | A d|
0530 1906 4190  |  A |
0532 6419 0641  |d  A|
0534 9064 1906  | d  |
0536 4190 6419  |A d |
0538 0641 9064  | A d|
053a 1906 4190  |  A |
053c 6419 0641  |d  A|
053e 9064 1906  | d  |
0540 4190 6419  |A d |
0542 0641 9064  | A d|
0544 1906 4190  |  A |
0546 6419 0641  |d  A|
0548 9064 1906  | d  |
054a 4190 6419  |A d |
054c 0641 9064  | A d|
054e 1906 4190  |  A |
0550 6419 0641  |d  A|
0552 9064 1906  | d  |
0554 4190 6419  |A d |
0556 0641 9064  | A d|
0558 1906 4190  |  A |
055a 6419 0641  |d  A|
055c 9064 1906  | d  |
055e 4190 6419  |A d |
0560 0641 9064  | A d|
0562 1906 4190  |  A |
0564 6419 0641  |d  A|
0566 9064 1906  | d  |
0568 4190 6419  |A d |
056a 0641 9064  | A d|
056c 1906 4190  |  A |
056e 6419 0641  |d  A|
0570 9064 1906  | d  |
0572 4190 6419  |A d |
0574 0641 9064  | A d|
0576 1906 4190  |  A |
0578 6419 0641  |d  A|
057a 9064 1906  | d  |
057c 4190 6419  |A d |
057e 0641 9064  | A d|
0580 1906 4190  |  A |
0582 6419 0641  |d  A|
0584 9064 1906  | d  |
0586 4190 6419  |A d |
0588 0641 9064  | A d|
058a 1906 4190  |  A |
058c 6419 0641  |d  A|
058e 9064 1906  | d  |
0590 4190 6419  |A d |
0592 0641 9064  | A d|
0594 1906 4190  |  A |
0596 6419 0641  |d  A|
0598 9064 1906  | d  |
059a 4190 6419  |A d |
059c 0641 9064  | A d|
059e 1906 4190  |  A |
05a0 6419 0641  |d  A|
05a2 9064 1906  | d  |
05a4 4190 6419  |A d |
05a6 0641 9064  | A d|
05a8 1906 4190  |  A |
05aa 6419 0641  |d  A|
05ac 9064 1906  | d  |
05ae 4190 6419  |A d |
05b0 0641 9064  | A d|
05b2 1906 4190  |  A |
05b4 6419 0641  |d  A|
05b6 9064 1906  | d  |
05b8 4190 6419  |A d |
05ba 0641 9064  | A d|
05bc 1906 4190  |  A |
05be 6419 0641  |d  A|
05c0 9064 1906  | d  |
05c2 4190 6419  |A d |
05c4 0641 9064  | A d|
05c6 1906 4190  |  A |
05c8 6419 0641  |d  A|
05ca 9064 1906  | d  |
05cc 4190 6419  |A d |
05ce 0641 9064  | A d|
05d0 1906 4190  |  A |
05d2 6419 0641  |d  A|
05d4 9064 1906  | d  |
05d6 4190 6419  |A d |
05d8 0641 9064  | A d|
05da 1906 4190  |  A |
05dc 6419 0641  |d  A|
05de 9064 1906  | d  |
05e0 4190 6419  |A d |
05e2 0641 9064  | A d|
05e4 1906 4190  |  A |
05e6 6419 0641  |d  A|
05e8 9064 1906  | d  |
05ea 4190 6419  |A d |
05ec 0641 9064  | A d|
05ee 1906 4190  |  A |
05f0 6419 0641  |d  A|
05f2 9064 1906  | d  |
05f4 4190 6419  |A d |
05f6 0641 9064  | A d|
05f8 1906 4190  |  A |
05fa 6419 0641  |d  A|
05fc 9064 1906  | d  |
05fe 4190 6419  |A d |