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

⟦69d82aab0⟧

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

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 0088       |    |		.CONST	0x0088								; 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 002a       | *  |		.CONST	0x002a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b e214       |    |		Load	0x1,0x14
000c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
000d e214       |    |		Load	0x1,0x14
000e 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
000f e214       |    |		Load	0x1,0x14
0010 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0011 00e1       |    |		Load_Encached	Boolean_Cache
0012 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0013 0007       |    |		Action	Break_Optional
0014 0007       |    |		Action	Break_Optional
0015 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0017 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
0019 e013       |    |		Load	0x0,0x13
001a 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
001b 00c6       |    |		Action	Check_Subprogram_Elaborated
001c 4806       |H   |		Short_Literal	0x6
001d 4802       |H   |		Short_Literal	0x2
001e 0099       |    |		Action	Reference_Dynamic
001f 4807       |H   |		Short_Literal	0x7
0020 4802       |H   |		Short_Literal	0x2
0021 0099       |    |		Action	Reference_Dynamic
0022 e014       |    |		Load	0x0,0x14
0023 e015       |    |		Load	0x0,0x15
0024 480c       |H   |		Short_Literal	0xc
0025 0007       |    |		Action	Break_Optional
0026 e016       |    |		Load	0x0,0x16
0027 02ab       |    |		Declare_Subprogram	For_Call,With_Address
0028 e017       |    |		Load	0x0,0x17
0029 02ab       |    |		Declare_Subprogram	For_Call,With_Address
002a			BODY_0008:
002a e214       |    |		Load	0x1,0x14
002b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
002c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
002d e011       |    |		Load	0x0,0x11
002e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002f e018       |    |		Load	0x0,0x18
0030 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0031 e214       |    |		Load	0x1,0x14
0032 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0033 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0034 c402       |    |		Store	0x2,0x2
0035 e214       |    |		Load	0x1,0x14
0036 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0037 e214       |    |		Load	0x1,0x14
0038 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0039 c403       |    |		Store	0x2,0x3
003a e5ff       |    |		Load	0x2,-0x1
003b 840d       |    |		Call	0x2,0xd
003c e214       |    |		Load	0x1,0x14
003d 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
003e e403       |    |		Load	0x2,0x3
003f e214       |    |		Load	0x1,0x14
0040 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0041 c404       |    |		Store	0x2,0x4
0042 e5fb       |    |		Load	0x2,-0x5
0043 e5fc       |    |		Load	0x2,-0x4
0044 e5fd       |    |		Load	0x2,-0x3
0045 e5fe       |    |		Load	0x2,-0x2
0046 e404       |    |		Load	0x2,0x4
0047 840e       |    |		Call	0x2,0xe
0048 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0049 0000 0000  |    |		.BLANK	0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 00da       |    |		Load_Top	At_Offset_2
0054 e402       |    |		Load	0x2,0x2
0055 e214       |    |		Load	0x1,0x14
0056 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0057 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 00da       |    |		Load_Top	At_Offset_2
005c 8213       |    |		Call	0x1,0x13
005d e405       |    |		Load	0x2,0x5
005e 6811       |h   |		Jump_Zero	0x70
005f e00e       |    |		Load	0x0,0xe
0060 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0061 4800       |H   |		Short_Literal	0x0
0062 e7fe       |    |		Load	0x3,-0x2
0063 e008       |    |		Load	0x0,0x8
0064 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0065 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0066 0092 007b  |   {|		Action	Push_String_Extended,0x7b					; " depends upon "
0068 01cc       |    |		Execute	Vector,Catenate
0069 e7ff       |    |		Load	0x3,-0x1
006a e008       |    |		Load	0x0,0x8
006b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
006c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
006d 01cc       |    |		Execute	Vector,Catenate
006e e00f       |    |		Load	0x0,0xf
006f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0070 00db       |    |		Load_Top	At_Offset_3
0071 00db       |    |		Load_Top	At_Offset_3
0072 e403       |    |		Load	0x2,0x3
0073 e214       |    |		Load	0x1,0x14
0074 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0075 e402       |    |		Load	0x2,0x2
0076 00db       |    |		Load_Top	At_Offset_3
0077 e214       |    |		Load	0x1,0x14
0078 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0079 c402       |    |		Store	0x2,0x2
007a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
007b ; --------------------------------------------------------------------------------------
007b ; STRING TABLE
007b ; --------------------------------------------------------------------------------------
007b 0004       |    |		.STRTAB	0x0004->0x007d							; " depends upon "
007c 0010       |    |		.STREND 0x0010->0x0084
007d 2064 6570  | dep|		.STRTAB_STRINGS
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x4229,0x0000,0x0001,0x0000
008e 5a04 8038  |Z  8|		.XXX[0xf8]
0090 b848 0004  | H  |
0092 5142 0400  |QB  |
0094 e24c 1000  | L  |
0096 08a3 a006  |    |
0098 02d1 5ca0  |  \ |
009a 0000 0000  |    |
009c 2802 8211  |(   |
009e 4000 0000  |@   |
00a0 0028 060f  | (  |
00a2 4a80 0045  |J  E|
00a4 37a0 300d  |7 0 |
00a6 1b41 0000  | A  |
00a8 8a81 00a0  |    |
00aa 172b 9a00  | +  |
00ac 0000 0003  |    |
00ae 4014 b0f4  |@   |
00b0 0002 2a92  |  * |
00b2 0680 5fbf  |  _ |
00b4 c800 0455  |   U|
00b6 b208 0070  |   p|
00b8 bd50 0008  | P  |
00ba ac80 0602  |    |
00bc dc3b a000  | ;  |
00be 0000 003c  |   <|
00c0 0206 8e40  |   @|
00c2 0022 bae0  | "  |
00c4 400c 3a1c  |@ : |
00c6 8000 0000  |    |
00c8 0020 04d2  |    |
00ca 2900 0000  |)   |
00cc 0003 802a  |   *|
00ce 1b2a 0000  | *  |
00d0 0000 0140  |   @|
00d2 3cfa 1400  |<   |
00d4 022c ca0e  | ,  |
00d6 0082 a7a8  |    |
00d8 0000 0000  |    |
00da 0800 64c6  |  d |
00dc 5000 08b5  |P   |
00de 6038 0256  |`8 V|
00e0 0f20 0011  |    |
00e2 6cf8 3401  |l 4 |
00e4 b216 4000  |  @ |
00e6 0000 0018  |    |
00e8 06ca 0a80  |    |
00ea 0045 c5a1  | E  |
00ec c016 7e31  |  ~1|
00ee 0000 0000  |    |
00f0 0160 0815  | `  |
00f2 5a00 0117  |Z   |
00f4 5d83 402a  |] @*|
00f6 3e74 0000  |>t  |
00f8 0000 0100  |    |
00fa f688 2800  |  ( |
00fc 045e 9203  | ^  |
00fe 018d b550  |   P|
0100 0008 be40  |   @|
0102 0603 5690  |  V |
0104 2000 0000  |    |
0106 000c 0330  |   0|
0108 5340 0023  |S@ #|
010a 01e0 2004  |    |
010c 2e2e 8000  |..  |
010e 0000 0110  |    |
0110 04ca 4100  |  A |
0112 0000 0001  |    |
0114 800c cfba  |    |
0116 0001 1879  |   y|
0118 8140 2ab8  | @* |
011a f400 0231  |   1|
011c 3a05 801e  |:   |
011e d3c8 0000  |    |
0120 0000 0e00  |    |
0122 56cd 5000  |V P |
0124 0000 0016  |    |
0126 00ae 01a0  |    |
0128 0011 9078  |   x|
012a 2001 16cf  |    |
012c 4000 2325  |@ #%|
012e 6040 0bc6  |`@  |
0130 5480 0046  |T  F|
0132 53a0 300e  |S 0 |
0134 4205 0000  |B   |
0136 0000 00a0  |    |
0138 1fef 8a00  |    |
013a 0119 9582  |    |
013c 0074 53b4  | tS |
013e 0002 3372  |  3r|
0140 0e00 8f7c  |   ||
0142 2800 0000  |(   |
0144 0008 0109  |    |
0146 5850 0000  |XP  |
0148 0000 3801  |  8 |
014a a6dc a000  |    |
014c 11a2 3840  |  8@|
014e 0169 4d40  | iM@|
0150 0023 48e4  | #H |
0152 0bd9 d8a0  |    |
0154 0000 0000  |    |
0156 0000 0016  |    |
0158 0780 7dcb  |  } |
015a 12e0 8015  |    |
015c f520 0000  |    |
015e 0000 fa01  |    |
0160 003c 387e  | <8~|
0162 e10c 602b  |  `+|
0164 b408 0000  |    |
0166 0002 b952  |   R|
0168 4599 8057  |E  W|
016a 7630 0000  |v0  |
016c 0005 6cd8  |  l |
016e 015d 8881  | ]  |
0170 0010 c640  |   @|
0172 2002 18c8  |    |
0174 0000 aec4  |    |
0176 50b0 3015  |P 0 |
0178 e478 0000  | x  |
017a 0001 5da0  |  ] |
017c 4100 110b  |A   |
017e fc22 4c05  | "L |
0180 7844 0000  |xD  |
0182 0000 0000  |    |
0184 0900 8000  |    |
0186 0000 0000  |    |		.BLANK	0000[0x4]
018a 002b bf28  | + (|		.XXX[0x2]
018c 0000 0000  |    |		.BLANK	0000[0x4]
0190 0016 0696  |    |		.XXX[0x19]
0192 089a 02c3  |    |
0194 6980 af35  |i  5|
0196 0046 0348  | F H|
0198 0aee c600  |    |
019a 0183 b02d  |   -|
019c 0000 001f  |    |
019e fff0 0000  |    |
01a0 0008 c1fd  |    |
01a2 8449 8000  | I  |
01a4 0000 0000  |    |
01a6 0000 0001  |    |
01a8 2010       |    |
01a9 0000 0000  |    |		.BLANK	0000[0xa]
01b3 0002 1126  |   &|		.XXX[0x8]
01b5 02bd ce80  |    |
01b7 0000 0000  |    |
01b9 0004 8040  |   @|
01bb 0000 0000  |    |		.BLANK	0000[0x5]
01c0 15ec f800  |    |		.XXX[0x40]
01c2 0000 0000  |    |
01c4 0000 0008  |    |
01c6 5068 0b03  |Ph  |
01c8 8000 0000  |    |
01ca 0118 9240  |   @|
01cc 8008 877a  |   z|
01ce 0000 0000  |    |
01d0 aeb4 7015  |  p |
01d2 f378 08c6  | x  |
01d4 2684 4980  |& I |
01d6 afb4 e000  |    |
01d8 0000 0afa  |    |
01da 2720 1001  |'   |
01dc 5f99 8000  |_   |
01de 0000 231e  |  # |
01e0 ec05 7d48  |  }H|
01e2 0080 1e1c  |    |
01e4 2000 463a  |  F:|
01e6 1662 c202  | b  |
01e8 c073 0000  | s  |
01ea 0000 462c  |  F,|
01ec 200a fb4e  |   N|
01ee 0100 3f00  |  ? |
01f0 a762 e000  | b  |
01f2 0000 0000  |    |
01f4 0001 d000  |    |
01f6 029e 05ce  |    |
01f8 c5c0 0000  |    |
01fa 0000 0000  |    |
01fc 00f8 0005  |    |
01fe 40bd 9d8a  |@   |