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

⟦d39e1a192⟧

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

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 400a 0000  |@   |		.XXX[0xb]
0458 0000 0000  |    |
045a 0080 0000  |    |
045c 0440 0000  | @  |
045e 0002 0000  |    |
0460 0014       |    |
0461 0000 0000  |    |		.BLANK	0000[0x2e]
048f 0801 4000  |  @ |		.XXX[0xc]
0491 0000 0000  |    |
0493 0010 0000  |    |
0495 0088 0000  |    |
0497 0000 4000  |  @ |
0499 0002 8000  |    |
049b 0000 0000  |    |		.BLANK	0000[0x2d]
04c8 0100 2800  |  ( |		.XXX[0xc]
04ca 0000 0000  |    |
04cc 0002 0000  |    |
04ce 0011 0000  |    |
04d0 0000 0800  |    |
04d2 0000 5000  |  P |
04d4 0000 0000  |    |		.BLANK	0000[0x2d]
0501 0020 0500  |    |		.XXX[0xc]
0503 0000 0000  |    |
0505 0000 4000  |  @ |
0507 0002 2000  |    |
0509 0000 0100  |    |
050b 0000 0a00  |    |
050d 0000 0000  |    |		.BLANK	0000[0x2d]
053a 0004 00a0  |    |		.XXX[0xc]
053c 0000 0000  |    |
053e 0000 0800  |    |
0540 0000 4400  |  D |
0542 0000 0020  |    |
0544 0000 0140  |   @|
0546 0000 0000  |    |		.BLANK	0000[0x2e]
0574 8014 0000  |    |		.XXX[0xb]
0576 0000 0000  |    |
0578 0100 0000  |    |
057a 0880 0000  |    |
057c 0004 0000  |    |
057e 0028       | (  |
057f 0000 0000  |    |		.BLANK	0000[0x2e]
05ad 1002 8000  |    |		.XXX[0xb]
05af 0000 0000  |    |
05b1 0020 0000  |    |
05b3 0110 0000  |    |
05b5 0000 8000  |    |
05b7 0005       |    |
05b8 0000 0000  |    |		.BLANK	0000[0x48]