File AB2.FT (FORTRAN source file)

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

3CFI3U
S3AWB3T	E7LV 3EWB7R* 3UGL7SWS+NCG2-2 3KJ-3EWR3IC"M&J3C7O3M;O2 GL+N3F7NSO3EZ,3N7A2,/L",7L2JRI3IWM3N	S+OCN7NSO/EF(.3F,*4&82,;F+AM*32)+LK.6F,*4&8*,L.1&42)&,/WF(*4&8"M&J3D7I7EON3I;O2 3K7AOS/EF(*02)3IWF.(J2"76)2J&I3SOT.=F1"4682JNI3A3L6 SR3AWP*(216-OI+T3C.2^22,
IE6)2JRI/OV . 7K.1F,"0*M25.I7LOA+SE/K6)"0*M2I?D. B1. GK2=GL+N3F.1"4"M&J+IF+LK21.,*1&)*120*120"165.JV16I
I.(GK.)N=2*2(/KR(.,GK2)2+/KV(.,GK*).)222*/KZ(.,GK")*M2IWL7IWK2=&(3W.(*16)222*/KZ(.,GK*)>)"3*M2I[N21&=+FE7NSO/EJ(.,GK.)F+*6&0"M&J/NKF2=[I3E:(3OWT*(23+K&1.+Z1"06)6J^I7RSI/EF(.,B22)?N+TE21.,*12)/NGF2,[N*2",7NSO3E.(.,GK2).,*=28*1&3.MJJ20ZI3O7R+AT*6>(*)^,3SC3U
E+ECR2	&,*3>/61"0.,KA6,"2.,KA./F	.2F.*:2	*33X.2J(3X&,*2>)"M&J.1F	.2J.*:2	*33X.2J(3X&,*2>).	N1..*1.	N,/XJ,6("2.,KI")6)6J^I7RSI/EF(.,V22)WL7IWK2,/L*(26+K&16,
I.(GK")*M"2&57FKO7MSA*(^/3S7U+MCE+L7K7BKE3EOI3HV 3I[N3AC7E^ 7ESR3U
N*:^ "M&J21&,*3^/7AOU3GWL3IC7SWP7NSK3EV 3I[N3AC7E^ 7ESR3U
N*:^ .,OI6/B	3U/N7TWS3MWM* 2	"M&J222	3KJ-3EWR3IC*:^ .,B23X&,*3^,6 WP7NSK+E&	"M&J+IF3L.(*16)*2B)*320*320"460.JB46IKW3IWT*(21*5&0.MVJ20ZI3O7R+AT2		N7CSH6 WZ3Z3U7AOS+E3N2 WW+ICL3ME3RF +LCS3ZWW3I. 7UOR3E6 +ICT3W;E+I2	"M&J21^	+ECR7AOL6 WF3E[N6 WP7NSK+ECN3E;I3F
A7HKE2 WW7RWT+NCG3A
B3EOS3H?L3SWS7N^ +U
R",*M*I^23D;E*.&	.MNJ20&I3F&(3W.(*16).1B0.)Z .0^,.0^,"0*M"6&03W	R+TE.1","06).JB82I?F3RGM+T^(3NOI+HCT7Z+U3UGL3SWS+NB,3W	E7L^ 3E	N7GKE2 3A3S" 3USN7ESR6 WP7NSK3E& +M2	"M&J*1B	+L7K7BKE3EOI+H&	"M&J7GSO/OF "0*M"7&0+IF+IW+K&1.-^2*6B)*920.1B0.,B1"0*M.1B02I3K7AOS/
F(2).=7LOA+SE*1.)"1*M2I?G+TCO"160.JB92I
I3R;E/ZJ="7612JRI/OF *2B0/KJ=",682J&I3GWR/N7Z7IKG7E+N.-B2"M&J+IF+IW+K&12-
I3R;E+ZB).1B2.,N1.0F,"360.JN120.I7LOA+SE/K6)3KGL3SWS*(	K"+612J^I3O?T. B1.MFJ"2&03C;O3T;IU7E2J&I3F&(3W.(*16).1Z1.)J *520.2B6.,Z2"0*M.2B62I3K7AOS/E&(2).=7LOA+SE*9.)"1*M2I?G+TCO"160.JV220.I7LOA+SE*1&02=3K7AOS/EF(*0.)"1*M"1&03C;O3T;IU7E6J^I7RSI/EF(.,^2"06).J^
20ZI3O7R+AT*/^/3UV * CB7EJ * CS3IN * CH+T>	2	WU7BKE2 	D3E^ 7RCU3PWI3R;U3GR +ECR"	6,.JFI6	WZ3G3E7AOS3EWN7NN 7CWH3EWL+R&	"M&J3W	R+TE.1J,*8&0.MJJ"8&07FKO7MSA2(&	3M2 3KJ-3EWR3IC6 WF+ECR3DWI2 WM7LWD+NCG3NOA7HB +A;R. "12 KA+P
O"/6/.JFI61"56,B	3U/N7T*-3A3H.	V,+X^,7A+N3A3H2 OS3HWU7LKE*	&/"M&J3W	R+TE.1J,*9&03KGL3SWS*(&1.MJJ"9&07FKO7MSA.(^1+X^,.3B0.-^2*62	61"2.,OI")*M6IKW3IWT*(21.3B02)3K7AOS/EJ(")*M.3B02I?F3RGM/TF(*73X.	^2.5J-*5^1.,J13X&,"36)6J^I7RSI/EF(.,F320.)7LOA+SE"36).JF320ZI
O7R+AT61"7.,J	*560.2F3.	F,*23X+I&3"M&J3W	R+TE.1N,*2&03KGL3SWS*(&4.MNJ"2&07FKO7MSA.(^1+X^,.2B3.-F2*12	61"2.,OI")*M6IKW3IWT*(21.3B32)3K7AOS/EV(")*M.3B32I?F3RGM/TF(*73X.	F2.0F-*9^1.,J13X&,"36)6J^I7RSI/EF(.,R320.)7LOA+SE"66).JR320ZI3O7R+AT61"7.,F	*960.1F7.	F,
23X+I&3"M&J3W	R+TE.1N,*5&03KGL3SWS*(&7.MNJ"5&07FKO7MSA.(^1+X^,.1B7.-V1*12	61"2.,OI")*M6IKW3IWT*(21.3B62)3K7AOS/E"(")*M.3B62I?F3RGM/TF(*73X.	V1.0F-*3^1.,J13X&,"36)6J^I7RSI/EF(.,^320.)7LOA+SE"96).J^320ZI3O7R+AT61"7.,F	*360.1Z1.	F,*23X+I&3"M&J3W	R+TE.1N,*8&0
KGL3SWS.(B1")*M.3B82I?F3RGM/TF(*73X.	F1.5F-*0^0.,J13X&,*3>/"/6)2JVIN7D&J*L

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