list p=16f84a
#include <p16f84a.inc>
radix dec
; Begin
R0L EQU 0xC
R0H EQU 0xD
R1L EQU 0xE
R1H EQU 0xF
R2L EQU 0x10
R2H EQU 0x11
R3L EQU 0x12
R3H EQU 0x13
R4L EQU 0x14
R4H EQU 0x15
R5L EQU 0x16
R5H EQU 0x17
ORG 0x0000
BCF PCLATH,3
BCF PCLATH,4
GOTO L0002
ORG 0x0004
RETFIE
L0002:
; 5: Dim dta As Byte
; The address of 'dta' is 0x18
dta EQU 0x18:
BCF STATUS,RP0
; 10: main:
L0001:
; 11:
; 12:
; 13: Write 0, 0x77; write 77h to eeprom addr 0
MOVLW 0x00
MOVWF EEADR
MOVLW 0x77
MOVWF EEDATA
BSF STATUS,RP0
BSF EECON1,WREN
MOVLW 0x55
MOVWF EECON2
MOVLW 0xAA
MOVWF EECON2
BSF EECON1,WR
L0003: BTFSC EECON1,WR
GOTO L0003
BCF EECON1,WREN
BCF EECON1,EEIF
; 14:
BCF STATUS,RP0
; 15: Read 0, dta; read data from eeprom addr 0
MOVLW 0x00
MOVWF EEADR
BSF STATUS,RP0
BSF EECON1,RD
NOP
BCF STATUS,RP0
MOVF EEDATA,W
MOVWF 0x18
; 16:
; 17: Goto main
; End of listing
END