Паскаль и ассемблер

Доброе время суток уважаемые форумчане!
Сразу оговорюсь: я в программировании новичок.
Дано задание:
1. Разработать процедуры перевода арабской цифры в цифру почтового индекса на языке Паскаль и ассемблер.
2. Сравнить время выполнения программ. Для определения времени использовать многократное (в цикле) выполнение программы. Количество повторений определить экспериментально с тем, чтобы время измерения было около 1 мин.

Программа на Паскале разработана таким образом, что одна и та же цифра, введенная с клавиатуры выводится на экран в одно и тоже место, допустим 1750000 раз, после чего программа выводит на экран время, в течение которого выводилась цифра. Для этого использована функция «GetTime».
После этого попробовал осуществить ассемблерную вставку (вывод символа на экран), но программа выводит на экран непонятные символы. Загвоздка заключается в следующем: после выполнения команды «ReadKey» и нажатия на клавишу «7» в регистр АХ записывается число 4737h, после перехода на процедуру «ClrTime» содержимое реестра меняется на 3DF6h, потом на 0000h и после окончания данной процедуры код числа 7 (37h) в регистр АХ не возвращается.
Пробовал «трассировать» программу на Паскале (при этом наблюдал за регистрами процессора) – все работает. С ассемблерной вставкой (именно так требуют в ВУЗе) – нет. Как узнать: куда перемещается код числа 37h из регистра AL на время выполнения процедур «ClrTime» и «GetTime», чтобы можно было потом вернуть? Тексты программ приложены. С уважением RA9UWB.

Вложения

	ConvertPas.txt (5.2 Кб, 11 просмотров)
	ConvertAsm.txt (4.5 Кб, 11 просмотров)