endif endif

bcf EPort, EPin bsf Dlay, DlayieOBitl if (Dlay160Bit2 != -1)

Задержка 160 мкс.

Передача символа на дисплей. Сохранение значения.

Передача старшего полубайта.

Возможно, потребуется задержка

Возможно, потребуется задержка.

Передача младшего полубайта.

bsf RSPort, RSPin if (Freq > 8000000) if (Freq < 16000000)

nop else

goto $ + 1 endif endif

bsf EPort, EPin if (Freq > 8000000) if (Freq < 16000000)

nop else

goto $ + 1 endif endif bcf EPort, EPin bsf Dlay, Dlay160Bit1 if (Dlay160Bit2 != -1)

bsf Dlay, Dlay160Bit2 endif

Возможно, потребуется задержка.

Задержка 160 мкс.

decfsz Dlay, f

goto $ - 1 retu rn LCDInit

call DlayS call DlayS call DlayS if (DataBit == 0)

movlw 0x003 else

movlw 0x030 endif

movwf DataPort if (Freq > BOOOOOO) if (Freq < 16000000) nop

Инициализация (8 разрядов). Ожидание IS мс.

Команда сброса.

Возможно, потребуется задержка.

else

goto, endif endif bsf if (Freq

EPort, EPin > 8000000)

Возможно, потребуется задержка.

if (Freq < 16000000)

nop else

goto $ + 1 endif

endif

bcf EPort, EPin

call DlayS

bsf EPort, EPin

If (Freq > 8000000) If (Freq < 16000000)

nop else

goto $ + 1 endif endif bcf bsf

If (Dlay160Bit2

Возможно, потребуется задержка

bsf endif decfsz Dlay, goto bsf

EPort, EPin Dlay, DlayieOBitl

= -1) Dlay, Dlay160Bit2

Задержка 160 мкс

$ - 1

EPort, Epin

If (Freq > 8000000)

Третья команда сброса Возможно, потребуется задержка

If (Freq <

nop else

goto $ endif endif bcf bsf

16000000)

EPort, EPin Dlay, DlayieOBitl If (Dlay160Bit2 I = -1)

bsf Dlay, Dlay160Bit2 endif decfsz Dlay, f goto $ - 1 If (DataBit 0)

movlw 0x002 else

movlw 0x020 endif

DataPort

Задержка 160 мкс

Задание формата

movwf If (Freq > If (Freq <

nop else

goto $ endif endif bsf

8000000) 16000000)

Возможно, потребуется задержка