主机通讯程序.asm

开发平台,任一MCS-51单片机上,很多程序,如键盘,显示,液晶驱动

       address EQU 30H;从机地址
       ;myself  EQU 31H;本机地址
       sadd    EQU 32H;传送数据起始地址
       bitlong EQU 33H;传送数据块长度
       ORG   0000H
       AJMP  START
       ORG   0023H
       LJMP  INSER0
       ORG   0100H
START: SJMP $

;*******************************
TXCALL:MOV  TMOD, #20H
       MOV  TH1,  #0F3H
       MOV  TL1,  #0F3H
       MOV  PCON, #80H
       SETB TR1
       MOV  SCON, #0D8H
       SETB EA
       CLR  ES
TXADDR:MOV  SBUF, #ADDRESS
       JNB  TI,   $
       CLR  TI
rxaddr:JNB  RI,   $
       CLR  RI       
       MOV  A,    SBUF
       CJNE A,    #ADDRESS, TXADDR
       CLR  TB8
       MOV  08H,  #SADD
       MOV  0CH,  #BITLONG
       INC  0CH
       SETB ES
       RET
;********************************
INSER0:CLR  TI
       PUSH PSW
       PUSH A
       MOV  PSW, #80H
TXDATA:MOV  SBUF,@R0
       JNB  TI,  $
       CLR  TI
       INC  R0
       DJNZ R4,  RETURN
       CLR  ES
RETURN:POP  A
       POP  PSW
       RETI