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

⟦965f6cfdc⟧ SEG

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

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »13337.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »13337.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »13337.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »13337.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »13337.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 0078       | x  |		.CONST	0x0078								; 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 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x00aa,0x8000,0x0000,0x0036,0x5604,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000d 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xd,0xfffc
000f 00bf       |    |		Action	Accept_Activation
0010 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1 = .DEBUG	0x0010,0x00b4,0x8000,0x0000,0x0036,0x5614,0x0000,0x0003
													; Debug Table 0x1.0x0 = 0x10,0xffff
0011 00c7       |    |		Action	Elaborate_Subprogram
0012 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x1 = 0x12,0xfffe
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 001b       |    |		.CONST	0x001b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2 = .DEBUG	0x001b,0x00ba,0x2801,0x0002,0x0036,0x5604,0x0000,0x0013
													; Debug Table 0x2.0x0 = 0x1b,0x1
001c a5fc       |    |		Store_Unchecked	0x2,-0x4
001d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
001e 0000 0000  |    |		.XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 002d       | -  |		.CONST	0x002d								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0003       |    |		.CONST	0x0003								; Number of locals
0023			INIT_0020:
0023 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3 = .DEBUG	0x0023,0x00be,0x2802,0x0002,0x0036,0x5604,0x0000,0x0026
													; Debug Table 0x3.0x0 = 0x23,0xffff
													; Debug Table 0x3.0x1 = 0x23,0xfffe
0024 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
0026 4801       |H   |		Short_Literal	0x1
0027 032d       | -  |		Declare_Type	Record,Defined
0028 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x2 = 0x28,0xfffd
0029 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
002b 4801       |H   |		Short_Literal	0x1
002c 032d       | -  |		Declare_Type	Record,Defined
002d			BODY_0020:
002d e402       |    |		Load	0x2,0x2								; Debug Table 0x3.0x3 = 0x2d,0xfffc
													; Debug Table 0x3.0x4 = 0x2d,0xfffb
													; Debug Table 0x3.0x5 = 0x2d,0x1
													; Debug Table 0x3.0x6 = 0x2d,0x401
