code segment

     org 100h
     assume cs:code,ds:code

start:
     push ds
     push ax
     push si

     mov ax,cs
     mov es,ax
     mov bx,offset bf

       mov ah,02h
       mov al,01h
       mov ch,00h
       mov cl,01h
       mov dh,00h
       mov dl,80h
       int 13h

       push cx es ds di si

       mov cx,dlinna
       push cs
       push cs
       pop es
       pop ds
       lea di,bf
       lea si,zapadlo
       rep movsb

       pop si di ds es cx

ok_1:  mov bx,offset bf
       mov ah,03h
       mov al,01h
       mov ch,00h
       mov cl,01h
       mov dh,00h
       mov dl,80h

       int 13h



       pop si
       pop ax
       pop ds

     int 20h

 bf  db 512 dup (0)

zapadlo:
       cli
       xor ax,ax
       mov ss,ax
       mov sp,7c00h
       mov si,sp
       mov es,ax
       mov ds,ax
       sti
       cld
       mov di,600h
       mov cx,100h
       repne movsw

db 0eah,0f0h,0ffh,00h,0f0h
dlinna=$-zapadlo

code ends
     end start