File LLSQ.FT (FORTRAN source file)

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

*MBJ* B 6 N 7UKB7OSU3IWN2 3L+SQ3AJ,*,3M3N2,*,3X3I	P3VV,+P3S7IKE6,WAX6)*JB * B 2 	D3M;E3S?I3NF *(&1*,B*12)/XF(2)&,7P[I*(&16,WA/XF(")*M* B * B +IF3M:-.)B3*,21"1*M* B * B17P[I*=:0*MBJ* B 2 & 3ESN"=60*JB * B 2 ?D* B4/KF=",7N*JB * B 6 CI+IV/K6)K*M* B * B /HB="
*M* B * B 7ISS2=WI+N/D"1*M* B * B 3I;E3D&=3ESN"+7M*JB * B 2 ?D* B23I&=+S3T3I;ED*M* B * B23H"=*+A+I*)3A&(")*M* B * B 7AU*(	K"=7H*JB * B 2 [I*(7H7P[I*)24.4N,*MBJ* B 63B /I7VH*M* B * B 3K	P3V.=*MBJ* B 24N 7OSN7IWNE*M* B * B +IF7P[I.)F3.,F3",65*JB . V 2 	S7GN
7QSR2(	PV6)*JB * B 2 ?T7LN=+I+G7AOB6(CES6)*JB * B 2 7L*=+LM*M* B * B 7ISS2=6-*MBJ* B 2 R /OJ 21. *=21N*M* B * B 7ISS6=OI3T6+"+61*JB * B 2 WI/N7D7ISS*+7MK*M* B * B 3I.=7P[I"-7K*JB * B 2 [I*(	I.8",",66*JB . Z . 7H7AU*(	K*MBJ* B 2 F +UX/K6)7AU6(CK+I	V*MBJ* B
2 F +UX3K	P/V6)H*M* B * B /I7D3I6**MBJ* B 2 R /O^ . 7I7ISS2,WIN7D*JB * B . 7J3I&+D*M* B * B 3HF=*(	I*MBJ* B 2 F *(	I*=AJ6)*JB . ^ * A/J6)H*M* B * B8+IF/KF-.)F1.,F1",69*JB . & 2 	S/GB=".*M* B * B +DCO*1B03I&=+S3T3I;ED*M* B *1B03S
I2=	S3GF+*(	I**AI6)*JB * B 2 	S7GN=7QSR2(	SG6)*JB * B 2 [I2(	S7GR-+O	L*322*322"161*JB . F1. 7H3A&(+S	T*MBJ* B 2 & 3F"(.)J1.,N1.,N1*MBJ. F 62N /I7G2-	SG*M* B *1B33I	P3V.(7P[I2)&=7P[I*(	K*MBJ* B 2 & 7P[I*(	K6=CKI7V*JB * B 2 WB/T7A7HN+I7G*JB * B * A7ISS2)J=3
GT*MBJ* B 2 J 3EGT*=:16/N(+I+G7BSEA6)*JB * B . 7J3N.+*MBJ* B 2 F +UX/J6)2-	SG*M* B * B +IF3K:-.)R1.,&1.,&1*MBJ. F 64B /I7V"06.*JB * B 2 SI"=60*JB * B 6 OJ3T.="+61*JB * B 6 CK/I7V7JSS*MBJ* B 2 R /OF 28* 6=OJ3T:,*MBJ* B 2 & 3D&=3D6+*MBJ* B 2 " *=:0*MBJ* B 2
R /OF 25& 6=OI3T&,3ESN*MBJ* B 2 & 3I&=2+SI*MBJ. F 25" *=/H3A&(2)F*2(	I")*M* B * B 3HJ=3EGT"*7H*JB * B 2 ?D. Z1. 7I7ISS2,WIN7D*JB * B 2 	I*=/II7D*JB . Z1* A+I	I*=A+I	I*-A+I*)H*M* B * B /I7I7ISS2+SI*MBJ* B 2 " 6=WA3X*(2)F-2(	I2)F*2(	I")*M* B * B 7AU*(	J"=7H
JB * B 2 [I*(7H7P[I.)"1.,"1.,^1*MBJ. F 67B /I7VH*M* B * B 3K	P3V*=*MBJ. F 28N 7OSN7IWNE*M* B *1B9+DCO*2B13J.=2,7L",7M*JB * B . 7H"06.*JB * B 2 WI/N7D3J6+"-7K*JB * B 2 	I6=OIT*M* B * B +DCO*2B03I*=2,WIN7D*JB * B . 7H3HF+2(	I2)J**(	I*MBJ. J 20& 3I&=/IF+*MBJ
 B 2 " 2=WB+T+AH*M* B * B /I7I7ISS*MBJ* B 2 R /OJ 21& *=3J3I;ED*M* B * B 3B&(2)J=*(	I*-A+I	I"*7H*JB . F22 	I2=	I"+61*JB * B 2 WI/RB=*MBJ* B 2 & "=7N*JB * B 2 ;L*=+LN*M* B * B 7P[I*=:16/WA/XJ(**	N*MBJ* B 2 R /OJ 22. *=3N+L3NN*M* B * B 3X.(6)B=+I+V3B&(")*M*
B *2B23I&="+7M*JB * B 2 [I*(7N.1J).6J,.6J,"3*M* B *2B37JSS2=:(*-&1**/MN*M* B * B +DCO*2B5/JJ=",7N*JB * B 6 OJ3T*=+S7T/MF-*MBJ* B 2 . *=/N/NF+"-7J*JB * B 2 	P/VF=2.F/+UXK6)*JB * B 6 OK3T.="-7N*JB * B 2 SI6=CI+IV7KSS2).-S7T*JB * B 6 OI/TJ="-7J*JB * B 2 ?D. 
2. 7K212,*MBJ* B 2 " *=B7KSS")*M* B * B 7ISS6=OI3T:+*MBJ* B 2 & 3ESN6=OI3T*+"-62*JB * B 2 	I6=OJT*M* B * B +DCO*2B43I&=+S3T3I;ED*M* B * B /I7I+I/IM*M* B *2B43H"=*-A+I	I**XI6)*JB * B . 7I7ISS"-61*JB * B 2 	I*=/II7D*JB * B * X/I6)3X&(I6)*JB * B * X+I	I2=	P3
"**MBJ. J 25. /S7T7KSS"+7M*JB . Z26 OI3T:="+61*JB * B 2 WI/N7D"0*M* B * B +DCO*2B9/JF=",7L*JB * B 2 WI/N7D3I;E3D6+*MBJ* B 2 " *=:0*MBJ* B 2 & 3F6(*-	N*229*229"267*JB . ^22 ?D. "2. 7I7ISS2,WIN7D*JB . "2. 7H3HJ+*(	I**BI6)*JB * B 6 OI3T&=+S/TM*M* B *2B97AU*(
J"=7H*JB * B 2 WR7TKUN*M* B *3B07IKE.=J-*MBJ* B 6 J 7EWTR7N*JB . F32 WI+R6="1*M* B * B 7RSE3U;R*MBJ. N 22& /E7R/KF-*MBJ* B 6 J 7EWTR7N*JB * B 2 ;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