123c.asm

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

             org   0000h
             ljmp   main
             org   0023h
             ljmp  shou 

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

    shou:
             MOV  A,SBUF
             mov  30h,a
             xrl  a,#41h
             jnz  exit
             MOV  P1,30h
             
             clr  ri
             jnb  ri,$
             mov  a,sbuf
             mov  31h,a
             xrl  a,#54h
             jnz  exit
             mov  p2,31h
             
             clr  ri
             jnb  ri,$
             mov  a,sbuf
             mov  32h,a
             xrl  a,#0dh
             jnz  exit
             mov  p0,32h
             
                 
     exit:        
             clr  ren
             clr  ri
             reti

             org  0100h
 main:       mov tmod,#00100010b       ;T0和T1都工作在方式2
             mov scon,#01000000b
             mov pcon,#00h
	     mov th1,#0fdh       ;波特率不倍增下9600波特初值。
             mov tl1,#0fdh
             clr et1
	     setb tr1            ;启动T0和T1
             clr  es
             clr  ti
    LOOP:
             MOV  A,#"A"
             mov sbuf,a
             jnb ti,$
	     clr ti

	     MOV  A,#"T"
             mov sbuf,a
	     jnb ti,$
	     clr ti

             MOV  A,#0dH
             mov sbuf,a
	     jnb ti,$
	     clr ti

             clr  ri
             setb  ren
             setb  es
             setb  ea
             ljmp  $
             end