6++-

RM51单片机实验板配套实验例程库

;****************************************************************
;*      ★★★          单片机计数实验程序          ★★★      *
;* 『电子驿站单片机实验板、开发板配套例程，程序转载请著明出处』 *
;*  E-mail: [e-mail]     QQ留言：451338254 476485321  *
;*  编程：ourmpu  http://www.ourmpu.com/ 更多例程请登陆网站     *
;****************************************************************
;*       6位数码管计数实验，计数值从000000～999999                *
;****************************************************************

	ORG	0000H
	LJMP	START		;转初始化

	ORG	000BH
	LJMP	PGT0		;T0中断入口

	ORG	0033H

START:
	DIS1	EQU	30H
	DIS2	EQU	31H
	DIS3	EQU	32H
	DIS4	EQU	33H
	DIS5	EQU	34H
	DIS6	EQU	35H

	MOV	SP,#50H		;初始化程序
	MOV	P0,#0FFH
	MOV	P1,#0FFH
	MOV	P2,#0FFH
	MOV	P3,#0FFH
	MOV	DIS1,#00H
	MOV	DIS2,#00H
	MOV	DIS3,#00H
	MOV	DIS4,#00H
	MOV	DIS5,#00H
	MOV	DIS6,#06H
	MOV	TMOD,#01H
	MOV	TH0,#4CH	;50MS
	MOV	TL0,#00H
	MOV	IE,#82H
	MOV	R6,#2
	SETB	TR0

MAIN:	MOV	A,DIS1
	MOV	DPTR,#SGTB
	MOVC	A,@A+DPTR
	MOV	P0,A
	SETB	P2.0
	SETB	P2.1
	SETB	P2.2
	SETB	P2.3
	SETB	P2.4
	CLR	P2.5
	LCALL	DELAY

	MOV	A,DIS2
	MOV	DPTR,#SGTB
	MOVC	A,@A+DPTR
	MOV	P0,A
	SETB	P2.0
	SETB	P2.1
	SETB	P2.2
	SETB	P2.3
	CLR	P2.4
	SETB	P2.5
	LCALL	DELAY

	MOV	A,DIS3
	MOV	DPTR,#SGTB
	MOVC	A,@A+DPTR
	MOV	P0,A
	SETB	P2.0
	SETB	P2.1
	SETB	P2.2
	CLR	P2.3
	SETB	P2.4
	SETB	P2.5
	LCALL	DELAY

	MOV	A,DIS4
	MOV	DPTR,#SGTB
	MOVC	A,@A+DPTR
	MOV	P0,A
	SETB	P2.0
	SETB	P2.1
	CLR	P2.2
	SETB	P2.3
	SETB	P2.4
	SETB	P2.5
	LCALL	DELAY

	MOV	A,DIS5
	MOV	DPTR,#SGTB
	MOVC	A,@A+DPTR
	MOV	P0,A
	SETB	P2.0
	CLR	P2.1
	SETB	P2.2
	SETB	P2.3
	SETB	P2.4
	SETB	P2.5
	LCALL	DELAY

	MOV	A,DIS6
	MOV	DPTR,#SGTB
	MOVC	A,@A+DPTR
	MOV	P0,A
	CLR	P2.0
	SETB	P2.1
	SETB	P2.2
	SETB	P2.3
	SETB	P2.4
	SETB	P2.5
	LCALL	DELAY

	AJMP	MAIN

PGT0:	PUSH	ACC
	CLR	TR0
	MOV	TH0,#04H	;#4CH	;50MS
	MOV	TL0,#00H
	DJNZ	R6,T0RET	;T0中断子程序
	MOV	R6,#1
	
	CPL	P1.0
	
	INC 	DIS6
	MOV 	A,DIS6
	CJNE 	A,#0AH,T0RET
	MOV 	DIS6,#00H
	
	
	CPL	P1.1
	
	INC 	DIS5
	MOV 	A,DIS5
	CJNE 	A,#0AH,T0RET
	MOV 	DIS5,#00H
		
	CPL	P1.2
	
	INC 	DIS4
	MOV 	A,DIS4
	CJNE 	A,#0AH,T0RET
	MOV 	DIS4,#00H
	
	CPL	P1.3
	
	INC 	DIS3
	MOV 	A,DIS3
	CJNE 	A,#0AH,T0RET
	MOV 	DIS3,#00H
	
	CPL	P1.4
	
	INC 	DIS2
	MOV 	A,DIS2
	CJNE 	A,#0AH,T0RET
	MOV 	DIS2,#00H
	
	CPL	P1.5
	
	INC 	DIS1
	MOV 	A,DIS1
	CJNE 	A,#0AH,T0RET
	MOV 	DIS1,#00H

	CPL	P1.6

T0RET:	POP	ACC
	SETB	TR0
	RETI

;************* 8位共阳数码管字型表 *****************
SGTB:	DB	0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
	DB	88H,83H,0C6H,0A1H,86H,8EH,89H,0A3H,8CH,0C8H

;********  延时子程序  ********
DELAY:	MOV	R1,#2
Y1:	MOV	R2,#200
	DJNZ	R2,$
	DJNZ	R1,Y1
	RET

	END