File FACTR.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN2 GF7CKT2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 Z 7ASC3O	R7ZSA3I;O2 [O2 T3E6 7AKT+ICX3A& 3N?T* CA3P?R3DOU3T> 3FF 2 ?L7
KE2MNJ* B * B * B 6 R 3RGI7NWG7LKA2 GM3T	R3X2 2 ;A3DF 7NV 3PWP7RR 3RGI7NWG7LKA2 GM3T	R7XV *.B 3L" A7S*JCC* B * B * B 2 ;U+ICT3DGI3G;O+ACL3W	H+CCH+ICS7NSO6 SS3OWRD6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 GF7CKT*(3A7PKE*,3N+I3A7IKE")*MC*M+CB * B 
 B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +AB * B 2 GM3T	R3XF 2MNJ* B * B * B 6 B +ECR* B 3OWN2 	D3M;E3S?I3N3A6 KA7R	A2 W3EWR2 WP7RWM7TSA3I;O3S> 7FJ 7OOW2 [O2MNJ* B * B * B * B * B * B 3TWH2 GM3T	R3XF +RCE3S?T3RSE2MNJ* B * B * B * B * B * B 3D
I7EON3I;O2 [O2 WP3R6 7USS2 WB6 KG7ESA+ECR3TGH3N> 3RV 3QGU7LR 3O: 2MNJ* B * B * B 2 : * B * B 3OSR+ECR+OCF3TWH2 GM3T	R3XF 2MNJ* B * B * B 2 & +AB * B 7S+I3E> 7FR +HCE7FKI+SCT3D7I7EON3I;O6 OA3S
I3NSE2 ?T2 T3EF 3RGR3YF 2MNJ* B * B * B * B * B * B +ICN3TWH2 GC3L	L+NCG3P?R3GGR7M^ 3H;E2 T3E6 7AKT+ICX+ICS+ICN7DWO3BWL2MNJ* B * B * B * B * B * B 3SKU7SKC7ISP+ECD7DSA7AN 7TKO3AWG2 ?M+D;E2 & 3A:=2 W+ECN3TWH2 GM3T	RX*M+CB * B * B * B * B * B 6 OI2 ;I6 OS7P
 7ESC+OCR3S?T3R
A3E6 3OWD".*M+CB * B * B * B 7IKE* B 6 KE7RKO2 ;I3DOI3A?T7R^ 3HOI3H& 7S* 3E?R2 [I2 T3EWR6 OI2 ?N6 KE7RKO",*M+CB * B * B * B * B * B 2 ;A3D& 7SR 3HWR3E& 7FR +HCE3P?R3CSE3UWR2 GF7IOL".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3TWH6 KO3I	G3N3A2 GM3T	R+XB,3
&,7SJ 3E3P3AWC3DJ 7YR +HCE3T	R3A
N3UGL3RZ 7ASC7OOR2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3SOU7COE7S[I3EN 7OCM3UGT3T?I3N> 7FR +HCE3C3O3U;M3S> 3F2 2 ;A7DR H7E*JCC* B * B * B 2 ?C3RWR3S
P3N	D+NCG7R
O3S> 7FV ".*MC*M+CB * B * B 3R[E3EWR3NWCS*M+CB * B * B * B +JB.+HB.3W3I3K;I3S;O* B-3TWH2 3A3GKE3R	A3CV 3IWG3NGV3LWU6 KP3O3B+ECM"-*M+CB * B * B * B 3CGL3R;E3D;O6 KP7EOS2,> 3X?F+R3D. &1*6:5* ;H* ;J2 ?B3W3D+E3R* ;R* ;S2 GM3R	TN6,*JCC* B * B * B * ;G2 WP7TKE+
B,3ASN* ;J* ;H2 	W3L	K3N?S+N6 6 N	7OWL3T?I3N> 7FJ 3E3A2 ;AD*M+CB * B * B * B 3C7O3PWL7XN 7YSS7EOM2 [O2 	L3NGE3RV 3QGU3T?I+N
S2,: 3UWM7ROI3CWH2 GM3TWH7MSA+I3K2MNJ* B * B * B 6 Z +O;L* 282 ?N..N .,F .9Z66,B ..J *167.2R3".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 GF7CKT*(3A7PKE*,3N+I3A7IKE")*
* B * B 3D7I7EON3I;O* A*12)7PKE*(&1*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O6 CD2MNJ2MNJ* B * B 2 N 7OCM3UGT3T?I3N> 7F^ 3E
I7HOT2 ?F3RV 3Q	U3LKI7RSA3I;O2MNJ*MBJ* B 2 R /OJ 20& *=21N*M* B * B /XB=".*M* B * B /I7JI*M* B * B +DCO*1B0/JF=",7N*JB * B 2 [I2 F(+BS3A&(+J&)*-	X*120*120"5*M* B * B53XF=+BS3A&(+J&)*MBJ. F 20& 3J&=3J&+A*M* B * B +ICF*(	X. F1.0F,*120"260*JB . B22 WP3R&(.)F
6."/*MBJ* B 2 & .0B=*MBJ* B 2 R /OF *0B0/IF=",7N*JB * B 2 7I21&="-61*JB * B 6 CI21&="+61*JB * B 6 CI3I?V3T&=*MBJ* B 6 " *=:02MNJ2MNJ* B * B 2 N 7OCM3UGT3T?I3N> 7FR +HCE3IT2 ?C3L7U3N> 3F2 2MNJ*MBJ* B 2 R /OV 20. *=3IN*M* B * B /K7I+I.0K*M* B * B /D7P3A.(I6
*JB * B 2 [I2 &(*-&1. F1.0R,.0J,"5*M* B *2B5/K7JK*M* B * B +DCO*3B0/JF=2,7I"1*M* B * B /I7J+I.0J*M* B * B /D7P+D7P21R.20F*2(+K2)F*2(+I")*M* B *3B0/K7J+K/JI7A*JB * B * A+K	I6=CD2MNJ2MNJ* B * B 6 N 7EKA+CCH7FKO6 GE3U3I7IKB3AWT7DB 3I?VT*MC*M* B *4B0+ICF*(7X3
KA3SR(+P*)7PKE*(	K.)V4.,B5.,B5*MBJ. R 25& 7P[I/O7TK*M* B * B 3XR=7AOB6(CD6)B*+ERK6)*JB . B52 ?C3N	T3NWU*MBJ* B 2 & +F" /XF)*120.1B1.,V52MNJ2MNJ* B * B 6 B 3E7R3UGT3T?I3N> 7FJ 7OOW2 [I2 WR3Q	U3RSE2MNJ*MBJ. V 25& +F" 3I	P7VSO*-	I. F1.0^,.0V,"7*M* B *5B7/K7I
I	P7VSO*MBJ* B 2 & 3J&=*MBJ* B 2 R /OZ 20* *=21N*M* B * B 3XF=2(+I")*M* B * B 3A&(/J6)3A.(I6)*JB * B * A+K	I"=7X*JB * B 2 	K2=	K2+GI*MBJ. Z 20& 3J&=3J&+A*M* B * B 7PKE6(CI3I?V/T6)7PKE*(	I*MBJ. ^ 60B +ER/I6)3I	P7VSO*MBJ* B 2 & +F" 3I:-.)^ .2F,*020.1B0*MBJ.
^ 22& 3J&=20&+*MBJ* B 6 " *=A+I	J2MNJ2MNJ* B * B 2 N 7OCM3UGT3T?I3N> 7FR +HCE3IT2 ?R3W> 7FV 2MNJ*MBJ* B 2 . 20&=20&+A*M* B * B +DCO*9B03K&=+P21N*M* B * B /K7I+I.0K*M* B * B 3A.(/I6)3A.(+I>)X*M* B * B +ICF*(7I.1F)*120*920"765*JB . V72 +I"=7I*JB * B 2 	K.=C
"+7I*JB * B 6 CD*=A+K	I*MBJ* B 2 R /O" 20* *=21/IGM*MBJ* B 2 . 3J.=20*+*MBJ* B 2 R 3PR=/PF-..CD**A+I	J**A+K	J*MBJ. " 20& 3J&=3J&+A*M* B * B 3A.(/I6)D7P*JB . B9. CK.=CK2+GI*MBJ. B120& 20&=20&+A*M* B * B 7IKE"=60*JB * B 2 WR7TKUN*M. F *1B07IKE"=63*JB * B 2 
R7TKUN*M* B * B 3ESN&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

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