Subversion Repositories Kolibri OS

Rev

Rev 123 | Rev 485 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 123 Rev 180
Line 19... Line 19...
19 
   label:
 19 
   label:
20 
     file fn
 20 
     file fn
21 
   label2:
 21 
   label2:
22 
   FILE_COUNT=FILE_COUNT+1
 22 
   FILE_COUNT=FILE_COUNT+1
23 
}
 23 
}
24 
 
 - 
 
- 
 
 24 
appname equ 'Doc Pack'
25 
   use32
 25 
   use32
26 
   org    0x0
 26 
   org    0x0
27 
   db     'MENUET01'              ; 8 byte id
 27 
   db     'MENUET01'              ; 8 byte id
28 
   dd     0x01                    ; header version
 28 
   dd     0x01                    ; header version
29 
   dd     start                   ; start of code
 29 
   dd     start                   ; start of code
Line 83... Line 83...
83 
 .close:
83 
 .close:
84 
  mcall -1
 84 
  mcall -1
Line 85... Line 85...
85 
 
 85 
 
86 
red:
 86 
red:
- 
 
 87 
  mov   [my_param],'a'
- 
 
 88
- 
 
 89 
  mov  eax,48
- 
 
 90 
  mov  ebx,3
- 
 
 91 
  mov  ecx,sc
- 
 
 92 
  mov  edx,sizeof.system_colors
- 
 
 93 
  int  0x40
87 
  mov   [my_param],'a'
 94 
 
- 
 
 95 
  mcall 12,1
- 
 
 96
- 
 
 97 
  xor  eax,eax
88 
  mcall 12,1
 98 
  mov  ebx,220*65536+120
- 
 
 99 
  mov  ecx,30*65536+FILECOUNT*16+35
89 
  mcall 0,<220,120>,<30,FILECOUNT*16+35>,0x3b0b0b0
 100 
  mov  edx,[sc.work]
- 
 
 101 
  or   edx,0x33000000
- 
 
 102 
  mov  edi,header
- 
 
 103 
  int  0x40
90 
  mcall 4,<8,8>,0x10ffffff,title,titlen-title
 104 
 
91 
  mov   ecx,FILECOUNT
 105 
  mov   ecx,FILECOUNT
92 
  mov   ebx,10 shl 16+100
 106 
  mov   ebx,5 shl 16+100
93 
  mov   esi,0xb0b0b0
 107 
  mov   esi,[sc.work_button]
94 
  mov   edi,27 shl 16+14
 108 
  mov   edi,5 shl 16+14
95 
  mov   edx,10
 109 
  mov   edx,10
96 
  mov   eax,8
 110 
  mov   eax,8
97 
 .btnlp:
 111 
 .btnlp:
98 
  push  ecx
 112 
  push  ecx
Line 102... Line 116...
102 
  pop   ecx
 116 
  pop   ecx
103 
  loop  .btnlp
 117 
  loop  .btnlp
104 
  mov   ecx,FILECOUNT
 118 
  mov   ecx,FILECOUNT
105 
  mov   edx,embedded
 119 
  mov   edx,embedded
106 
  xor   edi,edi
 120 
  xor   edi,edi
107 
  mov   ebx,30 shl 16+30
 121 
  mov   ebx,25 shl 16+8
108 
  mov   eax,4
 122 
  mov   eax,4
109 
 .list:
123 
 .list:
110 
  lea   edx,[edx+edi+8]
 124 
  lea   edx,[edx+edi+8]
111 
  mov   edi,[edx-8]
 125 
  mov   edi,[edx-8]
112 
  pusha
 126 
  pusha
113 
  sub   ebx,15 shl 16
 127 
  sub   ebx,15 shl 16
114 
  mcall ,,0xff,my_param,1
 128 
  mcall ,,0xff0000,my_param,1
115 
  inc   [my_param]
 129 
  inc   [my_param]
116 
  popa
 130 
  popa
117 
  push  ecx
 131 
  push  ecx
118 
  mcall ,,0xffffff,,[edx-4]
 132 
  mcall ,,[sc.work_button_text],,[edx-4]
119 
  pop   ecx
 133 
  pop   ecx
120 
  add   edx,esi
 134 
  add   edx,esi
121 
  add   ebx,16
 135 
  add   ebx,16
122 
  loop  .list
 136 
  loop  .list
123 
  mcall 12,2
 137 
  mcall 12,2
Line 143... Line 157...
143 
  sub   ah,10-'a'
 157 
  sub   ah,10-'a'
144 
 .cxax:
 158 
 .cxax:
145 
  movzx  ecx,ah
 159 
  movzx  ecx,ah
146 
  jmp   start.open
 160 
  jmp   start.open
Line 147... Line 161...
147 
 
 161 
 
148 
title  db 'Doc Pack'
 - 
 
Line 149... Line 162...
149 
titlen:
 162 
header  db appname,0
150 
 
 163 
 
151 
fileinfo:
 164 
fileinfo:
152 
        dd      7
 165 
        dd      7
153 
        dd      0
 166 
        dd      0
154 
        dd      param
 167 
        dd      param
Line 155... Line 168...
155 
        dd      0, 0
 168 
        dd      0 ,0
156 
        db      '/RD/1/TINYPAD',0
 169 
        db      '/RD/1/TINYPAD',0
157 
 
 170 
 
Line 172... Line 185...
172 
  embed_file 'MTDBG.TXT'         ;e
 185 
  embed_file 'MTDBG.TXT'         ;e
173 
  embed_file 'VRR_RUS.TXT'       ;f
 186 
  embed_file 'VRR_RUS.TXT'       ;f
174 
  embed_file 'SYSFUNCR.TXT'      ;g
 187 
  embed_file 'SYSFUNCR.TXT'      ;g
175 
  embed_file 'PPP_RUS.TXT'       ;h
 188 
  embed_file 'PPP_RUS.TXT'       ;h
176 
  embed_file 'STACK_RU.TXT'      ;i
 189 
  embed_file 'STACK_RU.TXT'      ;i
177 
  embed_file 'GROBFAR.TXT'      ;j
 190 
  embed_file 'GROBFAR.TXT'       ;j
178 
; -- End of embedding area  -------
 191 
; -- End of embedding area  -------
Line 179... Line 192...
179 
 
 192 
 
180 
  dd 0
 193 
  dd 0
Line 185... Line 198...
185 
  end if
 198 
  end if
Line 186... Line 199...
186 
 
 199 
 
187 
my_param db 0
 200 
my_param db 0
188 
  rb 256
 201 
  rb 256
- 
 
 202 
I_END:
- 
 
 203