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

⟦f10355106⟧

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

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 0078       | x  |		.CONST	0x0078								; 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 004d       | M  |		.CONST	0x004d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001f       |    |		.CONST	0x001f								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000e 0129       | )  |		Execute	Any,Make_Visible
000f e001       |    |		Load	0x0,0x1
0010 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0011 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0012 0129       | )  |		Execute	Any,Make_Visible
0013 00e9       |    |		Load_Encached	String_Cache
0014 0129       | )  |		Execute	Any,Make_Visible
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 e002       |    |		Load	0x0,0x2
0026 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0027 0129       | )  |		Execute	Any,Make_Visible
0028 c216       |    |		Store	0x1,0x16
0029 e001       |    |		Load	0x0,0x1
002a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002b 192a       | *  |		Execute	Package,Field_Reference,Field_Number 0x2a
002c 0129       | )  |		Execute	Any,Make_Visible
002d c217       |    |		Store	0x1,0x17
002e e001       |    |		Load	0x0,0x1
002f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0030 1929       | )  |		Execute	Package,Field_Reference,Field_Number 0x29
0031 0129       | )  |		Execute	Any,Make_Visible
0032 c218       |    |		Store	0x1,0x18
0033 e001       |    |		Load	0x0,0x1
0034 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0035 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
0036 0129       | )  |		Execute	Any,Make_Visible
0037 c212       |    |		Store	0x1,0x12
0038 e001       |    |		Load	0x0,0x1
0039 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003a 192a       | *  |		Execute	Package,Field_Reference,Field_Number 0x2a
003b 0129       | )  |		Execute	Any,Make_Visible
003c c213       |    |		Store	0x1,0x13
003d 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
003f c21c       |    |		Store	0x1,0x1c
0040 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
0042 c21e       |    |		Store	0x1,0x1e
0043 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0045 c21f       |    |		Store	0x1,0x1f
0046 00bf       |    |		Action	Accept_Activation
0047 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
004c 00c7       |    |		Action	Elaborate_Subprogram
004d			BODY_0008:
004d 00bc       |    |		Action	Signal_Activated
004e 00bb       |    |		Action	Signal_Completion
004f 0000       |    |		.XXX[0x1]
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 e001       |    |		Load	0x0,0x1
0055 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0056 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0057 e003       |    |		Load	0x0,0x3
0058 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0059 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
005a 0000 0000  |    |		.BLANK	0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 00da       |    |		Load_Top	At_Offset_2
0064 e001       |    |		Load	0x0,0x1
0065 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0066 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0067 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 4800       |H   |		Short_Literal	0x0
006c 00ea       |    |		Load_Encached	Null_String_Cache
006d 6006       |`   |		Indirect_Literal	Discrete,0x74,{0x00000000, 0x7fffffff}
006e e5ff       |    |		Load	0x2,-0x1
006f 8212       |    |		Call	0x1,0x12
0070 e001       |    |		Load	0x0,0x1
0071 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0072 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0073 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0074 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0078 ; --------------------------------------------------------------------------------------
0078 ; Debug Table
0078 ; --------------------------------------------------------------------------------------
0078 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x8a0b,0x0000,0x0001,0x0000
007e 0000 0200  |    |		.XXX[0x20]
0080 0001 4c80  |  L |
0082 400b a900  |@   |
0084 001b 0cb4  |    |
0086 4b80 8004  |K   |
0088 0000 1000  |    |
008a 0000 1536  |   6|
008c 0001 a000  |    |
008e 0001 c801  |    |
0090 4000 0028  |@  (|
0092 8000 0010  |    |
0094 0000 0088  |    |
0096 0000 0000  |    |
0098 4000 0002  |@   |
009a 9000 0d00  |    |
009c fa9a c000  |    |
009e 0000 0000  |    |		.BLANK	0000[0x1a]
00b8 0040 0000  | @  |		.XXX[0x1f]
00ba 2b10 0801  |+   |
00bc 7610 0000  |v   |
00be 0036 8970  | 6 p|
00c0 1000 8000  |    |
00c2 0200 0000  |    |
00c4 02a8 0000  |    |
00c6 0200 0000  |    |
00c8 1d00 2800  |  ( |
00ca 0005 1000  |    |
00cc 0002 0000  |    |
00ce 0011 0000  |    |
00d0 0000 0800  |    |
00d2 0000 5200  |  R |
00d4 0008 051b  |    |
00d6 9000       |    |
00d7 0000 0000  |    |		.BLANK	0000[0x1a]
00f1 0008 0000  |    |		.XXX[0x1f]
00f3 056a 0100  | j  |
00f5 2ec2 0000  |.   |
00f7 0006 d12e  |   .|
00f9 0200 1000  |    |
00fb 0040 0000  | @  |
00fd 0055 0000  | U  |
00ff 0040 0000  | @  |
0101 03a0 0500  |    |
0103 0000 a200  |    |
0105 0000 4000  |  @ |
0107 0002 2000  |    |
0109 0000 0100  |    |
010b 0000 0a40  |   @|
010d 0001 00a3  |    |
010f 7200       |r   |
0110 0000 0000  |    |		.BLANK	0000[0x1a]
012a 0001 0000  |    |		.XXX[0x1f]
012c 00ad 4020  |  @ |
012e 05d8 4000  |  @ |
0130 0000 da25  |   %|
0132 c040 0200  | @  |
0134 0008 0000  |    |
0136 000a a000  |    |
0138 0008 0000  |    |
013a 0074 00a0  | t  |
013c 0000 1440  |   @|
013e 0000 0800  |    |
0140 0000 4400  |  D |
0142 0000 0020  |    |
0144 0000 0148  |   H|
0146 0000 2014  |    |
0148 6e40       |n@  |
0149 0000 0000  |    |		.BLANK	0000[0x1b]
0164 2000 0015  |    |		.XXX[0x1e]
0166 a804 00bb  |    |
0168 0800 0000  |    |
016a 1b44 b808  | D  |
016c 0040 0001  | @  |
016e 0000 0001  |    |
0170 5400 0001  |T   |
0172 0000 000e  |    |
0174 8014 0000  |    |
0176 0288 0000  |    |
0178 0100 0000  |    |
017a 0880 0000  |    |
017c 0004 0000  |    |
017e 0029 0000  | )  |
0180 0402 8dc8  |    |
0182 0000 0000  |    |		.BLANK	0000[0x1b]
019d 0400 0002  |    |		.XXX[0x1e]
019f b500 8017  |    |
01a1 6100 0000  |a   |
01a3 0368 9701  | h  |
01a5 0008 0000  |    |
01a7 2000 0000  |    |
01a9 2a80 0000  |*   |
01ab 2000 0001  |    |
01ad d002 8000  |    |
01af 0051 0000  | Q  |
01b1 0020 0000  |    |
01b3 0110 0000  |    |
01b5 0000 8000  |    |
01b7 0005 2000  |    |
01b9 0080 51b9  |  Q |
01bb 0000 0000  |    |		.BLANK	0000[0x1b]
01d6 0080 0000  |    |		.XXX[0x3]
01d8 5680       |V   |
01d9 0000 0000  |    |		.BLANK	0000[0x27]