mov   a,r4        ;now determine copy direction 
   cjne  a,dph,BlkMovX2
   mov   a,r5 
   cjne  a,dpl,BlkMovX2
BlkMovX2:
   jnc   BlkMovDwn
BlkMovUp:           ;----------- LDIR -------------
   mov   P2,r4       ;prepare destination address for movx @r0,a
;   mov   r0,ar5
   mov   r0,a         ;!trick - a already contains r5