Keithley SourceMeter 2790 Reference Manual page 316

Model 2790 SourceMeter
' $INCLUDE: 'ieeeqb.bi'
CLS
CONST addr = 16
'
' Init GPIB.
'
CALL initialize(21, 0)
CALL transmit("unt unl listen " + STR$(addr) + " sdc unl", status%)' Send Device Clear.
CALL send(addr, "*rst", status%)
CALL send(addr, "trac:cle", status%)
CALL send(addr, "trig:coun inf", status%)
CALL send(addr, "trac:poin 2000", status%)
CALL send(addr, "trac:not 1750", status%)
CALL send(addr, "trac:feed:cont next", status%) ' Enable buffer.
CALL send(addr, "stat:pres", status%)
CALL send(addr, "*cls", status%)
CALL send(addr, "stat:meas:enab 13120", status%) ' Enable buffer bits; B6, B8, B9, B12, B13.
CALL send(addr, "*ese 0", status%)
CALL send(addr, "*sre 1", status%)
CALL send(addr, "init", status%)
N = 0
WaitSRQ:
WHILE srq = 0: WEND
CALL spoll(addr, poll%, status%)
CALL send(addr, "*cls", status%)
N = N + 1
IF N = 1 THEN GOTO QtrFull
IF N = 2 THEN GOTO HalfFull
IF N = 3 THEN GOTO ThreeQtrFull
IF N = 4 THEN GOTO 1750thReading
PRINT "BUFFER FULL"
END
QtrFull: PRINT "Buffer
GOTO WaitSRQ
HalfFull: PRINT "Buffer
GOTO WaitSRQ
ThreeQtrFull: PRINT "Buffer
GOTO WaitSRQ
1750thReading: PRINT "1750th reading stored"
GOTO WaitSRQ
®
Switch System Reference Manual
Full"
Full"
Full"
' Clear PC output screen.
' Set instrument address.
' Restore *rst defaults.
' Clear buffer.
' Infinite trigger count.
' Set buffer size to 2000.
' Set Trace Notify bit on 1750th reading.
' Reset measure enable bits.
' Clear all event registers.
' Disable standard events.
' Enable measurement events.
' Start measure/store process.
' Initialize quarter buffer counter.
' Wait for GPIB SRQ line to go true.
' Clear rqs/mss bit in status byte
register.
' Clear all event registers.
' Increment buffer counter.
' Branch when buffer
' Branch when buffer
' Branch when buffer
' Branch when 1750th reading stored.
' Display buffer full message.
' Display full message.
' Return to WaitSRQ.
' Display full message.
' Return to WaitSRQ.
' Display full message.
' Return to WaitSRQ.
' Display 1750th reading message.
' Return to WaitSRQ.
11-11
full.
full.
full.