|
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_S_BOARD.EM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »TEST_S_BOARD.EM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »TEST_S_BOARD.EM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »TEST_S_BOARD.EM«
[write] [write] [write,beginning,of,Sysbus,Board,testing] [eq,[var bench_mode],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]] [end] [eq [var BENCH_MODE],true] [set INP1 [read, Has the NOVRAM on this board been init'ed? (Y or N)]] [end] [set num_fails 0] [SYS_DIPROC_TEST] ! Tile 1 [SYS_MISC_SCAN_TEST] ! Tile 2 [SYS_UIR_TEST] ! Tile 3 [SYS_WCS_TEST] ! Tile 4 [SYS_ERSATZ_TEST] ! Tile 5 [SYS_DECODE_TEST] ! 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 BENCH_MODE],true] [eq [var INP1],N] [SYS_STORE_NOVRAM] ! Tile 15 [end] [end] [write] [write] [write,end,of,Sysbus,Board,testing] [write] [#eq,[var,num_fails],0] [PASS_MESSAGE Sysbus,Board] [else] [FAIL_MESSAGE Sysbus,Board] [write] [write] [write,[var,num_fails],,,TEST(S),,,FAILED] [write,[ASCII,7]] [end] [eq,[var bench_mode],true] [write] [write,[ASCII,7]] [write,*********** PLEASE UNDO REQUIRED SET-UPS **************] [end] [kill num_fails]«nul»