下面是一个测试成功的程序，请试验，若不能成功，请在上电后延时

下面是一个测试成功的程序，请试验，若不能成功，请在上电后延时2秒后再进行读写，是否成功，都请回复，谢谢
;**************************************************************************
;操作X25045
;**************************************************************************
WRIT_ENABLE:
CLR SCK
CLR CS
MOV A,#00000110B   ;Write-enable
LCALL OUTX
SETB CS
RET
;****************************************************************************
W_BYTE:
LCALL WRIT_ENABLE
CLR SCK
CLR CS
MOV B,ADDR
MOV C,B.0
MOV A,#02H   ;Write instruction
MOV ACC.3,C
LCALL OUTX
MOV A,ADDR+1         ;Address_writed
LCALL OUTX
MOV A,DATATEM
LCALL OUTX
CLR SCK
SETB CS
LCALL R_WIP
RET
;****************************************************************************
W_PAGE:CLR SCK
LOOPWP1:
LCALL WRIT_ENABLE
CLR SCK
CLR CS
MOV B,ADDR
MOV C,B.0
MOV A,#02H   ;Write instruction
MOV ACC.3,C
LCALL OUTX
MOV A,ADDR+1         ;Address_writed
LCALL OUTX
MOV A,@R1
LCALL OUTX
CLR SCK
SETB CS
LCALL R_WIP
MOV A,ADDR+1
ADD A,#01H
MOV ADDR+1,A
MOV A,ADDR
ADDC A,#00H
MOV ADDR,A
INC R1
DJNZ R7,LOOPWP1
RET
;****************************************************************************
OUTX: PUSH R7
MOV R7,#08H
OUTX_1:CLR SCK
NOP
NOP
RLC A
MOV DI,C
NOP
NOP
SETB SCK
NOP
NOP
DJNZ R7,OUTX_1
CLR DI
POP R7
RET
;****************************************************************************
R_WIP: NOP
CLR SCK
CLR CS
NOP
MOV A,#05H   ;Read instruction
LCALL OUTX
LCALL INX
CLR SCK
SETB CS
JB ACC.0,R_WIP
RET
;****************************************************************************
R_BYTE:
CLR SCK
CLR CS
MOV a,ADDR
rrc a
MOV A,#03H   ;Read instruction
MOV ACC.3,C
LCALL OUTX
MOV A,ADDR+1
LCALL OUTX
LCALL INX             ;Reading DATA,"R5=DATA"
CLR SCK
SETB CS
RET
;****************************************************************************
R_PAGE:
CLR SCK
CLR CS
MOV B,ADDR
MOV C,B.0
MOV A,#03H   ;Read instruction
MOV ACC.3,C
LCALL OUTX
MOV A,ADDR+1
LCALL OUTX
LOOPRP:NOP
LCALL INX             ;Reading DATA,"R5=DATA"
MOV @R1,A
INC R1
DJNZ R7,LOOPRP
CLR SCK
SETB CS
RET
;********************************************************
INX: PUSH R7
MOV R7,#08H
INX_1: NOP
CLR SCK
    NOP
       NOP
MOV C,DO
RLC A
NOP
SETB SCK
       NOP
NOP
DJNZ    R7,INX_1
POP R7
RET
;****************************************************************************

发表时间:2003年7月22日11:09:15

回复该帖

本主题共有 14 帖，分页：>>>>>该主题的所有内容[14]条

71892.[详细][原创]大侠我的X5045调不通啊，数据读出总是零
摘要:找不出错误，硬件没有问题阿，有没有哪位大侠，把主程序调用的过程发上来瞧瞧，找不出问题啊，急死了[em00]......(100字)
－ [lvbin1980][1274次] 2005年1月21日

37896.[详细]Lichunfu,你的程序我改动如下，怎么还是不行，莫非是硬件有问题？？？..
摘要:SCK BIT P2.0 ;X5045时钟 SDI BIT P1.7 ;X5045串行数据输入线&......(3645字)
－ [baolqkun][1375次] 2003年7月22日

37900.[详细]关于LICHUNFU的程序改动，你发我了，我的程序是经过硬件测试完全通过的，不过注释不是太完整。我..
摘要:关于LICHUNFU的程序改动，你发我了，我的程序是经过硬件测试完全通过的，不过注释不是太完整。我是直接在PCB板上做的测试，未曾使用过仿真器......(131字)
－ [APEARLIU][989次] 2003年7月22日