HP 54501A Programming Reference Manual page 353

370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750
760
770
780
790
800
OUTPUT
707
!
OUTPUT 707
OUTPUT
707
•the
waveform
source
OUTPUT 707
OUTPUT 707
OUTPUT 707
ENTER
707;Preamb(*)
OUTPUT 707;":WAVEFORM:PREAMBLE?"
ENTER
707
USING
"-K";Preamb1e$
OUTPUT 707;":WAVEFORM:OATA?"
ENTER 707 USING
"))i,2A,8D";Header$,
Bytes
Length=Bytes/2
i
ALLOCATE INTEGER
Waveform; 1: Length) ,Wavemax(l:Length)
,Waveniin(l
ENTER 707 USING
"ii',W";Waveform(*)
ENTER 707 USING
"-K,B";End$
i
•The
following lines set the voltage
and
time
tolerance limits
!a percent of
fu11
scale
!
Vo1tto1=5
Timeto1=5
!
Timetics=INT(512-l•Timeto^/100)
Vo1ttics=INT(2*Preamb(lO)*Vo1ttoVlOO)
MAT
Wavemin=Waveform
MAT
Wavemax=Waveform
FOR
Timecntr=l
TO
Length
PRINT
Timecntr
FOR
Time pt=(Tiine
cntr-Time
tics)
TO (Time
cntr+Time
tics)
IF
Timept>0
AND
Timept<=Length
THEN
":OISPLAY:6RATICULE
FRAME"
":SYSTEM:HEADER
OFF"
":WAVEFORM:SOURCE
CHANNELl"
":WAVE FORM:FORMAT
WORD"
":OIGITIZE CHANNELl"
":WAVEFORM:PREAMBLE?"
•Turn headers
off
!Se1ects channel
1
as
'WORD
format for data
'transfers
!0utput
waveform preamble
'to controller
'Output waveform preamble
'to controller
'Output
waveform record
'to controller
Length)
HP
54501A
Programming
!5%
of
full
scale voltage
!5%
of
full
screen width
!Copy
the
waveform
into the
!min template
memory
'Copy
the
waveform
into the
!max template
memory
!This is the time bucket
where
'the center of the
ellipse
!is located
!This counter te11s
you
which
(time bucket the
program is
'currently calculating
!This
loop increments along the
'time axis of the ellipse
Example Programs
B-13