Sub init_memory

 'define data buffers
 'The logic analyzer captures samples% samples into the packed%() array'
 'The DMA buffer has 64bit width, packed with 32bit FIFO (2 per cell) = length%
 'The size of the ring buffer is specified in bytes, so size is 8 * length%
 'the samples will be unpacked into unpacked%() at 32 bits per cell (=2*lenth%)

CLS
Print MM.Info(heap)

 'MODE 1
 FRAMEBUFFER create          'define framebuffer after MODE

Print MM.Info(heap)

 length% = samples% / 2             'packed buffer = 64bit, data buffer 32bit
 Dim packed%                        'name of array to become circular buffer
 PIO MAKE RING BUFFER packed%,8*length%

Print MM.Info(heap)

 Dim unpacked%(samples%-1)          'array to put the 32 bit samples (base 0)

Print MM.Info(heap)

 Dim pnt%(100),deco$(100) length 10 'buffers for I2C decoding

End Sub

101888 --- clean heap
63488 --- framebuffer added 38k
47104 --- ring buffer added 16k
[558] Dim unpacked%(samples-1)
Error : Not Enough Heap memory

GUI interrupt myint
Do
Loop
Sub myint
Print Touch(x),Touch(y),Touch(x2),Touch(y2)
End Sub