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

	title	'Character I/O Module for the Modular CP/M 3 BIOS'\r
	page	255\r
	.z80\r
\r
\r
\r
	public ?cinit,?ci,?co,?cist,?cost\r
	public @ctbl\r
\r
\r
	extrn	ff.init,ff.ist,ff.in,ff.ost,ff.out\r
	extrn	as0init,as0ista,as0inp,as0osta,as0out\r
	extrn	as1init,as1ista,as1inp,as1osta,as1out\r
\r
\r
	include config.inc\r
	include	z180reg.inc\r
\r
	include modebaud.inc	; define mode bits and baud equates\r
\r
max$devices equ	3\r
\r
	cseg\r
\r
;--------------------------------------------------------------\r
; Init character device\r
;     c: device\r
\r
?cinit:				; init devices\r
	ld	b,c\r
	call	vector$io\r
	dw	ff.init\r
	dw	as0init\r
	dw	as1init\r
	dw	rret\r
\r
;--------------------------------------------------------------\r
; Character input\r
;     b: device\r
;    return:\r
;     a: input char\r
\r
?ci:				; character input\r
	call	vector$io\r
	dw	ff.in\r
	dw	as0inp\r
	dw	as1inp\r
	dw	null$input\r
\r
;--------------------------------------------------------------\r
; Input status\r
;     b: device\r
;    return:\r
;     a: 0ffh if char available, else 0\r
\r
?cist:				; character input status\r
	call	vector$io\r
	dw	ff.ist\r
	dw	as0ista\r
	dw	as1ista\r
	dw	null$status\r
\r
;--------------------------------------------------------------\r
; Character output\r
;     b: device\r
;     c: output char\r
;    return:\r
;     a: output char\r
\r
?co:				; character output\r
	call	vector$io\r
	dw	ff.out\r
	dw	as0out\r
	dw	as1out\r
	dw	rret\r
\r
\r
;--------------------------------------------------------------\r
; Output status\r
;     b: device\r
;    return:\r
;     a: 0ffh if device ready for next output char, else 0\r
\r
\r
?cost:				; character output status\r
	call	vector$io\r
	dw	ff.ost\r
	dw	as0osta\r
	dw	as1osta\r
	dw	ret$true\r
\r
;--------------------------------------------------------------\r
\r
vector$io:\r
	ld	a,max$devices\r
	ld	e,b\r
vector:\r
	pop	hl\r
	ld	d,0\r
	cp	e\r
	jr	nc,exist\r
	ld	e,a		; use null device if a >= max$devices\r
exist:	add	hl,de\r
	add	hl,de\r
	ld	a,(hl)\r
	inc	hl\r
	ld	h,(hl)\r
	ld	l,a\r
	jp	(hl)\r
\r
\r
null$input:\r
	ld	a,1Ah\r
rret:\r
	ret\r
ret$true:\r
	or	0FFh\r
	ret\r
\r
null$status:\r
	xor	a\r
	ret\r
\r
;--------------------------------------------------------------\r
\r
@ctbl:\r
	db	'AVRCON'	; device 0\r
	db	mb$in$out\r
	db	baud$none\r
\r
	db	'ASCI0 '	; device 1\r
	db	mb$in$out+mb$serial+mb$soft$baud\r
ser0$baud:\r
	db	baud$19200\r
\r
	db	'ASCI1 '	; device 2\r
	db	mb$in$out+mb$serial+mb$soft$baud\r
ser1$baud:\r
	db	baud$19200\r
\r
	db	0		; table terminator\r
\r
;--------------------------------------------------------------\r
\r
\r
\r
\r
\r
	end\r
