Subversion Repositories Kolibri OS

Rev

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

Rev 229 Rev 485
Line 7... Line 7...
7 
;;       navanax [violetlab+rambler.ru]
 7 
;;       navanax [violetlab+rambler.ru]
8 
;;      Johnny_B [john+kolibrios.org]
 8 
;;      Johnny_B [john+kolibrios.org]
9 
;;
 9 
;;
10 
;; ¬ ªà®á ¤«ï ᮧ¤ ­¨ï ¬ áᨢ  㪠§ â¥«¥© ­  ASCIIZ-áâப¨
 10 
;; ¬ ªà®á ¤«ï ᮧ¤ ­¨ï ¬ áᨢ  㪠§ â¥«¥© ­  ASCIIZ-áâப¨
Line 11... Line 11...
11 
 
 11 
 
12 
include 'macros.inc'
 12 
include '..\..\..\macros.inc'
13 
macro strtbl name,[string]
 13 
macro strtbl name,[string]
14 
{
 14 
{
15 
 common
 15 
 common
16 
  label name dword
 16 
  label name dword
Line 34... Line 34...
34 
 
 34 
 
35 
;ƒ‹Ž€‹œ›… ……Œ…›… ˆ ŠŽ‘’€’›
 35 
;ƒ‹Ž€‹œ›… ……Œ…›… ˆ ŠŽ‘’€’›
Line 36... Line 36...
36 
re_ID  dd  0x00000001	;¤«ï åà ­¥­¨ï ­®¬¥à  ⥪ã饣® ¢ë¢®¤¨¬®£® í«¥¬¥­â 
 36 
re_ID  dd  0x00000001	;¤«ï åà ­¥­¨ï ­®¬¥à  ⥪ã饣® ¢ë¢®¤¨¬®£® í«¥¬¥­â 
- 
 
 37 
 
- 
 
 38 
START:
- 
 
 39 
 
- 
 
 40 
      mov  eax,48
- 
 
 41 
      mov  ebx,3
- 
 
 42 
      mov  ecx,sc
- 
 
 43 
      mov  edx,sizeof.system_colors
37 
 
 44 
      mcall
38 
START:
 45 
 
Line 39... Line 46...
39 
red:
 46 
red:
40 
      call draw_window
 47 
      call draw_window
41 
 
 48 
 
42 
still:		      ;®á­®¢­®© 横« ¯à®£à ¬¬ë
 49 
still:		      ;®á­®¢­®© 横« ¯à®£à ¬¬ë
- 
 
 50 
      push 10   ;®¦¨¤ ­¨¥ ᮡëâ¨ï
43 
	push 10   ;®¦¨¤ ­¨¥ ᮡëâ¨ï
 51 
      pop  eax
44 
      pop  eax
 52 
      mcall
45 
	int  0x40
 53 
 
46 
	dec  eax
 54 
      dec  eax
Line 47... Line 55...
47 
      je   red
 55 
      je   red
48 
      dec  eax
 56 
      dec  eax
49 
      jne  button
 57 
      jne  button
50 
 
 58 
 
Line 51... Line 59...
51 
key:
 59 
key:
52 
	mov  al,2
 60 
	mov  al,2
53 
	int  0x40
 61 
	mcall
54 
	jmp  still
 62 
	jmp  still
Line 55... Line 63...
55 
 
 63 
 
56 
button:
 64 
button:
57 
	mov  al,17   ;¯®«ãç ¥¬ ID ­ ¦ â®© ª­®¯ª¨
 65 
	mov  al,17   ;¯®«ãç ¥¬ ID ­ ¦ â®© ª­®¯ª¨
58 
	int  0x40
 66 
	mcall
Line 59... Line 67...
59 
	shr  eax,8    ; eax=24-¡¨â­ë© ButtonID
 67 
	shr  eax,8    ; eax=24-¡¨â­ë© ButtonID
60 
 
 68 
 
61 
	cmp  eax,1    ;­ ¦ â  «¨ "‡ ªàëâì" [x]
 69 
	cmp  eax,1    ;­ ¦ â  «¨ "‡ ªàëâì" [x]
62 
	jne  noclose
 70 
	jne  noclose
63 
	or   eax,-1
 71 
	or   eax,-1
64 
	int  0x40
 72 
	mcall
65 
 
 73 
 
66 
noclose:
 74 
noclose:
67 
      cmp eax,200
 75 
      cmp eax,200
68 
      jne no_H
 76 
      jne no_H
Line 69... Line 77...
69 
      mov eax,1
 77 
      mov eax,1
Line 70... Line -...
70 
no_H:
- 
 
71 
	mov [re_ID],eax
 - 
 
72 
;;
- 
 
73 
	call VYVOD
 - 
 
74 
;;
- 
 
75 
	jmp still
 - 
 
76 
 
 78 
no_H:
77 
draw_window:
 79 
	mov [re_ID],eax
78
80 
;;
79 
      mov  eax,48
 81 
	call draw_text
80 
      mov  ebx,3
 82 
;;
81 
      mov  ecx,sc
 83 
	jmp still
82 
      mov  edx,sizeof.system_colors
 84 
 
83 
      int  0x40
 85 
draw_window:
84 
 
 86
85 
      mov  eax,12   ;begin drawing
 87 
        mov  eax,12   ;begin drawing
86 
	xor  ebx,ebx
 88 
	xor  ebx,ebx
87 
	inc  ebx
 89 
	inc  ebx
Line 88... Line 90...
88 
	int  0x40
 90 
	mcall
89 
				       ; DRAW WINDOW
 91 
				       ; DRAW WINDOW
90 
	xor  eax,eax
 92 
	xor  eax,eax
Line 91... Line 93...
91 
	mov  ebx,50*65536+550  ;x
 93 
	mov  ebx,50*65536+555  ;x
92 
	mov  ecx,30*65536+450  ;y
 94 
	mov  ecx,30*65536+455  ;y
93 
      mov  edx,[sc.work]
 95 
      mov  edx,[sc.work]
Line 94... Line 96...
94 
	or   edx,0x13000000    ;style
 96 
	or   edx,0x33000000    ;style
95 
	mov  edi,Caption
 97 
	mov  edi,caption
96 
	int  0x40
 98 
	mcall
Line 97... Line 99...
97 
 
 99 
 
98 
Nadpisi_v_okne:
 100 
text_in_window:
99 
	mov  eax,4	     ;¢ë¢®¤ ⥪áâ 
 101 
	mov  eax,4	     ;¢ë¢®¤ ⥪áâ 
Line 100... Line 102...
100 
	mov  ecx,0x80000000  ;asciiz, –‚…’ !!!
 102 
	mov  ecx,0x80000000  ;asciiz, –‚…’ !!!
101 
 
 103 
 
102 
	mov  ebx,40*65536+225	      ;« ­â ­®¨¤ë
 104 
	mov  ebx,40*65536+200	      ;« ­â ­®¨¤ë
Line 103... Line 105...
103 
	mov  edx,Lantanoid_text
 105 
	mov  edx,Lantanoid_text
104 
	int  0x40
 106 
	mcall
105 
 
 107 
 
Line 106... Line 108...
106 
	add  ebx,20		       ; ªâ¨­®¨¤ë
 108 
	add  ebx,20		       ; ªâ¨­®¨¤ë
107 
	mov  edx,Actinoid_text
 109 
	mov  edx,Actinoid_text
108 
	int  0x40
 110 
	mcall
Line 109... Line 111...
109 
 
 111 
 
110 
	mov  ebx,150*65536+280
 112 
	mov  ebx,150*65536+255
111 
	mov  edx,Por_nomer
 113 
	mov  edx,number
Line 112... Line 114...
112 
	int  0x40
 114 
	mcall
113 
 
 115 
 
114 
	add  ebx,15
 116 
	add  ebx,15
Line 115... Line 117...
115 
	mov  edx,Nazvanie
 117 
	mov  edx,name
116 
	int  0x40
 118 
	mcall
117 
 
 119 
 
Line 118... Line 120...
118 
	add ebx,15
 120 
	add ebx,15
119 
	mov edx,Angl_nazv
 121 
	mov edx,eng_name
120 
	int 0x40
 122 
	mcall
Line 121... Line 123...
121 
 
 123 
 
122 
	add ebx,15
 124 
	add ebx,15
123 
	mov edx,Atomic_massa
 125 
	mov edx,Atomic_massa
Line 124... Line 126...
124 
	int 0x40
 126 
	mcall
125 
 
 127 
 
126 
	add ebx,15
 128 
	add ebx,15
Line 127... Line 129...
127 
	mov edx,Plotnost_caption
 129 
	mov edx,density
128 
	int 0x40
 130 
	mcall
129 
 
 131 
 
Line 130... Line 132...
130 
	add ebx,15
 132 
	add ebx,15
131 
	mov edx,Step_okisl
 133 
	mov edx,Step_okisl
132 
	int 0x40
 134 
	mcall
133 
 
 135 
 
Line 134... Line 136...
134 
	add ebx,15
 136 
	add ebx,15
135 
	mov edx,Electrootr
 137 
	mov edx,Electrootr
136 
	int 0x40
 138 
	mcall
137 
 
 139 
 
Line 165... Line 167...
165 
	jmp  Table
 167 
	jmp  Table
Line 166... Line 168...
166 
 
 168 
 
167 
      @@:
 169 
      @@:
168 
	add ebx,20
 170 
	add ebx,20
169 
	add edx,4   ;â.ª. áâப  = 4 ¡ ©â ¬(á ­ã«ñ¬)
 171 
	add edx,4   ;â.ª. áâப  = 4 ¡ ©â ¬(á ­ã«ñ¬)
170 
	int 0x40
 172 
	mcall
Line 171... Line 173...
171 
       ret
 173 
       ret
172 
 
 174 
 
173 
Table:		       ;Žâà¨á®¢ª  â ¡«¨æë ¢ ¢¨¤¥ ª®­®¯®ç¥ª
 175 
Table:		       ;Žâà¨á®¢ª  â ¡«¨æë ¢ ¢¨¤¥ ª®­®¯®ç¥ª
174 
	table_rjad_1:
 176 
	table_row_1:
175 
			shl eax,1
 177 
			shl eax,1
176 
			mov  ebx,50*65536+25
 178 
			mov  ebx,50*65536+25
177 
			mov  ecx,60*65536+20
 179 
			mov  ecx,35*65536+20
178 
			mov  edx,200
 180 
			mov  edx,200
179 
			mov  esi,0xE19123
 181 
			mov  esi,0xE19123
180 
			int  0x40
 182 
			mcall
181 
		He_:
 183 
		He_:
182 
			mov  ebx,491*65536+25
 184 
			mov  ebx,491*65536+25
183 
			mov  esi,0x0f0c314
 185 
			mov  esi,0x0f0c314
184 
			mov  edx,2
 186 
			mov  edx,2
185 
			int  0x40
 187 
			mcall
186 
	table_rjad_2:
 188 
	table_row_2:
187 
		Li:
 189 
		Li:
188 
		      mov  ebx,50*65536+25
 190 
		      mov  ebx,50*65536+25
189 
			mov  ecx,81*65536+20
 191 
			mov  ecx,56*65536+20
190 
			mov  esi,0xE19123
 192 
			mov  esi,0xE19123
191 
			inc edx
 193 
			inc edx
192 
			int  0x40
 194 
			mcall
193 
		Be:
 195 
		Be:
194 
			mov  ebx,76*65536+25
 196 
			mov  ebx,76*65536+25
195 
			inc edx
 197 
			inc edx
196 
			int  0x40
 198 
			mcall
197 
		B_:
 199 
		B_:
198 
			mov  ebx,361*65536+25
 200 
			mov  ebx,361*65536+25
199 
			inc edx
 201 
			inc edx
200 
			mov esi,0x0f0c314
 202 
			mov esi,0x0f0c314
201 
			int  0x40
 203 
			mcall
202 
			mov edi,4
 204 
			mov edi,4
203 
		table_rjad_2_loop:
 205 
		table_row_2_loop:
204 
			add ebx,26*65536
 206 
			add ebx,26*65536
205 
			inc edx
 207 
			inc edx
206 
			int 0x40
 208 
			mcall
207 
			dec edi
 209 
			dec edi
208 
			jns table_rjad_2_loop
 210 
			jns table_row_2_loop
209 
	table_rjad_3:
 211 
	table_row_3:
210 
		Na:
 212 
		Na:
211 
		       mov  ebx,50*65536+25
 213 
		       mov  ebx,50*65536+25
212 
			mov  ecx,102*65536+20
 214 
			mov  ecx,77*65536+20
213 
			mov  esi,0xE19123
 215 
			mov  esi,0xE19123
Line 214... Line 216...
214 
			inc edx
 216 
			inc edx
215 
			int  0x40
 217 
			mcall
216 
 
 218 
 
Line 217... Line 219...
217 
			mov  ebx,76*65536+25
 219 
			mov  ebx,76*65536+25
218 
			inc edx
 220 
			inc edx
219 
			int  0x40
 221 
			mcall
220 
 
 222 
 
221 
			mov  ebx,361*65536+25
 223 
			mov  ebx,361*65536+25
222 
			inc edx
 224 
			inc edx
223 
			mov esi,0x0f0c314
 225 
			mov esi,0x0f0c314
224 
			int  0x40
 226 
			mcall
225 
			mov edi,4
 227 
			mov edi,4
226 
		table_rjad_3_loop:
 228 
		table_row_3_loop:
227 
			add ebx,26*65536
 229 
			add ebx,26*65536
Line 228... Line 230...
228 
			inc edx
 230 
			inc edx
229 
			int 0x40
 231 
			mcall
230 
			dec edi
 232 
			dec edi
231 
			jns table_rjad_3_loop
 233 
			jns table_row_3_loop
232 
 
 234 
 
233 
	Table_rjad_4:
 235 
	Table_row_4:
234 
		K_:
 236 
		K_:
235 
		       mov  ebx,50*65536+25
 237 
		       mov  ebx,50*65536+25
236 
			mov  ecx,123*65536+20
 238 
			mov  ecx,98*65536+20
237 
			mov  esi,0xE19123
 239 
			mov  esi,0xE19123
238 
			inc edx
 240 
			inc edx
239 
			int  0x40
 241 
			mcall
240 
		Ca:
 242 
		Ca:
241 
		       mov  ebx,76*65536+25
 243 
		       mov  ebx,76*65536+25
242 
			inc edx
 244 
			inc edx
243 
			int  0x40
 245 
			mcall
244 
		Sc:
 246 
		Sc:
245 
			mov  ebx,102*65536+25
 247 
			mov  ebx,102*65536+25
246 
			inc edx
 248 
			inc edx
247 
			mov  esi,0x559beb
 249 
			mov  esi,0x559beb
248 
			int  0x40
 250 
			mcall
249 
			mov edi,8
 251 
			mov edi,8
250 
		Table_rjad_4_loop1:
 252 
		Table_row_4_loop1:
Line 251... Line 253...
251 
			add ebx,26*65536
 253 
			add ebx,26*65536
252 
			inc edx
 254 
			inc edx
253 
			int 0x40
 255 
			mcall
254 
			dec edi
 256 
			dec edi
255 
			jns Table_rjad_4_loop1
 257 
			jns Table_row_4_loop1
256 
 
 258 
 
257 
			mov  ebx,361*65536+25
 259 
			mov  ebx,361*65536+25
258 
			inc edx
 260 
			inc edx
259 
			mov esi,0x0f0c314
 261 
			mov esi,0x0f0c314
260 
			int  0x40
 262 
			mcall
261 
			mov edi,4
 263 
			mov edi,4
Line 262... Line 264...
262 
		table_rjad_4_loop2:
 264 
		table_row_4_loop2:
263 
			add ebx,26*65536
 265 
			add ebx,26*65536
264 
			inc edx
 266 
			inc edx
265 
			int 0x40
 267 
			mcall
266 
			dec edi
 268 
			dec edi
267 
			jns table_rjad_4_loop2
 269 
			jns table_row_4_loop2
268 
 
 270 
 
269 
	 Table_rjad_5:
 271 
	 Table_row_5:
270 
		Rb_:
 272 
		Rb_:
271 
		       mov  ebx,50*65536+25
 273 
		       mov  ebx,50*65536+25
272 
			mov  ecx,144*65536+20
 274 
			mov  ecx,119*65536+20
273 
			mov  esi,0xE19123
 275 
			mov  esi,0xE19123
274 
			inc edx
 276 
			inc edx
275 
			int  0x40
 277 
			mcall
276 
		Sr_:
 278 
		Sr_:
277 
		       mov  ebx,76*65536+25
 279 
		       mov  ebx,76*65536+25
278 
			inc edx
 280 
			inc edx
279 
			int  0x40
 281 
			mcall
280 
		Y_:
 282 
		Y_:
281 
			mov  ebx,102*65536+25
 283 
			mov  ebx,102*65536+25
282 
			inc edx
 284 
			inc edx
283 
			mov  esi,0x559beb
 285 
			mov  esi,0x559beb
284 
			int  0x40
 286 
			mcall
Line 285... Line 287...
285 
			mov edi,8
 287 
			mov edi,8
286 
		Table_rjad_5_loop1:
 288 
		Table_row_5_loop1:
287 
			add ebx,26*65536
 289 
			add ebx,26*65536
288 
			inc edx
 290 
			inc edx
289 
			int 0x40
 291 
			mcall
290 
			dec edi
 292 
			dec edi
291 
			jns Table_rjad_5_loop1
 293 
			jns Table_row_5_loop1
292 
 
 294 
 
293 
			mov  ebx,361*65536+25
 295 
			mov  ebx,361*65536+25
294 
			inc edx
 296 
			inc edx
295 
			mov esi,0x0f0c314
 297 
			mov esi,0x0f0c314
Line 296... Line 298...
296 
			int  0x40
 298 
			mcall
297 
			mov edi,4
 299 
			mov edi,4
298 
		table_rjad_5_loop2:
 300 
		table_row_5_loop2:
299 
			add ebx,26*65536
 301 
			add ebx,26*65536
300 
			inc edx
 302 
			inc edx
301 
			int 0x40
 303 
			mcall
302 
			dec edi
 304 
			dec edi
303 
			jns table_rjad_5_loop2
 305 
			jns table_row_5_loop2
304 
 
 306 
 
305 
	 Table_rjad_6:
 307 
	 Table_row_6:
306 
		Cs_:
 308 
		Cs_:
307 
		       mov  ebx,50*65536+25
 309 
		       mov  ebx,50*65536+25
308 
			mov  ecx,165*65536+20
 310 
			mov  ecx,140*65536+20
309 
			mov  esi,0xE19123
 311 
			mov  esi,0xE19123
310 
			inc edx
 312 
			inc edx
311 
			int  0x40
 313 
			mcall
312 
		Ba_:
 314 
		Ba_:
313 
		       mov  ebx,76*65536+25
 315 
		       mov  ebx,76*65536+25
314 
			inc edx
 316 
			inc edx
315 
			int  0x40
 317 
			mcall
316 
		La_:
 318 
		La_:
317 
			mov  ebx,102*65536+25
 319 
			mov  ebx,102*65536+25
318 
			inc edx
 320 
			inc edx
319 
			mov  esi,0x559beb
 321 
			mov  esi,0x559beb
Line 320... Line 322...
320 
			int  0x40
 322 
			mcall
321 
			mov edx,71
 323 
			mov edx,71
322 
			mov edi,8
 324 
			mov edi,8
323 
		Table_rjad_6_loop1:
 325 
		Table_row_6_loop1:
324 
			add ebx,26*65536
 326 
			add ebx,26*65536
325 
			inc edx
 327 
			inc edx
326 
			int 0x40
 328 
			mcall
327 
			dec edi
 329 
			dec edi
328 
			jns Table_rjad_6_loop1
 330 
			jns Table_row_6_loop1
329 
 
 331 
 
330 
			mov  ebx,361*65536+25
 332 
			mov  ebx,361*65536+25
Line 331... Line 333...
331 
			inc edx
 333 
			inc edx
332 
			mov esi,0x0f0c314
 334 
			mov esi,0x0f0c314
333 
			int  0x40
 335 
			mcall
334 
			mov edi,4
 336 
			mov edi,4
335 
		table_rjad_6_loop2:
 337 
		table_row_6_loop2:
336 
			add ebx,26*65536
 338 
			add ebx,26*65536
337 
			inc edx
 339 
			inc edx
338 
			int 0x40
 340 
			mcall
339 
			dec edi
 341 
			dec edi
340 
			jns table_rjad_6_loop2
 342 
			jns table_row_6_loop2
341 
 
 343 
 
342 
	 Table_rjad_7:
 344 
	 Table_row_7:
343 
		Fr_:
 345 
		Fr_:
344 
		       mov  ebx,50*65536+25
 346 
		       mov  ebx,50*65536+25
345 
			mov  ecx,186*65536+20
 347 
			mov  ecx,161*65536+20
346 
			mov  esi,0xE19123
 348 
			mov  esi,0xE19123
347 
			inc edx
 349 
			inc edx
348 
			int  0x40
 350 
			mcall
349 
		Ra_:
 351 
		Ra_:
350 
		       mov  ebx,76*65536+25
 352 
		       mov  ebx,76*65536+25
351 
			inc edx
 353 
			inc edx
352 
			int  0x40
 354 
			mcall
353 
		Ac_:
 355 
		Ac_:
354 
			mov  ebx,102*65536+25
 356 
			mov  ebx,102*65536+25
Line 355... Line 357...
355 
			inc edx
 357 
			inc edx
356 
			mov  esi,0x559beb
 358 
			mov  esi,0x559beb
357 
			int  0x40
 359 
			mcall
358 
			mov edx,103
 360 
			mov edx,103
359 
			mov edi,8
 361 
			mov edi,8
360 
		Table_rjad_7_loop1:
 362 
		Table_row_7_loop1:
361 
			add ebx,26*65536
 363 
			add ebx,26*65536
362 
			inc edx
 364 
			inc edx
363 
			int 0x40
 365 
			mcall
364 
			dec edi
 366 
			dec edi
365 
			jns Table_rjad_7_loop1
 367 
			jns Table_row_7_loop1
Line 366... Line 368...
366 
 
 368 
 
367 
			mov  ebx,361*65536+25
 369 
			mov  ebx,361*65536+25
368 
			inc edx
 370 
			inc edx
369 
			mov esi,0x0f0c314
 371 
			mov esi,0x0f0c314
370 
			int  0x40
 372 
			mcall
371 
			mov edi,2
 373 
			mov edi,2
372 
		table_rjad_7_loop2:
 374 
		table_row_7_loop2:
373 
			add ebx,26*65536
 375 
			add ebx,26*65536
Line 374... Line 376...
374 
			inc edx
 376 
			inc edx
375 
			int 0x40
 377 
			mcall
376 
			dec edi
 378 
			dec edi
377 
			jns table_rjad_7_loop2
 379 
			jns table_row_7_loop2
378 
 
 380 
 
379 
	Rjad_1:
 381 
	row_1:
380 
		Cerium_:
 382 
		Cerium_:
381 
			mov  ebx,102*65536+25
 383 
			mov  ebx,102*65536+25
382 
			mov  ecx,215*65536+20
 384 
			mov  ecx,190*65536+20
383 
			mov  edx,58
 385 
			mov  edx,58
384 
			mov  esi,0x73beeb
 386 
			mov  esi,0x73beeb
385 
			int  0x40
 387 
			mcall
386 
			mov edi,12
 388 
			mov edi,12
387 
 
 389 
 
Line 388... Line 390...
388 
		Rjad_1_loop:
 390 
		row_1_loop:
389 
			add ebx,26*65536
 391 
			add ebx,26*65536
390 
			inc edx
 392 
			inc edx
391 
			dec edi
 393 
			dec edi
392 
			int  0x40
 394 
			mcall
Line 393... Line 395...
393 
			jns Rjad_1_loop
 395 
			jns row_1_loop
394 
	Rjad_2:
 396 
	row_2:
395 
		dgfsfHe_:
 397 
		dgfsfHe_:
396 
			mov  ebx,102*65536+25
 398 
			mov  ebx,102*65536+25
397 
			mov  ecx,236*65536+20
 399 
			mov  ecx,211*65536+20
398 
			mov  edx,90
 400 
			mov  edx,90
399 
			int  0x40
 401 
			mcall
400 
			mov edi,12
 402 
			mov edi,12
401 
		Rjad_2_loop:
 403 
		row_2_loop:
402 
 
 404 
 
403 
			add ebx,26*65536
 405 
			add ebx,26*65536
404 
			inc edx
 406 
			inc edx
405 
			dec edi
 407 
			dec edi
406 
			int  0x40
 408 
			mcall
407 
			jns Rjad_2_loop
 409 
			jns row_2_loop
408 
 
 410 
 
409 
Nadpisi_na_knopkah:
 411 
text_on_buttons:
Line 410... Line 412...
410 
	nadp_rjad1:
 412 
	text_row1:
411 
		;H
 413 
		;H
412 
			shr eax,1
 414 
			shr eax,1
413 
			mov ebx,62*65536+68
 415 
			mov ebx,62*65536+43
414 
			mov ecx,0x00000000
 416 
			mov ecx,0x00000000
415 
			mov edx,Symbols
 417 
			mov edx,Symbols
416 
			mov esi,3
 418 
			mov esi,3
417 
			int 0x40
 419 
			mcall
Line 418... Line 420...
418 
		;Ne
 420 
		;Ne
419 
			mov ebx,500*65536+68
 421 
			mov ebx,500*65536+43
420 
			add edx,3
 422 
			add edx,3
421 
			int 0x40
 423 
			mcall
Line 422... Line 424...
422 
	nadp_rjad2_1:
 424 
	text_row2_1:
423 
			mov ebx,60*65536+88
 425 
			mov ebx,60*65536+63
424 
			add edx,3
 426 
			add edx,3
425 
			int 0x40
 427 
			mcall
426 
 
 428 
 
427 
			mov ebx,85*65536+88
 429 
			mov ebx,85*65536+63
Line 428... Line 430...
428 
			add edx,3
 430 
			add edx,3
429 
			int 0x40
 431 
			mcall
430 
	nadp_rjad2_2:
 432 
	text_row2_2:
431 
			mov ebx,374*65536+88
 433 
			mov ebx,374*65536+63
432 
			add edx,3
 434 
			add edx,3
433 
			int 0x40
 435 
			mcall
434 
			mov edi,4
 436 
			mov edi,4
435 
 
 437 
 
436 
	nadp_rjad2_2_loop:
 438 
	text_row2_2_loop:
437 
			add ebx,25*65536
 439 
			add ebx,25*65536
438 
			add edx,3
 440 
			add edx,3
439 
			int 0x40
 441 
			mcall
Line 440... Line 442...
440 
 
 442 
 
441 
			dec edi
 443 
			dec edi
442 
			jns nadp_rjad2_2_loop
 444 
			jns text_row2_2_loop
443 
	nadp_rjad3_1:
 445 
	text_row3_1:
444 
			mov ebx,60*65536+108
 446 
			mov ebx,60*65536+83
445 
			add edx,3
 447 
			add edx,3
446 
			int 0x40
 448 
			mcall
447 
 
 449 
 
448 
			mov ebx,85*65536+108
 450 
			mov ebx,85*65536+83
449 
			add edx,3
 451 
			add edx,3
450 
			int 0x40
 452 
			mcall
Line 451... Line 453...
451 
	nadp_rjad3_2:
 453 
	text_row3_2:
452 
			mov ebx,374*65536+108
 454 
			mov ebx,374*65536+83
453 
			add edx,3
 455 
			add edx,3
454 
			int 0x40
 456 
			mcall
455 
			mov edi,4
 457 
			mov edi,4
456 
	nadp_rjad3_2_loop:
 458 
	text_row3_2_loop:
457 
			add ebx,25*65536
 459 
			add ebx,25*65536
458 
			add edx,3
 460 
			add edx,3
459 
			int 0x40
 461 
			mcall
460 
 
 462 
 
461 
			dec edi
 463 
			dec edi
Line 462... Line 464...
462 
			jns nadp_rjad3_2_loop
 464 
			jns text_row3_2_loop
463 
	nadp_rjad4:
 465 
	text_row4:
464 
			mov ebx,60*65536+129
 466 
			mov ebx,60*65536+104
465 
			add edx,3
 467 
			add edx,3
466 
			int 0x40
 468 
			mcall
467 
			mov edi,16
 469 
			mov edi,16
468 
	nadp_rjad4_loop:
 470 
	text_row4_loop:
469 
			add ebx,26*65536
 471 
			add ebx,26*65536
470 
			add edx,3
 472 
			add edx,3
471 
			int 0x40
 473 
			mcall
472 
 
 474 
 
473 
			dec edi
 475 
			dec edi
474 
			jns nadp_rjad4_loop
 476 
			jns text_row4_loop
475 
	nadp_rjad5:
 477 
	text_row5:
476 
			mov ebx,60*65536+150
 478 
			mov ebx,60*65536+125
477 
			add edx,3
 479 
			add edx,3
478 
			int 0x40
 480 
			mcall
479 
			mov edi,16
 481 
			mov edi,16
480 
	nadp_rjad5_loop:
 482 
	text_row5_loop:
481 
			add ebx,26*65536
 483 
			add ebx,26*65536
482 
			add edx,3
 484 
			add edx,3
483 
			int 0x40
 485 
			mcall
Line 484... Line 486...
484 
 
 486 
 
485 
			dec edi
 487 
			dec edi
486 
			jns nadp_rjad5_loop
 488 
			jns text_row5_loop
487 
	nadp_rjad6:
 489 
	text_row6:
488 
			mov ebx,60*65536+171
 490 
			mov ebx,60*65536+146
489 
			add edx,3
 491 
			add edx,3
490 
			int 0x40
 492 
			mcall
491 
			mov edi,16
 493 
			mov edi,16
492 
	nadp_rjad6_loop:
 494 
	text_row6_loop:
Line 493... Line 495...
493 
			add ebx,26*65536
 495 
			add ebx,26*65536
494 
			add edx,3
 496 
			add edx,3
495 
			int 0x40
 497 
			mcall
496 
			dec edi
 498 
			dec edi
497 
			jns nadp_rjad6_loop
 499 
			jns text_row6_loop
Line 498... Line 500...
498 
	nadp_rjad7:
 500 
	text_row7:
499 
			mov ebx,60*65536+192
 501 
			mov ebx,60*65536+167
500 
			add edx,3
 502 
			add edx,3
501 
			int 0x40
 503 
			mcall
Line 502... Line 504...
502 
			mov edi,9
 504 
			mov edi,9
503 
	nadp_rjad7_loop:
 505 
	text_row7_loop:
Line 504... Line 506...
504 
			add ebx,26*65536
 506 
			add ebx,26*65536
505 
			add edx,3
 507 
			add edx,3
506 
			int 0x40
 508 
			mcall
507 
 
 509 
 
508 
			dec edi
 510 
			dec edi
Line 509... Line 511...
509 
			jns nadp_rjad7_loop
 511 
			jns text_row7_loop
510 
			mov edi,4
 512 
			mov edi,4
511 
	nadp_rjad7_loop2:
 513 
	text_row7_loop2:
512 
			add ebx,24*65536
 514 
			add ebx,24*65536
Line 513... Line 515...
513 
			add edx,3
 515 
			add edx,3
514 
			int 0x40
 516 
			mcall
Line 515... Line 517...
515 
			dec edi
 517 
			dec edi
516 
			jns nadp_rjad7_loop2
 518 
			jns text_row7_loop2
517 
 
 519 
 
Line 518... Line 520...
518 
	nadp_rjad8:
 520 
	text_row8:
519 
			mov ebx,111*65536+222
 521 
			mov ebx,111*65536+197
520 
			add edx,3
 522 
			add edx,3
521 
			int 0x40
 523 
			mcall
522 
			mov edi,12
 524 
			mov edi,12
Line 523... Line 525...
523 
 
 525 
 
Line 524... Line 526...
524 
	nadp_rjad8_loop:
 526 
	text_row8_loop:
525 
			add ebx,26*65536
 527 
			add ebx,26*65536
526 
			add edx,3
 528 
			add edx,3
527 
			int 0x40
 529 
			mcall
Line 568... Line 570...
568 
   ;11 ¢ë¢®¤ ¨¬ñ­ ¯¥à¢®®âªà뢠⥫¥© [optmzd-mem]
 570 
   ;11 ¢ë¢®¤ ¨¬ñ­ ¯¥à¢®®âªà뢠⥫¥© [optmzd-mem]
Line 569... Line 571...
569 
 
 571 
 
570 
;;  - § ªà áª , çâ®-¡ë ­¥ ¡ë«® ­ «®¦¥­¨ï ¯à¨ ¯à®à¨á®¢ª¥ ⥪áâ 
 572 
;;  - § ªà áª , çâ®-¡ë ­¥ ¡ë«® ­ «®¦¥­¨ï ¯à¨ ¯à®à¨á®¢ª¥ ⥪áâ 
571 
	mov eax,13
 573 
	mov eax,13
572 
	mov ebx,320*65536+210
 574 
	mov ebx,320*65536+210
573 
	mov ecx,280*65536+(15*11)
 575 
	mov ecx,255*65536+(15*11)
574 
	mov edx,[sc.work]
 576 
	mov edx,[sc.work]
575 
	int 0x40
 577 
	mcall
Line 576... Line 578...
576 
;;
578 
;;
Line 577... Line 579...
577
579
578 
 
 - 
 
579 
  push edi  ; çâ®¡ë ®¯â¨¬¨§¨à®¢ âì ¨§¬¥­¥­¨ï ebx
 580 
 
580 
 
 581 
  push edi  ; çâ®¡ë ®¯â¨¬¨§¨à®¢ âì ¨§¬¥­¥­¨ï ebx
581 
	; 1 ¢ë¢®¤ ¯®à浪®¢®£® ­®¬¥à  [optmzd-mem]
 582 
 
582 
	xor ebx,ebx
 583 
	; 1 ¢ë¢®¤ ¯®à浪®¢®£® ­®¬¥à  [optmzd-mem]
583 
	or ebx,00000000000000110000000000000000b
 584 
	mov ebx,0x30000         ;¢ë¢®¤¨âì 3 æ¨äàë
584 
	mov ecx,[re_ID]
 585 
	mov ecx,[re_ID]
Line 585... Line 586...
585 
	mov edx,320*65536+280+15*0
 586 
	mov edx,320*65536+255
586 
	xor esi,esi
 587 
	xor esi,esi
587 
	mov eax,47
 588 
	mov eax,47
588 
	int 0x40
 589 
	mcall
Line 589... Line 590...
589 
 
 590 
 
590 
;‚ˆŒ€ˆ…! ‡„…‘œ ‡€„€ð’‘Ÿ –‚…’ ‚‘…ƒŽ Ž‘’€‹œŽƒŽ ’…Š‘’€! [ᤥ« ­® ¤«ï ᮪à é¥­¨ï ª®¤  ­  20 ¡ ©â :)))]
 591 
;‚ˆŒ€ˆ…! ‡„…‘œ ‡€„€ð’‘Ÿ –‚…’ ‚‘…ƒŽ Ž‘’€‹œŽƒŽ ’…Š‘’€! [ᤥ« ­® ¤«ï ᮪à é¥­¨ï ª®¤  ­  20 ¡ ©â :)))]
591 
	mov ecx,[sc.work_text]  ; –‚…’
 592 
	mov ecx,[sc.work_text]  ; –‚…’
592 
      or  ecx,0x80000000      ; asciiz
 593 
      or  ecx,0x80000000      ; asciiz
Line 593... Line 594...
593 
	mov eax,4  ; íâ  äã­ªæ¨ï ¢ë§ë¢ ¥âáï 10 à §! â ª çâ® § ¯¨è¥¬ 1 à §
 594 
	mov eax,4  ; íâ  äã­ªæ¨ï ¢ë§ë¢ ¥âáï 10 à §! â ª çâ® § ¯¨è¥¬ 1 à §
594 
 
 595 
 
595 
	; 2 ¢ë¢®¤ “‘‘ŠŽ… €‡‚€ˆ… [optmzd-mem]
 596 
	; 2 ¢ë¢®¤ “‘‘ŠŽ… €‡‚€ˆ… [optmzd-mem]
