Subversion Repositories Kolibri OS

Rev

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

Rev 7806 Rev 9537
Line 19... Line 19...
19 
	EAX = 47;
 19 
	EAX = 47;
20 
	EBX = 2<<16;
 20 
	EBX = 2<<16;
21 
	EDX = x<<16+y;
 21 
	EDX = x<<16+y;
22 
	ESI = 0x90<<24+color;
 22 
	ESI = 0x90<<24+color;
23 
	ECX = EDI.date.day;
 23 
	ECX = EDI.date.day;
24 
	$int 0x40;
 24 
	$int 64
25 
	EDX += 20<<16;
 25 
	EDX += 20<<16;
26 
	ECX = EDI.date.month;
 26 
	ECX = EDI.date.month;
27 
	$int 0x40;
 27 
	$int 64
28 
	EDX += 20<<16;
 28 
	EDX += 20<<16;
29 
	EBX = 4<<16;
 29 
	EBX = 4<<16;
30 
	ECX = EDI.date.year;
 30 
	ECX = EDI.date.year;
31 
	$int 0x40;
 31 
	$int 64
32 
	DrawBar(x+17,y+10,2,2,color);
 32 
	DrawBar(x+17,y+10,2,2,color);
33 
	DrawBar(x+37,y+10,2,2,color);
 33 
	$add ebx, 20 << 16
- 
 
 34 
	$int 64
34 
}
 35 
}
Line 35... Line 36...
35 
 
 36 
 
36 
#endif
 37 
#endif