Fluke CombiScope PM3370B User Manual page 88

USING THE COMBISCOPE INSTRUMENTS
PROGRAM EXAMPLE:
' *****
'Calibrate the instrument and print the calibration result.
' *****
CALL Send (0, 8, " * CAL?", 1)
CALL IbTMO(0, 0)
response$ = " "
CALL Receive (0, 8, response$, 256)
'Waits for the calibration to finish and reads the result.
'
CALL IbTMO(0, 13)
IF LEFT$(response$, 1) = "0" THEN
PRINT "Calibration okay"
ELSE
PRINT "Calibration not successful"
ENDIF
PROGRAMMING NOTE:
Status bit 0 in the operation status can be used to generate a Service Request
(SRQ) when the calibration is finished, i.e., when bit 0 becomes zero. This gives
you the advantage that the program can do something else until the SRQ is
generated. Therefore, program the following:
ON PEN GOSUB ServReq
PEN ON
→
Send STATus:OPERation:NTRansition 1
'
Sets bit 0 (Calibration) true in the case of negative transition (from 1 to 0).
→
Send STATus:OPERation:ENABle 1
'
Enables bit 0 for being reported in the standard status byte (STB).
→
Send *SRE 128
'
Enables bit 7 (OPER) in Service Request Enable (SRE) register for generation of an SRQ.
→
Send *RST
→
Send *CLS
→
Send CALibration
'Starts the calibration
'Disables the time out mechanism
'Sets time out back to 10 seconds
'0 = okay
'1 = wrong
'Defines "ServReq" routine call after SRQ
'Enables SRQ mechanism
'Resets the instrument
'Clears the status data
'Starts auto calibration
3 - 69