; 12F675 A/D 変換、電圧の値でLEDを点灯する
;---------A/DWork
ADCON
BCF STATUS,RP0 ;Bank1
MOVLW B'00001100' ;ADFM = 0 , VCFG = 0 VDD , CHS1:CHS0 AN3 , GO = 0 , ADON = 0
MOVWF ADCON0 ;
BSF ADCON0,ADON ;
CALL TIMER1 ;
BSF ADCON0,GO ;
BTFSC ADCON0,GO ;
GOTO $ - 1 ;
BCF ADCON,ADON ;
MOVF ADRESH,w ;
CLRF LED ;
CALL EEPROM ;
CALL EEPROML ;
; 3.4v H'54'
; 2.8v H'72'
; 1.6v H'AF'
; 0.6v H'DF'
;MOVLW H'2' ;
;MOVWF ADRESH ;
MOVF ADRESH,w ;
SUBLW H'FF' ;
BTFSS STATUS,C ;
GOTO $ + 3 ;
MOVLW B'00100011' ; 4v -5v
MOVWF LED ;
MOVF ADRESH,w ;
SUBLW H'CC' ;
BTFSS STATUS,C ;
GOTO $ + 3 ;
MOVLW B'00100001' ; 3v -4v
MOVWF LED ;
MOVF ADRESH,w ;
SUBLW H'99' ;
BTFSS STATUS,C ;
GOTO $ + 3 ;
MOVLW B'00000111' ; 2v -3v
MOVWF LED ;
MOVF ADRESH,w ;
SUBLW H'66' ;
BTFSS STATUS,C ;
GOTO $ + 3 ;
MOVLW B'00000011' ; 1v -2v
MOVWF LED ;
MOVF ADRESH,w ;
SUBLW H'33' ;
BTFSS STATUS,C ;
GOTO $ + 3 ;
MOVLW B'00000001' ; 0v -1v
MOVWF LED ;
NOP
MOVF LED,w ;
MOVWF GPIO ;
BCF STATUS,RP0 ;
CALL TIMER3 ;
RETURN ;
