WebSVN – Kolibri OS – Diff – /programs/system/vrr/trunk/vrr.asm


;
;   Vertical Refresh Rate programm
;
;   Author:  Trans <<< 13 >>>
;   Date:    February-May 2003 (09.05.2003)
;   Version: 2.0
;   Last Modification: 30.07.2003
;   Compile with FASM for Menuet
;
use32
   
        org    0x0
   
        db     'MENUET01'   ; 8 byte id
        dd     0x01         ; header version
        dd     START        ; start of code
        dd     I_END        ; size of image
        dd     0x5000       ; memory for app
        dd     0x4ff0       ; esp
        dd     0x0 , 0x0    ; I_Param , I_Icon
   
include '..\..\..\macros.inc'
START:    ; start of execution
   
    mov eax,14
    mcall
    mov ebx,eax
    shr ebx,16
    mov [oldX],ebx
    shl eax,16
    shr eax,16
    mov [oldY],eax
   
; Test on installed video driver
    mov eax,21
    mov ebx,13
    mov ecx,1
    mov edx,drvinfo
    mcall
    cmp eax,0FFFFFFFFh ; = -1 - error or not installed
    jne vrr_00
    call warning_info
    retn
;
   
vrr_00:
    call get_vert_rate
    mov eax,[currvm]
    mov [oldvm],eax
    call get_pid
red:
    call draw_window  ; at first, draw the window
   
still:
   
    mov  eax,10   ; check here for event
    mcall
   
    cmp  eax,1   ; redraw request ?
    je  red
    cmp  eax,2   ; key in buffer ?
    je  key
    cmp  eax,3   ; button in buffer ?
    je  button
    call get_pid
    jmp  still
      
  key:    ; key
    mov  al,2   ; just read it
    mcall
    cmp ah,'1'
    jne key_loc_00
    call safekey
    jmp still
key_loc_00:
    cmp ah,'2'
    jne key_loc_01
    call safekey
    jmp still
key_loc_01:
    cmp ah,'3'
    jne key_loc_02
    call safekey
    jmp still
key_loc_02:
    cmp ah,'4'
    jne key_loc_03
    call safekey
    jmp still
key_loc_03:
    cmp ah,'5'
    jne key_loc_04
    call safekey
    jmp still
key_loc_04:
    cmp ah,'-'
    jne key_loc_05
    xor eax,eax
    call inc_dec_rate
    jmp still
key_loc_05:
    cmp ah,'+'
    jne key_loc_06
    xor eax,eax
    inc eax
    call inc_dec_rate
    jmp  still
key_loc_06:
    cmp ah,'r'         ;Return in last stable mode
    jne key_loc_07
    call restore_mode
    jmp red
key_loc_07:
    cmp ah,13          ;Apply select mode
    jne still
    xor eax,eax
    mov ax,[vmselect]
    cmp al,0
    je still
    xor ebx,ebx
    mov bl,al
    dec bl
    shl bx,1      ; ebx=(ebx-1)*2
    xor edx,edx
    mov dx,[vidmode+ebx]
    mov ecx,ebx
    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
    call set_my_mode
    call protect_and_return
    xor ax,ax
    mov [vmselect],ax
    jmp red
   
button:   ; button
    mov  al,17   ; get id
    mcall
   
    cmp  ah,1   ; button id=1 ?
    jne  noclose
    mov  eax,-1           ; close this program
    mcall
  noclose:
    cmp ah,2              ;'+' screen width
    jne button_loc_01
    xor eax,eax
    inc eax
    call inc_dec_rate
    jmp still
button_loc_01:
    cmp ah,3              ;'-' screen width
    jne button_loc_02
    xor eax,eax
    call inc_dec_rate
    jmp still
button_loc_02:
    cmp ah,4              ; Ok
    jne button_loc_03
    mov ah,13
    jmp key_loc_07
button_loc_03:
    cmp ah,5              ; Cancel
    jne button_loc_04
    mov [vmselect],word 00h
    jmp red
button_loc_04:
    cmp ah,6              ; Return
    jne button_loc_05
    mov ah,'r'
    jmp key_loc_06
button_loc_05:
    cmp ah,7              ; Default
    jne button_loc_06
    call restore_mode
button_loc_06:
    jmp  still
   
   
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
   
   
draw_window:
   
dw_continue:
   
    mov  eax,12      ; function 12:tell os about windowdraw
    mov  ebx,1      ; 1, start of draw
    mcall
   
       ; DRAW WINDOW
    mov  eax,0      ; function 0 : define and draw window
    mov  ebx,100*65536+400    ; [x start] *65536 + [x size]
    mov  ecx,100*65536+200    ; [y start] *65536 + [y size]
    mov  edx,0x140020C0;0x00000040 ; color of work area RRGGBB,8->color glide
    mov  edi,title
    mcall
   
       ; BUTTONS
    mov eax,8
    mov edx,0
    mov ebx,330*65536+20
    mov ecx,84*65536+48
    mov dl,2
    mov  esi,0x5599cc     ; button color RRGGBB
    mcall               ; Button '+'Width
    add ebx,30*65536
    mov dl,3
    mcall               ; Button '-'Width
    mov ebx,22*65536+85
    mov ecx,170*65536+15
    inc dl ;dl=4
    mcall               ; Button 'Ok'
    add ebx,90*65536
    inc dl ;dl=5
    mcall               ; Button 'Cancel'
    add ebx,90*65536
    inc dl ;dl=6
    mcall               ; Button 'Return'
    add ebx,90*65536
    inc dl ;dl=7
    mcall               ; Button 'Default'
   
    call draw_face
   
    mov  eax,12      ; function 12:tell os about windowdraw
    mov  ebx,2      ; 2, end of draw
    mcall
   
    ret
   
;------------Subfunctions-----------
   
restore_mode:
    push eax
    push ebx
    push edx
    mov eax,21
    mov ebx,13
    mov ecx,4
    mcall
    pop edx
    pop ecx
    pop eax
    retn
   
   
   
; IN: edx = RefRate*65536+No.VideoMode
set_my_mode:
    push ecx
    push ebx
    push edx
    mov eax,[currvm]
    mov [oldvm],eax
    mov [currvm],edx
    pop edx
    push edx
    mov eax,21
    mov ebx,13
    mov ecx,3
    mcall
    mcall 5,50
    mcall 15,3
    pop edx
    pop ebx
    pop ecx
    retn
   
