; Test tape EOM return.


; Set up the log(s).

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

set ms debug


; Set the CLK into diagnostic mode.

set clk realtime
set ms realtime


; Configure the tape drive.

detach ms0
set ms0 7970E,capac=1
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,512,0~m
go

set console response=GAP 0~m
go

set console response=REW 0~m
go

set console response=ESTA \%000006,\%177761~m
go

set console response=FSR 0~m
go

set console response=FSR 0~m
go

set console response=END~m
go


; Run the program.

set console response=RUN~m
;set console nohalt
go