MOVWF TRISA^80H ;
CLRF TRISC^80H ;ВСЕ ВЫХОДЫ.
CLRF VRCON^80H ;ИОН ОТКЛЮЧЕН.
CLRF PCON^80H ;ПРЕРЫВАНИЯ ПО ПИТАНИЮ ЗАПРЕЩЕНЫ.
MOVLW B'00000110' ;
MOVWF WPUA^80H ;ПОДТЯГИВАЮЩИЕ РЕЗИСТОРЫ ВКЛЮЧЕНЫ.
CLRF IOCA^80H ;ПРЕРЫВАНИЯ ЗАПРЕЩЕНЫ.
MOVLW .1
MOVWF ANSEL^80H ;ВЫБРАН АНАЛОГОВЫЙ ВХОД RA0/AN0.
BCF STATUS,5 ;ПЕРЕХОДИМ В БАНК 0.
CLRF PORTC ;ВЫХОД И СВЕТОДИОД ВЫКЛЮЧЕНЫ.
CLRF T1CON ;ТАЙМЕР 1 ОТКЛЮЧЕН.
MOVLW .7
MOVWF CMCON ;КОМПАРАТОР ВЫКЛЮЧЕН.
CLRF FLAG ;ВСЕ ОБНУЛЯЕМ И УСТАНАВЛИВАЕМ.
CLRF FLAG1
CLRF EDI
CLRF DEI
CLRF COI
CLRF CL
CLRF CH
CLRF ML
CLRF MH
CLRF HL
CLRF HH
CLRF TCL
CLRF TCH
CLRF TML
CLRF TMH
CLRF THL
CLRF THH
CLRF PEID
CLRF ZPT
CLRF COUZ
CLRF COU
CLRF HOU
MOVLW 96H
MOVWF YCTL ;УСТАНОВКА МАКСИМУМА = 15,0 B.
MOVLW 78H
MOVWF YCTLI ;УСТАНОВКА МИНИМУМА = 12,0 B.
CLRF KYPC
BSF FLAG,4
GOTO PAC
;==========================================
; 3. ТАБЛИЦА СЕГМЕНТОВ.
;==========================================
SEG
;D E G F A B C K
ADDWF PCL,1 ;
RETLW B'11011110' ;0
RETLW B'00000110' ;1
RETLW B'11101100' ;2
RETLW B'10101110' ;3
RETLW B'00110110' ;4
RETLW B'10111010' ;5
RETLW B'11111010' ;6
RETLW B'00001110' ;7
RETLW B'11111110' ;8
RETLW B'10111110' ;9
RETLW B'00000000' ;10-> ПУСТО.
RETLW B'00100000' ;11-> ПРОЧЕРК.
RETLW B'10000000' ;12-> ПРОЧЕРК.
;=================================================
; 4. ТАБЛИЦА ПЕРЕКОДИРОВКИ КУРСОРА.
;=================================================
KYPCY
MOVFW KYPC ;
ADDWF PCL,1 ;
RETURN ;НЕТ КУРСОРА.
RETLW B'00000100' ;3
RETLW B'00001000' ;4
RETLW B'00010000' ;5
RETLW B'00100000' ;6
RETLW B'01000000' ;7
;===================================================
; 5. ВЫБОР РЕЖИМА ИНДИКАЦИИ.
;===================================================
VUBOR
MOVFW PEID ;ИЗМЕНЯЕМ РЕЖИМ ИНДИКАЦИИ.
ADDWF PCL,1 ;
GOTO INDH ;ИНДИКАЦИЯ ЧАСОВ.
GOTO INDT ;ТАЙМЕРА.
GOTO INDU ;НАПРЯЖЕНИЯ.
;======================================================
; 6. ВЫБОР РАЗРЯДА УСТАНОВКИ.
;======================================================
YCT
BTFSC PORTA,YC;ЕСЛИ КНОПКА "РЕЖИМ" НАЖАТА,
RETURN
MOVFW KYPC ;ТО ПО КУРСОРУ
ADDWF PCL,1 ;ВЫБИРАЕМ РАЗРЯД УСТАНОВКИ.
RETURN ;НЕТ КУРСОРА.
GOTO YC0 ;МИНУТЫ.
GOTO YC1 ;ДЕСЯТКИ МИНУТ.
GOTO YCE ;ОБНУЛЕНИЕ.
GOTO YC2 ;ЧАСЫ.
GOTO YC3 ;ДЕСЯТКИ ЧАСОВ.
;======================================================
; 7. ТАБЛИЦЫ ПЕРЕВОДА ДЕСЯТКОВ В ДВОИЧНОЕ ЧИСЛО.
;======================================================
DEBIN
ADDWF PCL,1 ;
RETLW .0
RETLW .10
RETLW .20
RETLW .30
RETLW .40
RETLW .50
RETLW .60
RETLW .70
RETLW .80
RETLW .90
;======================================================
; 8. ПРОВЕРКА НАЖАТЫХ КНОПОК УСТАНОВКИ.
;======================================================
KHOP
BTFSS FLAG,1 ;ЕСЛИ НЕТ РЕЖИМА ЧАСОВ,
GOTO $+5 ;ТО КУРСОР НЕ МЕНЯЕТСЯ.
BTFSS PORTA,KY;ПРИ НАЖАТОЙ КНОПКЕ
CALL KYPCOP ;ИДЕМ НА УСТАНОВКУ КУРСОРА.
BTFSC FLAG,7 ;ЕСЛИ ИДЕТ УСТАНОВКА,
GOTO VUBOR ;ТО РЕЖИМ НЕ МЕНЯЕТСЯ.
BTFSC PORTA,YC;ЕСЛИ КНОПКА "РЕЖИМ" НАЖАТА,
GOTO VUBOR ;ИЛИ ИДЕМ НА ВЫБОР РЕЖИМА ИНДИКАЦИИ.
INCF PEID,1 ;ИЗМЕНЕНИЕ РЕЖИМА ИНДИКАЦИИ.
MOVLW .3 ;3 РЕЖИМОВ ИНДИКАЦИИ.
SUBWF PEID,0 ;ЕСЛИ БОЛЬШЕ,
BTFSS STATUS,2;ТО ПОЙДЕМ НА СБРОС.
GOTO VUBOR ;НА ЗАПИСЬ В РЕГИСТРЫ ИНДИКАЦИИ.
CLRF PEID ;СБРОС РЕЖИМА.
GOTO VUBOR ;НА ВЫБОР РЕЖИМА ИНДИКАЦИИ.
RETURN
;================================================= Перейти на страницу: 1 2 3 4 5 6 7 8 9 10
Советуем почитать:
Проект системы радиодоступа в п. Омчак Магаданской области Традиционные проводные сети составляют основу телекоммуникационной инфраструктуры и еще долго сохранят значимость. Однако их развитие происходит медленно и не всегда успевает за спросом. ...
Волоконно-оптические кабели ...
Система дублирования видеопотока в компьютерном классе Разработка дипломного проекта является завершающим этапом обучения в техникуме, который показывает, какого уровня специалист подготовлен в результате обучения. Это сложная многогранная р ...