;
PROGRAM FUNCTION:A bicycle speedometer and mileometer.
;************************************************* ******************
; Busy PORTS:
; RA5, RB6, RB7
;************************************************* ******************
list P=16F628A
include <P16F628A.inc>
__config _BODEN_OFF & _BOREN_OFF & _CP_OFF & _DATA_CP_OFF & _PWRTE_ON & _WDT_OFF & _LVP_OFF & _MCLRE_OFF & _HS_OSC
errorlevel -302, -207
movlw 0x07
movwf CMCON
banksel TRISA
clrf TRISA
movlw b'11111111'
movwf TRISB
movlw b'00100100'
movwf TXSTA
banksel PORTA
movlw 0xFF
movwf PORTA
movlw b'10010000'
movwf RCSTA
BANKSEL SPBRG
movlw d'25'
movwf SPBRG
BANKSEL PORTA
movlw 'P'
movwf TXREG
btfss PIR1, RCIF ;test for receive interrupt flag,
;indicating receive complete
goto $-1
END