home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
CPROG
/
TASMSWAN.ZIP
/
CFILL.ASM
< prev
next >
Wrap
Assembly Source File
|
1989-07-17
|
622b
|
32 lines
%TITLE "Fill C Strings--External module demo"
IDEAL
MODEL small
CODESEG
PUBLIC _fillstring
%NEWPAGE
;-----------------------------------------------------------------------------
; void fillstring(unsigned char far * thestring, int strlength, char fillchar)
;-----------------------------------------------------------------------------
PROC _fillstring NEAR
ARG thestring:Dword, stringlength:Word, fillchar:Byte
push bp
mov bp,sp
mov cx,[stringlength]
jcxz @@99
push di
les di,[thestring]
mov al, [fillchar]
repnz stosb
pop di
@@99:
pop bp
ret
ENDP _fillstring
END