376 lines
6.8 KiB
Plaintext
376 lines
6.8 KiB
Plaintext
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 |