Código ASSEMBLEIA para 89C51 usando RS232

[vanbayhoang]

Por favor, qualquer um pode me fornecer o código ASSEMBLEIA with89c51 usando RS232!

 

[Naveed Ahmed]

;================================================= ===================================
; =
; = EM NOME DO ----- =
;================================================= ===================================
; a SMS ENVIAR
;------------------------------------------------- -----------------------------------
;-------------------------- BYTE CESSÃO --------------------- ----------------------
;------------------------------------------------- -----------------------------------

;------------------------------------------------- -----------------------------------
;-------------------------- PORT CESSÃO --------------------- ----------------------
;------------------------------------------------- -----------------------------------
LED1 EQU P2
LED2 EQU P0

;------------------------------------------------- -----------------------------------
ORG 00H
;------------------------------------------------- -----------------------------------
JMP INIT
;------------------------------------------------- -----------------------------------

;------------------------------------------------- -----------------------------------
ORG 23H

JMP S0ISR

;------------------------------------------------- -----------------------------------

;------------------------------------------------- -----------------------------------
ORG 30H;================================================= =====================================

INIT:
MOV LED1, # 00
MOV LED2, # 00
MOV B, # 00

MOV TMOD, # 20H; SELECÇÃO MODE 2 (8 BIT AUTO RELOAD) do Timer1.
MOV TH1, # -3; 9600 taxa de transmissão para Comunicação Serial.
MOV SCON, # 50H; SELECÇÃO MODE 1 (8 BIT DATA, 1 STOP & 1 START BIT), PARA Comunicação Serial
SETB TR1

PAUSA CALL
PAUSA CALL

;================================================= =========================================

PRINCIPAL:
CALL SEND_SMS

JMP MAIN

;================================================= ==================================

SEND_SMS:CALL ATC
CALL CARRET
PAUSA CALL
CALL CMGF
CALL CARRET
PAUSA CALL
CALL CMGS
CALL CARRET
PAUSA CALL
SMS_MESSAGE CALL
PAUSA CALL
CALL CTRZ

MOV A, B
A CPL
MOV B, A
MOV LED1, B

RET

;================================================= ==================================
SMS_MESSAGE:
MOV DPTR, # SMSMSG
CALL CONF

RET;================================================= ==================================
S0ISR:CLR RI
MOV A, SBUF

MOV @ R0, A
INC R0

RETI;================================================= =====================================
NOWDEL:

ACALL ATC
ACALL CARRET

ACALL CMGD
ACALL CARRET
RET
;================================================= ===================================
ATC: MOV R2, # 00
MOV A, # 00
MOV DPTR, # MES9
CLR TI

String9:
MOVC A, @ A DPTR
MOV SBUF, A
JNB TI, $
CLR TI
ACALL ATRASO
INC R2
MOV A, R2
CJNE R2, # 2, String9
RET

;================================================= ====================================
CARRET:
MOV R2, # 00
MOV A, # 00
MOV DPTR, # CAR
CLR TI

String3:
MOVC A, @ A DPTR
MOV SBUF, A
JNB TI, $
CLR TI
ACALL ATRASO
INC R2
MOV A, R2
CJNE R2, # 2, string3
RET
;================================================= ==========================================

CMGF:
MOV R2, # 00
MOV A, # 00
MOV DPTR, # MES6
CLR TI

Seqüência6:
MOVC A, @ A DPTR
MOV SBUF, A
JNB TI, $
CLR TI
ACALL ATRASO
INC R2
MOV A, R2
CJNE R2, # 9, seqüência6
RET

;================================================= =============================================

CMGS:
MOV R2, # 00
MOV A, # 00
MOV DPTR, # MES15
CLR TI

STRING15:
MOVC A, @ A DPTR
MOV SBUF, A
JNB TI, $
CLR TI
ACALL ATRASO
INC R2
MOV A, R2
CJNE R2, # 21, STRING15
RET
;================================================= =============================================

CPMS:
MOV R2, # 00
MOV A, # 00
MOV DPTR, # MES17
CLR TI

STRING17:
MOVC A, @ A DPTR
MOV SBUF, A
JNB TI, $
CLR TI
ACALL ATRASO
INC R2
MOV A, R2
CJNE R2, # 12, STRING17
RET

;================================================= ==============================================

CMGR:
MOV R2, # 00
MOV A, # 00
MOV DPTR, # mes7
CLR TI

STRING7:
MOVC A, @ A DPTR
MOV SBUF, A
JNB TI, $
CLR TI
ACALL ATRASO
INC R2
MOV A, R2
CJNE R2, # 9, STRING7
RET
;================================================= ==============================================
CMGD:
MOV R2, # 00
MOV A, # 00
MOV DPTR, # MES8
CLR TI

String8:
MOVC A, @ A DPTR
MOV SBUF, A
JNB TI, $
CLR TI
ACALL ATRASO
INC R2
MOV A, R2
CJNE R2, # 9, String8
RET
;================================================= ==============================================

CTRZ:
MOV R2, # 00
MOV A, # 00
MOV DPTR, # MSG16
CLR TI

String16:
MOVC A, @ A DPTR
MOV SBUF, A
JNB TI, $
CLR TI
ACALL ATRASO
INC R2
MOV A, R2
CJNE R2, # 1, String16
RET

;================================================= ===============================================
CONF:
MOV R2, # 00
MOV A, # 00
CLR TI

STRING10:

MOVC A, @ A DPTR
CJNE A, # 2AH, TRANS
RET

TRANS: MOV SBUF, A
JNB TI, $
CLR TI
CALL DELAY
INC R2
MOV A, R2
JMP STRING10;
;================================================= ==============================
DELAY:
MOV R4, # 100
HERE2:
MOV R3, # 255
AQUI:
DJNZ R3, AQUI
DJNZ R4, HERE2
RET

;================================================= ===============

CLRMEM:
MOV R0, # 84H
DOAGAIN:
MOV @ R0, # 0H
INC R0
CJNE R0, # 0FCH, DOAGAIN
RET;================================================= ===============

PAUSE:
MOV R7, # 64
COOLIT: ACALL ATRASO
DJNZ R7, COOLIT
RET
;================================================= ==================;================================================= ===============
; =
; =
; = Look Up Table =
; =
; =
;================================================= ===============

MES6: DB "AT CMGF = 1 ","*"

Mes7: DB "AT CMGR = 1 ","*"

MES8: DB "AT CMGD = 1 ","*"

MES9: DB "AT ","*"

MES15: DB "AT CMGS =", 022H, "03333184821", 022H, 0

MSG16: DB 01AH, "*"

MES17: DB "AT CPMS =", 022H, "ME", 022H, 0

CAR: DB 0DH, 0AH, "*"

SMSMSG: DB CONTROLO "SMS DE TRANSMISSÃO ","*"FIMAtenciosamente
Naveed Khowaja

 

[vanbayhoang]

Obrigado por sua ajuda!
have fun!

 

[Naveed Ahmed]

You are welcome ...

Obrigado

Atenciosamente
Naveed Khowaja