number.asm

动态数码管显示 用取表发 P2口输入数据

			ORG 00H 
START:		JB P1.7,DIR1 
			MOV DPTR,#TABLE1 
			SJMP DIR 
DIR1:		MOV DPTR,#TABLE2 
DIR:		MOV R0,#00H 
	   		MOV R1,#0FEH 
NEXT:		MOV A,R0 
			MOVC A,@A+DPTR 
			MOV P0,A 
			MOV A,R1 
			MOV P2,A 
			LCALL DAY       
            MOV P2,#0FFH  
			INC R0 
			RL A 
			MOV R1,A 
			CJNE R1,#0DFH,NEXT 
			SJMP START 
DAY:		MOV R6,#4
D1:			MOV R7,#248 
			DJNZ R7,$ 
			DJNZ R6,D1 
			RET 
TABLE1:		DB 0F9H,0A4H,0B0H,099H,092H 
TABLE2:     DB 089H,086H,0C7H,0C7H,0C0H 
			END