-- ReadDefs.Mesa  Edited by HGM on November 2, 1980  11:53 AM

DIRECTORY
  AltoDefs USING [BytesPerPage],
  AltoFileDefs USING [FP],
  DiskDefs USING [CBptr, CBZptr];

ReadDefs: DEFINITIONS =
  BEGIN

  CBptr: TYPE = DiskDefs.CBptr;
  CBZptr: TYPE = DiskDefs.CBZptr;

  StartReading: PROCEDURE [fp: POINTER TO AltoFileDefs.FP, nCBs: CARDINAL]
    RETURNS [CBZptr];
  GetNextPage: PROCEDURE [zone: CBZptr] RETURNS [cb: CBptr];
  LastPage: PROCEDURE [cb: CBptr] RETURNS [BOOLEAN] = INLINE
    BEGIN RETURN[cb.labelAddress.bytes # AltoDefs.BytesPerPage]; END;

  ReleasePage: PROCEDURE [cb: CBptr];
  StopReading: PROCEDURE [zone: CBZptr];

  END...