' Parameters for call to CFunction "scope"
'
' Returns the scaling factor used for the display or a large number if triggering is enabled and has timed out
' A scale factor of 1 means every x-coordinate has a unique value
'
' microsecondsperdivision: specifies the number of microseconds to scale the display for each graticle line
' note: durations less than 100uSec will use scaling. i.e.every other x-coordinate will be missed if scale = 2
' toggle: initialised to 0, used by the CFunction to control its double buffering
' channel1buff: buffer used for channel 1, used as 2 buffers of 800 x 16-bit words
' channel2buff: buffer used for channel 2, used as 2 buffers of 800 x 16-bit words
' y-position for channel 1: specifies the screen position of zero volts on channel 1 in rows from the bottom of the display
' use any negative number to turn off the channel
' y-position for channel 2: specifies the screen position of zero volts on channel 2 in rows from the bottom of the display
' use any negative number to turn off the channel
' trigger for channel 1
' specifies the ADC reading and direction to trigger the trace for channel 1 (-1024 to +1023)
' a zero value means triggering is disabled for this channel
' a positive value triggers when the ADC reading passes the trigger value in a positive going sense
' a negative value triggers when the ADC reading passes the absolute trigger value in a negative going sense
' trigger for channel 2
' specifies the ADC reading and direction to trigger the trace for channel 2 (-1024 to +1023)
' a zero value means triggering is disabled for this channel
' a positive value triggers when the ADC reading passes the trigger value in a positive going sense
' a negative value triggers when the ADC reading passes the absolute trigger value in a negative going sense
' NB: if both trigger levels are set to zero the scope will free run
' millivolts per division for channel 1 based on VDD=3.3V
' millivolts per division for channel 2 based on VDD=3.3V
'

CPU 120' The CFunction will automatically compensate for CPU speed but obviously the higher the speed the better
option explicit
option default none
dim integer i,j=0,toggle,channel1buff(400),channel2buff(400),microsecondsperdivision=50
dim integer y1pos=90, y2pos=30, c1mvperdivision=200, c2mvperdivision=1000, c1trig=400, c2trig=0

setpin 16,ain 'Channel 1
setpin 12,ain 'Channel 2

colour rgb(white),rgb(blue)
cls
font 2
do
i= scope(microsecondsperdivision, toggle, channel1buff(), channel2buff(), y1pos, y2pos, c1trig, c2trig ,c1mvperdivision,c2mvperdivision)
if i>1 and i<1024 and j=0 then
print "Warning reduced resolution x"+str$(i)
j=1
endif
if i>1024 then
PRINT "No trigger"
endif
text 2,2,"T:"+str$(microsecondsperdivision)+"us/div"
if y1pos>=0 then text 2,24,"C1:"+str$(c1mvperdivision)+"mv/div"
if y2pos>=0 then text 2,46,"C2:"+str$(c2mvperdivision)+"mv/div"
loop