kolibrios/programs/cmm/lib/date.h
Kirill Lipatov (Leency) 2eda7fed5c tinypad: no optim_save by default
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
2020-04-17 23:52:24 +00:00

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