0-9定时.txt

关于单片机中流水线处理,红绿灯转化等实验

	VAR_NUM		EQU	30H
	VAR_TIMER	EQU	31H
;*****************************************
	org	0000H
	jmp	MAIN
;*****************************************
	org	0030H
MAIN:
	mov	p0,#0FFH
	mov	p1,#0FFH
	mov	p2,#0FFH
	mov	p3,#0FFH
	mov	TMOD,#01H	;选择方式	
	mov	TH0,#0B1H	;赋初植
	mov	TL0,#0E0H
	setb	TR0		;启动T0
	mov	VAR_NUM,#00H
	mov	VAR_TIMER,#00H
;****************************************
DISP_LOOP:
	mov	a,VAR_NUM
	mov	dptr,#TABLE	;查表
	movc	a,@a+dptr
	mov	p0,a
	mov	p2,#11111011b
	call	DELAY
	mov	a,VAR_NUM
	inc	VAR_NUM
	cjne	a,#09,DISP_LOOP
	jmp	$
	ret
;****************************************
DELAY:
DELAY_WAIT:
	jnb	TF0,$
	clr	TF0
	mov	TH0,#0B1H
	mov	TL0,#0E0H
	inc	VAR_TIMER
	mov	a,VAR_TIMER
	cjne	a,#50,DELAY_WAIT
	ret
;****************************************
TABLE:
	DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
;****************************************
end