File FTNLIB.RL (Fortran library or relocatable file)

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

RND   C>RAND  C>INTFS C<IFDIF C:MOVE  C:OCTA4 C8STDEV C6ISWR  C4LEX   C2DATE  C0CAT   C.DIR   C.ZFILL C,F4096 C*I4096 C*IFIXR C*PACK  C(UNPAC C(NUMB  C&VTCLR C$VTHOM C$VTESC C$VTPOS C$DYPUT C"DYGET C"DYDIM C"DYRST C"CAL   C IFCHN C^CCL   C\UEXIT CZINVAL C
:NR<BJ0> 	?0"<H/>2C/=XPHP8J8J8J"XHP"X.NC<<(.XK;C<K;"0.XHS"NHT"NHU"NHV>(.!K:"XHV"N.![	9+AZ5<BK	8KK> .0J58AZJ.0=]KK>(.0*K7>(.0K+M0!+K0&>K>[J.0[$ORSR["O"JZBYBXBWDUDSBRHOBNBMBLHJBIBHBGBFBEBDDBD^> 70HA+NCD> B 0AGR+NCD" A40J+NCDB B BZ"ZDBFJ[>E\GK=?<,GB
:?9 BGK7?WXGB
X75$BGK4>XLGDJB-7W(P40JZ3ASNB B TB32>A4GB
1?;BGK9?/\GB
Z76,BGK5?\PGB^Y	3(BF2/&I,CFR6&[,CFSS"[DLC?S4(4JO)HSNPNNYH7TLDC[S7ULDC[S7VPBA\^A76TBGK5VE\G+43]NA\^A?6TGJCK0NA\^A;.4GG+,;?=POC]04IA?1?TIPGZ;8OAS:>]1PDN/>,A;?<]PQAC.LQEG-8D1PQEC6XQEG5<GQPQHC=$QEG;<J%PQKC30QAA(BM $BNYH"I(BNXH"J,BNXHFKOJJ"HTBF:E T\BBZDBDPNBJF
CLFD>A,HJB:H!D FB:G D\FB:F DXFJ:M?<BBZEBEPNBK>"DPFNHD=LBN9D!HLFTB2C"A0GDJL"D0GDJL"E0GB[<"ATBNYD"EPBNXD"DLBNXD"CHBNXD"BDDJKI>B,B3:>I$GB^C8PBN9H=D\GXH \B]APDRE8DAAA9\P)APDDA;\AA=<
<5APAF0->DLAA]?UMRB^> 30$A3N[TSSB "07ISN+FCS BFJHC?(FBZ; IE\TC2ABA$GDRA J JNX A[,FB^</>4BF!^2YXHKC=TTFFYVUW FFYY!ZE\KBY(FTN0 *AHCFPH*"HCFLG,GLFD8G \CTF0IBA CA\^AI(DJR1""E\KB"-U,P<0BHB"1YHPB;V"TP/DCFB<V"$PJ>+;HHDAU7K8T 4FNX %\$HH/"CZB[:,J(BTF1
:AHKA?:?9-POC<?<8OA???69PQAK=TQAA E\CQ^ K\JD)^BN\FNX K\BN8JJ(NT3?"AKX GE\CA
K> OJJ\TG<GD-
BQ\BN9FFXNA\^A%
DKD)[?N4II<>,BO((>/(BJJ0&QDHHZ&QDBO((?%$BO((BDNO((CYDNO((SYOJKNS8OJKKK7 OJKPK6 OJJ/[5OJ;NB(DJ:-: \JD)]?NPBFHJWX<FF)\V/ B=WV(0DJKNUU$FFIUUV(FF%V+3<JI;2HAHQ DA12XPEAA3
"QAPOG=A5XAAA6\N]APDBA8(AA=9
D)APD*5;XOEAA<
Z5APPGP1>OAAA?8?JN^> 30$A3F	D?FB 0A?M+VCE" A00&3F	DCFB BZ"TDBFJU/WXHH"M"M4HXH BH;I4!HO( "K4K006T3OWVB B BX26LHF"\CC\FOLBHG OJ>K)H$JNX!2M$HHSP*MPJJZK*MNFHG<G<O" CI\FB GP4DJ*,BKFKR2TPFH[C3JLHFO7CDFH[C/VXK<$BTCTD2U2ALK<0B<CTD3O2A$KHOOPBVE\KCP4XCPGCVO?<BFC[^>
30<A3CGTR4B "07OSC+AB4 BF>D BDCFRK"ADCFR*BAHOCZ***(B[?*+(BN8F<D8BJ+=$LGK<B*(NN8J<J<FJ+B*(NNH+>,BB
=?;(BG9 E <%PRK:HAC;<P1PQO=LAG>?= 4GA6^> 70LA3TWD?VB 0A3C7EKAB G0/FB4*9B670LA+TCO> B 0A3F+OCTB G03FSA* B 30XA+MCP> B 0A[I+ACDB G03FKS* B 30XA+DCV> B 4AGS+RCT" A40N3TWDCVB XH[0B4HP"R+M4PDHCMN5\HPNRPG NO*(GK,HU 1C&AHPXH[!DE\P;&D ,HA  EP[Y E\BAG&,HU 1G:AXPXH
!DE\P P[! E\BAF-,HU 1G*A4PXH[!DE\PP[Y E\BAF5,HU 1G:AXPXH[!IE\PP[) E\BAG ,HU 1D:APXH[!KE\P  E T02A4CFS OM\HPN GDDA\^A; DDH7B\CTD2A:AGKCM $BY^> 30$A7SKW> B 4AKE7RKO" AXH[!BE\PBD^>HL00&F7SKWB B H"RB$POR3J3 OJ:PJAHA A XBF"X&WHK< B\CFR
"G\CFRBGHOTC2&A\KH OJ:/,!LFN9 DHOJR*3(JNX "3E\KB$P6I^> 300A+ECXR B "07LE* B  BF>D BDCFRU*ANCZA HDDCZA"XDDNN BA$FDJAC?\FOLBXIDNOLBHH OJ> :PPNN(AB"\DJ"U E A??[:NL^> 30PA3AWT> B 4AE+ICT" AN?FWDPLAA2GGD+TCEB HC?\FBZG2OXBFH  CA\^A H DD(GNO\HPN?,G8FBB>O>\HP
K,G8BN8H<J4DH7CI\GB:>ADXNNFO<\HP
GLG\HPOA<G,N9JLJ\HPOK<G(BDH7CK\GNF E 0.IXOL>A3?XNXH[0BXP<)PGB2;AAC<<O5P
C>\A???:FJ^> 30LA+ACT> B 0A	D+RB " AEAB"TP01NE+ACTB B BZEBIHOCZF$XDCZF"BXDA\NA3? OJN,;> OJO S=4FB[<"DBF&C;LGD&C;LGD&C;ND*D"]DBFNCK:DNTG3:"ALCO*(;V(HH*;*(HC:CADXNNF;9LHC:CH(N8LCK7;6LHBNC:LFC:C!\FB GE\C5?TCB\G5LDE;?HHA HAC4\FHS4G JDNCJCDNH++KNH+CTO\B"BHDTN0
ALKT0"ALCD&C;3LHPKG*?4$OEAC5>AYAPEFC7\AAC8<
%APDO:PPAA?<>9APPFB?P30TA3R?RSRF C=REAK;=$MAPRI+TTBLAIR0E	D+RB B  7R8HF"7R8HH[+6A8HH[+*BNBB+?OJKNN<BF1NRA8CO((SN8FNJ AN FG\HH GG\HH DDPHH GDHHBA GB^BH GG\HH GBZ!MHLA\&A0<$JJ;IR 8BF0HVA NG8HA GN\A<H8BGHHC= GTN3A>A0GG; I XH[!CE\RC TBF?U BXCFS
"FXCFSU"FE\KCRHOCSUUE\KC^ HLA\&A<=(KK/:C$FHG<G$BC9?8$BT0G:A,KAB!8\ %BPGK
9:QEBA;^1BPPJB==(OABA>\F=B O
8A$^> 70(A3F3ISLB "03Z	F+LCL,DHF"\.1 FHZ1.JDHF<GB\CFHGHG OJ>)IDNFJ9J9DNBZ8B8\BN8D.0 BF>8,B C??((,J?>* $JCB8G= OB
<J8HA <A<X,BGR8&9$JJB)L\HPN GDDA\.AB1PK;HAC<< 5POCO><A
?S
RA^> 30XA.4&0>6B ,ASI.0Z9B G03I	F+XCR30XA+SCB> B 0A[I+ACDB G03CWL+ACR30XA+ACD> B 4AKE7RKO" A00Z.4&0B6B BZBDHOCZA"KDDCZA!ZDDOLB)Z,HF"WP[Q E\BAJUHA PAC]L.XSI.0Z9B H*XHFBZY&$DD"YP[U E\BA*",HLNIG?,HA  F I XFW,HU 1G&ATPK"+P[! E\BA:8 NJ	/FIHF00&:7FICRB BZ:B>HOC
;/E,DCZ;-Z,DOLBUZXFDMZUZ\FN[$UXXBO((S1ODAXS>(NNXHUUTBB?=?HDJBIUS<OJZ2UY\B[;UWXB;:UH\BN8JPH ND)YG( ON<A-HHJD9XH!HQ CC:\A?;?<1POA4=OA
>?8= 0RC^^> 70A3A/C> B 0A;U3POA" A40B3A/CB B H"6*,0HH", E 40VH3NGPCCB BZH"$BF"A&6PHH"TJTHA A(\HFHG$G4HB8G$B4HKBT<<B>&"4K<B$GA\.AB"OLB HE\KB	(\H[?(G\H;?B\BH."B,BZB9HOCZA"(DDNN BA FDNA*ALFD:A" DCFPI"AE\PKB6K>A??WZK^> 308A3UKM> B 0A3C7EKA" AOLB&Y$DFNS&Y$DF>W
B\CA\.ABK00:X3UKMB B BZX"L,HNK^S8FBZW!?,HNK>S<GB^W>,HF"I"K(FB>J!HNF9=V(BO.(G=,HA $B<(BN8D>,CO9F  ONHAJIDNB%=?:,CO)K	DNIK92J OKK8?7XIC?;9(HJNX ^A4BN\ 7< JB	56DDO(H^E\E+<VE\C;;! ONJY=OI/98NB	536 JAC5<0]<.0A[I+ACDB G07FCM* B 70LA+TCO> B 0AGF+DB > 1PQS;(QEG>=
YPQA [?DQAAD,HU 1C^A8F[IJ$LC??0(\JO)>P8BD
I?NLNI??4BO+F\,HU 1DVA0QD+J2P,HXH[!EE\QIY<$LGK?KJDNB==INI;P[Y E\FA1Y,HLNIC?PNO+H?C<CN]H??(CN\H?:$CN\H?9<CO8??\BG+?"/$LCC??6<GA\.AB $LCK?3= OH<%0H,KN	$+;NB[J3J0JD%HON8FFXNK574<GD;
 E\PKG I4AA=5
YAPDGA7 AA=8
<%APDRE:DAAQ<\D5APKG4A>HAAA?PG07F[D* B EG9^-APQB338,QEG:OAA8 !E\G?"&$LC[><U4CFLT?<,FHS<S0GH"&"&$LCK><U8GNLDG=PBG;=<D0CB\S?<0CN9H<J,B	:?9<EJ.DBLNIS>PNGO>C=PNGO=C<PNTG3<*AXKT0>A GJ";P[] E\FA!\E\E+8.7LKTN2>A\CN\ 38\JB	69E\E+8+ENXH[HBHA A E\C?5-<JG?4>H$IBW374
JNN+5 OKKO?2$IPKGOK24AAC3< QAPPFAS5$QAAC6<*]APPFI8TPEAG9= )APD0C;<AAC<<P5APDQG>HEAC?BDG07D[I* B 30$A3R7ER B C=XREBHDOK?FTFB[?"\E\G>\78C<G%PJTN0!>A8EXH[!HE\RX[DS,HA IJA\^A(UNBXU$U0DB<S$ PJC;=$ 0BB	<G;TDA\NAPU OJJ3?:$IJ:+KHQ HAY9QABA:\0-BPQKOA<PEBA=^I9BPQII
?0OBJB6^> 70XA3T?H?MB 4ASV7CKLB G03VWT+SCC70XA3T?P?SB 0AWG3N?I" A40Z3T3CCRB B?J:HM B6FSV3H7OB H/>(HXH  A003VWT+SCC 0BF>P B4CFRW"M4CFRPBMHOC"PJ:HM C6\SV7POOB H/=(HHZ+*L,HNH!3<DHBJL3;DHXH DBZ\B.HOCZ]&54DCZ]&.4DOLB".E\KB+FJ93:DHB"9/A(K [U PKCAG:,AC;<
1P87=$AC>?H= ?JA\^> 30TA3R?R?RB 4A	D7PSUB G03D
Y+ECT304A+PCYR B BNJBS FA\NA(H FC8H !LBO* FG,HU 1A*A\PPBS6NPCSPCL6Z	D7PSUB $3? HC
>?=LBGO>?<,GB^=/<HJAY($03D
Y+ECT<<IHKH3E\GK=>=,GB:C\!<FI	:
9<DJR5->HJXH C<(B(CDZ*+3(CDZ*>=HHKB>,8HGO>?> B?7" LHD"=?20GD"=2LFHZ>?1DBO9H !DFNJ FA,HU 1D"ALPNM?<0GN8F<F8CG>J>NBZA->8HTO22A KHOTC2=>AHKAO7=?!<OCG4A	D3D7IB G07DKY+SCTEG<<C-PQDK?8QEFW%A%PQAHW:XQEG>=W%PQA"[=LQAA01PE3Y	DCMB H&.?FI[?"ADBXH[!DE\QX?V8CL^I=HBGK<
A,GNI6BXBF:BFXNA\NA?>8GC;><!(CO+HJ)HA 0C>I4GG
<+;\JH>.$BTF0HBA CGO8?8\GC\H+68K01P:7YORCTB LNA?5PO$(/30BA\^A:DLC?2<(LIB?1!HNTB30>A8GLNA?/HBFOVVHFXH FOLB"CLDJ[ 4G\BB[.CW\BA\.ACVO\B"DPDJK*;8BTF3:AHKAAA.XH=APAEG%0DLAAM1]/IAPG?!3LPAAA4\8UAPOG?)6(PEAA7^)!APPF?=90OEAA:^B-APDRE<DAAA=\P9APPF-?8PBG8^> 30LA+ACL
 B BOC?<>6<O00NJ+ACLB B LNI"HFB:AFXNND?TFB:E!FTBB"CPBN9J<H8FJA:AHHBB=XFLNA>I0N9J JXBFJF>F,BH
"7:TNG;9VXBN=J-P JEW:?98BJF8DBFJ"EPBTF2E"ATCB:=\BO(X?C4BFHGPGXNBHG6BHXH AFJGC6\FHK"7,$FA\NABGHOGS&&\DD(GWE\KCPFK!:JXFOLB:K0FDNK:KXFOHB;!XGTD2K:AHKA?6?;]POC9C8LA
;>21PABC=\AC><
=POBDQEG:<A%PQBBC4QEFBANAALDHELFAP<F;NCATA\E<HBNAVUHF!   TAVR%A$DHL !ALDB  H HQPJICH  P DCF! H HHH "UTCH  H HBNUHYHH  T TASUKTHHP GEPDAAM*EDCWC OTD"   <CENEUBHAHD 0ETCEBIRHDWA UPD!Y4 TDCBDIYHHL !OPC!YH HEDUASDAF! 0 TEADNASDAFU THHEDCDIYHAJRUD$H    V^> 30$
3FCSNB "$LOB00&D3FCCNB BZD"HE\CZE"BTDCZE"CTDLNA??8FKP=DFB[<3O8FH:-AFXNNXF+N4HBN2&<DJ"X6&BXH ADH7BB\GTD2C*AXK86BO> ,HXJDH7B\CF"& 7PGHGJ&OD>A0(,JK;S: OJJ.S9OJJ.K8 OJ>.=H\BT36*A4KAC6<?]PA G8,A?9>%)POC 
;<A?<?-5POBC>BA??O&&I^> 30LA+CCL> B 0AC3A;I" A00N+CCLB B DH7B\CFR9NA\HPN,G(FDJA/? FB[>N3\HPN9G(NN8J(JXHDH7B9\CHR&.:LDJ"P,7\PG GP[I E\BAB4HOK= OJJ^?<4B;,7\PGPG"8E\KB&0LCX $LOBAC;> 1P O=<A?>?/= OVA^^> 70TA3E	X?TB 4AE+ICTB G03M	A+NB A2RA\ALBA DLXH[!AE\PBOTL0
"A(K40VT3E	XCTB DH7BT\CFRFNU\HPNT G\FD"U 7XPC8G!DNO((CHDNO((";NH%[I B>H8(LJDH7BB\GFJHNI\HP^D G$FJG%,HA  C 7HPCHG	?HFDH7BD\CF*J	MPBB[?&RTBF"JG%,HA HB*HOJ 7HPCXGNH\HPND G$FB"M 7HPGHGNN\HP^DHGHA A8TDA\NA;%TDB[>"CLBDH7B\CTF2E:ATKAC>>= ,BC>^> 30$A3NGV?LB 0AGF+
B B G07ISS+OB 30LA3H	RSOB B"J4>ZC?AHTD0XNOOIRV000&
3NGVCLB B[>$G<BTF2(>A4CFH(CA\^A(HDD(G2(XNN;F3FXNNF7CXG2HXNH7\CNX!2IXNF:JF,FNFP[I E\BAFX,HU 1CBAN[F2LXNB[<2AXNBZF2MXNB:H !(BO;H& LFB:E !4BO: & PFB:C !,BO: & PNX $GLBN HGNO.(3;XNB:C !,BO.(?:<JA<<A9POC8C?N30PA+ICV> B 4AWS7B;SB G07M	P* B EG:FAAXH["DE\TP2I"A,P
N3F>A8CNL!+=OJ"S [Q E\BA"IE\P:KFE\C;<<!4CO* >\,CG;=FE\C;:<!$CO/38XNC
=37XNC;;<!\CO* >.XBG;7?FTBA\FA?7\GNOFG9,HU 1E^APQN\A33XNNDA+9 OJ;V?FHCFOK310FB[0DG,HU 2F"A<PLBIH7\CA\NA?7\GN+F3^XNB/P[] E\BA>N\GN;FFE\C
2?.DCGK-C0\FPJG?Q/AAA0]$MAPPFOA4HAAA5\?YAPF !78PEAA9^J)APPFH!;LPEAA<^D5APPFK!>HPAA9?X9APQFD!-TQEAE8"MAAXH["FE\P2OBIT0>A8CH7\GN;FFE\C;=<!0CO.(3;XNC;:<!$CO:(>  GBO7+9 ON:  \FC;8 \N< .(DJNOFK6DNC?<* <JC
:39XNK;5?FPBA\NA+9OJ;E?FXCNL!+<OJN??=0GN;F" E\G;3?FHKTN3F>AXCG;<?FDBC?96 $JNOF30 OJOT?=0GTN3F>AGN/F3/XNTB3.>A$CG;>?F8CO;>  GBO-;> ONF +8 OK;,?F<JAA?-;79APOEP0DPAA?1=RMAPPFLW4LOEAC6>E]APOE 	8LPEAC9>K)APPFC<4PEAC=>G9APPFNC?N30$A3FSA> B 0A7F+PB B G03S?T* B 3
XA3LGO?TB 0ASF+VB B G07COH* B EAK,8
=APRD%K2XREAK5<	-APR(K;<RAB8 AE\C
>3>XNXH[!HE\ P[% E\BAFU,HU 1J&APXH[!KE\P"NP[I E\BAFP,HU 1CBAN+F2$XNA\NA?=0GN;F3FXNN;F3FXNTN0A>A,CG;;?F(KTN3F>A$CNL!+<OJ;$?F8CO+(3SXNTG38>A EC;8<!8CO+H3RXNXH[!HE\ P[1 E\BAFU,HU 1CBAN+F2<XNTN3F>A\CO*(G",HU 1HBAXH[DM,HU 1CBAN+F3.XNXH[!BE\P"XP[M A\BA0XNTN3F>A
CG;6?FXCPJK?!6PEBA7^L!BPPJN!9TPEBA:
T-BPPJJ!<4PEBA=^G9BPPJAA?N30TA7XSIR B =TREJ:.FUPRFH!2(REAI1ZK1BPRJL!!0REBI[RL=BPRJL!G0REBH\BL!BPRBLJ0REAJJ"NYAPRFN!O8REAIM"NABXH 0AXNXH[ NTR \CD

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