;//////////////////////////////////////////////////////////////////////////
;函数名：PS2get
;功能描述：从鼠标读取一个字节
;输入参数：无
;输出参数：PS2_DATA=接收数据
; PS2_RETURN=错误标志
;//////////////////////////////////////////////////////////////////////////
PS2get:
;SEI ;关全局中断
LDA #(PS2_CB + PS2_DB) ;设置 CLOCK 和 DATA 到输入
AND #0ECH
STA PCDR
;
JSR PS2getBit ;取/忽视起始位
LDA #ERROR
CMP PS2_RETURN
BEQ PS2getErr
;
LDA #08H ;装载计数器
STA PS2_COUNTER ;
PS2getLoop:
CLC ;
ROR PS2_DATA ;数据寄存器右移一位
;
JSR PS2getBit ;从鼠标读取一个数据位
LDA #ERROR
CMP PS2_RETURN
BEQ PS2getErr
;
TXA
ORA PS2_DATA ;保存该位
STA PS2_DATA
;
DEC PS2_COUNTER ;读完8个数据位了吗?
BNE PS2getLoop ;
;
JSR PS2getBit ;取/忽视奇偶校验位
LDA #ERROR
CMP PS2_RETURN
BEQ PS2getErr
;
JSR PS2getBit ;取/忽视停止位
LDA #ERROR
CMP PS2_RETURN
BEQ PS2getErr
;
LDA #OK
STA PS2_RETURN
CLI ;开全局中断
RTS
PS2getErr:
LDA #00H
STA PS2_DATA
LDA #ERROR
STA PS2_RETURN
;CLI ;开全局中断
RTS


;//////////////////////////////////////////////////////////////////////////
;函数名：PS2getBit
;功能描述：从鼠标读取一个位
;输入参数：无
;输出参数：X.7=位数据
; PS2_RETURN=错误标志
;//////////////////////////////////////////////////////////////////////////
PS2getBit:
LDA #00H
STA PS2_DEL0
PS2getBit00:
DEC PS2_DEL0
BEQ PS2getBErr ;超时退出
;
LDA PS2_PORT
AND #PS2_CB ;确定　CLOCK 是高
BEQ PS2getBit00 ;
;
LDA #00H
STA PS2_DEL0
PS2getBit10:
DEC PS2_DEL0
BEQ PS2getBErr ;超时退出
;
LDA PS2_PORT
AND #PS2_CB ;确定　CLOCK 是低
BNE PS2getBit10 ;
PS2getBit20:
LDA PS2_PORT
AND #PS2_DB ;读数据位
BEQ PS2getBit30 ;
LDA #OK
STA PS2_RETURN
LDX #80H ;
RTS
PS2getBit30:
LDA #OK
STA PS2_RETURN
LDX #00H
RTS
PS2getBErr:
LDA #ERROR ;超时退出
STA PS2_RETURN
RTS


;//////////////////////////////////////////////////////////////////////////
;函数名：PS2cmd
;功能描述：发送一个字节到鼠标
;输入参数：PS2_DATA=数据字节
;输出参数：PS2_RETURN=错误标志
;//////////////////////////////////////////////////////////////////////////
PS2cmd:
;SEI ;关全局中断
LDA #08H ;初始化计数器
STA PS2_COUNTER ;
LDA #00H ;清零奇偶校验计算器
STA PS2_PARITY
;
LDA #(PS2_CB + PS2_DB) ;设置 CLOCK 和 DATA 到输出
ORA #0ECH
STA PCDR
;
LDA #(PS2_CB) ;拉低　CLOCK　线至少100微秒
AND PS2_PORT
STA PS2_PORT
;
;JSR DELAY100US
;JSR DELAY100US
;
LDA #(PS2_DB) ;拉低　DATA　线至少5微秒
AND PS2_PORT ;
STA PS2_PORT
;
;JSR DELAY100US
;
LDA #PS2_CB ;释放 CLOCK
OR PS2_PORT
STA PS2_PORT
;
LDA #(PS2_CB) ;设置 CLOCK 到输入
AND #0ECH
STA PCDR
PS2cmdLoop:
LDA PS2_DATA ;
EOR PS2_PARITY ;奇偶校验计算
STA PS2_PARITY
;
LDA PS2_DATA
JSR PS2cmdBit ;输出1个数据位
LDA #ERROR
CMP PS2_RETURN
BEQ PS2cmdErr
;
ROR PS2_DATA ;数据右移一位
DEC PS2_COUNTER ;
BNE PS2cmdLoop ;8个数据位输出完了吗？
;
LDA #0FFH ;取反奇偶校验计算器
EOR PS2_PARITY
;
JSR PS2cmdBit ;输出奇偶校验位
LDA #ERROR
CMP PS2_RETURN
BEQ PS2cmdErr
;
LDA #01H ;
JSR PS2cmdBit ;输出停止位 (1)
LDA #ERROR
CMP PS2_RETURN
BEQ PS2cmdErr
;
LDA #00H
STA PS2_DEL0
PS2cmdExit0: ;等待鼠标设备回应
DEC PS2_DEL0
BEQ PS2cmdErr ;超时退出
;
LDA PS2_PORT
AND #PS2_CB
BNE PS2cmdExit0 ;
;
LDA #00H
STA PS2_DEL0
PS2cmdExit1:
DEC PS2_DEL0
BEQ PS2cmdErr ;超时退出
;
LDA PS2_PORT
AND #PS2_CB ;
BEQ PS2cmdExit1 ;
;
LDA #OK
STA PS2_RETURN
;CLI ;开全局中断
RTS ;
PS2cmdErr:
LDA #ERROR
STA PS2_RETURN
;CLI ;开全局中断
RTS ;
;//////////////////////////////////////////////////////////////////////////
;函数名：PS2cmdBit
;功能描述：发送一个位到鼠标
;输入参数：A.1=数据位
;输出参数：PS2_RETURN=错误标志
;//////////////////////////////////////////////////////////////////////////
PS2cmdBit:
STA PS2_TEMP0 ;暂存数据位
LDA #00H
STA PS2_DEL0
PS2cmdBit0:
DEC PS2_DEL0
BEQ PS2cmdBErr ;超时退出
;
LDA PS2_PORT
AND #PS2_CB ;等待 CLOCK　线到低
BNE PS2cmdBit0 ;
;
LDA #01H ;取出数据位
AND PS2_TEMP0
BNE PS2cmdBit1 ;
;
LDA #(PS2_DB) ;设置 DATA 线到低
AND PS2_PORT ;
STA PS2_PORT ;
JMP PS2cmdBit2
PS2cmdBit1:
LDA #PS2_DB ;设置 DATA 线到高
OR PS2_PORT
STA PS2_PORT
PS2cmdBit2:
LDA #00H
STA PS2_DEL0
PS2cmdBit3:
DEC PS2_DEL0
BEQ PS2cmdBErr ;超时退出
;
LDA PS2_PORT
AND #PS2_CB ;
BEQ PS2cmdBit3 ;等待 CLOCK　线到高
;
LDA #OK
STA PS2_RETURN
RTS
PS2cmdBErr:
LDA #ERROR
STA PS2_RETURN
RTS


