Tektronix 492 - Page 71

Calibration—492/492P Service Vol. 1 (SN B030000 & up)
Performance Check
10070 GO TO 1 1000
10080 PRINT " * * * SELECTED DEVICE CLEAR ....... SDC * * * FAIL * * *G"
10090 GO TO 19530
10100 REM
10110 REM
10120 REM
10130 REM
10140 REM
1 1000 REM * * * DEVICE CLEAR ........... DCL * * *
11010 PRINT " * * * DEVICE CLEAR ............ DCL
11020 PRINT @A1:"ID?"
11030 WBYTE @20:
11040 WBYTE @64 + A1:
11050 RBYTE R
11060 IF ABS(R)<>255 THEN 11080
11070 GO TO 12000
11080 PRINT " * * * DEVICE CLEAR ........... DCL * * * FAIL * * *G"
11090 GO TO 19530
11100 REM
11110 REM
11120 REM
11130 REM
11140 REM
12000 REM * * ADDRESSED AS LISTENER, TALKER * * ‘
12010 PRINT "*** 49XP ADDRESSED AS LISTENER..***"
12020 WBYTE @32 + A1:76,79,82,68,79,-63
12030 T6 = 1
12040 GOSUB 19390
12050 INPUT @A1:V$
12060 T$ = SEG(V$, 16,1)
12070 IF T$ = "L" THEN 12100
12080 PRINT "J* * * 49XP ADDRESSED AS LISTENER * * * FAIL * * *G"
12090 GO TO 19530
12100 PRINT "* * * 49XP ADDRESSED AS TALKER....* * *"
12110 PRINT @A1 :"INI;TIM 50M;SIG;SIG;WAI;LORDO?"
12120 INPUT @A1:V$
12130 T$ = SEG(V$, 16,1)
12140 IF T$ = "T" THEN 13000
12150 PRINT "*** 49XP ADDRESSED AS TALKER *** FAIL ***"
12160 GO TO 19530
12170 REM
12180 REM
12190 REM
12200 REM
12210 REM
13000 REM * * * SERIAL POLL * * *
13010 PRINT "** * SERIAL POLL.........SPD/SPE
13020 WBYTE @95,63,24,64 + A1 :
13030 RBYTE R
13040 WBYTE @95,25:
13050 IF R = 0 OR R= 16 THEN 13080
13060 PRINT "J* * * SERIAL POLL * * * FAIL * * *G"
13070 GO TO 19530
13080 T6 = 3
13090 GOSUB 19390
13100 REM
13110 REM
13120 REM
13130 REM
13140 REM
14000 REM * * * GPIB INTERFACE REAR PANEL SWITCH TEST * * *
14010 PAGE
14020 A1 = 2
14030 GOSUB 19000
3-38
REV AUG 1981