salam kenal semua .......mau sharing nich buat program sensor suhu yang saya buat....tadinya udah di compile pake 8051 IDE tapi kok banyak yah errorrnya ...udat di cek satu2 perasaan udah benar semua....maklum nich klo emang ada yang salah masih tahap pembelajaran.........tolong teman2 di koreksi yah kira2 apanya yah yang salah saia sudah bingung muter2 gak dapat solusi...moga2 aj ad yg ngasih pencerahan....eh skalian nich ...tadinya saya juga udah buat simulasix menggunakan proteus tapi masih bingung buat penempatan port baca LCD-nya ...saia pake LCD 16x2 udah nyambung sana sini tapi kok tampilan belum ada ...apa mungkin dari kesalahan pemrograman apa koneksi dari port LCDnya.....tolong masukannya .....

db0 equ P2.0
db1 equ P2.1
db2 equ P2.2
db3 equ P2.3
db4 equ P2.4
db5 equ P2.5
db6 equ P2.6
db7 equ P2.7
en equ p3.5
rs equ p3.7
rw equ p3.6
LCD
Kipas Bit P2.1
Heater Bit P2.0
Intrupt Bit P2.2
Clr Kipas
Clr Pemanas
pesan:
call delay2
call clear_screen
call data_penampil2
call delay
mov b,#'S'
call kirim_data
call delay
mov b,#'u'
call kirim_data
call delay
mov b,#'h'
call kirim_data
call delay
mov b,#'u'
call kirim_data
call delay
mov b,#' '
call kirim_data
call delay
mov b,#'R'
call kirim_data
call delay
mov b,#'u'
call kirim_data
call delay
mov b,#'a'
call kirim_data
call delay
mov b,#'n'
call kirim_data
call delay
mov b,#'g'
call kirim_data
call delay
mov b,#'a'
call kirim_data
call delay
mov b,#'n'
call kirim_data
call delay

utama:
acall tadc
mov a,p0
cjne a,#50,cek49
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'5'
call kirim_data
call delay
mov b,#'0'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek49:
mov a,62h
cjne a,#49,cek48
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'9'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek48:
mov a,62h
cjne a,#48,cek47
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'8'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek47:
mov a,62h
cjne a,#47,cek46
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'7'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek46:
mov a,62h
cjne a,#46,cek45
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'6'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek45:
mov a,62h
cjne a,#45,cek44
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'5'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek44:
mov a,62h
cjne a,#44,cek43
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek43:
mov a,62h
cjne a,#43,cek42
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'3'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek42:
mov a,62h
cjne a,#42,cek41
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'2'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek41:
mov a,62h
cjne a,#41,cek40
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'1'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek40:
mov a,62h
cjne a,#40,cek39
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'4'
call kirim_data
call delay
mov b,#'0'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
Setb kipas
clr Pemanas
ljmp utama

cek39:
mov a,62h
cjne a,#39,cek38
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'3'
call kirim_data
call delay
mov b,#'9'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
clr kipas
clr Pemanas
ljmp utama

cek38:
mov a,62h
cjne a,#38,cek37
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'3'
call kirim_data
call delay
mov b,#'8'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
clr kipas
clr Pemanas
ljmp utama

cek37:
mov a,62h
cjne a,#37,cek36
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'3'
call kirim_data
call delay
mov b,#'7'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
clr kipas
clr Pemanas
ljmp utama

cek36:
mov a,62h
cjne a,#36,cek35
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'3'
call kirim_data
call delay
mov b,#'6'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
clr kipas
setb Pemanas
ljmp utama

cek35:
mov a,62h
cjne a,#35,cek34
call data_penampil3
call data_scan
mov b,#'('
call kirim_data
call delay
mov b,#'3'
call kirim_data
call delay
mov b,#'5'
call kirim_data
call delay
mov b,#'"'
call kirim_data
call delay
mov b,#'C'
call kirim_data
call delay
mov b,#')'
call kirim_data
call delay
clr kipas
setb Pemanas
ljmp utama

data_penampil2:
mov b,#0ch    ;tulisan tampil atau tidak
call data_scan
mov b,#06h    ;geser kanan / kiri / tetap
call data_scan
mov b,#80h    ;posisi awal karakter
call data_scan
ret
data_penampil3:
mov b,#0ch    ;tulisan tampil atau tidak
call data_scan
mov b,#06h    ;geser kanan / kiri / tetap
call data_scan
mov b,#0c0h    ;posisi awal karakter
call data_scan
ret

clear_screen:
mov b,#01h
call data_scan
ret

data_scan:
mov p1,b
clr rs
clr rw
setb en
call delay
clr en
call delay
ret
kirim_data:
mov p1,b
setb rs
clr rw
setb en
call delay
clr en
call delay
ret
delay:
mov r7,#100
delay:
mov r6,#255
djnz r6,$
djnz r7,delay2
ret
delay2:
mov r7,#100
delay2:
mov r6,#70
delay2: mov r5,#60
djnz r5,$
djnz r6,delay2
djnz r7,delay2
ret
tadc:
mov r7,#80h
adc: mov r6,#50h
djnz r6,$
djnz r7,adc
ret
end