8x8 lcd.asm

点阵式LED显示 点阵式LED显示

CNTA	EQU 30H 
COUNT	EQU 31H 
  
		ORG 00H 
		LJMP START 
		ORG 0BH 
		LJMP T0X 
		ORG 30H 
START:	MOV CNTA,#00H 
		MOV COUNT,#00H 
		MOV TMOD,#01H 
		MOV TH0,#(65536-1000) / 256 
		MOV TL0,#(65536-1000) MOD 256 
		SETB TR0 
		SETB ET0 
		SETB EA 
WT:		JB P2.0,WT 
		MOV R6,#5 
		MOV R7,#248 
D1:		DJNZ R7,$ 
		DJNZ R6,D1 
		JB P2.0,WT 
		INC COUNT 
		MOV A,COUNT 
		CJNE A,#03H,NEXT 
		MOV COUNT,#00H 
NEXT:	JNB P2.0,$ 
		SJMP WT 
  
T0X:	NOP 
		MOV TH0,#(65536-1000) / 256 
		MOV TL0,#(65536-1000) MOD 256 
		MOV DPTR,#TAB 
		MOV A,CNTA 
		MOVC A,@A+DPTR 
		MOV P3,A 
		MOV DPTR,#GRAPH 
		MOV A,COUNT 
		MOV B,#8 
		MUL AB 
		ADD A,CNTA 
		MOVC A,@A+DPTR 
		MOV P1,A 
		INC CNTA 
		MOV A,CNTA 
		CJNE A,#8,NEX 
		MOV CNTA,#00H 
NEX:	RETI 
  
TAB:	DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH 
GRAPH:	DB 12H,14H,3CH,48H,3CH,14H,12H,00H 
		DB 00H,00H,38H,44H,44H,44H,38H,00H 
		DB 30H,48H,44H,22H,44H,48H,30H,00H 
		END