*20
	PMODE
/LINE PRINTER PATCH FOR FOCAL-12
/WRITTEN BY STEVE WELLCOME
/DIGITAL EQUIPMENT CORP.
/CALL:
/SET X=FX() TO SWITCH TO LP08
/DO AN "O T" COMMAND TO SWITCH BACK TO TTY.
/LP08 SHOULD BE SUCH THAT IT WILL INTERRUPT
/ONLY IF A 6665 HAS BEEN ISSUED.
/IF NOT, THIS MAY HAVE TO BE CHANGED
/BY DOING SOMETHING LIKE:
/	6666
/	6661
/	JMP	.-1
/	6662	/CLEAR FLAG
/
	*35
	4605
	*411
	FX
	*4606
FX,	TAD	PLP08	/AC=0
	DCA	X
	6666		/INITIALIZE
	JMP I	EFUN3I
LP08,	0
	6661
	JMP	.-1
	6666
	CLA
	JMP I	LP08
	*4777		/ONE FREE LOCATION
PLP08,	LP08
	EFUN3I=136
	X=63
	LISTAPE-1