669 lines
14 KiB
NASM
669 lines
14 KiB
NASM
VERSION equ "0.5"
|
||
|
||
use32
|
||
org 0
|
||
db 'MENUET01'
|
||
dd 1, main, dataend, memory, stacktop, 0, 0
|
||
|
||
include "../../proc32.inc"
|
||
include "../../macros.inc"
|
||
include "../../dll.inc"
|
||
include "../../develop/libraries/box_lib/trunk/box_lib.mac"
|
||
; include "../../debug.inc"
|
||
include "parser.inc"
|
||
|
||
;===============================
|
||
|
||
LIST_ITEM_SIZE equ 16
|
||
LIST_ITEM_COUNT equ 6
|
||
LIST_SIZE equ LIST_ITEM_SIZE * LIST_ITEM_COUNT
|
||
LIST_ITEM_COLOR1 equ dword [scn.btn_face]
|
||
LIST_ITEM_COLOR2 equ dword [scn.win_face]
|
||
LIST_ITEM_TEXT1 equ dword [scn.btn_text]
|
||
LIST_ITEM_TEXT2 equ dword [scn.win_text]
|
||
LIST_ITEM_Y equ LIST_ITEM_SIZE / 2 - 3
|
||
|
||
KEYB_SIZE equ 140
|
||
|
||
sz_cont db "Keyboard ", 0x10
|
||
sz_head db "Calc+ v", VERSION, 0
|
||
btn_clr db ""
|
||
buttons db "|%^*/-+)(=7894561230"
|
||
edb1 edit_box 0, 8, 12, 0, 0, 0, 0, 0, 480, \
|
||
exp, group, ed_always_focus + ed_focus, 0, 0
|
||
|
||
imports:
|
||
library gui, "box_lib.obj"
|
||
import gui, editbox.draw, "edit_box", \
|
||
editbox.key, "edit_box_key", \
|
||
editbox.mouse, "edit_box_mouse"
|
||
|
||
;===============================
|
||
|
||
main:
|
||
mov [ans.buffer], dword "= 0"
|
||
mov [ans.size], 3 * 6 + 9
|
||
|
||
mcall 40, 100111b
|
||
; mcall 48, 3, scn, 192
|
||
|
||
|
||
m2m [edb1.color], [scn.gui_face]
|
||
m2m [edb1.shift_color], [scn.gui_select]
|
||
m2m [edb1.focus_border_color], [scn.gui_face]
|
||
m2m [edb1.text_color], [scn.gui_text]
|
||
|
||
mcall 68, 11
|
||
stdcall dll.Load, imports
|
||
|
||
;----------------------
|
||
|
||
update:
|
||
mcall 23, 5
|
||
|
||
cmp eax, EV_REDRAW
|
||
je ev_redraw
|
||
cmp eax, EV_KEY
|
||
je ev_key
|
||
cmp eax, EV_BUTTON
|
||
je ev_button
|
||
cmp eax, EV_MOUSE
|
||
je ev_mouse
|
||
|
||
jmp update
|
||
|
||
;----------------------
|
||
|
||
ev_redraw:
|
||
mcall 12, 1
|
||
|
||
; WINDOW
|
||
mov edx, [scn.win_face]
|
||
or edx, 0x34 shl 24
|
||
mcall 0, <100, 236 + 100 - 50 - 25>, <100, 66 + LIST_SIZE>, , , sz_head
|
||
|
||
; TOOLBAR
|
||
mov ebx, 120 shl 16 + 64
|
||
mcall 8, , <-17, 12>, 2 + 1 shl 30
|
||
add ebx, 4 shl 16 - (64 + 14)
|
||
mcall 4, , [scn.win_title], sz_cont, 10
|
||
|
||
; CONTENT
|
||
call draw_textbox
|
||
call draw_keyb
|
||
call draw_list
|
||
|
||
mcall 12, 2
|
||
|
||
jmp update
|
||
|
||
;----------------------
|
||
|
||
ev_key:
|
||
mcall 2
|
||
cmp ah, 27
|
||
je exit
|
||
cmp ah, 13
|
||
je calc
|
||
invoke editbox.key, edb1
|
||
jmp update
|
||
|
||
;----------------------
|
||
|
||
ev_button:
|
||
mcall 17
|
||
|
||
; EXIT
|
||
cmp ah, 1
|
||
je exit
|
||
|
||
; DELETE
|
||
cmp ah, 4
|
||
jne .not_del
|
||
cmp [edb1.pos], 0
|
||
je update
|
||
mov eax, exp
|
||
add eax, [edb1.pos]
|
||
dec eax
|
||
mov ebx, exp
|
||
add ebx, [edb1.size]
|
||
inc ebx
|
||
@@:
|
||
cmp eax, ebx
|
||
je @f
|
||
mov cl, [eax + 1]
|
||
mov [eax], cl
|
||
inc eax
|
||
jmp @b
|
||
@@:
|
||
dec [edb1.pos]
|
||
dec [edb1.size]
|
||
m2m [edb1.shift], [edb1.pos]
|
||
jmp .redraw
|
||
.not_del:
|
||
|
||
; SHOW/HIDE KEYBOARD
|
||
cmp ah, 2
|
||
jne .not_keyb
|
||
|
||
cmp [keyb], byte 0
|
||
je .open
|
||
|
||
mov [keyb], 0
|
||
mov [sz_cont + 9], byte 0x10
|
||
mcall 67, -1, -1, 286 - 25, -1
|
||
jmp update
|
||
|
||
.open:
|
||
mov [keyb], 1
|
||
mov [sz_cont + 9], byte 0x11
|
||
mcall 67, -1, -1, 286 - 25 + KEYB_SIZE, -1
|
||
jmp update
|
||
.not_keyb:
|
||
|
||
; CALCULATE
|
||
cmp ah, 19
|
||
je calc
|
||
|
||
; LIST
|
||
cmp ah, 0x60
|
||
jl .not_list
|
||
|
||
sub ah, 0x60
|
||
movzx ebx, ah
|
||
imul ebx, 512
|
||
add ebx, history
|
||
add ebx, 482
|
||
stdcall str_len, ebx
|
||
|
||
mov edx, exp
|
||
add edx, [edb1.size]
|
||
add edx, eax
|
||
mov edi, exp
|
||
add edi, [edb1.pos]
|
||
@@:
|
||
cmp edx, edi
|
||
je @f
|
||
mov esi, edx
|
||
sub esi, eax
|
||
push eax
|
||
mov al, [esi]
|
||
mov [edx], al
|
||
pop eax
|
||
dec edx
|
||
jmp @b
|
||
@@:
|
||
add [edb1.size], eax
|
||
|
||
@@:
|
||
cmp eax, 0
|
||
je @f
|
||
mov cl, [ebx]
|
||
mov [edi], cl
|
||
inc edi
|
||
inc ebx
|
||
dec eax
|
||
inc [edb1.pos]
|
||
jmp @b
|
||
@@:
|
||
|
||
jmp .redraw
|
||
.not_list:
|
||
|
||
; KEYBOARD
|
||
cmp ah, 10
|
||
jl update
|
||
cmp ah, 50
|
||
jg update
|
||
mov dh, ah
|
||
|
||
mov ebx, exp
|
||
add ebx, [edb1.size]
|
||
mov ecx, exp
|
||
add ecx, [edb1.pos]
|
||
cmp dh, 30
|
||
jl @f
|
||
add ebx, 2
|
||
@@:
|
||
cmp ebx, ecx
|
||
je @f
|
||
mov dl, [ebx - 1]
|
||
mov [ebx], dl
|
||
dec ebx
|
||
jmp @b
|
||
@@:
|
||
|
||
movzx eax, dh
|
||
add eax, buttons
|
||
sub eax, 10
|
||
mov al, [eax]
|
||
|
||
mov [ebx], al
|
||
inc [edb1.size]
|
||
inc [edb1.pos]
|
||
cmp dh, 30
|
||
jl @f
|
||
add [edb1.size], 2
|
||
add [edb1.pos], 2
|
||
@@:
|
||
.redraw:
|
||
call draw_textbox
|
||
jmp update
|
||
|
||
;----------------------
|
||
|
||
ev_mouse:
|
||
mcall 2
|
||
|
||
invoke editbox.mouse, edb1
|
||
jmp update
|
||
|
||
;----------------------
|
||
|
||
exit:
|
||
mcall -1
|
||
|
||
;----------------------
|
||
|
||
calc:
|
||
stdcall parse
|
||
cmp [error_n], 0
|
||
jne .error
|
||
|
||
mov [ans.buffer], word "= "
|
||
|
||
stdcall convert_to_str, eax, ans.buffer + 2
|
||
add eax, 2
|
||
mov edi, eax
|
||
imul eax, 6
|
||
add eax, 9
|
||
mov [ans.size], eax
|
||
|
||
; HISTORY
|
||
mov ecx, LIST_ITEM_COUNT - 1
|
||
mov eax, history
|
||
add eax, (LIST_ITEM_COUNT - 1) * 512
|
||
@@:
|
||
mov ebx, eax
|
||
sub ebx, 512
|
||
stdcall str_cpy, ebx, eax
|
||
add ebx, 480
|
||
add eax, 480
|
||
stdcall str_cpy, ebx, eax
|
||
sub ebx, 480
|
||
sub eax, 480
|
||
mov esi, [ebx + 508]
|
||
mov [eax + 508], esi
|
||
sub eax, 512
|
||
loop @b
|
||
|
||
stdcall str_cpy, exp, history
|
||
stdcall str_cpy, ans.buffer, history + 480
|
||
mov esi, [ans.size]
|
||
mov dword[history + 508], esi
|
||
not [his_even]
|
||
|
||
; Check length
|
||
mov esi, 37
|
||
sub esi, edi
|
||
stdcall str_len, exp
|
||
sub esi, eax
|
||
cmp esi, 0
|
||
jg .redraw
|
||
|
||
mov ebx, history
|
||
add ebx, eax
|
||
add ebx, esi
|
||
mov [ebx], dword ".."
|
||
|
||
jmp .redraw
|
||
|
||
; ERRORS
|
||
|
||
.error:
|
||
cmp [error_n], 1
|
||
je .err_1
|
||
cmp [error_n], 4
|
||
je .err_4
|
||
|
||
mov [ans.buffer + 0], dword "Expe"
|
||
mov [ans.buffer + 4], dword "cted"
|
||
mov [ans.buffer + 8], dword " ')'"
|
||
mov [ans.buffer + 12], byte 0
|
||
mov [ans.size], 81
|
||
|
||
cmp [error_n], 2
|
||
je .redraw
|
||
cmp [error_n], 3
|
||
je .err_3
|
||
cmp [error_n], 5
|
||
je .err_5
|
||
.err_1:
|
||
mov [ans.buffer + 0], dword "Div."
|
||
mov [ans.buffer + 4], dword " by "
|
||
mov [ans.buffer + 8], byte "0"
|
||
mov [ans.buffer + 9], byte 0
|
||
mov [ans.size], 63
|
||
jmp .redraw
|
||
.err_4:
|
||
mov [ans.buffer + 0], dword "Inpu"
|
||
mov [ans.buffer + 4], dword "t er"
|
||
mov [ans.buffer + 8], dword "rror"
|
||
mov [ans.buffer + 12], byte 0
|
||
mov [ans.size], 81
|
||
jmp .redraw
|
||
.err_3:
|
||
mov [ans.buffer + 10], byte "("
|
||
jmp .redraw
|
||
.err_5:
|
||
mov [ans.buffer + 10], byte "|"
|
||
jmp .redraw
|
||
|
||
.redraw:
|
||
call draw_textbox
|
||
call draw_list
|
||
jmp update
|
||
|
||
;----------------------
|
||
|
||
proc draw_button, x, y
|
||
mcall 8, <[x], 30>, <[y], 21>, [but_id], [but_c]
|
||
|
||
mov ebx, [x]
|
||
mov esi, [txt_size]
|
||
imul esi, 3
|
||
mov edi, 16
|
||
sub edi, esi
|
||
add ebx, edi
|
||
shl ebx, 16
|
||
add ebx, [y]
|
||
add ebx, 7
|
||
mcall 4, , [but_tc], [txt_id], [txt_size]
|
||
|
||
mov eax, [txt_size]
|
||
add [txt_id], eax
|
||
inc dword [but_id]
|
||
|
||
ret
|
||
endp
|
||
|
||
;----------------------
|
||
|
||
proc draw_textbox
|
||
mcall 13, <4, 320 - 50 - 25>, < 8, 23>, [scn.gui_frame]
|
||
mov edx, [scn.gui_face]
|
||
cmp [error_n], 0
|
||
je @f
|
||
mov edx, 0xFFAAAA
|
||
@@:
|
||
mcall 13, < 5, 318 - 50 - 25>, < 9, 21>
|
||
mcall , < 5, 318 - 50 - 25>, < 9, 1>, [scn.3d_face]
|
||
mcall , < 5, 1>, < 10, 20>
|
||
mcall , < 5, 318 - 50 - 25>, < 31, 1>, [scn.3d_light]
|
||
|
||
mov ebx, 328 - 16 - 50 - 25
|
||
sub ebx, [ans.size]
|
||
shl ebx, 16
|
||
add ebx, 16
|
||
mov ecx, [scn.gui_intext]
|
||
or ecx, 1 shl 31
|
||
mcall 4, , , ans.buffer
|
||
|
||
mov ecx, [scn.gui_text]
|
||
mcall , <310 - 50 - 25, 16>, , btn_clr, 1
|
||
add ebx, 1 shl 16
|
||
mcall
|
||
|
||
mcall 8, <305 - 50 - 25, 17>, <9, 20>, 0x40000004
|
||
|
||
mcall 1, 4, 8, [scn.win_body]
|
||
mcall , 323 - 50 - 25
|
||
mcall , , 30, [scn.3d_light]
|
||
mcall , 4
|
||
|
||
mov ebx, 318 - 16 - 50 - 25
|
||
sub ebx, [ans.size]
|
||
cmp ebx, 24
|
||
jg @f
|
||
mov ebx, 24
|
||
@@:
|
||
mov [edb1.width], ebx
|
||
m2m [edb1.color], [scn.gui_face]
|
||
m2m [edb1.focus_border_color], [scn.gui_face]
|
||
cmp [error_n], 0
|
||
je @f
|
||
mov [edb1.color], 0xFFAAAA
|
||
mov [edb1.focus_border_color], 0xFFAAAA
|
||
@@:
|
||
invoke editbox.draw, edb1
|
||
|
||
ret
|
||
endp
|
||
|
||
;----------------------
|
||
|
||
proc draw_keyb
|
||
cmp [keyb], byte 0
|
||
je @f
|
||
|
||
mov [txt_size], 1
|
||
mov [but_id], 0x0000000A
|
||
mov [txt_id], buttons
|
||
|
||
mov eax, [scn.win_face]
|
||
mov [but_c], eax
|
||
mov eax, [scn.win_text]
|
||
mov [but_tc], eax
|
||
stdcall draw_button, 4 + 278 - 25, 42 - 25 - 8
|
||
stdcall draw_button, 37 + 278 - 25, 42 - 25 - 8
|
||
stdcall draw_button, 70 + 278 - 25, 42 - 25 - 8
|
||
stdcall draw_button, 103 + 278 - 25, 42 - 25 - 8
|
||
stdcall draw_button, 103 + 278 - 25, 66 - 25 - 8
|
||
stdcall draw_button, 103 + 278 - 25, 90 - 25 - 8
|
||
stdcall draw_button, 103 + 278 - 25, 114 - 25 - 8
|
||
stdcall draw_button, 70 + 278 - 25, 139 - 25 - 8
|
||
stdcall draw_button, 37 + 278 - 25, 139 - 25 - 8
|
||
|
||
mov eax, [scn.btn_inface]
|
||
mov [but_c], eax
|
||
mov eax, [scn.btn_intext]
|
||
mov [but_tc], eax
|
||
stdcall draw_button, 103 + 278 - 25, 139 - 25 - 8
|
||
|
||
mov eax, [scn.btn_face]
|
||
mov [but_c], eax
|
||
mov eax, [scn.btn_text]
|
||
mov [but_tc], eax
|
||
stdcall draw_button, 4 + 278 - 25, 66 - 25 - 8
|
||
stdcall draw_button, 37 + 278 - 25, 66 - 25 - 8
|
||
stdcall draw_button, 70 + 278 - 25, 66 - 25 - 8
|
||
stdcall draw_button, 4 + 278 - 25, 90 - 25 - 8
|
||
stdcall draw_button, 37 + 278 - 25, 90 - 25 - 8
|
||
stdcall draw_button, 70 + 278 - 25, 90 - 25 - 8
|
||
stdcall draw_button, 4 + 278 - 25, 114 - 25 - 8
|
||
stdcall draw_button, 37 + 278 - 25, 114 - 25 - 8
|
||
stdcall draw_button, 70 + 278 - 25, 114 - 25 - 8
|
||
stdcall draw_button, 4 + 278 - 25, 139 - 25 - 8
|
||
|
||
@@:
|
||
ret
|
||
endp
|
||
|
||
;----------------------
|
||
|
||
proc draw_list
|
||
; BACKGROUND
|
||
mov edi, LIST_ITEM_COUNT
|
||
mov eax, 13
|
||
mov ebx, 4 shl 16 + 320 - 50 - 25
|
||
mov ecx, 37 shl 16 + LIST_ITEM_SIZE
|
||
mov edx, LIST_ITEM_COLOR1
|
||
cmp [his_even], byte 0
|
||
je @f
|
||
mov edx, LIST_ITEM_COLOR2
|
||
@@:
|
||
mcall
|
||
add ecx, LIST_ITEM_SIZE shl 16
|
||
cmp edx, LIST_ITEM_COLOR1
|
||
je .set_color_to_2
|
||
mov edx, LIST_ITEM_COLOR1
|
||
jmp .next
|
||
.set_color_to_2:
|
||
mov edx, LIST_ITEM_COLOR2
|
||
.next:
|
||
dec edi
|
||
cmp edi, 0
|
||
jne @b
|
||
|
||
; BUTTONS
|
||
mov edi, LIST_ITEM_COUNT
|
||
mov eax, 8
|
||
mov ebx, 4 shl 16 + 320 - 50 - 25
|
||
mov ecx, 37 shl 16 + LIST_ITEM_SIZE
|
||
mov edx, 0x40000060
|
||
@@:
|
||
mcall
|
||
add ecx, LIST_ITEM_SIZE shl 16
|
||
inc edx
|
||
dec edi
|
||
cmp edi, 0
|
||
jne @b
|
||
|
||
; TEXT
|
||
mov edi, LIST_ITEM_COUNT
|
||
mov eax, 4
|
||
mov ebx, 8 shl 16 + 37 + LIST_ITEM_Y
|
||
mov ecx, LIST_ITEM_TEXT1
|
||
cmp [his_even], byte 0
|
||
je @f
|
||
mov ecx, LIST_ITEM_TEXT2
|
||
@@:
|
||
or ecx, 1 shl 31
|
||
mov edx, history
|
||
@@:
|
||
mcall
|
||
|
||
push ebx
|
||
add ebx, (320 - 50 - 25) shl 16
|
||
mov esi, [edx + 508]
|
||
shl esi, 16
|
||
sub ebx, esi
|
||
add edx, 480
|
||
mcall
|
||
pop ebx
|
||
|
||
add edx, 32
|
||
add ebx, LIST_ITEM_SIZE
|
||
|
||
and ecx, 0xFFFFFF
|
||
cmp ecx, LIST_ITEM_TEXT2
|
||
je .set_color_to_2_txt
|
||
mov ecx, LIST_ITEM_TEXT2
|
||
jmp .next_txt
|
||
.set_color_to_2_txt:
|
||
mov ecx, LIST_ITEM_TEXT1
|
||
.next_txt:
|
||
or ecx, 1 shl 31
|
||
|
||
dec edi
|
||
cmp edi, 0
|
||
jne @b
|
||
|
||
ret
|
||
endp
|
||
|
||
;----------------------
|
||
|
||
proc str_len uses ebx, str
|
||
xor eax, eax
|
||
mov ebx, [str]
|
||
@@:
|
||
cmp [ebx], byte 0
|
||
je @f
|
||
inc eax
|
||
inc ebx
|
||
jmp @b
|
||
@@:
|
||
|
||
ret
|
||
endp
|
||
|
||
;----------------------
|
||
|
||
proc str_cpy uses eax ebx ecx, from, to
|
||
mov eax, [from]
|
||
mov ebx, [to]
|
||
@@:
|
||
cmp [eax], byte 0
|
||
je @f
|
||
mov cl, [eax]
|
||
mov [ebx], cl
|
||
inc eax
|
||
inc ebx
|
||
jmp @b
|
||
@@:
|
||
mov [ebx], byte 0
|
||
ret
|
||
endp
|
||
|
||
;----------------------
|
||
|
||
dataend:
|
||
|
||
;===============================
|
||
|
||
rb 2048
|
||
stacktop:
|
||
|
||
exp rb 480
|
||
exp_pos rd 1
|
||
exp_lvl rd 1
|
||
abs_lvl rd 1
|
||
group rd 1
|
||
|
||
ans.buffer:rb 480
|
||
ans.size rd 1
|
||
error_n rd 1
|
||
|
||
timer rd 1
|
||
but_id rd 1
|
||
but_c rd 1
|
||
but_tc rd 1
|
||
txt_id rd 1
|
||
txt_size rd 1
|
||
keyb rb 1
|
||
|
||
his_even rb 1
|
||
history rb 512 * LIST_ITEM_COUNT
|
||
rb 512
|
||
|
||
struc system_colors_internal {
|
||
.3d_face dd 0xCED0D0
|
||
.3d_dark dd 0xD7D7D7
|
||
.3d_light dd 0xFEFEFE
|
||
.win_title dd 0x2F2F2F
|
||
.win_body dd 0xE4DFE1
|
||
.btn_face dd 0xEFEBEF
|
||
.btn_text dd 0x373C42
|
||
.win_text dd 0x000000
|
||
.panel_frame dd 0x94AECE
|
||
.win_face dd 0xE1E1E1
|
||
.win_inface dd 0xE1E1E1
|
||
.win_frame dd 0x204962
|
||
.btn_inface dd 0xEFEBEF
|
||
.btn_intext dd 0xD0D9E8
|
||
.btn_fctext dd 0x2D3135
|
||
.gui_shadow dd 0xFFFFFF
|
||
.gui_face dd 0xFAF8FA
|
||
.gui_inface dd 0xF6F3F6
|
||
.gui_fcface dd 0xFAF8FA
|
||
.gui_frame dd 0x7698C0
|
||
.gui_text dd 0x373C42
|
||
.gui_intext dd 0x5F5F5F
|
||
.gui_select dd 0xC7C9C9
|
||
}
|
||
|
||
scn system_colors_internal
|
||
|
||
memory:
|