переделка DOS програмы под Windows

[Merrowing]

Очень нужно програму под DOS переделать под Windows
вот текст программы

. MODEL small
. STACK 100h

. DATA

CR = 0Dh
LF = 0Ah
Massage1 DB CR, LF, 'File Name'


Mess1Len = $-Message1
Message2 DB CR, LF, 'Key:'

Mess2Len = $-Message2
Password DB 80 DUP ('*')
Buf DB 4096(?)
FileLen DW ?
Key DB ?
FileName DB 32 DUP (?)
FDescr DW ?

.CODE

Begin
mov ax, @data
mov ds, ax

mov ah, 40h
mov bx, 1
mov cx, Mess1Len
mov dx, OFFSET Message1

int 21h

mov ah, 3fh
xor bx, bx
mov cx, 30
mov dx, OFFSET FileName

int 21h
mov bx, ax
sub bx, 2
mov FileName[bx], 0

mov ah, 40h
mov bx, 1
mov cx, Mess2Len
mov dx, OFFSET Massage2

int 21h

mov ah, 3fh
xor bx, bx
mov cx, 80
mov dx,OFFSET Password

int 21

mov si, OFFSET Password
xor al, al
mov cx, 80

NextByte1 add al, [si]
inc si
loop NextByte1
mov Key, al

mov ah, 3dh
mov al, 2
mov dx, OFFSET FileName

int 21h
mov FDescr, ax

mov ah, 3fh
mov bx, FDescr
mov cx, 4096
mov dx, OFFSET Buf

int 21h
mov FileLen, ax

mov cx, FileLen
mov si, OFFSET Buf

mov al, Key
NextByte2 xor [si], al
inc si

loop NextByte2

mov ah, 42h
mov bx, FDescr
xor al, al
xor cx, cx
xor dx, dx

int 21h

mov ah, 40h
mov bx, FDescr
mov cx, FileLen
mov dx, OFFSET Buf

int 21h

mov ah, 3eh
mov bx, FDescr
int 21h

mov ah, 4ch
xor al, al
int 21h
END BEGIN


суть программы в шифровании файлов ( ограничение по размеру файла 4096 байт)
буду очень сильно благодарен тем кто поможет

[Mikl___]

Merrowing
Должен вас огорчить, но под Windows 21h прерывание не работает (будет необходима кординальная переделка программы), но есть и хорошие новости, запусти свою программку под Windows и она отработает под DOS-эммулятором т.е. файл будет создан и информация туда будет записана, для конечного пользователя помоему это самое главное

[Merrowing]

т.е. поставить DOS емулятор и через него ее скомпилировать и запускать?

[Mikl___]

Merrowing
Компилируй TASM'ом или MASM'ом и запускай, Windows сама сообразит под эмулятором или как...

[Merrowing]

пытался.оба говорили что начало неверное...

[Ulex]

Синтаксические ошибки я вам поправил, а с логическими сами разбирайтесь. Компилировать TASM-ом (батник прилагается).

[Merrowing]

большое спасибо