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

⟦2f75b1347⟧

    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 0058       | X  |		.CONST	0x0058								; 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 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b 4800       |H   |		Short_Literal	0x0
001c 4800       |H   |		Short_Literal	0x0
001d 4800       |H   |		Short_Literal	0x0
001e 4801       |H   |		Short_Literal	0x1
001f 4801       |H   |		Short_Literal	0x1
0020 4800       |H   |		Short_Literal	0x0
0021 4800       |H   |		Short_Literal	0x0
0022 4801       |H   |		Short_Literal	0x1
0023 4800       |H   |		Short_Literal	0x0
0024 4800       |H   |		Short_Literal	0x0
0025 4801       |H   |		Short_Literal	0x1
0026 4800       |H   |		Short_Literal	0x0
0027 e5ff       |    |		Load	0x2,-0x1
0028 0092 0045  |   E|		Action	Push_String_Extended,0x45					; "_Errors"
002a 01cc       |    |		Execute	Vector,Catenate
002b e5ff       |    |		Load	0x2,-0x1
002c e001       |    |		Load	0x0,0x1
002d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
002e 4800       |H   |		Short_Literal	0x0
002f 4800       |H   |		Short_Literal	0x0
0030 4800       |H   |		Short_Literal	0x0
0031 4800       |H   |		Short_Literal	0x0
0032 4800       |H   |		Short_Literal	0x0
0033 4800       |H   |		Short_Literal	0x0
0034 4800       |H   |		Short_Literal	0x0
0035 4801       |H   |		Short_Literal	0x1
0036 4800       |H   |		Short_Literal	0x0
0037 4800       |H   |		Short_Literal	0x0
0038 4800       |H   |		Short_Literal	0x0
0039 4800       |H   |		Short_Literal	0x0
003a e5ff       |    |		Load	0x2,-0x1
003b 0092 0046  |   F|		Action	Push_String_Extended,0x46					; "_Negatives"
003d 01cc       |    |		Execute	Vector,Catenate
003e e5ff       |    |		Load	0x2,-0x1
003f 0092 0045  |   E|		Action	Push_String_Extended,0x45					; "_Errors"
0041 01cc       |    |		Execute	Vector,Catenate
0042 e001       |    |		Load	0x0,0x1
0043 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0044 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0045 ; --------------------------------------------------------------------------------------
0045 ; STRING TABLE
0045 ; --------------------------------------------------------------------------------------
0045 0006       |    |		.STRTAB	0x0006->0x0048							; "_Errors"
0046 000b       |    |		.STRTAB	0x000b->0x004b							; "_Negatives"
0047 0013       |    |		.STREND 0x0013->0x0050
0048 5f45 7272  |_Err|		.STRTAB_STRINGS
0051 0000 0000  |    |		.BLANK	0000[0x7]
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x9713,0x0000,0x0001,0x0000
005e 14cb ffe0  |    |		.XXX[0x20]
0060 14cf ffdc  |    |
0062 14d3 ffd8  |    |
0064 14d7 ffd4  |    |
0066 14db ffd0  |    |
0068 14df ffcc  |    |
006a 14e3 ffc8  |    |
006c 14e7 ffc4  |    |
006e 001c 0000  |    |
0070 150f fffc  |    |
0072 1513 fff8  |    |
0074 1517 fff4  |    |
0076 151b fff0  |    |
0078 151f ffec  |    |
007a 1523 ffe8  | #  |
007c 1527 ffe4  | '  |
007e 0000 0000  |    |		.BLANK	0000[0xc3]
0141 0002 0000  |    |		.XXX[0x2e]
0143 0038 0000  | 8  |
0145 0000 0001  |    |
0147 8000 0000  |    |
0149 0100 0000  |    |
014b 02c0 0000  |    |
014d 0004 0000  |    |
014f 0038 bce8  | 8  |
0151 c4c8 e0c0  |    |
0153 c0c0 c8c0  |    |
0155 b94d 151c  | M  |
0157 003d 604c  | =`L|
0159 0000 0ce0  |    |
015b 0400 02ec  |    |
015d 0000 0008  |    |
015f 014c 0010  | L  |
0161 0083 8004  |    |
0163 6c54 0a80  |lT  |
0165 0eb8 001f  |    |
0167 8008 6c34  |  l4|
0169 04a4 0a68  |   h|
016b 016c 0a68  | l h|
016d 03cc 02fc  |    |
016f 001c 001c  |    |		.BLANK	001c[0x6]
0175 0a6c 042d  | l -|		.XXX[0xe]
0177 89fd 2159  |  !Y|
0179 2400 0248  |$  H|
017b 0a90 03c0  |    |
017d 0384 7447  |  tG|
017f 800c 0e1c  |    |
0181 0360 083c  | ` <|
0183 001c 001c  |    |		.BLANK	001c[0x5]
0188 0384 1804  |    |		.XXX[0x78]
018a 0364 6c50  | dlP|
018c 03b3 8010  |    |
018e 6c4c 6c9c  |lLl |
0190 7444 031c  |tD  |
0192 0a74 046c  | t l|
0194 0a74 04cc  | t  |
0196 0a74 060c  | t  |
0198 0a74 066c  | t l|
019a 0a74 07cc  | t  |
019c 0a74 082c  | t ,|
019e 0a74 084c  | t L|
01a0 0a74 08ac  | t  |
01a2 0a74 092c  | t ,|
01a4 0a74 098c  | t  |
01a6 743c 031c  |t<  |
01a8 7440 031c  |t@  |
01aa 02f0 02ec  |    |
01ac 0000 0000  |    |
01ae 0000 01b8  |    |
01b0 02a0 0013  |    |
01b2 8014 6ce0  |  l |
01b4 6ccc 0b1f  |l   |
01b6 8014 6ce0  |  l |
01b8 60d3 100b  |`   |
01ba 8018 6c5f  |  l_|
01bc 97eb 8018  |    |
01be 6064 00c4  |`d  |
01c0 03b3 97f8  |    |
01c2 03ac 63b0  |  c |
01c4 00c5 2000  |    |
01c6 036b 801c  | k  |
01c8 6c57 97ff  |lW  |
01ca 97ef 97eb  |    |
01cc 8020 603f  |  `?|
01ce 97e5 a031  |   1|
01d0 2005 201f  |    |
01d2 8018 6045  |  `E|
01d4 2005 2023  |   #|
01d6 8018 6045  |  `E|
01d8 2001 2027  |   '|
01da 8018 6047  |  `G|
01dc 97ef 97fa  |    |
01de 087b 97fa  | {  |
01e0 087f 884d  |   M|
01e2 a00b 97fe  |    |
01e4 0883 97ec  |    |
01e6 0366 086b  | f k|
01e8 97ef 97f3  |    |
01ea 97e4 036e  |   n|
01ec 086d 2005  | m  |
01ee 208f 8018  |    |
01f0 6047 97ef  |`G  |
01f2 97f4 036a  |   j|
01f4 0874 036b  | t k|
01f6 8014 6ce0  |  l |
01f8 60d7 8024  |`  $|
01fa 609f 17e1  |`   |
01fc 2006 97dd  |    |
01fe 1421 87cc  | !  |