Tektronix 492 - Page 70

Calibration—492/492P Service Vol. 1 (SN B030000 & up)
Performance Check
l
I
I
I
I
I
I
i
»
I
*
n
7020 WBYTE @32 + A 1,17:
7030 PRINT @A 1 SET?"
) 7040 INPUT @A1:V$
7050 PRINT "II49XP IN LOCAL LOCK-OUT MODE (LLO)"
7060 PRINT ΊΪΑΤΤΕΜΡΤ TO USE 49XP CONTROLS"
7070 PRINT " IIPRESS RETURN <C R > WHEN DONE
7080 INPUT T$
7090 PRINT @A1:" SET?"
7100 INPUT @A1:W$
7110 IF W$<>V$ THEN 7130
7120 GO TO 8000
7130 PRINT "J* * * LOCAL LOCK-OUT ............. LLO * * * FAIL * * *G"
7140 GO TO 19530
7150 REM
7160 REM
7170 REM
7180 REM
7190 REM
8000 REM · * * GO TO LOCAL ............. GTL * * *
8010 PRINT @A1:"INI;TIM?"
8020 INPUT @A1:R
8030 PRINT @A1 :"TIM INC"
8040 PRINT " * * * GO TO LOCAL ............. GTL
8050 WBYTE @32 + A 1,1:
8060 PRINT @A1:"TIM?"
8070 INPUT @A1:T6
8080 IF R O T 6 THEN 8100
8090 GO TO 9000
8100 PRINT "J* * * * GO TO LOCAL ........... GTL * * * FAIL * * *G"
8110 GO TO 19530
8120 REM
8130 REM
8140 REM
8150 REM
8160 REM
9000 REM * · * GROUP EXECUTE TRIGGER ....... GET * * *
9010 PRINT "*·* GROUP EXECUTE TRIGGER...GET **·"
9020 ON SRQ THEN 9120
9030 17 = 0
9040 PRINT @A1:"INIT;TIM 100M;SIG;EOS ON"
9050 WBYTE @32 + A 1,8:
9060 T6 = 3
9070 GOSUB 19390
9080 PRINT @A1 :"EOS OFF"
9090 IF 1 7 0 1 THEN 9150
9100 ON SRQ THEN 19280
9110 GO TO 10000
9120 WBYTE @20:
9130 17=1
9140 RETURN
9150 PRINT "GROUP EXECUTE TRIGGER...GET * * * FAIL ' * *G"
9160 GO TO 19530
9170 REM
9180 REM
9190 REM
9200 REM
9210 REM
10000 REM * * * SELECTED DEVICE CLEAR...SDC * * *
10010 PRINT "*** SELECTED DEVICE CLEAR...SDC ***"
10020 PRINT @A1:"ID?"
10030 WBYTE @32 + A1,4:
10040 WBYTE @64 + A1:
10050 RBYTE R
10060 IF ABS(R)0 2 5 5 THEN 10080
υ
REV AUG 1981 3-37