; Universal Interface diagnostic (D435A). ; ; Configuration locations: ; ; Location Default Value Contents ; ------------- ------------- --------------------------------------------------- ; DB+0 030414 000100 Switch Register setting ; DB+1 030415 177776 Section Select Register setting ; DB+2 030416 000000 ; DB+3 030417 000000 Interface DRT number ; DB+4 030420 000003 Clock DRT number ; DB+5 030421 000000 ; DB+6 030422 000000 Interrupt mask setting ; DB+7 030423 000000 Positive or negative true logic (0/-1) ; Set up the log(s). set -n console log=zlp.log set -n console debug=debug.log ; Configure the CPU for the diagnostic. ; ; Reduce the memory size to allow testing of XFERERR on illegal memory address. set cpu 512K ; Boot the I/O diagnostics tape. attach -r ms0 30000-11017_Rev-2640_IO.tape boot ms0 ; Load the tape file containing the diagnostic. ; ; The I/O tape contains these files: ; ; DIAGNOSTIC FILE REV %FILE ; ------------------- ------ ----- ---- ; SLEUTH PD411A 01.05 (01) ; CART DISC-7905A PD419A 01.04 (02) ; MEMORY PATTERN PD421A 01.00 (03) ; MULTIPLEXOR CHAN PD422A 01.02 (04) ; DISC FILE-2888A PD423A 01.00 (05) ; CART DISC-7900A PD424A 01.00 (06) ; SYSTEM CLOCK II/III PD425A 01.00 (07) ; SYS CLK/FLI III-LC PD426A 00.00 (10) ; TERMINAL DATA PD427A 01.01 (11) ; FIXED HEAD DISC PD428A 01.00 (12) ; SELECTOR CHAN PD429A 01.01 (13) ; FLT.CORR.MEM SER-II PD430A 01.01 (14) ; FLT.CORR.MEM SER-III PD430B 00.00 (15) ; EXTEND INSTRUC SET PD431A 01.00 (16) ; HSI DIAG. PD432A 01.00 (17) ; MAGNETIC TAPE PD433A 01.04 (20) ; SSLC INTERFACE PD434A 01.03 (21) ; ASLC INTERFACE PD434B 01.04 (22) ; UI DIAG PD435A 01.01 (23) ; TERMINAL CONTROL PD438A 01.00 (24) ; CALCOMP PLOTTER PD439A 01.01 (25) ; COBOLII A F/W DIAG PD441A 00.00 (26) ; COBOLII B F/W DIAG PD442A 00.00 (27) ; STAND ALONE DISC SADUTIL 01.00 (30) deposit SWCH 23 ; Set the CLK and UI into diagnostic mode. ; Set the UI interrupt mask to test masking. set CLK realtime set LP diagnostic,intmask=8 ; Run the diagnostic. set console delay=10000 set -i console halt=? echo echo Press to start the diagnostic. go ; Respond to "Q110 DEVICE NUMBER? " set console response=14~m go ; Respond to "Q112 INTERRUPT MASK? " set console response=8~m go ; Respond to "Q113 NEGATIVE TRUE? " set console response=NO~m set -i console halt=? ? go ; Respond to "Q114 CHANGE INTERNAL SWITCH REGISTER? ? " set console response=YES~m set -i console halt=? go ; Respond to "P114 INTERNAL SWITCH REGISTER" and HALT 6 assert CIR=030366 ; Set the Switch Register options: ; ; + bit 0 = select the external switch register ; bit 1 = modify the Section Select Register ; bit 2 = not used ; bit 3 = not used ; bit 4 = not used ; bit 5 = not used ; bit 6 = not used ; bit 7 = output to the line printer (if configured) ; bit 8 = not used ; bit 9 = suppress non-error messages ; bit 10 = suppress error messages ; bit 11 = loop on the last step ; + bit 12 = halt on error ; bit 13 = halt at the end of each step ; bit 14 = halt at the end of each section ; + bit 15 = halt at the end of each diagnostic pass ;deposit SWCH 100011 deposit SWCH 100111 echo echo Configuring the switch register. echo go ; Respond to "Q115 SECTION LIST? " set console response=~m go ; Respond to "Q116 READER-PUNCH INTERFACE ? " set console response=NO~m set console nohalt ; Set the debugging options. ;set cpu debug ;set iop debug,filter=3;7 ;set clk debug set mpx debug=pio;sr set lp debug ; skip step 9 ; deposit 030415 177676 go ; Respond to "P120 CONT6 ON, REST OFF" and HALT 7 echo echo [Verifying control bits.] echo assert CIR=030367 assert LP CONT=10000 go ; Respond to "P120 CONT7 ON, REST OFF" and HALT 7 assert CIR=030367 assert LP CONT=01000 echo go ; Respond to "P120 CONT8 ON, REST OFF" and HALT 7 assert CIR=030367 assert LP CONT=00100 echo go ; Respond to "P120 CONT9 ON, REST OFF" and HALT 7 assert CIR=030367 assert LP CONT=00010 echo go ; Respond to "P120 CONT10 ON, REST OFF" and HALT 7 assert CIR=030367 assert LP CONT=00001 echo go ; Respond to "P121 JUMPER J2W1 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[1]=1 echo go ; Respond to "P121 JUMPER J2W2 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[2]=1 echo go ; Respond to "P121 JUMPER J2W3 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[3]=1 echo go ; Respond to "P121 JUMPER J2W4 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[4]=1 echo go ; Respond to "P121 JUMPER J2W5 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[5]=1 echo go ; Respond to "P121 JUMPER J2W6 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[6]=1 echo go ; Respond to "P121 JUMPER J2W7 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[7]=1 echo go ; Respond to "P121 JUMPER J2W8 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[8]=1 echo go ; Respond to "P121 JUMPER J2W9 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[9]=1 echo go ; Respond to "P121 JUMPER J2W10 LOW, REST HIGH" and HALT 10 assert CIR=030370 assert LP J2W[10]=1 echo go ; Respond to "P122 DEVICE END ASSERTED" and HALT 11 assert CIR=030371 assert LP DEVEND=1 echo go ; Respond to "P124 BIT 0 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=100000 echo go ; Respond to "P124 BIT 1 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=040000 echo go ; Respond to "P124 BIT 2 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=020000 echo go ; Respond to "P124 BIT 3 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=010000 echo go ; Respond to "P124 BIT 4 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=004000 echo go ; Respond to "P124 BIT 5 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=002000 echo go ; Respond to "P124 BIT 6 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=001000 echo go ; Respond to "P124 BIT 7 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=000400 echo go ; Respond to "P124 BIT 8 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=000200 echo go ; Respond to "P124 BIT 9 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=000100 echo go ; Respond to "P124 BIT 10 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=000040 echo go ; Respond to "P124 BIT 11 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=000020 echo go ; Respond to "P124 BIT 12 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=000010 echo go ; Respond to "P124 BIT 13 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=000004 echo go ; Respond to "P124 BIT 14 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=000002 echo go ; Respond to "P124 BIT 15 HIGH, REST LOW" and HALT 13 assert CIR=030373 assert LP READ=000001 echo go ; Set the Section Select options: ; ; bit 0 = reconfigure ; bit 1 = execute Section 1 ; bit 2 = execute Section 2 ; bit 3 = execute Section 3 ; bit 4 = execute Section 4 ; bit 5 = execute Section 5 ; bit 6 = execute Section 6 ; bit 7 = execute Section 7 ; bit 8 = execute Section 8 ; bit 9 = execute Section 9 ; bit 10 = execute Section 10 ; bit 11 = not used ; bit 12 = not used ; bit 13 = not used ; bit 14 = not used ; bit 15 = not used ; End the of diagnostic. ; ; Verify HALT 15 for a successful pass. assert CIR=030375 ; Restore the hardware configuration. set CLK caltime set LP printer