Kode Program Membuat Bacaan "welcome" Pada Top View Simulator
Kali ini Saya Akan Berbagi Tentang Kode program Pada Top View Simulator,
Berikut kode programnya:
$mod51
org 0h
call init_LCD
start:: mov R1,#80h ; lokasi display ram, row=1 col=1
call write_inst
mov R1,# 'W'
call write_data
mov R1,# 'E'
call write_data
mov R1,# 'L'
call write_data
mov R1,# 'C'
call write_data
mov R1,# 'O'
call write_data
mov R1,# 'M'
call write_data
mov R1,# 'E'
call write_data
stop:sjmp stop
init_lcd
mov r1,#00000001b ;display clear
call write_inst
mov r1,#00111000b ;funcion set, data 8 bit, 2 line fon 5x7
call write_inst
mov r1,#00001100b ;display on, cursor off blink off
call write_inst
mov r1,#00000110b ;entry mode, set increment
call write_inst
ret
;
write_inst:
clr P3.5 ;P3.5 = R/W =0
clr P3.6 ;P3,6 = RS =0
mov P1,R1 ;copy R1 ke P0
setb P3.7 ; P3.7 =EN =1
call delay ; call delay time
clr P3.7 ;P3.7 =EN =0
ret
;
write_data:
clr P3.5 ; P3.5 =R/W =0
setb P3.6 ;P3.6 =RS =1
mov P1,R1 ; copy R1 ke P0
setb P3.7 ; P3.7 =EN =1
call delay ; call delay time
clr P3.7 ; P3.7 =EN =0
ret
;
delay:mov R0,#0
delay1:mov R7,#0fh
djnz R7,$
jnz R0,delay1
ret
end
Berikut kode programnya:
$mod51
org 0h
call init_LCD
start:: mov R1,#80h ; lokasi display ram, row=1 col=1
call write_inst
mov R1,# 'W'
call write_data
mov R1,# 'E'
call write_data
mov R1,# 'L'
call write_data
mov R1,# 'C'
call write_data
mov R1,# 'O'
call write_data
mov R1,# 'M'
call write_data
mov R1,# 'E'
call write_data
stop:sjmp stop
init_lcd
mov r1,#00000001b ;display clear
call write_inst
mov r1,#00111000b ;funcion set, data 8 bit, 2 line fon 5x7
call write_inst
mov r1,#00001100b ;display on, cursor off blink off
call write_inst
mov r1,#00000110b ;entry mode, set increment
call write_inst
ret
;
write_inst:
clr P3.5 ;P3.5 = R/W =0
clr P3.6 ;P3,6 = RS =0
mov P1,R1 ;copy R1 ke P0
setb P3.7 ; P3.7 =EN =1
call delay ; call delay time
clr P3.7 ;P3.7 =EN =0
ret
;
write_data:
clr P3.5 ; P3.5 =R/W =0
setb P3.6 ;P3.6 =RS =1
mov P1,R1 ; copy R1 ke P0
setb P3.7 ; P3.7 =EN =1
call delay ; call delay time
clr P3.7 ; P3.7 =EN =0
ret
;
delay:mov R0,#0
delay1:mov R7,#0fh
djnz R7,$
jnz R0,delay1
ret
end
selesai semoga berguna infonya
EmoticonEmoticon