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

⟦c47791bb7⟧ EM, TextFile

    Length: 4626 (0x1212)
    Types: EM, TextFile
    Names: »TEST_MEM_HASH.EM«

Derivation

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

TextFile

[set BOARD_NUM,[ne,%1%,]%1%[else][read Which Memory Board? ][end]]
[set BOARD_NUM [and [var BOARD_NUM] 03]]
[xeq MEM[var BOARD_NUM] FILL_TS_WITH_LINE]
[set FAILURE_FOUND F]

[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 0 0 1]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 0, NAME 0, PAGE 1,  Bad Line Bits =
                     [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 0 0 2]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 0, NAME 0, PAGE 2,  Bad Line Bits =
                     [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 0 0 4]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 0, NAME 0, PAGE 4,  Bad Line Bits =
                     [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 0 0 8]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 0, NAME 0, PAGE 8,  Bad Line Bits =
                     [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 0 0 10]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 0, NAME 0, PAGE 10,  Bad Line Bits =
                     [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 0 0 20]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 0, NAME 0, PAGE 20,  Bad Line Bits =
                     [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 0 0 40]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 0, NAME 0, PAGE 40,  Bad Line Bits =
                     [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 0 0 80]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 0, NAME 0, PAGE 80,  Bad Line Bits =
                     [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 7 FFFFFF00 1]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 7, NAME FFFFFF00, PAGE 1,
                     Bad Line Bits = [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 7 FFFFFF00 2]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 7, NAME FFFFFF00, PAGE 2,
                     Bad Line Bits = [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 7 FFFFFF00 4]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 7, NAME FFFFFF00, PAGE 4,
                     Bad Line Bits = [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 7 FFFFFF00 8]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 7, NAME FFFFFF00, PAGE 8,
                     Bad Line Bits = [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 7 FFFFFF00 10]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 7, NAME FFFFFF00, PAGE 10,
                     Bad Line Bits = [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 7 FFFFFF00 20]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 7, NAME FFFFFF00, PAGE 20,
                     Bad Line Bits = [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 7 FFFFFF00 40]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 7, NAME FFFFFF00, PAGE 40,
                     Bad Line Bits = [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 7 FFFFFF00 80]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 7, NAME FFFFFF00, PAGE 80,
                     Bad Line Bits = [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[set RESULT [xeq MEM[var BOARD_NUM] CHECK_HASH 7 FFFFFF00 100]]
[eq [arg 1 [VAR RESULT]], FALSE]
    [write ?FAILED?  MAR contains: SPACE 7, NAME FFFFFF00, PAGE 100,
                     Bad Line Bits = [arg 2 [var RESULT]]]
    [set FAILURE_FOUND T][end]
[write]
[write]
[eq,[var FAILURE_FOUND],F]
    [write No errors detected in MEM [var BOARD_NUM]'s HASH function.]
    [else]
    [write Error(s) detected in MEM [var BOARD_NUM]'s HASH function.]
[end]
[kill BOARD_NUM]
[kill RESULT]
[kill FAILURE_FOUND]