HP 8920B Programmer's Manual page 627

430 END IF
440 ELSE
450 Print_error
460 END IF
470 IF NOT FNSet_state("Release") THEN CALL Print_error
480 BEEP
490 DISP "Originate a call from the mobile station."
500 IF FNSet_state("Originate") THEN
510 DISP ""
520 Read_rcdd_data("12345")
530 ELSE
540 Print_error
550 END IF
560 IF NOT FNSet_state("Release") THEN CALL Print_error
570 PRINT "Program completed."
580 END
590 !
1000 Cond_test_set: SUB Cond_test_set
1010 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
1020
!**************************************************************
1030 ! Prompt operator to make sure that no RF power is applied
to the
1040 ! RF IN/OUT port when the power meter is zeroed.
1050
!**************************************************************
1060 BEEP
1070 DISP "Remove all input power to the test set, then press
Continue"
1080 PAUSE
1090 OUTPUT Inst_addr;"DISP RFAN;:RFAN:PME:ZERO"
1100 BEEP
1110 DISP "Reconnect all cables, then press Continue."
1120 PAUSE
1130 OUTPUT Inst_addr;"DISP CONF;:CONF:NOTC 'AFGEN1'"
1140 SUBEND
1150 !
2000 Cnfg_srvc_intrp: SUB Cnfg_srvc_intrp
2010 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
2020 OUTPUT Inst_addr;"*RST;*CLS;*ESE 60;*SRE 160"
2030 OUTPUT Inst_addr;"STAT:CALLP:PTR 0;NTR 0"
2040 OUTPUT
512;*OPC?"
2050 ON TIMEOUT Bus_addr,10 GOTO Cnfg_failed
2060 ENTER Inst_addr;Cnfg_complete
2070 OFF TIMEOUT Bus_addr
2080 SUBEXIT
2090 Cnfg_failed: BEEP
2100 PRINT "Cnfg_srvc_intrp SUB timed out on *OPC? query."
2110 STOP
2120 SUBEND
Chapter 8, Programming The Call Processing Subsystem
Inst_addr;"STAT:CALLP:ENAB
Example Programs
63;:STAT:OPER:ENA
627