DATA	SEGMENT
AB      DB ?
CD      DB 10
DATA1   DB ?
DATA2   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
        MOV AL,1
        MOV BL,0
LP:     ADD BL,AL
        INC AL
        CMP AL,10
        JE  NEXT
        LOOP LP
NEXT:   MOV DL,BL
        MOV AL,DL
        MOV AH,0
        DIV CD
        MOV DATA1,AL
        MOV DATA2,AH
        MOV DL,DATA1
        ADD DL,AB
        MOV AH,02
        INT 21H
        MOV DL,DATA2
        ADD DL,AB
        MOV AH,02
        INT 21H
        MOV AH,4CH
	INT 21H
CODE    ENDS
	END BEGIN