Line 604... Line 605...
604 
	dec edi
 605 
	dec edi
605 
	mov esi,12	 ;¤«¨­  áâப¨
 606 
	mov esi,12	 ;¤«¨­  áâப¨
606 
	imul edi,esi	 ;áç¨â ¥¬ 㪠§ â¥«ì ­  ­ã¦­ãî áâபã
 607 
	imul edi,esi	 ;áç¨â ¥¬ 㪠§ â¥«ì ­  ­ã¦­ãî áâபã
607 
	add edx,edi
 608 
	add edx,edi
608 
	add ebx,15	 ; 㢥«¨ç¨¢ ¥¬ y-ª®®à¤¨­ âã ⥪áâ  ­  15 ¯¨ªá¥«¥©
 609 
	add ebx,15	 ; 㢥«¨ç¨¢ ¥¬ y-ª®®à¤¨­ âã ⥪áâ  ­  15 ¯¨ªá¥«¥©
609 
	int 0x40
 610 
	mcall
Line 610... Line 611...
610 
 
 611 
 
611 
	; 4 ¢ë¢®¤  â®¬­®© ¬ ááë [optmzd-spd]
 612 
	; 4 ¢ë¢®¤  â®¬­®© ¬ ááë [optmzd-spd]
612 
	mov edx,MassNo
 613 
	mov edx,MassNo
