diff --git a/libsrc/geos/mousesprite/Makefile b/libsrc/geos/mousesprite/Makefile
index 842c3bf37..222099cb5 100644
--- a/libsrc/geos/mousesprite/Makefile
+++ b/libsrc/geos/mousesprite/Makefile
@@ -12,7 +12,7 @@ S_OBJS	= startmousemode.o clearmousemode.o mouseup.o mouseoff.o\
 	  drawsprite.o possprite.o enablsprite.o disablsprite.o\
 	  ismseinregion.o inittextprompt.o promptoff.o prompton.o\
 	  getnextchar.o\
-	  mouse.o readjoy.o
+	  mouse.o
 
 all: $(S_OBJS)
 
diff --git a/libsrc/geos/mousesprite/readjoy.s b/libsrc/geos/mousesprite/readjoy.s
deleted file mode 100644
index 85948739e..000000000
--- a/libsrc/geos/mousesprite/readjoy.s
+++ /dev/null
@@ -1,48 +0,0 @@
-;
-; Ullrich von Bassewitz, 23.09.1998
-;
-; unsigned readjoy (unsigned char joy);
-;
-
-     	.export		_readjoy
-
-	.include	"../inc/geossym.inc"
-
-.proc	_readjoy
-
-	php
-     	sei			; disable IRQ
-	lda	$01
-	pha
-	lda	#$35
-	sta	$01		; enable I/O
-
-	tax			; Joystick number into X
-	bne    	joy2
-
-; Read joystick 1
-
-joy1:	
-	lda	#$7F
-     	sta	cia1base
-     	lda	cia1base+1
-back:	tax
-	pla
-	sta	$01
-	plp
-	txa
-     	and	#$1F
-     	eor	#$1F
-	ldx	#0
-     	rts
-
-; Read joystick 2
-
-joy2:	lda	#$E0
-	ldy	#$FF
-	sta	cia1base+2
-	lda	cia1base+1
-	sty	cia1base+2
-	jmp	back
-
-.endproc