| 0,0 → 1,191 |
|---|
| ;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 |