;cms16p53



;------------------------------
NOPNOP:
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	RET	0
;-------------------------------
; ANJKEY
;取鍵值
;只要流程及功能：判斷按鍵是否按下、是否彈
;起、是否多按鍵按下、去抖、按鍵值送給KEYIN
;-------------------------------
AJKEY: 
	LDIA	B'00111110'		;置按鍵I/O口為輸入  	
	WRSR	P1
	LDIA	B'00010001'
	WRSR	P0
	CLR   	KEYIN
	CALL	NOPNOP			;空超作 延時
	SZB	P0,0
	SETB   KEYIN,POWER
	SNZB	P1,5
	SETB   KEYIN,SPEED
	SNZB	P1,4
	SETB   KEYIN,SWING
	SNZB	P1,3
	SETB   KEYIN,LED
	;LDIA	B'00000000'
	;WRSR	P1
	;LDIA	B'00010000'
	;WRSR	P0	
	LD     A,KEYIN
	SZB     FLAGS,Z		;QUDOU與0相比較,判斷有無鍵按下
	CLRB	BIT2,HAVEKEY		;沒有則返回到
	SZB	BIT2,HAVEKEY
	RET	0
	LD      A,KEYIN
	SUBA    OLDKEYIN
	SZB	FLAGS,Z
	JP	AJ_DF	
	LD	A,KEYIN
	LD	OLDKEYIN,A
	JP	QD58
AJ_DF:
	SZDECR QDTIMER
	RET 	0
CFKEY:	
	LD      A,KEYIN
	SZB     FLAGS,Z	
	JP	QD58			;按鍵值為0則返回
	SETB	BIT2,HAVEKEY		;得到按鍵值
	CALL	QD58
	JP	KEYIN_SET	
QD58:
	LDIA	58H
	LD	QDTIMER,A	
	RET	0