;
; Copyright © 1991, 1992 by Walter Rothe. You may freely use and modify this
; program, but not for commercial profit. A modest fee for distribution is
; allowed. Derivative works must be released with source along with the
; executable or provisions made to provide the user source, if requested.
; Uploading source to a major bulletin board system within 6 months of the
; time of the request satisfies this requirement. This copyright notice
; must not be deleted from the source.
;
;:ts=8
        far     data
;void CntCRInCurBuf( BufferPtr )
;char *BufferPtr;
;{
        xdef    _CntCRInCurBuf
_CntCRInCurBuf:
;   extern char *LstOut;
;   extern int NumOfCRInCurBuf;
;
;   for(; LstOut<BufferPtr; LstOut++ ) {
        move.l  _LstOut,a0
        bra     .10004
.10005
        add.l   #1,_NumOfCRInCurBuf
        bra     .10004
.10003
;      if( *LstOut == '\n') NumOfCRInCurBuf++;
        cmp.b   #10,(a0)+
        beq   .10005
;   }
.10004
        cmp.l   4(sp),a0
        bcs     .10003
        move.l  a0,_LstOut
;   return;
.2
        rts
;}
;
        xref    .begin
        dseg
        xref    _NumOfCRInCurBuf
        xref    _LstOut
        end