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

⟦0d17387ef⟧

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

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 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 0023       | #  |		.CONST	0x0023								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0003       |    |		.CONST	0x0003								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
001d 02c7       |    |		Declare_Variable	Any
001e 00d8       |    |		Load_Top	At_Offset_0
001f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0020 e001       |    |		Load	0x0,0x1
0021 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0022 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0023			BODY_0018:
0023 e001       |    |		Load	0x0,0x1
0024 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0025 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0026 e402       |    |		Load	0x2,0x2
0027 0120       |    |		Execute	Any,Is_Value
0028 6803       |h   |		Jump_Zero	0x2c
0029 e001       |    |		Load	0x0,0x1
002a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
002b 7801       |x   |		Jump	0x2d
002c e402       |    |		Load	0x2,0x2
002d 6012       |`   |		Indirect_Literal	Discrete,0x40,{0x00000000, 0x00004000}
002e e002       |    |		Load	0x0,0x2
002f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0030 e003       |    |		Load	0x0,0x3
0031 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0032 e001       |    |		Load	0x0,0x1
0033 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0034 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0035 e5ff       |    |		Load	0x2,-0x1
0036 e001       |    |		Load	0x0,0x1
0037 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0038 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0039 c402       |    |		Store	0x2,0x2
003a c403       |    |		Store	0x2,0x3
003b 00d8       |    |		Load_Top	At_Offset_0
003c 0f00       |    |		Execute_Immediate	Equal,0x0
003d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
003e 0000 0000  |    |		.XXX[0x2]
0040 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0044 0000 0000  |    |		.BLANK	0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; Debug Table
0048 ; --------------------------------------------------------------------------------------
0048 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x4210,0x0000,0x0001,0x0000
004e 4aa0 0000  |J   |		.XXX[0xb]
0050 0000 0000  |    |
0052 0004 0000  |    |
0054 0000 0000  |    |
0056 0004 0000  |    |
0058 225c       |"\  |
0059 0000 0000  |    |		.BLANK	0000[0x5]
005e 0012 0000  |    |		.XXX[0x1a]
0060 0e16 0112  |    |
0062 414c 0000  |AL  |
0064 0000 0112  |    |
0066 5733 0089  |W3  |
0068 26b3 0000  |&   |
006a 3b7a 4011  |;z@ |
006c 24de 6011  |$ ` |
006e 2508 c000  |%   |
0070 0b88 8022  |   "|
0072 3b81 0000  |;   |
0074 0000 0022  |   "|
0076 4a66 4000  |Jf@ |
0078 0000 0000  |    |		.BLANK	0000[0x4]
007c 2494 0040  |$  @|		.XXX[0x11]
007e 000b 8741  |   A|
0080 0350 b800  | P  |
0082 1000 0170  |   p|
0084 e800 0171  |   q|
0086 1004 4770  |  Gp|
0088 2000 0000  |    |
008a 0004 4954  |  IT|
008c c800       |    |
008d 0000 0000  |    |		.BLANK	0000[0x4]
0091 0492 8008  |    |		.XXX[0x15]
0093 0001 70e8  |  p |
0095 206a 1700  | j  |
0097 0180 002e  |   .|
0099 1d00 4495  |  D |
009b 0d00 0000  |    |
009d 0000 0000  |    |
009f 0100 0000  |    |
00a1 0000 0000  |    |
00a3 0080 0049  |   I|
00a5 2800       |(   |
00a6 0000 0000  |    |		.BLANK	0000[0x4]
00aa 4495 8d00  |D   |		.XXX[0xc]
00ac 0000 0000  |    |
00ae 0000 0100  |    |
00b0 0000 0000  |    |
00b2 0000 0080  |    |
00b4 0049 2800  | I( |
00b6 0000 0000  |    |		.BLANK	0000[0x5]
00bb 0480 0017  |    |		.XXX[0x5]
00bd 1100 4493  |  D |
00bf 3800       |8   |
00c0 0000 0000  |    |		.BLANK	0000[0x4]
00c4 224b 1f40  |"K @|		.XXX[0x10]
00c6 0001 cc78  |   x|
00c8 0449 65e8  | Ie |
00ca 0449 7080  | Ip |
00cc 0000 70c0  |  p |
00ce 088d 0d00  |    |
00d0 0000 0000  |    |
00d2 0892 f630  |   0|
00d4 0000 0000  |    |		.BLANK	0000[0x4]
00d8 0001 1320  |    |		.XXX[0x11]
00da 1000 0070  |   p|
00dc 60c4 840e  |`   |
00de 0007 0000  |    |
00e0 0e0c 0000  |    |
00e2 0e18 0111  |    |
00e4 a1a0 0000  |    |
00e6 0000 0112  |    |
00e8 60c6       |`   |
00e9 0000 0000  |    |		.BLANK	0000[0x5]
00ee 2264 0200  |"d  |		.XXX[0x25]
00f0 000e 0c18  |    |
00f2 9081 c008  |    |
00f4 e000 01c1  |    |
00f6 8011 25fc  |  % |
00f8 8000 0000  |    |
00fa 0000 0000  |    |
00fc 4000 0000  |@   |
00fe 0000 0000  |    |
0100 4000 0226  |@  &|
0102 4000 0000  |@   |
0104 0000 0000  |    |
0106 0011 261c  |  & |
0108 8000 0000  |    |
010a 0000 0000  |    |
010c 4000 0000  |@   |
010e 0000 0000  |    |
0110 4000 0226  |@  &|
0112 4000       |@   |
0113 0000 0000  |    |		.BLANK	0000[0x4]
0117 0001 2000  |    |		.XXX[0x2f]
0119 00e1 8011  |    |
011b 2587 4000  |% @ |
011d 0000 0011  |    |
011f 2705 d008  |'   |
0121 9324 7000  | $p |
0123 0397 c401  |    |
0125 1265 0e01  | e  |
0127 1267 b400  | g  |
0129 00b8 8c02  |    |
012b 23be 5000  |# P |
012d 0000 0002  |    |
012f 24d4 b400  |$   |
0131 0000 0002  |    |
0133 24d8 b400  |$   |
0135 024a 0004  | J  |
0137 0000 b874  |   t|
0139 1081 0b80  |    |
013b 0100 0017  |    |
013d 0e80 0017  |    |
013f 1180 4477  |  Dw|
0141 ca00 0000  |    |
0143 0000 449b  |  D |
0145 9700       |    |
0146 0000 0000  |    |		.BLANK	0000[0x4]
014a 0049 4000  | I@ |		.XXX[0x15]
014c 8000 170e  |    |
014e 8210 2170  |  !p|
0150 0018 0002  |    |
0152 e1d0 0449  |   I|
0154 ad70 0000  | p  |
0156 0000 0000  |    |
0158 0010 0000  |    |
015a 0000 0000  |    |
015c 0008 0004  |    |
015e 9400       |    |
015f 0000 0000  |    |		.BLANK	0000[0x4]
0163 0449 b570  | I p|		.XXX[0xc]
0165 0000 0000  |    |
0167 0000 0010  |    |
0169 0000 0000  |    |
016b 000c acb0  |    |
016d 0001 a898  |    |
016f 0000 0000  |    |		.BLANK	0000[0x4]
0173 0224 debc  | $  |		.XXX[0xc]
0175 0000 0000  |    |
0177 0000 0008  |    |
0179 0000 0000  |    |
017b 0000 0004  |    |
017d 0002 4a00  |  J |
017f 0000 0000  |    |		.BLANK	0000[0x5]
0184 0024 0000  | $  |		.XXX[0x5]
0186 b88c 0224  |   $|
0188 c810       |    |
0189 0000 0000  |    |		.BLANK	0000[0x4]
018d 0112 7224  |  r$|		.XXX[0x10]
018f 0000 0e64  |   d|
0191 0022 4e54  | "NT|
0193 8022 4ea9  | "N |
0195 4000 0386  |@   |
0197 8044 6930  | Di0|
0199 0000 0000  |    |
019b 0044 9dfc  | D  |
019d 0000 0000  |    |		.BLANK	0000[0x5]
01a2 089b 0080  |    |		.XXX[0x11]
01a4 0003 8306  |    |
01a6 2420 7000  |$ p |
01a8 3800 0070  |8  p|
01aa 6000 0070  |`  p|
01ac d008 8d26  |   &|
01ae 0000 0000  |    |
01b0 0008 93cf  |    |
01b2 8000       |    |
01b3 0000 0000  |    |		.BLANK	0000[0x4]
01b7 0113 6010  |  ` |		.XXX[0x15]
01b9 0000 7060  |  p`|
01bb c484 0e00  |    |
01bd 4700 000e  |G   |
01bf 0c00 893c  |   <|
01c1 7900 0000  |y   |
01c3 0000 0000  |    |
01c5 0200 0000  |    |
01c7 0000 0000  |    |
01c9 0200 0011  |    |
01cb 3600       |6   |
01cc 0000 0000  |    |		.BLANK	0000[0x4]
01d0 893d 7900  | =y |		.XXX[0xc]
01d2 0000 0000  |    |
01d4 0000 0200  |    |
01d6 0000 0000  |    |
01d8 0000 0200  |    |
01da 0011 3600  |  6 |
01dc 0000 0000  |    |		.BLANK	0000[0x5]
01e1 0900 0007  |    |		.XXX[0x1f]
01e3 0d00 8938  |   8|
01e5 cf00 0000  |    |
01e7 0000 8944  |   D|
01e9 c380 449f  |  D |
01eb 6e00 001d  |n   |
01ed bdd0 0893  |    |
01ef f1c0 0894  |    |
01f1 06f0 0005  |    |
01f3 c480 111e  |    |
01f5 2980 0000  |)   |
01f7 0000 1128  |   (|
01f9 3840 0000  |8@  |
01fb 0000 1128  |   (|
01fd 5840 0012  |X@  |
01ff 4e00       |N   |