Download Microcontroller-Based PC Thermometer with Regulated Fan

;*****************************
******************************
*****************
Get_Fan:
clrf
Fan
bcf
;
;
btfss STATUS,C
;
goto
;
Get_Fan_A
movwf Fan
Inc_PWM:
;
incf
;
;
subwf PWM_Count,W
btfss STATUS,C
;
movlw D'15'
PWM_Count,F
;
STATUS,C
Fan,F
PORTE,2
movlw D'16'
goto
rrf
;
;
subwf Temp_BIN,W
bcf
PWM_OFF:
;
Inc_PWM
;
movlw D'25'
Get_Fan_A:
;
goto
clrf
;
Do_PWMX
;
PWM_Count
;
;
;
subwf Fan,W
;
Do_PWMX:
btfss STATUS,C
;
goto
;
;*****************************
******************************
*****************
Get_FanX
movlw D'15'
;
movwf Fan
;
Get_FanX:
return
Disp_Data:
;
return
movlw LCD_RAM_Buf
addlw D'8'
;
;*****************************
******************************
*****************
movwf FSR
bsf
FSR,7
;
;
addlw H'30'
btfss STATUS,C
;
movwf INDF
PWM_OFF
PORTE,2
;
;
;
;
bsf
;
andlw H'0F'
subwf Fan,W
PWM_ON:
;
;
swapf Temp_Curr,W
Do_PWM:
movf
PWM_Count,W
;
goto
;
incf FSR,F
;
;
movf Temp_Curr,W
andlw H'0F'
;
;