DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦5518038c4⟧ SEG

    Length: 1024 (0x400)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »1009683.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »1009683.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »1009683.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »1009683.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »1009683.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »1009683.SEG« 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0088       |    |		.CONST	0x0088								; 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 0100       |    |		.CONST	0x0100								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0018       |    |		.CONST	0x0018								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000d       |    |		.CONST	0x000d								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x00ca,0x8000,0x0000,0x0037,0x0994,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 4803       |H   |		Short_Literal	0x3							; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 600d       |`   |		Indirect_Literal	Discrete,0x1c,{0x000f6813, 0x00000230}		; 0xf6813 = BARRIER_MANAGER
000f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0010 038d       |    |		Declare_Type	Package,Defined,Visible,Not_Elaborated
0011 00bf       |    |		Action	Accept_Activation
0012 e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x0012,0x00d2,0x8000,0x0000,0x0037,0x0bf4,0x0000,0x0003
													; Debug Table 0x1.0x0 = 0x12,0xffff
0013 4801       |H   |		Short_Literal	0x1
0014 00da       |    |		Load_Top	At_Offset_2
0015 020e       |    |		Execute	Module,Augment_Imports
0016 00d8       |    |		Load_Top	At_Offset_0
0017 020d       |    |		Execute	Module,Elaborate
0018			BODY_0008:
0018 00bc       |    |		Action	Signal_Activated
0019 00bb       |    |		Action	Signal_Completion
001a 0000 0000  |    |		.XXX[0x2]
001c 000f 6813  |  h |		.LITERAL	{0x000f6813, 0x00000230}
0020 003e 0004  | >  |		.XXX[0x3]
0022 0014       |    |
0023 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2 = .DEBUG	0x0023,0x00d6,0x4000,0x0000,0x0037,0x0994,0x0000,0x000d
													; Debug Table 0x2.0x0 = 0x23,0xffff
0025 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x1 = 0x25,0xfffe
0027 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x2 = 0x27,0xfffd
0029 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x2.0x3 = 0x29,0xfffc
002b 00bf       |    |		Action	Accept_Activation
002c e001       |    |		Load	0x0,0x1								; Debug Table 0x3 = .DEBUG	0x002c,0x00e0,0x4000,0x0000,0x0037,0x0bf4,0x0000,0x0006
													; Debug Table 0x3.0x0 = 0x2c,0xffff
002d 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
002e 0322       | "  |		Declare_Variable	Record
002f 4800       |H   |		Short_Literal	0x0
0030 00d9       |    |		Load_Top	At_Offset_1
0031 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0032 e001       |    |		Load	0x0,0x1
0033 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0034 00d9       |    |		Load_Top	At_Offset_1
0035 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0036 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x3.0x1 = 0x36,0xfffe
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x3.0x2 = 0x38,0xfffd
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x3.0x3 = 0x3a,0xfffc
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x3.0x4 = 0x3c,0xfffb
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 00bc       |    |		Action	Signal_Activated
003f 00bb       |    |		Action	Signal_Completion
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						; Debug Table 0x4 = .DEBUG	0x0043,0x00ec,0x1001,0x0000,0x0037,0x0994,0x0000,0x0014
													; Debug Table 0x4.0x0 = 0x43,0x1
0044 e214       |    |		Load	0x1,0x14
0045 017d       | }  |		Execute	Record,Structure_Write
0046 820f       |    |		Call	0x1,0xf								; Debug Table 0x4.0x1 = 0x46,0x2
0047 e214       |    |		Load	0x1,0x14							; Debug Table 0x4.0x2 = 0x47,0x3
0048 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0049 7002       |p   |		Jump_Nonzero	0x4c
004a 4887       |H   |		Short_Literal	0x87
004b 0257       | W  |		Execute	Discrete,Raise
004c 6033       |`3  |		Indirect_Literal	Discrete,0x80,{0x00000000, 0x37099401}		; Debug Table 0x4.0x3 = 0x4c,0x4
004d 0257       | W  |		Execute	Discrete,Raise
004e 0000 0000  |    |		.XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 e214       |    |		Load	0x1,0x14							; Debug Table 0x5 = .DEBUG	0x0053,0x00f6,0x1002,0x0000,0x0037,0x0994,0x0000,0x001e
													; Debug Table 0x5.0x0 = 0x53,0x1
0054 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0055 7002       |p   |		Jump_Nonzero	0x58
0056 4887       |H   |		Short_Literal	0x87
0057 0257       | W  |		Execute	Discrete,Raise
0058 e214       |    |		Load	0x1,0x14							; Debug Table 0x5.0x1 = 0x58,0x2
0059 0320       |    |		Declare_Variable	Record,Duplicate
005a 00ca       |    |		Action	Exit_Nullary_Function
005b 0000 0000  |    |		.BLANK	0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 e001       |    |		Load	0x0,0x1								; Debug Table 0x6 = .DEBUG	0x0063,0x00fc,0x1001,0x0000,0x0037,0x0994,0x0000,0x0025
													; Debug Table 0x6.0x0 = 0x63,0x1
