;
;通用寄存器預(yù)定義
RSEG AT ICH
AX： DSW 1
DX： DSW 1
AL EQU AX：BYTE
AH EQU （AX+1）：BYTE
DL EQU DX：BYTE
DH EQU （DX+1）：BYTE
SCRNW EQU 640 ;顯示屏寬度
SCRNH EQU 480 ;顯示屏高度
;
;變量區(qū)
RSEG AT 20H
M_X ：DSW 1 ;光標X值
M_Y ：DSW 1 ：光標Y值
M_BUF ：DSB 4 ;接收緩沖區(qū)
M_P ： DSW 1 ;接收指針
BX ：DSW 1
LRB_OK：DSB 1 ;鼠標狀態(tài)
;Bit7：存在,Bit5,左鍵,Bit4：右鍵
;
CSEG AT 2000H
DCW INIT
CSEG AT 200CH
DCW SIOINT
DCW INIT
DCW 0
DCB 0,0,0,0,0,0
DCB 08DH
DCB 000H
DCB 027H,0FEH
;
CSEG AT 2080H
INIT：LD SP,#0100H ;設(shè)堆棧指針
LD M_X,#SCRNW/2;初始化指針
LD M_Y,#SCRNH/2
ANDB LRB_OK,#7CH
LD M_P,#M_BUF
CLRB INT_PEND ;清除中斷
LDB INT_MASK,#40H ;開串行中斷
LDB AL,SP_STAT ;清除RI/TI
LDB SP_CON,#09H ;設(shè)串口模式
LDB BAUD_RT,#9BH ;1200,12MHz
LDB BAUD_RT,#80H
EI
ANDB IOP2,#0FEH ;P2.2=0
LD AX,#8000H ;延遲200ms
DLY0：DEC AX
JNE DLY0
LDB AL,LRB_OK
LBS AL,7,M_OK
ANDB INT_MASK,#0BFH
M_OK：NOP
; … … …
;
;清單二：取鼠標消息,
AL=鼠標及按鈕狀態(tài),BX=X,DX=Y GET_M:ANDB INT_MASK,#0BFH
LDB AL,LRB_OK ;取鼠標信息
LD BX,M_X
LD DX,M_Y
ORB INT_MASK,#40H
RET
;
;清單三：串口中斷服務(wù)程序
SIOINT：PUSHF ;中斷服務(wù)
PUSH AX
LDB AL,SBUF
LDB AH,SP_STAT
JBS AL,6,ISB0 ;第一個字節(jié)
CMP M_P,#M_BUF
JNE SIO_1
SJMP C99 ;緩沖區(qū)空,出錯
SIO_1：CMP M_P,#M_BUF+2
JH C98 ;緩沖區(qū)滿,出錯
STB AL,[M_P]+ ;存儲收到字節(jié)
CMP M_P,#M_BUF+3
JNE C99
LD M_P,#M_BUF ;已收到完整命令
GOLR：LDB AL,1[M_P] ;處理X方向位移
SHLB AL,#2
EXTB AL
SHRA AX,#2
ADD M_X,AX
CKL:CMP M_X,#0
JGE CKR
CLR M_X
CKR:CMP M_X ,#SCRNW
JLT GOUD
LD M_X,#SCRNW
GOUD:LDB AL,2[M_P] ;處理Y方向位數(shù)
SHLB AL,#2
EXTB AL
SHRA AX,#2
ADD M_Y,AX
CKU：CMP M_Y,#0
JGE CKD
CLR M_Y
CKD：CMP M_Y,#SCRNH
JLT ELRUD
LD M_Y,#SCRNH
ELRUD：SJMP C98
ISB0：STB AL,M_BUF
ANDB AL,#0FH
CMPB AL,#03H
JE C97 ;=X3H,
CMPB AL,#0CH
JE C97 ;=XCH
CMPB AL,#0DH
JNE C98 ;<>XDH
ORB LRB_OK,#80H ;確認鼠標正常
C97：ANDB AL,M_BUF,#30H
ANDB LRB_OK,#80H
ORB LRB_OK,AL ;更新左右鍵狀態(tài)
LD M_P,#M_BUF+1
SJMP C99
C98：LD M_P,#0000H
C99：POP AX
POPF
RET
;
END
