$Revision$
;setting date,time,clock and alarm-clock
;add sys_settime at servetable as for ex. 22 fcn:
; 22 - SETTING DATE TIME, CLOCK AND ALARM-CLOCK
; ebx =0 - set time ecx - 00SSMMHH
; ebx =1 - set date ecx=00DDMMYY
; ebx =2 - set day of week ecx- 1-7
; ebx =3 - set alarm-clock ecx - 00SSMMHH
; out: 0 -Ok 1 -wrong format 2 -battery low
sys_settime:
      mov  ecx,eax
      cli
      mov  al,0x0d
      out  0x70,al
      in   al,0x71
      bt   ax,7
      jnc  bat_low
      cmp  ecx,2    ;day of week
      jne  nosetweek
      test  ebx,ebx         ;test day of week
      je   wrongtime
      cmp  ebx,7
      ja   wrongtime
      mov  dx,0x70
      call startstopclk
      dec  edx
      mov  al,6
      out  dx,al
      inc  edx
      mov  al,bl
      out  dx,al
      jmp  endsettime
  nosetweek:           ;set date
      cmp  ecx,1
      jne  nosetdate
      cmp  bl,0x99      ;test year
      ja   wrongtime
      shl  ebx,4
      cmp  bl,0x90
      ja   wrongtime
      cmp  bh,0x99      ;test month
      ja   wrongtime
      shr  ebx,4
      test  bh,bh
      je   wrongtime
      cmp  bh,0x12
      ja   wrongtime
      shl  ebx,8
      bswap ebx       ;ebx=00YYMMDD
      test bl,bl       ;test day
      je   wrongtime
      shl  ebx,4
      cmp  bl,0x90
      ja   wrongtime
      shr  ebx,4
      cmp  bh,2       ;February
      jne  testday
      cmp  bl,0x29
      ja   wrongtime
      jmp  setdate
    testday:
      cmp  bh,8
      jb   testday1    ;Aug-Dec
      bt   bx,8
      jnc  days31
      jmp  days30
    testday1:
      bt   bx,8       ;Jan-Jul ex.Feb
      jnc  days30
    days31:
      cmp  bl,0x31
      ja   wrongtime
      jmp  setdate
    days30:
      cmp  bl,0x30
      ja   wrongtime
    setdate:
      mov  dx,0x70
      call startstopclk
      dec  edx
      mov  al,7          ;set days
      out  dx,al
      inc  edx
      mov  al,bl
      out  dx,al
      dec  edx
      mov  al,8          ;set months
      out  dx,al
      inc  edx
      mov  al,bh
      out  dx,al
      dec  edx
      mov  al,9          ;set years
      out  dx,al
      inc  edx
      shr  ebx,8
      mov  al,bh
      out  dx,al
      jmp  endsettime
    nosetdate:       ;set time or alarm-clock
      cmp  ecx,3
      ja   wrongtime
      cmp  bl,0x23
      ja   wrongtime
      cmp  bh,0x59
      ja   wrongtime
      shl  ebx,4
      cmp  bl,0x90
      ja   wrongtime
      cmp  bh,0x92
      ja   wrongtime
      shl  ebx,4
      bswap ebx        ;00HHMMSS
      cmp  bl,0x59
      ja   wrongtime
      shl  ebx,4
      cmp  bl,0x90
      ja   wrongtime
      shr  ebx,4
      mov  dx,0x70
      call startstopclk
      dec  edx
      cmp  ecx,3
      je   setalarm
      xor  eax,eax   ;al=0-set seconds
      out  dx,al
      inc  edx
      mov  al,bl
      out  dx,al
      dec  edx
      mov  al,2       ;set minutes
      out  dx,al
      inc  edx
      mov  al,bh
      out  dx,al
      dec  edx
      mov  al,4       ;set hours
      out  dx,al
      inc  edx
      shr  ebx,8
      mov  al,bh
      out  dx,al
      jmp  endsettime
   setalarm:
      mov  al,1   ;set seconds for al.
      out  dx,al
      inc  edx
      mov  al,bl
      out  dx,al
      dec  edx
      mov  al,3    ;set minutes for al.
      out  dx,al
      inc  edx
      mov  al,bh
      out  dx,al
      dec  edx
      mov  al,5    ;set hours for al.
      out  dx,al
      inc  edx
      shr  ebx,8
      mov  al,bh
      out  dx,al
      dec  edx
      mov  al,0x0b  ;enable irq's
      out  dx,al
      inc  dx
      in   al,dx
      bts  ax,5     ;set bit 5
      out  dx,al
    endsettime:
      dec  edx
      call startstopclk
      sti
      mov  [esp+36],dword 0
      ret
   bat_low:
      sti
      mov  [esp+36],dword 2
      ret
   wrongtime:
      sti
      mov  [esp+36],dword 1
      ret
   
startstopclk:
    mov  al,0x0b
    out  dx,al
    inc  dx
    in   al,dx
    btc  ax,7
    out  dx,al
    ret