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

⟦12ac7c198⟧ SEG

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

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »1003539.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »1003539.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »1003539.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »1003539.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »1003539.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 00d8       |    |		.CONST	0x00d8								; 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 0028       | (  |		.CONST	0x0028								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0012       |    |		.CONST	0x0012								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x0112,0x8000,0x0000,0x0037,0x0834,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0xf,0xfffb
0011 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x11,0xfffa
0013 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x13,0xfff9
0015 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x15,0xfff8
0017 00bf       |    |		Action	Accept_Activation
0018 60b7       |`   |		Indirect_Literal	Discrete,0xd0,{0x00000000, 0x00080000}		; Debug Table 0x1 = .DEBUG	0x0018,0x0124,0x8000,0x0000,0x0037,0x0b84,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x18,0xffff
0019 60b2       |`   |		Indirect_Literal	Discrete,0xcc,{0x00000000, 0x00ffffff}
001a e001       |    |		Load	0x0,0x1
001b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
001c 00e3       |    |		Load_Encached	Natural_Cache
001d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
001e 029d 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call			; Debug Table 0x1.0x1 = 0x1e,0xfffe
0020 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x2 = 0x20,0xfffd
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x3 = 0x22,0xfffc
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x4 = 0x24,0xfffb
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x5 = 0x26,0xfffa
0027 00c7       |    |		Action	Elaborate_Subprogram
0028			BODY_0008:
0028 8212       |    |		Call	0x1,0x12							; Debug Table 0x1.0x6 = 0x28,0x1
0029 00bc       |    |		Action	Signal_Activated
002a 00bb       |    |		Action	Signal_Completion
002b 0000 0000  |    |		.BLANK	0000[0x5]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033       | 3  |		.CONST	0x0033								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0001       |    |		.CONST	0x0001								; Number of locals
0033			BODY_0030:
0033			INIT_0030:
0033 e002       |    |		Load	0x0,0x2								; Debug Table 0x2 = .DEBUG	0x0033,0x0134,0x0002,0x0000,0x0037,0x0834,0x0000,0x001f
													; Debug Table 0x2.0x0 = 0x33,0x1
0034 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0035 0322       | "  |		Declare_Variable	Record
0036 4bff       |K   |		Short_Literal	0x3ff
0037 00d9       |    |		Load_Top	At_Offset_1
0038 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0039 4804       |H   |		Short_Literal	0x4
003a 00d9       |    |		Load_Top	At_Offset_1
003b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
003c e002       |    |		Load	0x0,0x2
003d 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
003e 00dc       |    |		Load_Top	At_Offset_4
003f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0040 e211       |    |		Load	0x1,0x11
0041 0271       | q  |		Execute	Discrete,Times
0042 00dd       |    |		Load_Top	At_Offset_5
0043 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0044 09ed       |    |		Execute_Immediate	Binary_Scale,-0x13
0045 0273       | s  |		Execute	Discrete,Plus
0046 0248       | H  |		Execute	Discrete,Check_In_Integer
0047 e003       |    |		Load	0x0,0x3
0048 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0049 025b       | [  |		Execute	Discrete,Check_In_Type
004a 0273       | s  |		Execute	Discrete,Plus
004b 00d9       |    |		Load_Top	At_Offset_1
004c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
004d 00db       |    |		Load_Top	At_Offset_3
004e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
004f 6078       |`x  |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x0007ffff}
0050 0279       | y  |		Execute	Discrete,And
0051 e002       |    |		Load	0x0,0x2
0052 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0053 025b       | [  |		Execute	Discrete,Check_In_Type
0054 00d9       |    |		Load_Top	At_Offset_1
0055 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0056 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0057 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x005b,0x0138,0x0002,0x0000,0x0037,0x0834,0x0000,0x002c
													; Debug Table 0x3.0x0 = 0x5b,0x1
005c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
005d 4bff       |K   |		Short_Literal	0x3ff
005e 027f       |    |		Execute	Discrete,Equal
005f 680c       |h   |		Jump_Zero	0x6c
0060 00da       |    |		Load_Top	At_Offset_2
0061 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0062 0f02       |    |		Execute_Immediate	Equal,0x2
0063 6808       |h   |		Jump_Zero	0x6c
0064 00da       |    |		Load_Top	At_Offset_2
0065 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0066 e002       |    |		Load	0x0,0x2
0067 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0068 e002       |    |		Load	0x0,0x2
0069 1b3e       | >  |		Execute	Package,Field_Read,Field_Number 0x3e
006a 0262       | b  |		Execute	Discrete,In_Range
006b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
006c 4800       |H   |		Short_Literal	0x0
006d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x0073,0x013c,0x0002,0x0000,0x0037,0x0834,0x0000,0x0037
													; Debug Table 0x4.0x0 = 0x73,0x1
0074 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0075 4bff       |K   |		Short_Literal	0x3ff
0076 027f       |    |		Execute	Discrete,Equal
0077 680c       |h   |		Jump_Zero	0x84
0078 00da       |    |		Load_Top	At_Offset_2
0079 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
007a 0f04       |    |		Execute_Immediate	Equal,0x4
007b 6808       |h   |		Jump_Zero	0x84
007c 00da       |    |		Load_Top	At_Offset_2
007d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
007e e002       |    |		Load	0x0,0x2
007f 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0080 e002       |    |		Load	0x0,0x2
0081 1b3e       | >  |		Execute	Package,Field_Read,Field_Number 0x3e
0082 0262       | b  |		Execute	Discrete,In_Range
0083 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0084 4800       |H   |		Short_Literal	0x0
0085 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0086 0000 0000  |    |		.XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0094       |    |		.CONST	0x0094								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0002       |    |		.CONST	0x0002								; Number of locals
008b			INIT_0088:
008b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x008b,0x0140,0x0002,0x0000,0x0037,0x0834,0x0000,0x0042
													; Debug Table 0x5.0x0 = 0x8b,0xffff
008c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
008d e002       |    |		Load	0x0,0x2
008e 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
008f 0272       | r  |		Execute	Discrete,Minus
0090 00e3       |    |		Load_Encached	Natural_Cache
0091 025b       | [  |		Execute	Discrete,Check_In_Type
0092 00e3       |    |		Load_Encached	Natural_Cache
0093 03f1       |    |		Declare_Variable	Discrete,With_Value
0094			BODY_0088:
0094 e004       |    |		Load	0x0,0x4								; Debug Table 0x5.0x1 = 0x94,0x1
0095 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0096 0322       | "  |		Declare_Variable	Record
0097 00d9       |    |		Load_Top	At_Offset_1
0098 e211       |    |		Load	0x1,0x11
0099 0270       | p  |		Execute	Discrete,Divide
009a e004       |    |		Load	0x0,0x4
009b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009c 025b       | [  |		Execute	Discrete,Check_In_Type
009d 00d9       |    |		Load_Top	At_Offset_1
009e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
009f 00d9       |    |		Load_Top	At_Offset_1
00a0 e211       |    |		Load	0x1,0x11
00a1 026e       | n  |		Execute	Discrete,Modulo
00a2 0913       |    |		Execute_Immediate	Binary_Scale,0x13
00a3 0248       | H  |		Execute	Discrete,Check_In_Integer
00a4 00dd       |    |		Load_Top	At_Offset_5
00a5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00a6 0273       | s  |		Execute	Discrete,Plus
00a7 e004       |    |		Load	0x0,0x4
00a8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a9 025b       | [  |		Execute	Discrete,Check_In_Type
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00ac 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ad 0000 0000  |    |		.XXX[0x3]
00af 0000       |    |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 0007       |    |		Action	Break_Optional							; Debug Table 0x6 = .DEBUG	0x00b3,0x0146,0x0001,0x0000,0x0037,0x0b84,0x0000,0x001e
													; Debug Table 0x6.0x0 = 0xb3,0x1
00b4 e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x1 = 0xb4,0x2
00b5 1b3e       | >  |		Execute	Package,Field_Read,Field_Number 0x3e
00b6 e002       |    |		Load	0x0,0x2
00b7 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
00b8 0272       | r  |		Execute	Discrete,Minus
00b9 00e3       |    |		Load_Encached	Natural_Cache
00ba 025b       | [  |		Execute	Discrete,Check_In_Type
00bb 0a01       |    |		Execute_Immediate	Plus,0x1
00bc 0248       | H  |		Execute	Discrete,Check_In_Integer
00bd 0913       |    |		Execute_Immediate	Binary_Scale,0x13
00be 6005       |`   |		Indirect_Literal	Discrete,0xc4,{0x00000000, 0x1effffe1}
00bf 027b       | {  |		Execute	Discrete,Greater_Equal
00c0 7002       |p   |		Jump_Nonzero	0xc3
00c1 4887       |H   |		Short_Literal	0x87
00c2 0257       | W  |		Execute	Discrete,Raise
00c3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x6.0x2 = 0xc3,0x3
00c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x1effffe1}
00c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0007ffff}
00cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00ffffff}
00d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00080000}
00d4 0000 0000  |    |		.BLANK	0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0003 0007  |    |		.CONST	0x0003,0x0007
00da 000b 0112  |    |		.DEBUG	0x000b,0x0112,0x8000,0x0000,0x0037,0x0834,0x0000,0x0009
00e2 0018 0124  |   $|		.DEBUG	0x0018,0x0124,0x8000,0x0000,0x0037,0x0b84,0x0000,0x0007
00ea 0033 0134  | 3 4|		.DEBUG	0x0033,0x0134,0x0002,0x0000,0x0037,0x0834,0x0000,0x001f
00f2 005b 0138  | [ 8|		.DEBUG	0x005b,0x0138,0x0002,0x0000,0x0037,0x0834,0x0000,0x002c
00fa 0073 013c  | s <|		.DEBUG	0x0073,0x013c,0x0002,0x0000,0x0037,0x0834,0x0000,0x0037
0102 008b 0140  |   @|		.DEBUG	0x008b,0x0140,0x0002,0x0000,0x0037,0x0834,0x0000,0x0042
010a 00b3 0146  |   F|		.DEBUG	0x00b3,0x0146,0x0001,0x0000,0x0037,0x0b84,0x0000,0x001e
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x0
0112 ; --------------------------------------------------------------------------------------
0112 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
0114 000b ffff  |    |		.CONST	0x000b,0xffff
0116 000c fffe  |    |		.CONST	0x000c,0xfffe
0118 000d fffd  |    |		.CONST	0x000d,0xfffd
011a 000e fffc  |    |		.CONST	0x000e,0xfffc
011c 000f fffb  |    |		.CONST	0x000f,0xfffb
011e 0011 fffa  |    |		.CONST	0x0011,0xfffa
0120 0013 fff9  |    |		.CONST	0x0013,0xfff9
0122 0015 fff8  |    |		.CONST	0x0015,0xfff8
0124 ; --------------------------------------------------------------------------------------
0124 ; Debug3 Subtable 0x1
0124 ; --------------------------------------------------------------------------------------
0124 0006 0001  |    |		.DBG3TAB	0x0006,0x0001
0126 0018 ffff  |    |		.CONST	0x0018,0xffff
0128 001e fffe  |    |		.CONST	0x001e,0xfffe
012a 0020 fffd  |    |		.CONST	0x0020,0xfffd
012c 0022 fffc  | "  |		.CONST	0x0022,0xfffc
012e 0024 fffb  | $  |		.CONST	0x0024,0xfffb
0130 0026 fffa  | &  |		.CONST	0x0026,0xfffa
0132 0028 0001  | (  |		.CONST	0x0028,0x0001
0134 ; --------------------------------------------------------------------------------------
0134 ; Debug3 Subtable 0x2
0134 ; --------------------------------------------------------------------------------------
0134 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0136 0033 0001  | 3  |		.CONST	0x0033,0x0001
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug3 Subtable 0x3
0138 ; --------------------------------------------------------------------------------------
0138 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
013a 005b 0001  | [  |		.CONST	0x005b,0x0001
013c ; --------------------------------------------------------------------------------------
013c ; Debug3 Subtable 0x4
013c ; --------------------------------------------------------------------------------------
013c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
013e 0073 0001  | s  |		.CONST	0x0073,0x0001
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug3 Subtable 0x5
0140 ; --------------------------------------------------------------------------------------
0140 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0142 008b ffff  |    |		.CONST	0x008b,0xffff
0144 0094 0001  |    |		.CONST	0x0094,0x0001
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug3 Subtable 0x6
0146 ; --------------------------------------------------------------------------------------
0146 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0148 00b3 0001  |    |		.CONST	0x00b3,0x0001
014a 00b4 0002  |    |		.CONST	0x00b4,0x0002
014c 00c3 0003  |    |		.CONST	0x00c3,0x0003
014e 0000 0000  |    |		.BLANK	0000[0xb2]