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

⟦3c8d643b0⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0098       |    |		.CONST	0x0098								; 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 0014       |    |		.CONST	0x0014								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 029d 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call
0010 029d 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call
0012 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0013 00c7       |    |		Action	Elaborate_Subprogram
0014			BODY_0008:
0014 00bc       |    |		Action	Signal_Activated
0015 00bb       |    |		Action	Signal_Completion
0016 0000 0000  |    |		.XXX[0x2]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001c       |    |		.CONST	0x001c								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b 00e2       |    |		Load_Encached	Integer_Cache
001c			BODY_0018:
001c 8002       |    |		Call	0x0,0x2
001d 00db       |    |		Load_Top	At_Offset_3
001e 8003       |    |		Call	0x0,0x3
001f c5ff       |    |		Store	0x2,-0x1
0020 00db       |    |		Load_Top	At_Offset_3
0021 8004       |    |		Call	0x0,0x4
0022 0f44       | D  |		Execute_Immediate	Equal,0x44
0023 0279       | y  |		Execute	Discrete,And
0024 a5ff       |    |		Store_Unchecked	0x2,-0x1
0025 8005       |    |		Call	0x0,0x5
0026 8006       |    |		Call	0x0,0x6
0027 00db       |    |		Load_Top	At_Offset_3
0028 7006       |p   |		Jump_Nonzero	0x2f
0029 e007       |    |		Load	0x0,0x7
002a 480b       |H   |		Short_Literal	0xb
002b 8008       |    |		Call	0x0,0x8
002c 4801       |H   |		Short_Literal	0x1
002d a5ff       |    |		Store_Unchecked	0x2,-0x1
002e 7801       |x   |		Jump	0x30
002f 8002       |    |		Call	0x0,0x2
0030 00db       |    |		Load_Top	At_Offset_3
0031 00d9       |    |		Load_Top	At_Offset_1
0032 8009       |    |		Call	0x0,0x9
0033 c5ff       |    |		Store	0x2,-0x1
0034 00db       |    |		Load_Top	At_Offset_3
0035 7003       |p   |		Jump_Nonzero	0x39
0036 e00a       |    |		Load	0x0,0xa
0037 4805       |H   |		Short_Literal	0x5
0038 8008       |    |		Call	0x0,0x8
0039 00db       |    |		Load_Top	At_Offset_3
003a 00d9       |    |		Load_Top	At_Offset_1
003b 800b       |    |		Call	0x0,0xb
003c c5ff       |    |		Store	0x2,-0x1
003d 00db       |    |		Load_Top	At_Offset_3
003e 7003       |p   |		Jump_Nonzero	0x42
003f e00c       |    |		Load	0x0,0xc
0040 4808       |H   |		Short_Literal	0x8
0041 8008       |    |		Call	0x0,0x8
0042 00db       |    |		Load_Top	At_Offset_3
0043 820f       |    |		Call	0x1,0xf
0044 c5ff       |    |		Store	0x2,-0x1
0045 00db       |    |		Load_Top	At_Offset_3
0046 6807       |h   |		Jump_Zero	0x4e
0047 8004       |    |		Call	0x0,0x4
0048 0f1f       |    |		Execute_Immediate	Equal,0x1f
0049 6802       |h   |		Jump_Zero	0x4c
004a 8002       |    |		Call	0x0,0x2
004b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004c 4800       |H   |		Short_Literal	0x0
004d a5ff       |    |		Store_Unchecked	0x2,-0x1
004e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004f 0000       |    |		.XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0055       | U  |		.CONST	0x0055								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0002       |    |		.CONST	0x0002								; Number of locals
0053			INIT_0050:
0053 e00d       |    |		Load	0x0,0xd
0054 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0055			BODY_0050:
0055 8004       |    |		Call	0x0,0x4
0056 0f29       | )  |		Execute_Immediate	Equal,0x29
0057 681a       |h   |		Jump_Zero	0x72
0058 800e       |    |		Call	0x0,0xe
0059 0f44       | D  |		Execute_Immediate	Equal,0x44
005a 6813       |h   |		Jump_Zero	0x6e
005b 00d8       |    |		Load_Top	At_Offset_0
005c 8005       |    |		Call	0x0,0x5
005d 800f       |    |		Call	0x0,0xf
005e 0039       | 9  |		Store_Top	Access,At_Offset_1
005f 800e       |    |		Call	0x0,0xe
0060 0f44       | D  |		Execute_Immediate	Equal,0x44
0061 6808       |h   |		Jump_Zero	0x6a
0062 8005       |    |		Call	0x0,0x5
0063 00d9       |    |		Load_Top	At_Offset_1
0064 8010       |    |		Call	0x0,0x10
0065 8002       |    |		Call	0x0,0x2
0066 00db       |    |		Load_Top	At_Offset_3
0067 820e       |    |		Call	0x1,0xe
0068 c5ff       |    |		Store	0x2,-0x1
0069 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
006a e011       |    |		Load	0x0,0x11
006b 4806       |H   |		Short_Literal	0x6
006c 8008       |    |		Call	0x0,0x8
006d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
006e e011       |    |		Load	0x0,0x11
006f 4806       |H   |		Short_Literal	0x6
0070 8008       |    |		Call	0x0,0x8
0071 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0072 4801       |H   |		Short_Literal	0x1
0073 a5ff       |    |		Store_Unchecked	0x2,-0x1
0074 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 8004       |    |		Call	0x0,0x4
007c 0f1d       |    |		Execute_Immediate	Equal,0x1d
007d 6813       |h   |		Jump_Zero	0x91
007e 8002       |    |		Call	0x0,0x2
007f 00da       |    |		Load_Top	At_Offset_2
0080 820e       |    |		Call	0x1,0xe
0081 005b       | [  |		Store_Top	Discrete,At_Offset_3
0082 00da       |    |		Load_Top	At_Offset_2
0083 680a       |h   |		Jump_Zero	0x8e
0084 8004       |    |		Call	0x0,0x4
0085 0f33       | 3  |		Execute_Immediate	Equal,0x33
0086 6804       |h   |		Jump_Zero	0x8b
0087 8002       |    |		Call	0x0,0x2
0088 4801       |H   |		Short_Literal	0x1
0089 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
008a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008b 4800       |H   |		Short_Literal	0x0
008c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
008d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008e 4800       |H   |		Short_Literal	0x0
008f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0090 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0091 4801       |H   |		Short_Literal	0x1
0092 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0093 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0094 0000 0000  |    |		.BLANK	0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xd3a0,0x0000,0x0001,0x0005
009e 000b 00b2  |    |		.DBG4T	0x000b,0x00b2,0x8000,0x0000
00a2 000e 00b5  |    |		.DBG4T	0x000e,0x00b5,0x8000,0x0000
00a6 001b 00ba  |    |		.DBG4T	0x001b,0x00ba,0x0001,0x0000
00aa 0053 00d0  | S  |		.DBG4T	0x0053,0x00d0,0x0001,0x0000
00ae 007b 00dd  | {  |		.DBG4T	0x007b,0x00dd,0x0001,0x0000
00b2 ; --------------------------------------------------------------------------------------
00b2 ; Debug chain
00b2 ; --------------------------------------------------------------------------------------
00b2 0001 0000  |    |		.DBGLEN	0x0001,0x0000
00b4 000b       |    |		.DBGLNO	0x000b
00b5 ; --------------------------------------------------------------------------------------
00b5 ; Debug chain
00b5 ; --------------------------------------------------------------------------------------
00b5 0003 0000  |    |		.DBGLEN	0x0003,0x0000
00b7 000e 0010  |    |		.DBGLNO	0x000e,0x0010,0x0012
00ba ; --------------------------------------------------------------------------------------
00ba ; Debug chain
00ba ; --------------------------------------------------------------------------------------
00ba 0001 0013  |    |		.DBGLEN	0x0001,0x0013
00bc 001b 001c  |    |		.DBGLNO	0x001b,0x001c,0x001d,0x0020,0x0025,0x0027,0x0029,0x002c,0x002f,0x0030,0x0034,0x0036,0x0039,0x003d,0x003f,0x0042,0x0045,0x0047,0x004a,0x004c
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug chain
00d0 ; --------------------------------------------------------------------------------------
00d0 0001 000a  |    |		.DBGLEN	0x0001,0x000a
00d2 0053 0055  | S U|		.DBGLNO	0x0053,0x0055,0x0058,0x005b,0x005f,0x0062,0x0065,0x0066,0x006a,0x006e,0x0072
00dd ; --------------------------------------------------------------------------------------
00dd ; Debug chain
00dd ; --------------------------------------------------------------------------------------
00dd 0000 000a  |    |		.DBGLEN	0x0000,0x000a
00df 007b 007e  | { ~|		.DBGLNO	0x007b,0x007e,0x007f,0x0082,0x0084,0x0087,0x0088,0x008b,0x008e,0x0091
00e9 0000 0000  |    |		.BLANK	0000[0x117]