macro relocate

macro relocate? name, address*
    name.source? := $
    name.destination? := address
    org name.destination?
    macro name.copy?
        ld  hl, name.source?
        ld  de, name.destination?
        ld  bc, name.length?
        ldir
    end macro
    macro name.run
        name.copy
        jp  name.destination?
    end macro
    macro name.call
        name.copy
        call    name.destination?
    end macro
    macro end?.relocate?
        name.length? := $ - name.destination?
        org name.source? + name.length?
        purge end?.relocate?
    end macro
end macro