AND copystring(from, to) BE
  FOR i = 0 TO from%0 DO to%i := from%i

// Entry to:   copystring
 480: L6:
 480:     L0		| Load 0 into A. B := A (from)
 481:   GBYT		| Fetch byte from @B into A (str length)
 482:    SP6		| Store in #6
 483:     L0		| Load 0 into A
 484:    SP5		| Store in #5 (i)
 485:    JLS  L53	| Jump if B (length) < A
 487: L52:
 487:    LP3		| Load #3 (from) into A
 488:    LP5		| Load #5 (i) (B is now from)
 489:   GBYT		| Fetch byte from @B into A
 490:    ATC		| regC := regA
 491:    LP4		| Load #4 into A (to)
 492:    LP5		| Load #5 into A (i) (B := A)
 493:   PBYT		| B%A := C
 494:     L1		| Load 1 into regA   [ i := i + 1 ]
 495:    AP5		| Add #5 (i)
 496:    SP5		| Store #5 (i)
 497:    LP6		| Load #6
 498:    JLE  L52	| if i <= len (#6)
 500: L53:
 500:    RTN