Product specifications

INBIT1: JR NC,INBIT 1
INBIT2: DEC A
JP C,INBIT2 ;A bit faster
DI
CP (IX+0) ;IX = MIDVAL
RET
;
;
;
OUTBIT::
CALL BLIP ;Preserves carry flag
LD A,0 ;Preserves carry flag
JR C,HIGH
;
;
;
;Both LOW and HIGH entered with A = 0
;
LOW:: JR NC,LOW
OUT (CASPORT),A
L0W1: JR C,LOW1
INC A
OUT (CASPORT),A
RET
;
;
;
HIGH:: JR C,HIGH
HIGH1: JR NC,HIGH1
OUT (CASPORT),A
HIGH2: JR C,HIGH2
HIGH3: JR NC,HIGH3
INC A
OUT (CASPORT),A
RET
;
;
;
INBYTE:: LD B,B
INBY1: CALL INBIT
RR C
DJNZ INBY1
RET
;
;
;
OUTBYTE:: LD B,B
OUTBY1: RR C
CALL OUTBIT
DJNZ OUTBY1
RET
;