DISPLAY SEGMENT AT 0B800H

    BUFF DB 4000 DUP(?)
    CHARS DB 2000 DUP(?)

DISPLAY ENDS

STACK_HERE SEGMENT PARA STACK 'STACK'
    
    THESTACK DB 100 DUP('STACK')

STACK_HERE ENDS

CODE_HERE SEGMENT

                        ASSUME CS:CODE_HERE,DS:DISPLAY
                        MOV CX,0FFFH
                        MOV AX,DISPLAY           ; INIT SEGMENTS
                        MOV DS,AX
                        MOV AH,00H
                        MOV AX,0700H
                        MOV BX,00H
                        MOV DH,00H
                        MOV DL,00H 
                        LEA DX,[BUFF]
    DISPLAY_CHAR:       MOV [BX],DX
                        ADD BX,2
                        ADD DX,1
                        LOOP DISPLAY_CHAR
                       

                        MOV AX,4C00H
                        INT 21H  

CODE_HERE ENDS
                        END