; GetCookie-Routine, (PD) 1995, Dirk Haun @ WI2

               export get_cookie

               import Supexec

module         get_p_cookies
               move.l    $5a0.w,d0
               rts
endmod

; int get_cookie(long cookie[D0],long *cval[A0]);

module         get_cookie
               movem.l   D4/A2-A3,-(A7)
               move.l    D0,D4
               move.l    A0,A3
               lea       get_p_cookies,A0
               jsr       Supexec
               tst.l     D0
               beq.s     c_ende
               move.l    D0,A0
               clr.l     D0
c_loop:        move.l    (A0)+,D1
               beq.s     c_ende
               move.l    (A0)+,D2
               cmp.l     D4,D1
               bne.s     c_loop
c_found:       move.l    D2,(A3)
               moveq     #1,D0
c_ende:        movem.l   (A7)+,D4/A2-A3
               rts
endmod