File FORIF.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 ?F3R[I2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 Z 7OKU7IKE2 ;A7A	L7SOI2 [O* CA7G[I+ECN7PKE3ISO+ICC3F;U3C	T+OCN+ICN3TWH
MNJ* B * B * B 6 J 3A
N/EB 6-B2I*M+CB * B * B * B 3C7O7PSU+ECS3TWH2 ?C3E[F3I	C7ESN3S> 7FR +HCE7DOE3IWR3D: 3UKM+ECR+OCF7TKEM7S*JCC* B * B * B 2 ;I2 T3EZ 7OKU7IKE2 WS3RWI3SZ *(	X*=A*0.)3S7U*(A3KN)+OCS+K/X3B.(2)	S3N. X6)*JCC* B * B * B 2 W3EWR. 7K.1J,*,:.2.6,2 ?T6 CA3P?R3X7I3AWT2
T3EN 7OCM3UWT7DZ 7AWL+ECS+OCFA*M+CB * B * B * B 7G[I+ECN3F;U3C	T+OCN3SKU3P?R3GGRM*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL7FKO+IF3F;U*,3N3MF,*,3B7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B 3F;U2-GN+MCE+OCF3F;U3C	T+OCN3
KU3P?R3GGR7MR 3OJ 7EV 3SSE2 ?F3RN 7OCM3U	TN7G*JCC* B * B * B * B 2 R 3AGT2 ?P7ISNS*M+CB * B * B * B +NB 2-WD3F;I+ECS3TWH2 ;I7TKE3V3A6 WS+CCH3TGH/TJ /NF+2 ?P7ISN3SF +RCE3T/AE7N*JCC* B * B * B * B 2 > 7VKE2 T3E& 3NWT3RGV+L" .0J,+P	I6.R +HCE3SGP3C;I3G& 7SR 7
OU6 B2/IJ//NF+2MNJ* B * B * B 2 6 * 6 3TWH2 GM3X7I+UCM3OSR+ECR+OCF3TWH2 GH3R?M3NOI7SR 3OJ 3EZ 7ISTE7D*JCC* B * B * B * CA6 J-7EWS3LGT+NCT3VOE7TKO2 [O2 ?F3U	R+ECR7COO3IWN2 ?C3E[F3I	C7ESN3S> F*M+CB * B * B * B * B 2 WL7NSG3H6 "+61*JCC* B * B * B * B 2 F 6 W
/BB 2,F 6 WS/BF *,:.*.B,7AN +UCBM*M+CB * B * B * B +BB 2-WR3S3U3T;A7TZ 7ESC+OCR+OCF7FWO3RWI7RN 3IWN2 ?C3E[F3I	C7ESN3S> F*M+CB * B * B * B * B 2 WL7NSG3H6 "+61*JCC* B * B * B * B 2 J 6 WS/BB 2,J 6 WS/BF *,:.*.B,7BN +UCBM*M+CB * B * B * B 7IKE2-WR3S3U3T;A3T
 3R?R3RN 3OWD2 W3EWR2MNJ* B * B * B * B * B 7IKE*=B02 ?N6 KE7RKO2MNJ* B * B * B * B * B 7IKE*=B1* CN7NSO6 KG7ESA+ECR+OCR7EWQ+ACL+TCOM*M+CB * B * B * B * B 2 WI/RJ=2 6 2 WL+SCS3TGH/NB 2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 6 6 WM+SCT+BCE3GWR3AWT7RR 
H;A6 KO6 GE3U3A2 ?T2 WZR7O*JCC* B * B * B * CN7MOU3TJ 3E^ 3RGE7TKE2 T+ACN+OCR7EWQ+ACL+TCOM*M+CB * B * B * B 3TWH2 	F7RSS2 3E3EWM+NCT+ICN3VOE7TKO* CB+ICS7ZKE3O& 3NF +LCL7COAE7S"J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3F;U2-GN+MCE+OCF3UWS3RZ 3UON3T?I7NN 7UCB3R
O3R7A6 OU+ECD7FKO2 ?C7MWP3T;IG*M+CB * B * B * B * B 2 GD+TCA3P	O7NOT2MNJ* B * B * B 2 N 3A3L3I
N6 KP7OKG+ACM7MOU3T" 3AWV2 ?F7RKT+ACN7ESX3E;R+ACL3SGT3T7E7ESN2MNJ* B * B * B 2 N 7OSN3A;I3I
N2 GN7MOE2 [O6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 	L3SWT3D& 3NN 3A3L2 ?T2MNJ* B * B * B 2 Z 3O	RF*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 6 V 7SOE2 WR7CKU7S[I7ER 3EC7NGI+UCE7DOE3C	R3BSE2 ;I* ;A2 GR7LSS+O3N* ;H2 	W+L3F2MNJ* B * B * B * ^ 7MSA3H7E3A	T3C3A2 WM3T?H+
CS7FKO2 	D7GSI+ACL3C7O7PSU7EOR*	B,3JO7N^ 3IWLY*M+CB * B * B * B 3ASN2 ?S+N3S2 WN7W& 3O/R.,F .9B62,N 7HCA7TKE. R26.R +HCE7MSE3HSO2 [O2MNJ* B * B * B 2 & 3NWD3X;I7GR 3H?R3UG2 T7EB 3ROO7EWD+RCE7HOA2 WB+ECN3MSO3I	F+ECDT7O*JCC* B * B * B 2 	S3M3P7I	F2 T3EN 7OC
3UGT3T?IN6."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EZ 3O	R3FZ(+U3N3N6,*,3A3B&,+E	R*MBJ* B 2 R 3IWM3N	S+OCN/AF(2)J,*(&12MNJ2MNJ* B * B 2 N 3HOE3KZ +OCR7PKA3AWM7TKE6 KE7
KOS*MC*M* B * B 7IKE"=60*JB . B22 [I*(	M. B3.,B4.,B4*MBJ. N 20& /E7R"2*M* B * B 7RSE3U;R*MBJ. R 20& 3F6(*-	N. B6.,B6.,B5*MBJ. V 20& /E7R"1*M* B * B 7RSE3U;R2MNJ2MNJ* B * B 2 N 7OCM3UWT2 ;A7DB 7ROE+ECT3C;O3SGT7NOT2MNJ*MBJ. Z 20F 3N:=*MBJ* B 2 N 3O[E*=:2*0"
.2B.2*;A*+:1"06)*JB * B 2 ?C7NSS*=:3.1F4.5N92*?CE7F*JB * B . GS2=	S3NN(7OONT6)*JB * B . GC2=?C3SN(7OONT6)*JB * B . 7C.1B.*MBJ* B 6 N *=:0"0*M* B * B /JF=*MBJ* B 2 Z 7U+N6=WF/NB(*.&0*MBJ. ^ 60V .2B=".60*JB * B . GU*=:0"0*M* B * B /A7I22:*2MNJ2MNJ* B * B 2 
 3O7R2 ?F3U	R+ECR3CWO3F	F3CWI7NOT2 WR7CKU7S[I7E	L2MNJ*MBJ. ^ 65" 2=	A2*?C7NSS*MBJ* B 6 V 20Z=+UN+X.).2B.**+C+U61U62*JB * B . KU.=GU*MBJ* B 6 V 61V="0*M* B * B /A7I+A7I.1B.*MBJ* B 2 & 3FF(+IB)*820*820"765*JB . B8* A/J6)3CWO+F"*3F;U3ZN+.*GU.-KU")*M* B * B 3
*(2)N=3O[E**+SU61*JB * B 2 [I*(7J*(/M*1&). B9.,B1.0F,"060*JB . B9. 7Q+C*17CN-61N**MBJ* B 6 N .=GC**/S+S*1C*M* B * B 7CF=*MBJ* B 2 * *=/J"1*M* B * B +GCO+TCO"760*JB .1B0* A.16)/AF(.)B*".65*JB * B 2 WR7TKUN*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"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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