- 打卡等级：以坛为家I
- 打卡总天数：350
- 最近打卡：2025-05-01 00:57:45
高级会员
- 积分
- 829
|
本帖最后由 newlined 于 2024-4-6 16:53 编辑
大家好：我们这里有个产品，以前用的是STC8H的单片机，最近要用到CAN，所以改用STC32G的单片机，不想在读写EEPROM时遇到问题，程序好像有些跑飞。以前的程序读EEPROM时，调用方式如下：
MOV DPTR,#ADDR1 ;ADDR1是EEPROM的地址 16位
LCALL READ
MOV DATA1,A ;读出的数据放到DATA1
写入时，先擦除再写：
MOV DPTR,#ADDR1
LCALL SECTOR_ERASE ;删除扇区
;
MOV A,DATA1 ;保存
MOV DPTR,#ADDR1
LCALL WRITE
每次读写都是一个字节，为了不修改以前的主程序，我参照STC32G的例程，修改了读写程序，在主程序中用了F0寄存器，在程序中我加了PUSH PSW 和POP PSW 以保护 F0，
我修改后的程序如下：因为只用了几个字节，所以 IAP_ADDRE我直接置为0，请大家看看哪里出了问题，谢谢。
IAP_DISABLE:
MOV IAP_CONTR, #0 ; 禁止ISP/IAP操作
MOV IAP_CMD, #0 ; 去除ISP/IAP命令
MOV IAP_TRIG, #0 ; 防止ISP/IAP命令误触发
MOV IAP_ADDRE, #0FFH ; 清0地址高字节
MOV IAP_ADDRH, #0FFH ; 清0地址中字节
MOV IAP_ADDRL, #0FFH ; 清0地址低字节，指向非EEPROM区，防止误操作
RET
read:
PUSH AR2
POP PSW
MOV IAP_ADDRE, #0 ; 送地址高字节（地址需要改变时才需重新送地址）
MOV IAP_ADDRH, DPH ; 送地址中字节（地址需要改变时才需重新送地址）
MOV IAP_ADDRL, DPL ; 送地址低字节（地址需要改变时才需重新送地址）
MOV IAP_CONTR, #IAP_EN ; 允许ISP/IAP操作，送一次就够
MOV IAP_TPS, #TPS_WAIT ; 设置等待时间，
MOV IAP_CMD, #1 ; ISP读出命令送字节读命令，命令不需改变时，不需重新送命令
MOV C, EA
MOV F0, C ;保存EA
CLR EA ; 禁止中断
MOV IAP_TRIG, #0x5A ;ISP触发命令
MOV IAP_TRIG, #0xA5
NOP
NOP
NOP
NOP
MOV C, F0
MOV EA, C ; 允许中断(如果允许)
LCALL IAP_DISABLE
MOV A, IAP_DATA
POP PSW
POP AR2
RET
SECTOR_ERASE:
;扇区擦除，512字节/扇区。
PUSH PSW ;扇区中任意一个字节地址都是扇区地址。
MOV IAP_ADDRE, #0 ; 送地址高字节（地址需要改变时才需重新送地址）
MOV IAP_ADDRH, DPH ; 送地址中字节（地址需要改变时才需重新送地址）
MOV IAP_ADDRL, DPL ; 送地址低字节（地址需要改变时才需重新送地址）
MOV IAP_CONTR, #IAP_EN ; 允许ISP/IAP操作，送一次就够
MOV IAP_TPS, #TPS_WAIT ; 设置等待时间，
MOV IAP_CMD, #3 ;送扇区擦除命令
MOV C, EA
MOV F0, C ;保存EA
CLR EA ;禁止中断
MOV IAP_TRIG, #0x5A ;ISP触发命令
MOV IAP_TRIG, #0xA5
NOP
NOP
NOP
NOP
MOV C, F0
MOV EA, C ; 允许中断(如果允许)
LCALL IAP_DISABLE
POP PSW
RET
WRITE:
PUSH AR2
PUSH PSW
MOV IAP_ADDRE, #0 ; 送地址高字节（地址需要改变时才需重新送地址）
MOV IAP_ADDRH, DPH ; 送地址中字节（地址需要改变时才需重新送地址）
MOV IAP_ADDRL, DPL ; 送地址低字节（地址需要改变时才需重新送地址）
MOV IAP_CONTR, #IAP_EN ; 允许ISP/IAP操作，送一次就够
MOV IAP_TPS, #TPS_WAIT ; 设置等待时间，
MOV IAP_CMD, #2 ;送字节写命令，命令不需改变时，不需重新送命令
MOV C, EA
MOV F0, C ;保存EA
MOV IAP_DATA, A ; 送数据到IAP_DATA，只有数据改变时才需重新送
CLR EA ; 禁止中断
MOV IAP_TRIG, #0x5A ;ISP触发命令
MOV IAP_TRIG, #0xA5
NOP
NOP
NOP
NOP
MOV C, F0
MOV EA, C ; 允许中断(如果允许)
LCALL IAP_DISABLE
POP PSW
POP AR2
RET
|
|
|手机版|小黑屋|深圳国芯人工智能有限公司
( 粤ICP备2022108929号-2 )
发表于 2024-4-6 16:35:00
。
发表于 2024-4-6 16:53:19
我再试试。