Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site ucsfcca.UUCP
Path: utzoo!linus!philabs!cmcl2!seismo!lll-crg!dual!ucbvax!ucsfcgl!ucsfcca!dick
From: dick@ucsfcca.UUCP (Dick Karpinski)
Newsgroups: net.micro.pc,net.lang.f77
Subject: Port I/O in IBM Prof. FORTRAN
Message-ID: <396@ucsfcca.UUCP>
Date: Wed, 7-Aug-85 21:48:29 EDT
Article-I.D.: ucsfcca.396
Posted: Wed Aug  7 21:48:29 1985
Date-Received: Sun, 11-Aug-85 06:09:09 EDT
Distribution: net
Organization: UCSF Computer Center
Lines: 20
Xref: linus net.micro.pc:4605 net.lang.f77:300

As the (limited) FORTRAN support person here, I got a query from
a user of the IBM Professional FORTRAN about how to read characters
from a port.  While the manual listed the magic name to use to 
refer to the rs232 port (COM1 if I recall), there was only one hint
about how to do it.  That hint was that assembler code could be
invoked for various purposes like getting at the port.

My user (after many fruitless calls) got from IBM the info that his
task was impossible in FORTRAN since the port is "interrupt driven".
He did not give up, but wrote CHRIN and CHROUT assembler routines.
I have his permission to post them if interest warrants.  Try mail
first.  I'll post the one-screen-each routines to net.lang.f77 (or
to net.sources, if you like) when you tell me you need them.

Dick
-- 
Dick Karpinski    Manager of Unix Services, UCSF Computer Center
UUCP: ...!ucbvax!ucsfcgl!cca.ucsf!dick   (415) 666-4529 (12-7)
BITNET: dick@ucsfcca   Compuserve: 70215,1277  Telemail: RKarpinski
USPS: U-76 UCSF, San Francisco, CA 94143