Subversion Repositories Kolibri OS

Rev

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

Rev 3645 Rev 5888
Line 170... Line 170...
170 
	mov	[stringstart],eax
 170 
	mov	[stringstart],eax
171 
	mov	dword [stringlen],1
 171 
	mov	dword [stringlen],1
172 
;--------------------------------------
 172 
;--------------------------------------
173 
align 4
 173 
align 4
174 
newpage:
 174 
newpage:
175 
	mov	word [stringpos],10
 175 
	mov	[stringpos],16
176 
;--------------------------------------
 176 
;--------------------------------------
177 
align 4
 177 
align 4
178 
drawsswin:
 178 
drawsswin:
179 
	xor	eax,eax
 179 
	xor	eax,eax
180 
	movzx	ebx,[x_max]
 180 
	movzx	ebx,[x_max]
Line 233... Line 233...
233 
 
 233 
 
234 
	dec	edi
 234 
	dec	edi
235 
;--------------------------------------
 235 
;--------------------------------------
236 
align 4
 236 
align 4
237 
addstring:
 237 
addstring:
238 
	add	word [stringpos],10
 238 
	add	[stringpos],16
239 
	add	edi,2
 239 
	add	edi,2
240 
	mov	[stringstart],edi
 240 
	mov	[stringstart],edi
241 
	mov	dword [stringlen],1
 241 
	mov	dword [stringlen],1
242 
	mov	ax,[stringpos]
 242 
	mov	ax,[stringpos]
243 
	cmp	ax,[y_max]
 243 
	cmp	ax,[y_max]
244 
	jb	tstill
 244 
	jb	tstill
245 
	jmp	newpage
 245 
	jmp	newpage
246 
;--------------------------------------
 246 
;--------------------------------------
247 
align 4
 247 
align 4
248 
noaddstring:
 248 
noaddstring:
- 
 
 249 
	mov	ebx,[stringlen]
249 
	mov	ebx,10*65536
 250 
	shl	ebx,19
- 
 
 251 
	mov	bx,[stringpos]
- 
 
 252 
	mov	edx,[stringstart]
- 
 
 253 
	add	edx,[stringlen]
250 
	mov	bx,[stringpos]
 254 
	dec	edx
251 
	mcall	4,,0x104ba010,[stringstart],[stringlen]
 255 
	mcall	4,,0x104ba010,,1
252 
	inc	dword [stringlen]
 256 
	inc	dword [stringlen]
253 
	cmp	[edi],byte ' '
 257 
	cmp	[edi],byte ' '
254 
	je	drawssasm
 258 
	je	drawssasm
255 
	jmp	tstill
 259 
	jmp	tstill
Line 554... Line 558...
554 
setf:
 558 
setf:
555 
	xor	ecx,ecx
 559 
	xor	ecx,ecx
556 
	mcall	4,<153,47>,,,1
 560 
	mcall	4,<153,47>,,,1
557 
	ret
 561 
	ret
558 
;------------------------------------------------------------------------------
 562 
;------------------------------------------------------------------------------
559 
align 4
 - 
 
560 
; DATA AREA
 563 
align 4 	; DATA AREA
561 
buttext		db 'SHOW',0
 - 
 
562 
flag		db 'V '
 - 
 
563 
title		db 'SCREENSAVER SETUP',0
 - 
 
564 
setuptext	db 'TYPE: < >',0
 - 
 
565 
		db 'TIME: < >     MINUTES    NEVER',0
 - 
 
566 
typetext	db 'BLACK SCREENCOLOR LINES ASSEMBLER   '
 - 
 
567 
type	dd 12
 564 
type	dd 12
568 
time	db 15	; ¢à¥¬ï ¤® § ¯ã᪠ § áâ ¢ª¨ ¢ ¬¨­ãâ å
 - 
 
569 
delay	dd 100
 565 
delay	dd 100
570 
 
 - 
 
571 
lx1	dd 10
 566 
lx1	dd 10
572 
lx2	dd 40
 567 
lx2	dd 40
573 
 
 - 
 
574 
ly1	dd 50
 568 
ly1	dd 50
575 
ly2	dd 100
 569 
ly2	dd 100
576 
 
 - 
 
577 
addx1	dd 1
 570 
addx1	dd 1
578 
addx2	dd 1
 571 
addx2	dd 1
579 
 
 - 
 
580 
addy1	dd 1
 572 
addy1	dd 1
581 
addy2	dd 1
 573 
addy2	dd 1
582 
 
 - 
 
583 
stringlen	dd 1
 574 
stringlen	dd 1
584 
stringstart	dd 0
 575 
stringstart	dd 0
585 
stringpos	dw 10
 - 
 
Line -... Line 576...
- 
 
 576 
 
- 
 
 577 
stringpos	dw 16
586 
 
 578 
time		db 15	; ¢à¥¬ï ¤® § ¯ã᪠ § áâ ¢ª¨ ¢ ¬¨­ãâ å
Line 587... Line 579...
587 
params	db 0	;if bit 0 set-ssaver works if bit 1 set-setup works
 579 
params		db 0	;if bit 0 set-ssaver works if bit 1 set-setup works
588 
 
 580 
 
589 
fileinfo:
 581 
fileinfo:
590 
	dd 0
 582 
	dd 0
591 
	dd 0
 583 
	dd 0
592 
	dd 0
 584 
	dd 0
593 
.size:	dd 0
 585 
.size:	dd 0
594 
.point:	dd 0
 - 
 
595 
	db '/sys/macros.inc',0
 - 
 
596 
;------------------------------------------------------------------------------
 - 
 
597 
align 4
 - 
 
Line -... Line 586...
- 
 
 586 
.point: dd 0
- 
 
 587 
	db '/sys/macros.inc',0
- 
 
 588 
 
- 
 
 589 
buttext 	db 'SHOW',0
- 
 
 590 
flag		db 'V '
- 
 
 591 
title		db 'SCREENSAVER SETUP',0
- 
 
 592 
setuptext	db 'TYPE: < >',0
- 
 
 593 
		db 'TIME: < >     MINUTES    NEVER',0
- 
 
 594 
typetext	db 'BLACK SCREENCOLOR LINES ASSEMBLER   '
- 
 
 595 
;-------------------------------
598 
IM_END:
 596 
IM_END: 	; UNINITIALIZED DATA
599 
; UNINITIALIZED DATA:
 597 
top_right_corner	rd 1
600 
 
 598 
align 4
601 
lcolor	dd ?
 - 
 
602 
x_max	dw ?	; à §¬¥àë íªà ­ 
 - 
 
603 
y_max	dw ?
 - 
 
604 
 
 - 
 
605 
top_right_corner	rd 1
 599 
lcolor	dd ?
606 
;------------------------------------------------------------------------------
 600 
x_max	dw ?	; à §¬¥àë íªà ­ 
607 
align 4
 601 
y_max	dw ?
608 
I_Param:
 602 
I_Param:
609 
fileinfo_buffer:
 - 
 
610 
	rb 40
 603 
fileinfo_buffer:
611 
;------------------------------------------------------------------------------
 604 
	rb 40
612 
align 4
 - 
 
613 
	rb 512
 - 
 
614 
sthread_stack_top:
 605 
;-------------------------------
615 
;------------------------------------------------------------------------------
 606 
	rb 512
616 
align 4
 - 
 
617 
	rb 512
 - 
 
618 
thread_stack_top:
 607 
sthread_stack_top:
619 
;------------------------------------------------------------------------------
 608 
	rb 512
620 
align 4
 609 
thread_stack_top:
621 
	rb 512
 -