File STU2.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

3CRI3ROU3KV 3IWN7SN 3T;U3D;E3PGL7NOE2MNJ"M&J3D7I7EON3I;O6 SS/DF(*22)3A?M.1F(*22)3A?M.2F(*22)3A	D.1F(*22)3A	D.2F("26)2JRI3IWM3N	S+OCN3A	M.1F(*22)3A	M.2F(*22)3A?D.1F(*22)3A?D.2F(*22)7AKF.1F("26)2JRI3IWM3N	S+OCN7AKF.2F(*22)3AGS.1F(*22)3AGS.2F("26)6J^I7RSI/EF
*,&1.MFJ2I?F3RGM+T^(*?&	"M&J3RGE/DF(.,V822.)O7D.JV822ZI3O7R+AT*	^.+I&2"M&J+IF3KSO.-^2.)J2.3",.,J2"3*M68JI3ESA*(2122&)J7K"J&27FKO7MSA2(Z	7UKE2 	W3E	V3EWL6 SS3USN+ECN3W3O3L;E2 	S3EV 3I
N3EWB/N> .	KI")*M27&I3F&(+J7K*1&2.3N3*,23"3*M63^I7RSI/EF(*,&5.MVJ2I?F3RGM+T^(3HV * CY*!B!2 J 7IST3E: 3IC7TN 3O" 7ACP+ICG*!>	")*M2IWR+AD.1Z,2)+IK*M26ZI3O7R+AT2	GN6,^ 7I[E3I3E* B?2 &	"26)2J^I3O?T" 67.JN323RI/OF 20. *=213I/J"M&J3RGE/DF(.,F26)SS3D.(")*M"2&17F
O7MSA6(N	3T;U+DCE*?B * ^ +I&2"M&J3RGE/DF(.,J22)7A+O"1+K2)3A?M22.(")*M"2&27FKO7MSA2(6	7OSN+ACG*?B 2 F	26F,"36)6JJI3ESA*(21*2&33A	D21.(2)F,/DKI*(	K.MJJ23ZI3O7R+AT2		D7EON3T
A* B?* ^ +A26+A&3"M&J3RGE/DF(.,R22)7A+I"1+K2)3A	M22.(")*M"2&47FKO7MSA2(6	7IST3WOO/H> * ^ +A26+A&3"M&J3RGE/DF(.,V22)SA+O"1+K2)3A?D22.(")*M"2&57FKO7MSA2(R	3O;N7EOR3T
A* B?* ^ +A26+A&3"M&J3RGE/DF(.,Z22)[A+R"1+K2)7AKF22.(")*M"2&67FKO7MSA2(Z	3R	E3T
A* B?* ^ +A26+A&3"M&J3RGE/DF(.,^26)OA+A"1+K2)3AGS22.(")*M"2&77FKO7MSA6(N	7AOM3T
A* B?* ^ +A26+A&3.MFJ20NI7OSN7IWNE*M2IWR+AD.1V,21&).MVJ21ZI3O7R+AT2		W3E> +FCT3S3O3LR +ECR7SWT3NWD3N3P+ACN3GSE3ROU+KCT7WKE3D;E* B?2 &	"16)"J7C"J	C3B
E3I;N2 WD7SN 3T;U3D;E3PGL7NKD3U/CE7S"J7C2JRI/OF *0B0/LF=",7I6J^I7RSI/EF(.,F3")*M"3&17FKO7MSA*(>/*/>/./J/*83X6	SS3USN7ECN3L;A6 WF+ECR. F1*.^2./^2/XJ,*4^(*=&	*/>/*8"0*	^*")6)6J^I7RSI/EF(.,J3")*M"3&27FKO7MSA*(*	.	Z,+X^,**2	.6F(*13X*	^**)^/6*N +TCD* B*2 ?M3NG
+GB * B*3DWI7NSS+ACG* ^*",*M*I^12 	M7T
T3OC* * 2 ?D3NWN7RSS*.* 2 Z 3R	E3T
A* * 6 N 7AOM3T
A* * *	^/**2	*63X*	^*",*M.IZ2.(F1+X^,**&	./",*0^(**&	*/^,**2	*63X*	^**,"661"1*,*	*	&)"M&J+DCO.1B020. *=213I/J"M&J3W	R+TE.1R,61N)+TD+K2)3A?M21.(2)F,/MKO*(	K2,SA+I"1+K2)3A	D22.(2)F,/MGI*(	K2,7A+I"2+K2)"M&J3W	R+TE.1R,22F)/DGO*(	K2,SA+O"2+K2)7AKF21.(2)F,/FKR*
	K6,OA+A"1+K2)3AGS22.(")*M"4&17FKO7MSA*(*	* ^ +I^2* * * 2	+A26+A23*	* * 2	+A26+A23*	* * 2	+A26+A&3.MRJ22ZI3O7R+AT*	* * 2	+A26+A23*	* * 2	+A26+A23*	* * 2	+A26+A23*	* *	^/**2	*63X*	^*",*M.IZ1.(F1+X^,**&	")*M.1B020NI7OSN7IWNE*M6IKW3IWT*(21*4&3.MRJ23ZI3O7R+AT
8"0*	^**)>/*/>/*/>/")*M.1B02I?C3N	T3NWU"M&J3RGE/DF(.,J123&)7ASN.MFJ"2&37FKO7MSA2(:	3OC2 	E3NGM/L> *(CJ3OWD3R: 2)F	"16).JZ626&I3F&(7ASN.-^6.2J)*222.8J,"262.JJ222&I3F&(7ASN.-J9.8N)*222.2N2.,J3"2*M.3J22IWR+AD.1V,*5&53I;AT*M.5V52I?F3RGM+T^(7BSI+TCE7ASN7WKO3T;
2 	S3E6 +ICT*"KJ2 SO+ECR*"KN*!^ +A&1"M&J7GSO/OZ "666.JJ263NI7TCO"M&J3ESN"M2JBZ

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search