f2r TAPE 126-269-103 WALSH PLOT PROGRAM
base 10
0|mj0,b
|USE FLEXOWRITER TO OBTAIN AN INITIAL AND FINAL COMPUTER FRAME NUMBER
4|d11,efd92	tpd90,j13	qtd80,d21	er1,a	j13,ejd81,d14	ejd81+1,d11+2	d12,rp2,12,d11+3	ejd81,d12+2	qtd81+1,d23
mpd21,d80+10	atd23,d21	mjd11+3	d14,tpd21,d74	rjj13,d11+2	tpd21,e83
rjj13,d11+2	tpd21,d93
|SET MEANING TO FUNCTION BUTTONS
d57,efd92+2	er1,q	lqq,9	qtd80+7,j12	laj12,15	atd78,j26
|SET MASK FOR FUNCTION BUTTONS
raj12,d91+2	j12,tpe11+,d72
|CLEAR MEMORY OF FUNCTIONS STARTED AND FUNCTIONS THAT OVERFLOWED
tpd80,d83+1
|READ FUNCTION BUTTONS
d20,efd92+1	er1,q
|MASK FUNCTION BUTTONS
qtd72,d72+1	tve80+5,e23+5	rp1,4,e23	tpd80,e82	e23,tpe83,d75	tpd74,d74+3	tpd93,d87
tvd75+1,d47+2	tpd72+1,a
to|TEST FOR COMPLETED PLOT
zje24,d34
|FIND FUNCTIONS POSITION
e24,sfa,e25
|BRING RECORD OF FUNCTION STARTED UP TO DATE
e25,spd72+2,0	tpa,d78+1	ccd72+1,d78+1
|FIND FUNCTION NUMBER
tpe25,a	ssd90+1,15
|FIND POSITION OF FUNCTION PARAMETERS
j26,atd76,j21
|BRING IN FUNCTION PARAMETERS
j21,tpd76+,a	ate80,a	tua,e27	laa,15	tua,e27+1	sje27-2,e27-1	rae27+1,d80+2	rje27-1,e27	e27,rp0,0,e27+2
tpb,d82+2	sje61,e28
|BREAK DOWN FIRST REGISTER OF PARAMETERS FOR
e28,tpd82+2,q
|ADDRESS OF COMPUTER FRAME ZERO
qtd72+5,d82+2
|NUMBER OF REGISTERS BETWEEN SUCCESSIVE POINTS OF A FUNCTION
qtd72+6,e12	tpa,d82+1
|SET FOR + OR - FUNCTION PLOT
qte80+1,a	atd90+4,d90+3	e60,rje60,e60+1
|LOCATION OF THE X-AXIS FOR GRAPH
lqq,3	qtd80+7,d82
|DOES THIS FUNCTION HAVE OPTIONAL AXIS
tjd80+7,e28	rse29,d80+6
|LOCATION OF X-AXIS FOR TRANSLATION OF POINTS
e30,mpd82,d73	std71,d77+2
|FIND + or - 10 N FOR LABEL
mpd82,d80+10	tna,d93+1	rjd15-1,d15
|READ PANEL
d15,efd92+1	er1,q
|IS OVERFLOW WANTED
lqq,4	qjd60,d60+2	d60,tpd90+6,d35-1	mjd60+3	tpd90+5,d35-1
|SHIFT AND MASK FOR NUMBER OF FRAMES BETWEEN SUCCESSIVE POINTS
lqq,19
qtd80+7,d21
|TEST LEGALITY
tjd80+4,d16+1
|ALARM-NUMBER OF FRAMES BETWEEN SUCCESSIVE POINTS TOO LARGE
d16,ms0,d16,d15
|STORE FOR USE
tva,d18+1	tva,d18+4	tpd72+4,a	std21,a	tva,d24+7	tva,d38
|SHIFT AND MASK FOR VARIATION IN X CO-ORDINATES
lqq,6	qtd80+7,d19
|TEST LEGALITY
tjd80+3,d17+1
|ALARM-ILLEGAL NUMBER OF POINTS PER FRAME OF FILM
d17,ms0,d17,d15
|STORE FOR USE
atd21,a	tva,d18
|SET NUMBER OF DATA FRAMES PER FRAME OF FILM
tpd77,d21	d18,lad21,0
|SET NUMBER OF REGISTERS BETWEEN SUCCESSIVE POINTS ON FILM
d18+1,lad82+1,0	atd80+1,d82+1
|SET NUMBER OF DATA FRAMES BETWEEN SUCCESSIVE POINTS ON FILM
tpd80+1,d87+2	lad87+2,0
|SET DELTA X
tnd19,a	atd91+1,j19	j19,lad77+1,a+72	tna,d70+2
|SET |DELTA X|
tma,d70+3
|SHIFT AND MASK FOR VARIATION IN Y CO-ORDINATE
lqq,6	qtd80+7,d19
|SET |k| FOR VERTICAL UNITS
atd90+2,j23	tpd80+1,d87+3	j23,lad87+3,0
|MASK TO DETERMINE IF Y CO-ORDINATES ARE TO BE STRETCHED OR SHRUNK
qtd80+8,a	zjd22,d22+2
|Y CO-ORDINATE TO BE SHRUNK
d22,tnd19,d19
tnd87+3,d87+3	rjd22+2,d22+3
|SET CONVERSION FACTOR FOR TRANSLATION OF POINTS
sfd82+3,d73+1	tpa,d23	spd80+5,66	dvd23,d23	tnd73+1,a	atd74+1,a	atd19,d74+2
|SET FIRST COMPUTER FRAME FOR PLOT OF FUNCTION
d24,tpd87+2,a	std80+1,a	tna,q
|FIND THE NUMBER OF POINTS ON FRAME OF FILM AND INITIAL POINT ON X-AXIS
qtd87,a	rsa,d21	sjd24+6,d24+4	tna,d13	laa,72-
tna,d74+4	mpa,d70+3	atd71,d73+3
|SET COUNTER MEMORY AND FINAL FRAME NUMBER OF GRAPH
tpd75,a	std74+3,a	tjd13,d38-1	mjd38+2	tpa,d13	d38,laa,72-
tpa,d74+4	tpd74+4,d87+1	rad87+1,d87
|FIND DRUM ADDRESS OF FIRST POINT
tpd90+3,j25	spd82+2,15	mae12,d74+3	tua,j25
|SET COUNTER
tpd74+4,d19
|BRING IN POINTS
j25,tp0,d95	raj25,d82+1	ijd19,j25
|OPTIONAL AXIS SECTION
e29,mje29+7	tpd95,a	sje29+4,e29+3	rsd82,d80+2	rsd82,d80+4	rje30+4,e30	rje29,e29+7
|SET UP FOR TRANSLATION OF POINTS
tud90+4,d61	tvd90+4,d28
|SET COUNTER
tpd74+4,d19
|TRANSLATE POINTS
|SCALE FACTOR POINT AND STORE IN Q
d61,sfd95,d73+1	tpa,q
|FIND THE NUMBER OF SHIFTS NECESSARY FOR TRANSLATION
tpd74+2,a	atd73+1,a
|ARE THE NUMBER OF SHIFTS LESS THAN 36 -=YES, POINT=ZERO
tjd72+3,d33
|ARE THE NUMBER OF SHIFTS GREATER THAN 72 +=YES, POINT=Yn
tjd72+4,d26
|SET POINT =+ or -Ym
d62,qjd62+1,d62+3	tnd71+3,d25	mjd28	tmd71+3,d25	mjd28
|SET POINT =ZERO
d33,tpd80,a	mjd27+1
|SET TO SHIFT POINT
d26,tva,d27
|MULTIPLY SCALE FACTORED POINT TIMES CONVERSION FACTOR
mpq,d23	laa,36	tpa,a
|SHIFT POINT
d27,laa,0	tpa,a
|ADD POSITION OF THE AXIS
atd77+2,d25
|TEST IF POINT IS GREATER THAN MAXIMUM OR MINIMUM ALLOWED
tma,a	tjd71+3,d28	mjd62
|STORE POINT
d28,tpd25,d95
|INDEX REFERENCES TO THE POINT
rad28,d80+1	rad61,d72+7
|ARE ALL POINTS OF THIS PLOT TRANSLATED
ijd19,d61	rje31-2,e31	mje31
|SET UP FOR OVERFLOW
e31,ip19,e3+1	tpd49,d31+4	tpd80,d89	tpd80,d89+1		tpd89+4,d42+1	tpd93+1,d93+2	tpd93+1,d93+3
tvd90+7,d86	tvd90+7,d86+1
|SET TO DRAW GRID ETC.
spd93+1,15	atd82,e54
|READ MIV 1
d49,efd92+1	er1,q	lqq,4
|Is Film to be Indexed
qjd49+4,d49+8	efd92+6	tvd80+9,d92+4	tvd80+12,d92+3
mjd56-2	tvd80+1,d92+4	tvd80+4,d92+3	tpe54,a	rjd56-1,d56
|JUMP TO SUBROUTINE THAT DRAWS GRID ECT.
d56,rjd59,d58

