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

⟦73920e4e3⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0428       | (  |		.CONST	0x0428								; 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 0195       |    |		.CONST	0x0195								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0031       | 1  |		.CONST	0x0031								; Number of locals
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1
000c 4802       |H   |		Short_Literal	0x2
000d e002       |    |		Load	0x0,0x2
000e 02a0       |    |		Declare_Subprogram	Null_Subprogram
000f 4801       |H   |		Short_Literal	0x1
0010 035e       | ^  |		Declare_Type	Array,Defined,Visible
0011 4801       |H   |		Short_Literal	0x1
0012 4804       |H   |		Short_Literal	0x4
0013 e002       |    |		Load	0x0,0x2
0014 02a0       |    |		Declare_Subprogram	Null_Subprogram
0015 4801       |H   |		Short_Literal	0x1
0016 035e       | ^  |		Declare_Type	Array,Defined,Visible
0017 4801       |H   |		Short_Literal	0x1
0018 4806       |H   |		Short_Literal	0x6
0019 e002       |    |		Load	0x0,0x2
001a 02a0       |    |		Declare_Subprogram	Null_Subprogram
001b 4801       |H   |		Short_Literal	0x1
001c 035e       | ^  |		Declare_Type	Array,Defined,Visible
001d 4801       |H   |		Short_Literal	0x1
001e 480f       |H   |		Short_Literal	0xf
001f e002       |    |		Load	0x0,0x2
0020 02a0       |    |		Declare_Subprogram	Null_Subprogram
0021 4801       |H   |		Short_Literal	0x1
0022 035e       | ^  |		Declare_Type	Array,Defined,Visible
0023 4801       |H   |		Short_Literal	0x1
0024 4a70       |Jp  |		Short_Literal	0x270
0025 e002       |    |		Load	0x0,0x2
0026 02a0       |    |		Declare_Subprogram	Null_Subprogram
0027 4801       |H   |		Short_Literal	0x1
0028 035e       | ^  |		Declare_Type	Array,Defined,Visible
0029 4801       |H   |		Short_Literal	0x1
002a 485c       |H\  |		Short_Literal	0x5c
002b e002       |    |		Load	0x0,0x2
002c 02a0       |    |		Declare_Subprogram	Null_Subprogram
002d 4801       |H   |		Short_Literal	0x1
002e 035e       | ^  |		Declare_Type	Array,Defined,Visible
002f 4801       |H   |		Short_Literal	0x1
0030 4860       |H`  |		Short_Literal	0x60
0031 e002       |    |		Load	0x0,0x2
0032 02a0       |    |		Declare_Subprogram	Null_Subprogram
0033 4801       |H   |		Short_Literal	0x1
0034 035e       | ^  |		Declare_Type	Array,Defined,Visible
0035 4800       |H   |		Short_Literal	0x0
0036 4bdd       |K   |		Short_Literal	0x3dd
0037 e002       |    |		Load	0x0,0x2
0038 02a0       |    |		Declare_Subprogram	Null_Subprogram
0039 4801       |H   |		Short_Literal	0x1
003a 035e       | ^  |		Declare_Type	Array,Defined,Visible
003b 4801       |H   |		Short_Literal	0x1
003c 6187       |a   |		Indirect_Literal	Discrete,0x1c4,{0x00000000, 0x00000400}
003d e002       |    |		Load	0x0,0x2
003e 02a0       |    |		Declare_Subprogram	Null_Subprogram
003f 4801       |H   |		Short_Literal	0x1
0040 035e       | ^  |		Declare_Type	Array,Defined,Visible
0041 4801       |H   |		Short_Literal	0x1
0042 480d       |H   |		Short_Literal	0xd
0043 e003       |    |		Load	0x0,0x3
0044 02a0       |    |		Declare_Subprogram	Null_Subprogram
0045 4801       |H   |		Short_Literal	0x1
0046 035e       | ^  |		Declare_Type	Array,Defined,Visible
0047 4801       |H   |		Short_Literal	0x1
0048 480e       |H   |		Short_Literal	0xe
0049 e003       |    |		Load	0x0,0x3
004a 02a0       |    |		Declare_Subprogram	Null_Subprogram
004b 4801       |H   |		Short_Literal	0x1
004c 035e       | ^  |		Declare_Type	Array,Defined,Visible
004d 4801       |H   |		Short_Literal	0x1
004e 4810       |H   |		Short_Literal	0x10
004f e003       |    |		Load	0x0,0x3
0050 02a0       |    |		Declare_Subprogram	Null_Subprogram
0051 4801       |H   |		Short_Literal	0x1
0052 035e       | ^  |		Declare_Type	Array,Defined,Visible
0053 4801       |H   |		Short_Literal	0x1
0054 4818       |H   |		Short_Literal	0x18
0055 e003       |    |		Load	0x0,0x3
0056 02a0       |    |		Declare_Subprogram	Null_Subprogram
0057 4801       |H   |		Short_Literal	0x1
0058 035e       | ^  |		Declare_Type	Array,Defined,Visible
0059 4801       |H   |		Short_Literal	0x1
005a 481c       |H   |		Short_Literal	0x1c
005b e003       |    |		Load	0x0,0x3
005c 02a0       |    |		Declare_Subprogram	Null_Subprogram
005d 4801       |H   |		Short_Literal	0x1
005e 035e       | ^  |		Declare_Type	Array,Defined,Visible
005f 4801       |H   |		Short_Literal	0x1
0060 481e       |H   |		Short_Literal	0x1e
0061 e003       |    |		Load	0x0,0x3
0062 02a0       |    |		Declare_Subprogram	Null_Subprogram
0063 4801       |H   |		Short_Literal	0x1
0064 035e       | ^  |		Declare_Type	Array,Defined,Visible
0065 4801       |H   |		Short_Literal	0x1
0066 4820       |H   |		Short_Literal	0x20
0067 e003       |    |		Load	0x0,0x3
0068 02a0       |    |		Declare_Subprogram	Null_Subprogram
0069 4801       |H   |		Short_Literal	0x1
006a 035e       | ^  |		Declare_Type	Array,Defined,Visible
006b 00e2       |    |		Load_Encached	Integer_Cache
006c 00e2       |    |		Load_Encached	Integer_Cache
006d 00e2       |    |		Load_Encached	Integer_Cache
006e 00e2       |    |		Load_Encached	Integer_Cache
006f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0070 4804       |H   |		Short_Literal	0x4
0071 032e       | .  |		Declare_Type	Record,Defined,Visible
0072 4800       |H   |		Short_Literal	0x0
0073 0093 03a3  |    |		push_full_address	INIT_03a0
0075 02a0       |    |		Declare_Subprogram	Null_Subprogram
0076 038f       |    |		Declare_Type	Package,Defined,Visible
0077 e004       |    |		Load	0x0,0x4
0078 e214       |    |		Load	0x1,0x14
0079 00db       |    |		Load_Top	At_Offset_3
007a 4803       |H   |		Short_Literal	0x3
007b e21e       |    |		Load	0x1,0x1e
007c 020e       |    |		Execute	Module,Augment_Imports
007d 0386       |    |		Declare_Variable	Package,Visible
007e 4800       |H   |		Short_Literal	0x0
007f 0093 038b  |    |		push_full_address	INIT_0388
0081 02a0       |    |		Declare_Subprogram	Null_Subprogram
0082 038f       |    |		Declare_Type	Package,Defined,Visible
0083 e002       |    |		Load	0x0,0x2
0084 e215       |    |		Load	0x1,0x15
0085 e213       |    |		Load	0x1,0x13
0086 e212       |    |		Load	0x1,0x12
0087 4804       |H   |		Short_Literal	0x4
0088 e21f       |    |		Load	0x1,0x1f
0089 020e       |    |		Execute	Module,Augment_Imports
008a 0386       |    |		Declare_Variable	Package,Visible
008b 4800       |H   |		Short_Literal	0x0
008c 0093 0373  |   s|		push_full_address	INIT_0370
008e 02a0       |    |		Declare_Subprogram	Null_Subprogram
008f 038f       |    |		Declare_Type	Package,Defined,Visible
0090 e003       |    |		Load	0x0,0x3
0091 4801       |H   |		Short_Literal	0x1
0092 00da       |    |		Load_Top	At_Offset_2
0093 020e       |    |		Execute	Module,Augment_Imports
0094 0386       |    |		Declare_Variable	Package,Visible
0095 4800       |H   |		Short_Literal	0x0
0096 0093 033b  |   ;|		push_full_address	INIT_0338
0098 02a0       |    |		Declare_Subprogram	Null_Subprogram
0099 038f       |    |		Declare_Type	Package,Defined,Visible
009a e005       |    |		Load	0x0,0x5
009b e20f       |    |		Load	0x1,0xf
009c e002       |    |		Load	0x0,0x2
009d e004       |    |		Load	0x0,0x4
009e e003       |    |		Load	0x0,0x3
009f e20e       |    |		Load	0x1,0xe
00a0 e219       |    |		Load	0x1,0x19
00a1 e21c       |    |		Load	0x1,0x1c
00a2 e006       |    |		Load	0x0,0x6
00a3 4809       |H   |		Short_Literal	0x9
00a4 e221       | !  |		Load	0x1,0x21
00a5 020e       |    |		Execute	Module,Augment_Imports
00a6 0386       |    |		Declare_Variable	Package,Visible
00a7 4800       |H   |		Short_Literal	0x0
00a8 0093 031b  |    |		push_full_address	INIT_0318
00aa 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ab 038f       |    |		Declare_Type	Package,Defined,Visible
00ac e005       |    |		Load	0x0,0x5
00ad e20f       |    |		Load	0x1,0xf
00ae e004       |    |		Load	0x0,0x4
00af e007       |    |		Load	0x0,0x7
00b0 e003       |    |		Load	0x0,0x3
00b1 e21a       |    |		Load	0x1,0x1a
00b2 e21c       |    |		Load	0x1,0x1c
00b3 e006       |    |		Load	0x0,0x6
00b4 4808       |H   |		Short_Literal	0x8
00b5 e222       | "  |		Load	0x1,0x22
00b6 020e       |    |		Execute	Module,Augment_Imports
00b7 0386       |    |		Declare_Variable	Package,Visible
00b8 4800       |H   |		Short_Literal	0x0
00b9 0093 02f3  |    |		push_full_address	INIT_02f0
00bb 02a0       |    |		Declare_Subprogram	Null_Subprogram
00bc 038f       |    |		Declare_Type	Package,Defined,Visible
00bd e005       |    |		Load	0x0,0x5
00be e20d       |    |		Load	0x1,0xd
00bf e007       |    |		Load	0x0,0x7
00c0 e004       |    |		Load	0x0,0x4
00c1 e008       |    |		Load	0x0,0x8
00c2 e009       |    |		Load	0x0,0x9
00c3 e003       |    |		Load	0x0,0x3
00c4 e00a       |    |		Load	0x0,0xa
00c5 e00b       |    |		Load	0x0,0xb
00c6 e00c       |    |		Load	0x0,0xc
00c7 e00d       |    |		Load	0x0,0xd
00c8 e00e       |    |		Load	0x0,0xe
00c9 e00f       |    |		Load	0x0,0xf
00ca e218       |    |		Load	0x1,0x18
00cb e21c       |    |		Load	0x1,0x1c
00cc e006       |    |		Load	0x0,0x6
00cd 4810       |H   |		Short_Literal	0x10
00ce e223       | #  |		Load	0x1,0x23
00cf 020e       |    |		Execute	Module,Augment_Imports
00d0 0386       |    |		Declare_Variable	Package,Visible
00d1 00e5       |    |		Load_Encached	Long_Integer_Cache
00d2 00e5       |    |		Load_Encached	Long_Integer_Cache
00d3 02a0       |    |		Declare_Subprogram	Null_Subprogram
00d4 4802       |H   |		Short_Literal	0x2
00d5 032e       | .  |		Declare_Type	Record,Defined,Visible
00d6 4800       |H   |		Short_Literal	0x0
00d7 480f       |H   |		Short_Literal	0xf
00d8 00da       |    |		Load_Top	At_Offset_2
00d9 02a0       |    |		Declare_Subprogram	Null_Subprogram
00da 4801       |H   |		Short_Literal	0x1
00db 035e       | ^  |		Declare_Type	Array,Defined,Visible
00dc 4800       |H   |		Short_Literal	0x0
00dd 0093 02d3  |    |		push_full_address	INIT_02d0
00df 02a0       |    |		Declare_Subprogram	Null_Subprogram
00e0 038f       |    |		Declare_Type	Package,Defined,Visible
00e1 e005       |    |		Load	0x0,0x5
00e2 e20f       |    |		Load	0x1,0xf
00e3 e004       |    |		Load	0x0,0x4
00e4 e007       |    |		Load	0x0,0x7
00e5 e20d       |    |		Load	0x1,0xd
00e6 e217       |    |		Load	0x1,0x17
00e7 e225       | %  |		Load	0x1,0x25
00e8 e21c       |    |		Load	0x1,0x1c
00e9 e006       |    |		Load	0x0,0x6
00ea 4809       |H   |		Short_Literal	0x9
00eb e226       | &  |		Load	0x1,0x26
00ec 020e       |    |		Execute	Module,Augment_Imports
00ed 0386       |    |		Declare_Variable	Package,Visible
00ee 4800       |H   |		Short_Literal	0x0
00ef 0093 02b3  |    |		push_full_address	INIT_02b0
00f1 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f2 038f       |    |		Declare_Type	Package,Defined,Visible
00f3 e005       |    |		Load	0x0,0x5
00f4 e20f       |    |		Load	0x1,0xf
00f5 e004       |    |		Load	0x0,0x4
00f6 e007       |    |		Load	0x0,0x7
00f7 e217       |    |		Load	0x1,0x17
00f8 e225       | %  |		Load	0x1,0x25
00f9 e21c       |    |		Load	0x1,0x1c
00fa e006       |    |		Load	0x0,0x6
00fb 4808       |H   |		Short_Literal	0x8
00fc e227       | '  |		Load	0x1,0x27
00fd 020e       |    |		Execute	Module,Augment_Imports
00fe 0386       |    |		Declare_Variable	Package,Visible
00ff 4800       |H   |		Short_Literal	0x0
0100 0093 029b  |    |		push_full_address	INIT_0298
0102 02a0       |    |		Declare_Subprogram	Null_Subprogram
0103 038f       |    |		Declare_Type	Package,Defined,Visible
0104 e005       |    |		Load	0x0,0x5
0105 e20f       |    |		Load	0x1,0xf
0106 e004       |    |		Load	0x0,0x4
0107 e010       |    |		Load	0x0,0x10
0108 e003       |    |		Load	0x0,0x3
0109 e21b       |    |		Load	0x1,0x1b
010a e21c       |    |		Load	0x1,0x1c
010b e006       |    |		Load	0x0,0x6
010c 4808       |H   |		Short_Literal	0x8
010d e228       | (  |		Load	0x1,0x28
010e 020e       |    |		Execute	Module,Augment_Imports
010f 0386       |    |		Declare_Variable	Package,Visible
0110 4800       |H   |		Short_Literal	0x0
0111 0093 0283  |    |		push_full_address	INIT_0280
0113 02a0       |    |		Declare_Subprogram	Null_Subprogram
0114 038f       |    |		Declare_Type	Package,Defined,Visible
0115 e002       |    |		Load	0x0,0x2
0116 e006       |    |		Load	0x0,0x6
0117 4802       |H   |		Short_Literal	0x2
0118 00db       |    |		Load_Top	At_Offset_3
0119 020e       |    |		Execute	Module,Augment_Imports
011a 0386       |    |		Declare_Variable	Package,Visible
011b 4800       |H   |		Short_Literal	0x0
011c 480f       |H   |		Short_Literal	0xf
011d e003       |    |		Load	0x0,0x3
011e 02a0       |    |		Declare_Subprogram	Null_Subprogram
011f 4801       |H   |		Short_Literal	0x1
0120 035e       | ^  |		Declare_Type	Array,Defined,Visible
0121 4800       |H   |		Short_Literal	0x0
0122 480f       |H   |		Short_Literal	0xf
0123 e003       |    |		Load	0x0,0x3
0124 02a0       |    |		Declare_Subprogram	Null_Subprogram
0125 4801       |H   |		Short_Literal	0x1
0126 035e       | ^  |		Declare_Type	Array,Defined,Visible
0127 4800       |H   |		Short_Literal	0x0
0128 0093 0253  |   S|		push_full_address	INIT_0250
012a 02a0       |    |		Declare_Subprogram	Null_Subprogram
012b 038f       |    |		Declare_Type	Package,Defined,Visible
012c e20d       |    |		Load	0x1,0xd
012d e004       |    |		Load	0x0,0x4
012e e008       |    |		Load	0x0,0x8
012f e00a       |    |		Load	0x0,0xa
0130 e00b       |    |		Load	0x0,0xb
0131 e00c       |    |		Load	0x0,0xc
0132 e00d       |    |		Load	0x0,0xd
0133 e00e       |    |		Load	0x0,0xe
0134 e00f       |    |		Load	0x0,0xf
0135 e003       |    |		Load	0x0,0x3
0136 e22a       | *  |		Load	0x1,0x2a
0137 e22b       | +  |		Load	0x1,0x2b
0138 e216       |    |		Load	0x1,0x16
0139 e006       |    |		Load	0x0,0x6
013a 480e       |H   |		Short_Literal	0xe
013b e22c       | ,  |		Load	0x1,0x2c
013c 020e       |    |		Execute	Module,Augment_Imports
013d 0386       |    |		Declare_Variable	Package,Visible
013e 4800       |H   |		Short_Literal	0x0
013f 0093 0233  |   3|		push_full_address	INIT_0230
0141 02a0       |    |		Declare_Subprogram	Null_Subprogram
0142 038f       |    |		Declare_Type	Package,Defined,Visible
0143 e009       |    |		Load	0x0,0x9
0144 e006       |    |		Load	0x0,0x6
0145 4802       |H   |		Short_Literal	0x2
0146 00db       |    |		Load_Top	At_Offset_3
0147 020e       |    |		Execute	Module,Augment_Imports
0148 0386       |    |		Declare_Variable	Package,Visible
0149 4800       |H   |		Short_Literal	0x0
014a 0093 01cb  |    |		push_full_address	INIT_01c8
014c 02a0       |    |		Declare_Subprogram	Null_Subprogram
014d 038f       |    |		Declare_Type	Package,Defined,Visible
014e e002       |    |		Load	0x0,0x2
014f e005       |    |		Load	0x0,0x5
0150 e211       |    |		Load	0x1,0x11
0151 4803       |H   |		Short_Literal	0x3
0152 e22e       | .  |		Load	0x1,0x2e
0153 020e       |    |		Execute	Module,Augment_Imports
0154 0386       |    |		Declare_Variable	Package,Visible
0155 e21e       |    |		Load	0x1,0x1e
0156 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0157 e21f       |    |		Load	0x1,0x1f
0158 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0159 e221       | !  |		Load	0x1,0x21
015a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015b e222       | "  |		Load	0x1,0x22
015c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015d e223       | #  |		Load	0x1,0x23
015e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015f e226       | &  |		Load	0x1,0x26
0160 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0161 e227       | '  |		Load	0x1,0x27
0162 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0163 e228       | (  |		Load	0x1,0x28
0164 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0165 e229       | )  |		Load	0x1,0x29
0166 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0167 e22c       | ,  |		Load	0x1,0x2c
0168 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0169 e22d       | -  |		Load	0x1,0x2d
016a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016b e22e       | .  |		Load	0x1,0x2e
016c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
016d e220       |    |		Load	0x1,0x20
016e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0170 480d       |H   |		Short_Literal	0xd
0171 032e       | .  |		Declare_Type	Record,Defined,Visible
0172 00d8       |    |		Load_Top	At_Offset_0
0173 02a0       |    |		Declare_Subprogram	Null_Subprogram
0174 4818       |H   |		Short_Literal	0x18
0175 03d6       |    |		Declare_Type	Access,Defined,Visible
0176 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0178 00bf       |    |		Action	Accept_Activation
0179 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
017a 00c7       |    |		Action	Elaborate_Subprogram
017b e21e       |    |		Load	0x1,0x1e
017c 020f       |    |		Execute	Module,Activate
017d e21f       |    |		Load	0x1,0x1f
017e 020f       |    |		Execute	Module,Activate
017f e220       |    |		Load	0x1,0x20
0180 020f       |    |		Execute	Module,Activate
0181 e221       | !  |		Load	0x1,0x21
0182 020f       |    |		Execute	Module,Activate
0183 e222       | "  |		Load	0x1,0x22
0184 020f       |    |		Execute	Module,Activate
0185 e223       | #  |		Load	0x1,0x23
0186 020f       |    |		Execute	Module,Activate
0187 e226       | &  |		Load	0x1,0x26
0188 020f       |    |		Execute	Module,Activate
0189 e227       | '  |		Load	0x1,0x27
018a 020f       |    |		Execute	Module,Activate
018b e228       | (  |		Load	0x1,0x28
018c 020f       |    |		Execute	Module,Activate
018d e229       | )  |		Load	0x1,0x29
018e 020f       |    |		Execute	Module,Activate
018f e22c       | ,  |		Load	0x1,0x2c
0190 020f       |    |		Execute	Module,Activate
0191 e22d       | -  |		Load	0x1,0x2d
0192 020f       |    |		Execute	Module,Activate
0193 00db       |    |		Load_Top	At_Offset_3
0194 020f       |    |		Execute	Module,Activate
0195			BODY_0008:
0195 00bc       |    |		Action	Signal_Activated
0196 00bb       |    |		Action	Signal_Completion
0197 0000       |    |		.XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01ab       |    |		.CONST	0x01ab								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0005       |    |		.CONST	0x0005								; Number of locals
019b			INIT_0198:
019b e011       |    |		Load	0x0,0x11
019c e012       |    |		Load	0x0,0x12
019d e22f       | /  |		Load	0x1,0x2f
019e e013       |    |		Load	0x0,0x13
019f 0387       |    |		Declare_Variable	Package
01a0 00d8       |    |		Load_Top	At_Offset_0
01a1 020f       |    |		Execute	Module,Activate
01a2 0092 03d1  |    |		Action	Push_String_Extended,0x3d1					; ".saved_state"
01a4 00d9       |    |		Load_Top	At_Offset_1
01a5 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01a6 02c7       |    |		Declare_Variable	Any
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a9 e230       | 0  |		Load	0x1,0x30
01aa 0007       |    |		Action	Break_Optional
01ab			BODY_0198:
01ab e230       | 0  |		Load	0x1,0x30
01ac 03bc       |    |		Declare_Variable	Access,By_Allocation
01ad 0039       | 9  |		Store_Top	Access,At_Offset_1
01ae 00d9       |    |		Load_Top	At_Offset_1
01af 00ea       |    |		Load_Encached	Null_String_Cache
01b0 e5ff       |    |		Load	0x2,-0x1
01b1 4800       |H   |		Short_Literal	0x0
01b2 e402       |    |		Load	0x2,0x2
01b3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01b4 c404       |    |		Store	0x2,0x4
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 0229       | )  |		Execute	Access,All_Read
01b7 00d8       |    |		Load_Top	At_Offset_0
01b8 00db       |    |		Load_Top	At_Offset_3
01b9 e402       |    |		Load	0x2,0x2
01ba 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01bb 00d2       |    |		Pop_Control	Pop_Count_2
01bc 00d9       |    |		Load_Top	At_Offset_1
01bd e402       |    |		Load	0x2,0x2
01be 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01bf c404       |    |		Store	0x2,0x4
01c0 00d8       |    |		Load_Top	At_Offset_0
01c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c2 0000 0000  |    |		.XXX[0x2]
01c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 0206       |    |		.CONST	0x0206								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0015       |    |		.CONST	0x0015								; Number of locals
01cb			INIT_01c8:
01cb 4800       |H   |		Short_Literal	0x0
01cc 480a       |H   |		Short_Literal	0xa
01cd 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call
01cf 03fe       |    |		Declare_Type	Discrete,Defined,Visible
01d0 4801       |H   |		Short_Literal	0x1
01d1 480a       |H   |		Short_Literal	0xa
01d2 00da       |    |		Load_Top	At_Offset_2
01d3 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
01d4 4801       |H   |		Short_Literal	0x1
01d5 481e       |H   |		Short_Literal	0x1e
01d6 00e9       |    |		Load_Encached	String_Cache
01d7 035c       | \  |		Declare_Type	Array,Constrained,Visible
01d8 e001       |    |		Load	0x0,0x1
01d9 00d8       |    |		Load_Top	At_Offset_0
01da e001       |    |		Load	0x0,0x1
01db 00d8       |    |		Load_Top	At_Offset_0
01dc 02a0       |    |		Declare_Subprogram	Null_Subprogram
01dd 4804       |H   |		Short_Literal	0x4
01de 032e       | .  |		Declare_Type	Record,Defined,Visible
01df e001       |    |		Load	0x0,0x1
01e0 00d8       |    |		Load_Top	At_Offset_0
01e1 00db       |    |		Load_Top	At_Offset_3
01e2 02a0       |    |		Declare_Subprogram	Null_Subprogram
01e3 4803       |H   |		Short_Literal	0x3
01e4 032e       | .  |		Declare_Type	Record,Defined,Visible
01e5 e001       |    |		Load	0x0,0x1
01e6 00d9       |    |		Load_Top	At_Offset_1
01e7 e002       |    |		Load	0x0,0x2
01e8 02a0       |    |		Declare_Subprogram	Null_Subprogram
01e9 4803       |H   |		Short_Literal	0x3
01ea 032e       | .  |		Declare_Type	Record,Defined,Visible
01eb e001       |    |		Load	0x0,0x1
01ec 00d8       |    |		Load_Top	At_Offset_0
01ed e001       |    |		Load	0x0,0x1
01ee 00d8       |    |		Load_Top	At_Offset_0
01ef e001       |    |		Load	0x0,0x1
01f0 00d8       |    |		Load_Top	At_Offset_0
01f1 e001       |    |		Load	0x0,0x1
01f2 02a0       |    |		Declare_Subprogram	Null_Subprogram
01f3 4807       |H   |		Short_Literal	0x7
01f4 032e       | .  |		Declare_Type	Record,Defined,Visible
01f5 4801       |H   |		Short_Literal	0x1
01f6 480a       |H   |		Short_Literal	0xa
01f7 e211       |    |		Load	0x1,0x11
01f8 02a0       |    |		Declare_Subprogram	Null_Subprogram
01f9 4801       |H   |		Short_Literal	0x1
01fa 035e       | ^  |		Declare_Type	Array,Defined,Visible
01fb e002       |    |		Load	0x0,0x2
01fc e210       |    |		Load	0x1,0x10
01fd e212       |    |		Load	0x1,0x12
01fe e213       |    |		Load	0x1,0x13
01ff e211       |    |		Load	0x1,0x11
0200 e214       |    |		Load	0x1,0x14
0201 e003       |    |		Load	0x0,0x3
0202 02a0       |    |		Declare_Subprogram	Null_Subprogram
0203 4807       |H   |		Short_Literal	0x7
0204 032e       | .  |		Declare_Type	Record,Defined,Visible
0205 00bf       |    |		Action	Accept_Activation
0206			BODY_01c8:
0206 00bc       |    |		Action	Signal_Activated
0207 00bb       |    |		Action	Signal_Completion
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 4607       |F   |		Jump_Case	0x8
020c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
020d 7807       |x   |		Jump	0x215								; case 0x1
020e 780a       |x   |		Jump	0x219								; case 0x2
020f 780e       |x   |		Jump	0x21e								; case 0x3
0210 7811       |x   |		Jump	0x222								; case 0x4
0211 7812       |x   |		Jump	0x224								; case 0x5
0212 7813       |x   |		Jump	0x226								; case 0x6
0213 7816       |x   |		Jump	0x22a								; case 0x7
0214 4302       |C   |		.XXX[0x1]
0215 00da       |    |		Load_Top	At_Offset_2
0216 0091 03c6  |    |		Action	Push_String_Extended_Indexed,0x3c6				; "MICROCODE"
0218 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0219 00db       |    |		Load_Top	At_Offset_3
021a 00db       |    |		Load_Top	At_Offset_3
021b 00e0       |    |		Load_Encached	Standard_Cache
021c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
021d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
021e 00da       |    |		Load_Top	At_Offset_2
021f 00e0       |    |		Load_Encached	Standard_Cache
0220 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0221 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0222 00db       |    |		Load_Top	At_Offset_3
0223 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0224 00db       |    |		Load_Top	At_Offset_3
0225 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0226 e20d       |    |		Load	0x1,0xd
0227 00dc       |    |		Load_Top	At_Offset_4
0228 0267       | g  |		Execute	Discrete,Predecessor
0229 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022a e20d       |    |		Load	0x1,0xd
022b 00dc       |    |		Load_Top	At_Offset_4
022c 0268       | h  |		Execute	Discrete,Successor
022d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0247       | G  |		.CONST	0x0247								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 000d       |    |		.CONST	0x000d								; Number of locals
0233			INIT_0230:
0233 e001       |    |		Load	0x0,0x1
0234 012c       | ,  |		Execute	Any,Size
0235 0f10       |    |		Execute_Immediate	Equal,0x10
0236 7001       |p   |		Jump_Nonzero	0x238
0237 0887       |    |		Execute_Immediate	Raise,0x87
0238 4800       |H   |		Short_Literal	0x0
0239 4bff       |K   |		Short_Literal	0x3ff
023a e001       |    |		Load	0x0,0x1
023b 02a0       |    |		Declare_Subprogram	Null_Subprogram
023c 4801       |H   |		Short_Literal	0x1
023d 035e       | ^  |		Declare_Type	Array,Defined,Visible
023e 00d8       |    |		Load_Top	At_Offset_0
023f 012c       | ,  |		Execute	Any,Size
0240 e002       |    |		Load	0x0,0x2
0241 012c       | ,  |		Execute	Any,Size
0242 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0243 027f       |    |		Execute	Discrete,Equal
0244 7001       |p   |		Jump_Nonzero	0x246
0245 0887       |    |		Execute_Immediate	Raise,0x87
0246 00bf       |    |		Action	Accept_Activation
0247			BODY_0230:
0247 00bc       |    |		Action	Signal_Activated
0248 00bb       |    |		Action	Signal_Completion
0249 0000 0000  |    |		.BLANK	0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0279       | y  |		.CONST	0x0279								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 000d       |    |		.CONST	0x000d								; Number of locals
0253			INIT_0250:
0253 e001       |    |		Load	0x0,0x1
0254 e002       |    |		Load	0x0,0x2
0255 00d8       |    |		Load_Top	At_Offset_0
0256 e002       |    |		Load	0x0,0x2
0257 00d8       |    |		Load_Top	At_Offset_0
0258 e002       |    |		Load	0x0,0x2
0259 00d8       |    |		Load_Top	At_Offset_0
025a e003       |    |		Load	0x0,0x3
025b e004       |    |		Load	0x0,0x4
025c e005       |    |		Load	0x0,0x5
025d e006       |    |		Load	0x0,0x6
025e 00d8       |    |		Load_Top	At_Offset_0
025f e006       |    |		Load	0x0,0x6
0260 e007       |    |		Load	0x0,0x7
0261 00d8       |    |		Load_Top	At_Offset_0
0262 e008       |    |		Load	0x0,0x8
0263 e009       |    |		Load	0x0,0x9
0264 e00a       |    |		Load	0x0,0xa
0265 00e5       |    |		Load_Encached	Long_Integer_Cache
0266 00e5       |    |		Load_Encached	Long_Integer_Cache
0267 00e5       |    |		Load_Encached	Long_Integer_Cache
0268 00e5       |    |		Load_Encached	Long_Integer_Cache
0269 e00a       |    |		Load	0x0,0xa
026a 00d8       |    |		Load_Top	At_Offset_0
026b e00b       |    |		Load	0x0,0xb
026c e00c       |    |		Load	0x0,0xc
026d e00d       |    |		Load	0x0,0xd
026e 02a0       |    |		Declare_Subprogram	Null_Subprogram
026f 481b       |H   |		Short_Literal	0x1b
0270 032e       | .  |		Declare_Type	Record,Defined,Visible
0271 00d8       |    |		Load_Top	At_Offset_0
0272 012c       | ,  |		Execute	Any,Size
0273 e00e       |    |		Load	0x0,0xe
0274 012c       | ,  |		Execute	Any,Size
0275 027f       |    |		Execute	Discrete,Equal
0276 7001       |p   |		Jump_Nonzero	0x278
0277 0887       |    |		Execute_Immediate	Raise,0x87
0278 00bf       |    |		Action	Accept_Activation
0279			BODY_0250:
0279 00bc       |    |		Action	Signal_Activated
027a 00bb       |    |		Action	Signal_Completion
027b 0000 0000  |    |		.BLANK	0000[0x5]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0291       |    |		.CONST	0x0291								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 000d       |    |		.CONST	0x000d								; Number of locals
0283			INIT_0280:
0283 4801       |H   |		Short_Literal	0x1
0284 600f       |`   |		Indirect_Literal	Discrete,0x294,{0x00000000, 0x00000400}
0285 e001       |    |		Load	0x0,0x1
0286 02a0       |    |		Declare_Subprogram	Null_Subprogram
0287 4801       |H   |		Short_Literal	0x1
0288 035e       | ^  |		Declare_Type	Array,Defined,Visible
0289 00d8       |    |		Load_Top	At_Offset_0
028a 012c       | ,  |		Execute	Any,Size
028b e002       |    |		Load	0x0,0x2
028c 012c       | ,  |		Execute	Any,Size
028d 027f       |    |		Execute	Discrete,Equal
028e 7001       |p   |		Jump_Nonzero	0x290
028f 0887       |    |		Execute_Immediate	Raise,0x87
0290 00bf       |    |		Action	Accept_Activation
0291			BODY_0280:
0291 00bc       |    |		Action	Signal_Activated
0292 00bb       |    |		Action	Signal_Completion
0293 0000       |    |		.XXX[0x1]
0294 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02ae       |    |		.CONST	0x02ae								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 000d       |    |		.CONST	0x000d								; Number of locals
029b			INIT_0298:
029b e001       |    |		Load	0x0,0x1
029c e002       |    |		Load	0x0,0x2
029d e003       |    |		Load	0x0,0x3
029e 00d8       |    |		Load_Top	At_Offset_0
029f e004       |    |		Load	0x0,0x4
02a0 e005       |    |		Load	0x0,0x5
02a1 e006       |    |		Load	0x0,0x6
02a2 e007       |    |		Load	0x0,0x7
02a3 02a0       |    |		Declare_Subprogram	Null_Subprogram
02a4 4808       |H   |		Short_Literal	0x8
02a5 032e       | .  |		Declare_Type	Record,Defined,Visible
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 012c       | ,  |		Execute	Any,Size
02a8 e008       |    |		Load	0x0,0x8
02a9 012c       | ,  |		Execute	Any,Size
02aa 027f       |    |		Execute	Discrete,Equal
02ab 7001       |p   |		Jump_Nonzero	0x2ad
02ac 0887       |    |		Execute_Immediate	Raise,0x87
02ad 00bf       |    |		Action	Accept_Activation
02ae			BODY_0298:
02ae 00bc       |    |		Action	Signal_Activated
02af 00bb       |    |		Action	Signal_Completion
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02ca       |    |		.CONST	0x02ca								; Address of begin
02b1 0004       |    |		.CONST	0x0004								; Address of exception handler
02b2 000d       |    |		.CONST	0x000d								; Number of locals
02b3			INIT_02b0:
02b3 e001       |    |		Load	0x0,0x1
02b4 e002       |    |		Load	0x0,0x2
02b5 e003       |    |		Load	0x0,0x3
02b6 e004       |    |		Load	0x0,0x4
02b7 e003       |    |		Load	0x0,0x3
02b8 00d8       |    |		Load_Top	At_Offset_0
02b9 e003       |    |		Load	0x0,0x3
02ba 00d8       |    |		Load_Top	At_Offset_0
02bb 00e5       |    |		Load_Encached	Long_Integer_Cache
02bc e005       |    |		Load	0x0,0x5
02bd e006       |    |		Load	0x0,0x6
02be e007       |    |		Load	0x0,0x7
02bf 02a0       |    |		Declare_Subprogram	Null_Subprogram
02c0 480c       |H   |		Short_Literal	0xc
02c1 032e       | .  |		Declare_Type	Record,Defined,Visible
02c2 00d8       |    |		Load_Top	At_Offset_0
02c3 012c       | ,  |		Execute	Any,Size
02c4 e008       |    |		Load	0x0,0x8
02c5 012c       | ,  |		Execute	Any,Size
02c6 027f       |    |		Execute	Discrete,Equal
02c7 7001       |p   |		Jump_Nonzero	0x2c9
02c8 0887       |    |		Execute_Immediate	Raise,0x87
02c9 00bf       |    |		Action	Accept_Activation
02ca			BODY_02b0:
02ca 00bc       |    |		Action	Signal_Activated
02cb 00bb       |    |		Action	Signal_Completion
02cc 0000 0000  |    |		.BLANK	0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02ea       |    |		.CONST	0x02ea								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 000d       |    |		.CONST	0x000d								; Number of locals
02d3			INIT_02d0:
02d3 e001       |    |		Load	0x0,0x1
02d4 e002       |    |		Load	0x0,0x2
02d5 e003       |    |		Load	0x0,0x3
02d6 e004       |    |		Load	0x0,0x4
02d7 e003       |    |		Load	0x0,0x3
02d8 00d8       |    |		Load_Top	At_Offset_0
02d9 e005       |    |		Load	0x0,0x5
02da e003       |    |		Load	0x0,0x3
02db 00e5       |    |		Load_Encached	Long_Integer_Cache
02dc e006       |    |		Load	0x0,0x6
02dd e007       |    |		Load	0x0,0x7
02de e008       |    |		Load	0x0,0x8
02df 02a0       |    |		Declare_Subprogram	Null_Subprogram
02e0 480c       |H   |		Short_Literal	0xc
02e1 032e       | .  |		Declare_Type	Record,Defined,Visible
02e2 00d8       |    |		Load_Top	At_Offset_0
02e3 012c       | ,  |		Execute	Any,Size
02e4 e009       |    |		Load	0x0,0x9
02e5 012c       | ,  |		Execute	Any,Size
02e6 027f       |    |		Execute	Discrete,Equal
02e7 7001       |p   |		Jump_Nonzero	0x2e9
02e8 0887       |    |		Execute_Immediate	Raise,0x87
02e9 00bf       |    |		Action	Accept_Activation
02ea			BODY_02d0:
02ea 00bc       |    |		Action	Signal_Activated
02eb 00bb       |    |		Action	Signal_Completion
02ec 0000 0000  |    |		.BLANK	0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 0313       |    |		.CONST	0x0313								; 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 e002       |    |		Load	0x0,0x2
02f5 e003       |    |		Load	0x0,0x3
02f6 00d8       |    |		Load_Top	At_Offset_0
02f7 e004       |    |		Load	0x0,0x4
02f8 00d8       |    |		Load_Top	At_Offset_0
02f9 e005       |    |		Load	0x0,0x5
02fa e006       |    |		Load	0x0,0x6
02fb 00e5       |    |		Load_Encached	Long_Integer_Cache
02fc e007       |    |		Load	0x0,0x7
02fd e008       |    |		Load	0x0,0x8
02fe e009       |    |		Load	0x0,0x9
02ff e00a       |    |		Load	0x0,0xa
0300 00d8       |    |		Load_Top	At_Offset_0
0301 e00a       |    |		Load	0x0,0xa
0302 e00b       |    |		Load	0x0,0xb
0303 00d8       |    |		Load_Top	At_Offset_0
0304 e00c       |    |		Load	0x0,0xc
0305 e00d       |    |		Load	0x0,0xd
0306 e00e       |    |		Load	0x0,0xe
0307 e00f       |    |		Load	0x0,0xf
0308 02a0       |    |		Declare_Subprogram	Null_Subprogram
0309 4815       |H   |		Short_Literal	0x15
030a 032e       | .  |		Declare_Type	Record,Defined,Visible
030b 00d8       |    |		Load_Top	At_Offset_0
030c 012c       | ,  |		Execute	Any,Size
030d e010       |    |		Load	0x0,0x10
030e 012c       | ,  |		Execute	Any,Size
030f 027f       |    |		Execute	Discrete,Equal
0310 7001       |p   |		Jump_Nonzero	0x312
0311 0887       |    |		Execute_Immediate	Raise,0x87
0312 00bf       |    |		Action	Accept_Activation
0313			BODY_02f0:
0313 00bc       |    |		Action	Signal_Activated
0314 00bb       |    |		Action	Signal_Completion
0315 0000 0000  |    |		.XXX[0x3]
0317 0000       |    |
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0331       | 1  |		.CONST	0x0331								; 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 e002       |    |		Load	0x0,0x2
031d e003       |    |		Load	0x0,0x3
031e e004       |    |		Load	0x0,0x4
031f e005       |    |		Load	0x0,0x5
0320 00e5       |    |		Load_Encached	Long_Integer_Cache
0321 00e5       |    |		Load_Encached	Long_Integer_Cache
0322 00e5       |    |		Load_Encached	Long_Integer_Cache
0323 00e5       |    |		Load_Encached	Long_Integer_Cache
0324 e006       |    |		Load	0x0,0x6
0325 e007       |    |		Load	0x0,0x7
0326 02a0       |    |		Declare_Subprogram	Null_Subprogram
0327 480b       |H   |		Short_Literal	0xb
0328 032e       | .  |		Declare_Type	Record,Defined,Visible
0329 00d8       |    |		Load_Top	At_Offset_0
032a 012c       | ,  |		Execute	Any,Size
032b e008       |    |		Load	0x0,0x8
032c 012c       | ,  |		Execute	Any,Size
032d 027f       |    |		Execute	Discrete,Equal
032e 7001       |p   |		Jump_Nonzero	0x330
032f 0887       |    |		Execute_Immediate	Raise,0x87
0330 00bf       |    |		Action	Accept_Activation
0331			BODY_0318:
0331 00bc       |    |		Action	Signal_Activated
0332 00bb       |    |		Action	Signal_Completion
0333 0000 0000  |    |		.BLANK	0000[0x5]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 036c       | l  |		.CONST	0x036c								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 000f       |    |		.CONST	0x000f								; Number of locals
033b			INIT_0338:
033b 4800       |H   |		Short_Literal	0x0
033c 4803       |H   |		Short_Literal	0x3
033d 00e5       |    |		Load_Encached	Long_Integer_Cache
033e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
033f e001       |    |		Load	0x0,0x1
0340 e002       |    |		Load	0x0,0x2
0341 e001       |    |		Load	0x0,0x1
0342 e003       |    |		Load	0x0,0x3
0343 00d8       |    |		Load_Top	At_Offset_0
0344 e003       |    |		Load	0x0,0x3
0345 00d8       |    |		Load_Top	At_Offset_0
0346 e004       |    |		Load	0x0,0x4
0347 e005       |    |		Load	0x0,0x5
0348 00e5       |    |		Load_Encached	Long_Integer_Cache
0349 e004       |    |		Load	0x0,0x4
034a 00d8       |    |		Load_Top	At_Offset_0
034b e003       |    |		Load	0x0,0x3
034c 00d8       |    |		Load_Top	At_Offset_0
034d e003       |    |		Load	0x0,0x3
034e 00d8       |    |		Load_Top	At_Offset_0
034f 00e5       |    |		Load_Encached	Long_Integer_Cache
0350 00e5       |    |		Load_Encached	Long_Integer_Cache
0351 e005       |    |		Load	0x0,0x5
0352 00d8       |    |		Load_Top	At_Offset_0
0353 e006       |    |		Load	0x0,0x6
0354 e004       |    |		Load	0x0,0x4
0355 e003       |    |		Load	0x0,0x3
0356 00d8       |    |		Load_Top	At_Offset_0
0357 00e5       |    |		Load_Encached	Long_Integer_Cache
0358 e005       |    |		Load	0x0,0x5
0359 e007       |    |		Load	0x0,0x7
035a e008       |    |		Load	0x0,0x8
035b 02a0       |    |		Declare_Subprogram	Null_Subprogram
035c 481c       |H   |		Short_Literal	0x1c
035d 032e       | .  |		Declare_Type	Record,Defined,Visible
035e 00d8       |    |		Load_Top	At_Offset_0
035f 012c       | ,  |		Execute	Any,Size
0360 e009       |    |		Load	0x0,0x9
0361 012c       | ,  |		Execute	Any,Size
0362 027f       |    |		Execute	Discrete,Equal
0363 7001       |p   |		Jump_Nonzero	0x365
0364 0887       |    |		Execute_Immediate	Raise,0x87
0365 4800       |H   |		Short_Literal	0x0
0366 4803       |H   |		Short_Literal	0x3
0367 00da       |    |		Load_Top	At_Offset_2
0368 02a0       |    |		Declare_Subprogram	Null_Subprogram
0369 4801       |H   |		Short_Literal	0x1
036a 035e       | ^  |		Declare_Type	Array,Defined,Visible
036b 00bf       |    |		Action	Accept_Activation
036c			BODY_0338:
036c 00bc       |    |		Action	Signal_Activated
036d 00bb       |    |		Action	Signal_Completion
036e 0000 0000  |    |		.XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0384       |    |		.CONST	0x0384								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 000f       |    |		.CONST	0x000f								; Number of locals
0373			INIT_0370:
0373 4800       |H   |		Short_Literal	0x0
0374 481f       |H   |		Short_Literal	0x1f
0375 e001       |    |		Load	0x0,0x1
0376 02a0       |    |		Declare_Subprogram	Null_Subprogram
0377 4801       |H   |		Short_Literal	0x1
0378 035e       | ^  |		Declare_Type	Array,Defined,Visible
0379 4800       |H   |		Short_Literal	0x0
037a 481f       |H   |		Short_Literal	0x1f
037b 00da       |    |		Load_Top	At_Offset_2
037c 02a0       |    |		Declare_Subprogram	Null_Subprogram
037d 4801       |H   |		Short_Literal	0x1
037e 035e       | ^  |		Declare_Type	Array,Defined,Visible
037f 00d8       |    |		Load_Top	At_Offset_0
0380 02a0       |    |		Declare_Subprogram	Null_Subprogram
0381 4801       |H   |		Short_Literal	0x1
0382 032e       | .  |		Declare_Type	Record,Defined,Visible
0383 00bf       |    |		Action	Accept_Activation
0384			BODY_0370:
0384 00bc       |    |		Action	Signal_Activated
0385 00bb       |    |		Action	Signal_Completion
0386 0000 0000  |    |		.XXX[0x2]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 039b       |    |		.CONST	0x039b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 000e       |    |		.CONST	0x000e								; Number of locals
038b			INIT_0388:
038b 4800       |H   |		Short_Literal	0x0
038c 4b3f       |K?  |		Short_Literal	0x33f
038d e001       |    |		Load	0x0,0x1
038e 02a0       |    |		Declare_Subprogram	Null_Subprogram
038f 4801       |H   |		Short_Literal	0x1
0390 035e       | ^  |		Declare_Type	Array,Defined,Visible
0391 e002       |    |		Load	0x0,0x2
0392 00d8       |    |		Load_Top	At_Offset_0
0393 e003       |    |		Load	0x0,0x3
0394 00e2       |    |		Load_Encached	Integer_Cache
0395 e004       |    |		Load	0x0,0x4
0396 e20d       |    |		Load	0x1,0xd
0397 02a0       |    |		Declare_Subprogram	Null_Subprogram
0398 4806       |H   |		Short_Literal	0x6
0399 032e       | .  |		Declare_Type	Record,Defined,Visible
039a 00bf       |    |		Action	Accept_Activation
039b			BODY_0388:
039b 00bc       |    |		Action	Signal_Activated
039c 00bb       |    |		Action	Signal_Completion
039d 0000 0000  |    |		.XXX[0x3]
039f 0000       |    |
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03c4       |    |		.CONST	0x03c4								; Address of begin
03a1 0004       |    |		.CONST	0x0004								; Address of exception handler
03a2 000f       |    |		.CONST	0x000f								; Number of locals
03a3			INIT_03a0:
03a3 4801       |H   |		Short_Literal	0x1
03a4 4812       |H   |		Short_Literal	0x12
03a5 00e9       |    |		Load_Encached	String_Cache
03a6 035c       | \  |		Declare_Type	Array,Constrained,Visible
03a7 e001       |    |		Load	0x0,0x1
03a8 00d8       |    |		Load_Top	At_Offset_0
03a9 e001       |    |		Load	0x0,0x1
03aa 00d8       |    |		Load_Top	At_Offset_0
03ab e001       |    |		Load	0x0,0x1
03ac 00d8       |    |		Load_Top	At_Offset_0
03ad e20d       |    |		Load	0x1,0xd
03ae e001       |    |		Load	0x0,0x1
03af 00d8       |    |		Load_Top	At_Offset_0
03b0 e002       |    |		Load	0x0,0x2
03b1 02a0       |    |		Declare_Subprogram	Null_Subprogram
03b2 480a       |H   |		Short_Literal	0xa
03b3 032e       | .  |		Declare_Type	Record,Defined,Visible
03b4 e003       |    |		Load	0x0,0x3
03b5 0322       | "  |		Declare_Variable	Record
03b6 4800       |H   |		Short_Literal	0x0
03b7 00d9       |    |		Load_Top	At_Offset_1
03b8 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03b9 481e       |H   |		Short_Literal	0x1e
03ba 00d9       |    |		Load_Top	At_Offset_1
03bb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03bc 489e       |H   |		Short_Literal	0x9e
03bd 00d9       |    |		Load_Top	At_Offset_1
03be 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03bf 4bdd       |K   |		Short_Literal	0x3dd
03c0 00d9       |    |		Load_Top	At_Offset_1
03c1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
03c2 0129       | )  |		Execute	Any,Make_Visible
03c3 00bf       |    |		Action	Accept_Activation
03c4			BODY_03a0:
03c4 00bc       |    |		Action	Signal_Activated
03c5 00bb       |    |		Action	Signal_Completion
03c6 ; --------------------------------------------------------------------------------------
03c6 ; STRING TABLE
03c6 ; --------------------------------------------------------------------------------------
03c6 001a       |    |		.STRTAB	0x001a->0x03d3							; "MICROCODE"
03c7 0021       | !  |		.STRTAB	0x0021->0x03d7							; "ADA_BASE"
03c8 0027       | '  |		.STRTAB	0x0027->0x03db							; "MACHINE_INTERFACE"
03c9 0036       | 6  |		.STRTAB	0x0036->0x03e4							; "KERNEL_DEBUGGER_IO"
03ca 0046       | F  |		.STRTAB	0x0046->0x03ed							; "KERNEL_DEBUGGER"
03cb 0053       | S  |		.STRTAB	0x0053->0x03f4							; "KERNEL"
03cc 0057       | W  |		.STRTAB	0x0057->0x03f7							; "ENVIRONMENT_DEBUGGER"
03cd 0069       | i  |		.STRTAB	0x0069->0x0401							; "ABSTRACT_TYPES"
03ce 0075       | u  |		.STRTAB	0x0075->0x0408							; "MISCELLANEOUS"
03cf 0080       |    |		.STRTAB	0x0080->0x040f							; "OS_UTILITIES"
03d0 008a       |    |		.STRTAB	0x008a->0x0415							; "ELABORATOR_DATABASE"
03d1 009b       |    |		.STRTAB	0x009b->0x041e							; ".saved_state"
03d2 00a5       |    |		.STREND 0x00a5->0x0424
03d3 4d49 4352  |MICR|		.STRTAB_STRINGS
0425 0000 0000  |    |		.XXX[0x3]
0427 0000       |    |
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug Table
0428 ; --------------------------------------------------------------------------------------
0428 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x34d9,0x0000,0x0001,0x0000
042e 930b a34b  |   K|		.XXX[0x6]
0430 7b71 7000  |{qp |
0432 0000 0800  |    |
0434 0000 0000  |    |		.BLANK	0000[0x4]
0438 0003 6800  |  h |		.XXX[0xcc]
043a 0000 0000  |    |
043c 0003 6000  |  ` |
043e 0003 8000  |    |
0440 0001 e2a3  |    |
0442 434b 9903  |CK  |
0444 8393 7b1b  |  { |
0446 2b23 ab93  |+#  |
0448 2903 932b  |)  +|
044a 8363 0b1b  | c  |
044c 2b99 03a3  |+   |
044e 4329 031b  |C)  |
0450 7b73 a32b  |{s +|
0452 73a3 9903  |s   |
0454 7b31 032b  |{1 +|
0456 0b1b 4103  |  A |
0458 7b13 532b  |{ S+|
045a 1ba1 03bb  |    |
045c 4ba3 4103  |K A |
045e a343 2800  | C( |
0460 0003 7000  |  p |
0462 0001 f101  |    |
0464 02a3 434b  |  CK|
0466 9903 8393  |    |
0468 7b1b 2b23  |{ +#|
046a ab93 2903  |  ) |
046c 932b 8363  | + c|
046e 0b1b 2b99  |  + |
0470 03a3 4329  |  C)|
0472 031b 7b73  |  {s|
0474 a32b 73a3  | +s |
0476 9903 7b31  |  {1|
0478 032b 0b1b  | +  |
047a 4103 7b13  |A { |
047c 532b 1ba1  |S+  |
047e 03bb 4ba3  |  K |
0480 4103 a343  |A  C|
0482 2800 0003  |(   |
0484 7000 0001  |p   |
0486 f101 02a3  |    |
0488 434b 9903  |CK  |
048a 8393 7b1b  |  { |
048c 2b23 ab93  |+#  |
048e 2903 932b  |)  +|
0490 8363 0b1b  | c  |
0492 2b99 03a3  |+   |
0494 4329 031b  |C)  |
0496 7b73 a32b  |{s +|
0498 73a3 9903  |s   |
049a 7b31 032b  |{1 +|
049c 0b1b 4103  |  A |
049e 7b13 532b  |{ S+|
04a0 1ba1 03bb  |    |
04a2 4ba3 4103  |K A |
04a4 a343 2800  | C( |
04a6 0001 7800  |  x |
04a8 0001 a31b  |    |
04aa 7b73 a32b  |{s +|
04ac 73a3 9903  |s   |
04ae 7b31 03a3  |{1  |
04b0 4329 034b  |C) K|
04b2 7323 4b1b  |s#K |
04b4 0ba3 2b21  |  +!|
04b6 033b 2b73  | ;+s|
04b8 2b93 0ba3  |+   |
04ba 4b7b 7103  |K{q |
04bc 7b31 03a3  |{1  |
04be 430b a103  |C   |
04c0 7b13 532b  |{ S+|
04c2 1ba1 7000  |  p |
04c4 0001 6800  |  h |
04c6 0001 b101  |    |
04c8 031b 7b73  |  {s|
04ca a32b 73a3  | +s |
04cc 9903 7b31  |  {1|
04ce 03a3 4329  |  C)|
04d0 034b 7323  | Ks#|
04d2 4b1b 0ba3  |K   |
04d4 2b21 033b  |+! ;|
04d6 2b73 2b93  |+s+ |
04d8 0ba3 4b7b  |  K{|
04da 7103 7b31  |q {1|
04dc 03a3 430b  |  C |
04de a103 7b13  |  { |
04e0 532b 1ba1  |S+  |
04e2 7000 0001  |p   |
04e4 6800 0001  |h   |
04e6 b101 031b  |    |
04e8 7b73 a32b  |{s +|
04ea 73a3 9903  |s   |
04ec 7b31 03a3  |{1  |
04ee 4329 034b  |C) K|
04f0 7323 4b1b  |s#K |
04f2 0ba3 2b21  |  +!|
04f4 033b 2b73  | ;+s|
04f6 2b93 0ba3  |+   |
04f8 4b7b 7103  |K{q |
04fa 7b31 03a3  |{1  |
04fc 430b a103  |C   |
04fe 7b13 532b  |{ S+|
0500 1ba1 7000  |  p |
0502 0000 0800  |    |
0504 0000 0000  |    |		.BLANK	0000[0x4]
0508 0003 2000  |    |		.XXX[0xf8]
050a 0000 0000  |    |
050c 0003 1800  |    |
050e 0003 3800  |  8 |
0510 0002 02a3  |    |
0512 4329 033b  |C) ;|
0514 2b73 2b93  |+s+ |
0516 0ba3 4b7b  |  K{|
0518 7103 a379  |q  y|
051a 03bb 434b  |  CK|
051c 1b41 030b  | A  |
051e 7103 7b13  |q { |
0520 532b 1ba1  |S+  |
0522 034b 9903  | K  |
0524 932b b32b  | + +|
0526 93a3 2b21  |  +!|
0528 031b 0b71  |   q|
052a 0313 2903  |  ) |
052c 932b a30b  | +  |
052e 4b73 2b21  |Ks+!|
0530 030b 9800  |    |
0532 0003 2800  |  ( |
0534 0002 1101  |    |
0536 02a3 4329  |  C)|
0538 033b 2b73  | ;+s|
053a 2b93 0ba3  |+   |
053c 4b7b 7103  |K{q |
053e a379 03bb  | y  |
0540 434b 1b41  |CK A|
0542 030b 7103  |  q |
0544 7b13 532b  |{ S+|
0546 1ba1 034b  |   K|
0548 9903 932b  |   +|
054a b32b 93a3  | +  |
054c 2b21 031b  |+!  |
054e 0b71 0313  | q  |
0550 2903 932b  |)  +|
0552 a30b 4b73  |  Ks|
0554 2b21 030b  |+!  |
0556 9800 0003  |    |
0558 2800 0002  |(   |
055a 1101 02a3  |    |
055c 4329 033b  |C) ;|
055e 2b73 2b93  |+s+ |
0560 0ba3 4b7b  |  K{|
0562 7103 a379  |q  y|
0564 03bb 434b  |  CK|
0566 1b41 030b  | A  |
0568 7103 7b13  |q { |
056a 532b 1ba1  |S+  |
056c 034b 9903  | K  |
056e 932b b32b  | + +|
0570 93a3 2b21  |  +!|
0572 031b 0b71  |   q|
0574 0313 2903  |  ) |
0576 932b a30b  | +  |
0578 4b73 2b21  |Ks+!|
057a 030b 9800  |    |
057c 0001 5000  |  P |
057e 0002 03a3  |    |
0580 4329 0363  |C) c|
0582 0ba3 2b9b  |  + |
0584 a103 3b2b  |  ;+|
0586 732b 930b  |s+  |
0588 a34b 7b71  | K{q|
058a 034b 3103  | K1 |
058c a343 2902  | C) |
058e 6b0b 5b2a  |k [*|
0590 fa63 0ba3  | c  |
0592 2b9b a2fa  |+   |
0594 3b2b 732b  |;+s+|
0596 930b a34b  |   K|
0598 7b71 0383  |{q  |
059a 0b93 0b6b  |   k|
059c 2ba3 2b91  |+ + |
059e 034b 9800  | K  |
05a0 0001 4000  |  @ |
05a2 0002 1101  |    |
05a4 03a3 4329  |  C)|
05a6 0363 0ba3  | c  |
05a8 2b9b a103  |+   |
05aa 3b2b 732b  |;+s+|
05ac 930b a34b  |   K|
05ae 7b71 034b  |{q K|
05b0 3103 a343  |1  C|
05b2 2902 6b0b  |) k |
05b4 5b2a fa63  |[* c|
05b6 0ba3 2b9b  |  + |
05b8 a2fa 3b2b  |  ;+|
05ba 732b 930b  |s+  |
05bc a34b 7b71  | K{q|
05be 0383 0b93  |    |
05c0 0b6b 2ba3  | k+ |
05c2 2b91 034b  |+  K|
05c4 9800 0001  |    |
05c6 4000 0002  |@   |
05c8 1101 03a3  |    |
05ca 4329 0363  |C) c|
05cc 0ba3 2b9b  |  + |
05ce a103 3b2b  |  ;+|
05d0 732b 930b  |s+  |
05d2 a34b 7b71  | K{q|
05d4 034b 3103  | K1 |
05d6 a343 2902  | C) |
05d8 6b0b 5b2a  |k [*|
05da fa63 0ba3  | c  |
05dc 2b9b a2fa  |+   |
05de 3b2b 732b  |;+s+|
05e0 930b a34b  |   K|
05e2 7b71 0383  |{q  |
05e4 0b93 0b6b  |   k|
05e6 2ba3 2b91  |+ + |
05e8 034b 9800  | K  |
05ea 0003 6800  |  h |
05ec 0001 f3a3  |    |
05ee 93ab 2971  |  )q|
05f0 0102 7ba3  |  { |
05f2 432b 93bb  |C+  |
05f4 4b9b 2961  |K )a|
05f6 03a3 4329  |  C)|
05f8 0393 2bb3  |  + |
05fa 2b93 a32b  |+  +|
05fc 2103 7b13  |! { |
05fe 532b 1ba1  |S+  |