6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-26 05:29:30 +00:00
Code Issues Projects Releases Wiki Activity

readjoy() is no longer available

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1849 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2002-12-26 15:59:49 +00:00
parent 9e2c7bc1df
commit 92d9a7cb40
2 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libsrc/c128/mouse.s
View File

@ -12,7 +12,6 @@
.export _mouse_buttons, _mouse_info
.condes MouseIRQ, 2
.import _readjoy
.import popax, addysp1
.importzp ptr1, sp
@ -309,8 +308,15 @@ mddone: rts
.proc _mouse_buttons
lda #$00 ; Use port #0
jmp _readjoy ; Same as joystick
lda #$7F
sei
sta CIA1_PRA
lda CIA1_PRB ; Read joystick #0
cli
ldx #0
and #$1F
eor #$1F
rts
.endproc

17
libsrc/c64/mouse.s
View File

@ -11,7 +11,6 @@
.export _mouse_move, _mouse_pos
.export _mouse_buttons, _mouse_info
.import _readjoy
.import popax, addysp1
.importzp ptr1, sp
@ -288,9 +287,19 @@ _mouse_move:
; unsigned char mouse_buttons (void);
;
_mouse_buttons:
lda #$00 ; Use port #0
jmp _readjoy ; Same as joystick
.proc _mouse_buttons
lda #$7F
sei
sta CIA1_PRA
lda CIA1_PRB ; Read joystick #0
cli
ldx #0
and #$1F
eor #$1F
rts
.endproc
; --------------------------------------------------------------------------
;