Morse Code ID''er
Archiver
Posts: 46,084
Try the code below. I think you can figure out my super secret encoding
scheme.
This is a past project of the month, and also appears in my Basic Stamp
book. Also in the book is a bigger version that has an external EEPROM for
storage, and an iambic keyer. If you look in the document library, you'll
also find a CW keyboard using an IBM PC keyboard and a Stamp.
Regards,
Al Williams
AWC
* Floating point A/D
http://www.al-williams.com/awce/pak9.htm
' CW Ider by WD5GNR
spkr con 7
key con 8
ptt con 9
mindelay con 5 ' 5 minutes
pttdelay con 50 ' delay to let transmitter key
ditlen con 100 ' set morse code speed
f con 1000 ' frequency for speaker
addr var byte
dotdash var byte
i var byte
output spkr
output key
output ptt
' Code to send (end with zero byte)
id data "-.. . .-- -.. ..... --. -. .-.",0
high ptt ' unkey xmit
high key ' unkey cw keying
top:
addr=id
low ptt ' key transmitter
pause pttdelay 'wait for xmit to settle
loop:
read addr, dotdash ' get code element
addr=addr+1
' element must be 0 (end), blank, dot, or dash
if dotdash=0 then wait1
if dotdash=" " then cspc
if dotdash="-" then dash
low key
freqout spkr, ditlen, f
high key
goto elspc
dash:
low key
freqout spkr, ditlen*3,f ' dash is 3*dit
high key
elspc: ' space each element
pause ditlen
goto loop
cspc: ' space between characters
pause ditlen*4
goto loop
wait1: ' done! wait for next time
pause pttdelay
high ptt
for i=1 to mindelay
pause 60000 ' 60 seconds
next
goto top ' do it again!
>
Original Message
> From: admin@c... [noparse]/noparse]mailto:[url=http://forums.parallaxinc.com/group/basicstamps/post?postID=BZV_OIdpMUBxyvw46EkR1Rl7geGEqrkbLIGIrfY-WdD1JLtLM319a2ZysV4-VtuRelsiBCdNbckFSC8]admin@c...[/url
> Sent: Wednesday, August 08, 2001 6:53 AM
> To: basicstamps@yahoogroups.com
> Subject: [noparse][[/noparse]basicstamps] Morse Code ID'er
>
>
> Has anyone made a morse code id for the BS2?
> Looking to get lazy'r, output from the stamp 2 my call sign every 10
> minutes.
> Al, I looked at your site and others but again not much out there.
> Thanks again
> 73
> Chet KA1ILH
>
>
> To UNSUBSCRIBE, just send mail to:
> basicstamps-unsubscribe@yahoogroups.com
> from the same email address that you subscribed. Text in the
> Subject and Body of the message will be ignored.
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
scheme.
This is a past project of the month, and also appears in my Basic Stamp
book. Also in the book is a bigger version that has an external EEPROM for
storage, and an iambic keyer. If you look in the document library, you'll
also find a CW keyboard using an IBM PC keyboard and a Stamp.
Regards,
Al Williams
AWC
* Floating point A/D
http://www.al-williams.com/awce/pak9.htm
' CW Ider by WD5GNR
spkr con 7
key con 8
ptt con 9
mindelay con 5 ' 5 minutes
pttdelay con 50 ' delay to let transmitter key
ditlen con 100 ' set morse code speed
f con 1000 ' frequency for speaker
addr var byte
dotdash var byte
i var byte
output spkr
output key
output ptt
' Code to send (end with zero byte)
id data "-.. . .-- -.. ..... --. -. .-.",0
high ptt ' unkey xmit
high key ' unkey cw keying
top:
addr=id
low ptt ' key transmitter
pause pttdelay 'wait for xmit to settle
loop:
read addr, dotdash ' get code element
addr=addr+1
' element must be 0 (end), blank, dot, or dash
if dotdash=0 then wait1
if dotdash=" " then cspc
if dotdash="-" then dash
low key
freqout spkr, ditlen, f
high key
goto elspc
dash:
low key
freqout spkr, ditlen*3,f ' dash is 3*dit
high key
elspc: ' space each element
pause ditlen
goto loop
cspc: ' space between characters
pause ditlen*4
goto loop
wait1: ' done! wait for next time
pause pttdelay
high ptt
for i=1 to mindelay
pause 60000 ' 60 seconds
next
goto top ' do it again!
>
Original Message
> From: admin@c... [noparse]/noparse]mailto:[url=http://forums.parallaxinc.com/group/basicstamps/post?postID=BZV_OIdpMUBxyvw46EkR1Rl7geGEqrkbLIGIrfY-WdD1JLtLM319a2ZysV4-VtuRelsiBCdNbckFSC8]admin@c...[/url
> Sent: Wednesday, August 08, 2001 6:53 AM
> To: basicstamps@yahoogroups.com
> Subject: [noparse][[/noparse]basicstamps] Morse Code ID'er
>
>
> Has anyone made a morse code id for the BS2?
> Looking to get lazy'r, output from the stamp 2 my call sign every 10
> minutes.
> Al, I looked at your site and others but again not much out there.
> Thanks again
> 73
> Chet KA1ILH
>
>
> To UNSUBSCRIBE, just send mail to:
> basicstamps-unsubscribe@yahoogroups.com
> from the same email address that you subscribed. Text in the
> Subject and Body of the message will be ignored.
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>