.syntax unified

@ High-throughput block transfer using the FPU register set as a 128-byte
@ buffer.
@
@ This implementation exploits the IT Folding feature of the Cortex-M4.
@ An IT instruction following a 16-bit Thumb instruction, when both are
@ aligned into a 32-bit memory word, takes no additional cycles to issue.
@
@ Arguments:
@  r0  source address
@  r1  destination address
@  r2  number of words to transfer.
.section .time_critical,"ax",%progbits
.balign 4
.global _Z10copy_wordsPKmPmm
.thumb_func
_Z10copy_wordsPKmPmm:
@ Name our registers.
src .req r0
dst .req r1
count .req r2
@ The caller may have been using floating point.
@ Save the callee-save portion of the register file.
vpush {s16 - s31} @ 17
@ 'Warm up' the transfer engine, which wants to operate in units of
@ 128 bytes, by making smaller transfers until count a multiple of
@ Special-case the single word transfer; the macro below won't work.
lsrs.n count, #1 @ 1
itt cs @ 0 (aligned)
vldmcs.32 src!, {s0} @ 2
vstmcs.32 dst!, {s0} @ 2
@ Transfer n+1 words.
.macro XFER n @ 5 + 2*n
lsrs.n count, #1 @ 1
itt cs @ 0 (aligned)
vldmcs.32 src!, {s0 - s\n} @ 1+1+n
vstmcs.32 dst!, {s0 - s\n} @ 1+1+n
.endm
XFER 1 @ 7
XFER 3 @ 11
XFER 7 @ 19
XFER 15 @ 35
@ Handle the case where we've been asked to transfer <32 words.
@ In such a case, count will now be zero, and the Z flag will still
@ be set from the last XFER.
@
@ Force the branch to use a 32-bit instruction to preserve alignment
@ of the loop branch below; this saves a cycle per time that branch
@ is taken.
@
@ Note that the target of this branch (at 1 below) is also aligned,
@ saving a cycle on the rare escape path.
beq.w 1f @ 1 (n.t.)
@ All warmed up, transfer in units of 128 bytes.
0: vldm.32 src!, {s0 - s31} @ 33
vstm.32 dst!, {s0 - s31} @ 33
subs.n count, #1 @ 1
bne.n 0b @ ~3 (taken)
@ Restore FPU state.
1: vpop {s16 - s31} @ 17
bx lr @ 1-3??

 points=10000'0
 dim a(points) as float
 adc open 100000,1
 adc start a(),,,,100,200

MODE 2
FRAMEBUFFER layer
FRAMEBUFFER layer top
FRAMEBUFFER write T
'Box i,MM.VRes\6*2,MM.HRes\4,MM.VRes\3,10,RGB(red),RGB(green)
FRAMEBUFFER write l
'Circle MM.HRes\2,MM.VRes\2,MM.HRes\4,10,1,RGB(blue),RGB(yellow)
'Text MM.HRes\2,MM.VRes\2,"MIDDLE",CM,,3,RGB(CYAN),-1
d=1
i=0
rr=0
x=Sin(Rad(0))*40
y=Cos(Rad(0))*40
Do
FRAMEBUFFER write n
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
Circle Rnd * MM.HRes, Rnd * MM.VRes, Rnd * MM.HRes/7,,, 0, RGB(r,g,b)
Inc rr,3
xl=x
yl=y
x=Sin(Rad(rr))*40
y=-Cos(Rad(rr))*40
FRAMEBUFFER wait
FRAMEBUFFER write l
Circle MM.HRes\2+xl,MM.VRes\2+yl,MM.HRes\6,0,1,0,0
Circle MM.HRes\2+x,MM.VRes\2+y,MM.HRes\6,10,1,RGB(blue),RGB(yellow)
Text MM.HRes\2+x,MM.VRes\2+y,"MIDDLE",CM,,2,RGB(CYAN),-1
FRAMEBUFFER write t
Box i,MM.VRes\6*2,MM.HRes\4,MM.VRes\3,0,0,0
Inc i,d
Box i,MM.VRes\6*2,MM.HRes\4,MM.VRes\3,10,RGB(red),RGB(green)
Text i+MM.HRes/8,MM.VRes\2,"TOP",CM,,3,RGB(magenta),RGB(green)
If i>=MM.HRes/4*3 Then d=-1
If i=0 Then d=1
Loop