File AB8.FT (FORTRAN source file)

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

2I?C3M?M3N2 3A[N2,GI+N3F3N7A3E&,7DSA6,CI3U&,Q7U2JRI3IWM3N	S+OCN3N7A/EF(.1F,*4&82,SI+AT*2&32,GF+NO*42)7IWP*(&46,GI/UR(2)&,3H3I/FR(")*M2I	D3M;E3S?I3N2 3I?M/BN(2)2,7IWM/NN(2)2,7IWM/TN(")*M6IOI3POA+E6=.2F0"6*M6IOI/T7M.1N0"8*M2IGC+LCL3RGT+PE*16,7ISS/MF,.6"22,G
+M	E.MVJ2IGC+LCL7ICO+EN2	/R+B^12,F	7BSI+U
R")*M"1&53C3A3L> 3OWP+N^(3RKK*12	2	KA7IWA+S&	.MJJ25RI/OF 20. 21&=3A[N.,R1"8*M2IWR+AD.4J,*0")3IGD3T.(*22)/K62.1F,"96)2J&I3F&(7DSA*(&12-GN+ME21.,*1&). V3.,V4.,V3.MNJ65^I7RSI/EF(.,V52)SI+AT*12)3N7A/EF(.,GK")*M"5&57FKO7MSA*(^/3B	E* 2	+I236	N 3T7I+MCT7WOA2 	N7
SH* ^(.,SI*,&	"	6)2J^I3O?T. B1.MRJ25&I3S7U"=602J&I/PB="M&J/I7Q"0*M2I?D. B225. *=21"4*M6ICI3U.(.)B="M&J7IWQ*(	K"=602J&I7DSA.(&1*+	K"=602J&I3F&(7DSA.(N1*+	K.-V1*1&6. B3.,B4.,B4.MNJ20ZI3A?N*(	K2=3F7OSA2(SI+AT25.+2)&+7DSA*(.9+K&)*/:4"M&J+IF7AOB2(GF+NO+K6)3F?L
AT3IGD/TF(23.+*)&)*-:4.)J *025*520"560.JB52I[I*(7K*4B)*620.2V0.,B2"5*M"6&0/I7P+I/P"1*M6ICI3U.(.)F="M&J7GSO/OJ "065.JB46IKW3IWT*(21.6B32):(3AWM.(KK.,GK2).,.2J=.,F12)&,7DSA*(.1K6).JB22I?F3RGM3T&(.3R,+A>221&4"46).JN620ZI3O7R+AT21F0*2^/7PWR7EWF7NOG3E
R3E;B+ICS+ICN2	F,*2^,2 WF3HWL3RGH+F
T")*M.6B42IGC+LCL7DSA+EI.1V,*,2521.,"16)2J^I3O?T. B1.MJJ"0&53C;O3T;IU7E2JRI/OF *5B0/KF=",632J&I7DSA.(&1*+	K*=*43IGD/TF(23.+2)&+7DSA*(.9K6)2J&I3S7U6=OI+U/M3IGD/TF(29.+")*M.1B52II3I[L*(	K2=SI+AT*1.9K6)2J&I3F&(7DSA*(&5.-J1*3&2. Z1.0F,*720.1B6.MFJ"7&0/I7X3IGD
TF(*7>).1B0"M&J/I7Y3IGD/TF(*76).1B06*I"M&J3IGD/TJ(.36)3IGD/TF(*3.)*(*8+I/X24&*+Y>)"3*M2I?G+TCO.1B8.MFJ"6&03IGD/TJ(.36)24&*7DSA.(^12)&+7DSA.(N1")*M.1B86IOI/U7M7IWS3M&+7DSA.(N2")*M6IKW3IWT*(21.1B02):(3AWM.(KK.,GK2).,.2J=.,F1")*M.1B02I?F3RGM+T>(./F/*73X*2"4*
^*.)F/*73X*	B*.	F,.0KA*,B	**>	61"7.,R2*(*	*	>)./&1X6,.JFI2	OS3H	N+TCT*1>2*1^36,"56,B	3KWT. N1*.^26,"56,B	3KWT6 KP+F
G6,"52,J	3IS6.KE+G^."/6)6J^I7RSI/EF(.,F120&)7DSA*(&22,GF+NO*12)3IGD/TF(*02)3IGD/TF(*42)3IGD/TJ("06).JF120ZI3O7R+AT*53X*	7L3FOA+H^ .,KA6,"9.,WF*.2261"2.,KI6,"96,N	7CKH* ^ .,KI6,"9.,OI")*M6IKW3IWT*(21.1B12)SI+AT*32)3F;A/OJ(2)&,7DSA.(F12)&,7DSA.(V12)&,7DSA.(
2")*M6IKW3IWT*(21.1B22)SI+AT*42)3F;A/ON(2)&,7DSA.(J12)&,7DSA.(Z12)&,7DSA.(J2")*M.1B22I?F3RGM/TV(+X^,23Z.3AC* 2	+A22*93X+F:5.2F,*23X+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,S
+AT*1&72,SI+AT*2&3.MFJ"3&07FKO7MSA6("5.,R	2.GF+CCH2	F,.2&,3XZ,.5J..,J13X&,.2&,+X^,3M3D* B 2	&,.2&,3X&,"36)2J^I3O?T. &1"0*M"8&03W	R+TE.1F,*4&03IGD/TV(2)Z,3A?N*(&42,SI+AT*1&36,I6,	I2,SI+AT*2&3.MFJ"4&07FKO7MSA6("5.,R	2.GF+CCH2	F,.2&,3XZ,.5J..,J13X&,.2&,+X^,+
;R+TCH2	&,*2^,*.2	+I22*63X+I&3.MFJ"9&03W	R+TE.1J,*0&07IWSM*M.2B02I?F3RGM/TZ(*53X*9^(*-&	./N5+X^,3S7U/M+E.	&,3X&,"36)"J	C7FOE7TSS3E3L3U
N2 WD3RV 3RWG3B	N7SKG7E+NE7N2JRI/OJ *1B0/KF=",632J2I3I?M3B.(*)"=28&*7DSA.(N1*+	K.+B6.)N/2+SI+AT29.+")*M2I[I6(CI3U.(*)B).2B2.,J2.0J,"360.JJ2202I7IWM3N.(.)R=2*SI+AT*1.3+K.)3IGD/T&(*+	K"M&J3L7I+UT/K6)3IGD/TF(23.+")*M2I?G+TCO.2B1.MJJ"3&03L7I+UN/K6)*(*83IGD/TF
23.+*)>)23&+7DSA*(.9K6)2J2I7IWM3T.(.)B=.MJJ"1&03C;O3T;IU7E2J&I3H3I/FR(2)&=7DSA.(N2")*M2I?D. R220. *=21"3*M.2B42II3I[L*(	K2=	L3M;U*(	K"M&J3C3A3LZ 7ESR+IG3I	H+L3F+I3B3IGB")*M2I[I2(KI.-F1*1B).2B5.,Z2.0J,"660.JZ220&I3F&(+PB).2B7.,^2.0J,"860.J^260^I7RSI/EF(.,&
"06).J&220ZI3O7R+AT./B1+X^,3BV * CS3TF * CN3DV * CN*!>	")*M2IGC+LCL7DSA+EI.3R,*,2521.,"16)2J^I3O?T. B1.MJJ"8&03C3A3LR 3AWT/IV(*,25.5J,.,GK")*M3S*I+MCS3M3D"M&J7GSO/OF "0*M3C6I3A	X3MWI3R;U3GF 3LWL3RZ 3AOE7HKE.MJJ"5&0+DCO.3B4. 7K.1N,.MNJ"4&03I	H+LF/K6)3L7I+O
K6)2JNI3A3L2 WF3R	T3G&(3H3I3F&,3B&,+B	A"M&J+IF3IGB.)N *520.3B5.,Z3"0*M.3B52I[I2(KI.-B1*0B).3B7.,^3.0N,"860.J^360^I7RSI/EF(.,&3"06).J&320ZI3O7R+AT6/"52,:	3IC3TJ 7ESS3ASN+ECN3W
E+ECN.1B06-WP7NSK3EJ-3E	D7NWG+N
G")*M2I[I2(KI.-B1.)N *820.3B8.,J4"0*M.3B86IKW3IWT*(21.4B1")*M.4B12I?F3RGM+T>(*53X2		N7CSH2 WB3SGT3NWD7N^ 3EWG/NJ 65B-3U/N+T7E3BSE3I
N3U
N"	6).JJ420NI3A3L2 GD3T	E*(22.3R,*,21+K&1"M&J7GSO/OF "0*M.3B62I[I6(CI*-&3. N4.0R,*420.4B32MNJ6IKE7MSI7TWL+NCG7DKE2 WG3FWA3HSR3U
N3SGF3EC+E3R2 	D3EF +UCF3JSE+ECN3F3AL*M3C^I7EKP3U[E7T^ 3ESR+ECN3MWU3SWSN*M.4B32I?D. V420. *=21"3*M.I7J/KF+"M&J/K60/KJ+"M&J+IF/KJ-.)R *620.4B7.,Z4"0*M.4B7.ICK"=61.JZ420&I3F.(*-&3. "4.0R,*920.5B0.MVJ"0&03S?TP*M.4B9.I7J"1*M.ICK"=62.J"420&I3F&(+PU+K&0*-&1. F5
0R,*520.5B1.MVJ"1&03IKB"=602J2I/U7G3L7I+UTK6)2J2I/U7K3L7I+UTJ6)2JRI/OV *3B0/K7L3L
U.,V1"M&J3I	H+LF/K6)*(*83IGD/TF(23.+.)R+2*3K.)N/2+SI+AT29.+")*M2I?D. R520. 3M2=+U3K"1652J&I3H3I3F*(*)"=28&*7DSA.(N1*+	J*+*4+K	M*/.33IGD/T&(*+	J"M&J3I	H+LF+K&02=	L3MKO.(CK")*M2IGC+LCL7FKE3T
I2(I3I[L2,KI2,KIA6)2J&I/B7B3IKB2+KIA*M2II3I[L.(CK2)2=7IWM3N.("06)2JNI3A3L2 WF3R	T3G&(3H3I3F&,3B&,+B	A"M&J3IKB2=KI3B&-B7A2J&I3F&(+B	B. R5.0V,*420.5B5.MVJ"4&03C;O3T;IU7E.JN520NI7OSN7IWNE*M2I?G+TCO.4B5.MVJ"5&07IWQ.(CK.)F="M&J/I7Q+I/Q"1*M.4B52I?C3N	T3NWU.MRJ"
&03C;O3T;IU7E"J	S7JOM2 SML*M3CZI3AOE7HKE2 	M3T^ 3EGF7EKH3D;U7GCS3RWU3F;U3G;E6 KD3U/CE7N2J&I3F&(+QB).5B0.,J6.0V,"660.JZ560^I7RSI/EF(.,^520&)3SGP+C3E.MVJ"7&07FKO7MSA*(^/3MWU3N3D3IC7EB 3RWU3F;U7G^ 3EWG3N^ 3EGF7EKH3D;U3G& +N^ .,KA")*M2I?D. "520. *=21"3*M2I[I6
GI3U.(2)&-+PU+K6)*1B).5B8.,&5.0V,"960.J&560^I7RSI/EF(.,B620&)7DSA*(.1+K2)7ICS3AWC",*M.6B02I?F3RGM/TJ(+A&2.MVJ"8&03C;O3T;IU7E6J^I7RSI/EF(.,F6"06).JF620ZI3O7R+AT"/6).JJ620NI3A3L2 GD3T	E*(25.5V,*,22+K&1.MFJ20NI7OSN7IWNE*M.6B52IGC+LCL3O3C3OWS.MZJ"9&03S?TP*M3S
ML&,"0*M2I[I6(CI.)F *026.1Z0.,B2"6*M.2Z06IKW3IWT*(21.3Z06)OI3POAE6,.JB326ZI3O7R+AT2/6	3U;E3D	L3CWH6 KP3U[E3U
N2 WW3G;E2 KA3W	E7CWH+NCG+ICN2	F,"26)2JRI/OR *0B6/KF=",632J&I3F&(+PU+K&). B4.6R,*026.5Z0.MVJ"0&63W	R+TE.1Z,*0&63IGD/TF(*+	K6,OI3POAE6,.JB626ZI3O7R+AT.2KA")*M.4Z02I?C3N	T3NWU"M&J3W	R+TE.1Z,*1&0.MFJ"0&63C;O3T;IU7E"J	S7JCM* CI3M3D"M&J3ESN"M2JBZ

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