baojing.dt

这是电话智能报警器的源程序,不过有点老了,已经生产了6年多.

         jbc   take,6
         call   zhqcax         
         bs    p5,fyin
         bs    status,5
         bs    status,6
         jbc   bzwei,5
         jmp   qcsa
         jbc   bhwei,4
         call  wu2s
         jbc   bhwei,1
         call  wu2s
         jbc   bhwei,0
         call  du2s
         bc    status,6
         bs    status,5
         bc    p5,fyin
         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
         jbc   take,6
         call   zhqcax
         bs    p5,fyin
         bs    status,5
         bs    status,6
         jbc   bhwei,4
         call  wu2s
         jmp   qcsa
aabck:
         mov   a,@0
         mov   r4,a
         jbs   face,3   ;循环拨号和三组拨号。
         djz   mm3
         jmp   chbo
fahui:
         clr   bzwei
         bc    p7,soundj
         bc    p7,zhji
         call  sc_003
         bs    status,5
         bs    status,6
         call  c04
         bc    status,5
         bc    status,6
         jbc   bhwei,4
         jmp   zfzy
         jbc   bhwei,1
         jmp   zfzy
         bc    bhwei,3
         bc    bhwei,2
         bc    bhwei,6
         bc    bhwei,7
         bc    bhwei,0
         bc    bhwei,5
         bs    status,5
         jmp   jingf
zfzy:
         bc    bhwei,4
         bc    bhwei,1
         jmp   biaohao
;===================================================
;延时0.3s.
sc_003:
         ;mov     a,@0
         ;mov     r4,a
         mov   a,@255
         mov   m002,a
fax:     mov   a,@255
         mov   qccf,a;m001,a         
protel:  nop
         jbc   p5,rxdet;nop
         jmp   jcjie
         djz   qccf;m001
         jmp   protel
         djz   m002
         jmp   fax
         ret
jcjie:
         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,@0x04
         xor   a,temp1
         jbc   status,zero
         bs    bzwei,1
         ret
diwu:
         bc    p6,pow_386
         ;bs    p6,pow_386
         ;mov     a,@0
         ;mov     r4,a
         mov   a,@3      ;嘀
         mov   dibuf,a
jje:    mov   a,@252
         mov   qccf,a;time2,a
b708e:  mov   a,@224
         mov   qcc04,a
b707e:  
         nop         
         djz   qcc04
         jmp   b707e
         jbc   p7,sound
         jmp   pge
         bs    p7,sound               
         jbs   p7,sound
pge:    bc    p7,sound         
         djz   qccf;time2
         jmp   b708e         
         djz   dibuf
         jmp   jje
         bc    p7,sound
         call  sc_003
         ret
;======================================= 
;======================================================
;******************************************************
;======================================================  
        org    0x0400
;======================================================
;******************************************************
;======================================================      
jiji:    
         clr   take
         jbs   p7,zldx
         bc    jiance,3
         ;bs    status,5
         ;bs    status,6
         ;call  del01ms   ;延时0.2s
         ;bc    status,6
         ;bs    status,5
         ;jbs   p5,rxdet
         ;ret
         bc    p5,2
        ; bc    status,5
        ; bs    status,6
        ; mov   a,@0x01
        ; mov    count,a
         ;call  fapc
        ; bs    status,5
        ; bc    status,6
         mov   a,@10
         mov   some0,a;0x36,a
book:    
         mov   a,@167   ;在1.49秒里面检测低电平
         mov   0x31,a        
toby02:
         mov   a,@250
         mov   0x32,a
toby01: 
         nop
         jbs   p5,rxdet
         jmp   vocedy;toby   ;遥控器放开
         djz   0x32
         jmp   toby01
         djz   0x31
         jmp   toby02
         djz   some0;0x36
         jmp   book   ;长按了1.49秒
sloop:
         mov   a,@40
         mov   0x35,a
         ;bs    jiance,1
         jbs   jiance,3
         jmp   mofashe
         bs    status,5
         bs    status,6
         bc    p7,fyon
         call  del2s
         bs    p7,fyon
         bs    p6,pow_386
         bs    p7,soundj
ppam:
         ;bs    status,6
         ;bs    status,5
         call  sc_11
         bc    status,5
         bc    status,6
         jbc   bzwei,6
         jmp   jsyka
         bs    status,5
         bc    status,6
         djz   0x35
         jmp   ppam
         bc    p7,soundj
         bc    p6,pow_386
         bs    status,5
         bs    status,6
         bc    p7,fyon
         call  del2s
         bs    p7,fyon
         bc     status,6
         bc     status,5
         jmp   mywj
mofashe:
         bc    status,5
         bs    status,6
         bs    p7,7
         call  sc_q5
         bc    p7,7
         bs    p7,zhji
         call  sc_q5
         bc    p7,zhji
        ; bs    status,6
         ;bc    status,5
         call  sc_q5
         bs    p7,zhji
chboa:
         bc    status,5
         bc    status,6
         call  sc_003
         call  sc_003
         mov   a,@0x10
         mov   some2,a
         bc    status,5
         call  huida
         bs    status,5
         jbc   face,6
         jmp   qcsaa
