![HP 8920B Programmer'S Manual Download Page 628](http://html.mh-extra.com/html/hp/8920b/8920b_programmers-manual_166189628.webp)
628
Chapter 8, Programming The Call Processing Subsystem
Example Programs
2130 !
3000 Srvice_interupt: SUB Srvice_interupt
3010 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
3020 COM /Prog_control/ INTEGER
Oper_complete,Wait_time,Error_flag
3030 INTEGER Std_event,Status_byte,Call_proc_event,Oper_event
3040 Status_byte=SPOLL(Inst_addr)
3050 IF BIT(Status_byte,5) THEN ! Check for error conditions first
3060 Error_flag=1
3070 SUBEXIT !Dont re-enable interrupts until current errors
processed.
3080 ELSE
3090 Error_flag=0
3100 END IF
3110 IF BINAND(Status_byte,31) THEN
3120 BEEP
3130 PRINT "Error in SRQ process. Status Byte = ";Status_byte
3140 STOP
3150 END IF
3160 IF BIT(Status_byte,7) THEN ! Check for call processing state
3170 OUTPUT Inst_addr;"STAT:OPER:EVEN?;:STAT:CALLP:EVEN?"
3180 ENTER Inst_addr;Oper_event,Call_proc_event
3190 Oper_complete=1
3200 END IF
3210 ENABLE INTR Bus_addr;2
3220 SUBEND
3230 !
5000 Cnfg_base_sta:DEF FNCnfg_base_sta(Vmac,Vch,Sid,Sat,REAL Ampl,
Sys$,INTEGER Cch)
5010 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
5020 COM /Prog_control/ INTEGER
Oper_complete,Wait_time,Error_flag
5030 OUTPUT Inst_addr;"CALLP:AMPL "&VAL$(Ampl)&" DBM;SID
"&VAL$(Sid)
5040 OUTPUT Inst_addr;"CALLP:VCH "&VAL$(Vch)
5050 OUTPUT Inst_addr;"CALLP:SAT ’"&VAL$(Sat)&"HZ"&"’;VMAC
"&VAL$(Vmac)
5060 OUTPUT Inst_addr;"STAT:CALLP:PTR 1;:CALLP:CCH "&VAL$(Cch)
5070 GOSUB Wait_loop
5080 IF Error_flag THEN RETURN 0
5090 Oper_complete=0
5100 Error_flag=0
5110 OUTPUT Inst_addr;"CALLP:CSYS ’"&Sys$&"’"
5120 GOSUB Wait_loop
5130 IF Error_flag THEN
5140 RETURN 0
5150 ELSE
5160 RETURN 1
5170 END IF
5180 Wait_loop: LOOP
5190 WAIT Wait_time
Summary of Contents for 8920B
Page 10: ...10 ...
Page 16: ...Contents 16 9 Error Messages Index 673 ...
Page 17: ...17 1 Using HP IB ...
Page 48: ...48 Chapter 1 Using HP IB Remote Local Modes ...
Page 49: ...49 2 Methods For Reading Measurement Results ...
Page 61: ...61 3 HP IB Command Guidelines ...
Page 84: ...84 Chapter 3 HP IB Command Guidelines Guidelines for Operation ...
Page 85: ...85 4 HP IB Commands ...
Page 90: ...90 Adjacent Channel Power ACP ...
Page 116: ...116 Configure I O Configure ...
Page 156: ...156 Call Processing ...
Page 185: ...185 System System SYSTem ERRor Returns integer value quoted string ...
Page 242: ...242 Common Command Descriptions ...
Page 251: ...251 5 Advanced Operations ...
Page 377: ...377 7 IBASIC Controller ...
Page 458: ...458 Chapter 7 IBASIC Controller The TESTS Subsystem ...
Page 640: ...640 Chapter 8 Programming The Call Processing Subsystem Example Programs 11280 SUBEND 11290 ...
Page 643: ...643 9 Error Messages ...
Page 672: ...672 ...
Page 682: ...Index 682 ...