71e

        CR EQU 0DH
        LF EQU 0AH

;--------------------------------------------------------------------
CSEG    SEGMENT
        ASSUME CS:CSEG,DS:CSEG
        ORG 100H
start:  jmp begin
;--------------------------------------------------------------------
Msg     db 'Skriv in teckenstr„ng'
        db ' om h”gst 30 tecken.'
        db ' Avsluta med dollartecken ',cr,lf,'$'

;====================================================================
Buffer  db 32
        db 32 dup ('X')
;====================================================================

Cls     PROC NEAR

        mov ah,0fh
        int 10h
        mov ah,00h
        int 10h
        ret

Cls     ENDP
;---------------------------------------------------------------------

Skriv_msg PROC NEAR
        mov dx,OFFSET Msg
        mov ah,09h
        int 21h
        ret

Skriv_msg ENDP
;-----------------------------------------------------------------------

Skriv_in_str PROC NEAR

        mov dx,OFFSET Buffer
        mov ah,0ah
        int 21h
        ret

Skriv_in_str ENDP
;------------------------------------------------------------------------

Return  PROC NEAR

        mov dl,cr
        mov ah,02h
        int 21h

        mov dl,lf
        mov ah,02h
        int 21h
        ret

Return ENDP
;------------------------------------------------------------------------

Skriv_ut_str PROC NEAR

        mov dx,OFFSET buffer
        mov ah,09h
        int 21h
        ret

Skriv_ut_str ENDP
;=========================================================================
begin:
        call cls
        call Skriv_msg
        call Skriv_in_str
        call return
        call return
        call skriv_ut_str
        ret

CSEG    ENDS
END     start

        
.

0