Calibration—492/492P Service Vol. 1 (SN B030000 & up)
Performance Check
Unes 19000—end: Utility routines. “Rear panel interface switch test text routine" puts headers on the interface
switch test display. The ‘rear panel test text routine" tells the operator what to do after changing
the address switches. “Test address switch” acquires an ID? response from the instrument on
its new address during the address switch test. The “SRQ handler’ will handle any 49X SRQ’s
that occur, although none, except the power-up SRQ, would be expected. (The end of sweep
SRQ during the GET test is handled by.another SRQ handler.) “Delay Generator” generates
delays for other tests. The “Failure Decision Handler” allows the program to be restarted with
the user definable keys if any test fails.
1 GO TO 5000
4 B2— 1
5 RETURN
20 B2 = 5
21 RETURN
5000 REM * *' 49XP GPIB VERIFICATION PROGRAM * * *
5030 INIT
5040 ON SRQ THEN 19280
5050 DIM V$(400),W$(400)
5060 17 = 0
5070 PAGE
5080 PRINT " JJJENTER 49XP’S PRIMARY ADDRESS (DEFAULT = 1)
5090 INPUT T$
5100 IF T $ < > "" THEN 5130
5110 A1 = 1
5120 GO TO 5180
5130 A1 = VAL(T$)
5140 IF A1 >0 AND A K 3 1 THEN 5180
5150 PRINT "JJGERRORH ";A 1 IS NOT A VALID ADDRESS";
5160 PRINT " ONLY 0 THRU 30 ARE VALID ADDRESSESKK"
5170 GO TO 5080
5180 PAGE
5190 REM
5200 REM
5210 REM
5220 REM
5230 REM
6000 REM * · *"ID" QUERY RESPONSE * * *
6010 PRINT
......."ID" QUERY RESPONSE
6020 PRINT @A1 :"INI;ID?;SIG"
6030 INPUT @A1 :T$
6040 V$ = SEG(T$, 1,9)
6050 IF V$ = "ID TEK/49" THEN 6080
6060 PRINT "JJJ*·· "ID" QUERY RESPONSE *** FAIL ***G "
6070 GO TO Ϊ9530
6080 WBYTE @32 + A 1.64,128,-127
6090 PRINT @A1:"WFM ENC:BIN;CUR?"
6100 PRINT @37,0:37,255,255
6110 INPUT %A1 :T$
6120 WBYTE @64 + A1 :
6130 RBYTE R,R,R,T6
6140 WBYTE @95:
6150 IF R = > 128 AND T6<128 THEN 7000
6160 PRINT "JJJ* * * DI08 TEST * * * FAIL * * *G"
6170 GO TO Ϊ9530
6180 REM
6190 REM
6200 REM
6210 REM
6220 REM
7000 REM ’ * * LOCAL LOCK-OUT
..............
LLO * * *
7010 PRINT
-
-----
LOCAL LOCK-OUT
............LLO
3-36
REV AUG 1981
To Next Page
Loading...
