Temperature Control & Time Setting Display LCD Char

Gambar 8.2. Rangkaian setting waktu dan dan suhu untuk simulasi kontrol ON-OFF dengan display ke LCD Character 2 x 16.

Pada gambar tersebut, mempunyai kemampuan yang sama seperti halnya yang telah kita bahas pada gambar 8.1, yaitu suatu sistem yang mensimulasikan kontrol suhu secara ON-OFF dengan setting melalui tombol-tombola KEYPAD 4 x 4, dan tampilan LCD Character 1 x 16

Listing Program Anda Dapat Lihat Di Bawah

;===================================================================
;DRAFT LISTING PROGRAM SETTING SUHU DAN WAKTU SISTEM CONTROL SUHU
;Pada program ini suhu dan waktu pada sistem dapat disetting dg
;menggunakan tombol keypad dan bila tombol enter ditekan maka
;data akan diterima oleh sistem uC dan tombol Esc ditekan maka
;akan kembali ke awal dari setting.
;Untuk melihat hasil pembacaan suhu atau waktu dapat dilihat
;pada layar LCD.Pada program ini akan ditampilkan waktu
;detik dan menit dengan Format MM:DD dan display suhu dengan format
;000.0 oC Program ini bekerja dengan sistem interupsi yang
;dibangkitkan dari Timer 0 oleh TF0
;*******************Copyright**************************************
; Forever:Mov @elektronika-elektronika.blogspot.com
; sjmp Forever
;Powered By Google
;Listing Program Char
;==================================================================
dispclr equ 00000001b
funcset equ 00111000b
entrmod equ 00000110b
dispon equ 00001100b
cursor equ 00001110b
blink equ 00001101b
geserL equ 00011011b
geserR equ 00011111b
;
kolom1 bit p2.0
kolom2 bit p2.1
kolom3 bit p2.2
kolom4 bit p2.3
baris1 bit p2.4
baris2 bit p2.5
baris3 bit p2.6
baris4 bit p2.7
keyport equ P2
keydata equ 7bh
keybounc equ 7ch
;
ADC_WR bit P1.5
ADC_INT bit P1.6
ControlBit bit 20h.0
DataADC equ 60h
DataSetting equ 61h
SettingSatuan equ 65h
SettingPuluhan equ 66h
SettingRatusan equ 67h
detikPuluhan equ 68h
detikSatuan equ 69h
MenitPuluhan equ 6ah
MenitSatuan equ 6bh
SuhuSatuan equ 6ch
SuhuPuluhan equ 6dh
SuhuRatusan equ 6eh
DataSetting equ 6fh
;
pencacah20 equ 70h
pencacah60 equ 71h
menit equ 72h
jam equ 73h
menit1 equ 74h
menit10 equ 75h
jam1 equ 76h
jam10 equ 77h
detik equ 78h
detik1 equ 79h
detik10 equ 7ah
org 0h
ljmp start
;==================================
;Lokasi vektor interupsi TF0 ->0Bh
;==================================
org 3h
reti
org 0bh
ajmp timerinterrupt
org 13h
reti
org 23h
reti
;
org 30h
;
write_inst:
mov P1,#0h ;untuk memuliskan
mov P0,R1 ;intruksi ke LCD
setb P1.1 ;module
acall delay
clr P1.1
ret
;
write_data:
mov P1,#01 ;untuk menuliskan
mov P0,R1 ;data ke LCD
setb P1.1 ;module
acall delay
clr p1.1
ret
;
delay: mov R0,#0
delay1: mov R5,#50h
djnz R5,$
djnz R0,delay1
ret
;
;========================================================================
;Display clear = 00000001b=>semua tampilan akan direset
;Fungtion set = 00111000b=>data lenght 8 bit, dan dua baris LCD karakter
; ukuran karakter font 5 x7
;Display on = 00001100b=>Display on, kursor off,kursor blink off
;Entry mode = 00000110b=>Set increment
;========================================================================
init_lcd:
acall delay
acall delay
acall delay
mov r1,#dispclr
acall write_inst
mov r1,#funcset
acall write_inst
mov r1,#dispon
acall write_inst
mov r1,#entrmod
acall write_inst
ret
;
wr_Password:
mov dptr,#kalPassword
mov r3,#16
mov r1,#80h
acall write_inst
wrPassword:
clr a
movc a,@a+dptr
mov r1,A
inc dptr
acall write_data
djnz r3,wrPasword
ret
;
wr_Settime:
mov dptr,#kalSettime
mov r3,#16
mov r1,#80h
acall write_inst
wrSettime:
clr a
movc a,@a+dptr
mov r1,A
inc dptr
acall write_data
djnz r3,wrSettime
ret
;
;
wr_Setsuhu:
mov dptr,#kalSetsuhu
mov r3,#16
mov r1,#80h
acall write_inst
wrSetsuhu:
clr a
movc a,@a+dptr
mov r1,A
inc dptr
acall write_data
djnz r3,wrSetsuhu
ret
;
wr_Suhu:
mov dptr,#kalSuhu
mov r3,#16
mov r1,#80h
acall write_inst
wrSuhu:
clr a
movc a,@a+dptr
mov r1,A
inc dptr
acall write_data
djnz r3,wrsuhu
ret
;
wr_Waktu:
mov dptr,#kalWaktu
mov r3,#16
mov r1,#0c0h
acall write_inst
wrWaktu:
clr a
movc a,@a+dptr
mov r1,A
inc dptr
acall write_data
djnz r3,wrWaktu
ret
;
wr_Ok:
mov dptr,#kalOk
mov r3,#16
mov r1,#0c0h
acall write_inst
wrOk:
clr a
movc a,@a+dptr
mov r1,A
inc dptr
acall write_data
djnz r3,wrOk
ret
;
wr_On:
mov dptr,#kalOn
mov r3,#5
mov r1,#08bh
acall write_inst
wrOn:
clr a
movc a,@a+dptr
mov r1,A
inc dptr
acall write_data
djnz r3,wrOn
ret
;
wr_Off:
mov dptr,#kalOff
mov r3,#5
mov r1,#08bh
acall write_inst
wrOff:
clr a
movc a,@a+dptr
mov r1,A
inc dptr
acall write_data
djnz r3,wrOff
ret
;
;====================================
; routine u/ baca keypad 4x4
;====================================
Keypad4x4:
mov keybounc,#255
mov keyport,#0FFh
clr kolom1
ul1: jb baris1,key1
djnz keybounc,ul1
mov keydata,#0ch
ret
key1: jb baris2,key2
djnz keybounc,key1
mov keydata,#0dh
ret
key2: jb baris3,key3
djnz keybounc,key2
mov keydata,#0eh
ret
key3: jb baris4,key4
djnz keybounc,key3
mov keydata,#0fh
ret
;
key4: setb kolom1
clr kolom2
jb baris1,key5
djnz keybounc,key4
mov keydata,#0bh
ret
key5: jb baris2,key6
djnz keybounc,key5
mov keydata,#9
ret
key6: jb baris3,key7
djnz keybounc,key6
mov keydata,#6
ret
key7: jb baris4,key8
djnz keybounc,key7
mov keydata,#3h
ret
;
key8: setb kolom2
clr kolom3
jb baris1,key9
djnz keybounc,key8
mov keydata,#0
ret
key9: jb baris2,key10
djnz keybounc,key9
mov keydata,#8
ret
key10: jb baris3,key11
djnz keybounc,key10
mov keydata,#5
ret
key11: jb baris4,key12
djnz keybounc,key11
mov keydata,#02
ret
;
key12: setb kolom3
clr kolom4
jb baris1,key13
djnz keybounc,key12
mov keydata,#09
ret
key13: jb baris2,key14
djnz keybounc,key13
mov keydata,#07
ret
key14: jb baris3,key15
djnz keybounc,key14
mov keydata,#04
ret
key15: jb baris4,key16
djnz keybounc,key15
mov keydata,#01
ret
key16: mov keydata,#0FFh
ret
;
TipePassword:
acall init_LCD
acall wr_Password
Pass1:
acall keypad4x4
mov A,keydata
cjne A,#0FFh,PassChar1
sjmp Pass1
PassChar1:
cjne A,#1,Pass1
mov r1,#08bh
acall write_inst
add A,#30h
mov r1,A
acall write_data
acall delay
acall delay
;
Pass2:
acall keypad4x4
mov a,keydata
cjne a,#0ffh,PassChar2
sjmp Pass2
PassChar2:
cjne a,#2,Pass2
mov r1,#08ch
acall write_inst
add a,#30h
mov r1,a
acall write_data
acall delay
acall delay
;
Pass3:
acall keypad4x4
mov a,keydata
cjne a,#0ffh,PassChar3
sjmp Pass3
PassChar3:
cjne a,#3,Pass3
mov r1,#08dh
acall write_inst
add a,#30h
mov r1,a
acall write_data
acall delay
acall delay
;
acall kalOk
YourChoose:
acall keypad4x4
mov a,keydata
cjne a,#0ffh,Choose1
sjmp YourChoose
Choose1:
cjne a,#0bh,choose2
sjmp QuitPassword
Check2:
cjne a,#0fh,Yourchoose
sjmp TipePassword
QuitPassword:
ret
;=============================================
;Subrutine Setting Waktu
;=============================================
SettingWaktu:
Acall Init_LCD
Acall Wr_Settime
TypeDetikPuluhan:
acall keypad4x4
mov A,keydata
cjne A,#0FFh,WrDetikPuluhan
sjmp TypeDetikPuluhan
WrDetikPuluhan:
mov r1,#08dh
acall write_inst
mov detikPuluhan,a
add a,#30h
mov r1,a
acall write_data
acall delay
acall delay
acall delay
;
TypeDetikSatuan:
acall keypad4x4
mov A,keydata
cjne A,#0FFh,WrDetikSatuan
sjmp TypeDetikSatuan
WrDetikSatuan:
mov r1,#08eh
acall write_inst
mov detikSatuan,a
add a,#30h
mov r1,a
acall write_data
acall delay
acall delay
acall delay
;
TypeMenitPuluhan:
acall keypad4x4
mov A,keydata
cjne A,#0FFh,WrMenitPuluhan
sjmp TypeMenitPuluhan
WrMenitPuluhan:
mov r1,#089h
acall write_inst
mov MenitPuluhan,a
add a,#30h
mov r1,a
acall write_data
acall delay
acall delay
acall delay
;
TypeMenitSatuan:
acall keypad4x4
mov A,keydata
cjne A,#0FFh,WrMenitSatuan
sjmp TypeMenitSatuan
WrMenitSatuan:
mov r1,#08ah
acall write_inst
mov MenitSatuan,a
add a,#30h
mov r1,a
acall write_data
acall delay
acall delay
acall delay
;
acall kalOK
;
Your_Choose:
acall keypad4x4
mov a,keydata
cjne a,#0ffh,Choose_1
sjmp Your_Choose
Choose_1:
cjne a,#0bh,choose_2
sjmp QuitSettingWaktu
Choose_2:
cjne a,#0fh,Your_choose
sjmp SettingWaktu
QuitSettingWaktu:
mov a,MenitPuluhan
mov b,#10
mul ab
mov menit,a
mov a,MenitSatuan
add a,menit
mov menit,a
;
mov a,detikPuluhan
mov b,#10
mul ab
mov detik,a
mov a,detikSatuan
add a,detik
mov detik,a
ret
;
;=============================================
;Subrutine Setting Suhu
;=============================================
SettingSuhu:
Acall Init_LCD
Acall Wr_SetSuhu
TypeSuhuRatusan:
acall keypad4x4
mov A,keydata
cjne A,#0FFh,WrSuhuRatusan
sjmp TypeSuhuRatusan
WrSuhuRatusan:
mov r1,#089h
acall write_inst
mov SuhuRatusan,a
add a,#30h
mov r1,a
acall write_data
acall delay
acall delay
acall delay
;
TypeSuhuPuluhan:
acall keypad4x4
mov A,keydata
cjne A,#0FFh,WrSuhuPuluhan
sjmp TypeSuhuPuluhan
WrSuhuPuluhan:
mov r1,#08ah
acall write_inst
mov SuhuPuluhan,a
add a,#30h
mov r1,a
acall write_data
acall delay
acall delay
acall delay
;
TypeSuhuSatuan:
acall keypad4x4
mov A,keydata
cjne A,#0FFh,WrSuhuSatuan
sjmp TypeSuhuSatuan
WrSuhuSatuan:
mov r1,#08bh
acall write_inst
mov SuhuSatuan,a
add a,#30h
mov r1,a
acall write_data
acall delay
acall delay
acall delay
;
acall kalOK
;
Y_ourChoose:
acall keypad4x4
mov a,keydata
cjne a,#0ffh,C_hoose1
sjmp Y_ourChoose
C_hoose1:
cjne a,#0bh,c_hoose2
sjmp QuitSettingSuhu
C_hoose2:
cjne a,#0fh,Y_ourchoose
sjmp SettingSuhu
QuitSettingSuhu:
mov a,Suhupuluhan
mov b,#10d
mul ab
mov Datasetting,a
mov a,Suhuratusan
mov b,#100d
mul ab
add a,Datasetting
add a,Suhusatuan
mov Datasetting,a
ret
;
;============================================
;Subrutine untuk membaca data dari ADC dan
;disimpan di memori dataADC
;============================================
ADC:
clr ADC_WR ; start of conversion
setb ADC_WR
not_EOC:
jb ADC_INT,not_EOC
lcall delay
mov a,p3
mov dataADC,a
ret
;=============================================
;Subrutine untuk display data ADC ke LCD
;=============================================
DisplaySuhu:
mov r1,#087h
Acall write_inst
mov a,DataADC
mov DPTR,#Pecahan
movc A,@A+DPTR
mov LTPecahanSuhu,A
add a,#30h
mov R1,A
Acall write_data
;
mov r1,#085h
Acall write_inst
mov a,DataADC
mov DPTR,#Satuan
movc A,@A+DPTR
mov LTSatuanSuhu,A
add a,#30h
mov R1,A
Acall write_data
;
mov r1,#084h
Acall write_inst
mov a,DataADC
mov DPTR,#Puluhan
movc A,@A+DPTR
mov LTPuluhanSuhu,A
add a,#30h
mov R1,A
Acall write_data
;
mov r1,#083h
Acall write_inst
mov a,DataADC
mov DPTR,#Ratusan
movc A,@A+DPTR
mov LTRatusanSuhu,A
add a,#30h
mov R1,A
Acall write_data
;
;==============================================================================
;Menyatukan hasil Pembacaaan Suhu dari Look Up Table dalam bentuk satu variabel
;DataADC = SuhuRatusan*100 + SuhuPuluhan*10 + SuhuSatuan
;==============================================================================
mov a,LTPuluhanSuhu
mov b,#10d
mul ab
mov DataADC,a
mov a,LTRatusanSuhu
mov b,#100d
mul ab
add a,DataADC
add a,LTsatuanSuhu
mov DataADC,a
ret
;
;=========================================
;PROCEDURE CONTROL
;BEKERJA DENGAN CARA MEMBANDINGKAN DATA ADC
;DAN DATA SETTING, HASIL DIOUTPUTKAN PADA
;BIT P1.4
;=========================================
ControlSuhu:
mov a,Datasetting
mov b,dataADC
clr c
subb a,b
jnz OnHeater
ret
OnHeater:
jc OffHeater
Clr p1.4 ;hidupkan heater
Setb ControlBit
acall wr_On
ret
OffHeater:
Setb p1.4 ;matikan heater
Clr ControlBit
acall wr_Off
ret
;
;=================================================
;Subrutine untuk menampilkan waktu ke Seven Segmen
;=================================================
DisplayWaktu:
mnt1: mov r1,#0c4h
lcall write_inst
mov a,menit1
add a,#30h
mov r1,a
lcall write_data
;
mnt2: mov r1,#0c3h
lcall write_inst
mov a,menit2
add a,#30h
mov r1,a
lcall write_data
;
dtk1: mov r1,#0c7h
lcall write_inst
mov a,detik1
add a,#30h
mov r1,a
lcall write_data
;
dt2: mov r1,#0c6h
lcall write_inst
mov a,detik2
add a,#30h
mov r1,a
lcall write_data
ret
;
delay: mov R0,#0
delay1: mov R2,#0fh
djnz R2,$
djnz R0,delay1
ret
;
;==============================================
;Subrutine untuk inisialisasi kerja dari timer
;dengan menggunakan mode 1 timer 0 16 bit
;dan pengaktivan interupsi TF0
;==============================================
InitTimer:
clr ControlBit
mov pencacah20,#20
mov pencacah60,#60
mov detik,#0
mov menit,#0
acall UpdateDisplay
anl TMOD,#11110000b
orl TMOD,#00000001b
mov tl0,#0afh
mov th0,#03ch
setb ET0
setb EA
setb TR0
ret
;
;==============================================================
;This is the most importan subrutine, to serve interuption when
;TF0 Timer 0 Call
;Instruksi berikut digunakan untuk memberikan layanan
;interupsi, dan akan terjadi setiap 0.05 detik.
;dan data 50.000 ( 3CAFh ) diloadkan ke TL1 dan TH1
;setiap subrutine ini dilayani.
;Pada subrutine ini pencacah20 akan didecrement sampai
;menghasilkan nilai Pencacah20=0, yang terjadi setiap
;20 X 50000 uS = 20 X 0,05s = 1 s,apabila ini terjadi maka
;akan dipanggil subrutine jamdigital, untuk melakukan increment
;data detik, menit, atau jam
;==============================================================
timerinterrupt:
mov tl0,#0afh
mov th0,#03ch
djnz pencacah20,Endinterupsi
mov pencacah20,#20
;
acall ScanSettingJam
acall Jamdigital
djnz pencacah60,Endinterupsi
mov pencacah60,#60
;
acall jamdigital
Endinterupsi:
reti
;
;=============================================================
;Subrutine untuk menambah jumlah cacahan dari jam digital
;Detik dan menit, bila detik sudah menunjukan 60 maka
;counter menit akan bekerja untuk menambah jumlah hitungannnya
;Subritine ini akan dipanggil setiap detik sesuai dg interupsi
;=============================================================
jamdigital:
dec detik
mov a,#0
cjne a,detik,UpdateDisplay
mov detik,#60
;
satumenit:
dec menit
mov A,#0
cjne A,menit,UpdateDisplay
setb P3.3; Mematikan beban
ljmp endProses
;
UpdateDisplay:
mov a,detik
mov b,#10
div ab
mov detik1,b
mov detik10,a
;
mov a,menit
mov b,#10
div ab
mov menit1,b
mov menit10,a
ret
;
;======================================================================
;Rutine untuk display kode dan deteksi tombol enter
;1. Display kode masing-masing kelompok dengan memunculkan inisial
; huruf nama masing-masing anggota kelompok pada 7 segmen.
; Pada contoh ini dimunculkan kode 4 3 2 1
;2. Deteksi tombol enter dari port P3.3, apabila tidak ditekan maka
; akan memunculkan display 4 3 2 1 terus menerus, bila tombol ditekan
; maka akan melanjutkan instruksi dibawahnya.
;3. Scan Setting waktu yang diperlukan untuk pengoperasian alat dan
; setting akan disimpan bila tombol enter ditekan
;4. Scan Setting suhu yang diinginkan, dan disimpan bila tombol enter
; ditekan
;5. Label Start Operating akan mulai bekerja dengan melakukan control suhu
; sampai suhu tercapai bila suhu tercapai maka timer akan segera
; diinisialisasi dan beban mulai dihidupkan
;======================================================================
Start:
acall Password
acall SettingWaktu
acall SettingSuhu
;
acall Init_LCD
acall KalSuhu
StartOperating:
acall DisplaySuhu
acall ControlSuhu
jb ControlBit,StartOperating
;
acall InitTimer
;
Clr P1.4 ;Menghidupkan Beban
;
;======================================================================
;Main rutine
;1. Memanggil subrutine Control Suhu untuk tetap mempertahankan suhu
; Setting
;2. Memanggil Subrutine Display Waktu Untuk mengetahui waktu sisa
; dari waktu pengoperasian beban
;3. Scan tombol P3.3 untuk kembali ke awal, Scan tombol P3.6 untuk
; menampilkan display suhu, scan tombol P3.7 untuk menampilkan
; display Waktu
;4. Looping Forever akan terjadi untuk dua pilihan tersebut diatas
;======================================================================
Forever:
Acall DisplaySuhu
Acall ControlSuhu
Acall DisplayWaktu
;
acall keypad4x4
mov a,keydata
cjne a,#0ffh,Cancel
sjmp Forever
Cancel:
cjne a,#0fh,Forever
ljmp Start
;
;======================================================================
; L O O K U P T A B L E
; Suhu = DataADC*100/255
;======================================================================
;
Pecahan:
db 0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2,6,0,4,8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4,8,2,6
db 0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2,6,0,4,8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4,8,2
db 6,0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2,6,0,4,8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4,8
db 2,6,0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2,6,0,4,8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4
db 8,2,6,0,4,8,2,6,0,4,7,1,5,9,3,7,1,5,9,3,7,1,5,8,2,6,0,4,8,2,6,0,4,8,2,5,9,3,7,1,5,9,3,7,1,5,9,3,6,0,4,8,2,6,0
;
Satuan:
db 0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9,9,9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8,8,9,9
db 0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9,9,9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8,8,9
db 9,0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9,9,9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8,8
db 9,9,0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9,9,9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8
db 8,9,9,0,0,0,1,1,2,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9,9,9,0,0,1,1,1,2,2,2,3,3,4,4,4,5,5,6,6,6,7,7,8,8,8,9,9,0
;
Puluhan:
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
db 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
db 3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5
db 5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
db 7,7,7,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0
;
Ratusan:
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
;
KalPassword: db 'Password: '
KalSetTime: db 'Set.Time:00m:00d'
KalSetSuhu: db 'Set.Suhu:000.0oC'
KalSuhu: db 'S=000.0 oC OnOff'
KalWaktu: db 'W=00:00 Esc->Out'
KalOk: db 'Ent>Ok Esc>Cncel'
KalOn: db 'On '
KalOff: db ' Off'
endProses:
end