Tektronix DM 5010, Instruction Manual

Page: 71 / 347

Programming— DM 5010
Program Example 5:
1 REM GAIN VS FREQUENCY USING DM5010 AND A MANUAL FG
98 INIT
99
REM D « ADDRESS OF DM5010, S = ADDRESS OF SI5010
100 D=16
105 S=26
110
ON SRQ THEN 480
120 REM SEND LLO (LOCAL LOCKOUT)
130 WBYTE €17:
140 PRINT "PLEASE APPLY THE FOLLOWING FREQUENCY,
150 PRINT "THEN PRESS THE INSTRUMENT ID BUTTON ON THE DM5010"
160 PRINT "FREQUENCY (HZ) AMPLITUDE (DB)“
170 REM H - FREQUENCY IN HZ
180 H-10
190 REM V IS A FLAG THAT IS CLEARED WHEN USER PUSHES ID BUTTON ON DM5010
200 V=1
210 REM FRONT INPUT OF DM IS CONNECTED TO THE FG OUTPUT
220 PRINT €D:"INIT;ACV;USER ON;LFR ON"
230 PRINT €26:"CONF 0,8,0,8;CLOSE 4;RQS OFF-
240 PRINT H,
250 REM WAIT FOR USER TO SET FG FREQUENCY AND PUSH DM5010 INST ID BUTTON
260 IF V THEN 250
270 REM WAIT FOR FG, TEST CIRCUIT AND DM5010 TO SETTLE BY TAKING
280 REM READINGS UNTIL TWO READINGS ARE WITHIN 0. IX OF EACH OTHER
290 INPUT €D:R
300 R1=R
310 INPUT €D:R
320 IF ABS(R-Rl) >R * 1.0E-3 THEN 300
330 REM R HAS VALUE OF INPUT TO TEST CIRCUIT
340 PRINT €26:"C0NF 4, 4,4, 4; CLOSE 1,5"
350 PRINT €D:"CALC DBR;DBR ";R
360 REM WAIT FOR TWO CONSECUTIVE READINGS WITHIN 0.1X OF EACH OTHER
370 INPUT €D:R
380 R1=R
390 INPUT €D:R
400 IF ABS((R-Rl)/R) * l . 0E-3 THEN 380
410 REM R HAS TEST CURCUIT'S GAIN IN DB
420 PRINT R
430 REM CHANGE FREQUENCY AND REPEAT MEASUREMENT
440 H=10 *H
450 IF H<=100000 THEN 200
460 END
470 REM SEVRICE REQUEST INTERRUPT SUBROUTINE
480 POLL X,Y;D;S
490
REM CHECK FOR USER REQUEST INTERRUPT GENERATED BY PUSHING INST ID
500 IF Y=67 OR Y=83 THEN 530
510 RETURN
520 REM CLEAR FLAG TO INDICATE THAT USER HAS PUSHED ID BUTTON
530 V=0
540 RETURN
ADD JAN 1982
3-33