; Test device end on the universal interface.


; Set up the log(s).

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

set lp debug
set mpx debug


; Set the CLK into diagnostic mode.

set clk realtime


; Set up the printer.

attach -n lp ypdevend.txt


; Enter the diagnostic.

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

set console response=~m
go

set console response=DEV 0,14,5,99,0~m
go

set console response=DB PS,11,S~m
go

set console response=THIS IS A PRINT TEST//~m
go

set console response=DB PF,3,\%000001~m
go

; Set up the SIO write program

set console response=NAME WP~m
go

; Reset interrupts, character output, byte transfer

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

; Write the print string

set console response=WRIT PS,C~m
go

; Write the print string a second time

set console response=WRIT PS~m
go

; End

set console response=ENDS,I~m
go

; Set up the SIO print format program

set console response=NAME FP~m
go

; Format output, word transfer

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

; Write the print format (3 skips)

set console response=WRIT PF~m
go

; End

set console response=ENDS,I~m
go

; Interrupt status expected is <don't care>

set console response=SIO 0,WP,1,50,\%000000,\%177777~m
go

; Halt now

set console response=PUT "ENTER A ZERO TO CONTINUE"~m
go

set console response=PUT ">"~m
go

set console response=GET Y~m
go

; Interrupt status expected is <don't care>

set console response=SIO 0,FP,1,50,\%000000,\%177777~m
go


; set console response=MC 0~m
; go

set console response=STAT T~m
go

set console response=END~m
go

set console response=RUN~m
go

; Set offline

set lp offline
go