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

⟦654990d3a⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5

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 0608       |    |		.CONST	0x0608								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 009c       |    |		.CONST	0x009c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0029       | )  |		.CONST	0x0029								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 4800       |H   |		Short_Literal	0x0
0029 4840       |H@  |		Short_Literal	0x40
002a 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
002c 03fe       |    |		Declare_Type	Discrete,Defined,Visible
002d c228       | (  |		Store	0x1,0x28
002e 4800       |H   |		Short_Literal	0x0
002f 4808       |H   |		Short_Literal	0x8
0030 029f 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call
0032 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0033 c20e       |    |		Store	0x1,0xe
0034 4801       |H   |		Short_Literal	0x1
0035 4802       |H   |		Short_Literal	0x2
0036 e20e       |    |		Load	0x1,0xe
0037 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0038 c20f       |    |		Store	0x1,0xf
0039 4803       |H   |		Short_Literal	0x3
003a 4808       |H   |		Short_Literal	0x8
003b e20e       |    |		Load	0x1,0xe
003c 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
003d c210       |    |		Store	0x1,0x10
003e 4801       |H   |		Short_Literal	0x1
003f 4803       |H   |		Short_Literal	0x3
0040 e20e       |    |		Load	0x1,0xe
0041 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0042 c211       |    |		Store	0x1,0x11
0043 4804       |H   |		Short_Literal	0x4
0044 4808       |H   |		Short_Literal	0x8
0045 e20e       |    |		Load	0x1,0xe
0046 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0047 c212       |    |		Store	0x1,0x12
0048 4801       |H   |		Short_Literal	0x1
0049 4804       |H   |		Short_Literal	0x4
004a e20e       |    |		Load	0x1,0xe
004b 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
004c c213       |    |		Store	0x1,0x13
004d 4805       |H   |		Short_Literal	0x5
004e 4808       |H   |		Short_Literal	0x8
004f e20e       |    |		Load	0x1,0xe
0050 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0051 c214       |    |		Store	0x1,0x14
0052 4800       |H   |		Short_Literal	0x0
0053 4838       |H8  |		Short_Literal	0x38
0054 029f 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Call
0056 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0057 c229       | )  |		Store	0x1,0x29
0058 4801       |H   |		Short_Literal	0x1
0059 480b       |H   |		Short_Literal	0xb
005a 00da       |    |		Load_Top	At_Offset_2
005b 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
005c c216       |    |		Store	0x1,0x16
005d 480c       |H   |		Short_Literal	0xc
005e 4822       |H"  |		Short_Literal	0x22
005f 00da       |    |		Load_Top	At_Offset_2
0060 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0061 c223       | #  |		Store	0x1,0x23
0062 4823       |H#  |		Short_Literal	0x23
0063 482f       |H/  |		Short_Literal	0x2f
0064 00da       |    |		Load_Top	At_Offset_2
0065 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0066 c218       |    |		Store	0x1,0x18
0067 4830       |H0  |		Short_Literal	0x30
0068 4836       |H6  |		Short_Literal	0x36
0069 00da       |    |		Load_Top	At_Offset_2
006a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
006b c219       |    |		Store	0x1,0x19
006c 4837       |H7  |		Short_Literal	0x37
006d 4838       |H8  |		Short_Literal	0x38
006e 00da       |    |		Load_Top	At_Offset_2
006f 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0070 c21a       |    |		Store	0x1,0x1a
0071 4800       |H   |		Short_Literal	0x0
0072 480d       |H   |		Short_Literal	0xd
0073 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
0075 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0076 c21b       |    |		Store	0x1,0x1b
0077 029c 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible
0079 029c 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible
007b 029c 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible
007d 029c 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible
007f c21f       |    |		Store	0x1,0x1f
0080 c21e       |    |		Store	0x1,0x1e
0081 c21d       |    |		Store	0x1,0x1d
0082 c21c       |    |		Store	0x1,0x1c
0083 e001       |    |		Load	0x0,0x1
0084 e002       |    |		Load	0x0,0x2
0085 00db       |    |		Load_Top	At_Offset_3
0086 e20e       |    |		Load	0x1,0xe
0087 e229       | )  |		Load	0x1,0x29
0088 e21b       |    |		Load	0x1,0x1b
0089 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
008a 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
008b 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
008c 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
008d e003       |    |		Load	0x0,0x3
008e 1922       | "  |		Execute	Package,Field_Reference,Field_Number 0x22
008f e003       |    |		Load	0x0,0x3
0090 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0091 e003       |    |		Load	0x0,0x3
0092 1923       | #  |		Execute	Package,Field_Reference,Field_Number 0x23
0093 e003       |    |		Load	0x0,0x3
0094 1924       | $  |		Execute	Package,Field_Reference,Field_Number 0x24
0095 e003       |    |		Load	0x0,0x3
0096 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0097 0386       |    |		Declare_Variable	Package,Visible
0098 00d8       |    |		Load_Top	At_Offset_0
0099 020f       |    |		Execute	Module,Activate
009a c220       |    |		Store	0x1,0x20
009b 00bf       |    |		Action	Accept_Activation
009c			BODY_0008:
009c 00bc       |    |		Action	Signal_Activated
009d 00bb       |    |		Action	Signal_Completion
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4607       |F   |		Jump_Case	0x8
00a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00a5 7806       |x   |		Jump	0xac								; case 0x1
00a6 7809       |x   |		Jump	0xb0								; case 0x2
00a7 780d       |x   |		Jump	0xb5								; case 0x3
00a8 7810       |x   |		Jump	0xb9								; case 0x4
00a9 7811       |x   |		Jump	0xbb								; case 0x5
00aa 7812       |x   |		Jump	0xbd								; case 0x6
00ab 7815       |x   |		Jump	0xc1								; case 0x7
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 0091 0160  |   `|		Action	Push_String_Extended_Indexed,0x160				; "NIL"
00af 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b0 00db       |    |		Load_Top	At_Offset_3
00b1 00db       |    |		Load_Top	At_Offset_3
00b2 00e0       |    |		Load_Encached	Standard_Cache
00b3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b5 00da       |    |		Load_Top	At_Offset_2
00b6 00e0       |    |		Load_Encached	Standard_Cache
00b7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00bb 00db       |    |		Load_Top	At_Offset_3
00bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00bd e228       | (  |		Load	0x1,0x28
00be 00dc       |    |		Load_Top	At_Offset_4
00bf 0267       | g  |		Execute	Discrete,Predecessor
00c0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c1 e228       | (  |		Load	0x1,0x28
00c2 00dc       |    |		Load_Top	At_Offset_4
00c3 0268       | h  |		Execute	Discrete,Successor
00c4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 4607       |F   |		Jump_Case	0x8
00cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00cd 7806       |x   |		Jump	0xd4								; case 0x1
00ce 7809       |x   |		Jump	0xd8								; case 0x2
00cf 780d       |x   |		Jump	0xdd								; case 0x3
00d0 7810       |x   |		Jump	0xe1								; case 0x4
00d1 7811       |x   |		Jump	0xe3								; case 0x5
00d2 7812       |x   |		Jump	0xe5								; case 0x6
00d3 7815       |x   |		Jump	0xe9								; case 0x7
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 0091 01a1  |    |		Action	Push_String_Extended_Indexed,0x1a1				; "NIL"
00d7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d8 00db       |    |		Load_Top	At_Offset_3
00d9 00db       |    |		Load_Top	At_Offset_3
00da 00e0       |    |		Load_Encached	Standard_Cache
00db 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00dd 00da       |    |		Load_Top	At_Offset_2
00de 00e0       |    |		Load_Encached	Standard_Cache
00df 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e3 00db       |    |		Load_Top	At_Offset_3
00e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e5 e20e       |    |		Load	0x1,0xe
00e6 00dc       |    |		Load_Top	At_Offset_4
00e7 0267       | g  |		Execute	Discrete,Predecessor
00e8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e9 e20e       |    |		Load	0x1,0xe
00ea 00dc       |    |		Load_Top	At_Offset_4
00eb 0268       | h  |		Execute	Discrete,Successor
00ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ed 0000 0000  |    |		.XXX[0x3]
00ef 0000       |    |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 4607       |F   |		Jump_Case	0x8
00f4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00f5 7806       |x   |		Jump	0xfc								; case 0x1
00f6 7809       |x   |		Jump	0x100								; case 0x2
00f7 780d       |x   |		Jump	0x105								; case 0x3
00f8 7810       |x   |		Jump	0x109								; case 0x4
00f9 7811       |x   |		Jump	0x10b								; case 0x5
00fa 7812       |x   |		Jump	0x10d								; case 0x6
00fb 7815       |x   |		Jump	0x111								; case 0x7
00fc 00da       |    |		Load_Top	At_Offset_2
00fd 0091 01aa  |    |		Action	Push_String_Extended_Indexed,0x1aa				; "NIL"
00ff 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0100 00db       |    |		Load_Top	At_Offset_3
0101 00db       |    |		Load_Top	At_Offset_3
0102 00e0       |    |		Load_Encached	Standard_Cache
0103 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0104 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0105 00da       |    |		Load_Top	At_Offset_2
0106 00e0       |    |		Load_Encached	Standard_Cache
0107 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0108 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0109 00db       |    |		Load_Top	At_Offset_3
010a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010b 00db       |    |		Load_Top	At_Offset_3
010c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010d e229       | )  |		Load	0x1,0x29
010e 00dc       |    |		Load_Top	At_Offset_4
010f 0267       | g  |		Execute	Discrete,Predecessor
0110 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0111 e229       | )  |		Load	0x1,0x29
0112 00dc       |    |		Load_Top	At_Offset_4
0113 0268       | h  |		Execute	Discrete,Successor
0114 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0115 0000 0000  |    |		.XXX[0x3]
0117 0000       |    |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 4607       |F   |		Jump_Case	0x8
011c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
011d 7806       |x   |		Jump	0x124								; case 0x1
011e 7809       |x   |		Jump	0x128								; case 0x2
011f 780d       |x   |		Jump	0x12d								; case 0x3
0120 7810       |x   |		Jump	0x131								; case 0x4
0121 7811       |x   |		Jump	0x133								; case 0x5
0122 7812       |x   |		Jump	0x135								; case 0x6
0123 7815       |x   |		Jump	0x139								; case 0x7
0124 00da       |    |		Load_Top	At_Offset_2
0125 0091 01e3  |    |		Action	Push_String_Extended_Indexed,0x1e3				; "NIL"
0127 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0128 00db       |    |		Load_Top	At_Offset_3
0129 00db       |    |		Load_Top	At_Offset_3
012a 00e0       |    |		Load_Encached	Standard_Cache
012b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
012c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012d 00da       |    |		Load_Top	At_Offset_2
012e 00e0       |    |		Load_Encached	Standard_Cache
012f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0130 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0131 00db       |    |		Load_Top	At_Offset_3
0132 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0133 00db       |    |		Load_Top	At_Offset_3
0134 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0135 e21b       |    |		Load	0x1,0x1b
0136 00dc       |    |		Load_Top	At_Offset_4
0137 0267       | g  |		Execute	Discrete,Predecessor
0138 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0139 e21b       |    |		Load	0x1,0x1b
013a 00dc       |    |		Load_Top	At_Offset_4
013b 0268       | h  |		Execute	Discrete,Successor
013c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
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 e228       | (  |		Load	0x1,0x28
0145 011c       |    |		Execute	Any,Convert_Unchecked
0146 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0147 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 00da       |    |		Load_Top	At_Offset_2
014c e20e       |    |		Load	0x1,0xe
014d 011c       |    |		Execute	Any,Convert_Unchecked
014e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
014f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 e229       | )  |		Load	0x1,0x29
0155 011c       |    |		Execute	Any,Convert_Unchecked
0156 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0157 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2
015c e21b       |    |		Load	0x1,0x1b
015d 011c       |    |		Execute	Any,Convert_Unchecked
015e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
015f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0160 ; --------------------------------------------------------------------------------------
0160 ; STRING TABLE
0160 ; --------------------------------------------------------------------------------------
0160 0124       | $  |		.STRTAB	0x0124->0x01f2							; "NIL"
0161 0125       | %  |		.STRTAB	0x0125->0x01f3							; "COMPONENT_KIND"
0162 0131       | 1  |		.STRTAB	0x0131->0x01fa							; "REQUIREMENT"
0163 013a       | :  |		.STRTAB	0x013a->0x0200							; "SATISFIES"
0164 0141       | A  |		.STRTAB	0x0141->0x0204							; "DATA_STRUCTURE"
0165 014d       | M  |		.STRTAB	0x014d->0x020b							; "DATABASE_STRUCTURE"
0166 015d       | ]  |		.STRTAB	0x015d->0x0214							; "FILE_STRUCTURE"
0167 0169       | i  |		.STRTAB	0x0169->0x021b							; "INPUT"
0168 016c       | l  |		.STRTAB	0x016c->0x021e							; "OUTPUT"
0169 0170       | p  |		.STRTAB	0x0170->0x0221							; "ID"
016a 0170       | p  |		.STRTAB	0x0170->0x0222							; "ABBREVIATION"
016b 017a       | z  |		.STRTAB	0x017a->0x0228							; "DOCUMENT_NUMBERS"
016c 0188       |    |		.STRTAB	0x0188->0x0230							; "SYSTEM_CAPABILITIES"
016d 0199       |    |		.STRTAB	0x0199->0x0239							; "CAPABILITIES"
016e 01a3       |    |		.STRTAB	0x01a3->0x023f							; "CSC_INTERFACES"
016f 01af       |    |		.STRTAB	0x01af->0x0246							; "EXTERNAL_INTERFACES"
0170 01c0       |    |		.STRTAB	0x01c0->0x0250							; "INTERNAL_INTERFACES"
0171 01d1       |    |		.STRTAB	0x01d1->0x0259							; "INTERFACES_USED"
0172 01de       |    |		.STRTAB	0x01de->0x0261							; "DESCRIPTION"
0173 01e7       |    |		.STRTAB	0x01e7->0x0266							; "DIAGRAM"
0174 01ec       |    |		.STRTAB	0x01ec->0x026a							; "PURPOSE"
0175 01f1       |    |		.STRTAB	0x01f1->0x026d							; "DESIGN_REQUIREMENTS"
0176 0202       |    |		.STRTAB	0x0202->0x0277							; "DESIGN"
0177 0206       |    |		.STRTAB	0x0206->0x027a							; "MEMORY"
0178 020a       |    |		.STRTAB	0x020a->0x027d							; "TIME"
0179 020c       |    |		.STRTAB	0x020c->0x027f							; "ALGORITHM"
017a 0213       |    |		.STRTAB	0x0213->0x0283							; "CONTROL_FLOW"
017b 021d       |    |		.STRTAB	0x021d->0x0289							; "DATA_FLOW"
017c 0224       | $  |		.STRTAB	0x0224->0x028e							; "LIMITATIONS"
017d 022d       | -  |		.STRTAB	0x022d->0x0293							; "UTILIZATION"
017e 0236       | 6  |		.STRTAB	0x0236->0x0299							; "INITIATION"
017f 023e       | >  |		.STRTAB	0x023e->0x029e							; "RESPONSE"
0180 0244       | D  |		.STRTAB	0x0244->0x02a2							; "CONCURRENCY"
0181 024d       | M  |		.STRTAB	0x024d->0x02a7							; "PRIORITY"
0182 0253       | S  |		.STRTAB	0x0253->0x02ab							; "PROTOCOL"
0183 0259       | Y  |		.STRTAB	0x0259->0x02af							; "PROTOCOLS"
0184 0260       | `  |		.STRTAB	0x0260->0x02b4							; "DATA_SOURCE"
0185 0269       | i  |		.STRTAB	0x0269->0x02b9							; "APPLICABLE_CAPABILITY"
0186 027c       | |  |		.STRTAB	0x027c->0x02c4							; "SOURCE"
0187 0280       |    |		.STRTAB	0x0280->0x02c7							; "DESTINATION"
0188 0289       |    |		.STRTAB	0x0289->0x02cc							; "CRITICAL"
0189 028f       |    |		.STRTAB	0x028f->0x02d0							; "RAISES"
018a 0293       |    |		.STRTAB	0x0293->0x02d3							; "STATES"
018b 0297       |    |		.STRTAB	0x0297->0x02d6							; "ALLOCATION"
018c 029f       |    |		.STRTAB	0x029f->0x02db							; "DECOMPOSITION"
018d 02aa       |    |		.STRTAB	0x02aa->0x02e2							; "DATA_CONVERSION"
018e 02b7       |    |		.STRTAB	0x02b7->0x02e9							; "FORMAT"
018f 02bb       |    |		.STRTAB	0x02bb->0x02ec							; "ERRORS"
0190 02bf       |    |		.STRTAB	0x02bf->0x02ef							; "ERROR_HANDLING"
0191 02cb       |    |		.STRTAB	0x02cb->0x02f6							; "FREQUENCY"
0192 02d2       |    |		.STRTAB	0x02d2->0x02fb							; "LEGALITY_CHECK"
0193 02de       |    |		.STRTAB	0x02de->0x0302							; "INFORMATION_KIND"
0194 02ec       |    |		.STRTAB	0x02ec->0x030a							; "ASSERT"
0195 02f0       |    |		.STRTAB	0x02f0->0x030d							; "SIDE_EFFECT"
0196 02f9       |    |		.STRTAB	0x02f9->0x0312							; "NOTE"
0197 02fb       |    |		.STRTAB	0x02fb->0x0314							; "TRACEABILITY"
0198 0305       |    |		.STRTAB	0x0305->0x031a							; "UNITS_OF_MEASURE"
0199 0313       |    |		.STRTAB	0x0313->0x0322							; "LIMIT_RANGE"
019a 031c       |    |		.STRTAB	0x031c->0x0328							; "PRECISION"
019b 0323       | #  |		.STRTAB	0x0323->0x032c							; "PARAGRAPH_NUMBER"
019c 0331       | 1  |		.STRTAB	0x0331->0x0334							; "QUALIFICATION_METHOD"
019d 0343       | C  |		.STRTAB	0x0343->0x033e							; "QUALIFICATION_LEVEL"
019e 0354       | T  |		.STRTAB	0x0354->0x0348							; "SPECIAL_QUALIFICATION_TESTS"
019f 036d       | m  |		.STRTAB	0x036d->0x0355							; "INTERFACE"
01a0 0374       | t  |		.STRTAB	0x0374->0x035a							; "PARENT"
01a1 0378       | x  |		.STRTAB	0x0378->0x035d							; "NIL"
01a2 0379       | y  |		.STRTAB	0x0379->0x035e							; "SYSTEM_ANALYSIS"
01a3 0386       |    |		.STRTAB	0x0386->0x0366							; "REQUIREMENTS_ANALYSIS"
01a4 0399       |    |		.STRTAB	0x0399->0x0370							; "PRELIMINARY_DESIGN"
01a5 03a9       |    |		.STRTAB	0x03a9->0x0379							; "DETAILED_DESIGN"
01a6 03b6       |    |		.STRTAB	0x03b6->0x0381							; "CODING"
01a7 03ba       |    |		.STRTAB	0x03ba->0x0384							; "CSC_INTEGRATION"
01a8 03c7       |    |		.STRTAB	0x03c7->0x038b							; "CSCI_TEST"
01a9 03ce       |    |		.STRTAB	0x03ce->0x0390							; "SYSTEM_TEST"
01aa 03d7       |    |		.STRTAB	0x03d7->0x0395							; "NIL"
01ab 03d8       |    |		.STRTAB	0x03d8->0x0397							; "SYSTEM"
01ac 03dc       |    |		.STRTAB	0x03dc->0x039a							; "SYSTEM_CONTINUATION"
01ad 03ed       |    |		.STRTAB	0x03ed->0x03a3							; "SEGMENT"
01ae 03f2       |    |		.STRTAB	0x03f2->0x03a7							; "HWCI"
01af 03f4       |    |		.STRTAB	0x03f4->0x03a9							; "CSCI"
01b0 03f6       |    |		.STRTAB	0x03f6->0x03ab							; "CSCI_CONTINUATION"
01b1 0405       |    |		.STRTAB	0x0405->0x03b3							; "CSC"
01b2 0406       |    |		.STRTAB	0x0406->0x03b5							; "CSU"
01b3 0407       |    |		.STRTAB	0x0407->0x03b6							; "NDS"
01b4 0408       |    |		.STRTAB	0x0408->0x03b8							; "TBD"
01b5 0409       |    |		.STRTAB	0x0409->0x03b9							; "UNKNOWN_COMPONENT"
01b6 0418       |    |		.STRTAB	0x0418->0x03c2							; "SYSTEM_SPECIFICATION"
01b7 042a       | *  |		.STRTAB	0x042a->0x03cc							; "CAPABILITY_SPECIFICATION"
01b8 0440       | @  |		.STRTAB	0x0440->0x03d8							; "CONSTITUENT_SPECIFICATION"
01b9 0457       | W  |		.STRTAB	0x0457->0x03e4							; "CSC_INTERFACE_SPECIFICATION"
01ba 0470       | p  |		.STRTAB	0x0470->0x03f2							; "EXTERNAL_INTERFACE_SPECIFICATION"
01bb 048e       |    |		.STRTAB	0x048e->0x0402							; "INTERNAL_INTERFACE_SPECIFICATION"
01bc 04ac       |    |		.STRTAB	0x04ac->0x0412							; "SPECIAL_QUALIFICATION_TEST_SPECIFICATION"
01bd 04d2       |    |		.STRTAB	0x04d2->0x0426							; "UNKNOWN_SPECIFICATION"
01be 04e5       |    |		.STRTAB	0x04e5->0x0430							; "SYSTEM_ALLOCATION"
01bf 04f4       |    |		.STRTAB	0x04f4->0x0439							; "CAPABILITY_ALLOCATION"
01c0 0507       |    |		.STRTAB	0x0507->0x0443							; "CONSTITUENT_ALLOCATION"
01c1 051b       |    |		.STRTAB	0x051b->0x044e							; "CSC_INTERFACE_ALLOCATION"
01c2 0531       | 1  |		.STRTAB	0x0531->0x045a							; "EXTERNAL_INTERFACE_ALLOCATION"
01c3 054c       | L  |		.STRTAB	0x054c->0x0469							; "INTERNAL_INTERFACE_ALLOCATION"
01c4 0567       | g  |		.STRTAB	0x0567->0x0477							; "UNKNOWN_ALLOCATION"
01c5 0577       | w  |		.STRTAB	0x0577->0x0480							; "SYSTEM_SATISFACTION"
01c6 0588       |    |		.STRTAB	0x0588->0x048a							; "CAPABILITY_SATISFACTION"
01c7 059d       |    |		.STRTAB	0x059d->0x0495							; "CONSTITUENT_SATISFACTION"
01c8 05b3       |    |		.STRTAB	0x05b3->0x04a1							; "CSC_INTERFACE_SATISFACTION"
01c9 05cb       |    |		.STRTAB	0x05cb->0x04ae							; "EXTERNAL_INTERFACE_SATISFACTION"
01ca 05e8       |    |		.STRTAB	0x05e8->0x04be							; "INTERNAL_INTERFACE_SATISFACTION"
01cb 0605       |    |		.STRTAB	0x0605->0x04cd							; "UNKNOWN_SATISFACTION"
01cc 0617       |    |		.STRTAB	0x0617->0x04d7							; "UNKNOWN_REQUIREMENT"
01cd 0628       | (  |		.STRTAB	0x0628->0x04e1							; "CSCI_INTERNAL_DATUM"
01ce 0639       | 9  |		.STRTAB	0x0639->0x04ea							; "SHARED_DATA_TYPE"
01cf 0647       | G  |		.STRTAB	0x0647->0x04f2							; "SHARED_DATA_OBJECT"
01d0 0657       | W  |		.STRTAB	0x0657->0x04fb							; "SHARED_DATAFILE"
01d1 0664       | d  |		.STRTAB	0x0664->0x0503							; "SHARED_DATA_STRUCTURE"
01d2 0677       | w  |		.STRTAB	0x0677->0x050d							; "CSU_LOCAL_DATUM"
01d3 0684       |    |		.STRTAB	0x0684->0x0515							; "CSU_DATABASE"
01d4 068e       |    |		.STRTAB	0x068e->0x051b							; "CSU_DATAFILE"
01d5 0698       |    |		.STRTAB	0x0698->0x0521							; "CSU_DATA_STRUCTURE"
01d6 06a8       |    |		.STRTAB	0x06a8->0x052a							; "CSC_INTERFACE_DATUM"
01d7 06b9       |    |		.STRTAB	0x06b9->0x0533							; "EXTERNAL_INTERFACE_DATUM"
01d8 06cf       |    |		.STRTAB	0x06cf->0x053f							; "INTERNAL_INTERFACE_DATUM"
01d9 06e5       |    |		.STRTAB	0x06e5->0x054b							; "UNKNOWN_DATUM"
01da 06f0       |    |		.STRTAB	0x06f0->0x0552							; "CAPABILITY_INPUT"
01db 06fe       |    |		.STRTAB	0x06fe->0x055a							; "CAPABILITY_OUTPUT"
01dc 070d       |    |		.STRTAB	0x070d->0x0562							; "CAPABILITY_INPUT_OUTPUT"
01dd 0722       | "  |		.STRTAB	0x0722->0x056e							; "CSU_INPUT"
01de 0729       | )  |		.STRTAB	0x0729->0x0572							; "CSU_OUTPUT"
01df 0731       | 1  |		.STRTAB	0x0731->0x0577							; "CSU_INPUT_OUTPUT"
01e0 073f       | ?  |		.STRTAB	0x073f->0x057f							; "UNKNOWN_INPUT_OUTPUT"
01e1 0751       | Q  |		.STRTAB	0x0751->0x0589							; "CSU_INTERRUPT"
01e2 075c       | \  |		.STRTAB	0x075c->0x0590							; "UNKNOWN_INTERRUPT"
01e3 076b       | k  |		.STRTAB	0x076b->0x0598							; "NIL"
01e4 076c       | l  |		.STRTAB	0x076c->0x059a							; "ABORT_STATEMENTS"
01e5 077a       | z  |		.STRTAB	0x077a->0x05a2							; "ANONYMOUS_TYPES"
01e6 0787       |    |		.STRTAB	0x0787->0x05a9							; "GOTO_STATEMENTS"
01e7 0794       |    |		.STRTAB	0x0794->0x05b1							; "NUMERIC_LITERALS"
01e8 07a2       |    |		.STRTAB	0x07a2->0x05b9							; "USE_CLAUSES"
01e9 07ab       |    |		.STRTAB	0x07ab->0x05be							; "COMPLETED_PRIVATE_TYPES"
01ea 07c0       |    |		.STRTAB	0x07c0->0x05ca							; "REPRESENTATION_CLAUSES"
01eb 07d4       |    |		.STRTAB	0x07d4->0x05d5							; "TASK_DECLARATIONS"
01ec 07e3       |    |		.STRTAB	0x07e3->0x05dd							; "UNIT_BODIES"
01ed 07ec       |    |		.STRTAB	0x07ec->0x05e3							; "IMPLEMENTED_BODIES"
01ee 07fc       |    |		.STRTAB	0x07fc->0x05ec							; "CODED_UNITS"
01ef 0805       |    |		.STRTAB	0x0805->0x05f1							; "INTERFACE_EXCEPTION_HANDLERS"
01f0 081f       |    |		.STRTAB	0x081f->0x05ff							; "ELABORATE_PRAGMAS"
01f1 082e       | .  |		.STREND 0x082e->0x0608
01f2 4e49 4c43  |NILC|		.STRTAB_STRINGS
0608 ; --------------------------------------------------------------------------------------
0608 ; Debug Table
0608 ; --------------------------------------------------------------------------------------
0608 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xc56d,0x0000,0x0001,0x0000
060e 0004 2170  |  !p|		.XXX[0x1d]
0610 df0e 0000  |    |
0612 0945 6d12  | Em |
0614 e020 0200  |    |
0616 0142 0000  | B  |
0618 00de 9d00  |    |
061a 0002 0000  |    |
061c 0076 0050  | v P|
061e 0000 0a20  |    |
0620 0000 0400  |    |
0622 0000 2200  |  " |
0624 0000 0010  |    |
0626 0000 00a4  |    |
0628 0000 1039  |   9|
062a f7c0       |    |
062b 0000 0000  |    |		.BLANK	0000[0x1b]
0646 1000 1e38  |   8|		.XXX[0x1e]
0648 a42e 1be1  | .  |
064a c000 0128  |   (|
064c ada2 5c04  |  \ |
064e 0040 0028  | @ (|
0650 4000 001b  |@   |
0652 d3a0 0000  |    |
0654 4000 000e  |@   |
0656 c00a 0000  |    |
0658 0144 0000  | D  |
065a 0080 0000  |    |
065c 0440 0000  | @  |
065e 0002 0000  |    |
0660 0014 8000  |    |
0662 0207 3ef8  |  > |
0664 0000 0000  |    |		.BLANK	0000[0x1b]
067f 0200 03c7  |    |		.XXX[0x1e]
0681 1485 c37c  |   ||
0683 3800 0025  |8  %|
0685 15b4 4b80  |  K |
0687 8008 0005  |    |
0689 0800 0003  |    |
068b 7a74 0000  |zt  |
068d 0800 0001  |    |
068f d801 4000  |  @ |
0691 0028 8000  | (  |
0693 0010 0000  |    |
0695 0088 0000  |    |
0697 0000 4000  |  @ |
0699 0002 9000  |    |
069b 0040 e7df  | @  |
069d 0000 0000  |    |		.BLANK	0000[0x1b]
06b8 0040 0078  | @ x|		.XXX[0x1f]
06ba e290 b86f  |   o|
06bc 8700 0004  |    |
06be a2b6 8970  |   p|
06c0 1001 0000  |    |
06c2 a100 0000  |    |
06c4 6f4e 8000  |oN  |
06c6 0100 0000  |    |
06c8 3b00 2800  |; ( |
06ca 0005 1000  |    |
06cc 0002 0000  |    |
06ce 0011 0000  |    |
06d0 0000 0800  |    |
06d2 0000 5200  |  R |
06d4 0008 1cfb  |    |
06d6 e000       |    |
06d7 0000 0000  |    |		.BLANK	0000[0x1a]
06f1 0008 000f  |    |		.XXX[0x3]
06f3 1c50       | P  |
06f4 0000 0000  |    |		.BLANK	0000[0xd]
0701 0020 0500  |    |		.XXX[0xc]
0703 0000 0000  |    |
0705 0000 4000  |  @ |
0707 0002 2000  |    |
0709 0000 0100  |    |
070b 0000 0a00  |    |
070d 0000 0000  |    |		.BLANK	0000[0x2d]
073a 0004 00a0  |    |		.XXX[0xc]
073c 0000 0000  |    |
073e 0000 0800  |    |
0740 0000 4400  |  D |
0742 0000 0020  |    |
0744 0000 0140  |   @|
0746 0000 0000  |    |		.BLANK	0000[0x2e]
0774 8014 0000  |    |		.XXX[0xb]
0776 0000 0000  |    |
0778 0100 0000  |    |
077a 0880 0000  |    |
077c 0004 0000  |    |
077e 0028       | (  |
077f 0000 0000  |    |		.BLANK	0000[0x2e]
07ad 1002 8000  |    |		.XXX[0xb]
07af 0000 0000  |    |
07b1 0020 0000  |    |
07b3 0110 0000  |    |
07b5 0000 8000  |    |
07b7 0005       |    |
07b8 0000 0000  |    |		.BLANK	0000[0x48]