DATA	SEGMENT
BUF1    DB 0,1,2,3,4,5,6,7,8,9
BUF2    DB 10 DUP(0)
BUF3    DB 10 DUP(?)
BUF4    DB 10 DUP(?)
AB      DB ?
DATA    ENDS
STACK   SEGMENT STACK 'STACK'
        DB 200 DUP(?)
STACK   ENDS
CODE    SEGMENT
        ASSUME CS:CODE,DS:DATA,SS:STACK
BEGIN:	MOV AX,DATA
	MOV DS,AX
        MOV AB,'1'
        SUB AB,1
        LEA SI,BUF1
        LEA DI,BUF2
        LEA BX,BUF3
        LEA BP,BUF4
        MOV CX,10
LP:     MOV AL,[SI]
        MOV [DI],AL
        INC AL
        MOV [BX],AL
        ADD AL,3
        MOV DS:[BP],AL
        MOV DL,[DI]
        ADD DL,AB
        MOV AH,02
        INT 21H
        MOV DL,','
        MOV AH,02
        INT 21H
        MOV DL,BL
        ADD DL,AB
        MOV AH,02
        INT 21H
        MOV DL,','
        MOV AH,02
        INT 21H
        MOV DL,DS:[BP]
        ADD DL,AB
        MOV AH,02
        INT 21H
        MOV DL,';'
        MOV AH,02
        INT 21H
        INC SI
        INC DI
        INC BP
        INC BX
        DEC CX
        JNZ LP
EXIT:   MOV AH,4CH
	INT 21H
CODE    ENDS
	END BEGIN