{$I-,S-}
{$IFNDEF OS2}
{$R-,V-,B-,F+,O+,A-}
{$ENDIF}

{Conditional defines that may affect this unit}
{$I APDEFINE.INC}

{*********************************************************}
{*                    APCOM.PAS 2.03                     *}
{*     Copyright (c) TurboPower Software 1991.           *}
{* Portions copyright (c) Information Technology 1989,   *}
{*    and used under license to TurboPower Software      *}
{*                 All rights reserved.                  *}
{*********************************************************}

Unit ApCom;
  {-Interface layer for serial I/O}

Interface

Uses
  {$IFNDEF OS2}
  ApMisc,
  ApPort,
  {$ELSE}
  ApOS2,
  OS2Base,
  {$ENDIF}
  OpInline,
  ApSame,
  ApTimer;

{$IFNDEF OS2}
Procedure IntOff; Inline ($9C / $FA);      {PUSHF/CLI}
Procedure IntOn; Inline ($9D);             {POPF}
{$ENDIF}

{$I APCOM.PA0}

{!!.03 moved up}
Var
  {Global routine that handles received chars during "waits"}
  WaitChar : WaitCharProc;

  {========================================================================}

Implementation

Type
  OS = Record
         Ofs : Word;
         Seg : Word;
       End;

Const
  EmptySet : CharSet = [];

  {$I APCOM.PA1}   {Gets, puts, flow, modem status}
  {$I APCOM.PA2}   {Line status, misc}

Begin
  @WaitChar := @NoWaitChar;
End.