; IN: eax = 0/1  -  -/+ 1Hz
inc_dec_rate:
    push ebx
    push ecx
    push edx
    mov edx,eax
    mov eax,21
    mov ebx,13
    mov ecx,5
    mcall
    pop edx
    pop ecx
    pop ebx
    retn
   
get_pid:
    mov eax,9
    mov ebx,buffer
    xor ecx,ecx
    dec ecx
    mcall
    mov [totp],eax
    mov eax,[ebx+30]
    mov [mypid],eax
    mov ax,[ebx+4]
    mov [mypno],ax
    retn
   
get_vert_rate:
    xor eax,eax
    mov ebx,eax
    mov ecx,eax
    mov al,21
    mov bl,13
    mov cl,2
    mcall
    mov [initrr],ebx
    mov [refrate],ebx
    ror ecx,16
    mov cx,bx
    rol ecx,16
    mov [currvm],ecx
    retn
   
get_initial_videomode:
    retn
   
   
draw_table:
    mov eax,13
    mov ebx,9*65536+303
    mov ecx,59*65536+87
    xor edx,edx
    mcall
    mov ebx,10*65536+300
    mov ecx,60*65536+24
    mov edx,00FF00FFh
    mcall
    mov ebx,10*65536+36
    mov ecx,72*65536+72
    mov edx,0000FFFFh
    mcall
    mov eax,38
    mov edx,00FFFFFFh
    mov ebx,10*65536+310
    mov edi,60*65536+60
    mov esi,12*65536+12
    xor ecx,ecx
    mov cl,8
dt_loc_hor_line:
    push ecx
    mov ecx,edi
    mcall
    add edi,esi
    pop ecx
    loop dt_loc_hor_line
    mov ebx,10*65536+10
    mov edi,60*65536+144
    mov esi,66*65536+66
    mov ecx,edi
    mcall
    add ebx,36*65536+36
    xor ecx,ecx
    mov cl,5
dt_loc_vert_line:
    push ecx
    mov ecx,edi
    mcall
    add ebx,esi
    pop ecx
    loop dt_loc_vert_line
    mov eax,4
    mov ebx,52*65536+75
    mov ecx,000000FFh
    mov edx,_m1280x1024
    mov esi,9
    mcall
    add edx,9
    add ebx,66*65536
    mcall
    add edx,9
    add ebx,66*65536
    mcall
    add edx,9
    add ebx,66*65536
    mcall
    xor eax,eax
    mov ebx,eax
    mov ecx,eax
    mov al,47
    inc ebx
    shl ebx,16
    inc ecx
    mov edi,ecx
    mov edx,22*65536+86
    mov esi,00FF0000h
    mov ecx,5
dt_loc_00:
    push ecx
    mov ecx,edi
    mcall
    inc edi
    add dx,12
    pop ecx
    loop dt_loc_00
    xor ecx,ecx
    inc ecx
    mov edi,ecx
    mov edx,76*65536+63
    mov esi,000000FFh
    mov ecx,4
dt_loc_01:
    push ecx
    mov ecx,edi
    mcall
    inc edi
    add edx,66*65536
    pop ecx
    loop dt_loc_01
    mov eax,4
    mov ebx,16*65536+63
    mov ecx,000000FFh
    mov edx,_mk
    mov esi,4
    mcall
    shl ecx,16
    add bx,12
    add edx,4
    mcall
    retn
   
;IN: ah=keycode
safekey:
    sub ah,30h
    push bx
    mov bx,word [vmselect]
    cmp bx,0
    jnz sk_loc_00
    cmp ah,5
    je sk_loc_01
    mov bl,ah
    mov [vmselect],bx
    jmp sk_loc_01
sk_loc_00:
    push esi
    push edx
    push ecx
    push eax
    mov bh,ah
    xor edx,edx
    mov esi,_m1
    mov al,bl
    dec al
    xor ah,ah
    mov cx,10
    mul cx
    xor ecx,ecx
    mov cx,ax
    xor ax,ax
    mov al,bh
    dec al
    shl ax,1
    add cx,ax
    add esi,ecx
    lodsw
    cmp ax,0
    jnz sk_loc_02
    xor eax,eax
    mov bh,ah
sk_loc_02:
    mov [vmselect],bx
    pop eax
    pop ecx
    pop edx
    pop esi
sk_loc_01:
    call draw_window
    pop bx
    retn
   
; IN: ebx=Xstart*65536+Xend
;     ecx=Ystart*65536+Yend
;     edx=color
draw_rect:
    push eax
    push ebx
    push ecx
    push edx
    push edi
    xor eax,eax
    mov al,38
    push ecx
    mov edi,ecx
    shr edi,16
    mov cx,di
    mcall
    pop ecx
    push ecx
    mov edi,ecx
    ror ecx,16
    mov cx,di
    mcall
    pop ecx
    push ebx
    mov edi,ebx
    shr edi,16
    mov bx,di
    mcall
    pop ebx
    mov edi,ebx
    ror ebx,16
    mov bx,di
    mcall
    pop edi
    pop edx
    pop ecx
    pop ebx
    pop eax
    retn
   
;
; OUT: eax = 0 - no event
protect_and_return:
    push ebx
    push ecx
    xor eax,eax
    mov al,5
    xor ebx,ebx
    mov bx,300
    mcall
    call get_pid
    xor eax,eax
    mov ebx,eax
    mov ecx,eax
    mov al,18
    mov ebx,3
    mov cx,[mypno]
    mcall
    pop ecx
    pusha
    call draw_window
    popa
    xor eax,eax
    mov al,5
    xor ebx,ebx
    mov bx,300
    mcall
    xor eax,eax
    mov al,11
    mcall
    cmp eax,1
    jne par_loc_00
    pusha
    call draw_window
    popa
par_loc_00:
    xor eax,eax
    mov ebx,eax
    mov al,23
    mov bx,700
    mcall
    cmp eax,0
    jnz par_loc_02
; mov [ftr_eax],eax
    mov edx,[oldvm]
    call set_my_mode
par_loc_02:
    pop ebx
    retn
   
