📄 bjdj.txt
字号:
ORG 0000H
LJMP INITA
ORG 000BH
LJMP ITOP
ORG 1000H
INITA: MOV A,#88H ;程序初始化
MOV DPTR,#0FF2BH
MOVX @DPTR,A
CIRCL: MOV A,#01H ;LED循环点亮
MOV DPTR,#0FF2AH
MOV R0,#04H
CRCL1: MOVX @DPTR,A
RL A
LCALL FADEL
DJNZ R0,CRCL1
LCALL CHECK
SJMP CIRCL
CHECK: MOV DPTR,#0FF2AH;检测开关状态
MOVX A,@DPTR
JB ACC.4,BJDJ1
JNB ACC.5,TEMP1
JB ACC.6,BJDJ2
TEMP1: JB ACC.7,BJDJ3
RET
JIESU: SJMP $
BJDJ1: LCALL ZXMZ ;步进电机正向慢走50,反向快走100
LCALL FXKZ
RET
BJDJ2: LCALL LHMZ ;步进电机来回慢走100,扬声器发声10
MOV R3,#10
FSSC: LCALL YSFS
LCALL SLDEL
DJNZ R3,FSSC
RET
BJDJ3: LCALL ZXMZ ;步进电机正向慢走50,扬声器发声2,停50秒,发声2,停机
MOV R3,#2
FSLC1: LCALL YSFS
LCALL SLDEL
DJNZ R3,FSLC1
LCALL TIME
MOV R3,#2
FSLC2: LCALL YSFS
LCALL SLDEL
DJNZ R3,FSLC2
LJMP JIESU
YSFS: MOV R1,#55H ;扬声器发声程序
YSFS1: MOV DPTR,#0FF29H
MOV A,#80H
MOVX @DPTR,A
MOV R2,#0FFH
YSFS2: DJNZ R2,YSFS2
MOV A,#00H
MOVX @DPTR,A
MOV R2,#0FFH
YSFS3: DJNZ R2,YSFS3
DJNZ R1,YSFS1
RET
ZXMZ: MOV R3,#50 ;步进电机慢走程序
ZXMZ0: MOV R0,#04
MOV DPTR,#3000H
CLR A
ZXMZ1: MOVC A,@A+DPTR
PUSH DPH
PUSH DPL
MOV DPTR,#0FF29H
MOVX @DPTR,A
LCALL SLDEL
POP DPL
POP DPH
INC DPTR
CLR A
DJNZ R3,ZXMZ2
SJMP ZXMZ3
ZXMZ2: DJNZ R0,ZXMZ1
SJMP ZXMZ0
ZXMZ3: RET
FXKZ: MOV R3,#100 ;步进电机快走程序
FXKZ0: MOV R0,#04
MOV DPTR,#3004H
CLR A
FXKZ1: MOVC A,@A+DPTR
PUSH DPH
PUSH DPL
MOV DPTR,#0FF29H
MOVX @DPTR,A
LCALL FADEL
POP DPL
POP DPH
INC DPTR
CLR A
DJNZ R3,FXKZ2
SJMP FXKZ3
FXKZ2: DJNZ R0,FXKZ1
SJMP FXKZ0
FXKZ3: RET
LHMZ: MOV R3,#100 ;步进电机来回走程序
LHMZ0: MOV R0,#08H
MOV DPTR,#3000H
CLR A
LHMZ1: MOVC A,@A+DPTR
PUSH DPH
PUSH DPL
MOV DPTR,#0FF29H
MOVX @DPTR,A
LCALL FADEL
POP DPL
POP DPH
INC DPTR
CLR A
DJNZ R3,LHMZ2
SJMP LHMZ3
LHMZ2: DJNZ R0,LHMZ1
SJMP LHMZ0
LHMZ3: RET
TIME: MOV R7,#5 ;时钟计时程序
MOV R6,#0AH
MOV TMOD,#01H
MOV TL0,#0B0H
MOV TH0,#3CH
SETB TR0
SETB ET0
SETB EA
HERE: ;LCALL DISPL
CJNE R7,#0,HERE
RET
ITOP: MOV TL0,#0B0H ;中断服务程序
MOV TH0,#3CH
DJNZ R6,LOOP
DEC R7
MOV R6,#0AH
LOOP: RETI
FADEL: MOV R4,#7FH ;软件延时程序
SJMP DELAY
SLDEL: MOV R4,#0FFH
DELAY: MOV R5,#0FFH
DELAY1: DJNZ R5,DELAY1
DJNZ R4,DELAY
RET
ORG 3000H ;正向相序表
DB 03H,16H,5CH,49H
ORG 3004H ;反向相序表
DB 49H,5CH,16H,43H
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -