Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 134 → Rev 135

/programs/other/mhc/trunk/build_ru.bat
File deleted
\ No newline at end of file
/programs/other/mhc/trunk/build_ge.bat
0,0 → 1,4
@erase lang.inc
@echo lang fix ge >lang.inc
@fasm mhc.asm mhc
@pause
/programs/other/mhc/trunk/mhc.asm
207,7 → 207,7
xor eax,eax ; Define window
mov ebx,100*65536+240
mov ecx,100*65536+130
mov edx,0x02AAAAAA
mov edx,0x03AAAAAA
mov esi,0x80777777
mov edi,0x00777777
int 0x40
232,16 → 232,17
 
pusha
 
mov eax,8 ; Buttons
mov ebx,222*65536+10
mov ecx,6*65536+10
mov edx,1
mov esi,0x555555
int 0x40
; mov eax,8 ; Buttons
; mov ebx,222*65536+10
; mov ecx,6*65536+10
; mov edx,1
; mov esi,0x555555
; int 0x40
 
mov eax,8
mov ebx,15*65536+100
mov ecx,70*65536+13
inc edx
mov edx,2
int 0x40
 
inc edx
346,6 → 347,25
 
; interface data
 
if lang eq de
keylab db " PACKEN ENTPACKEN"
dellab db " LOESCHE I/O LOESCHE *.MHC"
title db "MHC 0.09"
arclab db "GEOACJTE DATEI:"
unplab db "EIN/AUSGABE DATEI:"
fin_text:
 
cmfile db "FILENAME.MHC"
iofile db "FILENAME.XYZ"
 
msgtable:
db "PACKE... "
db "ENTPACKE... "
db "KEIN I/O! "
db "KEINE *.MHC! "
db "FALSCHE METHODe!"
 
else
keylab db " COMPRESS DECOMPRESS"
dellab db " DELETE I/O DELETE *.MHC"
title db "MHC 0.09"
356,10 → 376,6
cmfile db "FILENAME.MHC"
iofile db "FILENAME.XYZ"
 
editstate db 0
editpos db 0
msgid db 0
 
msgtable:
db "COMPRESSING... "
db "DECOMPRESSING..."
367,6 → 383,14
db "*.MHC NOT FOUND!"
db "INVALID METHOD! "
 
end if
 
 
editstate db 0
editpos db 0
msgid db 0
 
 
; ======== compression/decompression engine ========
 
; Adresses declaration
/programs/other/tinypad2/trunk/ascl.inc
1,5 → 1,3
lang equ ru ; ru en fr ge fi
 
;
; Assembler
; SMALL
220,9 → 218,9
cld
;; mov esi,path
mov edi,path
mov eax,0
mov ecx,200
rep stosb
xor eax,eax
mov ecx,(1024+16)/4
rep stosd
 
;mov [get_loops],0
mov [dlg_pid_get],0
264,7 → 262,7
mov eax,60
mov ebx,1 ; define IPC
mov ecx,path ; offset of area
mov edx,150 ; size 150 bytes
mov edx,1024+16 ; size
int 0x40
 
; change wanted events list 7-bit IPC event
276,7 → 274,7
; STEP 3 run SYSTEM XTREE with parameters
;
 
mov eax,58
mov eax,70
mov ebx,run_fileinfo
int 0x40
 
287,16 → 285,15
mov eax,23
mov ebx,50 ;0.5 sec
int 0x40
dec eax
jz mred
dec eax
jz mkey
dec eax
jz mbutton
cmp al, 7-3
jz mgetmes
 
cmp eax,1
je mred
cmp eax,2
je mkey
cmp eax,3
je mbutton
cmp eax,7
je mgetmes
 
; Get number of procces
mov ebx,procinfo
mov ecx,-1
388,8 → 385,8
cld
mov esi,path+16
mov edi,path
mov ecx,200
rep movsb
mov ecx,1024/4
rep movsd
mov [edi],byte 0
 
jmp openoff
405,11 → 402,11
dd 0,0 ; Type of dialog
 
run_fileinfo:
dd 16
dd 7
dd 0
dd param
dd 0
dd procinfo ; 0x10000
dd 0
;run_filepath
db '/RD/1/SYSXTREE',0
 
432,9 → 429,9
cld
;; mov esi,path
mov edi,path
mov eax,0
mov ecx,200
rep stosb
xor eax,eax
mov ecx,(1024+16)/4
rep stosd
 
;mov [get_loops],0
mov [dlg_pid_get],0
476,7 → 473,7
mov eax,60
mov ebx,1 ; define IPC
mov ecx,path ; offset of area
mov edx,150 ; size 150 bytes
mov edx,1024+16 ; size
int 0x40
 
; change wanted events list 7-bit IPC event
488,7 → 485,7
; STEP 3 run SYSTEM XTREE with parameters
;
 
mov eax,58
mov eax,70
mov ebx,run_fileinfo
int 0x40
 
499,16 → 496,15
mov eax,23
mov ebx,50 ;0.5 sec
int 0x40
dec eax
jz mred
dec eax
jz mkey
dec eax
jz mbutton
cmp al, 7-3
jz mgetmes
 
cmp eax,1
je mred
cmp eax,2
je mkey
cmp eax,3
je mbutton
cmp eax,7
je mgetmes
 
; Get number of procces
mov ebx,procinfo
mov ecx,-1
600,8 → 596,8
cld
mov esi,path+16
mov edi,path
mov ecx,200
rep movsb
mov ecx,1024/4
rep movsd
mov [edi],byte 0
 
jmp openoff
617,11 → 613,11
dd 0,0 ; Type of dialog
 
run_fileinfo:
dd 16
dd 7
dd 0
dd param
dd 0
dd procinfo
dd 0
;run_filepath:
db '/RD/1/SYSXTREE',0
 
/programs/other/tinypad2/trunk/tinypad2.asm
4066,7 → 4066,7
pos00 dd 0
newdoc db ?
mypath:
times 258 db 0
times 1024+16 db 0
real_posy dd 0
vscroll_size dd 0
vscroll_pos dd 0