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

⟦68bf19407⟧ TextFile

    Length: 198 (0xc6)
    Types: TextFile
    Notes: UNIX file
    Names: »zerop.c«

Derivation

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

#include "mprec.h"


/*
 *	Zerop returns a TRUE or FALSE depending on wether or not
 *	the mint pointed to by "a" is zero.
 */

zerop(a)
register mint	*a;
{
	return (a->len == 1 && *a->val == 0);
}