Working on loadable mouse drivers

git-svn-id: svn://svn.cc65.org/cc65/trunk@2953 b7a2c559-68d2-44c3-8de9-860c34a00d81
2004-03-21 22:12:06 +00:00
parent 3266110927
commit 3bfbaee6a6
10 changed files with 595 additions and 38 deletions
--- a/libsrc/mouse/mouse_unload.s
+++ b/libsrc/mouse/mouse_unload.s
@@ -0,0 +1,35 @@
+;
+; Ullrich von Bassewitz, 2004-03-21
+;
+; unsigned char __fastcall__ mouse_unload (void);
+; /* Uninstall, then unload the currently loaded driver. */
+
+
+        .import         mouse_clear_ptr
+
+        .include        "mouse-kernel.inc"
+        .include        "modload.inc"
+
+
+_mouse_unload:
+      	lda	_mouse_drv
+	ora	_mouse_drv+1
+       	beq    	no_driver		; No driver
+
+	lda	_mouse_drv
+	pha
+	lda	_mouse_drv+1
+	pha	      			; Save pointer to driver
+
+       	jsr    	_mouse_uninstall        ; Uninstall the driver
+
+	pla
+	tax
+	pla				; Get pointer to driver
+        jmp	_mod_free               ; Free the driver
+
+no_driver:
+       	tax				; X = 0
+	lda	#<MOUSE_ERR_NO_DRIVER
+	rts
+