6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-09-28 10:55:43 +00:00
Code Issues Projects Releases Wiki Activity

Turn off mouse polling interrupt if the mouse hasn't been moved for

Browse Source 
some time. Turn it back on when the mouse is moved again.
Since the polling interrupt runs at a rather high frequency (1kHz),
this saves many processor cycles when the mouse is inactive.
This commit is contained in:
Christian Groessler 2014-02-14 01:40:21 +01:00
parent e22fc15589
commit b477023783
1 changed files with 87 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
libsrc/atari/mou/atrst.s
View File

@ -11,6 +11,13 @@
; is being built.
;
;DEBUG = 1
DISABLE_TIMEOUT = 30 ; # of vertical blank interrupts after which, if
; no mouse motion occurred, the polling IRQ gets
; disabled.
; VBI frequency is 50Hz for PAL and 60Hz for NTSC
.include "zeropage.inc"
.include "mouse-kernel.inc"
.include "atari.inc"
@ -98,6 +105,10 @@ Buttons: .res 1 ; Button mask
XPosWrk: .res 2
YPosWrk: .res 2
irq_enabled: .res 1 ; flag indicating that the high frequency polling interrupt is enabled
old_porta_vbi: .res 1 ; previous PORTA value of the VBI interrupt (IRQ)
how_long: .res 1 ; counter for how many VBI interrupts the mouse hasn't been moved
.if .defined (AMIGA_MOUSE) .or .defined (ST_MOUSE)
dumx: .res 1
dumy: .res 1
@ -226,10 +237,17 @@ INSTALL:
sta AUDF1
sta STIMER
.if 0 ; the IRQ will now be dynamically enabled when the mouse is moved
lda POKMSK
ora #%00000001 ; timer 1 enable
sta POKMSK
sta IRQEN
sta irq_enabled
.endif
lda PORTA
and #$0f
sta old_porta_vbi
; Done, return zero (= MOUSE_ERR_OK)
@ -444,23 +462,60 @@ IOCTL: lda #<MOUSE_ERR_INV_IOCTL ; We don't support ioclts for now
; MUST return carry clear.
;
IRQ:
IRQ: lda PORTA ; mouse port contents
and #$0f ; check port 1 only
ldx irq_enabled
bne @L1
; Turn mouse polling IRQ back on in case it disabled itself due to CRITIC
; flag being set.
; IRQ is disabled, check for mouse motion and enable IRQ if mouse motion detected
cmp old_porta_vbi
beq @L3 ; no motion
; Turn mouse polling IRQ back on
lda POKMSK
ora #%00000001 ; timer 1 enable
sta POKMSK
sta IRQEN
sta irq_enabled
bne @L3
; not reached
; IRQ is enabled
@L1: cmp old_porta_vbi ; mouse motion since last VBI?
sta old_porta_vbi
beq @L2 ; no, increment timeout to disable IRQ
lda #0
sta how_long ; yes, reinitialize wait counter
beq @L3
; not reached
@L2: inc how_long ; no motion, increment wait counter
lda how_long
cmp #DISABLE_TIMEOUT ; timeout?
bcc @L3 ; no
lda #0 ; yes, turn off IRQ
sta how_long
; no mouse input -- turn IRQ off
sta irq_enabled
lda POKMSK
and #%11111110 ; timer 1 disable
sta IRQEN
sta POKMSK
; Check for a pressed button and place the result into Buttons
ldx #0
@L3: ldx #0
lda TRIG0 ; joystick #0 trigger
bne @L0 ; not pressed
bne @L4 ; not pressed
ldx #MOUSE_BTN_LEFT
@L0: stx Buttons
@L4: stx Buttons
jsr CPREP
@ -471,20 +526,19 @@ IRQ:
tax
cpy XMin
sbc XMin+1
bpl @L2
bpl @L5
ldy XMin
ldx XMin+1
jmp @L3
@L2: txa
jmp @L6
@L5: txa
cpy XMax
sbc XMax+1
bmi @L3
bmi @L6
ldy XMax
ldx XMax+1
@L3: sty XPos
@L6: sty XPos
stx XPos+1
tya
jsr CMOVEX
@ -495,25 +549,35 @@ IRQ:
tax
cpy YMin
sbc YMin+1
bpl @L4
bpl @L7
ldy YMin
ldx YMin+1
jmp @L5
@L4: txa
jmp @L8
@L7: txa
cpy YMax
sbc YMax+1
bmi @L5
bmi @L8
ldy YMax
ldx YMax+1
@L5: sty YPos
@L8: sty YPos
stx YPos+1
tya
jsr CMOVEY
jsr CDRAW
.ifdef DEBUG
; print on upper right corner 'E' or 'D', indicating the IRQ is enabled or disabled
ldy irq_enabled
beq @L9
lda #37 ; screen code for 'E'
.byte $2c ; bit opcode, eats next 2 bytes
@L9: lda #36 ; screen code for 'D'
ldy #39
sta (SAVMSC),y
.endif
clc
rts
@ -721,6 +785,11 @@ disable_me:
and #%11111110 ; timer 1 disable
sta IRQEN
sta POKMSK
lda #0
sta irq_enabled
lda PORTA
and #$0f
sta old_porta_vbi
.ifdef __ATARIXL__
rts
.else