6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-11-19 06:31:31 +00:00
Code Issues Projects Releases Wiki Activity

fix bug where the high byte of X and Y positions were destroyed of

Browse Source 
the user had lifted the pen
This commit is contained in:
Christian Groessler 2014-01-11 01:49:21 +01:00
parent ecd10e632a
commit 1fd7c2b318
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
libsrc/atari/mou/atrtt.s
View File

@ -89,6 +89,8 @@ visible: .res 1
.rodata
; (We use ".proc" because we want to define both a label and a scope.)
.proc DefVars
.word SCREEN_HEIGHT/2 ; YPos
.word SCREEN_WIDTH/2 ; XPos
@ -328,14 +330,12 @@ IRQ:
; Check for a pressed button and place the result into Buttons
ldx #0
stx XPos+1
stx YPos+1
stx Buttons
lda PORTA ; get other buttons
eor #255
tax
and #5 ; pen button and left button are mapped to left mouse button
and #5 ; pen button and left button are mapped to left mouse button
beq @L01
lda #MOUSE_BTN_LEFT
ora Buttons
@ -350,18 +350,22 @@ IRQ:
; If we read 228 for X or Y positions, we assume the user has lifted the pen
; and don't change the cursor position.
@L02: lda PADDL0
cmp #228
beq @Dont
lda PADDL1
cmp #228
bne @Do
@Dont: jmp @Done
@L02: lda PADDL0
cmp #228
beq @Dont
lda PADDL1
cmp #228
bne @Do
@Dont: jmp @Done
@Do: lda visible
@Do: lda visible
beq @L03
jsr CHIDE
@L03: ldx #0
stx XPos+1
stx YPos+1
; Get cursor position
; -------------------
; The touch pad is read thru the paddle potentiometers. The possible
@ -378,7 +382,7 @@ IRQ:
; X
@L03: ldx PADDL0 ; get X postion
ldx PADDL0 ; get X postion
dex ; decrement, since it's 1-based
stx XPos
txa