Block Transfer

;PROGRAM TO MOVE A BLOCK OF WORDS FROM OFFSET 2000H TO OFFSET 3000H,WHOSE BLOCK SIZE IS 0FH

data segment

org 2000h

source db 60h,61h,38h,'?','$',98,67,83,56h

len equ $-source

org 3000h

dest db 100 dup(0)

data ends

code segment

assume cs:code, ds:data

start:

mov ax,data

mov ds,ax

mov si,offset source

mov di,offset dest

mov cx,len

again:

mov al,[si]

mov [di],al

inc si

inc di

dec cx

jnz again

int 3

code ends

end start