File: INIT1.FC of Tape: Various/ETH/fc4

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

---

C-OS/8 FOCAL, 1972

01.01 C INIT
01.02 L P FOUPIC
01.04 S $=2000;S U=0;S V=0;S X=0;S Y=0;S Z=0;S H=0;S PR=0;S I=0
01.05 S DK=0;S TS=0;S TQ=0;S TM=0;S J=0
01.08 T !"###:        ";S MD(1)=FIN();S MD(2)=FIN();S MD(3)=FIN();S MD(4)=196
01.10 S TP=1;S TT=0;S LG=2.01
01.12 T !!"-KLAMM KLAMME KLAMMER  !!!!!         ";D 27
01.15 T !"-PAR: 1 & 2 : -TAU >=100MSEC         ";D 27
01.20 T !"-TURN INSTR. AMP.(GAIN 2) ON         ";D 27
01.25 T !"-TURN FIELD MEASURING DEVICE ON      ";D 27
01.30 T !"-MUX #11 =INST.AMP.OFFS .TEST        ";S Y=2^11;D 26
01.32 T !"-MUX #6:9=BARATRON INPUT TEST        ";S Y=2^6+2^9;D 26
01.33 T !"-MUX #0:1=AL-BR INPUT TEST           ";S Y=2^0+2^1;D 26
01.34 T !"-MUX #6  =SRTIO3 EXP INPUT TEST      ";S Y=2^6;D 26
01.36 T !"-MUX #6:7=SRTIO3 DIF INPUT TEST      ";S Y=2^6+2^7;D 26
01.37 A !"-TEMP COEFF " ?XX(0)?,?XX(1)?,?XX(2)?,"TEST VAL ",X;S X=FLOG(X);D 25.30;T "TS="%4.03,TS
01.38 T !"-MUX #0  =DILA INPUT TEST            ";S Y=0;D 26
01.40 T !"-MUX #4:5=TORQ INPUT TEST, COIL INT  ";S Y=2^4+2^5
01.41 T !"   -UPPER C                          ";D 27;D 26.1;D 26.2;S V=Z
01.42 T !"   -LOWER C                          ";D 27;D 26.1;D 26.2
01.43 S SG=FSGN(V-Z)
01.62 A !"-KRISTALLLAENGE IN CM                ",KL
01.65 A !"-KRISTALLDURCHMESSER IN CM           ",KD
01.66 A !"-KRISTALLVOLUMEN IN CCM              ",KV
01.70 L R MDT1

25.01 C MEASURE T OXFORD AB
25.10 S Z=FIOP(3);S Z=FADC(TT);S Z=FADC(ST);S #=-1
25.20 I (#)25.2;S VA=FADC(R)/1000;S X=FLOG(VA)
25.30 S TS=XX(0)+XX(1)*X+XX(2)*X*X;S TS=1/TS
25.40 C-S TQ=TQ+(TS-TM)^2*J/(J+1)
25.50 C-S TM=TM+(TS-TM)/(J+1)
25.60 D 11

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

27.01 C WAIT
27.05 S X=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 X=FIN();S $=2000;R
27.30 I (FABS(FIOP())),27.1;R

---