WebSVN – Kolibri OS – Diff – /programs/other/mhc/trunk/mhc.asm


;
; MHC archiver for MenuetOS - very fast compression tool
;
; version 0.09
;
; Written by Nikita Lesnikov (nlo_one@mail.ru, Republic of Belarus, Sluck)
;
 
;==============================================================================
 
;
; Brief file format description:
;
;                  +-----------+------------------------+
;  File structure: | Method ID | Compressed data        |
;                  +-----------+------------------------+
;
;  Methods list:
;
;    0. LZP (order-2 specified specially for *.ASM,*.RAW and MeOS executables)
;
;  New methods can be easily added without loss of compatibility
; with older versions
;
 
;==============================================================================
 
; SYSTEM HEADER
 
use32
 
  org 0x0
  db "MENUET01"
  dd 0x01
  dd ENTRANCE
  dd MHC_END
  dd 0x300000  ; 3 megs of memory needed
  dd 0x2FF000
  dd 0x0
  dd 0x0
 
include 'lang.inc'
include '..\..\..\macros.inc'
; CODE AREA
 
ENTRANCE:
 
; ======== user interface =========
 
 
 call draw_window             ; draw the window
 
 still:
 
 mov eax,10                   ; wait for event
 mcall
 
 cmp eax,1                    ; redraw?
 jnz no_redraw
 call draw_window
 no_redraw:
 
 cmp eax,2                    ; key pressed?
 jz key
 
 cmp eax,3                    ; button pressed?
 jz button
 
 jmp still
 
 ; Key handler
 
 key:
 mov eax,2   ; read it
 mcall
 shr eax,8
 
 cmp byte [editstate],0
 jz  still
 
 cmp al,8    ; backspace
 jnz no_bksp
 cmp byte [editpos],0
 jz  no_del_last
 dec byte [editpos]
 xor ebx,ebx
 mov bl,byte [editpos]
 add ebx,cmfile
 cmp byte [editstate],2
 jnz no_add_base_1
 add ebx,12
 no_add_base_1:
 mov byte [ebx],32
 no_del_last:
 call draw_info
 jmp still
 no_bksp:
 
 cmp al,13            ; enter
 jnz no_enter
 mov byte [editstate],0
 call draw_info
 jmp still
 no_enter:
 
 cmp eax,dword 31
 jbe no_lit
 cmp eax,dword 95
 jb  capital
 sub eax,32
 capital:
 xor ebx,ebx
 mov bl,byte [editpos]
 add ebx,cmfile
 cmp byte [editstate],2
 jnz no_add_base_2
 add ebx,12
 no_add_base_2:
 mov byte [ebx],al
 inc byte [editpos]
 cmp byte [editpos],12
 jnz no_null_state
 mov byte [editstate],0
 no_null_state:
 call draw_info
 no_lit:
 
 jmp still
 
 ; Button handler
 
 button:
 
 mov eax,17
 mcall
 
 cmp ah,1
 jnz no_quit
 mov eax,-1
 mcall
 no_quit:
 
 cmp ah,4
 jnz nofirst
 cld
 mov byte [editstate],1
 mov edi,cmfile
 mov eax,0x20202020
 mov ecx,3
 rep stosd
 mov byte [editpos],0
 mov byte [msgid],0
 call draw_info
 nofirst:
 
 cmp ah,5
 jnz nosecond
 cld
 mov byte [editstate],2
 mov edi,iofile
 mov eax,0x20202020
 mov ecx,3
 rep stosd
 mov byte [editpos],0
 mov byte [msgid],0
 call draw_info
 nosecond:
 
 cmp ah,2
 jnz no_compress
 call compress
 no_compress:
 
 cmp ah,3
 jnz no_decompress
 call decompress
 no_decompress:
 
 cmp ah,6
 jnz no_delete_io
 pusha
 mov eax,32
 mov ebx,iofile
 mcall
 popa
 no_delete_io:
 
 cmp ah,7
 jnz  no_delete_archive
 pusha
 mov eax,32
 mov ebx,cmfile
 mcall
 popa
 no_delete_archive:
 
 jmp still
 
 ; WINDOW DRAW
 
 draw_window:
 
 mov eax,12  ; Start redrawing
 mov ebx,1
 mcall
 
 xor eax,eax           ; Define window
 mov ebx,100*65536+240
 mov ecx,100*65536+130
 mov edx,0x04AAAAAA
 mov esi,0x80777777
 mov edi,0x00777777
 mcall
 
 mov eax,4              ; Draw all needed texts
 mov ebx,8*65536+8
 mov ecx,0x00FFFFFF
 mov edx,title
 mov esi,arclab-title
 mcall
 
 xor ecx,ecx
 mov edx,arclab
 mov esi,unplab-arclab
 add ebx,10*65536+28
 mcall
 
 mov edx,unplab
 mov esi,fin_text-unplab
 add ebx,18
 mcall
 
 pusha
 
