gt3398b@prism.gatech.EDU (DELANO,ANDREW DOUGLAS) (11/04/90)
Subject: Morse Code on the 48sx
Newsgroups: comp.sys.handhelds
Last night after having a couple of beers, I got bored and decided
to try my hand at a serial connecting cable. I got some pins out
of a shoebox full of electrical junk I had been saving, some wire,
a 25 pin rs232, a soldering iron, a glue gun, a pinout diagram,
another beer, and some chips. After about 15 minutes I was left
with a mass of glue, wire, solder mess, but when I plugged it all
in, it worked (of course!!). Anyway, I'd repost my Morse Code
program for the 48sx in READY TO DOWNLOAD format. I know that it's
is really long, but it works quite well, and all you have to do is
download it. If you want to make a better one, please do, just
let me see the new version so maybe I can improve. If you like it
and use it, also let me know (nice to know somebody else likes
your programs). Anyway, have fun with the morse code, and if you
get bored, try making a cable, it's not very difficult, and it sure
does make hp48 life easy!
og_=0mre
To use the program, put a stri on the stack with what you want to
send (i.e. "SOS" caps only) and press ->MRS. If your beeper is on,
the 48 will beep the SOS equivilant and store a new string of *'s
and -'s under 'CODE' (ie "*** --- ***"). Any questions, please
email me.
here it is s
__________________________________________________________________________
k^k%%HP: T(3)A(D)F(.);
DIR
\->MRS
\<< \->STK ""
'CODE' STO
DO
CASE DUP
"A" SAME
THEN dot
bar end DROP " *- "
CSTO
END DUP
"B" SAME
THEN bar
dot dot dot end
DROP " -*** " CSTO
END DUP
"C" SAME
THEN bar
dot bar dot end
DROP " -*-* " CSTO
END DUP
"D" SAME
THEN bar
dot dot end DROP
" -** " CSTO
END DUP
"E" SAME
THEN dot
end DROP " * " CSTO
END DUP
"F" SAME
THEN dot
dot bar dot end
DROP " **-* " CSTO
END DUP
"G" SAME
THEN bar
bar dot end DROP
" --* " CSTO
END DUP
"H" SAME
THEN dot
dot dot dot end
DROP " **** " CSTO
END DUP
"I" SAME
THEN dot
dot end DROP " ** "
CSTO
END DUP
"J" SAME
THEN dot
bar bar bar end
DROP " *--- " CSTO
END DUP
"K" SAME
THEN bar
dot bar end DROP
" -*- " CSTO
END DUP
"L" SAME
THEN dot
bar dot dot end
DROP " *-** " CSTO
END DUP
"M" SAME
THEN bar
bar end DROP " -- "
CSTO
END DUP
"N" SAME
THEN bar
dot end DROP " -* "
CSTO
END DUP
"O" SAME
THEN bar
bar bar end DROP
" --- " CSTO
END DUP
"P" SAME
THEN dot
bar bar dot end
DROP " *--* " CSTO
END DUP
"Q" SAME
THEN bar
bar dot bar end
DROP " --*- " CSTO
END DUP
"R" SAME
THEN dot
bar dot end DROP
" *-* " CSTO
END DUP
"S" SAME
THEN dot
dot dot end DROP
" *** " CSTO
END DUP
"T" SAME
THEN bar
end DROP " - " CSTO
END DUP
"U" SAME
THEN dot
dot bar end DROP
" **- " CSTO
END DUP
"V" SAME
THEN dot
dot dot bar end
DROP " ***- " CSTO
END DUP
"W" SAME
THEN dot
bar bar end DROP
" *-- " CSTO
END DUP
"X" SAME
THEN bar
dot dot bar end
DROP " -**- " CSTO
END DUP
"Y" SAME
THEN bar
dot bar bar end
DROP " -*-- " CSTO
END DUP
"Z" SAME
THEN bar
bar dot dot end
DROP " --** " CSTO
END DUP
" " SAME
THEN end
end end DROP "SPC"
CSTO
END DUP
"1" SAME
THEN dot
bar bar bar bar end
DROP " *---- " CSTO
END DUP
"2" SAME
THEN dot
dot bar bar bar
DROP " **--- " CSTO
END DUP
"3" SAME
THEN dot
dot dot bar bar end
DROP " ***-- " CSTO
END DUP
"4" SAME
THEN dot
dot dot dot bar end
DROP " ****- " CSTO
END DUP
"5" SAME
THEN dot
dot dot dot dot end
DROP " ***** " CSTO
END DUP
"6" SAME
THEN bar
dot dot dot dot end
DROP " -**** " CSTO
END DUP
"7" SAME
THEN bar
bar dot dot dot end
DROP " --*** " CSTO
END DUP
"8" SAME
THEN bar
bar bar dot dot end
DROP " ---** " CSTO
END DUP
"9" SAME
THEN bar
bar bar bar dot end
DROP " ----* " CSTO
END DUP
"0" SAME
THEN bar
bar bar bar bar end
DROP " ----- " CSTO
END DUP
"." SAME
THEN dot
bar dot bar dot bar
end DROP " *-*-*- "
CSTO
END DUP
"," SAME
THEN bar
bar dot dot bar bar
end DROP " --**-- "
CSTO
END
END
UNTIL DEPTH 0
==
END
\>>
ALPH ""
CODE ""
\->STK
\<< 'ALPH' STO
ALPH SIZE 'B' STO
DO ALPH B DUP
SUB B 1 - 'B' STO
UNTIL B 0 ==
END 'B' PURGE
\>>
bar
\<< 660 .25 BEEP
.01 WAIT
\>>
dot
\<< 660 .125 BEEP
.01 WAIT
\>>
end
\<< .025 WAIT
\>>
CSTO
\<< CODE SWAP +
'CODE' STO
\>>
END
--
DELANO,ANDREW DOUGLAS
Georgia Institute of Technology, Atlanta Georgia, 30332
uucp: ...!{decvax,hplabs,ncar,purdue,rutgers}!gatech!prism!gt3398b
Internet: gt3398b@prism.gatech.edu