Jan.Maaskant@f301.n387.z1.ANGEL.UCM.ORG (Jan Maaskant) (05/05/89)
If you get this toolkit please post the section of code where it
checks the comm port for Carrier, (I've got the routines you want
for Turbo Pascal 4.0/5.0 incidently, they're in a library in the
manual, ummm pages 365/366/367 of the turbo pascal owners handbook.
Doesn't tell you what the codes are you'll need for intitializing
the serial ports, but I've got those handy too... If you have (or
can get access to this (4.0 version) then you'll notice on page
368
Program Testaux;
uses AuxInOut; {The unit on page 365/366/367}
Var
Com1: Text;
Begin
AssignAux(Com1,0,$83);
Rewrite(com1);
writeln(Com1,'Device Drivers are fun!');
close(Com1);
end.
The $83 consists of the following bits, one from each group.
0x02 7 data bits
0x03 8 data bits
0x00 1 stop bit
0x04 2 stop bits
0x00 No Parity
0x08 Odd Parity
0x18 Even parity
0x00 110 Baud
0x20 150 Baud
0x40 300 Baud
0x60 600 Baud
0x80 1200 Baud
0xA0 2400 Baud
0xC0 4800 Baud
0xE0 9600 Baud
This would make $83 = to 1200 Baud, no parity, 1 stop bit, and 8
data bits.
Cheers!
Jan
--
Jan Maaskant - via FidoNet node 1:387/605
UUCP: thnkpos!angel.ucm.org!301!Jan.Maaskant
USENET: Jan.Maaskant@f301.n387.z1.ANGEL.UCM.ORG