Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

44 lines
945 B
C
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/***************************************************************************
*
* b l k m o v e F u n c t i o n
* -------------------------------
* Copyright 1983, by Digital Research Inc.
*
* "blkmove()" moves a block of bytes from one address to another.
*
* Calling sequence:
* blkmove(to,from,nn)
* Where:
* 'to' points to destination
* 'from' points to source, and
* 'nn' is the number of chars to move
*
***************************************************************************/
#include <portab.h>
VOID blkmove(to,from,nn) /* CLEAR FUNCTION ***********/
BYTE *to, *from;
WORD nn;
{
if( to < from )
while(nn--)
*to++ = *from++;
else
for( to += nn, from += nn; nn--; )
*--to = *--from;
}
from )
while(nn--)
*to++ = *from++;
else
for( to += nn, from += nn; nn--; )
*--to = *--from;
}
from )
while(nn--)
*to++ = *from++;
else
for( to += nn, from += nn; nn--; )
*--to = *--from;
}