Subversion Repositories Kolibri OS

Rev

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

Rev 1824 Rev 2071
Line 25... Line 25...
25 
	mov	[rsx1],ax
 25 
	mov	[rsx1],ax
26 
	shr	eax,16
 26 
	shr	eax,16
27 
	mov	[rsx2],ax
 27 
	mov	[rsx2],ax
Line 28... Line 28...
28 
 
 28 
 
- 
 
 29 
redraw_all:
- 
 
 30 
	mcall	9,proc_info,-1
- 
 
 31 
	test	[proc_info.wnd_state], 0x04		; is rolled_up?
- 
 
 32 
	jz	@f
- 
 
 33 
	mcall	0,100*65536+(16*N+12),,0x34FFFFFF,,title
- 
 
 34 
	jmp	still
29 
redraw_all:
 35 
  @@:
30 
	mcall	12,1
 36 
	mcall	12,1
31 
	mcall	48,4
 37 
	mcall	48,4
32 
	xchg	eax,ecx
 38 
	xchg	eax,ecx
33 
	add	ecx,100*65536+(16*N+26)
 39 
	add	ecx,100*65536+(16*N+26)
Line 724... Line 730...
724 
;1: 0-室 ¨£à®ª , 1-æ¯ã
 730 
;1: 0-室 ¨£à®ª , 1-æ¯ã
725 
;2: autoplay
 731 
;2: autoplay
726 
;3: å®¤ë ¨áç¥à¯ ­ë
 732 
;3: å®¤ë ¨áç¥à¯ ­ë
727 
;4: ¢ print_board - ¢ë¤¥«¥­¨¥ ªà á­ë¬ 梥⮬ 5-⨠¢ àï¤ ª«¥â®ª
 733 
;4: ¢ print_board - ¢ë¤¥«¥­¨¥ ªà á­ë¬ 梥⮬ 5-⨠¢ àï¤ ª«¥â®ª
Line -... Line 734...
- 
 
 734 
 
728 
 
 735 
proc_info process_information	; it should be after I_END, but i'm afraid of lines 11-12. dunkaist
729 
I_END:
 736 
I_END:
730 
align 16
 737 
align 16
731 
Board	rb N*N
 738 
Board	rb N*N
732 
Value	rw N*N*2	;¯¥à¢ ï ¯®«®¢¨­  - ¤«ï ª®¬¯ , ¢â®à ï - ¤«ï ¨£à®ª 
 739 
Value	rw N*N*2	;¯¥à¢ ï ¯®«®¢¨­  - ¤«ï ª®¬¯ , ¢â®à ï - ¤«ï ¨£à®ª