2020年02月15日 | 51单片机LED点阵上移程序!（汇编）

注释：行采用74LS154+PNP三极管驱动

列采用两个74HC595驱动!

此程序可以实现上移!下面是视频链接实拍效果，请大家查看！链接地址：视频祥见：http://www.tudou.com/programs/view/D0SCJyO4RBQ/
 
SDATA  EQU  P1.0   ;串行数据
SCLK   EQU  P1.1   ;移位时钟脉冲
RCK    EQU  P1.2   ;输出锁存器控制脉冲
ORG 000H
JMP MAIN
ORG 0030H
MAIN: MOV SP,#5FH
MOV 20H,#00H
MAIN1: MOV R0,#5
MAIN2: MOV R3,#10H
MOV R1,#00H
MOV R2,20H
MAIN3: MOV DPTR,#TAB
CALL YIN
MOV A,R1
MOV P2,A
INC R1
MOV A,#0FFH
MOV P1,A
MOV R5,#6
D1: MOV R6,#100
DJNZ R6,$
DJNZ R5,D1
DJNZ R3,MAIN3
DJNZ R0,MAIN2
MOV A,20H
ADD A,#02
MOV 20H,A
CJNE A,#100,MAIN1
JMP MAIN

YIN: MOV A,R2
MOVC A,@A+DPTR
CPL A
CALL YIN1
INC R2
MOV A,R2
MOVC A,@A+DPTR
CPL A
CALL YIN1
INC R2
NOP
SETB RCK
NOP
CLR RCK
NOP
RET

YIN1: MOV R7,#8
D11: RLC A
MOV SDATA,C
NOP
SETB SCLK
NOP
CLR SCLK
NOP
DJNZ R7,D11
RET      
;--------------------------------------------------------------
TAB:
db 22H,08H,11H,08H,11H,10H,00H,20H
db 7FH,0FEH,40H,02H,80H,04H,1FH,0E0H
db 00H,40H,01H,84H,0FFH,0FEH,01H,00H
db 01H,00H,01H,00H,05H,00H,02H,00H
db 00H,00H,00H,04H,0FFH,0FEH,00H,04H
db 08H,04H,04H,04H,02H,04H,02H,24H
db 00H,0C4H,03H,04H,0CH,04H,30H,04H
db 10H,04H,00H,44H,00H,28H,00H,10H
db 02H,00H,02H,00H,02H,08H,03H,0FCH
db 02H,00H,02H,10H,3FH,0F8H,20H,10H
db 20H,10H,20H,10H,3FH,0F0H,00H,00H
db 29H,10H,24H,0C8H,44H,44H,80H,04H
db 00H,80H,78H,84H,4FH,0FEH,50H,80H
db 50H,0A0H,61H,20H,51H,28H,4BH,0FCH
db 48H,20H,48H,20H,68H,24H,57H,0FEH
db 40H,20H,40H,20H,40H,20H,40H,20H

;--------------------------------------------------------------
         END