123a.asm

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

     led_0   equ   30h
     led_1   equ   31h
     led_2   equ   32h
     adc     equ   35h

     clock   bit   p2.4
     st      bit   p2.5
     eoc     bit   p2.6
     oe      bit   p2.7

             org   0000h
             ljmp  start
             org   0bh
             ljmp  int_t0

             org   0050h
     int_t0: cpl   clock
             reti

     delay:  mov   r6,#5
        d1:  mov   r7,#250
	     djnz  r7,$
	     djnz  r6,d1
	     ret
             
   atdelay:  mov   r6,#20
        d2:  mov   r7,#250
	     djnz  r7,$
	     djnz  r6,d2
	     ret        

      disp:  mov  dptr,#table
             mov a,led_0
             movc a,@a+dptr
	     clr p2.3
	     mov p0,a
	     lcall delay
	     setb p2.3
	     mov a,led_1
	     movc a,@a+dptr
	     clr p2.2
	     mov p0,a
	     lcall delay
	     setb p2.2
	     mov a,led_2
	     movc a,@a+dptr
	     clr p2.1
	     mov p0,a
	     lcall delay
	     setb p2.1
	     ret

    atok:    mov  dptr,#at1
             mov  r7,#00
    atok1:
             mov  a,r7
             MOVC  A,@a+dptr
             mov sbuf,a
             jnb ti,$
	     clr ti
             inc r7
             cjne r7,#3,atok1
             ret
             
    atcnmi:  mov  dptr,#at2
             mov  r7,#00
   atcnmi1:
             mov  a,r7
             MOVC  A,@a+dptr
             mov sbuf,a
             jnb ti,$
	     clr ti
             inc r7
             cjne r7,#18,atcnmi1
             ret

    atcmgf:  mov  dptr,#at3
             mov  r7,#00
   atcmgf1:
             mov  a,r7
             MOVC  A,@a+dptr
             mov sbuf,a
             jnb ti,$
	     clr ti
             inc r7
             cjne r7,#10,atcmgf1
             ret

    atcmgs:  mov  dptr,#at4
             mov  r7,#00
   atcmgs1:
             mov  a,r7
             MOVC  A,@a+dptr
             mov sbuf,a
             jnb ti,$
	     clr ti
             inc r7
             cjne r7,#22,atcmgs1
             ret
             
  FAXIAOXI:  mov  dptr,#XIAOXI
             mov  r7,#00
   XIAOXI1:
             mov  a,r7
             MOVC  A,@a+dptr
             mov sbuf,a
             jnb ti,$
	     clr ti
             inc r7
             cjne r7,#8,XIAOXI1
             ret
                     

             org  0200h
 start:      mov sp,#60h
             mov led_0,#00h
             mov led_1,#00h
	     mov led_2,#00h
	     mov tmod,#22h       ;T0和T1都工作在方式2
             mov scon,#01010000b
             mov pcon,#00h
	     mov th0,#245
	     mov tl0,#00h
             mov th1,#0fdh       ;波特率不倍增下9600波特初值。
             mov tl1,#0fdh
	     mov ie,#82h         ;开中断T0而不开T1
             setb tr0
             setb tr1            ;启动T0和T1
 wait:       clr st
             setb st
	     clr st
	     jnb eoc,$
	     setb oe
	     mov adc,p1
	     clr oe
	     mov a,adc
             mov b,#100
	     div ab
	     mov led_2,a
	     mov a,b
	     mov b,#10
	     div ab
	     mov led_1,a
	     mov led_0,b
	     lcall disp

             lcall atok
             LCALL ATDELAY
             lcall atcnmi
             LCALL ATDELAY
             lcall atcmgf
             lcall atdelay
             lcall atdelay 
             lcall atcmgs
             ;lcall atcmgs2 
             
             CLR   RI
             SETB  REN
             JNB   RI,$
             CLR   REN
             MOV   A,SBUF
             MOV   P0,A
                           
             LCALL FAXIAOXI
             lcall atdelay
             lcall atdelay 
             
	     ljmp $

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

          org 0300h
  at1:    db  "AT",0DH
  at2:    db  "AT+CNMI=2,2,0,0,0",0dh
  at3:    db  "AT+CMGF=1",0dh
  at4:    db  "AT+CMGS=",22H,"13570220032",22H,0dh ,0DH
          ;DB  41h,54h,2bh,43h,4dh,47h,53h,3dh,22h,31h,33h
  ;at5:    db  35h,38h,30h,33h,37h,38h,33h,33h,33h,22h,0DH     
xiaoxi:   db  "nihao!",0Ah,0dh
	  end