Для себя. Перевести данный код под работу на win 10. .model tiny .code org 100h begin: jmp install old09h dd ? old28h dd ? enwrfile db 0 enwrbuf db 1 fname db 'myfile.bin',0 max=50 count dw 0 buf db 110h dup (?) new09h: push ds push cs pop ds cmp enwrbuf,0 jz outofhandler09h push ax push bx in al,60h mov bx, count mov buf[bx],al inc count cmp bx,max jnz bufnotfull mov enwrbuf,0 mov enwrfile,1 bufnotfull: pop bx pop ax outofhandler09h: pop ds jmp dword ptr cs:01a09h new28h: push ds push cs pop ds pushf call dword ptr old28h cmp enwrfile,0 jz outofhandler28h push ax push bx push cx push dx mov ah,3ch mov cx,2 mov dx,offset fname int 21h jc endwr mov bx,ax mov ah,40h mov cx, 100h mov dx, offset buf int 21h mov ah,3eh int 21h endwr: mov enwrfile,0 pop dx pop cx pop bx pop ax outofhandler28h: pop ds iret ressize=$-begin install: mov ax, 3509h int 21h mov word ptr old09h,bx mov word ptr old09h+2,es mov ax,2509h mov dx, offset new09h int 21h mov ax,3528h int 21h mov word ptr old28h,bx mov word ptr old28h+2,es mov ax,2528h mov dx,offset new28h int 21h mov ax,3100h mov dx,(ressize+10fh)/16 mov ah,07h int 21h end begin.