Re: ICONS... ICO'S

 BBS: Inland Empire Archive
Date: 11-28-92 (05:52)             Number: 368
From: DICK DENNISON                Refer#: NONE
  To: DAVID COLSTON                 Recvd: NO  
Subj: Re: ICONS... ICO'S             Conf: (2) Quik_Bas

DD>NAK.  You can use OPEN to 19200,  Try it.  (And you can poke it to 115k
DD>if you need to.)

DC> Well, don't stop there. Please give details.

Use the straight OPEN COM statement for 19200.  To go higher you can
use this code (originally from Donn Bly):

SUB baudlatch   'enables 38400 baud  want to put in com3 and com4 support
'NewBaud$ = "38400"
'BaudNum% = 3   'for 38.4
'BaudNum% = 2  'for 56000
BaudNum% = 1 'for 115K


SELECT CASE Port$
        CASE "COM1:"
                BaseAddress% = &H3F8
        CASE "COM2:"
                BaseAddress% = &H2F8
        CASE "COM3:"
                BaseAddress% = &H3E8
        CASE "COM4:"
                BaseAddress% = &H2E8
END SELECT
        OldLSR% = INP(BaseAddress% + 3)
        OUT (BaseAddress% + 3), (OldLSR% OR &H80)   ' Enable the Divisor L
atch
        OUT (BaseAddress% + 0), (BaudNum% MOD &HFF) ' Lo Byte of Baud Rate
        OUT (BaseAddress% + 1), (BaudNum% \ &H100)  ' Hi Byte of baud Rate
        OUT (BaseAddress% + 3), OldLSR%             ' Disable Divisor Latc
h
END SUB
  'Sorry for the line wrap.  Enjoy.

--- VP [DOS] V4.09e
 * Origin: The MailMan  (914)374-3903 NY Quick Share Pt #7 *HST (1:272/34)