Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

#96 Allow downloadable EGA charactersets

open
nobody
None
5
2012-09-07
2011-12-29
Anonymous
No

EGA and later allowed you to download your own characters to drive the screen characters. This is the code that I used to do this:

FFNT :array[1..256,1..16] of byte absolute FNT; {Holds the bitmapped character definitions }
begin
INTREC.ax:=$1110;{call - AL=10 sets char size }
INTREC.dx:=0;{1st char}
INTREC.cx:=256; {# of chars}
INTREC.bh:=16; {bytes/char}
INTREC.bl:=BL; {block to load: 0,1,2,3}
INTREC.es:=seg(FFNT); INTREC.bp:=ofs(FFNT);
intr($10,INTREC);
end;

Discussion


  • Anonymous
    2011-12-30

    I can supply several fonts if anyone is interested and a simple command line utility to change fonts.