DATA	SEGMENT
BUF1    DB 20,21,22,23,24,25,26,27,28,29,30,31
BUF2    DB 12 DUP(0)
AB      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 BL,'1'
        SUB BL,1
        LEA SI,BUF1
        LEA DI,BUF2
        MOV CX,12
LP:     MOV AL,[SI]
        MOV [DI],AL
        MOV DL,[DI]
        MOV AL,DL
        MOV AH,0
        DIV AB
        MOV DATA1,AL
        MOV DATA2,AH
        MOV DL,DATA1
        ADD DL,BL
        MOV AH,02
        INT 21H
        MOV DL,DATA2
        ADD DL,BL
        MOV AH,02
        INT 21H
        MOV DL,'_'
        MOV AH,02
        INT 21H
        INC DI
        INC SI
        DEC CX
        JNE LP
EXIT:   MOV AH,4CH
	INT 21H
CODE    ENDS
	END BEGIN