Agilent Technologies 87130A manual Restore Memory, Readmem, Remote Operation, Example Programs

Models: 87130A

1 140
Download 140 pages 20.39 Kb
Page 113
Image 113
Restore Memory

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]

30DIM Respond(31),Sense(7,31),Unused(7,31),Pfac(7,31), Pfao(7,31),Widt(7,31),Delay(7,31)

40DIM Serialnumber$[10],Modelnumber$[6]

50DIM Gpnames$(15)[12],Gptitles$(15)[32]

60DIM Pathnames$(255)[12},Pathtitles$(255)[32], Pathval(255)

70DIM Groupdata$(15,255)[12],Groupauto(15)

80COM @File,@Sw

90MAT Pathnames$= (““)

100

MAT Gpnames$= (““)

!

Group

names

110

MAT Pathtitles$= (““)

 

 

 

120

MAT Gptitles$= (““)

!

Group

titles

130MAT Groupdata$= (““)

140ASSIGN @File TO “SWDATA”

150ASSIGN @Sw TO 709

160OUTPUT @Sw;”MEM:DELETE;”

170OUTPUT @Sw;”ROUT:VERIFY:OFF:ALL;”

180Getandsend_bmap(“ROUT:VERIFY:ON”)

190OUTPUT @Sw;”ROUT:DRIVE:OFF:ALL;”

200Getandsend_bmap(“ROUT:DRIVE:ON”)

210Getandsend_bmap(“ROUT:PFA:CLOS”)

220Getandsend_bmap(“ROUT:PFA:OPEN”)

230ENTER @File;Serialnumber$

240OUTPUT @Sw;”DIAG:SER “““&Serialnumber$&”””;”

250ENTER @File;Modelnumber$

260OUTPUT @Sw;”DIAG:MOD “““&Modelnumber$&”””;”

270Getandcalc_bmap(“ROUT:WIDT”)

280Getandcalc_bmap(“ROUT:DELAY”)

290ENTER @File;Gpnames$(*)

300ENTER @File;Groupdata$(*)

310ENTER @File;Groupauto(*)

320ENTER @File;Gptitles$(*)

Agilent 87130A Operating and Service Manual 4-71

Page 113
Image 113
Agilent Technologies 87130A manual Restore Memory, Readmem, Remote Operation, Example Programs