lda {m2}
sta {m1}
lda {m2}+1
sta {m1}+1
cpx #0
beq !e+
!:
asl {m1}
rol {m1}+1
dex
bne !-
!e: