File: FLXTST.FC of Tape: Various/ETH/fc2

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C-OS/8 FOCAL, 1972

01.01 C MESS
01.02 C 10 DC 73
01.03 I (LG)LG,1.1,LG
01.10 L G MESAGE
01.60 S M=3;S Z=FELD(M);S Z=FELD(H)

02.01 C PRIMER
02.10 D 6.1;D 2.12;D 6.2
02.11 S Z=FADC(TP);T !;G 2.14
02.12 A ?HI?;S KI=1/HI;D 2.41
02.14 A "HF OR DK",DK,"    THEN  ";I (DK-100)2.18;S HF=DK
02.17 S DK=(HI-HF)/(HI*HF*N);T "DK="%4.03,DK,"(1E-7/G)";G 2.2
02.18 S HF=FITR(HI/(1+N*DK*1E-7*HI));T "HF=",%5,HF
02.20 S MM=60+FSGN(MI-21)*15+FSGN(MI-51)*25
02.24 S AH=511*MI/(MM*HI^2);S Z=FDAC(AH*HI*HI)
02.30 T !">>>   'SWEEP' OUT ? TEMP OK ? ALL ON 'PDP'? M-RANGE="
02.32 T %3,MM,"?",%6.03,!"..THEN: GO"!;S LG=2.4;Q
02.40 D 13.8;F I=-255,0;S Z=FCOM(-I,0);S Z=FX(0,500)
02.41 S H=HI+100;D 14;D 1.6
02.42 S X=FELD(R);I (-FABS(X-H))2.42;C WAIT FOR HI
02.43 T !"RUN BEGINS"!
02.44 S J=0;D 10;S Z=FIOP(-4095)
02.46 S M=0;S Z=FELD(M);S H=HF;D 14;S Z=FELD(H)
02.50 S Z=FIOP(1);S Z=FADC(TT);S Z=FADC(S);S #=-1

