556
Chapter 8, Programming The Call Processing Subsystem
Example Programs
3290 FNEND
4000 Set_state: DEF FNSet_state(State$)
4010 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
4020 COM /Prog_control/ INTEGER Std_event,Wait_time
4030 INTEGER Ptr_value,Call_proc_even
4040 SELECT State$
4050 CASE "Active"
4060 Ptr_value=1
4070 CASE "Register"
4080 Ptr_value=1
4090 CASE "Page"
4100 Ptr_value=32
4110 CASE "Handoff"
4120 Ptr_value=32
4130 CASE "Originate"
4140 Ptr_value=32
4150 CASE "Release"
4160 Ptr_value=1
4170 END SELECT
4180 IF State$="Originate" THEN
4190 OUTPUT Inst_addr;"STAT:CALLP:PTR "&VAL$(Ptr_value)
4200 ELSE
4210 OUTPUT Inst_addr;"STAT:CALLP:PTR "&VAL$(Ptr_value)&";:CALLP:"&State$
4220 END IF
4230 LOOP
4240 WAIT Wait_time
4250 OUTPUT Inst_addr;"*ESR?;STAT:CALLP:EVEN?"
4260 ENTER Inst_addr;Std_event,Call_proc_even
4270 IF Std_event THEN RETURN 0
4280 IF BIT(Call_proc_even,LOG(Ptr_value)/LOG(2)) THEN RETURN 1
4290 END LOOP
4300 FNEND
5010 Read_rcdd_data: SUB Read_rcdd_data(Fields$)
5020 OPTION BASE 1
5030 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
5040 COM /Prog_control/ INTEGER Std_event,Wait_time
5050 DIM Rcdd$(6)[40]
5060 INTEGER N
5070 WAIT .1!Allow time for RCDD data fields to be updated.
5080 FOR N=1 TO LEN(TRIM$(Fields$))
5090 OUTPUT Inst_addr;"CALLP:RCDD"&Fields$[N,N]&"?"
5100 ENTER Inst_addr;Rcdd$(N)
5110 PRINT "RCDD"&VAL$(N)&" = "&Rcdd$(N)
5120 NEXT N
5130 SUBEND
5140 !
6000 Order: DEF FNOrder(Order$,INTEGER Parm)
6010 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
6020 COM /Prog_control/ INTEGER Std_event,Wait_time
6030 INTEGER Ptr_value,Call_proc_even
Содержание 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 ...