Agilent Technologies 33120A

. . . continued
Info1$ = "AM:INT:FUNC SIN" ’ Modulating waveshape is sine wave
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "AM:INT:FREQ 200" ’ Modulating frequency is 200 Hz
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "AM:DEPT 80" ’ Modulating depth is 80%
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "AM:STAT ON" ’ Turn AM modulation on
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
Info1$ = "*SAV 1" ’ Store state in memory location 1
Length1% = LEN(Info1$)
CALL IOOUTPUTS(Dev&, Info1$, Length1%)
IF PCIB.ERR <> NOERR THEN ERROR PCIB.BASERR
’
’ Use the "*RCL 1" command to recall the stored state
’
END
End of Program 2
Chapter 6 Application Programs
Using the Low-Level Commands
254