Commit	Line	Data
ea5293bb L	1	title 'Character I/O Module for the Modular CP/M 3 BIOS'\r
	2	page 255\r
	3	.z80\r
	4	\r
	5	\r
	6	\r
	7	public ?cinit,?ci,?co,?cist,?cost\r
	8	public @ctbl\r
	9	\r
	10	\r
	11	extrn ff.init,ff.ist,ff.in,ff.ost,ff.out\r
	12	extrn as0init,as0ista,as0inp,as0osta,as0out\r
	13	extrn as1init,as1ista,as1inp,as1osta,as1out\r
	14	\r
	15	\r
	16	include config.inc\r
	17	include z180reg.inc\r
	18	\r
	19	include modebaud.inc ; define mode bits and baud equates\r
	20	\r
	21	max$devices equ 3\r
	22	\r
	23	cseg\r
	24	\r
	25	;--------------------------------------------------------------\r
	26	; Init character device\r
	27	; c: device\r
	28	\r
	29	?cinit: ; init devices\r
	30	ld b,c\r
	31	call vector$io\r
	32	dw ff.init\r
	33	dw as0init\r
	34	dw as1init\r
	35	dw rret\r
	36	\r
	37	;--------------------------------------------------------------\r
	38	; Character input\r
	39	; b: device\r
	40	; return:\r
	41	; a: input char\r
	42	\r
	43	?ci: ; character input\r
	44	call vector$io\r
	45	dw ff.in\r
	46	dw as0inp\r
	47	dw as1inp\r
	48	dw null$input\r
	49	\r
	50	;--------------------------------------------------------------\r
	51	; Input status\r
	52	; b: device\r
	53	; return:\r
	54	; a: 0ffh if char available, else 0\r
	55	\r
	56	?cist: ; character input status\r
	57	call vector$io\r
	58	dw ff.ist\r
	59	dw as0ista\r
	60	dw as1ista\r
	61	dw null$status\r
	62	\r
	63	;--------------------------------------------------------------\r
	64	; Character output\r
65	; b: device\r
66	; c: output char\r
67	; return:\r
68	; a: output char\r
69	\r
70	?co: ; character output\r
71	call vector$io\r
72	dw ff.out\r
73	dw as0out\r
74	dw as1out\r
75	dw rret\r
76	\r
77	\r
78	;--------------------------------------------------------------\r
79	; Output status\r
80	; b: device\r
81	; return:\r
82	; a: 0ffh if device ready for next output char, else 0\r
83	\r
84	\r
85	?cost: ; character output status\r
86	call vector$io\r
87	dw ff.ost\r
88	dw as0osta\r
89	dw as1osta\r
90	dw ret$true\r
91	\r
92	;--------------------------------------------------------------\r
93	\r
94	vector$io:\r
95	ld a,max$devices\r
96	ld e,b\r
97	vector:\r
98	pop hl\r
99	ld d,0\r
100	cp e\r
101	jr nc,exist\r
102	ld e,a ; use null device if a >= max$devices\r
103	exist: add hl,de\r
104	add hl,de\r
105	ld a,(hl)\r
106	inc hl\r
107	ld h,(hl)\r
108	ld l,a\r
109	jp (hl)\r
110	\r
111	\r
112	null$input:\r
113	ld a,1Ah\r
114	rret:\r
115	ret\r
116	ret$true:\r
117	or 0FFh\r
118	ret\r
119	\r
120	null$status:\r
121	xor a\r
122	ret\r
123	\r
124	;--------------------------------------------------------------\r
125	\r
126	@ctbl:\r
127	db 'AVRCON' ; device 0\r
128	db mb$in$out\r
129	db baud$none\r
130	\r
131	db 'ASCI0 ' ; device 1\r
132	db mb$in$out+mb$serial+mb$soft$baud\r
133	ser0$baud:\r
134	db baud$19200\r
135	\r
136	db 'ASCI1 ' ; device 2\r
137	db mb$in$out+mb$serial+mb$soft$baud\r
138	ser1$baud:\r
139	db baud$19200\r
140	\r
141	db 0 ; table terminator\r
142	\r
143	;--------------------------------------------------------------\r
144	\r
145	\r
146	\r
147	\r
148	\r
149	end\r