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

⟦aae175dc0⟧

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

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 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 001d       |    |		.CONST	0x001d								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b e002       |    |		Load	0x0,0x2
001c 0007       |    |		Action	Break_Optional
001d			BODY_0018:
001d 8003       |    |		Call	0x0,0x3
001e 00db       |    |		Load_Top	At_Offset_3
001f 8004       |    |		Call	0x0,0x4
0020 c5ff       |    |		Store	0x2,-0x1
0021 00db       |    |		Load_Top	At_Offset_3
0022 8005       |    |		Call	0x0,0x5
0023 0f44       | D  |		Execute_Immediate	Equal,0x44
0024 0279       | y  |		Execute	Discrete,And
0025 a5ff       |    |		Store_Unchecked	0x2,-0x1
0026 8006       |    |		Call	0x0,0x6
0027 8007       |    |		Call	0x0,0x7
0028 00db       |    |		Load_Top	At_Offset_3
0029 7006       |p   |		Jump_Nonzero	0x30
002a e008       |    |		Load	0x0,0x8
002b 480b       |H   |		Short_Literal	0xb
002c 8009       |    |		Call	0x0,0x9
002d 4801       |H   |		Short_Literal	0x1
002e a5ff       |    |		Store_Unchecked	0x2,-0x1
002f 7801       |x   |		Jump	0x31
0030 8003       |    |		Call	0x0,0x3
0031 00db       |    |		Load_Top	At_Offset_3
0032 00d9       |    |		Load_Top	At_Offset_1
0033 800a       |    |		Call	0x0,0xa
0034 c5ff       |    |		Store	0x2,-0x1
0035 00db       |    |		Load_Top	At_Offset_3
0036 7003       |p   |		Jump_Nonzero	0x3a
0037 e00b       |    |		Load	0x0,0xb
0038 4805       |H   |		Short_Literal	0x5
0039 8009       |    |		Call	0x0,0x9
003a 00db       |    |		Load_Top	At_Offset_3
003b 00d9       |    |		Load_Top	At_Offset_1
003c 800c       |    |		Call	0x0,0xc
003d c5ff       |    |		Store	0x2,-0x1
003e 00db       |    |		Load_Top	At_Offset_3
003f 7003       |p   |		Jump_Nonzero	0x43
0040 e00d       |    |		Load	0x0,0xd
0041 4808       |H   |		Short_Literal	0x8
0042 8009       |    |		Call	0x0,0x9
0043 00db       |    |		Load_Top	At_Offset_3
0044 820f       |    |		Call	0x1,0xf
0045 c5ff       |    |		Store	0x2,-0x1
0046 00db       |    |		Load_Top	At_Offset_3
0047 6807       |h   |		Jump_Zero	0x4f
0048 8005       |    |		Call	0x0,0x5
0049 0f1f       |    |		Execute_Immediate	Equal,0x1f
004a 6802       |h   |		Jump_Zero	0x4d
004b 8003       |    |		Call	0x0,0x3
004c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004d 4800       |H   |		Short_Literal	0x0
004e a5ff       |    |		Store_Unchecked	0x2,-0x1
004f 4501       |E   |		Exit_Suprogram	New_Top_Offset 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 e00e       |    |		Load	0x0,0xe
0054 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0055			BODY_0050:
0055 8005       |    |		Call	0x0,0x5
0056 0f29       | )  |		Execute_Immediate	Equal,0x29
0057 681a       |h   |		Jump_Zero	0x72
0058 800f       |    |		Call	0x0,0xf
0059 0f44       | D  |		Execute_Immediate	Equal,0x44
005a 6813       |h   |		Jump_Zero	0x6e
005b 00d8       |    |		Load_Top	At_Offset_0
005c 8006       |    |		Call	0x0,0x6
005d 8010       |    |		Call	0x0,0x10
005e 0039       | 9  |		Store_Top	Access,At_Offset_1
005f 800f       |    |		Call	0x0,0xf
0060 0f44       | D  |		Execute_Immediate	Equal,0x44
0061 6808       |h   |		Jump_Zero	0x6a
0062 8006       |    |		Call	0x0,0x6
0063 00d9       |    |		Load_Top	At_Offset_1
0064 8011       |    |		Call	0x0,0x11
0065 8003       |    |		Call	0x0,0x3
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 e012       |    |		Load	0x0,0x12
006b 4806       |H   |		Short_Literal	0x6
006c 8009       |    |		Call	0x0,0x9
006d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
006e e012       |    |		Load	0x0,0x12
006f 4806       |H   |		Short_Literal	0x6
0070 8009       |    |		Call	0x0,0x9
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 8005       |    |		Call	0x0,0x5
007c 0f1d       |    |		Execute_Immediate	Equal,0x1d
007d 6813       |h   |		Jump_Zero	0x91
007e 8003       |    |		Call	0x0,0x3
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 8005       |    |		Call	0x0,0x5
0085 0f33       | 3  |		Execute_Immediate	Equal,0x33
0086 6804       |h   |		Jump_Zero	0x8b
0087 8003       |    |		Call	0x0,0x3
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,0xb941,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 001d  |    |		.DBGLNO	0x001b,0x001d,0x001e,0x0021,0x0026,0x0028,0x002a,0x002d,0x0030,0x0031,0x0035,0x0037,0x003a,0x003e,0x0040,0x0043,0x0046,0x0048,0x004b,0x004d
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]