|SET UP TO PLOT POINTS
tpd74+4,d19	tud90+4,d31+3	tpd91,d29
tpd73+3,d73+2
|Plot Points and Draw Vectors
rjd46,d31
|Index reference to Yn+1
rad31+3,d72+7
|Is The Graph Complete
ijd19,d31
|Is the graph to be Repeated
e53,efd92+5	er1,q	lqq,2	qje52,e50	e50,qje16,e50+1	ccd83,q	laa,1	tpa,a	sje51,e51+1	e51,qje51+2,e51+3
qje51+4,e51+2	rae52,d80+1	rae52,d80+1	rae52,d80+1	e52,rje52,e52+1	mjd49+4	ip18,e23	mjd56-3
|Is there Any Positive Y Overflow to be plotted
tpd89,a	zjd67,d69-2
|Is there Any Negative Y Overflow to be Plotted
tpd89+1,a	zjd68,d69
|Increase Initial Frame number by Number of Points Plotted
d69,rad87,d13	rad74+3,d13	atd87+2,a
|Is the Function Complete
tjd75,e16+1	ip18,e23
|Positive Y Overflow
d67,rad86,d80+1	tpa,d31+4	tpd80,d89	tud42+3,d42+1	tvd89+4,d42+1	rad93+2,d77	laa,15	atd80+5,e54	mjd49
|Negative Y Overflow
d68,rad86+1,d80+1	tpa,d31+4	tvd42+3,d42+1	tud89+4,d42+1	tpd80,d89+1	rsd93+3,d77	mjd67+6
|set Xn
d31,tpd73+2,d70
|Index x-co-ordinate
rad73+2,d70+3
|Set Yn
tpd25,d79
|Pick up Yn+1
tpd95,d79+1
|Register for Positive and Negative Overflow
rad79+1,d80
|Set Yn=Yn+1 and Xn+1=Xn for the first point
d29,mjd29+1	rsd73+2,d70+3	tpd79+1,d79	rjd29,d29+4
|Set Xn+1
d29+4,tpd73+2,d70+1
|Set DELTA Y
tpd79,a	std79+1,d79+2
|Set |DELTA Y|
tma,d79+3
|Save Yn+1 for the next Point
tpd79+1,d25
||Yn+1| Greater than Ym
tmd79+1,a	std78+2,q	sjd35,d64
||Xn+1| Greater than Xm
d35,tmd70+1,a	std78+2,q	sjd35+3,d41
|Plot Point
d35+3,efd92+4	rjd47+5,d47+1
||Yn Greater than Ym
d36,tmd79,a	tjd78+2,d40+2
|Find a x-intercept from + or-Ym
tpd79,a	rjd54,d53
||x-intercept| Greater than Xm
sjd40,d45
|Indicate the direction of y Overflow
d42,tpd79+1,a	sjd42+2,d42+4	rad89+1,d80+1	mj0,d42+5,d42+5	rad89,d80+1
||Yn+1|-Ym Greater than |DELTA Y|
rsq,d79+3	sjd43,d46
|Find a X-intercept from + or-Ym
d43,tpd79+1,a	rjd54,d53
|Is the |X-intercept| Greater than Xm
sjd40,d44
||Xn+1| Greater than Xm
d44,tpd70+1,a	std78+2,q	sjd46,d41
|Indicate Direction of X overflow
d41,tpd70+1,a	sjd41+2,d41+4	rad89+2,d80+1	mj0,d41+5,d41+5	rad89+3,d80+1
||Xn+1| -Xm Greater than |DELTA X|
rsq,d70+3	sjd39,d46
|Find a Y-intercept From + or - Xm
d39,tpd70+1,a	rjd54,d55
||Y-intercept| Greater than Ym
sjd40,d46
|Set + or-Xm or Ym and X or Y intercept = Xn+1 and Yn+1
d40,tpd84,d70+1	tpd84+1,d79+1
||Xn| Greater than Xm
tmd70,a	tjd78+2,d37
|Find a Y-intercept from + or-Ym
tpd70,a	rjd54,d55
||Y-intercept| Greater than Ym
sjd45,d36+2
|Set + or - Xm or Ym and the X or Y intercept = Xn and Yn
d45,tpd84,d70	tpd84+1,d79
|Set Xn-Xn+1 = DELTA X1
d37,rsd70,d70+1
|Set |DELTA X1|
tma,d79+2
|Set Yn-Yn+1 = DELTA Y1
rsd79,d79+1
|Set |DELTA Y1|
tma,a
|Is |DELTA Y1| Greater than |DELTA X1|. Set the lager = DELTA
tjd79+2,d65	mjd65+1
|SET |DELTA X1| = DELTA
d65,tpd79+2,a
|Is DELTA Greater than Xv
tjd85,d66-1
|Find DELTA + Xv / Xv
atd85,a	dvd85,d79+3
|Find DELTA X11
tpd70,a	dvd79+3,d70
|Find DELTA Y11
tpd79,a	dvd79+3,d79	mjd66	tpd80+1,d79+3
|Set TO DRAW A VECTOR OF LENGTH (DELTA X11, DELTA Y11)
d66,efd92+3	tpd75+3,q	tpd70,a	sje20,e20+1	e20,cca,d85	qta,d75+4	lad75+4,15	tpd79,a	sje21,e21+1
e21,cca,d85	qta,a	atd75+4,d75+4	lqd75+4,35	ccd75+4,d77+3
||DELTA X1| Greater than or = (n+1) |DELTA X11|
d52,ijd79+3,d47	d46,mjb
|DRAW Vector from (Xn+1, Yn+1)
d47,ew1,d75+4	lad70+1,15+a	ate84,a	atd79+1,d75+2	ew1,d75+2	rjd47+5,d47+6
|Set Xn+1 = Xn+1 + n(DELTA X11). Yn+1 = Yn+1+n (DELTA Y11)
rad70+1,d70	rad79+1,d79	mjd52
|Find a X-intercept
d53,sjd53+1,d53+3	tnd71,a	mjd53+4	tpd71,a	tpa,d84+1	std79+1,a	mpa,d79+2	dvd70+2,a
atd70+1,d84	tjd70,e14+1	tjd70+1,e14+2	e14,mjd46	tjd70+1,d46	tma,a	std71,a	d54,mjb
|Find a Y-intercept
d55,sjd55+1,d55+3	tnd71,a	mjd55+4	tpd71,a	tpa,d84	std70+1,a	mpa,d70+2	dvd79+2,a	atd79+1,d84+1	tjd79,e15
tjd79+1,e14+2	mjd46	e15,tjd79+1,d46	mje14+2
|Remember the function that Overflowed
d64,ccd83+1,d78+1	rjd35-1,d64+2	mjd42+5
|WAS TRERE ANY OVERFLOW NOT PLOTTED
d34,tpd83+1,a	zjd34+2,e17+1	tpd83+1,d83+2	tpd83+3,d20+1	ms0,d34+4,d20-2
|GET INITIAL AND FINAL COMPUTER FRAME NUMBERS AND INITIAL FRAME NUMBER FROM DRUM
d48,tpb,d74	tpb, d75	tpb,d93	tpb,a	mjd57+3
|MULPIPLE PLOT
e61,lqq,6	qtd80+7,d82	tpd78+1,e81+2	rje30+4,e30	tve73+1,e45+1	tve80+3,e23+5	tve80+4,e44-3
tpd72+1,e81	tpd82+2,e81+1	e63,tve80+2,e62	tpe81+1,d72+1	e64,rjd22+2,d15	rjd56-1,d49	rje27-1,e23+4
tue80+2,e27	rje60,e27	rje31-1,d22+3	e62,tpd82+4,e82	rae62,d80+1	e40,tpd80,d79	tvd90+4,e43
tud90+4,e41+1	tpd74+4,d19	tpd73+3,d70+1	e41,efd92+4	tpd95,d25	tmd25,a	tjd78+2,e42	mje44
ccd83+1,e81+2	rje44-3,e44	e44,rad70+1,d70+3	rae41+1,d72+7	ijd19,e41+1	rad47+2,d72+7	spd80+3,12
sad79,15	tua,e45	e45,rp0,0,e46	tpd95,b	e46,rae45+1,d79	ip18,e64+1	e42,rjd47+5,d47+1	e43,tpd75+2,d95
omrad79,d80+1	rae43,d80+1	mje44	e48,ip19,e48+1	tpe54,a	rjd59,d58	rje52,e53	mje70	mje72	mje71
rad87,d13	rad74+3,d13	atd87+2,a	tjd75,e63	e72,tpe81,d72+1	ip18,e23-3	e70,rjd56-1,d49+4
mje71+1	e71,rjd56-1,d49+8	efd92+4	tpe45+1,q	qte83,a	laa,15	ate83+1,e73	e73,rp0,0,e48+1	ew1,31744
e16,ip18,d57	ip18,e63
|TEST END OF PLOT
e17,efd92+6	efd92+4	rp1,8,e17+4	ew1,e18	efd92+5	er1,q	lqq,3	qje19+1,e19	e19,qjd57,e17+1	efd92+7
ms0,e19+2,e19+2
|CONSTANTS AND STORAGE
d70,+0	+0	+0	+0
d71,+400	+1200	+2000	+2800	+800	+1600	+2400	+3200
d72,+0	+0	+1.234	+36	+72	+32767	+63.215	+1.215
d73,+200	+0	+0	+0	+0
d74,+0	+44	+0	+0	+0
d75,+0	e84
+0	+254	+0
d76,tpi10,a	tpi11,a	tpi12,a	tpi13,a	tpi14,a	tpi15,a	tpi16,a	tpi17,a
e11,+511	+2047	+4095	+16383	+4194303	+16383	+2047	+15
omd77,+40	+20	+0	ad64,64
d78,atd76,d21	+0	+401
d79,+0	+0	+0	+0
d80,+0	+1	+2	+3	+4	+5	+6	+7	+8	+9	+10	+11	+12
d81,+37	+63	+27	+48	+58	+54	+50	+52	+56	+60	+42	+31
d82,+0	+0	+0	+0
d88,+0	+0	+0	+0	+0	+0	+0	+0	+0
d83,+0	+0	+0	tpd83+2,q
d84,+0	+0
d85,+126
d86,rsd79+1,d71+3	rad79+1,d71+3
d87,+0	+0	+0	+0
d89,+0	+0	+0	+0	sjd42+2,d42+4
d90,ejd81-1,d14	spd72+2,38	lad87+3,0	+0	tpd95,d95	sjd35,d64	sjd35,d42	rad79,d71+3
d91,mjd29+1	lad77+1,a+72	tpe11,d72
d92,ada,64	ada,1024	ada,512	ada,4	ada,1	ada,256	ada,32
d93,+0	+0	+0	+0
tm
84e,0,3pr	3201+,38e
0+	0+	0+	0+,28e
0+	0+	0+,18e
43d	2-44e	84e	28e,3+bda	032=2	722=3(08E
0/(45ED13(/0	E12(/0	E26(/0	D21(/0	D19(/0	D23(/0	D25(/0
BASE 8
E84(430100001000	560100001000	630100001000	620100001000
D95(/0
D95/237_E13(/0
E18(710072000740
330074000740
240076000740
660100000740
500104000740
300106000740
720110000740
660112000740
D/1_RP3(D95-D11(D11	TPD11(73100
RP3(D95-D11(D11	TP73100(D11
START AT D/1
V