- jr z,WaitRecBit ;both on = nothing sent
-recvbit:
- rra ;received bit in cf
- ld a,%10
- ld d,D0LD1H
- jr c,savebit ;lower white as well
- rra ;ld a,%01
- ld d,D0HD1L ;lower red
-savebit:
- rr c ;save bit
- ld (AckBit),a
- ld a,d
- out (7),a ;lower other (both low)
- ld de,TIMEOUT
-waitackrecv: ;same will be raised again by other calc
+ jr z,recvwait ;both high = nothing sent (yet)
+ rra ;received bit in cf
+ ld a,D0LD1H
+ jr c,received ;lower white wire as well
+ ld a,D0HD1L ;lower red
+received:
+ rl c ;save bit in c
+ out (7),a ;both wires low
+recvwaitack: