⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 baojing.dt

📁 这是电话智能报警器的源程序,不过有点老了,已经生产了6年多.
💻 DT
📖 第 1 页 / 共 5 页
字号:
r0       equ   0x0
rtcc     equ   0x1
pc       equ   0x2
status   equ   0x3
r4       equ   0x4
p5       equ   0x5
p6       equ   0x6
p7       equ   0x7
mack	 equ	0x8
jiechu	==	0	;解除
jingjie	==	1	;警戒
jinji	==	2	;紧急
baojing	==	3	;触发报警
yanhuo	==	4	;烟感火警
ranqi 	==	5	;燃气火警
men_lin	==	6	;门铃
chang_an	==	7	;长按超过2秒。
mackbuf  equ	0x9
flagbuf  equ	0xa
keyxin1	==	0
keyxin2	==	1
keyjin1	==	2
keyjin2	==	3
newcode	==	4
againcode ==	5
;状态检测位.
macksta  equ	0xb
;初始循环rc.rd.re.
rc       equ	0xc
rd       equ	0xd
re       equ   0x0e
intf     equ   0x0f
data     equ   0x10
bzwei    equ   0x11
bhwei    equ   0x12
some2    equ   0x13 
some3    equ   0x14 
some4    equ   0x15
addr     equ   0x16
jiance   equ   0x17 
face     equ   0x18 
take     equ   0x19 
rxbuf    equ   0x1a 
txbuf    equ   0x1b 
chb      equ   0x1c
flag     equ   0x1d
wait	==	0	;等待状态,播放录音或者监听等操作完成后,等待5秒挂机。
picket	==	1	;警戒。
watch	==	2	;警戒状态。45秒后。
jining   ==	3	;正在报警
error    ==     5
di       ==     7
do       ==     6
ercode   equ   0x1e
count    equ   0x1f
;;;;;;;;;;;;;;;;;;;;
qcc02    equ   0x20 
qcc01    equ   0x21 
time2    equ   0x22
w001     equ   0x23
w002     equ   0x24
qcc09    equ   0x25
m001     equ   0x26
m002     equ   0x27
qccc     equ   0x28
qcc03    equ   0x29
qcc08    equ   0x2a
temp1    equ   0x2b
time3    equ   0x2c
tame1    equ   0x2d
delbufc    equ   0x2e
tame2    equ   0x2f
;;;;;;;;;;;;;;;;;;;;
dibuf	equ   0x30
BUFFER0  equ   0x31
BUFFER1  equ   0x32
qcc04    equ   0x33
delbuf01   equ   0x34

some1    equ   0x36
delbuf02   equ   0x37
ball     equ   0x38
kaka     equ   0x39
qccf     equ   0x3a
mm3      equ   0x3b
tame3    equ   0x3c
some0    equ   0x3d
kk       equ   0x3e
r3f      equ   0x3f
;;;;;;;;;;;;;;;;;;;;;
;位
key      ==     4

carry    ==     0
pin1     ==     1
zero     ==     2
pin3     ==     3

;p5
scl      ==     0     ;24c02--scl。
jinline	 ==	0	;紧急有线防区。平时1
sda      ==     1     ;24c02--sda。
d_zt     ==     2     ;状态灯。
swshuma  ==     2     ;输码开关。
rxdet    ==     3     ;接收遥控端。
fyin     ==     4     ;放音
ryin     ==     5     ;录音
dth      ==     6     ;dtmf高音
dtl      ==     7     ;dtmf低音
deline1	 ==	6	;有线防区1.平时0
deline2	 ==	7	;有线防区2.平时0
;p6
pow_386  ==	1     ;386供电
mic	 	2     ;麦克风供电。
myjcpin	 ==	3     ;忙音判断脚。
d3       ==     0     ;2262的d3。
d2       ==     1     ;2262的d2。
d1       ==     2     ;2262的d1。
d0       ==     3     ;2262的d0。
k022     ==     4     ;2262的发射控制脚。
ena92    ==     5     ;9270的控制脚。
q1       ==     6     ;9270的q1。
q2       ==     7     ;9270的q2。
;p7
q3       ==     0     ;9270的q3。
q4       ==     1     ;9270的q4。
zhji     ==     2     ;摘机口。
zldx     ==     3     ;震铃断线检测端。
fyon     ==     4     ;远程发射控制脚。
soundj   ==     5     ;警笛声输出。
sound    ==     6     ;提示音输出。
kong     ==     7     ;此脚暂时空缺。 
         org   0
         jmp   main
         org   8
         jmp   tccpro