; mov eax,8            ; Buttons
; mov ebx,222*65536+10
; mov ecx,6*65536+10
; mov edx,1
; mov esi,0x555555
; mcall
 
 mov eax,8
 mov ebx,15*65536+100
 mov ecx,70*65536+13
 mov edx,2
 mcall
 
 inc edx
 add ebx,110*65536
 mcall
 
 inc edx
 mov ebx,214*65536+11
 mov ecx,33*65536+11
 mcall
 
 inc edx
 add ecx,18*65536
 mcall
 
 inc edx
 mov ebx,15*65536+100
 mov ecx,86*65536+13
 mcall
 
 inc edx
 add ebx,110*65536
 mcall
 
 popa
 
 mov ecx,0x00FFFFFF
 mov edx,keylab
 mov esi,dellab-keylab
 add ebx,19
 mcall
 
 mov edx,dellab
 mov esi,title-dellab
 add ebx,16
 mcall
 
 call draw_info
 
 mov eax,12          ; Finish redrawing
 mov ebx,2
 mcall
 
 ret
 
 draw_info:          ; Draw filenames and compressor state
 
 activecolor equ 0x00112299
 
 pusha ; Save registers
 
 mov eax,13               ; Clean draw area
 mov ebx,127*65536+85
 mov ecx,33*65536+33
 mov edx,0x00AAAAAA
 mcall
 
 mov eax,4 ; Draw filenames
 mov ebx,134*65536+36
 mov edx,cmfile
 xor ecx,ecx
 mov esi,12
 cmp byte [editstate],1
 jnz no_active_1
 mov ecx,activecolor
 no_active_1:
 mcall
 xor ecx,ecx
 cmp byte [editstate],2
 jnz no_active_2
 mov ecx,activecolor
 no_active_2:
 add ebx,18
 add edx,12
 mcall
 
 mov eax,13             ; Clean info area
 mov ebx,14*65536+210
 mov ecx,107*65536+14
 mov edx,0x00AAAAAA
 mcall
 
 cmp byte [msgid],0     ; Draw info string
 jz notype
 mov ebx,16*65536+110
 xor ecx,ecx
 mov esi,16
 mov al, byte [msgid]
 dec al
 shl al,4
 xor ah,ah
 xor edx,edx
 mov dx,ax
 add edx,msgtable
 mov eax,4
 mcall
 notype:
 
 popa ; Restore registers
 
 ret
 
 ; 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"
 arclab db "COMPRESSED FILE:"
 unplab db "INPUT/OUTPUT FILE:"
 fin_text:
 
 cmfile db "FILENAME.MHC"
 iofile db "FILENAME.XYZ"
 
 msgtable:
 db "COMPRESSING...  "
 db "DECOMPRESSING..."
 db "I/O NOT FOUND!  "
 db "*.MHC NOT FOUND!"
 db "INVALID METHOD! "
 
 end if
 
 
 editstate db 0
 editpos db 0
 msgid db 0
 
 
; ======== compression/decompression engine ========
 
; Adresses declaration
 
 hashtable equ  MHC_END
 ifile     equ  hashtable+65536*4
 ofile     equ  ifile+1000000
 
 compress:   ; File compression
 
 call fill_filebufs
 
 mov eax,6
 mov ebx,iofile
 xor ecx,ecx
 mov edx,ecx
 not edx
 mov esi,ifile
 mcall
 
 cmp eax,0xFFFFFFFF
 jnz  compress_filefound              ; i/o file not found
 mov byte [msgid],3
 call draw_info
 ret
 
 compress_filefound:
 
 mov byte [msgid],1
 call draw_info
 
 jmp lzp_compress                    ; compress with order-2 LZP
 compress_dumpdata:
 
 push edx
 
 mov eax,32
 mov ebx,cmfile
 mcall
 
 mov eax,33
 pop edx
 mov ebx,cmfile
 mov ecx,ofile
 xor esi,esi
 mcall
 
 mov byte [msgid],0
 call draw_info
 
 ret
 
 
 decompress: ; File decompression
 
 call fill_filebufs
 
 mov  eax,6
 mov ebx,cmfile
 xor ecx,ecx
 mov edx,ecx
 not edx
 mov esi,ofile
 mcall
 
 cmp eax,0xFFFFFFFF
 jnz  decompress_filefound              ; *.mhc file not found
 mov byte [msgid],4
 call draw_info
 ret
 
 decompress_filefound:
 
 cmp byte [ofile],0                     ; Invalid method!
 jz  right_method
 mov byte [msgid],5
 call draw_info
 ret
 
 right_method:
 mov byte [msgid],2
 call draw_info
 
 jmp lzp_decompress
 decompress_dumpdata:
 
 push edx
 
 mov eax,32
 mov ebx,iofile
 mcall
 
 mov eax,33
 pop edx
 mov ebx,iofile
 mov ecx,ifile
 xor esi,esi
 mcall
 
 mov byte [msgid],0
 call draw_info
 
 ret
 
 fill_filebufs:             ; Fill filebufs with garbage to simplify matching
 pusha
 cld
 mov eax,0xF7D9A03F         ; <- "magic number" :) just garbage...
 mov ecx,2000000/4
 mov edi,ifile
 rep stosd
 popa
 ret
 
; ==== algorithms section ====
 
