проблема с сохранением месяца в RTCC пытаюсь записать а считывает "0"
код:
'************************************************* ******
чтение
'************************************************* *****************************
sub procedure PIC24_RTU_GetDate() ' dim days, months, years as byte)
dim tempVal as word
SetBit(RCFGCAL,
'
SetBit(RCFGCAL, 9)
tempVal = RTCVAL
years = lo(RTCVAL)
tempVal = RTCVAL
days = lo(RTCVAL) '
months = hi(RTCVAL) ' '
years = (((years AND 0xF0) ›› 4) * 10) + (years AND 0x0F) '
months = (((months AND 0x10) ›› 4) * 10) + (months AND 0x0F) '
days = (((days AND 0x30) ›› 4) * 10) + (days AND 0x0F) '
End sub'
'************************************************* *****************************
' запись
'************************************************* *****************************
sub procedure PIC24_RTU_SetDate(dim days, months, years as byte)
days = ((days DIV 10) ‹‹ 4) or (days MOD 10)
months = ((months DIV 10) ‹‹ 4) or (months MOD 10)
years = ((years DIV 10) ‹‹ 4) or (years MOD 10)
SetBit(RCFGCAL,
SetBit(RCFGCAL, 9)
RTCVAL = years AND 0x00FF
ClearBit(RCFGCAL,
SetBit(RCFGCAL, 9)
RTCVAL = (months ‹‹
or days
PIC24_RTC_Unlock()
end sub
чет рожу рисует вместо восьмерки