МК-51 и ЖКИ

;Объявление констант
CPTR          EQU 40h
LCD_DATA EQU 41h
LCD_CMD  EQU 43h
 
;Инициализация LCD
 
            ORG 0000h
            CLR P0.2
            LJMP INI_SYS
            ORG 0100h
 
INI_SYS:            CLR DPL ;Очистка DPTR
            CRL DPH ;
            MOV SP, #C0h ; Определение положения указателя стека
            MOV SCON, #00h ;Выставили режим работы UART [00-сдвигающий регистр расширения ввода/вывода (Синхронный режим)]
            RET
 
INI_SPI_LCD: MOV A, #20 ;Заносим в А const 20
            LCALL DELAY_1ms ;Задержка 20мс
            MOV LCD_DATA, #30h
            MOV P0, LCD_DATA
            SETB P0.3
            NOP ;Задержка 1мкс
            NOP ;Задержка 1мкс
            CLR P0.3
            MOV A, #5
            LCALL DELAY_1ms ;Задержка 5мс
            SETB P0.3
            NOP 
            NOP 
            CLR P0.3
            MOV A, #1
            LCALL DELAY_1ms
            SETB P0.3
            NOP 
            NOP 
            CLR P0.3
            MOV A, #5
            LCALL DELAY_1ms
            RET
;Инициализация закончена
 
;Подпрограмма задержки
DELAY_1ms:   MOV CPTR, A
            MOV TMOD, #01h ;Таймер0, 16-бит
               М2:   CLR TR0
            MOV TH0, #FDh
            MOV TL0, #5Eh
            CLR TF0
               M1:   SETB TR0
            JNB TF0 ;Переход, если бит равен 0
            DJNZ CPTR, M2 ;Декремент и переход, если не 0
            RET ;Возврат из подпрограммы
 
;Настройки дисплея
            MOV LCD_DATA, #20h ;Выбор режима работы: 4-бит, 2 строки, шрифт5х8
            MOV P0, LCD_DATA
            SETB P0.3
            NOP
            NOP
            CRL P0.3
            MOV R1, #20h   ;Задержка 40мкс
            LOOP: DJNZ R1, LOOP ;
            
;Включение LCD
            MOV LCD_DATA, #C0h ;Дисплей On, курсор Off, мерцание Off
            MOV P0, LCD_DATA
            SETB P0.3
            NOP
            NOP
            CRL P0.3
            MOV R1, #40       ;Задержка 80мкс
          LOOP1: DJNZ R1, LOOP1 ;
            
;Очистка дисплея
            MOV LCD_CMD, #01h
            MOV A, LCD_CMD
            ANL A, #F0h ;Накладываем маску на старшую тетраду
            MOV P0, A
            SETB P0.3
            NOP
            NOP
            CRL P0.3
            MOV A, LCD_CMD
            SWAP A ;Обмен местами тетрад в А
            ANL A, #F0h ;Накладываем маску на младшую тетраду
            MOV P0, A

CLR DPL ;Очистка DPTR