File IST22.FC (FOCAL source file)

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

Y>()BTC U/W-FOCAL:IST22NO/DA/TE?MB"BJF I=,2*N-1;S M(I)=T(I)?MB5BOD 12;T "AUSGL. F. G-AUFL.";D 24?MCOBQD 2;T "G-AUFL.";D 2;T V+V(1)+(M(2)-M(1))/O(1)?MC5BSF I=2,N-1;T V(2*I-2)+V(2*I-1)-(M(I)-M(I-1))/O(I-1)-(M(I)-M(I+1))/O(I)?MDLBVT V(2*N-2)+V(2*N-1)+(M(N-1)
M(N))/O(N-1)?MD[BWS V(2)=-KL;S V(2*N-3)=KR?MD8BXI (N-3.5)1.3;S H=1;F I=3,2*N-4;S V(I)=H*U(I);S H=-H?MD=B^S J=?MEQB
D 1.1;F I=1-J,4,2*N-1;S M(I)=U(I)?ME"B F I=2+J,4,2*N-1;S M(I)=U(I)?ME;B!D 12;T "AUSGL. F. UNGERADE FELDER";D 24;D 12?MFOB"T "  I    X0L    XMF    MF     X0R?MF\BI (3.5-N)1.48;S I=1?MF5B(S B=M(I);S A=W(2*I-1)-(M(I)-M(I+1))/O(I);D 6?MGB*I (V(2)-M(2))1.5?MGV
,D 2;T "AUSGLM. D. VOLLEINSPM. ERSETZT?MG%B.S M(2)=V(2);D 1.4;G 1.5?MG3B0D 26;F I=1,2,N-1;D 11?MHUB2S J=1;D 1.31;D 1.32;D 12;T "AUSGL. F. GERADE FELDER";D 24;D 12?MH(B3D 1.34;I (3.5-N)1.6;S I=2;D 1.4?MICB4I (V(3)-M(2))1.7;D 1.44;S M(2)=V(3);D 1.4;G 1.7?MI
B<D 26;F I=2,2,N-1;D 11?MIXCFL R IST3?MI"DJT !;S J1=J1+1?MI*FJT "  K.NST?MI7HJS Z=Z1(D)-1;S D=D+1?MJFJJS Z=Z-1;S E=E+1;S X=X+1?MJ-LAS D=3*(I-1)+1;S E=1;D 2;T %2,I,%5.02;I (I-1.5)6.03;F C=1,D-1;S E=E+Z1(C)?MKFLCS Z=Z1(D+1)+Z1(D+2);I (-Z)6.4;I (1-Z1(D))6.4?
KVLEI (C1(E)-O(I))6.4;S Z=Q(E)?MK/LHS M=B+A*A/2*Z;S X=A/Z;S C=A*A+2*Z*B;I (C)6.2?MLKLIS R=FSQT(C)/Z;S P=X-R;S R=X+R;I (-P)6.1;D 3;G 6.12?MLPLJT P?MLXLLT X,M;D 7?ML%LOI (O(I)-R)6.3;T R;R?ML-LTD 3;D 6.12?ML3L^D 3;R?MMRL(S P=.01;S KL=;S R=-1;I (-B-.02)6.45;S
Y=-1;S YY=Y;G 6.46?MM
L-S Y=1;S YY=Y;S R=-.5?MM)L.S X=;S H=;D 4?MNIL/I (Z)6.49;I (P-A1(E))6.48;I (A1(E)+C1(E)-P)6.48;S H=H+Q(E)?MNQL0D 5;G 6.47?MNVL1D 4?MN1L2I (Z)6.59;I (P-A1(E))6.58;I (A1(E)+C1(E)-P)6.58?MOEL3S H=H+Q(E)*(.01483+P-A1(E))/C1(E)?MOML:D 5;G 6.5?MORL;D 4?MO-L<I (
)6.69;I (P-A1(E))6.68;I (A1(E)+C1(E)-P)6.68?MPCL=S H=H+Q(E)*(1-(.01483+P-A1(E))/C1(E))?MPKMDD 5;G 6.6?MP	MES H=.05*H;S KR=(A-KL-.5*H)*.05;S KL=KL+H;S B=B+KR?MQFMFI (O(I)-P-.05)6.79;I (-B*Y)6.73;S Y=-Y;T P+.04;I (-R)6.8?MQ[MII (KR*R)6.77;S R=1;I (Y*YY)6.75
D 3?MQ1MKS M=B-KR;T P-.01,M;D 7;I (-B)6.77;D 3?MRDMMS P=P+.05;S D=D-3;S E=E-X;G 6.46?MROMOI (B-KR)6.8;D 3?MRSMPR?MR(NJI (FABS(M)-FABS(MF(I)))7.2;S MF(I)=M?MR,NTR?MSGVTD 1.4;I (M(I)-G(I))11.3;I (M(I+1)-G(I+1))11.3;R ?MS^V^D 1.44;S M(I)=G(I);S M(I+1)=G(I+1)
D 1.4?MS1XJI (57-J1)12.2;T !!;S J1=J1+2;R ?MS;XTF C=J1,67;T !?MT%X^T "ING. - BUERO  B R A S S   8 MUENCHEN 19   ALFONSSTRASSE  9   RUF 181081"!!?MUCX(S J1=6;T "*"!!"BETR.:        POS.:";T :60,"SEITE"!!!!?MU$0JS P=.003;S L=2*N-2;S Y=-1;S X=R(1);S R(1)=-.5*
R(2)+M+M(1))?MU50LI (FABS(X-R(1))-P)24.2;S Y=1?MU?0TF I=1,N-2;D 25?MVV0YS X=R(L);S R(L)=-.5*(R(L-1)+M(L)+M(L+1))?MV	0[I (FABS(X-R(L))-P)24.3;S Y=1?MV20^I (Y)24.4;G 24.1?MWS0(D 2;F I=1,N-1;S M(I)=M(2*I-1)+2*R(2*I-1)+R(2*I);T %5.02,M(I)?MW	02S M(N)=-M(L)-2*
(L)-R(L-1);T M(N)?MW=2IS A=2*I;S H=R(A-1)+M(A)+M(A+1)+R(A+2)?MXL2JS X=R(A);S R(A)=MY(A)*H?MX]2KI (FABS(X-R(A))-P)25.2;S Y=1?MX/2TS X=R(A+1);S R(A+1)=MY(A+1)*H?MYA2UI (FABS(X-R(A+1))-P)25.3;S Y=1?MYE2^R?MYT4JS G(1)=M(1);S G(N)=M(N)?MY)4TF I=2+J,4,2*N-3;S G
(I-J)/2+1)=V(I)?M4^F I=5-J,4,2*N-3;S G((I+J+1)/2)=V(I)?M)?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