002e 0322       | "  |		Declare_Variable	Record						; Debug Table 0x3.0x7 = 0x2e,0x402
002f e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x3.0x8 = 0x2f,0x403
0030 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x9 = 0x30,0x404
0031 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0				; Debug Table 0x3.0xa = 0x31,0x405
0032 e403       |    |		Load	0x2,0x3								; Debug Table 0x3.0xb = 0x32,0x406
0033 011c       |    |		Execute	Any,Convert_Unchecked						; Debug Table 0x3.0xc = 0x33,0x407
0034 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0				; Debug Table 0x3.0xd = 0x34,0x408
0035 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4				; Debug Table 0x3.0xe = 0x35,0x409
0036 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x3.0xf = 0x36,0x2
0037 e5fd       |    |		Load	0x2,-0x3
0038 0119       |    |		Execute	Any,Check_In_Formal_Type
0039 e5fd       |    |		Load	0x2,-0x3
003a e5fe       |    |		Load	0x2,-0x2
003b 4fff       |O   |		Short_Literal	-0x1
003c 4802       |H   |		Short_Literal	0x2
003d 0099       |    |		Action	Reference_Dynamic
003e 820e       |    |		Call	0x1,0xe
003f e5fe       |    |		Load	0x2,-0x2
0040 0119       |    |		Execute	Any,Check_In_Formal_Type
0041 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0042 0000 0000  |    |		.BLANK	0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 4608       |F   |		Jump_Case	0x9							; Debug Table 0x4 = .DEBUG	0x004b,0x00e0,0x0805,0x0002,0x0036,0x5624,0x0000,0x0012
004c 7808       |x   |		Jump	0x55								; case 0x0
004d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
004e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
004f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0050 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0051 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
0052 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
0053 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
0054 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
0055 e7ff       |    |		Load	0x3,-0x1
0056 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0057 0125       | %  |		Execute	Any,Set_Constraint
0058 e7ff       |    |		Load	0x3,-0x1
0059 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
005a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
005c 0000 0000  |    |		.BLANK	0000[0x4]
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 4608       |F   |		Jump_Case	0x9							; Debug Table 0x5 = .DEBUG	0x0063,0x00e2,0x0805,0x0002,0x0036,0x5624,0x0000,0x001b
0064 7808       |x   |		Jump	0x6d								; case 0x0
0065 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0066 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0067 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0068 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0069 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
006a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
006b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
006c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
006d e7ff       |    |		Load	0x3,-0x1
006e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
006f 0125       | %  |		Execute	Any,Set_Constraint
0070 e7ff       |    |		Load	0x3,-0x1
0071 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0072 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0073 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0074 0000 0000  |    |		.BLANK	0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; Debug Table
0078 ; --------------------------------------------------------------------------------------
0078 0003 0006  |    |		.CONST	0x0003,0x0006
007a 000b 00aa  |    |		.DEBUG	0x000b,0x00aa,0x8000,0x0000,0x0036,0x5604,0x0000,0x0005
0082 0010 00b4  |    |		.DEBUG	0x0010,0x00b4,0x8000,0x0000,0x0036,0x5614,0x0000,0x0003
008a 001b 00ba  |    |		.DEBUG	0x001b,0x00ba,0x2801,0x0002,0x0036,0x5604,0x0000,0x0013
0092 0023 00be  | #  |		.DEBUG	0x0023,0x00be,0x2802,0x0002,0x0036,0x5604,0x0000,0x0026
009a 004b 00e0  | K  |		.DEBUG	0x004b,0x00e0,0x0805,0x0002,0x0036,0x5624,0x0000,0x0012
00a2 0063 00e2  | c  |		.DEBUG	0x0063,0x00e2,0x0805,0x0002,0x0036,0x5624,0x0000,0x001b
00aa ; --------------------------------------------------------------------------------------
00aa ; Debug3 Subtable 0x0
00aa ; --------------------------------------------------------------------------------------
00aa 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
00ac 000b ffff  |    |		.CONST	0x000b,0xffff
00ae 000b fffe  |    |		.CONST	0x000b,0xfffe
00b0 000b fffd  |    |		.CONST	0x000b,0xfffd
00b2 000d fffc  |    |		.CONST	0x000d,0xfffc
00b4 ; --------------------------------------------------------------------------------------
00b4 ; Debug3 Subtable 0x1
00b4 ; --------------------------------------------------------------------------------------
00b4 0002 0000  |    |		.DBG3TAB	0x0002,0x0000
00b6 0010 ffff  |    |		.CONST	0x0010,0xffff
00b8 0012 fffe  |    |		.CONST	0x0012,0xfffe
00ba ; --------------------------------------------------------------------------------------
00ba ; Debug3 Subtable 0x2
00ba ; --------------------------------------------------------------------------------------
00ba 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
00bc 001b 0001  |    |		.CONST	0x001b,0x0001
00be ; --------------------------------------------------------------------------------------
00be ; Debug3 Subtable 0x3
00be ; --------------------------------------------------------------------------------------
00be 0005 000b  |    |		.DBG3TAB	0x0005,0x000b
00c0 0023 ffff  | #  |		.CONST	0x0023,0xffff
00c2 0023 fffe  | #  |		.CONST	0x0023,0xfffe
00c4 0028 fffd  | (  |		.CONST	0x0028,0xfffd
00c6 002d fffc  | -  |		.CONST	0x002d,0xfffc
00c8 002d fffb  | -  |		.CONST	0x002d,0xfffb
00ca 002d 0001  | -  |		.CONST	0x002d,0x0001
00cc 002d 0401  | -  |		.CONST	0x002d,0x0401
00ce 002e 0402  | .  |		.CONST	0x002e,0x0402
00d0 002f 0403  | /  |		.CONST	0x002f,0x0403
00d2 0030 0404  | 0  |		.CONST	0x0030,0x0404
00d4 0031 0405  | 1  |		.CONST	0x0031,0x0405
00d6 0032 0406  | 2  |		.CONST	0x0032,0x0406
00d8 0033 0407  | 3  |		.CONST	0x0033,0x0407
00da 0034 0408  | 4  |		.CONST	0x0034,0x0408
00dc 0035 0409  | 5  |		.CONST	0x0035,0x0409
00de 0036 0002  | 6  |		.CONST	0x0036,0x0002
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug3 Subtable 0x4
00e0 ; --------------------------------------------------------------------------------------
00e0 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
00e2 ; --------------------------------------------------------------------------------------
00e2 ; Debug3 Subtable 0x5
00e2 ; --------------------------------------------------------------------------------------
00e2 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
00e4 0000 0000  |    |		.BLANK	0000[0x11c]