Курсовая работа: Розробка термореле

CLR P1.6

CALL init_lcd

CALL clear_lcd

MOV DPTR, #txt

next:

CLR A

MOVC A, @A+DPTR

CJNE A, #0dh, cont

JMP $

cont:

CALL write_char

INC DPTR

JMP next

;———————————————_

wait_lcd:

SETB P1.6

still_wait:

SETB EN

CLR RS

SETB RW

MOV DAT, #0FFh

MOV C, P1.7

CLR EN

JC still_wait

CLR RW

CLR 1.6

RET

;———————————————_

init_lcd: