Tektronix DM 5010, Инструкция по эксплуатации

Страница: 70 / 347

Programming—DM 5010
Program Example 3:
1 REM READY QUERY
100 REM D • ADDRESS OF DM5010
101 Dx16
110 ON SRQ THEN 1000
115 PRINT 3D: "INIT"
120 PRINT "WAITING FOR READING * ’
130 PRINT "KWAITING FOR READING"
140
PRINT ®D:"RDY?"
150 INPUT SD:G
160 IF NOT(G) THEN 130
169 REM IbFUT READING FROM DM5010
170 INPUT CD:R
180 PRINT "READING IS ";R
190 GO TO 120
999 REM SERVICE REQUEST INTERRUPT SUBROUTINE
1000 POLL X,Y;D
1010 RETURN
Program Example 4:
1 REM GAIN VS FREQUENCY USING DM5010, FG5010 AND SI5010
100 ON SRQ THEN 400
110 D-16
120 F=24
130 S=26
140 REM SEND LLO (LOCAL LOCKOUT)
150 WBYTE $17:
160 PRINT "FREQUENCY (HZ) AMPLITUDE (DB)“
170 REM H = FREQUENCY IN HZ
180 H * 10
190 PRINT £D:"INIT;ACV"
200 PRINT $F: "INIT;AMPL 1;OUTPUT ON;FREQ ";H
210 PRINT ?S: " INIT; CONF 0,8,0, 8; CLOSE 4"
220 REM WAIT FOR FG, TEST CIRCUIT AND DM TO SETTLE
230 FOR K«1 TO 5
240 INPUT $D;R
250 NEXT K
260 REM R = IbFUT VOLTAGE TO TEST CIRCUIT
270 PRINT $D:"CALC DBR;DBR ";R
280 PRINT £S:"INIT; CLOSE 1,4,5"
290 REM WAIT FOR SI5010 AND DM5010 AC CONVERTER TO SETTLE
300 FOR K=1 TO 5
310 INPUT $D:R1
320 NEXT K
330 REM R1 - TEST CIRCUIT GAIN IN DB
340 PRINT H,R1
350 REM STEP FREQUENCY AND REPEAT MEASUREMENT
360 H=10 *H
370 IF H<-100000 THEN 190
380 END
390
REM SERVICE REQUEST INTERRUPT SUBROUTINE
400 POLL X,Y;D;F;S
410 RETURN
332 REV JAN 1983