|
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: 2020 (0x7e4)
Types: EM, TextFile
Names: »TEST_SYS_REV1.EM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »TEST_SYS_REV1.EM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »TEST_SYS_REV1.EM«
[write]
[write]
[write,beginning,of,Sysbus,Board,testing,,,,,,,REV 1]
[eq,[var bench_mode],true]
[eq,[var FIRST_PASS],true]
[write]
[write,[ASCII,7]]
[write,*********** PLEASE CHECK REQUIRED SET-UPS *************]
[write]
[write,,,,,,,,1. 74S240 at M46 should be removed from socket.,,,]
[write,,,,,,,,2. Test clips should be on M40 and M35. Note pin 1]
[write,,,,,,,,3. Install a 330 ohm resistor pack in socket M16,,]
[write]
[write, If the set-ups are NOT done, power off the board to do them]
[write]
[set INP1 [read, Type "Return" to continue if the set-ups are correct]]
[write,[ASCII,7]]
[set INP1 [read, Has the NOVRAM on this board been init'ed? (Y or N)]]
[end]
[end]
[set num_fails 0]
[SYS_DIPROC_TEST] ! Tile 1
[SYS_MISC_SCAN_TEST_REV1] ! Tile 2
[SYS_UIR_TEST] ! Tile 3
[SYS_WCS_TEST] ! Tile 4
[SYS_ERSATZ_TEST_REV1] ! Tile 5
[SYS_DECODE_TEST_REV1] ! Tile 6
[SYS_REGISTER_TESTS] ! Tile 7
[SYS_MACROS_TEST] ! Tile 8
[SYS_STATUS_TEST] ! Tile 9
[SYS_BUFFER_TEST] ! Tile 10
[SYS_BUFFER2_TEST] ! Tile 10 continued
[SYS_TRANSFER_TEST] ! Tile 11
[SYS_BID_TEST] ! Tile 12
[SYS_LOOP_BACK] ! Tile 13
[SYS_TIMER_TEST] ! Tile 14
[eq,[var FIRST_PASS],true]
[eq [var BENCH_MODE],true]
[eq [var INP1],N]
[SYS_STORE_NOVRAM] ! Tile 15
[end]
[end]
[end]
[write]
[write]
[write,end,of,Sysbus,Board,testing,,,,,,,REV 1]
[write]
[eq,[var,NUM_FAILS],0]
PASS_MESSAGE Sysbus,BOARD;
kill NUM_FAILS;
[ne,%1%,]
write;
write PASS,COUNT,IS,[dec,[add,%1%,1]];
[set FIRST_PASS false]
TEST_SYS [add,%1%,1];
[end]
[else]
FAIL_MESSAGE Sysbus,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]
[eq,[var bench_mode],true]
[write]
[write,[ASCII,7]]
[write,*********** PLEASE UNDO REQUIRED SET-UPS **************]
[end]
[set FIRST_PASS true]