Parallax 28560 Manual page 16

DEBUG HOME, "x: ", SDEC5 x, " y: ", SDEC5 y, " quality: ", DEC3 q
RETURN
ELSEIF (dat & OFLOW) THEN
ovfl = 10
ENDIF
#ELSE
IF (dat & CHNG = 0) THEN
SEROUT 16, baud, ["x", SDEC x, " y", SDEC y, " q", DEC q, CR]
RETURN
ELSEIF (dat & OFLOW) THEN
SEROUT 16, baud, ["x", SDEC x, " y", SDEC y, " q999", CR]
ENDIF
#ENDIF
addr = DX
GOSUB ReadAddr
x = x + dat
IF (dat & NEG) THEN x = x + $ff00
addr = DY
GOSUB ReadAddr
y = y + dat
IF (dat & NEG) THEN y = y + $ff00
addr = QLTY
GOSUB ReadAddr
q = dat
#IF (USE_DEBUG) #THEN
DEBUG HOME, "x: ", SDEC5 x, " y: ", SDEC5 y, " quality: ", DEC3 q
IF (ovfl) THEN
ovfl = ovfl - 1
DEBUG " OVERFLOW"
ENDIF
DEBUG CLREOL
#ELSE
SEROUT 16, baud, ["x", SDEC x, " y", SDEC y, " q", DEC q, CR]
#ENDIF
RETURN
' DumpAll outputs the contents of all the sensor chip's registers.
DumpAll:
SEROUT 16, baud, [HOME]
FOR addr = 0 TO $7f
GOSUB ReadAddr
IF (addr & 15 = 0) THEN SEROUT 16, baud, [HEX2 addr, ": "]
SEROUT 16, baud, [HEX2 dat]
IF (addr & 15 = 15) THEN
SEROUT 16, baud, [CR]
ELSEIF (addr & 7 = 7) THEN
SEROUT 16, baud, ["
ELSE
SEROUT 16, baud, [" "]
ENDIF
NEXT
SEROUT 16, baud, [CR]
RETURN
' ReadAddr reads a sensor chip register.
' Inputs: addr = address ($00 - $7F) to read.
' Outputs: dat = contents of the addressed register.
ReadAddr:
#IF (NEG_CLK) #THEN
Copyright © Parallax Inc.
"]
Mouse Sensor Kit (#28560) v1.0 6/1/2010 Page 16 of 18