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

⟦c1a62f13c⟧

    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 0014       |    |		.CONST	0x0014								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 0129       | )  |		Execute	Any,Make_Visible
000d e002       |    |		Load	0x0,0x2
000e 0129       | )  |		Execute	Any,Make_Visible
000f 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
0011 00bf       |    |		Action	Accept_Activation
0012 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0013 00c7       |    |		Action	Elaborate_Subprogram
0014			BODY_0008:
0014 00bc       |    |		Action	Signal_Activated
0015 00bb       |    |		Action	Signal_Completion
0016 0000 0000  |    |		.XXX[0x2]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001d       |    |		.CONST	0x001d								; Address of begin
0019 002f       | /  |		.CONST	0x002f								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b 0092 0034  |   4|		Action	Push_String_Extended,0x34					; "Insight"
001d			BODY_0018:
001d 00d8       |    |		Load_Top	At_Offset_0
001e e003       |    |		Load	0x0,0x3
001f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0020 7002       |p   |		Jump_Nonzero	0x23
0021 e20d       |    |		Load	0x1,0xd
0022 0257       | W  |		Execute	Discrete,Raise
0023 e004       |    |		Load	0x0,0x4
0024 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0025 4801       |H   |		Short_Literal	0x1
0026 00da       |    |		Load_Top	At_Offset_2
0027 e005       |    |		Load	0x0,0x5
0028 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0029 e005       |    |		Load	0x0,0x5
002a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
002b 7002       |p   |		Jump_Nonzero	0x2e
002c e20e       |    |		Load	0x1,0xe
002d 0257       | W  |		Execute	Discrete,Raise
002e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
002f			TRAP_0018:
002f 4884       |H   |		Short_Literal	0x84
0030 010f       |    |		Execute	Exception,Equal
0031 6801       |h   |		Jump_Zero	0x33
0032 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0033 0100       |    |		Execute	Exception,Raise
0034 ; --------------------------------------------------------------------------------------
0034 ; STRING TABLE
0034 ; --------------------------------------------------------------------------------------
0034 0004       |    |		.STRTAB	0x0004->0x0036							; "Insight"
0035 0009       |    |		.STREND 0x0009->0x0039
0036 496e 7369  |Insi|		.STRTAB_STRINGS
003a 0000 0000  |    |		.BLANK	0000[0x6]
0040 ; --------------------------------------------------------------------------------------
0040 ; Debug Table
0040 ; --------------------------------------------------------------------------------------
0040 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x1008,0x0000,0x0001,0x0000
0046 5202 3080  |R 0 |		.XXX[0x1ba]
0048 10ca 0000  |    |
004a 13c0 1881  |    |
004c 63c0 1880  |c   |
004e 23c0 1881  |#   |
0050 6248 4080  |bH@ |
0052 03c0 1880  |    |
0054 1100 03db  |    |
0056 d240 4000  | @@ |
0058 6042 0000  |`B  |
005a 1804 0000  |    |
005c 0202 4000  |  @ |
005e 5c0a 0000  |\   |
0060 0c04 0000  |    |
0062 0300 b884  |    |
0064 0607 1f80  |    |
0066 2207 a000  |"   |
0068 0277 8efe  | w  |
006a 8340 1900  | @  |
006c 03c8 1980  |    |
006e 7348 1885  |sH  |
0070 f202 9900  |    |
0072 24a2 0000  |$   |
0074 6b00 9886  |k   |
0076 0350 1880  | P  |
0078 1350 2a80  | P* |
007a 5202 2a80  |R * |
007c 108a 0000  |    |
007e 13e8 1880  |    |
0080 2042 0000  | B  |
0082 0fe8 1881  |    |
0084 63e8 1d81  |c   |
0086 63e8 1d80  |c   |
0088 1100 0193  |    |
008a fa40 4000  | @@ |
008c 7790 1885  |w   |
008e f290 9900  |    |
0090 4a02 9200  |J   |
0092 20ea 0000  |    |
0094 2b00 9886  |+   |
0096 03a0 1886  |    |
0098 03a8 1883  |    |
009a d202 9400  |    |
009c 54da 0000  |T   |
009e 1700 9886  |    |
00a0 03b0 1886  |    |
00a2 02b0 1680  |    |
00a4 07b0 9886  |    |
00a6 03c8 9885  |    |
00a8 f207 1f80  |    |
00aa 2207 a000  |"   |
00ac 0277 8efd  | w  |
00ae c348 1980  | H  |
00b0 8240 4000  | @@ |
00b2 624c a980  |bL  |
00b4 41ff ffda  |A   |
00b6 a64c e980  | L  |
00b8 43e8 1883  |C   |
00ba 62e0 4000  |b @ |
00bc 2240 4000  |"@@ |
00be 6248 1eff  |bH  |
00c0 f100 003b  |   ;|
00c2 8a50 1eff  | P  |
00c4 e202 4000  |  @ |
00c6 200a 0000  |    |
00c8 1ed8 4080  |  @ |
00ca 0348 1eff  | H  |
00cc e340 1eff  | @  |
00ce f202 8800  |    |
00d0 24ca 0000  |$   |
00d2 2e48 8900  |.H  |
00d4 2350 1885  |#P  |
00d6 4350 9884  |CP  |
00d8 f3d0 1884  |    |
00da f3d0 9884  |    |
00dc c3d0 9884  |    |
00de b304 1884  |    |
00e0 f206 8062  |   b|
00e2 0042 0000  | B  |
00e4 4304 9eff  |C   |
00e6 d348 8e81  | H  |
00e8 8314 0e81  |    |
00ea 8216 8062  |   b|
00ec 0b54 1eff  | T  |
00ee f256 8062  | V b|
00f0 287c 001c  |(|  |
00f2 7f34 6f82  | 4o |
00f4 8226 8064  | & d|
00f6 8a66 8064  | f d|
00f8 aa26 8427  | & '|
00fa 1a26 8000  | &  |
00fc 9226 8421  | & !|
00fe 327e 8063  |2~ c|
0100 137c 9eff  | |  |
0102 d381 3884  |  8 |
0104 4a02 4000  |J @ |
0106 40ca 0000  |@   |
0108 6e98 4080  |n @ |
010a 07e0 8e81  |    |
010c 8384 0e81  |    |
010e 8286 8062  |   b|
0110 4296 8064  |B  d|
0112 c394 feff  |    |
0114 839c 1eff  |    |
0116 d2a6 8064  |   d|
0118 cfb4 7eff  |  ~ |
011a 83a4 feff  |    |
011c 63c4 7eff  |c ~ |
011e 6206 b62b  |b  +|
0120 6004 0000  |`   |
0122 00e6 0000  |    |
0124 17d4 7eff  |  ~ |
0126 8388 1884  |    |
0128 c042 0000  | B  |
012a 2788 9884  |'   |
012c f3e4 7eff  |  ~ |
012e 6206 ba2b  |b  +|
0130 7004 0000  |p   |
0132 00f6 0000  |    |
0134 1698 4080  |  @ |
0136 0790 1884  |    |
0138 b390 9884  |    |
013a f298 4080  |  @ |
013c 0798 b884  |    |
013e 4b50 1886  |KP  |
0140 0360 1883  | `  |
0142 c254 aa80  | T  |
0144 0b60 0c00  | `  |
0146 2a02 4000  |* @ |
0148 300a 0000  |0   |
014a 2202 8c80  |"   |
014c 040a 0000  |    |
014e 7202 8c80  |r   |
0150 088a 0000  |    |
0152 6e40 4000  |n@@ |
0154 6042 0001  |`B  |
0156 7f68 1883  | h  |
0158 63a1 3884  |c 8 |
015a 2202 4000  |" @ |
015c 508a 0000  |P   |
015e 27a8 1884  |'   |
0160 f348 1884  | H  |
0162 f258 4080  | X@ |
0164 0650 4000  | P@ |
0166 71ff fff4  |q   |
0168 da40 4000  | @@ |
016a 6042 0000  |`B  |
016c 2f00 b884  |/   |
016e 3602 9c00  |6   |
0170 548a 0000  |T   |
0172 2300 b884  |#   |
0174 3748 1884  |7H  |
0176 f358 1980  | X  |
0178 7250 4000  |rP@ |
017a 71ff fff6  |q   |
017c 2a40 4000  |*@@ |
017e 6300 b884  |c   |
0180 3442 0001  |4B  |
0182 22e8 4000  |" @ |
0184 7240 4000  |r@@ |
0186 6248 4000  |bH@ |
0188 7258 1eff  |rX  |
018a e1ff ffe6  |    |
018c da50 1eff  | P  |
018e f348 1884  | H  |
0190 f250 1eff  | P  |
0192 c258 1eff  | X  |
0194 b1ff ffe6  |    |
0196 c640 4000  | @@ |
0198 6300 b884  |c   |
019a 37b0 1eff  |7   |
019c f3b8 1eff  |    |
019e c202 9600  |    |
01a0 5cca 0000  |\   |
01a2 2358 1eff  |#X  |
01a4 c348 1eff  | H  |
01a6 b340 1eff  | @  |
01a8 e202 8800  |    |
01aa 248a 0000  |$   |
01ac 4389 3884  |C 8 |
01ae 2358 1eff  |#X  |
01b0 c350 1eff  | P  |
01b2 f202 8a00  |    |
01b4 2c92 0000  |,   |
01b6 1378 1eff  | x  |
01b8 b358 9eff  | X  |
01ba f378 1eff  | x  |
01bc b368 1eff  | h  |
01be e202 8d00  |    |
01c0 3cda 0000  |<   |
01c2 12d8 4080  |  @ |
01c4 0778 9eff  | x  |
01c6 e2d8 4080  |  @ |
01c8 0789 3884  |  8 |
01ca 2202 4000  |" @ |
01cc 448a 0000  |D   |
01ce 2758 1980  |'X  |
01d0 7350 1eff  |sP  |
01d2 e348 1eff  | H  |
01d4 f258 4080  | X@ |
01d6 05ff fff3  |    |
01d8 fa40 4000  | @@ |
01da 6042 0000  |`B  |
01dc 1e02 4000  |  @ |
01de 6f50 1eff  |oP  |
01e0 e348 1eff  | H  |
01e2 f1ff fff5  |    |
01e4 5a40 4000  |Z@@ |
01e6 6202 4000  |b @ |
01e8 6c8a 0000  |l   |
01ea 3b48 1883  |;H  |
01ec 63e8 1eff  |c   |
01ee f390 1eff  |    |
01f0 e290 9200  |    |
01f2 76ac d280  |v   |
01f4 7ea8 1500  |~   |
01f6 4aac f580  |J   |
01f8 06a8 1500  |    |
01fa 7602 9500  |v   |
01fc 7092 0000  |p   |
01fe 2be8 1eff  |+   |