📄 定时器.asm
字号:
/*--------定时器0计从0到9-------------------
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP TT0
ORG 0030H
MAIN: MOV SP,#60H
MOV R3,#00
MOV R4,#00
MOV A,R4
MOVC A,@A+DPTR
MOV P2,A
MOV DPTR,#TABLE
MOV TMOD,#01H
MOV TH0,#(65536-50000) / 256
MOV TL0,#(65536-50000) MOD 256
SETB EA
SETB ET0
SETB TR0
SJMP $
TT0: MOV TH0,#(65536-50000) / 256
MOV TL0,#(65536-50000) MOD 256
INC R3
CJNE R3,#20,LOOP1
MOV R3,#00
INC R4
CJNE R4,#10,LOOP2
MOV R4,#00
LOOP2: MOV A,R4
MOVC A,@A+DPTR
MOV P2,A
LOOP1: RETI
TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END
;------------------------------------*/
/*------------------------------------------
SECOND EQU 30H
TCOUNT EQU 31H
ORG 00H
LJMP START
ORG 0BH
LJMP INT0X
START: MOV SECOND,#00H
MOV A,SECOND
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P1,A
MOV A,B
MOVC A,@A+DPTR
MOV P2,A
MOV TCOUNT,#00H
MOV TMOD,#01H
MOV TH0,#(65536-50000) / 256
MOV TL0,#(65536-50000) MOD 256
SETB TR0
SETB ET0
SETB EA
SJMP $
INT0X:
MOV TH0,#(65536-50000) / 256
MOV TL0,#(65536-50000) MOD 256
INC TCOUNT
MOV A,TCOUNT
CJNE A,#20,NEXT
MOV TCOUNT,#00H
INC SECOND
MOV A,SECOND
CJNE A,#60,NEX
MOV SECOND,#00H
NEX: MOV A,SECOND
MOV B,#10
DIV AB
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P1,A
MOV A,B
MOVC A,@A+DPTR
MOV P2,A
NEXT: RETI
TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END
;------------------------------------*/
;----------0.2秒闪动----------------------
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP T0X
MAIN: MOV SP,#60H
MOV R0,#00
MOV R1,#00
MOV R2,#00
CLR P1.0
MOV TMOD,#01H
MOV TH0,#(65536-50000) / 256
MOV TL0,#(65536-50000) MOD 256
SETB EA
SETB ET0
SETB TR0
SJMP $
T0X:
MOV TH0,#(65536-50000) / 256
MOV TL0,#(65536-50000) MOD 256
INC R0
CJNE R0,#4,LOOP1
MOV R0,#00
INC R2
CJNE R2,#10,LOOP2
MOV R2,#00
INC R1
CJNE R1,#4,LOOP2
MOV R1,#00
LOOP2: CJNE R1,#0,LP1
CPL P1.0
JMP LOOP1
LP1: CJNE R1,#1,LP2
CPL P1.1
JMP LOOP1
LP2: CJNE R1,#2,LP3
CPL P1.2
JMP LOOP1
LP3: CJNE R1,#3,LOOP1
CPL P1.3
JMP LOOP1
LOOP1: RETI
;------------------------------------*/
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -