;; self
;;  movemem n words from &a to &b
;;  goto &b
;;  27 Aug 2003

.s
ads_a 0
ads_b 100
n     11

.a 0
.c
;; let r1 = &a, r2 = &b, r3 = tmp, r4 = n

:mvmem	ld r1 #ads_a
	ld r2 #ads_b
	ld r4 #n
:loop	ld r3 @0 r1
	st @0 r2 r3
	add r1 r1 #1
	add r2 r2 #1
	sub r4 r4 #1
	jmp eq exit  ;; jump if zero
	jmp always loop
:exit	trap stop r0
.e