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

⟦895384055⟧

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

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 0058       | X  |		.CONST	0x0058								; 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 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
001d e001       |    |		Load	0x0,0x1
001e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
001f 00db       |    |		Load_Top	At_Offset_3
0020 680a       |h   |		Jump_Zero	0x2b
0021 4801       |H   |		Short_Literal	0x1
0022 e001       |    |		Load	0x0,0x1
0023 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0024 0092 0038  |   8|		Action	Push_String_Extended,0x38					; "------- End of  step:   "
0026 00db       |    |		Load_Top	At_Offset_3
0027 01cc       |    |		Execute	Vector,Catenate
0028 e001       |    |		Load	0x0,0x1
0029 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
002a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
002b 4801       |H   |		Short_Literal	0x1
002c e001       |    |		Load	0x0,0x1
002d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
002e 0092 0039  |   9|		Action	Push_String_Extended,0x39					; "------- Beginning step: "
0030 00db       |    |		Load_Top	At_Offset_3
0031 01cc       |    |		Execute	Vector,Catenate
0032 e001       |    |		Load	0x0,0x1
0033 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0034 4801       |H   |		Short_Literal	0x1
0035 e001       |    |		Load	0x0,0x1
0036 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0037 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0038 ; --------------------------------------------------------------------------------------
0038 ; STRING TABLE
0038 ; --------------------------------------------------------------------------------------
0038 0006       |    |		.STRTAB	0x0006->0x003b							; "------- End of  step:   "
0039 001c       |    |		.STRTAB	0x001c->0x0047							; "------- Beginning step: "
003a 0032       | 2  |		.STREND 0x0032->0x0053
003b 2d2d 2d2d  |----|		.STRTAB_STRINGS
0053 0000 0000  |    |		.BLANK	0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x971a,0x0000,0x0001,0x0000
005e 6041 a01d  |`A  |		.XXX[0x2a]
0060 202b 901b  | +  |
0062 8008 6080  |  ` |
0064 072e 004d  | . M|
0066 1407 97f8  |    |
0068 340d a01f  |4   |
006a 900f 97ef  |    |
006c 97f7 97fa  |    |
006e 084c 0345  | L E|
0070 1407 900f  |    |
0072 97ef 97f7  |    |
0074 97f8 2bfc  |  + |
0076 0360 0390  | `  |
0078 0981 c004  |    |
007a 2006 084c  |   L|
007c 0345 1404  | E  |
007e 001d 2028  |   (|
0080 0248 2017  | H  |
0082 802c 6034  | ,`4|
0084 0730 072e  | 0 .|
0086 0019 1404  |    |
0088 0000 0000  |    |		.BLANK	0000[0x7]
008f 1f4c 1f64  | L d|		.XXX[0x13]
0091 0007 97f3  |    |
0093 97f7 97fb  |    |
0095 97fe 084d  |   M|
0097 1404 001d  |    |
0099 2028 0248  | ( H|
009b 2017 802c  |   ,|
009d 6034 0730  |`4 0|
009f 072e 0019  | .  |
00a1 1404       |    |
00a2 0000 0000  |    |		.BLANK	0000[0x5]
00a7 1fac 1fcc  |    |		.XXX[0x159]
00a9 0007 97f8  |    |
00ab 03ac 63d3  |  c |
00ad 97fe 00da  |    |
00af 00df 17f5  |    |
00b1 1404 001f  |    |
00b3 97f0 03a8  |    |
00b5 0248 20e3  | H  |
00b7 802c 6034  | ,`4|
00b9 0730 0248  | 0 H|
00bb 20e4 0730  |   0|
00bd 0248 20eb  | H  |
00bf 8008 605f  |  `_|
00c1 17f1 1404  |    |
00c3 01c0 0218  |    |
00c5 02c0 0304  |    |
00c7 0318 033c  |   <|
00c9 035c 03f4  | \  |
00cb 04dc 0570  |   p|
00cd 0648 067c  | H ||
00cf 06b4 06e0  |    |
00d1 0754 07e0  | T  |
00d3 089c 0950  |   P|
00d5 09d8 0a6c  |   l|
00d7 0b08 0ba0  |    |
00d9 0c14 0c98  |    |
00db 0d24 0dbc  | $  |
00dd 0e28 0e98  | (  |
00df 0ef8 0f70  |   p|
00e1 0fbc 102c  |   ,|
00e3 1034 10c8  | 4  |
00e5 1158 11dc  | X  |
00e7 1208 128c  |    |
00e9 12c8 1420  |    |
00eb 145c 1468  | \ h|
00ed 1470 1514  | p  |
00ef 15dc 16fc  |    |
00f1 1720 1734  |   4|
00f3 1748 1784  | H  |
00f5 1810 1834  |   4|
00f7 183c 185c  | < \|
00f9 1920 1959  |   Y|
00fb 41c9 bd9d  |A   |
00fd c985 b481  |    |
00ff a185 cc81  |    |
0101 d195 c9b5  |    |
0103 a5b9 85d1  |    |
0105 9590 b829  |   )|
0107 15e1 8d95  |    |
0109 c1d1 a5bd  |    |
010b b881 c985  |    |
010d a5cd 9590  |    |
010f 8191 d5c9  |    |
0111 a5b9 9c81  |    |
0113 8dbd b5b5  |    |
0115 85b9 9081  |    |
0117 c1c9 bd8d  |    |
0119 95cd cda5  |    |
011b b99c e881  |    |
011d 25b9 d985  |%   |
011f b1a5 9081  |    |
0121 b995 dc81  |    |
0123 d985 b1d5  |    |
0125 94e8 2915  |  ) |
0127 c9c9 bdc8  |    |
0129 e829 4995  | )I |
012b 9da5 cdd1  |    |
012d 95c8 80f4  |    |
012f 8105 9191  |    |
0131 c995 cdcc  |    |
0133 80f4 8081  |    |
0135 bd98 81d1  |    |
0137 a1a5 cc81  |    |
0139 d1e5 c194  |    |
013b 81bd 9881  |    |
013d bd89 a995  |    |
013f 8dd0 81a5  |    |
0141 cc81 d5b9  |    |
0143 a5b5 c1b1  |    |
0145 95b5 95b9  |    |
0147 d195 9151  |   Q|
0149 a195 c994  |    |
014b 81a5 cc81  |    |
014d b9bc 81c9  |    |
014f d5b9 d1a5  |    |
0151 b594 81d9  |    |
0153 85b1 d594  |    |
0155 8185 cdcd  |    |
0157 bd8d a585  |    |
0159 d195 9081  |    |
015b dda5 d1a0  |    |
015d 8184 8191  |    |
015f a5c9 958d  |    |
0161 d1bd c9e4  |    |
0163 81bd 89a9  |    |
0165 958d d149  |   I|
0167 95cd bdb1  |    |
0169 d995 7ddd  |  } |
016b a5d1 a17d  |   }|
016d 2db9 bddd  |-   |
016f b97d 1dbd  | }  |
0171 85b0 e881  |    |
0173 95b5 c1d1  |    |
0175 e481 b1bd  |    |
0177 8d85 d1a5  |    |
0179 bdb9 55b9  |  U |
017b 8589 b194  |    |
017d 81d1 bc81  |    |
017f c995 cdbd  |    |
0181 b1d9 9481  |    |
0183 b1bd 8d85  |    |
0185 d1a5 bdb8  |    |
0187 e880 8125  |   %|
0189 b9d9 85b1  |    |
018b a590 81b1  |    |
018d bd8d 85d1  |    |
018f a5bd b881  |    |
0191 cdc1 958d  |    |
0193 a599 a595  |    |
0195 90b9 11a5  |    |
0197 cdc1 b185  |    |
0199 e481 95c9  |    |
019b c9bd c8e8  |    |
019d 2829 11a5  |()  |
019f cdc1 b185  |    |
01a1 e481 95c9  |    |
01a3 c9bd c8e8  |    |
01a5 29b9 bc81  |)   |
01a7 c185 c985  |    |
01a9 b595 d195  |    |
01ab c9cd b9bc  |    |
01ad 81b1 bd8d  |    |
01af 85b0 81d9  |    |
01b1 85c9 a585  |    |
01b3 89b1 95cc  |    |
01b5 81bd c881  |    |
01b7 8dbd b9cd  |    |
01b9 d185 b9d1  |    |
01bb cd04 8189  |    |
01bd b1bd 8dac  |    |
01bf 81a1 85cc  |    |
01c1 81b9 bc81  |    |
01c3 c185 c985  |    |
01c5 b595 d195  |    |
01c7 c9cc 81d1  |    |
01c9 bc81 91a5  |    |
01cb cdc1 b185  |    |
01cd e4b9 11a5  |    |
01cf cdc1 b185  |    |
01d1 e57d 0dbd  | }  |
01d3 b9d1 95e1  |    |
01d5 d080 e881  |    |
01d7 d5b9 adb9  |    |
01d9 bddd b881  |    |
01db b9bd 9194  |    |
01dd 81d1 e5c1  |    |
01df 9481 99bd  |    |
01e1 c881 cdd5  |    |
01e3 89c1 c9bd  |    |
01e5 9ce8 8104  |    |
01e7 819d 95b9  |    |
01e9 95c9 a58c  |    |
01eb 81c1 858d  |    |
01ed ad85 9d94  |    |
01ef 81a1 85cc  |    |
01f1 81b9 bc81  |    |
01f3 c185 c985  |    |
01f5 b595 d195  |    |
01f7 c9cc 81d1  |    |
01f9 bc81 91a5  |    |
01fb cdc1 b185  |    |
01fd e4b9 0481  |    |
01ff d185       |    |