HP 53131A/132A 225 MHz - Page 147

Chapter 3 Programming Your Universal Counter for Remote Operation
Elements of SCPI Commands
Programming Guide 3-79
To Perform Limit Testing (QuickBASIC) (Continued)
ON PEN GOSUB limitfail 'When SRQ happens, go get out of
PEN ON 'limit result
CALL IOPEN(isc&, priority%)
CALL sendhp(":INIT:CONT ON") 'Set counter to run
PRINT "Making Period measurements"
Loophere: 'Wait here until out of limit
IF complete THEN GOTO endprogram 'If already serviced out of limit
GOTO Loophere 'then end program
limitfail:
complete = 1 'Test bit
CALL IOSPOLL(source&, statusbyte) 'Check status byte. Should be 72
PRINT "Status byte = ", statusbyte
CALL sendhp("FETCH:PERIOD?") 'Fetch the out of limits period
CALL IOENTERS(source&, period, 23, actf%) 'Read the out of limit period
PRINT "Out of limits period is ", period 'Print results
RETURN
endprogram:
END
SUB sendhp (code$)
CALL iooutputs(source, code$, LEN(code$))
END SUB