;      TestLMB by Ed Mackey

;      Returns WARN if LMB is pressed.

       moveq   #0,d0
       move.b  $BFE001,d1
       btst    #6,d1
       bne     nope
       moveq   #5,d0
nope:  rts

       END