home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d258 / suplib.lha / Suplib / src / getpred.asm < prev    next >
Encoding:
Assembly Source File  |  1989-10-18  |  332 b   |  24 lines
  1.  
  2.         section CODE
  3.  
  4.         xdef    _GetPred        ; node = GetPred(node:4(sp))
  5.            IFD LATTICE
  6.         xdef    @GetPred
  7.            ENDC
  8.  
  9. _GetPred:    move.l    4(sp),A0
  10.            IFD LATTICE
  11. @GetPred:                    ; Registerized parameters Lattice C 5.02
  12.            ENDC
  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.