; Run the terminal control diagnostic (PD438A).


; Set up the log(s).

set -n console log=zatcc.log
set -n console debug=debug.log


; Configuration locations:
;
;     Location     Default Value  Contents
;   -------------  -------------  ---------------------------------------------------
;   DB+0   012654  002011         Switch Register setting
;   DB+1   012655  074000         Section Select Register setting
;   DB+2   012656  000000         Version and update level
;   DB+3   012657  000010      8  Terminal Control Interface DRT number


; 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 24

echo
echo Loading the diagnostic.
echo Expect halt 6 if successful.
go


; Set the ATC and CLK into diagnostic mode.

set atcc diag
set clk realtime


; Verify HALT 6 to set the switch register options.

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 = channel selection (0/1 = automatic/manual)
;   bit  6 = not used
;   bit  7 = not used
;   bit  8 = not used
;   bit  9 = not used
;   bit 10 = not used
;   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 140000

echo
echo Configuring the switch register.
echo Expect halt 5 if successful.
go


; Verify HALT 5 to set the Section Select options.

assert CIR=030365


; Set the Section Select options:
;
;   bit  0 = TCI DRT configuration section
; + bit  1 = execute section 1
; + bit  2 = execute section 2
; + bit  3 = execute section 3
; + bit  4 = execute section 4
;   bit  5 = not used
;   bit  6 = not used
;   bit  7 = not used
;   bit  8 = not used
;   bit  9 = not used
;   bit 10 = not used
;   bit 11 = not used
;   bit 12 = not used
;   bit 13 = not used
;   bit 14 = not used
;   bit 15 = not used

deposit SWCH 074000

echo
echo Configuring the section select register.
echo Expect halt 6 if successful.
go


;; ; Verify HALT 6 to set the switch register options.
;;
;; 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 = channel selection (0/1 = automatic/manual)
;; ;   bit  6 = not used
;; ;   bit  7 = not used
;; ;   bit  8 = not used
;; ;   bit  9 = not used
;; ;   bit 10 = not used
;; ;   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 102000
;; go
;;
;;
;; ; Verify HALT 7 to select the channel pair to be tested.
;;
;; assert CIR=030367
;;
;;
;; ; Select the channel pair to be tested.
;; ;
;; ;   left byte  = lower numbered channel
;; ;   right byte = higher numbered channel
;; ;
;; ; Note that the ATC simulation only accepts sequential (n, n+1) pairs.
;;
;; deposit SWCH 000001
;; go


; Verify HALT 6 to set the switch register options.

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 = channel selection (0/1 = automatic/manual)
;   bit  6 = not used
;   bit  7 = not used
;   bit  8 = not used
;   bit  9 = not used
;   bit 10 = not used
;   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


; Set the debugging options.

set cpu debug
set iop debug=irq,filter=3
; set clk debug
set atcc debug


; Run the diagnostic.

echo
echo Reconfiguring the switch register and executing the diagnostic.
echo Expect halt 15 for successful completion.

go


; End of the diagnostic.
;
; Verify HALT 15 for a successful automatic pass
;   (or HALT 16 for a successful manual pass).

assert CIR=030375

; examine -h RA-RD