source: buchla-68k/orig/CLIBRARY/MEMSETW.C@ 4aad7a7

Last change on this file since 4aad7a7 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.
  • Property mode set to 100755
File size: 522 bytes
Line 
1/*
2 =============================================================================
3 memset.c -- fill memory with short words
4 Version 1 -- 1987-03-18 -- D.N. Lynx Crowe
5
6 Set an array of n shorts starting at sp to the short w.
7 Return pointer to sp.
8 =============================================================================
9*/
10
11short *
12memsetw(sp, w, n)
13register short *sp, w, n;
14{
15 register short *sp0 = sp;
16
17 while (--n >= 0)
18 *sp++ = w;
19
20 return(sp0);
21}
Note: See TracBrowser for help on using the repository browser.