51发送.asm

这是一个51的汇编串行通信的发送程序,经过调试后很好用.

;串行通信,实现与PC机通信（通过超级终端）
ORG     0000H    ;程序执行开始地址
LJMP    START    ;跳至START执行
ORG     0100H

START:MOV SP,#60H
      MOV R2,#16
      MOV R0,#40H
      MOV R1,#65
SS:   MOV A,R1
      MOV @R0,A
      INC  R1
      INC  R0
      DJNZ R2,SS
TONGXIN: MOV  TMOD,#20H     ;定时器1，工作在模式00100000b
         MOV  TL1,#0FDH     ;定时初值
         MOV  TH1,#0FDH     ;波特率为9600
         CLR  ET1
         SETB TR1           ;定时开始
         MOV  SCON,#40H     ;串行方式1，禁止接收
         MOV  PCON,#00H
         CLR  ES
         MOV  R0,#40H       ;发送数据地址
         MOV  R2,#16        ;发送数据字节数
TRSA:    MOV  A,@R0
         MOV  SBUF,A
         CLR  P3.2
         JNB  TI,$
         CLR  TI
TNEXT:   INC  R0
         DJNZ R2,TRSA
         LCALL DELAY
         SETB  P3.2
         SJMP  tongxin
DELAY:  MOV R5,#100
D2:     MOV R6,#20
D1:     MOV R7,#248
        DJNZ R7,$
        DJNZ R6,D1
        DJNZ R5,D2
        RET
END