--File PressDefs.mesa Last edited September 3, 1981 11:44 AM By Glen Williams

DIRECTORY
TridentDefs USING [FP, PAGE, tfsdskPtr, VDA];

PressDefs: DEFINITIONS =

BEGIN OPEN TridentDefs;

abortFile: ERROR;

--Types and Variables

PressPassword: INTEGER = 27183;
RTC: POINTER TO INTEGER = LOOPHOLE[430B];--REAL TIME CLOCK.
--Public Exported Variables
numPages: CARDINAL;--exported from PressInit
pageGarray: POINTER TO ARRAY OF PageG;--exported from PressInit

PageGptr: TYPE = POINTER TO PageG;

PageG: TYPE=MACHINE DEPENDENT RECORD--Press’s PageG Structure

[FirstBand:CARDINAL,--lowest used band
LastBand:CARDINAL,--highest used band
BitMargin:CARDINAL,--Margin and
BitWc:CARDINAL,--word count of scan lines
BandPos:LONG CARDINAL, --File position of band stuff
BitPage:CARDINAL, --File position of bits (units = 1024 words)
CopyCrucial:[0..1),--True if different version needed for differrent copies
SimplePage:[0..1),
ColorPass:[0..2),--for color printers: 0=magenta, 1=yellow, 2=cyan, 3=black
ColorUsed:[0..1),--true if color used (scan conversion used this)
blank:[0..2048],
PageNumber:CARDINAL,--From original Press file.
nRecords:CARDINAL,--For spruce-like operation
fontLoad:CARDINAL]; --ditto

PageGLength: INTEGER = SIZE [PageG];--need this for rumaging around in Press.Bits

--from PressInit
copies: INTEGER;
invertMode: BOOLEAN;
filePtr: POINTER TO FP;--pointer to bits file
reprint: BOOLEAN;
nPrinterColors, portrait, printerDevice, printerMode, ResolutionB, ResolutionS, SLOTScanLength, SLOTScanMarginAdjust, SLOTBitMarginAdjust, SLOTDouble, SLOTTimeOut, printerMaxBitsPerScan, ScanLengthInches: INTEGER;

--from Press
serverMode: BOOLEAN;
uCodeLoaded: BOOLEAN;

--Procedures
--from BootRam.mesa
RamBoot: PUBLIC PROCEDURE [fileName: STRING];

--from PressInit.mesa

Init: PUBLIC PROC[] RETURNS [disk: tfsdskPtr, firstVDA: VDA ← LOOPHOLE[0, VDA], goAhead: BOOLEAN ← FALSE];

ReadCommandFile: PUBLIC PROC[] RETURNS[okToProceed: BOOLEAN ← FALSE];

PrintInit: PROC[] ;

--From PressLockCode

LockNeededCode: PROC[];

--From PrintSlot

PSlot: PUBLIC PROC[disk: tfsdskPtr, pageG: PageGptr, lastPage: BOOLEAN, firstVDA: PAGE, filePtr: POINTER TO FP];

SlotInit: PUBLIC PROC[];

END. --of PressDefs