; Test drive attention.
; After SIO program ends, should interrupt with Drive Attention for unit 1.


; Set up the log(s).

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

set ds debug
set sel debug


; Set the CLK into diagnostic mode.

set clk realtime


; Configure the disc drives.

set ds0 7905,format
set ds1 7905,format

attach -n ds0 scratch.0.disc
attach -n ds1 scratch.1.disc


; Enter the diagnostic.

set console delay=100000
set -a -i console halt=>

set console response=~m
go

set console response=DEV 0,4,15,99,0~m
go

set console response=DB AA,6144,0~m
go

set console response=DB CH,2,0~m
go

set console response=NAME SK~m
go

; Seek unit 1 0/0/0

set console response=CONT 0,\%001001~m
go

set console response=WRIT CH~m
go

; Cold load read
;
; Unit 1 seek completes during this command, but
;   attention is held off because INTOK is false.

set console response=CONT 0,\%000000~m
go

set console response=READ AA~m
go

; End

set console response=CONT 0,\%012400~m
go

set console response=ENDS~m
go

; Interrupt status expected is <don't care> | Drive Attention | unit 1

set console response=SIO 0,SK,1,5,\%017401,\%100000~m
go

set console response=END~m
go

set console response=RUN~m
go