File: MESCOM.FC of Tape: Various/ETH/fc-files

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

---

C-MESCOM.FC SEP-75

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*1E-5;D 10
01.25 S Z=FIOP(-1);S Z=FADC(TP)
01.26 F I=1,10;S Z=FELD(S)
01.27 S !=-1
01.30 S Z=FELD(S)
01.32 I (!)1.32
01.33 S HS=FELD(R)
01.34 I (FITR((HJ-HS)/PX))1.27,1.38;T %3.1,(HJ-HS)*1E5
01.38 S Z=FADC(S);S #=-1
01.39 D 16
01.40 I (#)1.4;S Z=FADC(R);S V=Z/10^(4-TP)
01.41 I (V)1.5,1.45,1.5
01.45 T "0";S V=0
01.50 S Z=FCOM(J,V-5);S Z=FX(FITR(J/256),500);D 7
01.60 S J=J+1;I (J-N)1.1
01.70 S N=J
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:",%6,H,"G          "

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 HE=DK
02.17 S DK=1E7*(HA-HE)/(HA*HE*N);T "DK="%4.03,DK,"(1E-7/G)";G 2.25
02.18 S HE=FITR(HA/(1+N*DK*1E-7*HA));T "HF=",%5,HE
02.20 S HF=HE/1E4
02.25 S H=HA
02.31 S PR=FITR(DK*1E-7*HE*HE);T !"SW.SPEED =",%2,PR/4," G/S"
02.32 S PX=PR*1E-5/(4*4);S VI=52*PR/(4*1472);T  "   V(IND)  <=",%5.02,VI," V"
02.33 T !"SWEEP TIME",%4,(HA-HE)*4/PR,"  SEC"
02.34 I (1-PX*1E5)2.35;S PX=1E-5
02.35 T ">>> OK?   THEN: GO"!;S LG=2.4;Q
02.40 D 4;D 13.8;F I=-255,0;S Z=FCOM(-I,0);S Z=FX(0,500)
02.41 S H=HA+100;D 14;D 1.9
02.42 D 27
02.43 T !"RUN BEGINS, START SWEEP          ";S Z=FOUT(135)
02.44 S J=0;S Z=FIOP(-4095)
02.60 G 1.1

04.01 C EICHUNG KAPAZITAET
04.02 I (ST) 4.09,4.09
04.03 A !"EICHSTROM IN MA          ",EI
04.04 T !"0 MA         ";D 27;S Z=FIOP(-1);D 1.38;D 1.4;S EO=V
04.05 T !"EI MA         ";D 27;D 1.38;D 1.4
04.06 S ZE=FELD(Q);S ZE=ZE*1E+2;T %5.04,EO,V,ZE
04.07 S ES=EI*ZE*70.69/(EO-V)
04.08 R
04.09 A !"EICHUNG IN 10E-03 PF        ",EI
04.10 T !"OBEN          ";D 27;S Z=FIOP(-1);D 1.38;D 1.4;S EO=V
04.20 T !"UNTEN          ";D 27;D 1.38;D 1.4
04.21 T %5.04,EO,V
04.25 S EH=8.859*1.537*1000/(PF*PF)
04.30 S ES=EI*EH/(EO-V)

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         ",HA;S KI=1/HA;S HI=HA/1E4
06.50 A !"N         ",N,"ST         ",ST,"PF         ",PF
06.55 A !"PS          ",PS,"PT          ",PT,"HR         ",HR
06.60 D 25;T !"TM = "%5.3,TM

07.01 C CHECKS
07.10 I (-FABS($-211))7.2;S Z=FIN();D 7.9;S LG=2.4;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";D 7.9;S LG=1.1;Q
07.90 T !"BACK UP          "

08.01 C MULT DATA WITH SQ.ROOT OF H
08.10 D 13.8;S KI=1/HA;S HN=FSQT(HA)
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

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

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

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.01 C TEMPERATUR MESSUNG
25.10 S Z=FIOP(1);S Z=FADC(TT);S Z=FADC(S);S #=-1
25.20 I (#)25.2;S X=FADC(R);S TM=X*1E-4;S X=FLOG(X)
25.30 S TS=10.28539/X-3.47507+.32527*X;S TM=1/TS;S TS=TM;D 11

26.10 S Z=FIOP(-4095);S Z=FIOP(X);S Z=FADC(TT)
26.20 S Z=FADC(Q)
26.30 I (-FABS($-199))26.2;S $=2000;S Z=FIN()

27.05 S Z=FIOP();S X=0
27.10 I (10-X) 27.15;S X=X+1;G 27.2
27.15 T "";S X=0
27.20 I (-FABS($-199))27.3;S Z=FIN();S $=2000;R
27.30 I (FABS(FIOP())),27.1;R

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 L C DASCOM

29.01 C STORE
29.10 D 22
29.20 O O STEUER
29.30 T !"30.4 O O DKA1:";D 1.78
29.35 T !"30.92 O I DKA1:";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.30 I (-FABS(MP))30.4;S MP=1
30.40 O O DKA1:WP1D16
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,!,HF,!,PF,!,PS,!,PT,!
30.70 T ST,!,TM,!,TV,!,SH,!,MP,!,ES,!,KL,!,KV,!,%5.03,,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 DKA1:WP1D16
30.93 O I TTY:,E
30.99 Q

31.01 C MESAGE
31.02 L P FOUPIC
31.03 E
31.04 S $=2000;S HJ=0;S PX=0;S HS=0;S S=0;S R=0;S I=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 !"W#:        ";S MD(1)=215;S MD(2)=FIN();S MD(3)=FIN();S MD(4)=196
31.10 S H=15E3;S TP=1;S TT=0;S LG=2.01
31.15 T  !!"-PAR: -TAU >=100MSEC         ";D 27
31.20 T !"-TURN MUX AND INSTR. AMP. ON         ";D 27
31.30 T !"-INSTR. AMP. OFFSET TEST         ";S X=0
31.35 D 26
31.55 T !"-DVM: 'FAST' AND '10 V'         "
31.60 D 27
31.62 A !!"-KRISTALLLAENGE IN CM         ",KL
31.64 A !"-KRISTALLVOLUMEN IN CCM         ",KV
31.70 R

---