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

⟦48efb2254⟧

    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 0088       |    |		.CONST	0x0088								; 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 0059       | Y  |		.CONST	0x0059								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000e 0129       | )  |		Execute	Any,Make_Visible
000f e001       |    |		Load	0x0,0x1
0010 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0011 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0012 0129       | )  |		Execute	Any,Make_Visible
0013 00e9       |    |		Load_Encached	String_Cache
0014 0129       | )  |		Execute	Any,Make_Visible
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 e002       |    |		Load	0x0,0x2
0028 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0029 0129       | )  |		Execute	Any,Make_Visible
002a c216       |    |		Store	0x1,0x16
002b e001       |    |		Load	0x0,0x1
002c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002d 192a       | *  |		Execute	Package,Field_Reference,Field_Number 0x2a
002e 0129       | )  |		Execute	Any,Make_Visible
002f c217       |    |		Store	0x1,0x17
0030 e001       |    |		Load	0x0,0x1
0031 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0032 1924       | $  |		Execute	Package,Field_Reference,Field_Number 0x24
0033 0129       | )  |		Execute	Any,Make_Visible
0034 c220       |    |		Store	0x1,0x20
0035 e001       |    |		Load	0x0,0x1
0036 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0037 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
0038 0129       | )  |		Execute	Any,Make_Visible
0039 c221       | !  |		Store	0x1,0x21
003a e001       |    |		Load	0x0,0x1
003b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003c 1929       | )  |		Execute	Package,Field_Reference,Field_Number 0x29
003d 0129       | )  |		Execute	Any,Make_Visible
003e c218       |    |		Store	0x1,0x18
003f e001       |    |		Load	0x0,0x1
0040 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0041 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
0042 0129       | )  |		Execute	Any,Make_Visible
0043 c212       |    |		Store	0x1,0x12
0044 e001       |    |		Load	0x0,0x1
0045 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0046 192a       | *  |		Execute	Package,Field_Reference,Field_Number 0x2a
0047 0129       | )  |		Execute	Any,Make_Visible
0048 c213       |    |		Store	0x1,0x13
0049 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
004b c21c       |    |		Store	0x1,0x1c
004c 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
004e c21e       |    |		Store	0x1,0x1e
004f 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0051 c21f       |    |		Store	0x1,0x1f
0052 00bf       |    |		Action	Accept_Activation
0053 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0058 00c7       |    |		Action	Elaborate_Subprogram
0059			BODY_0008:
0059 00bc       |    |		Action	Signal_Activated
005a 00bb       |    |		Action	Signal_Completion
005b 0000 0000  |    |		.BLANK	0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 00da       |    |		Load_Top	At_Offset_2
0064 e001       |    |		Load	0x0,0x1
0065 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0066 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0067 e003       |    |		Load	0x0,0x3
0068 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0069 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
006a 0000 0000  |    |		.BLANK	0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 00da       |    |		Load_Top	At_Offset_2
0074 e001       |    |		Load	0x0,0x1
0075 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0076 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0077 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 4800       |H   |		Short_Literal	0x0
007c 00ea       |    |		Load_Encached	Null_String_Cache
007d 6006       |`   |		Indirect_Literal	Discrete,0x84,{0x00000000, 0x7fffffff}
007e e5ff       |    |		Load	0x2,-0x1
007f 8212       |    |		Call	0x1,0x12
0080 e001       |    |		Load	0x0,0x1
0081 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0082 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0083 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0084 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0e56,0x0000,0x0001,0x0000
008e 1a7e 1881  | ~  |		.XXX[0x172]
0090 a0c8 0060  |   `|
0092 15b2 c808  |    |
0094 6041 b0c8  |`A  |
0096 0e2d ac76  | - v|
0098 8136 16d4  | 6  |
009a 5555 01cc  |UU  |
009c 84d5 6349  |  cI|
009e c3d3 85e0  |    |
00a0 2ce4 b6f5  |,   |
00a2 1028 4049  | (@I|
00a4 1354 09b2  | T  |
00a6 db22 4f6d  | "Om|
00a8 cc80 719c  |  q |
00aa 2840 5052  |(@PR|
00ac 140a 49e3  |  I |
00ae d69c 5d53  |  ]S|
00b0 e044 5b59  | D[Y|
00b2 d55a 080b  | Z  |
00b4 7913 f376  |y  v|
00b6 8894 8e18  |    |
00b8 f795 2807  |  ( |
00ba 7eb6 9604  |~   |
00bc ec55 195b  | U [|
00be 0170 e825  | p %|
00c0 d965 fe64  | e d|
00c2 06a3 4548  |  EH|
00c4 8716 261c  |  & |
00c6 d551 768b  | Qv |
00c8 094e 6020  | N` |
00ca 0030 0e35  | 0 5|
00cc 854e 854c  | N L|
00ce 6129 1655  |a) U|
00d0 57f5 9417  |W   |
00d2 8911 2208  |  " |
00d4 9459 659a  | Ye |
00d6 85d5 8dd5  |    |
00d8 52d9 902d  |R  -|
00da 7001 5141  |p QA|
00dc 500e ea40  |P  @|
00de 5000 ec0f  |P   |
00e0 4508 6022  |E `"|
00e2 d300 1720  |    |
00e4 15f6 1569  |   i|
00e6 4981 e020  |I   |
00e8 1008 7a02  |  z |
00ea 6008 301d  |` 0 |
00ec 4444 429a  |DDB |
00ee ac06 11e6  |    |
00f0 652c c006  |e,  |
00f2 4302 9f48  |C  H|
00f4 6000 28bb  |` ( |
00f6 5062 2e18  |Pb. |
00f8 d41a 0200  |    |
00fa 1930 cbd5  | 0  |
00fc 57b2 c760  |W  `|
00fe 612c 1cf3  |a,  |
0100 374a c468  |7J h|
0102 0060 2041  | ` A|
0104 7800 0210  |x   |
0106 ecb4 b900  |    |
0108 12c1 08b6  |    |
010a 4103 0358  |A  X|
010c 7fff c34d  |   M|
010e 2ee9 b3c4  |.   |
0110 6b20 c780  |k   |
0112 8040 24e8  | @$ |
0114 01d3 4324  |  C$|
0116 e2fe 00ca  |    |
0118 051a 8920  |    |
011a 8e00 60b3  |  ` |
011c 026c 0497  | l  |
011e a989 8226  |   &|
0120 e86a 52af  | jR |
0122 04ee 62a2  |  b |
0124 ef06 f3d7  |    |
0126 7aad 46e3  |z F |
0128 8418 c932  |   2|
012a f781 9af0  |    |
012c c408 740c  |  t |
012e 0230 2302  | 0# |
0130 20b0 08e0  |    |
0132 1230 1308  | 0  |
0134 1f4a 7232  | Jr2|
0136 031b d598  |    |
0138 1008 00c0  |    |
013a 8c81 cc00  |    |
013c d72d 33cf  | -3 |
013e 1ceb 5c73  |  \s|
0140 cafa fd00  |    |
0142 4807 0340  |H  @|
0144 20c0 08ab  |    |
0146 21b6 117c  |!  ||
0148 1402 5ded  |  ] |
014a 241c 87fe  |$   |
014c 2e00 a342  |.  B|
014e 20c0 18a9  |    |
0150 313d 3634  |1=64|
0152 028e 8008  |    |
0154 bc18 a80d  |    |
0156 40b8 9665  |@  e|
0158 61cb 00bf  |a   |
015a f093 b4b4  |    |
015c 0166 1033  | f 3|
015e 3022 8203  |0"  |
0160 c4d8 a170  |   p|
0162 502c 088e  |P,  |
0164 6a40 9203  |j@  |
0166 0180 8040  |   @|
0168 c420 20b2  |    |
016a f0cb 0880  |    |
016c 9381 d0d1  |    |
016e 7f3f 3717  | ?7 |
0170 7183 6337  |q c7|
0172 235d f08d  |#]  |
0174 02e0 0a09  |    |
0176 ffc0 dc09  |    |
0178 387e 4edd  |8~N |
017a 9228 cfb8  | (  |
017c e390 0bd1  |    |
017e 37e0 0a55  |7  U|
0180 7fb9 d0be  |    |
0182 6c2c 2bdf  |l,+ |
0184 89c0 df7b  |   {|
0186 b38c 251d  |  % |
0188 38e0 0e96  |8   |
018a 4e11 e402  |N   |
018c 5f32 49eb  |_2I |
018e 9eb5 fc79  |   y|
0190 efa2 4a4f  |  JO|
0192 5103 b600  |Q   |
0194 ee77 2bba  | w+ |
0196 adef f8eb  |    |
0198 a28a 4f90  |  O |
019a 03c6 dd7f  |    |
019c c827 c9d0  | '  |
019e adfc dfcf  |    |
01a0 060f c003  |    |
01a2 d139 5d08  | 9] |
01a4 f7ad c7ef  |    |
01a6 3ab7 b091  |:   |
01a8 0700 f7ba  |    |
01aa 2fb1 f80b  |/   |
01ac 6966 2ec9  |if. |
01ae d75d 7e1c  | ]~ |
01b0 f7d8 002d  |   -|
01b2 9d33 bf2f  | 3 /|
01b4 e008 02d2  |    |
01b6 ff09 d885  |    |
01b8 c063 c000  | c  |
01ba 0802 b844  |   D|
01bc 3120 d02c  |1  ,|
01be 39ab ec5b  |9  [|
01c0 1a28 58b9  | (X |
01c2 2020 0010  |    |
01c4 be82 180b  |    |
01c6 0914 2426  |  $&|
01c8 3218 4828  |2 H(|
01ca 0314 fea2  |    |
01cc 840b ef54  |   T|
01ce ac43 e76f  | C o|
01d0 7f40 4182  | @A |
01d2 2a8a 0600  |*   |
01d4 0487 4320  |  C |
01d6 a101 0404  |    |
01d8 4640 0468  |F@ h|
01da 9261 6759  | agY|
01dc 32c6 d41a  |2   |
01de 3500 8e9e  |5   |
01e0 8118 3025  |  0%|
01e2 40b9 f660  |@  `|
01e4 0c48 1020  | H  |
01e6 0cdd c284  |    |
01e8 b812 5100  |  Q |
01ea 8ea3 a284  |    |
01ec e200 e029  |   )|
01ee 8362 8a20  | b  |
01f0 9f43 224c  | C"L|
01f2 0a80 3dbc  |  = |
01f4 0044 7051  | DpQ|
01f6 c080 00e2  |    |
01f8 8314 3651  |  6Q|
01fa 2c02 55c1  |, U |
01fc 8125 0a94  | %  |
01fe 45e1 d681  |E   |