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