|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 723 (0x2d3)
Types: EM, TextFile
Names: »TEST_C_BOARD.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_C_BOARD.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_C_BOARD.EM«
write;
write ,,,,,,,,BEGINNING,OF,IOC,BOARD,TESTING;
set NUM_FAILS 0;
[IOC_DIPROC_TEST] ! Tile 1
[IOC_SCAN_CHAIN_TEST] ! Tile 2
[IOC_WCS_TEST] ! Tile 3
[IOC_ENABLE_TEST] ! Tile 4
[IOC_ECC_TEST] ! Tile 5
[IOC_EVENTS_TEST] ! Tile 6
[IOC_TRACE_TEST] ! Tile 7
write;
write END,OF,IOC,BOARD,TESTING;
write;
[eq,[var,NUM_FAILS],0]
PASS_MESSAGE IOC,BOARD;
kill NUM_FAILS;
[ne,%1%,]
write;
write PASS,COUNT,IS,[dec,[add,%1%,1]];
TEST_C_BOARD [add,%1%,1];
[end]
[else]
FAIL_MESSAGE IOC,BOARD;
write;
write [dec,[var,NUM_FAILS]],,,TEST(S),,,FAILED,[ASCII,87];
kill NUM_FAILS;
[ne,%1%,]
write;
write PASS,COUNT,WAS,[dec,%1%];
[end]
[end]