Dino-Jump-II/MOUSE.X68 at main · SuriSureda/Dino-Jump-II · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
; =============================================================================
* Title      : MOUSE MANAGEMENT
* Written by : JORGE GONZALEZ, ANDREU SUREDA
* Date       :
* Description: MOUSE MANAGEMENT WITH INTERRUPTIONS
; =============================================================================

; -----------------------------------------------------------------------------
MSEINIT
; MOUSE INITIALIZATION
; INPUT    - NONE
; OUTPUT   - NONE
; MODIFIES - DISABLE INTERRUPTS
; -----------------------------------------------------------------------------
            ; DISABLE INTERRUPT
            SYSSETIP 7
            ;LINK ISR
            MOVE.L  #MSEISRQ,($60+SYSMOUIN*4)
            ; ENABLE HARDWARE
            MOVE.B  #60,D0
            MOVE.W  #SYSMOUIN<<8|SYSMOUBD,D1
            TRAP    #15
            MOVE.B  #0,(MOUSECLK)           ;INIT CLICK = 0
            ; ENABLE INTERRUPT
            SYSSETIP 0

            RTS

; -----------------------------------------------------------------------------
MSEISRQ
; MOUSE ISR
; INPUT    : NONE
; OUTPUT   : NONE
; MODIFIES : NONE
; -----------------------------------------------------------------------------
            MOVEM.L D0-D1,-(A7)

            MOVE.B  #61,D0
            CLR.B   D1
            TRAP    #15
            MOVE.L  D1,(MOUSEPNT)

            MOVE.B  #1,(MOUSECLK)           ;SET CLICK = 1

            MOVEM.L (A7)+,D0-D1

            RTE

*~Font name~Courier New~
*~Font size~11~
*~Tab type~0~
*~Tab size~4~