03.01 C MESS ROUTINE
03.10 S K=KI+J*DK*1E-7;S H=FITR(1/K);S HT=PM*H*H+.01;S Z=FDAC(AH*H*H);D 14
03.12 S M=1.5+.5*(FSGN(HT-230)+FSGN(HT-80)+FSGN(HT-33));S Z=FELD(M)
03.20 I (#)3.2;S Y=FADC(R);S X=(Y-7)/.93;S X=FLOG(X)
03.22 S TS=6.5772/X-2.4921+.2551*X;S TS=1/TS;S Z=FCOM(256+J,TS);D 11
03.30 S Z=FELD(R);I (H-Z)3.3,3.35;T "PM< ";D 7.9;D 2.42;S PM=PM*.7;G 2.46
03.35 S Z=FIOP(-1);S Z=FADC(TP)
03.40 S Z=FADC(Q);S V=Z/10^(4-TP);I (V)3.5,3.45,3.5
03.45 T "0"
03.50 S Z=FCOM(J,V-5);S Z=FX(0,500);D 7;D 2.5
03.60 S J=J+1;D 10;I (J-N)3.1
03.70 S N=J;S X=0;F I=256,255+N;S X=X+FCOM(I)
03.72 S TM=X/N;S X=0;F I=256,255+N;S X=X+(FCOM(I)-TM)^2
03.74 S TV=FSQT(X/(N-1));T %4.03,!"TM=",TM,"  TV=",TV,:24
03.76 F I=0,35;T "-"
03.78 T " D ";S Z=FOUT(MD(4));S Z=FOUT(MD(5));T !
03.80 D 2.41;D 2.24;S LG=2.01;D 13.8;L R MSTORE
03.90 L C DATA

05.01 C FOUR
05.10 A ?SI?,?SF?
05.20 D 13.9;S X=(SF-SI)/16;I (X-FITR(X)-.5)5.3;S X=X+.5
05.30 S SS=FITR(X)/16;S Z=FOUR(SI,SS);S Z=FX(1,760)
05.40 S X=194;D 5.6;S X=201;D 5.6;S X=212;D 5.6
05.50 Q
05.60 F Y=X,X+2;S Z=FDIS(Y,-83)

06.01 C MESSPARAMETER
06.10 A !"RUN",D;S MD(4)=176+FITR(D/10);S MD(5)=176+(D/10-FITR(D/10))*10
06.20 A !?N RT MI PS PT HR PM?;S MI=MI+.01

07.01 C CHECKS
07.10 I ($-211)7.2;S Z=FIN();G 7.9
07.20 S Z=FIOP()-2048;I (-Z)7.3;R
07.30 I (Z-9)7.4;T "M";R
07.40 T "T";R
07.90 S J=J-2;D 3.1;D 1.6;S J=J+1
07.95 S LG=2.46;Q

08.10 D 2.5;D 3.2;D 3.22;S Z=FIN();G 8.1
08.50 A X;S X=FLOG(X);D 3.22;G 8.5

09.01 C MI NULL
09.10 D 2.12;S MM=100;A ?P?
09.20 A !"ZERO#",X;S X=5.2+3.2*(X-1);S MI=FITR(HI*HI*P*X/PI)
09.25 T %3,MI;I (100-MI)9.2;D 2.24;D 2.42
09.30 S H=HI-100;D 9.9
09.40 T " ";S Z=FIN();S MI=MI+Z-189;D 2.24
09.50 S H=HI+100;D 9.9;D 9.4;G 9.3
09.90 D 14;S Z=FELD(H);D 2.42

10.01 C J IN DISPLAY
10.10 S A=J/100;F X1=137,139;D 11.2

11.01 C TS IN DISPLAY
11.10 S A=FABS(TS);S X1=127;D 11.2;S X1=129;D 11.2;S X1=130
11.20 S X=FITR(A);S Z=FDIS(X1,X-80);S A=10*(A-X)+1E-6

12.01 C H IN DISPLAY
12.10 S A=H/1E4;F X1=146,147;D 11.2
12.20 F X1=149,151;D 11.2

13.01 C DIS SWITCH
13.70 S Z=FDIS(A,FABS(FDIS(A)));S Z=FDIS(B,-FABS(FDIS(B)))
13.80 S A=4;S B=5;D 13.7;R
13.90 S A=5;S B=4;D 13.7

14.01 C H(REAL) TO H(BRUKER) / H IN GAUSS
14.10 D 12;S H=H/1000
14.20 I (H-20)14.4;I (H-22)14.6,14.8,14.8
14.40 S DH=.011*FATN(H)-1.789E-3*H+1.0831E-3*H*H
14.41 S DH=DH-4.798575E-5*H*H*H+6.266462E-7*H^4
14.42 G 14.9
14.60 S DH=-4.61032E-1+5.5322E-2*H-1.289E-3*H*H;G 14.9
14.80 S DH=8.1269E-1-6.64736E-2*H+1.6159E-3*H*H
14.90 S H=FITR(1000*(H+DH));R

18.01 C ALIAS RECHNER
18.10 S I=0;
18.12 S I=I+1;T !"PER",%2,I,:10;A X;I (X)18.13,18.15,18.13
18.13 S A(I)=512/X;G 18.12
18.15 S II=I-1;T !;S NM=DK
18.20 T !"DK";A NM;I (-NM)18.3,18.8
18.30 S NF=256/NM;F I=1,II;S X=A(I);D 19;S B(I)=B(I)*55/NF
18.40 F I=512,567;S Z=FCOM(I,160)
18.50 F I=1,II;S J=FITR(B(I));S Z=FCOM(J+512,FCOM(512+J)+16+I)
18.60 F I=0,3;T :10"'";F J=0,13;S Z=FOUT(FCOM(J+512+14*I))
18.70 T "'";G 18.2
18.80 S DK=256/NF;T !"     DK IS NOW",%5.03,DK,"E-7"!

19.01 C SR FOR ALIAS
19.10 S M=0
19.20 S X=X-NF;I (X)19.4,19.4;S M=M+1;G 19.2
19.40 S M=M/2;S M=FITR(M)-M
19.50 I (M)19.6;S B(I)=NF+X;R
19.60 S B(I)=-X

20.20 A H1;S Z=FLUX(H1)
20.30 S I=-10
20.40 S %=-1
20.50 I (%)20.5
20.60 S I=I+1;I (I)20.4;
20.70 S H=FLUX(R)
20.75 S H=FITR(H)
20.80 D 12;G 20.3

21.05 S RA=1.9735
21.10 A ?MR,DI,HF,HI?
21.15 S HO=HF+300
21.20 S Z=FELD(MR)
21.22 S H=HI;D 14;S Z=FELD(H)
21.24 I (FELD(R)-H)21.24,21.26,21.24
21.26 F I=0,300;S Z=FSIN(I)
21.30 S H2=HI*10/RA;S Z=FLUX(H2)
21.45 S DD=23.3;S UD=23.35
21.50 F I=HI,DI,HF;S H=I;D 14;S Z=FELD(H);D 23
21.65 S DD=23.35;S UD=23.3
21.70 F I=-HF,DI,-HI;S H=-I;D 14;S Z=FELD(H);D 23
21.80 Q

22.10 S %=2000
22.20 I (%-2000)22.3,22.2,22.3
22.30 S H=RA*FLUX(R)
22.40 I (H-I*10)22.1;S HM=FELD(R)
22.50 T !,%5.01,H/10,%5,:10,HM

23.30 I (FELD(R)-H)DD,23.35,UD
23.35 C
23.37 S J=0
23.40 S %=2000
23.50 I (%-2000)23.55,23.5,23.55
23.55 I (100-J)23.6,23.6;S J=J+1;G 23.4
23.60 S HM=RA*FLUX(R)
23.70 T !,%5,FABS(I),H,%6.01,HM/10

---