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

⟦438b8e145⟧

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

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 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 000c  |    |		.DEBUG4	0x0004,0x000c,0x4215,0x0000,0x0001,0x0000
0056 036d 1811  | m  |		.XXX[0x2c]
0058 e021 e00d  | !  |
005a e011 e015  |    |
005c e001 2005  |    |
005e 0809 2009  |    |
0060 0809 23fd  |  # |
0062 0808 036f  |   o|
0064 97f9 1811  |    |
0066 e021 e00d  | !  |
0068 e011 e015  |    |
006a e001 2005  |    |
006c e00d 2009  |    |
006e e005 23ff  |  # |
0070 97fc 0c6d  |   m|
0072 0808 036f  |   o|
0074 97fb 97fc  |    |
0076 701b 97fc  |p   |
0078 0bf1 0808  |    |
007a 0000 0000  |    |
007c 0000 198c  |    |
007e 0010 0005  |    |
0080 1821 e021  | ! !|
0082 0c09 0c09  |    |		.BLANK	0c09[0x8]
008a 2000 036c  |   l|		.XXX[0x3f]
008c e001 2010  |    |
008e 036c e004  | l  |
0090 0368 d008  | h  |
0092 0494 0368  |   h|
0094 d008 7001  |  p |
0096 2008 036c  |   l|
0098 e00f 88e8  |    |
009a 036c e014  | l  |
009c 0368 d018  | h  |
009e 0494 0368  |   h|
00a0 d018 7001  |  p |
00a2 0c08 0000  |    |
00a4 0000 1a2c  |   ,|
00a6 0010 0005  |    |
00a8 2007 97fb  |    |
00aa 97ff 8014  |    |
00ac 6085 c064  |`  d|
00ae 036c 076c  | l l|
00b0 036c 076c  | l l|
00b2 09f5 a045  |   E|
00b4 2005 20bb  |    |
00b6 97fc 072f  |   /|
00b8 97f8 0777  |   w|
00ba 97f8 0777  |   w|
00bc 97fc 076c  |   l|
00be 09cc 0923  |   #|
00c0 97f8 073f  |   ?|
00c2 8014 6085  |  ` |
00c4 1009 2001  |    |
00c6 1009 2005  |    |
00c8 1008       |    |
00c9 0000 0000  |    |		.BLANK	0000[0x4]
00cd 1b20 0010  |    |		.XXX[0x4b]
00cf 0027 800c  | '  |
00d1 6c87 8008  |l   |
00d3 6c38 0b1c  |l8  |
00d5 0360 7003  | `p |
00d7 800c 6ca8  |  l |
00d9 0a7c 2a6f  | |*o|
00db 800c 64c4  |  d |
00dd 0319 2015  |    |
00df 2008 0265  |   e|
00e1 863d 2715  | =' |
00e3 2024 001f  | $  |
00e5 900f 9009  |    |
00e7 2005 2003  |    |
00e9 97ff 800c  |    |
00eb 608f 100b  |`   |
00ed 100d 2007  |    |
00ef 900f 8008  |    |
00f1 6061 c08b  |`a  |
00f3 97f4 3809  |  8 |
00f5 a03f 900b  | ?  |
00f7 800c 60bf  |  ` |
00f9 800c 6ccc  |  l |
00fb 6061 2019  |`a  |
00fd 2008 0265  |   e|
00ff 201d 2008  |    |
0101 0267 800c  | g  |
0103 60c5 e00f  |`   |
0105 800c 6caa  |  l |
0107 9013 900b  |    |
0109 800c 6097  |  ` |
010b 100b 9013  |    |
010d 800c 60b1  |  ` |
010f c00b 9011  |    |
0111 100f 800c  |    |
0113 6ca9 100f  |l   |
0115 800c 6ca9  |  l |
0117 100c       |    |
0118 0000 0000  |    |		.BLANK	0000[0x5]
011d 1c0c 0010  |    |		.XXX[0xb]
011f 0004 0369  |   i|
0121 c008 03a9  |    |
0123 1004 0368  |   h|
0125 085c 0cd5  | \  |
0127 1004       |    |
0128 0000 0000  |    |		.BLANK	0000[0x5]
012d 1c4c 0010  | L  |		.XXX[0xb]
012f 0004 0368  |   h|
0131 b005 1811  |    |
0133 e181 e00d  |    |
0135 e101 e175  |   u|
0137 e001       |    |
0138 20b1 20b1  |    |		.BLANK	20b1[0x5]
013d 20b3 97fc  |    |		.XXX[0xc3]
013f b007 8840  |   @|
0141 0978 7004  | xp |
0143 072f 97fc  | /  |
0145 b80a 08f8  |    |
0147 0730 072d  | 0 -|
0149 2081 2001  |    |
014b 202b 97fc  | +  |
014d b80f 8014  |    |
014f 6058 0730  |`X 0|
0151 072d 2081  | -  |
0153 2001 202b  |   +|
0155 97fc b813  |    |
0157 8014 6058  |  `X|
0159 0730 072d  | 0 -|
015b 2081 2001  |    |
015d 202b 97fc  | +  |
015f b817 8014  |    |
0161 6058 0730  |`X 0|
0163 072d 2081  | -  |
0165 2001 202b  |   +|
0167 97fc b81b  |    |
0169 8014 6058  |  `X|
016b 0730 072d  | 0 -|
016d 2081 2001  |    |
016f 202b 97fc  | +  |
0171 b81f 8014  |    |
0173 6058 0731  |`X 1|
0175 1004 0368  |   h|
0177 b823 800c  | #  |
0179 60b1 a02d  |`  -|
017b 20b0 036c  |   l|
017d b007 8840  |   @|
017f 0978 7004  | xp |
0181 072c 0248  | , H|
0183 2c84 0731  |,  1|
0185 1005 20b0  |    |
0187 036c b007  | l  |
0189 8840 0978  | @ x|
018b 7004 072c  |p  ,|
018d 036c b823  | l #|
018f 800c 6ccc  |  l |
0191 6080 0731  |`  1|
0193 1005 20b0  |    |
0195 036c b007  | l  |
0197 8840 0978  | @ x|
0199 7004 072d  |p  -|
019b 1004 0000  |    |
019d 1e18 0010  |    |
019f 000b 8010  |    |
01a1 6c34 6d10  |l4m |
01a3 036f 8010  | o  |
01a5 6c34 60c7  |l4` |
01a7 8010 6c34  |  l4|
01a9 6114 0144  |a  D|
01ab 0360 2c01  | `, |
01ad c064 2c35  | d,5|
01af c097 97f7  |    |
01b1 97ff 8010  |    |
01b3 6c34 60eb  |l4` |
01b5 8008 6ca3  |  l |
01b7 8008 604f  |  `O|
01b9 17f5 20bb  |    |
01bb 8010 6c38  |  l8|
01bd 6048 072f  |`H /|
01bf 97f8 0733  |   3|
01c1 97ff 8010  |    |
01c3 6c34 6d58  |l4mX|
01c5 606d 140f  |`m  |
01c7 97f7 8008  |    |
01c9 604b 17f7  |`K  |
01cb 97ff 8010  |    |
01cd 6c38 6083  |l8` |
01cf 97ff 8010  |    |
01d1 6c34 6d58  |l4mX|
01d3 606d 140f  |`m  |
01d5 97f7 97ff  |    |
01d7 8010 6c34  |  l4|
01d9 60eb 8008  |`   |
01db 6cab 8008  |l   |
01dd 604f 17f5  |`O  |
01df 20bb 8010  |    |
01e1 6c38 6048  |l8`H|
01e3 072f 97f8  | /  |
01e5 0733 97ff  | 3  |
01e7 8010 6c34  |  l4|
01e9 6d58 606d  |mX`m|
01eb 140c 0000  |    |
01ed 1f94 2084  |    |
01ef 001f 8030  |   0|
01f1 6c34 0b1c  |l4  |
01f3 0360 7000  | `p |
01f5 036e 0868  | n h|
01f7 038c 038f  |    |
01f9 97fc 085c  |   \|
01fb f007 88e4  |    |
01fd 7020 0360  |p  `|
01ff 7000       |p   |