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

⟦3877bd866⟧

    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 e019       |    |		Load	0x0,0x19
0023 e01a       |    |		Load	0x0,0x1a
0024 480c       |H   |		Short_Literal	0xc
0025 0007       |    |		Action	Break_Optional
0026 e01b       |    |		Load	0x0,0x1b
0027 02ab       |    |		Declare_Subprogram	For_Call,With_Address
0028 e01c       |    |		Load	0x0,0x1c
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 0886 2100  |  ! |		.XXX[0x172]
0090 03ff fc04  |    |
0092 9010 0084  |    |
0094 5800 0000  |X   |
0096 0322 320a  | "2 |
0098 3d34 0000  |=4  |
009a 4090 02fe  |@   |
009c 3f82 2a12  |? * |
009e 3ce0 0294  |<   |
00a0 9c00 d840  |   @|
00a2 3028 0018  |0(  |
00a4 9130 028a  | 0  |
00a6 bd30 02be  | 0  |
00a8 3c00 0000  |<   |
00aa 0014 0380  |    |
00ac 74e0 02e2  |t   |
00ae 0f22 320a  | "2 |
00b0 3d04 0000  |=   |
00b2 4090 02fe  |@   |
00b4 3ce0 02e2  |<   |
00b6 0cb4 0004  |    |
00b8 9010 0004  |    |
00ba 5d10 02a2  |]   |
00bc 3c04 0064  |<  d|
00be 9110 02e6  |    |
00c0 bd10 02a2  |    |
00c2 3c00 0000  |<   |
00c4 0010 0000  |    |
00c6 4400 0000  |D   |
00c8 0004 0024  |   $|
00ca 9008 0000  |    |
00cc 4140 02a6  |A@  |
00ce bd40 0282  | @  |
00d0 bd40 02aa  | @  |
00d2 3d30 02ae  |=0  |
00d4 3c00 0000  |<   |
00d6 00a8 212c  |  !,|
00d8 0478 0080  | x  |
00da 4110 02b6  |A   |
00dc 3d40 02b2  |=@  |
00de 3c00 0000  |<   |
00e0 0085 a2b0  |    |
00e2 0ce0 02b6  |    |
00e4 0400 0000  |    |
00e6 00c0 0284  |    |
00e8 a454 0080  | T  |
00ea 5150 02b6  |QP  |
00ec 8d50 02ba  | P  |
00ee 0c00 0000  |    |
00f0 00e8 0304  |    |
00f2 a444 0080  | D  |
00f4 4110 02b6  |A   |
00f6 3d20 02be  |=   |
00f8 3d50 02e6  |=P  |
00fa 0e03 003c  |   <|
00fc 0140 02aa  | @  |
00fe 3c87 003c  |<  <|
0100 0d30 02b2  | 0  |
0102 3d03 0060  |=  `|
0104 0085 0064  |   d|
0106 0c04 012c  |   ,|
0108 9520 02e2  |    |
010a bf43 fc24  | C $|
010c 94a8 21b0  |  ! |
010e 0520 02a6  |    |
0110 bf97 fc80  |    |
0112 5140 02ae  |Q@  |
0114 bd10 02b6  |    |
0116 3c00 0000  |<   |
0118 0020 0280  |    |
011a 4520 02ca  |E   |
011c 3d20 02c6  |=   |
011e 3d60 02ba  |=`  |
0120 3c8e 2044  |<  D|
0122 0086 0080  |    |
0124 0814 0000  |    |
0126 4000 0346  |@  F|
0128 b520 02ca  |    |
012a 3d60 02be  |=`  |
012c 3c86 0100  |<   |
012e 0800 03ca  |    |
0130 b484 4000  |  @ |
0132 0090 02fe  |    |
0134 3c60 02c2  |<`  |
0136 3c70 02c6  |<p  |
0138 3c80 02ca  |<   |
013a 3c20 0380  |<   |
013c 0d60 02f4  | `  |
013e 9c00 0000  |    |
0140 0363 fef4  | c  |
0142 9cc0 029a  |    |
0144 bcc0 02ba  |    |
0146 1ca0 0292  |    |
0148 bc0d e838  |   8|
014a 0003 183c  |   <|
014c 0001 3838  |  88|
014e 00b0 0296  |    |
0150 bc0f 3860  |  8`|
0152 000d 5824  |  X$|
0154 0070 02fe  | p  |
0156 bffc 00a0  |    |
0158 cffc 012c  |   ,|
015a c4b0 0292  |    |
015c 3c60 02c2  |<`  |
015e bc90 02a2  |    |
0160 8c94 02ae  |    |
0162 8c90 0294  |    |
0164 9e54 1440  | T @|
0166 3008 0018  |0   |
0168 9086 0100  |    |
016a 0014 0004  |    |
016c 1870 02fe  | p  |
016e 3ca0 0292  |<   |
0170 3f0c bc40  |?  @|
0172 3004 0014  |0   |
0174 9070 02fe  | p  |
0176 3c60 02c2  |<`  |
0178 3c20 0380  |<   |
017a 0ca0 02f4  |    |
017c 9f83 fef4  |    |
017e 9c80 0292  |    |
0180 bc90 0296  |    |
0182 bc50 02fe  | P  |
0184 bc90 0292  |    |
0186 3c70 0294  |<p  |
0188 9fbc 1440  |   @|
018a 3008 0018  |0   |
018c 9060 028a  | `  |
018e bc60 02ba  | `  |
0190 3c08 0004  |<   |
0192 9014 0304  |    |
0194 4470 02be  |Dp  |
0196 4c80 0292  |L   |
0198 3f0c bc40  |?  @|
019a 3004 0014  |0   |
019c 9070 02be  | p  |
019e 4c74 02e6  |Lt  |
01a0 4c03 083c  |L  <|
01a2 0050 02fe  | P  |
01a4 3c84 4064  |< @d|
01a6 0c00 5008  |  P |
01a8 000c 5008  |  P |
01aa 0020 0380  |    |
01ac 0c80 02f4  |    |
01ae 9f63 fef4  | c  |
01b0 9cc0 029a  |    |
01b2 bcc0 02ba  |    |
01b4 3ca0 0292  |<   |
01b6 bc0d f838  |   8|
01b8 0003 183c  |   <|
01ba 00b0 0296  |    |
01bc bc0f 3860  |  8`|
01be 03fc 00a0  |    |
01c0 cc0d 3038  |  08|
01c2 0090 02a2  |    |
01c4 8c01 5824  |  X$|
01c6 000d a838  |   8|
01c8 000d 7828  |  x(|
01ca 0001 f834  |   4|
01cc 0001 1838  |   8|
01ce 0070 02fe  | p  |
01d0 bc0f 183c  |   <|
01d2 000d 3820  |  8 |
01d4 0060 02c2  | `  |
01d6 bffc 01b0  |    |
01d8 c7fc 0064  |   d|
01da cffc 00a8  |    |
01dc c4b0 0292  |    |
01de 3c94 02b2  |<   |
01e0 8c98 02e6  |    |
01e2 8c9c 02aa  |    |
01e4 8c90 0294  |    |
01e6 9e54 1440  | T @|
01e8 3010 0018  |0   |
01ea 9086 0100  |    |
01ec 0014 0004  |    |
01ee 1870 02fe  | p  |
01f0 3ca0 0292  |<   |
01f2 3f0c bc40  |?  @|
01f4 3004 0014  |0   |
01f6 9070 02fe  | p  |
01f8 3c60 02c2  |<`  |
01fa 3c20 0380  |<   |
01fc 0ca0 02f4  |    |
01fe 9f63 fef4  | c  |