mirror of
https://github.com/cc65/cc65.git
synced 2026-04-25 22:18:27 +00:00
Rewrote the xxx_load routines for the drivers in assembler to save some
space. git-svn-id: svn://svn.cc65.org/cc65/trunk@3756 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
@@ -1 +0,0 @@
|
||||
joy_load.s
|
||||
|
||||
@@ -29,11 +29,12 @@ CFLAGS = -Osir -g -T -t $(SYS) --forget-inc-paths -I . -I ../../include
|
||||
#--------------------------------------------------------------------------
|
||||
# Object files
|
||||
|
||||
C_OBJS = joy_load.o
|
||||
C_OBJS =
|
||||
|
||||
S_OBJS = joy-kernel.o \
|
||||
joy_read.o \
|
||||
joy_count.o \
|
||||
joy_load.o \
|
||||
joy_unload.o
|
||||
|
||||
#--------------------------------------------------------------------------
|
||||
|
||||
@@ -1,99 +0,0 @@
|
||||
/*****************************************************************************/
|
||||
/* */
|
||||
/* joy_load.c */
|
||||
/* */
|
||||
/* Loader module for joystick drivers */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* (C) 2002-2006, Ullrich von Bassewitz */
|
||||
/* Römerstrasse 52 */
|
||||
/* D-70794 Filderstadt */
|
||||
/* EMail: uz@cc65.org */
|
||||
/* */
|
||||
/* */
|
||||
/* This software is provided 'as-is', without any expressed or implied */
|
||||
/* warranty. In no event will the authors be held liable for any damages */
|
||||
/* arising from the use of this software. */
|
||||
/* */
|
||||
/* Permission is granted to anyone to use this software for any purpose, */
|
||||
/* including commercial applications, and to alter it and redistribute it */
|
||||
/* freely, subject to the following restrictions: */
|
||||
/* */
|
||||
/* 1. The origin of this software must not be misrepresented; you must not */
|
||||
/* claim that you wrote the original software. If you use this software */
|
||||
/* in a product, an acknowledgment in the product documentation would be */
|
||||
/* appreciated but is not required. */
|
||||
/* 2. Altered source versions must be plainly marked as such, and must not */
|
||||
/* be misrepresented as being the original software. */
|
||||
/* 3. This notice may not be removed or altered from any source */
|
||||
/* distribution. */
|
||||
/* */
|
||||
/*****************************************************************************/
|
||||
|
||||
|
||||
|
||||
#include <unistd.h>
|
||||
#include <fcntl.h>
|
||||
#include <modload.h>
|
||||
#include <joystick.h>
|
||||
#include <joystick/joy-kernel.h>
|
||||
|
||||
|
||||
|
||||
/* Use static local variables, since the module is not reentrant anyway */
|
||||
#pragma staticlocals (on);
|
||||
|
||||
|
||||
|
||||
unsigned char __fastcall__ joy_load_driver (const char* name)
|
||||
/* Load a joystick driver and return an error code */
|
||||
{
|
||||
static struct mod_ctrl ctrl = {
|
||||
read /* Read from disk */
|
||||
};
|
||||
unsigned char Res;
|
||||
|
||||
/* Check if we do already have a driver loaded. If so, remove it. */
|
||||
if (joy_drv != 0) {
|
||||
joy_uninstall ();
|
||||
}
|
||||
|
||||
/* Now open the file */
|
||||
ctrl.callerdata = open (name, O_RDONLY);
|
||||
if (ctrl.callerdata >= 0) {
|
||||
|
||||
/* Load the module */
|
||||
Res = mod_load (&ctrl);
|
||||
|
||||
/* Close the input file */
|
||||
close (ctrl.callerdata);
|
||||
|
||||
/* Check the return code */
|
||||
if (Res == MLOAD_OK) {
|
||||
|
||||
/* Check the driver signature, install the driver */
|
||||
Res = joy_install (ctrl.module);
|
||||
|
||||
/* If the driver did not install correctly, remove it from
|
||||
* memory again.
|
||||
*/
|
||||
if (Res != JOY_ERR_OK) {
|
||||
/* Do not call mouse_uninstall here, since the driver is not
|
||||
* correctly installed.
|
||||
*/
|
||||
mod_free (joy_drv);
|
||||
joy_clear_ptr ();
|
||||
}
|
||||
|
||||
/* Return the error code */
|
||||
return Res;
|
||||
}
|
||||
}
|
||||
|
||||
/* Error loading the driver */
|
||||
return JOY_ERR_CANNOT_LOAD;
|
||||
}
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,121 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 2006-06-05
|
||||
;
|
||||
; unsigned char __fastcall__ joy_load_driver (const char* driver);
|
||||
; /* Load and install a joystick driver. Return an error code. */
|
||||
|
||||
|
||||
.include "joy-kernel.inc"
|
||||
.include "joy-error.inc"
|
||||
.include "modload.inc"
|
||||
.include "fcntl.inc"
|
||||
|
||||
.import pushax
|
||||
.import pusha0
|
||||
.import incsp2
|
||||
.import _open
|
||||
.import _read
|
||||
.import _close
|
||||
|
||||
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
; Variables
|
||||
|
||||
.data
|
||||
|
||||
ctrl: .addr _read
|
||||
.res 2 ; CALLERDATA
|
||||
.res 2 ; MODULE
|
||||
.res 2 ; MODULE_SIZE
|
||||
.res 2 ; MODULE_ID
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
; Code
|
||||
|
||||
.code
|
||||
|
||||
.proc _joy_load_driver
|
||||
|
||||
; Save name on the C stack. We will need it later as parameter passed to open()
|
||||
|
||||
jsr pushax
|
||||
|
||||
; Check if we do already have a driver loaded. If so, remove it.
|
||||
|
||||
lda _joy_drv
|
||||
ora _joy_drv+1
|
||||
beq @L1
|
||||
jsr _joy_uninstall
|
||||
|
||||
; Open the file. The name parameter is already on stack and will get removed
|
||||
; by open().
|
||||
; ctrl.callerdata = open (name, O_RDONLY);
|
||||
|
||||
@L1: lda #<O_RDONLY
|
||||
jsr pusha0
|
||||
ldy #4 ; Argument size
|
||||
jsr _open
|
||||
sta ctrl + MOD_CTRL::CALLERDATA
|
||||
stx ctrl + MOD_CTRL::CALLERDATA+1
|
||||
|
||||
; if (ctrl.callerdata >= 0) {
|
||||
|
||||
txa
|
||||
bmi @L3
|
||||
|
||||
; /* Load the module */
|
||||
; Res = mod_load (&ctrl);
|
||||
|
||||
lda #<ctrl
|
||||
ldx #>ctrl
|
||||
jsr _mod_load
|
||||
pha
|
||||
|
||||
; /* Close the input file */
|
||||
; close (ctrl.callerdata);
|
||||
|
||||
lda ctrl + MOD_CTRL::CALLERDATA
|
||||
ldx ctrl + MOD_CTRL::CALLERDATA+1
|
||||
jsr _close
|
||||
|
||||
; /* Check the return code */
|
||||
; if (Res == MLOAD_OK) {
|
||||
|
||||
pla
|
||||
bne @L3
|
||||
|
||||
; Check the driver signature, install the driver. c is already on stack and
|
||||
; will get removed by joy_install().
|
||||
; Res = joy_install (ctrl.module);
|
||||
|
||||
lda ctrl + MOD_CTRL::MODULE
|
||||
ldx ctrl + MOD_CTRL::MODULE+1
|
||||
jsr _joy_install
|
||||
|
||||
; If joy_install was successful, we're done
|
||||
|
||||
tax
|
||||
beq @L2
|
||||
|
||||
; The driver didn't install correctly. Remove it from memory and return the
|
||||
; error code.
|
||||
|
||||
pha ; Save the error code
|
||||
lda _joy_drv
|
||||
ldx _joy_drv+1
|
||||
jsr _mod_free ; Free the driver memory
|
||||
jsr _joy_clear_ptr ; Clear joy_drv
|
||||
pla ; Restore the error code
|
||||
ldx #0 ; We must return an int
|
||||
@L2: rts ; Done
|
||||
|
||||
; Open or mod_load failed. Return an error code.
|
||||
|
||||
@L3: lda #<JOY_ERR_CANNOT_LOAD
|
||||
ldx #>JOY_ERR_CANNOT_LOAD
|
||||
rts
|
||||
|
||||
.endproc
|
||||
|
||||
|
||||
Reference in New Issue
Block a user