Tektronix 492 - Page 72

Calibration—492/492P Service Vol. 1 (SN B030000 & up)
Performance Check
14040 PRINT " 01 010 10 0 0 1 0"
14050 GOSUB 19070
14060 GOSUB 19190
14070 PAGE
14080 A1 =4
14090 GOSUB 19000
14100 PRINT " 0 I 01010 0 10 0"
14110 GOSUB 19070
14120 GOSUB 19190
14130 PAGE
14140 A1 = 8
14150 GOSUB 19000
14160 PRINT " 0 10 10 10 10 0 0"
14170 GOSUB 19070
14180 GOSUB 19190
14190 PAGE
14200 A1 = 16
14210 GOSUB 19000
14220 PRINT " 01 01 01 1 0 0 0 0"
14230 GOSUB 19070
14240 GOSUB 19190
14250 REM
14260 REM
14270 REM
14280 REM
14290 REM
15000 REM ’ ·* "LF" OR "EOI" SWITCH **·
15010 PAGE
15020 A1 = 1
15030 GOSUB 19000
15040 PRINT " 01 0 11 10 0 0 0 1"
15050 GOSUB 19070
15060 PRINT "JJTESTING "LF" OR "EOI" SWITCH"
15070 GOSUB 19190
15080 WBYTE @32 + A1:73,68,63,10
15090 INPUT @A1:T$
15100 T$ = SEG(T$, 1 ,9)
15110 IF T$ = "ID TEK/49" THEN 15140
15120 PRINT "J"LF" OR "EOI" SWITCH **· FAIL * * * G"
15130 GO TO 19530
15140 T6 = 2
15150 GOSUB 19390
15160 REM
15170 REM
15180 REM
15190 REM
15200 REM
16000 REM * * * TALK ONLY MODE * * *
16010 PAGE
16020 GOSUB 19000
16030 PRINT " 0111010 0 0 0 1"
16040 GOSUB 19070
16050 PRINT "JJJTESTING TALK ONLY"
16060 INPUT @A1:V$
16070 17 = POS(V$,"FINE OFF", 1)
16080 IF 17<>0 THEN 17000
16090 PRINT "JJJTALK ONLY MODE * * * FAIL * * *G"
16100 GO TO 19530
16110 REM
16120 REM
16130 REM
16140 REM
16150 REM
17000 REM * * * LISTEN ONLY MODE * * *
REV AUG 1981
3-39