ascii.180 interrupt driver for ASCI 0/1

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

	page	200\r
\r
; Simple polling drivers for ASCI0 and ASCI1\r
\r
\r
	global	as0init\r
	global	as0ista,as0inp\r
	global	as0osta,as0out\r
	global	as1init\r
	global	as1ista,as1inp\r
	global	as1osta,as1out\r
\r
	extrn	as_init\r
\r
\r
	include config.inc\r
	include	z180reg.inc\r
\r
	dseg\r
\r
;--------------------------------------------------------------\r
; Init Serial I/O for input and output (ASCI 0/1)\r
;\r
; b: device number\r
;\r
\r
\r
as0init:\r
	ld	c,0			;asci channel number\r
	jp	as_init\r
\r
as1init:\r
	ld	c,1			;asci channel number\r
	jp	as_init\r
\r
\r
;--------------------------------------------------------------\r
\r
as0ista:\r
	in0	a,(stat0)\r
	and	M_RDRF\r
	ret	z\r
	or	0ffh\r
	ret\r
\r
as1ista:\r
	in0	a,(stat1)\r
	and	M_RDRF\r
	ret	z\r
	or	0ffh\r
	ret\r
\r
\r
as0inp:\r
	in0	a,(stat0)\r
	bit	RDRF,a\r
	jr	z,as0inp\r
\r
	in0	c,(rdr0)\r
	and	a,M_OVRN+M_PERR+M_FE\r
	jr	z,as0in_ex\r
\r
	in0	a,(cntla0)\r
	res	EFR,a\r
	out0	(cntla0),a\r
as0in_ex:\r
	ld	a,c\r
	ret\r
\r
as1inp:\r
	in0	a,(stat1)\r
	bit	RDRF,a\r
	jr	z,as1inp\r
\r
	in0	c,(rdr1)\r
	and	a,M_OVRN+M_PERR+M_FE\r
	jr	z,as1in_ex\r
\r
	in0	a,(cntla1)\r
	res	EFR,a\r
	out0	(cntla1),a\r
as1in_ex:\r
	ld	a,c\r
	ret\r
\r
    if 0\r
	in0	a,(stat1)\r
	rlca\r
	jr	nc,as1inp\r
	in0	a,rdr1\r
	ret\r
    endif\r
\r
\r
as0osta:\r
	in0	a,(stat0)\r
	and	M_TDRE\r
	ret	z\r
	or	0ffh\r
	ret\r
\r
as1osta:\r
	in0	a,(stat1)\r
	and	M_TDRE\r
	ret	z\r
	or	0ffh\r
	ret\r
\r
\r
as0out:\r
	in0	a,(stat0)\r
	and	M_TDRE\r
	jr	z,as0out\r
	out0	(tdr0),c\r
	ld	a,c\r
	ret\r
\r
as1out:\r
	in0	a,(stat1)\r
	and	M_TDRE\r
	jr	z,as1out\r
	out0	(tdr1),c\r
	ld	a,c\r
	ret\r
\r
	end\r