16F872
Evo koda:
;================================================= ============================
; Filename: labVezba3.asm
;
list p=16f872 ;list directive to define processor
#include <p16f872.inc> ;processor specific definitions
errorlevel -302 ;suppress "not in bank 0" message
; #include <makro.asm>
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _HS_OSC & _BODEN_ON & _WRT_ENABLE_ON & _LVP_OFF & _CPD_OFF
;----------------------------------------------------------------------------
;Constants
org 0x2100
de b'01111101',b'00110000',b'01101110',b'01111010', b'00110011', b'01011011', b'01011111', b'01110000', b'01111111',b'01111011'; vrednosti za cifre u EEPROM-u
;----------------------------------------------------------------------------
;Variables
CBLOCK 0x30
WREG_TEMP ;storage for WREG during interrupt
STATUS_TEMP ;storage for STATUS during interrupt
PCLATH_TEMP ;storage for PCLATH during interrupt
FSR_TEMP ;storage for FSR during interrupt
C1
C2
BROJ
BROJAC
TASTER
X
ENDC
;----------------------------------------------------------------------------
;This code executes when a reset occurs.
ORG 0x00
goto Main
ORG 0x0004 ;place code at interrupt vector
goto InterruptCode
ResetCode:
clrf PCLATH ;select program memory page 0
goto Main ;go to beginning of program
Main:
bsf STATUS,5
clrf TRISC
movlw 0xff
movwf TRISB
movlw 0x06
movwf ADCON1
movlw 0x03 ; preskaler - 1:8
movwf OPTION_REG
bcf STATUS,5
clrf PORTC
clrf C1
clrf C2
clrf X
movlw .4
movwf BROJAC
clrf TASTER
movlw .23
movwf BROJ
clrf TMR0
bcf INTCON,2
bsf INTCON,5
bsf INTCON,7
Loop: goto Loop
;----------------------------------------------------------------------------
;This code executes when an interrupt occurs.
InterruptCode:
movwf WREG_TEMP ;save WREG
swapf STATUS,W ;store STATUS in WREG
clrf STATUS ;select file register bank0
movwf STATUS_TEMP ;save STATUS value
movf PCLATH,W ;store PCLATH in WREG
movwf PCLATH_TEMP ;save PCLATH value
clrf PCLATH ;select program memory page0
movf FSR,W ;store FSR in WREG
movwf FSR_TEMP ;save FSR value
;test interrupt flags here
bcf STATUS,5
btfss INTCON,2
goto Kraj
bcf INTCON,7
bcf INTCON,2
;--CIFRE--
clrf C1
movfw BROJ
movwf X
movlw .10
Cifra1:
subwf X,1
btfss STATUS,0
goto Cifra2
incf C1,1
goto Cifra1
Cifra2:
movfw X
addlw .10
movwf C2
;--CITANJE IZ EEPROMA
movf C1,0
btfss BROJAC,0
movf C2,0
banksel EEADR
movwf EEADR
banksel EECON1
bsf EECON1, RD
banksel EEDATA
movf EEDATA, 0 ;W = EEDATA
;--PRIKAZ NA DISPLEJU
banksel PORTC
movwf PORTC
bsf PORTC,7
btfss BROJAC,0
bcf PORTC,7
;--TASTER
decfsz BROJAC,1
goto Kraj
btfsc TASTER,0 ;TASTER - flag koji oznacava da li je taster bio pritisnut
goto Obradi
btfss PORTB,1
clrf TASTER
btfsc PORTB,1
incf TASTER, 1
goto Kraj2
Obradi: btfss PORTB,1
goto Kraj2
incf BROJ,1
movf BROJ,0
sublw .99 ; W = 99 - BROJ
btfsc STATUS,0
clrw
btfss STATUS,0
sublw .99
movwf BROJ
;incf TASTER,1
Kraj2:
movlw .4
movwf BROJAC
;================================================= ============================
Kraj:
; movlw .250
; movwf TMR0
;------------------------------------
;End of interrupt routine restores context
EndInt:
bcf 3,5 ;select bank 0
movf FSR_TEMP,W ;get saved FSR value
movwf FSR ;restore FSR
movf PCLATH_TEMP,W ;get saved PCLATH value
movwf PCLATH ;restore PCLATH
swapf STATUS_TEMP,W ;get saved STATUS value
movwf STATUS ;restore STATUS
swapf WREG_TEMP,F ;prepare WREG to be restored
swapf WREG_TEMP,W ;restore WREG without affecting STATUS
retfie ;return from interrupt
end
;----------------------------------------------------------------------------
U suštini, ono što treba da radi jeste da ima frekvenciju osvežavanja 200hz, da ispiše (proizvoljan, decimalni, dvocifren) broj na displejevi i da na svakih 20ms proverava da li je pritisnut taster i ako jeste da poveća broj na displeju za 1.