6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-25 13:29:41 +00:00
Code Issues Projects Releases Wiki Activity

joy_unload didn't return a valid error code.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3755 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2006-06-04 10:33:51 +00:00
parent 0b17f91797
commit 2e0b65887c
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
libsrc/joystick/joy_unload.s
View File

@ -5,31 +5,34 @@
; /* Unload the currently loaded driver. */
.import joy_clear_ptr
.include "joy-kernel.inc"
.include "joy-error.inc"
.include "modload.inc"
.import joy_clear_ptr
.import return0
_joy_unload:
lda _joy_drv
pha ; Save pointer to driver
ora _joy_drv+1
beq no_driver ; No driver
lda _joy_drv
pha
lda _joy_drv+1
pha ; Save pointer to driver
pha
jsr _joy_uninstall ; Uninstall the driver
pla
tax
pla ; Get pointer to driver
jmp _mod_free ; Free the driver
jsr _mod_free ; Free the driver
jmp return0 ; Return JOY_ERR_OK
no_driver:
tax ; X = 0
pla ; Remove pushed junk
lda #JOY_ERR_NO_DRIVER
rts