$rom_sources/base.ual
@{ size }zero_alloc
   (size) DUP NFH SWP OVR SWP STZ
JCC

@{ addr addr size }copy :LEN : :DST : :SRC :
   :LEN -- :
   @STORE_LOOP
       SRC[LEN] *DST[LEN] STA
   :LEN -- : -1 #STORE_LOOP JNE
JCC