home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 387b.lha / dice_v2.02 / lib / extra / getpred.a < prev    next >
Encoding:
Text File  |  1990-05-30  |  195 b   |  18 lines
  1.  
  2.         section text,CODE
  3.  
  4.         xdef    _GetPred        ; node = GetPred(node:4(sp))
  5.  
  6. _GetPred:    move.l    4(sp),A0
  7.         move.l    4(A0),A0
  8.         tst.l    4(A0)
  9.         beq    gp0
  10.         move.l    A0,D0
  11.         rts
  12. gp0        moveq.l #0,D0
  13.         rts
  14.  
  15.         END
  16.  
  17.  
  18.