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

⟦7390e5880⟧ SEG

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

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »9241608.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »9241608.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »9241608.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »9241608.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »9241608.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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0093       |    |		.CONST	0x0093								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0112,0x8000,0x0000,0x0035,0x9914,0x0000,0x0013
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000d 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xd,0xfffc
000f 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0xf,0xfffb
0011 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x11,0xfffa
0013 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x13,0xfff9
0015 60b2       |`   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x00359914}		; Debug Table 0x0.0x7 = 0x15,0xfff8
0016 485a       |HZ  |		Short_Literal	0x5a
0017 e001       |    |		Load	0x0,0x1
0018 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0019 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
001a e002       |    |		Load	0x0,0x2
001b 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
001c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
001d 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001e e003       |    |		Load	0x0,0x3
001f 0386       |    |		Declare_Variable	Package,Visible
0020 00d8       |    |		Load_Top	At_Offset_0
0021 020f       |    |		Execute	Module,Activate
0022 60a5       |`   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x00359914}		; Debug Table 0x0.0x8 = 0x22,0xfff7
0023 4868       |Hh  |		Short_Literal	0x68
0024 e001       |    |		Load	0x0,0x1
0025 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0026 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0027 00dc       |    |		Load_Top	At_Offset_4
0028 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
0029 00dd       |    |		Load_Top	At_Offset_5
002a 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
002b 00de       |    |		Load_Top	At_Offset_6
002c 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
002d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
002e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
002f e002       |    |		Load	0x0,0x2
0030 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
0031 e002       |    |		Load	0x0,0x2
0032 1923       | #  |		Execute	Package,Field_Reference,Field_Number 0x23
0033 e002       |    |		Load	0x0,0x2
0034 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0035 e002       |    |		Load	0x0,0x2
0036 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
0037 e002       |    |		Load	0x0,0x2
0038 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
0039 e002       |    |		Load	0x0,0x2
003a 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
003b e002       |    |		Load	0x0,0x2
003c 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
003d e002       |    |		Load	0x0,0x2
003e 191a       |    |		Execute	Package,Field_Reference,Field_Number 0x1a
003f e002       |    |		Load	0x0,0x2
0040 191b       |    |		Execute	Package,Field_Reference,Field_Number 0x1b
0041 e002       |    |		Load	0x0,0x2
0042 191d       |    |		Execute	Package,Field_Reference,Field_Number 0x1d
0043 e002       |    |		Load	0x0,0x2
0044 191e       |    |		Execute	Package,Field_Reference,Field_Number 0x1e
0045 e002       |    |		Load	0x0,0x2
0046 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
0047 e002       |    |		Load	0x0,0x2
0048 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
0049 e002       |    |		Load	0x0,0x2
004a 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
004b e002       |    |		Load	0x0,0x2
004c 1922       | "  |		Execute	Package,Field_Reference,Field_Number 0x22
004d e004       |    |		Load	0x0,0x4
004e 0386       |    |		Declare_Variable	Package,Visible
004f 00d8       |    |		Load_Top	At_Offset_0
0050 020f       |    |		Execute	Module,Activate
0051 6076       |`v  |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x00359914}		; Debug Table 0x0.0x9 = 0x51,0xfff6
0052 48a9       |H   |		Short_Literal	0xa9
0053 e001       |    |		Load	0x0,0x1
0054 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0055 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0056 e002       |    |		Load	0x0,0x2
0057 1910       |    |		Execute	Package,Field_Reference,Field_Number 0x10
0058 e002       |    |		Load	0x0,0x2
0059 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
005a e002       |    |		Load	0x0,0x2
005b 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
005c e002       |    |		Load	0x0,0x2
005d 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
005e e002       |    |		Load	0x0,0x2
005f 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
0060 e002       |    |		Load	0x0,0x2
0061 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0062 e002       |    |		Load	0x0,0x2
0063 191a       |    |		Execute	Package,Field_Reference,Field_Number 0x1a
0064 e002       |    |		Load	0x0,0x2
0065 191b       |    |		Execute	Package,Field_Reference,Field_Number 0x1b
0066 e002       |    |		Load	0x0,0x2
0067 191d       |    |		Execute	Package,Field_Reference,Field_Number 0x1d
0068 e002       |    |		Load	0x0,0x2
0069 191e       |    |		Execute	Package,Field_Reference,Field_Number 0x1e
006a e002       |    |		Load	0x0,0x2
006b 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
006c e002       |    |		Load	0x0,0x2
006d 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
006e e002       |    |		Load	0x0,0x2
006f 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0070 e002       |    |		Load	0x0,0x2
0071 1922       | "  |		Execute	Package,Field_Reference,Field_Number 0x22
0072 e213       |    |		Load	0x1,0x13
0073 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0074 e213       |    |		Load	0x1,0x13
0075 1927       | '  |		Execute	Package,Field_Reference,Field_Number 0x27
0076 e213       |    |		Load	0x1,0x13
0077 192d       | -  |		Execute	Package,Field_Reference,Field_Number 0x2d
0078 e213       |    |		Load	0x1,0x13
0079 192e       | .  |		Execute	Package,Field_Reference,Field_Number 0x2e
007a e213       |    |		Load	0x1,0x13
007b 1930       | 0  |		Execute	Package,Field_Reference,Field_Number 0x30
007c e213       |    |		Load	0x1,0x13
007d 1926       | &  |		Execute	Package,Field_Reference,Field_Number 0x26
007e e213       |    |		Load	0x1,0x13
007f 1929       | )  |		Execute	Package,Field_Reference,Field_Number 0x29
0080 e213       |    |		Load	0x1,0x13
0081 192c       | ,  |		Execute	Package,Field_Reference,Field_Number 0x2c
0082 e213       |    |		Load	0x1,0x13
0083 192f       | /  |		Execute	Package,Field_Reference,Field_Number 0x2f
0084 e005       |    |		Load	0x0,0x5
0085 0386       |    |		Declare_Variable	Package,Visible
0086 00d8       |    |		Load_Top	At_Offset_0
0087 020f       |    |		Execute	Module,Activate
0088 00bf       |    |		Action	Accept_Activation
0089 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1 = .DEBUG	0x0089,0x0128,0x8000,0x0000,0x0035,0x9924,0x0000,0x000f
													; Debug Table 0x1.0x0 = 0x89,0xffff
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x1 = 0x8b,0xfffe
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x2 = 0x8d,0xfffd
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x3 = 0x8f,0xfffc
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x4 = 0x91,0xfffb
0092 00c7       |    |		Action	Elaborate_Subprogram
0093			BODY_0008:
0093 00bc       |    |		Action	Signal_Activated
0094 00bb       |    |		Action	Signal_Completion
0095 0000 0000  |    |		.XXX[0x3]
0097 0000       |    |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2 = .DEBUG	0x009b,0x0134,0x0001,0x0000,0x0035,0x9914,0x0000,0x0021
													; Debug Table 0x2.0x0 = 0x9b,0x1
009c e001       |    |		Load	0x0,0x1
009d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
009e 00dc       |    |		Load_Top	At_Offset_4
009f e002       |    |		Load	0x0,0x2
00a0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00a1 005e       | ^  |		Store_Top	Discrete,At_Offset_6
00a2 005e       | ^  |		Store_Top	Discrete,At_Offset_6
00a3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x1 = 0xa3,0x2
00a4 0054       | T  |		Store_Top_Unchecked	Discrete,At_Offset_4
00a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3 = .DEBUG	0x00ab,0x013a,0x0002,0x0000,0x0035,0x9914,0x0000,0x003b
													; Debug Table 0x3.0x0 = 0xab,0x1
00ac 00ca       |    |		Action	Exit_Nullary_Function
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 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4 = .DEBUG	0x00b3,0x013e,0x0002,0x0000,0x0035,0x9914,0x0000,0x0042
													; Debug Table 0x4.0x0 = 0xb3,0x1
00b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x5 = .DEBUG	0x00bb,0x0142,0x0001,0x0000,0x0035,0x9914,0x0000,0x004d
													; Debug Table 0x5.0x0 = 0xbb,0x1
00bc 0000 0000  |    |		.BLANK	0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 0092 00cc  |    |		Action	Push_String_Extended,0xcc					; "SYSTEM % RECOVERY"
													; Debug Table 0x6 = .DEBUG	0x00c3,0x0146,0x0002,0x0000,0x0035,0x9914,0x0000,0x0055
													; Debug Table 0x6.0x0 = 0xc3,0x1
00c5 00ca       |    |		Action	Exit_Nullary_Function
00c6 0000 0000  |    |		.XXX[0x2]
00c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00359914}
00cc ; --------------------------------------------------------------------------------------
00cc ; STRING TABLE
00cc ; --------------------------------------------------------------------------------------
00cc 0004       |    |		.STRTAB	0x0004->0x00ce							; "SYSTEM % RECOVERY"
00cd 0013       |    |		.STREND 0x0013->0x00d6
00ce 5359 5354  |SYST|		.STRTAB_STRINGS
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0003 0007  |    |		.CONST	0x0003,0x0007
00da 000b 0112  |    |		.DEBUG	0x000b,0x0112,0x8000,0x0000,0x0035,0x9914,0x0000,0x0013
00e2 0089 0128  |   (|		.DEBUG	0x0089,0x0128,0x8000,0x0000,0x0035,0x9924,0x0000,0x000f
00ea 009b 0134  |   4|		.DEBUG	0x009b,0x0134,0x0001,0x0000,0x0035,0x9914,0x0000,0x0021
00f2 00ab 013a  |   :|		.DEBUG	0x00ab,0x013a,0x0002,0x0000,0x0035,0x9914,0x0000,0x003b
00fa 00b3 013e  |   >|		.DEBUG	0x00b3,0x013e,0x0002,0x0000,0x0035,0x9914,0x0000,0x0042
0102 00bb 0142  |   B|		.DEBUG	0x00bb,0x0142,0x0001,0x0000,0x0035,0x9914,0x0000,0x004d
010a 00c3 0146  |   F|		.DEBUG	0x00c3,0x0146,0x0002,0x0000,0x0035,0x9914,0x0000,0x0055
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x0
0112 ; --------------------------------------------------------------------------------------
0112 000a 0000  |    |		.DBG3TAB	0x000a,0x0000
0114 000b ffff  |    |		.CONST	0x000b,0xffff
0116 000b fffe  |    |		.CONST	0x000b,0xfffe
0118 000b fffd  |    |		.CONST	0x000b,0xfffd
011a 000d fffc  |    |		.CONST	0x000d,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 0022 fff7  | "  |		.CONST	0x0022,0xfff7
0126 0051 fff6  | Q  |		.CONST	0x0051,0xfff6
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug3 Subtable 0x1
0128 ; --------------------------------------------------------------------------------------
0128 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
012a 0089 ffff  |    |		.CONST	0x0089,0xffff
012c 008b fffe  |    |		.CONST	0x008b,0xfffe
012e 008d fffd  |    |		.CONST	0x008d,0xfffd
0130 008f fffc  |    |		.CONST	0x008f,0xfffc
0132 0091 fffb  |    |		.CONST	0x0091,0xfffb
0134 ; --------------------------------------------------------------------------------------
0134 ; Debug3 Subtable 0x2
0134 ; --------------------------------------------------------------------------------------
0134 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0136 009b 0001  |    |		.CONST	0x009b,0x0001
0138 00a3 0002  |    |		.CONST	0x00a3,0x0002
013a ; --------------------------------------------------------------------------------------
013a ; Debug3 Subtable 0x3
013a ; --------------------------------------------------------------------------------------
013a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
013c 00ab 0001  |    |		.CONST	0x00ab,0x0001
013e ; --------------------------------------------------------------------------------------
013e ; Debug3 Subtable 0x4
013e ; --------------------------------------------------------------------------------------
013e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0140 00b3 0001  |    |		.CONST	0x00b3,0x0001
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug3 Subtable 0x5
0142 ; --------------------------------------------------------------------------------------
0142 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0144 00bb 0001  |    |		.CONST	0x00bb,0x0001
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug3 Subtable 0x6
0146 ; --------------------------------------------------------------------------------------
0146 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0148 00c3 0001  |    |		.CONST	0x00c3,0x0001
014a 0000 0000  |    |		.BLANK	0000[0xb6]