   0 ;; self
   0 ;;  movemem n words from &a to &b
   0 ;;  goto &b
   0 ;;  27 Aug 2003
   0 
   0 .s
   0 ads_a 0
   0 ads_b 100
   0 n     10
   0 
   0 .a 0
   0 .c
   0 ;; let r1 = &a, r2 = &b, r3 = tmp, r4 = n
   0 
   0 :mvmem	ld r1 #ads_a
   1 	ld r2 #ads_b
   2 	ld r4 #n
   3 :loop	ld r3 @0 r1
   4 	st @0 r2 r3
   5 	add r1 r1 #1
   6 	add r2 r2 #1
   7 	sub r4 r4 #1
   8 	jmp eq exit  ;; jump if zero
   9 	jmp always loop
  10 :exit	trap stop r0
  11 .e
