串行eeprom读出7-2.asm

来自「这个是大学的计算机接口实验课上经常用到的原程序」· 汇编 代码 · 共 92 行

;实验七（二）：EEPROM的读出
       ORG    0000H
       SJMP   40H
       MOV    5EH,#0A0H
       MOV    5DH,#09H
       MOV    50H,#00H
       LCALL  WRT
       SJMP   $
WRT:   LCALL  STA
       MOV    A,5EH
       LCALL  WBIT
       LCALL  CACK
       JB     F0,WRT
       MOV    R0,#50H
       MOV    R5,5DH
WRDA:  MOV    A,@R0
       LCALL  WBIT
       LCALL  CACK
       JB     F0,WRT
       INC    R0
       DJNZ   R5,WRDA
       LCALL  STOP                                   
       RET
WBIT:  MOV    R7,#8
WAA:   RLC    A
       JC     WBB
       CLR    P1.4
       SETB   P1.2
       NOP
       NOP
       CLR    P1.2
       DJNZ   R7,WAA
       RET
WBB:   SETB   P1.4
       SETB   P1.2
       NOP
       NOP
       CLR    P1.2
       CLR    P1.4
       DJNZ   R7,WAA
       RET
STA:   SETB   P1.4
       SETB   P1.2
       NOP
       NOP
       NOP
       CLR    P1.4
       NOP
       NOP
       CLR    P1.2
       RET
STOP:  CLR    P1.4
       SETB   P1.2
       NOP
       NOP
       SETB   P1.4
       NOP
       NOP
       CLR    P1.2
       RET
MACK:  CLR    P1.4
       SETB   P1.2
       NOP
       NOP
       CLR    P1.2
       SETB   P1.4
       RET
MNACK: SETB   P1.4
       SETB   P1.2
       NOP
       NOP
       CLR   P1.2
       CLR   P1.4
       RET
CACK:  SETB  P1.4
       SETB  P1.2
       NOP
       MOV   C,P1.4
       MOV   F0,C
       CLR   P1.2
       NOP
       RET
       END