Block  equ   4000h

       mov   dptr, #Block  ; 起始地址
       mov   r0, #0        ; 清 256 字節
       clr   a
Loop:
       movx  @dptr, a
       inc   dptr          ; 指向下一個地址
       djnz  r0, Loop      ; 記數減一

       ljmp  $

       end