Охранная система с дистанционным управлением

Дипломная работа - Компьютеры, программирование

LPTRL;Show message "Переохлаждение!"

RCALL LCD_LD1;

RCALL LCD_PR1;

BSF PORTA,5;

RETURN

;-----------------------------------------------------------

M_ACES_NOMOVLW B01100000;

MOVWF TBLPTRL;Show message "Доступ запрещен!"

RCALL LCD_LD1;

RCALL LCD_PR1

RETURN

;-----------A/D Converting----------------------------------

ADC_CONVMOVLW D20

MOVWF DEL_ADC

DECFSZ DEL_ADC,F

BRA $-2

BSF ADCON0,GO;Start A/D conversion

WaitBTFSS PIR1,ADIF;Wait for conversion to complete

BRA $-2

BCF PIR1,ADIF

MOVFF ADRESH,AD

RETURN

;-------Looped end of program----------------------------

FINALNOP

BRA FINAL

END