Rancangan Interface Mikrokontroler 8051 dengan tampilan LCD 2002A Program untuk menampilkan "PROGRAM TEKNOLOGI INFORMASI" berjalan memutar dari kanan ke kiridengan delay 150ms

$mod51
;built-in routine
INITLCD EQU 0740H
COMMANDLCD EQU 07B0H
WRITELCD EQU 07D0H
;command word
CDDSR EQU 5CH
;CSEG
ORG 4000H
LJMP START
ORG 100H
DELAY: MOV R7, #5
LOP1: MOV R6, #100
LOP2: MOV R5, #100
DJNZ R5, $
DJNZ R6, LOP2
DJNZ R7, LOP1
RET
START:
MOV R1, #00H
LCALL INITLCD
LCALL DELAY
;menampilkan “PROGRAM TEKNOLOGI INFORMASI”
MOV A, #49H;I
LCALL WRITELCD
LCALL DELAY
MOV A, #53H;S
LCALL WRITELCD
LCALL DELAY
MOV A, #41H;A
LCALL WRITELCD
LCALL DELAY
MOV A, #4DH;M
LCALL WRITELCD
LCALL DELAY
MOV A, #52H;R
LCALL WRITELCD
LCALL DELAY
MOV A, #4FH;O
LCALL WRITELCD
LCALL DELAY
MOV A, #46H;F
LCALL WRITELCD
LCALL DELAY
MOV A, #4EH;N
LCALL WRITELCD
LCALL DELAY
MOV A, #49H;I
LCALL WRITELCD
LCALL DELAY
MOV A, #20H;SPASI
LCALL WRITELCD
LCALL DELAY
MOV A, #49H;I
LCALL WRITELCD
LCALL DELAY
MOV A, #47H;G
LCALL WRITELCD
LCALL DELAY
MOV A, #4FH;0
LCALL WRITELCD
LCALL DELAY
MOV A, #4CH;L
LCALL WRITELCD
LCALL DELAY
MOV A, #4FH;O
LCALL WRITELCD
LCALL DELAY
MOV A, #4EH;N
LCALL WRITELCD
LCALL DELAY
MOV A, #4BH;K
LCALL WRITELCD
LCALL DELAY
MOV A, #45H;E
LCALL WRITELCD
LCALL DELAY
MOV A, #54H;T
LCALL WRITELCD
LCALL DELAY
MOV A, #20H;SPASI
LCALL WRITELCD
LCALL DELAY
MOV A, #40H;M
LCALL WRITELCD
LCALL DELAY
MOV A, #41H;A
LCALL WRITELCD
LCALL DELAY
MOV A, #52H;R
LCALL WRITELCD
LCALL DELAY
MOV A, #47H;G
LCALL WRITELCD
LCALL DELAY
MOV A, #4FH;O
LCALL WRITELCD
LCALL DELAY
MOV A, #52H;R
LCALL WRITELCD
LCALL DELAY
MOV A, #50H;P
LCALL WRITELCD
LCALL DELAY

ULANG:
MOV A, #CDDSR
LCALL COMMANDLCD
LCALL DELAY
INC R1
CJNE R1, #1BH, ULANG
SJMP START
END