DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

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

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦1b8038bae⟧ TextFile

    Length: 380 (0x17c)
    Types: TextFile
    Notes: UNIX file
    Names: »itom.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »libmp/itom.c«

TextFile

#include "mprec.h"

/*
 *	Itom returns a pointer to a mint which has a value equal to
 *	the int "n".  It allocates the space both for the mint and
 *	for the value.  Note that itom can be used to initialize
 *	pointer to mint's.
 */

mint *
itom(n)
int n;
{
	register mint	*result;

	result = (mint *)mpalc(sizeof *result);
	minit(result);
	mitom(n, result);
	return (result);
}