mirror of
https://github.com/cc65/cc65.git
synced 2024-11-02 18:06:48 +00:00
2c975d3642
Up to now static drivers were created via co65 from dynamic drivers. However there was an issue with that approach: The dynamic drivers are "o65 simple files" which obligates that they start with the 'code' segment. However dynamic drivers need to start with the module header - which is written to. For dynamic drivers this isn't more than a conceptual issue because they are always contain a 'data' segment and may therefore only be loaded into writable memory. However when dynamic drivers are converted to static drivers using co65 then that issue becomes a real problem as then the 'code' segment may end up in non-writable memory - and thus writing to the module header fails. Instead of changing the way dynamic drivers work I opted to rather make static driver creation totally independent from dynamic drivers. This allows to place the module header in the 'data' segment (see 'module.mac').
442 lines
12 KiB
ArmAsm
442 lines
12 KiB
ArmAsm
;
|
|
; Driver for the AppleMouse II Card.
|
|
;
|
|
; Oliver Schmidt, 03.09.2005
|
|
;
|
|
|
|
.include "zeropage.inc"
|
|
.include "mouse-kernel.inc"
|
|
.include "apple2.inc"
|
|
|
|
.macpack module
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
SETMOUSE = $12 ; Sets mouse mode
|
|
SERVEMOUSE = $13 ; Services mouse interrupt
|
|
READMOUSE = $14 ; Reads mouse position
|
|
CLEARMOUSE = $15 ; Clears mouse position to 0 (for delta mode)
|
|
POSMOUSE = $16 ; Sets mouse position to a user-defined pos
|
|
CLAMPMOUSE = $17 ; Sets mouse bounds in a window
|
|
HOMEMOUSE = $18 ; Sets mouse to upper-left corner of clamp win
|
|
INITMOUSE = $19 ; Resets mouse clamps to default values and
|
|
; sets mouse position to 0,0
|
|
|
|
pos1_lo := $0478
|
|
pos1_hi := $0578
|
|
pos2_lo := $04F8
|
|
pos2_hi := $05F8
|
|
status := $0778
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
.ifdef __APPLE2ENH__
|
|
module_header _a2e_stdmou_mou
|
|
.else
|
|
module_header _a2_stdmou_mou
|
|
.endif
|
|
|
|
; Driver signature
|
|
.byte $6D, $6F, $75 ; "mou"
|
|
.byte MOUSE_API_VERSION ; Mouse driver API version number
|
|
|
|
; Library reference
|
|
.addr $0000
|
|
|
|
; Jump table
|
|
.addr INSTALL
|
|
.addr UNINSTALL
|
|
.addr HIDE
|
|
.addr SHOW
|
|
.addr SETBOX
|
|
.addr GETBOX
|
|
.addr MOVE
|
|
.addr BUTTONS
|
|
.addr POS
|
|
.addr INFO
|
|
.addr IOCTL
|
|
.addr IRQ
|
|
|
|
; Mouse driver flags
|
|
.byte MOUSE_FLAG_EARLY_IRQ
|
|
|
|
; Callback table, set by the kernel before INSTALL is called
|
|
CHIDE: jmp $0000 ; Hide the cursor
|
|
CSHOW: jmp $0000 ; Show the cursor
|
|
CPREP: jmp $0000 ; Prepare to move the cursor
|
|
CDRAW: jmp $0000 ; Draw the cursor
|
|
CMOVEX: jmp $0000 ; Move the cursor to X coord
|
|
CMOVEY: jmp $0000 ; Move the cursor to Y coord
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
.bss
|
|
|
|
box: .tag MOUSE_BOX
|
|
info: .tag MOUSE_INFO
|
|
slot: .res 1
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
.rodata
|
|
|
|
offsets:.byte $05 ; Pascal 1.0 ID byte
|
|
.byte $07 ; Pascal 1.0 ID byte
|
|
.byte $0B ; Pascal 1.1 generic signature byte
|
|
.byte $0C ; Device signature byte
|
|
|
|
values: .byte $38 ; Fixed
|
|
.byte $18 ; Fixed
|
|
.byte $01 ; Fixed
|
|
.byte $20 ; X-Y pointing device type 0
|
|
|
|
size = * - values
|
|
|
|
inibox: .word 0 ; MinX
|
|
.word 0 ; MinY
|
|
.word 279 ; MaxX
|
|
.word 191 ; MaxY
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
.data
|
|
|
|
firmware:
|
|
; Lookup and patch firmware address lobyte
|
|
lookup: ldy $FF00,x ; Patched at runtime
|
|
sty jump+1 ; Modify code below
|
|
|
|
; Apple II Mouse TechNote #1, Interrupt Environment with the Mouse:
|
|
; "Enter all mouse routines (...) with the X register set to $Cn
|
|
; and Y register set to $n0, where n = the slot number."
|
|
xparam: ldx #$FF ; Patched at runtime
|
|
yparam: ldy #$FF ; Patched at runtime
|
|
|
|
jump: jmp $FFFF ; Patched at runtime
|
|
|
|
; ------------------------------------------------------------------------
|
|
|
|
.code
|
|
|
|
; INSTALL: Is called after the driver is loaded into memory. If possible,
|
|
; check if the hardware is present. Must return an MOUSE_ERR_xx code in A/X.
|
|
INSTALL:
|
|
lda #<$C000
|
|
sta ptr1
|
|
lda #>$C000
|
|
sta ptr1+1
|
|
|
|
; Search for AppleMouse II firmware in slots 1 - 7
|
|
next: inc ptr1+1
|
|
lda ptr1+1
|
|
cmp #>$C800
|
|
bcc :+
|
|
|
|
; Mouse firmware not found
|
|
lda #<MOUSE_ERR_NO_DEVICE
|
|
ldx #>MOUSE_ERR_NO_DEVICE
|
|
rts
|
|
|
|
; Check Pascal 1.1 Firmware Protocol ID bytes
|
|
: ldx #size - 1
|
|
: ldy offsets,x
|
|
lda values,x
|
|
cmp (ptr1),y
|
|
bne next
|
|
dex
|
|
bpl :-
|
|
|
|
; Get and patch firmware address hibyte
|
|
lda ptr1+1
|
|
sta lookup+2
|
|
sta xparam+1
|
|
sta jump+2
|
|
|
|
; Disable interrupts now because setting the slot number makes
|
|
; the IRQ handler (maybe called due to some non-mouse IRQ) try
|
|
; calling the firmware which isn't correctly set up yet
|
|
sei
|
|
|
|
; Convert to and save slot number
|
|
and #$0F
|
|
sta slot
|
|
|
|
; Convert to and patch I/O register index
|
|
asl
|
|
asl
|
|
asl
|
|
asl
|
|
sta yparam+1
|
|
|
|
; The AppleMouse II Card needs the ROM switched in
|
|
; to be able to detect an Apple //e and use RDVBL
|
|
bit $C082
|
|
|
|
; Reset mouse hardware
|
|
ldx #INITMOUSE
|
|
jsr firmware
|
|
|
|
; Switch in LC bank 2 for R/O
|
|
bit $C080
|
|
|
|
; Turn mouse on
|
|
lda #%00000001
|
|
ldx #SETMOUSE
|
|
jsr firmware
|
|
|
|
; Set initial mouse clamps
|
|
lda #<inibox
|
|
ldx #>inibox
|
|
jsr SETBOX
|
|
|
|
; Set initial mouse position
|
|
ldx slot
|
|
lda #<(279 / 2)
|
|
sta pos1_lo,x
|
|
lda #>(279 / 2)
|
|
sta pos1_hi,x
|
|
lda #<(191 / 2)
|
|
sta pos2_lo,x
|
|
lda #>(191 / 2)
|
|
sta pos2_hi,x
|
|
ldx #POSMOUSE
|
|
jsr firmware
|
|
|
|
; Update cursor
|
|
jsr update
|
|
|
|
; Turn VBL interrupt on
|
|
lda #%00001001
|
|
ldx #SETMOUSE
|
|
common: jsr firmware
|
|
|
|
; Enable interrupts and return success
|
|
cli
|
|
lda #<MOUSE_ERR_OK
|
|
ldx #>MOUSE_ERR_OK
|
|
rts
|
|
|
|
; UNINSTALL: Is called before the driver is removed from memory.
|
|
; No return code required (the driver is removed from memory on return).
|
|
UNINSTALL:
|
|
; Hide cursor
|
|
sei
|
|
jsr CHIDE
|
|
|
|
; Turn mouse off
|
|
lda #%00000000
|
|
ldx #SETMOUSE
|
|
bne common ; Branch always
|
|
|
|
; SETBOX: Set the mouse bounding box. The parameters are passed as they come
|
|
; from the C program, that is, a pointer to a mouse_box struct in A/X.
|
|
; No checks are done if the mouse is currently inside the box, this is the job
|
|
; of the caller. It is not necessary to validate the parameters, trust the
|
|
; caller and save some code here. No return code required.
|
|
SETBOX:
|
|
sta ptr1
|
|
stx ptr1+1
|
|
|
|
; Set x clamps
|
|
ldx #$00
|
|
ldy #MOUSE_BOX::MINX
|
|
jsr :+
|
|
|
|
; Set y clamps
|
|
ldx #$01
|
|
ldy #MOUSE_BOX::MINY
|
|
|
|
; Apple II Mouse TechNote #1, Interrupt Environment with the Mouse:
|
|
; "Disable interrupts before placing position information in the
|
|
; screen holes."
|
|
: sei
|
|
|
|
; Set low clamp
|
|
lda (ptr1),y
|
|
sta box,y
|
|
sta pos1_lo
|
|
iny
|
|
lda (ptr1),y
|
|
sta box,y
|
|
sta pos1_hi
|
|
|
|
; Skip one word
|
|
iny
|
|
iny
|
|
|
|
; Set high clamp
|
|
iny
|
|
lda (ptr1),y
|
|
sta box,y
|
|
sta pos2_lo
|
|
iny
|
|
lda (ptr1),y
|
|
sta box,y
|
|
sta pos2_hi
|
|
|
|
txa
|
|
ldx #CLAMPMOUSE
|
|
bne common ; Branch always
|
|
|
|
; GETBOX: Return the mouse bounding box. The parameters are passed as they
|
|
; come from the C program, that is, a pointer to a mouse_box struct in A/X.
|
|
GETBOX:
|
|
sta ptr1
|
|
stx ptr1+1
|
|
|
|
ldy #.sizeof(MOUSE_BOX)-1
|
|
: lda box,y
|
|
sta (ptr1),y
|
|
dey
|
|
bpl :-
|
|
rts
|
|
|
|
; MOVE: Move the mouse to a new position. The position is passed as it comes
|
|
; from the C program, that is: x on the stack and y in A/X. The C wrapper will
|
|
; remove the parameter from the stack on return.
|
|
; No checks are done if the new position is valid (within the bounding box or
|
|
; the screen). No return code required.
|
|
MOVE:
|
|
ldy slot
|
|
sei
|
|
|
|
; Set y
|
|
sta pos2_lo,y
|
|
txa
|
|
sta pos2_hi,y
|
|
|
|
tya
|
|
tax
|
|
ldy #$00 ; Start at top of stack
|
|
|
|
; Set x
|
|
lda (sp),y
|
|
iny
|
|
sta pos1_lo,x
|
|
lda (sp),y
|
|
sta pos1_hi,x
|
|
|
|
; Update cursor
|
|
jsr update
|
|
|
|
ldx #POSMOUSE
|
|
bne common ; Branch always
|
|
|
|
; HIDE: Is called to hide the mouse cursor. The mouse kernel manages a
|
|
; counter for calls to show/hide, and the driver entry point is only called
|
|
; if the mouse is currently visible and should get hidden. For most drivers,
|
|
; no special action is required besides hiding the mouse cursor.
|
|
; No return code required.
|
|
HIDE:
|
|
sei
|
|
jsr CHIDE
|
|
cli
|
|
rts
|
|
|
|
; SHOW: Is called to show the mouse cursor. The mouse kernel manages a
|
|
; counter for calls to show/hide, and the driver entry point is only called
|
|
; if the mouse is currently hidden and should become visible. For most drivers,
|
|
; no special action is required besides enabling the mouse cursor.
|
|
; No return code required.
|
|
SHOW:
|
|
sei
|
|
jsr CSHOW
|
|
cli
|
|
rts
|
|
|
|
; BUTTONS: Return the button mask in A/X.
|
|
BUTTONS:
|
|
lda info + MOUSE_INFO::BUTTONS
|
|
ldx #$00
|
|
rts
|
|
|
|
; POS: Return the mouse position in the MOUSE_POS struct pointed to by ptr1.
|
|
; No return code required.
|
|
POS:
|
|
ldy #.sizeof(MOUSE_POS)-1
|
|
bne copy ; Branch always
|
|
|
|
; INFO: Returns mouse position and current button mask in the MOUSE_INFO
|
|
; struct pointed to by ptr1. No return code required.
|
|
INFO:
|
|
ldy #.sizeof(MOUSE_INFO)-1
|
|
copy: sei
|
|
: lda info,y
|
|
sta (ptr1),y
|
|
dey
|
|
bpl :-
|
|
cli
|
|
rts
|
|
|
|
; IOCTL: Driver defined entry point. The wrapper will pass a pointer to ioctl
|
|
; specific data in ptr1, and the ioctl code in A.
|
|
; Must return an MOUSE_ERR_xx code in A/X.
|
|
IOCTL:
|
|
lda #<MOUSE_ERR_INV_IOCTL
|
|
ldx #>MOUSE_ERR_INV_IOCTL
|
|
rts
|
|
|
|
; IRQ: Called from the builtin runtime IRQ handler as a subroutine. All
|
|
; registers are already saved, no parameters are passed, but the carry flag
|
|
; is clear on entry. The routine must return with carry set if the interrupt
|
|
; was handled, otherwise with carry clear.
|
|
IRQ:
|
|
; Check for installed mouse
|
|
lda slot
|
|
beq done
|
|
|
|
; Check for mouse interrupt
|
|
ldx #SERVEMOUSE
|
|
jsr firmware
|
|
bcc :+
|
|
clc ; Interrupt not handled
|
|
done: rts
|
|
|
|
: ldx #READMOUSE
|
|
jsr firmware
|
|
|
|
; Get status
|
|
ldy slot
|
|
lda status,y
|
|
tax ; Save status
|
|
|
|
; Extract button down values
|
|
asl ; C = Button 0 is currently down
|
|
and #%00100000 ; !Z = Button 1 is currently down
|
|
|
|
; Set button mask
|
|
beq :+
|
|
lda #MOUSE_BTN_RIGHT
|
|
: bcc :+
|
|
ora #MOUSE_BTN_LEFT
|
|
: sta info + MOUSE_INFO::BUTTONS
|
|
|
|
; Check for mouse movement
|
|
txa ; Restore status
|
|
and #%00100000 ; X or Y changed since last READMOUSE
|
|
beq :+
|
|
|
|
; Remove the cursor at the old position
|
|
update: jsr CPREP
|
|
|
|
; Get and set the new X position
|
|
ldy slot
|
|
lda pos1_lo,y
|
|
ldx pos1_hi,y
|
|
sta info + MOUSE_POS::XCOORD
|
|
stx info + MOUSE_POS::XCOORD+1
|
|
jsr CMOVEX
|
|
|
|
; Get and set the new Y position
|
|
ldy slot
|
|
lda pos2_lo,y
|
|
ldx pos2_hi,y
|
|
sta info + MOUSE_POS::YCOORD
|
|
stx info + MOUSE_POS::YCOORD+1
|
|
jsr CMOVEY
|
|
|
|
; Draw the cursor at the new position
|
|
: jsr CDRAW
|
|
sec ; Interrupt handled
|
|
rts
|