;;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
|
|