-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- SA800HeadDummy.mesa, HGM, 22-Sep-83 21:55:17

DIRECTORY
  HeadStartChain USING [Start],
  PrincOps USING [StateVector],
  SA800Face USING [Attributes, Context, DeviceHandle, OperationPtr, Status];

SA800HeadDummy: PROGRAM
  IMPORTS RemainingHeads: HeadStartChain
  EXPORTS HeadStartChain, SA800Face =
  PUBLIC BEGIN OPEN SA800Face;

  -- EXPORTED VARIABLES
  operationBlockLength:    CARDINAL ← 0;
  initialAllocationLength: CARDINAL ← 0;
  nullDeviceHandle:        DeviceHandle ← LOOPHOLE[-1];

  Initialize: PROCEDURE [notify: WORD, initialAllocation: LONG POINTER] = {};

  GetNextDevice: PROCEDURE [DeviceHandle] RETURNS [DeviceHandle] = {
    RETURN[nullDeviceHandle]};


  DiskChangeClear: PROCEDURE [DeviceHandle] = LOOPHOLE[ErrorProc];

  GetContext: PROCEDURE [DeviceHandle] RETURNS [Context] = LOOPHOLE[ErrorProc];

  GetDeviceAttributes: PROCEDURE [DeviceHandle] RETURNS [Attributes] = LOOPHOLE[ErrorProc];

  InitializeCleanup: PROCEDURE [DeviceHandle] = LOOPHOLE[ErrorProc];

  Initiate: PROCEDURE [OperationPtr] RETURNS [Status, CARDINAL] = LOOPHOLE[ErrorProc];

  Poll: PROCEDURE [OperationPtr] RETURNS [status: Status] = LOOPHOLE[ErrorProc];

  Reset: PROCEDURE [DeviceHandle] = LOOPHOLE[ErrorProc];

  SetContext: PROCEDURE [DeviceHandle, Context] RETURNS [BOOLEAN] =
    LOOPHOLE[ErrorProc];

  NoFloppyImplementation: ERROR = CODE;
  ErrorProc: PROCEDURE = {
    s: RECORD [a, b, c: UNSPECIFIED, s: PrincOps.StateVector];
    s.s ← STATE;
    ERROR NoFloppyImplementation};
  
  Start: PUBLIC PROCEDURE = BEGIN RemainingHeads.Start[]; END;    

  END.......