🚀 go-pugleaf

Hello,
I want to change the dos Ascii font using interrupt 10h fonction 11h
But this procedure doesn' t work and I don' t know why.
Could somebody help me ?
This is TP7 with inline assembly.

------code---------
...
font : array[0..255,0..15] of  byte;
...
...
procedure font2dos;
var
n : byte;
ws,s,o: word;
begin;
for n:=0 to 255 do begin
s:=seg(font);o:=ofs(font[n,0]);
ASM
mov ws,bp
mov es,s
mov bp,o
mov cx,1
mov dh,0
mov dl,n
mov bl,0
mov bh,16
mov ah,11h
mov al,0
int 10h
mov bp,ws
end;
end;
end;
---------------
So, if you know why this doesn' t work, I would be happy to know it. Or if
you know an other way to do what I want, I'm interested too.
I would like to have an inverse procedure (dos2font) so...
Thanks
Bye
-- 
Vincent Picavet, Lille, France
picavetSPAM@worldnet.net <<<<Enlevez SPAM de mon Email!
==>Pascal, IRC,maths et Bubble Bobble : the top !!<==
	        \---->Allez sur #delire !