include irvine32.inc
standard=2000;
.data
day word 15;
month word 5;
year word 2012;
ymd word ?
.code
main proc
mov eax,0;
mov ebx,0;
mov ax,year;
sub ax,standard;
shl ax,9;
mov bx,month;
shl bx,5;
add ax ,bx;
add ax,day;
mov ymd,ax;
call writebin;
exit
main endp
end main