Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Ассемблер _ Шрифт из ПЗУ

Автор: GoodWind 11.09.2004 0:07

Прочитал в одной из тем (про тушевание символа "U") примерно следующее:
"взять готовые из ПЗУ". Подскажите плз как ?

Желательно в виде Паскаль процедуры.

Автор: xds 11.09.2004 6:31

Следующая функция возвращает указатель на начало одной из таблиц битовых комбинаций символов, используемых BIOS:

{ Типы шрифтов, адреса которых возвращает функция GetFontPtr }
const
 ftCgaGr8x8   = 0; { 8x8, графические режимы CGA (вектор int 1Fh) }
 ftCurGr      = 1; { шрифт текущего графического режима (вектор int 43h) }
 ftBios8x14   = 2; { 8x14, шрифт BIOS }
 ftBios8x8    = 3; { 8x8, шрифт BIOS }
 ftBios8x8Ext = 4; { 8x8, шрифт BIOS, вторая половина таблицы (#128-#255) }
 ftBios9x14   = 5; { 9x14, шрифт BIOS }
 ftBios8x16   = 6; { 8x16, шрифт BIOS }
 ftBios9x16   = 7; { 9x16, шрифт BIOS }

function GetFontPtr(FontType: Byte): Pointer; assembler;
asm
 push bp
 mov ax,1130h
 mov bh,FontType
 int 10h
 mov ax,bp
 mov dx,es
 pop bp
end;

Автор: GoodWind 12.09.2004 0:59

To xds:
Сенкс :p4: