the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Working on loadable mouse drivers

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2953 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2004-03-21 22:12:06 +00:00
parent 3266110927
commit 3bfbaee6a6
10 changed files with 595 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
libsrc/mouse/mouse-kernel.s
View File

@@ -4,8 +4,8 @@
; Common functions of the mouse driver API.
;
.import return0
.importzp ptr1
.import return0, popsreg, incsp2
.importzp sreg, ptr1, tmp1, tmp2
.condes mouse_irq, 2 ; Export as IRQ handler
.include "mouse-kernel.inc"
@@ -42,15 +42,14 @@ mouse_sig: .byte $6d, $6f, $75, MOUSE_API_VERSION ; "mou", version
;----------------------------------------------------------------------------
; unsigned char __fastcall__ mouse_install (void* driver);
; unsigned char __fastcall__ mouse_install (const struct mouse_callbacks* c,
; void* driver);
; /* Install an already loaded driver. Returns an error code. */
_mouse_install:
sta _mouse_drv
sta ptr1
stx _mouse_drv+1
stx _mouse_drv+1
stx ptr1+1
; Check the driver signature
@@ -72,34 +71,62 @@ _mouse_install:
ldy #MOUSE_HDR::JUMPTAB
ldx #0
@L1: inx ; Skip the JMP opcode
jsr copy ; Copy one byte
jsr copy ; Copy one byte
jsr copyjv ; Copy one byte
jsr copyjv ; Copy one byte
cpy #(MOUSE_HDR::JUMPTAB + .sizeof(MOUSE_HDR::JUMPTAB))
bne @L1
jsr mouse_install ; Call driver install routine
; Copy the callback vectors into the driver space
jsr popsreg
ldy #(MOUSE_HDR::CALLBACKS + .sizeof(MOUSE_HDR::CALLBACKS) - 1)
sty tmp2
ldy #.sizeof(MOUSE_CALLBACKS)-1
sty tmp1
@L2: jsr copycb
jsr copycb
dec tmp2 ; Skip opcode byte
ldy tmp1
bpl @L2
; Call driver install routine
jsr mouse_install
; Install the IRQ vector if the driver needs it. A/X contains the error code
; from mouse_install, so don't use it.
ldy mouse_irq+2 ; Check high byte of IRQ vector
beq @L2 ; Jump if vector invalid
ldy #$4C ; Jump opcode
beq @L3 ; Jump if vector invalid
ldy #$4C ; Jump opcode
sty mouse_irq ; Activate IRQ routine
@L2: rts
@L3: rts
; Driver signature invalid
; Driver signature invalid. One word is still on the stack
inv_drv:
lda #MOUSE_ERR_INV_DRIVER
ldx #0
rts
jmp incsp2
; Copy one byte from the jump vectors
copy: lda (ptr1),y
copyjv: lda (ptr1),y
sta mouse_vectors,x
iny
inx
rts
; Copy one byte from the callback vectors
copycb: lda (sreg),y
dec tmp1
ldy tmp2
sta (ptr1),y
dec tmp2
rts
;----------------------------------------------------------------------------
; unsigned char __fastcall__ mouse_uninstall (void);
; /* Uninstall the currently loaded driver. Returns an error code. */