MOV AH,02H
MOV AL,"#"
INT 21H

VAR DB 80
       DB 0
       DB 80 DUP('$')

DATA SEGMENT
    VAR1 DB 80
                         DB 0
             DB 80 DUP('$')
DATA ENDS

CODE SEGMENT
START:     ASSUME CS:CODE,DS:DATA
    MOV AX,DATA
    MOV DS,AX

    MOV SI,OFFSET VAR1+2
    MOV CH,00H
    MOV CH,05H
LP1:    MOV AH,01H
    INT 21H
    MOV [SI],AL
    INC SI
    LOOP LP1
MOV AX,0600H
    MOV BX,71H
    MOV CX,0000H
    MOV DX,184FH
    INT 10H

    MOV AH,02H
    MOV BH,00H
    MOV DH,10
    MOV DL,10
    INT 10H
    MOV CH,00H
    MOV CL,BYTEPTR[VAR1+2]
CODE ENDS
END START