;   GETHEAD(list)
;   NEXTNODE(node)
;	    4(sp)


	    public  _gethead
	    public  _nextnode

_nextnode:
_gethead:
	    move.l  4(sp),A0    ;A0 = list or node
	    move.l  (A0),A1     ;A1 = lh_Head or ln_Succ
	    move.l  A1,D0	;D0 = result
	    tst.l   (A1)        ;does it point to lh_Tail?
	    bne     .1		;no
	    clr.l   D0		;yes
.1	    rts