G
Guest
Guest
Хай експерти,
Искам да изпратя съобщение до мобилен телефон от GSM активира от Micro 89C51.I съм с следния код.Но кодът не работи.Може ли някой да развенчава и правилно го харесвам ......Судан
; Кодекс
орг 00Н
ajmp основните
орг 30 ч.
MOV P1, # 00Н
MOV P3, # 00Н
MOV P2, # 00Н
setb p2.1Основните: MOV scon, # 50h
MOV tmod, # 20h
MOV ТН1, # 0fdhMOV ОРТК, # string1
повикване send_string
ПОКАНА DELAY
MOV ОРТК, # МНОЖ2
повикване send_string
повикване закъснение
MOV ОРТК, # string5
повикване send_string
повикване закъснение
MOV ОРТК, # string3
повикване send_string
повикване закъснениеMOV ОРТК, # string4
повикване send_string
покана закъснение
MOV ОРТК, # string5
повикване send_string
повикване закъснение
повикване here1send_string:
L1: CLR едно
МОУС А, @ А ОРТК
setb TR1
acall изпрати
Inc ОРТК
JZ L2
sjmp L1
изпрати: MOV sbuf, един
тук: jnb ти, тук
CLR TI
кисна
L2: NOPЗабавяне:
MOV R1, # 0FFH
REP2:
MOV R2, # 0FFH
REP1:
NOP
DJNZ R2, REP1
DJNZ R1, REP2
RET
string1: db "AT CMGS", 0
МНОЖ2: db "9840657600", 0
string3: db "съобщение", 0
string4: db 0x1a, 0
string5: db 0x0d, 0here1: ajmp here1
край
Искам да изпратя съобщение до мобилен телефон от GSM активира от Micro 89C51.I съм с следния код.Но кодът не работи.Може ли някой да развенчава и правилно го харесвам ......Судан
; Кодекс
орг 00Н
ajmp основните
орг 30 ч.
MOV P1, # 00Н
MOV P3, # 00Н
MOV P2, # 00Н
setb p2.1Основните: MOV scon, # 50h
MOV tmod, # 20h
MOV ТН1, # 0fdhMOV ОРТК, # string1
повикване send_string
ПОКАНА DELAY
MOV ОРТК, # МНОЖ2
повикване send_string
повикване закъснение
MOV ОРТК, # string5
повикване send_string
повикване закъснение
MOV ОРТК, # string3
повикване send_string
повикване закъснениеMOV ОРТК, # string4
повикване send_string
покана закъснение
MOV ОРТК, # string5
повикване send_string
повикване закъснение
повикване here1send_string:
L1: CLR едно
МОУС А, @ А ОРТК
setb TR1
acall изпрати
Inc ОРТК
JZ L2
sjmp L1
изпрати: MOV sbuf, един
тук: jnb ти, тук
CLR TI
кисна
L2: NOPЗабавяне:
MOV R1, # 0FFH
REP2:
MOV R2, # 0FFH
REP1:
NOP
DJNZ R2, REP1
DJNZ R1, REP2
RET
string1: db "AT CMGS", 0
МНОЖ2: db "9840657600", 0
string3: db "съобщение", 0
string4: db 0x1a, 0
string5: db 0x0d, 0here1: ajmp here1
край