DataMuseum.dk

top - metrics - download

    Length: 739 (0x2e3)
    Types: TextFile
    Names: »bfuncs.c«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Spacewar/bfuncs.c« 

TextFile

/*
 * Spacewar - byte functions
 *
 * Copyright 1984 obo Systems, Inc.
 * Copyright 1984 Dan Rosenblatt
 */

#include "spacewar.h"

VOID bcopy(dst,src,len)
register char *dst,*src;
register int len;
{
	while (len-- > 0)
		*dst++ = *src++;
}

VOID binit(dst,len)
register char *dst;
register int len;
{
	while (len-- > 0)
		*dst++ = 0;
}

VOID vcopy(dst,src)
register double *dst,*src;
{
	register int i;

	for (i=0;i++<3;)
		*dst++ = *src++;
}

VOID mcopy(dst,src)
register double *dst,*src;
{
	register int i;

	for (i=0;i++<9;)
		*dst++ = *src++;
}

VOID vinit(dst)
register double *dst;
{
	register int i;

	for (i=0;i++<3;)
		*dst++ = 0.;
}

VOID minit(dst)
register double *dst;
{
	register int i;

	for (i=0;i++<9;)
		*dst++ = 0.;
}