File DIW.FT (FORTRAN source file)

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

7CR 3E3I3P?R3GGR+MCM7D
I2 ?V3N" 7DKGM*M7CN 3U7M3EN7AWE3F
I3K	E3T& 7M^ 7AKH3SC3E;I3LOI3H	K3T;S7E+T2MNJ2 ?F7RKT+ACN+ICI2/> 3P	T+OCN*(	I2MNJ6 KS* B:6 KE3AWS2.KS* B/7ACL+H;A+SCB6/R 3P?L7TN.+B> 2 	F7GKU6.SF2MNJ6 KS* B:3V/E7TKO6.SF* B/2 3W+I;N+FCT*/B 3W?L3GZ.+T> 6 SS3E;R6.SF* B/7LWQ+A;DF7T*JCC+SCR*:B 3DWR+C;K+FCT6/B 
U/N3TZ.+T> 6 KK7EOI6.SF2MNJ2 GD* B:6 V 3G	F2.GD* B/2 3W+I;N+DCA*/B 3W?L3GR.+A> 2 WT3MR.A*M3CN /H* 6 KM+V;AS7V2JRI3IWM3N	S+OCN3U[G/IV(.0F,*02)+EF"56)2JNI3A3L2 ?I3P;E6(N	+Y
S6,V	3G	F"	6)6JJI3ESA*(24.1B0*)"(3U[G3I&(*,	J.,7J.1F,*02)/IF=.,B5")*M.1B02I?F3RGM3TF("66)2JNI3A3L2 ?I3P;E6(B	*12	2	WT+M&	"M&J3RGE/DR(.,B1212)3I?L2,3K6,[N2,SI3EGK.MFJ"0&17FKO7MSA.(KA")*M2IWR+AD.4F,*0&03D7I6,WG2,?G2,WB+Z",+EF+I2)/IF=6,[N")*M2IGC+LCL3EGRS7E2
^I3O?T*(22*32)3L3IO*M22ZI/K7T2(?G6-WG.)F/"06.2J^I3O?T" 64"J&37FSK6=WG.MRJ6IKW3IWT*(21.1J02)V(3F&(2)&,*=21+N	V.MFJ"0&27FKO7MSA6(B	3A7R+TCR*:^ *,"5+A26.	6 * B * ^ ")6)2JNI3A3L6 CT7LSO*(20.0^,*6&7"M&J3C3A3LF 3LPA*M6IKW3IWT*(21.1N02)WB3ZZ,+K3T3D7I.MFJ"0&37FKO
MSA*(^/2 3B7AST* B:2	F,.6^,+X^,3SGK3L;E3F/A7TKO* B:2	V,*1:0.2R,X6,.JFI2		D3M;E3S?I/N* * 2	+A&6"M&J/I7X.2B6"M&J+DCO26& *=21N7V2JNI3A3L2 	F7GKU*(3I+I3X.7V7")*M26&I3X&=/XF+"8632JNI3A3L2 3A3PGH"M&J+DCO*3B0/JF=6,[N"M&J/M7M"-612J&I/Y61"5602J&I/X61"8602JRI/OJ 25
 /KF=2,3K"M&J3RGE/DR(.,B160B)7R+O"M&J/I7X*8:0.+&(*0:02/3F7OSA2(3K*)*)2(3F7OSA2(/I*):-"56)2J&I7FB(7R+O.-F..)^4.,^4.,Z4.MRJ26&I7FB(7R+O.-&9*.&9*429*429"468.J^46I	I.=B5"M&J7GSO/OZ "1*M"4&8/I7Y.7V2"M&J7GSO/OZ "1*M"4&9+IF3P?R/ZV-*0&.*620*520"565.JB56I	I.="3"8*
2I?G+TCO"661.JV56IKP/O7Z3P?R/ZR-.8&."9*M.I7F"16..JZ5.IGI6=KPO7Z2J&I.2F=*0*.6(KP+O7Z3F?L+AT+I&1.)F+..F1"M&J7F	I2=
U+FI+I21+I&2"M&J/I7Y.3^8*..5+F"*7F	I.*N3.7V..)N/..&0.0F3"M2J2I?G+TCO"661.JB66IKP/O7Z*5:1*0613P?RZ*M.I7F*-:1"M&J7GSO/OV "6*M"6&1/IKX6=I"1*M6I	I22&=Y612J&I/X61I7X2J&I/Y61I7Y2J&I7FB(7R+O*-:0.1J).5J,.5F,"1*M"1&1+IF3P?R/Z&-.9&..)J1.,B2.,B2.MFJ22NI3A3L2 	F7GKU*
3J/IGX6,	I"16)2J&I3F6(/MF).3F,.5F,"5*M"1&3+IF+I7K.1F).7F,.7F,"4*M"1&43C3A3LZ 7IWG3R*(6,I22&,+Y&2.MFJ25NI3A3L2 WV3K?T3R&(+X21/IGY6,I22&,+Y&2.MFJ276I3M6=/MF+"M&J7GSO/OJ "5*M"2&03C3A3LZ 7IWG3R*(6,I21&,+Y&1"M&J3C3A3LZ 7IWG3R*(6,I22&,+Y&2"M&J3C3A7LZ 7ESK+OR/IG
6,	I21&,+X22/IKY")*M2I/I21&=/KF+"M&J3RGE/DR(.,B1*0")3P?R3Z&,3K&=+K21+K	L"M&J7GSO/ON "0*M"2&53C;O3T;IU7E.JB32I?C3N	T3NWU"M&J7GSO/ON(.1N,*22)3L3IO*M"3&13C3A7L^ 3L;I"M&J3C3A7LR 3P?L/TB(.,V6.,V2")*M2IGC+LCL7ACLH7A6J^I7RSI/EF(.,F120^)3U^,O*M.1B12I?F3RGM+T^(2 /
3AWL3N;A3F;A/G* 2 V	*1:0.2F,*9
X3SGK3L;E3ESN/E* 2 V	*1:0"26)2J^I3O?T. V3.MNJ22NI3A3L2 3W+OG3IWD+K	A.MNJ65BI7AOUE*M2IGC+LCL3EGRS7E2JNI3A3L2 C3A;I2(6	3RGV"	6)2JVIN7D&J*L

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