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