Filter
Top Products
Agilent 87130A Operating and Service Manual 4-71
Remote Operation
Example Programs
Restore Memory
The following program can be used to restore the EEROM state read out by
READMEM:
10 ! WRITEMEM program. Takes a file written by READMEM and
sends it to the 87130A.
20 DIM A$[32767]
30 DIM Respond(31),Sense(7,31),Unused(7,31),Pfac(7,31),
Pfao(7,31),Widt(7,31),Delay(7,31)
40 DIM Serialnumber$[10],Modelnumber$[6]
50 DIM Gpnames$(15)[12],Gptitles$(15)[32]
60 DIM Pathnames$(255)[12},Pathtitles$(255)[32],
Pathval(255)
70 DIM Groupdata$(15,255)[12],Groupauto(15)
80 COM @File,@Sw
90 MAT Pathnames$= (““)
100 MAT Gpnames$= (““) ! Group names
110 MAT Pathtitles$= (““)
120 MAT Gptitles$= (““) ! Group titles
130 MAT Groupdata$= (““)
140 ASSIGN @File TO “SWDATA”
150 ASSIGN @Sw TO 709
160 OUTPUT @Sw;”MEM:DELETE;”
170 OUTPUT @Sw;”ROUT:VERIFY:OFF:ALL;”
180 Getandsend_bmap(“ROUT:VERIFY:ON”)
190 OUTPUT @Sw;”ROUT:DRIVE:OFF:ALL;”
200 Getandsend_bmap(“ROUT:DRIVE:ON”)
210 Getandsend_bmap(“ROUT:PFA:CLOS”)
220 Getandsend_bmap(“ROUT:PFA:OPEN”)
230 ENTER @File;Serialnumber$
240 OUTPUT @Sw;”DIAG:SER “““&Serialnumber$&”””;”
250 ENTER @File;Modelnumber$
260 OUTPUT @Sw;”DIAG:MOD “““&Modelnumber$&”””;”
270 Getandcalc_bmap(“ROUT:WIDT”)
280 Getandcalc_bmap(“ROUT:DELAY”)
290 ENTER @File;Gpnames$(*)
300 ENTER @File;Groupdata$(*)
310 ENTER @File;Groupauto(*)
320 ENTER @File;Gptitles$(*)