DATA SEGMENT
BUF1 DB 1,2,3,4,5,6,7,8,9,0
COUNT EQU $-BUF1
BUF2 DB 10 DUP(?)
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ES:DATA
START: MOV AX,DATA
MOV DS,AX
MOV ES,AX
LEA SI,BUF1
MOV DI,OFFSET BUF2
MOV CX,COUNT
CALL MOVE
DEC DI
NEXT1:
MOV DX,DI
MOV AH,02H
INT 21H
DEC DI
LOOP NEXT1
MOVE PROC
CLD
NEXT: LODSB
STOSB
LOOP NEXT
RET

MOV AH,4CH
INT 21H
MOVE ENDP
CODE ENDS
END START