549
Chapter 8, Programming The Call Processing Subsystem
Example Programs
7060 CASE "Power"
7070 OUTPUT Inst_addr;"STAT:CALLP:PTR 32"
7080 OUTPUT Inst_addr;"CALLP:ORD ’CHNG PL "&VAL$(Parm)&"’"
7090 CASE "Mainten"
7100 BEEP
7110 OUTPUT Inst_addr;"STAT:CALLP:PTR 16;:CALLP:ORD ’MAINTEN’"
7120 CASE "Alert"
7130 BEEP
7140 OUTPUT Inst_addr;"STAT:CALLP:PTR 32;:CALLP:ORD ’ALERT’"
7150 END SELECT
7160 LOOP
7170 WAIT Wait_time
7180 EXIT IF Oper_complete OR Error_flag
7190 END LOOP
7200 IF Error_flag THEN
7210 RETURN 0
7220 ELSE
7230 RETURN 1
7240 END IF
7250 FNEND
7260 !
8000 Print_error: SUB Print_error
8010 OPTION BASE 1
8020 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
8030 COM /Prog_control/ INTEGER Oper_complete,Wait_time,Error_flag
8040 DIM Error_message$[255],Error$(5)[20]
8050 INTEGER Std_event,N
8060 Error$(2)="Query"
8070 Error$(3)="Device Dependent"
8080 Error$(4)="Execution"
8090 Error$(5)="Command"
8100 OUTPUT Inst_addr;"*ESR?"
8110 ENTER Inst_addr;Std_event
8120 FOR N=2 TO 5
8130 IF BIT(Std_event,N) THEN
8140 PRINT "A "&Error$(N)&" error has occurred."
8150 OUTPUT Inst_addr;"SYSTem:ERRor?"
8160 ENTER Inst_addr;Error_number,Error_message$
8170 PRINT Error_number,Error_message$
8180 END IF
8190 NEXT N
8200 IF BINAND(Std_event,195) THEN
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$)
Содержание 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 ...