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