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

⟦560d652de⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb

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 0250       | P  |		.CONST	0x0250								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0033       | 3  |		.CONST	0x0033								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000d       |    |		.CONST	0x000d								; Number of locals
001b			INIT_0018:
001b 0092 019e  |    |		Action	Push_String_Extended,0x19e					; "Destroy_delta1_Code_Databases"
001d 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
001f 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0021 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
0023 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
0025 029f 007b  |   {|		Declare_Subprogram	INIT_0078,For_Call
0027 029f 008b  |    |		Declare_Subprogram	INIT_0088,For_Call
0029 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
002b 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
002d 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
002f 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0031 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0033			BODY_0018:
0033 0092 019f  |    |		Action	Push_String_Extended,0x19f					; "Code_Views_Or_Loaded_Main_Programs => \x22"
0035 e5ff       |    |		Load	0x2,-0x1
0036 01cc       |    |		Execute	Vector,Catenate
0037 0092 01a0  |    |		Action	Push_String_Extended,0x1a0					; "\x22, Options => \x22"
0039 01cc       |    |		Execute	Vector,Catenate
003a e5fe       |    |		Load	0x2,-0x2
003b 01cc       |    |		Execute	Vector,Catenate
003c 0092 01a1  |    |		Action	Push_String_Extended,0x1a1					; "\x22, Response => \x22"
003e 01cc       |    |		Execute	Vector,Catenate
003f e5fd       |    |		Load	0x2,-0x3
0040 01cc       |    |		Execute	Vector,Catenate
0041 e402       |    |		Load	0x2,0x2
0042 8408       |    |		Call	0x2,0x8
0043 840d       |    |		Call	0x2,0xd
0044 e402       |    |		Load	0x2,0x2
0045 8409       |    |		Call	0x2,0x9
0046 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0047 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
004c 0f00       |    |		Execute_Immediate	Equal,0x0
004d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
004e 0000 0000  |    |		.XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 00da       |    |		Load_Top	At_Offset_2
0054 0f00       |    |		Execute_Immediate	Equal,0x0
0055 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0056 0000 0000  |    |		.XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b e5fd       |    |		Load	0x2,-0x3
005c e001       |    |		Load	0x0,0x1
005d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
005e 4807       |H   |		Short_Literal	0x7
005f e7ff       |    |		Load	0x3,-0x1
0060 e002       |    |		Load	0x0,0x2
0061 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0062 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0063 0000 0000  |    |		.BLANK	0000[0x5]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b e5fd       |    |		Load	0x2,-0x3
006c e001       |    |		Load	0x0,0x1
006d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
006e 4805       |H   |		Short_Literal	0x5
006f e7ff       |    |		Load	0x3,-0x1
0070 e002       |    |		Load	0x0,0x2
0071 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0072 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0073 0000 0000  |    |		.BLANK	0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b e5fd       |    |		Load	0x2,-0x3
007c e001       |    |		Load	0x0,0x1
007d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
007e 4803       |H   |		Short_Literal	0x3
007f e7ff       |    |		Load	0x3,-0x1
0080 e002       |    |		Load	0x0,0x2
0081 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0082 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0083 0000 0000  |    |		.BLANK	0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b e5fd       |    |		Load	0x2,-0x3
008c e001       |    |		Load	0x0,0x1
008d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
008e 4800       |H   |		Short_Literal	0x0
008f 0092 01a2  |    |		Action	Push_String_Extended,0x1a2					; "[Program_Library_Maintenance."
0091 e7ff       |    |		Load	0x3,-0x1
0092 01cc       |    |		Execute	Vector,Catenate
0093 0092 01a3  |    |		Action	Push_String_Extended,0x1a3					; " ("
0095 01cc       |    |		Execute	Vector,Catenate
0096 e7fe       |    |		Load	0x3,-0x2
0097 01cc       |    |		Execute	Vector,Catenate
0098 0092 01a4  |    |		Action	Push_String_Extended,0x1a4					; ");]"
009a 01cc       |    |		Execute	Vector,Catenate
009b e002       |    |		Load	0x0,0x2
009c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
009d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 e5fd       |    |		Load	0x2,-0x3
00a4 e001       |    |		Load	0x0,0x1
00a5 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
00a6 4800       |H   |		Short_Literal	0x0
00a7 0092 01a5  |    |		Action	Push_String_Extended,0x1a5					; "[End of Program_Library_Maintenance."
00a9 e7ff       |    |		Load	0x3,-0x1
00aa 01cc       |    |		Execute	Vector,Catenate
00ab 0092 01a6  |    |		Action	Push_String_Extended,0x1a6					; " command]"
00ad 01cc       |    |		Execute	Vector,Catenate
00ae e002       |    |		Load	0x0,0x2
00af 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b1 0000 0000  |    |		.BLANK	0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bf       |    |		.CONST	0x00bf								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc e003       |    |		Load	0x0,0x3
00bd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00be 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
00bf			BODY_00b8:
00bf e5fd       |    |		Load	0x2,-0x3
00c0 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; "<DIRECTORIES>"
00c2 4801       |H   |		Short_Literal	0x1
00c3 00db       |    |		Load_Top	At_Offset_3
00c4 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; ".Code_Database"
00c6 01cc       |    |		Execute	Vector,Catenate
00c7 e004       |    |		Load	0x0,0x4
00c8 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00c9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ca 0000 0000  |    |		.BLANK	0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d7       |    |		.CONST	0x00d7								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 e003       |    |		Load	0x0,0x3
00d5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00d6 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
00d7			BODY_00d0:
00d7 e5fd       |    |		Load	0x2,-0x3
00d8 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; "<DIRECTORIES>"
00da 4801       |H   |		Short_Literal	0x1
00db 00db       |    |		Load_Top	At_Offset_3
00dc 0092 01a9  |    |		Action	Push_String_Extended,0x1a9					; ".<*Code_Database>"
00de 01cc       |    |		Execute	Vector,Catenate
00df e004       |    |		Load	0x0,0x4
00e0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00e1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e2 0000 0000  |    |		.BLANK	0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ee       |    |		.CONST	0x00ee								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb 00da       |    |		Load_Top	At_Offset_2
00ec e003       |    |		Load	0x0,0x3
00ed 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00ee			BODY_00e8:
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef e005       |    |		Load	0x0,0x5
00f0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00f1 027f       |    |		Execute	Discrete,Equal
00f2 6803       |h   |		Jump_Zero	0xf6
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 840a       |    |		Call	0x2,0xa
00f5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f6 00d8       |    |		Load_Top	At_Offset_0
00f7 e005       |    |		Load	0x0,0x5
00f8 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00f9 027f       |    |		Execute	Discrete,Equal
00fa 7005       |p   |		Jump_Nonzero	0x100
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc e005       |    |		Load	0x0,0x5
00fd 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
00fe 027f       |    |		Execute	Discrete,Equal
00ff 6803       |h   |		Jump_Zero	0x103
0100 00db       |    |		Load_Top	At_Offset_3
0101 840b       |    |		Call	0x2,0xb
0102 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0103 00db       |    |		Load_Top	At_Offset_3
0104 e003       |    |		Load	0x0,0x3
0105 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0106 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0107 0092 01aa  |    |		Action	Push_String_Extended,0x1aa					; " is not a code view or a loaded main program"
0109 01cc       |    |		Execute	Vector,Catenate
010a 8405       |    |		Call	0x2,0x5
010b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011e       |    |		.CONST	0x011e								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0004       |    |		.CONST	0x0004								; Number of locals
0113			INIT_0110:
0113 e003       |    |		Load	0x0,0x3
0114 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0115 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0116 02c7       |    |		Declare_Variable	Any
0117 00d8       |    |		Load_Top	At_Offset_0
0118 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0119 e003       |    |		Load	0x0,0x3
011a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
011b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011c 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
011e			BODY_0110:
011e e003       |    |		Load	0x0,0x3
011f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0120 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0121 00db       |    |		Load_Top	At_Offset_3
0122 6041       |`A  |		Indirect_Literal	Discrete,0x164,{0x00000000, 0x00004000}
0123 e006       |    |		Load	0x0,0x6
0124 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0125 e007       |    |		Load	0x0,0x7
0126 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0127 e008       |    |		Load	0x0,0x8
0128 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0129 4801       |H   |		Short_Literal	0x1
012a 4800       |H   |		Short_Literal	0x0
012b e007       |    |		Load	0x0,0x7
012c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
012d e003       |    |		Load	0x0,0x3
012e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
012f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0130 e5ff       |    |		Load	0x2,-0x1
0131 e003       |    |		Load	0x0,0x3
0132 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0133 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0134 c602       |    |		Store	0x3,0x2
0135 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0136 00d9       |    |		Load_Top	At_Offset_1
0137 8403       |    |		Call	0x2,0x3
0138 701e       |p   |		Jump_Nonzero	0x157
0139 0092 01ab  |    |		Action	Push_String_Extended,0x1ab					; "Can't resolve \x22"
013b e5ff       |    |		Load	0x2,-0x1
013c 01cc       |    |		Execute	Vector,Catenate
013d 0092 01ac  |    |		Action	Push_String_Extended,0x1ac					; "\x22 because "
013f 01cc       |    |		Execute	Vector,Catenate
0140 6023       |`#  |		Indirect_Literal	Discrete,0x164,{0x00000000, 0x00004000}
0141 e006       |    |		Load	0x0,0x6
0142 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0143 e007       |    |		Load	0x0,0x7
0144 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0145 e008       |    |		Load	0x0,0x8
0146 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0147 4801       |H   |		Short_Literal	0x1
0148 4800       |H   |		Short_Literal	0x0
0149 e007       |    |		Load	0x0,0x7
014a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
014b e003       |    |		Load	0x0,0x3
014c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
014d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
014e e5ff       |    |		Load	0x2,-0x1
014f e603       |    |		Load	0x3,0x3
0150 e003       |    |		Load	0x0,0x3
0151 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0152 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0153 01cc       |    |		Execute	Vector,Catenate
0154 8406       |    |		Call	0x2,0x6
0155 e402       |    |		Load	0x2,0x2
0156 8409       |    |		Call	0x2,0x9
0157 00cf       |    |		Action	Mark_Auxiliary
0158 7802       |x   |		Jump	0x15b
0159 8604       |    |		Call	0x3,0x4
015a 00c9       |    |		Action	Pop_Auxiliary_Loop
015b 00db       |    |		Load_Top	At_Offset_3
015c e003       |    |		Load	0x0,0x3
015d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
015e 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
015f 6ff9       |o   |		Jump_Zero	0x159
0160 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0161 0000 0000  |    |		.XXX[0x3]
0163 0000       |    |
0164 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0172       | r  |		.CONST	0x0172								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0003       |    |		.CONST	0x0003								; Number of locals
016b			INIT_0168:
016b e003       |    |		Load	0x0,0x3
016c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
016d 02c7       |    |		Declare_Variable	Any
016e 00d8       |    |		Load_Top	At_Offset_0
016f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0170 e003       |    |		Load	0x0,0x3
0171 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0172			BODY_0168:
0172 e003       |    |		Load	0x0,0x3
0173 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0174 00da       |    |		Load_Top	At_Offset_2
0175 0120       |    |		Execute	Any,Is_Value
0176 6803       |h   |		Jump_Zero	0x17a
0177 e003       |    |		Load	0x0,0x3
0178 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0179 7801       |x   |		Jump	0x17b
017a 00da       |    |		Load_Top	At_Offset_2
017b e602       |    |		Load	0x3,0x2
017c e003       |    |		Load	0x0,0x3
017d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
017e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
017f c802       |    |		Store	0x4,0x2
0180 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0181 00d8       |    |		Load_Top	At_Offset_0
0182 8404       |    |		Call	0x2,0x4
0183 6803       |h   |		Jump_Zero	0x187
0184 00d9       |    |		Load_Top	At_Offset_1
0185 840c       |    |		Call	0x2,0xc
0186 7811       |x   |		Jump	0x198
0187 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Can't get object for "
0189 e602       |    |		Load	0x3,0x2
018a e003       |    |		Load	0x0,0x3
018b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
018c 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
018d 01cc       |    |		Execute	Vector,Catenate
018e 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; ": "
0190 01cc       |    |		Execute	Vector,Catenate
0191 00d9       |    |		Load_Top	At_Offset_1
0192 e003       |    |		Load	0x0,0x3
0193 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0194 025e       | ^  |		Execute	Discrete,Convert
0195 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0196 01cc       |    |		Execute	Vector,Catenate
0197 8405       |    |		Call	0x2,0x5
0198 e602       |    |		Load	0x3,0x2
0199 e003       |    |		Load	0x0,0x3
019a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
019b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
019c c602       |    |		Store	0x3,0x2
019d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
019e ; --------------------------------------------------------------------------------------
019e ; STRING TABLE
019e ; --------------------------------------------------------------------------------------
019e 0024       | $  |		.STRTAB	0x0024->0x01b0							; "Destroy_delta1_Code_Databases"
019f 003f       | ?  |		.STRTAB	0x003f->0x01be							; "Code_Views_Or_Loaded_Main_Programs => \x22"
01a0 0064       | d  |		.STRTAB	0x0064->0x01d2							; "\x22, Options => \x22"
01a1 0071       | q  |		.STRTAB	0x0071->0x01d9							; "\x22, Response => \x22"
01a2 007f       |    |		.STRTAB	0x007f->0x01e1							; "[Program_Library_Maintenance."
01a3 009a       |    |		.STRTAB	0x009a->0x01f0							; " ("
01a4 009a       |    |		.STRTAB	0x009a->0x01f1							; ");]"
01a5 009b       |    |		.STRTAB	0x009b->0x01f2							; "[End of Program_Library_Maintenance."
01a6 00bd       |    |		.STRTAB	0x00bd->0x0204							; " command]"
01a7 00c4       |    |		.STRTAB	0x00c4->0x0209							; "<DIRECTORIES>"
01a8 00cf       |    |		.STRTAB	0x00cf->0x020f							; ".Code_Database"
01a9 00db       |    |		.STRTAB	0x00db->0x0216							; ".<*Code_Database>"
01aa 00ea       |    |		.STRTAB	0x00ea->0x021f							; " is not a code view or a loaded main program"
01ab 0114       |    |		.STRTAB	0x0114->0x0235							; "Can't resolve \x22"
01ac 0121       | !  |		.STRTAB	0x0121->0x023c							; "\x22 because "
01ad 0129       | )  |		.STRTAB	0x0129->0x0241							; "Can't get object for "
01ae 013c       | <  |		.STRTAB	0x013c->0x024c							; ": "
01af 013c       | <  |		.STREND 0x013c->0x024d
01b0 4465 7374  |Dest|		.STRTAB_STRINGS
024d 0000 0000  |    |		.XXX[0x3]
024f 0000       |    |
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug Table
0250 ; --------------------------------------------------------------------------------------
0250 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0xc0a5,0x0000,0x0001,0x0000
0256 e405 0888  |    |		.XXX[0x1aa]
0258 a845 240c  | E$ |
025a cdee 440d  |  D |
025c adee 4ca4  |  L |
025e 0d2d cccd  | -  |
0260 ee4d ac2e  | M .|
0262 8d2d edc5  | -  |
0264 25c4 0409  |%   |
0266 2cc4 0e8d  |,   |
0268 0ca0 0000  |    |
026a 0d40 0000  | @  |
026c 0864 040c  | d  |
026e 8cac 4eac  |  N |
0270 ecec ae44  |   D|
0272 0ccd 8c2c  |   ,|
0274 e405 0e6c  |   l|
0276 aca4 088c  |    |
0278 ac4e acec  | N  |
027a ed2d cce4  | -  |
027c 0508 88a8  |    |
027e 4524 0ccd  |E$  |
0280 ee44 0dad  | D  |
0282 ee4c a40d  | L  |
0284 2dcc cdee  |-   |
0286 4dac 2e8d  |M . |
0288 2ded c525  |-  %|
028a c404 092c  |   ,|
028c c40e 8d0c  |    |
028e a000 000d  |    |
0290 4000 0008  |@   |
0292 6404 0c8c  |d   |
0294 ac4e acec  | N  |
0296 ecae 440c  |  D |
0298 cd8c 2ce4  |  , |
029a 050e 6cac  |  l |
029c a408 8cac  |    |
029e 4eac eced  |N   |
02a0 2dcc e405  |-   |
02a2 0888 a845  |   E|
02a4 240c cdee  |$   |
02a6 440d adee  |D   |
02a8 4ca4 0d2d  |L  -|
02aa cccd ee4d  |   M|
02ac ac2e 8d2d  | . -|
02ae edc5 25c4  |  % |
02b0 0409 2cc4  |  , |
02b2 0e8d 0ca0  |    |
02b4 0000 0600  |    |
02b6 0000 0828  |   (|
02b8 8cac 4eac  |  N |
02ba ebe9 6d2d  |  m-|
02bc 8d8b e9ed  |    |
02be 8c8b e94d  |   M|
02c0 ec4e 640c  | Nd |
02c2 cd8c 2ce4  |  , |
02c4 0d2e 640e  | .d |
02c6 8e4e aca5  | N  |
02c8 840e 8d0c  |    |
02ca a40c 8cac  |    |
02cc cc2e ad8e  | .  |
02ce 840e cc2d  |   -|
02d0 8eac a584  |    |
02d2 0e8d 0cad  |    |
02d4 c40e 8d0c  |    |
02d6 a40d 4dec  |  M |
02d8 4000 0005  |@   |
02da c000 0008  |    |
02dc 6404 088c  |d   |
02de ac4e aceb  | N  |
02e0 e96d 2d8d  | m- |
02e2 8be9 ed8c  |    |
02e4 8be9 4dec  |  M |
02e6 4e64 0ccd  |Nd  |
02e8 8c2c e40d  | ,  |
02ea 2e64 0e8e  |.d  |
02ec 4eac a584  |N   |
02ee 0e8d 0ca4  |    |
02f0 0c8c accc  |    |
02f2 2ead 8e84  |.   |
02f4 0ecc 2d8e  |  - |
02f6 aca5 840e  |    |
02f8 8d0c adc4  |    |
02fa 0e8d 0ca4  |    |
02fc 0d4d ec40  | M @|
02fe 0000 05c0  |    |
0300 0000 0864  |   d|
0302 0408 8cac  |    |
0304 4eac ebe9  |N   |
0306 6d2d 8d8b  |m-  |
0308 e9ed 8c8b  |    |
030a e94d ec4e  | M N|
030c 640c cd8c  |d   |
030e 2ce4 0d2e  |,  .|
0310 640e 8e4e  |d  N|
0312 aca5 840e  |    |
0314 8d0c a40c  |    |
0316 8cac cc2e  |   .|
0318 ad8e 840e  |    |
031a cc2d 8eac  | -  |
031c a584 0e8d  |    |
031e 0cad c40e  |    |
0320 8d0c a40d  |    |
0322 4dec 4000  |M @ |
0324 000e 8000  |    |
0326 0008 4c4c  |  LL|
0328 ad2d cce4  | -  |
032a 0c8c ac4e  |   N|
032c acec ecac  |    |
032e 840d 2e64  |  .d|
0330 0d6d 2d8d  | m- |
0332 8cac 840e  |    |
0334 ed0c adc4  |    |
0336 0c24 0dcc  | $  |
0338 aee4 088c  |    |
033a ac4e ace4  | N  |
033c 0c6c 2d8d  | l- |
033e 840d 2e64  |  .d|
0340 0dac 2c8c  |  , |
0342 a5c4 0409  |    |
0344 2cc4 0ccc  |,   |
0346 2d8e 6ca5  |- l |
0348 8000 000e  |    |
034a 4000 0008  |@   |
034c 8404 0c4c  |   L|
034e ad2d cce4  | -  |
0350 0c8c ac4e  |   N|
0352 acec ecac  |    |
0354 840d 2e64  |  .d|
0356 0d6d 2d8d  | m- |
0358 8cac 840e  |    |
035a ed0c adc4  |    |
035c 0c24 0dcc  | $  |
035e aee4 088c  |    |
0360 ac4e ace4  | N  |
0362 0c6c 2d8d  | l- |
0364 840d 2e64  |  .d|
0366 0dac 2c8c  |  , |
0368 a5c4 0409  |    |
036a 2cc4 0ccc  |,   |
036c 2d8e 6ca5  |- l |
036e 8000 000e  |    |
0370 4000 0008  |@   |
0372 8404 0c4c  |   L|
0374 ad2d cce4  | -  |
0376 0c8c ac4e  |   N|
0378 acec ecac  |    |
037a 840d 2e64  |  .d|
037c 0d6d 2d8d  | m- |
037e 8cac 840e  |    |
0380 ed0c adc4  |    |
0382 0c24 0dcc  | $  |
0384 aee4 088c  |    |
0386 ac4e ace4  | N  |
0388 0c6c 2d8d  | l- |
038a 840d 2e64  |  .d|
038c 0dac 2c8c  |  , |
038e a5c4 0409  |    |
0390 2cc4 0ccc  |,   |
0392 2d8e 6ca5  |- l |
0394 8000 0007  |    |
0396 2000 0007  |    |
0398 ee8d 0ca4  |    |
039a 0c6e ae4e  | n N|
039c 4cad ce84  |L   |
039e 0d4d ec44  | M D|
03a0 0d2e 640e  | .d |
03a2 4cad 8cac  |L   |
03a4 2e6c ac84  |.l  |
03a6 0c2d cc84  | -  |
03a8 0c6d edce  | m  |
03aa 8d2d ceac  | -  |
03ac ae64 0d2e  | d .|
03ae 8e64 0dcd  | d  |
03b0 ee4d ac2d  | M -|
03b2 840c af0c  |    |
03b4 ac6e ae8d  | n  |
03b6 2ded c5c0  |-   |
03b8 0000 06e0  |    |
03ba 0000 0824  |   $|
03bc 040e 8d0c  |    |
03be a40c 6eae  |  n |
03c0 4e4c adce  |NL  |
03c2 840d 4dec  |  M |
03c4 440d 2e64  |D .d|
03c6 0e4c ad8c  | L  |
03c8 ac2e 6cac  | .l |
03ca 840c 2dcc  |  - |
03cc 840c 6ded  |  m |
03ce ce8d 2dce  |  - |
03d0 acae 640d  |  d |
03d2 2e8e 640d  |. d |
03d4 cdee 4dac  |  M |
03d6 2d84 0caf  |-   |
03d8 0cac 6eae  |  n |
03da 8d2d edc5  | -  |
03dc c000 0006  |    |
03de e000 0008  |    |
03e0 2404 0e8d  |$   |
03e2 0ca4 0c6e  |   n|
03e4 ae4e 4cad  | NL |
03e6 ce84 0d4d  |   M|
03e8 ec44 0d2e  | D .|
03ea 640e 4cad  |d L |
03ec 8cac 2e6c  |  .l|
03ee ac84 0c2d  |   -|
03f0 cc84 0c6d  |   m|
03f2 edce 8d2d  |   -|
03f4 ceac ae64  |   d|
03f6 0d2e 8e64  | . d|
03f8 0dcd ee4d  |   M|
03fa ac2d 840c  | -  |
03fc af0c ac6e  |   n|
03fe ae8d 2ded  |  - |