Agilent Technologies A.18.00 User Manual

S:\agilent\8920\8920b\PRGGUIDE\BOOK\CHAPTERS\callproc.fb

Chapter 8, Programming the Call Processing Subsystem

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