613 
	mov edi,[re_ID]
 614 
	mov edi,[re_ID]
614 
	dec edi
 615 
	dec edi
615 
	mov esi,7	 ;¤«¨­  áâப¨
 616 
	mov esi,7	 ;¤«¨­  áâப¨
616 
	imul edi,esi	 ;áç¨â ¥¬ 㪠§ â¥«ì ­  ­ã¦­ãî áâபã
 617 
	imul edi,esi	 ;áç¨â ¥¬ 㪠§ â¥«ì ­  ­ã¦­ãî áâபã
617 
	add edx,edi
 618 
	add edx,edi
618 
	add ebx,15
 619 
	add ebx,15
Line 619... Line 620...
619 
	int 0x40
 620 
	mcall
620 
 
 621 
 
621 
	mov  ecx,0x80000000  ;asciiz, –‚…’ !!!
 622 
	mov  ecx,0x80000000  ;asciiz, –‚…’ !!!
622 
	; 5 ¢ë¢®¤ ‹Ž’Ž‘’œ [optmzd-mem]
 623 
	; 5 ¢ë¢®¤ ‹Ž’Ž‘’œ [optmzd-mem]
Line 634... Line 635...
634 
	dec edi
 635 
	dec edi
635 
	mov esi,4	 ;¤«¨­  áâப¨
 636 
	mov esi,4	 ;¤«¨­  áâப¨
