Subversion Repositories Kolibri OS

Rev

Rev 111 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 111 Rev 135
Line 205... Line 205...
205 
 int 0x40
 205 
 int 0x40
Line 206... Line 206...
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,0x02AAAAAA
 210 
 mov edx,0x03AAAAAA
211 
 mov esi,0x80777777
 211 
 mov esi,0x80777777
212 
 mov edi,0x00777777
 212 
 mov edi,0x00777777
Line 213... Line 213...
213 
 int 0x40
 213 
 int 0x40
Line 230... Line 230...
230 
 add ebx,18
 230 
 add ebx,18
231 
 int 0x40
 231 
 int 0x40
Line 232... Line 232...
232 
 
 232 
 
Line 233... Line 233...
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
Line -... Line 239...
- 
 
 239 
; mov esi,0x555555
239 
 mov esi,0x555555
 240 
; int 0x40
240 
 int 0x40
 241 
 
241 
 
 242 
 mov eax,8
242 
 mov ebx,15*65536+100
 243 
 mov ebx,15*65536+100
Line 243... Line 244...
243 
 mov ecx,70*65536+13
 244 
 mov ecx,70*65536+13
244 
 inc edx
 245 
 mov edx,2
245 
 int 0x40
 246 
 int 0x40
Line 344... Line 345...
344 
 
 345 
 
Line 345... Line 346...
345 
 ret
 346 
 ret
Line -... Line 347...
- 
 
 347 
 
- 
 
 348 
 ; interface data
- 
 
 349 
 
- 
 
 350 
 if lang eq de
- 
 
 351 
 keylab db "    PACKEN           ENTPACKEN"
- 
 
 352 
 dellab db "   LOESCHE I/O      LOESCHE *.MHC"
- 
 
 353 
 title  db "MHC 0.09"
- 
 
 354 
 arclab db "GEOACJTE DATEI:"
- 
 
 355 
 unplab db "EIN/AUSGABE DATEI:"
- 
 
 356 
 fin_text:
- 
 
 357 
 
- 
 
 358 
 cmfile db "FILENAME.MHC"
- 
 
 359 
 iofile db "FILENAME.XYZ"
- 
 
 360 
 
- 
 
 361 
 msgtable:
- 
 
 362 
 db "PACKE...        "
- 
 
 363 
 db "ENTPACKE...     "
- 
 
 364 
 db "KEIN I/O!       "
- 
 
 365 
 db "KEINE *.MHC!    "
346 
 
 366 
 db "FALSCHE METHODe!"
347 
 ; interface data
 367 
 
348 
 
 368 
 else
349 
 keylab db "    COMPRESS         DECOMPRESS"
 369 
 keylab db "    COMPRESS         DECOMPRESS"
350 
 dellab db "   DELETE I/O       DELETE *.MHC"
 370 
 dellab db "   DELETE I/O       DELETE *.MHC"
351 
 title  db "MHC 0.09"
 371 
 title  db "MHC 0.09"
Line 352... Line 372...
352 
 arclab db "COMPRESSED FILE:"
 372 
 arclab db "COMPRESSED FILE:"
353 
 unplab db "INPUT/OUTPUT FILE:"
 373 
 unplab db "INPUT/OUTPUT FILE:"
Line 354... Line -...
354 
 fin_text:
 - 
 
355 
 
 - 
 
356 
 cmfile db "FILENAME.MHC"
 - 
 
357 
 iofile db "FILENAME.XYZ"
 - 
 
358 
 
 374 
 fin_text:
359 
 editstate db 0
 375 
 
360 
 editpos db 0
 376 
 cmfile db "FILENAME.MHC"
361 
 msgid db 0
 377 
 iofile db "FILENAME.XYZ"
362 
 
 378 
 
363 
 msgtable:
 379 
 msgtable:
Line -... Line 380...
- 
 
 380 
 db "COMPRESSING...  "
- 
 
 381 
 db "DECOMPRESSING..."
- 
 
 382 
 db "I/O NOT FOUND!  "
- 
 
 383 
 db "*.MHC NOT FOUND!"
- 
 
 384 
 db "INVALID METHOD! "
- 
 
 385 
 
- 
 
 386 
 end if
- 
 
 387 
 
364 
 db "COMPRESSING...  "
 388 
 
Line 365... Line 389...
365 
 db "DECOMPRESSING..."
 389 
 editstate db 0
Line 366... Line 390...
366 
 db "I/O NOT FOUND!  "
 390 
 editpos db 0