HP 8921A Programmer's Manual page 550

Chapter 8, Programming The Call Processing Subsystem
Example Programs
550
10010 OPTION BASE 1
10020 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
10030 DIM Rcdd$(6)[40]
10040 INTEGER N
10050 WAIT .1 !Allow time for RCDD data fields to be updated.
10060 FOR N=1 TO LEN(TRIM$(Fields$))
10070 OUTPUT Inst_addr;"CALLP:RCDD"&Fields$[N,N]&"?"
10080 ENTER Inst_addr;Rcdd$(N)
10090 PRINT "RCDD"&VAL$(N)&" = "&Rcdd$(N)
10100 NEXT N
10110 SUBEND
10120 !
11000 Meas_carrier: SUB Meas_carrier
11010 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
11015 ON TIMEOUT Bus_addr,5 RECOVER Timed_out
11020 OUTPUT Inst_addr;"DISP ACNT;:CALLP:MOD 'MEAS';:MEAS:RFR:POW?
;FREQ:ERR?"
11030 ENTER Inst_addr;Power,Freq_error
11040 OUTPUT Inst_addr;"MEAS:AFR:FREQ?;FM?"
11050 ENTER Inst_addr;Audiofreq,Deviation
11060 PRINT USING "K,2D.3D,K";"Carrier Power = ";Power;" Watts"
11070 PRINT USING "K,2D.3D,K";"Audio Frequency = ";Audiofreq/1000;"
kHz"
11080 PRINT USING "K,2D.3D,K";"FM Deviation = ";Deviation/1000;"
kHz"
11090 PRINT USING "K,2D.3D,K";"Carrier Freq Error = ";Freq_error/
1000;" kHz"
11100 SUBEXIT
11110 Timed_out:!
11120 ON TIMEOUT Bus_addr,5 GOTO Cannot_recover
11130 CLEAR Inst_addr
11140 OUTPUT Inst_addr;"trig:abort;mode:retr:rep"
11150 DISP "you should have the box back."
11160 ENABLE
11170 Cannot_recover:!
11180 DISP "Cannot regain control of the Test Set."
11190 STOP
11200 SUBEND
11210 !
12000 Meas_sinad: SUB Meas_sinad
12010 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
12020 INTEGER N
12025 ON TIMEOUT 7,5 RECOVER Timed_out
12030 OUTPUT Inst_addr;"DISP CME;:AFG1:DEST 'FM';FREQ 1KHZ FM 8KHZ;
FM:STAT ON"
12040 OUTPUT Inst_addr;"AFAN:INP 'AUDIO IN';DEMP 'OFF';DET 'RMS'"
12050 OUTPUT Inst_addr;"AFAN:FILT1 'C MESSAGE';FILT2 '>99KHZ LP'"
12060 OUTPUT Inst_addr;"MEAS:AFR:SEL 'SINAD';:RFG:AMPL -113DBM"
12070 OUTPUT Inst_addr;"TRIG:MODE:RETR SINGLE;SETT FULL"
12080 Avg_sinad=0
12090 FOR N=1 TO 5