;************************************************************************************************** 
 ; Программа вывода данных на дисплей от сотового телефона NOKIA 3310 
 ; Контроллер дисплея PCD8544  матрица 48х84 точки. 
 ; Микроконтроллер PIC16F873, частота кварцевого генератора 4 МГц. 
 ;************************************************************************************************** 
 	LIST   	p=16f873 
  	__CONFIG	3731H 
 ;================================================================================================== 
 ; Описание регистров специального назначения. 
 ;================================================================================================== 
 PC	equ	02h	; Счетчик команд. 
 Status	equ	03h	; Регистр Status. 
 PortC	equ	07h 
 TrisC	equ	07h 
 Adcon0	equ	1Fh 
 ;================================================================================================== 
 ; Описание регистров общего назначения 
 ;================================================================================================== 
 Bit	equ	71h	; Регистр данных выводимых на LCD. 
 Sec10	equ	72h	; Количество бит, для последовательной передачи. 
 Count	equ	73h	; Кол-во выводимых символов на экран. 
 Sec	equ	74h	; Кол-во выыодимых пробелов при очистке дисплея. 
 ;================================================================================================== 
 ; Описание битов. 
 ;================================================================================================== 
 RP0	equ	5 
 RP1	equ	6 
 C	equ	0 
 ;================================================================================================== 
 ; Подготовительные операции для запуска программы. 
 ;================================================================================================== 
 	org	0 
 	nop		; NOP для ICD2 
 	goto	START 
 ;================================================================================================== 
 ; Данные для вывода на дисплей. 
 ;================================================================================================== 
 TEXT_1	addwf	PC,F 
 	dt	0H,0H,0xFF,0xFF,0x13,0x1F,0x0E,0H,0H,0x7E,0xFF,0xC3,0xFF,0x7E, 
 	dt	0H,0H,0x7E,0xFF,0xC3,0xC3,0x66,0H,0H,0xC0,0x7E,0x01,0xFF,0xFF, 
 	dt	0H,0H,0xFF,0xFF,0x10,0x08,0xFF,0H,0H,0xFF,0xFF,0x08,0x14,0xE3	 
 ;-------------------------------------------------------------------------------------------------- 
 ; Начало выполнения программы. 
 ; Инициализация LCD модуля PCD8544. 
 ; Этот кусок программы выполняется один раз при загрузке. 
 ;-------------------------------------------------------------------------------------------------- 
 START	clrf	Adcon0	; Выключение модуля АЦП. 
 	bsf	Status,RP0	; Банк 1 
 	clrf	TrisC	; Выводы порта C работают на выход.  
 	bcf	Status,RP0	; Банк 0. 
 	clrf	PortC	; Очистка порта C 
 ;================================================================================================== 
 ; Команды инициализации дисплея NOKIA 3310. 
 ;================================================================================================== 
 INIT	bsf	PortC,1	; Послать 1 на LCD RES. 
 	movlw	21h	; 00100001      PD=0, V=0, H=1          	 
 	call	COM	; Инициализация LCD_1 
 	movlw	0xC5	; 10101001 Запись Vop в регистр. 
 	call	COM	; Инициализация LCD_2 
 	movlw	.6	; 00000110  Температурный коэф.=2. 
 	call	COM	; Инициализация LCD_3 
 	movlw	13h	; 00010011  Установка Bias n=4. 
 	call	COM	; Инициализация LCD_4 
 	movlw	20h	; 00100000   PD=0, V=0, H=0 
 	call	COM	; Инициализация LCD_5 
 	movlw	0x0C	; 10101001 Запись D=1, E=0 в регистр. 
 	call	COM	; Инициализация LCD_2 
 	call	CLEAR	; Очистка дисплея от мусора, после инициализации. 
 	call	CLEAR 
 	call	CLEAR 
 	call	CLEAR 
 ;================================================================================================== 
 ; Команды выбора знакоместа 
 ;================================================================================================== 
 NEW	movlw	.148	; 100000000  Выбор ячейки RAM по X. 
 	call	COM	; Инициализация LCD_6 
 	movlw	.66	; 010000000  Выбор ячейки RAM по Y. 
 	call	COM	; Инициализация LCD_7 
 ;================================================================================================== 
 ; Начало текста выводимого на индикацию. 
 ;================================================================================================== 
 	movlw	.42	; Запись числа .16 (количества выводимых в строку 
 	movwf	Count	; символов) в регистр Count. 
 WR_1	movf	Count,W	; Копирование содержимого регистра Count в W. 
 	sublw	.42	; .16-Count=... (результат записывается в W). 
 	call	TEXT_1	; Условный переход в ПП TEXT_1. 
 	call	DAT       
 	decfsz	Count,F	; Подготовка к выводу на индикацию 
 	goto	WR_1	; следующего символа таблицы. 
 	goto	NEW 
 ;================================================================================================== 
 ; ПП вывода данных на индикацию в LCD. 
 ;================================================================================================== 
 COM	bcf	PortC,0	; Метка передача команд D/C=0. 
 DAT	movwf	Bit 
 	movlw	.1	; Метка передачи данных D/C=1. 
 	movwf	Sec10 
 NEXT	movlw	.9	; Запись в W константы. 
 	subwf	Sec10,W	; Сравнение (Sec10-9). 
 	btfsc	Status,C	; Проверяем перенос С был или нет 
 	goto	EXIT	; Если >9 выход 
 	btfsc	Bit,7	; Усли нет, то проверяем 7 бит регистра Bit. 
 	bsf	PortC,4	; Sdin = 1. 
 	btfss	Bit,7	; проверяем 7 бит регистра Bit 
 	bcf	PortC,4	; Sdin = 0. 
 	bcf	Status,C	; Опустим флаг переноса.  
 	rlf	Bit,F	; Сдвинем данные влево. 
 	bsf	PortC,5	; Sck = 1  Стробирующий импульс. 
 	nop 
 	bcf	PortC,5	; Sck = 0   
 	incfsz	Sec10,F	; Инкремент содержимого регистра Sec10. 
 	goto	NEXT 
 EXIT	bsf	PortC,0	; D/C = 1. 
 	return		; Выход из ПП вывода данных. 
 ;================================================================================================== 
 ; ПП предварительной очистки дисплея от мусора после инициализации. 
 ;================================================================================================== 
 CLEAR	movlw	.254 
 	movwf	Sec 
 BLANK	movlw	.0 
 	call	DAT 
 	decfsz	Sec,F 
 	goto	BLANK 
 	return 
 ;************************************************************************************************** 
 	end