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

⟦ec5c32cbe⟧

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

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 0070       | p  |		.CONST	0x0070								; 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 001d       |    |		.CONST	0x001d								; Address of begin
0019 001f       |    |		.CONST	0x001f								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b 029f 002b  |   +|		Declare_Subprogram	INIT_0028,For_Call
001d			BODY_0018:
001d 8402       |    |		Call	0x2,0x2
001e 0831       | 1  |		Execute_Immediate	Raise,0x31
001f			TRAP_0018:
001f 0007       |    |		Action	Break_Optional
0020 0092 004e  |   N|		Action	Push_String_Extended,0x4e					; "*UNKNOWN*  Trace info may be incorrect."
0022 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0023 0000 0000  |    |		.BLANK	0000[0x5]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 003c       | <  |		.CONST	0x003c								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0003       |    |		.CONST	0x0003								; Number of locals
002b			INIT_0028:
002b e5ff       |    |		Load	0x2,-0x1
002c 0227       | '  |		Execute	Access,All_Reference
002d 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
002e 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
002f 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0030 8002       |    |		Call	0x0,0x2
0031 4820       |H   |		Short_Literal	0x20
0032 4800       |H   |		Short_Literal	0x0
0033 8003       |    |		Call	0x0,0x3
0034 4801       |H   |		Short_Literal	0x1
0035 00d9       |    |		Load_Top	At_Offset_1
0036 0092 004f  |   O|		Action	Push_String_Extended,0x4f					; ".ucode"
0038 e004       |    |		Load	0x0,0x4
0039 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
003a 00e3       |    |		Load_Encached	Natural_Cache
003b 03f1       |    |		Declare_Variable	Discrete,With_Value
003c			BODY_0028:
003c 00d8       |    |		Load_Top	At_Offset_0
003d 7008       |p   |		Jump_Nonzero	0x46
003e 4801       |H   |		Short_Literal	0x1
003f 00da       |    |		Load_Top	At_Offset_2
0040 0092 0050  |   P|		Action	Push_String_Extended,0x50					; "_ucode"
0042 e004       |    |		Load	0x0,0x4
0043 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0044 0afb       |    |		Execute_Immediate	Plus,-0x5
0045 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0046 00d9       |    |		Load_Top	At_Offset_1
0047 01dd       |    |		Execute	Vector,First
0048 00d9       |    |		Load_Top	At_Offset_1
0049 0aff       |    |		Execute_Immediate	Plus,-0x1
004a 00db       |    |		Load_Top	At_Offset_3
004b 01cf       |    |		Execute	Vector,Slice_Read
004c 00cb       |    |		Action	Pop_Block_With_Result
004d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
004e ; --------------------------------------------------------------------------------------
004e ; STRING TABLE
004e ; --------------------------------------------------------------------------------------
004e 0008       |    |		.STRTAB	0x0008->0x0052							; "*UNKNOWN*  Trace info may be incorrect."
004f 002d       | -  |		.STRTAB	0x002d->0x0065							; ".ucode"
0050 0031       | 1  |		.STRTAB	0x0031->0x0068							; "_ucode"
0051 0035       | 5  |		.STREND 0x0035->0x006b
0052 2a55 4e4b  |*UNK|		.STRTAB_STRINGS
006c 0000 0000  |    |		.BLANK	0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; Debug Table
0070 ; --------------------------------------------------------------------------------------
0070 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x34da,0x0000,0x0001,0x0000
0076 3c68 008b  |<h  |		.XXX[0xb]
0078 4700 0003  |G   |
007a 6760 0097  |g`  |
007c 1000 0000  |    |
007e 0000 0116  |    |
0080 a330       | 0  |
0081 0000 0000  |    |		.BLANK	0000[0x4]
0085 0003 52e0  |  R |		.XXX[0x9]
0087 1000 0331  |   1|
0089 f2c0 042e  |   .|
008b 0007 0000  |    |
008d 6606       |f   |
008e 0000 0000  |    |		.BLANK	0000[0xe]
009c 0200       |    |		.XXX[0x1]
009d 0000 0000  |    |		.BLANK	0000[0x4]
00a1 e000 0000  |    |		.XXX[0xf]
00a3 0002 2d56  |  -V|
00a5 8000 0000  |    |
00a7 0000 0000  |    |
00a9 4000 0000  |@   |
00ab 0000 0000  |    |
00ad 2000 06a5  |    |
00af c000       |    |
00b0 0000 0000  |    |		.BLANK	0000[0x4]
00b4 0001 2000  |    |		.XXX[0x1a]
00b6 06ce c002  |    |
00b8 2ce1 4000  |, @ |
00ba 0000 0041  |   A|
00bc f7e4 5001  |  P |
00be 16c1 7000  |  p |
00c0 03cd 1c00  |    |
00c2 22d8 ae00  |"   |
00c4 22db 5400  |" T |
00c6 00d9 dc00  |    |
00c8 25c4 0000  |%   |
00ca 0000 0000  |    |
00cc 45bb f400  |E   |
00ce 0000 0000  |    |		.BLANK	0000[0x4]
00d2 00d4 c004  |    |		.XXX[0x9]
00d4 0000 cc90  |    |
00d6 b001 0b80  |    |
00d8 01c0 0019  |    |
00da 8180       |    |
00db 0000 0000  |    |		.BLANK	0000[0xe]
00e9 8000 0000  |    |		.XXX[0x13]
00eb 0000 0000  |    |
00ed 0038 0000  | 8  |
00ef 0000 008b  |    |
00f1 7bf0 0000  |{   |
00f3 0000 0000  |    |
00f5 0010 0000  |    |
00f7 0000 0000  |    |
00f9 0008 0001  |    |
00fb a980       |    |
00fc 0000 0000  |    |		.BLANK	0000[0x5]
0101 0048 0001  | H  |		.XXX[0x19]
0103 b3b8 008b  |    |
0105 5ea0 0000  |^   |
0107 0000 107e  |   ~|
0109 275c 0045  |'\ E|
010b c384 0000  |    |
010d f348 0008  | H  |
010f b890 8008  |    |
0111 b93a 0000  | :  |
0113 3678 0009  |6x  |
0115 7100 0000  |q   |
0117 0000 0011  |    |
0119 73c7       |s   |
011a 0000 0000  |    |		.BLANK	0000[0x5]
011f 3532 0100  |52  |		.XXX[0x9]
0121 0033 292c  | 3),|
0123 0042 e000  | B  |
0125 7000 0660  |p  `|
0127 6000       |`   |
0128 0000 0000  |    |		.BLANK	0000[0xd]
0135 0020       |    |		.XXX[0x1]
0136 0000 0000  |    |		.BLANK	0000[0x4]
013a 0e00 0000  |    |		.XXX[0xf]
013c 0000 22e8  |  " |
013e 9000 0000  |    |
0140 0000 0000  |    |
0142 0400 0000  |    |
0144 0000 0000  |    |
0146 0200 006a  |   j|
0148 6400       |d   |
0149 0000 0000  |    |		.BLANK	0000[0x5]
014e 1200 006c  |   l|		.XXX[0x19]
0150 f000 22e1  |  " |
0152 3c00 0000  |<   |
0154 0004 1f97  |    |
0156 4900 1175  |I  u|
0158 ab00 00a9  |    |
015a 2ce0 022e  |,  .|
015c bd60 022e  | ` .|
015e e7c0 0017  |    |
0160 6480 025c  |d  \|
0162 4000 0000  |@   |
0164 0000 045e  |   ^|
0166 2440       |$@  |
0167 0000 0000  |    |		.BLANK	0000[0x4]
016b 001b a980  |    |		.XXX[0x9]
016d 4000 0e1b  |@   |
016f 8b00 10b0  |    |
0171 001c 0001  |    |
0173 c358       | X  |
0174 0000 0000  |    |		.BLANK	0000[0xe]
0182 0800 0000  |    |		.XXX[0xd]
0184 0000 0000  |    |
0186 0003 8000  |    |
0188 0000 0008  |    |
018a bc89 0000  |    |
018c 0000 0000  |    |
018e 0001       |    |
018f 0000 0000  |    |		.BLANK	0000[0x4]
0193 8000 3753  |  7S|		.XXX[0x2]
0195 0000 0000  |    |		.BLANK	0000[0x5]
019a 0004 8000  |    |		.XXX[0x1a]
019c 2ec9 0008  |.   |
019e bab4 0000  |    |
01a0 0000 0107  |    |
01a2 eff7 c004  |    |
01a4 5e9d 4000  |^ @ |
01a6 0ef5 2800  |  ( |
01a8 8bd5 a800  |    |
01aa 8be0 4000  |  @ |
01ac 0368 2000  | h  |
01ae 9710 0000  |    |
01b0 0000 0001  |    |
01b2 17d5 b000  |    |
01b4 0000 0000  |    |		.BLANK	0000[0x4]
01b8 0354 6010  | T` |		.XXX[0x9]
01ba 0003 4202  |  B |
01bc c004 2a00  |  * |
01be 0700 0068  |   h|
01c0 3c00       |<   |
01c1 0000 0000  |    |		.BLANK	0000[0xd]
01ce 0002       |    |		.XXX[0x1]
01cf 0000 0000  |    |		.BLANK	0000[0x4]
01d3 00e0 0000  |    |		.XXX[0xf]
01d5 0000 022f  |   /|
01d7 bb80 0000  |    |
01d9 0000 0000  |    |
01db 0040 0000  | @  |
01dd 0000 0000  |    |
01df 0020 0006  |    |
01e1 a8c0       |    |
01e2 0000 0000  |    |		.BLANK	0000[0x5]
01e7 0120 0006  |    |		.XXX[0x19]
01e9 d040 022f  | @ /|
01eb 4640 0000  |F@  |
01ed 0000 4201  |  B |
01ef c1d0 0117  |    |
01f1 f3f0 0003  |    |
01f3 c54c 0022  | L "|
01f5 fefe 0023  |   #|
01f7 01a4 0000  |    |
01f9 da0c 0025  |   %|
01fb c400 0000  |    |
01fd 0000 0046  |   F|
01ff 0894       |    |