636 
	shl edi,2
 637 
	shl edi,2
637 
	add edx,edi
 638 
	add edx,edi
638 
	add ebx,15
 639 
	add ebx,15
639 
	int 0x40
 640 
	mcall
Line 640... Line 641...
640 
 
 641 
 
641 
	mov  ecx,0x80000000  ;asciiz, –‚…’ !!!
 642 
	mov  ecx,0x80000000  ;asciiz, –‚…’ !!!
642 
	; 8 ¢ë¢®¤ ’…Œ…€’“€ ‹€‚‹…ˆŸ [optmzd-mem]
 643 
	; 8 ¢ë¢®¤ ’…Œ…€’“€ ‹€‚‹…ˆŸ [optmzd-mem]
643 
	mov edi,T_plavl
 644 
	mov edi,T_plavl
Line 663... Line 664...
663 
	mov edx,[re_ID]
 664 
	mov edx,[re_ID]
664 
	dec edx
 665 
	dec edx
665 
	shl edx,2		 ;㬭®¦¨âì ­  4 (à §¬¥à 㪠§ â¥«ï)
 666 
	shl edx,2		 ;㬭®¦¨âì ­  4 (à §¬¥à 㪠§ â¥«ï)
666 
	mov edx,[edx+edi]	 ;㪠§ â¥«ì ­  áâப㠢 edx
 667 
	mov edx,[edx+edi]	 ;㪠§ â¥«ì ­  áâப㠢 edx
