'demo for RING buffer DMA

SetPin gp9,pio1

'program PIO, pushes data every 2 cycles into the FIFO
PIO assemble 1,".program NES"
PIO assemble 1,".line 0"
PIO assemble 1,".wrap target"
PIO assemble 1,"IN pins,1"
PIO assemble 1,"PUSH block"
PIO assemble 1,".wrap"
PIO assemble 1,".end program"' list" 'a program needs a name

'config PIO
p=Pio(pinctrl 0,0,0,gp9,,,)   'gp9 is base IN
s=Pio(shiftctrl 0,0,0,0,1,0)  'shift in through LSB
e=Pio(execctrl gp0,Pio(.wrap target),Pio(.wrap))
f=133e6    'high speed to achieve DMA end as fast as possible (picomite 1330MHz
CPU)

PIO init machine 1,0,f,p,e,s,0

'ring buffer creation
Dim ring%     'this will become the ring buffer
PIO make ring buffer ring%,4*1024     '4096 bytes

Print "time  DMA running"

'start DMA (DMA starts PIO program
PIO DMA RX 1,0,&H7FFFFFFF,RING%(),ReadyInt,32,1024 '5.0707
'PIO DMA RX 1,0,0,RING%(),,32,1024 '5.0708rc6

'CHECK if DMA still running
Timer =0
Do
 Pause 1000
 Print Int(Timer/1000),MM.Info(pio RX dma)
Loop

End

Sub ReadyInt
 Print "DMA stopped"
 PIO stop 1,0
End Sub

time  DMA running
1       1
2       1
3       1
4       1
5       1
6       1
7       1
8       1
9       1
10      1
11      1
12      1
13      1
14      1
15      1
16      1
17      1
18      1
19      1
20      1
21      1
22      1
23      1
24      1
25      1
26      1
27      1
28      1
29      1
30      1
31      1
32      1
DMA stopped
33      0
34      0
35      0
36      0

 'generate a 50Hz 3 phase test signal to demonstrate the DMA on 6 GPIO pins.
 SetPin GP0,pwm 'CH 0a
 SetPin gp1,pwm 'CH 0b
 SetPin gp2,pwm 'CH 1a
 SetPin gp3,pwm 'CH 1b
 SetPin gp4,pwm 'CH 2a
 SetPin gp5,pwm 'CH 2b
 Fpwm = 50: PW = 100 / 3
 PWM 0, Fpwm, PW, PW - 100, 1, 1
 PWM 1, Fpwm, PW, PW - 100, 1, 1
 PWM 2, Fpwm, PW, PW - 100, 1, 1
 PWM sync 0, 100/3, 200/3
 
 '----------------------------------- LA code PIO --------------------------
 'PIO code to sample GP0..GP6 as elementary logic analyser
 PIO clear 1
 'in this program the PIO reads GP0..GP5 brute force
 'and pushes data into FIFO. The clock speed determines the
 'sampling rate. There are 2 instructions per cycle
 'taking 10000/2 / 50 = 100 samples per 50Hz cycle.
 
 PIO assemble 1,".program push"
 PIO assemble 1,".line 0"
 PIO assemble 1,".wrap target"
 PIO assemble 1,"IN pins,6"  'get 6 bits from GPIO pins (GP0..GP5)
 PIO assemble 1,"PUSH block" 'only push data when FIFO has room
 PIO assemble 1,".wrap"
 PIO assemble 1,".end program list"
 
 'configuration
 f=1e4  'PIO run at 10kHz
 p=Pio(pinctrl 0,0,0,gp0,,,)  'IN base = GP0
 e=Pio(execctrl gp0,PIO(.wrap target),PIO(.wrap)) 'wrap 1 to 0, gp0 is default not used
 s=Pio(shiftctrl 0,0,0,0,0,0)  'shift in through LSB, out is not used
 
 'write the configuration, running 10kHz (data in FIFO 10us after rising edge GP0)
 PIO init machine 1,0,f,p,e,s,0  'start address = 0

 '---------------------------- LA code MMBasic ----------------------------------
 'define memory buffers
 Dim a$(1)=("_","-")'        characters for the printout
 length%=64                  'size of the packed array
 Dim data%(2*length%-1)      'array to put the 32 bit samples FIFO
 dim pkd%
 PIO MAKE RING BUFFER pkd%,length%*8
 
 'let the DMA machine run, and repeat at will
 Do
   PIO DMA RX 1,0,4000*length%,pkd%(),ReadyInt,32,2*length%
   'PIO DMA RX 1,0,0,pkd%(),,32,2*length%
   print "press any key to print buffer and restart sampling"
   do:loop while inkey$=""
   
   PIO stop 1,0
   PIO init machine 1,0,f,p,e,s,0  'start address = 0
   if mm.info(pio rx dma) then pio dma rx off
   Memory unpack pkd%(),data%(),2*length%,32
   
   'Serial output as if logic analyzer traces
   For j=0 To 5
     mask%=2^j
     For i=0 To 2*length%-1
       If i<106 Then Print a$(((data%(i) And mask%)=mask%));
     Next i
     Print : Print
   Next j
   
 Loop
