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

⟦3dec02551⟧

    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 001b       |    |		.CONST	0x001b								; Address of begin
0019 0038       | 8  |		.CONST	0x0038								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b 00db       |    |		Load_Top	At_Offset_3
001c 8002       |    |		Call	0x0,0x2
001d 6818       |h   |		Jump_Zero	0x36
001e e5fd       |    |		Load	0x2,-0x3
001f e5fe       |    |		Load	0x2,-0x2
0020 0092 003b  |   ;|		Action	Push_String_Extended,0x3b					; "'Spec"
0022 01cc       |    |		Execute	Vector,Catenate
0023 e5ff       |    |		Load	0x2,-0x1
0024 0092 003b  |   ;|		Action	Push_String_Extended,0x3b					; "'Spec"
0026 01cc       |    |		Execute	Vector,Catenate
0027 8003       |    |		Call	0x0,0x3
0028 680b       |h   |		Jump_Zero	0x34
0029 e5fd       |    |		Load	0x2,-0x3
002a e5fe       |    |		Load	0x2,-0x2
002b 0092 003c  |   <|		Action	Push_String_Extended,0x3c					; "'Body"
002d 01cc       |    |		Execute	Vector,Catenate
002e e5ff       |    |		Load	0x2,-0x1
002f 0092 003c  |   <|		Action	Push_String_Extended,0x3c					; "'Body"
0031 01cc       |    |		Execute	Vector,Catenate
0032 8003       |    |		Call	0x0,0x3
0033 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0034 4800       |H   |		Short_Literal	0x0
0035 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0036 4800       |H   |		Short_Literal	0x0
0037 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0038			TRAP_0018:
0038 0007       |    |		Action	Break_Optional
0039 4800       |H   |		Short_Literal	0x0
003a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
003b ; --------------------------------------------------------------------------------------
003b ; STRING TABLE
003b ; --------------------------------------------------------------------------------------
003b 0006       |    |		.STRTAB	0x0006->0x003e							; "'Spec"
003c 0009       |    |		.STRTAB	0x0009->0x0040							; "'Body"
003d 000c       |    |		.STREND 0x000c->0x0043
003e 2753 7065  |'Spe|		.STRTAB_STRINGS
0043 0000 0000  |    |		.BLANK	0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; Debug Table
0048 ; --------------------------------------------------------------------------------------
0048 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0x0b84,0x0000,0x0001,0x0000
004e afc4 b09a  |    |		.XXX[0x1b2]
0050 86ca 662e  |  f.|
0052 acb8 f7f6  |    |
0054 ae46 ae5e  | F ^|
0056 ac1e 271a  |  ' |
0058 9d9c 6520  |  e |
005a 79ca 6e50  |y nP|
005c 0362 8250  | b P|
005e 038e 6e54  |  nT|
0060 0044 8c88  | D  |
0062 0254 00b2  | T  |
0064 aa54 0376  | T v|
0066 823d 244c  | =$L|
0068 9254 007a  | T z|
006a 7654 01ee  |vT  |
006c 7254 008a  |rT  |
006e 7658 01ee  |vX  |
0070 8e58 0152  | X R|
0072 7a58 02ac  |zX  |
0074 5c88 0258  |\  X|
0076 0046 a258  | F X|
0078 017a 7258  | zrX|
007a 012a 7a5c  | *z\|
007c 01ee 8e5c  |   \|
007e 0152 7a5c  | Rz\|
0080 017a 9a5c  | z \|
0082 0290 7888  |  x |
0084 025c 0066  | \ f|
0086 a89e 384c  |  8L|
0088 9260 01b2  | `  |
008a 7a60 014e  |z` N|
008c 9a60 03f6  | `  |
008e 6e64 0008  |nd  |
0090 8488 0264  |   d|
0092 0152 7a64  | Rzd|
0094 03ec 80f6  |    |
0096 b01a 7664  |  vd|
0098 01ee 7a68  |  zh|
009a 0062 7668  | bvh|
009c 0082 b268  |   h|
009e 0218 b488  |    |
00a0 0268 0106  | h  |
00a2 7a6c 01c6  |zl  |
00a4 8e6c 000c  | l  |
00a6 2088 026c  |   l|
00a8 00be b26c  |   l|
00aa 0368 976e  | h n|
00ac a2d9 d275  |   u|
00ae d528 4716  | (G |
00b0 2dcc 79fc  |- y |
00b2 8644 0966  | D f|
00b4 94e2 6cbc  |  l |
00b6 aeaa 9bc5  |    |
00b8 ed6e b074  | n t|
00ba 0f74 3542  | t5B|
00bc 313c 285d  |1<(]|
00be c57d 2896  | }( |
00c0 2bf8 e4ce  |+   |
00c2 a7dd a3f1  |    |
00c4 3889 9d92  |8   |
00c6 b154 459a  | TE |
00c8 b176 b3d1  | v  |
00ca 0182 b0ee  |    |
00cc a436 1052  | 6 R|
00ce 5636 46ee  |V6F |
00d0 aa52 ac84  | R  |
00d2 ee22 4642  | "FB|
00d4 3066 55ee  |0fU |
00d6 2126 530a  |!&S |
00d8 a831 ff60  | 1 `|
00da b906 a499  |    |
00dc 1808 1296  |    |
00de 7600 be1e  |v   |
00e0 b03e 121a  | >  |
00e2 b1f9 8679  |   y|
00e4 6199 1a36  |a  6|
00e6 b275 6316  | uc |
00e8 62b5 f561  |b  a|
00ea 1a71 62ba  | qb |
00ec a512 55d6  |  U |
00ee b0ae 2bca  |  + |
00f0 999e b1fc  |    |
00f2 879e 2bde  |  + |
00f4 aa76 b1b8  | v  |
00f6 017a 967c  | z ||
00f8 f166 947a  | f z|
00fa 9f8e ab82  |    |
00fc 9556 967a  | V z|
00fe b0de 2962  |  )b|
0100 97a4 2cde  |  , |
0102 9df6 b20d  |    |
0104 b758 228a  | X" |
0106 b2ae b255  |   U|
0108 3296 b00e  |2   |
010a 9e66 b2c6  | f  |
010c b28e b008  |    |
010e 2966 94fe  |)f  |
0110 526a b2ce  |Rj  |
0112 b292 b305  |    |
0114 9316 46f6  |  F |
0116 b3c2 2ab2  |  * |
0118 b06a 5e86  | j^ |
011a a726 3d5a  | &=Z|
011c 96fa b2ea  |    |
011e b298 3536  |  56|
0120 a5ca 61a2  |  a |
0122 b166 9709  | f  |
0124 c2e2 b326  |   &|
0126 b1a6 b268  |   h|
0128 357a afde  |5z  |
012a abc5 ee7e  |   ~|
012c b2be b185  |    |
012e e940 066e  | @ n|
0130 b07e 9eca  | ~  |
0132 3d98 72e6  |= r |
0134 b3c5 eeba  |    |
0136 b0fe 1f5e  |   ^|
0138 b326 b386  | &  |
013a b122 9f66  | " f|
013c b392 b30e  |    |
013e b17e 9675  | ~ u|
0140 d6ae 2b1a  |  + |
0142 b3e8 a37e  |   ~|
0144 b396 b198  |    |
0146 70b2 57c2  |p W |
0148 b3aa b3be  |    |
014a b275 d562  | u b|
014c 0fa6 b0fa  |    |
014e 2972 957c  |)r ||
0150 2b59 47e6  |+YG |
0152 b112 2bee  |  + |
0154 b140 05b2  | @  |
0156 ad24 05ca  | $  |
0158 b130 2946  | 0)F|
015a 0bd2 b3ea  |    |
015c b3ae b10c  |    |
015e 29c6 ae2a  |)  *|
0160 0682 9e84  |    |
0162 27c5 ee9e  |'   |
0164 ad6a 1216  | j  |
0166 a326 6e3a  | &n:|
0168 a2da 9edd  |    |
016a 4056 9aee  |@V  |
016c 6c4e b6b2  |lN  |
016e afaa 9c3e  |   >|
0170 9a2e 542a  | .T*|
0172 9a3e a28e  | >  |
0174 5476 7b06  |Tv{ |
0176 9cd4 b63a  |   :|
0178 b322 a405  | "  |
017a 6f62 1c71  |ob q|
017c 6182 103a  |a  :|
017e a8fd ffce  |    |
0180 accc 9686  |    |
0182 b3d9 1b1c  |    |
0184 e0c6 48dd  |  H |
0186 fea4 ab4e  |   N|
0188 b16a 9786  | j  |
018a 9cc6 b45d  |   ]|
018c 596c ecd2  |Yl  |
018e b6fe 64d2  |  d |
0190 b614 080e  |    |
0192 b20e 181e  |    |
0194 b6f2 ae76  |   v|
0196 40cd 4b26  |@ K&|
0198 ad65 1338  | e 8|
019a cb9a b0da  |    |
019c b7ae acca  |    |
019e 4aa4 a83e  |J  >|
01a0 b6ca 6786  |  g |
01a2 b225 86be  | %  |
01a4 394e 9449  |9N I|
01a6 e3a0 5cc0  |  \ |
01a8 37c0 5c22  |7 \"|
01aa 6c55 0a2c  |lU ,|
01ac a3bc 73f6  |  s |
01ae 595a b4f6  |YZ  |
01b0 6f5c bb9a  |o\  |
01b2 a94e b504  | N  |
01b4 2fa6 0b5a  |/  Z|
01b6 4986 6cc6  |I l |
01b8 4250 dc5e  |BP ^|
01ba 9276 4a74  | vJt|
01bc 1800 fce4  |    |
01be 0ad2 4542  |  EB|
01c0 7cc6 41ae  || A |
01c2 94b2 41d0  |  A |
01c4 f830 5c74  | 0\t|
01c6 0f4d 0c6a  | M j|
01c8 4e74 18b8  |Nt  |
01ca 2ad6 7339  |* s9|
01cc 3914 2ea0  |9 . |
01ce aa64 68c2  | dh |
01d0 5cb2 84dc  |\   |
01d2 d990 9bf0  |    |
01d4 6202 81e2  |b   |
01d6 b4a6 7c5c  |  |\|
01d8 2b59 b691  |+Y  |
01da 9dd4 4c91  |  L |
01dc d01a 55f9  |  U |
01de e338 4f51  | 8OQ|
01e0 fe1a b741  |   A|
01e2 e3cc 1311  |    |
01e4 9f08 f38d  |    |
01e6 e2c8 0d20  |    |
01e8 9ce6 2838  |  (8|
01ea 5e71 9c78  |^q x|
01ec 0780 ae98  |    |
01ee 5e09 59ba  |^ Y |
01f0 5d34 099a  |]4  |
01f2 a0d4 b566  |   f|
01f4 b7fa a33a  |   :|
01f6 5a8a b5da  |Z   |
01f8 47d6 3e9c  |G > |
01fa 289a 9a88  |(   |
01fc 00d2 7688  |  v |
01fe 00d2 7a88  |  z |