initial

这是一个完整的除湿机方案！另包含SCH原理图。希望对用松翰单片机的朋友有帮助！

;**********************************************
;Name	:RAMInitial
;Function:clr bank0~bank1
;Input  :
;Output	:
;Register Used:
;***********************************************
RAMInitial:
	mov	a,#00h
	mov	y,a
	mov	a,#3fh
	b0mov	z,a
Clrbank0:
	clr	@YZ				;Clear @YZ content
	decms	Z  				;z = z - 1 , skip next if z=0
	jmp	Clrbank0
	clr 	@YZ				;Clear address 0x00
	mov	a,#55h
	mov	temp1,a				;抗干扰
	mov	temp2,a
	mov	temp3,a
	ret
;**********************************************
;Name	:PortInitial
;Function:
;Input  :
;Output	:
;Register Used:
;***********************************************
PortInitial:
	mov	a,#00000011b	;p0.0 p0.1 pull up
	mov	p0ur,a
	mov	a,#0
	mov	p4ur,a
	mov	p5ur,a

	mov	a,#00010011b
	mov	p0,a
	mov	a,#0
	mov	p4,a
	mov	p5,a

	mov	a,#11101100b		;p0 all input
	b0mov	p0m,a		
	mov	a,#11111101b  	;p4.0 p4.2 p4.3 p4.4 output p4.1 input
	mov	p4m,a
	
	mov	a,#02h
	mov	p4con,a	
	mov_	vrefh,#03h	;vref=vcc(sn8p2711)
	
	mov	a,#0ffh	
	mov	p5m,a		; p5 all output 

	ret

;**********************************************
;Name	:SysInitial
;Function:
;Input  :
;Output	:
;Register Used:
;***********************************************
SysInitial:
	mov	a,#10h			;active LVD24
	mov	pflag,a
	mov	a,#0
	mov	oscm,a
	clr	inten
	clr	intrq
	mov	a,#0
	mov	t0m,a
	mov	A,#00100100B		;//fto=fcpu/64
	b0mov	TC0M,A
	mov	A,#100			;//10ms constant  for  ft0=1mips/64
	b0mov	TC0C,A
	mov	tc0r,a
	bclr	ftc0irq			; CLEAR TIMER0 INTERRUPT FLAG
	bset	FTC0IEN			; Enable T0 interrupt
	b0bset	faload0
	b0bset	FTC0ENB			; Enable TIMER0

	mov	a,#10h
	mov	pedge,a			;rising edge
	b0bclr	fp00irq			; Enable P00 interrup		
	b0bset	fp00ien
	
	b0bclr	FP01IEN			; disable P01 interrup	
	b0bclr	FP01IRQ
	b0bclr	ftc1irq			; disable tc1 interrup	
	b0bclr	ftc1ien
	b0bclr	fadcirq			; disable tc1 interrup	
	b0bclr	fadcien
	b0bset	FGIE			;//enable Interrupt gain
	ret

;**********************************************
;Name	:Pdelay
;Function:
;Input  :
;Output	:
;Register Used:
;***********************************************
Pdelay:				;20ms
	mov	a,#20
	mov	var1,a
loop10:
	mov	a,#200
	mov	var2,a
loop11:
	decms	var2
	jmp	loop11	
	mov a,#5ah
	mov wdtr,a

	decms	var1
	jmp	loop10
	ret