Joystick library, first version

git-svn-id: svn://svn.cc65.org/cc65/trunk@1796 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-12-20 20:59:11 +00:00
parent bb0d6a6e39
commit 4157bba161
7 changed files with 271 additions and 0 deletions
--- a/libsrc/joystick/joy_unload.s
+++ b/libsrc/joystick/joy_unload.s
@@ -0,0 +1,35 @@
+;
+; Ullrich von Bassewitz, 2002-11-29
+;
+; unsigned char __fastcall__ joy_unload (void);
+; /* Unload the currently loaded driver. */
+
+
+        .include        "joy-kernel.inc"
+        .include        "joy-error.inc"
+        .include        "modload.inc"
+
+_joy_unload:
+    	lda	_joy_drv
+	ora	_joy_drv+1
+       	beq    	no_driver		; No driver
+
+	jsr	_joy_deinstall		; Deinstall the driver
+
+        lda     _joy_drv
+        ldx     _joy_drv+1
+        jsr     _mod_free               ; Free the driver
+
+        lda     #0
+        sta     _joy_drv
+        sta     _joy_drv+1               ; Clear the driver pointer
+
+        tax
+        rts                             ; Return zero
+
+no_driver:
+	tax	    			; X = 0
+	lda	#JOY_ERR_NO_DRIVER
+	rts
+
+