Subversion Repositories Kolibri OS

Rev

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

Rev 134 Rev 139
Line 2... Line 2...
2 
;
 2 
;
3 
; Written in pure assembler by Ivushkin Andrey aka Willow
 3 
; Written in pure assembler by Ivushkin Andrey aka Willow
4 
;
 4 
;
5 
; Created: May 6, 2005
 5 
; Created: May 6, 2005
6 
;
 6 
;
7 
; Last changed: July 14, 2005
 7 
; Last changed: August 26, 2006
8 
;
 8 
;
9 
; Compile with FASM
 9 
; Compile with FASM
Line 10... Line 10...
10 
 
 10 
 
11 
SYS equ meos
 11 
SYS equ meos
12 
OUTBUF equ 4*1024*1024
 12 
OUTBUF equ 4*1024*1024
13 
png_imag = output+OUTBUF
 13 
png_imag = output+OUTBUF
14 
PARAM_PTR = os_work;png_image
 14 
PARAM_PTR = os_work;png_image
15 
MEMINIT=next_code;output
 15 
MEMINIT=next_code;output
Line 16... Line 16...
16 
DUMPFILE equ '/hd/1/out.txt'
 16 
DUMPFILE equ '/hd0/1/out.txt'
17 
 
 17 
 
18 
SHOW_RBLOCK equ 0;1
 18 
SHOW_RBLOCK equ 0;1
19 
SHOW_PNG_SEC equ 0;1
 19 
SHOW_PNG_SEC equ 0;1
Line 60... Line 60...
60 
  db     'MENUET01'
 60 
  db     'MENUET01'
61 
  dd     0x01
 61 
  dd     0x01
62 
  dd     start
 62 
  dd     start
63 
  dd     I_END
 63 
  dd     I_END
64 
  dd     MEMINIT
 64 
  dd     MEMINIT
65 
  dd     main_stack;MEMORY-2048
 65 
  dd     main_stack_top;MEMORY-2048
66 
if  PARAM_PTR eq param
 66 
if  PARAM_PTR eq param
67 
  dd     0
 67 
  dd     0
68 
else
 68 
else
69 
  dd     PARAM_PTR
 69 
  dd     PARAM_PTR
70 
end if
 70 
end if
Line 335... Line 335...
335 
    test [Flags],TAR_MODE
 335 
    test [Flags],TAR_MODE
336 
    jnz  .nomsg
 336 
    jnz  .nomsg
337 
    Msg 37
 337 
    Msg 37
338 
  .nomsg:
 338 
  .nomsg:
339 
    mov  [outfile.out],ebx
 339 
    mov  [outfile.out],ebx
340 
    mcall 58,outfile
 340 
    mcall 70,outfile
341 
;       dps  'Before Quit1'
 341 
;       dps  'Before Quit1'
342 
;    ud2
 342 
;    ud2
343 
    test [Flags],TAR_MODE
 343 
    test [Flags],TAR_MODE
344 
    jz   exit.pad
 344 
    jz   exit.pad
345 
;    call StartPad
 345 
;    call StartPad
Line 383... Line 383...
383 
    test [Flags],TAR_MODE
 383 
    test [Flags],TAR_MODE
384 
    jz   .notar
 384 
    jz   .notar
385 
    Msg  37
 385 
    Msg  37
386 
    test [Flags],LIST_MODE
 386 
    test [Flags],LIST_MODE
387 
    jne  quit
 387 
    jne  quit
388 
    mcall 58,outfile
 388 
    mcall 70,outfile
389 
  .pad:
 389 
  .pad:
390 
    call StartPad
 390 
    call StartPad
391 
  .notar:
 391 
  .notar:
392 
    Msg  12
 392 
    Msg  12
393 
       call  RunViewer
 393 
       call  RunViewer