home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / DMZ.LZH / PRG5.2 < prev    next >
Encoding:
Text File  |  1987-12-17  |  1.1 KB  |  47 lines
  1.         YMIN=4
  2.         YMAX=196
  3.         XMIN=0
  4.         XMAX=319
  5.  
  6.         MOVE.W    $DFF00A,OLDMOUSE    ; Läser in startvärde
  7.  
  8. READMOUSE:    BTST    #6,$BFE001        ; Läs musknapp
  9.         BEQ.L    EXIT            ; Sluta om nedtryckt
  10.  
  11.         MOVE.W    $DFF00A,NEWMOUSE    ; Läs muskoordinater
  12.  
  13.         MOVE.B    NEWMOUSE,D0        ; Addera skillnaden
  14.         MOVE.B    OLDMOUSE,D1        ; mellan nytt och
  15.         SUB.B    D1,D0            ; gammalt Y-värde
  16.         EXT.W    D0            ; till YPOS.
  17.         ADD.W    D0,YPOS
  18.  
  19.         MOVE.B    NEWMOUSE+1,D0        ; Addera skillnaden
  20.         MOVE.B    OLDMOUSE+1,D1        ; mellan nytt och
  21.         SUB.B    D1,D0            ; gammalt X-värde
  22.         EXT.W    D0            ; till XPOS.
  23.         ADD.W    D0,XPOS
  24.  
  25.         MOVE.W    NEWMOUSE,OLDMOUSE    ; Nytt värde har
  26.                         ; blivit gammalt.
  27.         CMP.W    #YMIN,YPOS        ; Är YPOS mindre än
  28.         BGE.S    YMINOK            ; YMIN ?
  29.         MOVE.W    #YMIN,YPOS
  30. YMINOK:        CMP.W    #YMAX,YPOS        ; Är YPOS större än
  31.         BLE.S    YMAXOK            ; YMAX ?
  32.         MOVE.W    #YMAX,YPOS
  33. YMAXOK:        CMP.W    #XMIN,XPOS        ; Är XPOS mindre än
  34.         BGE.S    XMINOK            ; XMIN ?
  35.         MOVE.W    #XMIN,XPOS
  36. XMINOK:        CMP.W    #XMAX,XPOS        ; Är XPOS större än
  37.         BLE.S    XMAXOK            ; XMAX ?
  38.         MOVE.W    #XMAX,XPOS
  39. XMAXOK:        BRA.L    READMOUSE        ; Läs vidare
  40.  
  41. EXIT:        RTS
  42.  
  43. YPOS:        DC.W    YMIN
  44. XPOS:        DC.W    XMIN
  45. OLDMOUSE:    DC.W    0
  46. NEWMOUSE:    DC.W    0
  47.