;=====================================
lsqbb:
         bs    p6,pow_386
         ;bc    p6,pow_386
         bs    p7,soundj
         call  sc_20
         jbc   jiance,5
         jmp   qcsaa
         jbc   bzwei,4
         jmp   fahuib
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         ;bs    status,5
         bc    p7,soundj
         bs    status,6
         bs    status,5
         call  myjce     ;忙音检测。
         bc    status,6
         ;bs    status,5
         jbc   bzwei,5
         jmp   qcsaa     ;警笛
         call  sc_s5
         jbc   bzwei,4
         jmp   fahuib
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         bs    status,5
         jbc   bzwei,5
         jmp   qcsaa
         bs    p7,soundj
         bs    p6,pow_386
         ;bc    p6,pow_386
         call  sc_20
         jbc   bzwei,4
         jmp   fahuib
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         bs    status,5
         bc    p7,soundj
         bc    p6,pow_386
         jbc   bzwei,5
         jmp   qcsaa
         call  sc_s5
         jbc   bzwei,4
         jmp   fahuib
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         bs    status,5
qcsaa:
         bc    bzwei,5
         bs    p7,7
         bc    jiance,5
         bc    status,5
         bc    status,6
         call  sc_003
         jbc   bzwei,1
         jmp   jie
         call  sc_003
         ;jbc   bzwei,1
         ;jmp   jie
         ;bc    status,6
         ;bs    status,5
         bc    p7,7
         ;bs    p7,zhji
         bc    status,5
         call  sc_003
         call  sc_003
         bs    status,5
         mov   a,@0x10
         add   some2,a
         mov   a,some2
         xor   a,@0xa0
         jbc   status,zero
         jmp   aabcka         ;拨完一组
         bc    status,5
         call  huida
         bs    status,5
         jbc   face,6
         jmp   qcsaa
         jmp   lsqbb
aabcka:
         mov   a,@0
         mov   r4,a
         jbs   face,3   ;循环拨号和三组拨号。
         djz   mm3
         jmp   chboa
         bs    status,6
         call  c04
         bc    status,6
         ret
fahuib:
         ;bc    bhwei,0
         clr   bzwei
         bc    p7,soundj
         bc    p7,zhji
         bc    status,5
         call  sc_003
         bs    p5,fyin
         bs    status,5
         bs    status,6
         call  c04
         bc    status,5
         bc    status,6
         jmp   mywj
vocedy:
         jbs   jiance,3
         jmp   mofasheb
         bs     status,5
         bs     status,6
         bc     p7,fyon
         call   del2s
         bs     p7,fyon
         mov    a,@6
         mov    0x35,a
pp00:
         ;bs     status,5   ;发射两秒，六秒后再发射两秒.
         ;bs     status,6
         bc    bzwei,7
         call  sc_1
         bc    status,5
         bc    status,6
         jbc   bzwei,7
         jmp   jsyka
         bs     status,5
         djz    0x35
         jmp    pp00
         bs     status,5
         bs     status,6
         bc     p7,fyon
         call   del2s
         bs     p7,fyon
         bc     status,6
         bc     status,5
         jmp    mywj
mofasheb:
         bc    status,5
         bs    status,6 
         bs    p7,7
         call  sc_q5
         ;bc    status,5
         ;bs    status,6
         bc    p7,7
         bs    p7,zhji
         call  sc_q5
         bc    p7,zhji
         ;bc    status,5
         ;bs    status,6
         call  sc_q5
         bs    p7,zhji
hboa:
         bc    status,5
         bc    status,6
         call  sc_003
         call  sc_003
         mov   a,@0x10
         mov   some2,a
         bc    status,5
         call  huida
         bs    status,5
         jbc   face,6
         jmp   qcdaa
;=======================================
lsqaa:
        ; call  sc_s5
         ;call  sc_s5
         jbc   jiance,5
         jmp   qcdaa
         jbc   bzwei,4
         jmp   fahuib
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         bs    status,6
         bs    status,5
         call  myjce     ;忙音检测。
         bc    status,6
         ;bs    status,5
         jbc   bzwei,5
         jmp   qcdaa
         bc    p5,fyin
         call  sc_20
         bs    p5,fyin
         jbc   bzwei,4
         jmp   fahuib
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         bs    status,5
         jbc   bzwei,5
         jmp   qcdaa
         call  sc_s5
         jbc   bzwei,4
         jmp   fahuib
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         bs    status,5
         jbc   bzwei,5
         jmp   qcdaa
         bc    p5,fyin
         call  sc_20
         bs    p5,fyin
         jbc   bzwei,4
         jmp   fahuib
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         bs    status,5
         jbc   bzwei,5
         jmp   qcdaa
         call  sc_s5
         jbc   bzwei,4
         jmp   fahuib
         jbc   take,7
         call   zhqca0
         jbc   jiance,0
         call   zhqca8
         jbc   take,5
         call   zhqca9
         jbc   take,6
         call   zhqcax
         bc    status,5
         jbc   bzwei,3
         jmp   jie
         bs    status,5
qcdaa:
         bc    bzwei,5 
         bs    p7,7
         bc    jiance,5
         bc    status,5
         bc    status,6
         call  sc_003
         jbc   bzwei,1
         jmp   jie
         call  sc_003
         ;bc    status,6
         ;bs    status,5
         bc    p7,7
         ;bs    p7,zhji
         ;bc    status,5
         ;bc    status,6
         call  sc_003
         call  sc_003
         ;bc    status,6
         bs    status,5
         mov   a,@0x10
         add   some2,a
         mov   a,some2
         xor   a,@0xa0