readjoy() is no longer available

git-svn-id: svn://svn.cc65.org/cc65/trunk@1849 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-12-26 15:59:49 +00:00
parent 9e2c7bc1df
commit 92d9a7cb40
2 changed files with 22 additions and 7 deletions
--- a/libsrc/c128/mouse.s
+++ b/libsrc/c128/mouse.s
@@ -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