; EZ A PROGRAM A GYŐRI MIKROVEZÉRLŐ ALKALMAZÓI VERSENYEN ; HASZNÁLT PRÓBAPANELHEZ KÉSZÜLT ; EBBEN A PROGRAMBAN MULTIPLEXELVE KEZELJÜK LE A ; PRÓBAPANELEN TALÁLHATÓ 4 KIJELZŐT ; A KIJELZŐKÖN SORBAN KIÍRATJUK AZ 1,2,3,4 - ET ; ; A KIJELZŐRE KIÍRATNI KÍVÁNT ÉRTÉKET KIKÜLDJÜK A C-PORTRA ÉS ; MINDIG BEKAPCSOLJUK A MEGFELELŐ KIJELZŐT (B-PORT) ;------------------------------------------------------------------------------------------- LIST P=16F877 ;A HASZNÁLT PIC TÍPUS MEGADÁSA #INCLUDE ;SZIMBÓLUMHALMAZ MEGADÁSA __CONFIG _CP_OFF & _WDT_OFF & _LVP_OFF & _HS_OSC ;BEÁLLÍTÁSOK MEGADÁSA ;------------------------------------------------------------------------------------------- CBLOCK 0X20 ;FELHASZNÁLÓI REGISZTEREK MEGADÁSA DISP1 DISP2 DISP3 DISP4 W_TEMP STATUS_TEMP MELYDISP ENDC ;REGISZTERBLOKK VÉGE ORG 0 ;KEZDŐCÍM GOTO START ORG 4 ;MEGSZAKÍTÁSI CÍM PUSH ;MEGSZAKÍTÁS MOVWF W_TEMP ;W REGISZTER ELTÁROLÁSA SWAPF STATUS,W MOVWF STATUS_TEMP ;STATUS REGISZTER ELTÁROLÁSA BTFSC INTCON,T0IF ;TMR0 MEGSZAKÍTÁS ELLENŐRZÉSE GOTO T0INT ;UGRÁS A TMR0 MEGSZAKÍTÁSRA POP SWAPF STATUS_TEMP,W MOVWF STATUS ;AZ ELMENTETT STATUS REGISZTER VISSZAÁLLÍTÁSA SWAPF W_TEMP,F SWAPF W_TEMP,W ;AZ ELMENTETT W REGISZTER VISSZAÁLLÍTÁSA BSF INTCON,GIE ;ÁLTALÁNOS MEGSZAKÍTÁS ENGEDÉLYEZÉSE RETFIE ;VISSZATÉRÉS A MEGSZAKÍTÁSBÓL ;-------------------------------------------------------------------------- START MOVLW 0X20 ;REGISZTEREK TÖRLÉSE MOVWF FSR TOROL CLRF INDF INCF FSR,F BTFSS FSR,7 GOTO TOROL ;-------------------------------------------------------------------------- BANKSEL TRISA ;ABBA A BANKBA LÉPÉS AHOL A TRISA REGISZTER VAN (BANK1) MOVLW B'11111100' MOVWF TRISA ;A-PORT IRÁNYAINAK MEGADÁSA MOVLW B'10000001' MOVWF TRISB ;B-PORT IRÁNYAINAK MEGADÁSA MOVLW B'00000000' MOVWF TRISC ;C-PORT IRÁNYAINAK MEGADÁSA MOVLW B'10000100' MOVWF OPTION_REG ;OPTION_REG BEÁLLÍTÁSA(TMR0 ELŐOSZTÓ) MOVLW .006 MOVWF ADCON1 ;PORT DIGITIÓ BEÁLLÍTÁSA BANKSEL PORTA ;ABBA A BANKBA LÉPÉS AHOL A PORTA REGISZTER VAN (BANK0) MOVLW HIGH TABLA ;UGRÓTÁBLA LÉTREHOZÁSA MOVWF PCLATH BSF INTCON,T0IE ;TMR0 MEGSZAKÍTÁS ENGEDÉLYEZÉSE BSF INTCON,GIE ;ÁLTALÁNOS MEGSZAKÍTÁS ENGEDÉLYEZÉSE ;--------------------KIJELZŐ REGISZTEREINEK MEGADÁSA------------------------- MAIN MOVLW D'1' MOVWF DISP1 ;1-ES KIJELZŐ ÉRTÉKÉNEK MEGADÁSA MOVLW D'2' MOVWF DISP2 MOVLW D'3' MOVWF DISP3 MOVLW D'4' MOVWF DISP4 GOTO MAIN ;-----------------------KIJELZŐ MULTIPLEXELÉS------------------------------- T0INT ;TMR0 MEGSZAKÍTÁS BCF INTCON,GIE ;ÁLTALÁNOS MEGSZAKÍTÁS TILTÁSA BCF INTCON,T0IF ;TMR0 MEGSZAKÍTÁST JELZŐ BIT TÖRLÉSE BTFSC MELYDISP,0 ;KIJELZŐ KIVÁLASZTÁSA GOTO KIIR1 BTFSC MELYDISP,1 GOTO KIIR2 BTFSC MELYDISP,2 GOTO KIIR3 BTFSC MELYDISP,3 GOTO KIIR4 ;--------------------------- KIIR1 ;1-ES KIJELZŐRE VALÓ KIÍRATÁS MOVF DISP1,W ;AZ 1-ES KIJELZŐRE KIÍRATNI KÍVÁNT ÉRTÉK BERAKÁSA A W-BE CALL TABLA ;UGRÓTÁBLA MEGHÍVÁSA MOVWF PORTC ;A KÍVÁNT ÉRTÉK KIRAKÁSA A KIJELZŐKRE CLRF MELYDISP BSF MELYDISP,1 ;KIJELZŐ VÁLASZTÓ BIT ÉRTÉKÉNEK MEGVÁLTOZTATÁSA BSF PORTB,4 ;AZ 1-ES KIJELZŐ BEKAPCSOLÁSA BCF PORTB,3 ;A 2-ES KIJELZŐ KIKAPCSOLÁSA BCF PORTB,2 ;A 3-MAS KIJELZŐ KIKAPCSOLÁSA BCF PORTB,1 ;A 4-ES KIJELZŐ KIKAPCSOLÁSA GOTO POP ;--------------------------- KIIR2 MOVF DISP2,W CALL TABLA MOVWF PORTC CLRF MELYDISP BSF MELYDISP,2 BCF PORTB,4 ;AZ 1-ES KIJELZŐ KIKAPCSOLÁSA BSF PORTB,3 ;A 2-ES KIJELZŐ BEKAPCSOLÁSA BCF PORTB,2 ;A 3-MAS KIJELZŐ KIKAPCSOLÁSA BCF PORTB,1 ;A 4-ES KIJELZŐ KIKAPCSOLÁSA GOTO POP ;--------------------------- KIIR3 MOVF DISP3,W CALL TABLA MOVWF PORTC CLRF MELYDISP BSF MELYDISP,3 BCF PORTB,4 BCF PORTB,3 BSF PORTB,2 BCF PORTB,1 GOTO POP ;--------------------------- KIIR4 MOVF DISP4,W CALL TABLA MOVWF PORTC CLRF MELYDISP BSF MELYDISP,0 BCF PORTB,4 BCF PORTB,3 BCF PORTB,2 BSF PORTB,1 GOTO POP ;------------------------UGRÓTÁBLA---------------------------- ORG 600 TABLA ;UGRÓTÁBLA ADDWF PCL,F ;W HOZZÁADÁSA A PROGRAMSZÁMLÁLÓ ALSÓ BYTE-JÁHOZ RETLW B'00111111' ;0 RETLW B'00000110' ;1 RETLW B'01011011' ;2 RETLW B'01001111' ;3 RETLW B'01100110' ;4 RETURN END ;PROGRAM VÉGE