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

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

---

C-OS/8 FOCAL, 1972

01.01 C MESWAL
01.02 C 16JULI 74
01.03 C BRUKER UND SWEEP HAND GESTEUERT
01.09 I (LG)LG,1.1,LG
01.10 D 31;G 2.01
01.60 T !"SET FIELD AT:",%5,H

02.01 C PRIMER
02.05 A ?HI?;S KI=1/HI
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.26
02.18 S HF=FITR(HI/(1+N*DK*1E-7*HI));T "HF=",%5,HF
02.26 S X=(HI-HF)/1000;S X=6+FSGN(X-2)*1.5+2.5*FSGN(X-5)
02.27 T !"SET SWEEP:  RANGE =",%2,X," KG"
02.28 S X=3*X*1E3/(DK*1E-7*HF^2);T "  , RATE >",%4,X," SEC";D 31.99
02.30 S PR=DK*1E-7*HF^2/3
02.31 T !" SWEEP-RANGE >="%4,HI-HF," /-RATE <=",%3.02,PR," G/S"
02.32 T "..THEN: GO"!;S LG=2.35;Q
02.35 I (3-PR)2.4;S PR=3
02.40 D 13.8;F I=-255,0;S Z=FCOM(-I,0);S Z=FX(0,500);S LG=2.41
02.41 S H=HI+200;D 14;D 1.6
02.42 D 31.99;D 15;D 4
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(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=1/K;S HJ=H*10;D 10;D 16
03.20 I (#)3.2;S Y=FADC(R);S X=Y/.99;S X=10
03.22 S TS=6.5772/X-2.4921+.2551*X;S TS=1/TS
03.23 S TQ=TQ+TS*TS;S TM=TM+TS
03.25 S Z=FIOP(-1);S Z=FADC(TP)
03.30 S Z=FELD(S);S !=-1
03.32 I (!)3.32
03.34 I (FITR((HJ-RA*1E5*FELD(R))/PR))3.3,3.38;D 7.9;D 31.99;G 2.4
03.38 S Z=FADC(S);S #=-1;D 11
03.40 I (#)3.4;S Z=FADC(R);S V=Z/10^(4-TP)
03.42 I (V)3.5,3.45,3.5
03.45 T "0";S V=5
03.50 S Z=FCOM(J,V+8.33);S Z=FX(FITR(J/256),500);D 7;D 2.5
03.60 S J=J+1;I (J-N)3.1
03.70 S N=J
03.72 S TM=TM/N;S TV=FSQT((TQ-N*TM*TM)/(N-1))
03.74 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 S LG=2.01;G 30.01

04.01 A !"EICHUNG IN DYNCM/10E-2 PF BZW. AANGSTROM/10E-2 PF",EH
04.02 A !"EICHINTERVALL IN 10E-2 PF",EI
04.10 T !"OBEN";D 31.99;D 3.38;D 3.4;S EO=V
04.20 T !"UNTEN";D 31.99;D 3.38;D 3.4
04.30 S ES=EI*EH/FABS(EO-V)
04.40 C

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;S I=D
06.10 S MD(4)=176+FITR(I/10);S MD(5)=176+(I-10*FITR(I/10))
06.15 A !"SRICT=0,TORQ=1",ST
06.20 A !?N PF PS PT HR?

07.01 C CHECKS
07.10 I ($-211)7.2;S Z=FIN();D 7.9;S LG=2.4;Q
07.20 R
07.90 T !"BACKUP SWEEP";S TM=TM-TS;S TQ=TQ-TS*TS

08.01 C DIV DATA WITH SQR 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)*HN/FSQT(H));D 13.5

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 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.10 S RA=1.9417
15.20 S Z=FLUX(H);S Z=FLUX(R);S Z=FLUX(R)
15.30 S HJ=(HI+200)*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 "PERIODS IN 1E5G AND DK IN 1E-7 /G"
18.12 S I=I+1;T !"FREQ",%2,I,:10;A X;I (X)18.13,18.15,18.13
18.13 S A(I)=5.12*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.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;G 20.3

22.01 C UNSHIFT
22.05 S X(1)=0
22.10 F I=0,N-1;S X(1)=X(1)+FCOM(I)
22.15 S X(1)=X(1)/N
22.30 F I=0,N-1;S Z=FCOM(I,FCOM(I)-X(1));D 13.5
22.40 T %6.04,"SHIFT=",X(1)

29.10 S Z=FOUT(255);S Z=FOUT(255)
29.20 S Z=FOUT(I);D 29.1
29.25 D 6.1
29.30 T "30.4 O O W";F J=1,5;S Z=FOUT(MD(J))
29.40 T !"G 30.3",!

30.01 C STORE
30.10 T !"FLUX-TEST";D 31.99;S GD=RA*FLUX(R)/10-HI-200;T GD," GAUSS DRIFT"
30.20 T !"READ IN BATCH TAPE";F I=1,5;S Z=FIN()
30.25 Q
30.30 T !"SWITCH READER OFF"
30.40 O O WBID16
30.50 T "D",%2,D,!,%3,N,!;F I=0,N-1;T %4.03,FCOM(I),!
30.60 T "13",!,%5.03,DK,!,HR,!,HI,!,HF,!
30.70 T PF,!,PS,!,PT,!,ST,!,TM,!,TV,!,EH,!,EI,!,GD,!
30.80 S Z=FOUT(140)
30.90 O C
30.99 Q

31.01 C MESAGE
31.02 L P FOUPIC
31.03 S X=0;S Z=0;S $=2000
31.05 T !"W#:";S MD(1)=FIN();S MD(2)=FIN();S MD(3)=196
31.10 S H=15E3;S TP=1;S TT=0;S LG=2.01
31.15 T !"-PAR: -SHIFT =+5V; -TAU >= 100MSEC";D 31.99
31.20 T !"-TURN MUX ON";D 31.99
31.25 T !"-DVM: 'FAST' AND '10 VOLT'";D 31.99
31.30 T !"-FAN OFF?";D 31.99
31.40 T !"-OFFSET TEST:SHORT DVM INPUT;STRIKE KEYB.";D 31.99
31.45 S Z=FADC(TT);S Z=0;F I=1,10;S Z=Z+FADC(Q)
31.50 I (Z-50)31.55;I (70-Z)31.55;T !"OFFSET OK;REMOVE SHORT";G 31.6
31.55 T !"-OFFSET NOW",%3.02,Z/100," MVOLT /REMOVE SHORT; CHANGE 3.2"
31.60 D 31.99;A !"HOW MANY FRAMES?",K
31.65 O I TTY:;T "PUNCH ON;HIT;PUNCH OFF;HIT";D 31.99
31.70 F J=0,30;S Z=FOUT(128)
31.80 F I=1,K;D 29
31.85 D 31.7
31.90 D 31.99
31.95 O I TTY:,E;R
31.99 T " ^";S Z=FIN()

---