File LIB12.RL (Fortran library or relocatable file)

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

CFILE C>MFILE C>WFILE C>LFILE C<RFILE C<CSYS  C:MSYS  C:WSYS  C:LINK  C8LSYS  C8RSYS  C8NAMES C6IOUT  C4CRLF  C4TYPE  C4SPACE C4INTIN C4ALPHA C4DSP12 C2DSP10 C0DSP11 C0DISP9 C.DISP7 C,DISP8 C,DISP4 C*DISP2 C(KEYBD C&DISP1 C&DISP3 C&DISP5 C&DISP6 C&NALOG C
ISENS C$IRLAY C$CLOCK C$RELAY C$ISWCH C$ICLCK C$TAPEP C"TAPEG C"WLINC C RLINC C ITC:9XIU2I."U B 1 2 Q WTHE FOLLOWING INPUTS ARE ACCEPTED DURING THIS?0EXPLANATION DISPLAY:?PTYPEBWBVBUBTBSBRBQDODMDKDIBHBGDEDCF^> ABG03L;I+KB 30TA3R?R?RB 0A[L3IWLB AADOCB?< 0O
0B CFRQ3H CFPGHE\KBFHOCPG GE\KBP8XNBZV&PCDZP6GXNBZG	<CFH"F0LO+ 	AHKBV84FBC-*CPBOH :D8FBC-RPNO8 8H8BLKF(07	L+NCKB  RV OJ[A(LIBFXH[!BE\QEEBITC011G3F3ICEB H"V:(LFH"P:(PFHJF:ETFBZB&VHH^(&VXDD+%TXHL&JB BZA%(LIB1A<8JBZB-(LB	$B1H<8JOXH-(LIB1$IDBFK9K.DNO\B8G4BO,B
HN<JC10A[C3IWLB G03M	F+LCE70HA3F3I?EB 0A[W3IWLB IAPQGQN O?J&<
;<ODQE>Q$DQDQE.I1 QDQDVPXQDQA<*HQLQDQ2T[C3IWLB $&M<FBZR2^DBL&JBAPNKBP016$3F3ICEB I&M2LFI&N2LDFIJO2EHFBZR48II^L?4PDD+B"1<IL&JBA BZQB(LIC-A \KBZR3JDBL&JC-L \KB
K2J(BKBK41KS3F3ICEB I>M!HXBO9H0!FCJH>B FLNIK8 OKZI38BN9FFXNF	"O8IF	5&OLCJ?LFBXG?4 IK.I>P 13W	F+LCE 4IJD2CFB+AK\FJ^> ABG07EKR+OCR300A3F3I?EB 0A[R3IWLB AA<8PQA^<
0O<(B CFRQ*( CFPG"(E\KBFHOCPG GE\KBP \FNKV6G$FH2F:LOJ"!&PXKXH[!AE\QD%BITC010	3F3ICEB NJ&	XHFB2PLFHJF2EPFBZC&VHGRV2VPDJ"4"F(LIBA HHBF3D>JPIA([LBF3L2JLBIC4B([(LIC4$IDBFKVKMDNO\B0G0BO,B*(NF+LCOLD1 [R3IWLB 8:DBFJ(	 XHOIHR] ON8!AFXNNXFBXHHZP<XHBBQ2HBFK:<G,FICD
6!$JBKA&^> 300A3I/N> B 4AKE7RKOB G07L	S+SB A>C?8 O<0BPCFR
3DPCFPGDE\KBE8XNBZO&^8CDZ^6FXNBZF	%8CFD&E8HKBOHOCPG GE\KB^4$FBCY"BPBOH 6C(FBCYRPNO8 4H(BLKB$23	L+NCKB  RO OJZ="<(LIBFXH[!BE\PGABITC003C7SOYB B H"O"$DGN[&"EDBF"O*^PHD^O"OTDJL"EDBF3Y"JDNIBB(C	 OFKY:
HFB;Z!HOGHGCYHOK;D6 4J30LA7SOY> B 4AOM+YCSB G07R	S+SB 70\A7SOYR B NA4QAA08OOBGD <DPC	6=(PDPC]"$<PDPB^:ETPDQ^F
17C	S+SB  (IFJ[&N(FN2A"JDIDN,BMLD4 OM+YCSB $"J$IG:N7& FBZNY,IIRI7Y$GD+X")0IBZN"6DNL&JBAL TKB^7.GXBKBH41H?7SOYB B I:JQ ON1FD OB:CAFXNNXFX0IIZKZ0ICBO6 BFKX4G$FL&BBB XKLKFM5]OW+YCSB $"JP J+GAC^> 300A3I/N> B 4AKE7RKOB G07L	S+SB 70HA7SOYR B 2ODOBGO$<88 O ,7<PC
G2SDC[3<DA\.ABGOLB<E\KBR8XNBZW&RHCDZR&?HCF&GHHLKBW2	L+NCKB  RW OJZ9",(LIBFJCJFOBZE	WHH:IDONHH+W0KXH[!BE\PF=BITC002?7SOYB B H"W",HGN[&"GHBFRW	<HHHR,&W\GD*GH\HBZBV(LN&ABH8HJBZS7]\BN<!<B0GBV M N* C L7&OR+YCSB  RW OB>FIHDNN9FFXNF;&GHHF=&GLBJD?;,FL&BBA,$J J	 A
^> 308A3AWMSSB 2OO>E"EBMD?8<O7<XODPB:BKDH7B5\CFR^.6XCFRN"6E\KBRHOGRN"NE\KB] $LDNO"OB>C*(<JCBO"E$BO"(% OKNP&O4HLKB25GN7MOEB 8.XBF2L"JI0H*J\I(EBB2DH&DLJ3D*INCZF"MHBFNO"O\O((S4BFNR"R(FBZA"N8C>G4(4JBZM&RHCA\^A"Q(LIB	 I0BF"6"R(BH"]"] BF"M*RLHD*M	+HHB"K&]4HBZH"
DBF"O*RLHD*MK7H! ,ABE^> 30$A7OSU> B 4A	T+PCEB G03C3R+FB 30\A3E	NSOB BNK&:LFCS(FCW;LEX"J(CDZJ"T(CF-"SK84CTD3-&ALKPB%H 4LBJ2]?I+UCTB  :HFBZY&4BJ>F)(JF:S,A JNX!&S(BXH[8BHBO)J7DNFK"F[,HA 8B"FNHA2S OJ:?	$LFF:T8 4HNJ &TPFB>J0 DJBZT;HBF:J"(BHS-30JO( ZBO* SZDNB>T
08JBX[I DR2T JXH 8AH03C3R+FB 4TNB"\[Q B"\[Q XH CFXGBJ\BOPHVJNO,(	-LBO)G2OJ[2$GLBNH!8G4K70LA3POA?EB 0A;I3T;IB G07M	P* B 30DA3LPSAF  PPBS^ HA?(<C7 OO=SAPDO41PM3YWPB B JERH OBJDFB,HA  D I 41LX3POACEB I:H! OJZ$"MHBXH[ D4DJ"
 U 01$&3N	TCNB I>!(DNFZX+)NF*	S$BB>J. XJF*	S$BB>L4($JB>C8(PJB>G,(TJB>F,(TJB>I5H$JNH!:X OJKYG),HU 1GFA QBJK:Y$FJB54(NXH[$D$FKS[M XH[!HE\Q) ",TDDE!TNBS)K*DNXH XF$17ACL+HCA IFJYBY(NN8J<JXHB"Y6DIJC, TO((G=,HA ,BK6H! 0HA	^> 30PA/SGPR2B BDH7CW\CD[X*LNCSXCX$FKBT
0I"A,KL$HXFB0F=!C BNDKBP?? A<SJJ?SGOJJ>J\ OJJ6+TOK2^E!BFI	B DHK&V0HB3
\JNJ6.DHBHFR. OJK;B]XFKJ^?G<NIDBZ FH"P2P0HB?.- PJB"[	Q8K0A!DD,BCLL!!AP,B7Q\07DCS*1B2 HHZK FHH:KT! NF E20HF"Q,HFHD$D8HHZK"K,BHJ^D(NNJBUPFB:K$FPN8FDPBHR^8ETJB"KQHA A?AAJ]&N%<IO+$)?$EHQ^^!<HG&!Y?THI ?T$8HEJ%0? OOC!X!HHHH>4?PHA?OA<FO[X0?XOH=?O!<IF $>>8IX?U&DJ
")L <H=?
A8ODB2?DOC03?L AN$GY$LHA?HFAF8DOGKH
 GB*OAL <8FTPIYJ=XCL)XU6XAN G !E8D((PAAD
AXADDDDDFA HI]^R)DD%?YS$DHURB)0EA(?):$AC!FJULIL(()V$EJ]R")D$BAEH "(BB"JFPBHPPP-&G^> 30PA/SGP>0B 4AOD/PF1" AXZ[DLDA8B FH:&QP ONI!ZLDLHHA PA*IP8B	V,BF&2&HFH.&BL3CLDFJ>DFCSCCCF.BZHNZ*XKL,HFB3B=!C BNDKB*C?A\FAR4PNBZ4(H(HH2*%!DBQ,BTK00SB/SGPB0B N;G8 $FBB"FHZ&"
BO* + XBO9H(1XFO(P; XNJK^B&XNNXD*&XBND+D<BHR57)\JB3(A!DH<B0BLK00S(/SGPB1B B[);C BH:8!$FHBZ(LCDZ*&XBN8JJ(NHJ5.&THD+);1HJPD?XXJG&%8?POJU?V)8HD"!)?DGI!?M%<IH $)^TEB<?;HDO !M"8HB ?
T<[A4? OF<?
F<HO	!H?PFHB>O><IF)&)Q$IH  \?<OCAA>HOA>?OALCLGLC8\NI1])<HXP X<3! GB\
HH(BPOL8 OBT4T$IHN=T& LJE6AVN\JDHAH^ DD(DD<AAAFPAADAA"ATX8IGR)]A<IQSU)HHEV)LL<AJE:R)XCH&UH LJUVV)HJGR)BIBA EH""J(BHJDTH D(-P^> 30PA7ICS>7B 0A	D/S	P" AX6[XNBZ[[(DLDA8BTFH:&QP ONI!ZODLHHA PA*IP8B*XHF.5BL3J(DFJ>LFCSJCJF.BZHNZ"E\KB&8,CFJ1Z5DLCC0HN.B+<G,O?,$O(
SPNBZ6++,HD+Z+DLBQBQHLKB:3I	D/S
PB 82$BH"R& ONX1.Z BF>8PDJN+&	
(BN8F$D(FB:Z,D\B"0":DJ3XE!B AHO,B	J(P00S+7ICSB9B NJ3,(FB+&(HL*LDTF2Z:A(CN8JJ(NHJ:.Z(HPJC3B6QAA()&TGI<?
$<JE"))^DDH]?^!<IH%%H?PHHU^N%<BO?HK!DH!"L><BHCT1?DF<?OX<FOF9?DOIX?,$8H	>X?XFJ%QJ)HH?1?DO=>,B<AOOA030LA;8XGLIL!)A?F AFO
!GH<BGHH*<A8$8PO$T/Y4HC0&]XXJA9VGBP!HP^H( ADDP
ADFDPAA DAH X)^DGDAAU?LID!))R$EEDL\?(JAN)%FTHI0T(XJE*))R$GDB DITHHHBJJ"JHB THP4DBIAJ^> 30PA7ICS>7B 0A	D/SP" AX6[XNBZ[[[DLDA4B FH:$QP ONI!ZODLHHA PA*IP8B*PHF/^BL.<0DFN!.<0DX&!(K *ZDCA\.AB$CZ!*3DDCZ!*5DDB3^=!CLC0BQBQHN..),07DOI+PB7 NB";*PHO9H$1(FB[-FOJ;T7$D
B:ZFPNFJZBZXNK,++DFHR)2(JLI!PHABHOLKB<3]	D/SPB 868BFJ<]HH"Z*)DCN<A: TJDJCVC08OG;DPAH]^R!DD%?YS$DHURB)0EA(?):$AC!FJULI LP(A0^> 30PA7ICSR4B BL&SLDFNFBSDZS"FXCD.FBD	?H07DOI+PB4XDLBAHFJP"RDFNKV>A8FH:!DNF"L"4FB:LX! OJ[9&+DBOW0DOO8( AFBZ"NXCDZF"O<BNH!"M4FB>MIHD
FKUKUDNB>3HPJBZ7UTBN9HIH ONXA7UTBNX!6+TBF[";SFB>UOG0DONH!ZNDLHA B4BO9HD!TO<GNJBMPNO?AHXDNB2OY!D8B6LDDS 6+DJBJN"8FBZO"M0DJ:2&BL!!AHO,B6SNC^> 30PA7ICSR2B BL&QDDFNG&QDDX"G\CD.GB00RP7ICSB2B NKV>P8FBZPZADLDA<B,FH:!DNF"P"8FCRG"G<FCRG"G0FCRG"G4FB:L !8BFJNJMDNBZO
O8BO9H !FB>OIHDNFKTKTDNB>3HDJBZ7TPBN9HIH ONXA7TPBNX!6PBF[$;RHFB>NIHDNOU\O8X8BO?AHXDNB2LA!DHHBRO ON<!UOG4 NB>OGA ONH!ZMDLA! BNDSR"DJKN"L8FBZM&ODJ2$E!B AHO,BRQFD^> 30,A3EKY?DB 0AWG3N?IB G07DOI+PB130PA7ICS>3B 0A	D/SWPB G07DOI+PB6AB8XNBZZ[DLDHA08B	V,CFN;&[,DF
U*[(FHNT HK((CDZ**[NCB*((DF,H&T<07K	E+BCD HN2,Y,JNZ[I LJB;2)	D/SGPB  JDNF""TNC HC[ CLA!A!HD*"/NB"GC[HOLKB*2=	D/SOPB  JDNFJBDNFZT7S(BBRT	SPBO) HNH[BT CLA!E!BPADHPB2<JJF8C?L!!AHLKC[3 	D/SWPB  &PFHK:ZTDLA1BQHD*/& JLOA3.	D/S[PB  >(HB3-Y!DHB5DJ+3B8B];[4BF.	:VH
> 308A3A?L?GB 4AOI7EONB G03I3R+ACY30LA3LOO?KB 0AWR7L	AB G07I
S+CCH30$A3COLSKB BNK&&XFCRV&VFNKV*P0FCZV"$8HKB NOLB*$PDFNV*$PDX&VXCKBNHNFK]R. ND+]6^4FLKBZ2GN3L
OB  .\BZ.Z*DLPB.BHOKB$)<03IWS+NCS HJ<.;XFDLA!B;<8B(A0JA ,G403I3R+ACY HH2ZA!4BK]ON*A2, 03C?L+CCK HL!ZVN,LH2N!\NLJB,3RWR7L	AB  &(HH>N6 4BF3
A!4CA0TBLHLJCP7OI3WCB  *OJ?*(D0JLE!AOHLJB,3.OI3L/CB  *OJ37)Y0JL)]V,8LF3]5
<FB3]![NB+
6,"I^> 70PA3AWP?PB 4AKE7RKOB G07TCA+ECGABADH7B\\CFRJ&]4CFRNB]HOC.N"A407TCA+ECP NBZM"\8BF:]	G<JXH[!BE\PVZATD40R\3AWPCGB NZ+NNBZ]&A0BF>% BDC??* 0JB*"3DHFJA>A8O* "VDBFJABA NK=3<0FB:AFPNK;?N(BFNRA ONX![ODLHQ0BPFLBHPPDA?HC?HNJ[GDLA BNXH <C)PACC; AK<<P5PC?> OA?
^F^> 70\A3L;I?CB 4AKE7RKOB G03R	L+NCCABL\HPN[ G FDN\&\0DOXB"H CLKB2L3W3IONB 8"0BFJ[&M0FN+GF^,HU 1B&A$PEPA$E,03R	L+NCC NFU"FBB+?OJJUB NK>7=LFB:FPNK<?U,BFUR ONX!VHO)(K$DNF"L$7,PCPGB\XNN8F<F(B[S	S0CDZ\PHO)("U4FLA!LQBH PHSDPBDA?H<O8B28BLA!AHNRV4BB[PP0DJK M A;
<-PACC< AC=<P9PC?? OBGBQ

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