[comp.lang.pascal] serial input problem

kabu@voice-sun.NTT.JP (T_Kaburagi) (12/26/90)

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