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

⟦481a3a380⟧

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

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 0450       | P  |		.CONST	0x0450								; 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 0041       | A  |		.CONST	0x0041								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 481f       |H   |		Short_Literal	0x1f
000d 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4801       |H   |		Short_Literal	0x1
0011 e001       |    |		Load	0x0,0x1
0012 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0013 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0014 0092 02b2  |    |		Action	Push_String_Extended,0x2b2					; "*** THIS IS A BAD OBJECT ***"
0016 e001       |    |		Load	0x0,0x1
0017 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0018 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0019 e002       |    |		Load	0x0,0x2
001a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001b 011e       |    |		Execute	Any,Convert
001c 0129       | )  |		Execute	Any,Make_Visible
001d 4801       |H   |		Short_Literal	0x1
001e e001       |    |		Load	0x0,0x1
001f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0020 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0021 0092 02b3  |    |		Action	Push_String_Extended,0x2b3					; "*** THESE ARE BAD OBJECTS ***"
0023 e001       |    |		Load	0x0,0x1
0024 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0025 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0026 e002       |    |		Load	0x0,0x2
0027 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0028 011e       |    |		Execute	Any,Convert
0029 0129       | )  |		Execute	Any,Make_Visible
002a 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
002c 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
002e 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0030 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0032 00bf       |    |		Action	Accept_Activation
0033 029d 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call
0035 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call
0037 029d 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call
0039 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0040 00c7       |    |		Action	Elaborate_Subprogram
0041			BODY_0008:
0041 00bc       |    |		Action	Signal_Activated
0042 00bb       |    |		Action	Signal_Completion
0043 0000 0000  |    |		.BLANK	0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 4607       |F   |		Jump_Case	0x8
004c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
004d 7806       |x   |		Jump	0x54								; case 0x1
004e 7809       |x   |		Jump	0x58								; case 0x2
004f 780d       |x   |		Jump	0x5d								; case 0x3
0050 7810       |x   |		Jump	0x61								; case 0x4
0051 7811       |x   |		Jump	0x63								; case 0x5
0052 7812       |x   |		Jump	0x65								; case 0x6
0053 7815       |x   |		Jump	0x69								; case 0x7
0054 00da       |    |		Load_Top	At_Offset_2
0055 0091 0292  |    |		Action	Push_String_Extended_Indexed,0x292				; "ANYTHING"
0057 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0058 00db       |    |		Load_Top	At_Offset_3
0059 00db       |    |		Load_Top	At_Offset_3
005a 00e0       |    |		Load_Encached	Standard_Cache
005b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
005c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
005d 00da       |    |		Load_Top	At_Offset_2
005e 00e0       |    |		Load_Encached	Standard_Cache
005f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0060 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0061 00db       |    |		Load_Top	At_Offset_3
0062 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0063 00db       |    |		Load_Top	At_Offset_3
0064 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0065 e20d       |    |		Load	0x1,0xd
0066 00dc       |    |		Load_Top	At_Offset_4
0067 0267       | g  |		Execute	Discrete,Predecessor
0068 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0069 e20d       |    |		Load	0x1,0xd
006a 00dc       |    |		Load_Top	At_Offset_4
006b 0268       | h  |		Execute	Discrete,Successor
006c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006d 0000 0000  |    |		.XXX[0x3]
006f 0000       |    |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007b       | {  |		.CONST	0x007b								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0002       |    |		.CONST	0x0002								; Number of locals
0073			INIT_0070:
0073 e002       |    |		Load	0x0,0x2
0074 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0075 02c7       |    |		Declare_Variable	Any
0076 e5fd       |    |		Load	0x2,-0x3
0077 e5fe       |    |		Load	0x2,-0x2
0078 e5ff       |    |		Load	0x2,-0x1
0079 8215       |    |		Call	0x1,0x15
007a a402       |    |		Store_Unchecked	0x2,0x2
007b			BODY_0070:
007b 00d8       |    |		Load_Top	At_Offset_0
007c e001       |    |		Load	0x0,0x1
007d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
007e 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
007f 00cf       |    |		Action	Mark_Auxiliary
0080 780f       |x   |		Jump	0x90
0081 e5fe       |    |		Load	0x2,-0x2
0082 00da       |    |		Load_Top	At_Offset_2
0083 e001       |    |		Load	0x0,0x1
0084 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0085 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0086 8216       |    |		Call	0x1,0x16
0087 6802       |h   |		Jump_Zero	0x8a
0088 4801       |H   |		Short_Literal	0x1
0089 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
008a 00d9       |    |		Load_Top	At_Offset_1
008b e001       |    |		Load	0x0,0x1
008c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
008e c402       |    |		Store	0x2,0x2
008f 00c9       |    |		Action	Pop_Auxiliary_Loop
0090 00d9       |    |		Load_Top	At_Offset_1
0091 e001       |    |		Load	0x0,0x1
0092 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0093 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0094 6fec       |o   |		Jump_Zero	0x81
0095 00ce       |    |		Action	Pop_Auxiliary
0096 4800       |H   |		Short_Literal	0x0
0097 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00ab       |    |		.CONST	0x00ab								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0004       |    |		.CONST	0x0004								; Number of locals
009b			INIT_0098:
009b e002       |    |		Load	0x0,0x2
009c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
009d 02c7       |    |		Declare_Variable	Any
009e e5fd       |    |		Load	0x2,-0x3
009f e5fe       |    |		Load	0x2,-0x2
00a0 e5ff       |    |		Load	0x2,-0x1
00a1 8215       |    |		Call	0x1,0x15
00a2 a402       |    |		Store_Unchecked	0x2,0x2
00a3 e002       |    |		Load	0x0,0x2
00a4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a5 02c7       |    |		Declare_Variable	Any
00a6 e001       |    |		Load	0x0,0x1
00a7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a8 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00a9 a403       |    |		Store_Unchecked	0x2,0x3
00aa 00e1       |    |		Load_Encached	Boolean_Cache
00ab			BODY_0098:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac e001       |    |		Load	0x0,0x1
00ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ae 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00af 00cf       |    |		Action	Mark_Auxiliary
00b0 781a       |x   |		Jump	0xcb
00b1 e5fe       |    |		Load	0x2,-0x2
00b2 e402       |    |		Load	0x2,0x2
00b3 e001       |    |		Load	0x0,0x1
00b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b5 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00b6 8216       |    |		Call	0x1,0x16
00b7 680d       |h   |		Jump_Zero	0xc5
00b8 00e1       |    |		Load_Encached	Boolean_Cache
00b9 e001       |    |		Load	0x0,0x1
00ba 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00bc e402       |    |		Load	0x2,0x2
00bd e001       |    |		Load	0x0,0x1
00be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bf 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00c0 e403       |    |		Load	0x2,0x3
00c1 e001       |    |		Load	0x0,0x1
00c2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c3 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00c4 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00c5 00db       |    |		Load_Top	At_Offset_3
00c6 e001       |    |		Load	0x0,0x1
00c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00c9 c402       |    |		Store	0x2,0x2
00ca 00c9       |    |		Action	Pop_Auxiliary_Loop
00cb 00db       |    |		Load_Top	At_Offset_3
00cc e001       |    |		Load	0x0,0x1
00cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ce 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00cf 6fe1       |o   |		Jump_Zero	0xb1
00d0 00ce       |    |		Action	Pop_Auxiliary
00d1 00d9       |    |		Load_Top	At_Offset_1
00d2 e001       |    |		Load	0x0,0x1
00d3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d4 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00d5 00d9       |    |		Load_Top	At_Offset_1
00d6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e1       |    |		.CONST	0x00e1								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0002       |    |		.CONST	0x0002								; Number of locals
00db			INIT_00d8:
00db e002       |    |		Load	0x0,0x2
00dc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00de 02c7       |    |		Declare_Variable	Any
00df 00db       |    |		Load_Top	At_Offset_3
00e0 a402       |    |		Store_Unchecked	0x2,0x2
00e1			BODY_00d8:
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 e002       |    |		Load	0x0,0x2
00e3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e4 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00e5 6802       |h   |		Jump_Zero	0xe8
00e6 4800       |H   |		Short_Literal	0x0
00e7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00e8 00cf       |    |		Action	Mark_Auxiliary
00e9 00d9       |    |		Load_Top	At_Offset_1
00ea e001       |    |		Load	0x0,0x1
00eb 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ec 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00ed c402       |    |		Store	0x2,0x2
00ee e5fe       |    |		Load	0x2,-0x2
00ef 00da       |    |		Load_Top	At_Offset_2
00f0 8216       |    |		Call	0x1,0x16
00f1 6802       |h   |		Jump_Zero	0xf4
00f2 4801       |H   |		Short_Literal	0x1
00f3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00f4 00d9       |    |		Load_Top	At_Offset_1
00f5 e002       |    |		Load	0x0,0x2
00f6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f7 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00f8 6802       |h   |		Jump_Zero	0xfb
00f9 4800       |H   |		Short_Literal	0x0
00fa 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00fb e5fd       |    |		Load	0x2,-0x3
00fc 7002       |p   |		Jump_Nonzero	0xff
00fd 4800       |H   |		Short_Literal	0x0
00fe 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00ff 00c9       |    |		Action	Pop_Auxiliary_Loop
0100 7fe8       |    |		Jump	0xe9
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0111       |    |		.CONST	0x0111								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0002       |    |		.CONST	0x0002								; Number of locals
010b			INIT_0108:
010b e002       |    |		Load	0x0,0x2
010c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
010d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010e 02c7       |    |		Declare_Variable	Any
010f 00db       |    |		Load_Top	At_Offset_3
0110 a402       |    |		Store_Unchecked	0x2,0x2
0111			BODY_0108:
0111 00d8       |    |		Load_Top	At_Offset_0
0112 e001       |    |		Load	0x0,0x1
0113 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0114 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0115 7005       |p   |		Jump_Nonzero	0x11b
0116 00d8       |    |		Load_Top	At_Offset_0
0117 e001       |    |		Load	0x0,0x1
0118 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0119 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
011a 6802       |h   |		Jump_Zero	0x11d
011b e20e       |    |		Load	0x1,0xe
011c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
011d 00db       |    |		Load_Top	At_Offset_3
011e e002       |    |		Load	0x0,0x2
011f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0120 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0121 6802       |h   |		Jump_Zero	0x124
0122 e20e       |    |		Load	0x1,0xe
0123 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0124 00cf       |    |		Action	Mark_Auxiliary
0125 00d9       |    |		Load_Top	At_Offset_1
0126 e001       |    |		Load	0x0,0x1
0127 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0128 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0129 c402       |    |		Store	0x2,0x2
012a e5fe       |    |		Load	0x2,-0x2
012b 00da       |    |		Load_Top	At_Offset_2
012c 8216       |    |		Call	0x1,0x16
012d 6802       |h   |		Jump_Zero	0x130
012e 00d9       |    |		Load_Top	At_Offset_1
012f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0130 00d9       |    |		Load_Top	At_Offset_1
0131 e002       |    |		Load	0x0,0x2
0132 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0133 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0134 6802       |h   |		Jump_Zero	0x137
0135 e20e       |    |		Load	0x1,0xe
0136 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0137 e5fd       |    |		Load	0x2,-0x3
0138 7002       |p   |		Jump_Nonzero	0x13b
0139 e20e       |    |		Load	0x1,0xe
013a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
013b 00c9       |    |		Action	Pop_Auxiliary_Loop
013c 7fe8       |    |		Jump	0x125
013d 0000 0000  |    |		.XXX[0x3]
013f 0000       |    |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2
0144 461f       |F   |		Jump_Case	0x20
0145 781f       |x   |		Jump	0x165								; case 0x0
0146 7820       |x   |		Jump	0x167								; case 0x1
0147 7822       |x"  |		Jump	0x16a								; case 0x2
0148 7824       |x$  |		Jump	0x16d								; case 0x3
0149 7823       |x#  |		Jump	0x16d								; case 0x4
014a 7825       |x%  |		Jump	0x170								; case 0x5
014b 7827       |x'  |		Jump	0x173								; case 0x6
014c 7829       |x)  |		Jump	0x176								; case 0x7
014d 782b       |x+  |		Jump	0x179								; case 0x8
014e 7816       |x   |		Jump	0x165								; case 0x9
014f 782c       |x,  |		Jump	0x17c								; case 0xa
0150 782e       |x.  |		Jump	0x17f								; case 0xb
0151 7830       |x0  |		Jump	0x182								; case 0xc
0152 782f       |x/  |		Jump	0x182								; case 0xd
0153 782e       |x.  |		Jump	0x182								; case 0xe
0154 782d       |x-  |		Jump	0x182								; case 0xf
0155 782f       |x/  |		Jump	0x185								; case 0x10
0156 782e       |x.  |		Jump	0x185								; case 0x11
0157 782d       |x-  |		Jump	0x185								; case 0x12
0158 782f       |x/  |		Jump	0x188								; case 0x13
0159 782e       |x.  |		Jump	0x188								; case 0x14
015a 782d       |x-  |		Jump	0x188								; case 0x15
015b 782f       |x/  |		Jump	0x18b								; case 0x16
015c 782e       |x.  |		Jump	0x18b								; case 0x17
015d 7807       |x   |		Jump	0x165								; case 0x18
015e 782f       |x/  |		Jump	0x18e								; case 0x19
015f 7831       |x1  |		Jump	0x191								; case 0x1a
0160 7833       |x3  |		Jump	0x194								; case 0x1b
0161 7835       |x5  |		Jump	0x197								; case 0x1c
0162 7802       |x   |		Jump	0x165								; case 0x1d
0163 7801       |x   |		Jump	0x165								; case 0x1e
0164 7800       |x   |		Jump	0x165								; case 0x1f
0165 00ea       |    |		Load_Encached	Null_String_Cache
0166 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0167 0092 02b4  |    |		Action	Push_String_Extended,0x2b4					; "'C(LIBRARY)"
0169 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016a 0092 02b5  |    |		Action	Push_String_Extended,0x2b5					; "'C(DIRECTORY)"
016c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016d 0092 02b6  |    |		Action	Push_String_Extended,0x2b6					; "'C(WORLD)"
016f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0170 0092 02b7  |    |		Action	Push_String_Extended,0x2b7					; "'C(SYSTEM)"
0172 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0173 0092 02b8  |    |		Action	Push_String_Extended,0x2b8					; "'C(SUBSYSTEM,COMBINED_SUBSYSTEM)"
0175 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0176 0092 02b9  |    |		Action	Push_String_Extended,0x2b9					; "'C(SUBSYSTEM)"
0178 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0179 0092 02ba  |    |		Action	Push_String_Extended,0x2ba					; "'C(COMBINED_SUBSYSTEM)"
017b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017c 0092 02bb  |    |		Action	Push_String_Extended,0x2bb					; "'C(SPEC_VIEW,LOAD_VIEW,COMBINED_VIEW,SYSTEM_VIEW)"
017e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017f 0092 02bc  |    |		Action	Push_String_Extended,0x2bc					; "'C(SPEC_VIEW)"
0181 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0182 0092 02bd  |    |		Action	Push_String_Extended,0x2bd					; "'C(LOAD_VIEW)"
0184 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0185 0092 02be  |    |		Action	Push_String_Extended,0x2be					; "'C(COMBINED_VIEW)"
0187 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0188 0092 02bf  |    |		Action	Push_String_Extended,0x2bf					; "'C(SYSTEM_VIEW)"
018a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018b 0092 02c0  |    |		Action	Push_String_Extended,0x2c0					; "'C(LOAD_VIEW,COMBINED_VIEW,SYSTEM_VIEW)"
018d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018e 0092 02c1  |    |		Action	Push_String_Extended,0x2c1					; "'C(~LIBRARY)"
0190 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0191 0092 02c2  |    |		Action	Push_String_Extended,0x2c2					; "'C(ADA)"
0193 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0194 0092 02c3  |    |		Action	Push_String_Extended,0x2c3					; "'C(FILE)"
0196 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0197 0092 02c4  |    |		Action	Push_String_Extended,0x2c4					; "'C(~LIBRARY)'C(~ADA)'C(~FILE)"
0199 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019a 0000 0000  |    |		.BLANK	0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 e5fd       |    |		Load	0x2,-0x3
01a4 6812       |h   |		Jump_Zero	0x1b7
01a5 4801       |H   |		Short_Literal	0x1
01a6 e001       |    |		Load	0x0,0x1
01a7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a9 e5ff       |    |		Load	0x2,-0x1
01aa e001       |    |		Load	0x0,0x1
01ab 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ac 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01ad 0092 02c5  |    |		Action	Push_String_Extended,0x2c5					; ".@??"
01af 01cc       |    |		Execute	Vector,Catenate
01b0 e5fe       |    |		Load	0x2,-0x2
01b1 8214       |    |		Call	0x1,0x14
01b2 01cc       |    |		Execute	Vector,Catenate
01b3 e001       |    |		Load	0x0,0x1
01b4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b5 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
01b6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01b7 4801       |H   |		Short_Literal	0x1
01b8 e001       |    |		Load	0x0,0x1
01b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ba 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01bb e5ff       |    |		Load	0x2,-0x1
01bc e001       |    |		Load	0x0,0x1
01bd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01be 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01bf 0092 02c6  |    |		Action	Push_String_Extended,0x2c6					; ".@"
01c1 01cc       |    |		Execute	Vector,Catenate
01c2 e5fe       |    |		Load	0x2,-0x2
01c3 8214       |    |		Call	0x1,0x14
01c4 01cc       |    |		Execute	Vector,Catenate
01c5 e001       |    |		Load	0x0,0x1
01c6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01c7 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
01c8 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01c9 0000 0000  |    |		.BLANK	0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00db       |    |		Load_Top	At_Offset_3
01d4 461f       |F   |		Jump_Case	0x20
01d5 7824       |x$  |		Jump	0x1fa								; case 0x0
01d6 7825       |x%  |		Jump	0x1fc								; case 0x1
01d7 7829       |x)  |		Jump	0x201								; case 0x2
01d8 782d       |x-  |		Jump	0x206								; case 0x3
01d9 7831       |x1  |		Jump	0x20b								; case 0x4
01da 7835       |x5  |		Jump	0x210								; case 0x5
01db 7839       |x9  |		Jump	0x215								; case 0x6
01dc 783d       |x=  |		Jump	0x21a								; case 0x7
01dd 7841       |xA  |		Jump	0x21f								; case 0x8
01de 7845       |xE  |		Jump	0x224								; case 0x9
01df 7849       |xI  |		Jump	0x229								; case 0xa
01e0 784d       |xM  |		Jump	0x22e								; case 0xb
01e1 7851       |xQ  |		Jump	0x233								; case 0xc
01e2 7855       |xU  |		Jump	0x238								; case 0xd
01e3 7859       |xY  |		Jump	0x23d								; case 0xe
01e4 785d       |x]  |		Jump	0x242								; case 0xf
01e5 7861       |xa  |		Jump	0x247								; case 0x10
01e6 7865       |xe  |		Jump	0x24c								; case 0x11
01e7 7869       |xi  |		Jump	0x251								; case 0x12
01e8 786d       |xm  |		Jump	0x256								; case 0x13
01e9 7871       |xq  |		Jump	0x25b								; case 0x14
01ea 7875       |xu  |		Jump	0x260								; case 0x15
01eb 7879       |xy  |		Jump	0x265								; case 0x16
01ec 787d       |x}  |		Jump	0x26a								; case 0x17
01ed 7881       |x   |		Jump	0x26f								; case 0x18
01ee 7885       |x   |		Jump	0x274								; case 0x19
01ef 7889       |x   |		Jump	0x279								; case 0x1a
01f0 788d       |x   |		Jump	0x27e								; case 0x1b
01f1 7891       |x   |		Jump	0x283								; case 0x1c
01f2 7895       |x   |		Jump	0x288								; case 0x1d
01f3 7899       |x   |		Jump	0x28d								; case 0x1e
01f4 7800       |x   |		Jump	0x1f5								; case 0x1f
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 e002       |    |		Load	0x0,0x2
01f7 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01f8 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01f9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01fa 4801       |H   |		Short_Literal	0x1
01fb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01fc 00da       |    |		Load_Top	At_Offset_2
01fd e002       |    |		Load	0x0,0x2
01fe 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01ff 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
0200 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0201 00da       |    |		Load_Top	At_Offset_2
0202 e002       |    |		Load	0x0,0x2
0203 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0204 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0205 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0206 00da       |    |		Load_Top	At_Offset_2
0207 e002       |    |		Load	0x0,0x2
0208 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0209 184c       | L  |		Execute	Package,Field_Execute,Field_Number 0x4c
020a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
020b 00da       |    |		Load_Top	At_Offset_2
020c e002       |    |		Load	0x0,0x2
020d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
020e 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
020f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0210 00da       |    |		Load_Top	At_Offset_2
0211 e002       |    |		Load	0x0,0x2
0212 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0213 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
0214 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0215 00da       |    |		Load_Top	At_Offset_2
0216 e002       |    |		Load	0x0,0x2
0217 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0218 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0219 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021a 00da       |    |		Load_Top	At_Offset_2
021b e002       |    |		Load	0x0,0x2
021c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
021d 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
021e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021f 00da       |    |		Load_Top	At_Offset_2
0220 e002       |    |		Load	0x0,0x2
0221 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0222 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
0223 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0224 00da       |    |		Load_Top	At_Offset_2
0225 e002       |    |		Load	0x0,0x2
0226 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0227 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0228 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0229 00da       |    |		Load_Top	At_Offset_2
022a e002       |    |		Load	0x0,0x2
022b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
022c 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
022d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
022e 00da       |    |		Load_Top	At_Offset_2
022f e002       |    |		Load	0x0,0x2
0230 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0231 1855       | U  |		Execute	Package,Field_Execute,Field_Number 0x55
0232 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0233 00da       |    |		Load_Top	At_Offset_2
0234 e002       |    |		Load	0x0,0x2
0235 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0236 1856       | V  |		Execute	Package,Field_Execute,Field_Number 0x56
0237 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0238 00da       |    |		Load_Top	At_Offset_2
0239 e002       |    |		Load	0x0,0x2
023a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
023b 1857       | W  |		Execute	Package,Field_Execute,Field_Number 0x57
023c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
023d 00da       |    |		Load_Top	At_Offset_2
023e e002       |    |		Load	0x0,0x2
023f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0240 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0241 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0242 00da       |    |		Load_Top	At_Offset_2
0243 e002       |    |		Load	0x0,0x2
0244 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0245 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
0246 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0247 00da       |    |		Load_Top	At_Offset_2
0248 e002       |    |		Load	0x0,0x2
0249 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
024a 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
024b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
024c 00da       |    |		Load_Top	At_Offset_2
024d e002       |    |		Load	0x0,0x2
024e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
024f 185b       | [  |		Execute	Package,Field_Execute,Field_Number 0x5b
0250 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0251 00da       |    |		Load_Top	At_Offset_2
0252 e002       |    |		Load	0x0,0x2
0253 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0254 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
0255 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0256 00da       |    |		Load_Top	At_Offset_2
0257 e002       |    |		Load	0x0,0x2
0258 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0259 185d       | ]  |		Execute	Package,Field_Execute,Field_Number 0x5d
025a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
025b 00da       |    |		Load_Top	At_Offset_2
025c e002       |    |		Load	0x0,0x2
025d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
025e 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
025f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0260 00da       |    |		Load_Top	At_Offset_2
0261 e002       |    |		Load	0x0,0x2
0262 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0263 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0264 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0265 00da       |    |		Load_Top	At_Offset_2
0266 e002       |    |		Load	0x0,0x2
0267 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0268 1860       | `  |		Execute	Package,Field_Execute,Field_Number 0x60
0269 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
026a 00da       |    |		Load_Top	At_Offset_2
026b e002       |    |		Load	0x0,0x2
026c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
026d 1861       | a  |		Execute	Package,Field_Execute,Field_Number 0x61
026e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
026f 00da       |    |		Load_Top	At_Offset_2
0270 e002       |    |		Load	0x0,0x2
0271 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0272 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0273 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0274 00da       |    |		Load_Top	At_Offset_2
0275 e002       |    |		Load	0x0,0x2
0276 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0277 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0278 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0279 00da       |    |		Load_Top	At_Offset_2
027a e002       |    |		Load	0x0,0x2
027b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
027c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
027d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
027e 00da       |    |		Load_Top	At_Offset_2
027f e002       |    |		Load	0x0,0x2
0280 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0281 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0282 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0283 00da       |    |		Load_Top	At_Offset_2
0284 e002       |    |		Load	0x0,0x2
0285 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0286 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0287 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0288 00da       |    |		Load_Top	At_Offset_2
0289 e002       |    |		Load	0x0,0x2
028a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
028b 1867       | g  |		Execute	Package,Field_Execute,Field_Number 0x67
028c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
028d 00da       |    |		Load_Top	At_Offset_2
028e e002       |    |		Load	0x0,0x2
028f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0290 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0291 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0292 ; --------------------------------------------------------------------------------------
0292 ; STRING TABLE
0292 ; --------------------------------------------------------------------------------------
0292 006c       | l  |		.STRTAB	0x006c->0x02c8							; "ANYTHING"
0293 0072       | r  |		.STRTAB	0x0072->0x02cc							; "LIBRARY"
0294 0077       | w  |		.STRTAB	0x0077->0x02cf							; "DIRECTORY"
0295 007e       | ~  |		.STRTAB	0x007e->0x02d4							; "WORLD"
0296 0081       |    |		.STRTAB	0x0081->0x02d6							; "SIMPLE_WORLD"
0297 008b       |    |		.STRTAB	0x008b->0x02dc							; "SYSTEM"
0298 008f       |    |		.STRTAB	0x008f->0x02df							; "SUBSYSTEM"
0299 0096       |    |		.STRTAB	0x0096->0x02e4							; "SPEC_LOAD_SUBSYSTEM"
029a 00a7       |    |		.STRTAB	0x00a7->0x02ed							; "COMBINED_SUBSYSTEM"
029b 00b7       |    |		.STRTAB	0x00b7->0x02f6							; "ROOT"
029c 00b9       |    |		.STRTAB	0x00b9->0x02f8							; "VIEW"
029d 00bb       |    |		.STRTAB	0x00bb->0x02fa							; "SPEC_VIEW"
029e 00c2       |    |		.STRTAB	0x00c2->0x02ff							; "LOAD_VIEW"
029f 00c9       |    |		.STRTAB	0x00c9->0x0303							; "WORKING_LOAD_VIEW"
02a0 00d8       |    |		.STRTAB	0x00d8->0x030c							; "RELEASED_LOAD_VIEW"
02a1 00e8       |    |		.STRTAB	0x00e8->0x0315							; "CODE_ONLY_LOAD_VIEW"
02a2 00f9       |    |		.STRTAB	0x00f9->0x031e							; "COMBINED_VIEW"
02a3 0104       |    |		.STRTAB	0x0104->0x0325							; "WORKING_COMBINED_VIEW"
02a4 0117       |    |		.STRTAB	0x0117->0x032f							; "RELEASED_COMBINED_VIEW"
02a5 012b       | +  |		.STRTAB	0x012b->0x033a							; "SYSTEM_VIEW"
02a6 0134       | 4  |		.STRTAB	0x0134->0x0340							; "WORKING_SYSTEM_VIEW"
02a7 0145       | E  |		.STRTAB	0x0145->0x0349							; "RELEASED_SYSTEM_VIEW"
02a8 0157       | W  |		.STRTAB	0x0157->0x0353							; "WORKING_VIEW"
02a9 0161       | a  |		.STRTAB	0x0161->0x0359							; "RELEASED_VIEW"
02aa 016c       | l  |		.STRTAB	0x016c->0x0360							; "UNITS_DIRECTORY_OF_VIEW"
02ab 0181       |    |		.STRTAB	0x0181->0x036b							; "SIMPLE_OBJECT"
02ac 018c       |    |		.STRTAB	0x018c->0x0372							; "ADA_UNIT"
02ad 0192       |    |		.STRTAB	0x0192->0x0376							; "FILE"
02ae 0194       |    |		.STRTAB	0x0194->0x0378							; "MISC_SIMPLE_OBJECT"
02af 01a4       |    |		.STRTAB	0x01a4->0x0381							; "FROZEN"
02b0 01a8       |    |		.STRTAB	0x01a8->0x0384							; "CONTROLLED"
02b1 01b0       |    |		.STRTAB	0x01b0->0x0389							; "CHECKED_OUT"
02b2 01b9       |    |		.STRTAB	0x01b9->0x038e							; "*** THIS IS A BAD OBJECT ***"
02b3 01d3       |    |		.STRTAB	0x01d3->0x039c							; "*** THESE ARE BAD OBJECTS ***"
02b4 01ee       |    |		.STRTAB	0x01ee->0x03ab							; "'C(LIBRARY)"
02b5 01f7       |    |		.STRTAB	0x01f7->0x03b0							; "'C(DIRECTORY)"
02b6 0202       |    |		.STRTAB	0x0202->0x03b7							; "'C(WORLD)"
02b7 0209       |    |		.STRTAB	0x0209->0x03bb							; "'C(SYSTEM)"
02b8 0211       |    |		.STRTAB	0x0211->0x03c0							; "'C(SUBSYSTEM,COMBINED_SUBSYSTEM)"
02b9 022f       | /  |		.STRTAB	0x022f->0x03d0							; "'C(SUBSYSTEM)"
02ba 023a       | :  |		.STRTAB	0x023a->0x03d7							; "'C(COMBINED_SUBSYSTEM)"
02bb 024e       | N  |		.STRTAB	0x024e->0x03e2							; "'C(SPEC_VIEW,LOAD_VIEW,COMBINED_VIEW,SYSTEM_VIEW)"
02bc 027d       | }  |		.STRTAB	0x027d->0x03fa							; "'C(SPEC_VIEW)"
02bd 0288       |    |		.STRTAB	0x0288->0x0401							; "'C(LOAD_VIEW)"
02be 0293       |    |		.STRTAB	0x0293->0x0407							; "'C(COMBINED_VIEW)"
02bf 02a2       |    |		.STRTAB	0x02a2->0x0410							; "'C(SYSTEM_VIEW)"
02c0 02af       |    |		.STRTAB	0x02af->0x0417							; "'C(LOAD_VIEW,COMBINED_VIEW,SYSTEM_VIEW)"
02c1 02d4       |    |		.STRTAB	0x02d4->0x042b							; "'C(~LIBRARY)"
02c2 02de       |    |		.STRTAB	0x02de->0x0431							; "'C(ADA)"
02c3 02e3       |    |		.STRTAB	0x02e3->0x0434							; "'C(FILE)"
02c4 02e9       |    |		.STRTAB	0x02e9->0x0438							; "'C(~LIBRARY)'C(~ADA)'C(~FILE)"
02c5 0304       |    |		.STRTAB	0x0304->0x0447							; ".@??"
02c6 0306       |    |		.STRTAB	0x0306->0x0449							; ".@"
02c7 0306       |    |		.STREND 0x0306->0x044a
02c8 414e 5954  |ANYT|		.STRTAB_STRINGS
044a 0000 0000  |    |		.BLANK	0000[0x6]
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug Table
0450 ; --------------------------------------------------------------------------------------
0450 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0e4e,0x0000,0x0001,0x0000
0456 2240 0000  |"@  |		.XXX[0x1aa]
0458 3277 8efe  |2w  |
045a 82cc b980  |    |
045c 62cc f980  |b   |
045e 6202 4000  |b @ |
0460 648a 0000  |d   |
0462 6b81 3884  |k 8 |
0464 1f49 3884  | I8 |
0466 1e02 4000  |  @ |
0468 244a 0000  |$J  |
046a ae50 4080  | P@ |
046c 0750 b884  | P  |
046e 1f59 3884  | Y8 |
0470 2a02 4000  |* @ |
0472 2c0a 0000  |,   |
0474 9804 0000  |    |
0476 0360 1885  | `  |
0478 4368 1883  |Ch  |
047a 6202 8c00  |b   |
047c 34ca 0000  |4   |
047e 1e50 4080  | P@ |
0480 0779 3884  | y8 |
0482 0e02 4000  |  @ |
0484 3c4a 0000  |<J  |
0486 7404 0000  |t   |
0488 0250 4080  | P@ |
048a 0648 4080  | H@ |
048c 0100 0004  |    |
048e 7e40 4000  |~@@ |
0490 6042 0000  |`B  |
0492 5c04 0000  |\   |
0494 0202 4000  |  @ |
0496 400a 0000  |@   |
0498 5004 0000  |P   |
049a 0389 3884  |  8 |
049c 2a02 4000  |* @ |
049e 448a 0000  |D   |
04a0 4300 b884  |C   |
04a2 1f90 1885  |    |
04a4 4398 1883  |C   |
04a6 6202 9200  |b   |
04a8 4cca 0000  |L   |
04aa 1e50 4080  | P@ |
04ac 03a1 3884  |  8 |
04ae 0e02 4000  |  @ |
04b0 50ca 0000  |P   |
04b2 1f00 b884  |    |
04b4 1e50 4080  | P@ |
04b6 0248 4080  | H@ |
04b8 0100 0004  |    |
04ba 2640 4000  |&@@ |
04bc 6300 b884  |c   |
04be 1e07 1f80  |    |
04c0 2207 a000  |"   |
04c2 0277 8efe  | w  |
04c4 6240 4000  |b@@ |
04c6 61ff ffff  |a   |
04c8 2648 4080  |&H@ |
04ca 0202 9800  |    |
04cc 66e4 bc80  |f   |
04ce 600a 0000  |`   |
04d0 1ae4 fc80  |    |
04d2 6349 3884  |cI8 |
04d4 1f48 b984  | H  |
04d6 1f51 3884  | Q8 |
04d8 1b50 b984  | P  |
04da 1900 01d1  |    |
04dc c740 1883  | @  |
04de 4202 4000  |B @ |
04e0 688a 0000  |h   |
04e2 1f48 1984  | H  |
04e4 d250 4000  | P@ |
04e6 6e48 4000  |nH@ |
04e8 6900 0067  |i  g|
04ea ae40 4000  | @@ |
04ec 6748 1984  |gH  |
04ee d350 1984  | P  |
04f0 e258 4080  | X@ |
04f2 0100 008a  |    |
04f4 7e40 4000  |~@@ |
04f6 6602 4000  |f @ |
04f8 708a 0000  |p   |
04fa 0fc0 1983  |    |
04fc 62c0 4080  |b @ |
04fe 0258 4080  | X@ |
0500 0758 b984  | X  |
0502 3760 5981  |7`Y |
0504 e368 5983  | hY |
0506 5380 5982  |S Y |
0508 3268 0d00  |2h  |
050a 3268 0d00  |2h  |
050c 4368 9984  |Ch  |
050e 7391 3983  |s 9 |
0510 f202 4000  |  @ |
0512 488a 0000  |H   |
0514 1a50 4080  | P@ |
0516 0100 0018  |    |
0518 7240 4000  |r@@ |
051a 6442 0000  |dB  |
051c 3698 4080  |6 @ |
051e 0a48 4000  | H@ |
0520 6100 0014  |a   |
0522 fa40 4000  | @@ |
0524 6602 4000  |f @ |
0526 20ca 0000  |    |
0528 1e98 4080  |  @ |
052a 0b50 1984  | P  |
052c 9248 4080  | H@ |
052e 0100 000c  |    |
0530 b640 4000  | @@ |
0532 6698 4080  |f @ |
0534 0b98 9eff  |    |
0536 e300 9eff  |    |
0538 f348 1983  | H  |
053a 3240 4000  |2@@ |
053c 6500 01da  |e   |
053e 2e50 1eff  |.P  |
0540 e240 4000  | @@ |
0542 6500 0081  |e   |
0544 f648 4000  | H@ |
0546 6240 4000  |b@@ |
0548 65ff fffe  |e   |
054a 2248 4080  |"H@ |
054c 0607 1f80  |    |
054e 2207 a000  |"   |
0550 0277 8efe  | w  |
0552 83e0 1886  |    |
0554 3240 4000  |2@@ |
0556 61ff fffd  |a   |
0558 c248 4000  | H@ |
055a 66e8 4000  |f @ |
055c 2340 1d00  |#@  |
055e 0202 8800  |    |
0560 64ca 0000  |d   |
0562 1360 1886  | `  |
0564 1042 0000  | B  |
0566 abd0 9d80  |    |
0568 12e8 9d00  |    |
056a 7260 0c80  |r`  |
056c 0760 9886  | `  |
056e 1368 1886  | h  |
0570 1378 1886  | x  |
0572 22ec fd80  |"   |
0574 0e02 8d00  |    |
0576 3c22 0000  |<"  |
0578 2ab8 1d80  |*   |
057a 0780 1886  |    |
057c 1240 4000  | @@ |
057e 7380 9886  |s   |
0580 2348 1886  |#H  |
0582 2100 01cf  |!   |
0584 fe4c a980  | L  |
0586 0ee0 4000  |  @ |
0588 23e0 9886  |#   |
058a 33c0 1886  |3   |
058c 12c0 9880  |    |
058e 0602 9800  |    |
0590 5c92 0000  |\   |
0592 46bc b780  |F   |
0594 0edc b780  |    |
0596 0eec b880  |    |
0598 0ec0 1d00  |    |
059a 72d8 1b00  |r   |
059c 7248 4000  |rH@ |
059e 62e8 9d80  |b   |
05a0 2240 1c00  |"@  |
05a2 7750 0800  |wP  |
05a4 0340 0880  | @  |
05a6 12c0 9880  |    |
05a8 2202 9800  |"   |
05aa 6f50 8980  |oP  |
05ac 0062 ffff  | b  |
05ae e340 8980  | @  |
05b0 12bc b780  |    |
05b2 0ee0 1c00  |    |
05b4 5fc8 9c00  |_   |
05b6 03d0 9c80  |    |
05b8 1207 1f80  |    |
05ba 2207 a000  |"   |
05bc 0277 8efe  | w  |
05be 8202 9900  |    |
05c0 685a 0000  |hZ  |
05c2 fe02 4000  |  @ |
05c4 6812 0000  |h   |
05c6 f648 4000  | H@ |
05c8 69ff fffc  |i   |
05ca de40 4000  | @@ |
05cc 6340 0880  |c@  |
05ce 1248 4000  | H@ |
05d0 66e8 4000  |f @ |
05d2 2240 4000  |"@@ |
05d4 61ff fffe  |a   |
05d6 fa50 4000  | P@ |
05d8 6e40 4000  |n@@ |
05da 6248 4000  |bH@ |
05dc 69ff fffe  |i   |
05de ea50 4000  | P@ |
05e0 77a0 1886  |w   |
05e2 3350 1886  |3P  |
05e4 12b0 4080  |  @ |
05e6 0602 9600  |    |
05e8 2aa8 4080  |* @ |
05ea 206a 0000  | j  |
05ec aab8 1500  |    |
05ee 5358 1700  |SX  |
05f0 0202 8b00  |    |
05f2 649a 0000  |d   |
05f4 2268 9580  |"h  |
05f6 2360 1700  |#`  |
05f8 0202 8c00  |    |
05fa 68da 0000  |h   |
05fc 1268 9580  | h  |
05fe 23d8 9780  |#   |