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 --->
|