$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