Tugas Microprosessor "Tulisan Bergeser Pada Program LCD"

PRAKTEK  MIKROPROSESSOR

NAMA : IAN JANU SATYANAGAMA

NIM : 11.11.2333

KELAS : TI 2011 A

ALAMAT BLOG : iansatyanagama.blogspot.com

Hasil Printscreen Program LCD

Coding : 

$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 = GeserLeft
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,#25 ;R3=11,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,#25 ;R3=11,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,#080h
Ld1: acall delay
djnz R2,Ld1
ret
delay: mov R0,#0
delay1: mov R7,#0fh
djnz R7,$
djnz R0,delay1
ret
;
word1: DB '              IAN JANU S '; here is the data to be look up
word2: DB '              11.11.2333 '; here is the data to be look down
;
end