ありがとう とりあえずやりたかった
グローバル空間の配列変数をモジュール空間の配列変数にぶちこむってのを何とか出来た

dim a,5,1
a(0,0) = 0,1,2,3,4
a_cnt = 0
*main
mes "a " +a(a_cnt,0) : wait 30
tes a
a_cnt+1 : if a_cnt=5 : a_cnt=0
goto *main
stop
#module
#deffunc tes array p1
dim b,5,1
memcpy b,p1,20
mes "b " +b(a_cnt,0)
a_cnt+1 : if a_cnt=5 : a_cnt=0
return
#global

たぶん色々間違ってるだろうけど意図したとおりに動いてるっぽいので、いいやｗ