; Method 0: LZP compression algorithm
 
 lzp_compress:           ; EDX - how much bytes to dump
 
 cld                     ; clear direction flag
 
 mov esi,ifile           ; init pointers
 mov edi,ofile
 
 push eax                ; write header: ID0+4bfilesize => total 5 bytes
 xor eax,eax
 stosb
 pop eax
 stosd
 
 pusha                   ; fill hash table
 mov eax,ifile
 mov edi,hashtable
 mov ecx,65536
 rep stosd
 popa
 
 add eax,esi              ; calculate endpointer
 mov dword [endpointer],eax
 
 movsw                    ; copy three bytes
 movsb
 
 mov dword [controlp],edi
 inc edi
 
 mov byte [controld],0
 mov byte [controlb],0
 
 c_loop:
 cmp dword [endpointer],esi  ; check end of file
 ja  c_loop_ok
 jmp finish_c_loop
 c_loop_ok:
 
 call chash
 call compare
 jz   two_match_c
 
 lodsb
 mov byte [literal],al
 call chash
 call compare
 jz   lit_match_c
 
 mov  al,0
 call putbit
 mov  al,byte [literal]
 stosb
 movsb
 jmp  end_c_loop
 
 lit_match_c:
 mov al,1
 call putbit
 mov al,0
 call putbit
 mov al,byte [literal]
 stosb
 jmp encode_match
 
 two_match_c:
 mov al,1
 call putbit
 call putbit
 
 encode_match:
 call incpos
 call compare
 jz one_c
 mov al,0
 call putbit
 jmp end_c_loop
 one_c:
 
 call incpos
 mov  al,1
 call putbit
 
 call compare
 jnz ec1
 call incpos
 call compare
 jnz ec2
 call incpos
 call compare
 jnz ec3
 call incpos
 mov al,1
 call putbit
 call putbit
 call compare
 jnz ec4
 call incpos
 call compare
 jnz ec5
 call incpos
 call compare
 jnz ec6
 call incpos
 call compare
 jnz ec7
 call incpos
 call compare
 jnz ec8
 call incpos
 call compare
 jnz ec9
 call incpos
 call compare
 jnz ec10
 call incpos
 
 mov al,1
 call putbit
 call putbit
 call putbit
 xor  ecx,ecx
 
 match_loop_c:
 cmp  esi,dword [endpointer]
 jae   out_match_loop_c
 call compare
 jnz  out_match_loop_c
 inc  ecx
 call incpos
 jmp  match_loop_c
 out_match_loop_c:
 
 mov al,0xFF
 out_lg:
 cmp ecx,255
 jb  out_lg_out
 stosb
 sub ecx,255
 jmp out_lg
 out_lg_out:
 mov al,cl
 stosb
 jmp end_c_loop
 
 ec10:
 mov al,1
 call putbit
 call putbit
 mov al,0
 call putbit
 jmp end_c_loop
 
 ec9:
 mov al,1
 call putbit
 mov al,0
 call putbit
 mov al,1
 call putbit
 jmp end_c_loop
 
 ec8:
 mov al,1
 call putbit
 mov al,0
 call putbit
 call putbit
 jmp end_c_loop
 
 ec7:
 mov al,0
 call putbit
 mov al,1
 call putbit
 call putbit
 jmp end_c_loop
 
 ec6:
 mov al,0
 call putbit
 mov al,1
 call putbit
 mov al,0
 call putbit
 jmp end_c_loop
 
 ec5:
 mov al,0
 call putbit
 call putbit
 mov al,1
 call putbit
 jmp end_c_loop
 
 ec4:
 mov al,0
 call putbit
 call putbit
 call putbit
 jmp end_c_loop
 
 ec3:
 mov al,1
 call putbit
 mov al,0
 call putbit
 jmp end_c_loop
 
 ec2:
 mov al,0
 call putbit
 mov al,1
 call putbit
 jmp end_c_loop
 
 ec1:
 mov al,0
 call putbit
 call putbit
 
 end_c_loop:
 jmp c_loop
 
 finish_c_loop:
 
 mov eax,dword [controlp] ; store last tagbyte
 mov bl,byte [controld]
 mov [eax], byte bl
 
 sub edi,ofile ; calculate dump size
 mov edx,edi
 
 jmp compress_dumpdata
 
; LZP decompression algorithm
 
 lzp_decompress:                        ; EDX - how much bytes to dump
 
 cld
 
 mov edi,ifile
 mov esi,ofile+1
 
 pusha                   ; fill hash table
 mov eax,ifile
 mov edi,hashtable
 mov ecx,65536
 rep stosd
 popa
 
 lodsd
 
 mov ebx,edi
 add ebx,eax
 mov dword [endpointer],ebx
 
 movsw
 movsb
 
 lodsb
 mov byte [controld],al
 mov byte [controlb],0
 
 d_loop:
 cmp dword [endpointer],edi
 ja d_loop_ok
 jmp finish_d_loop
 d_loop_ok:
 
 call getbit
 cmp  al,0
 jnz  match_d
 call dhash
 movsb
 call dhash
 movsb
 jmp end_d_loop
 
 match_d:
 
 call getbit
 cmp  al,0
 jnz  no_literal_before_match
 call dhash
 movsb
 no_literal_before_match:
 
 call dhash
 mov ecx,1
 call copymatch
 
 call getbit
 cmp  al,0
 jz   end_d_loop
 mov  ecx,1
 call copymatch
 call getbit
 cmp  al,0
 jz   dc2
 mov  ecx,2
 call copymatch
 call getbit
 cmp  al,0
 jz   end_d_loop
 mov  ecx,1
 call copymatch
 call getbit
 cmp  al,0
 jz   dc4
 mov  ecx,4
 call copymatch
 call getbit
 cmp  al,0
 jz   dc5
 call getbit
 cmp  al,0
 jz   dc6
 mov  ecx,3
 call copymatch
 
 do:
 lodsb
 xor  ecx,ecx
 mov  cl,al
 call copymatch
 cmp  al,0xFF
 jnz  end_do
 jmp do
 end_do:
 jmp end_d_loop
 
 dc6:
 mov ecx,2
 call copymatch
 jmp  end_d_loop
 
 dc5:
 call getbit
 cmp  al,0
 jz   ndc5
 mov  ecx,1
 call copymatch
 ndc5:
 jmp  end_d_loop
 
 dc4:
 call getbit
 cmp  al,0
 jz   ndc4
 call getbit
 mov  ecx,3
 cmp  al,1
 jz   ndcc4
 dec  ecx
 ndcc4:
 call copymatch
 jmp  end_d_loop
 ndc4:
 call getbit
 cmp  al,0
 jz   ndccc4
 mov  ecx,1
 call copymatch
 ndccc4:
 jmp  end_d_loop
 
 dc2:
 call getbit
 cmp al,0
 jz  ndc2
 mov ecx,1
 call copymatch
 ndc2:
 
 end_d_loop:
 jmp d_loop
 finish_d_loop:
 
 mov edx, dword [ofile+1]
 
 jmp decompress_dumpdata
 
; LZP subroutines
 
 putbit:                  ; bit -> byte tag, AL holds bit for output
 pusha
 mov cl,byte [controlb]
 shl al,cl
 mov bl,byte [controld]
 or  bl,al
 mov byte [controld],bl
 inc cl
 cmp cl,8
 jnz just_increment
 mov byte [controlb],0
 mov byte [controld],0
 push edi
 mov  edi, dword [controlp]
 mov  al,bl
 stosb
 pop  edi
 mov dword [controlp],edi
 popa
 inc edi
 ret
 just_increment:
 mov byte [controlb],cl
 popa
 ret
 
 getbit:                       ; tag byte -> bit, AL holds input
 push ecx
 mov al,byte [controld]
 mov cl,byte [controlb]
 shr al,cl
 and al,1
 inc cl
 cmp cl,8
 jnz just_increment_d
 mov byte [controlb],0
 push eax
 lodsb
 mov byte [controld],al
 pop  eax
 pop  ecx
 ret
 just_increment_d:
 mov byte [controlb],cl
 pop ecx
 ret
 
 chash:                        ; calculate hash -> mp -> fill position
 pusha
 xor  eax,eax
 mov  al, byte [esi-1]
 mov  ah, byte [esi-2]
 shl  eax,2
 add  eax,hashtable
 mov  edx,dword [eax]
 mov  dword [mp],edx
 mov  dword [eax],esi
 popa
 ret
 
 dhash:                        ; calculate hash -> mp -> fill position
 pusha
 xor  eax,eax
 mov  al, byte [edi-1]
 mov  ah, byte [edi-2]
 shl  eax,2
 add  eax,hashtable
 mov  edx,dword [eax]
 mov  dword [mp],edx
 mov  dword [eax],edi
 popa
 ret
 
 copymatch:                    ; ECX bytes from [mp] to [rp]
 push esi
 mov  esi,dword [mp]
 rep  movsb
 mov  dword [mp],esi
 pop  esi
 ret
 
 compare:                      ; compare [mp] with [cpos]
 push edi
 push esi
 mov  edi,dword [mp]
 cmpsb
 pop  esi
 pop  edi
 ret
 
 incpos:
 inc  dword [mp]
 inc  esi
 ret
 
 
; LZP algorithm data
 
 endpointer     dd      0
 controlp       dd      0
 controlb       db      0
 controld       db      0
 mp  dd 0
 literal        db      0
 
MHC_END: ; the end... - Nikita Lesnikov (nlo_one)

Rev 485	Rev 551
1	;	1	;
2	; MHC archiver for MenuetOS - very fast compression tool	2	; MHC archiver for MenuetOS - very fast compression tool
3	;	3	;
4	; version 0.09	4	; version 0.09
5	;	5	;
6	; Written by Nikita Lesnikov (nlo_one@mail.ru, Republic of Belarus, Sluck)	6	; Written by Nikita Lesnikov (nlo_one@mail.ru, Republic of Belarus, Sluck)
7	;	7	;
8		8
9	;==============================================================================	9	;==============================================================================
10		10
11	;	11	;
12	; Brief file format description:	12	; Brief file format description:
13	;	13	;
14	; +-----------+------------------------+	14	; +-----------+------------------------+
15	; File structure: \| Method ID \| Compressed data \|	15	; File structure: \| Method ID \| Compressed data \|
16	; +-----------+------------------------+	16	; +-----------+------------------------+
17	;	17	;
18	; Methods list:	18	; Methods list:
19	;	19	;
20	; 0. LZP (order-2 specified specially for .ASM,.RAW and MeOS executables)	20	; 0. LZP (order-2 specified specially for .ASM,.RAW and MeOS executables)
21	;	21	;
22	; New methods can be easily added without loss of compatibility	22	; New methods can be easily added without loss of compatibility
23	; with older versions	23	; with older versions
24	;	24	;
25		25
26	;==============================================================================	26	;==============================================================================
27		27
28	; SYSTEM HEADER	28	; SYSTEM HEADER
29		29
30	use32	30	use32
31		31
32	org 0x0	32	org 0x0
33	db "MENUET01"	33	db "MENUET01"
34	dd 0x01	34	dd 0x01
35	dd ENTRANCE	35	dd ENTRANCE
36	dd MHC_END	36	dd MHC_END
37	dd 0x300000 ; 3 megs of memory needed	37	dd 0x300000 ; 3 megs of memory needed
38	dd 0x2FF000	38	dd 0x2FF000
39	dd 0x0	39	dd 0x0
40	dd 0x0	40	dd 0x0
41		41
42	include 'lang.inc'	42	include 'lang.inc'
43	include '..\..\..\macros.inc'	43	include '..\..\..\macros.inc'
44	; CODE AREA	44	; CODE AREA
45		45
46	ENTRANCE:	46	ENTRANCE:
47		47
48	; ======== user interface =========	48	; ======== user interface =========
49		49
50		50
51	call draw_window ; draw the window	51	call draw_window ; draw the window
52		52
53	still:	53	still:
54		54
55	mov eax,10 ; wait for event	55	mov eax,10 ; wait for event
56	mcall	56	mcall
57		57
58	cmp eax,1 ; redraw?	58	cmp eax,1 ; redraw?
59	jnz no_redraw	59	jnz no_redraw
60	call draw_window	60	call draw_window
61	no_redraw:	61	no_redraw:
62		62
63	cmp eax,2 ; key pressed?	63	cmp eax,2 ; key pressed?
64	jz key	64	jz key
65		65
66	cmp eax,3 ; button pressed?	66	cmp eax,3 ; button pressed?
67	jz button	67	jz button
68		68
69	jmp still	69	jmp still
70		70
71	; Key handler	71	; Key handler
72		72
73	key:	73	key:
74	mov eax,2 ; read it	74	mov eax,2 ; read it
75	mcall	75	mcall
76	shr eax,8	76	shr eax,8
77		77
78	cmp byte [editstate],0	78	cmp byte [editstate],0
79	jz still	79	jz still
80		80
81	cmp al,8 ; backspace	81	cmp al,8 ; backspace
82	jnz no_bksp	82	jnz no_bksp
83	cmp byte [editpos],0	83	cmp byte [editpos],0
84	jz no_del_last	84	jz no_del_last
85	dec byte [editpos]	85	dec byte [editpos]
86	xor ebx,ebx	86	xor ebx,ebx
87	mov bl,byte [editpos]	87	mov bl,byte [editpos]
88	add ebx,cmfile	88	add ebx,cmfile
89	cmp byte [editstate],2	89	cmp byte [editstate],2
90	jnz no_add_base_1	90	jnz no_add_base_1
91	add ebx,12	91	add ebx,12
92	no_add_base_1:	92	no_add_base_1:
93	mov byte [ebx],32	93	mov byte [ebx],32
94	no_del_last:	94	no_del_last:
95	call draw_info	95	call draw_info
96	jmp still	96	jmp still
97	no_bksp:	97	no_bksp:
98		98
99	cmp al,13 ; enter	99	cmp al,13 ; enter
100	jnz no_enter	100	jnz no_enter
101	mov byte [editstate],0	101	mov byte [editstate],0
102	call draw_info	102	call draw_info
103	jmp still	103	jmp still
104	no_enter:	104	no_enter:
105		105
106	cmp eax,dword 31	106	cmp eax,dword 31
107	jbe no_lit	107	jbe no_lit
108	cmp eax,dword 95	108	cmp eax,dword 95
109	jb capital	109	jb capital
110	sub eax,32	110	sub eax,32
111	capital:	111	capital:
112	xor ebx,ebx	112	xor ebx,ebx
113	mov bl,byte [editpos]	113	mov bl,byte [editpos]
114	add ebx,cmfile	114	add ebx,cmfile
115	cmp byte [editstate],2	115	cmp byte [editstate],2
116	jnz no_add_base_2	116	jnz no_add_base_2
117	add ebx,12	117	add ebx,12
118	no_add_base_2:	118	no_add_base_2:
119	mov byte [ebx],al	119	mov byte [ebx],al
120	inc byte [editpos]	120	inc byte [editpos]
121	cmp byte [editpos],12	121	cmp byte [editpos],12
122	jnz no_null_state	122	jnz no_null_state
123	mov byte [editstate],0	123	mov byte [editstate],0
124	no_null_state:	124	no_null_state:
125	call draw_info	125	call draw_info
126	no_lit:	126	no_lit:
127		127
128	jmp still	128	jmp still
129		129
130	; Button handler	130	; Button handler
131		131
132	button:	132	button:
133		133
134	mov eax,17	134	mov eax,17
135	mcall	135	mcall
136		136
137	cmp ah,1	137	cmp ah,1
138	jnz no_quit	138	jnz no_quit
139	mov eax,-1	139	mov eax,-1
140	mcall	140	mcall
141	no_quit:	141	no_quit:
142		142
143	cmp ah,4	143	cmp ah,4
144	jnz nofirst	144	jnz nofirst
145	cld	145	cld
146	mov byte [editstate],1	146	mov byte [editstate],1
147	mov edi,cmfile	147	mov edi,cmfile
148	mov eax,0x20202020	148	mov eax,0x20202020
149	mov ecx,3	149	mov ecx,3
150	rep stosd	150	rep stosd
151	mov byte [editpos],0	151	mov byte [editpos],0
152	mov byte [msgid],0	152	mov byte [msgid],0
153	call draw_info	153	call draw_info
154	nofirst:	154	nofirst:
155		155
156	cmp ah,5	156	cmp ah,5
157	jnz nosecond	157	jnz nosecond
158	cld	158	cld
159	mov byte [editstate],2	159	mov byte [editstate],2
160	mov edi,iofile	160	mov edi,iofile
161	mov eax,0x20202020	161	mov eax,0x20202020
162	mov ecx,3	162	mov ecx,3
163	rep stosd	163	rep stosd
164	mov byte [editpos],0	164	mov byte [editpos],0
165	mov byte [msgid],0	165	mov byte [msgid],0
166	call draw_info	166	call draw_info
167	nosecond:	167	nosecond:
168		168
169	cmp ah,2	169	cmp ah,2
170	jnz no_compress	170	jnz no_compress
171	call compress	171	call compress
172	no_compress:	172	no_compress:
173		173
174	cmp ah,3	174	cmp ah,3
175	jnz no_decompress	175	jnz no_decompress
176	call decompress	176	call decompress
177	no_decompress:	177	no_decompress:
178		178
179	cmp ah,6	179	cmp ah,6
180	jnz no_delete_io	180	jnz no_delete_io
181	pusha	181	pusha
182	mov eax,32	182	mov eax,32
183	mov ebx,iofile	183	mov ebx,iofile
184	mcall	184	mcall
185	popa	185	popa
186	no_delete_io:	186	no_delete_io:
187		187
188	cmp ah,7	188	cmp ah,7
189	jnz no_delete_archive	189	jnz no_delete_archive
190	pusha	190	pusha
191	mov eax,32	191	mov eax,32
192	mov ebx,cmfile	192	mov ebx,cmfile
193	mcall	193	mcall
194	popa	194	popa
195	no_delete_archive:	195	no_delete_archive:
196		196
197	jmp still	197	jmp still
198		198
199	; WINDOW DRAW	199	; WINDOW DRAW
200		200
201	draw_window:	201	draw_window:
202		202
203	mov eax,12 ; Start redrawing	203	mov eax,12 ; Start redrawing
204	mov ebx,1	204	mov ebx,1
205	mcall	205	mcall
206		206
207	xor eax,eax ; Define window	207	xor eax,eax ; Define window
208	mov ebx,100*65536+240	208	mov ebx,100*65536+240
209	mov ecx,100*65536+130	209	mov ecx,100*65536+130
210	mov edx,0x03AAAAAA	210	mov edx,0x04AAAAAA
211	mov esi,0x80777777	211	mov esi,0x80777777
212	mov edi,0x00777777	212	mov edi,0x00777777
213	mcall	213	mcall
214		214
215	mov eax,4 ; Draw all needed texts	215	mov eax,4 ; Draw all needed texts
216	mov ebx,8*65536+8	216	mov ebx,8*65536+8
217	mov ecx,0x00FFFFFF	217	mov ecx,0x00FFFFFF
218	mov edx,title	218	mov edx,title
219	mov esi,arclab-title	219	mov esi,arclab-title
220	mcall	220	mcall
221		221
222	xor ecx,ecx	222	xor ecx,ecx
223	mov edx,arclab	223	mov edx,arclab
224	mov esi,unplab-arclab	224	mov esi,unplab-arclab
225	add ebx,10*65536+28	225	add ebx,10*65536+28
226	mcall	226	mcall
227		227
228	mov edx,unplab	228	mov edx,unplab
229	mov esi,fin_text-unplab	229	mov esi,fin_text-unplab
230	add ebx,18	230	add ebx,18
231	mcall	231	mcall
232		232
233	pusha	233	pusha
234		234
235	; mov eax,8 ; Buttons	235	; mov eax,8 ; Buttons
236	; mov ebx,222*65536+10	236	; mov ebx,222*65536+10
237	; mov ecx,6*65536+10	237	; mov ecx,6*65536+10
238	; mov edx,1	238	; mov edx,1
239	; mov esi,0x555555	239	; mov esi,0x555555
240	; mcall	240	; mcall
241		241
242	mov eax,8	242	mov eax,8
243	mov ebx,15*65536+100	243	mov ebx,15*65536+100
244	mov ecx,70*65536+13	244	mov ecx,70*65536+13
245	mov edx,2	245	mov edx,2
246	mcall	246	mcall
247		247
248	inc edx	248	inc edx
249	add ebx,110*65536	249	add ebx,110*65536
250	mcall	250	mcall
251		251
252	inc edx	252	inc edx
253	mov ebx,214*65536+11	253	mov ebx,214*65536+11
254	mov ecx,33*65536+11	254	mov ecx,33*65536+11
255	mcall	255	mcall
256		256
257	inc edx	257	inc edx
258	add ecx,18*65536	258	add ecx,18*65536
259	mcall	259	mcall
260		260
261	inc edx	261	inc edx
262	mov ebx,15*65536+100	262	mov ebx,15*65536+100
263	mov ecx,86*65536+13	263	mov ecx,86*65536+13
264	mcall	264	mcall
265		265
266	inc edx	266	inc edx
267	add ebx,110*65536	267	add ebx,110*65536
268	mcall	268	mcall
269		269
270	popa	270	popa
271		271
272	mov ecx,0x00FFFFFF	272	mov ecx,0x00FFFFFF
273	mov edx,keylab	273	mov edx,keylab
274	mov esi,dellab-keylab	274	mov esi,dellab-keylab
275	add ebx,19	275	add ebx,19
276	mcall	276	mcall
277		277
278	mov edx,dellab	278	mov edx,dellab
279	mov esi,title-dellab	279	mov esi,title-dellab
280	add ebx,16	280	add ebx,16
281	mcall	281	mcall
282		282
283	call draw_info	283	call draw_info
284		284
285	mov eax,12 ; Finish redrawing	285	mov eax,12 ; Finish redrawing
286	mov ebx,2	286	mov ebx,2
287	mcall	287	mcall
288		288
289	ret	289	ret
290		290
291	draw_info: ; Draw filenames and compressor state	291	draw_info: ; Draw filenames and compressor state
292		292
293	activecolor equ 0x00112299	293	activecolor equ 0x00112299
294		294
295	pusha ; Save registers	295	pusha ; Save registers
296		296
297	mov eax,13 ; Clean draw area	297	mov eax,13 ; Clean draw area
298	mov ebx,127*65536+85	298	mov ebx,127*65536+85
299	mov ecx,33*65536+33	299	mov ecx,33*65536+33
300	mov edx,0x00AAAAAA	300	mov edx,0x00AAAAAA
301	mcall	301	mcall
302		302
303	mov eax,4 ; Draw filenames	303	mov eax,4 ; Draw filenames
304	mov ebx,134*65536+36	304	mov ebx,134*65536+36
305	mov edx,cmfile	305	mov edx,cmfile
306	xor ecx,ecx	306	xor ecx,ecx
307	mov esi,12	307	mov esi,12
308	cmp byte [editstate],1	308	cmp byte [editstate],1
309	jnz no_active_1	309	jnz no_active_1
310	mov ecx,activecolor	310	mov ecx,activecolor
311	no_active_1:	311	no_active_1:
312	mcall	312	mcall
313	xor ecx,ecx	313	xor ecx,ecx
314	cmp byte [editstate],2	314	cmp byte [editstate],2
315	jnz no_active_2	315	jnz no_active_2
316	mov ecx,activecolor	316	mov ecx,activecolor
317	no_active_2:	317	no_active_2:
318	add ebx,18	318	add ebx,18
319	add edx,12	319	add edx,12
320	mcall	320	mcall
321		321
322	mov eax,13 ; Clean info area	322	mov eax,13 ; Clean info area
323	mov ebx,14*65536+210	323	mov ebx,14*65536+210
324	mov ecx,107*65536+14	324	mov ecx,107*65536+14
325	mov edx,0x00AAAAAA	325	mov edx,0x00AAAAAA
326	mcall	326	mcall
327		327
328	cmp byte [msgid],0 ; Draw info string	328	cmp byte [msgid],0 ; Draw info string
329	jz notype	329	jz notype
330	mov ebx,16*65536+110	330	mov ebx,16*65536+110
331	xor ecx,ecx	331	xor ecx,ecx
332	mov esi,16	332	mov esi,16
333	mov al, byte [msgid]	333	mov al, byte [msgid]
334	dec al	334	dec al
335	shl al,4	335	shl al,4
336	xor ah,ah	336	xor ah,ah
337	xor edx,edx	337	xor edx,edx
338	mov dx,ax	338	mov dx,ax
339	add edx,msgtable	339	add edx,msgtable
340	mov eax,4	340	mov eax,4
341	mcall	341	mcall
342	notype:	342	notype:
343		343
344	popa ; Restore registers	344	popa ; Restore registers
345		345
346	ret	346	ret
347		347
348	; interface data	348	; interface data
349		349
350	if lang eq de	350	if lang eq de
351	keylab db " PACKEN ENTPACKEN"	351	keylab db " PACKEN ENTPACKEN"
352	dellab db " LOESCHE I/O LOESCHE *.MHC"	352	dellab db " LOESCHE I/O LOESCHE *.MHC"
353	title db "MHC 0.09"	353	title db "MHC 0.09"
354	arclab db "GEOACJTE DATEI:"	354	arclab db "GEOACJTE DATEI:"
355	unplab db "EIN/AUSGABE DATEI:"	355	unplab db "EIN/AUSGABE DATEI:"
356	fin_text:	356	fin_text:
357		357
358	cmfile db "FILENAME.MHC"	358	cmfile db "FILENAME.MHC"
359	iofile db "FILENAME.XYZ"	359	iofile db "FILENAME.XYZ"
360		360
361	msgtable:	361	msgtable:
362	db "PACKE... "	362	db "PACKE... "
363	db "ENTPACKE... "	363	db "ENTPACKE... "
364	db "KEIN I/O! "	364	db "KEIN I/O! "
365	db "KEINE *.MHC! "	365	db "KEINE *.MHC! "
366	db "FALSCHE METHODe!"	366	db "FALSCHE METHODe!"
367		367
368	else	368	else
369	keylab db " COMPRESS DECOMPRESS"	369	keylab db " COMPRESS DECOMPRESS"
370	dellab db " DELETE I/O DELETE *.MHC"	370	dellab db " DELETE I/O DELETE *.MHC"
371	title db "MHC 0.09"	371	title db "MHC 0.09"
372	arclab db "COMPRESSED FILE:"	372	arclab db "COMPRESSED FILE:"
373	unplab db "INPUT/OUTPUT FILE:"	373	unplab db "INPUT/OUTPUT FILE:"
374	fin_text:	374	fin_text:
375		375
376	cmfile db "FILENAME.MHC"	376	cmfile db "FILENAME.MHC"
377	iofile db "FILENAME.XYZ"	377	iofile db "FILENAME.XYZ"
378		378
379	msgtable:	379	msgtable:
380	db "COMPRESSING... "	380	db "COMPRESSING... "
381	db "DECOMPRESSING..."	381	db "DECOMPRESSING..."
382	db "I/O NOT FOUND! "	382	db "I/O NOT FOUND! "
383	db "*.MHC NOT FOUND!"	383	db "*.MHC NOT FOUND!"
384	db "INVALID METHOD! "	384	db "INVALID METHOD! "
385		385
386	end if	386	end if
387		387
388		388
389	editstate db 0	389	editstate db 0
390	editpos db 0	390	editpos db 0
391	msgid db 0	391	msgid db 0
392		392
393		393
394	; ======== compression/decompression engine ========	394	; ======== compression/decompression engine ========
395		395
396	; Adresses declaration	396	; Adresses declaration
397		397
398	hashtable equ MHC_END	398	hashtable equ MHC_END
399	ifile equ hashtable+65536*4	399	ifile equ hashtable+65536*4
400	ofile equ ifile+1000000	400	ofile equ ifile+1000000
401		401
402	compress: ; File compression	402	compress: ; File compression
403		403
404	call fill_filebufs	404	call fill_filebufs
405		405
406	mov eax,6	406	mov eax,6
407	mov ebx,iofile	407	mov ebx,iofile
408	xor ecx,ecx	408	xor ecx,ecx
409	mov edx,ecx	409	mov edx,ecx
410	not edx	410	not edx
411	mov esi,ifile	411	mov esi,ifile
412	mcall	412	mcall
413		413
414	cmp eax,0xFFFFFFFF	414	cmp eax,0xFFFFFFFF
415	jnz compress_filefound ; i/o file not found	415	jnz compress_filefound ; i/o file not found
416	mov byte [msgid],3	416	mov byte [msgid],3
417	call draw_info	417	call draw_info
418	ret	418	ret
419		419
420	compress_filefound:	420	compress_filefound:
421		421
422	mov byte [msgid],1	422	mov byte [msgid],1
423	call draw_info	423	call draw_info
424		424
425	jmp lzp_compress ; compress with order-2 LZP	425	jmp lzp_compress ; compress with order-2 LZP
426	compress_dumpdata:	426	compress_dumpdata:
427		427
428	push edx	428	push edx
429		429
430	mov eax,32	430	mov eax,32
431	mov ebx,cmfile	431	mov ebx,cmfile
432	mcall	432	mcall
433		433
434	mov eax,33	434	mov eax,33
435	pop edx	435	pop edx
436	mov ebx,cmfile	436	mov ebx,cmfile
437	mov ecx,ofile	437	mov ecx,ofile
438	xor esi,esi	438	xor esi,esi
439	mcall	439	mcall
440		440
441	mov byte [msgid],0	441	mov byte [msgid],0
442	call draw_info	442	call draw_info
443		443
444	ret	444	ret
445		445
446		446
447	decompress: ; File decompression	447	decompress: ; File decompression
448		448
449	call fill_filebufs	449	call fill_filebufs
450		450
451	mov eax,6	451	mov eax,6
452	mov ebx,cmfile	452	mov ebx,cmfile
453	xor ecx,ecx	453	xor ecx,ecx
454	mov edx,ecx	454	mov edx,ecx
455	not edx	455	not edx
456	mov esi,ofile	456	mov esi,ofile
457	mcall	457	mcall
458		458
459	cmp eax,0xFFFFFFFF	459	cmp eax,0xFFFFFFFF
460	jnz decompress_filefound ; *.mhc file not found	460	jnz decompress_filefound ; *.mhc file not found
461	mov byte [msgid],4	461	mov byte [msgid],4
462	call draw_info	462	call draw_info
463	ret	463	ret
464		464
465	decompress_filefound:	465	decompress_filefound:
466		466
467	cmp byte [ofile],0 ; Invalid method!	467	cmp byte [ofile],0 ; Invalid method!
468	jz right_method	468	jz right_method
469	mov byte [msgid],5	469	mov byte [msgid],5
470	call draw_info	470	call draw_info
471	ret	471	ret
472		472
473	right_method:	473	right_method:
474	mov byte [msgid],2	474	mov byte [msgid],2
475	call draw_info	475	call draw_info
476		476
477	jmp lzp_decompress	477	jmp lzp_decompress
478	decompress_dumpdata:	478	decompress_dumpdata:
479		479
480	push edx	480	push edx
481		481
482	mov eax,32	482	mov eax,32
483	mov ebx,iofile	483	mov ebx,iofile
484	mcall	484	mcall
485		485
486	mov eax,33	486	mov eax,33
487	pop edx	487	pop edx
488	mov ebx,iofile	488	mov ebx,iofile
489	mov ecx,ifile	489	mov ecx,ifile
490	xor esi,esi	490	xor esi,esi
491	mcall	491	mcall
492		492
493	mov byte [msgid],0	493	mov byte [msgid],0
494	call draw_info	494	call draw_info
495		495
496	ret	496	ret
497		497
498	fill_filebufs: ; Fill filebufs with garbage to simplify matching	498	fill_filebufs: ; Fill filebufs with garbage to simplify matching
499	pusha	499	pusha
500	cld	500	cld

Subversion Repositories Kolibri OS

(root)/programs/other/mhc/trunk/mhc.asm – Rev 485 → 551