667 
	add ebx,15
 668 
	add ebx,15
668 
	int 0x40
 669 
	mcall
669 
ret
 670 
ret
Line 670... Line 671...
670 
 
 671 
 
671 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 672 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
672 
;;                                      ;;
 673 
;;                                      ;;
673 
;;          Ž‹€‘’œ „€›•              ;;
 674 
;;          Ž‹€‘’œ „€›•              ;;
674 
;;                                      ;;
 675 
;;                                      ;;
675 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 676 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
676 
;---- begin ---- „ ­­ë¥ ¤«ï ƒ‹€‚ŽƒŽ ®ª­  --------------------------
 677 
;---- begin ---- „ ­­ë¥ ¤«ï ƒ‹€‚ŽƒŽ ®ª­  --------------------------
677 
Caption 	  db  '¥à¨®¤¨ç¥áª ï á¨á⥬  „.ˆ.Œ¥­¤¥«¥¥¢  by [navanax] & [Johnny_B]',0
 678 
caption 	  db  '¥à¨®¤¨ç¥áª ï á¨á⥬  „.ˆ.Œ¥­¤¥«¥¥¢  by [navanax] & [Johnny_B]',0
678 
Plotnost_caption  db  '«®â­®áâì',0
 679 
density           db  '«®â­®áâì',0
679 
Atomic_massa	  db  '€â®¬­ ï ¬ áá ',0
 680 
Atomic_massa	  db  '€â®¬­ ï ¬ áá ',0
680 
Nazvanie	  db  ' §¢ ­¨¥',0
 681 
name    	  db  ' §¢ ­¨¥',0
681 
Angl_nazv	  db  '€­£«. ­ §¢ ­¨¥',0
 682 
eng_name	  db  '€­£«. ­ §¢ ­¨¥',0
682 
T_pl		  db  '’¥¬¯¥à âãà  ¯«.',0
 683 
T_pl		  db  '’¥¬¯¥à âãà  ¯«.',0
683 
T_kip		  db  '’¥¬¯¥à âãà  ª¨¯.',0
 684 
T_kip		  db  '’¥¬¯¥à âãà  ª¨¯.',0
684 
Electrootr	  db  '«¥ªâà®®âà¨æ â¥«ì­®áâì',0
 685 
Electrootr	  db  '«¥ªâà®®âà¨æ â¥«ì­®áâì',0
685 
Raspr		  db  ' á¯à¥¤¥«¥­¨¥ ¢ §¥¬­. ª®à¥',0
 686 
Raspr		  db  ' á¯à¥¤¥«¥­¨¥ ¢ §¥¬­. ª®à¥',0
686 
Step_okisl	  db  '‘⥯¥­ì ®ª¨á«¥­¨ï',0
 687 
