5 ; CP/M 3 compatible character i/o
7 public ?cinit,?ci,?co,?cist,?cost
10 extrn ff.init,ff.i.st,ff.in,ff.o.st,ff.out
11 extrn as0init,as0ista,as0inp,as0osta,as0out
12 extrn as1init,as1ista,as1inp,as1osta,as1out
16 include modebaud.inc ; define mode bits and baud eqautes
25 ?cinit: ; init devices
33 ; b = device, c = output char, a = input char
35 ?ci: ; character input
42 ?cist: ; character input status
49 ?co: ; character output
56 ?cost: ; character output status
71 ld e,a ; use null device if a >= max$device
93 ;--------------------------------------------------------------
101 db 'ASCI0 ' ; device 1
102 db mb$in$out+mb$serial+mb$soft$baud
106 db 'ASCI1 ' ; device 2
107 db mb$in$out+mb$serial+mb$soft$baud
111 db 0 ; table terminator