;      TestRMB by Ed Mackey

;      Returns WARN if RMB is pressed.

       moveq   #0,d0
       move    $DFF016,d1
       btst    #10,d1
       bne     nope
       moveq   #5,d0
nope:  rts

       END