ATA    SEGMENT
A       DB      'ksed'
DATA    ENDS
STACK   SEGMENT PARA STACK 'STACK'
        DB      20 DUP(?)
STACK   ENDS
CODE    SEGMENT
        ASSUME  CS:CODE,DS:DATA,SS:STACK
START:  MOV     AX,DATA
        MOV     DS,AX
        MOV     BX,3
LP:     MOV     DL,A+[BX]
        MOV     AH,2
        INT     21H
        DEC     BX
        JE      ABC
        LOOP    LP
ABC:    MOV     DL,A+[BX]
        MOV     AH,2
        INT     21H
        MOV     AH,4CH
        INT     21H
CODE    ENDS
        END     START