INCLUDE 'EMU8086.INC'
.MODEL SMALL
.STACK 100H
.DATA
ARR DB 50 DUP("$")

.CODE

MAIN PROC


    MOV AX,@DATA
    MOV DS,AX


    MOV SI,OFFSET ARR


    MOV AH,1

    TEST_L:

    INT 21H
    MOV BL,AL




    CMP BL,13
    JE EXIT



    MOV [SI],BL
    INC SI


    JMP TEST_L



    EXIT:
    PRINTN

    MOV AH,9
    LEA DX,ARR
    INT 21H



    MOV AH,4CH
    INT 21H

    MAIN ENDP
END MAIN