timcen: db 0ffh
;**************************************************************
; CENTRONICS-INTERFACE
;**************************************************************

cenint:
	sspd censtack
	lxi sp,censtack
	push h
	lxi h,cenout1
	xthl
	ei
	reti

cenout:
	sspd censtack
	lxi sp,censtack
cenout1:
	push psw
	call listst
	sta timcen ! ora a
	jrz cenend
	in cenpad ! out lstdat
cenend:
	pop psw
	lspd censtack
	ret

	ds 16
censtack:
	ds 2

;**************************************************************

LIST: