mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-27 00:39:41 +03:00
7c8ba5ff40
*added animage and kfar *renamed docpak (to docpack) *chess fixed by Yellow to use 70th function *docpack, tetris, jpegview, trantest, desktop uses system colors, new functions of window drawing now *removed old rd2hd and rd2fd git-svn-id: svn://kolibrios.org@180 a494cfbc-eb01-0410-851d-a64ba20cac60
205 lines
3.9 KiB
NASM
Executable File
205 lines
3.9 KiB
NASM
Executable File
;---------------------------------------------------------------------
|
|
;
|
|
; DOCPAK FOR MENUET v1.1
|
|
; Written in pure assembly by Ivushkin Andrey aka Willow
|
|
;
|
|
;---------------------------------------------------------------------
|
|
|
|
FILE_COUNT=0
|
|
DEF_FILE equ 'g'
|
|
|
|
macro embed_file fn
|
|
{
|
|
forward
|
|
local label,label2,label3
|
|
dd label2-label
|
|
dd label-label3
|
|
label3:
|
|
db fn
|
|
label:
|
|
file fn
|
|
label2:
|
|
FILE_COUNT=FILE_COUNT+1
|
|
}
|
|
appname equ 'Doc Pack'
|
|
use32
|
|
org 0x0
|
|
db 'MENUET01' ; 8 byte id
|
|
dd 0x01 ; header version
|
|
dd start ; start of code
|
|
dd I_END ; size of image
|
|
dd I_END+0x400 ; memory for app
|
|
dd I_END+0x400 ; esp
|
|
dd my_param , 0x0 ; I_Param , I_Icon
|
|
include 'MACROS.INC'
|
|
|
|
start:
|
|
cmp [my_param],0
|
|
je red
|
|
cmp [my_param],'a'
|
|
jb .par_a
|
|
cmp [my_param],'z'
|
|
jbe .ok2
|
|
.par_a:
|
|
mov [my_param],DEF_FILE
|
|
.ok2:
|
|
movzx ecx,[my_param]
|
|
mov [my_param],'*'
|
|
.open:
|
|
sub ecx,'a'-1
|
|
mov edx,embedded
|
|
xor esi,esi
|
|
.list:
|
|
lea edx,[edx+esi+8]
|
|
mov esi,[edx-8]
|
|
add edx,[edx-4]
|
|
test esi,esi
|
|
jz .close
|
|
loop .list
|
|
push edx
|
|
; convert number in esi to decimal representation
|
|
mov ecx, 10
|
|
push -'0'
|
|
mov eax, esi
|
|
@@:
|
|
xor edx, edx
|
|
div ecx
|
|
push edx
|
|
test eax, eax
|
|
jnz @b
|
|
mov edi, fsize
|
|
@@:
|
|
pop eax
|
|
add al, '0'
|
|
stosb
|
|
jnz @b
|
|
mcall 70,fileinfo
|
|
mov ecx,eax
|
|
mcall 5,20
|
|
pop edx
|
|
mcall 60,2
|
|
cmp [my_param],'*'
|
|
jne still
|
|
.close:
|
|
mcall -1
|
|
|
|
red:
|
|
mov [my_param],'a'
|
|
|
|
mov eax,48
|
|
mov ebx,3
|
|
mov ecx,sc
|
|
mov edx,sizeof.system_colors
|
|
int 0x40
|
|
|
|
mcall 12,1
|
|
|
|
xor eax,eax
|
|
mov ebx,220*65536+120
|
|
mov ecx,30*65536+FILECOUNT*16+35
|
|
mov edx,[sc.work]
|
|
or edx,0x33000000
|
|
mov edi,header
|
|
int 0x40
|
|
|
|
mov ecx,FILECOUNT
|
|
mov ebx,5 shl 16+100
|
|
mov esi,[sc.work_button]
|
|
mov edi,5 shl 16+14
|
|
mov edx,10
|
|
mov eax,8
|
|
.btnlp:
|
|
push ecx
|
|
mcall ,,edi
|
|
add edi,16 shl 16
|
|
inc edx
|
|
pop ecx
|
|
loop .btnlp
|
|
mov ecx,FILECOUNT
|
|
mov edx,embedded
|
|
xor edi,edi
|
|
mov ebx,25 shl 16+8
|
|
mov eax,4
|
|
.list:
|
|
lea edx,[edx+edi+8]
|
|
mov edi,[edx-8]
|
|
pusha
|
|
sub ebx,15 shl 16
|
|
mcall ,,0xff0000,my_param,1
|
|
inc [my_param]
|
|
popa
|
|
push ecx
|
|
mcall ,,[sc.work_button_text],,[edx-4]
|
|
pop ecx
|
|
add edx,esi
|
|
add ebx,16
|
|
loop .list
|
|
mcall 12,2
|
|
|
|
still:
|
|
mcall 10
|
|
cmp eax,1
|
|
je red
|
|
cmp eax,2
|
|
jne .nokey
|
|
mcall 2
|
|
cmp ah,27 ;Esc
|
|
je start.close
|
|
cmp ah,'a'
|
|
jb still
|
|
cmp ah,'a'+FILECOUNT
|
|
jae still
|
|
jmp .cxax
|
|
.nokey:
|
|
mcall 17
|
|
cmp ah,1
|
|
je start.close
|
|
sub ah,10-'a'
|
|
.cxax:
|
|
movzx ecx,ah
|
|
jmp start.open
|
|
|
|
header db appname,0
|
|
|
|
fileinfo:
|
|
dd 7
|
|
dd 0
|
|
dd param
|
|
dd 0 ,0
|
|
db '/RD/1/TINYPAD',0
|
|
|
|
param db '*'
|
|
fsize:
|
|
times 10 db '0'
|
|
db 0
|
|
|
|
embedded:
|
|
|
|
; Please use only filenames w/o path!
|
|
|
|
; -- Start of embedding area ------
|
|
embed_file 'README.TXT' ;a
|
|
embed_file 'GNU.TXT' ;b
|
|
embed_file 'HOT_KEYS.TXT' ;c
|
|
embed_file 'FASM.TXT' ;d
|
|
embed_file 'MTDBG.TXT' ;e
|
|
embed_file 'VRR_RUS.TXT' ;f
|
|
embed_file 'SYSFUNCR.TXT' ;g
|
|
embed_file 'PPP_RUS.TXT' ;h
|
|
embed_file 'STACK_RU.TXT' ;i
|
|
embed_file 'GROBFAR.TXT' ;j
|
|
; -- End of embedding area -------
|
|
|
|
dd 0
|
|
FILECOUNT = FILE_COUNT
|
|
|
|
if ~ FILECOUNT>0
|
|
error 'No embedded files'
|
|
end if
|
|
|
|
my_param db 0
|
|
rb 256
|
|
I_END:
|
|
|
|
sc system_colors
|