$Revision: 431 $ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;; ;; Distributed under terms of the GNU General Public License ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;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