作PIC做的一個MOUSE程序

TITLE " MOUSE "
?LIST?? P=16C54,R=O
;
;*******************************************
;*???????????????????????????????????????? *
;*?? MOUSE CONTROLLER????????????????????? *
;*???????????????????????????????????????? *
;*?? VERSION : 25 APRIL, 1990????????????? *
;*???????????????????????????????????????? *
;*?? PIC MODE = PIC16C54XT?? CLK=4.0MHZ??? *
;*******************************************
;
;-------------------------------------------
;?????? FILES ASSIGNMENT
;-------------------------------------------
;
STATUS EQU 3??????????? ;STATUS REGISTER
RA EQU 5??????????????? ;I/O PORT A
RB EQU 6??????????????? ;I/O PORT B
TIMER1 EQU 10?????????? ;COUNTER FOR DELAY
CSTAT EQU 14??????????? ;CO-ORDINATE STATUS
BSTAT EQU 15??????????? ;BUTTON STATUS
DATA0 EQU 16??????????? ;?
DATA1 EQU 17??????????? ;
DATA2 EQU 20??????????? ;5 BYTE RS232 DATA
DATA3 EQU 21??????????? ;
DATA4 EQU 22??????????? ;
FLAGA EQU 23??????????? ;GENERAL PURPOSE FLAG
XCOUNT EQU 24?????????? ;X-MOVEMENT COUNTER
YCOUNT EQU 25?????????? ;Y-MOVEMENT COUNTER
FLAGB EQU 26??????????? ;GENERAL PURPOSE FLAG
COUNT EQU 30??????????? ;GENERAL PURPOSE COUNTER
DATA_AREA EQU 31???????????? ;FOR TEMP. STORAGE
;
;------------------------------------------
;?????? BIT ASSIGNMENT
;------------------------------------------
;
YC EQU 0??????????????? ;Y-CLOCK PIN
YD EQU 1??????????????? ;Y-DATA PIN
UP EQU 1??????????????? ;MOVING UP FLAG
XC EQU 2??????????????? ;X-CLOCK PIN
XD EQU 3??????????????? ;X-DATA PIN
RI EQU 3??????????????? ;MOVING RIGHT FLAG
BU1 EQU 0?????????????? ;BUTTON #1 PIN
BU2 EQU 2?????????????? ;BUTTON #2 PIN
CA EQU 0??????????????? ;CARRY FLAG
RD EQU 7??????????????? ;RECEIVED DATA PIN TO RS232
ZERO_AREA EQU 2????????????? ;ZERO FLAG
TR EQU 2??????????????? ;TIGGER FLAG
;
;===========================================
;?????? SUBROUTINES
;===========================================
;
;*******************************************
?ORG 0
;*******************************************
;
;===========================================
; DELAY A BIT TIME AND CHECK XC & YC STATUS
;===========================================
BIT
?BTFSS RA,XC??????????? ;XC = 1 ?
?GOTO BIT0
?BTFSC CSTAT,XC???????? ;(XC=1)
?GOTO BITY????????????? ;(XC ALWAYS = 1)
?INCF XCOUNT??????????? ;(XC --|__)
?BCF FLAGB,RI?????????? ;DEFAULT LEFT
?BTFSS RA,XD??????????? ;LEFT / RIGHT ?
?GOTO BITY
?BSF FLAGB,RI
?GOTO BITY
BIT0
?BTFSS CSTAT,XC???????? ;(XC=0)
?GOTO BITY????????????? ;(XC ALWAYS = 0)
?INCF XCOUNT??????????? ;(XC __|--)
?BCF FLAGB,RI?????????? ;DEFAULT LEFT
?BTFSC RA,XD??????????? ;LEFT / RIGHT ?
?GOTO BITY
?BSF FLAGB,RI
BITY
?BTFSS RA,YC??????????? ;YC = 1 ?
?GOTO BITY0
?BTFSC CSTAT,YC???????? ;(YC=1)
?GOTO BITDY???????????? ;(YC ALWAYS = 1)
?INCF YCOUNT??????????? ;(YC --|__)
?BCF FLAGB,UP?????????? ;DEFAULT DOWN
?BTFSS RA,YD??????????? ;DOWN / UP ?
?GOTO BITDY
?BSF FLAGB,UP
?GOTO BITDY
BITY0
?BTFSS CSTAT,YC???????? ;(YC=0)
?GOTO BITDY???????????? ;(YC ALWAYS = 0)
?INCF YCOUNT??????????? ;(YC __|--)
?BCF FLAGB,UP?????????? ;DEFAULT DOWN
?BTFSC RA,YD??????????? ;DOWN / UP ?
?GOTO BITDY
?BSF FLAGB,UP
BITDY
?MOVF RA,W????????????? ;SAVE COOR. STATUS
?MOVWF CSTAT
?MOVLW 193D???????????? ;0.833 MS DELAY
?MOVWF TIMER1
BITD0
?NOP
?DECFSZ TIMER1
?GOTO BITD0
?RETLW 0
;
;=================================================
;
;************************************************
;*????? SUBROUTINE TO SEND A BYTE?????????????? *
;*????? AS RS232C FORMAT 8,N,1????????????????? *
;************************************************
;
BYTE
?CLRF COUNT???????????? ;RESET 8 BIT COUNT
?BTFSS FLAGA,TR???????? ;ANY TRIGGER
?GOTO BYTE0
?BCF RB,RD????????????? ;LOW RD FOR START BIT
BYTE0
?CALL BIT
BYTE1
?BTFSS FLAGA,TR???????? ;ANY TRIGGER ?
?GOTO BYTE3
?RRF DATA_AREA?????????????? ;SHIFT DATA TO CARRY
?BTFSS STATUS,CA??????? ;0 / 1 ?
?GOTO BYTE2
?BSF RB,RD????????????? ;SEND A 1
?GOTO BYTE3
BYTE2
?BCF RB,RD????????????? ;SEND A 0
BYTE3
?CALL BIT
?INCF COUNT
?BTFSS COUNT,3????????? ;COUNT = 8 ?
?GOTO BYTE1
?BTFSS FLAGA,TR???????? ;ANY TRIGGER ?
?GOTO BYTE4
?BCF RB,RD????????????? ;SEND SENT BIT
?CALL BIT
?BSF RB,RD
?CALL BIT
?GOTO BYTE5
BYTE4
?CALL BIT
?CALL BIT
BYTE5
?RETLW 0
;
;============================================
;?????? RESET ENTRY
;============================================
;
INIT
?MOVLW B'11000001'????? ;DISABLE WATCH DOG
?OPTION
?MOVLW B'00001111'????? ;INIT RB0~3 BE INPUTS
?TRIS RB??????????????? ;RB4~7 BE OUTPUTS
?MOVLW B'11111111'????? ;INIT RA0~3 BE INPUTS
?TRIS RA
?BSF RB,RD????????????? ;HIGH RD PIN
?COMF RB,W????????????? ;GET INIT BUTTON INPUTS
?ANDLW B'00000101'
?IORLW B'10000000'
?MOVWF BSTAT
?MOVWF DATA0???????????
?MOVF RA,W
?MOVWF CSTAT
?CLRF FLAGA???????????? ;CLEAR TR FLAG
?CLRF XCOUNT??????????? ;RESET XCOUNT & YCOUNT
?CLRF YCOUNT
SCAN
?CLRF DATA1???????????? ;UPDATE X,Y MOVEMENT DATA
?CLRF DATA2
?CLRF DATA3
?CLRF DATA4
?MOVF XCOUNT,W????????? ;XCOUNT = 0 ?
?BTFSS STATUS,ZERO_AREA
?GOTO WRITX
SCANA
?MOVF YCOUNT,W????????? ;YCOUNT = 0 ?
?BTFSS STATUS,ZERO_AREA
?GOTO WRITY
SCANB
?COMF RB,W????????????? ;BUTTON STATUS CHANGE ?
?ANDLW B'00000101'
?IORLW B'10000000'
?SUBWF BSTAT
?BTFSC STATUS,ZERO_AREA????? ;IF CHANGE THEN TRIGGER
?GOTO SCANC???????????? ;(NO CHANGE)
?BSF FLAGA,TR?????????? ;(CHANGE) SET TRIGGER FLAG
?COMF RB,W????????????? ;FORMAT BUTTON STATUS DATA
?ANDLW B'00000101'
?IORLW B'10000000'
?MOVWF DATA0
SCANC
?COMF RB,W
?ANDLW B'00000101'
?IORLW B'10000000'
?MOVWF BSTAT
?MOVF DATA0,W?????????? ;SEND DATA0,1,2,3,4 TO HOST
?MOVWF DATA_AREA
?CALL BYTE
?MOVF DATA1,W
?MOVWF DATA_AREA
?CALL BYTE
?MOVF DATA2,W
?MOVWF DATA_AREA
?CALL BYTE
?MOVF DATA3,W
?MOVWF DATA_AREA
?CALL BYTE
?MOVF DATA4,W
?MOVWF DATA_AREA
?CALL BYTE
?BCF FLAGA,TR?????????? ;CLEAR TRIGGER FLAG
?GOTO SCAN
;
WRITX
?BSF FLAGA,TR?????????? ;SET TRIGGER FLAG
?MOVLW 40H????????????? ;IF XCOUNT > 64 THEN XCOUNT <-64
?SUBWF XCOUNT,W
?BTFSC STATUS,CA
?GOTO WRITR
WRITS
?BTFSS FLAGB,RI???????? ;LEFT / RIGHT ?
?GOTO WRITL
?COMF XCOUNT??????????? ;(RIGHT) NEG XCOUNT
?INCF XCOUNT,W
WRITA
?MOVWF DATA1
?MOVWF DATA3
?CLRF XCOUNT??????????? ;RESET XCOUNT
?GOTO SCANA
;
WRITR
?MOVLW 40H????????????? ;XCOUNT <- 64
?MOVWF XCOUNT
?GOTO WRITS
;
WRITL
?MOVF XCOUNT,W????????? ;(LEFT)
?GOTO WRITA
;
WRITY
?BSF FLAGA,TR?????????? ;SET TRIGGER FLAG
?MOVLW 40H????????????? ;IF YCOUNT > 64 THEN YCOUNT <-64
?SUBWF YCOUNT,W
?BTFSC STATUS,CA
?GOTO WRITV
WRITW
?BTFSS FLAGB,UP???????? ;DOWN / UP ?
?GOTO WRITD
?COMF YCOUNT??????????? ;(UP) NEG YCOUNT
?INCF YCOUNT,W
WRITB
?MOVWF DATA2
?MOVWF DATA4
?CLRF YCOUNT??????????? ;RESET YCOUNT
?GOTO SCANB
;
WRITV
?MOVLW 40H????????????? ;YCOUNT <- 64
?MOVWF YCOUNT
?GOTO WRITW
;
WRITD
?MOVF YCOUNT,W????????? ;(DOWN)
?GOTO WRITB
;
;===========================================
;?????? RESET ENTRY
;===========================================
;
?ORG 777
?GOTO INIT????????????? ;JUMP TO PROGRAM STARTING
;
?END
;
;********************************************