Calibration—492/492P Service Vol. 1 (SN B030000 & up)
Performance Check
l
I
I
I
I
I
I
i
»
I
*
n
7 0 2 0
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 @A
1
:"INI;TIM?"
8020 INPUT @A1:R
8030 PRINT @A
1
:"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 T
6
= 3
9070 GOSUB 19390
9080 PRINT @A
1
:"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