73 $ifdef BASM16

    73 $ifdef BASM16

    74 

    74 

    75 procedure Adler32Update(var adler: longint; Msg: pointer; Len: longint);

    75 procedure Adler32Update(var adler: longint; Msg: pointer; Len: longint);

    76   //-update Adler32 with Msg data

    76   //-update Adler32 with Msg data

    77 const

    77 const

    79   NMAX =  5552; // max. n with 255n(n+1)/2 + (n+1)(BASE-1) < 2^32

    79   NMAX =  5552; // max. n with 255n(n+1)/2 + (n+1)(BASE-1) < 2^32

    80 type

    80 type

    81   LH    = packed record

    81   LH    = packed record

    82             L,H: word;

    82             L,H: word;

    83           end;

    83           end;