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

⟦fc569867f⟧

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

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 0050       | P  |		.CONST	0x0050								; 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 0026       | &  |		.CONST	0x0026								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0013       |    |		.CONST	0x0013								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 e001       |    |		Load	0x0,0x1
0013 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0014 0129       | )  |		Execute	Any,Make_Visible
0015 c211       |    |		Store	0x1,0x11
0016 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
0018 c212       |    |		Store	0x1,0x12
0019 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
001b c213       |    |		Store	0x1,0x13
001c 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
001e c210       |    |		Store	0x1,0x10
001f 00bf       |    |		Action	Accept_Activation
0020 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0025 00c7       |    |		Action	Elaborate_Subprogram
0026			BODY_0008:
0026 00bc       |    |		Action	Signal_Activated
0027 00bb       |    |		Action	Signal_Completion
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b       | +  |		.CONST	0x002b								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0001       |    |		.CONST	0x0001								; Number of locals
002b			BODY_0028:
002b			INIT_0028:
002b 480a       |H   |		Short_Literal	0xa
002c 00db       |    |		Load_Top	At_Offset_3
002d 01cb       |    |		Execute	Vector,Append
002e e5fe       |    |		Load	0x2,-0x2
002f e001       |    |		Load	0x0,0x1
0030 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0031 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b 00da       |    |		Load_Top	At_Offset_2
003c e5fe       |    |		Load	0x2,-0x2
003d e001       |    |		Load	0x0,0x1
003e 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
003f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 00da       |    |		Load_Top	At_Offset_2
0044 e001       |    |		Load	0x0,0x1
0045 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0046 6804       |h   |		Jump_Zero	0x4b
0047 00da       |    |		Load_Top	At_Offset_2
0048 e001       |    |		Load	0x0,0x1
0049 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
004a c5ff       |    |		Store	0x2,-0x1
004b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004c 0000 0000  |    |		.BLANK	0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; Debug Table
0050 ; --------------------------------------------------------------------------------------
0050 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x91c0,0x0000,0x0001,0x0000
0056 5d4a 7a78  |]Jzx|		.XXX[0x1aa]
0058 2a6e 9c34  |*n 4|
005a 0172 8935  | r 5|
005c 4aa9 a4d1  |J   |
005e 77c0 7153  |w qS|
0060 d0be 9b13  |    |
0062 6481 0789  |d   |
0064 f08c 02a2  |    |
0066 a458 4c3c  | XL<|
0068 a103 4072  |  @r|
006a 48c5 d7ba  |H   |
006c 5adf e47d  |Z  }|
006e f1d9 10de  |    |
0070 a955 7271  | Urq|
0072 b7c8 24c1  |  $ |
0074 7855 4288  |xUB |
0076 7681 bab8  |v   |
0078 6cba 9f43  |l  C|
007a 8488 11d3  |    |
007c 0c1d 2002  |    |
007e e084 e2e0  |    |
0080 f70d 3430  |  40|
0082 7cc0 0702  ||   |
0084 b317 51b0  |  Q |
0086 c036 b21a  | 6  |
0088 0097 80f6  |    |
008a 402b a353  |@+ S|
008c c756 7898  | Vx |
008e 0830 78ae  | 0x |
0090 a01f 4602  |  F |
0092 b2ed 85b5  |    |
0094 62c5 f68e  |b   |
0096 5a9d 0011  |Z   |
0098 8161 a127  | a '|
009a d651 1037  | Q 7|
009c 3e40 c81e  |>@  |
009e 680c df80  |h   |
00a0 8ad3 ddce  |    |
00a2 8cf4 2598  |  % |
00a4 7ffe 0137  |   7|
00a6 0342 b616  | B  |
00a8 143e 2002  | >  |
00aa 5001 f446  |P  F|
00ac bc58 5daf  | X] |
00ae 5b2b 1b87  |[+  |
00b0 c22a 09d4  | *  |
00b2 2cd8 0400  |,   |
00b4 f4ce 111d  |    |
00b6 0c04 c0db  |    |
00b8 511e fbc9  |Q   |
00ba f1e0 421b  |  B |
00bc 5424 1fb7  |T$  |
00be 77c0 16e0  |w   |
00c0 0ca1 77f8  |  w |
00c2 8792 d6b1  |    |
00c4 a751 3729  | Q7)|
00c6 2995 56cf  |) V |
00c8 5b92 68cb  |[ h |
00ca bec1 6321  |  c!|
00cc 14b4 08c1  |    |
00ce d2ef 89c1  |    |
00d0 65c4 3e00  |e > |
00d2 5809 1307  |X   |
00d4 cca8 014d  |   M|
00d6 4ecc c840  |N  @|
00d8 4803 9ede  |H   |
00da 259f 4314  |% C |
00dc 9bc0 51e0  |  Q |
00de 0000 2f9a  |  / |
00e0 b1de 00eb  |    |
00e2 ae77 d42f  | w /|
00e4 02fd 85ce  |    |
00e6 e15a 8db8  | Z  |
00e8 a640 a4af  | @  |
00ea 3587 be1e  |5   |
00ec 22f0 4100  |" A |
00ee 2678 b17a  |&x z|
00f0 47af 60fd  |G ` |
00f2 004f 41a2  | OA |
00f4 76c5 0800  |v   |
00f6 68a4 9b00  |h   |
00f8 65ad 741f  |e t |
00fa 83c1 90a6  |    |
00fc cf1b 1cc8  |    |
00fe 0784 e4a3  |    |
0100 928e 5666  |  Vf|
0102 1da3 6011  |  ` |
0104 b116 c050  |   P|
0106 cf1e 8586  |    |
0108 0b3c 9a40  | < @|
010a f70e d1f8  |    |
010c 0700 a9c0  |    |
010e 0139 ae78  | 9 x|
0110 d403 65b3  |  e |
0112 07f6 2168  |  !h|
0114 2402 9359  |$  Y|
0116 8e0e a554  |   T|
0118 2d51 a107  |-Q  |
011a ddd0 db84  |    |
011c 14c6 7163  |  qc|
011e ae82 57d9  |  W |
0120 99ae 7580  |  u |
0122 70db f9da  |p   |
0124 eb59 f800  | Y  |
0126 0a02 1261  |   a|
0128 b7c2 d6b8  |    |
012a 1632 b367  | 2 g|
012c 5540 2d56  |U@-V|
012e 2fc1 c9a4  |/   |
0130 d459 996a  | Y j|
0132 46b7 2959  |F )Y|
0134 3fad 2546  |? %F|
0136 76e8 da08  |v   |
0138 0200 2d84  |  - |
013a 0b1c 808b  |    |
013c 2ec5 d796  |.   |
013e 41b1 5468  |A Th|
0140 e89c a4ea  |    |
0142 e71e 4d8e  |  M |
0144 8703 7ac7  |  z |
0146 dfec be90  |    |
0148 3036 958e  |06  |
014a 1b99 0c0f  |    |
014c 0318 283a  |  (:|
014e e6c7 e00f  |    |
0150 6806 0732  |h  2|
0152 618d fec1  |a   |
0154 0121 cff1  | !  |
0156 8a35 6900  | 5i |
0158 dc52 029a  | R  |
015a 1ae7 966b  |   k|
015c cc15 a034  |   4|
015e 43c1 1961  |C  a|
0160 7c01 fdaf  ||   |
0162 6707 90a1  |g   |
0164 e981 8445  |   E|
0166 70cc d81d  |p   |
0168 5d89 3640  |] 6@|
016a 547f 4002  |T @ |
016c 02a4 d570  |   p|
016e cc67 f801  | g  |
0170 d902 f24c  |   L|
0172 fd20 8351  |   Q|
0174 e476 df01  | v  |
0176 6288 0741  |b  A|
0178 3411 038f  |4   |
017a 2957 e40a  |)W  |
017c 72c2 724d  |r rM|
017e be02 43ac  |  C |
0180 6f83 7d29  |o })|
0182 c9b4 d661  |   a|
0184 7286 b4a1  |r   |
0186 5dbd 25de  |] % |
0188 837e 0c3d  | ~ =|
018a 8000 6389  |  c |
018c 7abb 5ec6  |z ^ |
018e 62ad 194b  |b  K|
0190 8969 ccd5  | i  |
0192 bb17 55c2  |  U |
0194 b8d8 0742  |   B|
0196 3416 039f  |4   |
0198 29c4 f587  |)   |
019a 3407 e1b9  |4   |
019c 8a03 4e3b  |  N;|
019e 4354 e4a6  |CT  |
01a0 3690 7154  |6 qT|
01a2 8fe4 bad1  |    |
01a4 576c 3516  |Wl5 |
01a6 92c0 a71a  |    |
01a8 a41f e00c  |    |
01aa 927b 8120  | {  |
01ac f885 3482  |  4 |
01ae e3a9 b905  |    |
01b0 1f39 c520  | 9  |
01b2 e31f 5575  |  Uu|
01b4 a87b 9ee3  | {  |
01b6 98a3 8039  |   9|
01b8 4558 8407  |EX  |
01ba 32d5 af91  |2   |
01bc cc37 88c2  | 7  |
01be 3ef1 2d4b  |> -K|
01c0 5f70 0c41  |_p A|
01c2 21f3 9217  |!   |
01c4 5737 28e7  |W7( |
01c6 b50b c921  |   !|
01c8 2c0d 6200  |, b |
01ca 2a69 ccca  |*i  |
01cc f25a bc60  | Z `|
01ce 0a43 5f98  | C_ |
01d0 0398 d745  |   E|
01d2 0196 4401  |  D |
01d4 4aaf c792  |J   |
01d6 3027 f802  |0'  |
01d8 f603 3c12  |  < |
01da 8230 2398  | 0# |
01dc ccd4 1bd0  |    |
01de 0fea 6642  |  fB|
01e0 0cf9 00fb  |    |
01e2 0068 411f  | hA |
01e4 400a 917a  |@  z|
01e6 5803 d601  |X   |
01e8 9703 193e  |   >|
01ea ea88 3a05  |  : |
01ec cd48 01b8  | H  |
01ee 0262 4353  | bCS|
01f0 5698 823a  |V  :|
01f2 c015 e2f7  |    |
01f4 197a ede0  | z  |
01f6 2139 3d19  |!9= |
01f8 b050 ee56  | P V|
01fa 9163 4170  | cAp|
01fc 0ba8 600b  |  ` |
01fe 18be 03dd  |    |