Разработка многофункциональных астрономических часов (стр. 12 из 12)
lcall LCD_SendCMD
movf VAL_DIGIT,w
addlw LCD_0
lcall LCD_SendDAT
incf VAL_IND,f
movf VAL_IND,w
addlw 0x80 | 0x44
movwf LCD_CURSOR_POSITION
bsf FLAGS,F_CURSOR_DIRTY
pagesel $
movf VAL_IND,w
sublw .10
btfsc STATUS,Z
decf VAL_IND,f
S_EnterLongValue_DigitRTN
lgoto SM_Rtn
S_EnterLongValue_Accept
bsf FLAGS,F_VALUE_ENTERED
S_EnterLongValue_End
clrf LCD_CURSOR_POSITION
bsf FLAGS,F_CURSOR_DIRTY
GoToState S13_SetLength
lgoto SM_Rtn
org 0x1800
da MSG_AdjustTimer ; 0x00
da MSG_SetTimer ; 0x01
da MSG_AdjustClock ; 0x02
da MSG_ThermometerSetup ; 0x03 - не используют в этой версии
da MSG_SetLength ; 0x04
da MSG_SetFormat ; 0x05
da MSG_Set ; 0x06
da MSG_SetAlarm ; 0x07
da MSG_SetAlarmTime ; 0x08
da MSG_SetSound ; 0x09
da MSG_AlarmAction ; 0x0A
da MSG_SoundPip ; 0x0B
da MSG_SoundPeep ; 0x0C
da MSG_SoundWhip ; 0x0D
da MSG_SoundSilent ; 0x0E
da MSG_ActionNone ; 0x0F
da MSG_ActionReset ; 0x10
da MSG_ActionStop ; 0x11
da MSG_ActionBoth ; 0x12
MSG_AdjustTimer
da "Приспособить Таймер",0
MSG_SetTimer
da "Установленный Таймер",0
MSG_AdjustClock
da "Приспособить Отмечает время",0
MSG_ThermometerSetup
"Терм da . Setup",0 ; не используют в этой версии
MSG_SetLength
da "Установленная Длина Цикла",0
MSG_SetFormat
da "Установленный Формат",0
MSG_Set
da "Set",0
MSG_SetAlarm
da "Установленное Смятение",0
MSG_SetAlarmTime
da "Сигнальное Время",0
MSG_SetSound
da "Сигнальный Звук",0
MSG_AlarmAction
da "Сигнальное Действие",0
MSG_SoundPip
da "Установил: Pip",0
MSG_SoundPeep
da "Установил: Peep",0
MSG_SoundWhip
da "Установил: Whip",0
MSG_SoundSilent
da "Установил: Silent",0
MSG_ActionNone
"Действие da : None",0
MSG_ActionReset
"Действие da : Reset",0
MSG_ActionStop
"Действие da : Stop",0
MSG_ActionBoth
"Действие da : Stop+Rst",0
org 0x1F80
LOOKUP_StdTmr
movwf TMP
movlw высоко $
movwf PCLATH
movf TMP,w
addwf PCL,f
; установки
retlw b'10000000'
; длина
retlw 0x00
retlw 0x46
retlw 0x05
retlw 0x00
; стартовый offsett
LOOKUP_DigitFromKeyID
movwf TMP
movlw высоко $
movwf PCLATH
LOOKUP_CursorPosHMS
movwf TMP
movlw высоко $
movwf PCLATH
movf TMP,w
addwf PCL,f
retlw 0xC4
retlw 0xC5
retlw 0xC7
retlw 0xC8
retlw 0xCA
retlw 0xCB
retlw 0xCC
КОНЕЦ
Приложение Д
Схема электрическая принципиальная многофункциональных астрономических часов
Приложение Ж
КАЛЬКУЛЯЦИЯ КОМПЛЕКТУЮЩИХ АСТРОНОМИЧЕСКИХ ЧАСОВ
