include --> maclib

[z180-stamp-cpm3.git] / cbios / conbuf.180

	page	255\r
	.z80\r
\r
;\r
; FIFO channels for communication with avr\r
;\r
	global	ff_dev\r
\r
	extrn	ff_empty,ff_get,ff_full,ff_put\r
	extrn	bufinit,fifolst\r
\r
	include config.inc\r
	if CPU_Z180\r
	 maclib z180reg.inc\r
	endif\r
\r
	dseg\r
	mkbuf	ci.fifo_id, ci.fifo, ci.fifo_len\r
	mkbuf	co.fifo_id, co.fifo, co.fifo_len\r
\r
ici	equ	ci.fifo_id * 2\r
ico	equ	co.fifo_id * 2\r
\r
;--------------------------------------------------------------\r
\r
	dseg\r
\r
	dw	ff.out\r
	dw	ff.ost\r
	dw	ff.in\r
	dw	ff.ist\r
	dw	ff.init\r
ff_dev:\r
\r
;--------------------------------------------------------------\r
\r
; Init Serial I/O for console input and output\r
;\r
	dseg\r
ff.init:\r
	ld	a,(INIDONE)\r
	cp	INIDONEVAL\r
	ret	z\r
\r
	ld	ix,ci.fifo\r
	call	bufinit\r
	ld	ix,co.fifo\r
	jp	bufinit\r
\r
;--------------------------------------------------------------\r
; Input status\r
\r
	dseg\r
ff.ist:\r
	push	ix\r
	ld	ix,(fifolst+ici)	;\r
	call	ff_empty\r
	pop	ix\r
	ret\r
\r
;--------------------------------------------------------------\r
; Get an input character\r
\r
ff.in:\r
	push	ix\r
	ld	ix,(fifolst+ici)	;\r
	call	ff_get\r
	pop	ix\r
	ret\r
\r
;--------------------------------------------------------------\r
; Output status\r
\r
ff.ost:\r
	push	ix\r
	ld	ix,(fifolst+ico)	;\r
	call	ff_full\r
	pop	ix\r
	ret\r
\r
\r
;--------------------------------------------------------------\r
; put character in c in buffer\r
; destroys hl, bc\r
; returns output char in a\r
\r
ff.out:\r
	push	ix			;\r
	ld	ix,(fifolst+ico)	;\r
	call	ff_put\r
	out	(AVRINT6),a		; tell monitor\r
	pop	ix			;\r
	ret\r
\r
	end\r