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

⟦f07a72e42⟧ EM, TextFile

    Length: 2048 (0x800)
    Types: EM, TextFile
    Names: »DECODE_TEST.EM«

Derivation

└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »DECODE_TEST.EM« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »DECODE_TEST.EM« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »DECODE_TEST.EM« 

TextFile

[set DECODE_RESULT [xeq sys TEST_ADDR_ENABLES]]
[eq, [arg 1, [var DECODE_RESULT]], false]
    [write,Address,Enables,Decode,Test,Failed]
    [set DECODE_EXPECTED,
	    [#case, [arg 2, [var DECODE_RESULT]]]
		[when,0]FIU_BOARD
		[when,1]VAL_BOARD
		[when,2]TYPE_BOARD
		[when,3]SEQUENCER_BOARD
	    [endcase]]

    [eq, [arg 3, [var DECODE_RESULT]], true]
	[write,ECC,ID,Enable,Didn't,Inhibit, [var DECODE_EXPECTED],Enable]
    [else]
	[write,Expected, [var DECODE_EXPECTED],Enable]
    [end]
    [kill DECODE_EXPECTED]
    [abort]
[end]
[set DECODE_RESULT [xeq sys TEST_TV_ENABLES]]
[eq, [arg 1, [var DECODE_RESULT]], false]
    [write,Type_Val,Enables,Decode,Test,Failed]
    [set DECODE_EXPECTED,
	[#case, [arg 2, [var DECODE_RESULT]]]
	    [when,0]TYPE_VAL
	    [when,1]TYPE_FIU
	    [when,2]FIU_VAL
	    [when,3]FIU_FIU
	    [when,4]SYSBUS_SYSBUS
	    [when,5]SEQUENCER_SEQUENCER
	    [when,6]NONE_NONE
	    [when,7]NONE_NONE
	    [when,8]TYPE_MEMORY
	    [when,9]TYPE_MEMORY
	    [when,A]FIU_MEMORY
	    [when,B]FIU_MEMORY
	    [when,C]MEMORY_MEMORY
	    [when,D]MEMORY_MEMORY
	    [when,E]MEMORY_MEMORY
	    [when,F]MEMORY_MEMORY
	[endcase]]
	[write,Expected, [var DECODE_EXPECTED],Enable]
    [kill DECODE_EXPECTED]
    [abort]
[end]
[set DECODE_RESULT [xeq sys TEST_TV_ENABLES_ERSATZ]]
[eq, [arg 1, [var DECODE_RESULT]], false]
    [write,Type_Val,Enables,Decode,With,Ersatz,Test,Failed]
    [abort]
[end]
[write,Decode,Test,Passed]
[kill DECODE_RESULT]«nul»