原创 FM24CL04.asm

; FM24CL04铁电存储器的模拟IIC传输测试及其子程序
; 新华龙C8051F020芯片
; 外部时钟,11.0592Mhz
; 模拟IIC

$INCLUDE (C8051F020.INC)

ORG 0000H
LJMP MAIN



MAIN:
MOV SP, #60H
LCALL OTER_INIT
LCALL SYSCLK_INIT
LCALL SWITCH_INIT
LCALL WRDATA

LOOP:
LCALL FRAM
SJMP LOOP

;;--------------------------------
;;其它初始化操作
;;--------------------------------
OTER_INIT:
;;看门狗
CLR EA
MOV WDTCN,#0DEH ;DISABLE WATCHDOG
MOV WDTCN,#0ADH
SETB EA
ORL EMI0CF,#00100011B ;XRAM IN HIGH PORTS
RET

;;--------------------------------
;;时钟
;;--------------------------------
SYSCLK_INIT:
MOV OSCXCN,#67H
CLR A
DJNZ ACC,$
DJNZ ACC,$
DJNZ ACC,$
OSC_WAIT: NOP
MOV A,OSCXCN
JNB ACC.7,OSC_WAIT
MOV OSCICN,#88H ;SELECTED EX_CLK
RET


;;--------------------------------
;;交叉开关及I/O口的输入输出方式
;;--------------------------------
SWITCH_INIT:
MOV XBR0,#00000101B ;UART0, SMBUS
MOV XBR1,#00010100B ;INT1, INT0
MOV XBR2,#01000100B ;ENABLED, UART1
MOV P0MDOUT,#00H
MOV P1MDIN,#0FFH
MOV P1MDOUT,#00H
MOV P2MDOUT,#00H
MOV P3MDOUT,#00H
MOV P3IF,#00H
MOV P74OUT,#00H
RET


;;-----------------------
;;测试数据写程序
;;-----------------------
WRDATA:MOV R1,#0AH
MOV R0,#WR_BUF
WR_L: MOV @R0,#0AAH
INC R0
DJNZ R1,WR_L
RET

;;-----------------------
;;测试
;;-----------------------
FRAM:
CLR WP

MOV N,#10
MOV POINTER,#10H
LCALL WR_NB ;在小于256B空间内写入10B

MOV N,#10
MOV POINTER,#10H
LCALL RD_NB ;在小于256B空间内读出10B

MOV N,#10
MOV POINTERH,#01H
MOV POINTERL,#0F0H
LCALL WR_NBHL ;在大于256B空间内写入10B

MOV N,#10
MOV POINTERH,#01H
MOV POINTERL,#0F0H
LCALL RD_NBHL ;在大于256B空间内读出10B

RET



;***************************************************************************


SDA2 BIT P1.3
SCL2 BIT P1.4
WP BIT P1.5
POINTERH EQU 1FH ;高位地址，空间大于256B时用
POINTERL EQU 1EH ;低位地址，空间大于256B时用
POINTER EQU 20H ;一般地址，空间在256B以下时用
WR_BUF EQU 23H ;欲写的数据缓冲区首址
RD_BUF EQU 33H ;欲读的数据缓冲区首址
N EQU 22H ;字节个数
DEVICE EQU 21H ;器件地址

;;-----启动-----;;
START:LCALL DEL5US
SETB SDA2
LCALL DEL5US
SETB SCL2
LCALL DEL5US
CLR SDA2
LCALL DEL5US
CLR SCL2
LCALL DEL5US
RET

;;-----结束-----;;
STOP:LCALL DEL5US
SETB SCL2
LCALL DEL5US
SETB SDA2
LCALL DEL5US
RET

;;-----应答检查-----;;
CACK:SETB SDA2
LCALL DEL5US
SETB SCL2
LCALL DEL5US
MOV C,SDA2
JC CACK
CLR SCL2
CLR SDA2
LCALL DEL1MS
RET

;;-----应答-----;;
MACK:CLR SDA2
LCALL DEL5US
SETB SCL2
LCALL DEL5US
CLR SCL2
LCALL DEL5US
SETB SDA2
RET


;;-----按顺序写字节数据-----;;
;;入口：ACC
;;资源占用：A、R0、CY、F0、R2
IWRB:LCALL START
MOV A,#0A0H
LCALL WR8BIT
LCALL CACK
MOV A,WR_BUF
LCALL WR8BIT
LCALL CACK
IWEXIT:
LCALL STOP
LCALL DEL10MS
RET

