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

⟦e4b1c63cb⟧ EM, TextFile

    Length: 3647 (0xe3f)
    Types: EM, TextFile
    Names: »BUFFER_TEST.EM«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »BUFFER_TEST.EM« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »BUFFER_TEST.EM«

TextFile

[xeq sys UCODE_PIPE]
[eq, TEST_PIPE_INIT, false]
    [write,Initial,Pipeline,Test,Failed]
    [abort]
[end]
[set BUFF_RESULT [xeq sys TEST_PIPE_BUFF]]
[eq, [arg 1, [var BUFF_RESULT]], false]
    [eq, [arg 2, [var BUFF_RESULT]], true]
	[write,Pipeline,Walking,Data,Test,Failed]
    [else]
	[write,Buffer,Walking,Data,Test,Failed]
    [end]
    [write,Expected,TYPE,Data,:,[arg 3, [var BUFF_RESULT]],,,,
	    Expected,VAL,Data,:,[arg 4, [var BUFF_RESULT]]]
    [write,Actual,TYPE,Data,,,:,[arg 5, [var BUFF_RESULT]],,,,
	    Actual,VAL,Data,,,:,[arg 6, [var BUFF_RESULT]]]
    [abort]
[end]
[xeq sys UCODE_BAR]
[set BUFF_RESULT [xeq sys TEST_XBUFFER_ADDRESS_QUICK]]
[eq, [arg 1, [var BUFF_RESULT]], false]
    [write,Transmit,Buffer,Quick,Address,Test,Failed]
    [write,Failing,Address,:, [arg 2, [var BUFF_RESULT]]]
    [write,Failing,TYPE,Data,:, [arg 3, [var BUFF_RESULT]],,,,
	   Failing,VAL,,Data,:, [arg 4, [var BUFF_RESULT]]]
    [abort]
[end]
[set BUFF_RESULT [xeq sys TEST_RBUFFER_ADDRESS_QUICK]]
[eq, [arg 1, [var BUFF_RESULT]], false]
    [write,Receive,Buffer,Quick,Address,Test,Failed]
    [write,Failing,Address,:, [arg 2, [var BUFF_RESULT]],,,,
	    Failing,Data,:, [arg 3, [var BUFF_RESULT]]]
    [abort]
[end]
[xeq sys UCODE_MODE]
[eq, [xeq sys TEST_TR_MODE_ADDRESS], false]
    [write,Transmit/Receive,Mode,Test,Failed]
[end]
[xeq sys UCODE_BUFF_AUX]
[xeq sys WRITE_ONES_XBUFFER] 
[set BUFF_RESULT [xeq sys NUDGE_XBUFFER]]
[eq, [arg 1, [var BUFF_RESULT]], false]
    [write,Transmit,Buffer,Direct,Mode,Nudge,Test,Failed]
    [write,Failing,Address,:, [arg 2, [var BUFF_RESULT]],,,,
	    Failing,Data,:, [arg 3, [var BUFF_RESULT]]]
    [abort]
[end]
[xeq sys WRITE_ONES_RBUFFER] 
[set BUFF_RESULT [xeq sys NUDGE_RBUFFER]]
[eq, [arg 1, [var BUFF_RESULT]], false]
    [write,Receive,Buffer,Direct,Mode,Nudge,Test,Failed]
    [write,Failing,Address,:, [arg 2, [var BUFF_RESULT]],,,,
	    Failing,Data,:, [arg 3, [var BUFF_RESULT]]]
    [abort]
[end]
[xeq sys WRITE_ONES_XPARITY] 
[xeq sys LOAD_BAR 0 0]
[set BUFF_RESULT [xeq sys NUDGE_XPARITY]]
[eq, [arg 1, [var BUFF_RESULT]], false]
    [write,Transmit,Buffer,Parity,Nudge,Test,Failed]
    [write,Failing,Address,:, [arg 2, [var BUFF_RESULT]],,,,
	    Failing,Data,:, [arg 3, [var BUFF_RESULT]]]
    [abort]
[end]
[xeq sys WRITE_ONES_RPARITY] 
[set BUFF_RESULT [xeq sys NUDGE_RPARITY]]
[eq, [arg 1, [var BUFF_RESULT]], false]
    [write,Receive,Buffer,Parity,Nudge,Test,Failed]
    [write,Failing,Address,:, [arg 2, [var BUFF_RESULT]],,,,
	    Failing,Data,:, [arg 3, [var BUFF_RESULT]]]
    [abort]
[end]
[xeq sys UCODE_DATA]
[xeq sys LOAD_LINK 7 0]
[eq, [xeq sys TEST_DATA_MODE_ADDRESS], false]
    [write,Data,Mode,Addressing,Test,Failed]
[end]
[xeq sys WRITE_ONES_XBUFFER] 
[xeq sys LOAD_LINK 7 0]
[set BUFF_RESULT [xeq sys NUDGE_XDATA]]
[eq, [arg 1, [var BUFF_RESULT]], false]
    [write, Transmit, Buffer,Data,Mode,Nudge,Test,Failed]
    [write,Failing,Address,:, [arg 2, [var BUFF_RESULT]],,,,
	    Failing,Data,:, [arg 3, [var BUFF_RESULT]]]
    [abort]
[end]
[xeq sys WRITE_ONES_RBUFFER] 
[xeq sys LOAD_LINK 7 0]
[set BUFF_RESULT [xeq sys NUDGE_RDATA]]
[eq, [arg 1, [var BUFF_RESULT]], false]
    [write, Receive, Buffer,Data,Mode,Nudge,Test,Failed]
    [write,Failing,Address,:, [arg 2, [var BUFF_RESULT]],,,,
	    Failing,Data,:, [arg 3, [var BUFF_RESULT]]]
    [abort]
[end]
[xeq sys UCODE_XHEAD]
[xeq sys LOAD_HOME 7 0]
[xeq sys LOAD_LINK 0 0]
[eq, [xeq sys TEST_HEADER_MODE_ADDRESS], false]
    [write,Header,Mode,Addressing,Test,Failed]
[end]
[xeq sys WRITE_ONES_XBUFFER] 
[xeq sys WRITE_ONES_RBUFFER] 
[HEADER_NUDGE 0,7]
[write,Buffer,Test,Passed]
[kill BUFF_RESULT]