list p=16f1826 #include errorlevel -302 ; __CONFIG _CONFIG1, _FOSC_INTOSC & _WDTE_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _BOREN_OFF ; __CONFIG _CONFIG2, _WRT_OFF & _PLLEN_OFF & _STVREN_OFF & _LVP_OFF ; __config _CONFIG1, _FOSC_INTOSC & _WDTE_OFF & _PWRTE_ON & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOREN_ON & _CLKOUTEN_OFF & _IESO_OFF & _FCMEN_OFF ; __config _CONFIG2, _WRT_OFF & _PLLEN_ON & _STVREN_ON & _BORV_25 & _LVP_OFF __config _CONFIG1, _FOSC_INTOSC & _WDTE_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _BOREN_OFF & _CLKOUTEN_OFF & _IESO_OFF & _FCMEN_OFF __config _CONFIG2, _PLLEN_OFF & _LVP_OFF & _STVREN_OFF CBLOCK 0X20 T1,T2,T3 DIV1,DIV2,DIV3,DIV4 BCDL,BCDM,BCDH,BIN1,BIN ANSEL SKIP ;& _BORV_25 ENDC #INCLUDE "paka_all.asm" #INCLUDE "disdriver.asm" #DEFINE PA PORTA #DEFINE PB PORTB #DEFINE DIG1 PA,0 #DEFINE DIG2 PA,1 #DEFINE DIG3 PA,7 #DEFINE DIG4 PA,6 #DEFINE ON PA,5 #DEFINE STBY PA,4 _0 EQU B'11111010' _1 EQU B'01000010' _2 EQU B'10101110' _3 EQU B'11001110' _4 EQU B'01010110' _5 EQU B'11011100' _6 EQU B'11111100' _7 EQU B'01001010' _8 EQU B'11111110' ;OK D,C,E,F,A,G,B,0 _9 EQU B'11011110' _FOK EQU B'00011111' ; >>> INIT <<< ;*---------------------------------------------------------------------- ;*---------------------------------------------------------------------- BANKSEL OSCCON MOVLW B'01101000' MOVWF OSCCON BANKSEL TRISA MOVLW B'00111100' MOVWF TRISA BANKSEL TRISB MOVLW B'00000000' MOVWF TRISB ;DISPLAY LOOP BANKSEL PORTB ;*---------------------------------------------------------------------- ;*---------------------------------------------------------------------- PAKA_DISPLAY_DRIVER ;>>> MACRO <<< ;*---------------------------------------------------------------------- ;*---------------------------------------------------------------------- ;AD_LOOP BANKSEL ADCON1 MOVLW B'11110000' MOVWF ADCON1 BANKSEL ANSELA BSF ANSELA,2 BANKSEL ADCON0 MOVLW B'00001001' MOVWF ADCON0 CALL sample_time BSF ADCON0,ADGO WT BTFSC ADCON0,ADGO GOTO WT MOVFW ADRESL BANKSEL PORTB MOVWF BIN1 ;*---------------------------------------------------------------------- ;*---------------------------------------------------------------------- BCD_SEVEN_SEGMENT_SUB ;>>> MACRO <<< ;*---------------------------------------------------------------------- ;*---------------------------------------------------------------------- _CELSIUS MOVLW _FOK MOVWF DIV1 ;>>> CELSIUS <<< CLRF BCDL CLRF BCDH ;>>> CLEAN <<< CLRF BCDM GOTO LOOP ;>>> JUMP BACK <<< ;*---------------------------------------------------------------------- ;*---------------------------------------------------------------------- ;>>> PROGRAM END <<< ;*---------------------------------------------------------------------- ;*---------------------------------------------------------------------- ;>>> SUBRITIN'S <<< ;kontraszt <<< DY MOVLW .40 MOVWF T1 DOWN DECFSZ T1,F GOTO DOWN RETURN ;*---------------------------------------------------------------------- ;*---------------------------------------------------------------------- sample_time MOVLW .255 MOVWF T2 DOWN1 DECFSZ T2,F GOTO DOWN1 RETURN END ;>>> ALL END <<< ;*---------------------------------------------------------------------- ;*----------------------------------------------------------------------