-- BlockOps.mesa   Edited by Sandman on June 4, 1980  1:54 PM

-- Copyright  Xerox Corporation 1980

BlockOps: DEFINITIONS =
  BEGIN

  BlockEqual: PROCEDURE [p1: POINTER, n: CARDINAL, p2: POINTER]
    RETURNS [BOOLEAN];
  BlockEqualCode: PROCEDURE [p1: POINTER, n: CARDINAL, offset: CARDINAL]
    RETURNS [BOOLEAN];
  BlockEqualLong: PROCEDURE [p1: LONG POINTER, n: CARDINAL, p2: LONG POINTER]
    RETURNS [BOOLEAN];
  ByteBlockEqual: PROCEDURE [p1: POINTER, n: CARDINAL, p2: POINTER]
    RETURNS [BOOLEAN];
  ByteBlockEqualCode: PROCEDURE [p1: POINTER, n: CARDINAL, offset: CARDINAL]
    RETURNS [BOOLEAN];
  ByteBlockEqualLong: PROCEDURE [
    p1: LONG POINTER, n: CARDINAL, p2: LONG POINTER] RETURNS [BOOLEAN];
  BlockEqualCodeLong: PROCEDURE [
    p1: LONG POINTER, n: CARDINAL, offset: CARDINAL] RETURNS [BOOLEAN];
  ByteBlockEqualCodeLong: PROCEDURE [
    p1: LONG POINTER, n: CARDINAL, offset: CARDINAL] RETURNS [BOOLEAN];

  END...