Just testing...
Copy/Paste from Programmers Notepad
Code:
' 12F675
' 09/05/2011
DEFINE OSC 4
' SET FOR INTERNAL OSC AND MCLRE OFF
#CONFIG
__config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _CP_OFF
#ENDCONFIG
ANSEL=%00000000 ' ADC SET FOR DIGITAL
CMCON=7 ' COMPARATOR SET FOR DIGITAL
SWITCH_OFF VAR GPIO.1 ' PUSH BUTTON FOR PUMP OFF
SWITCH_RUN VAR GPIO.2 ' PUSH BUTTON FOR PUMP ON
LED_RUN VAR GPIO.0 ' INDICATE RUN SIGNAL SENT
LED_OFF VAR GPIO.5 ' INDICAT STOP SIGNAL SENT
TX VAR GPIO.4 ' DATA SEND PIN
BAUD CON 18030 ' 18030 = 600 BAUD
START: ' SEND OFF SIGNAL AT POWER UP
PAUSE 1000
HIGH LED_OFF
SEROUT2 TX, BAUD,["OFF",13]
DO ' LOOP TO CHECK PUSH BUTTONS
DO WHILE SWITCH_RUN = 1 ' CHECK ON PUSH BUTTON
' IF BUTTON PUSHED
HIGH LED_RUN ' RUN INDICATOR ON
LOW LED_OFF ' OFF INDICATOR OFF
PAUSE 50 ' SETTLE TIME
SEROUT2 TX, BAUD,["RUN",13]
' SEROUT2 TX, BAUD,[HEX CNT,13]
LOOP
DO WHILE SWITCH_OFF = 1 ' CHECK OFF PUSH BUTTON
' IF BUTTON PUSHED
HIGH LED_OFF ' OFF INDICATOR ON
LOW LED_RUN ' RUN INDICATOR OFF
PAUSE 50 ' SETTLE TIME
SEROUT2 TX, BAUD,["OFF",13]
' SEROUT2 TX, BAUD,[DEC CNT,13]
LOOP
LOOP
Copy/Paste from MCS
Code:
' 12F675
' 09/05/2011
DEFINE OSC 4
' SET FOR INTERNAL OSC AND MCLRE OFF
#CONFIG
__config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _CP_OFF
#ENDCONFIG
ANSEL=%00000000 ' ADC SET FOR DIGITAL
CMCON=7 ' COMPARATOR SET FOR DIGITAL
SWITCH_OFF VAR GPIO.1 ' PUSH BUTTON FOR PUMP OFF
SWITCH_RUN VAR GPIO.2 ' PUSH BUTTON FOR PUMP ON
LED_RUN VAR GPIO.0 ' INDICATE RUN SIGNAL SENT
LED_OFF VAR GPIO.5 ' INDICAT STOP SIGNAL SENT
TX VAR GPIO.4 ' DATA SEND PIN
BAUD CON 18030 ' 18030 = 600 BAUD
START: ' SEND OFF SIGNAL AT POWER UP
PAUSE 1000
HIGH LED_OFF
SEROUT2 TX, BAUD,["OFF",13]
DO ' LOOP TO CHECK PUSH BUTTONS
DO WHILE SWITCH_RUN = 1 ' CHECK ON PUSH BUTTON
' IF BUTTON PUSHED
HIGH LED_RUN ' RUN INDICATOR ON
LOW LED_OFF ' OFF INDICATOR OFF
PAUSE 50 ' SETTLE TIME
SEROUT2 TX, BAUD,["RUN",13]
' SEROUT2 TX, BAUD,[HEX CNT,13]
LOOP
DO WHILE SWITCH_OFF = 1 ' CHECK OFF PUSH BUTTON
' IF BUTTON PUSHED
HIGH LED_OFF ' OFF INDICATOR ON
LOW LED_RUN ' RUN INDICATOR OFF
PAUSE 50 ' SETTLE TIME
SEROUT2 TX, BAUD,["OFF",13]
' SEROUT2 TX, BAUD,[DEC CNT,13]
LOOP
LOOP
Bookmarks