'433TXCW.BAS 433MHz Picaxe 08M ISM tx driver. Stan.Swan=> s.t.swan@massey.ac.nz  12/9/05
'Tones etc applied via ~100nF cap from output ch.1 to input pin of 434MHz ASK Tx,with 10k
'pullup,yields audio modulation on output RF! For TUNEs use Picaxe-0M ch.2 of course
'On 4.5V supply draws ~11mA with Jaycar TX,& ~.25mA when sleeping (~.1mA from 10k pullup)
'Jaycar Tx seems to draw ~8mA of that = easily handled by ch.4 switching !
'Schematic => www.picaxe.orcon.net.nz/434tx.gif 
'Suggested PICNIK2 breadboard layout=>www.picaxe.orcon.net.nz/picaxtx1.jpg & picaxtx2.jpg
'
'Although now near obsolete for messages,International Morse Code (CW) still has wide 
'beacon use etc since decoding can be via eye or ear. Even unskilled observers can thus 
'"read" simple IDs & status at just a few (5?)words per minute.  Morse chs.are...
'
' A  .-		B  -...		C  -.-.		D  -..		E .		F ..-.
' G  --.	H ....		I  ..		J  .---		K -.-		L .-..
' M  --		N -.		O  ---		P .--.		Q --.-		R .-.
' S  ...	T -		U  ..-		V ...-		W .--		X -..-
' Y -.--	Z --..		1 .----		2 ..---		3 ...--	4 ....-
' 5 .....	6 -....		7 --...		8 ---..		9 ----.	0 -----
' Full stop .-.-.-		Comma --..--	Slash -....-		
'
'By tradition 1 dah/dash =3 dits/dots with letter space =3 dits & word spacing 6 dits
'Much longer Morse messages (~70 chs) can be more efficiently defined- Ref SiCh Aug.2003
'*************************************************************************************
'Program begins. Morse elements are SYMBOL redefined for flexibility
Symbol tone = 90	'set tone frequency (range 20 -127 )
Symbol quiet = 0	'set quiet tone (0= silence)
Symbol gap   = 14	'set quiet period (140 millisecs also)
Symbol lspace = 42	'set quiet period length between letters (420mS also)
Symbol wspace = 84	'set space between words (840 mS = 2 dashes, 6 dots)
Symbol dit = 14		'set dit (dot) length    (140 milliseconds)- yields ~5wpm
Symbol dah = 42		'set dah (dash) length	 (420 mS = 3 dots long)
 		

morsehi:	 'morse ID routine -modify to suit your needs.Here just ..../..   (HI) 
high 4  	 'turns on tx supply
wait 1  	 '1 second "warm up" delay

sound 1,(tone,dit,quiet,gap,tone,dit,quiet,gap,tone,dit,quiet,gap,tone,dit) 'H
sound 1,(quiet,lspace)							    'letter space
sound 1,(tone,dit,quiet,gap,tone,dit)					    'I

wait 1 	 		' 1 second tail before Tx switch off	
low 4		 	' remove supply voltage from Tx 
sleep 4	 		' Picaxe low power snooze 4 x 2.3 = ~9 seconds	
goto morsehi 		' endlessly loop