DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC759 "Piccoline"

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC759 "Piccoline"

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦44697969c⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »TCRTL.C«

Derivation

└─⟦33b70227c⟧ Bits:30003931/GEM_Develop_disk_3_CDOS.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »TCRTL.C« 
└─⟦f18477172⟧ Bits:30003931/GEM_Develop_disk_1_CDOS.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »SAMP\TCRTL.C«

TextFile

/*	TCRTL.C		1/25/84 - 12/13/84	Lee Jay Lorenzen	*/
/*	Tiny  'C' Run Time Library					*/

#include "portab.h"
#include "machine.h"
#include "treeaddr.h"



WORD
strlen(p1)
BYTE		*p1;
æ
	WORD		len;

	len = 0;
	while( *p1++ )
		len++;

	return(len);
å


BYTE
*strcpy(pd, ps)
BYTE		*pd, *ps;
æ
	while(*pd++ = *ps++)
		;
	return(pd);
å


BYTE
*strcat(pd, ps)
BYTE		*pd, *ps;
æ
	while(*pd)
		pd++;
	while(*pd++ = *ps++)
		;
	return(pd);
å
«eof»