.model small
.data
    msg db "KIST$"
.code
    main proc
        mov ax,@data
        mov ds,ax
        mov si,offset msg
    again:cmp [si],'$'
        je last
        mov dl,[si]
        mov ah,2
        int 21h
        mov dl,13
        mov ah,2
        int 21h
        mov dl,10
        mov ah,2
        int 21h
        inc si
        jmp again
    last:mov ah,4ch
        int 21h
    main endp
end