;//////////////////////////////////////////////////////////////////////////
;函数名：PS2_INIT
;功能描述：鼠标初始化
;输入参数：无
;输出参数：PS2_RETURN=错误标志
;//////////////////////////////////////////////////////////////////////////
PS2_INIT:

PS2_Init0:
LDA #MOUSE_RES ;发送报告复位命令
STA PS2_DATA
JSR PS2cmd
LDA #ERROR
CMP PS2_RETURN
BEQ PS2_InitErr
;
JSR PS2get ;取忽视回应命令
LDA #ERROR
CMP PS2_RETURN
BEQ PS2_InitErr
;
LDA #0FAH
CMP PS2_DATA
BNE PS2_InitErr
;
;JSR PS2get ;取忽视BAT命令
;LDA #ERROR
;CMP PS2_RETURN
;BEQ PS2_InitErr
;
;LDA #0AAH
;CMP PS2_DATA
;BNE PS2_InitErr
;
;JSR PS2get ;取忽视ID命令
;LDA #ERROR
;CMP PS2_RETURN
;BEQ PS2_InitErr
;
;PS2_Init1:
;LDA #MOUSE_REMOTE ;发送报告进入REMOTE模式命令
;STA PS2_DATA
;JSR PS2cmd
;LDA #ERROR
;CMP PS2_RETURN
;BEQ PS2_InitErr
;
;JSR PS2get ;取忽视回应命令
;LDA #ERROR
;CMP PS2_RETURN
;BEQ PS2_InitErr
;
;LDA #MOUSE_ACK
;CMP PS2_DATA
;BNE PS2_InitErr
;
;LDX #80
;STX MOUSE_X
;LDY #40
;STY MOUSE_Y
;JSR Read_XY1616
;
LDA #OK
STA PS2_RETURN
RTS
PS2_InitErr:
LDA #ERROR
STA PS2_RETURN
RTS

;//////////////////////////////////////////////////////////////////////////
;函数名：PS2getReport
;功能描述：命令鼠标发送一个报告
;输入参数：无
;输出参数：PS2_RETURN=错误标志
;//////////////////////////////////////////////////////////////////////////
PS2getReport:
;SEI ;关全局中断
LDA #MOUSE_RDDATA ;发送报告读数据命令
STA PS2_DATA
JSR PS2cmd
LDA #ERROR
CMP PS2_RETURN
BEQ PS2getRepErr
;
JSR PS2get ;取忽视回应命令
LDA #ERROR
CMP PS2_RETURN
BEQ PS2getRepErr
;
LDA #MOUSE_ACK
CMP PS2_DATA
BNE PS2getRepErr
;
JSR PS2get ;取第一个报告字节
LDA #ERROR
CMP PS2_RETURN
BEQ PS2getRepErr
;
LDA PS2_DATA
STA MOUSE_BYTE1
;
JSR PS2get ;取第二个报告字节
LDA #ERROR
CMP PS2_RETURN
BEQ PS2getRepErr
;
LDA PS2_DATA
STA MOUSE_BYTE2
;
JSR PS2get ;取第三个报告字节
LDA #ERROR
CMP PS2_RETURN
BEQ PS2getRepErr
;
LDA PS2_DATA
STA MOUSE_BYTE3
;
LDA #0
CMP MOUSE_CT1
BEQ PS2getRepOK
DEC MOUSE_CT1
PS2getRepOK:
LDA #OK
STA PS2_RETURN
;CLI ;开全局中断
RTS
PS2getRepErr:
LDA #ERROR
STA PS2_RETURN
;CLI ;开全局中断
RTS


