ace-dent/kolibrios-gitea
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

programs: Fix post-SVN tidying

Browse Source 
- Fix include paths after moving files up a level, from old SVN trunk subdirs. e.g. `include '../../macros.inc’`.
- Add SPDX placeholder.
- Translated RU comments to en_US. (In some cases this removes codepage dependency).
- Note: Line endings standardised from `CRLF` > `LF`, so best to view diffs with whitespace changes hidden.
This commit is contained in:
Andrew
2025-05-19 13:03:18 +01:00
committed by Gleb Zaharov
parent adf16bbe28
commit 7bfbff0e1d
4 changed files with 1413 additions and 1407 deletions
Download Patch File Download Diff File Expand all files Collapse all files

353
programs/emulator/e80/utils/keyZXtst/keyZXtst.asm
View File

@@ -1,176 +1,177 @@
; Text CodePage = cp1251 ; SPDX-License-Identifier: NOASSERTION
;
; <--- include all MeOS stuff --->
; <--- include all MeOS stuff --->
include "../../../../../macros.inc"
include "../../../../macros.inc"
; <--- start of MenuetOS application --->
MEOS_APP_START ; <--- start of MenuetOS application --->
MEOS_APP_START
include "key_read.inc"
include "key_read.inc"
; <--- start of code --->
CODE ; <--- start of code --->
CODE
mov eax,48 ; get system colors
mov ebx,3 mov eax,48 ; get system colors
mov ecx,sc mov ebx,3
mov edx,sizeof.system_colors mov ecx,sc
mcall mov edx,sizeof.system_colors
mcall
xor ecx, ecx
inc ecx xor ecx, ecx
mcall 66,1 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> inc ecx
mcall 66,1 ; setting scancode input mode
redraw: ; redraw event handler
call draw_window ; at first create and draw the window redraw: ; redraw event handler
call draw_window ; at first create and draw the window
wait_event: ; main cycle
wait_event: ; main cycle
mcall 10 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
mcall 10 ; expect an event
; mcall 23, 2 ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
; or eax, eax ; mcall 23, 2 ; option constant poll
; jz key.1 ; or eax, eax
; jz key.1
dec eax ; if event = 1
jz redraw ; jump to redraw handler dec eax ; if event = 1
dec eax ; else if event = 2 jz redraw ; jump to redraw handler
jz key ; jump to key handler dec eax ; else if event = 2
jz key ; jump to key handler
button: ; button event handler
mov al, 17 ; get button identifier button: ; button event handler
mcall mov al, 17 ; get button identifier
mcall
cmp ah, 1
jne wait_event ; return if button id != 1 cmp ah, 1
jne wait_event ; return if button id != 1
or eax, -1 ; exit application
mcall or eax, -1 ; exit application
mcall
key: ; key event handler
; get key code key: ; key event handler
call load_keys ; get key code
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> call load_keys
.1: ; transformation
mov ah, 0xfe .1:
mov edx, txt_data.fe mov ah, 0xfe
call load_ports mov edx, txt_data.fe
call load_ports
mov ah, 0xfd
mov edx, txt_data.fd mov ah, 0xfd
call load_ports mov edx, txt_data.fd
call load_ports
mov ah, 0xfb
mov edx, txt_data.fb mov ah, 0xfb
call load_ports mov edx, txt_data.fb
call load_ports
mov ah, 0xf7
mov edx, txt_data.f7 mov ah, 0xf7
call load_ports mov edx, txt_data.f7
call load_ports
mov ah, 0xef
mov edx, txt_data.ef mov ah, 0xef
call load_ports mov edx, txt_data.ef
call load_ports
mov ah, 0xdf
mov edx, txt_data.df mov ah, 0xdf
call load_ports mov edx, txt_data.df
call load_ports
mov ah, 0xbf
mov edx, txt_data.bf mov ah, 0xbf
call load_ports mov edx, txt_data.bf
call load_ports
mov ah, 0x7f
mov edx, txt_data.7f mov ah, 0x7f
call load_ports mov edx, txt_data.7f
call load_ports
mov ah, 0x00
mov edx, txt_data.00 mov ah, 0x00
call load_ports mov edx, txt_data.00
call load_ports
jmp redraw
jmp redraw
draw_window:
mov eax, 12 ; start drawing draw_window:
mov ebx, 1 mov eax, 12 ; start drawing
mcall mov ebx, 1
mcall
xor eax, eax ; create and draw the window
mov ebx, 40*65536+560 ; (window_cx)*65536+(window_sx) xor eax, eax ; create and draw the window
mov ecx, 40*65536+240 ; (window_cy)*65536+(window_sy) mov ebx, 40*65536+560 ; (window_cx)*65536+(window_sx)
mov edx, [sc.work] ; work area color mov ecx, 40*65536+240 ; (window_cy)*65536+(window_sy)
or edx, 0x33000000 ; & window type 3 mov edx, [sc.work] ; work area color
mov edi, title ; window title or edx, 0x33000000 ; & window type 3
int 0x40 mov edi, title ; window title
int 0x40
mov ecx, [sc.work_text]
or ecx, 0x80000000 mov ecx, [sc.work_text]
mov edx, txt_data or ecx, 0x80000000
mcall 4, 10*65536+40 mov edx, txt_data
mov edx, txt_data.2s mcall 4, 10*65536+40
mcall 4, 10*65536+60 mov edx, txt_data.2s
mov edx, txt_data.3s mcall 4, 10*65536+60
mcall 4, 10*65536+80 mov edx, txt_data.3s
mcall 4, 10*65536+80
mov eax, 12 ; finish drawing
mov ebx, 2 mov eax, 12 ; finish drawing
mcall mov ebx, 2
mcall
ret
ret
load_ports: ; <20><><EFBFBD><EFBFBD> ah - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
; edx - <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> load_ports: ; input ah - port high byte
mov al, 0xFE ; edx - text address
call load_port_FE mov al, 0xFE
call load_port_FE
rept 8
{ rept 8
mov bl, '1' {
shl al,1 mov bl, '1'
jc @f shl al,1
mov bl, '0' jc @f
@@: mov bl, '0'
mov byte [edx], bl @@:
inc edx mov byte [edx], bl
} inc edx
}
ret
ret
; <--- initialised data --->
DATA ; <--- initialised data --->
DATA
title db 'Key ZX-Spectrum TEST',0
title db 'Key ZX-Spectrum TEST',0
txt_data db '#FE: '
.fe db '******** #FD: ' txt_data db '#FE: '
.fd db '******** #FB: ' .fe db '******** #FD: '
.fb db '******** #F7: ' .fd db '******** #FB: '
.f7 db '******** ', 0 .fb db '******** #F7: '
.2s db '#EF: ' .f7 db '******** ', 0
.ef db '******** #DF: ' .2s db '#EF: '
.df db '******** #BF: ' .ef db '******** #DF: '
.bf db '******** #7F: ' .df db '******** #BF: '
.7f db '******** ', 0 .bf db '******** #7F: '
.3s db '#00: ' .7f db '******** ', 0
.00 db '******** ', 0 .3s db '#00: '
.00 db '******** ', 0
; <--- uninitialised data --->
UDATA ; <--- uninitialised data --->
sc system_colors UDATA
sc system_colors
MEOS_APP_END
; <--- end of MenuetOS application ---> MEOS_APP_END
; <--- end of MenuetOS application --->

