File MCFOVC.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file
7CBI3R
O3R7A2 OM7F[OC*M2I?C3M?M3NF 3RGR/YR(*1&16,WD+MI*9&02,GM+N3U3B;LO*M2I?C3M?M7NB/7AZ/.(B5*12)/QV(*0&1*,P.5F02)2,3UWR212,3UWR"2*M2I	D3M;E3S?I3NR /QV(*0&12,WP3ROV.(B5*12)3N7A/EJ(")6M*JB * B *12I3IWF/VR(2)V,+NK*2&12,;I/KJ(*12)3D7U.(B5"16)2JVI3Q	U3V3A3EON+E" 7AK
+AY*12)+DQ*1&)2,R(+UM*12)7PKE+VC*1&)"M&J3RGE3L2 3UWR212,3UWR222,3OWT6,WL+T3E3N7A3E&,3NGGS*M2I;I3T
E+ECR3ESN3AV,+N3K7AKR+A3Y3B;LO*M6IKW3IWT*(24"36)*JB 23ZI3O7R+AT*1CH2,V	3NWT3R6 3AWN3UWV3R& 3D:,3O> 3FJ 3LOO+K3S3S7A3P	L+NCG7RSAE6,*JB * B *1BI3L;U7GJ 3E?C+ICL3CWO3F	F3CWI7NOT*,>	6	Z 3IGT3LN 3AGP7CSI+YB,3SGCL7E*JB * B *2BI3FOA7TKO3SZ +OCR7VF,2,F +NCD+P^."/
	*JB * B *3"I+I22+I22+I23.3SF*.22.3
F*.&4"	6)6JJI3ESA. R(*,&22 GM+N3U3N3B6,OI3R2,3UWR212,3UWR62Z,3IGC7PN,+F3V7SGF2,[SP*M7CNI+FCP+ICS*+B,7BSU2 [S3QF +NCD7S[F6 KA+E6 *!F!*MBJ" &27FKO7MSA.(KI.,KI.,OI2,Z3.4J.2,Z3.7R.")*M. Z 2I?F3RGM/TJ(+I26.2[A.,[F*.20+A&6*MBJ" &77FKO7MSA.(B3+X^,7ECX3E	R3M;E3TR
3AWT.	V,3X&,.6N/*03X2	GD+TCE3AGN7L+Y+E
D*MBJ* B " &16,"7.,[I./B3+X^,3SKU3JOE+T2	61"32,F2.6N/*03X2	WD3PT.	F,*53X+F:6.0N/*03X*MBJ* B " &22	;I7ESR2 GG+S2	61"1.,[A./B3+X^,3M;A7E[U+E
R.,J13X&,*4>/*/&/"M&J3W	R+TE.4R,*0&7*MBJ.4^02I?F3RGM/TF(+H2 2	;E7TKE6 E7PKE3IWM+NCT7DSA+EB,7DSA3EF 3N3A3YWZD*M* B . F 6IN,3U+B7ESC2 GN+M3E*	^/2 WD3PT2 ;A7DR +HCE3IWN+RCT7GOA*.>	*MBJ* B " &2*	" .2[I2,F226Z,.6B..,[A*)&	*MBJ2IWR+ACD*(24*6B)3IWD3A&,7DKE2,GN+M
*12)3N7A/EJ(2)R,7ESP3H&,3NGGS*M6 ^I7RSI/EN(*,&72 SI+E3A3IWD3R:,3AWM*(&12,GN+ME*22)7DCE+T3H3I
N+A3S3M;AU*M2IGM3X?N.=N1"6652J:I7MA.=B5"0*M6IKS6=OIR*M2I;E/D7A.2V5"M&J/I7V"0*M2I?D. V92 KI/AF=2,KNL*M2I3B/N7O3IGB"M&J3C3A7LR 3R;AS*M2I[I2(KI3A:.3E:.+B	L2 ?G2 ?T. F1"0*M2I?D. J121& /TF=.,V2"5*M2I[I6(KA7R	A6(SI2):./EB.2)^ 7OR /OF "2612J&I3A&=/TF+"M&J/I7Z+I/
"9*M2I[I6(+I6.SG..V2*5B)/I7Z.2V5"M&J+DCO.1J26 SI3T&=3A&,Z*M2I[I6(KA7R	A6(SI+T:)+N;E*0B)+GCO+TCO.1F2*MBJ. J122NI7OSN7IWNE*M2I;E/D7A+I7T"1*M2I?G2 ?T. F1"0*M. F "2&13C;O3T;IU7E.JF "1&0+DCO*9B5/M7A21V,3NGD",63*JB " & /I7V+I/V"1*M2I[I6([I6.SG2.GM3X?N2)^ 7OR /O
 "8*M. & 65ZI6([I*)6=7AKR+AY+M	A2MNJ2IT3E: 3EGG7T[I7EN 3I;G2 WH+RCE+ICS+TCO7I[N7ESR2 W3IWL2 WW2 WS3AORH*M7CBI7AST3E;R2 WR3C
O7NSI3I;O2 WD3T	A+L;S2 T7EN 7PKI3OWM7TKE6 WP+TCS7OSU" 6+"J	C3V3O3T
A3ER 3U	R+NCG7ECX3IGR3T?IN6.6JZI3M;I*=V"16)2J6I3ESR"=612JRI/ON 25. /VJ=6,[I"M&J+ICF*(V+K	V6.SG2.7V+I	N2 ?G2 ?T. V3"M&J7MKE3D.=V*M2I7V/I7N3V.(V6)*JB "3&53C;O3T;IU7E6J^I7RSI/ER(.,N2*4B)7MKED*M2I7V/A7X/VF(")*M2I?M/R7D"1*M2I?D. F36 [J*=227MKE/DF-"M&J+IF3V*(+V
)+L;T3VGM+XB)+GCO+TCO"3612J6I3OSR6=[J"M&J3VGM7XZ=6([J")*M. N 21NI7OSN7IWNE*M6IKW3IWT*(24.2F32)6 3OSR"M&J3VGM7ZZ=2(WM+R	D"M&J7MKO3Z6=3ESR"M&J+DCO*3B27J+V2=WM+R/D21&,V*M2I[I*(V7J+V2)2.7EZ.7M+A2)^ 7OR /ON "2*M2I?M/R7Z7J+V"M&J3VGM7ZZ=6([JZ6)*JB "3&23C;O3T;IU7
6J^I7RSI/ER(.,N2*2B)7MKOZ*M2IV7IZ=7MA"M&J+IF3VGM3X2.7TZ.7M+A6)Z /H7I3VGMZ*M. J 20&I7COA/EF="M&J3IKN2=?M+R+D.3J-"M&J+DCO.1Z72 OI*=21"1662J&I/N7CI7C2J&I3F&(+N;B+L;E.2V52)^ 7OR /OF "767.JF "7&63IKN2=;I/BJ-"565.JF "7&73NGB2=;IC*M6IOI7TKA3T&=N7B2J&I3ESN2=WM+R7
7MKO/DF+*MBJ. V22I[I2(WI+N;D+G;T.5B02)& 3ESN.=B5"0*M2IGI/MF="M&J3W	R+TCE*(24.2F22): +B3A7ISS7ASR2,WIN7D*JB .2F22I?F3RGM/TF(+H2 2	KN+A^ .,KI6,"32,&	3SGT+RCT2	&,.4N,+X^,3I;E+D^ .,SI")*M. J "3&17FKO7MSA2("1* ^,2 ?M/R7D2	&,"46).JJ "3&27FKO7MSA2("1* ^,2 ?M/R7Z
	&,"46).JJ "3&47FKO7MSA2("1* ^,2 WM/R7D2	&,"46)2J&I/VB="M&J/I7Q"0*M6ICI"=602JRI/O& 20& /B7L3NGB2,KNL*M2I3B/N7O3I3B"M&J+IF3I3B2.WN2.KN+AB)7ISS7ASR"=612JNI3A3L6 KT7AON*MBJ* B 2I?D. B9. 7M7ISS7ASR.,V2"5*M2I?G2 ?T. F(.1F,.2F,*32)3I7A*MBJ. F16I[I6=[I"+612J&I3F
(3V^.3T&.3ESN2)^ 7OR /OV "0*M2I[I6([I6.SG2.7N+A	X2 ?G2 ?T. "9"M&J3V&(/V6)7AKR+AYM6)2J&I/A7M"2*M2I?G2 ?T. B9*MBJ. J16IGI6=GI"+616JFI6(GI2)F=3RGR3Y6(")*M2IGI/MN="M&J+GCO+TCO"960*JB "1&3/I7P+I/P"1*M*IP+I	P6=KA7R	A*(	M"M&J3I7A"=61*JB "9&03C;O3T;IU7E*JB "5&0+D
O*3B3/J7M21&,3ESN"M&J3V*(/M6)3VOI+A/P7S[F6*Z(+H/I3V*(+M&)"M&J3Q*(/M6)3Q*(+M*)7SGF*MBJ. N3*IP+J	M*=P+J	M2*[SP*M2I[I2(OI3AWS6.GE*.&22 ?G2 ?T. F22MNJ2IWM7AON2 [O2 WD7TKE3M;I3I
N* B03T7I3EZ +OCR3QZ +OCR3TWH2 WF7VN 2MNJ2I?G+ECS7HKE+EB.6 R 7ECM3OGR3R3IY6:2J&I7F[E*(&1"=612JRI/OF 29& /F7A.2R,*MBJ* B 2I[I+EV3IGF2)&=7F[E2([I/AF-2)&+S7R2J6I/F7Z3IGF"M&J+IF3IWF3V&(+F	A2.WL2.WI+N	D2 ?G2 ?T. &1"M&J7M+F2=[I/AF-"M&J+GCO+TCO.1&1*MBJ. &12I?C3N
T3NWU*MBJ.1&16IGH*=:16/KS*MBJ. F22IGC+LCL7DSE25"(7QF,6,WD3MR,3Q&,3ESN2,WIR6)2J&I3F&(+E;R+E;Q*0B)+GCO+TCO"1666J^I7RSI/ER(.,^12)& E7R*JB "1&77FKO7MSA2("1*1^,3H3E+PB,7IKE*=^ .,SI*/&/"M&J+GCO+TCO"969*JB "1&67VE7PZ=*(&1*-V3I;ED6)2J&I3F&(7COA3EV./QJ.6)Z 7ECX6=Z
7ECX*MBJ* B 2I?D. Z32 GM*=213I;ED*M. N 66BI7E[R3C6(/A6)*(V+M	A.*B1*0&.2/	V7CCA"M&J3PGM/X7E/PF(")*M2I7Q3AWX*=Q"16)2JRI3QGM/X7E+DQ"16)2J:I/P7E"1*M6IGN/EF="M&J7NGD/EF="M2J2I?D. R36 WN*=223I;ED*M2I[I2(OI3AWS6.GE*.&22 ?G2 ?T. N1"4*M2I[I*(P+N	U2.WL2.7P3AWX2)^ 7
R /OR "M&J3PGM/X7E3P:(U6)2J:I/P7EN7U*JB 24&I7FF(6(WN2)^.7EF.7MA+EB)+GCO+TCO"5*M2I7Q3AWX*=Q+N	U"M&J3NWQ6=WN*MBJ" &5+IF+DQ+N	U2.WG6.GD7MA+EB)+GCO+TCO"3642JRI3QGM/X7E+DQ+N	U"M&J7NGD3E:=U*M2I?G2 ?T. R3*MBJ.1R32I[I*(P+N	U2.WG2.7P3AWX2)^ 7OR /OF "0646JBI7MA7EB=
(WN")*M6ICN3E:=U*M. B124&I7FF(6(WN2)2.7EF.7MA+EB)+GCO+TCO.1V0"M&J3QGM/X7E3Q:(U6)2J:I/Q7EN7U.JF "0&5+IF+DQ+N	U2.WL6.GD7MA+EB)+GCO+TCO"3642JRI3QGM/X7E+DQ+N	U"M&J7NGD3E:=U*M. N 24NI7OSN7IWNE*M2I[I2(OI3AWS6.GE*.&22 ?G2 ?T. J2"M&J+DCO*2B43MGF*=217M+F"M&J7I[F2=
I+EV3MGF")*M2I[M3M6=+F7A"1*M2I[V7VZ=3IGC7PZ-2([IV6)6JBI7R[F.=B1*06.7PKE+VC7I[F")*M. J 64^I7RSI/EN(.,Z22)6 +F3M7V[F6,KPF7V*JB "2&67FKO7MSA2("1* ^,7F[E*(2	+I22*	B).	F,*03X.	7V* 2	+F:6.2V,X6,*JB * B *1^I7PKE2 WC+NCT/V7C* 2	+F:6"26)6J^I7RSI/EN(.,^26)Z 7ECX*MB
. ^22I?F3RGM+T>(./N/*03X2	?F3RWC3DV 3X	P7RSA3I;O2	Z,*1:0.3J,+X^,+L>	"/6/*JB * B .1FI*43X2	?V3L7U+E2	*63X*	B%3VN .	^,+X^,3F?L+W2	*63X6	KP+E
S6,"66,J	3E	S+S
T*MBJ* B " &26,"72,F	3CWC+L>	61"72,2	.	J,*13X*	?L+S2	*53X2	7C. KH+O2	*43X2	7C3H>2*/?LS6	*JB * B *32I*53X*	?L7SN/"	6)2J^I7OR /OF "264*JB "2&23W	R+TE.3N,*8B)7VEP*M. N 28ZI3O7R+AT*/>/63"02,Z	3OOR+ECD7ION7PKI3A	T+O
N.,GF.0N.6,"22,2	*	>/"/*M* B . F .IR1+X^,3V3O3UWM.	Z,+X^,6%Z * 
C6,"72,Z	7L
O.	Z,+X^,3PWR+S2	*63X2	WR7SOIT6	*JB * B *22I*73X2	OA3C3E.	F/*73X*	
L.,F2+X^,7LN/.	V,+X^,+CCM/HB2.	R,+X^,3CM*2?O7LN/"	*M* B . N .IV,+X^,7LN/*/
S")*M*MBJ.1R2" & 3C3A7LB 3A?V2(WP3ROV6(GN+E2)7P[A6,GNE6)6J^I7RSI/EN(.,"16)Z 6(GN+E2)7PKE+VC3NWQ6)F,7MA7EB,6(GN+E2)7P[A6,GD6(GNE6)*JB 28ZI3O7R+AT*1CH.,N1/XN,.([F*.22*5	X*,"2+F:6.1V,+X2)+F:7"26)*JB "1&87FKO7MSA2("1* ^,3PGE3KZ 7L
O.	R,/XN,.([F*.22*5	X*,"2+F:6.1V,+X2)+F:7"26)*JBL. "22I?F3RGM/TF(+H2 2	WP+ACK3PWR+S2	*43X23Z(.6J.6,"5.)J,.([F*.21*5	X.,
F*.&2"M&J3C3A7LB 3A?V2(WP3ROV6(CN+E2)7P[A6,CNE6)6J^I7RSI/EN(.,"26)Z 6(CN+E2)7PKE+VC3NWP6)F,6(CN+E2)3PGM+X3E7P[A6,GD6(CNE6)*JB "2&97FKO7MSA2("1* ^,3PGE3KF 3C3C.	R,/XN,.([F*.22*5	X*,"2+F:6.1V,+X2)+F:7"26)2JNI3A3L2 GP+VO7PKE+VC7NGD+E2)7P[A2,SN+Q	E"M&J3W	R+TE
3J,*9B)3V:(3DWQ6)B,7E[R3C:(3DWQ6)F,2(SN+Q	E*,P7NGD+E2)7P[A",*M* B . F 6IGD7MAE*M6IKW3IWT*(23*4&0*MBJ. B42I?F3RGM+T>("/6)2J&I3F&(7COA3EV./QJ.2)^ 7OR /O^ "1*M2I/N/EF="M&J7LSO.=V9"M&J+DCO*3B97NSO*=213I;ED*M2I?L/T7E7LSO"M&J3IWP7RB=7E[R3C:(+O	T"M&J+IF3IWP3R^.+
".7LSO*-&12)^ 7OR /ON "9*M2IOX/E7S7PKE+VC7NSO*-&12-?LT7E6J"I3TGR2=?L+T7E7PKE+VC7NSO")*M2I[I2(OX+E;S+L;E7XKT+AB)+GCO+TCO"4612JVI+NK3NWK2):=O7T2J^I7OR /OR "2*M. R 21VI+NK3NWK2):=+O7T"1*M. R 22:I/K7E3NWK"+612J2I/O7T7LSO"-652J&I3F2(+O;T+E;Q*0B)+GCO+TCO.3^0*MB
. &32I?C3N	T3NWU*MBJ.3^06ICN3R:=+K7E"1*M2I[I2(?L3TV./QB.2)2 /O7T"5*M2I?D. N46 CN*=217NKP"M&J/J7E3E/N6(CN")*M* B 2 NI3A3L2 GP+VO7PKE+VC+J	E2,GP3V*,E6)*JB "4&33W	R+TE.3",6)Z 2(WJ6)B,7E[R3C*(+E2)3Q*(+E2)3P*(+E2)7P[A6,GD2(WJ")*M. N "0&13IGC/S7E"2*M2I;I3P6=3ES
**63"2*M2I?D. ^128& /WF=.,Z1"M&J7I
N6=
I"M&J+IF7ICN2.WL..V2*5B)+GCO+TCO.1&7*MBJ.1"72I;I3P&=+N7P.2V5*MBJ.1&72IKN3A&=N7W2J&I3SGT/R7T7ICN"M&J3I;E3D6=7O+R2-WM+R/D"1*M2I?G2 ?T. V2*MBJ. F72I/N/IF="M&J7LSU2=?LT*M2I?D. R46 WN/TF=2,WIN7D2J2I3UWT6=WLT*M6ICI/E7R7PKE+VC7NSU")*M2I[I6(CI+E;R+L;T7LSU2)^ 7OR 
OR "4*M2IOX/E7S7PKE+VC7NSU2)2-3UWT"M&J7XKT3A2=3UWT2-WP3ROV6(WN/TF-")*M2I[I6(SX+R;A+L;E3XWC+SB)+GCO+TCO"4652J&I+NK3N	K2):=U7T2J^I7OR /OR "6*M. R 25&I+NK3N	K2):=+U7T"1*M. R 26:I/K7I3N	K"+612J2I/U7T7LSU"+652J&I3F2(+U;T+E;Q.1B02)^ 7OR /ON "068*JB "4&43C;O3T;I
7E.JN "0&87NKP2=/N/IF-"M&J+DCO*4B7/N7P21:,P7R2J*I3I&=+NK+N	P*MBJ* B 2IGC+LCL7P[A7OB(7E[R3C*(+I2)7P[A2,	J")*M. R 67^I7RSI/EN(*,&8* V+J	I2,WP3ROV2(	J6)F,2(	J6)B,2(	J6)B,+A3V+DQ+J	I"M&J+GCO+TCO"969*JB "9&83W	R+TE.4&,*7B)I7V*JB "9&77FKO7MSA2("1*1^,3H3E+PB,3OW
3R3F+ECW3D7I7EON3I;O+S^.6,"5.,SI")*M. & 69NI7TCO"M&J3ESN&M*J"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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