Справочник программиста на персональном компьютере фирмы IBM

18

    120 X = PEEK(&H87) 'проверка на наличие EGA
    130 IF X = 0 THEN 200 'EGA отсутствует, идем дальше
    140 IF X AND 8 = 0 THEN... 'активный монитор EGA
    .
    .
    200 X = PEEK(&H10) 'читаем байт статуса оборудования
    210 Y = X AND 48 'выделяем биты 4 и 5
    220 IF Y = 48 THEN ... '... тогда монохромный (00110000)
    230 IF Y = 32 THEN ... '... тогда цветной 80*25 (00100000)
    240 IF Y = 16 THEN ... '... тогда цветной 40*25 (00010000)
    Следующий пример проверяет наличие монохромной карты, когда
    активной является карта EGA или цветная. Тот же пример можно
    использовать для проверки наличия цветной карты если использовать
    адреса портов &H3D4 и &H3D5.
    100 '''проверка наличия монохромной карты
    110 OUT &H3B4,&HF 'адрес регистра курсора
    120 X = INP(&H3B5) 'чтение и сохранение значения
    130 OUT &H3B5,100 'посылаем в регистр любое значение
    140 IF INP(&H3B5)<>100 THEN... 'если карта есть - вернется то же
    150 OUT &H3B5,X 'восстанавливаем значение регистра
    Низкий уровень.
    Приведенные примеры соответствуют примерам на Бейсике.
    ;- Определение активного адаптера:
    MOV AX,40H ;указываем ES на область данных BIOS
    MOV ES,AX ;
    MOV AL,ES:[87H] ;проверяем наличие EGA
    CMP AL,0 ;