A, (SIOCHA+2)
OSTAT:
IN
BIT
TXEM,A
JR
NZ,OSTAT1
LD
(IX+5),42H
LD
(IY+6),OFFH
JP
IOEND
(IY+6),0
OSTAT1: LD
LD
A,B
AND
A
JP
Z,IOEND
LD
A,L
OUT
(SIOCHA),A
JP
IOEND
ISTAT:
LD
(IY+6),0
CALL
STATUS
PUSH
BC
PUSH
AF
BC
POP
LD
(IY+6),C
POP
BC
JP
NZ,IOEND
LD
(IY+6),0FFH
JP
IOEND
IOC:
LD
A,B
CP
0
JR
NZ,MB OP
CALL
INIT
LD
(IY+7),A
JP
IOEND
MB OP: CP
1
JR
NZ,MB CL
CALL
OPEN
JP
IOEND
MB CL: CP
2
JR
NZ,E81
CALL
CLOSE
JP
IOEND
E81:
LD
(IX+5),81H
JP
IOEND
IOEND: RET
;Treiber busy?
;nein
; nein, Funktion busy
;Z-Flag = 1
;Z-Flag = 0
;A=0?
; ja, nur Status melden
; nein,Zeichen auf SIO ausgeben
;Z-Flag = 0
;bereit zum Empfangen eines Zeichens?
;FLAG
; ja,ein Zeichen liegt vor
; nein, Z-Flag = 1
;INIT?
; nein
; ja
;OPEN?
; nein
; ja
;CLOSE?
; nein, error 81
; ja
;ERROR 81
;end INOUT
