File STIM2.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^> ABAA304A3A;I> B 4ACO+ECNB G03SKU+SCC70LA3R;A?DB 0AWR+ACDB G03IO* B AABDXD0DHXDDPAA10$13M	A+NB N [I FR\&\0BNH!3> OJ) [M E\FA"\E\PCHL\H\DG,HU 2C&A0QE\FA,H7\GN(GM,HA  B[Q XH["EE\TQ3=BAXH[!FE\Q"]P[Y LBI<<JAAC=<A9AP
$C?N30$A3R;A?DB 0A/C+ICOB G07ICO+ECNEAK2AABJ*O$	TCCEBAR<HAR ST4BEILI=HIK,Q3JXH["EE\TR1>FA8RXH[!FE\Q"^P[Y LBI((JJP	"APCCMPN4EREJ=HIK,Q3JA\^A=E\EO=K=DNC?</H(JXH[!GE\Q^ C;NJ", [U E\JA!>E\R!IP[Y E\FAF!,HA 1FBIJ+VP	8AEPE" $AC EPN4A! 	DKMB)D,HA HHC:HON"[I XH["I
\TQ3F*ADQTG3=>A4EC;=<!$CO/HG8,HU 2E^A\RA\BA<<JABA7\D%BPQJ]A:EBE;^
1BPQJ^%=0QABA>\A=BPNH%0REBI8"UABXH["CE\TQ2\2A PR"IP[Y LBID,HA 1FBIJ*SHI$M8<8KXH["EE\TR3=*APRXH[!FE\Q"$P[Y LBI,XJJL	RUHCA!R(OADKTQM0EBM JOEB=DI \HK0IC)A\^A<E\EO<K<DNC?;7HXJXH["EE\TR3=&ARXH["CE\TQ2\JA0QRNP[Y LBID,HA 1FBIN("8E\TG3<>A0EC;<<!,CO/H?:$GA\VA?9$CN
!38 OK7 [M E\FA"\E\Q,D,HU 2C&A<QE\BACHPJK?	84QEBG9>
-BPQJ$	<0QABC=<A9BPRI$C?N70LA3H[UR1J G7LSEBO::ACO(HNE\HL GE\G>7C8G !E\C
>?=4CO*(BSNK;<HADNA\NA?;(GA\VA?:(CNL!39 OJ:8<A(CG8 [M E\FA"&E\PCHD,HU 2C*A\QE\BACHH7\CH7\GN(BXNTK37>AXCNL!?9$GB;5<!$CGO838 OK;4D,HU!0J2A PE\NA!3E\TQ2]^ALSG
:2E\EO2K2DNB?1?HKTG3;>A,EC;;8!<BO/HC.DNC
:;:4BPJO?E- ACA/\CECPLL%20QACA3\AUCPL$)6PQECI7
X!CPQN	%94QECE:^&-CPQN
9<RECE=^%9CPQN<A?N30PA+ICVR N %. SECM0^YQCPSNZF,HU 3C&A<QE\FA"\E\PBD,HU 2C*AXQE\BACHH7\CH7\GN,?>4KTK3<>A,CXH[!KE\S
:?9 GC;9!DNG
76E\EO6K6DNB?5?HPKXHD[ JE\TP3H>ALSE\FA"]E\SO3?9 CGO8?9\CG
7C2DNNL!?7DGA\VA?1DCNL!38 OK
0/E\EO/K/DNB?:;H8KNLA?2HGB-0[M E\FA"
E\TQ2\"AP  [M E\FA"&E\PCHL\HLLG\H\<G<JACC-8X=CPQN
	10QECG2>&MCPLAC5HECG6>+]CPQN*+8$QECG9>()CPLC	;4QECO==S9CPSM[C?NECS.<BACPTLCC<PTECS4DADN,?>4KK;<<,BTN0!>A(CGO939 OTK38>A\GA\VA?7\CNH!36 OJK%G5,HU 3C^APTE\FA"\E\PBL\HLDG,HU 1K^ALTGK2G5,HU 3C^ADTE\FA"\E\PBL\HLDG,HU 1K^ALTGK0G5,HU 3CZA<TE\FA"\E\PBL\HLDG,HU 1
^ALTGO.K0DNC
2;-4CO*(&E\C;.<!HCGO-+- OTJ3&:A8CNL!;04GC?-:(0KN(:O,KA\NA;2(GPJS?)*<QEDE-Z%9DPQR.A/LEDE0^-EDPPB)20QADA3\JQDPPAE5 ADA6\L]DPQR\)9\QEDE:^]-DPP$)<\SEDM=
C9DPSSKA?N70HA3ASN> B 0A7F+PB B G03S?T* B 30XA+ACD> B 0A[I+ICX" ADTN0A>A8GXH[!LE\Q" P[5 E\FAGC,HU 1N.ADQXH[!OE\QP[= E\FAF1,HU 1N.ADQXH[!PE\Q^1G=,HU 1L*AQXH[!ME\Q"=P[9 E\FAF4,HU 1O2AQXH[!OE\Q"4P[9 E\FAF4,HU 1P.APQGK<G;,HU 3C.A\QE\FA"
E\PBL\HLDG,HU 1K>A(TGO9K8DNC
9?7\CO*(>C,BXH[CE\TQ20&A0QE\BABH7\CA\^A?8,BXH[CE\TQ27&A<QE\BABH7\CA\^A?9,BPJS?/7 QEDG8>/%DPQR%C:(ADC;<X1DPQR7	=<QEDG>>0=DPNPE,0UEDU8"AEXH[CE\TQ27&A<QE\BABC>7GHGG=,HU 3C.AQE\FA"\E\PB<0CH7\GTK3;>A(CGK>?9 GK;7 E\C6P[- E\VA=5PGGO3K4DNN\A?2DGA\VA?1DCNH!39 OKO0
4LCGO3?4HCG;2HADNA\NA;2<GA\VA;/<CNL!33 OKK.G=,HU 3CZA4UE\FA"\E\PBL\HLDG,HU 1KZA0UGK+G=,HU 3C^A$UE\FA"\E\PBL\HL<G<JEEE+Z,1EPTJA-DEEE/^\EEPQV+)2(QEEE3^)QEPQV(A5LEEE6^]]EPTVC-8QAEA9\B)EPQV-A;4TEEE<^%5EPTX)><QAE9?G03F?L+ACTEEU.^0AEPUV1F,HU 1K>A8UGK=G<,HU 3C>A
UE\FA"\E\PBL\HLDG,HU 1K>A8UGO:K=DNC
9?8 CO*("2E\C;:<!$CGO8+8 OTJ22>A(CNL!?= GC?8>(\KN,?6TKTK34>A$CG;3<AHGXH[!QE\Q")P[9 E\FAF9,HU 1L*AQXH[!ME\Q"9P[9 E\FAF1,HU 1O2AQXH[!OE\Q"1P[9 E\FAF1,HU 1P.ADQGO1K0DNC
1;/<CO+HF7,HU 1L*AQXH[!ME\Q*=;?=EPQV&+0(QEEG1>
IEPQV0+3<QEEW5<0YEPUUB+8TQEEG9>,)EPQV.C;LAEC<<X5EPQV-C>(AE;?<]EPVU)[4<VEDY+A/AFXH[!NE\Q"4P[= E\FAG,HU 1O.APQXH[!NE\Q"4T[A E\FA>78GB=0[M E\FA"7E\TQ2
"AP 7C GP[- E\ZA=<,GC;:<!,CGO9+9 OKK8G=,HU 3C.AQE\FA"\E\PBL\HL GE\GK:G=,HU 3C.A\QE\FA"
E\PBL\HL GE\GK;G=,HU 3C.A\QE\FA"
E\PB<(CH7\GB=0[M E\FA"0E\TQ2\"APLO;\H\<G\KA\NA?6(GB
5?4 KN(
?QFPQZ0A5HEFE6^-]FPUX=-8\UEFE9^8)FPQZ/);TQAFA<\J5FPXX->\QAF9? AFXH[!GE\Q^ ?>8CO+HF5,HU 2C>A4VE\FABPN A7G G [M E\ZA<E\QBPDNH7\GXH["CE\TV3;&AQHO:\H\DG,HU 2C>A$VE\FABPB:7G(GG!,HU 2C>A4VE\FABPB:7G G [M E\ZA<E\QBP<(BH7\GXH["CE\TV3;&AQ8LA\H\DG,HU 2C>A$VE\FABPN 
7G8G AE\G
87E\EO7K7DNB?<?HXKNLA?8 GPJ[?	70QEFG8>&%FPXCC:XAFC;<B1FPXDC=DEFG>>
=F<N4AKW3IWT> YFPW\MD,HU 2C&A0QE\FA,C>7G8G<4KXHD[ JE\TQ0,^A0WE\^A!;E\WI<?;8GTG3:>A(EC;:<!,BO+HB:DNC
>G>,HU 2C*AXQE\FABPXH["CE\TQ2\JA0Q 7C G7G8G$(JXHD[ JE\TQ0,^A0WE\^A!;E\W]<:E\EO:K:DNB?;;HTJNLA?>8GXH["CE\TQ2&&AQ  [M E\FA"\E\Q,L\HLLG\H\GNJE$[I E\^A!<E\ P[Y LBI<$KPJ
?%:0QAGA;\D1GP\A9=TVEGE>^&=GPN\!*WEG]9"NAGJP	ST4BEIL! <ADR 7ELDBMOR $BIC)D,HU 2R>A8WE\^AFY,HA 1FBIJ*.0	<A$EW, MKL	$EPAI7,IX\KCEIDTCI7,IX\KDFIKH\EJ!$[I E\^A>E\W"9P[Y LBI,,JJ(/!E\TG3=>A4EC;=<!0BO/HG;,HU 2R>A8WA\BAD,HU 2C&A0QE\FA6PLWXH[!F$LHG:,HU 3C>A8WE\FA"
E\DP^G!,HA 1FBIB:0[M E\^A9E\TQ2\"APW/P[Y LBI<(BPJ
?C9HAGC:<X1GP\D	=0QAGC><A=GPN\GIHXEG; AHXH[CE\TX1>&A0QE\BAB,XXH[!F$L P[Y LBI$8JJ4IT, MK4I$, MK4I$, MK4I)N,G=,HU 2R^A0XE\^AF9,HA 1FBIXH["RE\TX1<.A$WXH[!F$L8HADNB
;:E\EO:K:DNB?9?H KXH["RE\TX1<FAHXXH["CE\TQ2\&AQX!NP[Y LBI<\BXH[CE\TX1<&A0QE\BAV0XXH[!F$LHG7,HU 3C^AXXE\FA"\E\DP"E*,HA 1FBIB+7
?YHP BE7 AHA9\L)HPQ"\A;TAHA<\A5HPW"=A>LAH9?G03E	X+TB EH!8ZSEGPX^V%UXXEG 6JV)GPX^V$IXXEG F6V=FPXZV	\XXEFT6VEFPXZV	IXXEFF.V9FPXZV&;XXEF"2*V=FPXZV&	XXEF"$&V1FPXZV&YXXEF"Q"V9FPXZV%&XXEF!VV!FPXZV%UXXEF!HRVYFPXZV$9XXEF 7JVAFPXZV$^XXEE"P"V9EPXVV%&XXEE!$VVQEPXVV%
XXEE YFVYEPXVV$KXXEE H>VADPXRV	.XXED!6V=DPXRV	HXXEDFRVUDPXRV%CXXED 3NVEDPXRV$!XXED 
:V)CPXNV	^XXEC"T"V!CPXNV$4XXEC (BVMCPXJV	-XXEA%:VMAPXFV	[XXEAYVV9GPX^X%\ XEG 3NXEGPXNX		 XEC%&XECPXNX&O XEC 1JX=CPXNX$H XEB4"XAHXH[CE\TX3?&A0QE\BA",XXH[!F$L P[Y LBINK/>G=,HA S<5HPQLO> XAHC?TCZH"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