HP 8920B - Page 631

631
Chapter 8, Programming The Call Processing Subsystem
Example Programs
8210 BEEP
8220 PRINT "Unrecognized condition. Standard Event register =
";Std_event
8230 END IF
8240 STOP
8250 SUBEND
8260 !
10000 Read_rcdd_data: SUB Read_rcdd_data(Fields$)
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