Removed (pretty inconsistently used) tab chars from source code base.
This commit is contained in:
Oliver Schmidt
@@ -6,7 +6,7 @@
|
||||
|
||||
.import return0, popsreg, incsp2
|
||||
.importzp sreg, ptr1, tmp1, tmp2
|
||||
.interruptor mouse_irq ; Export as IRQ handler
|
||||
.interruptor mouse_irq ; Export as IRQ handler
|
||||
|
||||
.include "mouse-kernel.inc"
|
||||
|
||||
@@ -17,7 +17,7 @@
|
||||
|
||||
|
||||
.bss
|
||||
_mouse_drv: .res 2 ; Pointer to driver
|
||||
_mouse_drv: .res 2 ; Pointer to driver
|
||||
|
||||
_mouse_hidden: .res 1 ; Mouse visibility flag
|
||||
|
||||
@@ -29,13 +29,13 @@ mouse_uninstall:jmp return0
|
||||
mouse_hide: jmp return0
|
||||
mouse_show: jmp return0
|
||||
mouse_setbox: jmp return0
|
||||
mouse_getbox: jmp return0
|
||||
mouse_getbox: jmp return0
|
||||
mouse_move: jmp return0
|
||||
mouse_buttons: jmp return0
|
||||
mouse_pos: jmp return0
|
||||
mouse_info: jmp return0
|
||||
mouse_ioctl: jmp return0
|
||||
mouse_irq: .byte $60, $00, $00 ; RTS plus two dummy bytes
|
||||
mouse_irq: .byte $60, $00, $00 ; RTS plus two dummy bytes
|
||||
mouse_flags: .byte $00
|
||||
|
||||
; Driver header signature
|
||||
@@ -50,10 +50,10 @@ mouse_sig: .byte $6d, $6f, $75, MOUSE_API_VERSION ; "mou", version
|
||||
; /* Install an already loaded driver. Returns an error code. */
|
||||
|
||||
_mouse_install:
|
||||
sta _mouse_drv
|
||||
sta ptr1
|
||||
stx _mouse_drv+1
|
||||
stx ptr1+1
|
||||
sta _mouse_drv
|
||||
sta ptr1
|
||||
stx _mouse_drv+1
|
||||
stx ptr1+1
|
||||
|
||||
; Check the driver signature
|
||||
|
||||
@@ -104,7 +104,7 @@ _mouse_install:
|
||||
|
||||
bit mouse_flags ; Test MOUSE_FLAG_EARLY_IRQ
|
||||
bvc @L3 ; Jump if no interrupts at this time
|
||||
jsr install_irq ; Activate IRQ routine
|
||||
jsr install_irq ; Activate IRQ routine
|
||||
|
||||
; Call driver install routine and check for errors
|
||||
|
||||
@@ -119,16 +119,16 @@ _mouse_install:
|
||||
bit mouse_flags ; Test MOUSE_FLAG_LATE_IRQ
|
||||
bpl Exit ; Jump if vector not needed
|
||||
install_irq:
|
||||
ldy #$4C ; Jump opcode
|
||||
sty mouse_irq ; Activate IRQ routine
|
||||
ldy #$4C ; Jump opcode
|
||||
sty mouse_irq ; Activate IRQ routine
|
||||
Exit: rts
|
||||
|
||||
; Uninstall IRQ vector if install routine had errors. A/X may contain the
|
||||
; error code from mouse_install, so don't use it.
|
||||
|
||||
uninstall_irq:
|
||||
ldy #$60 ; RTS opcode
|
||||
sty mouse_irq ; Disable IRQ entry point
|
||||
ldy #$60 ; RTS opcode
|
||||
sty mouse_irq ; Disable IRQ entry point
|
||||
rts
|
||||
|
||||
; Driver signature invalid. One word is still on the stack
|
||||
@@ -166,7 +166,7 @@ _mouse_uninstall:
|
||||
|
||||
bit mouse_flags ; Test MOUSE_FLAG_LATE_IRQ
|
||||
bpl @L1 ; Don't disable interrupts now
|
||||
jsr uninstall_irq ; Disable driver interrupts
|
||||
jsr uninstall_irq ; Disable driver interrupts
|
||||
@L1: jsr mouse_uninstall ; Call driver routine
|
||||
|
||||
; We don't check the flag a second time here, since disabling IRQs twice,
|
||||
|
||||
@@ -12,10 +12,10 @@
|
||||
|
||||
.proc _mouse_hide
|
||||
|
||||
lda _mouse_hidden ; Get the flag
|
||||
bne @L1 ; Jump if already invisible
|
||||
jsr mouse_hide ; Call the driver
|
||||
@L1: inc _mouse_hidden ; Set the flag to invisible
|
||||
rts
|
||||
lda _mouse_hidden ; Get the flag
|
||||
bne @L1 ; Jump if already invisible
|
||||
jsr mouse_hide ; Call the driver
|
||||
@L1: inc _mouse_hidden ; Set the flag to invisible
|
||||
rts
|
||||
|
||||
.endproc
|
||||
|
||||
@@ -7,10 +7,10 @@
|
||||
; * NOTE: The function does *not* check if the mouse is currently inside the
|
||||
; * given margins. The proper way to use this function therefore is:
|
||||
; *
|
||||
; * - Hide the mouse
|
||||
; * - Set the bounding box
|
||||
; * - Place the mouse at the desired position
|
||||
; * - Show the mouse again.
|
||||
; * - Hide the mouse
|
||||
; * - Set the bounding box
|
||||
; * - Place the mouse at the desired position
|
||||
; * - Show the mouse again.
|
||||
; *
|
||||
; * NOTE2: When setting the box to something that is larger than the actual
|
||||
; * screen, the positioning of the mouse cursor can fail. If such margins
|
||||
|
||||
@@ -9,11 +9,11 @@
|
||||
|
||||
.proc _mouse_show
|
||||
|
||||
lda _mouse_hidden ; Mouse visible?
|
||||
beq @L1 ; Jump if yes
|
||||
dec _mouse_hidden ; Set the flag
|
||||
bne @L1 ; Jump if still invisible
|
||||
lda _mouse_hidden ; Mouse visible?
|
||||
beq @L1 ; Jump if yes
|
||||
dec _mouse_hidden ; Set the flag
|
||||
bne @L1 ; Jump if still invisible
|
||||
jmp mouse_show ; Call the driver
|
||||
@L1: rts
|
||||
@L1: rts
|
||||
|
||||
.endproc
|
||||
|
||||
@@ -13,23 +13,23 @@
|
||||
|
||||
|
||||
_mouse_unload:
|
||||
lda _mouse_drv
|
||||
lda _mouse_drv
|
||||
pha ; Save pointer to driver
|
||||
ora _mouse_drv+1
|
||||
beq no_driver ; No driver
|
||||
lda _mouse_drv+1
|
||||
pha
|
||||
ora _mouse_drv+1
|
||||
beq no_driver ; No driver
|
||||
lda _mouse_drv+1
|
||||
pha
|
||||
|
||||
jsr _mouse_uninstall ; Uninstall the driver
|
||||
jsr _mouse_uninstall ; Uninstall the driver
|
||||
|
||||
pla
|
||||
tax
|
||||
pla ; Get pointer to driver
|
||||
pla
|
||||
tax
|
||||
pla ; Get pointer to driver
|
||||
jsr _mod_free ; Free the driver
|
||||
jmp return0 ; Return MOUSE_ERR_OK
|
||||
|
||||
no_driver:
|
||||
tax ; X = 0
|
||||
tax ; X = 0
|
||||
pla ; Remove pushed junk
|
||||
lda #<MOUSE_ERR_NO_DRIVER
|
||||
rts
|
||||
lda #<MOUSE_ERR_NO_DRIVER
|
||||
rts
|
||||
|
||||
Reference in New Issue
Block a user