main:
         mov   a,@0b00001100
         iow   p5
         bs    p5,ryin;禁止录音
         mov   a,@0b11101001
         iow   p6   
         bs    p6,k022;2262不发射.
         mov   a,@0b00001011
         iow   p7
         bs    p7,fyon;禁止放音
         clr   bhwei
         clr   flag
         clr   jiance
         clr   addr
         clr   face       ;##设置值.
         clr   take
;face的2位为0时,静音。3位为0时无限次循环拨号。5位为0,断线无提示。
;face的4位为0时,红外不检测.face的6位表示遇到FFH.
;face,0 of 100s   face,1 of 5s   face,7  of  20s
         
         bc    p7,zhji;挂机.
         mov   a,@3
         mov   mm3,a
         bs    p7,fyon;关闭远程发射.
jie:
         bc    p7,7
         clr   jiance
         bc    p7,zhji
         call  sc_003
         clr   take
         clr   bzwei
         bc    p7,soundj
         bs    p6,pow_386
         bc    p6,mic
         bs    p5,fyin
         bs    p5,ryin
         bs    status,6
         mov   a,@0x08
         mov   count,a
         call  fapc
         call  fb866   ;丁冬
         bs    status,5
         call  c04
         bc    status,5
         bc    status,6
         bc    p5,2
loop:    
         bc     p6,pow_386
         clr    bhwei
         bc    p7,zhji
         bs    status,5
         bs    status,6
         call  del01ms
         bc    status,5
         bc    status,6
         jbs   p6,0
         jmp   ssmm
         jbc   p7,zldx
         jmp   duanxa ;断线
         jbc   p5,rxdet
         jmp   jsyka;   ;接收遥控
         mov   a,@0b00001100
         iow   p5
         bs    status,6
         jbc   p5,swshuma
         jmp   sunm
         bc    status,6
         jmp   loop
ssmm:
         bs    p7,2
         jmp   aabm

	
	
del100ms:
	nop
	ret
;控制子程序,发信号给分机。
huida:  
         bc    p6,pow_386
         ;bs    p6,pow_386            ;接收无线信号
         bs    p7,zhji
         MOV   A,some2        
         ;mov   a,@0x00
         MOV   CHB,A
         mov   a,@16
         mov   addr,a
         call  readbyte
         mov   a,@0xa0  ;0xa0里面是24c02的数据。
         mov   r4,a
         mov   a,r0
         xor   a,@0xee
         jbc   status,zero
         jmp   endse
         mov   a,@0xa1  ;0xa0里面是24c02的数据。
         mov   r4,a
         mov   a,r0
         xor   a,@0xff
         jbc   status,zero
         jmp   endse
         bs    status,5
          bs    status,6
          call  sc_1a
          bc    status,5
          bc    status,6
dten:
         bc    face,6
         mov   a,r0
         mov   0x31,a
         xor   a,@0x0c    ;拨号a0c
         jbc   status,zero
         jmp   endsc
         mov   a,0x31
         xor   a,@0x0b    ;拨号*
         jbc   status,zero
         jmp   gldz
         mov   a,0x31
         mov   data,a
         mov   a,@0xf0
         and   data,a
         mov   a,@0
         xor   data,a
         jbs   status,zero
         jmp   endse
         bs    p7,zhji
         call  phone
         mov   a,@100
         mov   tame2,a
wjd2:
         mov   a,@250
         mov   tame3,a
wjd1:
         djz   tame3
         jmp   wjd1
         djz   tame2
         jmp   wjd2
          inc   r4
          jmp   dten
gldz:
          bs    status,5
          bs    status,6
          call  del2s
          bc    status,5
          bc    status,6
          inc   r4
          jmp   dten
endse:
          bs    face,6
          ret
endsc:    
          ret
tccpro:         
        clr     r3f
        jbc     p5,dth
        jmp     bsqw
        bs      p5,dth
        jbs     p5,dth
bsqw:
        bc      p5,dth                         
        mov     a,0x31
        call    table1
        mov     rtcc,a  
        reti 
;*******************************************************  
;拨号子程序              ;a is 145
table:                   ;c is 118
        ADD	 PC, A    ;d is 107 
        RETL    @107   ;0
        RETL    @146   ;1
        RETL    @145   ;2
        RETL    @145   ;3
        RETL    @132   ;4
        RETL    @131   ;5
        RETL    @131   ;6
        RETL    @120   ;7
        RETL    @118   ;8
        RETL    @118   ;9
        RETL    @107   ;0
        RETL    @108   ;*
        RETL    @104   ;#
        RETL    @143   ;a
        RETL    @129   ;b
        RETL    @117   ;c
        RETL    @105   ;d
