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

⟦a6c5bcc22⟧

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

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 4801       |H   |		Short_Literal	0x1
001c e002       |    |		Load	0x0,0x2
001d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
001e e002       |    |		Load	0x0,0x2
001f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0020 700e       |p   |		Jump_Nonzero	0x2f
0021 e003       |    |		Load	0x0,0x3
0022 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0023 4805       |H   |		Short_Literal	0x5
0024 e5ff       |    |		Load	0x2,-0x1
0025 0092 0031  |   1|		Action	Push_String_Extended,0x31					; " will not continue because PRIVILEGED"
0027 01cc       |    |		Execute	Vector,Catenate
0028 0092 0032  |   2|		Action	Push_String_Extended,0x32					; " MODE cannot be established."
002a 01cc       |    |		Execute	Vector,Catenate
002b e004       |    |		Load	0x0,0x4
002c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
002d 4800       |H   |		Short_Literal	0x0
002e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
002f 4801       |H   |		Short_Literal	0x1
0030 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0031 ; --------------------------------------------------------------------------------------
0031 ; STRING TABLE
0031 ; --------------------------------------------------------------------------------------
0031 0006       |    |		.STRTAB	0x0006->0x0034							; " will not continue because PRIVILEGED"
0032 0029       | )  |		.STRTAB	0x0029->0x0046							; " MODE cannot be established."
0033 0043       | C  |		.STREND 0x0043->0x0054
0034 2077 696c  | wil|		.STRTAB_STRINGS
0055 0000 0000  |    |		.XXX[0x3]
0057 0000       |    |
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0x0b97,0x0000,0x0001,0x0000
005e 7479 2c50  |ty,P|		.XXX[0x9d]
0060 004e 2d2d  | N--|
0062 2072 6574  | ret|
0064 6169 6e73  |ains|
0066 2069 7473  | its|
0068 2076 616c  | val|
006a 7565 2077  |ue w|
006c 6865 6e20  |hen |
006e 7570 6772  |upgr|
0070 6164 696e  |adin|
0072 6720 746f  |g to|
0074 2044 656c  | Del|
0076 7461 2033  |ta 3|
0078 2e30 2e20  |.0. |
007a 2054 6869  | Thi|
007c 7320 6973  |s is|
007e 206e 6563  | nec|
0080 6365 7373  |cess|
0082 6172 792c  |ary,|
0084 2062 6563  | bec|
0086 6175 7365  |ause|
0088 4e00 4e2d  |N N-|
008a 2d20 7468  |- th|
008c 6520 6465  |e de|
008e 6661 756c  |faul|
0090 7420 7661  |t va|
0092 6c75 6520  |lue |
0094 6f66 2074  |of t|
0096 6869 7320  |his |
0098 7377 6974  |swit|
009a 6368 2063  |ch c|
009c 6861 6e67  |hang|
009e 6573 2077  |es w|
00a0 6974 6820  |ith |
00a2 7468 6973  |this|
00a4 2072 656c  | rel|
00a6 6561 7365  |ease|
00a8 2e20 4974  |. It|
00aa 2077 696c  | wil|
00ac 6c20 6f6e  |l on|
00ae 6c79 2062  |ly b|
00b0 654e 0033  |eN 3|
00b2 2d2d 2065  |-- e|
00b4 6666 6563  |ffec|
00b6 7469 7665  |tive|
00b8 2069 6620  | if |
00ba 7275 6e20  |run |
00bc 6265 666f  |befo|
00be 7265 2074  |re t|
00c0 6865 206d  |he m|
00c2 6163 6869  |achi|
00c4 6e65 2069  |ne i|
00c6 7320 7265  |s re|
00c8 626f 6f74  |boot|
00ca 6564 2e33  |ed.3|
00cc 0000 0005  |    |
00ce 0c08 0368  |   h|
00d0 d000 0494  |    |
00d2 0368 d000  | h  |
00d4 7001 0c08  |p   |
00d6 0040 006c  | @ l|
00d8 00e8 00f0  |    |
00da 00ec 00ec  |    |
00dc 00f0 00ed  |    |
00de 55b9 a5b9  |U   |
00e0 a5d1 a585  |    |
00e2 b1a5 e995  |    |
00e4 9155 b9c1  | U  |
00e6 c9a5 b9d1  |    |
00e8 8589 b194  |    |
00ea 8199 b1bd  |    |
00ec 85d1 a5b9  |    |
00ee 9c81 c1bd  |    |
00f0 a5b9 d081  |    |
00f2 b9d5 b589  |    |
00f4 95c9 b9d5  |    |
00f6 b1b0 8c80  |    |
00f8 8c80 816d  |   m|
00fa 7400       |t   |
00fb 0000 0000  |    |		.BLANK	0000[0x6]
0101 0010 001a  |    |		.XXX[0x4a]
0103 6900 0000  |i   |
0105 0004 0000  |    |
0107 0000 0010  |    |
0109 dce5 18d8  |    |
010b 0000 0018  |    |
010d c919 10c4  |    |
010f c114 0000  |    |
0111 0230 003d  | 0 =|
0113 6000 0000  |`   |
0115 0100 0400  |    |
0117 02ec 0002  |    |
0119 0000 00dc  |    |
011b 0010 0034  |   4|
011d 0313 800b  |    |
011f 800f 8013  |    |
0121 8017 801b  |    |
0123 801f 8023  |   #|
0125 8027 802a  | ' *|
0127 802e 8032  | . 2|
0129 8036 803a  | 6 :|
012b 803e 8042  | > B|
012d 8046 804a  | F J|
012f 804e 8052  | N R|
0131 8056 805a  | V Z|
0133 805e 8062  | ^ b|
0135 8066 806a  | f j|
0137 806e 8072  | n r|
0139 8076 807a  | v z|
013b 807e 8082  | ~  |
013d 8086 808a  |    |
013f 808e 8092  |    |
0141 8096 809b  |    |
0143 809c 0e18  |    |
0145 0360 083f  | ` ?|
0147 0834 02fc  | 4  |
0149 02f0 02ec  |    |
014b 0000 0000  |    |		.BLANK	0000[0x7]
0152 0010 0033  |   3|		.XXX[0xae]
0154 03e0 0000  |    |
0156 0004 0000  |    |
0158 0000 0010  |    |
015a dd04 c0d8  |    |
015c 0000 0018  |    |
015e ccc4 dce4  |    |
0160 c114 0000  |    |
0162 5930 003d  |Y0 =|
0164 6000 0000  |`   |
0166 2c80 0400  |,   |
0168 02ec 0002  |    |
016a 001c 078c  |    |
016c 0010 01bc  |    |
016e 0a68 07cc  | h  |
0170 0a68 08ac  | h  |
0172 0a68 0d4c  | h L|
0174 0a68 0e0c  | h  |
0176 0a68 0ecc  | h  |
0178 0a68 0f0c  | h  |
017a 0a68 0f6c  | h l|
017c 0a68 100c  | h  |
017e 0a68 104c  | h L|
0180 0a68 106c  | h l|
0182 0a68 10ac  | h  |
0184 0a68 10cc  | h  |
0186 0a68 110c  | h  |
0188 0a68 112c  | h ,|
018a 0a68 116c  | h l|
018c 0a68 118c  | h  |
018e 02fc 0248  |   H|
0190 26dc 0248  |&  H|
0192 26e0 0248  |&  H|
0194 26e4 0248  |&  H|
0196 26e8 0248  |&  H|
0198 26ec 0248  |&  H|
019a 26f0 0248  |&  H|
019c 26f4 0248  |&  H|
019e 26f8 024c  |&  L|
01a0 0001 8784  |    |
01a2 09cc 001c  |    |
01a4 024c 0001  | L  |
01a6 8760 09cc  | `  |
01a8 001c 024c  |   L|
01aa 0001 873c  |   <|
01ac 09cc 001c  |    |
01ae 024c 0001  | L  |
01b0 8718 09cc  |    |
01b2 001f 8008  |    |
01b4 6c38 1803  |l8  |
01b6 800c 6c98  |  l |
01b8 1803 800c  |    |
01ba 6c38 1802  |l8  |
01bc 0013 8014  |    |
01be 0fc6 001b  |    |
01c0 8014 0fc7  |    |
01c2 801c 1803  |    |
01c4 8020 0c88  |    |
01c6 0360 7007  | `p |
01c8 8024 0364  | $ d|
01ca 05f7 800c  |    |
01cc 6c9c 0b1f  |l   |
01ce 8028 60ba  | (` |
01d0 88c3 802c  |   ,|
01d2 0c8b 8030  |   0|
01d4 0364 05f4  | d  |
01d6 0388 1801  |    |
01d8 2001 2013  |    |
01da 8004 075c  |   \|
01dc 0a80 0e3b  |   ;|
01de 8005 200f  |    |
01e0 8004 075f  |   _|
01e2 8009 200f  |    |
01e4 88cc 0838  |   8|
01e6 0e1d 2001  |    |
01e8 200b 8004  |    |
01ea 075c 0a80  | \  |
01ec 0e3b 8005  | ;  |
01ee 2007 8004  |    |
01f0 075d 2008  | ]  |
01f2 036c 0838  | l 8|
01f4 0e1c 0384  |    |
01f6 1803 88a4  |    |
01f8 001c 0384  |    |
01fa 1800 0384  |    |
01fc 1800 0384  |    |
01fe 1800 0384  |    |