(import-macros {:sss ! : compile} :ssc.macros)

#(compile $1
  (fn memcpy ((long src) (long dst) count)
    (let (bank (| (hiword dst) (byteswap (hiword src))))
      (asm (lda bank)
           (sta [{:abs #(+ ($1:lookup-addr :inst) 1)}])
           (lda src) (tax)
           (lda dst) (tay)
           (lda count)
           (dec)
           (phb)
         inst
           (mvn 0 0)
           (plb))))
 )