ş a‹R ş w *ş m
G<     ş hı	 o    ş nGRiD 64FindThisTitle: PROC (pTitle, pError) PTR EXT;
  DCL (pTitle, pError) PTR;
END;

FreeString: PROC (pString) EXT;
  DCL pString PTR;
END;


/*OSCALLDriver: PROC (driver, level, request, pParams, pError) EXT;
  DCL driver  PTR;
  DCL level   BYTE;
  DCL request WORD;
  DCL (pParams, pError) PTR;
END; 

OSAddDevice: PROC (pName, pDevice, pET, GPIBAddr, mass, mode, pError) EXT;
  DCL (pName, pDevice, pET) PTR;
  DCL GPIBAddr  BYTE;
  DCL mass      BOOL;
  DCL mode      BYTE;
  DCL pError    PTR;
END;

OSRemoveDevice: PROC (pDevice, pError) EXT;
  DCL (pDevice, pError) PTR;
END;

OSDelay: PROC (time) EXT;
  DCL time WORD;
END;

OSAllocate: PROC (length, pError) PTR EXT;
  DCL length WORD;
  DCL pError PTR;
END;

OSFree: PROC (block, pError) EXT;
  DCL block  PTR;
  DCL pError PTR;
END;    */

SetException: PROC WORD EXT;
  DCL exceptionID WORD;
END;

Exception: PROC (errorCode) EXT;
  DCL exceptionID WORD;
  DCL errorCode   WORD;
END;

DCL initDelay        LIT '1000';

DCL notSupported     LIT '35';
DCL driverInUse      LIT '40';
DCL alreadyActive    LIT '230';
DCL deviceNotReady	LIT '107';
DCL timedOut         LIT '401';
DCL lostCarrier      LIT '402';

DCL ch BYTE;


DCL space LIT '20H';
DCL CR    LIT '0DH';
DCL LF    LIT '0AH';
DCL FF    LIT '0CH';
DCL BS    LIT '08H';
DCL HT    LIT '09H';
DCL ESC   LIT '1BH';
DCL ETX   LIT '03H';
DCL ACK   LIT '06H';
DCL DC1   LIT '11H';

/*    Device driver request codes      */

DCL ddInitialize	LIT '0';
DCL ddGetStatus	LIT '1';
DCL ddOpen	LIT '2';
DCL ddClose	LIT '3';
DCL ddRead	LIT '4';
DCL ddWrite	LIT '5';
DCL ddTruncate       LIT '7';
DCL ddAttach	LIT '8';
DCL ddDetach	LIT '9';
DCL ddSetStatus	LIT '20';
DCL ddDeactivate	LIT '21';

DCL OverflowType LIT 'STRUCTURE
      (datamode	BYTE,
       EOSchar	BYTE,
       secAddr	BYTE,
       timeout	WORD)';

DCL SetStatusType LIT 'STRUCTURE
      (setStatMode	BYTE,
       setNewTime	WORD)';
DCL setTimeout LIT '2';

DCL GetStatusType LIT 'STRUCTURE
      (open	BOOLEAN,
       access	BYTE,
       seek	BYTE,
       filePosition	DWORD,
       numCharsInFifo	DWORD,
       syncdetect	BOOLEAN,
       connection	BYTE,
       ModemControl	BYTE,
       unused	BYTE,
       RingSID	WORD)';
DCL openStat   LIT '1';
DCL accessStat LIT '14';