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

⟦e03edacd3⟧

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

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 0040       | @  |		.CONST	0x0040								; 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 0026       | &  |		.CONST	0x0026								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0003       |    |		.CONST	0x0003								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
001d e001       |    |		Load	0x0,0x1
001e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001f 02c7       |    |		Declare_Variable	Any
0020 e002       |    |		Load	0x0,0x2
0021 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0022 e001       |    |		Load	0x0,0x1
0023 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0024 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0025 a403       |    |		Store_Unchecked	0x2,0x3
0026			BODY_0018:
0026 e001       |    |		Load	0x0,0x1
0027 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0028 4800       |H   |		Short_Literal	0x0
0029 e003       |    |		Load	0x0,0x3
002a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
002b e003       |    |		Load	0x0,0x3
002c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
002d e004       |    |		Load	0x0,0x4
002e 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
002f 00d9       |    |		Load_Top	At_Offset_1
0030 00d0       |    |		Action	Swap_Control
0031 0260       | `  |		Execute	Discrete,In_Type
0032 7001       |p   |		Jump_Nonzero	0x34
0033 0801       |    |		Execute_Immediate	Raise,0x1
0034 00db       |    |		Load_Top	At_Offset_3
0035 e001       |    |		Load	0x0,0x1
0036 184e       | N  |		Execute	Package,Field_Execute,Field_Number 0x4e
0037 e403       |    |		Load	0x2,0x3
0038 e001       |    |		Load	0x0,0x1
0039 1844       | D  |		Execute	Package,Field_Execute,Field_Number 0x44
003a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
003b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
003c 0000 0000  |    |		.BLANK	0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; Debug Table
0040 ; --------------------------------------------------------------------------------------
0040 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0f69,0x0000,0x0001,0x0000
0046 8a20 3927  |  9'|		.XXX[0x1ba]
0048 e82b 5025  | +P%|
004a 5144 0000  |QD  |
004c 0ac4 0000  |    |
004e 0ac4 1594  |    |
0050 0400 7000  |  p |
0052 0000 0000  |    |
0054 19ea 001c  |    |
0056 9a06 2e62  |  .b|
0058 04aa 2880  |  ( |
005a e4c5 60ad  |  ` |
005c 8095 4510  |  E |
005e 0000 2b20  |  + |
0060 0000 2b20  |  + |
0062 5670 1001  |Vp  |
0064 c000 0000  |    |
0066 0000 67a8  |  g |
0068 0072 7f28  | r (|
006a b990 12a8  |    |
006c a203 93ce  |    |
006e 02b7 0255  |   U|
0070 1440 0000  | @  |
0072 acc0 0000  |    |
0074 acc1 5a41  |  ZA|
0076 d816 4000  |  @ |
0078 000f fff8  |    |
007a 0800 e00e  |    |
007c 4eb2 0000  |N   |
007e 33d4 0039  |3  9|
0080 4904 5cc4  |I \ |
0082 0954 5101  | TQ |
0084 ca32 815c  | 2 \|
0086 012a 8a20  | *  |
0088 0000 5680  |  V |
008a 0000 5680  |  V |
008c ad60 2003  | `  |
008e 8000 0000  |    |
0090 0000 cf50  |   P|
0092 00e5 49d1  |  I |
0094 7310 2551  |s %Q|
0096 4407 29f8  |D ) |
0098 0572 04aa  | r  |
009a 2880 0001  |(   |
009c 5a80 0001  |Z   |
009e 5a82 b680  |Z   |
00a0 800e 0000  |    |
00a2 0000 0003  |    |
00a4 3d40 0395  |=@  |
00a6 be45 cc40  | E @|
00a8 9545 101c  | E  |
00aa ac98 15d0  |    |
00ac 12a8 a200  |    |
00ae 0005 6c00  |  l |
00b0 0005 6c0a  |  l |
00b2 de02 0038  |   8|
00b4 0000 0000  |    |
00b6 000c f500  |    |
00b8 0e59 5517  | YU |
00ba 3202 5514  |2 U |
00bc 4072 c540  |@r @|
00be 5760 4aa2  |W`J |
00c0 8800 0015  |    |
00c2 b800 0015  |    |
00c4 b82b 8808  | +  |
00c6 00e0 0000  |    |
00c8 0000 0033  |   3|
00ca d400 396e  |  9n|
00cc c45c c409  | \  |
00ce 5451 01cb  |TQ  |
00d0 6081 5e01  |` ^ |
00d2 2a8a 2000  |*   |
00d4 0057 0000  | W  |
00d6 0057 00ae  | W  |
00d8 6020 0380  |`   |
00da 0000 0000  |    |
00dc 00cf 5000  |  P |
00de e5e0 d173  |   s|
00e0 1025 5144  | %QD|
00e2 072e b005  | .  |
00e4 7a04 aa28  |z  (|
00e6 8000 015c  |   \|
00e8 8000 015c  |   \|
00ea 82ba 8080  |    |
00ec 0e00 0000  |    |
00ee 0000 033d  |   =|
00f0 4003 981a  |@   |
00f2 45cc 4095  |E @ |
00f4 4510 1cbf  |E   |
00f6 7815 f012  |x   |
00f8 a8a2 0000  |    |
00fa 0574 0000  | t  |
00fc 0574 0aee  | t  |
00fe 0200 3800  |  8 |
0100 0000 0000  |    |
0102 0cf5 000e  |    |
0104 634b 1732  |cK 2|
0106 0255 1440  | U @|
0108 7314 f057  |s  W|
010a e04a a288  | J  |
010c 0000 15d8  |    |
010e 0000 15d8  |    |
0110 2bc8 3b02  |+ ; |
0112 c800 0001  |    |
0114 ffff 0100  |    |
0116 1c01 cc43  |   C|
0118 0000 067a  |   z|
011a 8007 32d3  |  2 |
011c 8b98 812a  |   *|
011e 8a20 3993  |  9 |
0120 e82c 0025  | , %|
0122 5144 0000  |QD  |
0124 0af0 0000  |    |
0126 0af0 15ec  |    |
0128 0400 7000  |  p |
012a 0000 0000  |    |
012c 19ea 001c  |    |
012e d006 2e62  |  .b|
0130 04aa 2880  |  ( |
0132 e675 60b0  | u` |
0134 4095 4510  |@ E |
0136 0000 2bd0  |  + |
0138 0000 2bd0  |  + |
013a 57d0 1001  |W   |
013c c000 0000  |    |
013e 0000 67a8  |  g |
0140 0073 52f8  | sR |
0142 b988 12a8  |    |
0144 a203 9a6c  |   l|
0146 82c2 0255  |   U|
0148 1440 0000  | @  |
014a af80 0000  |    |
014c af81 5fc0  |  _ |
014e 4007 0000  |@   |
0150 0000 0001  |    |
0152 9ea0 01cd  |    |
0154 9762 e640  | b @|
0156 4aa2 880e  |J   |
0158 6c0e 0b0c  |l   |
015a 0954 5100  | TQ |
015c 0002 bf00  |    |
015e 0002 bf05  |    |
0160 8101 001c  |    |
0162 0000 0000  |    |
0164 0006 7a80  |  z |
0166 0737 8b8b  | 7  |
0168 9881 2a8a  |  * |
016a 2039 b9a8  | 9  |
016c 2c40 2551  |,@%Q|
016e 4400 000b  |D   |
0170 0000 000b  |    |
0172 0016 0c04  |    |
0174 0070 0000  | p  |
0176 0000 0019  |    |
0178 ea00 1ce2  |    |
017a e62e 6204  | .b |
017c aa28 80e7  | (  |
017e 0c60 b140  | ` @|
0180 9545 1000  | E  |
0182 002c 1000  | ,  |
0184 002c 1058  | , X|
0186 5010 01c0  |P   |
0188 0000 0000  |    |
018a 0067 a800  | g  |
018c 739e 78b9  |s x |
018e 8812 a8a2  |    |
0190 039c c882  |    |
0192 c602 5514  |  U |
0194 4000 00b0  |@   |
0196 8000 00b0  |    |
0198 8161 c040  | a @|
019a 0700 0000  |    |
019c 0000 019e  |    |
019e a001 ced6  |    |
01a0 22e6 404a  |" @J|
01a2 a288 0e76  |   v|
01a4 040b 1c09  |    |
01a6 5451 0000  |TQ  |
01a8 02c3 0000  |    |
01aa 02c3 0589  |    |
01ac 0760 5900  | `Y |
01ae 0000 3fff  |  ? |
01b0 e020 0380  |    |
01b2 39d5 f800  |9   |
01b4 00cf 5000  |  P |
01b6 e790 d173  |   s|
01b8 1025 5144  | %QD|
01ba 073c 3005  | <0 |
01bc 9004 aa28  |   (|
01be 8000 0162  |   b|
01c0 0000 0162  |   b|
01c2 02c5 8080  |    |
01c4 0e00 0000  |    |
01c6 0000 033d  |   =|
01c8 4003 9eda  |@   |
01ca 45cc 4095  |E @ |
01cc 4510 1cf5  |E   |
01ce 7816 4812  |x H |
01d0 a8a2 0000  |    |
01d2 058a 0000  |    |
01d4 058a 0b1a  |    |
01d6 0200 3800  |  8 |
01d8 0000 0000  |    |
01da 0cf5 000e  |    |
01dc 7dc5 1731  |}  1|
01de 0255 1440  | U @|
01e0 73e8 c059  |s  Y|
01e2 404a a288  |@J  |
01e4 0000 1630  |   0|
01e6 0000 1630  |   0|
01e8 2c78 0800  |,x  |
01ea e000 0000  |    |
01ec 0000 33d4  |  3 |
01ee 003a 0084  | :  |
01f0 5cc8 0954  |\  T|
01f2 5101 cfee  |Q   |
01f4 8165 812a  | e *|
01f6 8a20 0000  |    |
01f8 58e0 0000  |X   |
01fa 58e0 b220  |X   |
01fc 2003 8000  |    |
01fe 0000 0000  |    |