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

⟦db400ea44⟧

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

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 0014       |    |		.CONST	0x0014								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0005       |    |		.CONST	0x0005								; Number of locals
000b			INIT_0008:
000b e009       |    |		Load	0x0,0x9
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 4801       |H   |		Short_Literal	0x1
000e 4880       |H   |		Short_Literal	0x80
000f 00e9       |    |		Load_Encached	String_Cache
0010 0334       | 4  |		Declare_Variable	Array,With_Constraint
0011 00e2       |    |		Load_Encached	Integer_Cache
0012 e020       |    |		Load	0x0,0x20
0013 02ab       |    |		Declare_Subprogram	For_Call,With_Address
0014			BODY_0008:
0014 00cf       |    |		Action	Mark_Auxiliary
0015 0007       |    |		Action	Break_Optional
0016 4805       |H   |		Short_Literal	0x5
0017 8412       |    |		Call	0x2,0x12
0018 e01a       |    |		Load	0x0,0x1a
0019 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
001a 0092 004d  |   M|		Action	Push_String_Extended,0x4d					; "    :"
001c e01a       |    |		Load	0x0,0x1a
001d 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
001e 00e2       |    |		Load_Encached	Integer_Cache
001f e603       |    |		Load	0x3,0x3
0020 8413       |    |		Call	0x2,0x13
0021 00d1       |    |		Pop_Control	Pop_Count_1
0022 c604       |    |		Store	0x3,0x4
0023 e604       |    |		Load	0x3,0x4
0024 7001       |p   |		Jump_Nonzero	0x26
0025 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0026 e604       |    |		Load	0x3,0x4
0027 0f01       |    |		Execute_Immediate	Equal,0x1
0028 6807       |h   |		Jump_Zero	0x30
0029 4801       |H   |		Short_Literal	0x1
002a e603       |    |		Load	0x3,0x3
002b 01d7       |    |		Execute	Vector,Field_Read
002c 0f3f       | ?  |		Execute_Immediate	Equal,0x3f
002d 6802       |h   |		Jump_Zero	0x30
002e 8605       |    |		Call	0x3,0x5
002f 781b       |x   |		Jump	0x4b
0030 4801       |H   |		Short_Literal	0x1
0031 e604       |    |		Load	0x3,0x4
0032 e603       |    |		Load	0x3,0x3
0033 01cf       |    |		Execute	Vector,Slice_Read
0034 841e       |    |		Call	0x2,0x1e
0035 a602       |    |		Store_Unchecked	0x3,0x2
0036 e602       |    |		Load	0x3,0x2
0037 6813       |h   |		Jump_Zero	0x4b
0038 e411       |    |		Load	0x2,0x11
0039 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
003a 4805       |H   |		Short_Literal	0x5
003b e607       |    |		Load	0x3,0x7
003c 01d7       |    |		Execute	Vector,Field_Read
003d 4801       |H   |		Short_Literal	0x1
003e e604       |    |		Load	0x3,0x4
003f e603       |    |		Load	0x3,0x3
0040 01cf       |    |		Execute	Vector,Slice_Read
0041 e402       |    |		Load	0x2,0x2
0042 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0043 4805       |H   |		Short_Literal	0x5
0044 e607       |    |		Load	0x3,0x7
0045 01d6       |    |		Execute	Vector,Field_Write
0046 00d1       |    |		Pop_Control	Pop_Count_1
0047 e602       |    |		Load	0x3,0x2
0048 e411       |    |		Load	0x2,0x11
0049 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
004a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004b 00c9       |    |		Action	Pop_Auxiliary_Loop
004c 7fc9       |    |		Jump	0x16
004d ; --------------------------------------------------------------------------------------
004d ; STRING TABLE
004d ; --------------------------------------------------------------------------------------
004d 0004       |    |		.STRTAB	0x0004->0x004f							; "    :"
004e 0007       |    |		.STREND 0x0007->0x0051
004f 2020 2020  |    |		.STRTAB_STRINGS
0052 0000 0000  |    |		.BLANK	0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x11ef,0x0000,0x0001,0x0000
005e 0038 bc80  | 8  |		.XXX[0x62]
0060 0000 0000  |    |
0062 064b 0600  | K  |
0064 0201 939f  |    |
0066 0064 b071  | d q|
0068 4230 0c9d  |B0  |
006a cc00 0000  |    |
006c 0004 0000  |    |
006e 38bc 8000  |8   |
0070 0000 0006  |    |
0072 4cf6 0002  |L   |
0074 0000 0000  |    |
0076 64cf 7089  |d p |
0078 000c 93bc  |    |
007a 0000 0000  |    |
007c c991 a762  |   b|
007e e019 2778  |  'x|
0080 0000 0000  |    |
0082 f000 0070  |   p|
0084 dbc3 2500  |  % |
0086 3245 b000  |2E  |
0088 0000 0324  |   $|
008a d400 0000  |    |
008c 0000 004e  |   N|
008e c5c0 3245  |  2E|
0090 b000 0000  |    |
0092 0040 1400  | @  |
0094 bc7a 8080  | z  |
0096 1780 0000  |    |
0098 0000 038b  |    |
009a ca02 0082  |    |
009c 0194 a800  |    |
009e 0032 27d9  | 2' |
00a0 8b08 0000  |    |
00a2 0001 95cb  |    |
00a4 0065 5300  | eS |
00a6 1958 b814  | X  |
00a8 00c2 1f97  |    |
00aa 0400 653f  |  e?|
00ac 8000 0000  |    |
00ae 0780 2801  |  ( |
00b0 843f f72e  | ? .|
00b2 0800 ca7f  |    |
00b4 0000 0000  |    |
00b6 0f00 5003  |  P |
00b8 087f ea02  |    |
00ba 0082 0000  |    |
00bc 0000 0010  |    |
00be b8b8 ec68  |   h|
00c0 0000 0000  |    |		.BLANK	0000[0x6]
00c6 04c5 8400  |    |		.XXX[0x21]
00c8 0000 00cb  |    |
00ca 7fc0 32d0  |  2 |
00cc 100c b600  |    |
00ce 0a00 610f  |  a |
00d0 cb82 0032  |   2|
00d2 c650 0000  | P  |
00d4 0003 c014  |    |
00d6 00c2 1ffb  |    |
00d8 9704 0065  |   e|
00da 8ca0 0000  |    |
00dc 0007 8028  |   (|
00de 0184 3ff5  |  ? |
00e0 0100 4100  |  A |
00e2 0000 0000  |    |
00e4 0950 8476  | P v|
00e6 3400       |4   |
00e7 0000 0000  |    |		.BLANK	0000[0x5]
00ec 0002 62c2  |  b |		.XXX[0x21]
00ee 0000 0000  |    |
00f0 660d 0019  |f   |
00f2 7b50 065f  |{P _|
00f4 d205 0030  |   0|
00f6 87e5 c100  |    |
00f8 1976 7000  | vp |
00fa 0000 01e0  |    |
00fc 0a00 610f  |  a |
00fe fdcb 8200  |    |
0100 32ec e000  |2   |
0102 0000 03c0  |    |
0104 1400 c21f  |    |
0106 fa80 8020  |    |
0108 8000 0000  |    |
010a 0005 1862  |   b|
010c 3b1a       |;   |
010d 0000 0000  |    |		.BLANK	0000[0x6]
0113 0131 6100  | 1a |		.XXX[0x21]
0115 0000 0033  |   3|
0117 2d10 0cc7  |-   |
0119 4c03 3252  |L 2R|
011b 0280 1843  |   C|
011d f2e0 800c  |    |
011f c4dc 0000  |    |
0121 0000 f005  |    |
0123 0030 87fe  | 0  |
0125 e5c1 0019  |    |
0127 89b8 0000  |    |
0129 0001 e00a  |    |
012b 0061 0ffd  | a  |
012d 4040 1040  |@@ @|
012f 0000 0000  |    |
0131 02c2 c71d  |    |
0133 8d00       |    |
0134 0000 0000  |    |		.BLANK	0000[0x6]
013a 98b0 8000  |    |		.XXX[0x40]
013c 0000 19a9  |    |
013e d006 6878  |  hx|
0140 019a 5d81  |  ] |
0142 400c 21f9  |@ ! |
0144 7040 0667  |p@ g|
0146 4000 0000  |@   |
0148 0078 0280  | x  |
014a 1843 ff72  | C r|
014c e080 0cce  |    |
014e 8000 0000  |    |
0150 00f0 0500  |    |
0152 3087 fea0  |0   |
0154 2008 2000  |    |
0156 0000 0001  |    |
0158 7ecb 98b0  |~   |
015a 8000 0000  |    |
015c 19b9 5006  |  P |
015e 6c58 019b  |lX  |
0160 5581 400c  |U @ |
0162 21f9 7040  |! p@|
0164 066b 2000  | k  |
0166 0000 0078  |   x|
0168 0280 1843  |   C|
016a ff72 e080  | r  |
016c 0cd6 4000  |  @ |
016e 0000 00f0  |    |
0170 0500 3087  |  0 |
0172 fea0 2008  |    |
0174 2000 0000  |    |
0176 0001 81e2  |    |
0178 8ec6 8000  |    |
017a 0000 0000  |    |		.BLANK	0000[0x5]
017f 0047 6340  | Gc@|		.XXX[0x2]
0181 0000 0000  |    |		.BLANK	0000[0x6]
0187 2306 6000  |# ` |		.XXX[0x8]
0189 0000 0673  |   s|
018b f400 d400  |    |
018d 019d 2800  |  ( |
018f 0000 0000  |    |		.BLANK	0000[0x5]
0194 ce1c 8000  |    |		.XXX[0x6c]
0196 c040 0700  | @  |
0198 0000 0028  |   (|
019a 015a 2507  | Z% |
019c 6048 00ce  |`H  |
019e 5840 5aa0  |X@Z |
01a0 2005 e019  |    |
01a2 cdb8 0002  |    |
01a4 98eb 81bd  |    |
01a6 0000 0000  |    |
01a8 19fc d806  |    |
01aa 7c7c 019f  |||  |
01ac 6700 0000  |g   |
01ae 08d3 f006  |    |
01b0 7c7c 0000  |||  |
01b2 0000 67ad  |  g |
01b4 0019 ee38  |   8|
01b6 0000 008a  |    |
01b8 1180 67ad  |  g |
01ba 0000 0000  |    |
01bc 0710 0005  |    |
01be 31d6 0000  |1   |
01c0 0000 0033  |   3|
01c2 b780 0010  |    |
01c4 0cf4 cc03  |    |
01c6 3b78 8a11  |;x  |
01c8 8067 ad00  | g  |
01ca 0000 0000  |    |
01cc 2000 0531  |   1|
01ce d600 0000  |    |
01d0 0000 33c7  |  3 |
01d2 0000 1000  |    |
01d4 0000 033c  |   <|
01d6 7084 4800  |p H |
01d8 675c 8000  |g\  |
01da 0000 0678  |   x|
01dc 773b 1700  |w;  |
01de ceb9 0000  |    |
01e0 0000 11a0  |    |
01e2 000a 5ec2  |  ^ |
01e4 1928 019d  | (  |
01e6 2800 0000  |(   |
01e8 0019 d648  |   H|
01ea 0000 0000  |    |
01ec 0002 762e  |  v.|
01ee 019d 2800  |  ( |
01f0 0000 0002  |    |
01f2 00a0 05e3  |    |
01f4 d404 00bc  |    |
01f6 0000 0000  |    |
01f8 0053 1d70  | S p|
01fa 1004 100c  |    |
01fc fd14 0001  |    |
01fe 9c39 0000  | 9  |