File: INITL.FC of Tape: Various/ETH/prog1
(.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 MDTL 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