File FACTO.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JCC* B * B 2 GS3M3P3E6 3A;I6 KP7OKG+ACM7FKO2 GF3C?T3RF 3N3A3Y	S+S6 2 GF3C?T2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B * " *1B)3RGE7DR +HCE3P?R3BWL7MB 
AGR7MSE+ECR7CKA+DB,*(&22 GC+LCL7F[I7EN 7UKB+O7U2MNJ* B * B * B 6 R 3IWN7SR 7OB 3E[R3O7R* CA3P	R3N	C3P3A2 ?C3M?P3N;E7TN 7OWL3T?I3NF +NCD3TWH2MNJ* B * B * B 6 Z 3A	R7MA2 ?R7TSA3I;O2 [O* CA3FOA7TKO2 GM3T	R+XB,3ASN. N(6)B 3R;I7TR H7E*JCC* B * B * B 2 WR3S3U+T
S2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?C3RWR* " 3W	H+C3H2 ;I6 WT+R3N2 GC7LOL2 T7EN 7UKB7OSU3IWN2 GN3MSE2 GD+T;A")*M+CB * B * B * B 3E
IE7N*JCC* B * B * B 6 KT3AWC2MNJ* B * B * B 2 2 3OSA2MNJ* B * B * B 6 Z 3A7RX*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 6 J 3EWF7RR +O^ 3BSM2 ?C7MWP7TKE6 KP7OKG7AOM2 GM3NGU+L2	2 SE3IWT3DJ 7Y^ 2.* ".*M+CB * B * B * B 7DI+O3N2 OU+L3A. &1*6:42MNJ2MNJ* B * : *.
.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JCC* B 2 T3EZ 3O3L3O	W+NCG3D7I7EON3I;O3S6 7USS2 WB6 KG7ESA+ECR3TGH3N> 3RV 3QGU7LR 7OR H7E*JCC* B 6 WN3MWB3R> 7FZ 3A	R3A3B+E3S* ;M".*MC*M* B * B * B 3D7I7EON3I;O* B*3
5*,D*3&5*,S*3&5*,T*3&52,KX+AR*3&52MNJ2MNJ* B 6 R +HCE3F3O7L
O3I
N2 	D3M;E3S?I3N6 7USS2 WB6 KG7ESA+ECR3TGH3N> 3RV 3QGU7LR 7OR H7E*JCC* B 6 KP7OWD+CCT+OCF3M6*".6."J7C*JB * B * B 2 	D3M;E3S?I7NZ .(J1*2&52MNJ2MNJ* B 6 R +HCE3F3O7L
O3I
N2 	D3M;E3S?I3N6 7USS2 WB6 KG7ESA+ECR3TGH3N> 3RV 3QGU7LR O*M+CB * B *(/M*1*)/MJ/".6."J7C*JB * B * B 2 	D3M;E3S?I7NJ .(N6"06)"J7C*JCC* B 2 T3EZ 3O3L3O	W+NCG3D7I7EON3I;O6 WM+SCT+BCE3GWR3AWT7RR 3H;A6 KO6 GE3U3A2 ?T. F5".6."J7C*JB * B * B 2 	D3M;E3S?I7NR /VV(
16)"J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M+CB * B * B +ICF3AR 3OKU+LCE3PWR7COI3I;O2 WV3R	S+OCN+OCF3T	H7SJ 7OSU3IWN6 OI2 WD7SKI+E3D2 TE*M+CB * B * B 3C& 3NN 7OWL+MCN61N 7HWO+LCD+BCE3R7E3OW
3DZ 3R7O2 T3ER 3OKU+LCE3PWR7COI3I;O2MNJ* B * B 6 N 7TSA3EWM+NCT3W	H+CCH3F3O7L
OS6."J7C*JCC* B 2 ?D3U3B7EB 3ROE3I	S+OCN3XGB7RN,*,3V3RR,*,3B7TR,V*MC*M+CB * B * B 3TWH* CC7MOU3TF 3L?S2 WB2 WR7M[O+ECD3F?R3MR 3OKU+LCE3PWR7COI3I;O6 SS3AWT3M;ET7S*JCC* B * B 6 CA3PGE3R;I3G& 3N> 3TWH7RJ 7OSU3IWN7SV 3SSE2 ;I2 ?C7NWJ7NSC3I;O2 	W+TCH3T	HS*M+CB
* B * B 7RWO3T;IE6."J7C*JCC* B * B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B17FKO7MSA.(F23HZ17ASC+OCR3AGN7LOY+I;S*.:...SA.,KA./N//XF,22;H+OB.+OCF7COA+E3S*43X+I>6*33X*MBJ* B . F126;H+OB.+OCF7VKA3IKA7
OE.,[I"/6)*JB . J 2 ?F3RGM/TZ(3H603E;A+S"/.8GF.5V.")6)*JB . N 2 ?F3RGM/TJ(.0CH3SGT3NGD+RCD7D[E7ISA3I;O+S"/.8GF.5V.")6)*JB . R 2 ?F3RGM/TJ(.5CH7CKO3R3E3A	T+OCN3CWO3F	F3CWI7NOT")*M* B * B57FKO7MSA2("420?R/WOI./F(.0GF.2V.")6)*JB . Z 2 ?F3RGM/TF(+H>021"22 	E3
;E3V3A7UOE./F(.0GF.2V.")6)*JB . ^ 2 ?F3RGM/TN(.7CH3C7U3UGL7T[I7EB 3EOR7ESN3AWG2 [O2 	E3G;E3V3A7UOE./F(.0GF.2V.")6)*JB . " 2 ?F3RGM/TF(+H>021"32 	E3G;E3VOE7TKOS6)*JB . & 2 ?F3RGM/T^(7HZ07ESC3O	R*3"/21Z0*1:2*5&)*MBJ. F 20Z 3O7R+AT.1CH./Z13HZ 7ASC+OCR7MSA7RI
 2(+I23*9CH3FOA7TKO+S&)*MBJ. F 21Z 3O7R+AT.9CH7VKA3IKA3L	E*3"/21Z0*1:2*5&)*MBJ. F 22Z 3O7R+AT.1CH./B13H& 7TKE3A	T+O3N*73X69[H3A	R3AON+E?S*8CH2 N 3Y3CE6)*JB . N12 ?F3RGM3T&(26Z,*2:0"66)*JB . R12 ?F3RGM/TF(+H>022"42 ?R7TSA+ECD3FOA7TKO2 GM3T	R+X" +I23*9CH3FO
7TKO+S&)*MBJ. F 25Z 3O7R+AT.9CH7VKA3IKA3L	E*3"/21Z0*1:2*5&)*MBJ. F 26Z 3O7R+AT.1CH./N23HN 3HOE3K> 3NN 3O7M3UGN7LSI7IOE./&/7HZ 3A	R3A3B/E^,/X",7HKO3I	G3N3A",*M* B . F 61"22,"53F;I+A3L61"0.,B13H	D3FWF3R;E+C	E*MBJ. F 27Z 3O7R+AT+I26.3GF.8V.")*M* B *1B87FKO7M
A.(SA.,KA.,WI.,KI.,[F*.&0*MBJ. F 29Z 3O7R+AT.5CH3O3N3Y&,.2N,*0CH3FOA7TKO2 WR3T	A3NSE*.B +NCO7RSO3A	T+O	N2MNJ2I?D3U3B7EB 3ROE3I	S+OCN7TCM3F3I2,	FL7E"J	C3OWP+N" 3U	N/TV=2,R 3E	V/C7E2	SC+R2	2 OA7COE+S^=7SGE+I
N")*M3C>I3P;E6 V(7NSI*=262 WD3VOI+E^=7LSP*	B,3AOC7EOS6=N	3E?Q+U
T")*M3CZI3IWL* B=7TCM3F3I6(N	+S
P")*M3C>I3P;E6 V(7NSI*=292 WD3VOI+E^=3D/S*	B,3F3I3EZ=3IWL2,F 3CWC/S7S2	WS3Q;I7OSU"	6,"J	C21RI7ICS3OWS2=R	3EWL+T
E")*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B 6 J 3ESA6 KP3O3B+ECM7PKA3AWM7TKE2 GCR7D"J7C2J2I3O	G3C3A2 ?EF*M2IGC+LCL3C/H3E[O2 V(+O	F*MBJ. B160J 3ESA. V(.,"16)B 7RB,+R213N6,2,?CN*M2I[I2 
(+O	F2 ?G+TCO.9&92MNJ* B * B 6 B +R:.*.:.*.:.6.KP3O3B+ECM3N7U7BKE2 6(+ACY+BCE7ACL3H7A3E	RC6)*JCC* B * B 6 KP*1:.*.:.*.:.3P?R3BWL3M: 3UKM+ECR2(?C3N	T3NWUD6)*JCC* B * B * ;N*.:.*.:.*.:.3N7U7BKE2 [O2 GC7SOE2MNJ* B * B 2 6 *.:.*.:.*.:.6.WN3MWB3R> 7FZ 3A	R3A3B
7S*JCC* B * B 2 ?C+N:.*.:.*.:.3C;O3SGT+NCT3UWS7DR 3OR 3E	C+DCE7H
O2 GM+NCY3E
I7E[N7AWLE7S*JCC* B * B * B * B * B * B 6 R 7OJ 3EGTI7N"J7C*JB * B 6 KW3IWT. Z(*,&16 KP6,KP21:,",7M"J7C*JB * B 2 ?I"=60*JB * B . 7X.0B.2MNJ*MBJ* B 2 N 3A3L2 ?C3RWR2 :(*,3M+I3O7X",7BKA*,3S7VJ,*,3D7BR,")*MC*M+CB * B 3P	R+NCT3MGEN7S"J7C*JB * B 6 KW3IWT. Z(*,
26 "(7BKA*(	J.,7J216,")*MC*M+CB * B 3P	R+NCT3SGT3NGD+RCD7D[E7ISA3I;OS*MC*M* B * B 3W	R+TCE*(26*3B)*(S+J2)/JF=*,	M2MNJ2MNJ* B 6 B 3R;I3TN 7OKR3EGL3T?I3NN 3O[E3FOI3I;ET7S"J7C*JB * B 6 KW3IWT. Z(*,&4*MBJ* B 2 R /OF *2B0/IF=",7M*JB * B 2 ?D. F120* *=21M*M* B 
 B +IF3I*-.)F *022. B1*4B,.1R0*MBJ. B1222 *=/I*(+J3J*-.)J/*MBJ* B 2 ^ 7OR /OF "160*JB .1R0. 7L+J"+3I&**-	I"/62*JB .1B1* D/J6)3R2(")*M. F *2B03W	R+TCE*(26*5B)+I",3D*(2)*,*=21M6)"J7C*JB * B 6 [M"=60*JB * B 2 GC+LCL3E
I+ECN*(3R3V6,6,[M")*MC*M* B * B 3C3A7LR 3ROA+E" 7MJ,2,?C3N.,*,	D2MNJ2MNJ* B 6 B 3R;I3TV 3IWG3NGV3LWUS*MC*M* B * B +DCO.1B3. 7I21.,*MBJ* B 2 2 *=/I*(+I3I&-.)J/*MBJ. N160N *(	I*=RL6)*JB * B 6 KW3IWT. Z(*,&66 N(*(	J.,7J21.,")*MC*M+CB * B 3P	R+NCT3C7U3UGL7T[I
EB 3EOR7ESN3AWG2 [O2 	E3G;E3V3A7UOE2MNJ*MBJ* B 6 ^ 7RSI+E" .6^,*)" 3D*(2)*,*=21K6)"J7C*JCC* B 6 KP7ISN2 	E3G;E3VOE7TKOS*MC*M* B * B 3W	R+TCE*(26"86)*JB * B . 7L"0*M* B * B +DCO.1B5. 7J21.,*MBJ* B 2 R /OF *4B0/IF=",7M*JB * B . 7L/LF+*MBJ. R120R *(	I*=VL6)*
B .1B56 KW3IWT. Z(*,&9* 3J*(D+I2)/IF=*,	M2MNJ*MBJ* B 2 N 3A3L2 ?L+ACD*(3M7KJ,*,	V2MNJ2MNJ* B 6 B 3R;I3TZ 7ASC+OCR7MSA7RI2MNJ*MBJ* B 6 ^ 7RSI+E" .6F,*0B)K*M* B * B +DCO.1B8. 7I216,*MBJ* B 2 R /OF *7B0/JF=",7K*JB * B . 7L+M"*/JF-2)&+*MBJ. ^120R *(	J*=VL6)*J
 .1B86 KW3IWT. Z(.,F12)& 2,R(*(	J.,7J21.,")*MC*M* B * B +IF/KF-.)F *825. "1*5B,.1"8*MBJ. "165^ 7RSI+E" .6F,*9B)K*M* B * B +GCO+TCO.1B02MNJ*MBJ. "128N 3A3L2 GV7RM2 6(*,3K3V:,7CR,3VJ,*,3T3D&,+E	R"M&J+ICF2(WI+R: +E;Q* &16 KW3IWT. Z(.,&9"86).J&928ZI3O7R+AT*/B
****6*^ 3A;R3I
N* ****^*"/*M* B . F *IB	3C;O7VKE3G;E+CCE7NSO2 WR3AC+ECD7ASF+ECR*5B03IWT7RSA3I;O+S>	")*MC*M+CB * B 3P	R+NCT7VKA3I;A7COE2MNJ*MBJ* B 2 : 3V:=/CF+*MBJ* B 6 ^ 7RSI+E" .6F,"26)*JB * B 2 ?D. &120& *=21N7V*JB * B 2 ON*=7I"1*M. F *9B03W	R+TCE*(26*1&32 ON6,[T*(	I2
NJ2MNJ* B 6 B 3R;I7TJ 3OGT3TSE2 GF3C?T3R6 7AKTI7X"J7C*JB * B 6 KW3IWT. Z(.,R12). *MBJ* B 2 R /OJ *2B0/IF=",7M*JB * B 2 ?D. F220* *=21K*M* B * B 3L6=2**(*-&1"+7I*JB .2B1* S/J6)3V2(")*M. J *2B03W	R+TCE*(26*1&5* 3I*(S+J2)/JF=*,	K2MNJ2MNJ* B 6 B 3R;I3TN 3O7M3
GN7LSI7IOE2MNJ*MBJ* B 6 ^ 7RSI+E" .6F,"66)*JB * B 2 ?D. N220& *=21M*M. J *3B03W	R+TCE*(26*1&7* 3I3B&(6)R,*(	I*,DI6)*JB * B 2 ?G2 ?T. B1"0*M.9&96ISSO7P*JB * B 2 ;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"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