file: TexSysdepInlineImpl.mesa
Hand-edited by Lyle Ramshaw, January 26, 1984 5:36 pm
Pascal-to-Mesa translator output, translated at 20-Oct-83 15:46:56 PDT
DIRECTORY
IO,
SirPress,
TexSysdepInline,
TexTypes,
VM;
TexSysdepInlineImpl: PROGRAM IMPORTS VM EXPORTS TexSysdepInline = PUBLIC
BEGIN
pressFileStream: IO.STREAM;
pressHandle: SirPress.PressHandle;
pype: SirPress.Pipe;
xCoord, yCoord: INTEGER;
pyping: BOOLEAN;
pypePosnsCount: INTEGER;
pypeCharsLimit: INTEGER;
pypeCharsCount: INTEGER;
memStart: LONG POINTER;
memStart ← VM.AddressForPageNumber[VM.Allocate[count: VM.PagesForWords[2*(INT[TexTypes.MemMax]+1)]].page];
END.