?? 家庭無線報警系統(tǒng)1.asm
字號:
;采用AT89S51單片機(jī)，晶振11.0592MHZ，通訊速率9600，采用TTL串口通訊
;LED緩存第1行是40H-4FH,上面行
;LED緩存第2行是30H-3FH,下面行
;手機(jī)號碼緩存在50H-5BH的12個內(nèi)存中
;密碼"車輛報警"存放在5CH-73H的24個內(nèi)存中6個中文字
;手機(jī)號碼存放在74H-7FH的12個內(nèi)存中
;設(shè)防標(biāo)志存放在位地址7FH中
ORG 0000H
AJMP MAIN;轉(zhuǎn)入主程序
ORG 0003H ;外部中斷P3.2腳INT0入口地址
NOP
NOP
NOP
NOP
NOP
NOP
RETI
ORG 000BH;中斷陷阱
NOP
NOP
NOP
NOP
NOP
NOP
RETI
ORG 0013H;中斷陷阱
NOP
NOP
NOP
NOP
NOP
NOP
RETI
ORG 001BH;中斷陷阱
NOP
NOP
NOP
NOP
NOP
NOP
RETI
ORG 0023H
NOP
NOP
NOP
NOP
RETI
LCD_RS BIT P2.0;RS
LCD_RW BIT P2.1;RW
LCD_EN BIT P2.2;E
FOK EQU P1.0;定義為啦叭
SX EQU P1.1;定義手機(jī)模塊上線標(biāo)志
SJKJ EQU P1.2;定義手機(jī)模塊激活控制端
; SJGJ EQU P2.3;定義手機(jī)模塊關(guān)機(jī)控制端
; EQU P2.4;定義
LED EQU P1.7;定義
; EQU P2.6;定義
DY EQU P1.6;定義電源斷線控制端
VT EQU P3.2;定義解碼有效標(biāo)志
DM EQU P3.4;定義大門控制端
HW EQU P3.5;定義紅外報警端
YKSF EQU P3.6;定義遙控設(shè)防端
YKJSF EQU P3.7;定義遙控解設(shè)防端
DD EQU P3.3;定義低電壓報告
MAIN:
CALL SET_LCD;LCD 初始化設(shè)置
CLR SJKJ
;以下為主程序進(jìn)行CPU中斷方式設(shè)置
SETB IT0 ;設(shè)定INT0的觸發(fā)方式為脈沖負(fù)邊沿觸發(fā),報警觸發(fā)控制端
MOV SCON,#50H;設(shè)置成串口1方式
MOV TMOD,#20H;波特率發(fā)生器T1工作在模式2上
MOV TH1,#0FDH;預(yù)置初值(按照波特率9600BPS預(yù)置初值)
MOV TL1,#0FDH;預(yù)置初值(按照波特率9600BPS預(yù)置初值)
SETB TR1;啟動定時器T1
MOV PCON,#00H
LCALL YUSJ;開機(jī)清除接收短消息手機(jī)號碼
SETB SJKJ;打開手機(jī)
MOV DPTR,#500;延時500ms
LCALL DELAYXMS;開機(jī)延時
CLR SJKJ;復(fù)位手機(jī)控制
LCALL ATE0OK;開機(jī)發(fā)送ATE0指令!
LCALL CNMI ;發(fā)送(AT+CNMI=1,1,0,0,1),短信到達(dá)TE 新信息指示
LCALL SCQBDX;調(diào)用刪除SIM卡中所有短信的子程序
;完成和手機(jī)通信握手,和SIM卡刪除所有短消息初始化
START:
LCALL XRSJ;讀出授權(quán)電話號碼及密碼,寫入內(nèi)存中
LCALL MJCS;串口接收模塊數(shù)據(jù)OK響一聲
LCALL MJCS;串口接收模塊數(shù)據(jù)OK響一聲
CLR SX;模塊上線
;**********************************************
KKS:
JB RI,UART;檢測到RI變1就退出
JB VT,PDYKSH;解碼有效標(biāo)志=0則轉(zhuǎn)PDYKSH判斷遙控信號
JB RI,UART;檢測到RI變1就退出
JNB DY,DYBJ;電源斷線控制端=0則轉(zhuǎn)DYBJ電源報警
AJMP KKS
;**********************************************
PDYKSH:
MOV DPTR,#10;延時10mS
LCALL DelayXmS;開機(jī)延時
JB VT,PDYKSH;延時防止誤碼報
JB DM,DMBJ;大門報警端=0則轉(zhuǎn)DMBJ大門報警
JB HW,HWBJ;紅外報警端=0則轉(zhuǎn)HWBJ紅外報警
JB YKSF,YKSFSZ;遙控設(shè)防端=0則轉(zhuǎn)遙控設(shè)防設(shè)置
JB YKJSF,YKJSFSZ;遙控解設(shè)防端=0則轉(zhuǎn)遙控解設(shè)防設(shè)置
AJMP KKS
;**********************************************
UART:
LJMP UARTI
DYBJ:;電源報警
LCALL FDYBJ
AJMP KKS
DMBJ:;大門報警
JB LED,KKS;如果設(shè)防標(biāo)志SFBZ=0則退出
LCALL FDMBJ
AJMP KKS
HWBJ:;紅外報警
JB LED,KKS;如果設(shè)防標(biāo)志SFBZ=0則退出
LCALL FHWBJ
AJMP KKS
YKSFSZ:;設(shè)防
CLR LED
AJMP KKS
YKJSFSZ:;解設(shè)防
SETB LED
AJMP KKS
;-----------------------------------------------------
;LCD 初始化設(shè)置
;-----------------------------------------------------
SET_LCD:
CLR LCD_EN
CALL INIT_LCD ;初始化 LCD
MOV DPTR,#3
LCALL DelayXmS
MOV DPTR,#TAB8 ;指針指到顯示信息1
MOV R0,#40H
MOV R1,#0
CALL ZSJ;轉(zhuǎn)數(shù)據(jù)到顯示緩沖區(qū)
MOV A,#1 ;顯示在第一行
MOV R0,#40H
MOV R1,#0
CALL LCD_SHOW
MOV DPTR,#TAB9 ;指針指到顯示信息2
MOV R0,#30H
MOV R1,#0
CALL ZSJ;轉(zhuǎn)數(shù)據(jù)到顯示緩沖區(qū)
MOV A,#2 ;顯示在第二行
MOV R0,#30H
MOV R1,#0
CALL LCD_SHOW
RET
;-----------------------------------------------------
;轉(zhuǎn)數(shù)據(jù)到顯示緩沖區(qū)
;-----------------------------------------------------
ZSJ:
CLR A
MOVC A,@A+DPTR ;由消息區(qū)取出字符
MOV @R0,A
INC R0
INC DPTR
INC R1
CJNE R1,#10H,ZSJ
RET
;-----------------------------------------------------
;LCD 接口初始化
;8 位I/O 控制
;-----------------------------------------------------
INIT_LCD:
MOV A,#38H ;雙列顯示，字形5*7 點陣
CALL WCOM;寫入命令
MOV DPTR,#3
LCALL DelayXmS
MOV A,#0CH ;開顯示，關(guān)光標(biāo)，
CALL WCOM;寫入命令
MOV DPTR,#3
LCALL DelayXmS
MOV A,#01H ;清除 LCD 顯示屏
CALL WCOM;寫入命令
RET
;----------------------------------------------------
;在LCD 的第一行或第二行顯示信息字符
;----------------------------------------------------
LCD_SHOW:
CJNE A,#1,LINE2 ;判斷是否為第一行
LINE1: MOV A,#80H ;設(shè)置 LCD 的第一行地址
CALL WCOM ;寫入命令
JMP FILL
LINE2: MOV A,#0C0H ;設(shè)置 LCD 的第二行地址
CALL WCOM ;寫入命令
FILL:
CLR A ;填入字符
MOV A,@R0 ;由消息區(qū)取出字符
INC R1
CJNE R1,#11H,LC1;判斷是否為結(jié)束碼
RET
LC1: CALL WDATA ;寫入數(shù)據(jù)
INC R0
JMP FILL ;繼續(xù)填入字符
RET
;-----------------------------------------------------*/
; 寫指令、數(shù)據(jù)使能子程序
;-----------------------------------------------------
ENABLE: ;寫指令使能
CLR LCD_RS ;RS=L,LCD_RW=L,D0-D7=指令碼，E=高脈沖
CLR LCD_RW
SETB LCD_EN
CALL DELAY0
CLR LCD_EN
RET
ENABLE1: ;寫數(shù)據(jù)使能
SETB LCD_RS ;RS=H,RW=L,D0-D7=數(shù)據(jù)，E=高脈沖
CLR LCD_RW
SETB LCD_EN
CALL DELAY0
CLR LCD_EN
RET
DELAY0:
MOV R7,#250 ;延時500 微秒
DJNZ R7,$
RET
;----------------------------------------------------
;寫入命令子程序
;----------------------------------------------------
WCOM: ;以8位控制方式將命令寫至LCD
MOV P0,A ;寫入命令
CALL ENABLE
RET
;----------------------------------------------------
;寫入數(shù)據(jù)子程序
;----------------------------------------------------
WDATA: ;以8位控制方式將數(shù)據(jù)寫至LCD
MOV P0,A ;寫入數(shù)據(jù)
CALL ENABLE1
RET
/*
;報警程序
BAOJIN:
LCALL CPAS;調(diào)用模塊狀態(tài)報告子程序
MOV A,25H
CJNE A,#34H,BAOJIN1;判斷串口數(shù)據(jù)如果A不等于#34H則BAOJIN1
AJMP BAOJIN3;如果模塊正在呼出或通話,就退出
BAOJIN1:
LCALL CPAS
MOV A,25H
CJNE A,#34H,BAOJIN2
AJMP BAOJIN3;如果模塊正在呼出或通話,就退出
BAOJIN2:
LCALL ATH;調(diào)用串口發(fā)送ATH掛機(jī)子程序
LCALL PDOK;判斷手機(jī)是否回答OK?
JZ BAOJIN2;如果沒有檢測到OK,重復(fù)發(fā)
LCALL FBJDX;調(diào)用發(fā)報警短信子程序
LCALL FSCG;調(diào)用短信發(fā)送檢測子程序
MOV DPTR,#3000;延時5秒
LCALL DelayXmS
LCALL HC;發(fā)回車
MOV DPTR,#1000;延時5秒
LCALL DelayXmS
LCALL ATD;調(diào)用串口發(fā)送"ATD13906079959;"子程序
MOV R3,#14;定義接收手機(jī)號碼的數(shù)據(jù)長度0D 0A 4E 4F 20 43 41 52 52 49 45 52 0D 0A NO CARRIER
MOV R0,#30H;數(shù)據(jù)在內(nèi)存的存放位置
LCALL GPSSJ;調(diào)用接收串口數(shù)據(jù)子程序
BAOJIN3:
AJMP KKS */
;**********************************************
;**********************************************
;進(jìn)入串口中斷方式接收
UARTI:
CLR RI;清楚串口中斷標(biāo)志
LCALL PDDA;調(diào)用串口接收0D/0A數(shù)據(jù)子程序
LCALL PDRI;等待下一個串口數(shù)據(jù)
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
CJNE A,#2BH,PDRD;判斷串口數(shù)據(jù)+
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDRI;等待下一個串口數(shù)據(jù)
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
CJNE A,#43H,EXITT1;判斷串口數(shù)據(jù)C
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDRI;等待下一個串口數(shù)據(jù)
;+CMTI: "SM",7短信到達(dá)存放位置
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
CJNE A,#4DH,EXITT1;判斷串口數(shù)據(jù)M
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDRI;等待下一個串口數(shù)據(jù)
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
CJNE A,#54H,EXITT1;判斷串口數(shù)據(jù)T
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDRI;等待下一個串口數(shù)據(jù)
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
CJNE A,#49H,EXITT1;判斷串口數(shù)據(jù)I
CLR RI;軟件清除串口中斷標(biāo)記
;檢測到"+CMTI"的ASCII碼--------
;跳過7個內(nèi)存(: "SM",）
MOV R3,#7;定義接收數(shù)據(jù)的總長度
LCALL TGSJ;調(diào)用接收串口數(shù)據(jù)子程序
;短信位置,存放在26H中
MOV R0,#26H;數(shù)據(jù)在內(nèi)存的存放位置
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDRI;等待下一個串口數(shù)據(jù)
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
MOV @R0,A
INC R0;內(nèi)存單元地址0
;跳過8個內(nèi)存
MOV R3,#8;定義接收數(shù)據(jù)的總長度
LCALL TGSJ;調(diào)用接收串口數(shù)據(jù)子程序
LCALL DXNR;解析短信內(nèi)容
EXITT1:
LJMP EXITT
PDRD:
LCALL RING;電話呼入提示
EXITT:
CLR RI;軟件清除串口中斷標(biāo)記,退出串口中斷
AJMP KKS
RING3:
JMP RING1
;**********************************************
RING:;電話呼入提示
CLR RI;清除串口中斷標(biāo)志
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
CJNE A,#52H,RING3;判斷串口數(shù)據(jù)R
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDRI;等待下一個串口數(shù)據(jù)
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
CJNE A,#49H,RING3;判斷串口數(shù)據(jù)I
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDRI;等待下一個串口數(shù)據(jù)
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
CJNE A,#4EH,RING3;判斷串口數(shù)據(jù)N
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDRI;等待下一個串口數(shù)據(jù)
MOV A,SBUF;將串口寄存器中接收到的數(shù)據(jù)給A
CJNE A,#47H,RING1;判斷串口數(shù)據(jù)G
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDDA;調(diào)用串口接收0D/0A數(shù)據(jù)子程序
MOV DPTR,#100;延時0.1秒
LCALL DelayXmS
;發(fā)送AT+CLCC
LCALL CLCC;調(diào)用來電顯示指令子程序
;跳過20個內(nèi)存(: 1,1,4,0,0,"）
MOV R3,#20;定義接收數(shù)據(jù)的總長度
LCALL TGSJ;調(diào)用跳過數(shù)據(jù)子程序
MOV R3,#13;定義接收數(shù)據(jù)的總長度為12個
MOV R0,#44H;數(shù)據(jù)從內(nèi)存的44H開始依次往后存放
LCALL GPSSJ;調(diào)用接收串口數(shù)據(jù)子程序
MOV R3,#13;跳過13個數(shù)據(jù)
LCALL TGSJ;調(diào)用跳過串口數(shù)據(jù)子程序
MOV A,#1 ;顯示在第一行
MOV 40H,#"T"
MOV 41H,#"E"
MOV 42H,#"L"
MOV 43H,#":"
MOV R0,#40H
MOV R1,#0
CALL LCD_SHOW;顯示來電號碼
;檢查是否繼續(xù)呼入
;等待第二次RING電話呼入提示
CLR RI;軟件清除串口中斷標(biāo)記
LCALL PDDXRI;5秒內(nèi)檢測串口是否有數(shù)據(jù)返回?
JNC RING1;如果5秒內(nèi)沒檢查到鈴音,就退出
;震鈴大約22S后進(jìn)入通話狀態(tài)
;跳過8個內(nèi)存
MOV R3,#8;定義接收數(shù)據(jù)的總長度
LCALL TGSJ;調(diào)用接收串口數(shù)據(jù)子程序
;**********************************************
PDLYT:
;發(fā)送AT+CPAS,模塊狀態(tài)報告
MOV R2,#30
ZLYKK1:
MOV DPTR,#500;延時0.5秒
LCALL DelayXmS
LCALL CPAS;調(diào)用模塊狀態(tài)報告子程序
MOV A,25H
CJNE A,#30H,ZL1;掛機(jī)后會收到2次30，沒掛機(jī)收到的是33
RET;對方掛機(jī)就退出
; AJMP ZLYK;如果沒有檢測到呼入,就進(jìn)入振鈴遙控
ZL1:
DJNZ R2,ZLYKK1
MOV R2,#15;大約15S后
ZLYKK2:
MOV DPTR,#500;延時0.5秒
LCALL DelayXmS
LCALL CPAS;調(diào)用模塊狀態(tài)報告子程序
MOV A,25H
CJNE A,#30H,ZL2
AJMP RING2;如果沒有檢測到呼入,就退出
ZL2:
DJNZ R2,ZLYKK2;大約22S后應(yīng)答
;**********************************************
;發(fā)送AT+CLCC
LCALL CLCC;調(diào)用來電顯示指令子程序
;跳過20個內(nèi)存(: 1,1,4,0,0,"）
MOV R3,#20;定義接收數(shù)據(jù)的總長度
LCALL TGSJ;調(diào)用跳過數(shù)據(jù)子程序
LCALL DHHM;判斷來電號碼
JZ RING2;號碼不對(A==0),就退出
; JZ GJ;號碼不對(A==0),則調(diào)用掛機(jī)子程序
; ;跳過13個內(nèi)存
; MOV R3,#13;定義接收數(shù)據(jù)的總長度
; LCALL TGSJ;調(diào)用接收串口數(shù)據(jù)子程序
LCALL ATA;應(yīng)答
RING1:
AJMP RING2
/* GJ:
MOV DPTR,#500;延時1秒
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -