Example: Storing and Retrieving data using DOWNload and UPLoad.
define variables for DOWNload and UPLoad
90 DIM Chars$[64],Chars_back$[80]
100 INTEGER Words(1:16),Bytes(1:32),Words_back(1:16),
Bytes_back(1:32)
create string of characters
110 Chars$= "1234567890123456789012345678901234567890
123456789012345678901234"
create array of 16 bit data words
120 FOR I= 1 TO 16
130 Words(I)= 32700+ I
140 NEXT I
create array of 8 bit data bytes
150 FOR I= 1 TO 32
160 Bytes(I)= 63+ I
170 NEXT I
DOWNload 16 words to NRAM segment
180 OUTPUT 70900 USING """DIAG:DOWN "",8D,"",# 232"",16(W)";
Addr+ 96,Words(*)
DOWNload 32 bytes to NRAM segment
190 OUTPUT 70900 USING """DIAG:DOWN "",8D,"",# 232"",32(B)";
Addr+ 64,Bytes(*)
Download 64 characters to NRAM segment
200 OUTPUT 70900 USING """DIAG:DOWN "",8D,"",# 264"",64A";
Addr,Chars$
UPLoad 64 characters from NRAM segment
210 OUTPUT 70900 USING """DIAG:UPL? "",8D,"",64""";Addr
220 ENTER 70900 USING "4X,64A";Chars_back$
230 PRINT TAB(5);Chars_back$
UPLoad 32 data bytes from NRAM segment
240 OUTPUT 70900 USING """DIAG:UPL? "",8D,"",32""";Addr+ 64
250 ENTER 70900 USING "4X,32(B)";Bytes_back(*)
260 PRINT Bytes_back(*)
UPLoad 16 data words from NRAM segment
270 OUTPUT 70900 USING """DIAG:UPL? "",8D,"",32""";Addr+ 96
280 ENTER 70900 USING "4X,16(W)";Words_back(* )
290 PRINT Words_back(*)
300 END
4-10 Using the Mainframe
