loop

push counter

jb IR $ ; wait until the IR sends a beam.....

djnz counter,$

mov c,IR ; capture IR

call delay ; to allow you to release the button

jc high

mov A,#'0' ; the pulse was low
sjmp record

high

mov A,#'1' ; the pulse was high

record
call send ; show pulse 1 or 0 on screen

POP counter
..
.
.
.
.
.
.
Simon