550
Chapter 8, Programming The Call Processing Subsystem
Example Programs
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
Содержание 8921A
Страница 14: ...14 ...
Страница 17: ...Contents 17 3 HP IB Command Guidelines Sequential and Overlapped Commands 72 Guidelines for Operation 73 ...
Страница 24: ...Contents 24 9 Error Messages ...
Страница 25: ...Contents 25 Index 593 ...
Страница 26: ...Contents 26 ...
Страница 27: ...27 1 Using HP IB ...
Страница 58: ...58 Chapter 1 Using HP IB Remote Local Modes ...
Страница 59: ...59 2 Methods For Reading Measurement Results ...
Страница 71: ...71 3 HP IB Command Guidelines ...
Страница 94: ...94 Chapter 3 HP IB Command Guidelines Guidelines for Operation ...
Страница 95: ...95 4 HP IB Commands ...
Страница 100: ...100 Adjacent Channel Power ACP ...
Страница 150: ...150 Display DISPlay space TDMA test TESTs TFReq THLP TIBasic TMAKe TPARm TPRint TSEQn TSPec Returns current screen TX ...
Страница 173: ...173 System System SYSTem ERRor Returns integer value quoted string ...
Страница 236: ...236 Triggering Measurements ...
Страница 237: ...237 5 Advanced Operations ...
Страница 350: ...350 Chapter 6 Memory Cards Mass Storage Using Memory Cards Figure 20 Inserting a Memory Card ...
Страница 360: ...360 Chapter 6 Memory Cards Mass Storage Using External Disk Drives ...
Страница 361: ...361 7 IBASIC Controller ...
Страница 442: ...442 Chapter 7 IBASIC Controller The TESTS Subsystem ...
Страница 559: ...559 Chapter 8 Programming The Call Processing Subsystem Example Programs 11280 SUBEND 11290 ...
Страница 562: ...562 Chapter 8 Programming The Call Processing Subsystem Example Programs ...
Страница 563: ...563 9 Error Messages ...
Страница 592: ...592 ...