使用取反(CPL)實現跑馬燈的閃爍,隨后給P0口賦值實現移動。 注;使用的是12MHZ頻率,
ORG 0000H
LJMP LOOP1
ORG 0030H
LOOP1: MOV A,#11111111B
clr p1.4 ;打開使能
MOV R1,#5 ;閃爍5次
LOOP: CPL A ;取反
MOV P0 , A ;輸出
ACALL DEL
CPL A
MOV P0 , A
ACALL DEL
DJNZ R1 , LOOP ;減一非零判斷
MOV P0,#11100111B
ACALL DEL
MOV P0,#11011011B
ACALL DEL
MOV P0,#10111101B
ACALL DEL
MOV P0,#01111110B
ACALL DEL
LJMP LOOP1
LOOP3: ACALL DEL
SJMP LOOP1
DEL: MOV R5,#6H ;延時子程序部分
F3: MOV R6,#0FFH ;BCD碼為255
F2: MOV R7,#0FFH ;總延時為0.7803s
F1: DJNZ R7,F1
DJNZ R6,F2
DJNZ R5,F3
RET
END
-------------------------------------------------------------------------
帶C循環做移動,使用一條跳轉轉移指令就可實現一直循環下去,延時為1.3s!
ORG 0000H
SJMP BEGAIN
ORG 0030H
BEGAIN: MOV P0, #0FFH ;初始狀態
clr p1.4 ;打開led使能
mov P2, #00110101B ; 鎖存2個74hc573,防止數碼管點陣干擾.
MAIN : CLR A
MOV A ,#11111110B ; 0FEH
LOOP: RLC A
MOV P0 , A
ACALL DEL
LJMP LOOP
DEL: MOV R5,#10H
F3: MOV R6,#0FFH
F2: MOV R7,#0FFH
F1: DJNZ R7,F1
DJNZ R6,F2
DJNZ R5,F3
RET
END
|