forked from KolibriOS/kolibrios
225 lines
3.5 KiB
NASM
225 lines
3.5 KiB
NASM
;
|
||
; END
|
||
;
|
||
|
||
include "lang.inc"
|
||
include "macros.inc"
|
||
|
||
meos_app_start
|
||
code
|
||
|
||
mov eax,40
|
||
mov ebx,0111b
|
||
int 0x40
|
||
|
||
call draw_window
|
||
|
||
still:
|
||
|
||
mov eax,10 ; wait here for event
|
||
; mov ebx,100
|
||
int 0x40
|
||
|
||
cmp eax,1
|
||
jz red
|
||
cmp eax,2
|
||
jz key
|
||
cmp eax,3
|
||
jz button
|
||
|
||
jmp still
|
||
|
||
red:
|
||
call draw_window
|
||
jmp still
|
||
|
||
key:
|
||
mcall 2
|
||
cmp ah,13
|
||
jz restart
|
||
cmp ah,27
|
||
jz close_1
|
||
cmp ah,180
|
||
jz restart_kernel
|
||
cmp ah,181
|
||
jz power_off
|
||
jmp red
|
||
|
||
button:
|
||
mov eax,17
|
||
int 0x40
|
||
|
||
cmp ah,1
|
||
jne no_1
|
||
power_off:
|
||
mcall 18,9,2
|
||
jmp close_1
|
||
|
||
no_1:
|
||
cmp ah,3
|
||
jne no_2
|
||
restart:
|
||
mcall 18,9,3
|
||
jmp close_1
|
||
|
||
no_2:
|
||
cmp ah,2
|
||
jne no_4
|
||
|
||
restart_kernel:
|
||
mcall 18,9,4
|
||
|
||
no_4:
|
||
cmp ah,4
|
||
jne still
|
||
|
||
close_1:
|
||
or eax,-1 ; close this program
|
||
int 0x40
|
||
|
||
|
||
draw_window:
|
||
|
||
pusha
|
||
|
||
mov eax,48
|
||
mov ebx,3
|
||
mov ecx,sc
|
||
mov edx,sizeof.system_colors
|
||
int 0x40
|
||
|
||
mov eax,12 ; tell os about redraw start
|
||
mov ebx,1
|
||
int 0x40
|
||
|
||
mov eax,14 ; get screen max x & max y
|
||
int 0x40
|
||
|
||
xor ecx,ecx
|
||
mov cx,ax
|
||
|
||
shr eax,17
|
||
sub eax,110
|
||
shl eax,16
|
||
mov ebx,eax
|
||
add ebx,220
|
||
|
||
shr ecx,1
|
||
sub ecx,50
|
||
shl ecx,16
|
||
add ecx,100
|
||
|
||
mov eax,0 ; define and draw window
|
||
mov edx,[sc.work_button]
|
||
mov esi,edx ;[sc.work_button]
|
||
xor edi,edi
|
||
int 0x40
|
||
|
||
xor edx,edx
|
||
mcall 13,14 shl 16+90,25 shl 16+27
|
||
mcall 13,117 shl 16+90,
|
||
mcall 13,14 shl 16+90,59 shl 16+27
|
||
mcall 13,117 shl 16+90,
|
||
|
||
mcall 8,15 shl 16+87,26 shl 16+24,1,0xdd7700
|
||
inc dl
|
||
mcall 8,118 shl 16+87,,,0xbbbb ;cccc
|
||
inc dl
|
||
mcall 8,15 shl 16+87,60 shl 16+24,,0xbb00
|
||
inc dl
|
||
mcall 8,118 shl 16+87,,,0xbbbbbb ;cccccc
|
||
|
||
mov eax,4 ; 0x00000004 = write text
|
||
mov ebx,75*65536+10
|
||
mov ecx,[sc.work_button_text] ; 8b window nro - RR GG BB color
|
||
or ecx,0x10000000
|
||
mov edx,label1 ; pointer to text beginning
|
||
mov esi,label1_len ; text length
|
||
int 0x40
|
||
|
||
mov ecx,0x10ffffff
|
||
mov ebx,25*65536+30
|
||
mov edx,label2 ; pointer to text beginning
|
||
mov esi,label2_len ; text length
|
||
int 0x40
|
||
|
||
mov ebx,20*65536+64
|
||
mov edx,label3 ; pointer to text beginning
|
||
mov esi,label3_len ; text length
|
||
int 0x40
|
||
|
||
mov ecx,0xffffff
|
||
mov ebx,45*65536+41
|
||
mov edx,label4 ; pointer to text beginning
|
||
mov esi,label4_len ; text length
|
||
int 0x40
|
||
|
||
mov ebx,40*65536+75
|
||
mov edx,label5 ; pointer to text beginning
|
||
mov esi,label5_len ; text length
|
||
int 0x40
|
||
|
||
mov eax,12 ; tell os about redraw end
|
||
mov ebx,2
|
||
int 0x40
|
||
|
||
popa
|
||
|
||
ret
|
||
|
||
|
||
|
||
data
|
||
|
||
if lang eq ru
|
||
|
||
label1:
|
||
db '<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>:'
|
||
label1_len = $ - label1
|
||
|
||
label2:
|
||
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>'
|
||
label2_len = $ - label2
|
||
|
||
label3:
|
||
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
label3_len = $ - label3
|
||
|
||
label4:
|
||
db '(End) (Home)'
|
||
label4_len = $ - label4
|
||
|
||
label5:
|
||
db '(Enter) (Esc)'
|
||
label5_len = $ - label5
|
||
|
||
else
|
||
|
||
label1:
|
||
db ' SELECT:'
|
||
label1_len = $ - label1
|
||
|
||
label2:
|
||
db 'POWER OFF KERNEL'
|
||
label2_len = $ - label2
|
||
|
||
label3:
|
||
db ' RESTART CANCEL'
|
||
label3_len = $ - label3
|
||
|
||
label4:
|
||
db '(End) (Home)'
|
||
label4_len = $ - label4
|
||
|
||
label5:
|
||
db '(Enter) (Esc)'
|
||
label5_len = $ - label5
|
||
|
||
end if
|
||
|
||
|
||
udata
|
||
sc system_colors
|
||
|
||
meos_app_end
|