dopus/DOpusRT/DOpusRTAsm.asm

   1 ; Directory Opus 4
   2 ; Original GPL release version 4.12
   3 ; Copyright 1993-2000 Jonathan Potter
   4 ;
   5 ; This program is free software; you can redistribute it and/or
   6 ; modify it under the terms of the GNU General Public License
   7 ; as published by the Free Software Foundation; either version 2
   8 ; of the License, or (at your option) any later version.
   9 ;
  10 ; This program is distributed in the hope that it will be useful,
  11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 ; GNU General Public License for more details.
  14 ;
  15 ; You should have received a copy of the GNU General Public License
  16 ; along with this program; if not, write to the Free Software
  17 ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18 ;
  19 ; All users of Directory Opus 4 (including versions distributed
  20 ; under the GPL) are entitled to upgrade to the latest version of
  21 ; Directory Opus version 5 at a reduced price. Please see
  22 ; http://www.gpsoft.com.au for more information.
  23 ;
  24 ; The release of Directory Opus 4 under the GPL in NO WAY affects
  25 ; the existing commercial status of Directory Opus 5.
  26
  27 _LVOSignal equ -$144
  28
  29         XDEF @InputHandler
  30         XDEF _InputHandler
  31
  32         section code
  33
  34 _InputHandler:
  35 @InputHandler:
  36         cmp.b #2,4(a0)
  37         bne.s skiphandler
  38         cmp.w #$68,6(a0)
  39         bne.s notdown
  40         moveq.l #1,d0
  41         bra.s sendsignal
  42 notdown:
  43         cmp.w #$e8,6(a0)
  44         bne.s skiphandler
  45         moveq.l #2,d0
  46 sendsignal:
  47         move.l 4,a6
  48         move.l a0,-(sp)
  49         jsr _LVOSignal(a6)
  50         move.l (sp)+,a0
  51 skiphandler:
  52         move.l a0,d0
  53         rts
  54
  55         end