[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
	pop	hl\r
	push	de\r
	ld	de,max$devices	; default if\r
	ld	a,b		;\r
	cp	e             	;    b > max$devices\r
	jr	nc,exist\r
	ld	e,a\r
exist:\r
	add	hl,de\r
	add	hl,de\r
\r
	ld	e,(hl)\r
	inc	hl\r
	ld	d,(hl)\r
	ex	de,hl\r
	pop	de\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
	db	baud$9600\r
\r
	db	'ASCI1 '	; device 2\r
	db	mb$in$out+mb$serial+mb$soft$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
ea5293bb	95	pop hl\r
b43b4662	96	push de\r
f80331a6 L	97	ld de,max$devices ; default if\r
	98	ld a,b ;\r
	99	cp e ; b > max$devices\r
ea5293bb	100	jr nc,exist\r
f80331a6 L	101	ld e,a\r
f80331a6 L	102	exist:\r
ea5293bb	103	add hl,de\r
f80331a6 L	104	add hl,de\r
	105	\r
	106	ld e,(hl)\r
ea5293bb	107	inc hl\r
f80331a6 L	108	ld d,(hl)\r
f80331a6 L	109	ex de,hl\r
b43b4662	110	pop de\r
ea5293bb L	111	jp (hl)\r
	112	\r
	113	\r
	114	null$input:\r
	115	ld a,1Ah\r
	116	rret:\r
	117	ret\r
	118	ret$true:\r
	119	or 0FFh\r
	120	ret\r
	121	\r
	122	null$status:\r
	123	xor a\r
	124	ret\r
	125	\r
	126	;--------------------------------------------------------------\r
	127	\r
	128	@ctbl:\r
	129	db 'AVRCON' ; device 0\r
	130	db mb$in$out\r
	131	db baud$none\r
	132	\r
	133	db 'ASCI0 ' ; device 1\r
	134	db mb$in$out+mb$serial+mb$soft$baud\r
f80331a6	135	db baud$9600\r
ea5293bb L	136	\r
	137	db 'ASCI1 ' ; device 2\r
	138	db mb$in$out+mb$serial+mb$soft$baud\r
ea5293bb L	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