File MCMAV.FT (FORTRAN source file)

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

7CBI3R
O3R7A2 OM7M[A2MNJ2I?L+NCG3P	R3N?T+UCT7VKE3S?IN6.2JNI3O7M+OCN7AKR+AI.4F12)R,3U	M.(B92)6,7AWN2,3BN7O2JRI3IWM3N	S+OCN7MA3S7U.(B1*02)3M;I3S7U.(B1*02)7MA+PT.1B02)6,7ICN/TF(*0&0",*M* B . F 2IGM3XGV/LF(*0&02,	M3NGV/LF(*0&06,KA7R	A.(B1*02)3S	H/TJ(*0&02,GN+ME"26)"
	C3S	H7TV 3SSE2 ?T6 WP+SCH3BGL+NCK3C7O3M;O2MNJ2I?C3M3P3EWT+LCY7ISN3OZ 3I3E/DJ "!6!2J&I3NWT7GKE2 3B*(&32,WN+CT.1B06)B,3A	R+T3Y3ESN2,;E7DSP6,KA7R	A6,KA3R	A",*M* B . F 6IKA3R+A2,3BN7O2J2I3O	G3C3A* 3PQ*M6IOI/T7A"1*M2IKN/LF="6*M2I[S*=6 ..F0"1616J^I7RSI/ER(*,&3
MBJ" &37FKO7MSA2("1* ^,7ESN+ECR3M;A7E[U+ECR+I3D3S7A3P	L+NCG7RSA3EF +N
D" *M* B . F *IB	3SWP3CGI3LN 3AWS6 CS3E	C3FOI3A	T+O
N*/B	.(KI.,OI.,OA*)&	"M&J3RGE+D" .4J,2)6 7AWN6,OI7RN,7COAE*M. J 2I?F3RGM3T&(22&,23F,"36)2J&I7FN(7COA3EV.+Q^.2 ?N*	B)+GCO+TCO"7*M6IKW3IWT. R(*,&6*MBJ" &67FKO7MSA2("1* ^,7ESN+ECR3SWP3CGI7LN 7TKA3T;I3GF +NCD3ESN3I
N2 3B3O/C2 SI* ;S*MBJ* B " &12(&2*2^)")*M2IWR+AD.4",2)& 3SGT2,KNL*M. " 2I?F3RGM+T" .2KI")*M. ^ 6IKW3IWT*(24.1N0")*M. B123ZI3O7R+AT*1CH2,V	3NWT3RV 3XWP3R7I7ESN2 GD+T3E2 GD+TCE3AGN7L+Y+E3D*MBJ* B " &13SKU3JOE3T: 3AWM*,>	2	R 7ESP3HF +NCD3IWN+RCT7GOA*.>	*MBJ*
B " &2*	" .2[I2,F226Z,.6B..,[A*)&	"M&J3RGE/DR(.,B1*4B)3IWD3A&,7DKE2,GN+ME*12)3N7A/EJ(2)R,7ESP3H&,3NGGS*M. B124ZI3O7R+AT.2[I2,F226Z,.6B..,[A")*M6IKW3IWT*(23.1V02)& 3DGE2,SI+E3R3N7A/EF(2):,3AWM*(&22,WD3PT2,;I7GOA2,GMN7U.JF "0&57FKO7MSA2("1. N,*03X6	E7PKE3IW
+NCT7DSA+E2	*53X+I>6*1CH.,B3+X^,7DSA3EF N*M* B . F 2I3A3YWZ+D2	*73X+I>6*1CH.,B3+X^,3SKU3JOE+T2	61"32,F2.6F/+H2 63"02,R	7ESPH6	*JB * B *22I61"5.,[F*.>0*1CH.,B3+X^,3IWN+RCT7GOA.	F,*13X+A>6*1CH.,B3+X^,3M;A7E[U+E
R*MBJ* B " &3.,J13X&,*4>/*/&/"M&J/S7R7IKS2MNJ2I;A7YB 3OWT3N	T+ACL3T?R3U3B3E& 3N^ 7EST3I
N2 WR3A?S3NKA+LCE3M;I3S7US*M3CFI+NCD7MA3S7U3S& 7NR +HCE7FSU3UWR2 ?C3USL6 KP3OGB7B	L2 WB2 WR3S3O3VSE2MNJ6I	B2 GM7NCI3UGL3T;I7GR +HCE3V3A+UCE+OCF3IGR".*M6IKI3A&=+S?R"2606JBI3A	R/T7Y3MSO6(KI/AJ,")*M2I[I2(GP7RSI3YV./QB.2)& /R7A3IGR"+612J&I3RA6=KI/AJ/"M&J+BL.1
)"0*M6I+M"=612J6I/XF="M&J3ESN.=V8"M&J3ESN/P7T3ESN6-KI/AF-"M&J/I7X3IGR/HJ+"M&J+DCO*9B03I3B6=OI+T3A3N3B"M&J3B;L3O&=B7L6J^I7RSI/EN(.,R4*2B)3I3B*MBJ. R422ZI3O7R+AT*1CH6,R	7HOI6 OI2 3B3O/C6 WN3MWB+R^ .,SI")*M2IGC+LCL3TGRN7S"J	C3W	R+TE.3F,*1&86(KA3R	A6(WN+M2)3N
U*=21.2V5")*M. F128ZI3O7R+ACT2("1. F,.0
I")*M2I?D. ^12 ;M*=21.2V5",632J:I+N"=+M/N*2>)"3*M. F 27FI3RGR3Y:(/N6)7AKR+AI+M	N"M&J3W	R+TCE*(23.1^12)F(3RGR3Y:(+A	M2,GN/MF=.,V8")*M. F127ZI3O7R+AT*1CH.,B1+I&6"M&J+IF3I3B2.WN2.KN+LB)+GCO+TCO"2632JRI/OJ 21& /TF=.,V8"M&J+IF7AKR+AY+I	T2.WN*.&02 ?G2 ?T. F2"M&
/I7A+I/T"1*M6I+I6=SI"+642J&I3F&(3Z^./T".*5B)/I7Z"8652JRI/OJ 22& /T7T+I3AI7Z2J&I3FF(3RGR3Y&(+T	T2.WN*.&02 ?G2 ?T. F2*MBJ. J22I?C3N	T3NWU"M&J3ESN6=SI"-612J^I7OR /OJ "5*M. J 21NI7OSN7IWNE*M. J 23&I3F&(+B;L+N;E7ISS+AB)+GCO+TCO"2652JRI/OF 20& /NF=6,KIA*M. F 20
I/LF(2)J=/LF(2)F+3RGR3Y&(N6)2JJI/LJ(2)J=/LF(2)F+3RGR3Y&(+R/A*16)7AKR+AY"16)*JB "2&5+DCO*3B0/MF=2,;ED*M6IJ6=I.-"(*5"*3I3B*-&1")*M2I[I6(OI+T;A+N;E*1B)/J7X+I7X.(V82*&(+B7L7ISS+A&)*MBJ2 &I3F*(3X^./TB.2)F 3RGR3JF=3RGR3Y*(X6)2J&I3F*(3X2./EB.2)F 3RGR3J:=7ESC6(KI
A*+X6)2J&I3F&(+B;L+E;Q7ISS+AB)+GCO+TCO.1B3*MBJ. V120&I3F6(2.WL6.KI+AB)+GCO+TCO"3622J:I216=6-KIA*M2I3B*(&32=3B*(&26-KA7R	A.(GN2)F+3RGR3Y6(")*M2I?G2 ?T. V3*MBJ. J32I3B*(&32=3B*(&22-WN+CT+M.)7AKR+AYM6)2J^I7OR /ON "5*M. N120&I3F6(6.SG2.;E7DSP2)^ 7OR /O" "5*M.
GN*=/M"1*M.IKN.=GN6+KIA*M2I3B*(&32=3B*(&26-KA7R	A.(GN2)F+3RGR3Y:("26)*JB "3&5+P"=+BL*2:)+L;E+BL*1&)2.;A+D".+BL*2:)+L;T+BL*3&)"M&J+Q"=+BL*2:)+G;T+BL*1&)2.;A+D".+BL*2:)+G;E+BL*3&)"M&J+IF2.?N7TB.2)^ 7OR /ON "4*M. N 276I7ION+UM+M	Z2=3B*(&2"M&J3M;I+PT+M	Z6=I"M
J3M;I3V3A6(+M2)F=3RGRJ*M6I+M6=+M"+612J&I3F6(3Z^./TF.*0&02 ?G2 ?T. "9"M&J+GCO+TCO"366*JB "3&4+IF2.?N7TF.2)^ 7OR /ON "6*M. N 296I7AOX+UM+M	X2=3B*(&2"M&J7MA+PT+M	X6=I"M&J7MA3V3A6(M2)F=3RGRJ*M6IM6=M"+612J&I3F6(3X^./TF.*0&02 ?G2 ?T. "9*MBJ. Z32I3B*(&12=3B*(&2"
&J+BL.26)+BL"36)*JB "3&0/I7X+I/X"1*M. " 25&I3F&(+B;L+E;Q3N3B2)^ 7OR /O& "0*M2I?D. &86 WL/XF=6,KIA*M2IWN7VKE2=;E3D&-+R/A7LU*MBJ. &82IWN+CT7LU2)F=3RGR3Y:(3EWVR6)*JB "9&03C;O3T;IU7E*JB "9&8/K7X+M7X"1*M6I+K6=+M"-612J&I3F.(3Z^.3T..+XB)+GCO+TCO"868*JB "8&0+IF7M
+PT*1:)+G;T3M;I+PT*1&)2 ?G2 ?T. F8"M&J+DCO*8B2/I7M22.,X*M2IGM7XSP2(7I*-&12=GM7XSP2(7I")*M2IGM3XGV3L&(/MF-2)6=7A[X+AL+I	M*MBJ. J82IGM7XWS3M&(/MF-2)6=7AOX+UM+I	M"M&J/K7X+K7X"1*M2I?G2 ?T. B8*MBJ. F82I[I6(+K6.SG6.K2)^ 7OR /O" "8*M6IK6=+K"-61*JB "8&83W	R+TE.3F
*4&2*MBJ. R122ZI3O7R+AT./F/+H2 /TB12,6	7ICN+T2	*53X2	GV+L2	*63X6	WS+M2	*73X*MBJ* B " &12	GM7XSP.	V,+X^,3V3A.	Z,+X^,3S7U"	6)6J^I7RSI+E" .3R,*2")3I6,7ICN3T&(2)6,7I[N+AL+I2)3M;I3S7U*(	I",*M* B . F 2IGM7XSP*(	I2,GM3XGV3L&(2)6,7AOX+UM+I2)/IF=6,+K")*M. R 22ZI3O
R+AT*1CH.,OI6,"6.,SI6,"3.,WI6,"3.,[I6,"8.,SI6,"3.,WI6,"3.,[I")*M6ICN3T6=7ICN3T.(+Z6)3M;I+PT*1.)"1*M2I	T3M:=+P?TS7R6JNI/C7A.-Z(*0*.+S	F./J(6.R*+I	M"M&J7NCO6=+K"-616JBI3S7U*=:0"M&J7VWS/MB=".*M2I?D. ^86 [I*=217NCO"M&J7PWS7MB=3S7U2+GM3XGV3L&(V6)2J&I3F&(3VV./Q
.2)^ 7OR /O" "7*M6IOV/U7M7VWS3M6+7I[N+AL+I	V*MBJ. ^82I?C3N	T3NWU"M&J7AON2=OS+A"**2*.7PWS/MJ-6.Z*3S7U2-	M3NGV/LF(2)6-7I[N+AL+K	Z")*M6IKW3IWT. N(.,Z82)F N7S*JB "8&67FKO7MSA* >(./F/+H2 2	GM3X7I+UCM2 ?V3L;U7TKA7YZ 7ESN3IGL3T?I+NB:2	Z,.8N.*,B	2 	L7TKES*M* B . 
 2IWP3R6 7IWN+T;E*	>/"/6)*JB "9&93S?TP*M2I;ED*M"ZB"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"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