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