2.asm

数码管显示123456,在KEIL下成功编译

 ;p0口接段码a,b,c,d,e,f,g,  p2口接位码，选哪个数码管显示

 	org   0000H
   	SJMP  dplop
   	ORG   0030H

dplop:
	mov a,#01
	mov r1,a
	mov dptr,#numtab

	MOV A,r1
	MOVC A,@A+DPTR
	mov p0,a
	clr p2.5

	acall d1ms
	setb p2.5
	inc r1

	mov a,r1
	MOVC A,@A+DPTR
	mov p0,a
	clr p2.4
	acall d1ms
	setb p2.4
	inc r1

	mov a,r1
	MOVC A,@A+DPTR
	mov p0,a
	clr p2.3
	acall d1ms
	setb p2.3
	inc r1

	mov a,r1
	MOVC A,@A+DPTR
	mov p0,a
	clr p2.2
	acall d1ms
	setb p2.2
	inc r1

	mov a,r1
	MOVC A,@A+DPTR
	mov p0,a
	clr p2.1
	acall d1ms
	setb p2.1
	inc r1

	mov a,r1
	MOVC A,@A+DPTR
	mov p0,a
	clr p2.0
	acall d1ms
	setb p2.0



SJMP  dplop

d1ms: 
	MOV R2,#200
	DJNZ R2,$
	RET


numtab: DB 0c0H,0f9H,0a4H,0b0H,99H,92H,82H,0f8H,80H,90H

end