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

⟦25452c9d1⟧

    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 8081 05b1  |    |		.XXX[0x11]
0060 b081 bdd1  |    |
0062 a195 c880  |    |
0064 8080 81f1  |    |
0066 4881 858d  |H   |
0068 8d95 cdcc  |    |
006a 8080 8080  |    |
006c 8080 81f0  |    |
006e 2880       |(   |
006f 8080 8080  |    |		.BLANK	8080[0x7]
0076 8081 f1bd  |    |		.XXX[0xd]
0078 89a9 958d  |    |
007a d1cc 81a5  |    |
007c b881 91a5  |    |
007e c995 8dd1  |    |
0080 bdc9 e481  |    |
0082 f080       |    |
0083 8080 8080  |    |		.BLANK	8080[0x6]
0089 8081 f028  |   (|		.XXX[0x3]
008b 2880       |(   |
008c 8080 8080  |    |		.BLANK	8080[0x7]
0093 8081 f080  |    |		.XXX[0x2]
0095 8080 8080  |    |		.BLANK	8080[0x9]
009e 8081 f080  |    |		.XXX[0x2]
00a0 8080 8080  |    |		.BLANK	8080[0x6]
00a6 8081 f028  |   (|		.XXX[0x2]
00a8 8080 8080  |    |		.BLANK	8080[0x8]
00b0 81f1 05b1  |    |		.XXX[0x15]
00b2 b081 bdd1  |    |
00b4 a195 c881  |    |
00b6 bd89 a995  |    |
00b8 8dd1 cc81  |    |
00ba a5b8 81f1  |    |
00bc 4881 858d  |H   |
00be 8d95 cdcc  |    |
00c0 8080 8080  |    |
00c2 8080 81f0  |    |
00c4 2880       |(   |
00c5 8080 8080  |    |		.BLANK	8080[0x7]
00cc 8081 f0a1  |    |		.XXX[0x7]
00ce cdd5 88a5  |    |
00d0 cde5 cdd1  |    |
00d2 95b4       |    |
00d3 8080 8080  |    |		.BLANK	8080[0x4]
00d7 8081 f080  |    |		.XXX[0x2]
00d9 8080 8080  |    |		.BLANK	8080[0x6]
00df 8081 f028  |   (|		.XXX[0x2]
00e1 8080 8080  |    |		.BLANK	8080[0x9]
00ea b4b4 b4b4  |    |		.BLANK	b4b4[0x12]
00fc b480 2828  |  ((|		.XXX[0x104]
00fe 810d b1a5  |    |
0100 95b9 d028  |   (|
0102 2881 4dd5  |( M |
0104 c195 c9cd  |    |
0106 95d0 81bd  |    |
0108 9881 4995  |  I |
010a 8591 95c8  |    |
010c 8185 8d8d  |    |
010e 95cd cc81  |    |
0110 8db1 85cd  |    |
0112 ccb8 8119  |    |
0114 bdc8 8184  |    |
0116 81d9 a595  |    |
0118 dcb0 81d1  |    |
011a a194 810d  |    |
011c b1a5 95b9  |    |
011e d081 858d  |    |
0120 8d95 cdcc  |    |
0122 818d b185  |    |
0124 cdcc 2881  |  ( |
0126 9dc9 85b9  |    |
0128 d1cc 81cd  |    |
012a d599 99a5  |    |
012c 8da5 95b9  |    |
012e d081 858d  |    |
0130 8d95 cdcc  |    |
0132 81d1 bc81  |    |
0134 85b1 b1bd  |    |
0136 dc81 d1a1  |    |
0138 9481 d9a5  |    |
013a 95dc 81d1  |    |
013c bc81 8994  |    |
013e 81a5 b5c1  |    |
0140 bdc9 d195  |    |
0142 9081 a5b9  |    |
0144 d1bc 81bd  |    |
0146 d1a1 95c8  |    |
0148 81d9 a595  |    |
014a ddcc b828  |   (|
014c 8139 bdd1  | 9  |
014e 9481 d1a1  |    |
0150 85d0 810d  |    |
0152 b1a5 95b9  |    |
0154 d081 858d  |    |
0156 8d95 cdcc  |    |
0158 81d1 bc81  |    |
015a 8481 d9a5  |    |
015c 95dc 81a5  |    |
015e cc81 c995  |    |
0160 c5d5 a5c9  |    |
0162 9590 81bd  |    |
0164 b9b1 e481  |    |
0166 99bd c881  |    |
0168 d1a1 bdcd  |    |
016a 9481 9dc9  |    |
016c bdd5 c1cc  |    |
016e 81dd a1bd  |    |
0170 cd94 2881  |  ( |
0172 d5cd 95c9  |    |
0174 cc81 858d  |    |
0176 d1d5 85b1  |    |
0178 b1e4 81b9  |    |
017a 9595 9081  |    |
017c d1bc 8185  |    |
017e 9190 81d1  |    |
0180 a194 81d9  |    |
0182 a595 dc81  |    |
0184 d1bc 80a1  |    |
0186 bdc8 81c9  |    |
0188 95b5 bdd9  |    |
018a 9481 d1a1  |    |
018c 9481 d9a5  |    |
018e 95dc 8199  |    |
0190 c9bd b4a4  |    |
0192 81d1 a194  |    |
0194 2881 a5b5  |(   |
0196 c1bd c9d1  |    |
0198 cc81 bd98  |    |
019a 81bd d1a1  |    |
019c 95c8 81d9  |    |
019e a595 ddcc  |    |
01a0 b828 2881  | (( |
01a2 19bd c881  |    |
01a4 8481 cdd5  |    |
01a6 89cd e5cd  |    |
01a8 d195 b4b0  |    |
01aa 81d1 a1a5  |    |
01ac cc81 858d  |    |
01ae 8d95 cdcc  |    |
01b0 818d b185  |    |
01b2 cdcc 819d  |    |
01b4 c985 b9d1  |    |
01b6 cc81 cdd5  |    |
01b8 9999 a58d  |    |
01ba a595 b9d0  |    |
01bc 8185 8d8d  |    |
01be 95cd cc81  |    |
01c0 d1bc 8185  |    |
01c2 b1b1 bddc  |    |
01c4 81d1 a194  |    |
01c6 2881 cdd5  |(   |
01c8 89cd e5cd  |    |
01ca d195 b481  |    |
01cc d1bc 8189  |    |
01ce 9481 b585  |    |
01d0 9194 8184  |    |
01d2 818d a1a5  |    |
01d4 b190 81bd  |    |
01d6 9881 8481  |    |
01d8 cde5 cdd1  |    |
01da 95b4 b828  |   (|
01dc 2881 5da1  |( ] |
01de 95b8 8184  |    |
01e0 819d c9bd  |    |
01e2 d5c0 81a5  |    |
01e4 cc81 85cd  |    |
01e6 cda5 9db9  |    |
01e8 9590 81d1  |    |
01ea bc81 d1a1  |    |
01ec 9481 0db1  |    |
01ee a595 b9d0  |    |
01f0 8185 8d8d  |    |
01f2 95cd cc81  |    |
01f4 8db1 85cd  |    |
01f6 cc81 99bd  |    |
01f8 c881 8481  |    |
01fa d9a5 95dc  |    |
01fc b081 d1a1  |    |
01fe 9428 8199  | (  |