Subversion Repositories Kolibri OS

Rev

Rev 3901 | Rev 4197 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ; Calendar for KolibriOS
  2. ;
  3. ; v1.5 - time redesign by Heavyiron
  4. ; v1.2 - v1.55 - new desighn and functionality by Leency
  5. ; v1.1 - add change time support by DedOK
  6. ; v1.0 - written in pure assembler by Ivushkin Andrey aka Willow
  7. ; also - diamond, spraid, fedesco
  8. ;
  9. ; Created: November 1, 2004
  10.  
  11.  
  12. use32
  13.  
  14.   org    0x0
  15.  
  16.   db     'MENUET01'
  17.   dd     0x01
  18.   dd     START
  19.   dd     I_END
  20.   dd     0x1000
  21.   dd     0x1000
  22.   dd     0x0
  23.   dd     0x0
  24. include '..\..\..\macros.inc'
  25. include 'lang.inc'
  26. include 'data.inc'
  27.  
  28.  
  29.  
  30. macro ShowFocus field,reg
  31. {
  32.    local  .nofocus, .exit
  33.      cmp  [focus],field
  34.      jne  .nofocus
  35.    if reg eq
  36.      mov  ecx,COL_ACTIVE_TEXT
  37.    else
  38.      mov  reg,COL_ACTIVE_TEXT
  39.    end if
  40.      jmp  .exit
  41.    .nofocus:
  42.    if reg eq
  43.      mov  ecx,COL_DROPDOWN_T
  44.    else
  45.      mov  reg,COL_DROPDOWN_T
  46.    end if
  47.    .exit:
  48. }
  49.  
  50. macro GetSkinHeight
  51. {
  52.         mov  eax,48
  53.         mov  ebx,4
  54.         int 0x40
  55. }
  56.  
  57. macro DrawRect color1,color2,color3,color4 ; pizdec... but optimized well
  58. {
  59.         ; top border-outer
  60.         push ebx
  61.         push ecx
  62.         mov eax,13
  63.         mov bx,DATE_BUTTON_WIDTH
  64.         mov edx,color1
  65.         mov cx,1
  66.         mcall
  67.         ; left border-outer
  68.         mov bx,1
  69.         mov cx,DATE_BUTTON_HEIGHT
  70.         mcall
  71.         ; top border-inner
  72.         mov edx,color2
  73.         add ebx,1 shl 16
  74.         add ecx,1 shl 16
  75.         mov bx,DATE_BUTTON_WIDTH-1
  76.         mov cx,1
  77.         ; left border-inner
  78.         mcall
  79.         mov bx,1
  80.         mov cx,DATE_BUTTON_HEIGHT-2
  81.         mcall
  82.         ; inner
  83.         mov edx,color3
  84.         add ebx,1 shl 16
  85.         add ecx,1 shl 16
  86.         mov bx,DATE_BUTTON_WIDTH-4
  87.         mov cx,DATE_BUTTON_HEIGHT-4
  88.         mcall
  89.         ; bottom border-inner
  90.         mov edx,color4
  91.         add ebx,DATE_BUTTON_WIDTH shl 16
  92.         sub ebx,4 shl 16
  93.         mov bx,1
  94.         mov cx,DATE_BUTTON_HEIGHT-3
  95.         mcall
  96.         ; rgiht border-outer
  97.         mov edx,color2
  98.         add ebx,1 shl 16
  99.         sub ecx,1 shl 16
  100.         add cx,1
  101.         mcall
  102.         ; bottom border-outer
  103.         mov edx,color2
  104.         pop ecx
  105.         pop ebx
  106.         add ecx,DATE_BUTTON_HEIGHT shl 16
  107.         sub ecx,1 shl 16
  108.         add ebx,1 shl 16
  109.         mov cx,1
  110.         mcall
  111.         ; left border-outer
  112.         mov edx,color4
  113.         add ebx,1 shl 16
  114.         sub ecx,1 shl 16
  115.         sub bx,2
  116.         mcall
  117. }
  118.  
  119.  
  120. str2int:
  121.     xor  eax,eax
  122.     lodsb
  123.     mov  ebx,eax
  124.     shr  ebx,4
  125.     and  eax,0xf
  126.     imul ebx,10
  127.     add  al,bl
  128.     ret
  129.  
  130. START:
  131.     mcall 29
  132.     mov  [datestr],eax
  133.     mov  esi,datestr
  134.     call str2int
  135.     add  eax,1900
  136.     mov  [Year],eax
  137.     call str2int
  138.     dec  eax
  139.     mov  [Month],eax
  140.     call str2int
  141.     mov  [day_sel],eax
  142.     test byte[esi],0
  143.     jnz  .no2000
  144.     add  [Year],100
  145.         mov eax,[Year]
  146.         mov [curYear], eax
  147.         mov eax,[Month]
  148.         mov [curMonth], eax
  149.         mov eax,[day_sel]
  150.         mov [curDay], eax
  151.   .no2000:
  152.     jmp  upd
  153. red:
  154.  
  155.     call draw_window
  156.  
  157. still:
  158.  
  159.     mcall 23,50     ; wait here for event
  160.   .evt:
  161.     mov  ebp,[focus]
  162.     cmp  eax,1
  163.     je   red
  164.     cmp  eax,2
  165.     je   key
  166.     cmp  eax,3
  167.     je   button
  168.  
  169.     call draw_clock
  170.  
  171.     jmp  still
  172.  
  173.   key:
  174.     mcall 2             ; get pressed key
  175.     cmp  ah,9
  176.     jne  no_tab
  177.   .tab:
  178.     cmp  ebp,FOCUSABLE
  179.     JAE  foc_cycle
  180.     inc  [focus]
  181.   upd:
  182.     call calculate
  183.     jmp  red
  184.   foc_cycle:
  185.     mov  [focus],2
  186.     jmp  upd
  187.   no_tab:
  188.     push eax
  189.     shr  eax,8
  190.     mov  ecx,12
  191.     mov  edi,Fkeys
  192.     repne scasb
  193.     pop  eax
  194.     jnz  .noFkey
  195.     sub  edi,Fkeys+1
  196.     mov  [Month],edi
  197.     jmp  upd
  198.   .noFkey:
  199.     cmp  ebp,2
  200.     jne  .nomonth
  201.     cmp  ah,177
  202.     je   noclose.drop
  203.     jmp  still
  204.   .nomonth:
  205.     cmp  ebp,3
  206.     je   noy_up.year_evt
  207.     cmp  ebp,4
  208.     jne  still
  209.     mov  ebx,[day_sel]
  210.     cmp  ah,176         ; left arrow
  211.     jb   still
  212.     cmp  ah,179
  213.     ja   still
  214.     shr  eax,8
  215.     sub  eax,176
  216.     movsx ecx,byte[day_bounds+eax*2]
  217.     movzx eax,byte[day_bounds+eax*2+1]
  218.     add  ecx,ebx
  219.     test eax,eax
  220.     jz   .chk0
  221.     cmp  ecx,eax
  222.     ja   still
  223.   .ok:
  224.     mov  [day_sel],ecx
  225.     call draw_days
  226.     jmp  still
  227.   .chk0:
  228.     cmp  ecx,eax
  229.     jle  still
  230.     jmp  .ok
  231.  
  232. day_bounds db -1,0,7,0,-7,0,1,0 ; left,down,up,right
  233.  
  234.   button:
  235.     mcall 17
  236.     movzx ebx,ah
  237.     cmp  ah,200
  238.     jbe  nodayselect
  239.     sub  ah,200
  240.     mov  byte[day_sel],ah
  241.     cmp  ebp,5
  242.     jne  .redraw
  243.     call draw_days
  244.     jmp  still
  245.   .redraw:
  246.     mov  [focus],4
  247.     jmp  red
  248.   nodayselect:
  249.     cmp  ah,100
  250.     jb   no_list
  251.     sub  ah,100
  252.     mov  byte[Month],ah
  253.     mov  [focus],2
  254.     jmp  upd
  255.   no_list:
  256.     cmp  ah,1
  257.     jne  noclose
  258.   close:
  259.     mcall -1            ; clore programm
  260.  
  261.   noclose:
  262.  
  263.     cmp  ah,72
  264.     je   plus_he
  265.  
  266.     cmp  ah,73
  267.     je   plus_hd
  268.  
  269.     cmp  ah,74
  270.     je   minus_he
  271.  
  272.     cmp  ah,75
  273.     je   minus_hd
  274.  
  275.     cmp  ah,76
  276.     je   plus_me
  277.  
  278.     cmp  ah,77
  279.     je   plus_md
  280.  
  281.     cmp  ah,78
  282.     je   minus_me
  283.  
  284.     cmp  ah,79
  285.     je   minus_md
  286.  
  287.     cmp  ah,80
  288.     je   reset
  289.  
  290.     cmp  ah,81
  291.     je   set_date
  292.  
  293.     cmp  ah,2           ; drop down list
  294.     jne  no_dropdn
  295.   .drop:
  296.     mov  [focus],2
  297.     cmp  [dropped],al   ; ==0
  298.     jne  red
  299.     call draw_window
  300.     mov  edx,1 shl 31+231
  301.     mov  ecx,31
  302.     mov  eax,8
  303.   .bremove:
  304.     mcall
  305.     dec  edx
  306.     loop .bremove
  307.     call draw_dropdown
  308.     jmp  still
  309.   no_dropdn:
  310.     cmp  ah,3           ; year -1
  311.     jne  noy_dn
  312.   year_dec:
  313.     dec  [Year]
  314.     mov  [focus],3
  315.     jmp  upd
  316.   noy_dn:
  317.     cmp  ah,4           ; year+1
  318.     jne  noy_up
  319.   year_inc:
  320.     inc  [Year]
  321.     mov  [focus],3
  322.     jmp  upd
  323.   noy_up:
  324.     cmp  ah,5
  325.     jne  noy_click
  326.     mov  [focus],3
  327.     call draw_window
  328.   .still:
  329.     mcall 10
  330.     cmp  eax,2
  331.     jne  still.evt
  332.     mcall 2
  333.   .year_evt:
  334.     cmp  ah,176
  335.     je   year_dec
  336.     cmp  ah,179
  337.     je   year_inc
  338.        
  339.     mov  ebx,10
  340.     cmp  ah,9
  341.     je   key.tab
  342.     cmp  ah,8           ; backspace
  343.     jne  .nobsp
  344.     mov  eax,[Year]
  345.     xor  edx,edx
  346.     div  ebx
  347.   .ch_year:
  348.     mov  [Year],eax
  349.     call draw_year
  350.     jmp  .still
  351.   .nobsp:
  352.     cmp  ah,13          ; enter
  353.     je   upd
  354.     cmp  ah,182
  355.     jne  .noclear       ; del
  356.     xor  eax,eax
  357.     jmp  .ch_year
  358.   .noclear:
  359.     cmp  ah,48
  360.     jb   .still
  361.     cmp  ah,57
  362.     ja   .still
  363.     cmp  [Year],1000
  364.     jae  .still
  365.     shr  eax,8
  366.     lea  ecx,[eax-48]
  367.     mov  eax,[Year]
  368.     imul eax,ebx
  369.     add  eax,ecx
  370.     jmp  .ch_year
  371.   noy_click:
  372.     cmp  ah,10
  373.     jne  START
  374.     xor  [new_style],1
  375.     jmp  upd
  376.  
  377.  
  378. reset:
  379.     mcall 3
  380.     mov  ecx,eax
  381.     shl  ecx,16
  382.     shr  ecx,16
  383.     mcall 22,0x00000000
  384.     jmp  still
  385.  
  386. plus_hd:
  387.     mcall 3
  388.     mov  ecx,eax
  389.     add  ecx,1
  390.     mcall 22,0x00000000
  391.     jmp  still
  392.  
  393. plus_he:
  394.     mcall 3
  395.     mov  ecx,eax
  396.     add  ecx,16
  397.     mcall 22,0x00000000
  398.     jmp  still
  399.  
  400. minus_hd:
  401.     mcall 3
  402.     mov  ecx,eax
  403.     sub  ecx,1
  404.         mcall 22,0x00000000
  405.     jmp  still
  406.  
  407. minus_he:
  408.     mcall 3
  409.     mov  ecx,eax
  410.     sub  ecx,16
  411.         mcall 22,0x00000000
  412.     jmp  still
  413.  
  414. plus_md:
  415.     mcall 3
  416.     mov  ecx,eax
  417.     add  ecx,256
  418.         mcall 22,0x00000000
  419.     jmp  still
  420.  
  421. plus_me:
  422.     mcall 3
  423.     mov  ecx,eax
  424.     add  ecx,4096
  425.     mcall 22,0x00000000
  426.     jmp  still
  427.  
  428. minus_md:
  429.     mcall 3
  430.     mov  ecx,eax
  431.     sub  ecx,256
  432.     mcall 22,0x00000000
  433.     jmp  still
  434.  
  435. minus_me:
  436.     mcall 3
  437.     mov  ecx,eax
  438.     sub  ecx,4096
  439.     mcall 22,0x00000000
  440.     jmp  still
  441.  
  442. set_date:
  443.     mov  eax,0x00000000
  444.     mov ebx,[day_sel]
  445.     call additem
  446.     shl  eax,8
  447.     mov  ebx,[Month]
  448.     add  ebx,1
  449.     call additem
  450.     shl  eax,8
  451.     mov  ebx,[Year]
  452.     call additem
  453.     mov  ecx,eax
  454.     mcall 22,1
  455.     jmp  START
  456.  
  457. additem:
  458.     add  eax,1
  459.     daa
  460.     sub  ebx,1
  461.     cmp  ebx,0
  462.     jne  additem
  463.     ret
  464.  
  465.  
  466. ;   *********************************************
  467. ;   *******          DRAW WINDOW          *******
  468. ;   *********************************************
  469.  
  470. draw_clock:
  471.  
  472.     mcall 3
  473.     mov  ecx,eax
  474.     mcall 47,0x00020100, ,195*65536+301,0x50CCCCCC,COL_TOOLBAR_BG
  475.  
  476.     shr  ecx,8
  477.     add  edx,22*65536
  478.     mcall
  479.  
  480.     shr  ecx,8
  481.     add  edx,22*65536
  482.     mcall
  483.     ret
  484.  
  485. draw_window:
  486.  
  487.     mcall 12,1
  488.         mcall 48,5 ;get screen size
  489.         mov ecx, ebx
  490.         sub ecx, WIN_H
  491.         shl ecx, 16
  492.         add ecx, WIN_H
  493.         mov ebx, eax
  494.         sub eax, WIN_W
  495.         shl ebx, 16
  496.         add ebx, WIN_W 
  497.     mcall 0,,,COL_WINDOW_BG, ,title ; define window
  498.         GetSkinHeight
  499.         mov ecx, eax
  500.         shl ecx, 16
  501.         add ecx, 43
  502.         mcall 13,B_WBAR_X, ,COL_TOOLBAR_BG ; draw toolbar background
  503.         mcall 13,B_WBAR_X,BT_WBAR_Y,COL_TOOLBAR_BG ; draw toolbar background
  504.  
  505.     call draw_week
  506.     mcall 8,193*65536+8,287*65536+10,72,COL_TOOLBAR_BG
  507.     mov  ebx,202*65536+8
  508.     inc  edx ;73
  509.     mcall
  510.     mov  ebx,193*65536+8
  511.     mov  ecx,311*65536+10
  512.     inc  edx ;74
  513.     mcall
  514.     mov  ebx,202*65536+8
  515.     inc  edx ;75
  516.     mcall
  517.     mov  ebx,215*65536+8
  518.     mov  ecx,287*65536+10
  519.     inc  edx ;76
  520.     mcall
  521.     mov  ebx,224*65536+8
  522.     inc  edx ;77
  523.     mcall
  524.     mov  ebx,215*65536+8
  525.     mov  ecx,311*65536+10
  526.     inc  edx ;78
  527.     mcall
  528.     mov  ebx,224*65536+8
  529.     inc  edx ;79
  530.     mcall
  531.     ;mov  ebx,237*65536+21
  532.     ;mov  ecx,281*65536+35
  533.     ;inc  edx ;80
  534.     ;or   edx,0x40CCFF44
  535.     ;mcall
  536.     mov  ebx,25*65536+110
  537.     mov  ecx,293*65536+22
  538.     mov  esi,COL_TOOLBAR_BG
  539.     mov  edx,81
  540.     mcall
  541.  
  542.     mov  esi,COL_MONTH_YEAR_B   ; new style
  543.     mov  edx,10
  544.     or   edx,1 shl 29+1 shl 30
  545.     mov  ebx,B_NS_X
  546.     mov  ecx,B_NS_Y
  547.     mcall
  548.     add  edx,1-1 shl 29
  549.     mov  ebx,B_TODAY_X+8*(today_end-today_msg)
  550.     mov  ecx,B_TODAY_Y
  551.     mcall
  552.     mov  ecx,B_Y
  553.     mov  ebx,B_MONTH_X
  554.     mov  edx,2
  555.     mcall
  556.     mov  ebx,B_SPIN_X ; <
  557.     inc  edx
  558.     mcall
  559.     add  ebx,61 shl 16 ; >
  560.     inc  edx
  561.     mcall
  562.     call draw_days
  563.  
  564.         ; draw text in window
  565.     mcall 4,157*65536+302,0x80CCCCCC,sys_text
  566.     mcall  ,211*65536+301,,separator
  567.     mcall  ,233*65536+301
  568.     mcall  ,185*65536+289, ,plus
  569.     mcall  ,185*65536+313, ,minus
  570.     mcall  , 35*65536+300,0x00CCCCCC,set_date_t,15 ;set date text
  571.  
  572.  
  573.     mov  ecx,0x10ddeeff
  574.     mov  edx,n_style
  575.     mov  esi,ns_end-n_style
  576.     mov  ebx,B_NS
  577.     cmp  [new_style],1
  578.     je   .high
  579.     mov  ecx,0xa0a0a0
  580.     jmp  .int
  581.   .high:
  582.     mov  ecx,COL_NEW_STYLE_T
  583.   .int:
  584.     mcall
  585.  
  586.     mov  ecx,COL_GO_TODAY_T
  587.     mov  edx,today_msg
  588.     mov  ebx,B_TODAY
  589.     mov  esi,today_end-today_msg
  590.     mcall
  591.  
  592.     mov  ebx,B_SPIN
  593.     mov  edx,spinner
  594.     mov  esi,12
  595.         mov  ecx,COL_DROPDOWN_T
  596.     mcall
  597.  
  598.     mov  edx,[Month]
  599.     movzx  esi,byte[month_name]
  600.     imul edx,esi
  601.     add  edx,month_name+1
  602.     mov  ebx,B_MONTH
  603.     ShowFocus 2
  604.     mcall
  605.  
  606.     call draw_year
  607.     call draw_clock
  608.     mov  [dropped],0
  609.     mcall 12,2
  610.     ret
  611.  
  612. draw_year:
  613.     mcall 8,B_YEAR_X,B_Y,5,COL_MONTH_YEAR_B
  614.     ShowFocus 3,esi
  615.     mcall 47,0x40001,Year,B_YEAR
  616.     ret
  617.  
  618. draw_dropdown:
  619.     mov  [dropped],1
  620.     push [Month]
  621.     pop  [focus]
  622.     add  [focus],100
  623.     mov  ecx,12
  624.     mov  edx,100
  625.     push dword month_name+1
  626.     push dword B_DROP
  627.     push dword B_Y+16 shl 16
  628.   .ddd_loop:
  629.     mov  edi,edx
  630.     push ecx
  631.     mov  esi,COL_DROPDOWN_BG
  632.     mcall 8,B_MONTH_X,[esp+4]
  633.     shr  eax,1
  634.     mov  ebx,[esp+8]
  635.     xchg edx,[esp+12]
  636.     movzx esi,byte[month_name]
  637.     ShowFocus edi
  638.     mcall
  639.     add  edx,esi
  640.     xchg edx,[esp+12]
  641.     add  dword[esp+8],16
  642.     add  dword[esp+4],16 shl 16
  643.     inc  edx
  644.     pop  ecx
  645.     loop .ddd_loop
  646.     add  esp,12
  647.     ret
  648.  
  649. draw_week:
  650.     mov  eax,13
  651.     mov  ebx,B_WBAR_X
  652.     mov  ecx,B_WBAR_Y
  653.     mov  edx,COL_WEEKDAY_BG
  654.     mcall
  655.     movzx esi,byte[week_days]
  656.     movzx edi,byte[week_days+1]
  657.     mov  ebx,B_WEEK
  658.     mov  ecx,7
  659.     mov  edx,week_days+2
  660.     mov  eax,4
  661.   .week:
  662.     push ecx
  663.     cmp  ecx,edi
  664.     je   .holiday
  665.     mov  ecx,0x10000000
  666.     jmp  .noholiday
  667.   .holiday:
  668.     mov  ecx,0x10cc1010
  669.   .noholiday:
  670.     mcall
  671.     add  edx,esi
  672.     add  ebx,B_WX_SHIFT
  673.     pop  ecx
  674.     loop .week
  675.     ret
  676.  
  677. draw_days:
  678.     call count_days
  679.     cmp  ecx,[day_sel]
  680.     jae  .ok
  681.     mov  [day_sel],ecx
  682.   .ok:
  683.     mov  [number],0
  684.     mov  eax,47
  685.     mov  edx,B_DAYS_Y
  686.     mov  ebx,0x10001
  687.     mov  edi,[firstday]
  688.   .dayloop:
  689.     push ecx
  690.     movzx edx,dx
  691.     mov  esi,edi
  692.     shl  esi,21
  693.     lea  edx,[edx+esi+34 shl 16]
  694.     mov  ecx,edi
  695.     add  cl,[week_days+1]
  696.     cmp  ecx,7
  697.     je   .holiday
  698.     mov  esi,0x10313138 ; COL_DATE_TEXT
  699.     jmp  .noholiday
  700.   .holiday:
  701.     mov  esi,0x10cc1010
  702.   .noholiday:
  703.     mov  ecx,number
  704.     inc  dword[ecx]
  705.     pusha
  706.     mov  ebx,edx
  707.     mov  bx,DATE_BUTTON_WIDTH-1
  708.     sub  ebx,8 shl 16
  709.     shrd ecx,edx,16
  710.     mov  cx,DATE_BUTTON_HEIGHT-1
  711.     sub  ecx,12 shl 16
  712.     mov  edx,[number]
  713.     cmp  edx,[day_sel]
  714.     je   .draw_sel
  715.     mov  esi,COL_DATE_BUTTONS
  716.     jmp  .draw_but
  717. .draw_sel:                                  ;draw selected button
  718.         add  edx,1 shl 30
  719.         add  edx,200+1 shl 29
  720.         mcall 8
  721.     cmp  [focus],4
  722.     jne  .not_active
  723.         DrawRect COL_DATE_ACTIVE_1,COL_DATE_ACTIVE_2,COL_DATE_ACTIVE_3,COL_DATE_ACTIVE_4
  724.         jmp .out
  725. .not_active:
  726.         DrawRect COL_DATE_INACTIVE_1,COL_DATE_INACTIVE_2,COL_DATE_INACTIVE_3,COL_DATE_INACTIVE_4
  727.         jmp .out
  728. .draw_but:                                   ;draw non selected button
  729.     add  edx,200+1 shl 29
  730.     mcall 8
  731.         mov eax,[Year]
  732.         cmp [curYear],eax
  733.         jne .out
  734.         mov eax,[Month]
  735.         cmp [curMonth],eax
  736.         jne .out
  737.         mov eax,[number]
  738.         cmp [curDay],eax
  739.         jne .out
  740.         mov edx,0xff0000
  741.         mov bx,DATE_BUTTON_WIDTH-2
  742.         mov cx,2
  743.         add ebx,1 shl 16
  744.         add ecx,27 shl 16
  745.         mcall 13
  746. .out:
  747.         mov    eax, [number]
  748.     xor    edx, edx
  749.     mov    ecx, 10
  750.     div    ecx
  751.     mov    [remainder], edx
  752.     mov    [quotient],  eax
  753.         popa
  754.        
  755.         ;first number
  756.         mov ecx,quotient
  757.     mcall
  758.         add edx,1 shl 16
  759.         mcall
  760.         sub edx,1 shl 16
  761.        
  762.         ;second number
  763.         mov ecx,remainder
  764.         add edx,9 shl 16
  765.     mcall
  766.         add edx,1 shl 16
  767.         mcall
  768.         sub edx,10 shl 16
  769.        
  770.        
  771.     pop  ecx
  772.     inc  edi
  773.     cmp  edi,7
  774.     jne  .nowrap
  775.     xor  edi,edi
  776.     add  dx,B_DAYS_SHIFT
  777.   .nowrap:
  778.     loop .eloop
  779.     jmp  .ex
  780.   .eloop:
  781.     jmp  .dayloop
  782.   .ex:
  783.     ret
  784.  
  785. count_days:    ; ecx -days in month
  786.     call is_leap_year
  787.     mov  ecx,[Month]
  788.     mov  eax,1
  789.     movzx ecx,byte[day_count+ecx]
  790.     add  ecx,28
  791.     cmp  eax,[leap_year]
  792.     jne  .noleap
  793.     cmp  eax,[Month]
  794.     jne  .noleap
  795.     inc  ecx
  796.   .noleap:
  797.     mov  [day_bounds+3],cl
  798.     mov  [day_bounds+7],cl
  799.     ret
  800.  
  801. is_leap_year:
  802.     mov  [leap_year],0
  803.     mov  eax,[Year]
  804.     mov  bl,100
  805.     div  bl          ; ah=Year mod 100, al=Year%100
  806.     test ah,ah
  807.     jz  .century
  808.     shr  ax,8        ; ax - last 2 digits
  809.   .century:
  810.     test al,11b
  811.     jnz  .noleap
  812.     inc  [leap_year]
  813.   .noleap:
  814.     ret
  815.  
  816. calculate:
  817.     mov  ebx,[Year]
  818.     mov  eax,[Month]
  819.     sub  eax,2
  820.     jge  .nojf
  821.     dec  ebx
  822.     add  eax,12
  823.   .nojf:
  824.     add  eax,4
  825.     xor  edx,edx
  826.     mov  ecx,153
  827.     imul cx
  828.     mov  ecx,5
  829.     div  cx
  830.     inc  eax
  831.     mov  ecx,365
  832.     imul ecx,ebx
  833.     add  eax,ecx
  834.     mov  ecx,ebx
  835.     shr  ecx,2
  836.     add  eax,ecx
  837.     dec  eax
  838.     cmp  [new_style],0
  839.     je   .nonew
  840.     add  eax,2
  841.     xchg eax,ebx
  842.     mov  ecx,100
  843.     xor  edx,edx
  844.     div  cx
  845.     sub  ebx,eax
  846.     shr  eax,2
  847.     add  ebx,eax
  848.   .nonew:
  849.     add  ebx,5
  850.     mov  eax,ebx
  851.     xor  edx,edx
  852.     movzx ebx,byte[week_days+1]
  853.     sub  eax,ebx
  854.     inc  eax
  855.     mov  ebx,7
  856.     div  bx
  857.     mov  [firstday],edx
  858.     ret
  859.  
  860. I_END:
  861.