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

⟦2e639beed⟧

    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 0150       | P  |		.CONST	0x0150								; 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 001b       |    |		.CONST	0x001b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b 00ea       |    |		Load_Encached	Null_String_Cache
001c 4801       |H   |		Short_Literal	0x1
001d 4806       |H   |		Short_Literal	0x6
001e e001       |    |		Load	0x0,0x1
001f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0020 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0021 035b       | [  |		Declare_Type	Array,Constrained
0022 0337       | 7  |		Declare_Variable	Array
0023 0092 00a4  |    |		Action	Push_String_Extended,0xa4					; "REV2_WORKING"
0025 0092 00a5  |    |		Action	Push_String_Extended,0xa5					; "REV1_0_SPEC"
0027 0092 00a6  |    |		Action	Push_String_Extended,0xa6					; "TRACE_TOOL_SUPPORT"
0029 0092 00a7  |    |		Action	Push_String_Extended,0xa7					; "!DEB"
002b e001       |    |		Load	0x0,0x1
002c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
002e e001       |    |		Load	0x0,0x1
002f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0030 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0031 0119       |    |		Execute	Any,Check_In_Formal_Type
0032 4801       |H   |		Short_Literal	0x1
0033 00da       |    |		Load_Top	At_Offset_2
0034 01d6       |    |		Execute	Vector,Field_Write
0035 0092 00a8  |    |		Action	Push_String_Extended,0xa8					; "NATIVE_WORKING"
0037 0092 00a9  |    |		Action	Push_String_Extended,0xa9					; "NATIVE11_0_SPEC"
0039 0092 00aa  |    |		Action	Push_String_Extended,0xaa					; "TARGET"
003b 0092 00a7  |    |		Action	Push_String_Extended,0xa7					; "!DEB"
003d e001       |    |		Load	0x0,0x1
003e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0040 e001       |    |		Load	0x0,0x1
0041 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0042 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0043 0119       |    |		Execute	Any,Check_In_Formal_Type
0044 4802       |H   |		Short_Literal	0x2
0045 00da       |    |		Load_Top	At_Offset_2
0046 01d6       |    |		Execute	Vector,Field_Write
0047 0092 00a8  |    |		Action	Push_String_Extended,0xa8					; "NATIVE_WORKING"
0049 0092 00ab  |    |		Action	Push_String_Extended,0xab					; "NATIVE10_1_SPEC"
004b 0092 00ac  |    |		Action	Push_String_Extended,0xac					; "HOST"
004d 0092 00a7  |    |		Action	Push_String_Extended,0xa7					; "!DEB"
004f e001       |    |		Load	0x0,0x1
0050 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0051 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0052 e001       |    |		Load	0x0,0x1
0053 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0054 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0055 0119       |    |		Execute	Any,Check_In_Formal_Type
0056 4803       |H   |		Short_Literal	0x3
0057 00da       |    |		Load_Top	At_Offset_2
0058 01d6       |    |		Execute	Vector,Field_Write
0059 0092 00a8  |    |		Action	Push_String_Extended,0xa8					; "NATIVE_WORKING"
005b 0092 00a9  |    |		Action	Push_String_Extended,0xa9					; "NATIVE11_0_SPEC"
005d 0092 00ad  |    |		Action	Push_String_Extended,0xad					; "DEBUG_SUPPORT"
005f 0092 00a7  |    |		Action	Push_String_Extended,0xa7					; "!DEB"
0061 e001       |    |		Load	0x0,0x1
0062 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0063 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0064 e001       |    |		Load	0x0,0x1
0065 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0066 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0067 0119       |    |		Execute	Any,Check_In_Formal_Type
0068 4804       |H   |		Short_Literal	0x4
0069 00da       |    |		Load_Top	At_Offset_2
006a 01d6       |    |		Execute	Vector,Field_Write
006b 0092 00ae  |    |		Action	Push_String_Extended,0xae					; "REV2_0"
006d 0092 00af  |    |		Action	Push_String_Extended,0xaf					; "REV2_SPEC"
006f 0092 00b0  |    |		Action	Push_String_Extended,0xb0					; "VERSION"
0071 0092 00b1  |    |		Action	Push_String_Extended,0xb1					; "!CC"
0073 e001       |    |		Load	0x0,0x1
0074 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0075 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0076 e001       |    |		Load	0x0,0x1
0077 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0078 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0079 0119       |    |		Execute	Any,Check_In_Formal_Type
007a 4805       |H   |		Short_Literal	0x5
007b 00da       |    |		Load_Top	At_Offset_2
007c 01d6       |    |		Execute	Vector,Field_Write
007d 0092 00b2  |    |		Action	Push_String_Extended,0xb2					; "NATIVE10_RELEASE"
007f 0092 00b3  |    |		Action	Push_String_Extended,0xb3					; "NATIVE10_SPEC"
0081 0092 00b4  |    |		Action	Push_String_Extended,0xb4					; "TEST_SUPPORT"
0083 0092 00a7  |    |		Action	Push_String_Extended,0xa7					; "!DEB"
0085 e001       |    |		Load	0x0,0x1
0086 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0087 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0088 e001       |    |		Load	0x0,0x1
0089 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008b 0119       |    |		Execute	Any,Check_In_Formal_Type
008c 4806       |H   |		Short_Literal	0x6
008d 00da       |    |		Load_Top	At_Offset_2
008e 01d6       |    |		Execute	Vector,Field_Write
008f 0092 00b5  |    |		Action	Push_String_Extended,0xb5					; "!DEB.CLI.R1000_ACTIVITY"
0091 0092 00b6  |    |		Action	Push_String_Extended,0xb6					; "11.1.7.10"
0093 0092 00b7  |    |		Action	Push_String_Extended,0xb7					; "February 25, 1992"
0095 0092 00b8  |    |		Action	Push_String_Extended,0xb8					; "8:48:53 AM"
0097 0092 00b9  |    |		Action	Push_String_Extended,0xb9					; "S_2"
0099 0092 00ba  |    |		Action	Push_String_Extended,0xba					; "PEG"
009b 0092 00bb  |    |		Action	Push_String_Extended,0xbb					; "468255"
009d 0092 00bc  |    |		Action	Push_String_Extended,0xbc					; "ARIADNE - Debugger Development"
009f e001       |    |		Load	0x0,0x1
00a0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00a2 8002       |    |		Call	0x0,0x2
00a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a4 ; --------------------------------------------------------------------------------------
00a4 ; STRING TABLE
00a4 ; --------------------------------------------------------------------------------------
00a4 0034       | 4  |		.STRTAB	0x0034->0x00be							; "REV2_WORKING"
00a5 003e       | >  |		.STRTAB	0x003e->0x00c4							; "REV1_0_SPEC"
00a6 0047       | G  |		.STRTAB	0x0047->0x00c9							; "TRACE_TOOL_SUPPORT"
00a7 0057       | W  |		.STRTAB	0x0057->0x00d2							; "!DEB"
00a8 0059       | Y  |		.STRTAB	0x0059->0x00d4							; "NATIVE_WORKING"
00a9 0065       | e  |		.STRTAB	0x0065->0x00db							; "NATIVE11_0_SPEC"
00aa 0072       | r  |		.STRTAB	0x0072->0x00e3							; "TARGET"
00ab 0076       | v  |		.STRTAB	0x0076->0x00e6							; "NATIVE10_1_SPEC"
00ac 0083       |    |		.STRTAB	0x0083->0x00ed							; "HOST"
00ad 0085       |    |		.STRTAB	0x0085->0x00ef							; "DEBUG_SUPPORT"
00ae 0090       |    |		.STRTAB	0x0090->0x00f6							; "REV2_0"
00af 0094       |    |		.STRTAB	0x0094->0x00f9							; "REV2_SPEC"
00b0 009b       |    |		.STRTAB	0x009b->0x00fd							; "VERSION"
00b1 00a0       |    |		.STRTAB	0x00a0->0x0101							; "!CC"
00b2 00a1       |    |		.STRTAB	0x00a1->0x0102							; "NATIVE10_RELEASE"
00b3 00af       |    |		.STRTAB	0x00af->0x010a							; "NATIVE10_SPEC"
00b4 00ba       |    |		.STRTAB	0x00ba->0x0111							; "TEST_SUPPORT"
00b5 00c4       |    |		.STRTAB	0x00c4->0x0117							; "!DEB.CLI.R1000_ACTIVITY"
00b6 00d9       |    |		.STRTAB	0x00d9->0x0122							; "11.1.7.10"
00b7 00e0       |    |		.STRTAB	0x00e0->0x0127							; "February 25, 1992"
00b8 00ef       |    |		.STRTAB	0x00ef->0x012f							; "8:48:53 AM"
00b9 00f7       |    |		.STRTAB	0x00f7->0x0134							; "S_2"
00ba 00f8       |    |		.STRTAB	0x00f8->0x0136							; "PEG"
00bb 00f9       |    |		.STRTAB	0x00f9->0x0137							; "468255"
00bc 00fd       |    |		.STRTAB	0x00fd->0x013a							; "ARIADNE - Debugger Development"
00bd 0119       |    |		.STREND 0x0119->0x0149
00be 5245 5632  |REV2|		.STRTAB_STRINGS
014a 0000 0000  |    |		.BLANK	0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug Table
0150 ; --------------------------------------------------------------------------------------
0150 0004 0010  |    |		.DEBUG4	0x0004,0x0010,0x5fab,0x0000,0x0001,0x0000
0156 0000 0000  |    |		.BLANK	0000[0x6]
015c 0002 5a60  |  Z`|		.XXX[0x38]
015e 011b 5180  |  Q |
0160 0000 000c  |    |
0162 4000 11a7  |@   |
0164 6000 0000  |`   |
0166 015e 0000  | ^  |
0168 0000 46b9  |  F |
016a d089 0008  |    |
016c dc74 0000  | t  |
016e 0000 8d9b  |    |
0170 8011 d75c  |   \|
0172 18e4 00ad  |    |
0174 7700 0000  |w   |
0176 0023 6a30  | #j0|
0178 08d3 b000  |    |
017a 0000 0000  |    |
017c 0001 065f  |   _|
017e 0000 0000  |    |
0180 0001 1c10  |    |
0182 8000 235c  |  #\|
0184 e000 0002  |    |
0186 762e 011c  |v.  |
0188 6a80 0000  |j   |
018a 000a 0000  |    |
018c 0000 0459  |   Y|
018e 9802 3b06  |  ; |
0190 0000 0000  |    |
0192 2385 e000  |#   |
0194 0000 0000  |    |		.BLANK	0000[0x7]
019b 012d 3000  | -0 |		.XXX[0x1d]
019d 8ea3 0000  |    |
019f 0000 12e0  |    |
01a1 0008 e354  |   T|
01a3 0000 0000  |    |
01a5 b100 0000  |    |
01a7 0023 9b78  | # x|
01a9 4480 0476  |D  v|
01ab 0c00 0000  |    |
01ad 0047 4ae0  | GJ |
01af 08fb 520c  |  R |
01b1 7200 56bb  |r V |
01b3 8000 0000  |    |
01b5 11d4 6004  |  ` |
01b7 71aa       |q   |
01b8 0000 0000  |    |		.BLANK	0000[0x7]
01bf 008f 0280  |    |		.XXX[0x13]
01c1 0011 cdb8  |    |
01c3 0000 013b  |   ;|
01c5 1700 8f2f  |   /|
01c7 8000 0000  |    |
01c9 0500 0000  |    |
01cb 0002 2ccc  |  , |
01cd 011f 7780  |  w |
01cf 0000 0011  |    |
01d1 e238       | 8  |
01d2 0000 0000  |    |		.BLANK	0000[0x8]
01da 9698 0047  |   G|		.XXX[0x26]
01dc cea0 0000  |    |
01de 0009 8000  |    |
01e0 0479 7c00  | y| |
01e2 0000 0059  |   Y|
01e4 8000 0000  |    |
01e6 11ed 0422  |   "|
01e8 4002 3eef  |@ > |
01ea 0000 0000  |    |
01ec 23e4 0004  |#   |
01ee 857b 0639  | { 9|
01f0 002b 5dc0  | +] |
01f2 0000 0008  |    |
01f4 f9d4 023c  |   <|
01f6 be00 0000  |    |
01f8 0000 0000  |    |
01fa 205b 4000  | [@ |
01fc 0000 0000  |    |
01fe 47fe 6000  |G ` |