StrCopy: ;Copy zero terminated string at HL to DE. ;Destroys AF, DE, HL xor a ;4 $$: cp (hl) ;7 ldi ;16 jr nz,$b ;12 ret ;5
Change jr to jp to save a couple clocks and add a byte.