BBS: Inland Empire Archive Date: 01-29-93 (23:34) Number: 383 From: ROB MCKEE Refer#: NONE To: FRANCOIS ROY Recvd: NO Subj: Re: Break Key Info Conf: (2) Quik_Bas
Hello Francois!
You wrote in a message to Zack Jones:
ZJ> when you send a *BREAK* <Ctrl-END> when running Telix. Well I asked
ZJ> Jeff Woods about it and here's the reply:
ZJ>
ZJ> Get the value of the address of the UART's Line Control Reg.
ZJ> Turn off interrupts
ZJ> To turn on a break, OR the LCR with 01000000b
ZJ> To turn off a break, AND NOT the LCR with 01000000b
ZJ> Turn on interrupts
ZJ>
FR> If anyone has translated this in QB, I'm *very* interested
It is in Basic... <G>
Port = &H3F8 ' COM1
'Port = &H2F8 ' COM2
'Port = &H3E8 ' COM3
'Port = &H2E8 ' COM4
Ni = INP(Port + 1)
OUT Port + 1, 0
d = INP(Port + 3)
c = d OR &H40
t! = TIMER
OUT Port + 3, c
DO: LOOP UNTIL TIMER - t! > .5
OUT Port + 3, d
OUT Port + 1, Ni
Catcha Later , I'll see you on the flip side - Rob
xVxoxtxe Zack_Jones,Quik_Bas Moderator
^
Hail
--- timEd/B6
* Origin: Flyer_Proof_Computer_Svs,V32B,V42B,XA (1:125/1212.13)

Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET