;;89C2051摩托車(chē)報(bào)警器
ORG    0000H
      AJMP   MAIN
      ORG    0050H
MAIN: MOV    P1,#0FFH
      ACALL  DD3
LOOP: JNB    P3.0,LOOP;判斷VT是否有信號(hào)
      ACALL  DL;延時(shí)防抖動(dòng)
      JB     P3.0,START;有信號(hào)則啟動(dòng)
      AJMP   LOOP;無(wú)則返回

START:JNB    P3.1,XD1;判斷D1信號(hào)
      ACALL  DL
      JB     P3.1,FDSD;有則進(jìn)入防盜設(shè)定
XD1:  JNB    P3.2,XD2;判斷D2信號(hào)
      ACALL  DL
      JB     P3.2,CBA1;有則進(jìn)入解除防盜
XD2:  JNB    P3.3,XD3;判斷D3信號(hào)
      ACALL  DL
      JB     P3.3,CBA2;有則進(jìn)入啟動(dòng)暖車(chē)
XD3:  JNB    P3.4,XD4;判斷D4信號(hào)
      ACALL  DL
      JB     P3.4,CBA3;有則進(jìn)入尋車(chē)求救
XD4:  AJMP   LOOP;無(wú)D1-D4的信號(hào)則返回

CBA1: AJMP   JCFD
CBA2: AJMP   QDNC
CBA3: AJMP   XCQJ

FDSD: MOV    R4,#0FH;二級(jí)設(shè)定鍵廷時(shí)用
      ACALL  BJ;一級(jí)防盜設(shè)定程序,先報(bào)警
      CLR    P1.1;熄火程序
      SETB   P1.2
      ACALL  DD2
      SETB   P1.1
      ACALL  DD1;延時(shí)3秒
FD1:  JNB    P3.5,FD2;判斷振動(dòng)信號(hào)
      ACALL  DL
      JB     P3.5,BZC;有則進(jìn)入5秒聲光報(bào)警程序
FD2:  JNB    P3.7,FD3;判斷鎖頭正電線是否帶電
      ACALL  DL
      JB     P3.7,BZC;有則進(jìn)入5秒聲光報(bào)警程序
FD3:  JNB    P3.0,FD4;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.2,CBA1
      JB     P3.3,CBA2
      JB     P3.4,CBA3
      JNB    P3.1,CE
      ACALL  CDSD;調(diào)用二級(jí)防盜報(bào)警
CE:   JB     P3.0,MAIN;有則返回
FD4:  DJNZ   R4,DE
      AJMP   FB1 ;超過(guò)時(shí)間就轉(zhuǎn)回到一級(jí)設(shè)定等待
DE:   AJMP   FD1

FB1:  JNB    P3.5,FB2;判斷振動(dòng)信號(hào)
      ACALL  DL
      JB     P3.5,BZC;有則進(jìn)入5秒聲光報(bào)警程序
FB2:  JNB    P3.7,FB3;判斷鎖頭正電線是否帶電
      ACALL  DL
      JB     P3.7,BZC;有則進(jìn)入5秒聲光報(bào)警程序
FB3:  JNB    P3.0,FB4;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.2,CBA1
      JB     P3.3,CBA2
      JB     P3.4,CBA3
      JB     P3.1,FDSD
FB4:  AJMP   FB1

CDSD: ACALL  BBJ;進(jìn)入二級(jí)無(wú)聲防盜設(shè)定程序
      ACALL  DD3;延時(shí)3秒
BD1:  JNB    P3.5,BD2;判斷振動(dòng)信號(hào)
      ACALL  DL
      JB     P3.5,CBZC;有則進(jìn)入無(wú)聲燈閃三下報(bào)警程序
BD2:  JNB    P3.7,BD3;判斷鎖頭正電線是否帶電
      ACALL  DL
      JB     P3.7,CBZC;有則進(jìn)入無(wú)聲燈閃三下報(bào)警程序
BD3:  JNB    P3.0,BD4;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,V;有則返回
BD4:  AJMP   BD1
V:    AJMP   LOOP

CBZC: ACALL  CBJS

BZC:  ACALL  BJS;調(diào)用5秒聲光報(bào)警程序

BG:   ACALL  DD3;延時(shí)3秒
      ACALL  DD2;延時(shí)2秒
BR:   JNB    P3.5,BC1;判斷振動(dòng)信號(hào)
      ACALL  DL
      JB     P3.5,JJ;有則進(jìn)入二級(jí)15秒報(bào)警
BC1:  JNB    P3.7,BC2;判斷鎖頭正電線是否帶電
      ACALL  DL
      JB     P3.7,JJ;有則進(jìn)入二級(jí)15秒報(bào)警
BC2:  JNB    P3.0,BC3;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,FH;有則返回
BC3:  AJMP   BD1

F:    ACALL  DD3;延時(shí)3秒
      ACALL  DD2;延時(shí)2秒
      JNB    P3.5,BZC1;判斷振動(dòng)信號(hào)
      ACALL  DL
      JB     P3.5,BJJ;有則進(jìn)入一級(jí)15秒報(bào)警
