File AB8TES.FT (FORTRAN source file)

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

2I?C3M?M3N2 3A[N2,GN+M3E3IGD3T&,+P3U7IWQ"M&J3D7I7EON3I;O2 GN+ME*121.1"42)&,7DSA.(N22)Z,3A?N*(&46,CI/UR(2)&,+QU*42)3I	H+LF"46)2JRI3IWM3N	S+OCN3L7I+OB*32)3L7I+UN*32)3L7I+UT"36)2J&I3SGP/C7E.-B2"1662J&I3S7T.=B1"3682J^I3O?T" 652JNI3A3L6 SR3AWP*(216-OI+T3M.1J62
:,3AWM")*M25NI3A3L2 ?I3P;E6(J	/KGB*	^,3A	B7TKU"	6).JV12IGC+LCL7OCO+EN2	/R+B^12,F	3BGI+U
S")*M"2&5+DCO*1B0/K613L;A/FF,"4686JJI3ESA*(24*2&02(SI+AT+K&2.,KK*=21*1&9"M&J7GSO/OR "5*M2I[I2(SI+AT*16)3N7A/EF(.,GK*)B)*325*425"365.JV36IKW3IWT*(21*5&53IGD/TF(2):,3AWM*(21+K&1.MVJ25ZI3O7R+AT2/J	+ECI2	&,*3^,6 SS3I7M7T^ +ACS3NOI+HCT*(2	+I24*	^)")*M2I?G+TCO"
60.JV46IOI/U7M"0*M6ICI"=602J&I/QB="M&J+DCO.2V0. 7K.1R,"M&J7IWP*(	K"=602J&I+QU/K6)"0*M2ISI+AT*1.9/K6)"0*M2I[I2(SI+AT*1.3+K6).1F5*6B)*320*420"460.JB32IGF+NO/K6)3F?L+AT3IGD/TV(*+	K2+SI+AT29.+*)>)"46.2J&I3FF(+BS3F;A3O.(2)Z-3LGO3T&(7DSA.(N1*+	K*)6)*4&.. B2.5V,
0V,"0*M"5&0+IF/KR-.)Z .0J,*025.2V0.MZJ20&I3P&=/PF+"M&J7IWP*(	K"=612J^I3O?T. B2"5*M"4&03W	R+TE.1Z,*3&02(GN+ME+K22+K&1.,KK*=22*1&12,SI+AT21.+")*M"2&07FKO7MSA.(OI2,F4.2F/.4SI")*M.6B32I?F3RGM/TF(.0KA6/B	3RWU3F;U3GWS3RWG3B	N3S& +N^ .,KA*,B	3FE7LKE3H[A+T&	.MZJ"
&03C3A3LR 3AWT/IF(*,25.5F,.,GK")*M2I?G+TCO"160.JB225NI7OSN7IWNE*M2I?D. V120. *=21"3*M2ISI+AT*1.9/K6)24&*7DSA.(N1*+	K2+SI+AT29.+")*M6IOI/U7M7IWS3M&+7DSA.(&1*+	K.MFJ"5&03I	H+LF/K6)3IGD/TF(29.+")*M2I[I2(SI+AT*56).1N2*2B).1B6.,^1.0F,"660.J^120&I3X&=7DSA.(^1.)
/"0602J&I3Y&=7DSA.(^1.)F-*0*0I7X2J&I7DSA.(N22)&=7DSA.(N1*)"+28&*/XR+6*	I.)N/"M&J7GSO/OF "860.JZ120&I7DSA.(N2.)R=2*SI+AT*1&72+SI+AT*1&3.MFJ"8&07IWS3M&=3S7U2+SI+AT*2&3"M&J3W	R+TE.1F,*0&02(GN+ME+K22+K&1.,KK*=22*1&1.MFJ"0&07FKO7MSA*(>/./^1/XJ,*4^(**&	./^1+X^,
*^ .,B1+A22*	* .	F/*73X*2"4*	^**)>/61"9",*M*I^13SC7NSI/TF .2F/*32	*53X2	/P+TCE*1:3*22	*53X2	/P+TCE3P[R+G2	*53X2		B+S;H3E
R*.>	")*M6IKW3IWT*(21.1B12)SI+AT*22)3F;A/OF(2)&,7DSA.(B12)&,7DSA.(R12)&,7DSA.(B2")*M.1B12I?F3RGM/TV(+X^,3LZ-3AC* 2	+A22*93X+F:5.2&,3X&,.2&,+X^,3SC+RB 2	&,.2&,3X&,"36)6J^I7RSI/EF(.,F120&)7DSA*(&32,GF+NO*22)3IGD/TF(*12)3IGD/TF(*52)3IGD/TJ("16)6J^I7RSI/EF(.,
120&)7DSA*(&42,GF+NO*32)3IGD/TF(*22)3IGD/TF(*62)3IGD/TJ("26).JJ120ZI3O7R+AT*53X*	:33FOA+H^ .,KA6,"9.,WF*.22*93X+I22*93X2	OS+HCR* 2	+I22*93X+I&3"M&J+IF3IGD/TV(.)F-.2J3.)^ .0",.0^,"0*M"7&03W	R+TE.1F,*3&03IGD/TV(2)Z,3A?N*(&42,SI+AT*1&32,SI+AT*1&72,SI+AT*2&3.
FJ"3&07FKO7MSA6("5.,R	2.GF+CCH2	F,.2&,3XZ,.5J.6,"9.,KI6,"92,6	+DCL* ^ .,KI6,"9.,OI")*M2I?G+TCO.1B9.M"J60^I7RSI/EF(.,R120&)7DSA*(&52,GF+NO*42)3IGD/TF(*32)+I3X+I3Y3IGD/TJ("36).JR120ZI3O7R+AT*53X*	:43FOA+H^ .,KA6,"9.,WF*.22*93X+I22*93X6	KP2.T* 2	+I22*	^..,KI
,"6.,OI")*M.1B96IKW3IWT*(21.2B06)OIU7M.JB220ZI3O7R+AT66"5*,"9*	^-.)V/*33X6	WS3MWM*:2	*93X+I&32MNJ2IWF7SOT3T3E3L;U3GR +ECR3E
R3E;B3I
S3R;E3Z;E"M&J+DCO.2B1. 7K.1N,"M&J3L7I+OB/K6)*(*83IGD/TF(23.+.)Z+*0>)23&+7DSA*(.9K6)2J&I3F&(+PU+K&). J2.0J,*220.2B3.MJJ"2&03L7I+UN/K6)24&*7DSA.(N1*+	K2+SI+AT29.+")*M2I	L7MSU*(	K2=SI+AT*1.3K6)2J^I3O?T. F2"0*M.2B32I	L3M;U*(	K.="(2*SI+AT*1.3+K&)*/.33IGD/T&(*+
K"M&J3L7I+UT/K6)"0*M.2B12I?C3N	T3NWU"M&J3I	H+LF.46)3IGD/TJ("36)2JRI/OJ *4B0/KF=",63.JR220&I3H3I3F.(2)2=7IWM3N.(")*M2IGC+LCL7FKE3T
I2(I3I[L2,KI2,KIA6)2J&I3F&(/BF-*1&1. V2.0J,*620.2B6.MJJ"6&0+IF+I	P. ^2.0J,*720.2B8.MJJ"7&03W	R+TE.1J,*9&0.MJJ"9&07FKO7MSA.(F/*03X*	CB7EN * CT3A: * CD3E: * ^!"/6)2JNI3A3L2 GD3T	E*(23.4V,*,21+K&1"M&J7GSO/OF "0*M.2B82IGC+LCL7DSA+EI.5V,*,2522.,"16)"J	S7JOM2 S
L*M2I?G+TCO"160"J	C7MA3I	M7EWR+NCG3A3L+ECR3FWA3CWHR*M.2B52I?D. R320. *=21"3*M.3B42II3I[L*(	K2=	L3MKO*(	K"M&J3C3A3LZ 7ESR+IG3I	H+L3F+I3B3IGB")*M2I[I2(KI+AB).3B5.,V3.0N,"660.JV320&I3F&(/BF-*0&0. ^3.0N,*720.3B8.MNJ"7&03W	R+TE.1N,*9&0.MNJ"9&07FKO7MSA.(V/+X^,3
OI+HCT7BOE3T;A3D;E2 WW3G;E. B160B-3U/N+T7E3BSE3I
N3U
N"	6)2J&I3F&(/BF-*0B).3B8.,"3.0R,"260.J"360^I7RSI/EF(.,F4"06).JF420ZI3O7R+AT6/"52,:	3IC3TJ 7ESS3ASN+ECN3W
E+ECN*2653P;U3KWT2-WB3D;I3G;U+G&	.MRJ"2&03C3A3LR 3AWT/IJ(*,23.4F,.,GK")*M2I?G+TCO"160.JZ320&I3F&(/PN-.)R *320.4B4.,N4"0*M3CVI3R	M3T3T3U
N2 WD3R^ 3EGF7EKH3D;U3G[S3AOE7HKE2,R +ICE3A[U2 WJ3D;E2 GFL7L"J	C7GCE3RWU+FCT7WKE3D;E6 WM7EOSE7N.JN420RI/OR *5B0/KF=",632J*I*=/K"1*M.ICK*=/K"2*M2I[I*(7K*2B).4B6.,^4.0R,"660.J^420.I.0F=.MRJ"6&0+IF/KN-.)R *820.4B9.,B5"0*M.5B06ISSO7P.J&420*I"=612J.I.0J=.MRJ"8
0+IF7IWP.(CK.)F-.)V *120.4B5.,F5"0*M.5B12IKI/BB="M&J3L
U2=	L7MSU*(	K"M&J3L/U2=	L7MSU*(	J"M&J+DCO.5B32 3K6=WL/GF,"5*M2II3I[L*(	K.="(2*SI+AT*1.3+K.)24.*+L>)23&+7DSA*(.9K6)2JRI/OV *4B0/K7M3L/U.,V1"M&J3I	H+LF/J6)*(*83IGD/TF(23*+.)R+2*7K.)N/2+SI+AT29*+")*M2II3I[L.(CK2)2=3I?M3B.("06)2JNI3A3L2 WF3R	T3G&(3H3I3F&,3B&,
B	A"M&J3IKB2=KI3B&+B7A2J&I3H3I3F.(.06)3L7I+UN+K&0"M&J3C3A3LZ 7ESR+IG3I	H+L3F+I3B3IGB")*M2IKI3B&=+B7B3IGB"M&J+IF3IKB.)V *420.5B4.,V5"0*M.5B42I?C3N	T3NWU.MVJ"3&03C;O3T;IU7E2J^I3O?T. V4"0*M.5B56IGI3U.(.06)"1*M6IGI6=GI"+61.JV420NI7OSN7IWNE*M.4B42I?C3N	T3NWU6M
J2I7J3S6 D7L"J	C3FWA3CWH3R6 +ICT3G[E3AE7RWD7NOG7PWR7EWF3NWG3NR 3ROU3K;E"M&J+IF+I	Q. B5.0Z,*220.5B6.MVJ"6&03W	R+TE.1V,*7&07ICS3AWC",*M.5B72I?F3RGM+T>(6	WM3ESN3LOI+HCE7PWR7EWF+NCG3W
E+ECN3G[E3AE7RWD+NCG+ICN2	F,"26)2JRI/OV *8B0/KF=",632J&I3F&(+QU+K6)7IWP*(	K*-&1. "5.0V,*920.5B9.MVJ"9&03W	R+TE.1Z,*0&03IGD/TF(*+	K6,OI3POAE6,.JB620ZI3O7R+AT.2KA")*M.5B82I?C3N	T3NWU"M&J3W	R+TE.1Z,*1&0.MZJ"1&07FKO7MSA*(&/.MZJ"2&03C3A3LR 3AWT/IV(*,25.5J,.,GK
)*M"1&03C;O3T;IU7E.JV620NI3A3L2 OO7LOOE*M.6B96ISSO7P2J7S+D3L"I602J&I3F&(+PB).1Z0.,B1.6J,"066.JB266^I7RSI/EF(.,B326&)3SGP+C3E.MNJ"0&67FKO7MSA*(^/3MWU3N3D3IC7EB 3RWU3F;U7G^ 3EWG3NF 3BWW3IC3U
N2 ;I* 2	+A&2"M&J+DCO.4Z0. 7K.1N,"M&J+IF7IWP*(	K.)R *026.4Z0.,B5"6*M.5Z06IKW3IWT*(21.6Z02)SI+AT21.+2)&,3SGP+C3E.MZJ"0&67FKO7MSA2(F2"26).JB426NI7OSN7IWNE*M6IKW3IWT*(21.6B1")*M.1Z02I?C3N	T3NWU6MNJ2I7J3P& 2 SML*M2I;ED*MBLBZ

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