754
programs/media/animage/animage.asm
View File

@@ -1,376 +1,378 @@
;******************************************************* ; SPDX-License-Identifier: NOASSERTION
;**************GRAPHICS EDITOR ANIMAGE ***************** ;
;*******************************************************
; version: 1.52 ;*******************************************************
; last update: 23.11.2016 ;**************GRAPHICS EDITOR ANIMAGE *****************
; changes: Can save *.png files ;*******************************************************
; autors: IgorA ; version: 1.52
;-------------------------------------------------------- ; last update: 23.11.2016
; version: 1.51 ; changes: Can save *.png files
; last update: 23.03.2016 ; author: IgorA
; changes: Use library 'kmenu.obj', update GUI ;--------------------------------------------------------
; autors: IgorA, Veliant, Leency ; version: 1.51
;-------------------------------------------------------- ; last update: 23.03.2016
; version: 1.4 ; changes: Use library 'kmenu.obj', update GUI
; last update: 12.03.2016 ; authors: IgorA, Veliant, Leency
; changes: Use library 'libimg.obj' ;--------------------------------------------------------
; autors: IgorA ; version: 1.4
;-------------------------------------------------------- ; last update: 12.03.2016
; version: 1.3 ; changes: Use library 'libimg.obj'
; last update: 05.10.2010 ; author: IgorA
; written by: Marat Zakiyanov aka Mario79, aka Mario ;--------------------------------------------------------
; changes: Fixed window flicker when redrawing, ; version: 1.3
; Fixed memory leak for stack ; last update: 05.10.2010
;-------------------------------------------------------- ; written by: Marat Zakiyanov aka Mario79, aka Mario
; version: 1.2 ; changes: Fixed window flicker when redrawing,
; last update: 30.09.2010 ; Fixed memory leak for stack
; written by: Marat Zakiyanov aka Mario79, aka Mario ;--------------------------------------------------------
; changes: Program used function 68 instead 64 is now, ; version: 1.2
; select path with OpenDialog ; last update: 30.09.2010
;-------------------------------------------------------- ; written by: Marat Zakiyanov aka Mario79, aka Mario
; version: 1.1 ; changes: Program used function 68 instead 64 is now,
; last update: 09.12.2006 ; select path with OpenDialog
; autors: ;--------------------------------------------------------
; programming by andrew_programmer ; version: 1.1
; design by golus ; last update: 09.12.2006
; authors:
use32 ; programming by andrew_programmer
org 0 ; design by golus
db 'MENUET01'
dd 1, START, IM_END, I_END use32
dd stacktop, file_path, cur_dir_path org 0
db 'MENUET01'
include '../../../config.inc' ;for nightbuild dd 1, START, IM_END, I_END
include '../../../macros.inc' dd stacktop, file_path, cur_dir_path
include '../../../proc32.inc'
include '../../../KOSfuncs.inc' include '../../config.inc' ;for nightbuild
include '../../../load_lib.mac' include '../../macros.inc'
include '../../../dll.inc' include '../../proc32.inc'
include '../../../develop/libraries/libs-dev/libio/libio.inc' include '../../KOSfuncs.inc'
include '../../../develop/libraries/libs-dev/libimg/libimg.inc' include '../../load_lib.mac'
;include '../../../debug.inc' include '../../dll.inc'
include '../../develop/libraries/libs-dev/libio/libio.inc'
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load include '../../develop/libraries/libs-dev/libimg/libimg.inc'
;include '../../debug.inc'
;---------------------------------------------------------
; *** <20><><EFBFBD><EFBFBD>⠭<EFBFBD><E2A0AD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>䥩<EFBFBD><E4A5A9> *** @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
; *** constants for interface ***
;---------------------------------------------------------
; <EFBFBD><EFBFBD><EFBFBD>४<EFBFBD><EFBFBD>஢<EFBFBD><EFBFBD> <20><> ᪨<> ; *** constants for interface ***
ci_offs_skin_w equ 5 ;<3B><><EFBFBD>४<EFBFBD><E0A5AA>஢<EFBFBD><E0AEA2> <20><> <20><>ਭ<EFBFBD> ࠬ<><E0A0AC> ᪨<><E1AAA8>
ci_offs_skin_h equ 24 ;<3B><><EFBFBD>४<EFBFBD><E0A5AA>஢<EFBFBD><E0AEA2> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᪨<><E1AAA8> ; skin adjustments
ci_offs_skin_w equ 5 ;adjustment to the width of the skin frame
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ci_offs_skin_h equ 24 ;skin height adjustment
ci_wnd_min_siz_x equ 585 ;minimum size x
ci_wnd_min_siz_y equ 400 ;minimum size y ; main window
ci_wnd_min_siz_x equ 585 ;minimum size x
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>㬥<EFBFBD>⮢ ci_wnd_min_siz_y equ 400 ;minimum size y
ci_panel_x_pos equ 0 ;<3B><><EFBFBD><EFBFBD><EFBFBD>. x <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ci_panel_y_pos equ 20 ;<3B><><EFBFBD><EFBFBD><EFBFBD>. y <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ; toolbar
ci_panel_but_y1 equ ci_panel_y_pos +5 ;<3B><><EFBFBD><EFBFBD><EFBFBD>. y <20><><EFBFBD> 1-<2D><> <20>鸞 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ci_panel_x_pos equ 0 ;coord. x for panel
ci_panel_but_y2 equ ci_panel_y_pos+30 ;<3B><><EFBFBD><EFBFBD><EFBFBD>. y <20><><EFBFBD> 2-<2D><> <20>鸞 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ci_panel_y_pos equ 20 ;coord. y for panel
ci_palete_y_pos equ ci_panel_y_pos+51 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. y <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 梥⮢ ci_panel_but_y1 equ ci_panel_y_pos +5 ;y coordinate for 1st row of buttons
ci_panel_zoom_x equ 178 ;<3B><><EFBFBD><EFBFBD><EFBFBD>. x <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠡<EFBFBD> ci_panel_but_y2 equ ci_panel_y_pos+30 ;y coordinate for 2nd row of buttons
ci_palete_y_pos equ ci_panel_y_pos+51 ;y coordinate for color palette
; <20><><EFBFBD><EFBFBD> ।<><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ci_panel_zoom_x equ 178 ;x coordinate for zoom bar buttons
ci_edit_wnd_x_pos equ 0 ;<3B><><EFBFBD><EFBFBD><EFBFBD>. x <20><><EFBFBD> <20><><EFBFBD><EFBFBD> ।<><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ci_edit_wnd_y_pos equ 71 ;<3B><><EFBFBD><EFBFBD><EFBFBD>. y <20><><EFBFBD> <20><><EFBFBD><EFBFBD> ।<><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ; editor window
ci_edit_wnd_border equ 3 ;ࠬ<EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ।<><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ci_edit_wnd_x_pos equ 0 ;x coordinate for editor window
ci_edit_wnd_y_pos equ 71 ;y coordinate for editor window
; <20><>஫<EFBFBD><E0AEAB><EFBFBD><EFBFBD><EFBFBD> ci_edit_wnd_border equ 3 ;frame around the editor window
ci_scroll_dim equ 22 ;ࠧ<><E0A0A7><EFBFBD><EFBFBD> <20><>஫<EFBFBD><E0AEAB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ci_scrollh_coord_x_min equ (ci_edit_wnd_x_pos+3) ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쭠<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>㭪<EFBFBD> ; scrolling
;<3B><>ਧ<EFBFBD><E0A8A7>⠫쭮<E2A0AB><ECADAE> <20><>஫<EFBFBD><E0AEAB><EFBFBD><EFBFBD><EFBFBD> ci_scroll_dim equ 22 ;scroll sizes
ci_scrollv_coord_y_min equ (ci_edit_wnd_y_pos+3) ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쭠<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>㭪<EFBFBD> ci_scrollh_coord_x_min equ (ci_edit_wnd_x_pos+3) ;x minimum slider position
;<EFBFBD><EFBFBD><EFBFBD>⨪<EFBFBD><EFBFBD>쭮<EFBFBD><EFBFBD> <20><>஫<EFBFBD><E0AEAB><EFBFBD><EFBFBD><EFBFBD> ;horizontal scrolling
;--------------------------------------------------------- ci_scrollv_coord_y_min equ (ci_edit_wnd_y_pos+3) ;y minimum slider position
;vertical scrolling
include 'bmplib.inc' ;---------------------------------------------------------
include 'dialog2.inc'
include 'design.inc' include 'bmplib.inc'
include 'graphlib.inc' include 'dialog2.inc'
include 'design.inc'
include 'cursors.inc' include 'graphlib.inc'
include 'memory.inc'
include 'load_from_parameters.inc' include 'cursors.inc'
include 'memory.inc'
START: include 'load_from_parameters.inc'
mcall SF_SYS_MISC,SSF_HEAP_INIT
mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, syscolors, syscolors_end-syscolors START:
mcall SF_SYS_MISC,SSF_HEAP_INIT
load_libraries l_libs_start,end_l_libs mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, syscolors, syscolors_end-syscolors
cmp eax,-1 load_libraries l_libs_start,end_l_libs
jz close
cmp eax,-1
mcall SF_SET_EVENTS_MASK,0x80000067 ; 1100111b jz close
;---------------------------------------------------------
;-----------------------init data------------------------- mcall SF_SET_EVENTS_MASK,0x80000067 ; 1100111b
;--------------------------------------------------------- ;---------------------------------------------------------
include 'init_data.inc' ;-----------------------init data-------------------------
;---------------------------------------------------------
;---------------------------------------------------------- include 'init_data.inc'
;--------get memory and draw window of program-------------
;---------------------------------------------------------- ;----------------------------------------------------------
call GetMemory ;--------get memory and draw window of program-------------
mov [Current_instrument],10 ;pencil ;----------------------------------------------------------
call TakeButtonInstruments ;set startup instrument call GetMemory
call cleare_work_arrea mov [Current_instrument],10 ;pencil
call load_icons call TakeButtonInstruments ;set startup instrument
call init_main_menu call cleare_work_arrea
call load_icons
;load cursors call init_main_menu
mov eax,CursorsID
call load_cursors ;load cursors
mov eax,CursorsID
;--------------------------------------------------------- call load_cursors
;---------check loading of file from parameters-----------
;--------------------------------------------------------- ;---------------------------------------------------------
mov eax,file_path ;---------check loading of file from parameters-----------
cmp [eax],byte 0 ;---------------------------------------------------------
jz @f mov eax,file_path
call load_picture cmp [eax],byte 0
call MovePictureToWorkScreen jz @f
@@: call load_picture
call MovePictureToWorkScreen
;--------------------------------------------------------------------- @@:
mov edi,filename_area
mov esi,path4+5 ;---------------------------------------------------------------------
call copy_str_1 mov edi,filename_area
mov esi,path4+5
mov edi,file_path call copy_str_1
cmp [edi],byte 0
jne @f mov edi,file_path
mov esi,path4 cmp [edi],byte 0
call copy_str_1 jne @f
@@: mov esi,path4
;OpenDialog initialisation call copy_str_1
stdcall [OpenDialog_Init], OpenDialog_data @@:
stdcall [ColorDialog_Init], ColorDialog_data ;OpenDialog initialisation
;--------------------------------------------------------------------- stdcall [OpenDialog_Init], OpenDialog_data
stdcall [ColorDialog_Init], ColorDialog_data
align 4 ;---------------------------------------------------------------------
red:
call drawwin align 4
;---------------------------------------------------------- red:
;---------------------main loop---------------------------- call drawwin
;---------------------------------------------------------- ;----------------------------------------------------------
align 4 ;---------------------main loop----------------------------
still: ;----------------------------------------------------------
mcall SF_WAIT_EVENT align 4
still:
cmp eax,1 mcall SF_WAIT_EVENT
je red
cmp eax,1
cmp eax,2 je red
je keys
cmp eax,2
cmp eax,3 je keys
je buttons
cmp eax,3
cmp eax,6 je buttons
je mouse
cmp eax,6
jmp still je mouse
;--------------------------------------------------------------------- jmp still
copy_str_1:
xor eax,eax ;---------------------------------------------------------------------
cld copy_str_1:
@@: xor eax,eax
lodsb cld
stosb @@:
test eax,eax lodsb
jnz @b stosb
ret test eax,eax
;--------------------------------------------------------------------- jnz @b
include 'events.inc' ret
include 'events_of_window.inc' ;---------------------------------------------------------------------
include 'events_of_keys.inc' include 'events.inc'
include 'events_of_buttons.inc' include 'events_of_window.inc'
include 'events_of_mouse.inc' include 'events_of_keys.inc'
include 'panel_engen.inc' include 'events_of_buttons.inc'
include 'screen.inc' include 'events_of_mouse.inc'
include 'menu_instruments.inc' include 'panel_engen.inc'
include 'icons_instruments.inc' include 'screen.inc'
include 'icons.inc' include 'menu_instruments.inc'
include 'sprites.inc' include 'icons_instruments.inc'
include 'string.inc' include 'icons.inc'
include 'palette.inc' include 'sprites.inc'
include 'files.inc' include 'string.inc'
include 'time.inc' include 'palette.inc'
include 'menu.inc' include 'files.inc'
;----------------------------------------------------------- include 'time.inc'
;------------variables and data of program------------------ include 'menu.inc'
;----------------------------------------------------------- ;-----------------------------------------------------------
;sound_havent_memory db 150,64,0 ;------------variables and data of program------------------
;-----------------------------------------------------------
include 'lib_data.inc' ;sound_havent_memory db 150,64,0
include 'panel_data.inc'
include 'brushes.inc' include 'lib_data.inc'
include 'spray.inc' include 'panel_data.inc'
include 'width_lines.inc' include 'brushes.inc'
;---------------------------------------------------------- include 'spray.inc'
;-------------------icon's picture------------------------- include 'width_lines.inc'
;---------------------------------------------------------- ;----------------------------------------------------------
align 4 ;-------------------icon's picture-------------------------
panel_picture: ;----------------------------------------------------------
file 'panel_buttons.png' align 4
.end: panel_picture:
align 4 file 'panel_buttons.png'
panel_zoom: .end:
file 'panel_zoom.png' align 4
.end: panel_zoom:
;****************cursors****************** file 'panel_zoom.png'
brush_cursor: .end:
file 'cursors/brush.cur' ;****************cursors******************
flood_fill_cursor: brush_cursor:
file 'cursors/flood_fill.cur' file 'cursors/brush.cur'
lastik_cursor: flood_fill_cursor:
file 'cursors/lastik.cur' file 'cursors/flood_fill.cur'
other_cursor: lastik_cursor:
file 'cursors/other.cur' file 'cursors/lastik.cur'
pencil_cursor: other_cursor:
file 'cursors/pencil.cur' file 'cursors/other.cur'
pipette_cursor: pencil_cursor:
file 'cursors/pipette.cur' file 'cursors/pencil.cur'
spray_cursor: pipette_cursor:
file 'cursors/spray.cur' file 'cursors/pipette.cur'
zoom_cursor: spray_cursor:
file 'cursors/zoom.cur' file 'cursors/spray.cur'
;---------------------------------------------------------- zoom_cursor:
align 4 file 'cursors/zoom.cur'
IM_END: ;----------------------------------------------------------
;----------------------------------------------------------- align 4
;------------variables and data of program------------------ IM_END:
;----------------------------------------------------------- ;-----------------------------------------------------------
time rd 1 ;------------variables and data of program------------------
PosX rd 1 ;scroll x file position ;-----------------------------------------------------------
PosY rd 1 ;scroll y file position time rd 1
PointerToIcons rd 1 PosX rd 1 ;scroll x file position
ScreenPointer rd 1 PosY rd 1 ;scroll y file position
PointerToPicture rd 1 PointerToIcons rd 1
PointerToCopyPicture rd 1 ScreenPointer rd 1
PointerToCopyPicture2 rd 1 PointerToPicture rd 1
PointerToEditBufer rd 1 PointerToCopyPicture rd 1
PointerToSpriteBufer rd 1 PointerToCopyPicture2 rd 1
PointerToPalette rd 1 ;㪠<><E3AAA0>⥫<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28>㦥<EFBFBD> <20><><EFBFBD> <20><><EFBFBD>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD> <20> *.bmp) PointerToEditBufer rd 1
Color rd 1 PointerToSpriteBufer rd 1
SColor rd 1 PointerToPalette rd 1 ;pointer to the file (needed for saving in *.bmp)
Number_Brush rd 1 Color rd 1
Brush_SizeX rd 1 SColor rd 1
Brush_SizeY rd 1 Number_Brush rd 1
Current_instrument rd 1 Brush_SizeX rd 1
Last_instrument rd 1 Brush_SizeY rd 1
OldX rd 1 Current_instrument rd 1
OldY rd 1 Last_instrument rd 1
OldX rd 1
MouseX rd 1 OldY rd 1
MouseY rd 1
MouseBut rd 1 ;ᮡ<><E1AEA1><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> MouseX rd 1
Window_SizeX rd 1 MouseY rd 1
Window_SizeY rd 1 MouseBut rd 1 ;mouse button events
Window_CordinatX rd 1 Window_SizeX rd 1
Window_CordinatY rd 1 Window_SizeY rd 1
Picture_SizeX rd 1 Window_CordinatX rd 1
Picture_SizeY rd 1 Window_CordinatY rd 1
ScreenX rd 1 ;<3B><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> x <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD>⮬ <20><><EFBFBD><EFBFBD>⠡<EFBFBD> Picture_SizeX rd 1
ScreenY rd 1 ;<3B><><EFBFBD>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> y <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD>⮬ <20><><EFBFBD><EFBFBD>⠡<EFBFBD> Picture_SizeY rd 1
WorkScreen_SizeX rd 1 ;<EFBFBD><EFBFBD>ਭ<EFBFBD> ࠡ<>祣<EFBFBD> <20><>࠭<EFBFBD> ScreenX rd 1 ;x coordinate of the cursor accounting for the scale
WorkScreen_SizeY rd 1 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠡ<>祣<EFBFBD> <20><>࠭<EFBFBD> ScreenY rd 1 ;y coordinate of the cursor accounting for the scale
MaxWorkScreen_SizeX rd 1 WorkScreen_SizeX rd 1 ;width of the working screen
MaxWorkScreen_SizeY rd 1 WorkScreen_SizeY rd 1 ;height of the working screen
k rd 1 ;<3B><><EFBFBD><EFBFBD>⠡ MaxWorkScreen_SizeX rd 1
MaxWorkScreen_SizeY rd 1
ReserveArray rd 1 ;㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD><E1AFAE><EFBFBD>㥬<EFBFBD><E3A5AC> <20><><EFBFBD> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> 䨣<><E4A8A3> k rd 1 ;scale
;<3B><><EFBFBD> <20><><EFBFBD>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⪮<EFBFBD> 䮭<> <20><><EFBFBD> 䨣<>ࠬ<EFBFBD>, <20> ⠪<><E2A0AA> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
CounterX rd 1 ;<EFBFBD><EFBFBD>᫮ <20><><EFBFBD>ᥫ<EFBFBD><E1A5AB> <20><><EFBFBD><EFBFBD>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> <20><> <20><>ਭ<EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ReserveArray rd 1 ;pointer to memory used when drawing figures
;<EFBFBD> <20><>࠭ ࠡ<>祩 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD>⮬ ⥪<>饣<EFBFBD> <20><><EFBFBD><EFBFBD>⠡<EFBFBD> ;to save background areas under figures, as well as for filling
CounterY rd 1 CounterX rd 1 ;number of image pixels by width that fall
OffsetYPicture rd 1 ;ᤢ<><E1A4A2> <20><> <20><><EFBFBD> y <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> <20><><EFBFBD> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> ;within the workspace screen, given the current zoom level
;᫥<><E1ABA5><EFBFBD>饩 <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> CounterY rd 1
OffsetYWorkScreen rd 1 ;ᤢ<EFBFBD><EFBFBD> <20><> <20><><EFBFBD> y <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠡ<>祩 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> OffsetYPicture rd 1 ;y-shift in image buffer when drawing
;<EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᫥<><E1ABA5><EFBFBD>饩 <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᥫ<EFBFBD><E1A5AB>. <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⠡, ⥬ <20><><EFBFBD><EFBFBD> ;next line of image
;<3B>㦭<EFBFBD> <20><><EFBFBD>᪠<EFBFBD><E1AAA0><EFBFBD><EFBFBD> <20><> ࠡ<>祩 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. OffsetYWorkScreen rd 1 ;y-shift in the workspace buffer when
OffsetYBigPixel rd 1 ;ᤢ<><E1A4A2> <20><> <20><><EFBFBD> y <20><><EFBFBD> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> <20><><EFBFBD>ᥫ<EFBFBD><E1A5AB> <20><> <20><><EFBFBD><EFBFBD>讬 ;drawing the next line of pixels. The larger the scale, the lower
;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>⠡<EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1-<2D> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᥫ<EFBFBD>, <20> <20><>⮬ <20>㦭<EFBFBD> <20><>३<EFBFBD><E0A5A9> <20><><EFBFBD><EFBFBD> <20> ;you need to go down the workspace.
;<3B><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> ᫥<><E1ABA5><EFBFBD>饩 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. OffsetYBigPixel rd 1 ;shift along the y-axis to draw pixels on a large
;scale. The 1st strip of the pixel is drawn, and then you need to move down and
Icon_X rd 1 ;left to draw the next strip.
Icon_Y rd 1
counter rd 1 Icon_X rd 1
counter2 rd 1 Icon_Y rd 1
number_panel rd 1 counter rd 1
number_menu rd 1 counter2 rd 1
number_panel rd 1
Scroll1CoordinatX rd 1 ;scroll x screen position number_menu rd 1
Scroll1CoordinatY rd 1 ;scroll y screen position
Scroll1MaxSizeX rd 1 Scroll1CoordinatX rd 1 ;scroll x screen position
Scroll1MaxSizeY rd 1 Scroll1CoordinatY rd 1 ;scroll y screen position
Scroll1SizeX rd 1 ;scroll polzunok size Scroll1MaxSizeX rd 1
Scroll1FreeX rd 1 Scroll1MaxSizeY rd 1
Scroll1SizeX rd 1 ;scroll polzunok size
Scroll2CoordinatX rd 1 Scroll1FreeX rd 1
Scroll2CoordinatY rd 1
Scroll2MaxSizeX rd 1 Scroll2CoordinatX rd 1
Scroll2MaxSizeY rd 1 Scroll2CoordinatY rd 1
Scroll2SizeY rd 1 Scroll2MaxSizeX rd 1
Scroll2FreeY rd 1 Scroll2MaxSizeY rd 1
Scroll2SizeY rd 1
x rd 1 Scroll2FreeY rd 1
y rd 1
x rd 1
Radius rd 1 y rd 1
Dx_ rd 1
Dy_ rd 1 Radius rd 1
line_width rd 1 Dx_ rd 1
a_ellips rd 1 Dy_ rd 1
b_ellips rd 1 line_width rd 1
a_ellips rd 1
used_OldX rd 1 ;for draw hard contour b_ellips rd 1
used_OldY rd 1
paste_img_w rd 1 ;<3B><>ਭ<EFBFBD> <20><>⠢<EFBFBD>塞<EFBFBD><EFA5AC><EFBFBD> <20><><EFBFBD><EFBFBD>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> used_OldX rd 1 ;for draw hard contour
paste_img_h rd 1 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>⠢<EFBFBD>塞<EFBFBD><EFA5AC><EFBFBD> <20><><EFBFBD><EFBFBD>ࠦ<EFBFBD><E0A0A6><EFBFBD><EFBFBD> used_OldY rd 1
crossing_old_x rd 1 ;<3B><>砫쭠<E7A0AB> <20><><EFBFBD><EFBFBD><EFBFBD>. x <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD> paste_img_w rd 1 ;width of the inserted image
crossing_old_y rd 1 ;<3B><>砫쭠<E7A0AB> <20><><EFBFBD><EFBFBD><EFBFBD>. y <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD> paste_img_h rd 1 ;height of the inserted image
rectangular_shade_x rd 1 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>筠<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>. x <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD> crossing_old_x rd 1 ;initial x-coord of copy area
rectangular_shade_y rd 1 ;<EFBFBD><EFBFBD><EFBFBD><EFBFBD>筠<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>. y <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD> crossing_old_y rd 1 ;initial y-coord of copy area
crossing rd 1 ;0 - <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>, 1 - <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD>, rectangular_shade_x rd 1 ;end x-coord of copy area
;2 - <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>襭<EFBFBD>, 3 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뤥<EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD> <20><>६<EFBFBD>頥<EFBFBD><E9A0A5><EFBFBD> rectangular_shade_y rd 1 ;end y-coord of copy area
number_undo rd 1 crossing rd 1 ;0 - no selection, 1 - selection in progress,
SpriteSizeX rd 1 ;??? ;2 - selection complete, 3 - selection area moving
SpriteSizeY rd 1 ;??? number_undo rd 1
SpriteCoordinatX rd 1 SpriteSizeX rd 1 ;???
SpriteCoordinatY rd 1 SpriteSizeY rd 1 ;???
SpriteOldCoordinatX rd 1 SpriteCoordinatX rd 1
SpriteOldCoordinatY rd 1 SpriteCoordinatY rd 1
SpriteOldCoordinatX rd 1
CursorsID rd 10 SpriteOldCoordinatY rd 1
Activate_instrument rb 1 ;<3B>᫨ ࠢ<><E0A0A2> 0 - <20><> <20><><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD> ⥪<>饣<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CursorsID rd 10
;<3B><><EFBFBD> <20><><EFBFBD> ।<><E0A5A4><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD>, <20>᫨ 1 - ⥪<>騩 <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
save_flag rb 1 Activate_instrument rb 1 ;if equal to 0 - then copy the current buffer
exit_from_work_arrea rb 1 ;for editing it, if 1 - the current buffer is not copied
lastik_is_active rb 1 save_flag rb 1
instrument_used rb 1 exit_from_work_arrea rb 1
DrawSprite_flag rb 1 lastik_is_active rb 1
Paste_flag rb 1 instrument_used rb 1
;--------------------------------------------------------------------- DrawSprite_flag rb 1
IncludeUGlobals Paste_flag rb 1
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
align 4 IncludeUGlobals
file_path rb 4096 ;---------------------------------------------------------------------
filename_area rb 256 align 4
temp_dir_pach rb 4096 file_path rb 4096
library_path rb 4096 filename_area rb 256
cur_dir_path rb 4096 temp_dir_pach rb 4096
procinfo: rb 1024 library_path rb 4096
align 4 cur_dir_path rb 4096
syscolors rb 192 procinfo: rb 1024
syscolors_end: align 4
;--------------------------------------------------------------------- syscolors rb 192
align 4 syscolors_end:
rb 4096 ;---------------------------------------------------------------------
stacktop: align 4
;--------------------------------------------------------------------- rb 4096
I_END: stacktop:
;---------------------------------------------------------------------
I_END:

17
programs/media/kiv/kiv.asm
View File

@@ -1,3 +1,6 @@
; SPDX-License-Identifier: NOASSERTION
;
format binary as "" format binary as ""
use32 use32
@@ -13,13 +16,13 @@ __DEBUG_LEVEL__ = 1
LG_TRACE equ 1 LG_TRACE equ 1
include '../../../config.inc' include '../../config.inc'
include '../../../proc32.inc' include '../../proc32.inc'
include '../../../macros.inc' include '../../macros.inc'
include '../../../KOSfuncs.inc' include '../../KOSfuncs.inc'
include '../../../dll.inc' include '../../dll.inc'
include '../../../debug-fdo.inc' include '../../debug-fdo.inc'
include '../../../develop/libraries/libs-dev/libimg/libimg.inc' include '../../develop/libraries/libs-dev/libimg/libimg.inc'
KEY_MOVE_PIXELS = 50 KEY_MOVE_PIXELS = 50

1696
programs/media/listplay/listplay.asm
View File

File diff suppressed because it is too large Load Diff