;*********************************************************************************************** 
 	list     	p=18F252	; используется PIC18F252 
 	#include 	<p18F252.inc>	; файл, описывающий специфические переменные, 
 					; соответствующие процессору	 
 	CONFIG      OSC=XT          ; тактирование от кварца частотой 4 МГц 
 	CONFIG      OSCS=OFF		; запретить переключать частоту тактирования микроконтроллера 
 	CONFIG      PWRT=ON         ; включать задержку после включения питания        
 	CONFIG      BOR=ON, BORV=45 ; включить схему сброса по провалу питания. Порог = 4,5В 
 	CONFIG      WDT=OFF 		; сторожевой таймер выключить  
 	CONFIG      STVR=ON         ; по переполнению стека давать сброс микроконтроллера 
 ;*********************************************************************************************** 
 ; Используемые в программе регистры 
 ;*********************************************************************************************** 
 RS	EQU		0		; Вывод RA0 - линия RS  \ 
 E	EQU		1		; Вывод RA1 - линия E   /  => HD44780 
 ;*********************************************************************************************** 
 	CBLOCK	0x00A		; Блок переменных, используемых в программе 
 	Temp				; 
 	Temp1				; 
 	Temp2				; 
 	ENDC				; 
 ;*********************************************************************************************** 
 ; Начало программы 
 ;*********************************************************************************************** 
 	ORG			0x000			; Вектор сброса процессора, начальный адрес 
 	movlw		.7				; Отключаем аналоговые 
 	movwf		ADCON1			; входы, все порты А - цифровые 
 	clrf		PORTA			; Очистили выходные защёлки портов А 
 	clrf		TRISA			; Все порты А на выход 
 	clrf		PORTB			; Очистили выходные защёлки портов B 
 	clrf		TRISB			; Все порты В на выход 
 	clrf		PORTC			; Очистили выходные защёлки портов C 
 	clrf   		TRISC           ; Все порты C на выход 
 ;*********************************************************************************************** 
 ; Инициализация ЖКИ модуля 
 ;*********************************************************************************************** 
 START	movlw		b'00100000'		; Запись только одного 
 	call		ONE				; старшего байта 
 	movlw       b'00101000'     ; Команда установки 4-битного интерфейса, 
        call        ENTER			; включения обеих строк и матрицы 5х7 точек 
        movlw       b'00001100'     ; Команда включения дисплея, курсор выкл. 
        call        ENTER           ; "Составная" задержка со стробом 
        movlw       b'00000001'     ; Команда очистки дисплея со сбросом данных, 
        call        ENTER           ; "Составная" задержка со стробом 
 ;*********************************************************************************************** 
 ; Переход в начало 1-й строки 
 ;*********************************************************************************************** 
 	movlw       b'10000000'     ; Выбор ячейки DD RAM с адресом 00H (установка 
 		                  	; курсора в крайнее левое знакоместо 1-й строки) 
        bcf         PORTA, RS       ; Установка на линии RS "0" 
        call        ENTER           ; "Составная" задержка со стробом 
        bsf         PORTA, RS       ; Установка на линии RS "1" 
 ;*********************************************************************************************** 
 ; Вывод символов в 1-ю строку 
 ;*********************************************************************************************** 
 	movlw       .3            	; Запись числа .3 (количества выводимых в строку 
        movwf       Temp2           ; символов) в регистр Temp 
 WR_1   movf        Temp2, w        ; Копирование содержимого регистра Temp в W 
        sublw       .3            	; .3 - Temp = ... (результат записывается в W) 
        call        TEXT          	; Переход в ПП TEXT 
        movwf       PORTB           ; Вывод адресного запроса к содержимому ячейки 
                                         ; знакогенератора в PORTB 
        call        ENTER           ; "Составная" задержка со стробом 
        decfsz      Temp2, f        ; Подготовка к выводу на индикацию следующего 
                                         ; символа таблицы 1-й строки 
        goto        WR_1            ; Если результат декремента не=0, то переход в ПП WR_1 
 ;*********************************************************************************************** 
 	goto		$ 
 ;*********************************************************************************************** 
 ; Вывод в ЖКИ 
 ;*********************************************************************************************** 
 ENTER  movwf		Temp			; Копия в Temp 
 	movlw		0F0H			; Убьём младший п/байт 
 	andwf		Temp, w			; результат в w 
        movwf       PORTB			; Данные на вывод в PORTB 
 	movlw		.80				; Задержка 
 	call        PAUSE_X         ; в 0,8 мс 
 	bsf         PORTA, E        ; Установка на линии E "1" 
        bcf         PORTA, E        ; Установка на линии Е "0" 
 	swapf		Temp, f			; Смена п/байтов с сохранением в Temp 
 	movlw		0F0H			; Убьём младший п/байт 
 	andwf		Temp, w			; результат в w 
 ONE    movwf      	PORTB			; Данные на вывод в PORTB 
        bsf         PORTA, E		; Установка на линии Е "1" 
        bcf         PORTA, E		; Установка на линии Е "0" 
 	movlw		.80				; Задержка 
 	call        PAUSE_X         ; в 0,8 мс 
 	clrf		PORTB			; Очистим выходные защёлки PORTB 
        return						; Возврат из п/п 
 ;*********************************************************************************************** 
 PAUSE_X     movwf      	Temp1          	; Копирование количества проходов из W в Temp1 
 PAUSE_10    nop                       	; 
             goto       	x            	; Одноразрядный, 
 x           goto       	xx            	; вычитающий 
 xx          goto       	xxx            	; счетчик 
 xxx         decfsz     	Temp1, f        ; с "врезкой" 
             goto       	PAUSE_10       	; 
             return						; Возврат из п/п 
 ;*********************************************************************************************** 
 TEXT	addwf		PCL, f			; Приращение PCL на величину содержимого w 
 	retlw		0ABH 
 	retlw		31H 
 	retlw		32H 
 ;*********************************************************************************************** 
 	END