HP 8920B - Page 635

635
Chapter 8, Programming The Call Processing Subsystem
Example Programs
Polling Example Program
10 OPTION BASE 1
20 COM /Io_addresses/ INTEGER Inst_addr,Bus_addr
30 COM /Prog_control/ INTEGER Std_event,Wait_time
40 !
50 Bus_addr=7 ! Set to 8 when running on 8920
60 Inst_addr=714 ! Set to 814 when running on 8920
70 Wait_time=.5 ! Set to minimum of .5 when running on an 8920
80 ABORT Bus_addr
90 CLEAR SCREEN
100 PRINTER IS CRT
110 Cnfg_stat_reg
120 !
130 Start_test:!
140 Cond_test_set
150 OUTPUT Inst_addr;"DISP ACNT"
160 IF NOT FNCnfg_base_sta(333,0,212,231,5970, -47,"AMPS") THEN CALL Print_error
180 IF FNSet_state("Register") THEN
190 Read_rcdd_data("1234")! Pass the numbers of the RCDD fields to be read.
200 ELSE
210 Print_error
220 END IF
230 IF NOT FNSet_state("Page") THEN CALL Print_error
240 Meas_carrier
250 IF FNOrder("Power",7) THEN
260 Read_rcdd_data("1")
270 ELSE
280 Print_error
290 END IF
300 OUTPUT Inst_addr;"CALLP:VCH 211;VMAC 4;SAT ’5970HZ’"
310 IF NOT FNSet_state("Handoff") THEN CALL Print_error
320 Meas_sinad
330 IF NOT FNOrder("Mainten",0) THEN CALL Print_error !0 = dummy variable
340 IF FNOrder("Alert",0) THEN ! 0 = dummy variable to satisfy parm list
350 INPUT "Did the phone ALERT? (Y/N)",Yes_no$
360 IF Yes_no$[1,1]="N" OR Yes_no$[1,1]="n" THEN
370 PRINT "Phone failed to ALERT."
380 STOP
390 END IF
400 ELSE
410 Print_error
420 END IF
430 IF NOT FNSet_state("Release") THEN CALL Print_error
440 BEEP
450 DISP "Originate a call from the mobile station."
460 IF FNSet_state("Originate") THEN
470 DISP ""
480 Read_rcdd_data("12345")
490 ELSE