<> <> DIRECTORY PDInterpBasic; PDTransfer: DEFINITIONS = BEGIN <> maxWords: NAT = 400; <> DataBlock: TYPE = RECORD [ words: NAT, buffer: ARRAY [0..maxWords) OF CARDINAL ]; GetBlock: PROC [sourceIndex: INT, words: INT] RETURNS [DataBlock]; <> ReportStatus: PROC [status: PDInterpBasic.Status, queueSize: NAT, queuePosition: NAT, page, pass, sourceIndex: INT] RETURNS [abort: BOOLEAN]; <> <> END.