Step_okisl	  db  '‘⥯¥­ì ®ª¨á«¥­¨ï',0
687 
Otkrytie	  db  'Žâªàë⨥',0
 688 
Otkrytie	  db  'Žâªàë⨥',0
688 
Por_nomer	  db  '®à浪®¢ë© ­®¬¥à',0
 689 
number  	  db  '®à浪®¢ë© ­®¬¥à',0
689 
Period_text:
 690 
Period_text:
690 
 db '  I',0
 691 
 db '  I',0
691 
 db ' II',0
 692 
 db ' II',0
692 
 db 'III',0
 693 
 db 'III',0
Line 946... Line 947...
946 
db 'No '
 947 
db 'No '
947 
db 'Lr '
 948 
db 'Lr '
Line 948... Line 949...
948 
 
 949 
 
949 
;€’ŽŒ€Ÿ Œ€‘‘€
 950 
;€’ŽŒ€Ÿ Œ€‘‘€
950 
MassNo: 	 ;116 í«¥¬¥­â®¢
 951 
MassNo: 	 ;116 í«¥¬¥­â®¢
951 
db '1.00797'	 ; 1
 952 
db '1.00794'	 ; 1
952 
db '4.0026 '
 953 
db '4.0026 '
953 
db '6.939  '
 954 
db '6.941  '
954 
db '9.0122 '
 955 
db '9.01218'
955 
db '10.811 '
 956 
db '10.811 '
956 
db '12.0112'
 957 
db '12.0107'
957 
db '14.0067'
 958 
db '14.0067'
958 
db '15.9994'
 959 
db '15.9994'
959 
db '18.9984'
 960 
db '18.9984'
960 
db '20.179 '	 ; 10
 961 
db '20.179 '	 ; 10
961 
db '22.9898'
 962 
db '22.9898'
962 
db '24.305 '
 963 
db '24.305 '
963 
db '26.9815'
 964 
db '26.9815'
964 
db '28.086 '
 965 
db '28.0855'
965 
db '30.9738'
 966 
db '30.9738'
966 
db '32.066 '
 967 
db '32.066 '
967 
db '35.453 '
 968 
db '35.453 '
968 
db '39.948 '
 969 
db '39.948 '
969 
db '39.102 '
 970 
db '39.0983'
970 
db '40.08  '	 ; 20
 971 
db '40.078 '	 ; 20
971 
db '44.958 '
 972 
db '44.9559'
972 
db '47.88  '
 973 
db '47.88  '
973 
db '50.942 '
 974 
db '50.9415'
974 
db '51.996 '
 975 
db '51.996 '
975 
db '54.938 '
 976 
db '54.938 '
976 
db '55.847 '
 977 
db '55.847 '
977 
db '58.9332'
 978 
db '58.9332'
978 
db '58.69  '
 979 
db '58.6934'
979 
db '63.546 '
 980 
db '63.546 '
980 
db '65.39  '	 ; 30
 981 
db '65.39  '	 ; 30
981 
db '69.723 '
 982 
db '69.723 '
982 
db '72.61  '
 983 
db '72.61  '