; Test XFERERROR recovery on the tape controller.


; Set up the log(s).

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

set ms debug
set mpx debug


; Set the CLK and MS into diagnostic mode.

set clk realtime
set ms realtime


; Configure the tape drive.

set ms0 7970E,reel=600

attach -n ms0 scratch.tape


; Enter the diagnostic.

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

set console response=~m
go

set console response=DEV 0,6,19,99,0~m
go

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

set console response=NAME XF~m
go

; Set bank to bank 15, which is beyond the 512K memory size

set console response=SBNK 15~m
go

; Write record, which fails when the transfer starts

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

set console response=WRIT AA~m
go

set console response=ENDS~m
go

; Status expected is SIO OK | ready | 1600 bpi | writing | transfer error | unit 0

set console response=SIO 0,XF,1,5,\%100542,\%000000~m
go

set console response=STAT T~m
go

set console response=MC 0~m
go

set console response=END~m
go

set console response=RUN~m
go