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

⟦de28efc03⟧

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

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 0050       | P  |		.CONST	0x0050								; 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 0021       | !  |		.CONST	0x0021								; Address of begin
0019 0031       | 1  |		.CONST	0x0031								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 02c7       |    |		Declare_Variable	Any
001e e001       |    |		Load	0x0,0x1
001f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0020 a402       |    |		Store_Unchecked	0x2,0x2
0021			BODY_0018:
0021 e5fa       |    |		Load	0x2,-0x6
0022 e001       |    |		Load	0x0,0x1
0023 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0024 e001       |    |		Load	0x0,0x1
0025 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0026 e5fb       |    |		Load	0x2,-0x5
0027 e5fc       |    |		Load	0x2,-0x4
0028 e5fd       |    |		Load	0x2,-0x3
0029 e5fe       |    |		Load	0x2,-0x2
002a e5ff       |    |		Load	0x2,-0x1
002b e002       |    |		Load	0x0,0x2
002c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
002d 00d8       |    |		Load_Top	At_Offset_0
002e e001       |    |		Load	0x0,0x1
002f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0030 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0031			TRAP_0018:
0031 0007       |    |		Action	Break_Optional
0032 e001       |    |		Load	0x0,0x1
0033 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0034 4808       |H   |		Short_Literal	0x8
0035 4801       |H   |		Short_Literal	0x1
0036 4801       |H   |		Short_Literal	0x1
0037 e003       |    |		Load	0x0,0x3
0038 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0039 e004       |    |		Load	0x0,0x4
003a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
003b e001       |    |		Load	0x0,0x1
003c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
003d e001       |    |		Load	0x0,0x1
003e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
003f 6805       |h   |		Jump_Zero	0x45
0040 00d9       |    |		Load_Top	At_Offset_1
0041 e001       |    |		Load	0x0,0x1
0042 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0043 00d8       |    |		Load_Top	At_Offset_0
0044 0101       |    |		Execute	Exception,Reraise
0045 00d9       |    |		Load_Top	At_Offset_1
0046 e001       |    |		Load	0x0,0x1
0047 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0048 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0049 0000 0000  |    |		.BLANK	0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; Debug Table
0050 ; --------------------------------------------------------------------------------------
0050 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x96a1,0x0000,0x0001,0x0000
0056 0ccc c0c9  |    |		.XXX[0x1aa]
0058 08c0 c0c4  |    |
005a d8d0 e10c  |    |
005c c0cc c8c0  |    |
005e dcd0 e10c  |    |
0060 c510 c0e0  |    |
0062 c4c8 cc29  |   )|
0064 4ccc c4c5  |L   |
0066 14c0 c0c1  |    |
0068 0ccc c8e0  |    |
006a c918 c0c0  |    |
006c c918 c908  |    |
006e c0c0 c0e0  |    |
0070 d115 08e5  |    |
0072 14c0 c0c1  |    |
0074 10c9 1105  |    |
0076 1918 294c  |  )L|
0078 ccc4 c514  |    |
007a c0c0 c10c  |    |
007c cccc d0d4  |    |
007e c0d1 18cc  |    |
0080 c0c0 dcd0  |    |
0082 d0d0 c0cc  |    |
0084 dcd0 c0c0  |    |
0086 c0c4 d8d8  |    |
0088 c0c4 c10c  |    |
008a c029 4ccc  | )L |
008c c4c5 14c0  |    |
008e c0c1 0ccc  |    |
0090 d0c0 ccc0  |    |
0092 c908 c0c0  |    |
0094 c4d8 d0e1  |    |
0096 0cc0 ccc8  |    |
0098 c0dc d0e1  |    |
009a 0cc5 10c0  |    |
009c e0c5 1918  |    |
009e 294c ccc4  |)L  |
00a0 c514 c0c0  |    |
00a2 c10c ccd1  |    |
00a4 0ce4 c505  |    |
00a6 0cc0 c0c4  |    |
00a8 e0d1 04d0  |    |
00aa dcd9 14c0  |    |
00ac c119 18c9  |    |
00ae 04c9 14c1  |    |
00b0 08d0 e429  |   )|
00b2 4ccc c4c5  |L   |
00b4 14c0 c0c1  |    |
00b6 0ccc d4e0  |    |
00b8 d8d8 c0d0  |    |
00ba d0c9 050c  |    |
00bc c0c0 d10c  |    |
00be dcc0 c0c4  |    |
00c0 d8c0 c0c8  |    |
00c2 dcc0 c0c0  |    |
00c4 c10c 294c  |  )L|
00c6 ccc4 c514  |    |
00c8 c0c0 c10c  |    |
00ca ccd8 d0d1  |    |
00cc 0d15 14cc  |    |
00ce e10c c119  |    |
00d0 1914 d0d1  |    |
00d2 14d5 14d1  |    |
00d4 14dc d4d1  |    |
00d6 14d4 d909  |    |
00d8 1829 4ccc  | )L |
00da c4c5 14c0  |    |
00dc c0c1 0ccc  |    |
00de dcc1 1919  |    |
00e0 14e0 d0e1  |    |
00e2 10dc cce0  |    |
00e4 e0c0 c914  |    |
00e6 c914 c0c0  |    |
00e8 c0e0 c904  |    |
00ea dce4 c4d8  |    |
00ec 294c ccc4  |)L  |
00ee c514 c0c0  |    |
00f0 c10c ccdd  |    |
00f2 0d14 c0c0  |    |
00f4 c518 c8c0  |    |
00f6 c0d0 e0d9  |    |
00f8 10c0 c0d9  |    |
00fa 0cd1 1508  |    |
00fc e514 c0c0  |    |
00fe c518 cc29  |   )|
0100 4ccc c4c5  |L   |
0102 14c0 c0c1  |    |
0104 0ccc e0e0  |    |
0106 d511 08e0  |    |
0108 d4e0 d118  |    |
010a c8e0 d0c0  |    |
010c d104 e0c0  |    |
010e d8dc c0c0  |    |
0110 c0c0 e4c1  |    |
0112 1114 294c  |  )L|
0114 ccc4 c514  |    |
0116 c0c0 c10c  |    |
0118 cce4 d0d1  |    |
011a 0505 0cc0  |    |
011c c0c4 c0d8  |    |
011e d8dd 04c8  |    |
0120 d8d9 0cc0  |    |
0122 c0c0 e0c8  |    |
0124 c0c9 0915  |    |
0126 0c29 4ccc  | )L |
0128 c4c5 14c0  |    |
012a c0c1 0ccd  |    |
012c 04c0 c0c0  |    |
012e c0e0 dcc8  |    |
0130 c115 10c0  |    |
0132 e0c4 c910  |    |
0134 d0c1 1919  |    |
0136 190c c8c0  |    |
0138 d0c0 c104  |    |
013a 294c ccc4  |)L  |
013c c514 c0c0  |    |
013e c10c cd05  |    |
0140 0cc4 c0c4  |    |
0142 c0dc c8c1  |    |
0144 190c c0e0  |    |
0146 c514 d4e0  |    |
0148 e110 c105  |    |
014a 1519 1919  |    |
014c 0d10 dc29  |   )|
014e 4ccc c4c5  |L   |
0150 14c0 c0c1  |    |
0152 0ccd 08e0  |    |
0154 c910 d0c1  |    |
0156 1919 18e0  |    |
0158 c8c0 d0c1  |    |
015a 0915 04e0  |    |
015c c0c0 c0d0  |    |
015e d8d8 d4c1  |    |
0160 0518 294c  |  )L|
0162 ccc4 c514  |    |
0164 c0c0 c10c  |    |
0166 cd0c d0d1  |    |
0168 0505 10c0  |    |
016a c0d1 0cd9  |    |
016c 14c0 d8c9  |    |
016e 08d9 10c0  |    |
0170 c0d4 c0c0  |    |
0172 c0d1 0ce5  |    |
0174 0c29 4ccc  | )L |
0176 c4c5 14c0  |    |
0178 c0c1 0ccd  |    |
017a 10c0 dd14  |    |
017c c0c4 c8e4  |    |
017e d0dc c0c0  |    |
0180 c4c0 ccdc  |    |
0182 dce5 14c0  |    |
0184 c0c5 1509  |    |
0186 04c8 d514  |    |
0188 294c ccc4  |)L  |
018a c514 c0c0  |    |
018c c10c cd11  |    |
018e 0cc0 c0c4  |    |
0190 e0d0 c8d9  |    |
0192 08c0 c0c0  |    |
0194 d0d0 e0d4  |    |
0196 d0d0 e0dc  |    |
0198 e514 c0c0  |    |
019a c0d8 e429  |   )|
019c 4ccc c4c5  |L   |
019e 14c0 c0c1  |    |
01a0 0ccd 14e1  |    |
01a2 0cdc c4e0  |    |
01a4 d0e0 d4cc  |    |
01a6 d115 08e5  |    |
01a8 14c0 c0c4  |    |
01aa dcdc c0e0  |    |
01ac d119 1518  |    |
01ae d0d0 294c  |  )L|
01b0 ccc4 c514  |    |
01b2 c0c0 c10c  |    |
01b4 cd18 d0c0  |    |
01b6 c0c1 0cc9  |    |
01b8 18c9 10c0  |    |
01ba c0e4 e0d0  |    |
01bc e0dc e0c0  |    |
01be dd19 14d0  |    |
01c0 e0d4 cd18  |    |
01c2 dc29 4ccc  | )L |
01c4 c4c5 14c0  |    |
01c6 c0c1 0cd0  |    |
01c8 c0c0 d115  |    |
01ca 08e5 14c0  |    |
01cc c0c4 d8e0  |    |
01ce d10c d119  |    |
01d0 1518 c0c0  |    |
01d2 c10c d4c9  |    |
01d4 08e4 d4e4  |    |
01d6 294c ccc4  |)L  |
01d8 c514 c0c0  |    |
01da c10c d0c1  |    |
01dc 0d14 c0c0  |    |
01de c504 d0cc  |    |
01e0 c0dc c0c0  |    |
01e2 c4d8 c0c4  |    |
01e4 c108 e515  |    |
01e6 10c0 c0d9  |    |
01e8 0ce4 d829  |   )|
01ea 4ccc c4c5  |L   |
01ec 14c0 c0c1  |    |
01ee 0cd0 c4e0  |    |
01f0 d8dc c0e0  |    |
01f2 c8e0 d4d0  |    |
01f4 c8c8 c10c  |    |
01f6 d8d8 c0c1  |    |
01f8 1918 dcd0  |    |
01fa dcc0 c0c1  |    |
01fc 10c0 294c  |  )L|
01fe ccc4 c514  |    |