串行eeprom写入7-1.asm

这个是大学的计算机接口实验课上经常用到的原程序

;实验七（一）：串行EEPROM的写入
      ORG   0000H
      MOV   5EH,#0A0H
      MOV   5DH,#09H
      MOV   30H,00H
      LCALL WRT
      AJMP  $
WRT:  LCALL STA
      MOV   A,5EH
      LCALL CACK
      JB    F0,WRT
      MOV   R0,#30H
      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