key.asm

笙科RF芯片A7102A汇编程序 自动发射接收测试程序

keyin:	
	
	clr	keyinbuf1
	
	b0bts1	KEY1
	b0bset	keyinbuf1.0

	b0bts1	KEY2	
	b0bset	keyinbuf1.1


keyin90:




;========================================================
;	       Key check
;========================================================
keychk:
	mov	a,keyinbuf1	;whether have key
	cmprs	a,keychkbuf1
	jmp	keychk10	;yes	
	b0bts1	fkey_in		;whether key has putdown
	jmp	keychk90	;no
	mov	a,keychat	;yes,whether debounce is finish
	b0bts1	fz
	jmp	keychk90	;no
;--------------------------------------------------------
;	     debounce is finish
;--------------------------------------------------------
keychk05:			
	mov	a,keyinbuf1
	mov	keycvtbuf1,a
	b0bclr	fkey_in
	jmp	keychk90
;--------------------------------------------------------
;	     begin debounce
;--------------------------------------------------------
keychk10:
	mov	a,keyinbuf1
	mov	keychkbuf1,a
	b0bset	fkey_in
	mov	a,#kdelaytime
	mov	keychat,a
keychk90:
;========================================================
;	       key convert
;========================================================
keycvt:
	mov	a,keycvtbuf1 	;
	cmprs	a,keyoldbuf1   	;
	jmp	keycvt05	;   
	jmp	keycvt90
keycvt05:
	mov	a,keycvtbuf1	;save keyoldbuf
	mov	keyoldbuf1,a	;;

;	B0BTS1	keycvtbuf1.0
;	JMP	$+3
;	B0BSET	F_KEY1
;	JMP	$+2
;	B0BCLR	F_KEY1

;	B0BTS1	keycvtbuf1.1
;	JMP	$+3
;	B0BSET	F_KEY2
;	JMP	$+2
;	B0BCLR	F_KEY2
keycvt90:

mn_key90: