[Back to COMM SWAG index] [Back to Main SWAG index] [Original]

    FUNCTION Serial_Time_Out(COM : byte) : byte;
    { DESCRIPTION:
        Time-Out values for RS232 communications lines.
      SAMPLE CALL:
        NB := Serial_Time_Out(1);
      NOTES:
        The allowed values for COM are: 1,2,3 or 4. }

    BEGIN { Serial_Time_Out }
      Serial_Time_Out := Mem[$0000:$047C + Pred(COM)];
    END; { Serial_Time_Out }

[Back to COMM SWAG index] [Back to Main SWAG index] [Original]