Tektronix 492 - Page 73

Calibration—492/492P Service Vol. 1 (SN B030000 & up)
Performance Check
17010 PAGE
17020 GOSUB 19000
17030 PRINT " 1 J.0I0JL0 0 0 0 1"
17040 GOSUB 19070
17050 PRINT "JJJTESTING LISTEN ONLY"
17060 PRINT @ΑΪ:"ΙΝΙ"
17070 T6 = 0.5
17080 GOSUB 19390
17090 WBYTE 82,69,70,32,-48
17100 PAGE
17110 GOSUB 19000
17120 PRINT " OiOJOIO 0 0 0 1"
17130 GOSUB 19070
17140 PRINT @A1:"REF?"
17150 INPUT @A1:V$
17160 IF V$<>"REFLVL +0.0" THEN 17180
17170 GO TO 18000
17180 PRINT "JJJLISTEN ONLY MODE *** FAIL * * *G"
17190 GO TO 19530
17200 REM
17210 REM
17220 REM
17230 REM
17240 REM
18000 REM * * ’ INTERFACE CLEAR AND REMOTE ENABLE TEST ..... IFC & REN * * ·
18010 PAGE
18020 PRINT "JJJTESTING IFC(INTERFACE CLEAR), AND REN(REMOTE ENABLE)"
18030 WBYTE @32 +A1:
18040 T6 = 3
18050 GOSUB 19390
18060 PRINT "JJCHECK THE 49XP CRT, FOR AN "L" BETWEEN THE VERTICAL"
18070 PRINT "DISPLAY AND THE MIN RF ATTEN READOUTS."
18080 PRINT "JPRESS RETURN TO CONTINUE.";
18090 INPUT P$
18100 INIT
18110 PRINT "JIF AN "L" IS STILL PRESENT, THE IFC LINE IS FAULTY,"
18120 PRINT "IF THE "L" VANISHED, IFC TESTED OK."
18130 PRINT "JJCHECK ALSO THE 49XP FRONT PANEL FOR PROPER LOCAL CONTROL"
18140 PRI "IF THE FRONT PANEL IS LOCKED OUT, THE REN LINE IS FAULTY, IF"
18150 PRINT "NOT, REN TESTED OK"
18160 PRINT "JJJGPIB VERIFICATION COMPLETEG"
18170 END
18180 REM
18190 REM
18200 REM
19000 REM * * * REAR PANEL INTERFACE SWITCH TEST TEXT ROUTINE ' * *
19010 PRINT "SET GPIB ADDRESS SWITCHES TO:"
19020 PRINT " JJLISTENITALKILF ORI ADDRESS"
19030 PRINT " ONLYIONLY1EOII16 8 4 2 1"
19040 PRINT " ..... -J—-l·—-l· .......... "
19050 RETURN
19060 REM
19070 REM * ’ * REAR PANEL TEST TEXT ROUTINE * * *
19080 PRINT "JJAFTER CHANGING THE SWITCHES, ";
19090 PRINT "PRESS THE REMOTE /LOCAL BUTTON ONCEJJ"
19100 PRINT "J^NOTE: IF YOU GET A GPIB INTERFACE ERROR MESSAGE,"
19110 PRINT "1 IT MEANS THAT THE SWITCH(ES) WERE’NT "
19120 PRINT "\_ READ CORRECTLY. TO RE-TEST, TYPE"
19130 PRINT "J_ "RUN" FOLLOWED BY THE LINE NUMBER IN THE"
19140 PRINT "\_ ERROR MESSAGE) "
19150 PRINT "JJIPRESS RETURN <C R> WHEN DONE ";
19160 INPUT T$
19170 RETURN
19180 REM
3-40
REV AUG 1981