Agilent Technologies 33120A - Page 264

. . . continued
250 !
260 ! Set up function generator to output FM waveform
270 !
280 OUTPUT @Fgen;"OUTP:LOAD 50" ! Output termination is 50 ohms
290 OUTPUT @Fgen;"APPL:SIN 5000,5" ! Carrier waveshape is sine function,
300 ! output frequency is 5 kHz @ 5 Vpp
310 OUTPUT @Fgen;"FM:INT:FUNC SIN" ! Modulating waveshape is sine wave
320 OUTPUT @Fgen;"FM:INT:FREQ 500" ! Modulating frequency is 500 Hz
330 OUTPUT @Fgen;"FM:DEV 250" ! Frequency deviation is 250 Hz
340 OUTPUT @Fgen;"FM:STAT ON" ! Turn FM modulation on
350 !
360 OUTPUT @Fgen;"*OPC?" ! Send "1" to output buffer when complete
370 ENTER @Fgen;Value ! Enter value
380 !
390 OFF INTR Hpib ! Disable interrupts
400 END
410 !
420 SUB Err_msg ! Error subprogram is called if errors occurred
430 DIM Message$[80] ! Dimension array for error
440 INTEGER Code ! Define integer variable
450 COM @Fgen ! Use same address as in main program
460 B=SPOLL(@Fgen) ! Use Serial Poll to read Status Byte
470 ! (all bits are cleared too)
480 !
490 ! Loop until error queue is cleared
500 !
510 REPEAT
520 OUTPUT @Fgen;"SYST:ERR?"
530 ENTER @Fgen;Code,Message$
540 PRINT Code,Message$
550 UNTIL Code=0
560 STOP
570 SUBEND
Chapter 6 Application Programs
Using the Status Registers
262