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