IBM 1130 User Manual page 537

Section
Subsections
Page
70 20
I
10 01
The Commercial Subroutine Package Overlapped
I/ 0 Subroutines
CSP subroutines may be divided into three groups:
The I/o subroutines themselves
Several I/o utility subroutines
Those character handling routines necessary for
proper use of the I/o routines
This section discusses the former two groups; the
latter is covered later in this section under "Charac-
ter Handling Techniques".
General
All of the overlapped I/o subroutines operate on
data in Al format -- one alphabetic character per
word, left-justified. If you wish to read 80 card
columns, you must set up an array 80 positions long
to receive the data, and convert the Al data to what-
ever format you require for later processing. There
are no FORMAT statements; you must handle all
conversions (see "Character Handling Techniques").
Unlike standard FORTRAN, the overlapped I/O
subroutines are oriented toward a sign punch over
the low-order digit of a field. For example, a nega-
tive number or credit of -$6. 50 would be punched
with an II-punch over the zero, rather than in a
separate column, as would be done if FORTRAN
FORMAT were used.
In
general, for your non-disk I/O, you must
choose either one system or the other: FORTRAN
FORMAT or overlapped I/O .. They may not be mixed
within the same program.
For further detail on these subroutines, see the
SRL manual H20-0241.
READ a Card, 1442-6 or 7
The subroutine READ will read a card from the 1442
Model 6 or 7, overlapping reading with the conversion
from card code to Al format. The CPU will not
proceed any further until the last des ired card
column has been read and converted. Therefore you
need not be concerned that processing will be started
before the desired values have reached core storage.
A typical call to this routine would be
NER
=
-1
CALL READ (INOUT, 1, 80, NER)
which would read and convert 80 columns, and place
the result in the array INOUT. It should be followed
by a
IF (NER) xxx, xxx, xxx
If
NER is still -1, everything is normal; if it is
zero, the card just read was the last card in the
hopper; if it is +1, there was a read or feed check
(1442 malfunction).
It is equivalent to
DIMENSION INOUT(80)
77 FORMAT (80A1)
READ (2,77) INOUT