;;-----按顺序读字节数据-----;;
;;入口：从器件地址DEVICE
;;出口：数据读入ACC
;;资源占用：A、R0、CY、F0
IRDB:LCALL START
MOV A,#0A1H
LCALL WR8BIT
LCALL CACK
LCALL RD8BIT
IREXIT:
LCALL STOP
RET

;;-----向从器件指定单元写N个字节数据-----;;
;;入口：传递的地址在POINTER，数据在WR_BUF中，发送字节数在N中
;;资源占用：ACC、R0、R1、R3、C
WR_NB:SETB SDA2
SETB SCL2
LCALL START
MOV A,#0A0H
LCALL WR8BIT
LCALL CACK
MOV A,POINTER
LCALL WR8BIT
LCALL CACK
MOV R3,N
MOV R1,#WR_BUF
WRNB1:MOV A,@R1
LCALL WR8BIT
LCALL CACK
INC R1
DJNZ R3,WRNB1
LCALL STOP
LCALL DEL10MS
RET


;;-----从从器件指定单元读N个字节数据-----;;
;;入口：传递的地址在POINTER，接收数据缓冲区RD_BUF，接收字节数在N中
;;资源占用：ACC、R0、R1、R3、C
RD_NB:MOV R3,N
RDNB1:LCALL START
MOV A,#0A0H
LCALL WR8BIT
LCALL CACK
MOV A,POINTER
LCALL WR8BIT
LCALL CACK
LCALL START
MOV A,#0A1H
LCALL WR8BIT
LCALL CACK
MOV R1,#RD_BUF
RDB: LCALL RD8BIT
MOV @R1,A
DJNZ R3,SACK
LCALL STOP
RET
SACK: INC R1
LCALL MACK
SJMP RDB

;;-----字节发送-----;;
;;入口：要发送的数据在ACC中
;;每发送完一个字节，要调用一次CACK，以判断是否有应答
WR8BIT:PUSH ACC
MOV R0,#08H
WR_BIT:RLC A
MOV SDA2,C
LCALL DEL5US
SETB SCL2
LCALL DEL5US
CLR SCL2
DJNZ R0,WR_BIT
POP ACC
RET


;;-----字节接收-----;;
;;出口：接收到的数据在ACC中
;;每接收完一个字节，要调用一MCACK/MNACK
RD8BIT:MOV R0,#08H
RD_BIT:SETB SDA2
LCALL DEL5US
SETB SCL2
LCALL DEL5US
MOV C,SDA2
RLC A
LCALL DEL5US
CLR SCL2
DJNZ R0,RD_BIT
CLR SDA2
RET


;;-----5US-----;;
DEL5US:NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
RET



;;-----1MS-----;;
DEL1MS:MOV R4,#200
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DJNZ R4,$-3
RET



;;-----10MS-----;;
DEL10MS:MOV R5,#10
NOP
LCALL DEL1MS
NOP
NOP
DJNZ R5,$-3
RET


;;-----向从器件指定单元写N个字节数据(>256B的EEPROM)-----;;
;;入口：传递的地址在POINTER，数据在WR_BUF中，发送字节数在N中
;;资源占用：ACC、R0、R1、R3、C
WR_NBHL:SETB SDA2
SETB SCL2
LCALL START
MOV A,#0A0H
LCALL WR8BIT
LCALL CACK
MOV A,POINTERH
LCALL WR8BIT
LCALL CACK
MOV A,POINTERL
LCALL WR8BIT
LCALL CACK
MOV R3,N
MOV R1,#WR_BUF
WRNB1HL:MOV A,@R1
LCALL WR8BIT
LCALL CACK
INC R1
DJNZ R3,WRNB1HL
LCALL STOP
LCALL DEL10MS
RET


;;-----从从器件指定单元读N个字节数据(>256B的EEPROM)-----;;
;;入口：传递的地址在POINTER，接收数据缓冲区RD_BUF，接收字节数在N中
;;资源占用：ACC、R0、R1、R3、C
RD_NBHL:MOV R3,N
RDNB1HL:LCALL START
MOV A,#0A0H
LCALL WR8BIT
LCALL CACK
MOV A,POINTERH
LCALL WR8BIT
LCALL CACK
MOV A,POINTERL
LCALL WR8BIT
LCALL CACK
LCALL START
MOV A,#0A1H
LCALL WR8BIT
LCALL CACK
MOV R1,#RD_BUF
RDBHL: LCALL RD8BIT
MOV @R1,A
DJNZ R3,SACKHL
LCALL STOP
RET
SACKHL: INC R1
LCALL MACK
SJMP RDBHL


;***************************

END