File MCTIV2.FT (FORTRAN source file)

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

7CBI3R
O3R7A2 OM7T[I+OB22MNJ2IT+ICS+ICS3TWH2 WS3C;O3D" 3A[L2 [O2 	T3D3A2 ?V3L7UE6.2JNI3O7M+OCN7AKR+AY.4F12)R,3U	M.(B92)6,7AWN2,3BN7O*JBI3D7I7EON3I;O2 GN+ME*22)3N;O7ECU.(B22):,3OWN+DO*2&0"M&J3RGE3L: 3AWM2,;I7GOA"M&J7ISN3EWG3RV 3NGD6,KA7R	A2,3BN7O6J^I7RSI/ER(*,&3*
BJ" &37FKO7MSA2("1* ^,7ESN+ECR3M;A7E[U+ECR+I3D+NCO+OCF3B?L7COK2,GS3M3P3I
N2 GR+T
E"/*M* B . F *I^ 2 OS3AWL2 GF3C?T+RCS7FKO* 3V+QB,3ASN* ;P*	^/*MBJ* B " &2.(KI.,KI.,SI2,Z3.6J.*)&	"M&J3RGE+D" .4J,2)6 7AWN2,KN3L&,+S3R7S[F2,[S7QN,F7P"J	C7SCF6 OI* 2+6 WB7TN +FCQ3ASN2 [S3VF +RCE*-F!"!*M. J 2I?F3RGM3T&(22&,22&,.4N,+F:6"26)*JB 26ZI3O7R+AT.2[I
,F226Z,.6B..,[A")*M. ^ 2I?F3RGM/TN(*03X6	E7PKE3IWM+NCT7DSA+E2	*53X+I>663"02,R	3AWT2 ;A7A	L3ZSE"	*M* B . F .I^,3X&,.6N/*03X6	WS3BWJ+C
T.,N1/XJ,+A>663"02,R	7ESP+H2	61"5.,[F*.>063"0",*M* B . J 2I&	7NKE3T^ +A
S.,F13XF,.6N/*03X2	GM7NWE7VKE.	F,*23X+I>4*/>/")*M6IKW3IWT*(24.4^0")*M. B427ZI3O7R+AT*1CH2,V	3NWT3RV 3XWP3R7I7ESN2 GD+T3E2 GD+TCE3AGN7L+YE7D*JB * B *12I3SKU3JOE3T: 3AWM*,>	2	R 7ESP3HF +NCD3TWH2 ;I7ESR2 GG+S^."/*M* B . J *IB	2(&2.6J,+A26+F:620F,*6^)")*M6 JI
ESA. R(*,&62 SI+E3A3IWD3R:,3AWM*(&12,GN+ME*22)7DCE+T3H3I
NA7S"J& 3W	R+TE.3^,2)& 3DGE2,SI+E3R3N7A/EF(2):,3AWM*(&22,WD3PT2,;I7GOA2,GMN7U2J6I3A;X/OF=.3V6"M&J/S7R7IKS"M&J/H7V*1>.S7R2JVI3NGD.=V2"5*M2IWI/N7D3NGMX*M6IGI"=602JRI/O& 25& /B7A21:,B7L2JJI3L?N2=KIA*M2IGC+LCL3TGRN7S2J&I3F&(+B;A+N;E3N3B2)^ 7OR /OF "1602JRI/OF
*2B1/I7T.1J,"5652J&I3FF(3RGR3Y&(+T:)+N;E*0B)+GCO+TCO.1F2"M&J/I7A+I/T"1*M6I+I6=SI"+692J&I3F&(3Z^./TJ.*5&56 +I.=V2"5*M2I?D. J122& /T7T+I3AI7Z2J&I3FF(3RGR3Y&(+T	T2.WN*.&02 ?G2 ?T. J1"1*M. F "2&23C;O3T;IU7E2JVI3NGD6=SI"-612J^I7OR /OF "160*JB .1F22I?C3N	T3NWU*
BJ.1B12I?D. V92 GM*=223ESN/AN,*MBJ* B 6IGI6=GI"+61*JB 2 &I3F&(3Q2.3E6.3A;X+OB)+GCO+TCO"9656J^I7RSI/ER(.,^92)& Q*M2I?G2 ?T. &9*MBJ. V9*IQ+I	Q2=F-3RGR3Y6(A6)"J	C+DCO.9F06 GJ*=21I7Q*JCC.9F06IKW3IWT*(23.9J02)* 7QF,6(GJ")*M/C& "0&27FKO7MSA2("1* ^,+Q2	*23X+I24*
3X+I&6"M&J3W	R+TE.4&,*0&36 GI*MBJ.9N02I?F3RGM/TF(+H2 6	GI*=2	+I&4"M&J3I;I"=602J&I/D7O"0*M2I?N/MB="M&J7ISS"=61*JB "3&0+IF3Q&(+S/T*1:)+G;T3Q&(+S	T2)^ 7OR /ON "1*M2I[I*(Q7ISS*+&16.SL*.Q7ISS*)B)+GCO+TCO"3626J^I7RSI/ER(.,B4"96).JR "0&97FKO7MSA2("1* ^,3TWH* B27
N 2 F +RCE7EWQ+A;L"	6)2J&I/S7T7ISS"+612J^I7OR /ON "0*M. N 21RI/ON 24. 3Q&=+S3TI7Q2J&I/M7PK7Q2J&I7FF(6(GK*+&16.GE*.Q+K	Q2)^ 7OR /ON "4*M2I[I*(Q+K/Q*1:)+L;T3Q.(+Q&)2 ?G2 ?T. ^3"M&J+IF*(Q+K	Q2.WL*.:02)F.+N;D*(Q+K/Q*1:)+G;T*0&.2)^ 7OR /ON "6*M2I?G2 ?T. R3*MBJ
 Z32I	I3N&=+I/N"1*M2I?N7NWE3P&(+I	N6=GK"M&J3W	R+TE.3J,*3&66 GK2,	I7NF,6(GK")*M. N226ZI3O7R+AT*1CH.,WI6,"56,*	3E?R6 KC7OOS6 CU.	N,3X&,.4V,3X&,"66)*JB "3&43C;O3T;IU7E2J&I3F&(+M;P+G;E+I	Q2 ?G2 ?T. B4*MBJ. ^36IOI3T&=+M/P"1*M. N 22RI/ON 252 3Q&=+S3TI7Q2J&I/M7Q
7Q2J&I7FF(6(GL*+&16.GE*.Q+L	Q2)^ 7OR /ON "5*M2I[I*(Q+L/Q*1:)+G;T3Q2(+Q&)2 ?G2 ?T. "3"M&J+IF*(Q+L	Q2.WG*.:02)F.+N;D*(Q+L/Q*1:)+L;T*0&.2)^ 7OR /ON "3662J^I7OR /ON "5*M. N326&I/D7O3I?D"+616J^I7RSI+E" .3J,*3&76 GL2,SI7OF,6(GL")*M. N227ZI3O7R+AT*1CH.,WI6,"56,*
3E?R6 KC7OOS2 ?D+W
N6,"3.,SI6,"5.,[I")*M2I?N3NSE3O&(+D	O6=GL*MBJ. V32I?C3N	T3NWU"M&J+IF7IGM2.WG6.GI2)^ 7OR /OR "0*M. N 28&I/S7T7IGM"+612J^I7OR /ON "1*M. B924ZI3O7R+AT*1CH2,:	3UKM+ECR+OCF7D
O7N* 3E?R6 KC7OOS3I
N+S^=.,[I2/"1" 6,*JB * B *1^I3N7U7BKE2 [O6 CU2 WZ+RCO3C?R3S	S7NOG*=2	+I&6*MBJ. B42I[I2(?N3NSE/OF(2)^.3T:.3OWN+UP*1&)2 ?G2 ?T. J4"M&J+DCO*4B1/M7Q21&,+D7O"1*M. R 21:I3OWN+DO+M	Q2=?N3NSE3O6(/QF+")*M2ISI3O&=+D7O"1*M2I?G2 ?T. B4*MBJ. J42I[I2(?N3NSE3O&(+D	O6.SL
.?N7NWE3P&(+I	N2)^ 7OR /OJ "0*M2ISI3O&=+D7O"1*M2I?G2 ?T. J4*MBJ. B26IKW3IWT*(24.9R02)& +D3O3I;I2MNJ2I?D. J929* /P7M21&,D7O"J	C3W	R+TE.3&,*2&86 CJ3M:,3OWN+UP3J7P")*M/C& "2&93W	R+TE.3&,*2&76 CJ3M:,3OWN+DO3J7P")*M. & "2&77FKO7MSA2("1* ^,3N;O3E?D*(2	+I23.	6)2
&,"56)*JB .9"22I?F3RGM/TF(+H2 2	?N7NWE+P^(.,OI*,&	*=2	+I&52MNJ6IKW3IWT*(23.9"22)& +I3N3N;O7ECU2(	IN6)2J&I7COA/EF="M&J3IKN2=?N7NWE/PF(.)N*"-622JRI/OF *7B6/I7C.1F,"6*M2I;I3C&=C*M2I[I2(;I3B2./EJ.*5&52 ?G2 ?T. ^1"7*M. ^126&I/N7B3IKN.-V2"5*M. ^127:I/B7A3ION"M&
7ISS7ASR2=;IB*M2I?D. B621* /YJ=2,	IN*M6ICN/O7N3N;O7ECU6(	J2):-3OWN+UP*1.)"1*M2I[I6(CN+O;N+L;E3NGM+XB)+GCO+TCO.6F0"M&J7USP3O:=3OWN+UP+J7Y"16)2J&I3ESN6=CU+T7O3N;O7ECU*(&1"+612J&I3NKB6=CU+T+O.3J-"M&J3I;E/D7B3I;ED*M6IWL/L7L+J7Y"1*M2I?N7SSE6=WL+L7L"1*M7C^I7RSI
ER(.,R9*5B)7NOO+E3T3IGC+S3E3L3UL*M. R925ZI3O7R+AT*1CH2,:	3OWS+T^=.,SI.,B1+X^,3IGC/S7E2	&,.4F,*03X6	WL/L7L2	&,"46)2J^I7OR /OZ "062.JZ "0&13C;O3T;IU7E.JZ "0&2+DCO.6R12 7I*=223I?D"M&J3N;O3E?D2(7I2):=3OWN+DO+I	M2-?N7NWE/PF(.)F+*MBJ.6R12I?N7NWE3P&(/M6)3N;O7ECU
(7I2):-3OWN+UP*1.)"1*M2I?N7NWE3P&(+I	N2=?N7NWE3P&(+I	N2-?N7NWE/PF(.)F+"M&J3N;O3E?D*(&12=?N3NSE/OF(2):-3OWN+UP*1.)"1*M2I?N7NWE/PF(.)F=*MBJ. V22IGI/MF=2MNJ2I?D. J829* /P7P21&,D7O"J	C3W	R+TE.3&,*2&86 CJ3P:,3OWN+UP7JCP")*M/C" "2&93W	R+TE.3&,*2&76 CJ3P:,3OWN+D
7JCP")*M7C^I7RSI/EN(.,J9*8B)3I;I2,?N7NWE3P&(+I	N"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")*M7C^I7RSI/ER(.,B9*4B)3I?D2,	IN*M6I[I"=602J&I/QB="M&J/I7P"0*M2I?D. B92 KI3L:=+B3A3N3B"
&J3B;L3O&=B7L2J&I3F&(+B;L+N;E3NGB2)& 3SGT/R7T"1*M2IGC+LCL3TGRN7S*JB " & +DCO*9B03M&=3SGT+R3T.2V5"M&J+GCO+TCO.(F1.,J1.,N12)&,A7M*JB "1&1/I7V+I/V"1*M2I[I6([I6.SG2.WI+N	D2 ?G2 ?T. B5"M&J+IF+I;V+L;E3NGM+XB)+GCO+TCO.9F1"M&J3W	R+TE.4&,*7B)I7V2J^I7OR /O& "9*M. F
61ZI6([I2)F=3RGR3Y6(")*M2IGI/MJ="M&J+GCO+TCO"960*JB "1&2/I7Q+I/Q"1*M*IQ+I	Q6=KA7R	A*(	M"M&J3I7A"=632J^I7OR /O& "0*M. F 23&I3P&=/PF+"M&J3P&(/P6)7AKR+AYM6)2J&I/A7M"1*M. & 20NI7OSN7IWNE*M. V 20RI/ON 23* /MF=2,WIN7D6JZI2(7J6)Z=2(7J6)N*F7V6JFI2(7J6)F=2(7J6)N*F
Q"J&L3P*(/M6)3P*(+M*)7SCF2MNJ* B 6 ^I7RSI/EN(.,F2*8B)+J3M3V*(+M2)3Q*(+M2)3P*(M6)*JB .2"12I?F3RGM/TF(+H2 +I24*33X*	CV2	Z,.7N.6,"26,F	* 2	+F:7.2J,X6,*JB * B *1^I+P^ .,
F*.&2*MBJ. N32I?C3N	T3NWU2MNJ2I?R+S
E7SB 3R
O3R7A2 ?G+ECS7HKEE6.*JB "9&93S?TP*M2I;ED*M"LBZ"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