2eda7fed5c
eolite: fix crash on put image h<1 cmm: rename colors to the short one "sc" git-svn-id: svn://kolibrios.org@7806 a494cfbc-eb01-0410-851d-a64ba20cac60
36 lines
555 B
C
36 lines
555 B
C
//IO library
|
|
#ifndef INCLUDE_DATE_H
|
|
#define INCLUDE_DATE_H
|
|
|
|
#ifndef INCLUDE_STRING_H
|
|
#include "../lib/strings.h"
|
|
#endif
|
|
|
|
:struct date
|
|
{
|
|
byte day;
|
|
byte month;
|
|
word year;
|
|
};
|
|
|
|
:void DrawDate(dword x, y, color, in_date)
|
|
{
|
|
EDI = in_date;
|
|
EAX = 47;
|
|
EBX = 2<<16;
|
|
EDX = x<<16+y;
|
|
ESI = 0x90<<24+color;
|
|
ECX = EDI.date.day;
|
|
$int 0x40;
|
|
EDX += 20<<16;
|
|
ECX = EDI.date.month;
|
|
$int 0x40;
|
|
EDX += 20<<16;
|
|
EBX = 4<<16;
|
|
ECX = EDI.date.year;
|
|
$int 0x40;
|
|
DrawBar(x+17,y+10,2,2,color);
|
|
DrawBar(x+37,y+10,2,2,color);
|
|
}
|
|
|
|
#endif |