home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_c / suplib.lzh / SUPLIB / SRC / GETHEAD.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  390 b   |  26 lines
  1.  
  2.         section CODE
  3.  
  4.         xdef    _GetHead    ; GetHead(list:4(sp))
  5.         xdef    _GetSucc    ; GetSucc(node:4(sp))
  6.            IFD LATTICE
  7.         xdef    @GetHead    ; Registerized Parameters (Lattice C)
  8.         xdef    @GetSucc
  9.            ENDC
  10. _GetSucc:
  11. _GetHead:    move.l    4(sp),A0
  12.            IFD LATTICE
  13. @GetSucc:
  14. @GetHead:
  15.            ENDC
  16.         move.l    (A0),A0
  17.         tst.l    (A0)
  18.         beq    .gh0
  19.         move.l    A0,D0
  20.         rts
  21. .gh0        moveq.l #0,D0
  22.         rts
  23.  
  24.         END
  25.  
  26.