File PFMPR.FT (FORTRAN source file)

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

+CB * **3P?R3GGR7MR 3ON 3AOL3UGL+TCE6%Z 3IGT3LN 3AGP7CSIY*M3CFI3T6 3A	X3M7U2 3C3OWS2 S7UST+ECR3PWR7SWS+R;E2MNJ2MNJ2I?L7CSA+ECS3TWH2 KA3S3O3UWT2 ?V3L7U3E6 3I	N3M7U2,F N7D"J	C3TWH2 ?F3L?L3W;I3GF 3B?S7LSU3E6 3A	X3M7U2 ;A3DF 3B?S7LSUE*M3C6I3I	N3M7U6 KP7EOS3UW
2,F +NCD3TWH2 ?C3RWR3S?P3N	DN7G"J	C3V3O3UWM2 WR3A	D7NOG".*MC*MC*M3CJI3LOO3KR 3AGT2 ;I2 	F+LCE3RKK60B:/FZ6*0:5D7T"J7C"J	C3C3A+LCS3SKU7RWO3T;I+ECS7MSC7RON2.3R2,;A7DB 7FKT+N;SR7A"J7C"J	C7FKI+SCT.2B62 ?W7ROD2 [O2 T3EN 3O7M+OCN3B?L/C+K" *M7CZI7OWL+M3E3F?L7WB,7
OE7SKU7EZ,*,3Q+P:.*.:..1Z365B 3AGR7MSE7EOR".*MC*M3CZI3IWL2 GN+M+E2 [P3SOV6.OA"M&J3C7O3M;O* A.4F12)R,.(B92)6,7AWN2,3BN7O2JRI3IWM3N	S+OCN3L;I.(Z5")*M61^I7RSI/ER(.,&9")*M"9&97FKO7MSA*(B	3N7A+EB * B 2 R 7ESP+HB 7GOA* B * B 7DSA+E&	"M&J3RGE/DR(.,"92)	LN*M"9&87
KO7MSA.(Z5+A&1"M&J3W	R+TE.4F,*0&0.MFJ"0&07FKO7MSA*(B	3M;A+U" +I&2*:^ "$6)6JJI3ESA*(24.1F02)GMN7U2J&I3F6(7AWN6.SL*.&03S?TP*M.1F02I?F3RGM3T&("26)6J^I7RSI/ER(.,B3"06).JB320ZI3O7R+AT6	B 2 OS3AWL2 GF3C?T+R^:"$6)6JJI3ESA*(24.2F06)OPF*M2I[S*=:0.0F1"1*M6IKW3IWT*(
4.2B02)[S.MJJ"0&07FKO7MSA*(B	7VN 3C3A3EZ 7ASC/O+R.	[F*.&4.MJJ"0&17FKO7MSA.(GE.1R.")*M6IKW3IWT*(24.5B0")*M2IWR+AD.4J,*0&13SOV.MVJ"0&07FKO7MSA*(B	3S?L7WZ 3IGT3LN 3AGP7CSI+YB:*	&$"M&J3V	M+NB=.9&9*9:9"M&J3VGM+X6=.9&9*9:9"M&J3P	M/N&=.9&9"96.6JBI7MA.=&-.9&9"96.
JRI/OF .0B02 KI*=21"1662JJI3L?N2=KI"M&J3C3A7LR 3R;AS*M2I?D. B1*0B0/JF=.,V8"M&J/J7V23**"-622J*I3P*=/VJ+"M&J+IF3V	M3N^.3TF.6([J6)Z)3M;I*=A+J	V"M&J+IF3P	M3N^.3TF.6(CJ2)*)3M;I6=CJ"M&J+IF3P	M3N^.3TF.6(CJ2)*)3B	M3N&=B*M2I[I2(7P+I;N+G;T3A*(+P&)3P	M3NF=6(CJ")*M.1
020NI7OSN7IWNE*M2I[I2(7P+I;N+L;E.-F5*1:.+O;R3V	M3N2.+E6..5F16.^)7RSI/ER(.,B7"16)2JRI/OJ .0B02 KI2=KJ3M;I.,Z1"M&J3B;L3O&=B*M2IGC+LCL3TGRN7S2JRI/OJ .0B0. 7J.1","5*M6ICJ*=*3J*M2I[I2(7P+A;X+G;E3A*(+P&)+GCO+TCO.2B0"0*M2I7J/A7XJ7P2J*I3BGM3X&=B*M2I7P/A7X3A*(P6).
B2"0&03C;O3T;IU7E2J&I7FB(7MA2.WG..F5*1&.3W	R+TE.4Z,*0&1"M&J3P	M7NB=3M;I6*OPF*M2I7P/A7X3PGM7XB*S7F6J^I7RSI/ER(.,B860B)7MA2,7PI7N.JB820ZI3O7R+AT*1?X*/2/62"0*,B	6 B 7MA* B * B * B 3P	M+N>	.,B2/XJ,/EN1*.>4")*M2I3B/N7O3J7BI7N2JNI3A3L6 KT7AON"M&J7PZ13CF=2(7J+I7
"26)2JJI3L?N2=KJ7MA"M&J3C3A7LR 3R;AS*M.IKP/V7C3A*(7MA*-&2"M&J7PZ1+C"=3SOV6-B(21OV2-7V+I	N2*[S6)N/+V+C.1B0".*M.IKP/V7C6([S+C"-7PZ27CZ-3M;I6)N*+F>)3SOV.*B1"06.6J^I7RSI/ER(.,B460B)22OV.,GPV7C.JB420ZI3O7R+AT62"02,F	7TB 7MA* B * B 2 F 7TB 3M;I*	2/*	V 2 	V3T3A2
GC3POA7I	T*:2	*MBJ* B * B1+F:922Z,*1:3*2>/"/6)2J^I7OR /OF .MZJ"0&17FKO7MSA*(B	7POO3I	T+VCE3OWV3R3F+O;W*	>/"/6).JB721ZI3O7R+AT2	: 3EGG7T[I3E> 7VKE3F?L+W^.*/>/")*M6ISSO7P2JVIN7D&J*L"B"B"B"B"B"B

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