Подпрограммы и прерывания в ассемблер

[confistu]

Не могу разобраться с подпрограммами в ассемблер (встроенный в Turbo Pascal ассемблер)
Для начала хотелось бы увидеть просто программу в которой при нажатии клавиши выдавалось бы какое-нибудь сообщение. Сообщение храниться в @data (здесь уже мне становиться непонятно как это описывать), подпрограмма выводящая сообщение – это по сути обработчик прерывания, ну т.е. в коде пишем

uses DOS;
var SvInt09: procedure;

procedure MyInt; interrupt;
label msg,next;
begin
asm
jmp Next
Msg: db ' press $' { можно ли это где-нибудь еще выше хранить, например до }
Next: { определения процедуры MyInt, там какой-то @data вроде должен
push ds { использоваться }
push cs
pop ds
mov ah, 9
mov dx, offset Msg
int 21h
pop ds
end ;
Inline($9C);
SvInt09;
end;

{$F-}
{label EhcoLoop,EchoDone;}
begin
GetIntVec(09,@SvInt09); { используется досовская подмена прерываний }
SetIntVec(09,@MyInt09); { а хотелось бы асм. код вызывающий подпрограмму }
readln; { а вместо readln MOV ah, 0; }
SetIntVec(09,@SvInt09); { INT $16; }

end.

Строку вроде бы можно как-то так вытаскивать

asm
mov ax,SEG @Data { какой-то SEG и метка с данными }
mov ds,ax { в сегмент данных записали место в памяти где начинается первый }
end; { элемент из @data, а если у меня там 2 строки, то нужны две метки и offset }

А главное хотелось бы увидеть код который при нажатии разных клавиш, заставлял динамик пищать по разному. Не могу понять как работает CALL и как определять (и вызывать) ассемблерные подпрограммы из ассемблерного же кода.

ассемблерная подпрограмма
считать код клавиши (толи скан код толи ASCII код ?)
сравнить значение с определенный кодом (например код клавиши Q)
если равно выдать один звук
уменьшить счетчик С (толи брать переменную C, толи можно работать с рег. CX)
jmp @end {выход из подпрограммы}
сравнить значение с определенный кодом (например код клавиши W)
если равно выдать другой звук
уменьшить счетчик С
jmp @end {выход из подпрограммы}
увеличить счетчик на 1 {если не нажата не Q не W}
@end:
выход из процедуры (где-то здесь должна быть команда RET)

основная программа
mov CX, 10; {позволяем нажать клавишу со звуком минимум 10 раз}
@emul:
выполнять какое-нибудь действие, эмулируем работу какой-нибудь программы
происходит нажатие клавиши
вызываем прерывание
обработчик прерывания не стандартный, а ассемблерная подпрограмма
где-то здесь должна быть команда CALL
loop @emul

Знаю что динамиком управляют через порт 61h и порты системного таймера 41h-43h, но так и не разобрался в кодах которые находил в интернете. А на Турбо Паскале вообще не нашел (в основном встречал MASM)

Вообще не могу понять как оно должно работать, весь интернет забит описанием того что происходит при вызове CALL и практически отсутствуют примеры, в крайнем случае кусок кода в пару строк, вместо полноценной программы с комментариями.

Где-то на форуме видел пример с факториалом, там функция называлась factorial и ей передавалось в качестве параметра число n, а потом в асм. коде этой же функции писали CALL Factorial (рекурсия тобишь), вот для меня непостижимо как можно вызывать Функции только по имени, откуда она потом параметр входной берет… Ну в общем помогите кто может (а то сами понимаете лето – сессия… , нервы, ночь, улица, фонарь, аптека, недосып, глаз у меня вот уже дергается)

[veniside]

> откуда она потом параметр входной берет

из стека или из регистров (по соглашению).