IBM 1130 User Manual page 539

Section
Subsections Page
70 20
1
10 03
PRINT on 1132
Subroutine PRINT enables you to write on the 1132
Printer, overlapping printing with other processing.
A typical use of this routine is
NER = 1
CALL PRINT (INOUT, 1, 120, NER)
This will initiate the printing of the 120-word array
INOUT on the 1132, then continue processing. Be-
cause of its overlapped capability, it can drive the
1132 Printer substantially faster than the equivalent
FORTRAN/FORMAT statements:
DIMENSION INOUT (120)
88 FORMAT (120A1)
WRITE (3, 88) INOUT
Like READ and PUNCH, it should be followed
with a test of NER:
• If it is still 1, nothing unusual happened.
• If it is 3, the line being printed matches with
a channel 9 punch on the carriage control tape.
• If it is 4, the line being printed matches with
a channel 12 punch in the carriage control tape.
Note that the first pos ition is not used to control
the printer carriage, as it is with stacdard FORTRAN.
The SKIP routine must be used if you wish to skip to
channell, double-space, etc.
SKIP on 1132
Subroutine SKIP permits full use of the carriage con-
trol tape mechanism on the 1132. Skipping is signifi-
cantly faster than printing blank lines and should be
used wherever possible. A typical use of this routine
is
CALL SKIP (KODE)
where the allowable values of KODE, and their
meaning, are as shown in Figure 70.18.
Value Action Taken
of KODE by the 1132
12544 Immediate skip to channel 1
12800
Immediate skip to channel 2
13056
Immediate skip to channel 3
13312 Immediate skip to channel 4
13568
I mmediate skip to channel 5
13824
Immediate skip to channel 6
14592
I mmediate skip to channel 9
15360
I mmediate skip to channel 12
15616
I mmediate space of 1 space
15872
I mmediate space of 2 spaces
16128
I mmediate space of 3 spaces
0
Suppress space after printing
Figure 70.18. SKIP codes for 1132 Printer