asm

czy potrafi ktos napisac w Tpascalu procedurke do przerwani

procedure przerwanie(a,b:integer);
begin
asm
mox ax,a
int b
end;
end;

cos takiego jak powyzej tylko by dzialalo :D

var
  intb          : byte;
  p             : pointer;

procedure Int1C; interrupt;
begin
case intb of
  1 : mem[$B800:0] := byte('');
  2 : mem[$B800:0] := byte('|');
  3 : mem[$B800:0] := byte('/');
  4 : mem[$B800:0] := byte('-');
end;
if intb > 3 then intb := 1 else inc(intb);
end;


begin
  GetIntVec($1c,p);
  SetIntVec($1c,@Int1C);

  readln;

  SetIntVec($1c,p);
end.

widze zejest tu zapisi odczyt ale nbie wiem jak bym mial to wykorzystac przy wykonaniujakiegos przerwania np.
przerwanie int 1AH
funkcja AH=03H
godzina CH=12

jaktakiecos wykonac jak zmiana godziny rpzy wykorzystaniu tego co napisales?