13.0.001_Plot_Subroutine 13.0.001 Plot Subroutine
13.0.001_Plot_Subroutine 13.0.001_Plot_Subroutine
User Manual: 13.0.001_Plot_Subroutine
Open the PDF directly: View PDF 
.
Page Count: 14
| Download | |
| Open PDF In Browser | View PDF |
•
•
o
Disclaimer
Although this program was tested by its author prior to submission,
no warranty, express or implied, is made by the author, 1620 USERS
Group, or IB]\/f as to the accuracy and functioning of the program and
related program material and no responsibility is assumed by the
author, 1620 USERS Group, or IBM in connection therewith.
0
o
1620 USERS GROUP PROGRAM REVIEW AND EVALUATION
(fill out in typewriter or pencil, do not use ink)
Program No. _ _ _ _ _ _ __
Da~
______________
Program Name: ___________________________________________________________
1.
Does the abstract adequately describe what the proqram is and what
it does?
Comment
2.
Does the program do what the abstract says?
Comment
Yes_ No
3.
Is the Description clear, understandable, and adequate?
Comment
Yes_ No
"----------------------------------------------
4. " Are the Operating Instructions Wlderstandable and in sufficient detail? Yes_ No
Comment
Are the Sense Switch options adequately described (if applicable)?
Are the mnemonic labels identified or sufficiently understandable?
Comment
0
Yes_ No
Yes
- No-
50
Does the source program compile satisfactorily (if applicable)?
Comment
Yes
6.
Does the object program run satisfactorily?
Comment
Yes
7.
Number of test cases run
• Are any restrictions as to data,
size, range, etc. covered adequately in description?
Comment
Yes_ No
Does the Program Meet the minimal standards of the 1620 Users
Group?
.
Comment
Yes_No_
8.
-
No
-
No_
-
-
~--------------------------------------------
9.
Were all necessary parts of the program received?
Comment
Yes_No_
----------------------------------------------
10.
Please list on the back any suggestions to improve the usefulness of the program.
These will be passed onto the author for his consideration.
Please return to:
Mr. Richard L. Pratt
Data Corporation
7500 Old Xenia Pike
Dayton, Ohio 45432
•
Your Name
Company
Address .
User Group Code___
" ____________
THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED
TO PARTICIPATE IN" THIS EVALUATION.
,
I
11/09/64
o
o
o
-
•
o
o
PLOT
TABLE OF CONTENTS
SUBROUTINE
FOR THE IBM 1620 FORMAT FORTRAN
PROCESSOR
Page
Description of Subroutine • • • • • • • • • • • • • • • • •
Output • • • • • • • • • • • • • • • • • • • • • • • • • • •
Flow Chart • • • • •
• 3
Sample Problem ••
. 4
Program Listing • • • • • • • • • • • • • • • • • • • • • 17
I
Jesse H. Poore, Jr.
Computing Center
University of Kentucky
Lexington, Kentucky
March, 1962
Library Code 3,43
\
Modifications or revisions to this program, as they occur,
will be announced in the appropriate Catalog of Programs
for IBM Data Processing Systems. When such an announcement occurs, users should order a complete new program
from the Program Information Department.
,,
/1
I
, ,
III
In the listing of the source ·program, the statement labeled Ll and
the three following statements must be adjusted to agree with the subroutine number for various compiler decks.
PLOT
PLOT SUBROUTINE FOR FORMAT FORTRAN
Purpose:
This subroutine plots up to 9 curves simultaneously.
Storage Requirement:
Form of Statement:
Reminder: A functional subroutine must be preceded by some arithmetic
statement before it is called.
--
v = PLOT
where:
550 digits
(FLT)
V is a dummy variable name, which will be given the value FLT
PLOT is the call name of the functional subroutine
FLT is a floating point number which is the argument of the
subroutine
FLT must be scaled such that
1. < FLT < 80.
Description of Subroutine:
Only the integral part of FLT will be considered by this subroutine. The
first time PLOT is entered, the digit" 1" will be stored for punching in column
FLT of the card (integral part of FLT). The second time PLOT is entered the
digit "2" will be stored in column FLT of the card. If the argument of PLOT
should happen to be the same for two different curves, the digit representing
the latter. curve will be plotted.
This procedure is repeated until:
1) FLT is zero, in which case the card will be punched as arranged by
the previous entrances. A zero argument will clear the punch area
to blanks and ready the subroutine for the next set of points. A zero
argument may be the tenth entry, and is the only exception to the
following paragraph.
2) A tenth entry, which is forbidden except for zero argument is attempted.
In this event the message "PLOT" is typed to signal the operator that
an attempt at plotting 10 curves has been fruitlessly attempted. The
subroutine initializes and as a consequence of violating the restrictions,
the first nine curves are lost.
If the argument (FLT) is out of range, i. e. if FLT < 1. or if FLT > 80., the
argument is typed, the typewriter spaces once, and the entrance attempt number
is typed, which identifies the curve. The sequence of plots is not disrupted by
such an occurrence.
The output of the sample problems included herein was listed on an IBM
407 with an 80-80 control panel.
-1-
o
-2-
o
()
•
~
r
F"LOvV
o~
C f.-I A- r<- T
!
.
Z= 1.
W=.05
X=O.
Y=PLOT(SIN(Xl*39.+40.l
Y=PLOT(COS(Xl*39.+40.l
Y=PLOT(SIN(Xl/COS(Xl+l. l
Y=PLOT(LOG(Wl+4.l
Y=PLOT(EXP(Xl)
Y=PLOTCZ)
Y=PLOT«EXP(Xl-EXP(-X»/2.+1.)
Y=PLOT(Z**(6./5.)l
Y=PLOT(13.+.301*X+.99876*X*X+.0076899*X*X*X)
Y=PLOT(O.Ol
X=X+.03491
Z=Z+.5
W=W+l.
GO TO 1
STOP
END
clear
PtA r1G h arl
-to b J:z..,. 1<5
I
Set d..
te> 13v fl V\c...~i
1;D (b
~
TYPE~
~v..llve
,.v&.(.M~
,1
8
9
8
4
9
78 4
9
768 4
9
784
9
7 684
9
7
68
9
648
7
9
7
68
9
7
648
9
7
6 8
9
7
6
8
9
7
46
8
9
7
46
8 9
7
4 6
89
7
4 6
9
7
4
6
9
7
4
6
98
q 8
7
4
6
7
4
8
6
9
75
4
8
6 9
75
4
8
6 9
75
4
69
B
75
4
69
8
75
4
9
8
75
4
8
69
4
7
8
9
7
4
8
9
7
8
4
96
7
4
96
8
7
4
9 6
8
7
4
9 6
8
75
4
9
6
8
75
4
9
6
8
6
75
4
9
8
75
4
9
6
8
753
4
6
8
9
2
1
2
2
2
2
2
2
1
1
1
1
1
2
2
2
1
2
2
1
1
2
2
2
1
2
2
1
2
2
2
2
1 2
12
21
2 1
2
2
2
2
2
2
2
c[
2
2
2
2
2
1
1
--------- ---
753
4
9
6
8
2
75 3 4
9
6
8
2
75 3 4
9
6
8
2
7 5 34
9
8
2
6
7 5
43
9
6
8
2
75
4
3
9
8
2
6
75
4
9
82
6
75
4
2 8
9
3
6
75
4
2
8
9
6
75
4
9
6
3
2
8
754
9
8
3
6
2
7 5 43
9
6
2
8
7 534
8
9
6
2
735 4
9
6
2
8.
754
8
6
2
9
7
54
8
9
6
2
3 7 54
8
6 2
9
3 7 54
9
26
8
3
754
8
9
2 6
2
6
3
7
54
9
8
3
7
54
9
2
6
3
7
54
9
2
6
7
54
6
9
2
7
5
6
9 2
6
7
5
92
9
7
5
6
7
45
29
6
7
45
2
9
6
7
45
2
9
6
74529
6
7 4 529
6
7 4 52
9
6
745
9
6
7 4 25
9
6
7 42 5
9
6
74
5
6
9
74
5
6
9
6
274
5
9
6
274
5
9
2 7
6
5
9
6
9
2
7
5
6
2
7
5
9
6
9
2
7
5
6
9
2
47
5
6
9
2
47
5
6
9
2
47
5
6
9
247
5
6
9
2
4 7
5
6
5
9
247
61
247
5
9
6
247
5
9
6
5 9
247
6
59
247
6
59
347
1
6
59
347
6
1
9
347
6
95
347
6
95
1
7
3
4
6
9 5
1
7
3
4
6
5
9
7
3
4
6
9
51
7
32
4
6
15
7
9
32
4
6
5
7
91
32
4
6
5
7
9
.:3 2
4
6
19
5
7
324
6
5
7
9
324
324
3
2
4
'324
1
1.
324
3
24
3
4
1
1
7
4
4
4
3
3
3
4
4
4
31
31
1
3
3
8
8
8
1
1
1
1
2
2
1
8
1 8
5
5
5
5
5
5
3
1
65
6
5
6
6
9
9
2
7
9
7
2
9
2
7
9
2
2
2
3
3
3
7
13
3
3
1
3
3
3
3
1
7
9
7
6
7
7
2
6
6
7
2
7
6
2
9
9
9
7
6
2
7
2
6
6
7
2
7
2
7
6
2
2
2
6
6
2
2
6
6
2
9
2
9
6
6
2
9
2
6
6
2
9
9
9
22
2
9
9
2
9
9
2
2
9
b
6
6
2
9
1
6
6
2
9
1
7
6
6
2
9
9
1
7
6
2
9
1
7
6
2
9
4
6
7 6
2
9
9
9
4
6
6
7
9
9
4
4
14
4
41
4 1
4 1
4
1
4
1
4
o
6
7
9
9
4
4
4
4
4
5
6
6
2 9
29
92
92
9
9
9
4
5
7
3
4
5
7
4
1
5
6
6
9
2
3
5
6
6
7
9
9
9
2
5
6
6
297
4
4
4
4
4
4
4
4
4
3
6
6.
3 4
8
6
6
5
97
2
4
4
8
6
9
4
8
6
9
7
9
7 9
7 9
79
2
4
4
4
8
6
6
5
2
4
8
6
6
5
4
8
6
6
5
2
4
4
3
4
3
4
3
4
3
4
3 4
8
1
7
4
4
8
.1
7
1
41
4
6
5
9
9
9
9
2
14
6
5
9
7
21
12
1 2
1
8
7
4
1
8
1
7
3
6
5
179
1
3
5
9
2
1
8
7
4
1
8
1
3
3
3
8
9
42
4 2
3
3
3
8
1
3
3
's
o
7
719
7
9
2
2
9
9
2
9
9
2
2
o
•
4
4
4
3
3
4
4
4
4
4
4
4
4
4
4
3
4
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
4
4
4
4
2
2
9
9
9
9
9
3
3
3
3
3
3
3
3
3
9
9
9
9
9
9
9
9
1
1
9
9
3
3
3
3
3
3
2
2
9
9
1
9
9
1
2
2
2
2
2
2
2
2
2
1
1
1
1
1
1
2
2
9
9
1
4
4
4
4
4
4
4
4
4
4
2
4
2
4
2
4
2
4 2
42
42
4
24
2 4
2
4
2
2"
2
9
9
1
2
2
2
9
9
2
9
2
19
2
19
2
9 2
92
29
2 91
2
9
2
91
2
91
9 1
2
2
2
2
2
2
2
2
2
2
2
2
2
34
43
4
4
4
4
4
34
4
4
4
4
4
4
2
2
2
2
2
2
2
2
2
2
2
2
2
9
9
4
4
4
4
4
4
4
4
4
4
4
4'
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
3
3
3
3
2
2
2
4
3
3
3
3
3
3
3
3
3
0-
~
9
9
2
2
3
2
2
3
2
9
1
1
9
9
1
9
9
1
1
9
9
1
1
9
9
1
1
91
91
91
9
9
19
1 9
1 9
2
3
3
2
2
2
2
2
2
2
2
7
~
0
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1 2
~
~
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1
1
2
2
1
21
12
1
1
2
2
2
2
1
2
2
1
2
2
2
2
1
2
2
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
2
2
2
12
21
2
2
2
1
2
1
2
2
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
11
/9-
2
2
2
2
2
2
COMPUTER
TECHNOLOGY
2
2
2
1 2
2
12
2
2
2
2
21
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1
21
2
2
2
2
2
12
2
2
2
2
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
('J
2
Ii
2
2
o
2
2
2
2
2
o
0
~
~
0
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
I'
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1 2
12
2
2
2
2
2
2
2
2
/
2
2
2
{~
2
2
JIe
~''''':'''''':'''':~·_·····-_·····~·';'·L;:;';;':''''';';~';;'·'-;';·'':'';;~~·~~·
.
'.lIf.oII._..'U",'_
"
.....""" •...
-~~
.....
-.~~
....... ,-.-..
~
~"~----.--~--"
.. .....
,
-~.
J'
fORTRAN PLOT SUi3ROUT I ~JE
JORG 05000
START NOP L1 , ,0
..1.....9...
~~
;\
TF~1
L2
L3
TFH
TDH
J:.JJ
AM
L3+6~OUTPUT+l,017
";'\"+9,80,01 0
QUTPUT+l,,02
1 , ....."
Siv1
L3+6,1,010
L2+:9,1,010
3:~~
~3,
L5
UIGIT
12 05033 00001
START+l,9,O
TF
60,19809,11
SM
19809 2,.10
TF
58,19809,11
1:) ,J09 , 2 , 10
A>1
DIGIT,51,,0
3D
't/NCD QUTPUT+l"O
TFI':1 PLOT,,010
TDt·1 START+l,l,O
05060
05072
05084
05096
05108
05120
05132
05144
05156
05168
05180
15
26
12
26
11
43
05001 00009
00060 19809
19809 OOJOL
00058 1)809
83
05192
1~2
O.JJJJ 00000
05194
05206
05218
05230
05 :~L~2
-Jr-..,
;> 5 I,
J5266
0527B
05':90
05302
05314
05326
05338
05346
11 05202 00801
14 05202 00010
1+6 05434 01200
16 05'376 05427
14 00060 (lOOOl
r. ...
,0
DORG .."'~ - 9
AH
PLOT,1,010
Ctv1
L6
BE
TF; \
C!"1
3£
··f
,~)
..
C;··'l
G:l
CH
8:·\
A
..
;
~
u
PL T , ,0
, '),'TPU"
. iJ • I ,I.'017
60,1,10
);~£JI~"J
.:~u~ i1::j~: ~
l.
,J
60,2,10
i{.~\NG E, ,0
52,00,10
RAI-lGE, ,0
'4+'(0 J 5't. ~ a
L.
L4, , ()
DORG ''(-3
;1--+23,51,0
ONEOIG TD
L4+6, ,010
SI"1
L4
TO
~PLOT,l
RANGE
"':--9
61. ,401
51
8
"47
1l~
46
14
"46
21
1+9
J53'-h~)
0538l~
J12 )0
01300
00060 00002
05384
00052
05384
05376
05370
01100
0
000'80
01100
00052
00000
0538L~
PLOT"O
GORG -1:--9
V/ATY PL TX, ~ 0
PUTOUT DS
OUTPUT PS
PLOT
OS
DC
PLTX
DAC
DEND
END OF PASSII
+J
05384 25 00061 00401
05396 38 00051 00100
05400 3L~ 00000 00101
05420 ',38 05202 00100
05L~32 42 00000 00000
05 L:·34
05434 39 0553:) 00100
054 Ll-6 49 05168 00000
05537 00080
05457 aqool
05202 00002
05203 00001
05539 00005X2 PLOT
00000
BS
PLT
','
l;)aO;J 00002
05194 00051
38 05458 00400
16 05202 00000
15 05001 OO:JJ 1
053 1+6 25 05369 OOO~l
05358 12 05376 00000
05370 25 00000 05202
053HZ 42 00000 00.000
BS
DORG
TD
\'INTY
SPTY
VJNTY
~7 05036 01200
0519L~
PLOT,10~010
i 1·
c
L.
·~+o
0
(j)
J5··)l;.] ~)JOJ 1
050J~8 11 05042 00001
·(Ui·l
Ll
05000
05000 41 05096 OOOOG
'05012 1'6 050L~2 o545b
0502 Ll- 16 05033 OJoEo
05036 15 051~-58 OOJOJ
L5 ~ ,0
80
1,PUTOUT-80
2,DIGIT+8
1,@,DIGIT+9
5,PLOT
*
11
.~--.-.~.~
...... ..
.•..-
"
0
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Create Date : 2014:03:13 11:56:02-08:00 Modify Date : 2014:03:13 12:12:23-08:00 Metadata Date : 2014:03:13 12:12:23-08:00 Producer : Adobe Acrobat 9.55 Paper Capture Plug-in Format : application/pdf Document ID : uuid:b7b5a92d-f85e-9746-af5f-8f06155aff54 Instance ID : uuid:47d3df3f-2aa9-e148-b1f8-fb1fa6750d95 Page Layout : SinglePage Page Mode : UseNone Page Count : 14EXIF Metadata provided by EXIF.tools