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

⟦c1c607815⟧

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

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 0038       | 8  |		.CONST	0x0038								; 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 0028       | (  |		.CONST	0x0028								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b 00da       |    |		Load_Top	At_Offset_2
001c e001       |    |		Load	0x0,0x1
001d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
001e a5fe       |    |		Store_Unchecked	0x2,-0x2
001f 00da       |    |		Load_Top	At_Offset_2
0020 e001       |    |		Load	0x0,0x1
0021 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0022 a5fd       |    |		Store_Unchecked	0x2,-0x3
0023 00da       |    |		Load_Top	At_Offset_2
0024 e001       |    |		Load	0x0,0x1
0025 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0026 a5fc       |    |		Store_Unchecked	0x2,-0x4
0027 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0028			TRAP_0018:
0028 010e       |    |		Execute	Exception,Is_Constraint_Error
0029 6807       |h   |		Jump_Zero	0x31
002a 4800       |H   |		Short_Literal	0x0
002b a5fe       |    |		Store_Unchecked	0x2,-0x2
002c 4800       |H   |		Short_Literal	0x0
002d a5fd       |    |		Store_Unchecked	0x2,-0x3
002e 4800       |H   |		Short_Literal	0x0
002f a5fc       |    |		Store_Unchecked	0x2,-0x4
0030 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0031 0100       |    |		Execute	Exception,Raise
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; Debug Table
0038 ; --------------------------------------------------------------------------------------
0038 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x4a64,0x0000,0x0001,0x0000
003e 0000 0000  |    |		.XXX[0x16]
0040 1bc3 0006  |    |
0042 1500 0000  |    |
0044 0020 e100  |    |
0046 0000 001d  |    |
0048 d700 0000  |    |
004a 2a00 6716  |* g |
004c 005e d00e  | ^  |
004e 0001 b734  |   4|
0050 00de 98e0  |    |
0052 8000 0300  |    |
0054 0000 0000  |    |		.BLANK	0000[0xb]
005f 0001 0038  |   8|		.XXX[0x9]
0061 e804 0800  |    |
0063 02b8 8204  |    |
0065 0040 0000  | @  |
0067 0040       | @  |
0068 0000 0000  |    |		.BLANK	0000[0x4]
006c ffff ffff  |    |		.XXX[0x3]
006e 8000       |    |
006f 0000 0000  |    |		.BLANK	0000[0x4]
0073 0076       | v  |		.XXX[0x1]
0074 0000 0000  |    |		.BLANK	0000[0x4]
0078 00de 98e0  |    |		.XXX[0x1c]
007a c000 0816  |    |
007c 0000 1040  |   @|
007e 0000 0040  |   @|
0080 00de a8e0  |    |
0082 8000 000d  |    |
0084 004a d80e  | J  |
0086 0000 a031  |   1|
0088 00de b8e0  |    |
008a 0000 0302  |    |
008c 00de ace0  |    |
008e 00de a8e0  |    |
0090 0000 0000  |    |
0092 0000 0076  |   v|
0094 0000 0000  |    |		.BLANK	0000[0x4]
0098 00de 98e0  |    |		.XXX[0x1c]
009a c000 0a16  |    |
009c 0000 1040  |   @|
009e 0000 0040  |   @|
00a0 00de bce0  |    |
00a2 8000 0012  |    |
00a4 004a d80e  | J  |
00a6 0000 80b1  |    |
00a8 00de a4e0  |    |
00aa 0000 0882  |    |
00ac 0000 0000  |    |
00ae 00de bce0  |    |
00b0 0000 0000  |    |
00b2 0000 0076  |   v|
00b4 0000 0000  |    |		.BLANK	0000[0x4]
00b8 00de 98e0  |    |		.XXX[0x58]
00ba 8000 0c00  |    |
00bc 0000 0002  |    |
00be 0000 005f  |   _|
00c0 0037 1c04  | 7  |
00c2 0800 0138  |   8|
00c4 0000 0040  |   @|
00c6 0000 0000  |    |
00c8 0001 0404  |    |
00ca 0800 0400  |    |
00cc 0000 009f  |    |
00ce 0000 0040  |   @|
00d0 00de 98e0  |    |
00d2 8800 0d80  |    |
00d4 0000 0018  |    |
00d6 0000 0018  |    |
00d8 09cf c004  |    |
00da 0800 066c  |   l|
00dc 00de 98e0  |    |
00de 0000 83ff  |    |
00e0 00de 98e0  |    |
00e2 0000 c096  |    |
00e4 005e f80e  | ^  |
00e6 0000 3234  |  24|
00e8 00de 98e0  |    |
00ea 8000 0f00  |    |
00ec 0000 0000  |    |
00ee ffff ffff  |    |
00f0 0000 0000  |    |
00f2 7fff ffff  |    |
00f4 0000 0000  |    |
00f6 0000 0001  |    |
00f8 0038 e804  | 8  |
00fa 0800 02b8  |    |
00fc 8204 0040  |   @|
00fe 0000 0040  |   @|
0100 0000 0060  |   `|
0102 0500 0000  |    |
0104 0100 0000  |    |
0106 4000 0002  |@   |
0108 2000 0000  |    |
010a 0100 0000  |    |
010c 0a40 0002  | @  |
010e 0548 c300  | H  |
0110 0000 0000  |    |		.BLANK	0000[0x1b]
012b 0005 00e0  |    |		.XXX[0x1e]
012d 0380 01f2  |    |
012f 0000 1aff  |    |
0131 5a1d 4040  |Z @@|
0133 0200 02b4  |    |
0135 0000 0035  |   5|
0137 3900 0008  |9   |
0139 0000 000c  |    |
013b 00a0 0000  |    |
013d 0020 0000  |    |
013f 0800 0000  |    |
0141 4400 0000  |D   |
0143 0020 0000  |    |
0145 0148 0000  | H  |
0147 40a9 fd00  |@   |
0149 0000 0000  |    |		.BLANK	0000[0x1c]
0165 a01c 0070  |   p|		.XXX[0x23]
0167 0042 b800  | B  |
0169 035f eb43  | _ C|
016b a808 0040  |   @|
016d 0056 8000  | V  |
016f 0006 a6e0  |    |
0171 0001 0000  |    |
0173 0003 8014  |    |
0175 0000 0004  |    |
0177 0000 0100  |    |
0179 0000 0880  |    |
017b 0000 0004  |    |
017d 0000 0029  |   )|
017f 0000 0815  |    |
0181 3f95 0000  |?   |
0183 0815 3f99  |  ? |
0185 0000 0815  |    |
0187 3f9c       |?   |
0188 0000 0000  |    |		.BLANK	0000[0x16]
019e 1403 8000  |    |		.XXX[0x2]
01a0 0000 0000  |    |		.BLANK	0000[0xd]
01ad 1002 8000  |    |		.XXX[0xb]
01af 0000 0000  |    |
01b1 0020 0000  |    |
01b3 0110 0000  |    |
01b5 0000 8000  |    |
01b7 0005       |    |
01b8 0000 0000  |    |		.BLANK	0000[0x48]