Hi mackrackit,
How does this look? It works but is it what you were after?
Code:
ANSEL = %00000000 'Disable analog select so ports work as digital i/o.
CMCON0 = %00000111 'Disable analog comparators.
TRISA = %00000000 'Set PORTA as OUTPUT.
PORTA = %00000000 'Set PORTA pins all low.
TRISC = %00000000 'Set PORTC as OUTPUT.
PORTC = %00000000 'Set PORTC pins all low.
DEFINE OSC 4
NUM1 VAR BYTE
NUM2 VAR BYTE
TOTAL VAR BYTE
i var byte
MAIN:
PAUSE 250
SERIN2 PORTC.5, 16780,[WAIT ("N1="), DEC NUM1] 'MODE 16780 = 2400 BAUD INVERTED
PAUSE 2000
HIGH PORTA.5
PAUSE 2000
LOW PORTA.5
SERIN2 PORTC.5, 16780,[WAIT ("N2="), DEC NUM2]
HIGH PORTA.5
LET TOTAL = NUM1 + NUM2
PAUSE 2000
low PORTA.5
pause 250
SEROUT2 PORTC.3, 16780, [DEC TOTAL, 10, 13] 'OUTPUT IN DEC 'TOTAL' 10=L_FEED 13=C_RETURN
pause 2000
GOTO MAIN
Dave
Bookmarks