;
;   Системная программа для установки повышенных (>60 Hz) частот обновления 
;   экрана за счет снижения разрешения 
;   (для переходов:  1024х768*60-->800х600*98
;                     800х600*60-->640х480*94)
;
;   Компилировать FASM'ом
;
;   !!!!!_Предупреждение_!!!!!:
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;! На текущий момент программа носит ЭКСПЕРИМЕНТАЛЬНЫЙ (!) характер, поэтому всегда   !
;! остается вероятность порчи оборудования (т.е. монитора). Особенно это касается всех!
;! тех, чей монитор не имеет защиты от перегрузок по частоте.                         !
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;     
;---------------------------------------------------------------------

  use32              ; включить 32-битный режим ассемблера
  org    0x0         ; адресация с нуля

  db     'MENUET01'  ; 8-байтный идентификатор MenuetOS
  dd     0x01        ; версия заголовка (всегда 1)
  dd     START       ; адрес первой команды
  dd     I_END       ; размер программы
  dd     0x1000      ; количество памяти
  dd     0x1000      ; адрес вершины стэка
  dd     0x0         ; адрес буфера для параметров (не используется)
  dd     0x0         ; зарезервировано

include '..\..\..\macros.inc' ; макросы облегчают жизнь ассемблерщиков!

;---------------------------------------------------------------------
;---  НАЧАЛО ПРОГРАММЫ  ----------------------------------------------
;---------------------------------------------------------------------

START:
;       mcall 5,10
        mov     ecx, 1
        mov     edx, drvinfo
        push    @f
        jmp     call_driver
@@:
;       jmp run_launcher

        mov     ecx, 2
        push    @f
call_driver:
        mcall 21,13
        ret
@@:
;       cmp eax,-1
        inc     eax
       je   run_launcher
;       cmp  ecx,280
;       je  change_vrr
;       cmp  ecx,277
;       je  change_vrr
;       cmp  ecx,6
;       je  change_vrr
;       cmp  ecx,7
;       je  change_vrr
;       jmp  run_launcher
change_vrr:
;       mov ax,cx
;       dec cx
;       shl cx,1
;       xor edx,edx
;       mov dx,[vidmode+ecx]
;       mov ebx,ecx
;       shl ebx,2
;       add ebx,ecx   ; ebx=ebx*5
;       shr ax,8
;       dec ax
;       shl ax,1
;       add ebx,eax
;       ror edx,16
;       mov dx,[_m1+ebx]
;       rol edx,16
        ;mov eax,ecx
        mov     eax, 10
        cmp cx,277+3
        je  yes_277
        cmp cx,274+3
        jne yes_280
     yes_274:
        add al,10
     yes_277:
        add al,10
     yes_280:
        mov     edx, [_m1+eax-2]
        lea     dx, [ecx-3]
        push    run_launcher
        mov     ecx, 3
        jmp     call_driver
run_launcher:
       mcall 70,launcher
       mcall -1
launcher:
        dd      7
        dd      0
        dd      0
        dd      0
        dd      0
        db      '/sys/LAUNCHER'
I_END:                             ; метка конца программы
        db      ?       ; system loader will zero all memory after program end
                        ; this byte will be terminating zero for launcher string
; \begin{Serge}
                        ; A you really believe it?
                        ; ┴ырцхэ, ъЄю тхЁєхЄ, Єхяыю хьє эр ётхЄх!
; \end{Serge}
drvinfo:   ; 512 bytes driver info area
; +0   - Full driver name
; +32  - Driver version
; +64  - Word List of support video modes (max 32 positions)
; +128 - 5 words list of support vertical rate to each present mode
      org $+32
drvver:
      org $+32
vidmode:
      org $+64
_m1:
      org drvinfo+200h