HP3000-L Archives

October 1997, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Ted Ashton <[log in to unmask]>
Reply To:
Ted Ashton <[log in to unmask]>
Date:
Mon, 13 Oct 1997 21:17:47 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (53 lines)
Greetings,
  Not sure how much help there is out there for me, but I figure it's worth
a try.  I'm wanting to read Scantron sheets and parse the results with perl.
Most all of it works fine, except that the scantron machine spits out 310
characters at blinding speed with no regard for anyone else's feelings.  In MPE
typically, this is no problem.  Not so under the shell (and perl).  There seems
To be no way to do the equivalent of (for FILE SCANTRON=$STDINX;REC=-132):

reset(Scantron,'*SCANTRON');
ScanFnum := fnum(Scantron);

rewrite(Opsfifo,'OPSFIFO');

{ Disable Break key -- Because sometimes reader stays locked
  which requires reader to be turned off/on then <CR> to
  unlock it.  This sometimes causes a BREAK to occur.     }
FControl(ScanFnum,14,Parm);
if CCode <> CCE then Ferr(ScanFnum,true);

FControl(ScanFnum,13,Parm);     { Turn OFF echo }
if CCode <> CCE then Ferr(ScanFnum,true);

FSetMode(ScanFnum,4); { Turn off CR/LF after read 4=100 binary }
if CCode <> CCE then Ferr(ScanFnum,true);

Parm := hex('190D');   { $19 = ^Y ,  $0D = CR }
FControl(ScanFnum,41,Parm);  { Set unedited input mode }
if CCode <> CCE then Ferr(ScanFnum,true);

{ Note with MPE XL: (from Asynch. Serial Comm. pg B-12)
    FControl 41 - unedited input mode
      DC1 and DC3 are NOT treated as data, but as protocol
      Xon/Xoff characters (not put in read string).
    FControl 27 - binary transfer mode
      DC1 and DC3 ARE treated as data, not protocol
      Xon/Xoff characters.                             }


Especially the FControl 41.  Any Advice?

TIA,
Ted
--
Ted Ashton ([log in to unmask]), Info Serv, Southern Adventist University
          ==========================================================
Science, being human enquiry, can hear no answer except an answer couched
somehow in human tones. Primitive man stood in the mountains and shouted
against a cliff; the echo brought back his own voice, and he believed in a
disembodied spirit. The scientist of today stands counting out loud in the
face of the unknown. Numbers come back to him - and he believes in the Great
Mathematician.
                         -- Hughes, Richard

ATOM RSS1 RSS2