; tasm /m cpumode.asm
; tlink /t /x cpumode.obj

.MODEL Tiny
.286P
.CODE
ORG 100h

Start:

        mov ah,9
        lea dx,Header
        int 21h            ; Выводим первую половину фразы :)

        lea dx,RMode       ; Готовим сообщение для RMode

; Проверяем процессор 80286 (эту часть можно опустить)
        mov ah,2           ; Нас волнуют только биты 12-15 и 9 (IF) AX
        push    ax
        popf                   ; Сбрасываем биты 12-15 флагов
        pushf
        pop ax             ; И читаем их
        or  ah,ah          ; Если бит 15 установлен, значит это 80(1)86
        js  RModeIsSet     ; ...и в VMode процессор находиться не может

; Проверяем PE-флаг
        smsw    ax             ; Записываем MSW в AX
        test    al,1           ; Проверяем PE-флаг (бит 0)
        jz  RModeIsSet     ; Прыгаем, если он сброшен

        lea dx,VMode       ; Иначе готовим сообщение для VMode
RModeIsSet:
        mov ah,9
        int 21h            ; Выводим вторую половину фразы

        int 20h            ; Выходим из программы

Header      db  'Процессор находится в режиме $'
RMode       db  'реальных адресов!',13,10,'$'
VMode       db  'виртуального процессора 8086!',13,10,'$'

END     Start