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

⟦28a6a2da7⟧

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

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 0080       |    |		.CONST	0x0080								; 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 0028       | (  |		.CONST	0x0028								; 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 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
000d e214       |    |		Load	0x1,0x14
000e 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
000f e214       |    |		Load	0x1,0x14
0010 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0011 00e1       |    |		Load_Encached	Boolean_Cache
0012 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0013 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
0015 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0017 e013       |    |		Load	0x0,0x13
0018 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
0019 00c6       |    |		Action	Check_Subprogram_Elaborated
001a 4806       |H   |		Short_Literal	0x6
001b 4802       |H   |		Short_Literal	0x2
001c 0099       |    |		Action	Reference_Dynamic
001d 4807       |H   |		Short_Literal	0x7
001e 4802       |H   |		Short_Literal	0x2
001f 0099       |    |		Action	Reference_Dynamic
0020 e019       |    |		Load	0x0,0x19
0021 e01a       |    |		Load	0x0,0x1a
0022 480c       |H   |		Short_Literal	0xc
0023 0007       |    |		Action	Break_Optional
0024 e01b       |    |		Load	0x0,0x1b
0025 02ab       |    |		Declare_Subprogram	For_Call,With_Address
0026 e01c       |    |		Load	0x0,0x1c
0027 02ab       |    |		Declare_Subprogram	For_Call,With_Address
0028			BODY_0008:
0028 e214       |    |		Load	0x1,0x14
0029 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
002a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
002b e011       |    |		Load	0x0,0x11
002c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002d e018       |    |		Load	0x0,0x18
002e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002f e214       |    |		Load	0x1,0x14
0030 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0031 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0032 c402       |    |		Store	0x2,0x2
0033 e214       |    |		Load	0x1,0x14
0034 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
0035 e214       |    |		Load	0x1,0x14
0036 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0037 c403       |    |		Store	0x2,0x3
0038 e5ff       |    |		Load	0x2,-0x1
0039 840d       |    |		Call	0x2,0xd
003a e214       |    |		Load	0x1,0x14
003b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
003c e403       |    |		Load	0x2,0x3
003d e214       |    |		Load	0x1,0x14
003e 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
003f c404       |    |		Store	0x2,0x4
0040 e5fb       |    |		Load	0x2,-0x5
0041 e5fc       |    |		Load	0x2,-0x4
0042 e5fd       |    |		Load	0x2,-0x3
0043 e5fe       |    |		Load	0x2,-0x2
0044 e404       |    |		Load	0x2,0x4
0045 840e       |    |		Call	0x2,0xe
0046 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0047 0000       |    |		.XXX[0x1]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 00da       |    |		Load_Top	At_Offset_2
004c e402       |    |		Load	0x2,0x2
004d e214       |    |		Load	0x1,0x14
004e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
004f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
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 8213       |    |		Call	0x1,0x13
0055 e405       |    |		Load	0x2,0x5
0056 6811       |h   |		Jump_Zero	0x68
0057 e00e       |    |		Load	0x0,0xe
0058 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0059 4800       |H   |		Short_Literal	0x0
005a e7fe       |    |		Load	0x3,-0x2
005b e008       |    |		Load	0x0,0x8
005c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
005d 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
005e 0092 0073  |   s|		Action	Push_String_Extended,0x73					; " depends upon "
0060 01cc       |    |		Execute	Vector,Catenate
0061 e7ff       |    |		Load	0x3,-0x1
0062 e008       |    |		Load	0x0,0x8
0063 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0064 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0065 01cc       |    |		Execute	Vector,Catenate
0066 e00f       |    |		Load	0x0,0xf
0067 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0068 00db       |    |		Load_Top	At_Offset_3
0069 00db       |    |		Load_Top	At_Offset_3
006a e403       |    |		Load	0x2,0x3
006b e214       |    |		Load	0x1,0x14
006c 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
006d e402       |    |		Load	0x2,0x2
006e 00db       |    |		Load_Top	At_Offset_3
006f e214       |    |		Load	0x1,0x14
0070 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0071 c402       |    |		Store	0x2,0x2
0072 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0073 ; --------------------------------------------------------------------------------------
0073 ; STRING TABLE
0073 ; --------------------------------------------------------------------------------------
0073 0004       |    |		.STRTAB	0x0004->0x0075							; " depends upon "
0074 0010       |    |		.STREND 0x0010->0x007c
0075 2064 6570  | dep|		.STRTAB_STRINGS
007c 0000 0000  |    |		.BLANK	0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; Debug Table
0080 ; --------------------------------------------------------------------------------------
0080 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x96c6,0x0000,0x0001,0x0000
0086 4c80 c4d4  |L   |		.XXX[0x17a]
0088 81e0 a1bd  |    |
008a d1a1 95c8  |    |
008c a54c 80c4  | L  |
008e d481 e028  |   (|
0090 a1d9 85b1  |    |
0092 d595 cca5  |    |
0094 4c80 c4d4  |L   |
0096 81e0 a1bd  |    |
0098 98a5 4c80  |  L |
009a d4c0 81e4  |    |
009c 80cc c0c0  |    |
009e 8160 8118  | `  |
00a0 d0e0 a10d  |    |
00a2 650d 3114  |e 1 |
00a4 a54c 8118  | L  |
00a6 d8a1 70a4  |  p |
00a8 b0a5 4c80  |  L |
00aa c4d4 81e0  |    |
00ac a185 b8a5  |    |
00ae 4c80 c4d8  |L   |
00b0 81e0 28a1  |  ( |
00b2 a5b5 c1b1  |    |
00b4 95b5 95b9  |    |
00b6 d185 d1a5  |    |
00b8 bdb8 a54c  |   L|
00ba 80c4 d881  |    |
00bc e0a1 a5cc  |    |
00be a54c 80c4  | L  |
00c0 d481 e0a1  |    |
00c2 85b1 b1bd  |    |
00c4 dd95 90a5  |    |
00c6 4c80 c4d8  |L   |
00c8 81e0 a1d1  |    |
00ca bca5 4c80  |  L |
00cc c4d8 81e0  |    |
00ce a195 e18d  |    |
00d0 9595 90a5  |    |
00d2 4c28 c4d4  |L(  |
00d4 81e0 a1d1  |    |
00d6 a194 a54c  |   L|
00d8 80c4 d881  |    |
00da e0a1 c985  |    |
00dc b99d 94a5  |    |
00de 4c80 c4d8  |L   |
00e0 81e0 a1b1  |    |
00e2 a5b5 a5d0  |    |
00e4 b0a5 4c80  |  L |
00e6 c4d8 81e0  |    |
00e8 a189 d5d0  |    |
00ea a54c 80c4  | L  |
00ec d481 e0a1  |    |
00ee a5d0 a54c  |   L|
00f0 80c4 d881  |    |
00f2 e0a1 a5cc  |    |
00f4 a54c 28c4  | L( |
00f6 d481 e0a1  |    |
00f8 b9bd d0a5  |    |
00fa 4c80 c4d8  |L   |
00fc 81e0 a185  |    |
00fe b1b1 bddd  |    |
0100 9590 a54c  |   L|
0102 80c4 d481  |    |
0104 e0a1 d1bc  |    |
0106 a54c 80c4  | L  |
0108 d481 e0a1  |    |
010a 95e1 8d95  |    |
010c 9590 a54c  |   L|
010e 80c4 d481  |    |
0110 e0a1 d1a1  |    |
0112 94a5 4c80  |  L |
0114 c4d8 81e0  |    |
0116 28a1 cd85  |(   |
0118 9994 a54c  |   L|
011a 80c4 d881  |    |
011c e0a1 b9d5  |    |
011e b589 95c8  |    |
0120 a54c 80d4  | L  |
0122 c081 e480  |    |
0124 ccc0 c081  |    |
0126 60a1 bd98  |`   |
0128 a54c 80c4  | L  |
012a d081 e081  |    |
012c 18d0 e0a1  |    |
012e 1931 3d05  | 1= |
0130 517d 5165  |Q}Qe|
0132 4114 a54c  |A  L|
0134 80c4 c481  |    |
0136 e081 18d8  |    |
0138 28a1 b995  |(   |
013a e1d0 a54c  |   L|
013c 80c4 d081  |    |
013e e0a1 8995  |    |
0140 e5bd b990  |    |
0142 a54c 80c4  | L  |
0144 d081 e0a1  |    |
0146 d1a1 94a5  |    |
0148 4c80 c4d0  |L   |
014a 81e0 a1c9  |    |
014c 85b9 9d94  |    |
014e a54c 80c4  | L  |
0150 d081 e0a1  |    |
0152 b1a5 b5a5  |    |
0154 d0a5 4c80  |  L |
0156 c4d0 81e0  |    |
0158 a1a5 b8a5  |    |
015a 4c28 c4d0  |L(  |
015c 81e0 a1d1  |    |
015e a194 a54c  |   L|
0160 80c4 d081  |    |
0162 e0a1 91a5  |    |
0164 c995 8dd1  |    |
0166 a5bd b8a5  |    |
0168 4c80 c4d0  |L   |
016a 81e0 a185  |    |
016c dd85 e4a5  |    |
016e 4c80 c4d0  |L   |
0170 81e0 a199  |    |
0172 c9bd b4a5  |    |
0174 4c80 c4d0  |L   |
0176 81e0 a1d1  |    |
0178 a194 a54c  |   L|
017a 80c4 d081  |    |
017c e028 a1a5  | (  |
017e b9d1 95c9  |    |
0180 a5bd c8a5  |    |
0182 4c80 c4d0  |L   |
0184 81e0 a1bd  |    |
0186 98a5 4c80  |  L |
0188 c4d0 81e0  |    |
018a a1d1 a194  |    |
018c a54c 80c4  | L  |
018e d081 e0a1  |    |
0190 c985 b99d  |    |
0192 94ec a54c  |   L|
0194 80c4 d081  |    |
0196 e0a1 d1a1  |    |
0198 a5cc a54c  |   L|
019a 80c4 d081  |    |
019c e0a1 a5cc  |    |
019e a54c 28c4  | L( |
01a0 d081 e0a1  |    |
01a2 a5b8 a54c  |   L|
01a4 80c4 d081  |    |
01a6 e0a1 9d95  |    |
01a8 b995 c985  |    |
01aa b0a5 4c80  |  L |
01ac d0e4 81e4  |    |
01ae 80cc c0c0  |    |
01b0 8160 a1d1  | `  |
01b2 a194 a54c  |   L|
01b4 80c4 dc81  |    |
01b6 e0a1 8995  |    |
01b8 cdd0 a54c  |   L|
01ba 80c4 dc81  |    |
01bc e0a1 d1a1  |    |
01be 85d0 a54c  |   L|
01c0 8028 c4dc  | (  |
01c2 81e0 a18d  |    |
01c4 85b8 a54c  |   L|
01c6 80c4 e081  |    |
01c8 e0a1 8994  |    |
01ca a54c 80c4  | L  |
01cc dc81 e0a1  |    |
01ce 95e1 c195  |    |
01d0 8dd1 9590  |    |
01d2 a54c 80c4  | L  |
01d4 dc81 e0a1  |    |
01d6 99c9 bdb4  |    |
01d8 a54c 80c4  | L  |
01da dc81 e0a1  |    |
01dc 84a5 4c80  |  L |
01de c4dc 81e0  |    |
01e0 28a1 c1bd  |(   |
01e2 c9d1 8589  |    |
01e4 b194 a54c  |   L|
01e6 80c4 dc81  |    |
01e8 e0a1 a5b5  |    |
01ea c1b1 95b5  |    |
01ec 95b9 d185  |    |
01ee d1a5 bdb8  |    |
01f0 b8a5 4c80  |  L |
01f2 c8d8 81e0  |    |
01f4 a115 98a5  |    |
01f6 4c80 b4c4  |L   |
01f8 81e0 a199  |    |
01fa 958d d1a5  |    |
01fc d995 b1e4  |    |
01fe b0a5 4c80  |  L |