BZC1: JNB    P3.7,BZC2;判斷鎖頭正電線是否帶電
      ACALL  DL
      JB     P3.7,BJJ;有則進(jìn)入一級(jí)15秒報(bào)警
BZC2: JNB    P3.0,BZC3;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,FH;有則返回
BZC3: AJMP   FD1

BJJ:  ACALL  BZJ;調(diào)用連續(xù)一級(jí)15秒聲光報(bào)警程序
      ACALL  DD1
      JNB    P3.7,BJJ1;判斷鎖頭正電線是否帶電
      ACALL  DL
      JB     P3.7,XH;有則進(jìn)入熄火程序
BJJ1: JNB    P3.0,BJJ2;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,FH;有則返回
BJJ2: AJMP   BJJ
XH:   CLR    P1.1;熄火程序
      SETB   P1.2
      ACALL  DD2
      SETB   P1.1
      AJMP   BJJ
FH:   AJMP   MAIN

JJ:   ACALL  BZ;調(diào)用二級(jí)無(wú)燈閃15秒報(bào)警程序
      ACALL  DD1
      JNB    P3.7,JJ1;判斷鎖頭正電線是否帶電
      ACALL  DL
      JB     P3.7,XH;有則進(jìn)入熄火程序
JJ1:  JNB    P3.0,JJ2;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,FH;有則返回
JJ2:  AJMP   JJ
H:    CLR    P1.1;熄火程序
      SETB   P1.2
      ACALL  DD2
      SETB   P1.1
      AJMP   BJJ
CH:   AJMP   MAIN

JCFD: ACALL  BJ;解除防盜程序,聲光2次
      ACALL  DD1
      ACALL  BJ
      CLR    P1.1
      SETB   P1.2
      ACALL  DD2
      AJMP   MAIN

QDNC: MOV    R3,#32H ;起動(dòng)廷時(shí)用程序
EF:   JB     P3.0,EF 
E1:   MOV    R4,#0FFH
E2:   MOV    R5,#0FH
      ACALL  DL
HG:   JB     P3.0,GQ ;檢測(cè)VT信號(hào)
      ACALL  DL
      DJNZ   R5,$
      DJNZ   R4,E2
      DJNZ   R3,E1
      AJMP   LOOP  ;廷時(shí)時(shí)間內(nèi)無(wú)再有信號(hào)則返回
GQ:   ACALL  DL
      JB     P3.3,EW;再檢測(cè)D3信號(hào)
      AJMP   LOOP
EW:   CLR    P1.2;有測(cè)啟動(dòng)暖車(chē)程序
      CLR    P1.0
      ACALL  DD2
      JB     P3.0,$
      SETB   P1.0
      ACALL  DD3
      AJMP   LOOP

XCQJ: MOV    R3,#0FH;尋車(chē)求救程序(13響)
XCQJ1:ACALL  XBJ
      ACALL  DD1
      JNB    P3.0,XCQJ2;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,XCQJ3;有則返回
XCQJ2:DJNZ   R3,XCQJ1
XCQJ3:AJMP   LOOP

DL:   MOV    R6,#0AH;按鍵延時(shí)子程序
      DJNZ   R6,$
      RET

DD3:  MOV    R5,#09H;3秒延時(shí)子程序
D3:   MOV    R6,#0FFH
D4:   MOV    R7,#0FFH
      DJNZ   R7,$
      DJNZ   R6,D4
      DJNZ   R5,D3
      RET

DD2:  MOV    R5,#06H;2秒延時(shí)子程序
D5:   MOV    R6,#0FFH
D6:   MOV    R7,#0FFH
      DJNZ   R7,$
      DJNZ   R6,D6
      DJNZ   R5,D5
      RET

DD1:  MOV    R5,#03H;1秒延時(shí)子程序
D0:   MOV    R6,#0FFH
D1:   MOV    R7,#0FFH
      DJNZ   R7,$
      DJNZ   R6,D1
      DJNZ   R5,D0
      RET

BBJ:  CLR    P1.3;燈光報(bào)警子程序
      MOV    R6,#0FFH
BB1:  MOV    R7,#0FFH
      DJNZ   R7,$
      DJNZ   R6,BB1
      SETB   P1.3
      RET

XBJ:  CLR    P1.3;尋車(chē)報(bào)警子程序
      CLR    P1.4
      MOV    R6,#0FFH
XB1:  MOV    R7,#0FFH
      DJNZ   R7,$
      DJNZ   R6,XB1
      SETB   P1.4
      SETB   P1.3
      RET

BJ:   CLR    P1.3;報(bào)警聲子程序
      CLR    P1.4
      MOV    R6,#5FH
B1:   MOV    R7,#0FFH
      DJNZ   R7,$
      DJNZ   R6,B1
      SETB   P1.4
      SETB   P1.3
      RET

STA:  AJMP   START

CBjs: AJMP   CJCT
Bjs:  AJMP   BJCT

BZ:   CLR    P1.4
      CLR    P1.1
      MOV    R4,#0FH;二級(jí)報(bào)警程序(15響)
CQ1:                ;無(wú)燈閃報(bào)警
      ACALL  DD1
      JNB    P3.0,CB1;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,CB2;有則返回
