Subversion Repositories Kolibri OS

Rev

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

Rev 524 Rev 528
Line 14... Line 14...
14 
   dd      1           ; header version
 14 
   dd      1           ; header version
15 
   dd      START       ; start address
 15 
   dd      START       ; start address
16 
   dd      I_END       ; file size
 16 
   dd      I_END       ; file size
17 
   dd      28000h      ; memory
 17 
   dd      28000h      ; memory
18 
   dd      10000h      ; stack pointer
 18 
   dd      10000h      ; stack pointer
19 
   dd      0,0         ; parameters, reserved
 19 
   dd      param,0     ; parameters, reserved
Line 20... Line 20...
20 
 
 20 
 
21 
   include 'lang.inc'
 21 
   include 'lang.inc'
22 
   include '..\..\macros.inc'
 22 
   include '..\..\..\macros.inc'
23 
   include 'kglobals.inc'
 23 
   include 'kglobals.inc'
24 
   include 'unpacker.inc'
 24 
   include 'unpacker.inc'
Line 65... Line 65...
65 
  _data  dd ?
 65 
  _data  dd ?
66 
ends
 66 
ends
Line 67... Line 67...
67 
 
 67 
 
68 
 
 - 
 
69 
START:                          ; start of execution
 68 
 
70 
 
 69 
START:                          ; start of execution
71 
    mov  eax,48                 ; get current colors
 70 
    mov  eax,48                 ; get current colors
72 
    mov  ebx,3
 71 
    mov  ebx,3
73 
    mov  ecx,color_table
 72 
    mov  ecx,color_table
Line -... Line 73...
- 
 
 73 
    mov  edx,4*10
- 
 
 74 
    mcall
74 
    mov  edx,4*10
 75 
 
- 
 
 76 
        mov     esi, param
75 
    mcall
 77 
        cmp     byte [esi], 0
76 
 
 78 
        jnz     has_param
77 
    cld
 79 
 
78 
    mov  esi,default_skn
 80 
    mov  esi,default_skn
- 
 
 81 
    mov  edi,fname
- 
 
 82 
    mov  ecx,default_skn.size
- 
 
 83 
    rep  movsb
- 
 
 84 
    jmp  @f
- 
 
 85 
has_param:
- 
 
 86 
        mov     ecx, 256/4
79 
    mov  edi,fname
 87 
        mov     edi, fname
Line 80... Line 88...
80 
    mov  ecx,default_skn.size
 88 
        rep     movsd
81 
    rep  movsb
 89 
@@:
82 
    call load_skin_file
 90 
    call load_skin_file
Line 1061... Line 1069...
1061 
end virtual
 1069 
end virtual
Line 1062... Line 1070...
1062 
 
 1070 
 
1063 
skin_info:
 1071 
skin_info:
Line -... Line 1072...
- 
 
 1072 
  .fname rb 256+1
- 
 
 1073 
 
- 
 
 1074 
param   rb      257
1064 
  .fname rb 256+1
 1075 
 
Line 1065... Line 1076...
1065 
 
 1076 
align 4
1066 
app_colours:
 1077 
app_colours:
1067 
 
 1078