debug_ftr:
;    xor eax,eax
;    mov ebx,eax
;    mov al,47
;    mov bl,8
;    shl ebx,16
;    mov bh,1
;    mov ecx,[ftr_eax]
;    mov edx,20*65536+180
;    mov esi,00FFFFFFh
;    mcall
;    mov ecx,[ftr_ebx]
;    add edx,54*65536
;    mcall
    retn
   
print_cur_vm:
    mov eax,4
    mov ebx,20*65536+40
    mov ecx,0000FF00h
    mov edx,curmode
    mov esi,cmlen
    mcall
    mov al,14
    mcall
    mov esi,00FFFFFFh
    mov edi,eax
    shr eax,16
    xor ecx,ecx
    mov cx,ax
    inc ecx
    xor ebx,ebx
    mov bl,4
    shl ebx,16
    mov edx,104*65536+40
    mov eax,47
    mcall
    add edx,30*65536
    mov cx,di
    inc ecx
    mcall
    add edx,30*65536
    mov ecx,[initrr]
    sub ebx,1*65536
    mcall
    mov al,4
    mov ebx,200*65536+40
    mov ecx,0000FF00h
    mov edx,selmode
    mov esi,cmlen
    mcall
    mov ax,[vmselect]
    cmp ax,0
    jz pcv_loc_00
    push eax
    xor eax,eax
    mov al,13
    mov ebx,284*65536+54
    mov ecx,40*65536+10
    mov edx,000020C0h
    mcall
    pop eax
    push eax
    xor ecx,ecx
    dec al
    mov cl,al
    shl cx,3
    add cl,al   ; cx=(al-1)*9
    mov edx,_m1280x1024
    add edx,ecx
    xor eax,eax
    mov al,4
    mov esi,9
    mov ebx,284*65536+40
    mov ecx,00ff0000h
    mcall
    pop eax
    cmp ah,0
    jz pcv_loc_00
    push esi
    push edx
    push ecx
    push eax
    xor eax,eax
    mov al,13
    mov ebx,344*65536+18
    mov ecx,40*65536+10
    mov edx,000020C0h
    mcall
    pop eax
    push eax
    mov bx,ax
    xor edx,edx
    mov esi,_m1
    mov al,bl
    dec al
    xor ah,ah
    mov cx,10
    mul cx
    xor ecx,ecx
    mov cx,ax
    xor ax,ax
    mov al,bh
    dec al
    shl ax,1
    add cx,ax
    add esi,ecx
    lodsw
    xor ecx,ecx
    mov cx,ax
    xor ebx,ebx
    mov bl,3
    shl ebx,16
    mov edx,344*65536+40
    xor eax,eax
    mov al,47
    mov esi,00ff0000h
    mcall
    pop eax
    pop ecx
    pop edx
    pop esi
 pcv_loc_00:
     retn
   
print_all_herz:
        push esi
        push edi
        push eax
        push ebx
        push ecx
        push edx
        cld
        mov esi,_m1
        mov ebx,(10+36+26)*65536+86
        mov edx,66*65536
        xor ecx,ecx
        mov cl,4
pah_loc_00:
        push ecx
        push edx
        push ebx
        mov cl,5
        xor edx,edx
        mov dl,12
pah_loc_01:
        lodsw
        cmp ax,00h
        jnz pah_loc_02
        call print_noherz
        jmp pah_loc_03
pah_loc_02:
        call print_herz
pah_loc_03:
        add ebx,edx
        loop pah_loc_01
        pop ebx
        pop edx
        add ebx,edx
        pop ecx
        loop pah_loc_00
        pop edx
        pop ecx
        pop ebx
        pop eax
        pop edi
        pop esi
        retn
   
; IN: ebx=X*65536+Y - coordinate
print_noherz:
        push eax
        push ebx
        push ecx
        push edx
        push esi
        xor eax,eax
        mov al,4
        mov ecx,00FFFFFFh
        mov edx,noherz
        xor esi,esi
        mov si,3
        mcall
        pop esi
        pop edx
        pop ecx
        pop ebx
        pop eax
        retn
   
; IN: eax=numer_of_herz
;     ebx=X*65536+Y
print_herz:
        push eax
        push ebx
        push ecx
        push edx
        push esi
        mov edx,ebx
        xor ebx,ebx
        mov bl,3
        shl ebx,16
        mov ecx,eax
        mov esi,00FFFFFFh
        xor eax,eax
        mov al,47
        mcall
        pop esi
        pop edx
        pop ecx
        pop ebx
        pop eax
        retn
   
get_pixelclock:
        retn
   
 ; light version of function
calc_refrate:
        retn
   
rect_select:
        mov ax,[vmselect]
;     mov [ftr_ebx],eax
        cmp ax,00h
        je rs_loc_00
        cmp ah,0
        jne rs_loc_01
        dec al
        mov cx,66
        mul cx
        add ax,46
        mov bx,ax
        shl ebx,16
        add ax,66
        mov bx,ax
        mov ecx,60*65536+144
        mov edx,00ff0000h
        call draw_rect
        retn
rs_loc_01:
        push ax
        xor ah,ah
        dec al
        xor ebx,ebx
        mov bx,66
        mul bx
        add ax,46
        mov bx,ax
        shl ebx,16
        add ax,66
        mov bx,ax
        pop ax
        xchg ah,al
        xor ah,ah
        dec al
        xor ecx,ecx
        mov cx,12
        mul cx
        add ax,84
        mov cx,ax
        shl ecx,16
        add ax,12
        mov cx,ax
        mov edx,00ff0000h
        call draw_rect
rs_loc_00:
        retn
   
draw_face:
        call draw_table
