00-99
INCLUDE
REG_51.PDF
CNT EQU 127
CHUC EQU 126
DONVI EQU 125
Q3 BIT P2.6
Q4 BIT P2.7
MOV P2,#00H
MAIN:
MOV CNT,#0
BEGIN:
CALL DOISO
CALL DELAY
INC CNT
CJNE R4,#100,BEGIN
LJMP MAIN
MOV A,CNT
SJMP BEGIN
DOISO:
PUSH ACC
PUSH B
MOV DPTR,#MA_7S
MOV A,CNT
MOV B,#10
DIV AB
MOVC A,@A+DPTR
MOV CHUC,A
XCH A,B
MOVC A,@A+DPTR
MOV DONVI,A
MOV A,CNT
CJNE A,#99,KT
MOV CNT,#0
KT:
POP B
POP ACC
RET
DL:
PUSH 07H
MOV R7,#200
DJNZ R7,$
POP 07H
RET
QUET:
MOV P1,CHUC
SETB Q3
CALL DL
CLR Q3
MOV P1,DONVI
SETB Q4
CALL DL
CLR Q4
RET
DELAY:
PUSH 06
PUSH 07
MOV R6,#5
X1: MOV
R7,#20
X2: CALL QUET
DJNZ R7,X2
DJNZ R6,X1
POP 07
POP 06
RET
MA_7S: DB
3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END
BAI
3
include
reg_51.pdf
MAIN:
MOV A,#0
BEGIN:
MOV P1,A
CALL DL_200MS
SETB C
RLC A
JNC BEGIN
SJMP MAIN
DL_200MS:
PUSH 02
MOV TMOD,#01H
MOV R2,#20
X1:
MOV TH0,#HIGH(-10000)
MOV TL0,#LOW(-10000)
SETB TR0
CLR TF0
JNB TF0,$
DJNZ R2,X1
POP 02
RET
END
DELAY
500
include
reg_51.pdf
MAIN:
MOV A,#0
BEGIN:
MOV P1,A
CALL DL_500MS
SETB C
RLC A
JNC BEGIN
SJMP MAIN
DL_500MS:
PUSH 02
MOV TMOD,#10H
MOV R2,#10
X1:
MOV TH1,#HIGH(-50000)
MOV TL1,#LOW(-50000)
SETB TR1
CLR TF1
JNB TF1,$
DJNZ R2,X1
POP 02
RET
END
DELAY
200 TIMER0 MODE 2
include
reg_51.pdf
MAIN:
MOV A,#0
BEGIN:
MOV P1,A
CALL DL_200MS
SETB C
RLC A
JNC BEGIN
SJMP MAIN
DL_200MS:
PUSH 02
PUSH 03
MOV TMOD,#02H
MOV R2,#200
X1:
MOV R3,#10
X2:
MOV TH0,#-100
MOV TL0,#-100
SETB TR0
CLR TF0
JNB TF0,$
DJNZ R3,X2
DJNZ R2,X1
POP 03
POP 02
RET
END
Bai 4
include
reg_51.pdf
cnt equ 120
led7 equ 121
led8 equ 122
pos equ 123
ljmp main
org 000bh
ljmp quetled
main:
mov tmod,#11h
mov th0,#high(-50000)
mov tl0,#low(-50000)
mov cnt,#0
mov r0,#led7
mov pos,#40h
setb ea
setb et0
setb tr0
begin:
call hex7s
call delay300ms
inc cnt
mov a,cnt
cjne a,#100,begin
mov cnt,#0
ljmp begin
hex7s:
PUSH ACC
PUSH B
MOV A,CNT
MOV B,#10
DIV AB
MOVC A,@A+DPTR
MOV LED7,A
MOV A,B
MOVC A,@A+DPTR
MOV LED8,A
POP B
POP
ACC
ret
delay300ms:
PUSH 07
MOV R7,#30
X1:
MOV TH1,#HIGH(-10000)
MOV TL1,#LOW(-10000)
SETB TR1
CLR TF1
JNB TF1,$
DJNZ R7,X1
POP 07
RET
ret
quetled:
push psw
push acc
mov th0,#high(-1000)
mov tl0,#low(-1000)
mov p2,#00h
mov dptr,#led7s
mov a,@r0
mov p1,a
mov a,pos
mov p2,a
rl a
mov pos,a
inc r0
cjne r0,#123,exit
mov r0,#led7
mov pos,#40h
exit:
pop acc
pop psw
reti
led7s: db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh
end