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

⟦7eb09b26b⟧

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

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 0030       | 0  |		.CONST	0x0030								; 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 000b       |    |		.CONST	0x000b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			BODY_0008:
000b			INIT_0008:
000b e7ff       |    |		Load	0x3,-0x1
000c 0092 0023  |   #|		Action	Push_String_Extended,0x23					; "*SYSTEM"
000e 01de       |    |		Execute	Vector,Not_Equal
000f 6811       |h   |		Jump_Zero	0x21
0010 e5fd       |    |		Load	0x2,-0x3
0011 0092 0024  |   $|		Action	Push_String_Extended,0x24					; "@"
0013 01df       |    |		Execute	Vector,Equal
0014 6802       |h   |		Jump_Zero	0x17
0015 4801       |H   |		Short_Literal	0x1
0016 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0017 4801       |H   |		Short_Literal	0x1
0018 e5fd       |    |		Load	0x2,-0x3
0019 e7ff       |    |		Load	0x3,-0x1
001a e013       |    |		Load	0x0,0x13
001b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
001c 6802       |h   |		Jump_Zero	0x1f
001d 4801       |H   |		Short_Literal	0x1
001e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
001f 4800       |H   |		Short_Literal	0x0
0020 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0021 4800       |H   |		Short_Literal	0x0
0022 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0023 ; --------------------------------------------------------------------------------------
0023 ; STRING TABLE
0023 ; --------------------------------------------------------------------------------------
0023 0006       |    |		.STRTAB	0x0006->0x0026							; "*SYSTEM"
0024 000b       |    |		.STRTAB	0x000b->0x0029							; "@"
0025 000a       |    |		.STREND 0x000a->0x002a
0026 2a53 5953  |*SYS|		.STRTAB_STRINGS
002a 0000 0000  |    |		.BLANK	0000[0x6]
0030 ; --------------------------------------------------------------------------------------
0030 ; Debug Table
0030 ; --------------------------------------------------------------------------------------
0030 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x2385,0x0000,0x0001,0x0000
0036 0000 0000  |    |		.XXX[0xc]
0038 043b 0004  | ;  |
003a 0001 e7ff  |    |
003c 8602 e7ff  |    |
003e 00eb 18e1  |    |
0040 8409 4501  |  E |
0042 0000 0000  |    |		.BLANK	0000[0x6]
0048 044b 0004  | K  |		.XXX[0xa]
004a 0001 e7ff  |    |
004c 8602 e7ff  |    |
004e 00eb 18b4  |    |
0050 8409 4501  |  E |
0052 0000 0000  |    |		.BLANK	0000[0x6]
0058 045b 0004  | [  |		.XXX[0x19]
005a 0001 e7ff  |    |
005c 00eb 18e1  |    |
005e 8409 4501  |  E |
0060 0466 0004  | f  |
0062 0002 e7ff  |    |
0064 00eb 18ca  |    |
0066 00d8 00eb  |    |
0068 1813 7002  |  p |
006a e7ff 8602  |    |
006c e7ff 00eb  |    |
006e 18e1 8409  |    |
0070 4501       |E   |
0071 0000 0000  |    |		.BLANK	0000[0x7]
0078 047b 0004  | {  |		.XXX[0x2b]
007a 0001 e404  |    |
007c 7007 4801  |p H |
007e a404 00da  |    |
0080 00eb 18e1  |    |
0082 8409 4502  |  E |
0084 00da 8602  |    |
0086 4502 0000  |E   |
0088 048b 0004  |    |
008a 0001 e7ff  |    |
008c 8608 4501  |  E |
008e 0000 0000  |    |
0090 0493 0004  |    |
0092 0001 e404  |    |
0094 700b 4801  |p H |
0096 a404 e7ff  |    |
0098 00eb 18e1  |    |
009a 8409 e7ff  |    |
009c 00eb 18b4  |    |
009e 8409 4501  |  E |
00a0 e7ff 8602  |    |
00a2 4501       |E   |
00a3 0000 0000  |    |		.BLANK	0000[0x5]
00a8 04ab 0004  |    |		.XXX[0x34]
00aa 0001 00cf  |    |
00ac 7805 00db  |x   |
00ae 00eb 185a  |   Z|
00b0 a9ff 00c9  |    |
00b2 00db 00eb  |    |
00b4 1858 7007  | Xp |
00b6 00db 00eb  |    |
00b8 1859 49a1  | YI |
00ba 00eb 0096  |    |
00bc 77f0 4501  |w E |
00be 0000 0000  |    |
00c0 04c9 0004  |    |
00c2 0003 00ec  |    |
00c4 e7ff 00eb  |    |
00c6 18e1 00eb  |    |
00c8 1888 00d8  |    |
00ca 860b 0031  |   1|
00cc 00d8 00eb  |    |
00ce 1859 0032  | Y 2|
00d0 00d9 00eb  |    |
00d2 1814 0f4c  |   L|
00d4 6802 00d9  |h   |
00d6 8608 00d8  |    |
00d8 00eb 185a  |   Z|
00da 8408 4501  |  E |
00dc 0000 0000  |    |		.BLANK	0000[0x4]
00e0 04e7 0004  |    |		.XXX[0x120]
00e2 0004 00ee  |    |
00e4 00ec 029f  |    |
00e6 052b e7ff  | +  |
00e8 8602 8407  |    |
00ea 6801 4501  |h E |
00ec e7ff 00eb  |    |
00ee 18df 00eb  |    |
00f0 1888 0033  |   3|
00f2 00da 860b  |    |
00f4 0033 00da  | 3  |
00f6 00eb 1859  |   Y|
00f8 8405 00da  |    |
00fa 00eb 185a  |   Z|
00fc 8804 e7ff  |    |
00fe 00eb 18e1  |    |
0100 0032 00d9  | 2  |
0102 00eb 1813  |    |
0104 7008 00d9  |p   |
0106 00eb 1888  |    |
0108 00eb 1858  |   X|
010a 7002 00d9  |p   |
010c 8405 4501  |  E |
010e 0000 0000  |    |
0110 0513 0004  |    |
0112 0001 e7ff  |    |
0114 8602 e7ff  |    |
0116 00eb 18e2  |    |
0118 8409 e7ff  |    |
011a 00eb 18e3  |    |
011c 8409 4501  |  E |
011e 0000 0000  |    |
0120 0523 0004  | #  |
0122 0001 e7ff  |    |
0124 8602 4501  |  E |
0126 0000 0000  |    |
0128 052c 0004  | ,  |
012a 0002 00da  |    |
012c 00cf 7809  |  x |
012e 00d9 00eb  |    |
0130 1859 8405  | Y  |
0132 00d9 00eb  |    |
0134 185a 0032  | Z 2|
0136 00c9 8407  |    |
0138 7004 00d9  |p   |
013a 00eb 1858  |   X|
013c 6ff1 4502  |o E |
013e 000e 0039  |   9|
0140 0062 0092  | b  |
0142 0091 0091  |    |
0144 00b8 4765  |  Ge|
0146 745f 4465  |t_De|
0148 636c 6172  |clar|
014a 6174 696f  |atio|
014c 6e5f 4e75  |n_Nu|
014e 6d62 6572  |mber|
0150 2070 6173  | pas|
0152 7365 6420  |sed |
0154 656d 7074  |empt|
0156 7920 4465  |y De|
0158 636c 5f4e  |cl_N|
015a 6f64 6547  |odeG|
015c 6574 5f44  |et_D|
015e 6563 6c61  |ecla|
0160 7261 7469  |rati|
0162 6f6e 5f4e  |on_N|
0164 756d 6265  |umbe|
0166 7220 7061  |r pa|
0168 7373 6564  |ssed|
016a 206e 6f6e  | non|
016c 2044 6563  | Dec|
016e 6c20 4e6f  |l No|
0170 6465 4765  |deGe|
0172 745f 4465  |t_De|
0174 636c 6172  |clar|
0176 6174 696f  |atio|
0178 6e5f 4e75  |n_Nu|
017a 6d62 6572  |mber|
017c 2070 6173  | pas|
017e 7365 6420  |sed |
0180 756e 6e75  |unnu|
0182 6d62 6572  |mber|
0184 6564 2044  |ed D|
0186 6563 6c5f  |ecl_|
0188 4e6f 6465  |Node|
018a 2e3a 2047  |.: G|
018c 6574 5f4e  |et_N|
018e 7468 5f44  |th_D|
0190 6563 6c61  |ecla|
0192 7261 7469  |rati|
0194 6f6e 2070  |on p|
0196 6173 7365  |asse|
0198 6420 696e  |d in|
019a 636f 7272  |corr|
019c 6563 7420  |ect |
019e 6e6f 6465  |node|
01a0 0004 0006  |    |
01a2 9a9d 0000  |    |
01a4 0001 0000  |    |
01a6 0040 0000  | @  |
01a8 0a40 0293  | @  |
01aa 9553 5091  | SP |
01ac 5494 cb95  |T   |
01ae 54cf a005  |T   |
01b0 c006 1553  |   S|
01b2 9093 d553  |   S|
01b4 9111 5117  |  Q |
01b6 d4d5 1492  |    |
01b8 5391 d7d3  |S   |
01ba 5053 9051  |PS Q|
01bc d154 8000  | T  |
01be 0000 0000  |    |
01c0 000b 0000  |    |
01c2 0000 8000  |    |
01c4 0072 800a  | r  |
01c6 a72a a6a1  | *  |
01c8 22a9 2997  |" ) |
01ca 272a a6a1  |'*  |
01cc 22a9 2fa9  |" / |
01ce 22a1 a7a9  |"   |
01d0 221d ccb9  |"   |
01d2 1cc8 0e00  |    |
01d4 02a9 aa2c  |   ,|
01d6 a622 b30b  | "  |
01d8 8010 a327  |   '|
01da a926 a0aa  | &  |
01dc 2a22 a92f  |*" /|
01de a4a6 a826  |   &|
01e0 22a6 a2a7  |"   |
01e2 2a20 aa24  |*  $|
01e4 a7a7 172a  |   *|
01e6 afa9 aa29  |   )|
01e8 24a7 2380  |$ # |
01ea 001c c80e  |    |
01ec 0005 20a6  |    |
01ee 262f a622  |&/ "|
01f0 ab22 a629  | " )|
01f2 b30b 8008  |    |
01f4 29aa 20a7  |)   |
01f6 2220 a922  |"  "|
01f8 1721 27a7  | !' |
01fa a622 a0a7  | "  |
01fc 000b 000a  |    |
01fe a9aa 20a7  |    |