STACK    SEGMENT STACK
         DW 64 DUP(?)
STACK    ENDS
CODE     SEGMENT
         ASSUME CS:CODE
START:   MOV AX,2000H
         MOV DS,AX
         MOV CX,000AH
         MOV SI,3000H
         MOV DI,4000H
A1:      MOV AL,[SI]
         MOV [DI],AL
         INC SI
         INC DI
         DEC CX
         JNZ A1
         MOV AX,014FH
         INT 10H
         MOV AX,014BH
         INT 10H
         INT 20H
CODE     ENDS
END      START