Re: com2 not working

 BBS: Inland Empire Archive
Date: 11-19-92 (01:34)             Number: 351
From: JIM BREWER                   Refer#: NONE
  To: BRYAN LEGGO                   Recvd: NO  
Subj: Re: com2 not working           Conf: (2) Quik_Bas

-> some computers immediately after the first PRINT # to the com
-> Channel. Anyway, do you know of any fixes or have a test program that
-> might allow me to get past this? I've been dreading writing to

        Might try opening the port as if it was COM1 even
though it is COM2 actually, not sure if it will work.

Here is some code I used in an older version of a DOOR that
seemed to work when the was only one serial port in a
machine and it was setup as COM2.

IF Port = "COM2:" THEN
   mcr = &H2FC       'Modem Control register address
   msr = &H2FE       'Modem Status register address
    DEF SEG = &H40   'Set segment to BIOS data area
    Old4002 = PEEK(2)    'Save old values for use when closing port
    Old4003 = PEEK(3)    '(Base address of port)
       IF Old4002 <> 248 THEN   'If not normal address of COM2
          POKE (2), 248         'make it be so
       END IF
       IF Old4002 <> 2 THEN
          POKE (3), 2
       END IF
    DEF SEG        'Restore segment
END IF

        Like I said that seemed to clear up the problem as
I had observed it. Use at your own risk <g>.

                                                Jim Brewer

P.S. I would recommend to everyone to use QBSerial for com
support in their programs. This is a solid library at a
very decent price (Shareware $25). Offers much better com
support than QB's internal routines (Non-standard com
ports, up to 115K bps, etc.). I have it available here as
QBSER300.ZIP (33K) (see below).

--- DB 1.50/002487
 * Origin: Gulf Coast BBS -QuickSHARE #2- (904)563-2547 HST/v.32bis (1:365/12)