'TTT serial PWM checkout

' ===Constants and pin assignments
SPKR	con	12
N9600	con	84
SPWM	con	7

' ===Variables
ct	var	byte

main:	high PWM			'Make sure serial line high
					'check out the speaker
freqout SPKR,400,note

begin:
serout SPWM,N9600,[128]			'twiddle direction bits
pause 300
serout SPWM,N9600,[129]	
pause 300
serout SPWM,N9600,[130]	
pause 300
serout SPWM,N9600,[131]	
pause 300
serout SPWM,N9600,[0]			'turn motor off
pause 2000
gain:'
for ct = 20 to 127 step 3		'cycle motor up then down
    serout SPWM,N9600,[ct]	
    pause 100
next
for ct = 127 to 0 step 3
    serout SPWM,N9600,[ct]	
    pause 100
next

stop
end