Searching \ for '[PIC] Morse speed -- 11 instructions!' in subject line. ()
Make payments with PayPal - it's fast, free and secure! Help us get a faster server
FAQ page: www.piclist.com/techref/microchip/devices.htm?key=pic
Search entire site for: 'Morse speed -- 11 instructions!'.

Exact match. Not showing close matches.
PICList Thread
'[PIC] Morse speed -- 11 instructions!'
2007\03\19@161745 by Steve Smith

flavicon
face

11 instructions I think (expanding on bobs example)

movwf bits
loop:
rlf bits,f
skpnz
ret

; cy is 0 for a DIT, 1 for  a DAH, so...
Skpnc                        ; carry is valid from the rotate
Bsf delay_count,1        ; delay is 2 or 0
; bsf delay_count,0 ; delay_count=1
; rlf delay,f  ; delay_count=1 or 3
bsf portb,1  ; turn on tone generator
call delay_routine_1
bcf portb,1  ; turn off tone generator
; bsf delay,1  ; delay_count=1
call delay_routine_1
bra loop


Delay_routine_1
Incf        delay,f
Delay....

I think it works
Steve


{Original Message removed}

More... (looser matching)
- Last day of these posts
- In 2007 , 2008 only
- Today
- New search...