Path: utzoo!mnetor!tmsoft!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!ccut!wnoc-tyo-news!ascwide!ascgw!sh8810!okilab!icot32!nttlab!voice-sun.NTT.JP!kabu
From: kabu@voice-sun.NTT.JP (T_Kaburagi)
Newsgroups: comp.lang.pascal
Subject: serial input problem
Message-ID: <134678@nttlab.ntt.JP>
Date: 26 Dec 90 00:40:47 GMT
Sender: news@nttlab.ntt.JP
Reply-To: kabu@voice-sun.NTT.JP (T_Kaburagi)
Organization: NTT Reserch Labolatory. musashino. Tokyo japan:
Lines: 50

Hi !!

I'm a little bit hesitant to ask this question, but I want serial
(RS-232C) input sample program in the following environment.

      machine  : Compaq Deskpro 386/20e
      language : Turbo Pascal version 5.5

The line is connected to SUN workstation, and I ensured the connection
by using Kermit program.

The serial output to UNIX succeeded with TP functions Open, Rewrite
and Writeln.

To read characters from UNIX, first I used normal TP functions.

  program test1;
  var
     com1 : text;
     str  : string;
  begin
     Assign(com1, 'AUX');
     Reset(com1);
     Readln(com1, str);
  end.

Then I tried making use of text device driver AuxInOut in the TP
reference guide, but Readln did not scan I/O buffer.

  program test2;
  uses AuxInOut;
  var
     com1   : text;
     str    : string;
  begin
     AssignAux(com1,0,$E3);
     Reset(com1);
     Readln(com1, str);   
  end.

I'm looking forward to any information.

                              Tokihiko Kaburagi
                              NTT Basic Res. Labs., Japan
                             (kabu%voice-sun.NTT.JP@relay.cs.net)

    $@"v"v"v(J ---------------------------------------------------------------
                                 NTT$@4pAC8&5f=j>pJs2J3XIt(J      $@E-LZ(J $@;~I'(J
                                                                       
                                                  phone  : 0422-59-2410