LCALL HC
MOV DPTR,#1200
LCALL DELAYXMS
RET
RET
;删除短信的子程序
SCJSDX:
MOV R2,#1
DXSC1:
LCALL DXSZ;调用将R2转化成两位ASCII数值子程序
;十位为20H,个位为21H
LCALL SCDD1;调用删除短信程序,同一条短信删除1次
INC R2
CJNE R2,#5,DXSC1;删除超过25条也退出循环
RET
;取出删除短信条数的十位/个位
DXSZ:
MOV A,R2
MOV B,#10 ;取出十位和个位
DIV AB
ORL A,#00110000B;调整为ASCII码
MOV 20H,A ;十位在a
MOV 21H,B ;个位在b
MOV A,21H
ORL A,#00110000B;调整为ASCII码
MOV 21H,A
RET
SCDD1:
LCALL SCDX;调用删除第X条短信指令子程序
MOV A,20H
LCALL FS
MOV A,21H
LCALL FS
LCALL HC
MOV DPTR,#1000
LCALL DELAYXMS
RET
;判断串口数据时候发送成功？超时退出
PDTI:;占用R4/R5/R1
MOV R1,#200;5毫秒超时退出!
PSZ:
MOV R4,#5
DT2: MOV R5,#5
DT1:JB TI,KQ
DJNZ R5,DT1
JB TI,KQ
DJNZ R4,DT2;25毫秒检测一次
DJNZ R1,PSZ;超时退出
KQ:
RET
;判断串口数据是否接收成功？超时退出
PDRI:;占用R4/R5/R1
MOV R1,#60;300毫秒超时退出!
PBZ: MOV R4,#200
DY2: MOV R5,#25
DY1:JB RI,KKQ;检测到RI变1就退出
DJNZ R5,DY1;25微秒检测一次
JB RI,KKQ;检测到RI变1就退出
SETB C;程序正常时C=1
DJNZ R4,DY2;内循环50毫秒
DJNZ R1,PBZ;超时退出
CLR C;对串口接收超时退出C=0
CLR RI;清除有串口数据标志
KKQ:RET
;判断短信是否发送成功？超时退出
PDDXRI:;占用R4/R5/R1
MOV R1,#1000;5秒超时退出!
PBZ1: MOV R4,#200
DY22: MOV R5,#25
DY33:JB RI,KKQ1;检测到RI变1就退出
DJNZ R5,DY33;延时25微秒检测一次
JB RI,KKQ1;检测到RI变1就退出
SETB C;程序正常时C=1
DJNZ R4,DY22;内循环50毫秒
DJNZ R1,PBZ1;超时退出
CLR C;对串口接收超时退出C=0
CLR RI;清除有串口数据标志
KKQ1:RET
;跳过接收数据的子程序(专门针对PDU码数据)
TGSJ:
SETB C
CLR RI;软件清除串口中断标记
LCALL PDRI;等待下一个串口数据
MOV A,SBUF;将串口寄存器中接收到的数据给A
JNC XPAS;如果检测到发生超时退出,就跳出这段程序
DJNZ R3,TGSJ;判断是否已经收全部数据？
XPAS:
RET
;接收短信授权后的手机号码子程序
GPSSJ:
CLR RI;软件清除串口中断标记
LCALL PDRI;等待下一个串口数据
MOV A,SBUF;将串口寄存器中接收到的数据给A
MOV @R0,A
INC R0;内存单元地址
DJNZ R3,GPSSJ;判断是否已经收全部数据？
RET
FS:
CLR TI;先对TI进行软件复位
MOV SBUF,A
LCALL PDTI;调用检测TI变为高电平的子程序
RET
;发送汉字的子程序（DPTR存放汉字内码、R1存放汉字的字数X2）
FSS:
MOV R3,#0
CF2:CLR TI;对TI软件复位
MOV A,R3
MOV C A,@A+DPTR;查表汉字的内码
MOV SBUF,A
JNB TI,$;如果TI为0说明发送没有完成，程序等待
INC R3
MOV A,R3
DJNZ R1,CF2
RET
;这是发送内存数据的子程序
HZSZ:
CLR TI;先对TI进行软件复位
MOV A,@R0
MOV SBUF,A
LCALL PDTI;调用检测TI变为高电平的子程序
INC R0
DJNZ R3,HZSZ
RET
;鸣叫一声子程序
MJCS:
CLR FOK
MOV DPTR,#2500
LCALL DELAYXMS
SETB FOK
RET
;***************************************************
;***************************************************
;入口参数:DPTR=MS（毫秒1-65535mS）
DELAYXMS:
MOV A,DPH
MOV R7,#01
JZ DF1
MOV R7,DPH
DF1:
MOV A,DPl
MOV R6,#1
JZ DEL1
MOV R6,DPl
DEL1:
MOV B,#0
DJNZ B,$
DJNZ B,$
DJNZ R6,DEL1
DJNZ R7,DF1
RET
NOP
NOP
;恭喜您!您已经获得车辆报警系统的控制权限!密码:
TAB1:DB 36H,30H,36H,44H,35H,35H,39H,43H; 606D559C
DB 36H,30H,41H,38H,30H,30H,32H,31H; 60A80021
DB 36H,30H,41H,38H,35H,44H,46H,32H; 60A85DF2
DB 37H,45H,43H,46H,38H,33H,42H,37H; 7ECF83B7
DB 35H,46H,39H,37H,38H,46H,36H,36H; 5F978F66
DB 38H,46H,38H,36H,36H,32H,41H,35H; 8F8662A5
DB 38H,42H,36H,36H,37H,43H,46H,42H; 8B667CFB
DB 37H,45H,44H,46H,37H,36H,38H,34H; 7EDF7684
DB 36H,33H,41H,37H,35H,32H,33H,36H; 63A75236
DB 36H,37H,34H,33H,39H,36H,35H,30H; 67439650
DB 30H,30H,32H,31H,35H,42H,43H,36H; 00215BC6
DB 37H,38H,30H,31H,30H,30H,33H,41H; 7801003A
;有人动您的车,请察看!16
TAB2:DB 36H,37H,30H,39H,34H,45H,42H,41H;67094EBA
DB 35H,32H,41H,38H,36H,30H,41H,38H;52A860A8
DB 37H,36H,38H,34H,38H,46H,36H,36H;76848F66
DB 30H,30H,32H,43H,38H,42H,46H,37H;002C8BF7
DB 35H,42H,44H,46H,37H,37H,30H,42H;5BDF770B
DB 30H,30H,32H,31H;0021
;车辆电源异常,请检查!16
TAB3:DB 38H,46H,36H,36H,38H,46H,38H,36H;8F668F86
DB 37H,35H,33H,35H,36H,45H,39H,30H;75356E90
DB 35H,46H,30H,32H,35H,45H,33H,38H;5F025E38
DB 30H,30H,32H,43H,38H,42H,46H,37H;002C8BF7
DB 36H,38H,43H,30H,36H,37H,45H,35H;68C067E5
DB 30H,30H,32H,31H;0021
;车门已被打开,请检查!16
TAB4:DB 38H,46H,36H,36H,39H,35H,45H,38H;8F6695E8
DB 35H,44H,46H,32H,38H,38H,41H,42H;5DF288AB
DB 36H,32H,35H,33H,35H,46H,30H,30H;62535F00
DB 30H,30H,32H,43H,38H,42H,46H,37H;002C8BF7
DB 36H,38H,43H,30H,36H,37H,45H,35H;68C067E5
DB 30H,30H,32H,31H;0021
;行李厢异常,请检查!14
TAB5:DB 38H,38H,34H,43H,36H,37H,34H,45H;884C674E
DB 35H,33H,41H,32H,35H,46H,30H,32H;53A25F02
DB 35H,45H,33H,38H,30H,30H,32H,43H;5E38002C
DB 38H,42H,46H,37H,36H,38H,43H,30H;8BF768C0
DB 36H,37H,45H,35H,30H,30H,32H,31H;67E50021
;车辆被劫,请速与110联系!!1E
TAB6:DB 38H,46H,36H,36H,38H,46H,38H,36H;8F668F86
DB 38H,38H,41H,42H,35H,32H,41H,42H;88AB52AB
DB 30H,30H,32H,43H,38H,42H,46H,37H;002C8BF7
DB 39H,30H,31H,46H,34H,45H,30H,45H;901F4E0E
DB 30H,30H,33H,31H,30H,30H,33H,31H;00310031
DB 30H,30H,33H,30H,38H,30H,35H,34H;00308054
DB 37H,43H,46H,42H,30H,30H,32H,31H;7CFB0021
DB 30H,30H,32H,31H;0021
;解防 04
TAB7:DB 38H,39H,45H,33H,39H,36H,33H,32H;89E39632
;设防 04
TAB8:DB 38H,42H,42H,45H,39H,36H,33H,32H;8BBE9632
END
上一页 [1] [2] [3] [4] [5] [6] [7]
本文关键字：源程序 报警系统 西门子 手机开发 51单片机，单片机-工控设备 - 51单片机
