|
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: 2048 (0x800)
Types: EM, TextFile
Names: »TEST_VAL.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_VAL.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_VAL.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_VAL.EM«
[write]
[write]
[write,beginning,of,Val,Board,testing]
[set num_fails 0]
[set bus_parity_fail false]
[val_reset_test] ! Tile 1
[val_diag_kernel] ! Tile 2
[val_wcs_tests] ! Tile 3
[val_bus_n_loop_cntr] ! Tile 4
[val_rf_tests] ! Tile 5
[val_rf2_tests] ! Tile 5 continued
[val_rf3_tests] ! Tile 5 continued
[val_alu_tests] ! Tile 6
[val_alu2_tests] ! Tile 6 continued
[val_zero_cntr_tests] ! Tile 7
[write]
[write]
[eq,[var,bus_parity_fail],true]
[write]
[write,bus,parity,checkers,test,failed]
[write]
[write,If,the,board,was,tested,at,44,Mhz,please,change,to,42,Mhz,and,retest]
[write]
[write,the,test,,may,fail,,at,44,Mhz,,,but,should,,ALWAYS,,pass,,at,42Mhz,!!]
[else]
[end]
[kill bus_parity_fail]
[write]
[write]
[write,end,of,Val,Board,testing]
[write]
[eq,[var,NUM_FAILS],0]
PASS_MESSAGE Val,BOARD;
kill NUM_FAILS;
[ne,%1%,]
write;
write PASS,COUNT,IS,[dec,[add,%1%,1]];
TEST_VAL [add,%1%,1];
[end]
[else]
FAIL_MESSAGE Val,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]«nul»