home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / duucp-1.17 / AU-117b4-src.lha / src / lib / gethead.a < prev    next >
Encoding:
Text File  |  1994-02-09  |  420 b   |  25 lines
  1.         ;   GETHEAD.A
  2.         ;
  3.         ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  4.         ;
  5.  
  6. ;Prototype  struct Node *GetHead (struct List *);
  7. ;Prototype  struct Node *GetSucc (struct Node *);
  8.  
  9.         section text,CODE
  10.  
  11.         xdef    _GetHead    ; GetHead(list:4(sp))
  12.         xdef    _GetSucc    ; GetSucc(node:4(sp))
  13. _GetSucc:
  14. _GetHead:    move.l    4(sp),A0
  15.         move.l    (A0),A0
  16.         tst.l    (A0)
  17.         beq    gh0
  18.         move.l    A0,D0
  19.         rts
  20. gh0        moveq.l #0,D0
  21.         rts
  22.  
  23.         END
  24.  
  25.