CB1:  DJNZ   R4,CQ1
CB2:  SETB   P1.1
      SETB   P1.4
      AJMP   BG

BZJ:  CLR    P1.4
      CLR    P1.1
      MOV    R4,#0FH;一級(jí)防盜報(bào)警程序(15響)
CC1:  ACALL  BBJ    ;聲光報(bào)警
      ACALL  DD1
      JNB    P3.0,CJ1;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,CJ2;有則返回
CJ1:  DJNZ   R4,CC1
CJ2:  SETB   P1.1
      SETB   P1.4
      AJMP   F

BJCT: CLR    P1.4
      MOV    R4,#05H;一級(jí)防盜報(bào)警程序(5聲響)
CJ:   ACALL  BBJ
      ACALL  DD1
      JNB    P3.0,CAJ1;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,CAJ2;有則返回
CAJ1: DJNZ   R4,CJ
CAJ2: SETB   P1.1
      SETB   P1.4
      AJMP   F

CJCT: MOV    R4,#03H;二級(jí)防盜報(bào)警程序(3閃燈)
BJ1:  ACALL  BBJ
      ACALL  DD1
      JNB    P3.0,AJ1;判斷VT是否有信號(hào)
      ACALL  DL
      JB     P3.0,AJ2;有則返回
AJ1:  DJNZ   R4,BJ1
AJ2:  SETB   P1.1
      AJMP   BG

      END

6M晶體，可以改成家用報(bào)警器。

;;防盜設(shè)定鍵（D1）輸入一次高電位，則進(jìn)入一級(jí)報(bào)警方式，報(bào)警一響聲，同時(shí)L、R燈閃一下。3秒

后進(jìn)入一級(jí)報(bào)警狀態(tài)，
;;此時(shí)若有振動(dòng)信號(hào)或鎖頭上電（防止非法開(kāi)車(chē)），則報(bào)警5秒，同時(shí)燈閃5下，5秒內(nèi)再有觸發(fā)信號(hào)

則連續(xù)報(bào)警15秒，
;;燈同時(shí)閃15下（原程序則連續(xù)報(bào)警直到用遙控器關(guān)斷，這樣太浪費(fèi)電,還有如果離車(chē)太遠(yuǎn)又要回來(lái)

關(guān)，否則會(huì)叫到無(wú)
;;電為止，加上太吵人了），如果一直有觸發(fā)信號(hào)則一直報(bào)警，同時(shí)熄火繼電器動(dòng)作，無(wú)觸發(fā)信號(hào)后

又回到一級(jí)報(bào)警方式等待。
;;
;;防盜設(shè)定鍵（D1）在2秒內(nèi)再輸入一次高電位，則進(jìn)入二級(jí)省電報(bào)警方式，無(wú)報(bào)警聲，燈閃一下，3

秒后進(jìn)入二級(jí)報(bào)警狀態(tài)，
;;此時(shí)有振動(dòng)信號(hào)或鎖頭上電，則無(wú)聲報(bào)警，只有燈閃三下，如果5秒內(nèi)再有觸發(fā)信號(hào)則連續(xù)報(bào)警15

秒，燈不閃（為了省電），
;;如果一直有信號(hào)觸發(fā)則一直報(bào)警，同時(shí)熄火繼電器動(dòng)作。無(wú)觸發(fā)信號(hào)后又回到二級(jí)省電報(bào)報(bào)警方式

等待。
;
;;防盜解除鍵（D2）高電位時(shí)和原作者的差不多，只是縮短了二下報(bào)警聲時(shí)間（防止太吵）。同時(shí)燈

閃二下，解除報(bào)警狀態(tài)，
;;熄火繼電器動(dòng)作（作用是在用遙控開(kāi)車(chē)時(shí)熄火作用）。
;;
;;起動(dòng)曖車(chē)鍵（D3）在二秒內(nèi)輸入高電位二次時(shí)進(jìn)入起動(dòng)曖車(chē)，鎖頭上電，起動(dòng)繼電器動(dòng)作1秒，連

續(xù)按住時(shí)則起動(dòng)繼電器一直動(dòng)作，
;;直到放開(kāi)按鍵，一次輸入高電位時(shí)無(wú)作用（防止誤動(dòng)作）,原程序沒(méi)有此功能。
;;
;;尋車(chē)求救鍵（D4）高電位時(shí)進(jìn)入尋車(chē)求救報(bào)警，此時(shí)報(bào)警聲響13響，燈同時(shí)閃13下。中途可按遙控

器停止

;;89C2051+2262+2272摩托車(chē)報(bào)警器 6M
;;P3.0=VT   ;;P1.0=啟動(dòng)繼電器
;;P3.1=D1   ;;P1.1=熄火繼電器
;;P3.2=D2   ;;P1.2=正電繼電器
;;P3.3=D3   ;;P1.3=LR燈光報(bào)警
;;P3.4=D4   ;;P1.4=聲音報(bào)警
;;P3.5=振動(dòng)信號(hào)(閑置接地) ;;P1.5=
;;P3.7=鎖頭正電線(接地)  ;;P1.6=