AT89S52单片机程序50例（00-50）

				;I／O并行口直接驱动LED显示
				
				      ORG 0000H
				START:MOV P2,#07H
				      MOV R1,#00H
				 NEXT:MOV A,R1
				      MOV DPTR,#TABLE  ;取TABLE的首地址给DPTR
				      MOVC A,@A+DPTR  ;查表
				      MOV P0,A  ;送P0口
				      LCALL DELAY  ;调用延时子程序
				      INC R1  ;R1加1
				      CJNE R1,#10,NEXT  ;R1不为10时，跳转至NEXT
				      LJMP START  ;R1=10时，跳转至START
				
				;0.2s延时子程序
				DELAY:MOV R5,#20
				   D2:MOV R6,#20
				   D1:MOV R7,#248
				      DJNZ R7,$
				      DJNZ R6,D1
				      DJNZ R5,D2
				 RET
				
				;0-9的段码值
				TABLE:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
				END