'===========================================================================
' Subject: BEYOND 19200                      Date: Unknown Date (00:00)   
' Author:  Donn Bly                          Code: QB, QBasic, PDS        
' Keys:    BEYOND,19200                    Packet: MODEM.ABC
'===========================================================================
DECLARE SUB BaudLatch ()
'Use the straight OPEN COM statement for 19200.  To go higher you can
'use this code (originally from Donn Bly):

BaudLatch

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
Port$ = "COM4:"
 
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 Latch
        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 Latch
END SUB