Agilent Technologies 75000 SERIES B, E1301B Chars$= 1234567890123456789012345678901234567890

Example: Storing and Retrieving data using DOWNload and UPLoad.

define variables for DOWNload and UPLoad

90 DIM Chars$[64],Chars_back$[80]

100INTEGER Words(1:16),Bytes(1:32),Words_back(1:16), Bytes_back(1:32)

create string of characters

110Chars$= "1234567890123456789012345678901234567890 123456789012345678901234"

create array of 16 bit data words

120 FOR I= 1 TO 16

130Words(I)= 32700+ I

140NEXT I

create array of 8 bit data bytes

150FOR I= 1 TO 32

160Bytes(I)= 63+ I

170NEXT I

DOWNload 16 words to NRAM segment

180OUTPUT 70900 USING """DIAG:DOWN "",8D,"",# 232"",16(W)"; Addr+ 96,Words(*)

DOWNload 32 bytes to NRAM segment

190OUTPUT 70900 USING """DIAG:DOWN "",8D,"",# 232"",32(B)"; Addr+ 64,Bytes(*)

Download 64 characters to NRAM segment

200OUTPUT 70900 USING """DIAG:DOWN "",8D,"",# 264"",64A"; Addr,Chars$

UPLoad 64 characters from NRAM segment

210OUTPUT 70900 USING """DIAG:UPL? "",8D,"",64""";Addr

220ENTER 70900 USING "4X,64A";Chars_back$

230PRINT TAB(5);Chars_back$

UPLoad 32 data bytes from NRAM segment

240OUTPUT 70900 USING """DIAG:UPL? "",8D,"",32""";Addr+ 64

250ENTER 70900 USING "4X,32(B)";Bytes_back(*)

260PRINT Bytes_back(*)

UPLoad 16 data words from NRAM segment

270OUTPUT 70900 USING """DIAG:UPL? "",8D,"",32""";Addr+ 96

280ENTER 70900 USING "4X,16(W)";Words_back(*)

290PRINT Words_back(*)

300END

4-10 Using the Mainframe