File PCHI.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^> AB\DO;=/8PCF*1^PCFP*1%4CG"66,PCLXD6-TCO!G7TCF9<1E8CK1O37PCB"(-*XCH	-]4CKTY-$TCHJ9"[4CA;2(APCOG8&ITCN3*A1XDFD!BHPDDV?Y4CA"1>%PCM;N8X\CHS17[0CN:"0G4CEL-.L0CF56+MPCA90GCXDPDHX7HL4DPDIQCZ30<A3P;E> B 0AOP+HCIB G03F?
+ACT70LA+TCO> B 0A[I+ACDB G07FCM* B 30PA+ICV> B 4ACM+YB B G03FSA* B 30XA+SCB> B 0A3C7EKAB AA0DLTDDPDPDD,HM DA0POP+HCIB  D7QTC0G>A8GD"QD7QTC0G>A4GD"QD7QTC0G>A0GD"QD7QTC0G>A,GDNQ/>FC[=F1,HA 1CBIXH[!DE\P"P[U A\BAD,HU 1D"ALPXH[!EE\ P[Y E\FADK,HU 1D"AXPH7\CXH[
GE\Q!:P[! E\FA=:$GH7\CTN0!>A$CG9P[M E\BAF*,HU 1D"A$PC?8>(\KJ)P[% E\BAF,HU 1JBA QLNIG6,HA (K
?YAPDP!8$PEAA9^*)APDBA?N30LA+HCS> B 4AE+PB B G07SKQ+TB 30$A3S?TR F !7TQAA>((XJO+H"&TJXH[!IE\P"CP[) E\FA E$LC>[- O+H*TXJXH[!IE\P"F[1 XH[!DE\P"	P[5 E\BAF	,HU 1D"A0PA\NA3= OJ*4F+,HU 1I"A0PXH[!DE\P.O<E\C[;>;(CF"<P[9 LBID,HA  LP[= A\BA<$IH7\CO((3] OJ+]GL,HU 1I
AHQXH[!IE\P"UP[Y E\FADK,HU 1D&AHPJ-P[% E\FADB,HU 1J&ATPXH[!FE\Q KP[Q E\BAFR,HU 1I&AHPXH[!FE\Q(H??5APPFIG>AA;?G03A?L+GB EAK<DABXH[!DE\P"OP[% E\BAF,HU 1JBA QLNIG>,HA <K$(TJO+H*ULJXH[!IE\P"OP[Q E\BAFX,HU 1I&A PXH DB,HU 1I"APXH[!JE\Q BP[Y E\FADK,HU 1OBAC?=3HJ
"7P[% E\FADB,HU 1D&ATPJHP[% E\FADK,HU 1D&ATPXH[!IE\P"CP[) E\FA E$LC>[- O/H7<\JA\NA3= OJ+%G\,HU 1I>A<PXH[!DE\P*IG-,HU 1I>A0PXH[!DE\P"IT[A E\BAFF,HU 1D&A,PXH[!EE\(
?5BPPJIE>AB9?G07AOB* B 30XA+DCVR J 9<8RAB"P[) E\BA"U$LC>[- O+H-,JXH[!PE\P"UP[% E\BAFI,HU 1D"A$PXH[!IE\P"UP[Y E\BAF[,HU 1J"AXPXH[!JE\P"IP[Q E\BAF^,HU 1Q&A8PXH[!JE\P39>I8CXH[HK OJ?T7HPJJ"<T[E E\BAF^,HU 1D*A\PXH[!IE\P"^T[I E\BAF	,HU 1F>A$PXH[!DE\P"^P[5 E\BAF
,HU 1I"A<PXH[!DE\P"OP[% E\FADB,HU 1I&ATPXH[!DE\P.U?=0KA\NA3; OK+:G3,HU 1IBAHQPJK?;$PEBK<<U5BPRI5G>AB;?<)BPSDE[9(SAC P[Q E\BA&I$JXH[!NE\P"FP[Q E\BAF	,HU 1I>AXPXH[!RE\P"	P[Q E\BAFI,HU 1I>A<PXH[!DE\P"[P[U A\BAD,HU 1J&ATPLNIG>,HA <K7H$JJ"0P[% E\BAFF,HU 1F"A$P
H[!RE\P"UP[Q E\BAFI,HU 1I"A$PXH[!IE\P"[P[Q E\BAF[,HU 1IBAHQXH[!IE\P"UP[Q E\BA*UDJXH[!IE\P"LP[Y E\BAF[,HU 1I"A<PXH[!DE\P.OC=H7\CO*(?4DJN$;<(KXH[!IE\P+?
?5CPRLUE>AC9?\1CPSNGF,HU 1D&ATPDHL2A*\KT0>A8CFNO	=FXH[!Q$L P[Y E\FADK,HU 1D*ADPXH[!IE\P"!P[) E\BA3$LC<[- O+H*1 JXH[!IE\Q BP[Q E\BA"U\KXH[!IE\P"!P[) E\FA B$LC<[- O+H3CJN$;\KXH[!IE\P"!P[Y E\BAF!,HU 1D*APPXH[!IE\P"$P[Y E\BAG0,HU 1J:A4PXH[!FE\P"$P[% E\BAG*,HU
1F*APPXH[!DE\P"UP[% E\BAFU,HU 1J:A\PXH[!FE\P*$??1CPLPC?NECS;;ADXH[!IE\P$P[Y E\BAF$,HU 1J:ADPXH[!FE\P"$P[Q E\BAFU,HU 1I6A8PXH[!IE\P"UP[Y E\BAF$,HU 1J6A,PXH[!FE\P"$P[% E\BAGX,HU 1F*ADPXH[!FE\Q HP[Q E\BANUHHS.GGXH[!IE\P"!P[) E\FADH,HU 1D*ADPXH[!IE\PU[1 XH[!F
\P"!P[% E\BAGR,HU 1F*ADPXH[!JE\POP[Y E\BAF!,HU 1D&ATPXH[!IE\PL[1 XH[!FE\P"!P[% E\BAGI,HU 1F*ADPXH[!JE\P+F
?=D<N4AE+ICT^ 9APTG)9=(TEAQWS)-APTO);>,TECS=[,1CPTO+8$,TEBQ8O+IBPTG+;;,TEAS:3,UAPTG+;B,TEAQ<
+-APTG,9A,TEAP9+ADXH[!FE\P"!P[Q E\BAFU,HU 1I&ATPXH[!JE\PCP[Y E\BAF!,HU 1I2APXH[!FE\P"!P[) E\BAF=,HU 1F*ADPXH[!DE\P"UP[% E\BAF:,HU 1I&ATPXH[!FE\P"!P[) E\BAF7,HU 1F*ADPXH[!IE\P"4P[Y E\BAF!,HU 1D&ATPXH[!IE\P"UP[) E\BAF1,HU 1F*ADPXH[!IE\P".P[Y E\BAF!,HU 1I*A,
XH[!DE\P"UL2,TK GD[M "FA""B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBZ

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