File ANWEIS.RL (Fortran library or relocatable file)

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

"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B.B+30DA3NWW?IB 0A	E3NWKB G03I/N+ICT30XA3AGT?LB 4AWS7B;S" A83FDOCFW!I807A
N+ECI0XNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F3FXNN;F" $FXH["BE\TP2I>A8PNF [I E\BA>E\P;>+FNN0!>I4CO.(3<XNC?=3(<JCK=;;OJOO3=XBTF0GBA\CF,G0GXPPCRNOBH)%NLNI+:OK;9GF,HA 1CRIDAF:CFLBO* G%,HU 1D>A PNKFC7\FB60[U E\BA5E\P2C^IPB(??UPB36 AO7< !PA(S:AA?;?85PFA$C>DA;?G07GSE
SCY30TA3RWS?TB 4AWA7SKDB AAO(HNE\HL GE\G;>?F4BC?>&  JNF[Y NF [] E\FA!<E\Q9;?F(KNKF9E\C?>2 \JNF[Y NF [] E\FA!<E\Q9;GF,HU 2B^A QE\FA1;XNB[7<GXBXH[EE\TQ15"ALPLJIM48QXH["B$LT0^APQNF[! N/F33XNTB32>A8CO. 31XNXH[0FXNXH["BE\TQ10ZA<QNF [I E\BA"CE\Q95;F8BLNI+-OK;,;
,BG;-?F4BPJG?A+\AAE-Y9APOG5A/XAAA0\IAPOG:A4TAAA5\CYAPGHI7CAAA8\O%APOG;A;DAAA<\H5APOG9!>TPAA9?G03A[U+ACD70A3U/N?TB 4AWA3SWKB G03S?C+NCS30XA3E3H> B 0A3P7ISSZ 1APQG)J$HOLH+>OJ;WGF,HA 8FGF,HU 2B>A4QE\FA3=XNXH[0HXNXH["IE\TQ3=>A0QNFP[) E\FA?;(GXH["BE\TP2I>A$QNF
[- E\FA3;XNBO8+7 ON^ ?:XBC?7*(NNX <G(CN HGNO*(3UXNB35>I8CO* 3TXNXH[0FXNXH[0LXNXH[!KE\Q;4GF,HU 1K>A,QN+F2=XNN/F33XNB32>I8CO*(3$XNXH[!ME\Q;4;F JNF[Y N;F3FXNXH[0NXNPJG??2XOEAG3=(QAPDD;5 OAA?6?%]APPFC;8XOAAC9<G)APPFIC;TAAC<<F5APDAS>AAA;?\EAPRDFA34REAI:<N%PRHQ
,HU 1K^A8RN+F2LXNXH[!DE\R9=3FXNN;F?F0KN;F?F,BLNI+:OJ:+GF,HA 8FGF,HU 2G^A$RE\JA1>XNXH["BE\TR1>^A8RN/F3<XNNKF8$LC?:> \KNF[Y NF [I E\JA!>E\R9>GF,HA 8HGF,HU 1J^AXRN8!HADNO: > TGNOF+5 OJQP[Q E\JA14XNXH[!KE\R96?FLBLNI+: OJ;GF,HU 1M^AHRN+F3	XNXH[0FXNNF [] E\JA!1
\R9>?F<JABA1\CIBPH4-3XOABA4^BUBPPJHA6TAB=8
A%BPHBQ:AAB=;
K5BPI	A>DAB9?\]BPRJIF,HU 2B>A8RE\JA3>XNK;=3FXNB3<>I,CO* 3[XNXH[0FXNXH["BE\TR3>>A8RNF[! NFP[) E\JAK:DNB;9(! ON^ G8,HU 1J>A(RNH!K7DNO:(J NFLGK8N8G< XGNOFK6NO*(G,HU 1D>ATRNKF4$LC?;2(4JNFP[5 E\JA33XNJ;QGF,HA 8F3FXNXH["GE\TR37>A8RN/F3=XNNKF2$LC?;> DKNF[Y NF [I
E\JA>E\R;>GF,HA 8H?F<JAB?2>1MBPHH/44OABC5=.YBPPJHC7PEBC8>I%BPHBC:TABG;=1BPOKJC>DAB;?<EBPSL+D,HU 1J^A8SN8!HADNO: > 4GNOF+= OJ"RP[Q E\NA1<XNXH[!KE\S9>?F,BLNI+: OJ:$GF,HU 1M^A$SN+F2(XNXH[0FXNN/F38XNNKF7$LC?:2 TJNF[Y NF [] E\NA!6E\S95GF,HU 2B^ATSE\NA15XNK;83F
NB34>I(CO. 33XNXH[0FXNN2 >I(CO*(GX,HU 1D^AHSNFP[M LFI=ADGNOF+1OJ&P[Q E\NA10XNB[/8G8BPJO?1. ACM/\ ACPM(!1LPACA2\BQCPOOCA5DACA6\G]CPON7M9XACE:]-CPOOF!<HECA=^H9CPLEA?NAC"0[U E\NA>E\P2C^IPB 7TC0G>A4GNKF?<4CO*(FW,HU 1D>A,SNKFC:\FB90[U E\NA8E\P2C^IPB 7TC0G>A4GN
F?74CO:(> XGBO5+= ON:  \FC;6 \N\ 34XNC;4(  OJCP[Q E\NA33XNXH["BE\TP2E>AHSNF[Y NKF1$LC?0*(NA\^A;6<BLNI+0 ON:  \FA\NAK6N8G< XGB3.>ICO:(J NTF0G>AXCN <G<JAC?.;,=CPOO0S0AAC?1?(ICPLE3<ECC4>HUCPOO>6$PAC?7?<!CPLC39 ACO:< -CPM	?<,OECC=>E9CPLBC?N308A3P;USKR HNA\^A3
XNC;>(  OJ"LP[Q E\RA1=XNB3<>I,CO*(2YXNXH[!ME\T9=	F4JNF[Y N;FGF,HU 2B^A(TE\RA1:XNXH[0HXNXH[!JE\T]9G8,HU 2O^A\TE\RAI9DNC?8* NG;>?F8CO*(G,HU 1D^AXTNFP[- E\RA19XNB35>I,CO*(3UXNBO4+; OJTP[Q E\RA13XNNF[Y NF [I E\RA!:E\T9:GF,HA 8HGF,HU 1J^A$TG8 [= E\RA!7E\T99<! 
PJS?M3\AD=4
GUDPOR5%6DADA7\B!DPPRIA9TADA:\A-DPAQ9<0OADA=\39DPPRHA?NECQ32%!PTR,*OTN2 >A8GNOF+> OJ"LP[Q E\RA3=XNXH[!KE\T;<?F,BLNI+: OJ:^GF,HU 1M>A$TN+F2"XNXH[0FXNN/F38XNNFP[Q E\RA7 OI&6$LC?:. 8JNF[Y NF [I E\RA5E\T;5?F KN;F?FPBLNI+:OJ;NGF,HA 8FGF,HU 1K>ATTN/F33XNXH[!ME\
;2+FNLNI+:OTN2 >ADGB30>I(CO: " E\A
1;1<BLNI+:OTN2 >ADAGK1?.<JAD?.;J=DPOSA30,OEDC1>IIDPPN34POADC5<AYDPOS)[7LADC9<6)DPAQ3;XOADC<<E5DPRQ> PAD;?G03C;O+SCTEDW30)%PU-SJ UAE ) OC?>* NA\FA?=4GB3<>I8CO: " E\A
=?=,BLNI+>OTN2 >A4AGK=:$LC?>* NA\FA?=$GNOF+9 OJ"(P[Q E\VA18XNN/F7 OI	6$LC?>. 8JNF[Y NF [] E\VA!5E\U953FPJNFP[- E\VA15XNN/F7 O!(D[A NFP[) E\VA=44GXH["OE\TU13^APUNL!+=ON^ 39XNC?9:(LJXH[!DE\U92GF,HU 1K^APUNFP[- E\VA11XNB+0
?AEPOW9A1PAEA2^SMEPTBA4TAEA5\AYEPOWEA84EEA9^H)EPOWC-;\OAE=<^15EPPVIQ>AAE9?0-PUWSJ$HOLH+>OJ:0GF,HA 8FGF,HA 8PGF,HU 1J>A4UG< [= E\VA;E\U;=<!0CO: > (GNOF+: OJ"$P[Q E\VA39XNXH[!KE\U;=GF,HU 1K>A UN/F37XNB36>I8CO*(2=XNXH[!ME\U;=3FDJNF[Y N;FGF,HU 2G>A4UE\VA35XNX
["BE\TU35>ATUN/F4 OI)3$LC?>: PJNF[Y NF [] E\VA8E\U;5?FHKNKF1$LC?>> KNF[Y NKF?6<JAE?1>;MEPOW)C5DAE?6?(]EPUU.C8PAEC9>S)EPPVHC;HEEC<>I5EPTES>AAE;?<AEPVT O2 VE[L0<5PVYUH$HOLH+> OJ:LGF,HU 1M^A4VN+F2PXNXH[0FXNNF [] E\ZA!<E\V9;GF,HU 2B^A,VE\ZA1;XNJ:7?F(BLNI+> OJ
-GF,HU 1M^A$VN+F26XNXH[0FXNXH[!KE\V9;3FXNN;F?F KOBH=*(BLNI+> OJ;HGF,HU 1M^A\VN+F3QXNXH[0FXNXH[!KE\V9;3FXNK?8ZH,B36>I8CO. 35XNXH[0FXNXH["BE\TV1;^A,VNF[! NFP[) E\ZAI=DNN8A(!ON^ 34XNPJ[?!4 PAF=6^3]FPXMA98AF=:
D-FPXAA<XAFA=\E9FPAYA?NEFY5"VAFH<%<H8CO*(FI,HU 1D>A4VNFP[- E\ZA3<XNXH[!KE\V;;?F(KN;F?F$BLNI+8 OJ;$GF,HU 1M>A\VN;F" $LC?8* NA\^A?6TBLNI+8OTN2 >AXAGK64$LC?8* NA\FA?6XGB33>I CO: " E\A
63>XNB32>I CO: " E\A
>?6DBLNI+8OTN2 >AXAGK60$LC?8* NA\FA?68GNOF+> OJ"P[Q E\ZA3/XNJ;(GF,HA 8F3FXNPJ[?C/4AF?0?CEFPOZ7/2DOAF?3?JQFPO[A35,OEFC6>I]FPXNS8AAF?9?)-FPXAC<TAFC=>B9FPPZHC?N70XA3E
R?LB 4AE+ICT2 9PWXJW:$WEF]8=YQEPWUYU7$WED
8]Y!CPWIYW=$WEB]<=Y1PWM\Z%\WEC^!	)CPWM	ZH\WEA\C=	EPW]	D,HU 2B^A<WE\^A1?XNJ?YZH0B3>>I4CO:(" E\GK<;$LC?=*(NNX  GE\C;< \N\ ?<(BLNI+= ON:  \FA\NAK<N8G< $GNOFK9NO*(F4,HU 1D^A WNKF>$LC?=2(DJNFP[5 E\^A18XNJ;EGF,HA 8F3FXNXH["BE\TW1?^A<WNF[! NFD[E NFP[- E\^A!? O;G
XNK;7GF,HU 1K^A<WNF E NFD[I \]GPP^1M8LEGA9^H)GPO
09; OEGA<^I5GPA]9>0OAGA?A"N"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBBZ

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