KolibriOS/kolibrios
15
21
Fork 36
Code Issues 129 Pull Requests 31 Actions 1 Projects 1 Releases Wiki Activity

apps/piano: fix CWD path, refactor code

Browse Source
This commit is contained in:
Burer
2026-03-07 11:04:40 +02:00
committed by Max Logaev
parent bdd6c71734
commit d603bbe3d9
1 changed files with 54 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

86
programs/media/piano/piano.asm
View File

@@ -19,7 +19,7 @@ dd I_END
dd MEM
dd STACKTOP
dd 0
dd 0
dd app_path_buf
; ====================================================================
@@ -31,6 +31,7 @@ include "../../encoding.inc"
START:
mcall SF_KEYBOARD, SSF_SET_INPUT_MODE, 1
call build_keymap_path
call load_keymap
jmp redraw
@@ -135,27 +136,44 @@ play:
; =======================================================================
load_keymap:
call load_default_keymap
build_keymap_path:
; build path: app_dir + 'piano.map'
lea esi, [app_path_buf + 2]
lea edi, [app_path_buf]
.copy:
lodsb
stosb
test al, al
jnz .copy
; edi is one past '\0'; scan backward to the last '/'
.find_slash:
dec edi
cmp byte [edi], '/'
jne .find_slash
inc edi
mcall SF_FILE, keymap_file
; add 'piano.map' to the path
mov eax, 'pian'
stosd
mov eax, 'o.ma'
stosd
mov eax, 'p'
stosd
ret
; =======================================================================
load_keymap:
mcall SF_FILE, keymap_info
test eax, eax
jnz .notify
cmp ebx, 256
je .done
.notify:
call load_default_keymap
mcall SF_FILE, notify_info
.done:
ret
load_default_keymap:
mov esi, default_keymap
mov edi, keymap
mov ecx, 256
rep movsb
ret
; =======================================================================
redraw:
@@ -290,10 +308,10 @@ help_thread:
; draw all help text in rows
.help_text_loop:
cmp edi, help_texts_end
jae .help_text_loop_done
mov edx, [edi]
test edx, edx
jz .help_text_loop_done
mcall ; draw text
add ebx, RT_HELP.H
@@ -308,6 +326,9 @@ help_thread:
sc system_colors
mw_pos dd 0
hw_tid dd 0
WN_MAIN RECT 32, 32, BT_WHITE.W * 15 + 10, BT_WHITE.H * 2 + (5 + 4)
BT_WHITE RECT 0, 4, 48, 100
@@ -449,13 +470,15 @@ help_texts:
dd lb_help4
dd lb_help5
dd lb_help6
help_texts_end:
dd 0
; =======================================================================
BAD_NOTE = 0xFF
default_keymap:
melody db 0x90, 0x30, 0
keymap:
db BAD_NOTE ; 0x00
db BAD_NOTE ; 0x01
db 0x21 ; 0x02 '1' -> note 0x31
@@ -514,23 +537,9 @@ default_keymap:
db 0x19 ; 0x34 '.' -> note 0x29
db 0x1A ; 0x35 '/' -> note 0x2A
times 256-($-default_keymap) db BAD_NOTE
times 256-($-keymap) db BAD_NOTE
keymap_file:
dd SSF_READ_FILE
dd 0
dd 0
dd 256
dd keymap
db 'piano.map', 0
; =======================================================================
melody db 0x90, 0x30, 0
keymap rb 256
mw_pos dd 0
hw_tid dd 0
; =======================================================================
@@ -544,11 +553,24 @@ notify_info:
; =======================================================================
keymap_info:
dd SSF_READ_FILE
dd 0
dd 0
dd 256
dd keymap
; =======================================================================
I_END:
app_path rb 1024 ; = keymap_info + 20: acts as SF_FILE path field
help_stack:
rb 512
help_stack_top:
rb 1024
align 512
STACKTOP:
MEM: