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

⟦a85c2d81e⟧

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

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 0048       | H  |		.CONST	0x0048								; 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 0024       | $  |		.CONST	0x0024								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0003       |    |		.CONST	0x0003								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
001d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
001e 02c7       |    |		Declare_Variable	Any
001f 00d8       |    |		Load_Top	At_Offset_0
0020 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0021 e001       |    |		Load	0x0,0x1
0022 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0023 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0024			BODY_0018:
0024 e001       |    |		Load	0x0,0x1
0025 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0026 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0027 00da       |    |		Load_Top	At_Offset_2
0028 601b       |`   |		Indirect_Literal	Discrete,0x44,{0x00000000, 0x00004000}
0029 e002       |    |		Load	0x0,0x2
002a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002b e003       |    |		Load	0x0,0x3
002c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002d e004       |    |		Load	0x0,0x4
002e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002f 4801       |H   |		Short_Literal	0x1
0030 4800       |H   |		Short_Literal	0x0
0031 e003       |    |		Load	0x0,0x3
0032 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0033 e001       |    |		Load	0x0,0x1
0034 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0035 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0036 e5ff       |    |		Load	0x2,-0x1
0037 e001       |    |		Load	0x0,0x1
0038 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0039 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
003a c402       |    |		Store	0x2,0x2
003b 0059       | Y  |		Store_Top	Discrete,At_Offset_1
003c 00d8       |    |		Load_Top	At_Offset_0
003d 0f00       |    |		Execute_Immediate	Equal,0x0
003e 00d9       |    |		Load_Top	At_Offset_1
003f 0f06       |    |		Execute_Immediate	Equal,0x6
0040 0278       | x  |		Execute	Discrete,Or
0041 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0042 0000 0000  |    |		.XXX[0x2]
0044 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0048 ; --------------------------------------------------------------------------------------
0048 ; Debug Table
0048 ; --------------------------------------------------------------------------------------
0048 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x77d8,0x0000,0x0001,0x0000
004e 0403 6408  |  d |		.XXX[0x2c]
0050 9cf0 0800  |    |
0052 e803 2403  |  $ |
0054 65a0 1403  |e   |
0056 6408 9cf0  |d   |
0058 0430 05df  | 0  |
005a c003 3803  |  8 |
005c 6e08 7914  |n y |
005e 0800 0007  |    |
0060 0c00 1000  |    |
0062 0403 6808  |  h |
0064 9cf0 0110  |    |
0066 0400 0007  |    |
0068 2c00 1000  |,   |
006a 0518 21e0  |  ! |
006c 210c 09e0  |!   |
006e 29e0 25e0  |) % |
0070 21e0 1de0  |!   |
0072 19e0 15e0  |    |
0074 1003 68d0  |  h |
0076 0070 010c  | p  |
0078 0821 a400  | !  |
007a 0000 0000  |    |		.BLANK	0000[0x5]
007f 0007 9400  |    |		.XXX[0x4b]
0081 1000 0b88  |    |
0083 7000 1c03  |p   |
0085 6c08 9cf0  |l   |
0087 05c0 1f88  |    |
0089 700e f003  |p   |
008b 6008 9c70  |`  p|
008d 0000 e5e0  |    |
008f 3003 6c08  |0 l |
0091 9cf0 0400  |    |
0093 e403 6c08  |  l |
0095 9cf0 0408  |    |
0097 9cf0 0b97  |    |
0099 fc08 9ce0  |    |
009b 0520 0003  |    |
009d 6408 9ce0  |d   |
009f 0788 7003  |  p |
00a1 6408 9ce0  |d   |
00a3 0803 6110  |  a |
00a5 0400 0000  |    |
00a7 0008 2c00  |  , |
00a9 1000 0403  |    |
00ab 6808 9cf0  |h   |
00ad 09a0 6803  |  h |
00af 6808 9cf0  |h   |
00b1 0403 6c08  |  l |
00b3 9cf0 0c08  |    |
00b5 9ce0 0803  |    |
00b7 6808 9cf0  |h   |
00b9 0803 6c08  |  l |
00bb 9ce0 0788  |    |
00bd 7003 6c08  |p l |
00bf 9ce0 0b88  |    |
00c1 7003 6c08  |p l |
00c3 9ce0 0d20  |    |
00c5 0003 6c08  |  l |
00c7 9ce0 0114  |    |
00c9 0800       |    |
00ca 0000 0000  |    |		.BLANK	0000[0x6]
00d0 1000 3bd1  |  ; |		.XXX[0x20]
00d2 f400 0000  |    |
00d4 0400 0000  |    |
00d6 0000 10c8  |    |
00d8 cd0c d800  |    |
00da 0000 1519  |    |
00dc 0cc4 c10c  |    |
00de 0000 84b0  |    |
00e0 003d 6000  | =` |
00e2 0000 4240  |  B@|
00e4 0400 02ec  |    |
00e6 0002 0024  |   $|
00e8 02b4 0010  |    |
00ea 00f9 2001  |    |
00ec 2008 0a7c  |   ||
00ee 02cc 0ff8  |    |
00f0 0310 0310  |    |		.BLANK	0310[0x15]
0105 0a68 036f  | h o|		.XXX[0xfb]
0107 086c 0a68  | l h|
0109 052f 0884  | /  |
010b 0a68 062f  | h /|
010d 0870 0a68  | p h|
010f 07af 0874  |   t|
0111 0a68 094f  | h O|
0113 0878 0a68  | x h|
0115 0aef 0848  |   H|
0117 0a68 0b2f  | h /|
0119 0880 0a68  |   h|
011b 0caf 0888  |    |
011d 02fc 0248  |   H|
011f 31ef 8004  |1   |
0121 6454 001c  |dT  |
0123 0248 31f0  | H1 |
0125 0248 31f5  | H1 |
0127 2001 21ff  |  ! |
0129 8008 6c34  |  l4|
012b 0fe3 8834  |   4|
012d 099b 800c  |    |
012f 6c50 0a81  |lP  |
0131 2004 0d74  |   t|
0133 0360 0cdc  | `  |
0135 0360 0cd4  | `  |
0137 0335 2001  | 5  |
0139 2000 0368  |   h|
013b 0759 2005  | Y  |
013d 2004 0368  |   h|
013f 0759 2009  | Y  |
0141 2008 0368  |   h|
0143 0758 0364  | X d|
0145 0753 8004  | S  |
0147 6c37 8004  |l7  |
0149 6c37 8004  |l7  |
014b 6c34 0a81  |l4  |
014d 200c 0cb4  |    |
014f 0390 0998  |    |
0151 0368 0a81  | h  |
0153 2004 0d40  |   @|
0155 0a6c 0dac  | l  |
0157 74b0 031c  |t   |
0159 0a74 0f2c  | t ,|
015b 0a74 0f6c  | t l|
015d 0a74 0fec  | t  |
015f 0a74 108c  | t  |
0161 0a74 10cc  | t  |
0163 0a74 110c  | t  |
0165 0a74 114c  | t L|
0167 0a74 11ac  | t  |
0169 0a74 11ec  | t  |
016b 0a74 124c  | t L|
016d 0a74 138c  | t  |
016f 0a74 14ec  | t  |
0171 0a74 178c  | t  |
0173 0a74 186c  | t l|
0175 0a74 192c  | t ,|
0177 0a74 196c  | t l|
0179 0a74 19cc  | t  |
017b 0a74 1cac  | t  |
017d 746c 031c  |tl  |
017f 7484 031c  |t   |
0181 7470 031c  |tp  |
0183 7474 031c  |tt  |
0185 7478 031c  |tx  |
0187 7448 031c  |tH  |
0189 7480 031c  |t   |
018b 7488 031c  |t   |
018d 02f0 02ec  |    |
018f 0000 02cc  |    |
0191 0010 0005  |    |
0193 181d 0c09  |    |
0195 e019 e025  |   %|
0197 e035 e041  | 5 A|
0199 e045 e049  | E I|
019b e054 0368  | T h|
019d 0244 31e1  | D1 |
019f 0804 036c  |   l|
01a1 036c 0380  | l  |
01a3 606d 0808  |`m  |
01a5 0368 0380  | h  |
01a7 6071 0804  |`q  |
01a9 036d 0808  | m  |
01ab 036d 080b  | m  |
01ad 8834 0370  | 4 p|
01af 099d 080b  |    |
01b1 8834 0370  | 4 p|
01b3 09a1 0808  |    |
01b5 0000 0000  |    |
01b7 0000 0474  |   t|
01b9 0010 005c  |   \|
01bb 0384 1800  |    |
01bd 0fa7 97f8  |    |
01bf 076c 3800  | l8 |
01c1 001c 0248  |   H|
01c3 31fb 97f4  |1   |
01c5 036a 08d3  | j  |
01c7 8013 8017  |    |
01c9 88ab 88ad  |    |
01cb 202b 8018  | +  |
01cd 0e1c 0360  |   `|
01cf 083c 0360  | < `|
01d1 6c48 0363  |lH c|
01d3 801c 6c37  |  l7|
01d5 8004 6c38  |  l8|
01d7 0a7c 1d0d  | |  |
01d9 200c 0cb4  |    |
01db 0a7c 1d8c  | |  |
01dd 0a7c 1def  | |  |
01df 8020 6438  |  d8|
01e1 0318 0369  |   i|
01e3 2029 2008  | )  |
01e5 0267 8027  | g '|
01e7 8029 203c  | ) <|
01e9 001c 0a7c  |   ||
01eb 1eec 74b0  |  t |
01ed 0318 0248  |   H|
01ef 31fd 2041  |1  A|
01f1 2008 0265  |   e|
01f3 2009 2008  |    |
01f5 0265 200d  | e  |
01f7 2008 0267  |   g|
01f9 802f 8031  | / 1|
01fb 205c 001f  | \  |
01fd 97ed 2088  |    |
01ff 0248       | H  |