MyStack SEGMENT STACK DB 512 DUP (?) MyStack

ENDS
MyData SEGMENT
InputFileName db 'input.txt',0
OutputFileName db 'output.txt',0
Handle dw 0
msg1 db 'File was open.$'
msg2 db 'New file was create.$'
error_msg1 db 'The file was not open.$'
error_msg2 db 'The file was not create.$'
error_msg3 db 'Can not read from this file.$'
a dw 20
b dw 7
c dw 2
d dw 1
MyData ENDS
MyCode SEGMENT
ASSUME CS:MyCode, DS:MyData, SS:MyStack
Start:
mov ax, MyData
mov ds, ax

OpenFile:
mov ah, 3dh
mov al, 0
mov dx, OFFSET InputFileName
jc Error_Open

mov handle, ax

mov ah, 09h
lea dx, msg1
int 21h

CreateFile:
mov ah, 3ch
mov cx, 0
mov dx, OFFSET OutputFileName
int 21h
jc Error_Create

mov handle, ax

mov ah, 09h
lea dx, msg2
int 21h
jmp Exit

Error_Open:
mov ah,09h
lea dx,error_msg1
int 21h
jmp Exit

Error_Create:
mov ah,09h
lea dx,error_msg2
int 21h
jmp Exit

Exit:
mov ax, 4C00h
int 21h
MyCode ENDS
END Start

У меня оно работает, файл создается (после мелких правок, чтобы фасмом собрать). И ещё там у открытия файла пропущен вызов прерывания, поэтому оно пишет, что открыло, но даже не пытается.