File DIRK3.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&>ABPD304A3A;I> B 4ACO+ECNB G03SKU+SCCAAB017(3A;IB : D,HA XB3FXDB;F<!8BO/H3=\FDKGKGDNB?<?H,KB+>??1APDEC>LAA;?G03FSA* B 30$A3S?T> B 4ACM+YB > -APRH-D,HU 3C2A\QE\FAFE\QA;L\H\<G8BXH[CE\TQ3G2AXQE\FABJH7\GB;>D ,HU 3C2A
QE\FAFE\QBYD,HU 1D:ATQXH[!EE\,=E\TG3<>A0EC;<<!,BO/H?:$GA\VA?9$CNH!3; OK;8HADNC7P[Y E\JA=6TGN8A<!0CXH[!FE\RM;?5$CG4 [M E\FAIE\Q?L\H\DG,HU 2C2A$QE\FAAKH7\GN   [M E\FAIE\QAWD,HU 1D:ATQPJK?14$QEBE5
$YBPHD17XQEBE9
H-BPHB1<\QEBE=
39BPHCA?N70LA3R;A?DB 0AWR+ACDB G03IO* B EBI8^E)BPRFF=\RAB"P[U A\BA<8KK/=G<,HU 2C>A,RE\BABN8AL!\H\DG,HU 2C>A(RE\BABH7\GA\^A9E\EO9K9DNB?8/HHJXH["CE\TQ3F"AHPLO9\H\$G<JA\^A9E\EO9K9DNB?73H$JXH["CE\TQ3F"A,P8HADNC97G(GF4,HA  G [! E\JA;E\R*P[% E\FAGJ,HU 1I2A,QXH[
IE\QLP[% E\FAGM,HU 1I2A8QXH[!I$L(C-$JMA) E\TG39>A$EC;9<!XCPJK?368QABC7>4!BPHI39XQABC:<B-BPHA;<0QEBK=</9BPRH7C?N30$A3R;A?DB 0AS/UGFB G07D[I* B AC<H JXH[!JE\S]>?=0KA\^A?;(GA\VA?:(CNH!39 OK8[-!E\BA"KE\TS17^AXSE\NA!7NLIZW5(LB34=[LGA\VA?3LCNH!36 OK2[-!E\BA"BE\
S17^ADSE\NAE7,HU 2C6ADQE\BABKH7\CA\^A?0CXH[!LE\S]/;.<BXH[!FE\Q;S<!CGO0G0,HU 1LZA4SGK,G-,HU 1F6APQNL!?0GC0P[1 E\NA9+(GC
*;) BPJO?A(HECE)[V)CPQOUA+<ECE,[T5CPL-5.LQACA/]ZACPQORA1$ECE3
QQCPON\Q5DACA6^4]CPLAA9LECE:
P-CPQOO9<<RECE=
G9CPLA?NAC"P[Y E\FACUDNGO>K= OJ>!+HDJA\NAG<,HU 1F>A,SNL!?:(GB;P[1 E\FA?U$GC:P[1 E\FAC$DNG;8DNA\NA?7\GNLA?=4GCK7B/\FCXGG\KDSN/.2<SXH["CE\TQ3T"AP 7TC0G>AXGJ;! AE\C
>G9,HU 2C:APQE\BABBH7\CA\^A?6TBNL!+= OJ+UG!,HU 2C6A\QE\BABBH7\CA\^AC6NLI!DT0B>APGL1]1]OTJ3)>ALGA\VA?3LCN(!??MCPQOYC5HECG6?X]CPQOS78\QECG9?$)CPQORC;<ECG<?V5CPQOT7>TQAC;?<QCPTQ[HTHOLH3> OJ"+ [M E\FAYE\PBBL\HL GE\G
=<E\EO<K<DNC?;	H4JI	:C9NTJ2R>A0GA\VA?<0CNL!38 OJ&)C:NJ:
<\KA\^A<E\EO<K<DNC?6/H\JI;:(4JA\NA?54GL
L<E\EO<K<DNC?43H(JI	:398LO( CQNJ:<HADNA\^A?3PCG+2?XDBO:  AE\GO3?<HGN0M!D BE\C;2<!CG
/<E\EO<K<DNC?/;H8KI;:8LJPJS?5/0QEDE0
]EDPNP52,QEDE3
ZQDPQSM55 QEDE6
L]DPSS.18,QEDE;
J1DPQSH1=\QEDE>
U=D<N4AKW3IWTZ 9DPTR!9HTEDQ:"YADJB:TN3>A8CNHD>4BFLH$HHFCXHZTDL1?<CLC08BE\KBB NL=]CHHOL=]	8JA\.A*YXTADD D(BBRJ]A<IQSU)HHEV)LL<AJE:R)XCH&UH LJUVV)JG") [5 E\RA<E\T!P[% E\FAGQ,HU 1I6ALQXH[!IE\QTP[% E\FAGU,HU 1I6A\QXH[!IE\QZP[% E\FAG[,HA 1IBIJ+*8I0LB-2\3DBK0I^
TBJ9 AE\C
;G;,HU 2C2A<QLBIBPJS?3;<QADC<<A5DPOS?3>\QAD;?AEXH["CE\TQ3Q"A,P 7C8G AE\GO>G=,HU 1F^A0UC>7G8G AE\C
;G;,HU 2C2A<QLBIBC:7G8GHADNA\NA+9 OJ*,>3 BTN0!>A\CO.(?6TKA\NAG4,HU 1L^ALUN\AC4DNNL!G2,HU 1F^ADUG;>HADNC0P[Y E\VA=38CC
4G/,HU 2C6A8QE\FA?XH["CE\TQ3^NA<Q 7C8GLA\H\GDNA\NAK=DNC;0(! OK/.?5<JEEE/
^AEPQWTA1PEEE2
SMEPTB54TQEEE7
Q!EPT(59QEEE:
[-EPQWO9< CEEE=
Z9EPQW$A?N30XA3LGO?TB 4ASS+OB B G03IGF+DB EEU."AEXH["CE\TQ3^RA,Q  [M E\FA^E\QAKL\HLGDNH7\GN   [M E\FA^E\QAWHNXH["CE\TQ3^VA\Q P[9 E\FAG[,HU 1O:ADQXH[!PE\ P[Q E\FAG!,HU 1EBAC>P[Y E\VA?=0CNH!K;DNO*(?E(KB90[M E\FAWE\TQ3U^A,QHG9,HU 3C6A\QE\FAUE\QA;L\HLGDNH7\GT
0A>A CNL!K<DNO*(?)(KB90[M E\FAWE\TQ3U"A(QH?9<JEEG8?Z%EPTCC;XEEG<?T5EPTB7>LQAE;?G03C	K+OB EE[:\:UEPVT:M60VECY2\<!CPVYDD,HU 3C6A\QE\FAUE\QBJL\HLGDNH7\GB;>D ,HU 3C6A\QE\FAUE\QBY<8BN  0[M E\FAWE\TQ3U&A$Q P[9 E\FAG[,HU 1O:ADQXH[!PE\ P[Q E\FAG!,HU 1EBAN,G=,HA H
C<HON"[I TK3;>A(GA\VA?:(CNH!39 OK
87E\EO7K7DNB?9?HXKTG35>ATEC;5<!8BO/HC4DNNL!G:,HU 1F^ALVG;2HADNC7P[Y E\ZA=9HCC
5K1NPJ[?518QEFE2
$MFPXD15 QEFE7
G%FPXB1:XQEFM;\K1FPXI=LSAFA>\C=F<N0ASF+VB ^ QFPVZ+)60VEFY8"-AFXH["CE\TQ3^VA\Q8D ,HU 2C6A8QE\FAAWXH["CE\TQ3^RA,QV"XP[9 LBID,HU 1O:ADQXH[!PE\ T[I E\FAG!,HU 1EBAK/>?=0KA\^A;E\EO;K;DNB?:?H$KB8P[Y E\FAKFDNN8A<!\GTG36>AXEC;6<!\CO/H?5(BN  0[M E\FAGE\TQ3F&A$QHK:N
H[CE\TQ3G2AXQE\FABYB:0[M E\FAGE\TQ3F"A(QV)P[9 LBID,HU 1O:ADQXH[!PE\(??YFPQ[G77<QAFC8<B)FPXC3;XQEF[<=F5FPVYNW>XVAF;?<UFPWXIC9(WAG T[I E\FAG!,HU 1EBAK/>G=,HU 2M^A0WA\BAHNXH["I$LT0LRA,QN   [% L"I LE\Q]W;E\EO;K;DNB?:/H8JTG39>A$EC;9<! BO+H>=(BXH[CE\TQ3G2AXQE\F
NJ(WXH[!I$L(&	<JXH[!I$L  [5 E\^A!<E\W].;E\EO;K;DNB?:;H$JTG39>A$EC;9<! BO+H?((BN  0[M E\FAGE\TQ3F&A$QW!%P[% LBI4DJJIP[% LBI<\KJ,/O3TJA21H.<LJA)<<JAGA8\E%GPQ
GA:LEGE;
F1GP\A)=<VEGY>
=G<N4AE+ICT^ ]GPW^ ODWEG\G7	EFPW[	:)\WEF^FO	%FPW[	8Z\WEF\N?	IEPWW	;^\WEE
N/	!EPWW	:\\WEE^S	YEPWW	9 \WEE]SK	MEPWW	8 \WEE\T?	QDPWS	8M\WED\K7	5CPWO	;[\WEC
K3	%CPWO	::\WEC^8O	1CPWO	8:\WEB
F3	EBPWK	:/\WEB^,		-BPWK	:Y\WEB^Q	5BPWK	:C\WEB]+[	IBPWK	9 \WEB]XW	YBPWK	8+\WEB\G	]BPWK	8U\WEB\JC	!BPW[	;2$WEF
\+)EFPW[):N$WEF\1K)UFPW[)8J$WEF\H7))EPWW);X$WEE^0+)QEPWW):O$WEE^MW)1EPWW)9Z$WEE\HC)YEPW
)& JJ(4\3DBL(/=/PKJD3J18LL(/9/<KL7(]ILK/);/ LM1F-0KK+)E,HU 2M>A<WE\^AF,HA 1IBIJ*88/\KAUN(EDNL;CBH, U$CE0 E,PHCS ATEHDYT\J! [! E\^A?E\WGP[% E\FAG ,HA 1IBIJ+JHI$MT0>A8CB[=7Z(BNXA7\0BNXA7^8BNXA[ DLAF$CLACL00ADCL8BG,HA  SD[M AG=<9GPQ
 C?D"KB%"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