key.asm.bak

来自「这是一个完整的除湿机方案！另包含SCH原理图。希望对用松翰单片机的朋友有帮助！」· BAK 代码 · 共 110 行

;**********************************************
;Name	:mnkey
;Function:
;Input  :
;Output	:
;Register Used:
;***********************************************
mnkey:
	call	keyin
	call	keychk
	call	keycvt

mnkey90:
	ret
	

;**********************************************
;Name	:keyin
;Function:
;Input  :
;Output	:
;Register Used:
;***********************************************
keyin:
	clr	keyinbuf
	b0bts0	ptstop
	jmp	keyin20
	bset	keyinbuf.0
	jmp	keyin90
keyin20:
	b0bts0	ptdown
	jmp	keyin30
	bset	keyinbuf.1
	jmp	keyin90
keyin30:
	b0bts0	ptup
	jmp	keyin40
	bset	keyinbuf.2
	jmp	keyin90
keyin40:
	b0bts0	ptplay
	jmp	keyin90
	bset	keyinbuf.3
			
keyin90:
	ret	
;**********************************************
;Name	:keychk
;Function:
;Input  :
;Output	:
;Register Used:
;***********************************************
keychk:
	mov	a,keyinbuf
	cmprs	a,keychkbuf
	jmp	keychk10
	
	b0bts1	keystatflag
	jmp	keychk90
	
	mov	a,keychat
	b0bts1	fz
	jmp	keychk90
	
	mov	a,keychkbuf
	mov	keycvtbuf,a
	bclr	keystatflag
	jmp	keychk90
	
keychk10:
	mov	a,keyinbuf
	mov	keychkbuf,a
	bset	keystatflag
	mov	a,#3
	mov	keychat,a


keychk90:
	ret


;**********************************************
;Name	:keycvt
;Function:
;Input  :
;Output	:
;Register Used:
;***********************************************	
keycvt:
	mov	a,keycvtbuf
	cmprs	a,keyoldbuf
	jmp	keycvt10
	jmp	keycvt90
	
keycvt10:
	b0bts1	keystabflag
	jmp	keycvt90
	b0bclr	keystabflag
	mov	a,keycvtbuf
	mov	keyoldbuf,a
	b0bclr	openflag
	b0bts1	keycvtbuf.0
	jmp	keycvt90
	b0bset	openflag


keycvt90:
	ret