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

⟦5f798307e⟧

    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 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 e002       |    |		Load	0x0,0x2
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 e002       |    |		Load	0x0,0x2
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 0002  |    |		.DEBUG4	0x0004,0x0002,0x0b8c,0x0000,0x0001,0x0000
005e 0774 0388  | t  |		.XXX[0x4f]
0060 0fc4 036c  |   l|
0062 0770 0388  | p  |
0064 0fc5 2007  |    |
0066 9ffc 076c  |   l|
0068 0360 0388  | `  |
006a 0981 c004  |    |
006c 2004 03a4  |    |
006e 0d6c 0cdc  | l  |
0070 0388 0389  |    |
0072 2000 014b  |   K|
0074 9808 0144  |   D|
0076 033d e058  | = X|
0078 0367 9ffc  | g  |
007a 075c 3c6d  | \<m|
007c a010 0364  |   d|
007e 2810 0169  |(  i|
0080 e044 0368  | D h|
0082 2804 016c  |(  l|
0084 0367 9ffc  | g  |
0086 075c 036f  | \ o|
0088 9810 0758  |   X|
008a 0364 2804  | d( |
008c 0168 0324  | h $|
008e 0367 980c  | g  |
0090 09e9 df98  |    |
0092 0325 e034  | % 4|
0094 0368 2804  | h( |
0096 016c 0367  | l g|
0098 9ffc 075c  |   \|
009a 036f 9810  | o  |
009c 0758 0364  | X d|
009e 2804 0168  |(  h|
00a0 0324 0367  | $ g|
00a2 980c 09e9  |    |
00a4 dfbc 0339  |   9|
00a6 2004 036b  |   k|
00a8 9810 073c  |   <|
00aa 03a4 0719  |    |
00ac 1004       |    |
00ad 0000 0000  |    |		.BLANK	0000[0x5]
00b2 0e74 0010  | t  |		.XXX[0x44]
00b4 0014 0368  |   h|
00b6 0774 0388  | t  |
00b8 0fc4 036c  |   l|
00ba 0770 0388  | p  |
00bc 0fc4 038c  |    |
00be 0fa5 2007  |    |
00c0 9ffc 0248  |   H|
00c2 2b77 8070  |+w p|
00c4 6074 0148  |`t H|
00c6 0365 a035  | e 5|
00c8 2007 9ffc  |    |
00ca 0248 2b7b  | H+{|
00cc 8070 6074  | p`t|
00ce 0144 0360  | D `|
00d0 0368 09f5  | h  |
00d2 a009 2006  |    |
00d4 9021 2007  | !  |
00d6 9ffc 0248  |   H|
00d8 2b7f 8070  |+  p|
00da 6074 0148  |`t H|
00dc 0365 a038  | e 8|
00de 0364 3c05  | d< |
00e0 a013 9ffe  |    |
00e2 1046 1041  | F A|
00e4 e030 0364  | 0 d|
00e6 036f 9ffc  | o  |
00e8 073e 1046  | > F|
00ea 1041 e017  | A  |
00ec 900d 2003  |    |
00ee 9ffe 004c  |   L|
00f0 0347 900d  | G  |
00f2 2000 03aa  |    |
00f4 004d 1408  | M  |
00f6 0000 0000  |    |		.BLANK	0000[0x4]
00fa 0f94 0010  |    |		.XXX[0x3a]
00fc 0014 0368  |   h|
00fe 0774 0388  | t  |
0100 0fc4 036c  |   l|
0102 0770 0388  | p  |
0104 0fc4 038c  |    |
0106 0fa4 0368  |   h|
0108 2bfb 9808  |+   |
010a 09f5 a00c  |    |
010c 0368 2bf8  | h+ |
010e 016d 2007  | m  |
0110 9ffc 0248  |   H|
0112 2b83 8070  |+  p|
0114 6074 0148  |`t H|
0116 0365 a048  | e H|
0118 0364 3c05  | d< |
011a a01b 900d  |    |
011c 2003 9ffe  |    |
011e 004c 0345  | L E|
0120 e03b 900d  | ;  |
0122 2000 036f  |   o|
0124 980f 9ffc  |    |
0126 073e 004c  | > L|
0128 0345 e017  | E  |
012a 900d 2003  |    |
012c 9ffe 004c  |   L|
012e 0347 900d  | G  |
0130 2000 03aa  |    |
0132 004d 1408  | M  |
0134 0000 0000  |    |		.BLANK	0000[0x6]
013a 1094 0010  |    |		.XXX[0x63]
013c 0014 0368  |   h|
013e 0774 0388  | t  |
0140 0fc4 036c  |   l|
0142 0770 0388  | p  |
0144 0fc4 038c  |    |
0146 0fa4 0368  |   h|
0148 2bff 9808  |+   |
014a 09f5 a00c  |    |
014c 0368 2bfc  | h+ |
014e 016d 2007  | m  |
0150 9ffc 0248  |   H|
0152 2b87 8070  |+  p|
0154 6074 0148  |`t H|
0156 0365 a048  | e H|
0158 0364 3c05  | d< |
015a a01b 900d  |    |
015c 2003 9ffe  |    |
015e 004c 0345  | L E|
0160 e0df 900d  |    |
0162 2000 036f  |   o|
0164 980f 9ffc  |    |
0166 073e 004c  | > L|
0168 0345 e0b9  | E  |
016a 2007 9ffc  |    |
016c 0248 2b8b  | H+ |
016e 8070 6074  | p`t|
0170 0148 0365  | H e|
0172 a048 0364  | H d|
0174 3c05 a01b  |<   |
0176 900d 2003  |    |
0178 9ffe 004c  |   L|
017a 0345 e073  | E s|
017c 900d 2000  |    |
017e 036f 980f  | o  |
0180 9ffc 073e  |   >|
0182 004c 0345  | L E|
0184 e04c 0368  | L h|
0186 2b63 9808  |+c  |
0188 09f5 a010  |    |
018a 0368 2b60  | h+`|
018c 0169 e008  | i  |
018e 036c 016b  | l k|
0190 900d 2000  |    |
0192 036f 980f  | o  |
0194 9ffc 073e  |   >|
0196 004c 0347  | L G|
0198 900d 2000  |    |
019a 03aa 004d  |   M|
019c 1408       |    |
019d 0000 0000  |    |		.BLANK	0000[0x5]
01a2 124c 0010  | L  |		.XXX[0x5e]
01a4 0021 2001  | !  |
01a6 200c 0a7c  |   ||
01a8 27cc 0ff5  |'   |
01aa 2005 8248  |   H|
01ac 03a4 0d6c  |   l|
01ae 0cdc 0388  |    |
01b0 0388 038b  |    |
01b2 9808 1800  |    |
01b4 0389 2006  |    |
01b6 9811 2006  |    |
01b8 9817 9ff8  |    |
01ba 0144 033c  | D <|
01bc 0367 9ffc  | g  |
01be 075e 9818  | ^  |
01c0 0369 180d  | i  |
01c2 e06d e0c1  | m  |
01c4 e10d e000  |    |
01c6 036c 3cc9  | l< |
01c8 a00f 9816  |    |
01ca 9811 e03c  |   <|
01cc 036e 0075  | n u|
01ce a030 036c  | 0 l|
01d0 0360 03a0  | `  |
01d2 0981 c004  |    |
01d4 2007 9813  |    |
01d6 980c 075b  |   [|
01d8 9810 2807  |  ( |
01da 1811 2000  |    |
01dc 014d e104  | M  |
01de 036c 3c35  | l<5|
01e0 a00d 2004  |    |
01e2 014d e0ec  | M  |
01e4 036e 0075  | n u|
01e6 a0e0 036c  |   l|
01e8 0360 03a0  | `  |
01ea 0981 c004  |    |
01ec 2007 9813  |    |
01ee 980c 075b  |   [|
01f0 9810 2807  |  ( |
01f2 1811 e0ac  |    |
01f4 036c 3c6d  | l<m|
01f6 a009 2008  |    |
01f8 014c 036c  | L l|
01fa 3c29 a08d  |<)  |
01fc 202b 9813  | +  |
01fe 980c 075b  |   [|