24x24.asm

这是proteus中的matrix8*8点阵模块动态仿真,说得很详细,包含电路原理图,及源代码

ORG	0000H
	AJMP	MAIN
	ORG	0030H
MAIN:	
	MOV	SP,#64H
	MOV	DPTR,#TAB
	MOV	R4,#144		;显示6 字，每字左移24列，共144列。即显示114屏。
MAIN1:	MOV	R5,#6		;反复显示6次
MAIN2:	MOV	R2,#0		;取码指针
	MOV	R1,#0		;列控制码
PANT:	CLR	P1.3
	CLR	P1.4
	CLR	P1.5

	MOV	A,R1
	ANL	A,#07H		;屏蔽R1高5 位
	MOV	P1,A		
	INC	R1
	CJNE	R1,#8,PAN1	;第1 片138译码完成否
	AJMP	PAN11
PAN1:	JC	PAN11		;译码未完，转PAN11，显示本列
	CJNE	R1,#10H,PAN2	;第2 片138译码完成否
	AJMP	PAN21
PAN2:	JC	PAN21
	CJNE	R1,#18H,PAN3	;第3 片138译码完成否
	AJMP	PAN31
PAN3:	JC	PAN31
	AJMP	PANT
PAN11:	ACALL	GC
	SETB	P1.3		;送1~8列控制码
	ACALL	D1MS
	AJMP	PANT
PAN21:	ACALL	GC
	SETB	P1.4		;送9~16列控制码
	ACALL	D1MS
	AJMP	PANT
PAN31:	ACALL	GC
	SETB	P1.5		;送17~24列控制码
	ACALL	D1MS
	CJNE	R1,#24,PANT	;24列未完，继续
	DJNZ	R5,MAIN2	;反复6 次未完，继续显示
	INC	DPTR
	INC	DPTR
	INC	DPTR
	DJNZ	R4,MAIN1
	AJMP	MAIN
GC:	MOV	A,R2		
	MOVC	A,@A+DPTR	;取当前列第1个字节
	MOV	P0,A		;送1~8行控制口
	INC	R2		;取码指针加1
	MOV	A,R2
	MOVC	A,@A+DPTR	;取当前列第2 个字节
	MOV	P2,A		;送9~16行控制口
	INC	R2
	MOV	A,R2
	MOVC	A,@A+DPTR	;取当前码第3 个字节
	MOV	P3,A		;送17~24行控制口
	INC	R2	
	RET
D1MS:	MOV	R6,#2		;1ms延时子程序
	MOV	R7,#248
	DJNZ	R7,$
	DJNZ	R6,$-4
	RET
TAB:
DB 000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ;
DB 000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ;
DB 000H ,000H ,000H ,000H ;" ",0

DB 000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ;
DB 000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ;
DB 000H ,000H ,000H ,000H ;" ",1

DB 000H ,000H ,000H ,000H ,000H ,001H ,000H ,000H ,001H ,000H ,000H ,001H ,040H ,000H ,001H ,0C0H ;
DB 007H ,001H ,084H ,01FH ,001H ,09CH ,01CH ,001H ,098H ,092H ,001H ,0D8H ,092H ,000H ,0C0H ,0FFH ;
DB 0FFH ,0E0H ,0FFH ,0FFH ,070H ,092H ,000H ,05EH ,09AH ,000H ,06EH ,08CH ,000H ,0E6H ,0CFH ,000H ;
DB 0E0H ,0C3H ,000H ,0C0H ,0C0H ,000H ,000H ,0C0H ,000H ,000H ,0C0H ,000H ,000H ,080H ,000H ,000H ;
DB 000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ;"单",2

DB 000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,010H ,000H ,000H ,01CH ,000H ;
DB 000H ,00EH ,008H ,0E0H ,007H ,0F8H ,0FFH ,001H ,0F0H ,03FH ,000H ,000H ,022H ,000H ,000H ,022H ;
DB 000H ,000H ,023H ,000H ,006H ,021H ,000H ,0FEH ,0F1H ,03FH ,0FCH ,0F1H ,03FH ,000H ,0E1H ,000H ;
DB 000H ,001H ,000H ,000H ,001H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ;
DB 000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ;"片",3

DB 000H ,000H ,004H ,000H ,002H ,006H ,000H ,002H ,003H ,000H ,0C2H ,001H ,000H ,0F2H ,000H ,002H ;
DB 03FH ,018H ,0FEH ,0FFH ,03FH ,0FCH ,0FFH ,03FH ,000H ,031H ,008H ,000H ,031H ,00CH ,000H ,080H ;
DB 007H ,0C0H ,0FFH ,003H ,0C0H ,0FFH ,000H ,0C0H ,000H ,000H ,040H ,0FCH ,000H ,0C0H ,0FFH ,003H ;
DB 0C0H ,003H ,007H ,040H ,000H ,006H ,000H ,000H ,004H ,000H ,000H ,004H ,000H ,0C0H ,007H ,000H ;
DB 0C0H ,007H ,000H ,000H ,004H ,000H ,000H ,000H ;"机",4

DB 000H ,020H ,000H ,000H ,030H ,000H ,000H ,018H ,000H ,000H ,00CH ,000H ,000H ,007H ,000H ,0C0H ;
DB 0FFH ,03FH ,0FCH ,0FFH ,03FH ,07CH ,000H ,00CH ,03CH ,002H ,006H ,000H ,002H ,003H ,000H ,082H ;
DB 001H ,000H ,0E2H ,001H ,008H ,07AH ,038H ,018H ,03FH ,038H ,038H ,01FH ,03CH ,030H ,091H ,01FH ;
DB 000H ,0F1H ,007H ,080H ,0F1H ,000H ,080H ,021H ,000H ,080H ,001H ,000H ,080H ,001H ,000H ,000H ;
DB 001H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ;"仿",5

DB 000H ,000H ,000H ,000H ,000H ,002H ,000H ,000H ,006H ,000H ,000H ,086H ,000H ,000H ,0C2H ,000H ;
DB 000H ,062H ,000H ,000H ,072H ,020H ,0FFH ,03BH ,030H ,0FFH ,01FH ,0D0H ,057H ,00FH ,0FEH ,05AH ;
DB 001H ,0BEH ,04AH ,001H ,09EH ,000H ,005H ,098H ,0FFH ,01DH ,088H ,0FFH ,039H ,088H ,001H ,079H ;
DB 000H ,000H ,061H ,000H ,000H ,001H ,000H ,000H ,001H ,000H ,000H ,001H ,000H ,000H ,001H ,000H ;
DB 000H ,000H ,000H ,000H ,000H ,000H ,000H ,000H ;"真",6


	END