File AB4.FT (FORTRAN source file)

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

3CFI3U
S3AWB3T	E7LV 3EWB7R* 3UGL7SWS+NCG2-^ 3KJ-3EWR3IC"M&J3D7I7EON3I;O2 GK3RWT.(V22)&,+FE.2^22):,.(^62)2,/KZ(.,R1*82)3FGN/MR(")*M2I	D3M;E3S?I3N& /WF(*4&8.,WI/PF(*4&82,3K7AOS/EF(*02)7LOO*(&4"M&J+DCO21. *=21"4*M6IOI/T7C.1"42+.(*+&1.*B2"0*M2IGC+LCL3RGT+PE*16,7ISS/
J,*2273IWF")*M212I+OS/K6)3IWF.(B1")*M2I?D* B5/KF=.,^6.MVJ*IN/K6)3IWF*(/K.1B6")*M2IWR+AD.1F,20Z)3N7A*(&1"M&J3RGE/DF(.,B22);F+AM"26)6JJI3ESA*(21*3&03FGN/MN(")*M2IWR+AD.1R,20Z)3N7A*(&4.MFJ20ZI3O7R+AT2	GD3T	E. J1..*1.	[A")*M"2&07FKO7MSA2(R	3AWT/IF .2J.2:F	"66
.JB32I?F3RGM+T^(7DSA+ECI*1:3*1^:+A&6.MRJ20ZI3O7R+AT2	GD3T	E. N1..*2.	[A")*M2I?D. B6. GK*=21.1"4"M&J+DCO*5B0/K62.1Z,.MVJ202I3K.(22.,.16)"0*M.IWI3P.(.16)"0*M"6&0+IW+K&1"=602JNI3A3L2 ?I3P;E6(J	/KGB2	Z,3N7A*(&4")*M2IGI/N7F7LOO*(&4"M&J3I?L3S&=3A[N"M&J+DCO.1B2.
GK2=GI+N3F.1"4"M&J3RGE/DR(.,B72).(7ASR3E.(2).,*=21*2&5.M^J20ZI3O7R+AT21&3.3F,.2KI")*M2I/L*(21+K&12=GK3RWT*(&1"M&J+LK22.,.16)7KKA+TE*4>)"1602J2I/KN(.,GK2).=7ASR/EV(.)F/"0*M2I/L*(24+K&12=GK3RWT.(Z1")*M2I/L*(25+K&12=GK3RWT.(^1")*M2I?D. J120. .2Z=.,N1"M&J+IF3
.(7ASR3E.(*2>)*1&0.+B2*1&6. B8.,J1.0","0*M"8&0+IW+K&16=
I.(GK.)F+"M&J+LK26.,.16)+LK26.,*1.)7KKA+TE+K.2*1&2"M&J+IF7KKA+TE+K.2*1&2*-&5. B9.,J1.0F,"260.JB9.IWI3P.(.16)7IB5.(GK.)F+.MFJ"2&03C;O3T;IU7E2JRI/OJ *1B03IGS*=21"3*M2IGC+LCL7ICO+EN2	/R+B^12,;F+AM3IGS")6)2J&I3A[N2=?L3S&(+S	A"M&J+DCO.1B6. OK2=GI+N3F.1"4.MFJ"2
53RGE/DR(.,B72).(7ASR3E.(2).,*=21*2&5.MFJ"3&0+DCO.1B5. GK2=3I+O3S.1"4"M&J+IF7KKA+TE*16)+LK21.,*1&). V1.0F,*420.1B5.MFJ"4&03ISN/E7XK612J^I3O?T. ^1"0*M.1B52I?C3N	T3NWU"M&J7GSO/OF "660.J^120RI/OJ *0B0/K62.4F,"3*M2I[I*(N7KKA+TE+K&2./B1.)J+.0Z1.)F *820.2B0.,"1
0*M.1B86I
I2(;I7DE2)&=3W&(3NWD+X.)"1*M2I/L*(263ISN+E	X2=/L*(263ISN+E	X2+GK3RWT.(KK.+J1")*M2I[I2(GK3RWT.(KK.+J1.)V-.)F *920.2B0.,B2"0*M.1B9.IWI3P&(3NWD/X6)7IB52(;I7DE.)F+.MJJ"0&03C;O3T;IU7E.JZ120NI7OSN7IWNE*M.2B12I?C3N	T3NWU"M&J3C3A3L> 3OWP+N^(3RKK*12	2	KA3I/G+S&	"M
J+DCO.2B2. GK2=3I+O3S.1"4.MJJ"2&03W	R+TE.4J,*3&02(/L.(KK.,GK2).,.2F=*,&6.,WI3P.("16).JN220ZI3O7R+AT.7OI")*M2IGC+LCL3O3C3OWS"M&J+DCO.2B4. 7K.1F,"0*M.2B42I3K7AOS3E.(.)B="M&J+DCO.1V0. GK2=3I+O3S.1"4"M&J3W	R+TE.1J,*5&0+LK21.,*12)3N2(/KJ(.,GK*)2)+LK24.,*12)3N2
/KN(.,GK*)2)+LK25.,"16).JV220ZI3O7R+AT*6>(*)^,3SC3U3E+ECR2	&,.3V/+X^,+GCK*1:3*2^:./N	2.GF+C
H6,"5.,KA6,"2",*M2I&1*2^,6 WP7NSK+E>	*	:43FOA+H2	*53X+A22*23X+I226	B 3U/N+T
E")*M6IKW3IWT*(21.2B66)
I.(GK2)2,/KZ(.,GK")*M.2B62I?F3RGM+T>(6	WP7NSK3S7U+MCE7DKE* 2	+I222	^ +KB:2	&,*3^,6 WP7NSK+E&	"M&J+IF7IB5.(GK.)V-.)N *025.3V0.,R3"5*M.3V46IKW3IWT*(21*5&57IB5.(GK")*M"5&57FKO7MSA2(:	3IC7T* 7UWZ7LOA3S;E6,^ 3E3I* 2	+I222	. 7UOR3E6 +ICT"	6/.JFI2	WW3N
I+ECR7AOL6 WF3E[N6 WP7NSK+ECN3E;I3FOA7HKE2 WW7RWT+NCG"	6/.JJI2	KA7GOE3C3H7OOS+ECN7WKU3D;E*.&	.MNJ"0&5+IF+LK26.,*16).1B0.)Z *020.7B0.,B7"0*M.6B06IKW3IWT*(21.8B0")*M.8B02I?F3RGM+T^(3NOI+HCT7Z+U3UGL3SWS+NB,3W	E7L^ 3E	N7GKE2 3A3S" 3USN7ESR* >	"M&J61B	3U/N+TCE
ICM+GCK2-J 3EWR3IC"	6)2J^I3O?T. B1"5*M.7B02I[I2(/L*(26+K&1.-^2*6B).9B0.,B1*020.1B0"0*M.1B020.I7LOA+SE.16)3KGL3SWS*(&1"+612J^I3O?T. B1"5*M.9B02I
I3R;E/ZJ="7612JRI/OF .2B0. 7K.2","M&J7IKG7E+N2=
I3R;E/ZJ-"0*M2I[I2(/L*(26+K&12-
I3R;E+ZB).1B2.0F,.3B0.,N1"060.JN1"0&03KGL3SWS*(	K2=3K7AOS3E.(.)F+"M&J7GSO/OF "065.JJ1"0&03C;O3T;IU7E2J&I3F2(/KZ(.,GK.)F-*1&6. V2.5J,*625.2V6.MJJ"6&53KGL3SWS*(&92=3K7AOS/E&(.)F+"M&J7GSO/OF "065.JV225.I7LOA+SE*1&02=3K7AOS/EF(*0.)"1*M.1V02I?C3N	T3NWU"M&J3W	R
TE.1J,*7&0.MJJ"7&07FKO7MSA*(>/*	CU3EJ * CE7RN * CI3C" * CT*	^/3UKE+ECR3DWI6 KG7UCP7IKE3U
N2 WD+R^ ",*M*I^13Z
U3EGL3SWS3N;E2 OS3HWU7LKE"	6)6J^I7RSI/EF(.,"2"06).J"220ZI3O7R+AT2	7I2 /G* B-7BKE3EOI3HZ 7UKE2 	D3E6 3ESL3U
N2 GN+CCH7PKA..F 28F 3B?P*	>/"M&J.1V1+X^,3P;U+K7T3ZA+L2	*53X2	;A3ZA7LN 7CWH3EWL+R>	")*M6IKW3IWT*(21.2B92)3K7AOS/EF(")*M.2B92I?F3RGM/TF(*73X.	B3.0J-*7^6.,J13X&,"36)6J^I7RSI/EF(.,B320.)7LOA+SE"26).JB320ZI3O7R+AT61"7.,J	*765.2F5.	F,*23X+I&3"M&J3W	R+TE.1N,*1&
3KGL3SWS*(&3.MNJ"1&07FKO7MSA.(^1+X^,.2B5.-N2*12	61"2.,OI")*M6IKW3IWT*(21.3B22)3K7AOS/ER(")*M.3B22I?F3RGM/TF(*73X.	N2.0J-*1^1.,J13X&,"36)6J^I7RSI/EF(.,N320.)7LOA+SE"56).JN320ZI3O7R+AT61"7.,J	*160.1F9.	F,*23X+I&3"M&J3W	R+TE.1N,*4&03KGL3SWS*(&6.MNJ"4&07FKO7M
A.(^1+X^,.1B9.-^1*12	61"2.,OI")*M6IKW3IWT*(21.3B52)3K7AOS/E^(")*M.3B52I?F3RGM/TF(*73X.	^1.0F-*5^1.,J13X&,"36)6J^I7RSI/EF(.,Z320.)7LOA+SE"86).JZ320ZI3O7R+AT61"7.,F	*560.1F3.	F,*23X+I&3"M&J3W	R+TE.1N,*7&03KGL3SWS*(&9.MNJ"7&07FKO7MSA.(^1+X^,.1B3.-F1*62	61"2.
OI")*M6IKW3IWT*(21.3B82)3K7AOS/EF("06).J"320ZI3O7R+AT61"7.,F	*165.1B0.	F,*23X+I>3*/&/"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