kolibrios/programs/system/panel/trunk/MOI.INC

load_ini:
    mov    [point2],16h
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [firini],al
    mov    [point2],32h
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [lngcrc1],al
    mov    [point2],42h
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [lngcrc2],al
    mov    [point2],52h
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [lngcrc3],al
    mov    [point2],06eh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng1],al
    mov    [point2],07eh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng2],al
    mov    [point2],08eh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng3],al
    mov    [point2],09eh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng4],al
    mov    [point2],0aeh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng5],al
    mov    [point2],0beh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng6],al
    mov    [point2],0ceh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng7],al
    mov    [point2],0deh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng8],al
    mov    [point2],0eeh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng9],al
    mov    [point2],0feh
    mcall  70,get_ini
    mov    al,[inicont]
    sub    al,30h
    mov    [altlng0],al

ret
fir_lng:
    mov    al,[firini]
    sub    al,1
    mov    dx,384
    mul    dx
    mov    [point],eax
    mcall  70,get_key
    mov  eax,21
    mov  ebx,2
    mov  ecx,1
    mov  edx,current_keymap
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_shift
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_alt
    mcall
    mov  eax,21
    mov  ecx,9
    movzx  edx,[firini]
    mcall
ret
karu:
    add  [key_r2],1
    cmp  [key_r2],3
    jb	 .altes
    mov  [key_r2],0
.altes:
    cmp  [key_r2],0
    je	 .klt_1
    cmp  [key_r2],1
    je	 .klt_2
    cmp  [key_r2],2
    je	 .klt_3
    jmp  still
.klt_1:
    mov  al,[lngcrc1]
    sub  al,1
    mov  [key_r],al
    jmp  alted
.klt_2:
    mov  al,[lngcrc2]
    sub  al,1
    mov  [key_r],al
    jmp  alted
.klt_3:
    mov  al,[lngcrc3]
    sub  al,1
    mov  [key_r],al
    jmp  alted
    ret
alter:
    cmp  [key_r],0
    je	 .alt_1
    cmp  [key_r],1
    je	 .alt_2
    cmp  [key_r],2
    je	 .alt_3
    cmp  [key_r],3
    je	 .alt_4
    cmp  [key_r],4
    je	 .alt_5
    cmp  [key_r],5
    je	 .alt_6
    cmp  [key_r],6
    je	 .alt_7
.alt_1:
    mov  al,[altlng1]
    cmp  al,0
    je	 .exit
    sub  al,1
    mov  [key_r],al
    jmp  alted

.alt_2:
    mov  al,[altlng2]
    cmp  al,0
    je	 .exit
    sub  al,1
    mov  [key_r],al
    jmp  alted
.alt_3:
    mov  al,[altlng3]
    cmp  al,0
    je	 .exit
    sub  al,1
    mov  [key_r],al
    jmp  alted
.alt_4:
    mov  al,[altlng4]
    cmp  al,0
    je	 .exit
    sub  al,1
    mov  [key_r],al
    jmp  alted
.alt_5:
    mov  al,[altlng5]
    cmp  al,0
    je	 .exit
    sub  al,1
    mov  [key_r],al
    jmp  alted
.alt_6:
    mov  al,[altlng6]
    cmp  al,0
    je	 .exit
    sub  al,1
    mov  [key_r],al
    jmp  alted
.alt_7:
    mov  al,[altlng7]
    cmp  al,0
    je	 .exit
    sub  al,1
    mov  [key_r],al
    jmp  alted
.exit:
ret
alted:
    cmp  [key_r],0
    je	 alt_1
    cmp  [key_r],1
    je	 alt_2
    cmp  [key_r],2
    je	 alt_3
    cmp  [key_r],3
    je	 alt_4
    cmp  [key_r],4
    je	 alt_5
    cmp  [key_r],5
    je	 alt_6
    cmp  [key_r],6
    je	 alt_7
ret
alt_1:
    mov    [point],0
    mcall  70,get_key
    mov  eax,21       ; english     0
    mov  ebx,2
    mov  ecx,1
    mov  edx,current_keymap
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_shift
    mcall
    mov  eax,21
    mov  ecx,9
    mov  edx,1	; 1 - english
    mcall
ret
alt_2:
    mov    [point],1536
    mcall  70,get_key
    mov  eax,21       ; finnish
    mov  ebx,2
    mov  ecx,1
    mov  edx,current_keymap
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_shift
    mcall
    mov  eax,21
    mov  ecx,9
    mov  edx,2	; 2 - finnish
    mcall
ret
alt_3:
    mov    [point],768
    mcall  70,get_key
    mov  eax,21       ; german
    mov  ebx,2
    mov  ecx,1
    mov  edx,current_keymap
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_shift
    mcall
    mov  eax,21
    mov  ecx,9
    mov  edx,3	; 3 - german
    mcall
ret
alt_4:
    mov    [point],384
    mcall  70,get_key
    mov  eax,21       ; russian
    mov  ebx,2
    mov  ecx,1
    mov  edx,current_keymap
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_shift
    mcall
    mov  eax,21
    mov  ecx,9
    mov  edx,4	; 4 - russian
    mcall
ret
alt_5:
    mov    [point],1152
    mcall  70,get_key
    mov  eax,21 	 ;french
    mov  ebx,2
    mov  ecx,1
    mov  edx,current_keymap
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_shift
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_alt
    mcall
    mov  eax,21
    mov  ecx,9
    mov  edx,5	; 5 - french
    mcall
ret
alt_6:
    mov    [point],1920
    mcall  70,get_key
    mov  eax,21       ; estonian
    mov  ebx,2
    mov  ecx,1
    mov  edx,current_keymap
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_shift
    mcall
    mov  eax,21
    mov  ecx,9
    mov  edx,6	; 6 - estonian
    mcall
ret
alt_7:
    mov    [point],2304
    mcall  70,get_key
    mov  eax,21       ; ukrainian
    mov  ebx,2
    mov  ecx,1
    mov  edx,current_keymap
    mcall
    mov  eax,21
    inc  ecx
    mov  edx,current_keymap_shift
    mcall
    mov  eax,21
    mov  ecx,9
    mov  edx,7	; 7 - ukrainian
    mcall
ret
current_keymap:
	  rb	  128
current_keymap_shift:
	  rb	  128
current_keymap_alt:
	  rb	  128
key_r	  db	  0
key_r2	  db	  0
key_r3	  db	  0
inicont   db	  0
firini	  db	  0
lngcrc1   db	  0
lngcrc2   db	  0
lngcrc3   db	  0
altlng1   db	  0
altlng2   db	  0
altlng3   db	  0
altlng4   db	  0
altlng5   db	  0
altlng6   db	  0
altlng7   db	  0
altlng8   db	  0
altlng9   db	  0
altlng0   db	  0
get_key:
	  dd	  0
point	  dd	  0
	  dd	  0
	  dd	  384
	  dd	  current_keymap
	  db	  0
	  dd	  key_file
get_ini:
	  dd	  0
point2	  dd	  0
	  dd	  0
	  dd	  1
	  dd	  inicont
	  db	  0
	  dd	  ini_file

key_file: db	  '/rd/1/keymap.key',0
ini_file: db	  '/rd/1/lang.ini',0