forked from KolibriOS/kolibrios
198 lines
3.9 KiB
NASM
198 lines
3.9 KiB
NASM
; <--- description --->
|
||
; compiler: FASM 1.54
|
||
; name: MenuetOS RUN
|
||
; version: 0.02
|
||
; last update: 28/09/2004
|
||
; written by: Ivan Poddubny
|
||
; e-mail: ivan-yar@bk.ru
|
||
|
||
|
||
; <--- include all MeOS stuff --->
|
||
include "lang.inc"
|
||
include "macros.inc"
|
||
;;;lang fix en
|
||
|
||
|
||
; <--- start of MenuetOS application --->
|
||
MEOS_APP_START
|
||
|
||
;include "DEBUG.INC"
|
||
|
||
; <--- start of code --->
|
||
CODE
|
||
call draw_window ; at first create and draw the window
|
||
|
||
wait_event: ; main cycle
|
||
mcall 10
|
||
|
||
cmp eax, 1 ; if event == 1
|
||
je redraw ; jump to redraw handler
|
||
cmp eax, 2 ; else if event == 2
|
||
je key ; jump to key handler
|
||
cmp eax, 3 ; else if event == 3
|
||
je button ; jump to button handler
|
||
|
||
jmp wait_event ; else return to the start of main cycle
|
||
|
||
|
||
redraw: ; redraw event handler
|
||
call draw_window
|
||
jmp wait_event
|
||
|
||
|
||
key: ; key event handler
|
||
mcall 2
|
||
|
||
cmp ah, 13
|
||
je _run
|
||
cmp ah, 8
|
||
je .backspace
|
||
|
||
mov bl, ah
|
||
mov eax, [position]
|
||
mov [filename + eax], bl
|
||
inc [position]
|
||
call draw_string
|
||
|
||
jmp wait_event
|
||
|
||
.backspace:
|
||
xor eax, eax
|
||
cmp [position], eax
|
||
je wait_event
|
||
dec [position]
|
||
call draw_string
|
||
jmp wait_event
|
||
|
||
|
||
button: ; button event handler
|
||
mcall 17
|
||
|
||
cmp ah, 10
|
||
je _run
|
||
|
||
dec ah
|
||
jne wait_event ; return if button id != 1
|
||
|
||
_exit:
|
||
or eax, -1 ; exit application
|
||
int 0x40
|
||
|
||
|
||
_run:
|
||
mcall 58, fileinfo
|
||
; dps "58th function returned "
|
||
; dpd eax
|
||
; newline
|
||
jmp _exit
|
||
|
||
|
||
draw_window:
|
||
mcall 12, 1
|
||
|
||
mcall 14
|
||
and eax, 0xFFFF
|
||
sub eax, 100
|
||
shl eax, 16
|
||
add eax, 80
|
||
mov ecx, eax
|
||
|
||
mov ebx, 148*65536+400 ; (window_cx)*65536+(window_sx)
|
||
mov edx, 0x03DDDDDD ; work area color & window type 3
|
||
mcall 0
|
||
|
||
mov ebx, 8*65536+8 ; coordinates
|
||
mov ecx, 0x10ffffff ; color & font N1
|
||
mov edx, header ; address of text
|
||
mov esi, header.size ; length of text
|
||
mcall 4
|
||
|
||
mpack ebx, 10, 26
|
||
mov ecx, 0
|
||
mov edx, message
|
||
mov esi, message.size
|
||
mcall
|
||
|
||
mpack ebx, 385-(runbtn.size*6), runbtn.size*6+4
|
||
mpack ecx, 56, 14
|
||
mov edx, 10
|
||
mov esi, 0xa0a0a0
|
||
mcall 8
|
||
|
||
; mpack ebx, 385-runbtn.size*6-findbtn.size*6-8, findbtn.size*6+4
|
||
; inc edx
|
||
; mcall 8
|
||
|
||
; mpack ebx, 388-runbtn.size*6-findbtn.size*6-7, 59
|
||
; mov ecx, 0
|
||
; mov edx, findbtn
|
||
; mov esi, findbtn.size
|
||
; mcall 4
|
||
|
||
mpack ebx, 388-runbtn.size*6, 59
|
||
mov ecx, 0
|
||
mov edx, runbtn
|
||
mov esi, runbtn.size
|
||
mcall 4
|
||
|
||
call draw_string
|
||
|
||
mcall 12, 2
|
||
ret
|
||
|
||
|
||
draw_string:
|
||
mpack ebx, 10, 380
|
||
mpack ecx, 38, 14
|
||
mov edx, 0xA0A0A0
|
||
mcall 13
|
||
|
||
mpack ebx, 14, 41
|
||
mov ecx, 0
|
||
mov edx, filename
|
||
mov esi, [position]
|
||
mcall 4
|
||
ret
|
||
|
||
|
||
|
||
; <--- initialised data --->
|
||
DATA
|
||
|
||
position dd filename.size
|
||
|
||
lsz header,\
|
||
ru, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>",\
|
||
en, "Start program"
|
||
|
||
lsz message,\
|
||
ru, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> 䠩<><E4A0A9>:",\
|
||
en, "Enter path to file:"
|
||
|
||
; lsz findbtn,\
|
||
; ru, "<22><><EFBFBD><EFBFBD><EFBFBD>...",\
|
||
; en, "Find..."
|
||
|
||
lsz runbtn,\
|
||
ru, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",\
|
||
en, "Run"
|
||
|
||
|
||
fileinfo:
|
||
.mode dd 16
|
||
dd 0
|
||
.param dd 0
|
||
dd 0
|
||
.workarea dd workarea
|
||
|
||
sz filename, "/rd/1/"
|
||
rb 122
|
||
|
||
|
||
; <--- uninitialised data --->
|
||
UDATA
|
||
workarea rb 4096
|
||
|
||
|
||
MEOS_APP_END
|
||
; <--- end of MenuetOS application ---> |