assume cs:codesg

stack segment
        db 128 dup(0)
stack ends
        
codesg segment
        start:mov ax,stack
        mov ss,ax
        mov sp,128
        mov ax,cs
        mov ds,ax
        mov ax,0
        mov es,ax
        mov si,offset int9
        mov di,204h
        mov cx,offset int9_end-offset int9
        
        cld
        rep movsb
        
        push es:[9*4]
        pop es:[200h]
        push es:[9*4+2]
        pop es:[202h]
        cli
        mov word ptr es:[9*4],204h
        mov word ptr es:[9*4+2],0
        sti
        
        stop:jmp stop
        
        mov ax,4c00h
        int 21h

        int9:push ax
        push bx
        push cx
        push es
        in al,60h
        pushf
        call dword ptr cs:[200h]
        cmp al,9eh
        jne int9_ret
        mov ax,0b800h
        mov es,ax
        mov bx,0
        mov cx,2000
        int9_dup:mov byte ptr es:[bx],'A'
        add bx,2
        loop int9_dup
        int9_ret:pop es
        pop cx
        pop bx
        pop ax
        iret
        int9_end:nop

codesg ends
end start