File: MESS.FC of Tape: Various/ETH/fc4
(.FC,.FO Focal format converted to 'WRITE' listing)
C-MESS .FC OCT-70 01.01 C MESS HAND GESTEUERT 01.02 I (LG)LG,1.03,LG 01.03 D 31;G 2.01 01.05 C MESS ROUTINE 01.10 S K=KI+J*DK*1E-7;S H=1/K;S HJ=H*10;D 10;D 16;D 4 01.20 I (#)1.2;S Y=FADC(R);S X=Y/.99;S X=FLOG(X) 01.22 S TS=6.5772/X-2.4921+.2551*X;S TS=1/TS 01.23 S TQ=TQ+TS*TS;S TM=TM+TS 01.25 S Z=FIOP(-4095);S Z=FADC(TP) 01.30 S %=-1 01.32 I (%)1.32 01.34 I (FITR((HJ-RA*FLUX(R))/PR))1.3,1.38;D 7.9;D 31.99;G 2.5 01.38 S Z=FADC(S);S #=-1;D 11 01.40 I (#)1.4;S Z=FADC(R);S V=Z/10^(4-TP);I (V)1.5,1.45,1.5 01.45 T "0" 01.50 S Z=FCOM(J,V-5);S Z=FX(FITR(J/256),500);D 7;D 2.5 01.60 S J=J+1;I (J-N)1.1 01.70 S N=J 01.72 S TM=TM/N;S TV=FSQT((TQ-N*TM*TM)/(N-1)) 01.74 T %4.03,!"TM=",TM," TV=",TV,:24 01.76 F I=0,35;T "-" 01.78 F J=1,6;S Z=FOUT(MD(J)) 01.80 S LG=2.01;G 28.1 01.90 T !"SET FIELD AT:",%5,H 02.01 C PRIMER 02.10 D 6 02.11 S Z=FADC(TP);T ! 02.14 A "HF OR DK(1E-7/G)",DK," THEN ";I (DK-100)2.18;S HF=DK 02.17 S DK=1E7*(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) 02.25 S H=HI;D 4.05;S AI=AS;D 4.45 02.26 S X=(HI-HF)/1000;S X1=1000*(FITR(X-.1)+1) 02.27 T !"SET SWEEP: RANGE =",%2,X1/1000," KG DH/HI =",%3.02,X1/HI 02.28 S Z=3*X1*1E7/(DK*HI*(HI-X1));T " TIME =>",%4,Z," SEC";D 31.99 02.31 S PR=FITR(DK*1E-7*HI*HI/3)+1;T !"SW.SPEED =",%2,PR," G/S" 02.33 T !">>> TEMP OK ? ALL ON 'PDP'?";D 31.99 02.35 T !" M-RANGE=",%3,MM,"?",%6.03;D 31.99;T "..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.9 02.42 D 31.99;D 15 02.43 T !"RUN BEGINS, START SWEEP";S Z=FOUT(135) 02.44 S J=0;S Z=FIOP(-4095) 02.45 S TQ=0;S TM=0 02.50 S Z=FIOP(3);S Z=FADC(TT);S Z=FADC(S);S #=-1 02.60 G 1.1 04.01 C SWEEP MOD. 04.05 S AS=FITR(AH*H*H) 04.10 I (-FABS(AS-AI))4.2;R 04.20 S AI=AI+FSGN(AS-AI) 04.30 S %=-1 04.40 I (%)4.4 04.45 S Z=FDAC(AI) 04.50 G 4.1 05.01 C FOUR 05.10 A ?SI?,?SF?;S X=(SF-SI)/16;I (X-FITR(X)-.5)5.14;S X=X+.5 05.14 S SS=FITR(X)/16;S S2=SI+SS*128;S SF=SI+SS*256 05.16 T %3,"'"SS*32"'" 05.20 D 13.9;D 12 05.30 S Z=FOUR(SI,SS);S ZM=FX(1,760) 06.01 C MESSPARAMETER 06.05 A !"RUN",D 06.10 S MD(5)=176+FITR(D/10);S MD(6)=1936+D-10*MD(5) 06.40 A ?HI?;S KI=1/HI 06.50 A !?N RT MI PS PT HR MP?;S MI=MI+.01 07.01 C CHECKS 07.10 I ($-211)7.2;S Z=FIN();D 7.9;S LG=2.5;Q 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 T !"BACKUP SWEEP";S TM=TM-TS;S TQ=TQ-TS*TS 08.01 C MULT DATA WITH SQ.ROOT OF H 08.10 D 13.8;S KI=1/HI;S HN=FSQT(HI) 08.20 F I=0,N-1;S K=KI+I*DK*1E-7;S H=1/K;D 8.3 08.25 R 08.30 S Z=FCOM(I,FCOM(I)*FSQT(H)/HN);D 13.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.15 D 11.2;S X1=131 11.20 S X=FITR(A);S Z=FDIS(X1,X-80);S A=10*(A-X)+1E-6 12.01 C FOURSCALE 12.10 S X=194;S A=SI/100;S Y=FITR(A) 12.12 I (-Y)12.14;S Z=FDIS(X+2,-96);G 12.16 12.14 S L=12.2;G 12.52 12.16 D 12.8;I (-Y)12.18;S Z=FDIS(X+1,-96);G 12.8 12.18 D 12.9;G 12.8 12.20 S X=201;S A=S2/100;S Y=FITR(A);S L=12.3;G 12.5 12.30 S X=212;S A=SF/100;S Y=FITR(A);S L=12.34;G 12.5 12.34 R 12.50 I (-Y)12.52,12.54 12.52 D 12.9;G 12.56 12.54 S Z=FDIS(X,-96);S X=X+1 12.56 D 12.8;D 12.9;D 12.8;D 12.9;G L 12.80 S A=(A-Y)*10+1E-4;S Y=FITR(A) 12.90 S Z=FDIS(X,Y-80);S X=X+1 12.92 G 12.2 13.01 C DIS SWITCH 13.40 S Z=FDIS(0,0) 13.50 S Z=FX(0,500) 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 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 16;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 15.01 C CALIBRATE FLUX 15.20 S Z=FLUX(H);S Z=FLUX(R);S Z=FLUX(R) 15.30 S HJ=(HI+100)*10/RA 15.40 F I=1,300;S Z=FSIN(I) 15.50 S Z=FLUX(HJ) 16.01 C H IN DISPLAY 16.10 S A=H/1E4;F X1=146,147;D 11.2 16.20 F X1=149,151;D 11.2 18.01 C ALIAS RECHNER 18.10 S I=0;T "FREQS IN TESLA AND DK IN 1E-3 /G" 18.12 S I=I+1;T !"FREQ",%2,I,:10;A A(I);I (A(I))18.12,18.15,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 NX=500/NM;F I=1,II;S X=A(I);D 19;S B(I)=B(I)*55/NX 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 "'",%4.02,NX;G 18.2 18.80 S DK=500/NX;T !" DK IS NOW",%5.03,DK,"E-3"! 19.01 C ALIAS SR 19.10 S M=0 19.20 S X=X-NX;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)=NX+X;R 19.60 S B(I)=-X 20.01 C FLUX DRIFT AM KO 20.10 D 13.8;D 15.2 20.20 S H1=1E4;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 16;I (-FABS($-211))20.3; 20.90 S $=2000;S Z=FIN() 21.01 C TS 21.10 D 2.5;D 1.2;D 1.22;D 11;G 21.1 22.01 C UNSHIFT 22.05 S SH=0 22.10 F I=0,N-1;S SH=SH+FCOM(I) 22.15 S SH=SH/N 22.30 F I=0,N-1;S Z=FCOM(I,FCOM(I)-SH);D 13.5 22.40 T %6.04,!,"SHIFT=",SH 25.10 D 2.26;D 2.27;D 2.28 26.01 C TEMP CHECK 26.10 D 2.5;D 1.2;D 1.22;D 11 26.20 I (-FABS($-211))26.1; 26.30 S $=2000;S Z=FIN() 27.10 S Z=FIOP(-4095);S Z=FIOP(X);S Z=FADC(TT) 27.20 S Z=FADC(Q) 27.30 I (-FABS($-211))27.2;S $=2000;S Z=FIN() 27.40 S Z=FIOP(-4095) 28.01 C END OF RUN ROUTINE 28.10 D 22 28.20 T "STORE RECORD ? (FREQ.S =" 28.30 F I=1,4;T %5.02,NF(I) 28.40 A ")",Y;I (Y-0YES)28.5,29.2,28.5 28.50 D 30.95 28.60 S HI=HI/1E4;S HF=HF/1E4;S MI=MI/1E4;L C DATA 29.01 C STORE 29.10 D 22 29.20 O O STEUER 29.30 T !"30.4 O O RKA1:";D 1.78 29.35 T !"30.92 O I RKA1:";D 1.78 29.40 T !"G 29.9" 29.50 T ! 29.60 O C 29.70 O I STEUER 29.80 Q 29.90 O I TTY:,E 30.40 O O RKA1:MA2D12 30.45 F J=1,6;S Z=FOUT(MD(J)) 30.50 T %2,D,!,%4,N,!;F I=0,N-1;T %5.03,FCOM(I),! 30.60 T "20",!,%6.04,DK,!,HR,!,HI/1E4,!,HF/1E4,!,MI/1E4,!,PS,!,PT,! 30.70 T RT,!,TM,!,TV,!,SH,!,MP,!,0,!,0,!,0,!,0,!,0,!,0,!,0,!,0,! 30.75 F I=1,4;T NF(I),!,PH(I),!,AF(I),!,TF(I),! 30.77 F I=1,4;T 0,!,0,!,0,!,0,! 30.80 S Z=FOUT(140) 30.90 O C 30.92 O I RKA1:MA2D12 30.93 O I TTY:,E 30.95 T !"FLUX-TEST";D 31.99;T RA*FLUX(R)/10-HI-100," GAUSS DRIFT" 30.99 Q 31.01 C MESSAGE; NEW RA 20/5/77 31.02 L P FOUPIC 31.03 E 31.04 S $=2000;S RA=1.9319;S HJ=0;S PR=0;S X=0;S Z=0;S A=0;S X1=0;S H=0 31.05 S K=0;S DK=0;S Y=0;S TS=0;S TQ=0;S TM=0;S R=0;S J=0;S V=0 31.08 T !"M#:";S MD(1)=205;S MD(2)=FIN();S MD(3)=FIN();S MD(4)=205 31.10 S H=15E3;S TP=1;S TT=0;S LG=2.01 31.15 T !"-PAR: NO-SHIFT; -TAU >= 100MSEC";D 31.99 31.20 T !"-TURN MUX AND INST.AMP. ON";D 31.99 31.25 T !"-FLUX DRIFT TEST:;TYPE 'S' TO STOP";D 20 31.30 T !"-FAN OFF?";D 31.99 31.40 T !"- A-B OFFSET TEST:";S X=3 31.45 D 27 31.50 T !"-INST.AMP. OFFSET TEST:";S X=2^11 31.52 D 27 31.55 T !"-DVM: 'FAST' AND '10 V'" 31.60 D 31.99 31.70 R 31.99 T " ^";S Z=FIN()