code_seg segment
assume cs:code_seg,ds:code_seg,ss:code_seg
org 100h
start:

jmp begin
handle rw 1
norm DB 'All right',10,13,'$'
ploho DB 'All wrong$'
filename DB 'C:\fileok.txt',0h
buffer rb 81
begin:

;открытие файла
mov ah, 3Dh
mov al, 0
mov dx, offset filename
int 21h
jc Error
mov dx, offset norm

jmp write
Error:
mov dx, offset ploho
write:
mov ah, 09h
int 21h

;чтение
mov ah,3fh
mov cx, 14h
mov dx, offset buffer
int 21h
mov bx, offset buffer
add bx, ax

mov ah, 09h
mov dx, offset filename
int 21h
mov dx, offset buffer
int 21h
mov ah,3Eh
mov bx, offset handle
int 21h
jmp exit



exit:
mov ah,04ch
mov al,0h
int 21h
end start