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

⟦7cbc34423⟧

    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 0068       | h  |		.CONST	0x0068								; 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 00da       |    |		Load_Top	At_Offset_2
001c 01db       |    |		Execute	Vector,Length
001d 7007       |p   |		Jump_Nonzero	0x25
001e 0092 0044  |   D|		Action	Push_String_Extended,0x44					; "<PROFILE>"
0020 0092 0045  |   E|		Action	Push_String_Extended,0x45					; "$$[D_@]"
0022 e001       |    |		Load	0x0,0x1
0023 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0024 7808       |x   |		Jump	0x2d
0025 0092 0044  |   D|		Action	Push_String_Extended,0x44					; "<PROFILE>"
0027 0092 0046  |   F|		Action	Push_String_Extended,0x46					; "!Machine.Release.Environment."
0029 e5ff       |    |		Load	0x2,-0x1
002a 01cc       |    |		Execute	Vector,Catenate
002b e001       |    |		Load	0x0,0x1
002c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
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 e004       |    |		Load	0x0,0x4
0033 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0034 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0035 0092 0047  |   G|		Action	Push_String_Extended,0x47					; "$$"
0037 e004       |    |		Load	0x0,0x4
0038 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0039 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
003a e004       |    |		Load	0x0,0x4
003b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
003c 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
003d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
003e 0000 0000  |    |		.XXX[0x2]
0040 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0044 ; --------------------------------------------------------------------------------------
0044 ; STRING TABLE
0044 ; --------------------------------------------------------------------------------------
0044 000a       |    |		.STRTAB	0x000a->0x0049							; "<PROFILE>"
0045 0011       |    |		.STRTAB	0x0011->0x004d							; "$$[D_@]"
0046 0016       |    |		.STRTAB	0x0016->0x0051							; "!Machine.Release.Environment."
0047 0031       | 1  |		.STRTAB	0x0031->0x005f							; "$$"
0048 0031       | 1  |		.STREND 0x0031->0x0060
0049 3c50 524f  |<PRO|		.STRTAB_STRINGS
0061 0000 0000  |    |		.BLANK	0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; Debug Table
0068 ; --------------------------------------------------------------------------------------
0068 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x9718,0x0000,0x0001,0x0000
006e ffd0 0e39  |   9|		.XXX[0x16]
0070 8c03 7f65  |   e|
0072 831e 807b  |   {|
0074 29a0 0000  |)   |
0076 0007 0f88  |    |
0078 01c4 8480  |    |
007a 0000 0000  |    |
007c 18c1 0807  |    |
007e 0e40 01c4  | @  |
0080 5980 a600  |Y   |
0082 0071 2120  | q! |
0084 0000 0000  |    |		.BLANK	0000[0x5]
0089 387c 4009  |8|@ |		.XXX[0x4a]
008b f010 01c0  |    |
008d 0000 0000  |    |
008f 0068 6540  | he@|
0091 de80 3872  |  8r|
0093 0000 0000  |    |
0095 038b ff00  |    |
0097 e37b 0000  | {  |
0099 0004 69f8  |  i |
009b 038b ff00  |    |
009d 0000 0038  |   8|
009f b290 0e2e  |   .|
00a1 2000 0000  |    |
00a3 4508 c038  |E  8|
00a5 b290 0000  |    |
00a7 0001 4000  |  @ |
00a9 00df b600  |    |
00ab 0000 0000  |    |
00ad 1c51 8800  | Q  |
00af 1800 0000  |    |
00b1 01c5 18c2  |    |
00b3 2400 3899  |$ 8 |
00b5 d000 0000  |    |
00b7 038a f49d  |    |
00b9 8b80 7133  |  q3|
00bb a000 0000  |    |
00bd 03c0 0001  |    |
00bf bcf7 0c94  |    |
00c1 00e2 4240  |  B@|
00c3 0000 000e  |    |
00c5 2608 000e  |&   |
00c7 323c 0000  |2<  |
00c9 0000 0002  |    |
00cb 0007 199e  |    |
00cd 0000 0000  |    |
00cf 0000 0004  |    |
00d1 0007 1a9e  |    |
00d3 0000 0000  |    |		.BLANK	0000[0x6]
00d9 0007 1b5e  |   ^|		.XXX[0x23]
00db 0000 e28c  |    |
00dd 4000 0009  |@   |
00df d8b8 0712  |    |
00e1 1200 0000  |    |
00e3 0021 0000  | !  |
00e5 3e77 300e  |>w0 |
00e7 5878 0387  |Xx  |
00e9 2083 1e80  |    |
00eb 7b29 a01c  |{)  |
00ed aed8 071e  |    |
00ef 7801 c840  |x  @|
00f1 8000 0000  |    |
00f3 0028 c108  | (  |
00f5 071d 3001  |  0 |
00f7 c815 80a7  |    |
00f9 0000 7210  |  r |
00fb 2000       |    |
00fc 0000 0000  |    |		.BLANK	0000[0x4]
0100 0038 f3c0  | 8  |		.XXX[0x4b]
0102 0a10 1001  |    |
0104 c000 0000  |    |
0106 0000 6865  |  he|
0108 40de 8038  |@  8|
010a e980 0000  |    |
010c 0003 9377  |   w|
010e 00e5 5900  |  Y |
0110 0000 0469  |   i|
0112 f803 9377  |   w|
0114 0000 0000  |    |
0116 392a 100e  |9*  |
0118 4c00 0000  |L   |
011a 0045 08c0  | E  |
011c 392a 1000  |9*  |
011e 0000 0140  |   @|
0120 0000 dfb6  |    |
0122 0000 0000  |    |
0124 001c 8d48  |   H|
0126 0018 0000  |    |
0128 0001 c8d4  |    |
012a c224 0039  | $ 9|
012c 1150 0000  | P  |
012e 0003 926c  |   l|
0130 9d8b 8072  |   r|
0132 22a0 0000  |"   |
0134 0003 c000  |    |
0136 01bc f70c  |    |
0138 9400 e420  |    |
013a 4000 0000  |@   |
013c 0e43 e800  | C  |
013e 0e50 1c00  | P  |
0140 0000 0000  |    |
0142 0200 0728  |   (|
0144 8e00 0000  |    |
0146 0000 0000  |    |
0148 0400 0729  |   )|
014a 8e00       |    |
014b 0000 0000  |    |		.BLANK	0000[0x6]
0151 072a 4e00  | *N |		.XXX[0x26]
0153 00e4 6a40  |  j@|
0155 0000 09d8  |    |
0157 b807 2102  |  ! |
0159 0000 0000  |    |
015b 0b01 005e  |   ^|
015d b8b0 7605  |  v |
015f a000 0003  |    |
0161 fffa 01ce  |    |
0163 cb00 71d3  |  q |
0165 1063 d00f  | c  |
0167 6534 0000  |e4  |
0169 0000 e5bd  |    |
016b c039 83c0  | 9  |
016d 0000 0000  |    |
016f 0318 2100  |  ! |
0171 e594 c039  |   9|
0173 7e60 1500  |~`  |
0175 000e 60f0  |  ` |
0177 0000 0000  |    |		.BLANK	0000[0x5]
017c 072d ee01  | -  |		.XXX[0x4b]
017e 4602 0038  |F  8|
0180 0000 0000  |    |
0182 000d 0ca8  |    |
0184 1bd0 072c  |   ,|
0186 a600 0000  |    |
0188 0073 6640  | sf@|
018a 1ce8 f800  |    |
018c 0000 8d3f  |   ?|
018e 0073 6640  | sf@|
0190 0000 0007  |    |
0192 34b8 01cd  |4   |
0194 5d80 0000  |]   |
0196 08a1 1807  |    |
0198 34b8 0000  |4   |
019a 0000 2800  |  ( |
019c 001b f6c0  |    |
019e 0000 0000  |    |
01a0 0399 6400  |  d |
01a2 0300 0000  |    |
01a4 0039 9648  | 9 H|
01a6 4480 0731  |D  1|
01a8 a000 0000  |    |
01aa 0073 44f3  | sD |
01ac b170 0e63  | p c|
01ae 4000 0000  |@   |
01b0 0078 0000  | x  |
01b2 379e e192  |7   |
01b4 801c c1e0  |    |
01b6 0000 0001  |    |
01b8 cc5a 8001  | Z  |
01ba cde1 0000  |    |
01bc 0000 0000  |    |
01be 4000 e700  |@   |
01c0 8000 0000  |    |
01c2 0000 0000  |    |
01c4 8000 e720  |    |
01c6 8000       |    |
01c7 0000 0000  |    |		.BLANK	0000[0x6]
01cd e738 8000  | 8  |		.XXX[0x22]
01cf 1ccb 2000  |    |
01d1 0001 3b17  |  ; |
01d3 00e6 0f00  |    |
01d5 0000 0004  |    |
01d7 4020 0396  |@   |
01d9 c601 d2a8  |    |
01db 8072 ca70  | r p|
01dd 63d0 0f65  |c  e|
01df 3403 a50e  |4   |
01e1 00e7 9bc0  |    |
01e3 39fb 4000  |9 @ |
01e5 0000 0005  |    |
01e7 1821 00e7  | !  |
01e9 72c0 39f5  |r 9 |
01eb e002 4000  |  @ |
01ed 0e7e d000  | ~  |
01ef 0000 0000  |    |		.BLANK	0000[0x4]
01f3 0007 3cde  |  < |		.XXX[0xd]
01f5 014a 0200  | J  |
01f7 3800 0000  |8   |
01f9 0000 0d0c  |    |
01fb a81b d007  |    |
01fd 3b96 0000  |;   |
01ff 0000       |    |