Grab:   
        MOV  A,P1
        MOVX @DPTR,A
        INC  DPTR
        MOV  A,DPH
        CJNE A,#HIGH(MEM_END),Grab