source: buchla-68k/orig/CLIBRARY/MEMCPYW.C@ ee49131

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

Imported original source code.

  • Property mode set to 100755
File size: 505 bytes
Line 
1/*
2 =============================================================================
3 memcpyw.c -- copy words
4 Version 2 -- 1987-06-15 -- D.N. Lynx Crowe
5
6 Copy s2 to s1, always copy n words.
7 Return pointer to s1.
8 =============================================================================
9*/
10
11short *
12memcpyw(s1, s2, n)
13register short *s1, *s2;
14register int n;
15{
16 register short *os1 = s1;
17
18 while (--n >= 0)
19 *s1++ = *s2++;
20 return (os1);
21}
Note: See TracBrowser for help on using the repository browser.