table1:        
        ADD	 PC, A  ;高频音参数
        retl    @179   ;0  1366
        RETL    @170   ;1  1209
        RETL    @179   ;2  1336
        RETL    @187   ;3  1477
        RETL    @170   ;4  1209
        RETL    @179   ;5  1336
        RETL    @187   ;6  1477
        RETL    @170   ;7  1209
        RETL    @179   ;8  1336
        RETL    @187   ;9  1477
        RETL    @179   ;0  1336
        RETL    @170   ;*  1209
        RETL    @187   ;#  1477
        RETL    @194   ;a  1633
        RETL    @194   ;b
        RETL    @194   ;c
        RETL    @194   ;d 
phone:        
        mov     a,0x31        
        call    table
        mov     kaka,a
;===========================================
boh:
        mov     a,0x31
        call    table1
        mov     rtcc,a
        clr     intf
        mov     a,@0x01
        iow     intf
        mov     a,@0x81
        contw
        eni
;==================================        
        mov     a,@255
        mov     kk,a
bohao:        
        mov     a,kaka
        mov     ball,a        
top:
        nop
        djz     ball
        jmp     top
        jbc     p5,dtl
        jmp     asqw
        bs      p5,dtl
        jbs     p5,dtl
asqw:
        bc      p5,dtl
        djz     kk       ;50ms
        jmp     bohao
        disi  
        bc      p5,dth
        bc      p5,dtl
        ret

jsyka:
         clr   bzwei
         bc    status,6
         bs    status,5
         jbc   jiance,2         
         call  jsbm
         bs    status,5
         call  jsyk
         bs    status,5
         jbc   bzwei,0
         jmp   jing
         ;
         bc    status,5
         jbc   bzwei,1
         jmp   jie
         bs    status,5
         jbc   bzwei,2
         call  jiji
         ;jbc   jiance,4
         ;jmp   xin1
         bc    status,5
mywj:
         jbc   bzwei,3
         jmp   bao5
         jmp   menlin
jixubao:         
         jbc   take,2
         jmp   dzxa7
         bc     bhwei,0;?????????????????
         jbs   jiance,4
         jmp   loop
         bs    status,5
         bc    status,6
         jbc   jiance,2
         jmp   jingf     ;45s后
         jmp   xin1a;22     ;45s前
menlin:        
         jbs   jiance,1
         jmp   huil
          bs    status,6
         bs    status,5
         jbs   jiance,4
         call  menling
         bc    status,5
         bc    status,6
huil:
         jmp   jixubao

;=======================================            
bao5:
         bc    p5,2
         bc    p7,zhji
         call  sc_003
         bs    status,6
         call  fapc
         bc    status,6
         jbs   jiance,3     ;线断的话3为1。
         jmp   nofase
fasshe:
         bc    p7,fyon
         bs    status,5
         bs    status,6
         call  del2s
         bc    status,5
         bc    status,6
         bs    p7,fyon
aas:
         bs    status,5
         bs    status,6
         call  sc520
         bc    status,5
         bc    status,6
         jbc    p5,rxdet
         jmp   wjsy   ;接收遥控 
         jbs   p7,3
         jmp   nofase
         bs    status,5
         bc    status,6
         jmp   jingf
wjsy:
         bc    status,6
         bs    status,5
         call  dyj
         bc    status,6
         bc    status,5
         mov   a,some3
         mov   temp1,a
         mov   a,@0x0f
         and   temp1,a
         mov   a,temp1
         mov   data,a
         mov   a,@0x04
         xor   a,data
         jbc   status,zero
         jmp   jie
         jmp   aas
nofase:
         bc    jiance,3
         bs    p7,7
         bs    status,6
         call  sc_q5
        ; call  sc_q5
         bc    status,6
         bc    p7,7
         bs    p7,zhji
         call  sc_003
         bc    p7,zhji
         call  sc_003
         bs    p7,zhji
chbo:
         call  sc_003
         call  sc_003
         mov   a,@0x10
         mov   some2,a
         call  huida
         bs    status,5
         bs    status,6
         jbc   face,6
         jmp   qcsa
         bc    status,5
         bc    status,6
         jbs   face,2
         jmp   lsqa     ;播放录音
         bs    status,5
         bs    status,6
         jmp   lsqb     ;警笛
lsqa:
         bs    status,5
         call  sc_s5
         ;call  sc_s5
         bs    status,6
         jbc   jiance,5
         jmp   qcsa
         bc    status,5
         bc    status,6
         jbc   bzwei,3
         jmp   jie
         jbc   bzwei,4
         jmp   fahui
         bs    status,5
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bs    status,6
         bs    status,5
         call  myjce     ;忙音检测。
         jbc   bzwei,5
         jmp   qcsa
         jbc   bhwei,1
         nop;call  wu2s
         jbc   bhwei,0
         nop;call  du2s
         bc    status,6
         bc    p5,fyin
         bs    status,5
         call  sc_20
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         jbc   bzwei,4
         jmp   fahui
         bs    status,5
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -