home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d416 / wtf / source / handler.s next >
Text File  |  1990-12-15  |  1KB  |  62 lines
  1.             OPT        C+,L+,S-,Y+
  2.             
  3.             INCDIR    "DevpacAm:include/"
  4.             
  5.             INCLUDE    "devices/inputevent.i"
  6.             
  7.             INCLUDE    "exec.offsets"
  8.             INCLUDE    "intuition.offsets"
  9.             
  10. ExecBase    =        4
  11.             
  12.             XREF    _IntuitionBase
  13.             XREF    _LinkerDB
  14.             XREF    _Common
  15.             
  16.             XDEF    _KHandler
  17.             
  18.             
  19.             IDNT    handler.a
  20.             SECTION    handler,CODE
  21.             
  22.             
  23. _KHandler    MOVE.L    A0,D0
  24.             
  25. .Again        CMP.B    #IECLASS_RAWMOUSE,ie_Class(A0)
  26.             BNE.B    .NextEvent
  27.             
  28.             CMP.W    #IECODE_LBUTTON,ie_Code(A0)
  29.             BNE.B    .NextEvent
  30.             
  31.             MOVEM.L    D0/D2-D3/A0/A4/A6,-(SP)
  32.             LEA        _LinkerDB,A4
  33.             
  34.             MOVE.L    _IntuitionBase(A4),A6
  35.             MOVEM.L    LastClick+0(A4),D0-D1
  36.             MOVEM.L    ie_TimeStamp+0(A0),D2-D3
  37.             MOVEM.L    D2-D3,LastClick+0(A4)
  38.             JSR        _LVODoubleClick(A6)
  39.             TST.L    D0
  40.             BEQ.S    .NotDouble
  41.             
  42.             MOVE.L    ExecBase,A6
  43.             MOVE.L    _Common+0(A4),A1
  44.             MOVE.B    _Common+4(A4),D1
  45.             CLR.L    D0
  46.             BSET    D1,D0
  47.             JSR        _LVOSignal(A6)
  48.             
  49. .NotDouble    MOVEM.L    (SP)+,D0/D2-D3/A0/A4/A6
  50.             
  51. .NextEvent    MOVE.L    ie_NextEvent(A0),A0
  52.             MOVE.L    A0,D1
  53.             BNE.B    .Again
  54.             
  55.             RTS
  56.             
  57.             
  58.             SECTION    __MERGED,DATA
  59.             
  60. LastClick    DS.L    2
  61.  
  62.