;
;
        mov ebx,320*65536+390
        mov ecx,66*65536+144
        mov edx,0000FF00h
        call draw_rect
        mov ebx,10*65536+390
        mov ecx,27*65536+55
        call draw_rect
        add ebx,2*65536
        sub bx,2
        add ecx,2*65536
        sub cx,2
        call draw_rect
        mov ebx,10*65536+390
        mov ecx,155*65536+193
        call draw_rect
        add ebx,2*65536
        sub bx,2
        add ecx,2*65536
        sub cx,2
        call draw_rect
        xor eax,eax
        mov al,13
        mov ebx,182*65536+36
        mov ecx,26*65536+5
        mov edx,000020C0h
        mcall
        mov ebx,173*65536+54
        mov ecx,153*65536+7
        mcall
        mov ebx,337*65536+36
        mov ecx,62*65536+10
        mcall
        mov al,4
        shr ecx,16
        mov bx,cx
        add ebx,3*65536
        mov ecx,00FF0000h
        mov edx,width
        mov esi,5
        mcall
        xor ecx,ecx
        add edx,5
        xor esi,esi
        inc esi
        mov ebx,335*65536+104
        mcall
        add ebx,36*65536
        inc edx
        mcall
        mov edx,tmode
        mov ecx,00FF0000h
        mov ebx,182*65536+24
        mov esi,6
        mcall
        mov edx,actions
        mov ebx,173*65536+152
        mov esi,9
        mcall
        xor ecx,ecx
        mov edx,button1
        mov ebx,59*65536+174
        mov esi,2
        mcall
        add edx,esi
        mov esi,6
        add ebx,78*65536
        mcall
        add edx,esi
        add ebx,90*65536
        mcall
        add edx,esi
        mov esi,7
        add ebx,87*65536
        mcall
        call rect_select
;        call debug_ftr
        call print_cur_vm
        call print_all_herz
        retn
   
warning_info:
        call warning_window
        call warning_loop
        retn
   
warning_window:
        mov  eax,12      ; function 12:tell os about windowdraw
        mov  ebx,1      ; 1, start of draw
        mcall
   ; DRAW WARNING WINDOW
        xor  eax,eax      ; function 0 : define and draw window
        mov ebx,[oldX]
        shr ebx,1
        sub ebx,200
        shl ebx,16
        mov bx,400
;        mov  ecx,100*65536+200    ; [y start] *65536 + [y size]
        mov ecx,[oldY]
        shr ecx,1
        sub ecx,100
        shl ecx,16
        mov cx,200
        mov  edx,0x13808080     ; color of work area RRGGBB,8->color glide
        mov  edi,title
        mcall
 
   ; WARNING TEXT
        mov  eax,4      ; function 4 : write text to window
        mov  ebx,(200-(len_warn00/2)*6)*65536+60    ; [x start] *65536 + [y
   ;]
        mov  ecx,0xf0ff0000     ; color of text RRGGBB
        mov  edx,warn00        ; pointer to text beginning
        mov  esi,len_warn00     ; text length
;        mcall
;        inc  ebx
        mcall
        add  ebx,1*65536
        mcall
        mov  ebx,(200-(len_warn01/2)*6)*65536+100
        mov  edx,warn01
        mov  esi,len_warn01
        mcall
        mov  edx,button1
        add  ecx,0ffffh
        mov  ebx,(200-6)*65536+(160-4)
        mov  esi,2
        mcall
        mov  eax,12      ; function 12:tell os about windowdraw
        mov  ebx,2      ; 2, end of draw
        mcall
        retn
   
warning_loop:
        mov  eax,5
        mov ebx,13
        mcall
        mov eax,11
        mcall
        cmp  eax,1      ; redraw request ?
        je  warning_red
        cmp  eax,2      ; key in buffer ?
        je  warning_key
        cmp  eax,3      ; button in buffer ?
        je  warning_button
        mov  eax,4
        mov  ebx,(200-(len_warn01/2)*6)*65536+100
        mov  ecx,[blinkcol]
        sub cl,12
        dec cl
        dec cl
        dec cl
        dec cl
        mov [blinkcol],ecx
        mov ch,0f0h
        shl ecx,16
        mov  edx,warn01
        mov  esi,len_warn01
        mcall
        sub ebx,1*65536
        mcall
        jmp  warning_loop
  warning_red:      ; redraw
        call warning_window
        jmp  warning_loop
  warning_key:      ; key
        mov  eax,2      ;  read key
        mcall
        cmp ah,01h
        jne warning_loop
        xor eax,eax
        dec eax         ; Terminate application
        mcall
        jmp warning_loop
  warning_button:   ; button
        mov  eax,17     ; get id
        mcall
        cmp  ah,1   ; button id=1 ?
        jne  warning_loop
        xor eax,eax
        dec eax         ; close this program
        mcall
        jmp warning_loop
        retn
   
;------------DATA AREA---------------
   
oldX       dd ?
oldY       dd ?
initvm     dd ?
currvm     dd 0
oldvm      dd 0
refrate    dd 0
initrr     dd 0
mypid      dd ?
mypno      dw ?
totp       dd ?
vmselect   dw 0
ftr_eax    dd ?
ftr_ebx    dd ?
blinkcol   dd 0ffh
   
;  db 0,0,0,0,0,0,0,0
;_m1        dw 0,0,0,0,0
;_m2        dw 0,0,0,0,0
;_m3        dw 0,0,0,0,0
;_m4        dw 0,0,0,0,0
   
title     db   'Vertical Refresh Rate v2.0 (C) 2003 TRANS',0
   
_m1280x1024 db '1280x1024'
_m1024x768  db '1024x768 '
_m800x600   db ' 800x600 '
_m640x480   db ' 640x480 '
_mk         db 'Key1Key2'
   
curmode     db 'Current mode: '
            db '    x    x   Hz'
cmlen=$-curmode
selmode     db ' Select mode: '
selcans     db '----x----x---Hz'
noherz      db '---'
width       db 'Width',11h,10h
tmode       db ' Mode '
actions     db ' Actions '
button1     db 'Ok'      ;len=2
button2     db 'Cancel'  ;len=6
button3     db 'Return'  ;len=6
button4     db 'Default' ;len=7
   
strt  db 'LAUNCHER    '
   
warn00      db ' W  A  R  N  I  N  G  ! '
len_warn00=$-warn00
warn01      db 'V i d e o  D r i v e r  N O T  I n s t a l l e d'
len_warn01=$-warn01
   
   
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
   
buffer:
I_END:

