Agilent Technologies 87130A Switch User Manual


 
4-68 Agilent 87130A Operating and Service Manual
Remote Operation
Example Programs
Example Programs
The following programs written in Rocky Mountain Basic provide sample
programs that may be helpful in programming the 87130A.
Save Memory
In order to use the following program, you must first create a file named
SWDATA. The following program can be used to read configuration data out of
the EEROM so that it can be replaced.
10 ! READMEM program. Takes data from 87130A and outputs
to a file
20 DIM A$[32767]
30 DIM Serialnumber$[10],Modelnumber$[6]
40 DIM Groupnames$(15)[12],Grouptitles$(15)[32]
50 DIM Pathnames$(255)[12],Pathtitles$(255)[32],
Pathval(255)
60 DIM Groupdata$(15,255)[12],Groupauto(15)
70 COM @Sw,@File
80 MAT Pathnames$= (““)
90 MAT Groupnames$= (““)
100 MAT Pathtitles$= (““)
110 MAT Grouptitles$= (““)
120 MAT Groupdata$= (““)
130 ASSIGN @File TO SWDATA
140 ASSIGN @Sw TO 709
150 Read_bitmap(ROUT:VERIFY:ON)
160 Read_bitmap(ROUT:DRIVE:ON)
170 Read_bitmap(ROUT:PFA:CLOS)
180 Read_bitmap(ROUT:PFA:OPEN)
190 OUTPUT @Sw;DIAG:SER?
200 ENTER @Sw;Serialnumber$
210 OUTPUT @File;Serialnumber$
220 OUTPUT @Sw;DIAG:MOD?
230 ENTER @Sw;Modelnumber$
240 OUTPUT @File;Modelnumber$
250 Read_bitmap(ROUT:WIDT)
260 Read_bitmap(ROUT:DELAY)
270 OUTPUT @Sw;ROUTE:GROUP:CATALOG?