;;c51控制雙色點(diǎn)陣左移顯示與右移顯示.;;
;;;程序顯示的為6;;
ORG 0
AJMP MAIN
MAIN:
MOV 30H,#00H
MOV 31H,#00H
MOV 32H,#0FEH
MOV 33H,#92H
MOV 34H,#92H
MOV 35H,#0F2H
MOV 36H,#00H
MOV 37H,#00H
MOV 2fh,#7fh
MOV 29H,#00H
loopm:
acall led
ACALL DELAY
;; ACALL DELAY
ACALL REDL
ajmp loopm
led:
MOV r6,#08h
loop1:
MOV R3,#08
MOV r0,#37h
clr c
MOV a,30h
;MOV a,37h
; MOV r0,#30h
dd1:
clr C
xch a,@r0
;inc r0
dec r0
djnz r3,dd1
MOV r3,#08
MOV R0,#37H;;;
ACALL LOOP2
ACALL LOOP2
ACALL LOOP2
ACALL LOOP2
ACALL LOOP2
ACALL LOOP2
DJNZ R6,LOOP1
MOV R6,#08
ret
loop2:
MOV r0,#30h
MOV r7,#08h
LOOP: ;;;;;;;;;;;;;;;;;;;;
MOV P0,#00H;;;;LED
MOV P1,#0FFH
MOV P2,@R0 ;;
MOV P1,2FH
INC R0
ACALL DELAY2
MOV A,2FH
RR A;;
MOV 2FH,A ;;;;;LED
DJNZ R7,LOOP ;;;;;;;;;;;;;;;;;;;
MOV p2,#00h
MOV p1,#0ffh
MOV p0,#00h
RET
REDL:
MOV r6,#08h
RELOOP1:
MOV R3,#08
clr c
MOV a,37h
MOV r0,#30h
REdd1:
clr C
xch a,@r0
inc r0
djnz r3,REdd1
MOV r3,#10H;;08
MOV R0,#37H;;;
ACALL REDLOOP
ACALL REDLOOP
ACALL REDLOOP
ACALL REDLOOP
ACALL REDLOOP
acall delay;;;;;;
DJNZ R6,RELOOP1
MOV R6,#10H;;08
ret
REDLOOP:
MOV r0,#30h
MOV r7,#08h
REDLOOP2: ;;;;;;;;;;;;;;;;;;;;
MOV P2,#00H;;;;LED
MOV P1,#0FFH
MOV P0,@R0 ;;
MOV P1,2FH
INC R0
ACALL DELAY2
MOV A,2FH
RR A;;
MOV 2FH,A ;;;;;LED
DJNZ R7,REDLOOP2 ;;;;;;;;;;;;;;;;;;;
MOV p2,#00h
MOV p1,#0ffh
MOV p0,#00h
RET
DELAY2:
MOV R5,#5
DD2:MOV R4,#250
DJNZ R4,$
DJNZ R5,DD2
RET
DELAY:
MOV R5,#100
D:MOV R4,#250
DJNZ R4,$
DJNZ R5,D
RET
END
|
|
66821730(技術(shù)支持)
