Systems Reference Library IBM 1130/1800 Plotter Subroutines
Systems Reference Library IBM 1130/1800 Plotter Subroutines
Systems Reference Library IBM 1130/1800 Plotter Subroutines
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
VARIABLE ALLOCATIONS<br />
IA II 1.002E0000 I R I I /.002E..0008 I C U 1.002E0025 1011 /.0024- .00013 P I I R /.002E T I R 1.0030<br />
DELIR 1.0022 8 1 1 /.0018 L I T 160029 M I 1 I.003A I I I /.003B<br />
STATEMENT ALLOCATIONS<br />
1 .0067 2 .006C 3 .06A B 4 .0060 5 .00C F 6 .0002 7 800EF 8 .0102 1234 .0132 40 .0900<br />
FEATURES SUPPORTED<br />
ONE WORD IN TEGER S<br />
IOCS<br />
CALLED SUBPROGRAMS<br />
FCHAR rcos FSIN<br />
$ IO IX S U B S C<br />
REAL CONSTANTS. •<br />
.3 1 4 1 5 9 E 0 1 .0 0 3 E . 0 0 0 0 0 0 E 0 0 .0 0 4 0 . 2 0 0 0 0 0 E 0 0 .0 0 4 2 . 3 0 0 0 0 0 E 0 0 .0 0 4 4 • 2 7 0 0 0 0 E 0 0 .0 0 4 6 0 3 7 0 0 0 0 E 0 0 .0 0 .8<br />
.7 0 0 0 0 E 0 0 .0 0 4 A 8 2 5 0 0 0 0 E 0 0 .0 0 4 C . 1 5 0 0 0 0 E 0 0 .0 0 4 E . 4 0 0 6 0 0 E 0 1 .0 0 5 0 • 1 2 0 0 0 0 E 0 1 .0 0 5 2 , • 2 0 0 0 0 0 E 0 1 .0 0 6 4<br />
.1 a 0 0 0 0 r 0 2 .0 0 9 6 . 1 5 0 0 0 0 E 0 1 .0 0 5 8 . 5 7 5 0 0 0 E 0 1 .0 0 5 A . 1 0 0 0 0 0 E 0 1 .0 0 5 C • 7 9 0 0 0 0 E 0 1 .0 0 5 E . 1 0 0 0 0 0 E 0 0 . 0 0 . 0<br />
PL004<br />
TH IS I S A TEST O F TH E CHARACTER R OU TIN E<br />
TEST I S I N S PA R TS<br />
FHpY ' D I V F L O F S T O C A R OZ ; W W 2 W C H R 1 SR ED SW R T SC OMP SFIO SIOSI<br />
INTEGER CONSTANTS<br />
2.0062 2 . 0 0 6 3 7 . 0 0 6 4 1 . 0 0 6 0 36.0066<br />
CORE REQUIREMENTS FOR<br />
COMMON 0 VA R IA B LES 6 2 PR OGR A M 4 8 2<br />
END O F C OMPILA TION<br />
PART 1 P L O T TH E FOLLOWING CHARACTERS 6 2 I N SIZ E<br />
1 2 5 4 5 4 7 5 9 A R C O EFO H IJ K LH N O PO R E1 U VW 0 Y2<br />
,<br />
PART • + 6 2 4 PLOT CHARACTERS • 2 7 W B Y • 3 7 H HORIZONTAL<br />
4<br />
/C ) 5 8 6<br />
PART 3 P L O T CHARACTERS A ...2 825W B Y 6 1 5 H ON A 4 5<br />
PART 4 - PLOT CHARACTERS 0 - 9 .1 5 W B Y •2511 VER TIC A L<br />
PART S P L O T CHARACTERS 0 W 2 t 6 ..2 • 1 5 B Y 6 1 5 ON A 3 IN C H C IR C LE<br />
END O F TEST<br />
Figure 4. P lotter Test 4 Listing (Part 2 of 2)<br />
12<br />
Insert data card following the object deck in the Card/Paper<br />
Tape system; following theft XEC) Card in Monitor system.<br />
The data card is shown under Part 1( 12345-) with the entries<br />
starting in column I ( no embedded blanks). This data card<br />
will cause Figure 5 to be produced by the platter.