pcatime.asm

单片机 LCA51这个小程序编绎吧

	IAP			EQU		0B7H
	EPCA_LVD	bit		ie.6
	ch			equ		0f9h
	cl			equ		0e9h
	;-----
	ccon		equ		0d8h
;	ccf0		equ		0d8h.0
;	ccf1		equ		ccon.1
;	ccf2		equ		ccon.2
;;	ccf3		equ		ccon.3
;	ccf4		equ		ccon.4
;	ccf5		equ		ccon.5
;	cr			equ		ccon.6
;	cf			equ		ccon.7
	;-------------------------
	cmod		equ		0d9h
	;----
	ccap0h		equ		0fah
	ccap1h		equ		0fbh
	ccap2h		equ		0fch
	ccap3h		equ		0fdh
	ccap4h		equ		0feh
	ccap5h		equ		0ffh
	;----
	ccap0l		equ		0eah
	ccap1l		equ		0ebh
	ccap2l		equ		0ech
	ccap3l		equ		0edh
	ccap4l		equ		0eeh
	ccap5l		equ		0efh
	;-----
	pca_pwm0	equ		0f2h
	pca_pwm1	equ		0f3h
	pca_pwm2	equ		0f4h
	pca_pwm3	equ		0f5h
	pca_pwm4	equ		0f6h
	pca_pwm5	equ		0f7h
	;-------
	ccapm0		equ		0dah
	ccapm1		equ		0dbh
	ccapm2		equ		0dch
	ccapm3		equ		0ddh
	ccapm4		equ		0deh
	ccapm5		equ		0dfh
	;---------
	led_mcu_start		equ	p1.7
	led_5ms_flashing	equ	p1.6
	led_1s_flashing		equ	p1.5
	;-------
	counter	equ	30h
	
	org	0000h
	ljmp	main
	
	org	0033h
	ljmp	pca_interrupt
	
	org	0050h


main:	mov		sp,#7fh
		mov		counter,#0
		acall	pca_initiate
		
main_0:	cpl		led_mcu_start
		acall	d1s
wait:	sjmp	main_0


pca_initiate:
		mov		cmod,#80h
		mov		ccon,#0
		mov		cl,#0
		mov		ch,#0
		mov		ccap0l,#0
		mov		ccap0h,#1eh
		mov		ccapm0,#49h
		setb	epca_lvd
		setb	ea
		orl		0d8h,#40h
		;setb	cr
		ret
		
		
pca_interrupt:
		push	acc
		push	psw
		cpl		led_5ms_flashing
		mov		a,#0
		add		a,ccap0l
		mov		ccap0l,a
		mov		a,#1eh
		addc	a,ccap0h
		mov		ccap0h,a
		anl		0d8h,#0feh
	;	clr		0d8h.0	;ccf0
		inc		counter
		mov		a,counter
		clr		c
		subb	a,#200
		jc		pca_interrupt_exit
		mov		counter,#0
		cpl		led_1s_flashing
pca_interrupt_exit:
		pop		psw
		pop		acc
		reti
		
;------------------------------------------
d1s:		push	06h
			nop
			mov		r6,#50
			nop
	d1s_s:	nop
			lcall	d1ms
			lcall	d1ms
			lcall	d1ms
			lcall	d1ms
			lcall	d1ms
			nop
			djnz	r6,d1s_s
			pop		06h
			ret	
	dms:	push	06h
			nop
			mov		r6,#50
			nop
	dms_s:	nop
			lcall	d1ms
			lcall	d1ms
			lcall	d1ms
			lcall	d1ms
			nop
			djnz	r6,dms_s
			pop		06h
			ret		
	d10ms:	push	07h
			mov	r7,#2
			nop
	d10:	nop
			nop
			lcall	d1ms
			djnz	r7,d10
			pop		07h
			ret	
	d1ms:	nop
			mov		r5,#0ffh
			nop
	d1ms_1:	nop
			nop
			nop
			nop
			nop
			nop
			djnz	r5,d1ms_1
			ret		
		
		
		
		
		
		
		end