Tektronix 492 - Page 74

I
Calibration—492/492P Service Vol. 1 (SN B030000 & up)
Performance Check
h
19190 REM * · ' TEST ADDRESS SWITCH * * *
19200 PRINT @A 1 :"ID?"
19210 INPUT @A1:T$
19220 T$ = SEG(T$,1,9)
1
19230 IF T$ = "ID TEK/49" THEN 19260
19240 PRINT "ADDRESS SWITCH TEST FAIL"
19250 GO TO 19530
19260 RETURN
1
19270 REM
19280 REM * * * SRQ HANDLER * * *
19290 T6 = 3
19300 GOSUB 19390
1
19310 POLL Z1,Z1;A1
19320 PRINT @A1:"ERR?"
19330 INPUT @A1:S$
19340 PRINT "GGAN INTERRUPT OCCURED ON THE BUS, THE 49XP RETURNS ";S$
1
19350 PRINT "JPRESS RETURN <C R > TO CONTINUE ";
19360 INPUT T$
19370 RETURN
19380 REM
1
19390 REM * * * DELAY GENERATOR * * *
19410 REM * * * T6 GIVEN IN SEC (GLOBAL) * * * 19 SCRATCH * * *
19420 IF T6<0 THEN 19510
19430 IF RND(0)>0.5 THEN 19490
1
19440 REM * ’ * 4051 * * *
19450 T6 = T6*220
19460 FOR 19=1 TO T6
19470 NEXT 19
1
19480 GO TO 19510
19490 REM *** 4052
19500 CALL "WAIT",T6
19510 T6 = 0
I
) 19520 RETURN
’ 19530 REM * * * * FAILURE DECISION HANDLER
19540 PRINT "JJISELECT A UDK:"
19550 PRINT "I (i) RE-START"
1
19560 PRINT (5) END"
19570 SET KEY
19580 B2 = 0
19590 IF B2<> 1 AND B2<>5 THEN 19590
1
19600 IF B2 = 5 THEN 19630
19610 PAGE
19620 GO TO 6000
19630 END
This concludes the Performance Check part of the Calibration Procedure.
REV AUG 1981
3-41