📄 baojing.dt
字号:
bs some3,zero
jbs p7,q3
bc some3,zero
jbc p7,q4
bs some3,pin3
jbs p7,q4
bc some3,pin3
; ret
aatx:
jbc p6,ena92
jmp aatx
bc jiance,7
ret
;18秒延时。
sc18s:
mov a,@50
mov qcc01,a
a18:
mov a,@255
mov qcc02,a
b18:
mov a,@255
mov qcc03,a
c18:
nop
nop
djz qcc03
jmp c18
djz qcc02
jmp b18
djz qcc01
jmp a18
ret
;==============================================
;解除状态下断线报警。
duanxx:
mov a,@1
mov tame3,a
sou03:
mov a,@250
mov tame2,a
sou05:
mov a,@153
mov tame1,a
fb659:
nop
djz tame1
jmp fb659
jbc p7,sound
jmp jisuan
bs p7,sound
jbs p7,sound
jisuan:
bc p7,sound
djz tame2
jmp sou05
djz tame3
jmp sou03
enda:
ret
;=======================================
;嘀嘀
fb709:
mov a,@0
mov r4,a
mov a,@3
mov qcc09,a
jjz: mov a,@3
mov qcc03,a
jjj: mov a,@252
mov time2,a
fb708: mov a,@129
mov qcc04,a
fb707: nop
nop
djz qcc04
jmp fb707
jbc p7,sound
jmp jpg
bs p7,sound
jbs p7,sound
jpg: bc p7,sound
djz time2
jmp fb708
bc p7,sound
s002: mov a,@79
mov qcc02,a
s022: mov a,@250
mov qcc01,a
s012: nop
nop
djz qcc01
jmp s012
djz qcc02
jmp s022
bs p7,sound
djz qcc03
jmp jjj
bc p7,sound
bs status,6
bs status,5
call sc_003a
bs status,6
bc status,5
djz qcc09
jmp jjz
bs status,6
bs status,5
call sc_003a
call sc_003a
bs status,6
bc status,5
ret
;=====================================
;丁冬
fb866:
mov a,@0
mov r4,a
mov a,@3
mov qcc03,a
ggg: mov a,@252
mov time2,a
fb868: mov a,@129
mov qcc04,a
fb867: nop
nop
djz qcc04
jmp fb867
jbc p7,sound
jmp jpa
bs p7,sound
jbs p7,sound
jpa: bc p7,sound
djz time2
jmp fb868
bc p7,sound
ss43: mov a,@2
mov qccc,a
s003: mov a,@205
mov qcc02,a
s023: mov a,@157
mov qcc01,a
s013: nop
nop
djz qcc01
jmp s013
jbc p7,sound
jmp jpb
bs p7,sound
jbs p7,sound
jpb: bc p7,sound
djz qcc02
jmp s023
djz qccc
jmp s003
bs status,6
bs status,5
call sc_003a
bs status,6
bc status,5
bc p7,sound
djz qcc03
jmp ggg
bc p7,sound
bs status,6
bs status,5
call sc_003a
bs status,6
bc status,5
ret
yansh30:
mov a,@103
mov qcc01,a
wehc:
mov a,@255
mov qcc02,a
wehb:
mov a,@255
mov qcc03,a
weha:
jbc p5,rxdet
jmp youjie2
jbc p6,ena92
jmp wawk
djz qcc03
jmp weha
djz qcc02
jmp wehb
djz qcc01
jmp wehc
wawk:
clr some3;;;;;;;;;;;;
bc status,6
bc status,5
jmp king
youjie2:
bs status,5
bc status,6
call dyj
bc status,5
bs status,6
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 wawk
mov a,@0x02
xor a,data
jbc status,zero
jmp wawk
jmp weha
;=======================================
;延时0.5s.
sc_k5:
mov a,@0
mov r4,a
mov a,@255
mov delbuf02,a
looprh:
MOV A,@255
MOV delbufc,A
loopch:
nop
nop
nop
nop
jbc p5,rxdet
jmp xgyb
DJZ delbufc
JMP LOOPch
jbc p7,zldx
jmp duanxa
djz delbuf02
jmp looprh
RET
xgyb:
bs bzwei,7
ret
duone:
mov a,@252
mov time2,a
dj98a:
mov a,@129
mov qcc04,a
dj98b:
nop
nop
djz qcc04
jmp dj98b
jbc p7,sound
jmp dj98c
bs p7,sound
jbs p7,sound
dj98c:
bc p7,sound
djz time2
jmp dj98a
ret
dudan: ;嘟,嘟,嘟
call duone
bc p7,sound
call sc_ka5
call duone
bc p7,sound
call sc_ka5
call duone
ret
dudoble: ;嘟嘟
call duone
bc p7,sound
bc status,5
bc status,6
call sc_003
bc status,5
bs status,6
call duone
ret
dusuan: ;嘟嘟..嘟嘟..嘟嘟
call duone
bc p7,sound
call sc_03
call duone
bc p7,sound
call sc_ka5
call duone
bc p7,sound
call sc_03
call duone
bc p7,sound
call sc_ka5
call duone
bc p7,sound
call sc_03
call duone
ret
sc_ka5: ;0.291s
mov a,@0
mov r4,a
mov a,@255
mov delbuf02,a
zhong:
MOV A,@255
MOV delbufc,A
wen:
nop
nop
nop
nop
DJZ delbufc
JMP wen
djz delbuf02
jmp zhong
RET
week:
clr some3;;;;;;;;;
bc p6,mic
ret
youjie1:
bs status,5
bc status,6
call dyj
bc status,5
bs status,6
mov a,some3
mov data,a
mov a,@0x0f
and data,a
mov a,@0x04
xor a,data
jbc status,zero
jmp week
mov a,@0x02
xor a,data
jbc status,zero
jmp week
jmp weeha
waak:
clr some3;;;;;;;;;;
bc p6,pow_386
ret
youjie:
bs status,5
bc status,6
call dyj
bc status,5
bs status,6
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 waak
mov a,@0x02
xor a,data
jbc status,zero
jmp waak
jmp waha
sc_q5:
mov a,@0
mov r4,a
mov a,@255
mov qcc02,a
loopr85:
MOV A,@255
MOV qccc,A
loopc85:
nop
nop
nop
nop
nop
nop
DJZ qccc
JMP LOOPc85
djz qcc02
jmp loopr85
RET
sc_03:
mov a,@0
mov r4,a
mov a,@200
mov m002,a
faxs: mov a,@250
mov m001,a
protels:
djz m001
jmp protels
djz m002
jmp faxs
ret
;把警情传给灯片。
fapc:
bc status,carry ;清进位标志
bbee:
MOV A,@8
MOV delbufC,a;
;把要发送的数送进byte里面。
BC p5,4 ;发送起始位
call delay1
trnxt:
RRC count; ;LSB在先 ;;;;;;;;;;
JBC STATUS,Carry
BS p5,4
JBS STATUS,Carry
BC P5,4
call delay1
DJZ delbufC; ;一个字节发送完否？
JMP trnxt ;否，继续发送下一位
bs p5,4
call delay1
ret
;延时子程序
DELAY1:
MOV A,@140 ;延时.
MOV BUFFEr1,A
LOOPb:
nop
nop
DJZ BUFFER1
JMP LOOPb
RET
;==================================
org 0x0c00
;读出24c02里面的密码.
readbyte:
mov a,@0xa0
mov r4,a
call stabit ;初始化
mov a,@0xa0
mov txbuf,a
call wrtbit ;送出写控制字
mov a,chb
mov txbuf,a
call wrtbit ;送出地址
call stabit ;初始化
mov a,@0xa1
mov txbuf,a
call wrtbit ;送出写控制字
rxi:
call readbit
mov a,rxbuf
mov r0,a
inc r4
djz addr
jmp rxi
call readbit
CALL stpbit
bs p5,scl
call del01ms
ret
;=============================================
;输入的密码存进24c02里面。
wrtbyte:
mov a,@0xe0
mov r4,a
call stabit ;初始化
mov a,@0xa0
mov txbuf,a
call wrtbit ;送出写控制字
mov a,chb
mov txbuf,a
call wrtbit ;送出地址
wrtbyten:
mov a,r0
mov txbuf,a
call wrtbit ;写入数据
inc r4
djz addr
jmp wrtbyten
call stpbit ;停止
call del01ms
ret
;开始
stabit:
bs p5,scl
bs p5,sda
mov a,@1
MOV A,@0B00001001
IOW p5
jbc p5,scl
jmp stabit1
MOV A,@0B00001000
IOW p5
jbs flag,error
mov ercode,a
bs flag,error
stabit1:
MOV A,@0B00001000
IOW p5
bc p5,sda
nop
nop
nop
bc p5,scl
ret
;============================================
;写一位的子程序。
wrtbit:
MOV A,@8
MOV COUNT,A
TXLP:
BC flag,do
JBC TXBUF,7
BS flag,do
MOV A,@0B00001000
IOW p5
JBS flag,do
JMP eebit00
BS p5,SDA
MOV A,@2
MOV A,@0B00001010
IOW p5
JBC p5,SDA
JMP CLK10
MOV A,@0B00001000
IOW p5
JBS FLAG,ERROR
MOV ERCODE,A
BS FLAG,ERROR
JMP CLK10
eebit00:
BC p5,SDA
NOP
NOP
NOP
CLK10:
MOV A,@0B00001000
IOW p5
BS p5,SCL
MOV A,@1
MOV A,@0B00001001
IOW p5
JBC p5,SCL
JMP BIT20
MOV A,@0B00001000
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -