NAMA : YUSAK ADI SEKAR
NIM : 11.11.2357
KELAS : TI11A
$mod51
geserL equ 00011011b ; 0 0 0 1 S/C R/L X
X
geserR equ 00011111b ; 0 0 0 1 S/C R/L X
X
org 000h
clr p3.5
call init_LCD
start: call write_char
;call init_LCD
call write_char2
call geser
sjmp start
;
geser:
mov R6,#40 ;R7 = 40; geser sebanyak 40
karakter
lagi: mov R1,#geserR ;R1 = GeserRight
call write_inst
call ldelay
djnz R6,lagi ;R7=R7-1, jika R7 ? 0 maka
lompat ke lagi
write_char:
mov dptr,#word1 ;DPTR = [ address word1
]
mov r3,#33 ;R3=16,number character to be
display
mov r1,#80h ;R1=80h,address DDRAM start
position
call write_inst
;
write1:clr a ; A = 0
movc a,@a+dptr ; A = [A+ DPTR]
mov r1,A ; R1 = A
inc dptr ; DPTR = DPTR +1
call write_data;
djnz r3,write1 ; R3 = R3-1,
ret
write_char2:
mov dptr,#word2 ;DPTR = [ address word1
]
mov r3,#29 ;R3=16,number character to be
display
mov r1,#0C0h ;R1=80h,address DDRAM start
position
call write_inst
;
write2:clr a ; A = 0
movc a,@a+dptr ; A = [A+ DPTR]
mov r1,A ; R1 = A
inc dptr ; DPTR = DPTR +1
call write_data;
djnz r3,write2 ; R3 = R3-1,
ret
;
Init_lcd:
mov r1,#00000001b ;Display clear
call write_inst ;
mov r1,#00111000b ;Function set,
;Data 8 bit,2 line font 5x7
call write_inst ;
mov r1,#00001100b ;Display on,
;cursor off,cursor blink off
call write_inst
mov r1,#00000110b ;Entry mode, Set
increment
call write_inst
ret
;
Write_inst:
clr P3.6 ; RS = P2.0 = 0, write mode
instruction
mov P0,R1 ; D7 s/d D0 = P0 = R1
setb P3.7 ; EN = 1 = P2.1
call delay ; call delay time
clr P3.7 ; EN = 0 = P2.1
ret
;
Write_data:
setb P3.6 ; RS = P2.0 = 1, write mode
data
mov P0,R1 ; D7 s/d D0 = P0 = R1
setb P3.7 ; EN = 1 = P2.1
call delay ; call delay time
clr p3.7 ; EN = 0 = P2.1
ret
;
Ldelay: mov R2,#040h
Ld1: acall delay
djnz R2,Ld1
ret
delay: mov R0,#0
delay1: mov R7,#0fh
djnz R7,$
djnz R0,delay1
ret
;
word1: DB ' YUSAK ADI SEKAR'; here is the
data to be look up
word2: DB ' 11.11.2357'; here is the
data to be look up
;
end
