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 - metrics - download

⟦6b5453e0f⟧ EM, TextFile

    Length: 1924 (0x784)
    Types: EM, TextFile
    Names: »TEST_TAGSTORE_PARITY.EM«

Derivation

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

TextFile

[set BOARD MEM[ne,%1%,]%1%[else][read BOARD,,: ][end]]
[set NUM_FAILS 0]

[xeq [var BOARD] FILL_TS_GOOD_PARITY]
[set EXPERIMENT_RESULT [xeq [var BOARD] TEST_TS_PAR_DETECTORS TRUE]]
[eq,[arg 1,[var EXPERIMENT_RESULT]],FALSE]
    [write,TS0_GOOD_PAR_TEST,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,failed]
    [set NUM_FAILS [add,[var NUM_FAILS],1]]
    [write [ASCII,7]]
[else]
    [eq,[arg 2,[var EXPERIMENT_RESULT]],FALSE]
       [write,TS1_GOOD_PAR_TEST,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,failed]
       [set NUM_FAILS [add,[var NUM_FAILS],1]]
       [write [ASCII,7]]
    [else]
       [write,TS_GOOD_PAR_TEST,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,passed]
    [end]
[end]

[xeq [var BOARD] FILL_TS_BAD_PARITY TRUE]
[set EXPERIMENT_RESULT [xeq [var BOARD] TEST_TS_PAR_DETECTORS FALSE]]
[eq,[arg 1,[var EXPERIMENT_RESULT]],FALSE]
    [write,TS0_BAD_LATE_PAR_TEST,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,failed]
    [set NUM_FAILS [add,[var NUM_FAILS],1]]
    [write [ASCII,7]]
[else]
    [eq,[arg 2,[var EXPERIMENT_RESULT]],FALSE]
       [write,TS1_BAD_LATE_PAR_TEST,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,failed]
       [set NUM_FAILS [add,[var NUM_FAILS],1]]
       [write [ASCII,7]]
    [else]
       [write,TS_BAD_LATE_PAR_TEST,,,,,,,,,,,,,,,,,,,,,,,,,,,,,passed]
    [end]
[end]

[xeq [var BOARD] CLEAR_TAGSTORE]
[xeq [var BOARD] FILL_TS_BAD_PARITY FALSE]
[set EXPERIMENT_RESULT [xeq [var BOARD] TEST_TS_PAR_DETECTORS FALSE]]
[eq,[arg 1,[var EXPERIMENT_RESULT]],FALSE]
    [write,TS0_BAD_EARLY_PAR_TEST,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,failed]
    [set NUM_FAILS [add,[var NUM_FAILS],1]]
    [write [ASCII,7]]
[else]
    [eq,[arg 2,[var EXPERIMENT_RESULT]],FALSE]
       [write,TS1_BAD_EARLY_PAR_TEST,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,failed]
       [set NUM_FAILS [add,[var NUM_FAILS],1]]
       [write [ASCII,7]]
    [else]
       [write,TS_BAD_EARLY_PAR_TEST,,,,,,,,,,,,,,,,,,,,,,,,,,,,passed]
    [end]
[end]

[kill BOARD]