短信收发测试成功.asm

基于GSM与51单片机间传输短讯代码。单片机通过识别指令完成相应功能

                ORG     0000H
                AJMP    MAIN
                ORG     0023H
                AJMP    EAIN0
                ;RETI
                ORG     0030H
MAIN:           MOV     TMOD,#20H
                MOV     TCON,#00H
                MOV     TH1,#0FDH
                MOV     TL1,#0FDH
                SETB    TR1
                MOV     SCON,#50H
                MOV     R2,#00
                MOV     R1,#30H
                MOV     R3,#3
                MOV     DPTR,#TAB
                CLR     RI
                CLR     TI
                SETB    ES
                SETB    EA
LOOP:           MOV     A,R2
                MOVC    A,@A+DPTR
                MOV	SBUF,A
                JBC     TI,$
                INC     R2
                CLR     TI
                CJNE    A,#0DH,WAIT
                CALL    DELAY
                ;CALL    DELAY
                DJNZ    R3,WAIT
                SJMP   $
WAIT1:          MOV     R2,#00H
WAIT:           CALL    DELAY                ;延时时间过短可能会出错。
  
                AJMP    LOOP
DELAY:          MOV     R6,#255
DL1:            MOV     R7,#255
DL2:            DJNZ    R7,DL2
                DJNZ    R6,DL1
                RET

EAIN0:          JNB     RI,NON
                CLR     RI
RECEV:          MOV     A,SBUF
                MOV     @R1,A
                INC     R1
                AJMP    OK
NON:            CLR     TI
OK:             RETI

TAB:            DB     'AT+CMGF=1'
                DB      0DH
                DB     'AT+CMGs=13580454225'
                DB      0DH
                DB     'ATD11'
                DB      1AH
                DB      0DH