forked from KolibriOS/kolibrios
197 lines
3.6 KiB
NASM
197 lines
3.6 KiB
NASM
;
|
||
; END
|
||
; KolibriOS Team 2005-2010
|
||
;
|
||
; <diamond> note that 'mov al,xx' is shorter than 'mov eax,xx'
|
||
; and if we know that high 24 bits of eax are zero, we can use 1st form
|
||
; the same about ebx,ecx,edx
|
||
|
||
include "lang.inc"
|
||
include "..\..\..\macros.inc"
|
||
|
||
meos_app_start
|
||
code
|
||
|
||
do_draw:
|
||
|
||
mov al,12 ; eax=12 - tell os about redraw start
|
||
mov bl,1
|
||
mcall
|
||
|
||
mov al,14 ; eax=14 - get screen max x & max y
|
||
mcall
|
||
|
||
movzx ecx,ax
|
||
|
||
shr eax,17
|
||
shl eax,16
|
||
lea ebx,[eax-110*10000h+220]
|
||
|
||
shr ecx,1
|
||
shl ecx,16
|
||
sub ecx,50*10000h - 115
|
||
|
||
xor eax,eax ; define and draw window
|
||
mov edx,0x00cccccc
|
||
mov esi,edx
|
||
mov edi,edx
|
||
mcall
|
||
|
||
sub edx,0x555555
|
||
mov al,13
|
||
mcall ,19 shl 16+87,21 shl 16+24
|
||
push ebx
|
||
mcall ,122 shl 16+87
|
||
xchg ebx,[esp]
|
||
mcall ,,55 shl 16+24
|
||
pop ebx
|
||
mcall
|
||
|
||
xor edx,edx
|
||
mov al,8
|
||
inc edx
|
||
mcall ,15 shl 16+87,17 shl 16+24,,0xaa0044
|
||
inc edx
|
||
mcall ,118 shl 16+87,,,0xbb7700
|
||
inc edx
|
||
mcall ,15 shl 16+87,51 shl 16+24,,0x8800
|
||
inc edx
|
||
mcall ,118 shl 16+87,,,0x999999
|
||
mcall ,10 shl 16+200,88 shl 16+15,0x40000005
|
||
mcall 38,27 shl 16 +193,102 shl 16 +102,0x000000dd
|
||
|
||
mov al,4 ; 0x00000004 = write text
|
||
mov ebx,28*65536+93
|
||
mov ecx,0x800000dd
|
||
mov edx,label4
|
||
mcall
|
||
|
||
mov ecx,0x90eeeeee ; 8b window nro - RR GG BB color
|
||
mov ebx,24*65536+20
|
||
mov edx,label2 ; pointer to text beginning
|
||
mcall
|
||
|
||
mov ebx,19*65536+54
|
||
mov edx,label3
|
||
mcall
|
||
|
||
mov ebx,44*65536+31
|
||
mov edx,label5
|
||
mcall
|
||
|
||
mov ebx,39*65536+65
|
||
mov edx,label6
|
||
mcall
|
||
|
||
mov al,12 ;end of redraw
|
||
mov ebx,2
|
||
mcall
|
||
|
||
still:
|
||
|
||
mov eax,10 ; wait here for event
|
||
mcall
|
||
|
||
dec eax
|
||
jz do_draw
|
||
dec eax
|
||
jnz button
|
||
key:
|
||
mov al,2 ; now eax=2 - get key code
|
||
mcall
|
||
mov al,ah
|
||
cmp al,13
|
||
jz restart
|
||
cmp al,19
|
||
jz run_rdsave
|
||
cmp al,27
|
||
jz close_1
|
||
cmp al,180
|
||
jz restart_kernel
|
||
cmp al,181
|
||
jz power_off
|
||
jmp still
|
||
|
||
button:
|
||
mov al,17 ; now eax=17 - get pressed button id
|
||
mcall
|
||
xchg al,ah
|
||
dec eax
|
||
jz power_off
|
||
dec eax
|
||
jz restart_kernel
|
||
dec eax
|
||
jz restart
|
||
dec eax
|
||
jnz run_rdsave
|
||
; we have only one button left, this is close button
|
||
; dec eax
|
||
; jnz still
|
||
close_1:
|
||
or eax,-1
|
||
mcall
|
||
|
||
power_off:
|
||
push 2
|
||
jmp mcall_and_close
|
||
|
||
restart:
|
||
push 3
|
||
jmp mcall_and_close
|
||
|
||
restart_kernel:
|
||
push 4
|
||
mcall_and_close:
|
||
pop ecx
|
||
mcall 18,9
|
||
jmp close_1
|
||
|
||
run_rdsave:
|
||
mov eax,70
|
||
mov ebx,rdsave
|
||
mcall
|
||
jmp still
|
||
|
||
data
|
||
|
||
if lang eq ru
|
||
label2:
|
||
db '‚몫îç¨âì Ÿ¤à®',0
|
||
label3:
|
||
db '<27>¥à¥§ ¯ã᪠Žâ¬¥ ',0
|
||
label4:
|
||
db '‘®åà ¨âì áâனª¨ (Ctrl-S)',0
|
||
|
||
else if lang eq ge
|
||
label2:
|
||
db ' Beenden Kernel',0
|
||
label3:
|
||
db ' Neustart Abbrechen',0
|
||
label4:
|
||
db 'Save your settings (Ctrl-S)',0
|
||
|
||
else
|
||
label2:
|
||
db 'Power off Kernel',0
|
||
label3:
|
||
db ' Restart Cancel',0
|
||
label4:
|
||
db 'Save your settings (Ctrl-S)',0
|
||
|
||
end if
|
||
|
||
label5:
|
||
db '(End) (Home)',0
|
||
label6:
|
||
db '(Enter) (Esc)',0
|
||
|
||
rdsave:
|
||
dd 7
|
||
dd 0
|
||
dd 0
|
||
dd 0
|
||
dd 0
|
||
db '/sys/rdsave',0
|
||
udata
|
||
meos_app_end
|