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

    FUNCTION Serial_Ports : byte;
    { DESCRIPTION:
        Gets the number of RS232 ports available in a system.
      SAMPLE CALL:
        NB := Serial_Ports; }

    BEGIN { Serial_Ports }
      Serial_Ports := (MemW[$0000:$0410] shl 4) shr 13;
    END; { Serial_Ports }

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