org	29fh
	db	0,0,0		;Set no delays

	org	2f0h
	db	0		;Fix initial help level

	org	5d4h
	db	0ffh		;Have busy test

	org	5e4h
PRTRST 	in	2		;Get status
	ANI	80h		;Test if ok to output a char
	XRI	80h
	STC			;Return with cary set = printer busy
	RNZ
	ORA	A		;Return with carry reset = prnter ready
	RET

	org	5efh
POUT	OUT	1		;Send a char to the printer
	RET

	org	05f2h
PIN	in	2		;Get a char from the printer
	ANI	40h		;Check if character has arrived
	XRI	40h
	STC			;Return with carry set = no character yet
	RNZ
	IN	1
  	ORA	A		;Return with carry reset = A holds character
	RET