0064 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0065 0322       | "  |		Declare_Variable	Record
0066 4807       |H   |		Short_Literal	0x7
0067 00d9       |    |		Load_Top	At_Offset_1
0068 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0069 00db       |    |		Load_Top	At_Offset_3
006a 00d9       |    |		Load_Top	At_Offset_1
006b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
006c 8210       |    |		Call	0x1,0x10
006d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
006e 0000 0000  |    |		.XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 e001       |    |		Load	0x0,0x1								; Debug Table 0x7 = .DEBUG	0x0073,0x0100,0x1001,0x0000,0x0037,0x0994,0x0000,0x002f
													; Debug Table 0x7.0x0 = 0x73,0x1
0074 1b40       | @  |		Execute	Package,Field_Read,Field_Number 0x40
0075 0322       | "  |		Declare_Variable	Record
0076 4809       |H   |		Short_Literal	0x9
0077 00d9       |    |		Load_Top	At_Offset_1
0078 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0079 00db       |    |		Load_Top	At_Offset_3
007a 00d9       |    |		Load_Top	At_Offset_1
007b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
007c 8210       |    |		Call	0x1,0x10
007d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
007e 0000 0000  |    |		.XXX[0x2]
0080 0000 0000  |    |		.LITERAL	{0x00000000, 0x37099401}
0084 0000 0000  |    |		.BLANK	0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0003 0008  |    |		.CONST	0x0003,0x0008
008a 000b 00ca  |    |		.DEBUG	0x000b,0x00ca,0x8000,0x0000,0x0037,0x0994,0x0000,0x0005
0092 0012 00d2  |    |		.DEBUG	0x0012,0x00d2,0x8000,0x0000,0x0037,0x0bf4,0x0000,0x0003
009a 0023 00d6  | #  |		.DEBUG	0x0023,0x00d6,0x4000,0x0000,0x0037,0x0994,0x0000,0x000d
00a2 002c 00e0  | ,  |		.DEBUG	0x002c,0x00e0,0x4000,0x0000,0x0037,0x0bf4,0x0000,0x0006
00aa 0043 00ec  | C  |		.DEBUG	0x0043,0x00ec,0x1001,0x0000,0x0037,0x0994,0x0000,0x0014
00b2 0053 00f6  | S  |		.DEBUG	0x0053,0x00f6,0x1002,0x0000,0x0037,0x0994,0x0000,0x001e
00ba 0063 00fc  | c  |		.DEBUG	0x0063,0x00fc,0x1001,0x0000,0x0037,0x0994,0x0000,0x0025
00c2 0073 0100  | s  |		.DEBUG	0x0073,0x0100,0x1001,0x0000,0x0037,0x0994,0x0000,0x002f
00ca ; --------------------------------------------------------------------------------------
00ca ; Debug3 Subtable 0x0
00ca ; --------------------------------------------------------------------------------------
00ca 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
00cc 000b ffff  |    |		.CONST	0x000b,0xffff
00ce 000c fffe  |    |		.CONST	0x000c,0xfffe
00d0 000d fffd  |    |		.CONST	0x000d,0xfffd
00d2 ; --------------------------------------------------------------------------------------
00d2 ; Debug3 Subtable 0x1
00d2 ; --------------------------------------------------------------------------------------
00d2 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
00d4 0012 ffff  |    |		.CONST	0x0012,0xffff
00d6 ; --------------------------------------------------------------------------------------
00d6 ; Debug3 Subtable 0x2
00d6 ; --------------------------------------------------------------------------------------
00d6 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
00d8 0023 ffff  | #  |		.CONST	0x0023,0xffff
00da 0025 fffe  | %  |		.CONST	0x0025,0xfffe
00dc 0027 fffd  | '  |		.CONST	0x0027,0xfffd
00de 0029 fffc  | )  |		.CONST	0x0029,0xfffc
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug3 Subtable 0x3
00e0 ; --------------------------------------------------------------------------------------
00e0 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
00e2 002c ffff  | ,  |		.CONST	0x002c,0xffff
00e4 0036 fffe  | 6  |		.CONST	0x0036,0xfffe
00e6 0038 fffd  | 8  |		.CONST	0x0038,0xfffd
00e8 003a fffc  | :  |		.CONST	0x003a,0xfffc
00ea 003c fffb  | <  |		.CONST	0x003c,0xfffb
00ec ; --------------------------------------------------------------------------------------
00ec ; Debug3 Subtable 0x4
00ec ; --------------------------------------------------------------------------------------
00ec 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
00ee 0043 0001  | C  |		.CONST	0x0043,0x0001
00f0 0046 0002  | F  |		.CONST	0x0046,0x0002
00f2 0047 0003  | G  |		.CONST	0x0047,0x0003
00f4 004c 0004  | L  |		.CONST	0x004c,0x0004
00f6 ; --------------------------------------------------------------------------------------
00f6 ; Debug3 Subtable 0x5
00f6 ; --------------------------------------------------------------------------------------
00f6 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
00f8 0053 0001  | S  |		.CONST	0x0053,0x0001
00fa 0058 0002  | X  |		.CONST	0x0058,0x0002
00fc ; --------------------------------------------------------------------------------------
00fc ; Debug3 Subtable 0x6
00fc ; --------------------------------------------------------------------------------------
00fc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
00fe 0063 0001  | c  |		.CONST	0x0063,0x0001
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug3 Subtable 0x7
0100 ; --------------------------------------------------------------------------------------
0100 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0102 0073 0001  | s  |		.CONST	0x0073,0x0001
0104 0000 0000  |    |		.BLANK	0000[0xfc]