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

⟦2b22b0f0d⟧

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

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 0050       | P  |		.CONST	0x0050								; 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 0026       | &  |		.CONST	0x0026								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0013       |    |		.CONST	0x0013								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 e001       |    |		Load	0x0,0x1
0013 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0014 0129       | )  |		Execute	Any,Make_Visible
0015 c211       |    |		Store	0x1,0x11
0016 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
0018 c212       |    |		Store	0x1,0x12
0019 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
001b c213       |    |		Store	0x1,0x13
001c 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
001e c210       |    |		Store	0x1,0x10
001f 00bf       |    |		Action	Accept_Activation
0020 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0025 00c7       |    |		Action	Elaborate_Subprogram
0026			BODY_0008:
0026 00bc       |    |		Action	Signal_Activated
0027 00bb       |    |		Action	Signal_Completion
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 480a       |H   |		Short_Literal	0xa
002c 00db       |    |		Load_Top	At_Offset_3
002d 01cb       |    |		Execute	Vector,Append
002e e5fe       |    |		Load	0x2,-0x2
002f e001       |    |		Load	0x0,0x1
0030 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0031 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b 00da       |    |		Load_Top	At_Offset_2
003c e5fe       |    |		Load	0x2,-0x2
003d e001       |    |		Load	0x0,0x1
003e 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
003f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 00da       |    |		Load_Top	At_Offset_2
0044 e001       |    |		Load	0x0,0x1
0045 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0046 6804       |h   |		Jump_Zero	0x4b
0047 00da       |    |		Load_Top	At_Offset_2
0048 e001       |    |		Load	0x0,0x1
0049 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
004a c5ff       |    |		Store	0x2,-0x1
004b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004c 0000 0000  |    |		.BLANK	0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; Debug Table
0050 ; --------------------------------------------------------------------------------------
0050 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x91c0,0x0000,0x0001,0x0000
0056 0000 0000  |    |		.BLANK	0000[0x4]
005a 6447 1e00  |dG  |		.XXX[0xd]
005c 644b ae02  |dK  |
005e 0010 b009  |    |
0060 1e40 0000  | @  |
0062 1000 0000  |    |
0064 07a0 2479  |  $y|
0066 ca00       |    |
0067 0000 0000  |    |		.BLANK	0000[0x5]
006c 0644 9660  | D `|		.XXX[0x7]
006e 0644 df60  | D `|
0070 2000 a400  |    |
0072 8a74       | t  |
0073 0000 0000  |    |		.BLANK	0000[0xb]
007e 0064 4bae  | dK |		.XXX[0xd]
0080 0064 503e  | dP>|
0082 0200 10b0  |    |
0084 091e c000  |    |
0086 0010 0000  |    |
0088 0007 a024  |   $|
008a 7bcb       |{   |
008b 0000 0000  |    |		.BLANK	0000[0x5]
0090 0006 44df  |  D |		.XXX[0x8]
0092 6006 4528  |` E(|
0094 6020 00a4  |`   |
0096 008a 7400  |  t |
0098 0000 0000  |    |		.BLANK	0000[0xb]
00a3 6450 3e00  |dP> |		.XXX[0xd]
00a5 6454 ce02  |dT  |
00a7 0010 b009  |    |
00a9 1e40 0000  | @  |
00ab 1000 0000  |    |
00ad 07a0 2479  |  $y|
00af cd00       |    |
00b0 0000 0000  |    |		.BLANK	0000[0x5]
00b5 0645 2860  | E(`|		.XXX[0x7]
00b7 0645 7160  | Eq`|
00b9 2000 a400  |    |
00bb 8a74       | t  |
00bc 0000 0000  |    |		.BLANK	0000[0xb]
00c7 0064 54ce  | dT |		.XXX[0xd]
00c9 0064 595e  | dY^|
00cb 0200 10b0  |    |
00cd 091e c000  |    |
00cf 0010 0000  |    |
00d1 0007 a024  |   $|
00d3 7bce       |{   |
00d4 0000 0000  |    |		.BLANK	0000[0x5]
00d9 0006 4571  |  Eq|		.XXX[0x8]
00db 6006 45ba  |` E |
00dd 6020 00a4  |`   |
00df 008a 7400  |  t |
00e1 0000 0000  |    |		.BLANK	0000[0xb]
00ec 6459 5e00  |dY^ |		.XXX[0xd]
00ee 645d ee02  |d]  |
00f0 0010 b009  |    |
00f2 1e40 0000  | @  |
00f4 1000 0000  |    |
00f6 07a0 2479  |  $y|
00f8 d000       |    |
00f9 0000 0000  |    |		.BLANK	0000[0x5]
00fe 0645 ba60  | E `|		.XXX[0x7]
0100 0646 0360  | F `|
0102 2000 a400  |    |
0104 8a74       | t  |
0105 0000 0000  |    |		.BLANK	0000[0xb]
0110 0064 5dee  | d] |		.XXX[0xd]
0112 0064 627e  | db~|
0114 0200 10b0  |    |
0116 091e c000  |    |
0118 0010 0000  |    |
011a 0007 a024  |   $|
011c 7bd1       |{   |
011d 0000 0000  |    |		.BLANK	0000[0x5]
0122 0006 4603  |  F |		.XXX[0x8]
0124 6006 464c  |` FL|
0126 6020 00a4  |`   |
0128 008a 7400  |  t |
012a 0000 0000  |    |		.BLANK	0000[0xb]
0135 6462 7e00  |db~ |		.XXX[0xd]
0137 6467 0e02  |dg  |
0139 0010 b009  |    |
013b 1e40 0000  | @  |
013d 1000 0000  |    |
013f 07a0 2479  |  $y|
0141 d300       |    |
0142 0000 0000  |    |		.BLANK	0000[0x5]
0147 0646 4c60  | FL`|		.XXX[0x7]
0149 0646 9560  | F `|
014b 2000 a400  |    |
014d 8a74       | t  |
014e 0000 0000  |    |		.BLANK	0000[0xb]
0159 0064 670e  | dg |		.XXX[0xd]
015b 0064 6b9e  | dk |
015d 0200 10b0  |    |
015f 091e c000  |    |
0161 0010 0000  |    |
0163 0007 a024  |   $|
0165 7bd4       |{   |
0166 0000 0000  |    |		.BLANK	0000[0x5]
016b 0006 4695  |  F |		.XXX[0x8]
016d 6006 46de  |` F |
016f 6020 00a4  |`   |
0171 008a 7400  |  t |
0173 0000 0000  |    |		.BLANK	0000[0xb]
017e 646b 9e00  |dk  |		.XXX[0xd]
0180 6470 2e02  |dp. |
0182 0010 b009  |    |
0184 1e40 0000  | @  |
0186 1000 0000  |    |
0188 07a0 2479  |  $y|
018a d600       |    |
018b 0000 0000  |    |		.BLANK	0000[0x5]
0190 0646 de60  | F `|		.XXX[0x7]
0192 0647 2760  | G'`|
0194 2000 a400  |    |
0196 8a74       | t  |
0197 0000 0000  |    |		.BLANK	0000[0xb]
01a2 0064 702e  | dp.|		.XXX[0xd]
01a4 0064 74be  | dt |
01a6 0200 10b0  |    |
01a8 091e c000  |    |
01aa 0010 0000  |    |
01ac 0007 a024  |   $|
01ae 7bd7       |{   |
01af 0000 0000  |    |		.BLANK	0000[0x5]
01b4 0006 4727  |  G'|		.XXX[0x8]
01b6 6006 4770  |` Gp|
01b8 6020 00a4  |`   |
01ba 008a 7400  |  t |
01bc 0000 0000  |    |		.BLANK	0000[0xb]
01c7 6474 be00  |dt  |		.XXX[0xd]
01c9 6479 4e02  |dyN |
01cb 0010 b009  |    |
01cd 1e40 0000  | @  |
01cf 1000 0000  |    |
01d1 07a0 2479  |  $y|
01d3 d900       |    |
01d4 0000 0000  |    |		.BLANK	0000[0x5]
01d9 0647 7060  | Gp`|		.XXX[0x7]
01db 0647 b960  | G `|
01dd 2000 a400  |    |
01df 8a74       | t  |
01e0 0000 0000  |    |		.BLANK	0000[0xb]
01eb 0064 794e  | dyN|		.XXX[0xd]
01ed 0064 7dde  | d} |
01ef 0200 10b0  |    |
01f1 091e c000  |    |
01f3 0010 0000  |    |
01f5 0007 a024  |   $|
01f7 7bda       |{   |
01f8 0000 0000  |    |		.BLANK	0000[0x5]
01fd 0006 47b9  |  G |		.XXX[0x3]
01ff 6006       |`   |