2017-05-10 12:00:41 +02:00
|
|
|
;TPicSim12
|
|
|
|
|
;Programm zum Test des 16F84-Simulators.
|
|
|
|
|
;Funktion: Beschreiben und Lesen des EEPROMs
|
|
|
|
|
;(c) St. Lehmann Ersterstellung: 11.05.2011
|
|
|
|
|
;Definition einiger Symbole
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
indirect equ 0
|
|
|
|
|
status equ 03h
|
|
|
|
|
fsr equ 04h
|
|
|
|
|
ra equ 05h
|
|
|
|
|
rb equ 06h
|
|
|
|
|
count equ 0ch
|
|
|
|
|
eedata equ 08h
|
|
|
|
|
eeaddr equ 09h
|
|
|
|
|
eecon1 equ 08h ;auf Bank 1
|
|
|
|
|
eecon2 equ 09h ;auf Bank 1
|
|
|
|
|
|
|
|
|
|
;Definition des Prozessors
|
|
|
|
|
device 16F84
|
|
|
|
|
|
|
|
|
|
;Festlegen des Codebeginns
|
|
|
|
|
org 0
|
|
|
|
|
start
|
|
|
|
|
movlw 0 ;der EEPROM-Speicher von 0 bis 3FH (63) gef?llt
|
|
|
|
|
movwf count
|
|
|
|
|
schreiben
|
|
|
|
|
movf count,w
|
|
|
|
|
movwf eeaddr ;diese Adresse soll beschrieben werden
|
|
|
|
|
xorlw 255 ;Adresse invertieren
|
|
|
|
|
movwf eedata ;dieser Wert an obige Adresse schreiben
|
|
|
|
|
|
|
|
|
|
bsf status,5 ;auf Bank 1
|
|
|
|
|
bcf eecon1,4 ;EEIF zur?cksetzen, wird ?berwacht
|
|
|
|
|
bsf eecon1,2 ;WREN-Bit setzen, sonst kein schreiben m?glich
|
|
|
|
|
bsf eecon1,1 ;WR-Bit setzen
|
|
|
|
|
|
|
|
|
|
movlw 55h ;State-Machine anwerfen
|
|
|
|
|
movwf eecon2
|
|
|
|
|
movlw 0AAh
|
|
|
|
|
movwf eecon2 ;Schreibvorgang beginnt jetzt
|
|
|
|
|
|
|
|
|
|
warte
|
|
|
|
|
btfss eecon1,4 ;warte bis EEIF auf 1 ist
|
|
|
|
|
goto warte
|
|
|
|
|
|
|
|
|
|
bcf eecon1,2 ;WREN auf 0
|
|
|
|
|
|
|
|
|
|
bcf status,5 ;zur?ck auf Bank 0
|
|
|
|
|
|
|
|
|
|
incf count
|
|
|
|
|
movf count,w ;ist der Wert 40H erreicht
|
|
|
|
|
sublw 40h
|
|
|
|
|
btfss status,2 ;wenn 0, dann fertig
|
|
|
|
|
goto schreiben
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
clrf count ;jetzt gesamten Speicher lesen
|
|
|
|
|
lesen:
|
|
|
|
|
movf count,w
|
|
|
|
|
movwf eeaddr
|
|
|
|
|
|
|
|
|
|
bsf status,5 ;auf Bank 1
|
|
|
|
|
bsf eecon1,0 ;RD-Bit auf 1, wird vom PIC wieder auf 0 gesetzt
|
|
|
|
|
bcf status,5 ;zur?ck auf Bank 0
|
|
|
|
|
|
|
|
|
|
movf eedata,w ;Wert ins W-Register
|
|
|
|
|
|
|
|
|
|
incf count
|
|
|
|
|
movf count,w ;ist der Wert 40H erreicht
|
|
|
|
|
sublw 40h
|
|
|
|
|
btfss status,2 ;wenn 0, dann fertig
|
|
|
|
|
goto lesen
|
|
|
|
|
|
|
|
|
|
ende
|
|
|
|
|
goto ende
|
