File AB7.FT (FORTRAN source file)

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

2I?C3M?M3N2 3A[N"M&J3D7I7EON3I;O2 SI+AT*127.1"42):,.(^62)&,+FE.2^22)&,7AOU*(22.1"42)&,7SSA/Z&(")*M2I?D. B1. GK*=21.1"4"M&J7IWA/SF(.,GK.)B="M&J7IWA/SJ(.,GK.)B="M&J+DCO*1B0/K62.1F,"7*M"1&03IGD3T.(22.,.16)"0*M6IOI/T7A.1B0"0*M6IOI/T7C.1"46+OIT7A2JNI3A3L6 SR3A
P*(216-OI+T3C.2^22,[IE6)2J2I3A[N2=[I/E&(")*M2I?D. B2. 7K.1Z,"7*M"2&03N.(2)&=+FE.1B6*+	K"M&J3C3A3L& 3OWP+N^(3RKK*12	2	KA3I/L+S&	"M&J+DCO*3B0/K613L;A/FF,"468.JB32IWR+AD.4R,*0")3IGD3T.(.,GK2).,*=21*32)3IGD/TZ(.,GK2)&,7DSA*(27+K&12,GI+US21.,*12)I7X2JNI3A3L2 ?
3P;E6(J	/KGB*	^,3A	B7GOK"	6)2JRI/OV 20. 212=3A[N.,R1"8*M2IWR+AD.4R,*0")3IGS+TZ+K2)/KF=*,&7"M&J+IF3IGS+TZ*16)3IGD/TF(.,GK*)B)*720*820"760.JB72I?D. B9. OK2=GL+N3F.1"4"M&J+IF3IGS+TZ*16)3IGD/TF(.,OK*)B)*920.1B0.,B9.MFJ"0&03ISN/E7XK632J^I3O?T. F1"0*M"9&03C;O3T
IU7E6J^I7RSI/EF(.,B66)OI7A+T*(&1.MRJ20ZI3O7R+AT.7OI")*M"6&07FKO7MSA*(^/3L	E7SWT7NOG7KKU3SGD3T;E6 WF+ECR3SC3U3E+ECR2	&,*3^,2 WF3HWL+N&	"M&J7GSO/OV "0*M"8&03ISN/E7XK61.JF120&I7DSA*(243ISN+E	X6=OI7A+T*(&2"M&J3IGD/TV(2,;I7DE2)&=7SSA/ZN(")*M2ISI+AT28&,3NWD/X6)
IGS+TZ"46)2J&I7DSA*(293ISN+E	X6=OI7A+T*(&5"M&J7IWA/SJ(2,;I7DE2)&=7SSA/ZZ(")*M"5&03C;O3T;IU7E2JNI3A3L2 ?I3P;E6(J	/KGB*	^,3A	B.1J3"	6)2J.I3Z	E/GF="M&J3IWZ/I7G"4*M.2B32I?D. J120. 212=3A[N.,R1"8*M2IWR+AD.4F,*3&06(OI7A+T*(	K.,7K.1&,")*M.1B32I?F3RGM/T&(+I&4"M&J
IF3IGS+TZ*16)3IGD/TF(.,GK*)B).1B4.,V1.0F,"460.JR120RI/OF *6B0/K633L;A/FF,"4682J&I3F&(7SSA/ZF(2)&-7DSA*(21+K&3.)F *620.1B7.,Z1"0*M.1B72I;I7DE.=OK"M&J7GSO/OF "860.JZ120NI7OSN7IWNE*M6IKW3IWT*(21.3B66)OI7A+T*(&1.MNJ"6&07FKO7MSA*(^/7GWR+N7D2 ;U3D2 7EOI3T;U3G/S
UOR7DSA+ECN3FWU7RN 7CWH3EWL+R^ .,OI",*M*I^12 WF3HWL+N&	"M&J7GSO/OF "260.JV120&I3NWD3X.="1*M.1B82I?D. &120. .2J=",652J&I3F&(7DSA.(KK2,;I7DE2)&-7SSA3Z.(*2>)*1&0. B2.0F,*920.2B0.MJJ"0&07GSO/OJ(*420.2B52).,3Z	EG*M.2B46IKW3IWT*(21.2B16)OI7A+T*(&1*,N3IGS+TZ+K&2
/B1")*M.2B12I?F3RGM+T>(2	;U7TKE3SC3ISE3LOI+HCE3FOA3H;A3GKA+ECN+ICN*1:2.1F-.3F.2 ;U/DF .3J.* 2	"M&J21J	+ECI3SC3U3E+ECR2	&,*3^,2 7I2 GF+CCH2	F,"26)2J^I3O?T. &1"0*M.2B56IKW3IWT*(21.2B66)OI7A+T*(&1*,N3IGS+TZ+K&2./B1")*M.2B62I?F3RGM+T>(2	;U7TKE3SC3ISE3LOI+HCE3
OA3H;A3GKA+ECN+ICN*1:2.1F-.3J.2 ;U+D^ ",*M*I^17PWR7EWF7NOG3FWA3CWH+RCN3B	E2 OS3HWU7LKE* 2	+I232	& 3MZ 3AC* 2	+A&2.MFJ"9&03C;O3T;IU7E2JRI/OJ *2B0/K62.6&,.MJJ"2&03IGD3T&(3Z	E3G.+22&,3NWD/X6)3IGS+TZ+K&2.MFJ"2&03C;O3T;IU7E2J^I3O?T.(F3.0N,*2&06,+K3E
I.MNJ"1&03C3A3L& 3OWP+N^(3RKK*12	2	KA7IKP+F&	"M&J3KWZ/I7G"2*M6I+I3E
I"=682J^I3O?T. N2"0*M.3B22IGC+LCL7OCO+EN2	/R+B^12,F	7BSI+U
R")*M2I?D. "220. 212=3A[N.,R1"8*M6IKW3IWT*(24.2B92)SI+AT21.,*12)*(N3IGD3T.(.,GK*)2)/KJ=*,&5"M&J3W	R+TE.4N,*0&02(SI+AT3K.,*12)/KZ=.,^12)&,7AOU*(21+K&12,GI+US22.,"16).J"220NI7OSN7IWNE*M.2B92I?F3RGM3T&(.3R,+A&2.MNJ"0&07FKO7MSA.(R1+I&4"M&J3C3A3L> 3C?LS7E2JNI3
3L2 C3A;I2(F	+B^8")*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