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

⟦71fd4fa12⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a70f4

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0078       | x  |		.CONST	0x0078								; 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 8000       |    |		.CONST	0x8000								; 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 001b       |    |		.CONST	0x001b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b 0092 003c  |   <|		Action	Push_String_Extended,0x3c					; "<ERRORS>"
001d 0092 003d  |   =|		Action	Push_String_Extended,0x3d					; "[Cleanup_After_Install]"
001f e001       |    |		Load	0x0,0x1
0020 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0021 0092 003e  |   >|		Action	Push_String_Extended,0x3e					; "<PROFILE>"
0023 0092 003f  |   ?|		Action	Push_String_Extended,0x3f					; "<ALL_WORLDS>"
0025 0092 0040  |   @|		Action	Push_String_Extended,0x40					; "["
0027 e002       |    |		Load	0x0,0x2
0028 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0029 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
002a 01cc       |    |		Execute	Vector,Catenate
002b 0092 0041  |   A|		Action	Push_String_Extended,0x41					; ","
002d 01cc       |    |		Execute	Vector,Catenate
002e e002       |    |		Load	0x0,0x2
002f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0030 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
0031 01cc       |    |		Execute	Vector,Catenate
0032 0092 0042  |   B|		Action	Push_String_Extended,0x42					; ".^]"
0034 01cc       |    |		Execute	Vector,Catenate
0035 e003       |    |		Load	0x0,0x3
0036 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0037 0092 0043  |   C|		Action	Push_String_Extended,0x43					; "[Cleanup_After_Install is complete.]"
0039 e001       |    |		Load	0x0,0x1
003a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
003b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
003c ; --------------------------------------------------------------------------------------
003c ; STRING TABLE
003c ; --------------------------------------------------------------------------------------
003c 0012       |    |		.STRTAB	0x0012->0x0045							; "<ERRORS>"
003d 0018       |    |		.STRTAB	0x0018->0x0049							; "[Cleanup_After_Install]"
003e 002d       | -  |		.STRTAB	0x002d->0x0054							; "<PROFILE>"
003f 0034       | 4  |		.STRTAB	0x0034->0x0059							; "<ALL_WORLDS>"
0040 003e       | >  |		.STRTAB	0x003e->0x005f							; "["
0041 003d       | =  |		.STRTAB	0x003d->0x005f							; ","
0042 003c       | <  |		.STRTAB	0x003c->0x0060							; ".^]"
0043 003d       | =  |		.STRTAB	0x003d->0x0061							; "[Cleanup_After_Install is complete.]"
0044 005f       | _  |		.STREND 0x005f->0x0073
0045 3c45 5252  |<ERR|		.STRTAB_STRINGS
0074 0000 0000  |    |		.BLANK	0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; Debug Table
0078 ; --------------------------------------------------------------------------------------
0078 0004 0005  |    |		.DEBUG4	0x0004,0x0005,0x1500,0x0000,0x0001,0x0000
007e b1a5 cdd0  |    |		.XXX[0x182]
0080 b081 d1a1  |    |
0082 9481 8db1  |    |
0084 a595 b9d0  |    |
0086 81b5 d5cd  |    |
0088 d081 c995  |    |
008a cda5 9194  |    |
008c 81bd b881  |    |
008e d1a1 94a4  |    |
0090 80c4 b8c8  |    |
0092 c0d8 815d  |   ]|
0094 4c28 dcc8  |L(  |
0096 80dc d4d8  |    |
0098 81b5 bdd9  |    |
009a 95d1 bc28  |   (|
009c a0c4 d8d8  |    |
009e a481 cda1  |    |
00a0 bddc 28c4  |  ( |
00a2 e4dc b8c4  |    |
00a4 e4d4 8135  |   5|
00a6 6028 a105  |`(  |
00a8 c1c9 a5b0  |    |
00aa 80c4 e4e4  |    |
00ac c4a4 81cd  |    |
00ae a1bd dc28  |   (|
00b0 c4d8 c4b8  |    |
00b2 c0e4 d481  |    |
00b4 3560 28a1  |5`( |
00b6 4905 5125  |I Q%|
00b8 3d39 0530  |=9 0|
00ba a481 cda1  |    |
00bc bddc 2915  |  ) |
00be b991 4185  |  A |
00c0 9d94 2894  |  ( |
00c2 9541 859d  | A  |
00c4 94e8 80c4  |    |
00c6 d8dc 80c4  |    |
00c8 d8dc 2909  |  ) |
00ca 959d a5b9  |    |
00cc 4185 9d94  |A   |
00ce 28dc e4c8  |(   |
00d0 8199 85b1  |    |
00d2 cd94 8141  |   A|
00d4 bdcd a5d1  |    |
00d6 a5bd b941  |   A|
00d8 859d 9428  |   (|
00da dcc8 80cc  |    |
00dc d881 b5bd  |    |
00de d995 d1bc  |    |
00e0 28c4 c080  |(   |
00e2 bd51 a5b5  | Q  |
00e4 95cc b549  |   I|
00e6 bdb5 85b8  |    |
00e8 814d 95b1  | M  |
00ea 958d d119  |    |
00ec bdb9 d028  |   (|
00ee ccd0 e0b8  |    |
00f0 ccc4 c081  |    |
00f2 3560 28a1  |5`( |
00f4 5da5 b991  |]   |
00f6 bddc b535  |   5|
00f8 85b9 859d  |    |
00fa 95c8 813d  |   =|
00fc c195 c985  |    |
00fe d1a5 bdb9  |    |
0100 cca4 81cd  |    |
0102 a1bd dc28  |   (|
0104 dcc8 80dc  |    |
0106 c881 b5bd  |    |
0108 d995 d1bc  |    |
010a 28a1 cd85  |(   |
010c b594 81a1  |    |
010e bdcd d081  |    |
0110 85cc 81d1  |    |
0112 a194 81cd  |    |
0114 95c9 d995  |    |
0116 c881 85b9  |    |
0118 90bd bdc8  |    |
011a 81b5 d5cd  |    |
011c d081 a185  |    |
011e d994 8189  |    |
0120 9595 b881  |    |
0122 9dc9 85b9  |    |
0124 d195 9081  |    |
0126 c195 c9b5  |    |
0128 a5cd cda5  |    |
012a bdb8 81a5  |    |
012c b881 d1a1  |    |
012e 9481 a5b9  |    |
0130 a5d1 a585  |    |
0132 b081 85d5  |    |
0134 d1a1 bdc9  |    |
0136 a5e9 85d1  |    |
0138 a5bd b881  |    |
013a 85d0 818d  |    |
013c bdb9 b995  |    |
013e 8dd1 a5bd  |    |
0140 b881 cd95  |    |
0142 d1d5 c0b8  |    |
0144 a481 cda1  |    |
0146 bddc 28dc  |  ( |
0148 c880 e4d8  |    |
014a 81b5 bdd9  |    |
014c 95d1 bc28  |   (|
014e a14d 95c9  | M  |
0150 d995 c9cc  |    |
0152 8185 b1cd  |    |
0154 bc81 8d85  |    |
0156 b881 a5b5  |    |
0158 c1b1 95b5  |    |
015a 95b9 d081  |    |
015c bdd1 a195  |    |
015e c881 858d  |    |
0160 8d95 cdcc  |    |
0162 b58d bdb9  |    |
0164 d1c9 bdb0  |    |
0166 81c1 bdb1  |    |
0168 a58d a595  |    |
016a cc81 a5b8  |    |
016c a480 c0b8  |    |
016e e4c0 c081  |    |
0170 5d4c 28cc  |]L( |
0172 b8cc e4e4  |    |
0174 8135 6028  | 5`(|
0176 a185 9191  |    |
0178 a5d1 a5bd  |    |
017a b881 d1bc  |    |
017c 81bd c881  |    |
017e a5b8 81c1  |    |
0180 b185 8d94  |    |
0182 81bd 9881  |    |
0184 d1a1 a5cc  |    |
0186 81a1 bdcd  |    |
0188 d0b5 858d  |    |
018a 8d95 cdcc  |    |
018c 8199 858d  |    |
018e a5b1 a5d1  |    |
0190 e4b8 8119  |    |
0192 bdc8 a480  |    |
0194 c0b8 e0e4  |    |
0196 e481 5d4c  |  ]L|
0198 28dc c880  |(   |
019a c4c0 e081  |    |
019c b5bd d995  |    |
019e d1bc 28a1  |  ( |
01a0 99d5 c9d1  |    |
01a2 a195 c881  |    |
01a4 a5b9 99bd  |    |
01a6 c9b5 85d1  |    |
01a8 a5bd b881  |    |
01aa 8589 bdd5  |    |
01ac d081 bdd1  |    |
01ae a195 c881  |    |
01b0 858d 8d95  |    |
01b2 cdcc b58d  |    |
01b4 bdb9 d1c9  |    |
01b6 bdb0 81a5  |    |
01b8 b5c1 b195  |    |
01ba b595 b9d1  |    |
01bc 85d1 a5bd  |    |
01be b9cc b081  |    |
01c0 cd95 9481  |    |
01c2 3525 509d  |5%P |
01c4 cca4 81cd  |    |
01c6 a1bd dc28  |   (|
01c8 c4c0 80bd  |    |
01ca 51a5 b595  |Q   |
01cc ccb5 25d1  |  % |
01ce 85b1 a58c  |    |
01d0 814d 95b1  | M  |
01d2 958d d119  |    |
01d4 bdb9 d028  |   (|
01d6 a081 6081  |  ` |
01d8 5da5 b991  |]   |
01da bddc 814d  |   M|
01dc e5cd d195  |    |
01de b481 41c9  |  A |
01e0 bdd1 bd8d  |    |
01e2 bdb0 b8a4  |    |
01e4 81cd a1bd  |    |
01e6 dc28 dcc8  | (  |
01e8 80c4 ccc8  |    |
01ea b8dc d8c0  |    |
01ec 81b5 bdd9  |    |
01ee 95d1 bc28  |   (|
01f0 c4c4 80bd  |    |
01f2 51a5 b595  |Q   |
01f4 ccb5 09bd  |    |
01f6 b190 814d  |   M|
01f8 95b1 958d  |    |
01fa d119 bdb9  |    |
01fc d028 a0e4  | (  |
01fe b8c4 c4b8  |    |