📄 wencheng.dt
字号:
R1 EQU 0X01
R3 EQU 0X03
R4 EQU 0X04
TIMES EQU 0X2F
ZANCUN1 EQU 0X2E
ZANCUN2 EQU 0X2D
ZANCUN3 EQU 0X2C
ZANPAN ==0X2A
RF == 0X0F
IOCF == 0X0F
ORG 0000
JMP MAIN
ORG 0001
JMP ZD
MAIN:
CALL CSHUA
CALL ZDCSHUA
BS 0x06,2 ;灯亮
ENI
MAIN1:
NOP
JMP MAIN1
ZD: DISI
MOV 0X1F,A
SWAPA 0X4
MOV 0X3F-1,A
SWAPA 0X3
MOV 0X3E-1,A
JBC ZANPAN,0
JMP DADA1
BS 0x06,2 ;灯亮
BS ZANPAN,0
JMP DADA2
DADA1: BC 0X06,2 ;灯灭
BC ZANPAN,0
DADA2: BC RF,0
SWAPA 0X3E-1
MOV 0X3,A
SWAPA 0X3F-1
MOV 0X4,A
SWAP 0X1F
SWAPA 0X1F
RETI
CSHUA:
MOV A,@00000000B
IOW 5
MOV A,@11111000B
IOW 6
MOV A,@11110010B
IOW 7
BC 5,0 ;灭音频
BC 5,1 ;灭音频
BC 5,2 ;灭音频
BC 5,3 ;灭音频
BC 5,4 ;灭音频
BC 6,0 ;灭音频电源
BC 6,1 ;灭无线
BC 6,2 ;灭红灯
BC 7,3 ;灭红外2电源
MOV A,@0X00
MOV ZANPAN,A
RET
ZDCSHUA:
MOV A,@1
MOV R1,A;给初值
MOV A,@00000001B
IOW IOCF
MOV A,@00000001B ;允许定时器中断
MOV RF,A
MOV A,@00000111B
CONTW
RET
EOP
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -