|
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: 1222 (0x4c6)
Types: EM, TextFile
Names: »TEST_TYP.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_TYP.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_TYP.EM«
[write]
[write]
[write,beginning,of,Type,Board,testing]
[set num_fails 0]
[set bus_parity_fail false]
[type_reset_test] ! Tile 1
[type_diag_kernel] ! Tile 2
[type_wcs_tests] ! Tile 3
[type_bus_n_loop_cntr] ! Tile 4
[type_rf_tests] ! Tile 5
[type_rf2_tests] ! Tile 5 continued
[type_rf3_tests] ! Tile 5 continued
[type_alu_tests] ! Tile 6
[type_alu2_tests] ! Tile 6 continued
[type_csa_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,Type,Board,testing]
[write]
[eq,[var,NUM_FAILS],0]
PASS_MESSAGE Type,BOARD;
kill NUM_FAILS;
[ne,%1%,]
write;
write PASS,COUNT,IS,[dec,[add,%1%,1]];
TEST_TYP [add,%1%,1];
[end]
[else]
FAIL_MESSAGE Type,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]