{ String I/O Utility Unit

  File:	   ATT_UNIT.TEXT
  Date:	   16-Sep-83
  Version: 3
  
  COPYRIGHT (c) 1982, 1983 SAGE Computer Technology
  All Rights Reserved
  
  Development History:
  
  1    25-Aug-82  Initial release
  2	6-Jun-83  Added events Ex1In, Ex1QE, Ex2In, Ex2QE, Ex3In, Ex3QE,
		  Ex4In, Ex4QE, UKey, Win, and Floppy.
  3    16-Sep-83  Added events 

}

UNIT ATT_UNIT;

INTERFACE

TYPE
  ATT_Events = (ATT_Key,ATT_TrmQE,ATT_RemIn,ATT_RotQE,
		ATT_ParQE,ATT_PrtQE,ATT_Break,ATT_Schd1,
		ATT_Schd2,ATT_Schd3,ATT_Schd4,ATT_TaskR,
		ATT_Ex1In,ATT_Ex1QE,ATT_Ex2In,ATT_Ex2QE,
		ATT_Ex3In,ATT_Ex3QE,ATT_Ex4In,ATT_Ex4QE,
		ATT_UKey,ATT_Win,ATT_Floppy,ATT_ComIn,
		ATT_ComDn);

FUNCTION ATT_Lookup(Event:ATT_Events):INTEGER;

IMPLEMENTATION

FUNCTION ATT_Lookup;
VAR
  Channels:ARRAY[0..31] OF INTEGER;

BEGIN
  ATT_Lookup:=-1; {default}
  CASE Event OF
    ATT_Key  :ATT_Lookup:=19;
    ATT_TrmQE:ATT_Lookup:=33;
    ATT_RemIn:ATT_Lookup:=32;
    ATT_RotQE:ATT_Lookup:=34;
    ATT_ParQE:ATT_Lookup:=35;
    ATT_PrtQE:BEGIN
		UNITREAD(128,Channels,0,1,0);
		CASE Channels[6] OF
		  6:ATT_Lookup:=35;
		  8:ATT_Lookup:=34;
		 13:ATT_Lookup:=41;
		 14:ATT_Lookup:=43;
		 15:ATT_Lookup:=45;
		 16:ATT_Lookup:=47;
		END;
	      END;
    ATT_Break:ATT_Lookup:=62;
    ATT_Schd1:ATT_Lookup:=36;
    ATT_Schd2:ATT_Lookup:=37;
    ATT_Schd3:ATT_Lookup:=38;
    ATT_Schd4:ATT_Lookup:=39;
    ATT_TaskR:ATT_Lookup:=63;
    ATT_Ex1In:ATT_Lookup:=40;
    ATT_Ex1QE:ATT_Lookup:=41;
    ATT_Ex2In:ATT_Lookup:=42;
    ATT_Ex2QE:ATT_Lookup:=43;
    ATT_Ex3In:ATT_Lookup:=44;
    ATT_Ex3QE:ATT_Lookup:=45;
    ATT_Ex4In:ATT_Lookup:=46;
    ATT_Ex4QE:ATT_Lookup:=47;
    ATT_Win  :ATT_Lookup:=48;
    ATT_Floppy:ATT_Lookup:=49;
    ATT_ComIn:ATT_Lookup:=50;
    ATT_ComDn:ATT_Lookup:=51;
    ATT_UKey :ATT_Lookup:=61;
  END;
END;

END.


                                                                                                                                       