File AB1.FT (FORTRAN source file)

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

7C*I3UGS3MWM7NSS3E3L3U
N2 WD3R2 7EOI3T;U3G/S7UOR7DSAE7N2JNI3O7M+OCN3L;A3F:,3OWT2,;F+A3M+L3KL*M2I	D3M;E3S?I3N: 3OWT.(N1.,R1*82)3FGN/MN(2)2,/KZ(.,R1*82)/LF(*4&96,WK+RS*2&5"M&J3D7I7EON3I;O6 	M*(23"46)2JRI/OF 20. .1F=.,R1"8*M2I?D. V1. OK*=21"6*M"1&5+LK+K23+K&1"=602JRI/OF 26. .2F=.,
1.MFJ26:I3OWT.(KK.,GK.)B=.MFJ20NI7OSN7IWNE*M2IWR+AD.1J,20Z)3N7A*(&1"M&J3RGE/DF(.,B32);F+AM"26)6JJI3ESA*(21*4&03FGN/MN(")*M"2&07FKO7MSA2(R	3AWT3IGN+MCE3FWU/RF .2F.*:^ +A&6.MNJ20ZI3O7R+AT2	GD3T	E3N7A3EZ 7UKE. J1..*22 F	"66).JB42I?F3RGM+T^(7DSA3E;I3AWM6 WF+E
R*1:3*1B:.	[A")*M6IOI/T7A.8B0"M&J7ISS/LJ=26&+3SGT"M&J3C3A7LJ 7TCA/EF(6,OI+T3L.1&4*,	L"M&J3L;A3F2=.(R1"96)2JRI/OV 20. 212=3A[N.,R1"8*M2I?N+TE21.,.16)3L.("16).JB5*IL+K&1"=602JRI/OZ 20& *=21"3*M6I	M*(3I.16)22&*"M&J+MY/IJ,2)6=3Y&(*,&1"+612J6I3Y&(*,&36=	M*(3I*
.)"5*M"6&0+MY/IR,2)6=3Y&(*,&3"+612JRI/O^ 20& *=21"3*M2IGC+LCL7ICO+EN2	/R+B^12,;F+AM+I&).MFJ"0&03RGE/DR(.,B82).(7UOR.(KK2).,.2F=.,V2")*M"8&07FKO7MSA.(N1+I2321&2"26)2J&I3F.(7UOR*(&1.)& .0^,.0&,"0*M"9&0+DCO.1B1. GK2=GL+N3F.1"4"M&J+IF7NSO/EF(.,GK2).-7UOR*(&1.
F *120.1B3.,F1"0*M.1B32I;I7DE.=GK"M&J7GSO/OF "460.JF120NI7OSN7IWNE*M2I?G+TCO.1B0.MFJ"4&0+DCO.1B5. 7J.1J,"M&J7NSO3E6(3Y&(*,	J2,;I7DE2).=7UOR*(/J*1>)"160.JV120:I3OWT6(	M*(3I/JJ+2)&,3NWD/X6)7KKU3S*(.+N1")*M2I?G+TCO.1B0.M^J20NI7OSN7IWNE*M3CFI7U
S7ESR3U
N2 WD3RR 3AWTN*M2I?D. Z120. 212=3A[N.,R1"8*M2I?D. ^120& *=21"2*M2I[I2(?N+TE/IF+.,GK2):-3OWT*(/I23.,*1&). "1.0F,*920.1B8.MFJ"8&03W	R+TE.1F,*8&57NSO/EF(.,GK")*M.1V82I?F3RGM+T^(3FE7LKE2 ;I2 WD3N2 3KR-3AWT3NJ +ECI3SC3U3E+ECR2	&,"36)2JRI/OF *9B5/K62.1F,"3*M.1V
2I?N+TE+K22+K&1"=602J^I3O?T. Z1"0*M.1B92I[I2(?N+TE/IF+.,GK2):-3OWT*(/I25.,*1&). "1.0F,*720.1B8.MFJ"7&03C;O3T;IU7E2J2I/KF(.,GK2):=3OWT*(21+K&1"M&J+LK22.,.16)7NSO/EJ(.,GK")*M2I/L*(23+K&12=?N+TE23.,"16)2J2I/KR(.,GK2):=3OWT*(28+K&12+?N+TE*120+K&12+?N+TE*122+K
1"M&J+LK25.,.16)7NSO/E&(.,GK2):+3OWT.(F1.,GK2):+3OWT.(N1.,GK")*M2I[I2(?N+TE*122+K&12-?N+TE*123+K&1.)J *020.2B0.,F2"0*M.2B02I/L*(26+K&12=?N+TE*123+K&1"M&J7GSO/OJ "660.JF2202I/KZ(.,GK2):=3OWT.(J1.,GK")*M.2B62I?D. R220. .2"=.,N1"M&J+IF7NSO3E.(22.,*16)*5B).2B
.,R2.0J,"460.JV2202I.(GK2)2=.(GK.)F+.MJJ"4&03C;O3T;IU7E.JZ120NI7OSN7IWNE*M2IGC+LCL7OCO+EN2	/R+B^12,F	3B3I+K
S")*M2I?D. J220. 212=3A[N.,R1"8*M.2B26IKW3IWT*(24.2B32)2(3K.(22.,*12)/K62.1Z,2)2,.(GK")*M.2B32I?F3RGM/T^(+I&3"M&J3C3A3L> 3C?LS7E2JNI3A3L2 C3A;I2(F	+B^2")*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