;//////////////////////////////////////////////////////////////////////////
;函数名：GET_MOUSE_KEY
;功能描述：检查鼠标按键状态
;输入参数：无
;输出参数：MOUSE_KEY = LKEY_PRESS--左键按下
; = LLKEY_PRESS--左键双击
; = LKEY_PRESS--右键按下
;//////////////////////////////////////////////////////////////////////////
GET_MOUSE_KEY:
SEI ;关全局中断
LDA #0
STA MOUSE_KEY
;
LDA #01H
AND MOUSE_BYTE1
BEQ CHECK_MOUSE_KEY40 ;左键没按下,跳
LDA #LKEY_PRESS ;左键按下
ORA MOUSE_KEY
STA MOUSE_KEY
;
LDA #NO
CMP MKEY_TEST
BNE CHECK_MOUSE_KEY30 ;左键松开过吗?
LDA #0 ;是的.
CMP MOUSE_CT1
BEQ CHECK_MOUSE_KEY30 ;上次按左键的时间过于长了没有?
LDA #LLKEY_PRESS ;没有
ORA MOUSE_KEY
STA MOUSE_KEY ;设置双击左键标志
LDA #NO ;清空MKEY_TEST
STA MKEY_TEST
LDA #0 ;清零左键双击有效时间
STA MOUSE_CT1
JMP CHECK_MOUSE_KEY50 ;跳去检查右键
CHECK_MOUSE_KEY30: ;
LDA #YES ;重新设置左键按过标志
STA MKEY_TEST
LDA #10 ;设置左键双击有效时间
STA MOUSE_CT1
JMP CHECK_MOUSE_KEY50
CHECK_MOUSE_KEY40: ;左键没按下,清空MKEY_TEST
LDA #NO
STA MKEY_TEST
CHECK_MOUSE_KEY50: ;检查右键
LDA #02H
AND MOUSE_BYTE1
BEQ CHECK_MOUSE_KEY_EXIT ;右键没按下,跳
LDA #RKEY_PRESS ;右键按下
ORA MOUSE_KEY
STA MOUSE_KEY
CHECK_MOUSE_KEY_EXIT:
CLI ;开全局中断
RTS
;//////////////////////////////////////////////////////////////////////////
;函数名：GoCountXY
;功能描述：根据鼠标发过来的报告计算光标在LCD的X和Y坐标的位置
;输入参数：MOUSE_BYTE1
; MOUSE_BYTE2
; MOUSE_BYTE3
;输出参数：PS2_RETURN=错误标志
; MOUSE_X
; MOUSE_Y
;//////////////////////////////////////////////////////////////////////////
GoCountXY:

GoCountX00:
;CLC
LDA MOUSE_BYTE2
CMP #0
BEQ GoCountY00
;
CLC
LDA MOUSE_BYTE1
AND #10H
BNE GoCountXdec
GoCountXadd:
CLC
LDA MOUSE_BYTE2
ADC MOUSE_X
STA MOUSE_X
CLC
LDA MOUSE_X
CMP #156
BCC GoCountY00
LDA #156
STA MOUSE_X
JMP GoCountY00
GoCountXdec:
CLC
LDA #0FFH
SBC MOUSE_BYTE2
STA MOUSE_BYTE2
INC MOUSE_BYTE2
CLC
LDA MOUSE_X
SBC MOUSE_BYTE2
STA MOUSE_X
;CLC
;LDA MOUSE_X
;SBC #2
BCS GoCountY00
LDA #2
STA MOUSE_X
;
GoCountY00:
LDA MOUSE_BYTE3
CMP #0
BEQ GoCountXY_Exit
;
LDA MOUSE_BYTE1
AND #20H
BEQ GoCountYdec
GoCountYadd:
CLC
LDA #0FFH
SBC MOUSE_BYTE3
STA MOUSE_BYTE3
INC MOUSE_BYTE3
CLC
LDA MOUSE_BYTE3
ADC MOUSE_Y
STA MOUSE_Y
CLC
LDA MOUSE_Y
CMP #76
BCC GoCountXY_Exit
LDA #76
STA MOUSE_Y
JMP GoCountXY_Exit
GoCountYdec:
CLC
LDA MOUSE_Y
SBC MOUSE_BYTE3
STA MOUSE_Y
BCS GoCountXY_Exit
LDA #00H
STA MOUSE_Y
GoCountXY_Exit:
RTS