|
DataMuseum.dkPresents historical artifacts from the history of: Commodore CBM-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 728 (0x2d8)
Types: TextFile
Notes: UNIX file
Names: »globals.c«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦f4b8d8c84⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »cmd/bc/globals.c«
#include <stdio.h>
#include "bc.h"
int allok = TRUE, /* True iff no outstanding errors */
scale = 0; /* scale register */
extern int ibase; /* input base from libmp/min.c */
dicent *dictionary = NULL; /* root of string table */
code cstream[MAXCODE], /* code stream */
*loc = cstream; /* where next item of code stream goes */
mint ten, /* constant ten */
maxsobase, /* max small output base (16) */
outbase; /* output base */
rvalue dot, /* last number printed */
zero; /* constant zero */
FILE *infile = stdin; /* current input file */
init()
{
mitom(10, &ten);
mcopy(&ten, &outbase);
mitom(16, &maxsobase);
mitom(0, &dot.mantissa);
dot.scale = 0;
mitom(0, &zero.mantissa);
zero.scale = 0;
}