Make joy_install, joy_uninstall user callable functions

git-svn-id: svn://svn.cc65.org/cc65/trunk@1950 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2003-02-10 22:11:12 +00:00
parent 0346cf692e
commit 3aee15b6ce
5 changed files with 41 additions and 38 deletions

View File

@@ -5,6 +5,8 @@
; /* Unload the currently loaded driver. */
.import joy_clear_ptr
.include "joy-kernel.inc"
.include "joy-error.inc"
.include "modload.inc"
@@ -14,22 +16,17 @@ _joy_unload:
ora _joy_drv+1
beq no_driver ; No driver
jsr _joy_deinstall ; Deinstall the driver
jsr joy_uninstall ; Uninstall 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
jmp joy_clear_ptr ; Clear driver pointer, return zero
no_driver:
tax ; X = 0
lda #JOY_ERR_NO_DRIVER
rts