Subversion Repositories Kolibri OS

Rev

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

Rev 7773 Rev 7806
Line 517... Line 517...
517
	$int 0x40
517
	$int 0x40
518
}
518
}
Line 519... Line 519...
519
 
519
 
520
:void PutPaletteImage(dword inbuf,w,h,x,y,bits,pal)
520
:void PutPaletteImage(dword inbuf,w,h,x,y,bits,pal)
-
 
521
{
521
{
522
	if (h<1) || (w<0) return;
522
	EAX = 65;
523
	EAX = 65;
523
	EBX = inbuf;
524
	EBX = inbuf;
524
	ECX = w<<16+h;
525
	ECX = w<<16+h;
525
	EDX = x<<16+y;
526
	EDX = x<<16+y;
Line 639... Line 640...
639
	dword width,height;
640
	dword width,height;
640
} screen;
641
} screen;
Line 641... Line 642...
641
 
642
 
Line 642... Line -...
642
:byte skin_height;
-
 
643
 
-
 
644
:void DrawDate(dword x, y, color, in_date)
-
 
645
{
-
 
646
	EDI = in_date;
-
 
647
	EAX = 47;
-
 
648
	EBX = 2<<16;
-
 
649
	EDX = x<<16+y;
-
 
650
	ESI = 0x90<<24+color;
-
 
651
	ECX = EDI.date.day;
-
 
652
	$int 0x40;
-
 
653
	EDX += 20<<16;
-
 
654
	ECX = EDI.date.month;
-
 
655
	$int 0x40;
-
 
656
	EDX += 20<<16;
-
 
657
	EBX = 4<<16;
-
 
658
	ECX = EDI.date.year;
-
 
659
	$int 0x40;
-
 
660
	DrawBar(x+17,y+10,2,2,color);
-
 
661
	DrawBar(x+37,y+10,2,2,color);
-
 
662
}
643
:byte skin_height;
Line 663... Line 644...
663
 
644
 
664
dword __generator;  // random number generator init
645
dword __generator;  // random number generator init
665
 
646
 
666
//The initialization of the initial data before running
647
//The initialization of the initial data before running
667
void ______INIT______()
648
void ______INIT______()
668
{
649
{
669
	skin_height   = GetSkinHeight();
650
	skin_height   = GetSkinHeight();
670
	screen.width  = GetScreenWidth()+1;
651
	screen.width  = GetScreenWidth()+1;
671
	screen.height = GetScreenHeight()+1;
652
	screen.height = GetScreenHeight()+1;
672
	__generator = GetStartTime();	
653
	__generator = GetStartTime();	
673
	mem_init();
654
	//mem_init();
674
	main();
655
	main();