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

⟦fb79b7f75⟧ SEG

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

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »1048595.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »1048595.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »1048595.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »1048595.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »1048595.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 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 0100       |    |		.CONST	0x0100								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004e       | N  |		.CONST	0x004e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0018       |    |		.CONST	0x0018								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0 = .DEBUG	0x000b,0x00b2,0x8000,0x0000,0x0037,0x16a4,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4820       |H   |		Short_Literal	0x20
000d 00e2       |    |		Load_Encached	Integer_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x1 = 0xf,0xfffe
0010 4820       |H   |		Short_Literal	0x20
0011 00e1       |    |		Load_Encached	Boolean_Cache
0012 02a0       |    |		Declare_Subprogram	Null_Subprogram
0013 4801       |H   |		Short_Literal	0x1
0014 035e       | ^  |		Declare_Type	Array,Defined,Visible
0015 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x2 = 0x15,0xfffd
0016 0336       | 6  |		Declare_Variable	Array,Visible
0017 00d9       |    |		Load_Top	At_Offset_1
0018 0337       | 7  |		Declare_Variable	Array
0019 4820       |H   |		Short_Literal	0x20
001a 4800       |H   |		Short_Literal	0x0
001b 4800       |H   |		Short_Literal	0x0
001c 00d9       |    |		Load_Top	At_Offset_1
001d e210       |    |		Load	0x1,0x10
001e 01d6       |    |		Execute	Vector,Field_Write
001f 3ffb       |?   |		Loop_Increasing	0x1b
0020 00d9       |    |		Load_Top	At_Offset_1
0021 01d4       |    |		Execute	Vector,Structure_Write
0022 e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x3 = 0x22,0xfffc
0023 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0024 0129       | )  |		Execute	Any,Make_Visible
0025 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x0.0x4 = 0x25,0xfffb
0026 00d9       |    |		Load_Top	At_Offset_1
0027 00e1       |    |		Load_Encached	Boolean_Cache
0028 02a0       |    |		Declare_Subprogram	Null_Subprogram
0029 4803       |H   |		Short_Literal	0x3
002a 032e       | .  |		Declare_Type	Record,Defined,Visible
002b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x5 = 0x2b,0xfffa
002c 6053       |`S  |		Indirect_Literal	Discrete,0x80,{0x00000000, 0x00000400}
002d 00e3       |    |		Load_Encached	Natural_Cache
002e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
002f 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x6 = 0x2f,0xfff9
0030 604f       |`O  |		Indirect_Literal	Discrete,0x80,{0x00000000, 0x00000400}
0031 00e4       |    |		Load_Encached	Positive_Cache
0032 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0033 e002       |    |		Load	0x0,0x2								; Debug Table 0x0.0x7 = 0x33,0xfff8
0034 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0035 0129       | )  |		Execute	Any,Make_Visible
0036 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x0.0x8 = 0x36,0xfff7
0037 4801       |H   |		Short_Literal	0x1
0038 6047       |`G  |		Indirect_Literal	Discrete,0x80,{0x00000000, 0x00000400}
0039 00db       |    |		Load_Top	At_Offset_3
003a 035c       | \  |		Declare_Type	Array,Constrained,Visible
003b 02a0       |    |		Declare_Subprogram	Null_Subprogram
003c 4802       |H   |		Short_Literal	0x2
003d 032e       | .  |		Declare_Type	Record,Defined,Visible
003e e211       |    |		Load	0x1,0x11							; Debug Table 0x0.0x9 = 0x3e,0xfff6
003f 00d9       |    |		Load_Top	At_Offset_1
0040 02a0       |    |		Declare_Subprogram	Null_Subprogram
0041 4802       |H   |		Short_Literal	0x2
0042 032e       | .  |		Declare_Type	Record,Defined,Visible
0043 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xa = 0x43,0xfff5
0044 4801       |H   |		Short_Literal	0x1
0045 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0047 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0048 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0xb = 0x48,0xfff4
0049 4801       |H   |		Short_Literal	0x1
004a 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
004c 03fe       |    |		Declare_Type	Discrete,Defined,Visible
004d 00bf       |    |		Action	Accept_Activation
004e			BODY_0008:
004e 00bc       |    |		Action	Signal_Activated
004f 00bb       |    |		Action	Signal_Completion
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 4603       |F   |		Jump_Case	0x4							; Debug Table 0x1 = .DEBUG	0x0053,0x00cc,0x0005,0x0000,0x0037,0x16a4,0x0000,0x007b
0054 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0055 7802       |x   |		Jump	0x58								; case 0x1
0056 7805       |x   |		Jump	0x5c								; case 0x2
0057 7809       |x   |		Jump	0x61								; case 0x3
0058 00da       |    |		Load_Top	At_Offset_2
0059 0091 0084  |    |		Action	Push_String_Extended_Indexed,0x84				; "OK"
005b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
005c 00db       |    |		Load_Top	At_Offset_3
005d 00db       |    |		Load_Top	At_Offset_3
005e 00e0       |    |		Load_Encached	Standard_Cache
005f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0060 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0061 00da       |    |		Load_Top	At_Offset_2
0062 00e0       |    |		Load_Encached	Standard_Cache
0063 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0064 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0065 0000 0000  |    |		.XXX[0x3]
0067 0000       |    |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x006b,0x00ce,0x0005,0x0000,0x0037,0x16a4,0x0000,0x0081
006c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
006d 7802       |x   |		Jump	0x70								; case 0x1
006e 7805       |x   |		Jump	0x74								; case 0x2
006f 7809       |x   |		Jump	0x79								; case 0x3
0070 00da       |    |		Load_Top	At_Offset_2
0071 0091 0086  |    |		Action	Push_String_Extended_Indexed,0x86				; "OK"
0073 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0074 00db       |    |		Load_Top	At_Offset_3
0075 00db       |    |		Load_Top	At_Offset_3
0076 00e0       |    |		Load_Encached	Standard_Cache
0077 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0078 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0079 00da       |    |		Load_Top	At_Offset_2
007a 00e0       |    |		Load_Encached	Standard_Cache
007b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
007c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
007d 0000 0000  |    |		.XXX[0x3]
007f 0000       |    |
0080 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000400}
0084 ; --------------------------------------------------------------------------------------
0084 ; STRING TABLE
0084 ; --------------------------------------------------------------------------------------
0084 000a       |    |		.STRTAB	0x000a->0x0089							; "OK"
0085 000a       |    |		.STRTAB	0x000a->0x008a							; "BUFFER_FULL"
0086 0013       |    |		.STRTAB	0x0013->0x008f							; "OK"
0087 0013       |    |		.STRTAB	0x0013->0x0090							; "BUFFER_EMPTY"
0088 001d       |    |		.STREND 0x001d->0x0096
0089 4f4b 4255  |OKBU|		.STRTAB_STRINGS
0097 0000       |    |		.XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0003 0003  |    |		.CONST	0x0003,0x0003
009a 000b 00b2  |    |		.DEBUG	0x000b,0x00b2,0x8000,0x0000,0x0037,0x16a4,0x0000,0x0009
00a2 0053 00cc  | S  |		.DEBUG	0x0053,0x00cc,0x0005,0x0000,0x0037,0x16a4,0x0000,0x007b
00aa 006b 00ce  | k  |		.DEBUG	0x006b,0x00ce,0x0005,0x0000,0x0037,0x16a4,0x0000,0x0081
00b2 ; --------------------------------------------------------------------------------------
00b2 ; Debug3 Subtable 0x0
00b2 ; --------------------------------------------------------------------------------------
00b2 000c 0000  |    |		.DBG3TAB	0x000c,0x0000
00b4 000b ffff  |    |		.CONST	0x000b,0xffff
00b6 000f fffe  |    |		.CONST	0x000f,0xfffe
00b8 0015 fffd  |    |		.CONST	0x0015,0xfffd
00ba 0022 fffc  | "  |		.CONST	0x0022,0xfffc
00bc 0025 fffb  | %  |		.CONST	0x0025,0xfffb
00be 002b fffa  | +  |		.CONST	0x002b,0xfffa
00c0 002f fff9  | /  |		.CONST	0x002f,0xfff9
00c2 0033 fff8  | 3  |		.CONST	0x0033,0xfff8
00c4 0036 fff7  | 6  |		.CONST	0x0036,0xfff7
00c6 003e fff6  | >  |		.CONST	0x003e,0xfff6
00c8 0043 fff5  | C  |		.CONST	0x0043,0xfff5
00ca 0048 fff4  | H  |		.CONST	0x0048,0xfff4
00cc ; --------------------------------------------------------------------------------------
00cc ; Debug3 Subtable 0x1
00cc ; --------------------------------------------------------------------------------------
00cc 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
00ce ; --------------------------------------------------------------------------------------
00ce ; Debug3 Subtable 0x2
00ce ; --------------------------------------------------------------------------------------
00ce 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
00d0 0000 0000  |    |		.BLANK	0000[0x130]