;8051通信.ASM        任意I/O口
     
     
     
      RXD_   BIT     P1.1
      TXD_   BIT     P1.0
      ORG    0000H
      AJMP   MAIN
      ORG    0030H
MAIN:
      MOV   SP,#60H
      MOV   R0,#30H
START:
      JB    RXD_,$         ;判斷是否有起始位出現
      LCALL DELAY
      MOV   R7,#08H
RXD0:
      MOV   C,RXD_
      RRC   A
      LCALL DELAY
      DJNZ  R7,RXD0       ;接收8位數據   
      JNB   RXD_,$        ;判斷是否有停止位出現
      MOV   @R0,A
   
      SETB  TXD_          ;P1.0置高
      CLR   C
      MOV   TXD_,C        ;發起始位
      LCALL DELAY
      MOV   R7,#08H
TXD0:
      RRC   A
      MOV   TXD_,C
      LCALL DELAY
      DJNZ  R7,TXD0       ;發送8位數據
      SETB  C
      MOV   TXD_,C
      CALL  DELAY         ;發送停止位      
      LJMP  START
DELAY:
      MOV   R6,#095      
      DJNZ  R6,$
      RET
      END