
AN1241/D
15
*** WRAL - subroutine to write all EEPROM ********************************
J9356_WRAL lda #$80 ;load opcode
sta OPCODE
lda #$40 ;load addr
sta ADDR
bset CS,PORTA ;CS line is high
jsr J9356_WR_OP ;write opcode
jsr J9356_WR_ADDR ;write address
jsr J9356_WR_DATA ;write data
bclr SER_OUT,PORTA
bclr CS,PORTA ;CS line is low
jsr J9356_WAIT ;wait until EEPROM is ready
rts ;return
*** READ - subroutine to read EEPROM *************************************
J9356_READ lda #$C0 ;load opcode
sta OPCODE
bset CS,PORTA ;CS line is high
jsr J9356_WR_OP ;write opcode
jsr J9356_WR_ADDR ;write address
bset SER_CLK,PORTA ;clock the EE
bclr SER_CLK,PORTA
jsr J9356_RD_DATA ;read data
bclr SER_OUT,PORTA
bclr CS,PORTA ;CS line is low
rts ;return
*** ERASE - subroutine to erase EEPROM ***********************************
J9356_ERASE lda #$E0 ;load opcode
sta OPCODE
bset CS,PORTA ;CS line is high
jsr J9356_WR_OP ;write opcode
jsr J9356_WR_ADDR ;write address
bclr CS,PORTA ;CS line is low
jsr J9356_WAIT ;wait until EEPROM is ready
rts
*** ERAL - subroutine to erase all EEPROM ********************************
J9356_ERAL lda #$80 ;load opcode and addr
sta OPCODE
sta ADDR
bset CS,PORTA ;CS line is high
jsr J9356_WR_OP ;write opcode
jsr J9356_WR_ADDR ;write address
bclr CS,PORTA ;CS line is low
jsr J9356_WAIT ;wait until EEPROM is ready
rts
F
Freescale Semiconductor, Inc.
For More Information On This Product,
Go to: www.freescale.com
n
.