End
 
 '-----------------------------------SUBS MMBasic --------------------------------
Sub ReadyInt
 'stop the PIO and re-init for next run
 PIO stop 1,0
 PIO init machine 1,0,f,p,e,s,0  'start address = 0
End Sub

Saved 2891 bytes
0: E081
1: E000
2: 4006
3: E001
4: 8020
press any key to print buffer and restart sampling
PIO stopped
PIO re-init

'generate a 50Hz 2 phase test signal to demonstrate the DMA on 6 GPIO pins.
SetPin GP0,pwm 'CH 0a
SetPin gp1,pwm 'CH 0b
SetPin gp2,pwm 'CH 1a
SetPin gp3,pwm 'CH 1b
Fpwm = 50: PW = 100 / 3
PWM 0, Fpwm, PW, PW - 100, 1, 1
PWM 1, Fpwm, PW, PW - 100, 1, 1
PWM sync 0, 100/3

'----------------------------------- LA code PIO --------------------------
'PIO code to sample GP0..GP4 as elementary logic analyser
PIO clear 1
'pin GP4,GP5 for diagnostics
SetPin gp4,pio1
SetPin gp5,pio1

'in this program the PIO reads GP0..GP5 brute force
'and pushes data into FIFO. The clock speed determines the
'sampling rate. There are 4 instructions per cycle
'taking 10000/4 / 50 = 50 samples per 50Hz cycle.

PIO assemble 1,".program push"
PIO assemble 1,".line 0"
PIO assemble 1,"set pindirs,1"   'set gp4 output
PIO assemble 1,".wrap target"
PIO assemble 1,"set pins,0"      'set gp4 low
PIO assemble 1,"IN pins,6"       'get 6 bits from GPIO pins (GP0..GP5)
PIO assemble 1,"set pins,1"      'set gp4 high when waiting for push
PIO assemble 1,"push block"      'only push data when FIFO has room
PIO assemble 1,".wrap"
PIO assemble 1,".end program list"

'configuration
f=1e4  'PIO run at 10kHz
p=Pio(pinctrl 0,1,0,gp0,,gp4,)            'IN base = GP0, set base GP4
e=Pio(execctrl gp0,Pio(.wrap target),Pio(.wrap)) 'wrap 1 to 0, gp0 is default
not used
s=Pio(shiftctrl 0,0,0,0,0,0)              'shift in through LSB, out is not us
ed

'write the configuration, running 10kHz (data in FIFO 10us after rising edge G
P0)
PIO init machine 1,0,f,p,e,s,0  'start address = 0

'---------------------------- LA code MMBasic --------------------------------
--
'define memory buffers
Dim a$(1)=("_","-")'        characters for the printout
length%=64                  'size of the packed array
Dim data%(2*length%-1)      'array to put the 32 bit samples FIFO
Dim pkd%
PIO MAKE RING BUFFER pkd%,length%*8

'let the DMA machine run, and repeat at will
Do
  'PIO DMA RX 1,0,4000*length%,pkd%(),ReadyInt,32,2*length%
  PIO DMA RX 1,0,0,pkd%(),,32,2*length%
  Print "press any key to print buffer and restart sampling"
  Do :Loop While Inkey$=""

  PIO stop 1,0
  Print "PIO stopped"
  PIO init machine 1,0,f,p,e,s,0  'start address = 0
  Print "PIO re-init"
  If MM.Info(pio rx dma) Then PIO dma rx off
  Print "RX DMA is OFF"
  Memory unpack pkd%(),data%(),2*length%,32
  Print "ring buffer read"

  'Serial output as if logic analyzer traces
  For j=0 To 3
    mask%=2^j
    For i=0 To 2*length%-1
      If i<106 Then Print a$(((data%(i) And mask%)=mask%));
    Next i
    Print : Print
  Next j

Loop
End

'-----------------------------------SUBS MMBasic -----------------------------
---
Sub ReadyInt
'stop the PIO and re-init for next run
PIO stop 1,0
PIO init machine 1,0,f,p,e,s,0  'start address = 0
End Sub