Read/W
rite
LO
Memory
10!
READ_LO
20
!
30
!
This
program
reads
the
HP
70900
USER
memory
area
and
40
!
writes
this
data
to
a
user-specified
storage
file.
50
!
It
is
intended
to
be
used
to
store
previously
loaded
60
!
DLPs
prior
to
allocating
the
USER
memory
for
another
70
!
purpose.
Its
companion
program,
WRITE_LO,
is
used
80
!
to
restore
the
data
read
by
this
program.
90
!
100
!
This
program
will
read
data
blocks
up
to
32Kbytes
in
110
!
length
until
all
USER
memory
has
been
read.
This
is
120
!
to
prevent
a
BASIC
run-time
error
which
occurs
when
130
!
a
string
is
made
>32Kbytes
long.
140
!
150
!
The
operator
should
edit
lines
270
and
280
if
they
do
160
!
not
accurately
reflect
his
configuration.
170
!
180
!
NOTE:
It
is
not
possible
to
restore
USER
memory
from
190
!
one
version
of
HP
70900
firmware
into
another
200
!
version
of
firmware
using
this
program.
210
!
220
!
230
INTEGER
Separator,Data_length
!
DECLARE
INTEGER
VARIABLES
240
DIM
Filename$[160]
!
DIMENSION
STRING
FOR
FILE
250
!
260
Separator=0
270
Hpib_addr=718
!
THE
HP
70900
HP-IB
ADDRESS
280
Filename$="U_STATE"
!
THE
NAME
AND
LOCATION
OF
THE
290
!
STORAGE
FILE
300
!
310
ASSIGN
@Lo
TO
Hpib_addr
!
OPEN
I/O
PATH
TO
70900
320
!
330
ON
ERROR
GOSUB
Kill_file
!
WE
NEED
TO
RE-CREATE
IT
EACH
340
CREATE
BDAT
Filename$,256
!
TIME
WE
USE
IT
350
OFF
ERROR
360
ASSIGN
@Disc
TO
Filename$
!
OPEN
I/O
PATH
TO
STORAGE
FILE
370
!
380
OUTPUT
@Lo;"USTATE?;"
!
SEND
USTATE
QUERY
TO
70900
390
!
400
REPEAT
!
UNTIL
SEPARATOR
NOT
VALID
410
ENTER
@Lo
USING
"#,2X,W";Data_length!
READ
DATA
LENGTH
OF
STATE
BLOCK
420
ALLOCATE
U_state$[Data_length]
!
DIMENSION
TO
CORRECT
LENGTH
430
Format$="%,"&VAL$(Data_length)&"A"
!
SPECIFY
READ
FORMAT
440
ENTER
@Lo
USING
Format$;U_state$
!
READ
THE
STATE
STRING
450
OUTPUT
@Disc;Data_length,U_state$
!
WRITE
LENGTH
&
STRING
TO
FILE
460
DEALLOCATE
U_state$
!
KILL
IT
FOR
NOW
470
ENTER
@Lo
USING
"%,B";Separator
!
CHECK
FOR
MORE
DATA
480
UNTIL
Separator<>44
!
CHR$(44)
IS
COMMA,
THE
VALID
490
!
SEPARATOR
500
ASSIGN
@Disc
TO
*
!
CLOSE
STORAGE
FILE
510
STOP
520
!
530
Kill_file:
!
THIS
ROUTINE
WILL
DESTROY
THE
PREVIOUS
U_STATE
FILE
5-18
T
roubleshooting
Summary of Contents for 70000 series
Page 42: ...Auxiliary Measurement Indicators Figure 1 8 Auxiliary Measurement Indicators Overview 1 19 ...
Page 67: ......
Page 95: ......
Page 346: ...Figure A 2 Simpli ed Lightwave Signal Analyzer Block Diagram Theory of Operation A 3 ...
Page 395: ......
Page 447: ......
