93.asm

关于93C46的读写程序

;********************93C46读程序***********************
READ:          MOV    P3,#0F0H
               CALL   DELAY1
               CLR    CLK
               CALL   DELAY1

               MOV    A,ADR46
               ADD    A,#80H
               CALL   SDT46
               CALL   RDT46
               MOV    R5,A
               CALL   RDT46
               MOV    R4,A
               CLR    CS
               
               MOV     A,R5
               MOV     @R1,A
               INC     R1
               MOV     A,R4
               MOV     @R1,A
               INC     ADR46
               INC     R1
               DJNZ    22H,READ
               RET
;********************93C46写程序***********************
WRITE:         MOV    P3,#0F0H       ;写使能
               CALL   DELAY1
               CLR    CLK
               CALL   DELAY1
               
               MOV    A,#30H
               CALL   SDT46
               CLR    CS

               MOV    P3,#0F0H       ;写入数据
               CALL   DELAY1
               CLR    CLK
               CALL   DELAY1

               MOV    A,@R1
               MOV    R5,A
               INC    R1
               MOV    A,@R1
               MOV    R4,A
               INC    R1
               MOV    A,ADR46
               ADD    A,#40H
               CALL   SDT46
               MOV    A,R5
               CALL   SDT46
               MOV    A,R4
               CALL   SDT46
               CLR    CS
               
               CLR    A             ;写禁止
               CALL   SDT46
               CLR    CS
               
               DJNZ   21H,WRITE
               RET
;*******************93C46子程序**************************             
SDT46:         MOV    R3,#8
SD1:           RLC    A
               MOV    DI,C
               SETB   CLK
               CALL   DELAY1
               CLR    CLK
               CALL   DELAY1
               DJNZ   R3,SD1
               RET
               
RDT46:         MOV    R3,#8
RD1:           SETB   CLK
               CALL   DELAY1
               CLR    CLK
               CALL   DELAY1
               MOV    C,DO
               RLC    A
               DJNZ   R3,RD1
               RET