123b.asm

51串口发送AT通讯指令测试程序

              org   0000h
             ljmp   start

             org   0050h
     delay:  mov   r6,#10
        d1:  mov   r7,#250
	     djnz  r7,$
	     djnz  r6,d1
	     ret

    s:       mov sbuf,a
	     jnb ti,$
	     clr ti
	     ret

             org  0200h
 start:      mov sp,#60h
             mov tmod,#22h       ;T0和T1都工作在方式2
             mov scon,#01010000b
             mov pcon,#00h
	     mov th1,#0fdh       ;波特率不倍增下9600波特初值。
             mov tl1,#0fdh
	     mov ie,#82h         ;开中断T0而不开T1
             setb tr1            ;启动T0和T1
             MOV  R2,#5
   LOOP:
             MOV  A,#"A"
             mov sbuf,a
	     jnb ti,$
	     clr ti
             lcall delay
             ;MOV  A,#0AH
             ;mov sbuf,a
	     ;jnb ti,$
	     ;clr ti
                          
	     MOV  A,#"T"
             mov sbuf,a
	     jnb ti,$
	     clr ti
             lcall delay
                         
             MOV  A,#0dH
             mov sbuf,a
	     jnb ti,$
	     clr ti
             LCALL DELAY

             ;MOV  A,#"O"
            ; mov sbuf,a
	     ;jnb ti,$
	    ; clr ti
            ; lcall delay
             ;MOV  A,#0AH
             ;mov sbuf,a
	     ;jnb ti,$
	     ;clr ti
                          
	     ;MOV  A,#"K"
            ; mov sbuf,a
	    ; jnb ti,$
	    ; clr ti
            ; lcall delay
                         
            ; MOV  A,#0dH
            ; mov sbuf,a
	    ; jnb ti,$
	    ; clr ti
            ; LCALL DELAY

             CLR RI
             SETB  REN
             CLR  REN
             MOV  A,SBUF
             MOV  P1,A
             LCALL DELAY

             SETB  REN
             JNB  RI,$
             CLR  REN
             MOV  A,SBUF
             MOV  P1,A
             LCALL DELAY
             
             SETB  REN
             JNB  RI,$
             CLR  REN
             MOV  A,SBUF
             MOV  P1,A
             
             LCALL DELAY

             DJNZ R2, LOOP

 table:      db 3fh,06h,5bh,4fh,66h
             db 6dh,7dh,07h,7fh,6fh

          org 0300h
 attable:
          db 41h,54h,0dh
          db 4fh,4bh
          db 45h,52h,52h,4fh,52h
	  db 41h,54h,2bh,43h,4dh,47h,46h,3dh,31h
          db 0dh
          db 4fh,4bh
          db 45h,52h,52h,4fh,52h
	  db 41h,54h,2bh,43h,53h,43h,53h,3dh,22h,55h,43h,53h,32h,22h
          db 0dh
          db 4fh,4bh
          db 45h,52h,52h,4fh,52h
	  db 41h,54h,2bh,43h,53h,4dh,50h,3dh,31h,37h,2ch,31h,36h,37h,2ch,30h,2ch,30h,38h
          db 0dh
          db 4fh,4bh
          db 45h,52h,52h,4fh,52h
	  db 41h,54h,2bh,43h,4dh,47h,53h,3dh,22h,31h,33h,35h,37h,30h,33h,33h,34h,36h,34h,38h,22h
          db 0dh
          db 4fh,4bh
          db 45h,52h,52h,4fh,52h
	  db 3eh,34h,46h,36h,30h,35h,39h,37h,44h,35h,34h,31h,37h
          db 0dh
          db 4fh,4bh
          db 45h,52h,52h,4fh,52h
	  db 31h,41h
          db 0dh
          db 4fh,4bh
          db 45h,52h,52h,4fh,52h

	  end