Форум РадиоКот

Код: Выделить всё

#include p16f84a.inc
		__config 0x3FF2

#define E PORTA,2
#define RS PORTA,0
#define RW PORTA,1
  CBLOCK 0x20      ;Начальный адрес блока констант
		to_out
		Reg_1
		Reg_2
		Reg_3
		ENDC
		
;---------Контроллер--------------------------

Start
		bsf STATUS,RP0
		CLRF TRISB ; Портб на выход
		CLRF TRISA ; Порта на выход
		bcf STATUS,RP0 
		CLRF PORTA
		CLRF PORTB
;---------ЖКИ----------------------------------

		movlw b'00110000' ; первая команда
		movwf to_out ; в байт сообщения
		call to_port ; запись в порт
	    call zapis 
		call pause5
;----------------------------------------------
		movlw b'00110000' ; вторая команда
		movwf to_out ; в байт сообщения
		call to_port 
		call zapis
		call pause100
;----------------------------------------------
 		
		movlw b'00110000' ; вторая команда
		movwf to_out ; в байт сообщения
		call to_port 
		call zapis
		call pause100
		call pause100
;----------------------------------------------
		movlw b'00110100' ; 8-битный интерфейс, 1 строка, символы 8*10
		movwf to_out
		call to_port
		call zapis
		call pause100
		call pause100
;----------------------------------------------

		movlw b'00001110' ; дисплей включен, курсор включен, мерцание выключено
		movwf to_out
		call to_port
		call zapis
		call pause100
		call pause100
;----------------------------------------------

		movlw b'00000110' ; инкремент позиции курсора, сдвиг дисплея выключен
		movwf to_out
		call to_port
		call zapis
		call pause100
		call pause100

;---------- завершена-------------
;---------- информации--------------------

		movlw .131 ; установка первого адреса 1 строки
		movwf to_out 
		call to_port
		call pause50
		call zapis
		call pause255
		

;---------- символа-----------------------
		bsf RS
		movlw 0x34
		movwf to_out
		call to_port
		call pause50
		
		call zapis
		nop 
		nop 
		goto $-1

;------------Подпрограмма записи в LCD------------
zapis 
		bsf PORTA,2 ; E=1 write
		nop
		nop
		bcf PORTA,2 ; E=0 turn off write
		return
		
;---------- записи сообщения в защелки портов---------------
to_port 
	movf to_out,w
	movwf PORTB
 	return	

;---------- в 100 мкс-------------------------------------------
pause100       movlw       .33
            movwf       Reg_1
wr          decfsz      Reg_1, F
            goto        wr
			return

;---------- в 50 мкс--------------------------------------------
pause50       movlw       .16
            movwf       Reg_1
wr1          decfsz      Reg_1, F
            goto        wr1
            nop
			return

;---------Пауза в 255 мкс--------------------------------------------

pause255      movlw       .84
            movwf       Reg_1
wr2          decfsz      Reg_1, F
            goto        wr2
            nop
            nop
			return
;--------Пауза в 5 мс------------------------------------------------
pause5      movlw       .125
            movwf       Reg_1
            movlw       .7
            movwf       Reg_2
wr3         decfsz      Reg_1, F
            goto        wr3
            decfsz      Reg_2, F
            goto        wr3
		return
		
		END