home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / telecom / uucp_442 / src / lib / gethead.a < prev    next >
Text File  |  1990-08-02  |  320b  |  23 lines
  1.  
  2.         ;   GETHEAD.A
  3.         ;
  4.         ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  5.         ;
  6.  
  7.         section text,CODE
  8.  
  9.         xdef    _GetHead    ; GetHead(list:4(sp))
  10.         xdef    _GetSucc    ; GetSucc(node:4(sp))
  11. _GetSucc:
  12. _GetHead:    move.l    4(sp),A0
  13.         move.l    (A0),A0
  14.         tst.l    (A0)
  15.         beq    gh0
  16.         move.l    A0,D0
  17.         rts
  18. gh0        moveq.l #0,D0
  19.         rts
  20.  
  21.         END
  22.  
  23.