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

⟦7b293ae04⟧ TextFile

    Length: 313 (0x139)
    Types: TextFile
    Notes: UNIX file
    Names: »dcsub.c«

Derivation

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

TextFile

#include <stdio.h>
#include "bc.h"

/*
 *	dst -= src
 *	src freed
 *	modelled on bcadd
 */

dcsub(src, dst)
register rvalue	*src, *dst;
{
	if (dst->scale >= src->scale)
		rescale(src, dst->scale);
	else
		rescale(dst, src->scale);
	msub(&dst->mantissa, &src->mantissa, &dst->mantissa);
	mvfree(&src->mantissa);
}