Tektronix 7D20 Operator's Manual page 268

3. SRQ DeCOding Routine . This program is an expanded SRO decoding routine .
On SRO, the 4050 will read the status byte generated by the 7D20 . The program
then goes one step further and interrogates the 7D20 as to the quantity and the
nature of the events that produced the SRO. An event query is sent to the 7D20 for
each event code pending on the system . These event codes, when read by the 4050,
are translated into phrases that describe the nature of the events . This ability is
valuable when debugging 7D20 programs.
REMARKS :
2Gt)G REM + THIS PP .OGRRM IS FOP . ERP .OP . MESSAGE DISPLA% FP,OM THE 7A2i3
20I13 p,EM + R PRS " IC ~ ;Ra HRNALING P,OCITINE IS fX~PRNAEA TO PP.IN7 THE
2132c~ REM + EVENT CODES OP,IGINRTING FP,OM 7NE iD2i7 .
2[3313 REM +
213g13 P .EM * 7D213 I~" DE<IICE 11213
<"'G~0 REM +
PROGRAM :
2060 ON SRO THEN 2090
2070 END
2090 POLL D,S ;20
2090 PRINT "SRQ ORIGINATED FROM ADDRESS",D
2100 IF S<>243 THEN 2120
2110 PRINT "STATUS REP~tT : FATAL ERROR"
2120 IF 5=65 THEN 2140
2130 IF S<>81 THEN 2158
2140 PRINT "STATUS REP~2T : POWER ON"
2150 IF S<>93 THEN 217H
2160 PRINT "STATUS REPORT : EXECUTION ERROR"
2170 IF 5=99 THEN 2190
2180 IF S<>115 THEN 2200
2190 PRINT "STATUS REPORT : INTERNAL ERRIXi"
2200 IF 5=101 THEN 2220
2210 IF S<>117 THEN 2230
2220 PRINT "STATUS REPORT : E%ELUTION WARNING"
2230 IF 5=102 THEN 2250
2240 IF S<>119 THEN 2260
2250 PRINT "STATUS REPORT : INTERNAL WARNING"
2260 IF S<>bb THEN 2280
2270 PRINT "STATUS REPORT : OPERATION COMPLETE"
2280 IF S=0 THEN 1453
2290 IF S<>16 THEN 2310
2300 PRINT "STATUS REPORT : NO STATUS TO REPORT"
2310 PRINT a'120 :"EVQTV?"
2320 INPUT a'120 :N
2330 DIM A(N)
2340 PRINT x'120 :"ALLEY?"
2350 INPUT a'120 :A
2360 FOR Q=1 TO N
2370 P=A(Q)
2380 GOSUB 2418
2390 NEXT Q
2400 RETURN
2410 P=S-500
2420 IF P>0 THEN 2520
2430 P=S-400
2440 IF P>0 THEN 2540
2450 P=S-300
2460 IF P>0 THEN 2560
2470 P=S-200
2480 IF P>0 THEN 2580
2490 P=S-100
2500 GOSUB 2600
GPIB-7D20
PROGRAM (CONT)
4-93