0 Members and 2 Guests are viewing this topic.
SENDER RECEIVER¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Pull ring lowRepeat up to [ARG 2]*8μs If ring is not low, abort | If tip is low, break from loop Pull tip lowIf tip is not low, abort Release tip Received byte = 0LOOP 8 TIMES LOOP 8 TIMES | Release ring, pull tip low | | Wait ~21μs | Wait until tip == ring | Rotate byte to send left | | If 0 rotated out, pull ring low | | If 1 rotated out, release tip | | Wait ~12μs | If tip is low, rotate 0 left into byte | | If tip is high, rotate 1 left into byteRelease tip and ring
Lbl RES-1 -> {r1}rRepeat {r1}r != -1 and ({r1}r != 255) or getkey(15)Send(r2,10)Get->{r1}rEndSend(r3,50)Pause 1Return
RES(°A, 1, 2)
Code: [Select]{r1}r != -1 and ({r1}r != 255)
{r1}r != -1 and ({r1}r != 255)