assume cs:code 
code segment
start:
        call capital
        mov ax,0b800h
        mov es,ax
        mov di,12*160
        
        mov bx,offset s-offset se
        mov cx,80
        
s:
        mov byte ptr es:[di],'!'
        add di,2
        int 7ch
se:
        nop                
        
        mov ax,4c00h
        int 21h

capital:
        mov ax,0
        mov es,ax
        mov word ptr es:[7ch*4+2],0
        mov word ptr es:[7ch*4],200h
        
        mov di,200h
        mov ax,cs
        mov ds,ax
        mov si,offset do7ch
        mov cx,offset do7chend-offset do7ch
        cld
        rep movsb
        
        ret

do7ch:
        
        dec cx
        jcxz s1
        pop ax
        add ax,bx
        push ax
s1:        
        iret
do7chend:
        nop

code ends 
end start