data segment
count dw 1
msg db 'The message is show',0dh,0ah,'$'
data ends
code segment
assume cs:code,ds:data
start: mov ax,data
mov ds,ax
mov al,1ch
mov ah,35h
int 21h
push es
push bx
push ds

mov dx,offset show
mov ax,seg show
mov ds,ax
mov al,1ch
mov ah,25h
int 21h

pop ds
in al,21h
and al,11111110b
out 21h,al
sti

mov di,20000
delay: mov si,30000
delay1: dec si
jnz delay1
dec di
jnz delay

pop dx
pop ds
mov al,1ch
mov ah,25h
int 21h

mov ah,4ch
int 21h

show proc near
push ds
push ax
push cx
push dx

mov ax,data
mov ds,ax
sti

dec count
inz exit1

mov dx,offset msg
mov ah,09h
int 21h

mov count,182
exit1:
cli
pop dx
pop cx
pop ax
pop ds
iret
show endp
code ends
end start