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

⟦199a21694⟧ TextFile

    Length: 203 (0xcb)
    Types: TextFile
    Notes: UNIX file
    Names: »ispos.c«

Derivation

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

#include "mprec.h"


/*
 *	Ispos returns true iff the mint pointed to by "a" is positive
 *	(ie. greater than or equal to zero).
 */

ispos(a)
register mint *a;
{
	return (a->val[a->len - 1] != NEFL);
}