沙漏型点阵java_51单片机驱动8*8LED点阵屏显示沙漏形状汇编程序

ORG 0000H

ST: MOV DPTR,#TAB ;显示数据表首址

LP5:CLR P2.2 ;74HC595输出清零

SETB P2.2

CLR P2.4 ;选取第一行000

CLR P2.5

CLR P2.6

MOV A,#00H ;清累加器

MOVC A,@A+DPTR ;取显示数据

LCALL DIS ;送列数据子程?

LCALL DELAY ; 延时

SETB P2.4 ;选取第二行001

CLR P2.5

CLR P2.6

INC DPTR

MOV A,#00H

MOVC A,@A+DPTR

LCALL DIS

LCALL DELAY

CLR P2.4 ;选取第三行010

SETB P2.5

CLR P2.6

INC DPTR

MOV A,#00H

MOVC A,@A+DPTR

LCALL DIS

LCALL DELAY

SETB P2.4 ;选取第四行011

SETB P2.5

CLR P2.6

INC DPTR

MOV A,#00H

MOVC A,@A+DPTR

LCALL DIS

LCALL DELAY

CLR P2.4 ;选取第五行100

CLR P2.5

SETB P2.6

INC DPTR

MOV A,#00H

MOVC A,@A+DPTR

LCALL DIS