Rev 502	Rev 957
1	;	1	;
2	; Vertical Refresh Rate programm	2	; Vertical Refresh Rate programm
3	;	3	;
4	; Author: Trans <<< 13 >>>	4	; Author: Trans <<< 13 >>>
5	; Date: February-May 2003 (09.05.2003)	5	; Date: February-May 2003 (09.05.2003)
6	; Version: 2.0	6	; Version: 2.0
7	; Last Modification: 30.07.2003	7	; Last Modification: 30.07.2003
8	; Compile with FASM for Menuet	8	; Compile with FASM for Menuet
9	;	9	;
10	use32	10	use32
11		11
12	org 0x0	12	org 0x0
13		13
14	db 'MENUET01' ; 8 byte id	14	db 'MENUET01' ; 8 byte id
15	dd 0x01 ; header version	15	dd 0x01 ; header version
16	dd START ; start of code	16	dd START ; start of code
17	dd I_END ; size of image	17	dd I_END ; size of image
18	dd 0x5000 ; memory for app	18	dd 0x5000 ; memory for app
19	dd 0x4ff0 ; esp	19	dd 0x4ff0 ; esp
20	dd 0x0 , 0x0 ; I_Param , I_Icon	20	dd 0x0 , 0x0 ; I_Param , I_Icon
21		21
22	include '..\..\..\macros.inc'	22	include '..\..\..\macros.inc'
23	START: ; start of execution	23	START: ; start of execution
24		24
25	mov eax,14	25	mov eax,14
26	mcall	26	mcall
27	mov ebx,eax	27	mov ebx,eax
28	shr ebx,16	28	shr ebx,16
29	mov [oldX],ebx	29	mov [oldX],ebx
30	shl eax,16	30	shl eax,16
31	shr eax,16	31	shr eax,16
32	mov [oldY],eax	32	mov [oldY],eax
33		33
34	; Test on installed video driver	34	; Test on installed video driver
35	mov eax,21	35	mov eax,21
36	mov ebx,13	36	mov ebx,13
37	mov ecx,1	37	mov ecx,1
38	mov edx,drvinfo	38	mov edx,drvinfo
39	mcall	39	mcall
40	cmp eax,0FFFFFFFFh ; = -1 - error or not installed	40	cmp eax,0FFFFFFFFh ; = -1 - error or not installed
41	jne vrr_00	41	jne vrr_00
42	call warning_info	42	call warning_info
43	retn	43	retn
44	;	44	;
45		45
46	vrr_00:	46	vrr_00:
47	call get_vert_rate	47	call get_vert_rate
48	mov eax,[currvm]	48	mov eax,[currvm]
49	mov [oldvm],eax	49	mov [oldvm],eax
50	call get_pid	50	call get_pid
51	red:	51	red:
52	call draw_window ; at first, draw the window	52	call draw_window ; at first, draw the window
53		53
54	still:	54	still:
55		55
56	mov eax,10 ; check here for event	56	mov eax,10 ; check here for event
57	mcall	57	mcall
58		58
59	cmp eax,1 ; redraw request ?	59	cmp eax,1 ; redraw request ?
60	je red	60	je red
61	cmp eax,2 ; key in buffer ?	61	cmp eax,2 ; key in buffer ?
62	je key	62	je key
63	cmp eax,3 ; button in buffer ?	63	cmp eax,3 ; button in buffer ?
64	je button	64	je button
65	call get_pid	65	call get_pid
66	jmp still	66	jmp still
67		67
68	key: ; key	68	key: ; key
69	mov al,2 ; just read it	69	mov al,2 ; just read it
70	mcall	70	mcall
71	cmp ah,'1'	71	cmp ah,'1'
72	jne key_loc_00	72	jne key_loc_00
73	call safekey	73	call safekey
74	jmp still	74	jmp still
75	key_loc_00:	75	key_loc_00:
76	cmp ah,'2'	76	cmp ah,'2'
77	jne key_loc_01	77	jne key_loc_01
78	call safekey	78	call safekey
79	jmp still	79	jmp still
80	key_loc_01:	80	key_loc_01:
81	cmp ah,'3'	81	cmp ah,'3'
82	jne key_loc_02	82	jne key_loc_02
83	call safekey	83	call safekey
84	jmp still	84	jmp still
85	key_loc_02:	85	key_loc_02:
86	cmp ah,'4'	86	cmp ah,'4'
87	jne key_loc_03	87	jne key_loc_03
88	call safekey	88	call safekey
89	jmp still	89	jmp still
90	key_loc_03:	90	key_loc_03:
91	cmp ah,'5'	91	cmp ah,'5'
92	jne key_loc_04	92	jne key_loc_04
93	call safekey	93	call safekey
94	jmp still	94	jmp still
95	key_loc_04:	95	key_loc_04:
96	cmp ah,'-'	96	cmp ah,'-'
97	jne key_loc_05	97	jne key_loc_05
98	xor eax,eax	98	xor eax,eax
99	call inc_dec_rate	99	call inc_dec_rate
100	jmp still	100	jmp still
101	key_loc_05:	101	key_loc_05:
102	cmp ah,'+'	102	cmp ah,'+'
103	jne key_loc_06	103	jne key_loc_06
104	xor eax,eax	104	xor eax,eax
105	inc eax	105	inc eax
106	call inc_dec_rate	106	call inc_dec_rate
107	jmp still	107	jmp still
108	key_loc_06:	108	key_loc_06:
109	cmp ah,'r' ;Return in last stable mode	109	cmp ah,'r' ;Return in last stable mode
110	jne key_loc_07	110	jne key_loc_07
111	call restore_mode	111	call restore_mode
112	jmp red	112	jmp red
113	key_loc_07:	113	key_loc_07:
114	cmp ah,13 ;Apply select mode	114	cmp ah,13 ;Apply select mode
115	jne still	115	jne still
116	xor eax,eax	116	xor eax,eax
117	mov ax,[vmselect]	117	mov ax,[vmselect]
118	cmp al,0	118	cmp al,0
119	je still	119	je still
120	xor ebx,ebx	120	xor ebx,ebx
121	mov bl,al	121	mov bl,al
122	dec bl	122	dec bl
123	shl bx,1 ; ebx=(ebx-1)*2	123	shl bx,1 ; ebx=(ebx-1)*2
124	xor edx,edx	124	xor edx,edx
125	mov dx,[vidmode+ebx]	125	mov dx,[vidmode+ebx]
126	mov ecx,ebx	126	mov ecx,ebx
127	shl ebx,2	127	shl ebx,2
128	add ebx,ecx ; ebx=ebx*5	128	add ebx,ecx ; ebx=ebx*5
129	shr ax,8	129	shr ax,8
130	dec ax	130	dec ax
131	shl ax,1	131	shl ax,1
132	add ebx,eax	132	add ebx,eax
133	ror edx,16	133	ror edx,16
134	mov dx,[_m1+ebx]	134	mov dx,[_m1+ebx]
135	rol edx,16	135	rol edx,16
136	call set_my_mode	136	call set_my_mode
137	call protect_and_return	137	call protect_and_return
138	xor ax,ax	138	xor ax,ax
139	mov [vmselect],ax	139	mov [vmselect],ax
140	jmp red	140	jmp red
141		141
142	button: ; button	142	button: ; button
143	mov al,17 ; get id	143	mov al,17 ; get id
144	mcall	144	mcall
145		145
146	cmp ah,1 ; button id=1 ?	146	cmp ah,1 ; button id=1 ?
147	jne noclose	147	jne noclose
148	mov eax,-1 ; close this program	148	mov eax,-1 ; close this program
149	mcall	149	mcall
150	noclose:	150	noclose:
151	cmp ah,2 ;'+' screen width	151	cmp ah,2 ;'+' screen width
152	jne button_loc_01	152	jne button_loc_01
153	xor eax,eax	153	xor eax,eax
154	inc eax	154	inc eax
155	call inc_dec_rate	155	call inc_dec_rate
156	jmp still	156	jmp still
157	button_loc_01:	157	button_loc_01:
158	cmp ah,3 ;'-' screen width	158	cmp ah,3 ;'-' screen width
159	jne button_loc_02	159	jne button_loc_02
160	xor eax,eax	160	xor eax,eax
161	call inc_dec_rate	161	call inc_dec_rate
162	jmp still	162	jmp still
163	button_loc_02:	163	button_loc_02:
164	cmp ah,4 ; Ok	164	cmp ah,4 ; Ok
165	jne button_loc_03	165	jne button_loc_03
166	mov ah,13	166	mov ah,13
167	jmp key_loc_07	167	jmp key_loc_07
168	button_loc_03:	168	button_loc_03:
169	cmp ah,5 ; Cancel	169	cmp ah,5 ; Cancel
170	jne button_loc_04	170	jne button_loc_04
171	mov [vmselect],word 00h	171	mov [vmselect],word 00h
172	jmp red	172	jmp red
173	button_loc_04:	173	button_loc_04:
174	cmp ah,6 ; Return	174	cmp ah,6 ; Return
175	jne button_loc_05	175	jne button_loc_05
176	mov ah,'r'	176	mov ah,'r'
177	jmp key_loc_06	177	jmp key_loc_06
178	button_loc_05:	178	button_loc_05:
179	cmp ah,7 ; Default	179	cmp ah,7 ; Default
180	jne button_loc_06	180	jne button_loc_06
181	call restore_mode	181	call restore_mode
182	button_loc_06:	182	button_loc_06:
183	jmp still	183	jmp still
184		184
185		185
186	; *********************************************	186	; *********************************************
187	; ***** WINDOW DEFINITIONS AND DRAW ******	187	; ***** WINDOW DEFINITIONS AND DRAW ******
188	; *********************************************	188	; *********************************************
189		189
190		190
191	draw_window:	191	draw_window:
192		192
193	dw_continue:	193	dw_continue:
194		194
195	mov eax,12 ; function 12:tell os about windowdraw	195	mov eax,12 ; function 12:tell os about windowdraw
196	mov ebx,1 ; 1, start of draw	196	mov ebx,1 ; 1, start of draw
197	mcall	197	mcall
198		198
199	; DRAW WINDOW	199	; DRAW WINDOW
200	mov eax,0 ; function 0 : define and draw window	200	mov eax,0 ; function 0 : define and draw window
201	mov ebx,10065536+400 ; [x start] 65536 + [x size]	201	mov ebx,10065536+400 ; [x start] 65536 + [x size]
202	mov ecx,10065536+200 ; [y start] 65536 + [y size]	202	mov ecx,10065536+200 ; [y start] 65536 + [y size]
203	mov edx,0x130020C0;0x00000040 ; color of work area RRGGBB,8->color glide	203	mov edx,0x140020C0;0x00000040 ; color of work area RRGGBB,8->color glide
204	mov edi,title	204	mov edi,title
205	mcall	205	mcall
206		206
207	; BUTTONS	207	; BUTTONS
208	mov eax,8	208	mov eax,8
209	mov edx,0	209	mov edx,0
210	mov ebx,330*65536+20	210	mov ebx,330*65536+20
211	mov ecx,84*65536+48	211	mov ecx,84*65536+48
212	mov dl,2	212	mov dl,2
213	mov esi,0x5599cc ; button color RRGGBB	213	mov esi,0x5599cc ; button color RRGGBB
214	mcall ; Button '+'Width	214	mcall ; Button '+'Width
215	add ebx,30*65536	215	add ebx,30*65536
216	mov dl,3	216	mov dl,3
217	mcall ; Button '-'Width	217	mcall ; Button '-'Width
218	mov ebx,22*65536+85	218	mov ebx,22*65536+85
219	mov ecx,170*65536+15	219	mov ecx,170*65536+15
220	inc dl ;dl=4	220	inc dl ;dl=4
221	mcall ; Button 'Ok'	221	mcall ; Button 'Ok'
222	add ebx,90*65536	222	add ebx,90*65536
223	inc dl ;dl=5	223	inc dl ;dl=5
224	mcall ; Button 'Cancel'	224	mcall ; Button 'Cancel'
225	add ebx,90*65536	225	add ebx,90*65536
226	inc dl ;dl=6	226	inc dl ;dl=6
227	mcall ; Button 'Return'	227	mcall ; Button 'Return'
228	add ebx,90*65536	228	add ebx,90*65536
229	inc dl ;dl=7	229	inc dl ;dl=7
230	mcall ; Button 'Default'	230	mcall ; Button 'Default'
231		231
232	call draw_face	232	call draw_face
233		233
234	mov eax,12 ; function 12:tell os about windowdraw	234	mov eax,12 ; function 12:tell os about windowdraw
235	mov ebx,2 ; 2, end of draw	235	mov ebx,2 ; 2, end of draw
236	mcall	236	mcall
237		237
238	ret	238	ret
239		239
240	;------------Subfunctions-----------	240	;------------Subfunctions-----------
241		241
242	restore_mode:	242	restore_mode:
243	push eax	243	push eax
244	push ebx	244	push ebx
245	push edx	245	push edx
246	mov eax,21	246	mov eax,21
247	mov ebx,13	247	mov ebx,13
248	mov ecx,4	248	mov ecx,4
249	mcall	249	mcall
250	pop edx	250	pop edx
251	pop ecx	251	pop ecx
252	pop eax	252	pop eax
253	retn	253	retn
254		254
255		255
256		256
257	; IN: edx = RefRate*65536+No.VideoMode	257	; IN: edx = RefRate*65536+No.VideoMode
258	set_my_mode:	258	set_my_mode:
259	push ecx	259	push ecx
260	push ebx	260	push ebx
261	push edx	261	push edx
262	mov eax,[currvm]	262	mov eax,[currvm]
263	mov [oldvm],eax	263	mov [oldvm],eax
264	mov [currvm],edx	264	mov [currvm],edx
265	pop edx	265	pop edx
266	push edx	266	push edx
267	mov eax,21	267	mov eax,21
268	mov ebx,13	268	mov ebx,13
269	mov ecx,3	269	mov ecx,3
270	mcall	270	mcall
271	mcall 5,50	271	mcall 5,50
272	mcall 15,3	272	mcall 15,3
273	pop edx	273	pop edx
274	pop ebx	274	pop ebx
275	pop ecx	275	pop ecx
276	retn	276	retn
277		277
278	; IN: eax = 0/1 - -/+ 1Hz	278	; IN: eax = 0/1 - -/+ 1Hz
279	inc_dec_rate:	279	inc_dec_rate:
280	push ebx	280	push ebx
281	push ecx	281	push ecx
282	push edx	282	push edx
283	mov edx,eax	283	mov edx,eax
284	mov eax,21	284	mov eax,21
285	mov ebx,13	285	mov ebx,13
286	mov ecx,5	286	mov ecx,5
287	mcall	287	mcall
288	pop edx	288	pop edx
289	pop ecx	289	pop ecx
290	pop ebx	290	pop ebx
291	retn	291	retn
292		292
293	get_pid:	293	get_pid:
294	mov eax,9	294	mov eax,9
295	mov ebx,buffer	295	mov ebx,buffer
296	xor ecx,ecx	296	xor ecx,ecx
297	dec ecx	297	dec ecx
298	mcall	298	mcall
299	mov [totp],eax	299	mov [totp],eax
300	mov eax,[ebx+30]	300	mov eax,[ebx+30]
301	mov [mypid],eax	301	mov [mypid],eax
302	mov ax,[ebx+4]	302	mov ax,[ebx+4]
303	mov [mypno],ax	303	mov [mypno],ax
304	retn	304	retn
305		305
306	get_vert_rate:	306	get_vert_rate:
307	xor eax,eax	307	xor eax,eax
308	mov ebx,eax	308	mov ebx,eax
309	mov ecx,eax	309	mov ecx,eax
310	mov al,21	310	mov al,21
311	mov bl,13	311	mov bl,13
312	mov cl,2	312	mov cl,2
313	mcall	313	mcall
314	mov [initrr],ebx	314	mov [initrr],ebx
315	mov [refrate],ebx	315	mov [refrate],ebx
316	ror ecx,16	316	ror ecx,16
317	mov cx,bx	317	mov cx,bx
318	rol ecx,16	318	rol ecx,16
319	mov [currvm],ecx	319	mov [currvm],ecx
320	retn	320	retn
321		321
322	get_initial_videomode:	322	get_initial_videomode:
323	retn	323	retn
324		324
325		325
326	draw_table:	326	draw_table:
327	mov eax,13	327	mov eax,13
328	mov ebx,9*65536+303	328	mov ebx,9*65536+303
329	mov ecx,59*65536+87	329	mov ecx,59*65536+87
330	xor edx,edx	330	xor edx,edx
331	mcall	331	mcall
332	mov ebx,10*65536+300	332	mov ebx,10*65536+300
333	mov ecx,60*65536+24	333	mov ecx,60*65536+24
334	mov edx,00FF00FFh	334	mov edx,00FF00FFh
335	mcall	335	mcall
336	mov ebx,10*65536+36	336	mov ebx,10*65536+36
337	mov ecx,72*65536+72	337	mov ecx,72*65536+72
338	mov edx,0000FFFFh	338	mov edx,0000FFFFh
339	mcall	339	mcall
340	mov eax,38	340	mov eax,38
341	mov edx,00FFFFFFh	341	mov edx,00FFFFFFh
342	mov ebx,10*65536+310	342	mov ebx,10*65536+310
343	mov edi,60*65536+60	343	mov edi,60*65536+60
344	mov esi,12*65536+12	344	mov esi,12*65536+12
345	xor ecx,ecx	345	xor ecx,ecx
346	mov cl,8	346	mov cl,8
347	dt_loc_hor_line:	347	dt_loc_hor_line:
348	push ecx	348	push ecx
349	mov ecx,edi	349	mov ecx,edi
350	mcall	350	mcall
351	add edi,esi	351	add edi,esi
352	pop ecx	352	pop ecx
353	loop dt_loc_hor_line	353	loop dt_loc_hor_line
354	mov ebx,10*65536+10	354	mov ebx,10*65536+10
355	mov edi,60*65536+144	355	mov edi,60*65536+144
356	mov esi,66*65536+66	356	mov esi,66*65536+66
357	mov ecx,edi	357	mov ecx,edi
358	mcall	358	mcall
359	add ebx,36*65536+36	359	add ebx,36*65536+36
360	xor ecx,ecx	360	xor ecx,ecx
361	mov cl,5	361	mov cl,5
362	dt_loc_vert_line:	362	dt_loc_vert_line:
363	push ecx	363	push ecx
364	mov ecx,edi	364	mov ecx,edi
365	mcall	365	mcall
366	add ebx,esi	366	add ebx,esi
367	pop ecx	367	pop ecx
368	loop dt_loc_vert_line	368	loop dt_loc_vert_line
369	mov eax,4	369	mov eax,4
370	mov ebx,52*65536+75	370	mov ebx,52*65536+75
371	mov ecx,000000FFh	371	mov ecx,000000FFh
372	mov edx,_m1280x1024	372	mov edx,_m1280x1024
373	mov esi,9	373	mov esi,9
374	mcall	374	mcall
375	add edx,9	375	add edx,9
376	add ebx,66*65536	376	add ebx,66*65536
377	mcall	377	mcall
378	add edx,9	378	add edx,9
379	add ebx,66*65536	379	add ebx,66*65536
380	mcall	380	mcall
381	add edx,9	381	add edx,9
382	add ebx,66*65536	382	add ebx,66*65536
383	mcall	383	mcall
384	xor eax,eax	384	xor eax,eax
385	mov ebx,eax	385	mov ebx,eax
386	mov ecx,eax	386	mov ecx,eax
387	mov al,47	387	mov al,47
388	inc ebx	388	inc ebx
389	shl ebx,16	389	shl ebx,16
390	inc ecx	390	inc ecx
391	mov edi,ecx	391	mov edi,ecx
392	mov edx,22*65536+86	392	mov edx,22*65536+86
393	mov esi,00FF0000h	393	mov esi,00FF0000h
394	mov ecx,5	394	mov ecx,5
395	dt_loc_00:	395	dt_loc_00:
396	push ecx	396	push ecx
397	mov ecx,edi	397	mov ecx,edi
398	mcall	398	mcall
399	inc edi	399	inc edi
400	add dx,12	400	add dx,12
401	pop ecx	401	pop ecx
402	loop dt_loc_00	402	loop dt_loc_00
403	xor ecx,ecx	403	xor ecx,ecx
404	inc ecx	404	inc ecx
405	mov edi,ecx	405	mov edi,ecx
406	mov edx,76*65536+63	406	mov edx,76*65536+63
407	mov esi,000000FFh	407	mov esi,000000FFh
408	mov ecx,4	408	mov ecx,4
409	dt_loc_01:	409	dt_loc_01:
410	push ecx	410	push ecx
411	mov ecx,edi	411	mov ecx,edi
412	mcall	412	mcall
413	inc edi	413	inc edi
414	add edx,66*65536	414	add edx,66*65536
415	pop ecx	415	pop ecx
416	loop dt_loc_01	416	loop dt_loc_01
417	mov eax,4	417	mov eax,4
418	mov ebx,16*65536+63	418	mov ebx,16*65536+63
419	mov ecx,000000FFh	419	mov ecx,000000FFh
420	mov edx,_mk	420	mov edx,_mk
421	mov esi,4	421	mov esi,4
422	mcall	422	mcall
423	shl ecx,16	423	shl ecx,16
424	add bx,12	424	add bx,12
425	add edx,4	425	add edx,4
426	mcall	426	mcall
427	retn	427	retn
428		428
429	;IN: ah=keycode	429	;IN: ah=keycode
430	safekey:	430	safekey:
431	sub ah,30h	431	sub ah,30h
432	push bx	432	push bx
433	mov bx,word [vmselect]	433	mov bx,word [vmselect]
434	cmp bx,0	434	cmp bx,0
435	jnz sk_loc_00	435	jnz sk_loc_00
436	cmp ah,5	436	cmp ah,5
437	je sk_loc_01	437	je sk_loc_01
438	mov bl,ah	438	mov bl,ah
439	mov [vmselect],bx	439	mov [vmselect],bx
440	jmp sk_loc_01	440	jmp sk_loc_01
441	sk_loc_00:	441	sk_loc_00:
442	push esi	442	push esi
443	push edx	443	push edx
444	push ecx	444	push ecx
445	push eax	445	push eax
446	mov bh,ah	446	mov bh,ah
447	xor edx,edx	447	xor edx,edx
448	mov esi,_m1	448	mov esi,_m1
449	mov al,bl	449	mov al,bl
450	dec al	450	dec al
451	xor ah,ah	451	xor ah,ah
452	mov cx,10	452	mov cx,10
453	mul cx	453	mul cx
454	xor ecx,ecx	454	xor ecx,ecx
455	mov cx,ax	455	mov cx,ax
456	xor ax,ax	456	xor ax,ax
457	mov al,bh	457	mov al,bh
458	dec al	458	dec al
459	shl ax,1	459	shl ax,1
460	add cx,ax	460	add cx,ax
461	add esi,ecx	461	add esi,ecx
462	lodsw	462	lodsw
463	cmp ax,0	463	cmp ax,0
464	jnz sk_loc_02	464	jnz sk_loc_02
465	xor eax,eax	465	xor eax,eax
466	mov bh,ah	466	mov bh,ah
467	sk_loc_02:	467	sk_loc_02:
468	mov [vmselect],bx	468	mov [vmselect],bx
469	pop eax	469	pop eax
470	pop ecx	470	pop ecx
471	pop edx	471	pop edx
472	pop esi	472	pop esi
473	sk_loc_01:	473	sk_loc_01:
474	call draw_window	474	call draw_window
475	pop bx	475	pop bx
476	retn	476	retn
477		477
478	; IN: ebx=Xstart*65536+Xend	478	; IN: ebx=Xstart*65536+Xend
479	; ecx=Ystart*65536+Yend	479	; ecx=Ystart*65536+Yend
480	; edx=color	480	; edx=color
481	draw_rect:	481	draw_rect:
482	push eax	482	push eax
483	push ebx	483	push ebx
484	push ecx	484	push ecx
485	push edx	485	push edx
486	push edi	486	push edi
487	xor eax,eax	487	xor eax,eax
488	mov al,38	488	mov al,38
489	push ecx	489	push ecx
490	mov edi,ecx	490	mov edi,ecx
491	shr edi,16	491	shr edi,16
492	mov cx,di	492	mov cx,di
493	mcall	493	mcall
494	pop ecx	494	pop ecx
495	push ecx	495	push ecx
496	mov edi,ecx	496	mov edi,ecx
497	ror ecx,16	497	ror ecx,16
498	mov cx,di	498	mov cx,di
499	mcall	499	mcall
500	pop ecx	500	pop ecx

Subversion Repositories Kolibri OS

(root)/programs/system/vrr/trunk/vrr.asm – Rev 502 → 957