;******************************************************************************* LIST P=PIC18F14K22 ;lista megadása INCLUDE ;includde fájlok megadása RADIX hex ;alapértelmezet számrendszer megadása CONFIG FOSC = IRC ;bels? oszcillátor CONFIG WDTEN = OFF ;watchdog kikapcsolása CONFIG LVP = OFF ;alacsony feszültség? programozás kikapcsolva CONFIG MCLRE = OFF ;RA3 bemenetkénti használatra állítása CBLOCK 0x0050 PERC PERCERTEK ORA ORAERTEK SEC KARAKTER SZOVEGHOSSZ ASCII CIKLUS SORSZAM NEM_PEREG SZINKRON SZINKRON2 KSZ FF_SZAM LSZ SZJ SZJ_T MB ENDC #define LED LATA,1 #define DISPLAY LATA,2 #define ENABLE LATC,2 #define ADAT BSF LATC,1 #define UTASITAS BCF LATC,1 #define ADAT7 LATC,0 #define ADAT6 LATB,6 #define ADAT5 LATB,5 #define ADAT4 LATB,4 #define KIJELZO_ON MB,1 #define MEGJELENITES MB,3 #define ORAT_ALLIT MB,5 #define PERCET_ALLIT MB,7 #define BEALL_NYOMVA MB,6 #define KILEPES MB,4 DELAY MACRO SZAML_START MOVFF SZINKRON,SZINKRON2 MOVLW SZAML_START MOVWF KSZ DECFSZ KSZ GOTO $-2 DECFSZ SZINKRON2 GOTO $-0C ENDM org 0x0000 NOP GOTO INICIALIZALAS org 0x0008 NOP GOTO MEGSZAKITAS org 0x0028 ; program memória kezd? címe NOP INICIALIZALAS CLRF LATA CLRF LATB CLRF LATC CLRF ANSEL CLRF ANSELH CLRF ADCON0 CLRF INTCON2 MOVLW B'00001000' MOVWF TRISA MOVWF WPUA MOVLW B'10000000' MOVWF TRISB MOVLW B'11101000' MOVWF TRISC MOVLW B'01010000' ; oszcillátor frekvenciája <4:6> MOVWF OSCCON ; 111 = 16, 110 = 8, 101 = 4, 100 = 2 MHz MOVLW B'10000000' ; timer 0 beállítása, el?osztó <2:0> MOVWF T0CON ;------------------------------------------------- ;Megszakítás beállítása MOVLW B'01001111' ; timer 1 beállítása, el?osztó <5:4> MOVWF T1CON MOVLW B'11000000' ; megszakítás bekapcsolása MOVWF INTCON ; BSF PIE1,TMR1IE ; TMR1IE 1-be állítása (PIE1 regiszter ; TMR1IE bitje TMR1 túlcsordulásakor ; megszakítást engedélyez?/tiltó bit) BSF IPR1,TMR1IP ; TMR1IP 1-be állítása (IPR1 regiszter ; TMR1IP bitje a megszakítás prioritását ; állítja be. (alacsony/magas)) ;------------------------------------------------- CLRF MB CLRF SEC CLRF PERC CLRF ORA INCF ORA CLRF NEM_PEREG ;------------------------------------------------------------------------------- MAIN BTFSC PORTC,3 GOTO MUKODJ CLRF LATA CLRF LATB CLRF LATC CLRF MB SLEEP NOP NOP GOTO MAIN MUKODJ BTFSC PORTC,5 BSF MEGJELENITES NOP BTFSS MEGJELENITES GOTO MAIN BTFSC KIJELZO_ON GOTO MUKODJ_1 CALL LCD BSF KIJELZO_ON GOTO SZAMOLAS MUKODJ_1 BTFSC ORAT_ALLIT GOTO BEALLITAS BTFSC PORTC,7 GOTO MUKODJ_2 BSF ORAT_ALLIT BSF BEALL_NYOMVA GOTO BEALLITAS MUKODJ_2 UTASITAS MOVLW B'00011000' CALL KIIRAS MOVLW .25 MOVWF CIKLUS WAIT DELAY D'250' DECFSZ CIKLUS GOTO WAIT DECFSZ SZOVEGHOSSZ GOTO MAIN CLRF LATA CLRF LATB CLRF LATC CLRF MB GOTO MAIN ;-----------Id? lebontása, szöveg létrehozása, áttöltés a kijelz?be.------------ SZAMOLAS MOVFF ORA,ORAERTEK MOVFF PERC,PERCERTEK MOVLW .12 CPFSEQ ORAERTEK GOTO $+6 CLRF ORAERTEK RLNCF ORAERTEK RLNCF ORAERTEK MOVLW .8 CPFSLT PERCERTEK GOTO $+6 GOTO PERCSZAMOLO MOVLW .23 CPFSLT PERCERTEK GOTO $+.12 MOVLW .1 ADDWF ORAERTEK,F GOTO PERCSZAMOLO MOVLW .38 CPFSLT PERCERTEK GOTO $+.12 MOVLW .2 ADDWF ORAERTEK,F GOTO PERCSZAMOLO MOVLW .53 CPFSLT PERCERTEK GOTO $+.12 MOVLW .3 ADDWF ORAERTEK,F GOTO PERCSZAMOLO MOVLW .4 ADDWF ORAERTEK,F PERCSZAMOLO MOVLW .44 CPFSGT PERCERTEK GOTO $+8 MOVLW .45 SUBWF PERCERTEK,F MOVLW .29 CPFSGT PERCERTEK GOTO $+8 MOVLW .30 SUBWF PERCERTEK,F MOVLW .14 CPFSGT PERCERTEK GOTO $+8 MOVLW .15 SUBWF PERCERTEK,F ;----------------- CLRF FSR0H CLRF FSR0L INCF FSR0L MOVLW .60 MOVWF CIKLUS TORLES MOVLW 0x20 MOVWF POSTINC0 DECFSZ CIKLUS GOTO TORLES CLRF FSR0H MOVLW .8 MOVWF FSR0L MOVWF SZOVEGHOSSZ CLRF KARAKTER PERCSZOVEG_BEOLVASASA NOP CLRF FF_SZAM CLRF TBLPTRU ;Betölti a táblázatkezel?be óra szövegtár MOVLW LOW PERCLISTA ;kezd?pontjának címét. MOVWF TBLPTRL MOVLW HIGH PERCLISTA MOVWF TBLPTRH KERESES_1 MOVF FF_SZAM,W CPFSEQ PERCERTEK GOTO $+6 GOTO KIOLVAS_1 TBLRD*+ MOVLW 0xFF CPFSEQ TABLAT GOTO KERESES_1 INCF FF_SZAM GOTO KERESES_1 KIOLVAS_1 TBLRD*+ MOVFF TABLAT,ASCII MOVLW 0xFF CPFSEQ ASCII GOTO $+6 GOTO PERCSZOVEG_BEOLVASVA CALL KARAKTER_RAMBA GOTO KIOLVAS_1 PERCSZOVEG_BEOLVASVA MOVF KARAKTER,W ADDWF SZOVEGHOSSZ CLRF KARAKTER ORASZOVEG_BEOLVASASA NOP CLRF FF_SZAM CLRF TBLPTRU ;Betölti a táblázatkezel?be óra szövegtár MOVLW LOW ORALISTA ;kezd?pontjának címét. MOVWF TBLPTRL MOVLW HIGH ORALISTA MOVWF TBLPTRH KERESES_2 MOVF FF_SZAM,W CPFSEQ ORAERTEK GOTO $+6 GOTO KIOLVAS_2 TBLRD*+ MOVLW 0xFF CPFSEQ TABLAT GOTO KERESES_2 INCF FF_SZAM GOTO KERESES_2 KIOLVAS_2 TBLRD*+ MOVFF TABLAT,ASCII MOVLW 0xFF CPFSEQ ASCII GOTO $+6 GOTO ORASZOVEG_BEOLVASVA CALL KARAKTER_RAMBA GOTO KIOLVAS_2 ORASZOVEG_BEOLVASVA MOVF KARAKTER,W ADDWF SZOVEGHOSSZ ;----Szöveg kijelz?be töltése.---------- SZ_K_J CLRF FSR0H CLRF FSR0L INCF FSR0L MOVLW .60 MOVWF CIKLUS UTASITAS MOVLW B'00000000' CALL KIIRAS ADAT BETOLT MOVF POSTINC0,W CALL KIIRAS DECFSZ CIKLUS GOTO BETOLT UTASITAS MOVLW B'00000010' CALL KIIRAS MOVLW B'00000111' CALL KIIRAS GOTO MAIN ;----------------------------- KARAKTER_RAMBA MOVLW 0x00 CPFSEQ ASCII GOTO $+6 RETURN MOVLW 0xE1 CPFSEQ ASCII GOTO $+8 MOVLW 0x00 MOVWF ASCII MOVLW 0xE9 CPFSEQ ASCII GOTO $+8 MOVLW 0x01 MOVWF ASCII MOVLW 0xED CPFSEQ ASCII GOTO $+8 MOVLW 0x02 MOVWF ASCII MOVLW 0xF3 CPFSEQ ASCII GOTO $+8 MOVLW 0x03 MOVWF ASCII MOVLW 0xF6 CPFSEQ ASCII GOTO $+8 MOVLW 0x04 MOVWF ASCII MOVLW 0xD6 CPFSEQ ASCII GOTO $+8 MOVLW 0x05 MOVWF ASCII MOVLW 0x3F CPFSEQ ASCII GOTO $+8 MOVLW 0x06 MOVWF ASCII MOVLW 0xFA CPFSEQ ASCII GOTO $+8 MOVLW 0x07 MOVWF ASCII MOVFF ASCII,POSTINC0 INCF KARAKTER RETURN BEALLITAS BTFSS BEALL_NYOMVA GOTO BE1 BTFSS PORTC,7 GOTO BEALLITAS INCFSZ NEM_PEREG GOTO BEALLITAS BCF BEALL_NYOMVA BE1 BTFSC PERCET_ALLIT GOTO BEALLITAS_2 BTFSC PORTC,7 GOTO $+8 BSF PERCET_ALLIT BSF BEALL_NYOMVA NOP BTFSC PORTB,7 GOTO B_1_A INCF ORA MOVLW .13 CPFSLT ORA DECF ORA GOTO B_1_B B_1_A BTFSC PORTC,6 GOTO B_1_B DECFSZ ORA GOTO B_1_B INCF ORA B_1_B MOVFF ORA,LSZ CALL LEBONTAS ADAT MOVLW " " CALL KIIRAS MOVLW "O" CALL KIIRAS MOVLW "r" CALL KIIRAS MOVLW "a" CALL KIIRAS MOVLW ":" CALL KIIRAS MOVF SZJ_T,W CALL KIIRAS MOVF SZJ,W CALL KIIRAS MOVLW " " CALL KIIRAS UTASITAS MOVLW B'00000010' CALL KIIRAS MOVLW .35 MOVWF CIKLUS WAIT2 DELAY D'250' DECFSZ CIKLUS GOTO WAIT2 GOTO BEALLITAS ;------------------ BEALLITAS_2 BTFSS BEALL_NYOMVA GOTO BE2 BTFSS PORTC,7 GOTO BEALLITAS_2 INCFSZ NEM_PEREG GOTO BEALLITAS_2 BCF BEALL_NYOMVA BE2 BTFSC PORTC,7 GOTO $+6 BSF KILEPES NOP BTFSS KILEPES GOTO BEALLITAS_21 BTFSS PORTC,7 GOTO BE2 INCFSZ NEM_PEREG GOTO BE2 BCF ORAT_ALLIT BCF PERCET_ALLIT BCF BEALL_NYOMVA BCF KILEPES GOTO SZAMOLAS BEALLITAS_21 NOP BTFSC PORTB,7 GOTO B_2_A INCF PERC MOVLW .60 CPFSLT PERC DECF PERC GOTO B_2_B B_2_A BTFSC PORTC,6 GOTO B_2_B DECF PERC BTFSC STATUS,C GOTO B_2_B INCF PERC B_2_B MOVFF PERC,LSZ CALL LEBONTAS ADAT MOVLW "P" CALL KIIRAS MOVLW "e" CALL KIIRAS MOVLW "r" CALL KIIRAS MOVLW "c" CALL KIIRAS MOVLW ":" CALL KIIRAS MOVF SZJ_T,W CALL KIIRAS MOVF SZJ,W CALL KIIRAS MOVLW " " CALL KIIRAS UTASITAS MOVLW B'00000010' CALL KIIRAS MOVLW .35 MOVWF CIKLUS WAIT3 DELAY D'250' DECFSZ CIKLUS GOTO WAIT3 GOTO BEALLITAS_2 ;------------------ LEBONTAS CLRF SZJ CLRF SZJ_T L_B INCF SZJ_T MOVLW .10 SUBWF LSZ,F BTFSC STATUS,C GOTO L_B MOVLW .10 ADDWF LSZ,F DECF SZJ_T MOVFF LSZ,SZJ MOVLW 0x30 ADDWF SZJ,F ADDWF SZJ_T,F RETURN ;-------------------------Kijelz? inicializálása-------------------------------- LCD NOP CLRF SZINKRON MOVF OSCCON,W RLNCF WREG RLCF WREG RLCF SZINKRON ;Késleltetés szinkronizálása az órajelhez. RLCF WREG RLCF SZINKRON RLCF WREG RLCF SZINKRON MOVLW 1 RLNCF WREG DECFSZ SZINKRON GOTO $-4 RRNCF WREG MOVWF SZINKRON ;------ BCF ENABLE ;Beírás tiltása BSF DISPLAY ;Kijelz? bekapcsolása BSF LED DELAY D'250' DELAY D'250' DELAY D'250' DELAY D'250' NOP UTASITAS ;Beállítjuk a kijelz? R/S bemenetét utasítás fogadására MOVLW B'00110000' ;Ez az utasítás 4x végrehajtva reseteli az LCD-t CALL KIIRAS0 CALL KIIRAS0 CALL KIIRAS0 CALL KIIRAS0 DELAY D'200' ;Némi kivárás után be kell állítani a kijelz?t. MOVLW B'00100000' CALL KIIRAS0 ;Itt kapcsolunk át 4 bites üzemmódra DELAY D'50' MOVLW B'00100000' ;Már 4 bites módban beállítjuk a CALL KIIRAS ; kijelz?t egysorsa DELAY D'50' MOVLW B'00001100' ;Kijelz? engedélyezése CALL KIIRAS DELAY D'50' ;Ékezetes karakterek feltöltése MOVLW B'01000000' ; Karaktergenerátor kezd?címe CALL KIIRAS ADAT MOVLW B'00000010' CALL KIIRAS MOVLW B'00000100' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00000001' CALL KIIRAS ;á MOVLW B'00001111' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS MOVLW B'00001111' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS ;----------------------------------- MOVLW B'00000010' CALL KIIRAS MOVLW B'00000100' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS ;é MOVLW B'00011111' CALL KIIRAS MOVLW B'00010000' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS ;----------------------------------- MOVLW B'00000010' CALL KIIRAS MOVLW B'00000100' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS MOVLW B'00001100' CALL KIIRAS ;í MOVLW B'00000100' CALL KIIRAS MOVLW B'00000100' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS ;----------------------------------- MOVLW B'00000010' CALL KIIRAS MOVLW B'00000100' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS ;ó MOVLW B'00010001' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS ;----------------------------------- MOVLW B'00000000' CALL KIIRAS MOVLW B'00001010' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS ;ö MOVLW B'00010001' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS ;----------------------------------- MOVLW B'00010001' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS ;Ö MOVLW B'00010001' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS ;----------------------------------- MOVLW B'00000101' CALL KIIRAS MOVLW B'00001010' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS ;? MOVLW B'00010001' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS ;----------------------------------- MOVLW B'00000010' CALL KIIRAS MOVLW B'00000100' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS ;ú MOVLW B'00010001' CALL KIIRAS MOVLW B'00010001' CALL KIIRAS MOVLW B'00001110' CALL KIIRAS MOVLW B'00000000' CALL KIIRAS ;----------------------------------- DELAY D'50' RETURN ;------------------------------------Kirás-------------------------------------- KIIRAS BCF INTCON,7 BTG LATA,0 MOVWF SORSZAM BCF ADAT7 BCF ADAT6 BCF ADAT5 BCF ADAT4 BTFSC SORSZAM,7 BSF ADAT7 BTFSC SORSZAM,6 BSF ADAT6 BTFSC SORSZAM,5 BSF ADAT5 BTFSC SORSZAM,4 BSF ADAT4 DELAY D'1' ;El? várakozás BSF ENABLE ;Beírás indul DELAY D'6' ;Kivárás BCF ENABLE ;Beírás vége DELAY D'1' BCF ADAT7 BCF ADAT6 BCF ADAT5 BCF ADAT4 BTFSC SORSZAM,3 BSF ADAT7 BTFSC SORSZAM,2 BSF ADAT6 BTFSC SORSZAM,1 BSF ADAT5 BTFSC SORSZAM,0 BSF ADAT4 DELAY D'1' ;El? várakozás BSF ENABLE ;Beírás indul DELAY D'6' ;Kivárás BCF ENABLE ;Beírás vége DELAY D'1' BCF ADAT7 BCF ADAT6 BCF ADAT5 BCF ADAT4 BSF INTCON,7 RETURN KIIRAS0 ;Kijelz? inicializálásánál csak ez használatos BCF INTCON,7 NOP BCF ADAT7 BCF ADAT6 BCF ADAT5 BCF ADAT4 BTFSC WREG,7 BSF ADAT7 BTFSC WREG,6 BSF ADAT6 BTFSC WREG,5 BSF ADAT5 BTFSC WREG,4 BSF ADAT4 DELAY D'1' ;El? várakozás BSF ENABLE ;Beírás indul DELAY D'6' ;Kivárás BCF ENABLE ;Beírás vége DELAY D'1' BCF ADAT7 BCF ADAT6 BCF ADAT5 BCF ADAT4 BSF INTCON,7 RETURN ;----------------------------------Megszaktás----------------------------------- MEGSZAKITAS BCF PIR1,TMR1IF BSF TMR1H,7 BTG LATC,4 INCF SEC MOVLW .59 CPFSGT SEC RETFIE CLRF SEC INCF PERC MOVLW .59 CPFSGT PERC RETFIE CLRF PERC INCF ORA MOVLW .12 CPFSGT ORA RETFIE CLRF ORA INCF ORA RETFIE ;--------------------------------Szöveg tároló---------------------------------- PERCLISTA DB "A pontos id? ",0xFF DB "Egy percel múlt ",0xFF DB "Kett? perccel múlt ",0xFF DB "Három perccel múlt ",0xFF DB "Négy perccel múlt ",0xFF DB "Öt perccel múlt ",0xFF DB "Hat perccel múlt ",0xFF DB "Hét perccel múlt ",0xFF DB "Hét perc múlva ",0xFF DB "Hat perc múlva ",0xFF DB "Öt perc múlva ",0xFF DB "Négy perc múlva ",0xFF DB "Három perc múlva ",0xFF DB "Kett? perc múlva ",0xFF DB "Egy perc múlva ",0xFF ORALISTA DB "tizenkett? óra.",0xFF DB "negyed egy.",0xFF DB "fél egy.",0xFF DB "háromnegyed egy.",0xFF DB "egy óra.",0xFF DB "negyed kett?.",0xFF DB "fél kett?.",0xFF DB "háromnegyed kett?.",0xFF DB "kett? óra.",0xFF DB "negyed három.",0xFF DB "fél három.",0xFF DB "háromnegyed három.",0xFF DB "három óra.",0xFF DB "negyed négy.",0xFF DB "fél négy.",0xFF DB "háromnegyed négy.",0xFF DB "négy óra.",0xFF DB "negyed öt.",0xFF DB "fél öt.",0xFF DB "háromnegyed öt.",0xFF DB "öt óra.",0xFF DB "negyed hat.",0xFF DB "fél hat.",0xFF DB "háromnegyed hat.",0xFF DB "hat óra.",0xFF DB "negyed hét.",0xFF DB "fél hét.",0xFF DB "háromnegyed hét.",0xFF DB "hét óra.",0xFF DB "negyed nyolc.",0xFF DB "fél nyolc.",0xFF DB "háromnegyed nyolc.",0xFF DB "nyolc óra.",0xFF DB "negyed kilenc.",0xFF DB "fél kilenc.",0xFF DB "háromnegyed kilenc.",0xFF DB "kilenc óra.",0xFF DB "negyed tíz.",0xFF DB "fél tíz.",0xFF DB "háromnegyed tíz.",0xFF DB "tíz óra.",0xFF DB "negyed tizenegy.",0xFF DB "fél tizenegy.",0xFF DB "háromnegyed tizenegy.",0xFF DB "tizenegy óra.",0xFF DB "negyed tizenkett?.",0xFF DB "fél tizenkett?.",0xFF DB "háromnegyed tizenkett?.",0xFF DB "tizenkett? óra.",0xFF end