Keithley 2002 User Manual page 336

Program (bufclint.bas) (cont.)
cmd$ = ":trig:tcon:asyn:ilin 2; olin 1"
GOSUB send2002
cmd$ = "trig:tcon:dir sour"
GOSUB send2002
cmd$ = ":arm:lay1:coun 1"
GOSUB send2002
cmd$ = ":arm:lay2:coun 1"
GOSUB send2002
cmd$ = ":trig:coun 35"
GOSUB send2002
cmd$ = ":arm:lay2:del 0"
GOSUB send2002
cmd$ = ":trig:del 0"
GOSUB send2002
' Initialize 7001.
cmd$ = ":rout:open all"
GOSUB send7001
cmd$ = ":rout:scan (@1!1:1!5)"
GOSUB send7001
cmd$ = ":arm:lay1:sour imm"
GOSUB send7001
cmd$ = ":arm:lay2:sour imm"
GOSUB send7001
cmd$ = ":trig:sour tlin"
GOSUB send7001
cmd$ = ":trig:tcon:asyn:ilin 1; olin 2"
GOSUB send7001
cmd$ = ":arm:lay1:coun 1"
GOSUB send7001
cmd$ = ":arm:lay2:coun 1"
GOSUB send7001
cmd$ = ":trig:coun 35"
GOSUB send7001
cmd$ = ":arm:lay2:del 0"
GOSUB send7001
cmd$ = ":trig:del 0"
GOSUB send7001
cmd$ = ":trig:tcon:dir sour"
GOSUB send7001
' Arm buffer.
cmd$ = "*SRE 1"
GOSUB send2002
cmd$ = "stat:meas:ptr 32767; ntr 0; enab 512"
GOSUB send2002
cmd$ = ":trac:feed calc"
GOSUB send2002
cmd$ = ":trac:poin 35"
GOSUB send2002
cmd$ = ":trac:egr full"
GOSUB send2002
cmd$ = ":form:data sre"
GOSUB send2002
' Select Triglink lines; input = line
' #2, output = line #1
' Enable source bypass for trigger
' layer
' Set arm layer 1 count to 1
' Set arm layer 2 count to 1
' Set trigger layer count to 35
' Set arm layer 2 delay to zero
' Set trigger layer delay to zero
' Open all channels
' Scan list = chans 1!1 thru 1!5
' Set arm layer 1 source to Immediate
' Set arm layer 2 source to Immediate
' Set trigger layer source to Triglink
' Select Triglink lines; input = line
' #1, output = line #2
' Set arm layer 1 count to 1
' Set arm layer 2 count to 1
' Set trigger layer count to 35
' Set arm layer 2 delay to zero
' Set trigger layer delay to zero
' Enable source bypass of trigger
' layer
' Set MSB bit of SRE register
' Set all PTR bits and clear all NTR
' bits for measurement events
' Set Buffer Full bit of Measurement
' Event Enable Register
' Select Calculate as reading source
' Set buffer size to 35 points
' Select Full element group
' Select IEEE754 single precision data
' format
Example Programs
G-19