Dear Experts,

I have read the tutorials, searched the Internet and the message board yet can not get through this.
I have a Domino-1 8052 CPU and am hooking a 8x1 HD44780 LCD in 4-bit mode.

Basically I can power the LCD but can not get it to respond. The code is in BASIC (I've scanned through it repeatedly) and LCD timing is not an issue since Domino BASIC commands takes ~ 1.5 ms to execute.

Any comments or suggestions is greatly appreciated.

----------------------------------------------------
10 CLOCK1 : STRING 60,8 : REM LCD INITIALIZATION
20 REM E = P1.4, RS = P1.5
30 REM DB4-7 = P1.0-3
40 PORT1 = 012H : REM FUNCTION SET
50 PORT1 = 002H
60 PORT1 = 010H
70 PORT1 = 000H
80 PORT1 = 010H : REM DISPLAY SET
90 PORT1 = 000H
100 PORT1 = 01FH
110 PORT1 = 00FH
120 PORT1 = 010H : REM CLEAR SCREEN
130 PORT1 = 000H
140 PORT1 = 011H
150 PORT1 = 001H : GOSUB 500
160 PORT1 = 010H : REM MODE SET
170 PORT1 = 000H
180 PORT1 = 016H
190 PORT1 = 006H
200 INPUT "ENTER A MESSAGE: ", $(0)
210 PORT1 = 010H : REM RETURN HOME
220 PORT1 = 000H
230 PORT1 = 012H
240 PORT1 = 002H : GOSUB 500
250 FOR X = 1 TO 8
260 PH0. ASC($(0),X)
270 PORT1 = ((ASC($(0),X).AND.0F0H)/010H)+030H
280 PORT1 = ((ASC($(0),X).AND.0F0H)/010H)+020H
290 PORT1 = (ASC($(0),X).AND.00FH)+030H
300 PORT1 = (ASC($(0),X).AND.00FH)+020H
310 NEXT
320 END
330
340
350
360
370
380
390
490
500 START = TIME
510 DO : WHILE (TIME - START) < 0.05
520 RETURN