; #########################################################################

    .386
    .model flat, stdcall
    option casemap :none   ; case sensitive

    .code

; #########################################################################

StripLF proc strng:DWORD

  ; -------------------------------
  ; scan through string, put ascii
  ; zero in place of ascii 13
  ; -------------------------------
    mov edx, strng
  @@:
    mov al, [edx]
    inc edx
    cmp al, 13
    jne @B

    mov al, 0
    mov [edx-1], al

    ret

StripLF endp

; #########################################################################

    end