перевести прогу на асемблер

[Azeroto]

Задана строка из смеси русских строчных и заглавных букв. Преобразовать её в строку из тех же заглавных букв. Составить программу для создания в дальнейшем .EXE и .COM файлов и выводящую на экран исходную и преобразованную строки. Кодовая страница cp-866.
вот задание написал его на паскале а вот на асемблере не получается так как недавно начал его изучать помогите кто может. Вот прога на паскале:
program Stroka;
var s : string;
len, i : integer;

function inv_char(ch:char) : char;
begin

if (ch>='à') and (ch<='ï') then ch := chr(ord('À')+ord(ch)-ord('à'))
else
if (ch>='ð') and (ch<='ÿ') then ch := chr(ord('Ð')+ord(ch)-ord('ð'))
else
if (ch>='A') and (ch<='Ï') then ch := chr(ord('À')+ord(ch)-ord('À'))
else
if (ch>='Ð') and (ch<='ß') then ch := chr(ord('Ð')+ord(ch)-ord('Ð'))
else
if ch='¸' then ch := '¨'
else
if ch='¨' then ch := '¸';

inv_char := ch;
end;


begin
WriteLn('Введите строку');
ReadLn(s);

len := length(s);

for i:= 1 to len do
s[i] := inv_char(s[i]);

WriteLn('Получилась такая строка');
WriteLn(s);

ReadLn;
end.
кто может помочь написать или перевести на асемблер.