DataMuseum.dk

top - download

    Length: 1916 (0x77c)
    Types: EM, TextFile
    Names: »TEST_SYS.EM«

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »TEST_SYS.EM« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »TEST_SYS.EM« 

TextFile

[write]
[write]
[write,beginning,of,Sysbus,Board,testing]
[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]   ! 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 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]
[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]