Responsi Mikroprosesor

RESPONSI MICROPOSESOR

NAMA : ALIF MAULANA

NIM     : 11.11.2571

KELAS : TI 11 E

TULIS NAMA DAN NIM KARAKTER PADA LCD KARAKTER

Ketik program berikut ini untuk menulis nama : ALIF MAULANA & 11.11.2571

$mod51

org 0h

CLR P3.5

           call init_LCD

start: mov R1,#80h ; Lokasi Display RAM, Row=1 Col=1

           call write_inst

           mov R1,#'A'

           call write_data

           mov R1,#'L'

           call write_data

           mov R1,#'I'

           call write_data

           mov R1,#'F'

           call write_data

           mov R1,#' '

           call write_data

           mov R1,#'M'

           call write_data

           mov R1,#'A'

           call write_data

           mov R1,#'U'

           call write_data

           mov R1,#'L'

           call write_data

           mov R1,#' A'

           call write_data

           mov R1,#'N'

           call write_data

           mov R1,#'A'

           call write_data

           mov R1,#0C0h ; Lokasi Display RAM, Row=2 Col=2

           call write_inst

           mov R1,#'1'

           call write_data

           mov R1,#'1'

           call write_data

           mov R1,#'.'

           call write_data

           mov R1,#'1'

           call write_data

           mov R1,#'1'

           call write_data

           mov R1,#'.'

           call write_data

           mov R1,#'2'

           call write_data

           mov R1,#'5'

           call write_data

           mov R1,#'7'

           call write_data

           mov R1,#'1'

           call write_data

           stop: sjmp stop

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 ; P3.6 = RS =0

           mov P0,R1 ; P0 = D7 s/d D0 = R1

           setb P3.7 ; P3.7 =EN = 1

           call delay ; call delay time

           clr P3.7 ; P3.7 =EN = 0

           ret

           ;

 Write_data:

           setb P3.6 ; P3.6 = RS =1

           mov P0,R1 ; P0 = D7 s/d D0 = R1

           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,$

           djnz R0,delay1

           ret

           ;

           End

Hasil :

output