Remote Operation
Manual 20791, Rev. C, June 2001 3-35
Plotter Command Programming Example
10 !**********************************************************
20 ! PLOTTER COMMAND DEMONSTRATION
30 !**********************************************************
40 !
50 CLEAR 704 ! device clear presets analyzer
60 WAIT 4
70 !
80 OUTPUT 704;SWP 1,A;on;SWP 2,A;off;CHAN 3;off;CHAN 4;off
90 OUTPUT 704;SWPF;start 2000;stop 4000;level 10;level on;swpt 300
100 WAIT 3! wait for sweeper to digest changes and output clean sweep
110 OUTPUT 704;SWP 1;scale auto! autoscale trace
120 WAIT 1
130 !
140 !........................................................
150 BEEP
160 INPUT Press RETURN when plotter is ready for demo ... , Inp$
170 ! First set up controller to use SRQ s
180 ON INTR 7 GOSUB Service srq
190 ENABLE INTR 7;2
200 !
210 GOTO Jumparound
220 ! Full size plot of entire display
230 OUTPUT 704;PLOT;all;srq
240 GOSUB Wait for srq
250 !
260 PAUSE
270 ! Plot entire display in lower right hand quadrant
280 OUTPUT 704;PLOT;lowr;srq
290 GOSUB Wait for srq
300 !
310 PAUSE
320 ! Custom plot with trace and frequency readouts only
330 OUTPUT 704;PLOT;custom;trace 1;freq lb;srq
340 GOSUB Wait for srq
350 !
360 PAUSE
370 Jumparound:!
380 ! Custom plot with logo changed
390 OUTPUT 704;PLOT;custom;grid;trace 1;def logo MY COMPANY NAME1234
400 ! Note that HP Basic requires double quotes to insert a quotation
410 ! mark within a quoted string
420 STOP
430 !...........................................................
440 !
450 ! Various subroutines:
460 !
470 Wait for srq:! This subroutine waits until an SRQ occurs
480 Received srq=0! Clear flag to stay in next loop
490 WHILE Received srq=0! Exit loop only when srq service sets flag
500 END WHILE
510 Status1=SPOLL(704)! Serial poll clears srq message
520 ENABLE INTR 7;2! Re-enable interrupts
530 RETURN
540 !
550 Service srq:!
560 Received srq=1! Set srq flag when interrupt received
570 RETURN
580 !...........................................................
590 END
To Next Page
Loading...
