Bbs Design

 BBS: Inland Empire Archive
Date: 12-14-92 (21:49)             Number: 224
From: CORIDON HENSHAW              Refer#: NONE
  To: AARON LAPIKAS                 Recvd: NO  
Subj: Bbs Design                     Conf: (2) Quik_Bas

Hello Aaron!

In a msg of <11 Dec 92>, Aaron Lapikas writes to Coridon Henshaw:

 >> A FOSSIL is quite fast, if you use it right.  I haven't had
 >> any success in using a FOSSIL (OPEN "COM1:19200" plus some
 >> low-level OUTing does the trick).

 AL> I found that in comparson to QB's communication
 AL> routines, the FOSSIL's are
 AL> AL> MUCH slower.  I am using a LIB that uses interrupts to communicate
 AL> with AL> the FOSSIL, so maybe that has something to do with it.

Perhaps your going at the wrong end of the problem?  A
FOSSIL is intended so that you handle bytes when you want
them, so polling in a tight loop isn't the right way to do
this.

 AL> You stated in your message that instead of a FOSSIL, you use OPEN COM
 AL> and some low-level OUTing.  Can you tell me what you do using OUT in
 AL> co-ordinace with the modem?  I'm VERY curious.  :)

Yeah, here's my high-speed OPEN COM system:

===Chop===
DECLARE SUB BPSLatch (Port%, BPS%)
DIM SHARED PortAddress (1 TO 4) AS INTEGER

PortAddress(1) = &H3F8
PortAddress(2) = &H2F8
PortAddress(3) = &H3E8
PortAddress(4) = &H2E8

OPEN "COM1:9600" FOR RANDOM AS #1 'Change to what you want...
BPSLatch (1,38400) 'Again, change Port% and BPS% to wanted values.

SUB BPSLatch (Port%, BPS%) 'enables 38400 baud
BaudNum% = BPS%
BaseAddress% = PortAddress(Port%)

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
===Chop===

Coridon Henshaw

Sirrus| /
    --*--
    / |Software

..."Load up on guns, bring your friends"

--- GEcho 1.00
 * Origin: TCS Concordia - Mail Only - Toronto, Ontario (1:250/820)