primero segment para public 'CODE'

                              
        assume cs:primero, ds:primero, ss:primero

        inicial proc near

                    mov DX, offset ds:cadenatexto
                    mov AH, 09h
                    int 21h

                    mov ax, 04c00h
                    int 21h

        inicial endp


        cadenatexto db "Esto es una prueba$"

primero ends
 end