home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / auucp+-1.02 / fuucp_plus_src.lzh / getty / icept.asm < prev    next >
Encoding:
Assembly Source File  |  1990-11-21  |  684 b   |  36 lines
  1.  
  2.         ;   ICEPT.ASM
  3.         ;
  4.         ;  $Header: Beta:src/uucp/src/getty/RCS/icept.asm,v 1.1 90/02/02 12:13:28 dillon Exp Locker: dillon $
  5.         ;
  6.         ;   Intercept OpenDevice() for serial.device and force
  7.         ;   SERF_SHARED.
  8.         ;
  9.         ;   A1 holds IOExtSer request ptr.  D0-D1/A0-A1 are NOT
  10.         ;   scratch.
  11.         ;
  12.         ;   You CANNOT use A4 relative addressing since this routine
  13.         ;   is called from a different context.
  14.  
  15.         include "exec/types.i"
  16.         include "devices/serial.i"
  17.  
  18.         section text,CODE
  19.  
  20.         xdef    _AsmIntercept
  21.         xdef    _AsmRoute
  22.  
  23. RouteVector    dc.l    0
  24.  
  25. _AsmRoute:    lea    RouteVector(pc),A0
  26.         move.l    4(sp),(A0)
  27.         rts
  28.  
  29. _AsmIntercept:
  30.         or.b    #SERF_SHARED,IO_SERFLAGS(A1)
  31.         move.l    RouteVector(pc),-(sp)
  32.         rts
  33.  
  34.         END
  35.  
  36.