Aren/kolibrios
1
0
Fork 0
mirror of https://github.com/KolibriOS/kolibrios.git synced 2024-12-27 00:39:41 +03:00
Code Issues Packages Projects Releases Wiki Activity
267774dd55
kolibrios/programs/system/icon/trunk/icon.asm
Marat Zakiyanov (Mario79) c6044e1fc1 ICON: 
1) Drawing selection rectangle.
2) Using new kernel function: 15.9

git-svn-id: svn://kolibrios.org@2548 a494cfbc-eb01-0410-851d-a64ba20cac60
2012-04-02 22:46:20 +00:00

1142 lines
22 KiB
NASM
Raw Blame History

;********************************
;* *
;* DESKTOP ICON MANAGER *
;* *
;* Compile with flat assembler *
;* *
;********************************
; version: 3.10
; last update: 03/04/2012
; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: Drawing selection rectangle.
; Using new kernel function: 15.9
;---------------------------------------------------------------------
; version: 3.01
; last update: 02/04/2012
; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: Fix for previous revision - not drawed icons after
; startup in certain cases.
;---------------------------------------------------------------------
; version: 3.00
; last update: 02/04/2012
; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: Program use only 2 threads: draw and mouse
; Using new kernel functions: 25, 34, 15.8, 4 (redirect).
; Using PNG icons with transparent.
;---------------------------------------------------------------------
; version: 2.11
; last update: 19/03/2012
; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: The program uses only 140 Kb memory is now.
; Some speedup.
;---------------------------------------------------------------------
; version: 2.1
; last update: 17/03/2012
; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: Global optimization! The program uses
; only 161 KB of memory instead of 603 kb is now.
;---------------------------------------------------------------------
; version: 2.02
; last update: 15/03/2012
; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: some optimisations and code refactoring
;---------------------------------------------------------------------
; version: 2.01
; last update: 27/09/2011
; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: deactivate the window after click
; (working to kernel r.2244 and above)
;---------------------------------------------------------------------
; Many fix's and changes created by:
; Halyavin, Diamond, Heavyiron,
; SPraid, Dunkaist
;---------------------------------------------------------------------
; version: 2.00
; last update: 22/02/2005
; changed by: Willow and Mario79
; changes: modified for work with new multi-thread ICON.
;******************************************************************************
ICON_SIZE equ 32*32*4
REC_SIZE equ 80
ICONS_DAT equ '/sys/icons.dat'
ICON_APP equ '/sys/ICON'
ICON_STRIP equ '/rd/1/iconstrp.png'
;------------------------------------------------------------------------------
use32
org 0x0
db 'MENUET01' ; 8 byte id
dd 0x01 ; header version
dd START ; start of code
dd IM_END ; size of image
dd I_END ; memory for app
dd stack_area ; esp
dd I_Param ; boot parameters
dd path ; path
;------------------------------------------------------------------------------
include 'lang.inc'
include '../../../macros.inc'
include '../../../develop/libraries/box_lib/load_lib.mac'
;include 'debug.inc'
;------------------------------------------------------------------------------
@use_library ;use load lib macros
;------------------------------------------------------------------------------
START: ; start of execution
mcall 68,11
;---------------------------------------------------------------------
load_libraries l_libs_start,end_l_libs
test eax,eax
jnz close
; unpack deflate
mov eax,[unpack_DeflateUnpack2]
mov [deflate_unpack],eax
;---------------------------------------------------------------------
; get size of file ICONSTRP.GIF
mcall 70,finfo
test eax,eax
jnz close
; get memory for ICONSTRP.GIF
mov ecx,[procinfo+32]
mov [finfo.size],ecx
mov [img_size],ecx
mcall 68,12
mov [finfo.point],eax
mov [image_file],eax
; load ICONSTRP.GIF
mov [finfo],dword 0
mcall 70,finfo
test eax,eax
jnz close
; convert PNG to RAW
xor eax,eax
mov [return_code],eax
push image_file
call [cnv_png_import.Start]
mov eax,[raw_pointer]
mov eax,[eax+28]
add eax,[raw_pointer]
mov [strip_file],eax
; back memeory to system
mcall 68,13,[finfo.point]
mov eax,[raw_pointer]
mov eax,[eax+8]
shr eax,5
mov [icon_count],eax
; load ICON.DAT
call load_ic
boot_str:
cmp [I_Param],dword 'BOOT'
je START2
;------------------------------------------------------------------------------
; ICON EDITOR MODE - START1 entering label
;------------------------------------------------------------------------------
START1:
call load_icon_list
;------------------------------------------------------------------------------
align 4
red:
call draw_window ; at first, draw the window
mov esi,[current_icon]
jmp band
;------------------------------------------------------------------------------
align 4
still:
mcall 10 ; wait here for event
dec eax ; redraw request ?
jz red
dec eax ; key in buffer ?
jz key
;------------------------------------------------------------------------------
align 4
button:
mcall 17 ; get id
shr eax,8
cmp eax,1 ; button id=1 ?
je close
mov esi,[current_icon]
add esi,12
mov ebx,[cur_band]
cmp eax,11
jb @f
cmp eax,13
ja @f
call read_string
jmp still
;--------------------------------------
align 4
@@:
cmp eax,21 ; apply changes
je apply
cmp eax,22 ; user pressed the 'add icon' button
je add_icon
cmp eax,23 ; user pressed the remove icon button
je remove_icon
cmp eax,30 ; left arrow to icons bar
je arrow.left
cmp eax,31 ; right arrow to icons bar
je arrow.right
cmp eax,32
je ico
cmp eax,40 ; user pressed button for icon position
jae press_button_for_icon_position
jmp still
;------------------------------------------------------------------------------
align 4
arrow:
.right:
mov eax,[icon_count]
sub eax,8
cmp ebx,eax
jae still ;.drwic2
add ebx,1
jmp .drwic2
;--------------------------------------
align 4
.left:
test ebx,ebx
jz still
sub ebx,1
;--------------------------------------
align 4
.drwic2:
mov [cur_band],ebx
;--------------------------------------
align 4
.drwic1:
call draw_icon
jmp still
;------------------------------------------------------------------------------
align 4
ico:
push ebx
mcall 37,1
pop ebx
shr eax,16
sub eax,33-19
mov edi,34
xor edx,edx
div edi
lea ecx,[ebx+eax]
cmp ecx,[icon_count]
jae still
mov ecx,eax
add eax,ebx
call itoa
jmp arrow.drwic1
;------------------------------------------------------------------------------
align 4
apply:
; (1) save list
mov ebx,finfo
mov dword[ebx],2
mov edx,REC_SIZE
imul edx,dword [icons]
mov [ebx+12],edx
mov esi,iconlst
call lst_path
mcall 70
; (2) terminate all icons
or ecx,-1
mcall 9,procinfo
mov edi,[ebx+30]
;--------------------------------------
align 4
newread2:
mov esi,1
;--------------------------------------
align 4
newread:
inc esi
mov ecx,esi
mcall 9,procinfo
cmp edi,[ebx+30]
je newread
cmp esi,eax
jg .apply_changes
mov eax,[ebx+10]
and eax,not 20202020h
cmp eax,'@ICO'
jz @f
cmp eax,'ICON'
jne newread
;--------------------------------------
align 4
@@:
xor eax,eax
cmp eax,[ebx+42]
jne newread
cmp eax,[ebx+46]
jne newread
mov ecx,esi
mcall 18,2
jmp newread2
;--------------------------------------
align 4
.apply_changes:
mov ebx, finfo_start
mov dword [ebx+8], boot_str+6
mov esi, iconname
call lst_path
mcall 70
mcall 68,1
mcall 15,3
jmp still
;------------------------------------------------------------------------------
align 4
add_icon:
mov ebx,24*65536+250+8*14
mcall 4,,0xc0ff0000,add_text,,0xffffff
mcall 10
cmp eax,3
jne still
mcall 17
shr eax,8
cmp eax,40
jb no_f
mov edi,eax
sub eax,40
xor edx,edx ; bcd -> 10
mov ebx,16
div ebx
; multiply x10
shl eax,1 ; multiply x2
lea eax,[eax+eax*4] ; multiply x5
add eax,edx
mov ebx,eax
add ebx,icons_reserved
cmp [ebx],byte 'x'
je no_f
mov [ebx],byte 'x'
mov [cur_btn],edi
xor edx,edx
mov ebx,10
div ebx
add eax,65
add edx,65
mov [icon_default+0],dl
mov [icon_default+1],al
inc dword [icons]
mov edi,[icons]
dec edi
imul edi,REC_SIZE
add edi,icon_data
mov [current_icon],edi
mov esi,icon_default
mov ecx,REC_SIZE
cld
rep movsb
mov esi,[current_icon]
jmp band
;--------------------------------------
align 4
no_f:
call draw_btns ;draw_window
jmp still
;------------------------------------------------------------------------------
align 4
remove_icon:
mov ebx,24*65536+250+8*14
mcall 4,,0xc0ff0000,rem_text,,0xffffff
mcall 10
cmp eax,3
jne no_f
mcall 17
shr eax,8
cmp eax,40
jb red
sub eax,40
xor edx,edx
mov ebx,16
div ebx
; multiply x10
shl eax,1 ; multiply x2
lea eax,[eax+eax*4] ; multiply x5
add eax,edx
mov ebx,eax
add ebx,icons_reserved
cmp [ebx],byte 'x'
jne red
mov [ebx],byte ' '
xor edx,edx
mov ebx,10
div ebx
shl eax,8
mov al,dl
add eax,65*256+65
mov esi,icon_data
mov edi,REC_SIZE
imul edi,[icons]
add edi,icon_data
;--------------------------------------
align 4
news:
cmp word [esi],ax
je foundi
add esi,REC_SIZE
cmp esi,edi
jb news
jmp red
;--------------------------------------
align 4
foundi:
mov ecx,edi
sub ecx,esi
mov edi,esi
add esi,REC_SIZE
cld
rep movsb
dec [icons]
mov eax,icon_data
mov [current_icon],eax
movzx ebx,word[eax]
sub bx,'AA'
shl bl,4
shr ebx,4
add ebx,40
mov [cur_btn],ebx
jmp red
;------------------------------------------------------------------------------
align 4
press_button_for_icon_position:
mov edi,eax
sub eax,40
mov edx,eax
shl eax,4
and edx,0xf
mov dh,ah
add edx,65*256+65
mov esi,icon_data
mov ecx,[icons]
cld
;--------------------------------------
align 4
findl1:
cmp dx,[esi]
je foundl1
add esi,REC_SIZE
loop findl1
jmp still
;--------------------------------------
align 4
foundl1:
mov [current_icon],esi
mov [cur_btn],edi
;--------------------------------------
align 4
band:
add esi,12
call ASCII_to_icon_number
and eax,0xfffff8
mov [cur_band],eax
call draw_btns
jmp still
;------------------------------------------------------------------------------
align 4
print_strings:
pusha
mcall 13,<100,180>,<278+12,40>,0xffffff ; clear text area
xor edi,edi
mov eax,4 ; icon text
mov ebx,100*65536+278+14
mov ecx,3
;--------------------------------------
align 4
.ll:
push ecx
mov ecx,0x000000
mov edx,[current_icon]
add edx,[positions+edi*4]
movzx esi,byte[str_lens+edi]
inc edi
mcall
add ebx,14
pop ecx
loop .ll
popa
ret
;------------------------------------------------------------------------------
align 4
load_icon_list:
mov edi,icons_reserved ; clear reserved area
mov eax,32
mov ecx,10*9
cld
rep stosb
mov ecx,[icons] ; set used icons to reserved area
mov esi,icon_data
;--------------------------------------
align 4
ldl1:
movzx ebx,byte [esi+1]
sub ebx,65
; multiply x10
shl ebx,1 ; multiply x2
lea ebx,[ebx+ebx*4] ; multiply x5
movzx eax,byte [esi]
add ebx,eax
sub ebx,65
add ebx,icons_reserved
mov [ebx],byte 'x'
add esi,REC_SIZE
loop ldl1
ret
;------------------------------------------------------------------------------
align 4
lst_path:
mov ecx,30
mov edi,finfo.path
rep movsb
ret
;------------------------------------------------------------------------------
align 4
load_ic:
mov ebx,finfo
mov dword[ebx+12],48*REC_SIZE
mov dword[ebx+16],icon_data
mov esi,iconlst
call lst_path
mcall 70
lea eax,[ebx+10]
xor edx,edx
mov ebx,REC_SIZE
div ebx
mov [icons],eax
ret
;------------------------------------------------------------------------------
align 4
read_string:
pusha
sub eax,11
movzx ecx,byte[str_lens+eax]
mov [cur_str],ecx
mov eax,[positions+eax*4]
mov edi,[current_icon]
add edi,eax
mov [addr],edi
add edi,ecx
;--------------------------------------
align 4
.l1:
dec edi
cmp byte[edi],' '
jne .found
mov byte[edi],'_'
loop .l1
dec edi
;--------------------------------------
align 4
.found:
inc edi
push edi
call print_strings
pop edi
;--------------------------------------
align 4
f11:
mcall 10
cmp eax,2
jz fbu
jmp rs_done
;--------------------------------------
align 4
fbu:
mcall 2
shr eax,8
cmp eax,13
je rs_done
cmp eax,8
jnz nobsl
cmp edi,[addr]
jz f11
dec edi
mov [edi],byte '_'
call print_strings
jmp f11
;--------------------------------------
align 4
nobsl:
cmp eax,31
jbe f11
mov [edi],al
call print_strings
inc edi
mov esi,[addr]
add esi,[cur_str]
cmp esi,edi
jnz f11
;--------------------------------------
align 4
rs_done:
mov ecx,[addr]
add ecx,[cur_str]
sub ecx,edi
mov eax,32
cld
rep stosb
call print_strings
popa
ret
;------------------------------------------------------------------------------
align 4
key:
mcall 2 ; just read it and ignore
jmp still
;------------------------------------------------------------------------------
; *********************************************
; ******* WINDOW DEFINITIONS AND DRAW ********
; *********************************************
align 4
draw_window:
mcall 12,1
; DRAW WINDOW
xor eax,eax
xor esi,esi
mcall ,<210,300>,<30,(390-14)>,0x14ffffff,,title
mcall 13,<20,260>,<35,200>,0x3366cc ; WINDOW AREA
mcall 38,<150,150>,<35,235>,0xffffff ; VERTICAL LINE ON WINDOW AREA
mcall ,<20,280>,<135,135> ; HOROZONTAL LINE ON WINDOW AREA
mcall 8,<20,72>,<(275+1+14),(13-2)>,11,[bcolor] ;id 11 TEXT ENTER BUTTONS
inc edx
add ecx,14*65536
mcall ; id 12
inc edx
add ecx,14*65536
mcall ; id 13
mcall ,<20,259>,<(329+2),(15-4)>,21 ; id 21 APPLY AND SAVE CHANGES BUTTON
add ecx,14*65536
inc edx
mcall ,<20,(129-2)> ; id 22 ADD ICON BUTTON
add ebx,(130+2)*65536
inc edx
mcall ; id 23 REMOVE ICON BUTTON
mcall ,<(20-14),8>,<(260-23),32>,30 + 1 shl 30 ; id 30 IMAGE BUTTON
inc edx
add ebx,(36*7+26) shl 16
mcall ; id 31
add edx,1 + 1 shl 29
mcall ,<(33-19),(34*8)> ; id 32
mcall 4,<(23-15),(273-24)>,0,arrows,1
add ebx,(36*7+27)shl 16
add edx,2
mcall
dec edx
mcall ,<120,250>
lea edx,[ebx+8 shl 16]
mcall 47,0x30000,[icon_count],,0
mov eax,4
mov ebx,24 shl 16+(250+14+14+14)
mov ecx,0xffffff
mov edx,text
mov esi,47
;--------------------------------------
align 4
.newline:
mov ecx,[edx]
add edx,4
mcall
add ebx,14
add edx,47
cmp [edx],byte 'x'
jne .newline
;--------------------------------------
align 4
draw_btns:
mov eax,0 ; DRAW BUTTONS ON WINDOW AREA
mov ebx,20 shl 16+25
mov ecx,35 shl 16+19
mov edi,icon_table
mov edx,40
;--------------------------------------
align 4
newbline:
cmp [edi],byte 'x'
jne no_button
mov esi,0x5577cc
cmp [edi+90],byte 'x'
jne nores
mov esi,0xcc5555
cmp edx,[cur_btn]
jne nores
mov esi,0xe7e05a
;--------------------------------------
align 4
nores:
push eax
mcall 8
pop eax
;--------------------------------------
align 4
no_button:
add ebx,26 shl 16
inc edi
inc edx
inc al
cmp al,9
jbe newbline
mov al,0
add edx,6
ror ebx,16
mov bx,20
ror ebx,16
add ecx,20 shl 16
inc ah
cmp ah,8
jbe newbline
call print_strings
call draw_icon
mcall 12,2
ret
;------------------------------------------------------------------------------
align 4
draw_icon:
mcall 13,<(33-20),(34*8+2)>,<(260-24),(37+15-2)>,0xffffff
mov esi,[current_icon]
add esi,12
call ASCII_to_icon_number
push eax
cmp eax,[cur_band]
jb .nou
sub eax,[cur_band]
cmp eax,7
ja .nou
imul eax,34 shl 16
lea ebx,[eax+(33-19) shl 16]
mov bx,34
mcall 13,,<(236+35),3>,0xff0000
mov eax,[esp]
;--------------------------------------
align 4
.nou:
mov eax,[cur_band]
push eax
imul eax,ICON_SIZE
mov ebx,[strip_file]
add ebx,eax
mov ecx,8
mov edx,(33-18) shl 16+238
;--------------------------------------
align 4
.nxt:
push ecx
pusha
mov ebp,0
mcall 65,,<32,32>,,32
popa
pop ecx
add ebx,ICON_SIZE
add edx,34 shl 16
loop .nxt
mcall 4,<45,280-2>,0,rep_text,rep_text_len-rep_text
lea edx,[ebx+(8*5)shl 16]
pop ecx
mcall 47,0x30000,,,0xff
add ecx,7
add edx,(3*8+4)shl 16
mcall
add edx,(5*8+4)shl 16
mcall ,,[icon_count]
pop ecx
add edx,(10*8+4)shl 16
mcall ,,,,0xff0000
ret
;------------------------------------------------------------------------------
align 4
close:
or eax,-1
mcall
;------------------------------------------------------------------------------
; ICON PROCESSING MODE - START2 entering label
;------------------------------------------------------------------------------
align 4
START2:
mcall 40,10000b ; only Event 5 - draw background
mcall 48,5
mov [warea.by_x],eax
mov [warea.by_y],ebx
mcall 51,1,START_mouse_thread,stack_mouse_thread
xor eax,eax
mov [x_left],eax
mov [y_top],eax
mcall 14
mov ebx,eax
shr eax,16
and ebx,0xffff
mov [x_right],eax
mov [y_bottom],ebx
jmp still2.1
;------------------------------------------------------------------------------
align 4
still2:
mcall 10
mcall 15,8
mov ecx,eax
shr ecx,16
mov [x_left],ecx
and eax,0xffff
mov [x_right],eax
mov ecx,ebx
shr ecx,16
mov [y_top],ecx
and ebx,0xffff
mov [y_bottom],ebx
mcall 48,5
mov [warea.by_x],eax
mov [warea.by_y],ebx
.1:
mov ecx,[icons]
mov ebx,icon_data
;--------------------------------------
align 4
.start_new:
push ebx ecx
mov [adress_of_icon_data],ebx
mov eax,[ebx]
call calc_icon_pos
mov [current_X],ebx
mov [current_Y],eax
call draw_picture
pop ecx ebx
add ebx,REC_SIZE
dec ecx
jnz .start_new
jmp still2
;------------------------------------------------------------------------------
align 4
draw_picture:
mov eax,[current_X]
cmp eax,[x_right]
ja .exit
add eax,52
cmp eax,[x_left]
jb .exit
mov eax,[current_Y]
cmp eax,[y_bottom]
ja .exit
add eax,52
cmp eax,[y_top]
jb .exit
;--------------------------------------
align 4
@@:
mov edi,[adress_of_icon_data]
lea esi,[edi+12]
call ASCII_to_icon_number
; protect for icon area RAW size limit
cmp eax,[icon_count]
jbe @f
;--------------------------------------
align 4
.exit:
ret
;--------------------------------------
align 4
@@:
push eax
mcall 68,12,52*52*4+8
mov [draw_area],eax
mov ebx,52
mov [eax],ebx
mov [eax+4],ebx
pop eax
shl eax,12 ; multiply x4096
add eax,[strip_file]
mov esi,eax
mov edi,[draw_area]
add edi,(52-32)/2*4+8
mov ebx,32
cld
;--------------------------------------
align 4
.y:
mov ecx,32
rep movsd
add edi,(52-32)*4
dec ebx
jnz .y
call draw_text
mov edx,[current_X]
shl edx,16
add edx,[current_Y]
mov ebx,[draw_area]
add ebx,8
mcall 25,,<52,52>
mcall 68,13,[draw_area]
ret
;------------------------------------------------------------------------------
align 4
draw_text:
mov esi,[adress_of_icon_data]
add esi,3
push edi
mov edi,title
mov ecx,8/4
cld
rep movsd
pop edi
mov eax,title
;--------------------------------------
align 4
news2:
cmp [eax],byte 33
jb founde
inc eax
cmp eax,title+8 ;11
jb news2
;--------------------------------------
align 4
founde:
sub eax,title
mov [tl],eax
mov eax,[tl]
lea eax,[eax+eax*2] ; eax *= char_width/2
shl eax,16
mov ebx,27 shl 16+40
sub ebx,eax
xor ecx,ecx ; black shade of text
or ecx,0x08000000 ; redirect the output to the user area
add ebx,1 shl 16 ;*65536+1
mov edi,[draw_area]
mcall 4,,,title,[tl]
inc ebx
mcall
add ebx,1 shl 16
mcall
inc ebx
mcall
sub ebx,1 shl 16
mcall
dec ebx
sub ebx,1 shl 16
mcall
sub ebx,1 shl 16
dec ebx
mcall
dec ebx
add ebx,1 shl 16
mcall
inc ebx
mov ecx,0xffffff ; white text
or ecx,0x08000000 ; redirect the output to the user area
mcall
ret
;------------------------------------------------------------------------------
align 4
ASCII_to_icon_number:
;
; in:
; esi - adress of icon ASCII text number (line start + 12)
;
; out:
; eax - number of icon
;
push esi
xor eax,eax
xor ebx,ebx
;--------------------------------------
align 4
.next:
lodsb
cmp al,'0'
jb .done
cmp al,'9'
ja .done
sub eax,'0'
; multiply x10
shl ebx,1 ; multiply x2
lea ebx,[ebx+ebx*4] ; multiply x5
add ebx,eax
jmp .next
;--------------------------------------
align 4
.done:
pop esi
mov eax,ebx
ret
;------------------------------------------------------------------------------
align 4
itoa:
add esi,2
mov ebx,10
mov ecx,3
;--------------------------------------
align 4
.l0:
xor edx,edx
div ebx
add dl,'0'
mov [esi],dl
dec esi
loop .l0
ret
;------------------------------------------------------------------------------
align 4
calc_icon_pos:
; in:
; eax - dword [icon_position]
; out:
; eax - current Y
; ebx - current X
push eax
movzx eax,al
sub eax,'A' ;eax - number of letter
cmp eax,4
jg no_left
shl eax,6 ;imul eax,64
add eax,16
movzx ebx,[warea.left]
add eax,ebx
jmp x_done
;--------------------------------------
align 4
no_left:
sub eax,9
sal eax,6 ;imul eax,64
sub eax,16+52-1
movzx ebx,[warea.right]
add eax,ebx
;--------------------------------------
align 4
x_done:
mov ebx,eax
pop eax
push ebx
movzx eax,ah
sub eax,'A' ; eax - number of letter
cmp eax,4
jg no_up
shl eax,6 ;imul eax,80
add eax,16
movzx ebx,[warea.top]
add eax,ebx
jmp y_done
;--------------------------------------
align 4
no_up:
sub eax,9
shl eax,6 ;imul eax,80
sub eax,16-1
movzx ebx,[warea.bottom]
add eax,ebx
;--------------------------------------
align 4
y_done:
pop ebx
ret
;------------------------------------------------------------------------------
include 'mouse.inc'
;------------------------------------------------------------------------------
include 'data.inc'
;------------------------------------------------------------------------------
IM_END:
;------------------------------------------------------------------------------
include 'dat_area.inc'
;------------------------------------------------------------------------------
I_END:
;------------------------------------------------------------------------------
Reference in New Issue View Git Blame Copy Permalink