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

⟦8f0dbad22⟧

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

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 00a0       |    |		.CONST	0x00a0								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001f       |    |		.CONST	0x001f								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0003       |    |		.CONST	0x0003								; Number of locals
001b			INIT_0018:
001b 029f 002b  |   +|		Declare_Subprogram	INIT_0028,For_Call
001d 029f 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Call
001f			BODY_0018:
001f 8403       |    |		Call	0x2,0x3
0020 e001       |    |		Load	0x0,0x1
0021 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0022 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0023 0000 0000  |    |		.BLANK	0000[0x5]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b       | +  |		.CONST	0x002b								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0001       |    |		.CONST	0x0001								; Number of locals
002b			BODY_0028:
002b			INIT_0028:
002b e7ff       |    |		Load	0x3,-0x1
002c e002       |    |		Load	0x0,0x2
002d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
002e e002       |    |		Load	0x0,0x2
002f 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0030 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0031 0000 0000  |    |		.BLANK	0000[0x7]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 004d       | M  |		.CONST	0x004d								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0004       |    |		.CONST	0x0004								; Number of locals
003b			INIT_0038:
003b e003       |    |		Load	0x0,0x3
003c 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
003d 0322       | "  |		Declare_Variable	Record
003e e004       |    |		Load	0x0,0x4
003f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0040 e003       |    |		Load	0x0,0x3
0041 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0042 e602       |    |		Load	0x3,0x2
0043 017d       | }  |		Execute	Record,Structure_Write
0044 e005       |    |		Load	0x0,0x5
0045 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0046 e004       |    |		Load	0x0,0x4
0047 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0048 e006       |    |		Load	0x0,0x6
0049 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
004a a603       |    |		Store_Unchecked	0x3,0x3
004b 00e3       |    |		Load_Encached	Natural_Cache
004c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
004d			BODY_0038:
004d e603       |    |		Load	0x3,0x3
004e e005       |    |		Load	0x0,0x5
004f 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0050 021e       |    |		Execute	Heap_Access,Maximum
0051 680a       |h   |		Jump_Zero	0x5c
0052 e603       |    |		Load	0x3,0x3
0053 e007       |    |		Load	0x0,0x7
0054 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0055 09f3       |    |		Execute_Immediate	Binary_Scale,-0xd
0056 00d8       |    |		Load_Top	At_Offset_0
0057 00e3       |    |		Load_Encached	Natural_Cache
0058 0260       | `  |		Execute	Discrete,In_Type
0059 7001       |p   |		Jump_Nonzero	0x5b
005a 08e0       |    |		Execute_Immediate	Raise,0xe0
005b a604       |    |		Store_Unchecked	0x3,0x4
005c 0092 0083  |    |		Action	Push_String_Extended,0x83					; "Elapsed="
005e e008       |    |		Load	0x0,0x8
005f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0060 e008       |    |		Load	0x0,0x8
0061 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0062 025b       | [  |		Execute	Discrete,Check_In_Type
0063 e008       |    |		Load	0x0,0x8
0064 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0065 8402       |    |		Call	0x2,0x2
0066 01cc       |    |		Execute	Vector,Catenate
0067 0092 0084  |    |		Action	Push_String_Extended,0x84					; " Cpu="
0069 01cc       |    |		Execute	Vector,Catenate
006a e008       |    |		Load	0x0,0x8
006b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
006c e008       |    |		Load	0x0,0x8
006d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006e 025b       | [  |		Execute	Discrete,Check_In_Type
006f e008       |    |		Load	0x0,0x8
0070 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0071 8402       |    |		Call	0x2,0x2
0072 01cc       |    |		Execute	Vector,Catenate
0073 0092 0085  |    |		Action	Push_String_Extended,0x85					; " Disk_Waits="
0075 01cc       |    |		Execute	Vector,Catenate
0076 e602       |    |		Load	0x3,0x2
0077 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0078 00e0       |    |		Load_Encached	Standard_Cache
0079 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
007a 01cc       |    |		Execute	Vector,Catenate
007b 0092 0086  |    |		Action	Push_String_Extended,0x86					; " Job_Heap="
007d 01cc       |    |		Execute	Vector,Catenate
007e e604       |    |		Load	0x3,0x4
007f 00e0       |    |		Load_Encached	Standard_Cache
0080 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0081 01cc       |    |		Execute	Vector,Catenate
0082 00ca       |    |		Action	Exit_Nullary_Function
0083 ; --------------------------------------------------------------------------------------
0083 ; STRING TABLE
0083 ; --------------------------------------------------------------------------------------
0083 000a       |    |		.STRTAB	0x000a->0x0088							; "Elapsed="
0084 0010       |    |		.STRTAB	0x0010->0x008c							; " Cpu="
0085 0013       |    |		.STRTAB	0x0013->0x008e							; " Disk_Waits="
0086 001d       |    |		.STRTAB	0x001d->0x0094							; " Job_Heap="
0087 0025       | %  |		.STREND 0x0025->0x0099
0088 456c 6170  |Elap|		.STRTAB_STRINGS
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; Debug Table
00a0 ; --------------------------------------------------------------------------------------
00a0 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xbb6d,0x0000,0x0001,0x0000
00a6 81a5 b98d  |    |		.XXX[0x118]
00a8 b1d5 9195  |    |
00aa 9081 a5b8  |    |
00ac 81d1 a194  |    |
00ae 81d1 8589  |    |
00b0 8995 9081  |    |
00b2 cd95 8dd1  |    |
00b4 a5bd b880  |    |
00b6 8941 85c9  | A  |
00b8 85b5 95d1  |    |
00ba 95c8 8159  |   Y|
00bc 85b1 d594  |    |
00be 810d bdb9  |    |
00c0 d995 b800  |    |
00c2 0001 2800  |  ( |
00c4 0000 dc81  |    |
00c6 a5b9 8db1  |    |
00c8 d591 9590  |    |
00ca 81a5 b881  |    |
00cc d1a1 9481  |    |
00ce d185 8989  |    |
00d0 9590 81cd  |    |
00d2 958d d1a5  |    |
00d4 bdb8 8089  |    |
00d6 4185 c985  |A   |
00d8 b595 d195  |    |
00da c881 5985  |  Y |
00dc b1d5 9481  |    |
00de 0dbd b9d9  |    |
00e0 95b8 0000  |    |
00e2 0004 0000  |    |
00e4 0041 d1a5  | A  |
00e6 bdb9 cc88  |    |
00e8 81a5 b881  |    |
00ea d1a1 9481  |    |
00ec 494c 0000  |IL  |
00ee 0004 0000  |    |
00f0 0041 d1a5  | A  |
00f2 bdb9 cc88  |    |
00f4 81a5 b881  |    |
00f6 d1a1 9481  |    |
00f8 494c 0000  |IL  |
00fa 0128 0000  | (  |
00fc 011c 81a5  |    |
00fe b98d b1d5  |    |
0100 9195 9081  |    |
0102 a5b8 81d1  |    |
0104 a194 81d1  |    |
0106 8589 8995  |    |
0108 9081 cd95  |    |
010a 8dd1 a5bd  |    |
010c b880 8941  |   A|
010e 85c9 85b5  |    |
0110 95d1 95c8  |    |
0112 8159 85b1  | Y  |
0114 d594 810d  |    |
0116 bdb9 d995  |    |
0118 b9d1 a5bd  |    |
011a b9cc 8881  |    |
011c a5b8 81d1  |    |
011e a194 8149  |   I|
0120 4c00 0000  |L   |
0122 4800 0000  |H   |
0124 1881 89bd  |    |
0126 bdac b800  |    |
0128 0000 4800  |  H |
012a 0000 1881  |    |
012c 89bd bdac  |    |
012e b800 0000  |    |
0130 6400 0000  |d   |
0132 0000 0000  |    |
0134 6000 0000  |`   |
0136 6400 0000  |d   |
0138 0000 0000  |    |
013a 6000 0000  |`   |
013c 6800 0000  |h   |
013e 7881 35a5  |x 5 |
0140 cd8d 95b1  |    |
0142 b185 b995  |    |
0144 bdd5 cc81  |    |
0146 3195 d995  |1   |
0148 b081 bd98  |    |
014a 8111 95d1  |    |
014c 85a5 b000  |    |
014e 0000 6800  |  h |
0150 0000 7881  |  x |
0152 35a5 cd8d  |5   |
0154 95b1 b185  |    |
0156 b995 bdd5  |    |
0158 cc81 3195  |  1 |
015a d995 b081  |    |
015c bd98 8111  |    |
015e 95d1 85a5  |    |
0160 b000 0000  |    |
0162 e400 0000  |    |
0164 0000 0000  |    |
0166 e000 0000  |    |
0168 e400 0000  |    |
016a 0000 0000  |    |
016c e000 0000  |    |
016e e800 0001  |    |
0170 1c81 19d5  |    |
0172 c9d1 a195  |    |
0174 c881 a5b9  |    |
0176 99bd c9b5  |    |
0178 85d1 a5bd  |    |
017a b881 a5cc  |    |
017c 8191 a5cd  |    |
017e c1b1 85e5  |    |
0180 9590 8185  |    |
0182 d081 d1a1  |    |
0184 9481 b5a5  |    |
0186 cd8d 95b1  |    |
0188 b185 b995  |    |
018a bdd5 cc81  |    |
018c b195 d995  |    |
018e b081 bd98  |    |
0190 8191 95d1  |    |
0192 85a5 b0b0  |    |
0194 0000 00e8  |    |
0196 0000 011c  |    |
0198 8119 d5c9  |    |
019a d1a1 95c8  |    |
019c 81a5 b999  |    |
019e bdc9 b585  |    |
01a0 d1a5 bdb8  |    |
01a2 81a5 cc81  |    |
01a4 91a5 cdc1  |    |
01a6 b185 e595  |    |
01a8 9081 85d0  |    |
01aa 81d1 a194  |    |
01ac 81b5 a5cd  |    |
01ae 8d95 b1b1  |    |
01b0 85b9 95bd  |    |
01b2 d5cc 81b1  |    |
01b4 95d9 95b0  |    |
01b6 81bd 9881  |    |
01b8 9195 d185  |    |
01ba a5b0 b000  |    |
01bc 0000 0400  |    |
01be 0000 0000  |    |		.BLANK	0000[0x5]
01c3 0400       |    |		.XXX[0x1]
01c4 0000 0000  |    |		.BLANK	0000[0x5]
01c9 e800 0001  |    |		.XXX[0x37]
01cb 1c81 19d5  |    |
01cd c9d1 a195  |    |
01cf c881 a5b9  |    |
01d1 99bd c9b5  |    |
01d3 85d1 a5bd  |    |
01d5 b881 a5cc  |    |
01d7 8191 a5cd  |    |
01d9 c1b1 85e5  |    |
01db 9590 8185  |    |
01dd d081 d1a1  |    |
01df 9481 b5a5  |    |
01e1 cd8d 95b1  |    |
01e3 b185 b995  |    |
01e5 bdd5 cc81  |    |
01e7 b195 d995  |    |
01e9 b081 bd98  |    |
01eb 8191 95d1  |    |
01ed 85a5 b0b0  |    |
01ef 0000 0008  |    |
01f1 0000 0120  |    |
01f3 81dd a1a5  |    |
01f5 8da0 81a5  |    |
01f7 cc81 bd89  |    |
01f9 d185 a5b9  |    |
01fb 9590 8189  |    |
01fd e481 95b9  |    |
01ff d195       |    |