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

⟦19f9aa33f⟧

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

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 0038       | 8  |		.CONST	0x0038								; 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 0028       | (  |		.CONST	0x0028								; 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 e001       |    |		Load	0x0,0x1
001d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
001e a5fe       |    |		Store_Unchecked	0x2,-0x2
001f 00da       |    |		Load_Top	At_Offset_2
0020 e001       |    |		Load	0x0,0x1
0021 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0022 a5fd       |    |		Store_Unchecked	0x2,-0x3
0023 00da       |    |		Load_Top	At_Offset_2
0024 e001       |    |		Load	0x0,0x1
0025 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0026 a5fc       |    |		Store_Unchecked	0x2,-0x4
0027 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0028			TRAP_0018:
0028 010e       |    |		Execute	Exception,Is_Constraint_Error
0029 6807       |h   |		Jump_Zero	0x31
002a 4800       |H   |		Short_Literal	0x0
002b a5fe       |    |		Store_Unchecked	0x2,-0x2
002c 4800       |H   |		Short_Literal	0x0
002d a5fd       |    |		Store_Unchecked	0x2,-0x3
002e 4800       |H   |		Short_Literal	0x0
002f a5fc       |    |		Store_Unchecked	0x2,-0x4
0030 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0031 0100       |    |		Execute	Exception,Raise
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; Debug Table
0038 ; --------------------------------------------------------------------------------------
0038 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x4a64,0x0000,0x0001,0x0000
003e 0009 f800  |    |		.XXX[0x1c2]
0040 12fc 0000  |    |
0042 01fc 4814  |  H |
0044 001b 3c00  |  < |
0046 119e d800  |    |
0048 01fc 6824  |  h$|
004a 001d fc00  |    |
004c 1deb 4000  |  @ |
004e 01fc 9014  |    |
0050 001d e000  |    |
0052 11a7 e000  |    |
0054 01fc bc14  |    |
0056 000e 8c00  |    |
0058 11a9 1800  |    |
005a 01fc e014  |    |
005c 001f 7000  |  p |
005e 11a4 d800  |    |
0060 01fc fc14  |    |
0062 0020 7000  |  p |
0064 11a5 a000  |    |
0066 01fd 181c  |    |
0068 0000 f400  |    |
006a 1d6a 8000  | j  |
006c 01fd 3414  |  4 |
006e 0000 a400  |    |
0070 1237 4000  | 7@ |
0072 01fd 5414  |  T |
0074 0013 5400  |  T |
0076 1238 6000  | 8` |
0078 01fd 8014  |    |
007a 0009 cc00  |    |
007c 121f 0800  |    |
007e 01fd e814  |    |
0080 0000 0800  |    |
0082 12dc f800  |    |
0084 01fe 1014  |    |
0086 0019 5400  |  T |
0088 1368 d800  | h  |
008a 01fe 4414  |  D |
008c 000a 6000  |  ` |
008e 1225 3800  | %8 |
0090 01fe 8814  |    |
0092 000b 2c00  |  , |
0094 11de a000  |    |
0096 01fe c014  |    |
0098 0000 f000  |    |
009a 11b2 4000  |  @ |
009c 01fe e414  |    |
009e 0012 5000  |  P |
00a0 11b2 9800  |    |
00a2 01ff 1014  |    |
00a4 001d 4400  |  D |
00a6 1367 d800  | g  |
00a8 01ff 2c14  |  , |
00aa 0002 2400  |  $ |
00ac 1296 0000  |    |
00ae 01ff 4c14  |  L |
00b0 001b 8c00  |    |
00b2 12aa a000  |    |
00b4 01ff 9814  |    |
00b6 0015 0000  |    |
00b8 11b9 a800  |    |
00ba 01ff f414  |    |
00bc 000d 1800  |    |
00be 1367 9800  | g  |
00c0 0200 0c14  |    |
00c2 001f 6400  |  d |
00c4 1368 5800  | hX |
00c6 0200 4814  |  H |
00c8 0021 9000  | !  |
00ca 12cd 0000  |    |
00cc 0200 7014  |  p |
00ce 000d 7000  |  p |
00d0 11a9 c000  |    |
00d2 0200 a014  |    |
00d4 0001 bc00  |    |
00d6 12df 2800  |  ( |
00d8 0200 d014  |    |
00da 0018 6000  |  ` |
00dc 11df 1000  |    |
00de 0201 1414  |    |
00e0 000c b800  |    |
00e2 11eb 6000  |  ` |
00e4 0201 5414  |  T |
00e6 0007 6c00  |  l |
00e8 121f d800  |    |
00ea 0201 9014  |    |
00ec 001d b000  |    |
00ee 1228 a000  | (  |
00f0 0201 d014  |    |
00f2 0003 0800  |    |
00f4 1222 b000  | "  |
00f6 0202 2014  |    |
00f8 0006 6800  |  h |
00fa 11fc e800  |    |
00fc 0202 5c14  |  \ |
00fe 0004 1800  |    |
0100 136a 2000  | j  |
0102 0202 8c14  |    |
0104 001b 2400  |  $ |
0106 122a 0000  | *  |
0108 0202 d014  |    |
010a 0001 6400  |  d |
010c 1220 f800  |    |
010e 0203 1414  |    |
0110 0014 9800  |    |
0112 1221 d000  | !  |
0114 0203 5414  |  T |
0116 0010 1400  |    |
0118 1226 a000  | &  |
011a 0203 b814  |    |
011c 0014 7400  |  t |
011e 121f 7000  |  p |
0120 0204 1414  |    |
0122 0006 5c00  |  \ |
0124 12ef 1800  |    |
0126 0204 4414  |  D |
0128 0006 3400  |  4 |
012a 1227 0800  | '  |
012c 0204 8814  |    |
012e 0001 ec00  |    |
0130 12e7 8800  |    |
0132 0204 b814  |    |
0134 001f 3400  |  4 |
0136 121e 8000  |    |
0138 0204 e414  |    |
013a 0021 4c00  | !L |
013c 12ea 3800  |  8 |
013e 0205 1014  |    |
0140 0017 d000  |    |
0142 1223 f000  | #  |
0144 0205 4c14  |  L |
0146 0020 d400  |    |
0148 12e7 3000  |  0 |
014a 0205 7414  |  t |
014c 0008 b400  |    |
014e 1224 5800  | $X |
0150 0205 b414  |    |
0152 000a c400  |    |
0154 122b 6000  | +` |
0156 0206 1014  |    |
0158 0001 c000  |    |
015a 12ed 6000  |  ` |
015c 0206 3c14  |  < |
015e 001f d000  |    |
0160 1235 1000  | 5  |
0162 0206 5814  |  X |
0164 0012 5800  |  X |
0166 1236 7000  | 6p |
0168 0206 7414  |  t |
016a 000e e000  |    |
016c 122e d800  | .  |
016e 0206 8c14  |    |
0170 0012 9400  |    |
0172 1236 2800  | 6( |
0174 0206 a814  |    |
0176 001e a400  |    |
0178 122d b000  | -  |
017a 0206 c414  |    |
017c 0020 7c00  |  | |
017e 122c 8000  | ,  |
0180 0206 e014  |    |
0182 000f 9000  |    |
0184 1235 3000  | 50 |
0186 0206 f814  |    |
0188 0008 4c00  |  L |
018a 1236 b800  | 6  |
018c 0207 1014  |    |
018e 0008 fc00  |    |
0190 1236 f800  | 6  |
0192 0207 3024  |  0$|
0194 000f e800  |    |
0196 1ded 4000  |  @ |
0198 0207 541c  |  T |
019a 0021 ec00  | !  |
019c 1d73 c000  | s  |
019e 0207 7c14  |  | |
01a0 0003 d400  |    |
01a2 124a 7800  | Jx |
01a4 0207 a414  |    |
01a6 0021 7800  | !x |
01a8 124f b000  | O  |
01aa 0207 d014  |    |
01ac 0017 a400  |    |
01ae 1247 8000  | G  |
01b0 0207 fc14  |    |
01b2 0003 8000  |    |
01b4 1248 3000  | H0 |
01b6 0208 2414  |  $ |
01b8 0002 2800  |  ( |
01ba 1368 1800  | h  |
01bc 0208 4c14  |  L |
01be 001d 2800  |  ( |
01c0 12a9 4000  |  @ |
01c2 0208 7014  |  p |
01c4 0007 b800  |    |
01c6 1292 d000  |    |
01c8 0208 9814  |    |
01ca 000d 7800  |  x |
01cc 1366 2000  | f  |
01ce 0208 c014  |    |
01d0 001c ac00  |    |
01d2 12a4 6000  |  ` |
01d4 0208 e414  |    |
01d6 000f 5000  |  P |
01d8 1367 2000  | g  |
01da 0208 fc14  |    |
01dc 001d 5c00  |  \ |
01de 1371 0000  | q  |
01e0 0209 1814  |    |
01e2 000f ac00  |    |
01e4 12a8 4000  |  @ |
01e6 0209 4814  |  H |
01e8 0020 fc00  |    |
01ea 1369 8000  | i  |
01ec 0209 6414  |  d |
01ee 0001 f000  |    |
01f0 12a7 9000  |    |
01f2 0209 8c14  |    |
01f4 0008 5400  |  T |
01f6 1296 8800  |    |
01f8 0209 b014  |    |
01fa 001e c400  |    |
01fc 1369 5800  | iX |
01fe 0209 d014  |    |