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

⟦3a0800bf7⟧

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

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 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 e002       |    |		Load	0x0,0x2
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 e002       |    |		Load	0x0,0x2
0022 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0023 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0024			BODY_0018:
0024 e002       |    |		Load	0x0,0x2
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 e003       |    |		Load	0x0,0x3
002a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002b e004       |    |		Load	0x0,0x4
002c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002d e005       |    |		Load	0x0,0x5
002e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002f 4801       |H   |		Short_Literal	0x1
0030 4800       |H   |		Short_Literal	0x0
0031 e004       |    |		Load	0x0,0x4
0032 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0033 e002       |    |		Load	0x0,0x2
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 e002       |    |		Load	0x0,0x2
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 0002  |    |		.DEBUG4	0x0004,0x0002,0x0b8a,0x0000,0x0001,0x0000
004e 0000 0000  |    |		.BLANK	0000[0x5]
0053 1000 4671  |  Fq|		.XXX[0x22]
0055 b000 0000  |    |
0057 0400 0000  |    |
0059 0000 10d8  |    |
005b c4c4 c400  |    |
005d 0000 1504  |    |
005f c4c4 c108  |    |
0061 0000 4eb0  |  N |
0063 003d 6000  | =` |
0065 0000 2740  |  '@|
0067 0400 02ec  |    |
0069 0002 0014  |    |
006b 0040 0010  | @  |
006d 0004 0a68  |   h|
006f 006c 02fc  | l  |
0071 7434 031c  |t4  |
0073 02f0 02ec  |    |
0075 0000 0000  |    |		.BLANK	0000[0x6]
007b 026c 0010  | l  |		.XXX[0xbb]
007d 006b 8008  | k  |
007f 6c34 0b1d  |l4  |
0081 82c7 8008  |    |
0083 604b 8008  |`K  |
0085 606c 0248  |`l H|
0087 21cb 97fe  |!   |
0089 000e 0012  |    |
008b 900b 8008  |    |
008d 6c34 0b1f  |l4  |
008f 8008 6048  |  `H|
0091 0248 21cf  | H! |
0093 97fa 000e  |    |
0095 0012 900c  |    |
0097 039f 8014  |    |
0099 6c3c 0b1c  |l<  |
009b 0360 7003  | `p |
009d 8018 001f  |    |
009f 801c 0c89  |    |
00a1 2001 201c  |    |
00a3 0a7c 036c  | | l|
00a5 0ff5 2001  |    |
00a7 202c 0a7c  | , ||
00a9 040c 0ff5  |    |
00ab 2025 202f  | % /|
00ad 9024 0fe1  | $  |
00af 2001 2023  |   #|
00b1 9024 0fe1  | $  |
00b3 2001 2004  |    |
00b5 0a7c 04ac  | |  |
00b7 0ff4 0360  |   `|
00b9 0998 039c  |    |
00bb 0a81 2004  |    |
00bd 0d77 9024  | w $|
00bf 099b 9034  |   4|
00c1 0a81 2004  |    |
00c3 0d74 039c  | t  |
00c5 039c 0a7c  |   ||
00c7 054d 2008  | M  |
00c9 0cb5 2005  |    |
00cb 201f 903c  |   <|
00cd 0a7c 058d  | |  |
00cf 2004 0d77  |   w|
00d1 9038 0cdc  | 8  |
00d3 0360 0cd4  | `  |
00d5 0335 202d  | 5 -|
00d7 2003 9034  |   4|
00d9 0cdd 2001  |    |
00db 2003 9054  |   T|
00dd 0759 2001  | Y  |
00df 2007 9054  |   T|
00e1 075b 9034  | [ 4|
00e3 0467 9053  | g S|
00e5 9048 0758  | H X|
00e7 ffc3 9044  |   D|
00e9 0753 9040  | S @|
00eb 0cdc 0360  |   `|
00ed 7000 0a7c  |p  ||
00ef 05ec 0a7c  |   ||
00f1 09ec 0a7c  |   ||
00f3 0dac 0a7c  |   ||
00f5 0e0c 0a7c  |   ||
00f7 0e4c 0a7c  | L ||
00f9 0ecc 0a7c  |   ||
00fb 0f8c 0a7c  |   ||
00fd 182e 104f  | . O|
00ff 9048 0753  | H S|
0101 900b 900f  |    |
0103 8008 6070  |  `p|
0105 3005 a08b  |0   |
0107 9014 039f  |    |
0109 97f1 2009  |    |
010b 2005 200b  |    |
010d 900e 0021  |   !|
010f 2009 2005  |    |
0111 200b 900a  |    |
0113 0022 0027  | " '|
0115 1013 1017  |    |
0117 801a 002b  |   +|
0119 1018 033d  |   =|
011b e01f 901a  |    |
011d 002e 105f  | . _|
011f 901a 0033  |   3|
0121 1018 0327  |   '|
0123 901a 0035  |   5|
0125 bfd8 033a  |   :|
0127 1065 e010  | e  |
0129 0248 21d3  | H! |
012b 8038 6193  | 8a |
012d 97f5 a00b  |    |
012f 904a 1069  | J i|
0131 1414 0000  |    |
0133 0000 004f  |   O|
0135 1a00       |    |
0136 0000 0000  |    |		.BLANK	0000[0x5]
013b 036c 0010  | l  |		.XXX[0xc5]
013d 0005 181d  |    |
013f 0c09 e01d  |    |
0141 e029 e039  | ) 9|
0143 e045 e049  | E I|
0145 e04d e059  | M Y|
0147 0c08 0368  |   h|
0149 0244 2151  | D!Q|
014b 0804 036c  |   l|
014d 036c 0380  | l  |
014f 606d 0808  |`m  |
0151 0368 0380  | h  |
0153 6071 0804  |`q  |
0155 036d 0808  | m  |
0157 036d 080b  | m  |
0159 9020 0370  |   p|
015b 099d 080b  |    |
015d 9020 0370  |   p|
015f 09a1 0808  |    |
0161 0000 0000  |    |
0163 040c 0010  |    |
0165 0005 181d  |    |
0167 0c09 e01d  |    |
0169 e029 e039  | ) 9|
016b e045 e049  | E I|
016d e04d e059  | M Y|
016f 0c08 0368  |   h|
0171 0244 2171  | D!q|
0173 0804 036c  |   l|
0175 036c 0380  | l  |
0177 606d 0808  |`m  |
0179 0368 0380  | h  |
017b 6071 0804  |`q  |
017d 036d 0808  | m  |
017f 036d 080b  | m  |
0181 9024 0370  | $ p|
0183 099d 080b  |    |
0185 9024 0370  | $ p|
0187 09a1 0808  |    |
0189 0000 0000  |    |
018b 04ac 0010  |    |
018d 0005 181d  |    |
018f 0c09 e01d  |    |
0191 e029 e039  | ) 9|
0193 e045 e049  | E I|
0195 e04d e059  | M Y|
0197 0c08 0368  |   h|
0199 0244 21a1  | D! |
019b 0804 036c  |   l|
019d 036c 0380  | l  |
019f 606d 0808  |`m  |
01a1 0368 0380  | h  |
01a3 6071 0804  |`q  |
01a5 036d 0808  | m  |
01a7 036d 080b  | m  |
01a9 9030 0370  | 0 p|
01ab 099d 080b  |    |
01ad 9030 0370  | 0 p|
01af 09a1 0808  |    |
01b1 0000 0000  |    |
01b3 054c 0010  | L  |
01b5 0005 1805  |    |
01b7 e005 0c09  |    |
01b9 2003 9ffc  |    |
01bb e001 2003  |    |
01bd 9ffc e005  |    |
01bf 0c08 0000  |    |
01c1 0000 0000  |    |
01c3 058c 0010  |    |
01c5 0004 0347  |   G|
01c7 9ffc 0760  |   `|
01c9 0c88 0360  |   `|
01cb 7003 9ffc  |p   |
01cd 0773 9ffc  | s  |
01cf 0774 098d  | t  |
01d1 c01b 980b  |    |
01d3 9813 9ffc  |    |
01d5 0758 2805  | X( |
01d7 ffe1 0c08  |    |
01d9 0000 0000  |    |
01db 0738 0934  | 8 4|
01dd 0033 9040  | 3 @|
01df 0cdc 0360  |   `|
01e1 0cd4 0335  |   5|
01e3 2015 2007  |    |
01e5 903c 0c89  | <  |
01e7 83bf 9818  |    |
01e9 e001 83a3  |    |
01eb 9818 e007  |    |
01ed 9817 980c  |    |
01ef 0758 ffd1  | X  |
01f1 201d 201b  |    |
01f3 903c 0c89  | <  |
01f5 2003 9818  |    |
01f7 e001 2003  |    |
01f9 9818 e007  |    |
01fb 9817 980c  |    |
01fd 0758 ffd3  | X  |
01ff 9808       |    |