OVERTEMP
MOVFW PORTC
MOVWF OVERT_TEMP ;SAVE PORTC VALUES FOR LATER
OTLOOP MOVLW B'10001111' ;TURN ON FAN, SHUT OFF FUEL PUMP, TURN OFF ACCESSORIES, AND TURN ON ALL LEDS
MOVWF CTEMP
MOVWF PORTC ;
CALL DELAY2 ;
BCF PORTC,0
CALL DELAY2
MOVFW CTEMP
CALL DELAY2
BCF PORTC,0
CALL DELAY2
CALL ADREAD0
BCF STATUS,C
ADDWF HOT,0
BTFSS STATUS,C
GOTO OTLOOP
MOVFW OVERT_TEMP ;RETURN PREVIOUS PORTC VALUES TO PORTC
MOVWF CTEMP
MOVFW CTEMP
MOVWF PORTC
RETURN
ADREAD0
movlw b'10000001' ;osc set to 32, ch 0 and turn on ad
movwf adcon0 ;adcon1 set to b'00001100'-left just.
convert0 call sampledelay
;
bsf adcon0,2 ;start conversion
loopad0 btfsc adcon0,2 ;ad over
goto loopad0 ;no then loop
movfw adresh ;yes then get ad value
MOVWF ADTEMP0 ;TEMP FILE FOR OTHER USE
return