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

⟦25cf79422⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 002a       | *  |		.CONST	0x002a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b e214       |    |		Load	0x1,0x14
000c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
000d e214       |    |		Load	0x1,0x14
000e 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
000f e214       |    |		Load	0x1,0x14
0010 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0011 00e1       |    |		Load_Encached	Boolean_Cache
0012 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0013 0007       |    |		Action	Break_Optional
0014 0007       |    |		Action	Break_Optional
0015 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0017 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
0019 e013       |    |		Load	0x0,0x13
001a 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
001b 00c6       |    |		Action	Check_Subprogram_Elaborated
001c 4806       |H   |		Short_Literal	0x6
001d 4802       |H   |		Short_Literal	0x2
001e 0099       |    |		Action	Reference_Dynamic
001f 4807       |H   |		Short_Literal	0x7
0020 4802       |H   |		Short_Literal	0x2
0021 0099       |    |		Action	Reference_Dynamic
0022 e019       |    |		Load	0x0,0x19
0023 e01a       |    |		Load	0x0,0x1a
0024 480c       |H   |		Short_Literal	0xc
0025 0007       |    |		Action	Break_Optional
0026 e01b       |    |		Load	0x0,0x1b
0027 02ab       |    |		Declare_Subprogram	For_Call,With_Address
0028 e01c       |    |		Load	0x0,0x1c
0029 02ab       |    |		Declare_Subprogram	For_Call,With_Address
002a			BODY_0008:
002a e214       |    |		Load	0x1,0x14
002b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
002c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
002d e011       |    |		Load	0x0,0x11
002e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002f e018       |    |		Load	0x0,0x18
0030 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0031 e214       |    |		Load	0x1,0x14
0032 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0033 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0034 c402       |    |		Store	0x2,0x2
0035 e214       |    |		Load	0x1,0x14
0036 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0037 e214       |    |		Load	0x1,0x14
0038 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0039 c403       |    |		Store	0x2,0x3
003a e5ff       |    |		Load	0x2,-0x1
003b 840d       |    |		Call	0x2,0xd
003c e214       |    |		Load	0x1,0x14
003d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
003e e403       |    |		Load	0x2,0x3
003f e214       |    |		Load	0x1,0x14
0040 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0041 c404       |    |		Store	0x2,0x4
0042 e5fb       |    |		Load	0x2,-0x5
0043 e5fc       |    |		Load	0x2,-0x4
0044 e5fd       |    |		Load	0x2,-0x3
0045 e5fe       |    |		Load	0x2,-0x2
0046 e404       |    |		Load	0x2,0x4
0047 840e       |    |		Call	0x2,0xe
0048 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0049 0000 0000  |    |		.BLANK	0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 00da       |    |		Load_Top	At_Offset_2
0054 e402       |    |		Load	0x2,0x2
0055 e214       |    |		Load	0x1,0x14
0056 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0057 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 00da       |    |		Load_Top	At_Offset_2
005c 8213       |    |		Call	0x1,0x13
005d e405       |    |		Load	0x2,0x5
005e 6811       |h   |		Jump_Zero	0x70
005f e00e       |    |		Load	0x0,0xe
0060 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0061 4800       |H   |		Short_Literal	0x0
0062 e7fe       |    |		Load	0x3,-0x2
0063 e008       |    |		Load	0x0,0x8
0064 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0065 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0066 0092 007b  |   {|		Action	Push_String_Extended,0x7b					; " depends upon "
0068 01cc       |    |		Execute	Vector,Catenate
0069 e7ff       |    |		Load	0x3,-0x1
006a e008       |    |		Load	0x0,0x8
006b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
006c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
006d 01cc       |    |		Execute	Vector,Catenate
006e e00f       |    |		Load	0x0,0xf
006f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0070 00db       |    |		Load_Top	At_Offset_3
0071 00db       |    |		Load_Top	At_Offset_3
0072 e403       |    |		Load	0x2,0x3
0073 e214       |    |		Load	0x1,0x14
0074 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0075 e402       |    |		Load	0x2,0x2
0076 00db       |    |		Load_Top	At_Offset_3
0077 e214       |    |		Load	0x1,0x14
0078 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0079 c402       |    |		Store	0x2,0x2
007a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
007b ; --------------------------------------------------------------------------------------
007b ; STRING TABLE
007b ; --------------------------------------------------------------------------------------
007b 0004       |    |		.STRTAB	0x0004->0x007d							; " depends upon "
007c 0010       |    |		.STREND 0x0010->0x0084
007d 2064 6570  | dep|		.STRTAB_STRINGS
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x4229,0x0000,0x0001,0x0000
008e 6a0a f397  |j   |		.XXX[0x7]
0090 f028 0409  | (  |
0092 2297 f114  |"   |
0094 1000       |    |
0095 0000 0000  |    |		.BLANK	0000[0x4]
0099 0100 cc00  |    |		.XXX[0xf4]
009b 1000 1389  |    |
009d a400 1f80  |    |
009f 0c6c bc03  | l  |
00a1 c397 f20b  |    |
00a3 9400 c520  |    |
00a5 1f89 a070  |   p|
00a7 2120 0003  |!   |
00a9 64a8 1797  |d   |
00ab f403 64a8  |  d |
00ad 1b97 fc03  |    |
00af 64a0 0b89  |d   |
00b1 a403 680e  |  h |
00b3 5800 cc00  |X   |
00b5 1f97 edc0  |    |
00b7 6b80 0c6c  |k  l|
00b9 bf80 0c6c  |   l|
00bb 5520 0003  |U   |
00bd a802 4947  |  IG|
00bf cf97 fe0b  |    |
00c1 7407 3002  |t 0 |
00c3 4947 5407  |IGT |
00c5 3397 f807  |3   |
00c7 3390 0b97  |3   |
00c9 f389 e061  |   a|
00cb c801 6802  |  h |
00cd 4947 c803  |IG  |
00cf 6a0a f114  |j   |
00d1 1780 0c6c  |   l|
00d3 bd20 0380  |    |
00d5 0c6c 5403  | lT |
00d7 a802 4947  |  IG|
00d9 cf97 fe0b  |    |
00db 7407 3002  |t 0 |
00dd 4947 5407  |IGT |
00df 3397 f807  |3   |
00e1 3390 0b97  |3   |
00e3 ef97 f389  |    |
00e5 e061 c401  | a  |
00e7 6802 4947  |h IG|
00e9 c803 6a0a  |  j |
00eb f397 ec28  |   (|
00ed 0409 2297  |  " |
00ef ed14 1400  |    |
00f1 0102 2c00  |  , |
00f3 1000 1389  |    |
00f5 a400 1f80  |    |
00f7 0c6c bc03  | l  |
00f9 c397 ea0b  |    |
00fb 9400 c520  |    |
00fd 1f89 a070  |   p|
00ff 2397 fc03  |#   |
0101 64a0 0b97  |d   |
0103 f803 64a8  |  d |
0105 1797 ec03  |    |
0107 64a8 1b89  |d   |
0109 a403 680e  |  h |
010b 5800 cc00  |X   |
010d 1f97 e5c0  |    |
010f 5780 0c6c  |W  l|
0111 bf80 0c6c  |   l|
0113 5520 0003  |U   |
0115 ab97 f397  |    |
0117 f797 fb97  |    |
0119 fe0b 8f90  |    |
011b 0b97 eb89  |    |
011d e061 c801  | a  |
011f 6802 4947  |h IG|
0121 d003 6a0a  |  j |
0123 f114 1f80  |    |
0125 0c6c bd20  | l  |
0127 0380 0c6c  |   l|
0129 5403 ab97  |T   |
012b f397 f797  |    |
012d fb97 fe0b  |    |
012f 8f90 0b97  |    |
0131 e797 eb89  |    |
0133 e061 c401  | a  |
0135 6802 4947  |h IG|
0137 d003 6a0a  |  j |
0139 f397 e428  |   (|
013b 0409 2297  |  " |
013d e514 1c00  |    |
013f 0000 0000  |    |
0141 0103 6c00  |  l |
0143 1000 1389  |    |
0145 a400 1f80  |    |
0147 0c6c bc03  | l  |
0149 c397 ee0b  |    |
014b 9400 c520  |    |
014d 1b89 a070  |   p|
014f 2397 fc03  |#   |
0151 64a0 0b97  |d   |
0153 fc03 64a8  |  d |
0155 1797 f003  |    |
0157 64a8 1b89  |d   |
0159 a403 680e  |  h |
015b 5800 cc00  |X   |
015d 1f97 e9c0  |    |
015f 5380 0c6c  |S  l|
0161 bf80 0c6c  |   l|
0163 5520 0003  |U   |
0165 ab97 f797  |    |
0167 fb97 fe0b  |    |
0169 9390 0b97  |    |
016b ef89 e061  |   a|
016d c801 6802  |  h |
016f 4947 d403  |IG  |
0171 6a0a f114  |j   |
0173 1b80 0c6c  |   l|
0175 bd20 0380  |    |
0177 0c6c 5403  | lT |
0179 ab97 f797  |    |
017b fb97 fe0b  |    |
017d 9390 0b97  |    |
017f eb97 ef89  |    |
0181 e061 c401  | a  |
0183 6802 4947  |h IG|
0185 d403 6a0a  |  j |
0187 f397 e828  |   (|
0189 0409 2297  |  " |
018b e914 1800  |    |
018d 0000 0000  |    |		.BLANK	0000[0x4]
0191 0104 ac00  |    |		.XXX[0x6f]
0193 1000 1389  |    |
0195 a400 1f80  |    |
0197 0c6c bc03  | l  |
0199 c397 f20b  |    |
019b 9400 c797  |    |
019d f518 21e0  |  ! |
019f 21e0 49e0  |! I |
01a1 7114 15e0  |q   |
01a3 9514 1514  |    |
01a5 1514 1514  |    |
01a7 1520 0389  |    |
01a9 a070 2120  | p! |
01ab 0003 64a0  |  d |
01ad 0b89 a403  |    |
01af 680e 5800  |h X |
01b1 cde0 8520  |    |
01b3 0789 a070  |   p|
01b5 2120 0003  |!   |
01b7 64a0 0b89  |d   |
01b9 a403 680e  |  h |
01bb 5800 cde0  |X   |
01bd 5920 0b89  |Y   |
01bf a070 2120  | p! |
01c1 0003 64a0  |  d |
01c3 0b89 a403  |    |
01c5 680e 5800  |h X |
01c7 cde0 2d20  |  - |
01c9 1389 a070  |   p|
01cb 2120 0003  |!   |
01cd 64a0 0b89  |d   |
01cf a403 680e  |  h |
01d1 5800 cde0  |X   |
01d3 0397 edc0  |    |
01d5 4f80 0c6c  |O  l|
01d7 bf80 0c6c  |   l|
01d9 5520 0003  |U   |
01db ab97 fb97  |    |
01dd fe0b 8b90  |    |
01df 0b97 f389  |    |
01e1 e061 c801  | a  |
01e3 6802 4947  |h IG|
01e5 d803 6a0a  |  j |
01e7 f114 1780  |    |
01e9 0c6c bd20  | l  |
01eb 0380 0c6c  |   l|
01ed 5403 ab97  |T   |
01ef fb97 fe0b  |    |
01f1 8b90 0b97  |    |
01f3 ef97 f389  |    |
01f5 e061 c401  | a  |
01f7 6802 4947  |h IG|
01f9 d803 6a0a  |  j |
01fb f397 ec28  |   (|
01fd 0409 2297  |  " |
01ff ed14       |    |