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

⟦0b0a1893a⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0090       |    |		.CONST	0x0090								; 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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0053       | S  |		.CONST	0x0053								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b e002       |    |		Load	0x0,0x2
000c 0266       | f  |		Execute	Discrete,Bounds
000d 00e1       |    |		Load_Encached	Boolean_Cache
000e 02a0       |    |		Declare_Subprogram	Null_Subprogram
000f 4801       |H   |		Short_Literal	0x1
0010 035e       | ^  |		Declare_Type	Array,Defined,Visible
0011 00d8       |    |		Load_Top	At_Offset_0
0012 0337       | 7  |		Declare_Variable	Array
0013 4801       |H   |		Short_Literal	0x1
0014 4823       |H#  |		Short_Literal	0x23
0015 00da       |    |		Load_Top	At_Offset_2
0016 01d6       |    |		Execute	Vector,Field_Write
0017 4801       |H   |		Short_Literal	0x1
0018 4827       |H'  |		Short_Literal	0x27
0019 00da       |    |		Load_Top	At_Offset_2
001a 01d6       |    |		Execute	Vector,Field_Write
001b 4801       |H   |		Short_Literal	0x1
001c 482d       |H-  |		Short_Literal	0x2d
001d 00da       |    |		Load_Top	At_Offset_2
001e 01d6       |    |		Execute	Vector,Field_Write
001f 4801       |H   |		Short_Literal	0x1
0020 482e       |H.  |		Short_Literal	0x2e
0021 00da       |    |		Load_Top	At_Offset_2
0022 01d6       |    |		Execute	Vector,Field_Write
0023 4801       |H   |		Short_Literal	0x1
0024 482f       |H/  |		Short_Literal	0x2f
0025 00da       |    |		Load_Top	At_Offset_2
0026 01d6       |    |		Execute	Vector,Field_Write
0027 4801       |H   |		Short_Literal	0x1
0028 4830       |H0  |		Short_Literal	0x30
0029 00da       |    |		Load_Top	At_Offset_2
002a 01d6       |    |		Execute	Vector,Field_Write
002b 4801       |H   |		Short_Literal	0x1
002c 4831       |H1  |		Short_Literal	0x31
002d 00da       |    |		Load_Top	At_Offset_2
002e 01d6       |    |		Execute	Vector,Field_Write
002f 4822       |H"  |		Short_Literal	0x22
0030 4800       |H   |		Short_Literal	0x0
0031 4800       |H   |		Short_Literal	0x0
0032 00d9       |    |		Load_Top	At_Offset_1
0033 e20e       |    |		Load	0x1,0xe
0034 01d6       |    |		Execute	Vector,Field_Write
0035 3ffb       |?   |		Loop_Increasing	0x31
0036 4826       |H&  |		Short_Literal	0x26
0037 4824       |H$  |		Short_Literal	0x24
0038 4800       |H   |		Short_Literal	0x0
0039 00d9       |    |		Load_Top	At_Offset_1
003a e20e       |    |		Load	0x1,0xe
003b 01d6       |    |		Execute	Vector,Field_Write
003c 3ffb       |?   |		Loop_Increasing	0x38
003d 482c       |H,  |		Short_Literal	0x2c
003e 4828       |H(  |		Short_Literal	0x28
003f 4800       |H   |		Short_Literal	0x0
0040 00d9       |    |		Load_Top	At_Offset_1
0041 e20e       |    |		Load	0x1,0xe
0042 01d6       |    |		Execute	Vector,Field_Write
0043 3ffb       |?   |		Loop_Increasing	0x3f
0044 4836       |H6  |		Short_Literal	0x36
0045 4832       |H2  |		Short_Literal	0x32
0046 4800       |H   |		Short_Literal	0x0
0047 00d9       |    |		Load_Top	At_Offset_1
0048 e20e       |    |		Load	0x1,0xe
0049 01d6       |    |		Execute	Vector,Field_Write
004a 3ffb       |?   |		Loop_Increasing	0x46
004b 00d9       |    |		Load_Top	At_Offset_1
004c 01c3       |    |		Execute	Vector,Check_In_Type
004d 0129       | )  |		Execute	Any,Make_Visible
004e 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
0050 00bf       |    |		Action	Accept_Activation
0051 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0052 00c7       |    |		Action	Elaborate_Subprogram
0053			BODY_0008:
0053 00bc       |    |		Action	Signal_Activated
0054 00bb       |    |		Action	Signal_Completion
0055 0000 0000  |    |		.XXX[0x3]
0057 0000       |    |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 8003       |    |		Call	0x0,0x3
005c 00d8       |    |		Load_Top	At_Offset_0
005d 0d23       | #  |		Execute_Immediate	Less,0x23
005e 7017       |p   |		Jump_Nonzero	0x76
005f 0add       |    |		Execute_Immediate	Plus,-0x23
0060 4613       |F   |		Jump_Case	0x14
0061 7828       |x(  |		Jump	0x8a								; case 0x0
0062 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x1
0063 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x2
0064 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x3
0065 7812       |x   |		Jump	0x78								; case 0x4
0066 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x5
0067 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x6
0068 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x7
0069 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x8
006a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x9
006b 780f       |x   |		Jump	0x7b								; case 0xa
006c 7811       |x   |		Jump	0x7e								; case 0xb
006d 7813       |x   |		Jump	0x81								; case 0xc
006e 7815       |x   |		Jump	0x84								; case 0xd
006f 7817       |x   |		Jump	0x87								; case 0xe
0070 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0xf
0071 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x10
0072 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x11
0073 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x12
0074 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; case 0x13
0075 4501       |E   |		.XXX[0x1]
0076 00d1       |    |		Pop_Control	Pop_Count_1
0077 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0078 8004       |    |		Call	0x0,0x4
0079 820f       |    |		Call	0x1,0xf
007a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
007b 8005       |    |		Call	0x0,0x5
007c 820f       |    |		Call	0x1,0xf
007d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
007e 8005       |    |		Call	0x0,0x5
007f 820f       |    |		Call	0x1,0xf
0080 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0081 8006       |    |		Call	0x0,0x6
0082 820f       |    |		Call	0x1,0xf
0083 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0084 8006       |    |		Call	0x0,0x6
0085 820f       |    |		Call	0x1,0xf
0086 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0087 8006       |    |		Call	0x0,0x6
0088 820f       |    |		Call	0x1,0xf
0089 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008a 8007       |    |		Call	0x0,0x7
008b 820f       |    |		Call	0x1,0xf
008c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008d 0000 0000  |    |		.XXX[0x3]
008f 0000       |    |
0090 ; --------------------------------------------------------------------------------------
0090 ; Debug Table
0090 ; --------------------------------------------------------------------------------------
0090 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xdd0c,0x0000,0x0001,0x0003
0096 000b 00a2  |    |		.DBG4T	0x000b,0x00a2,0x8000,0x0000
009a 0051 00a7  | Q  |		.DBG4T	0x0051,0x00a7,0x8000,0x0000
009e 005b 00aa  | [  |		.DBG4T	0x005b,0x00aa,0x0001,0x4000
00a2 ; --------------------------------------------------------------------------------------
00a2 ; Debug chain
00a2 ; --------------------------------------------------------------------------------------
00a2 0003 0000  |    |		.DBGLEN	0x0003,0x0000
00a4 000b 0011  |    |		.DBGLNO	0x000b,0x0011,0x004e
00a7 ; --------------------------------------------------------------------------------------
00a7 ; Debug chain
00a7 ; --------------------------------------------------------------------------------------
00a7 0001 0000  |    |		.DBGLEN	0x0001,0x0000
00a9 0051       | Q  |		.DBGLNO	0x0051
00aa ; --------------------------------------------------------------------------------------
00aa ; Debug chain
00aa ; --------------------------------------------------------------------------------------
00aa 0000 000f  |    |		.DBGLEN	0x0000,0x000f
00ac 005b 0078  | [ x|		.DBGLNO	0x005b,0x0078,0x0079,0x007b,0x007c,0x007e,0x007f,0x0081,0x0082,0x0084,0x0085,0x0087,0x0088,0x008a,0x008b
00bb 0001 0004  |    |		.XXX[0xf]
00bd 0005 0006  |    |
00bf 0007 0008  |    |
00c1 0009 000a  |    |
00c3 000b 000c  |    |
00c5 000d 000e  |    |
00c7 000f 0002  |    |
00c9 0003       |    |
00ca 0000 0000  |    |		.BLANK	0000[0x136]