Monday, February 29, 2016

IC 7408

Basic gates are already packed in an IC (Integrated Circuit), for gate use type IC 7408. Since in this case will use the input / input 3 pieces then by combining the two gates can be obtained 3 input meant (by connecting the output 3 feet to 4 feet or five inputs as shown in the image below. gate basic price only had 2 are 0 and 1. valuable 0 if the voltage is worth 0 to 0.8 volts and a valuable one if the voltage is worth 2-5 Volts. Operating gates : If all input is connected to the ground or everything apart then the output will be worth 0, so that the indicator lights are not on. Similarly, if only one apart and other inputs given input voltage of Vcc, the light still will not turn on. the lights will be lit if all inputs rated voltage of Vcc
 

Tuesday, February 2, 2016

Program Jadwal Sholat




Listing Program

;**********************************************************
; Program Waktu Sholat 5
; Mikrokontroler AT89S52
; RTC DS12C887
; Penampil 7-Segment 20 Digit
;**********************************************************
RATUSAN EQU 100 ; 100 x 10000 ud = 1 detik
CACAH EQU -10000
JAM_P EQU 20H
JAM_S EQU 21H
MENIT_P EQU 22H
MENIT_S EQU 23H
DETIK_P EQU 24H
DETIK_S EQU 25H
Tanggal_p equ 26h
Tanggal_s equ 27h
Bulan_p equ 28h
Bulan_s equ 29h
Tahun_p equ 2ah
Tahun_s equ 2bh
hari_p equ 2ch
Hari_s equ 2dh
Jam EQU 2eH
Menit EQU 2fH
Detik EQU 30H
Hari Equ 31h
Tanggal Equ 32h
Bulan Equ 33h
Tahun Equ 34h
Jam_subuh Equ 35h
Menit_subuh Equ 36h
Jam_p_subuh Equ 37h
Jam_s_subuh Equ 38h
Menit_p_subuh Equ 39h
Menit_s_subuh Equ 3ah
Jam_dzuhur Equ 3bh
Menit_dzuhur Equ 3ch
Jam_p_dzuhur Equ 3dh
Jam_s_dzuhur Equ 3eh
Menit_p_dzuhur Equ 41h
Menit_s_dzuhur Equ 42h
Jam_ashar Equ 43h
Menit_ashar Equ 44h
Jam_p_ashar Equ 45h
Jam_s_ashar Equ 46h
Menit_p_ashar Equ 47h
Menit_s_ashar Equ 48h
Jam_maghrib Equ 49h
Menit_maghrib Equ 4ah
Jam_p_maghrib Equ 4bh
Jam_s_maghrib Equ 4ch
Menit_p_maghrib Equ 4dh
Menit_s_maghrib Equ 4eh
Jam_isya Equ 4fh
Menit_isya Equ 50h
Jam_p_isya Equ 51h
Jam_s_isya Equ 52h
Menit_p_isya Equ 53h
Menit_s_isya Equ 54h
Del1 equ 70h
Del2 equ 71h
Tmp equ 73h
Dech equ 76h
DecL equ 77h
Almcount equ 78h
Tmp1 equ 7ch
Detik_lama equ 7dh
K_next bit p3.1
K_menu bit p3.0
K_up bit p3.3
K_down bit p3.2
RTC_cs bit p3.5
en_multiplexer bit p3.4
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Memori RTC
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Secon equ 0
Minute equ 2
Hour equ 4
Day_week equ 6
Day_month equ 7
Month equ 8
Year equ 9
Reg_a equ 10
Reg_b equ 11
;**********************************************************
;Program UTAMA
;**********************************************************
Org 0000H
mov TMOD,#01H ; gunakan timer 0 mode 16 bit (0000 0001)
call tunda1detik
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh
call Inisialisasi_rtc
jmp dtk
;**********************************************************
;Tampilkan data RTC
;**********************************************************
Dtk: call sholat_1
call tampil_Waktu_sholat
cek: jb k_menu,dtk
call hapus_tampilan
jmp setting_1
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Tampil waktu sholat
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Tampil_waktu_sholat:
tampil_jam_subuh:
mov r5,#0
jam_w_subuh:
jb k_menu,Lagi_1
call hapus_tampilan
jmp setting_1
Lagi_1: mov a,jam_subuh
mov b,#10
div ab
mov jam_p_subuh,a
mov jam_s_subuh,b
subuh_jam_p:
mov a,jam_p_subuh
call ubah_ke_segmen
mov p2,#01111111B
call ulang_2
subuh_jam_s:
mov a,jam_s_subuh
call ubah_ke_segmen
CLR P2.6
mov p2,#10111111B
call ulang_2
menit_w_subuh:
mov a,menit_subuh
mov b,#10
div ab
mov menit_p_subuh,a
mov menit_s_subuh,b
subuh_menit_p:
mov a,menit_p_subuh
call ubah_ke_segmen
mov p2,#11011111B
call ulang_2
subuh_menit_s:
mov a,menit_s_subuh
call ubah_ke_segmen
CLR P2.6
mov p2,#11101111B
call ulang_2
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
tampil_jam_dzuhur:
jam_w_dzuhur:
mov a,jam_dzuhur
mov b,#10
div ab
mov jam_p_dzuhur,a
mov jam_s_dzuhur,b
dzuhur_jam_p:
mov a,jam_p_dzuhur
call ubah_ke_segmen
clr en_multiplexer
Call Ch_12
call ulang
dzuhur_jam_s:
mov a,jam_s_dzuhur
call ubah_ke_segmen
clr en_multiplexer
Call Ch_13
call ulang
menit_w_dzuhur:
mov a,menit_dzuhur
mov b,#10
div ab
mov menit_p_dzuhur,a
mov menit_s_dzuhur,b
dzuhur_menit_p:
mov a,menit_p_dzuhur
call ubah_ke_segmen
clr en_multiplexer
Call Ch_14
call ulang
dzuhur_menit_s:
mov a,menit_s_dzuhur
call ubah_ke_segmen
clr en_multiplexer
Call Ch_15
call ulang
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
tampil_jam_ashar:
jam_w_ashar:
mov a,jam_ashar
mov b,#10
div ab
mov jam_p_ashar,a
mov jam_s_ashar,b
ashar_jam_p:
mov a,jam_p_ashar
call ubah_ke_segmen
clr en_multiplexer
Call Ch_8
call ulang
ashar_jam_s:
mov a,jam_s_ashar
call ubah_ke_segmen
clr en_multiplexer
Call Ch_9
call ulang
menit_w_ashar:
mov a,menit_ashar
mov b,#10
div ab
mov menit_p_ashar,a
mov menit_s_ashar,b
ashar_menit_p:
mov a,menit_p_ashar
call ubah_ke_segmen
clr en_multiplexer
Call Ch_10
call ulang
ashar_menit_s:
mov a,menit_s_ashar
call ubah_ke_segmen
clr en_multiplexer
Call Ch_11
call ulang
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
tampil_jam_maghrib:
jam_w_maghrib:
mov a,jam_maghrib
mov b,#10
div ab
mov jam_p_maghrib,a
mov jam_s_maghrib,b
maghrib_jam_p:
mov a,jam_p_maghrib
call ubah_ke_segmen
clr en_multiplexer
Call Ch_4
call ulang
maghrib_jam_s:
mov a,jam_s_maghrib
call ubah_ke_segmen
clr en_multiplexer
Call Ch_5
call ulang
menit_w_maghrib:
mov a,menit_maghrib
mov b,#10
div ab
mov menit_p_maghrib,a
mov menit_s_maghrib,b
maghrib_menit_p:
mov a,menit_p_maghrib
call ubah_ke_segmen
clr en_multiplexer
Call Ch_6
call ulang
maghrib_menit_s:
mov a,menit_s_maghrib
call ubah_ke_segmen
clr en_multiplexer
Call Ch_7
call ulang
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
tampil_jam_isya:
jam_w_isya:
mov a,jam_isya
mov b,#10
div ab
mov jam_p_isya,a
mov jam_s_isya,b
isya_jam_p:
mov a,jam_p_isya
call ubah_ke_segmen
clr en_multiplexer
Call Ch_0
call ulang
isya_jam_s:
mov a,jam_s_isya
call ubah_ke_segmen
clr en_multiplexer
Call Ch_1
call ulang
menit_w_isya:
mov a,menit_isya
mov b,#10
div ab
mov menit_p_isya,a
mov menit_s_isya,b
isya_menit_p:
mov a,menit_p_isya
call ubah_ke_segmen
clr en_multiplexer
Call Ch_2
call ulang
isya_menit_s:
mov a,menit_s_isya
call ubah_ke_segmen
clr en_multiplexer
Call Ch_3
call ulang
djnz r5,ulangi_sholat
ret
ulangi_sholat:
jmp jam_w_subuh
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Tampilan utama 7-segmen
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Display:mov r5,#0
tampilkan_waktu:
jb k_menu,T_jam
call hapus_tampilan
jmp setting_1
T_jam:
mov dptr,#hour
call ambil_rtc_jam
T_jam_p:
mov a,jam_p
call ubah_ke_segmen
mov p2,#01111111B
call ulang_2
T_jam_s:
mov a,jam_s
call ubah_ke_segmen
CLR P2.6
mov p2,#10111111B
call ulang_2
T_menit:
mov dptr,#Minute
call ambil_rtc_menit
T_menit_p:
mov a,menit_p
call ubah_ke_segmen
mov p2,#11011111B
call ulang_2
T_menit_s:
mov a,menit_s
call ubah_ke_segmen
CLR P2.6
mov p2,#11101111B
call ulang_2
T_detik:
mov dptr,#secon
call ambil_rtc_detik
T_detik_p:
mov a,detik_p
call ubah_ke_segmen
clr en_multiplexer
Call Ch_12
call ulang
T_detik_s:
mov a,detik_s
call ubah_ke_segmen
clr en_multiplexer
Call Ch_13
call ulang
Slash_1:
mov p1,#01000000b
clr en_multiplexer
Call Ch_14
call ulang
Slash_2:
mov p1,#01000000b
clr en_multiplexer
Call Ch_15
call ulang
T_hari:
mov dptr,#Day_week
call ambil_rtc_hari
T_hari_p:
mov a,hari_p
call ubah_ke_segmen
clr en_multiplexer
Call Ch_8
call ulang
T_hari_s:
mov a,hari_s
call ubah_ke_segmen
clr en_multiplexer
Call Ch_9
call ulang
T_tanggal:
mov dptr,#Day_month
call ambil_rtc_tanggal
T_tanggal_p:
mov a,tanggal_p
call ubah_ke_segmen
clr en_multiplexer
Call Ch_10
call ulang
T_tanggal_s:
mov a,tanggal_s
call ubah_ke_segmen
clr en_multiplexer
Call Ch_11
call ulang
T_bulan:
mov dptr,#month
call ambil_rtc_bulan
T_bulan_p:
mov a,bulan_p
call ubah_ke_segmen
clr en_multiplexer
Call Ch_4
call ulang
T_bulan_s:
mov a,bulan_s
call ubah_ke_segmen
clr en_multiplexer
Call Ch_5
call ulang
slash_3:
mov p1,#01000000B
clr en_multiplexer
Call Ch_6
call ulang
Slash_4:
mov p1,#01000000B
clr en_multiplexer
Call Ch_7
call ulang
Angka_2:
mov p1,#01011011b
clr en_multiplexer
Call Ch_0
call ulang
Angka_0:
mov p1,#00111111b
clr en_multiplexer
Call Ch_1
call ulang
T_tahun:
mov dptr,#year
call ambil_rtc_tahun
T_tahun_p:
mov a,tahun_p
call ubah_ke_segmen
clr en_multiplexer
Call Ch_2
call ulang
T_tahun_s:
mov a,tahun_s
call ubah_ke_segmen
clr en_multiplexer
Call Ch_3
call ulang
exit0: djnz r5,ulangi
ret
ulangi: jmp tampilkan_waktu
ubah_ke_segmen:
MOV dptr,#data7segmen
movc a,@a+dptr
mov p1,a
ret
ulang: call delay
setb en_multiplexer
ret
ulang_2:
call delay
mov p2,#0ffh
ret
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Scanning waktu sholat
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Sholat_1:
mov dptr,#month
call ambil_rtcne_bulan
clr a
mov a,bulan
cjne a,#1,sholat_2
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_januari
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_januari
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_januari
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_januari
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_januari
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_januari
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_januari
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_januari
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_januari
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_januari
movc a,@a+dptr
mov menit_isya,a
ret
sholat_2:
cjne a,#2,sholat_3
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_februari
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_februari
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_februari
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_februari
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_februari
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_februari
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_februari
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_februari
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_februari
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_februari
movc a,@a+dptr
mov menit_isya,a
ret
sholat_3:
cjne a,#3,sholat_4
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_maret
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_maret
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_maret
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_maret
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_maret
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_maret
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_maret
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_maret
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_maret
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_maret
movc a,@a+dptr
mov menit_isya,a
ret
sholat_4:
cjne a,#4,sholat_5
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_april
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_april
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_april
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_april
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_april
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_april
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_april
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_april
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_april
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_april
movc a,@a+dptr
mov menit_isya,a
ret
sholat_5:
cjne a,#5,sholat_6
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_mei
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_mei
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_mei
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_mei
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_mei
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_mei
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_mei
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_mei
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_mei
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_mei
movc a,@a+dptr
mov menit_isya,a
ret
sholat_6:
cjne a,#6,sholat_7
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_juni
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_juni
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_juni
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_juni
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_juni
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_juni
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_juni
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_juni
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_juni
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_juni
movc a,@a+dptr
mov menit_isya,a
ret
sholat_7:
cjne a,#7,sholat_8
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_juli
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_juli
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_juli
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_juli
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_juli
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_juli
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_juli
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_juli
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_juli
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_juli
movc a,@a+dptr
mov menit_isya,a
ret
sholat_8:
cjne a,#8,sholat_9
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_agustus
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_agustus
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_agustus
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_agustus
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_agustus
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_agustus
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_agustus
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_agustus
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_agustus
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_agustus
movc a,@a+dptr
mov menit_isya,a
ret
sholat_9:
cjne a,#9,sholat_10
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_september
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_september
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_september
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_september
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_september
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_september
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_september
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_september
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_september
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_september
movc a,@a+dptr
mov menit_isya,a
ret
sholat_10:
cjne a,#10,sholat_11
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_oktober
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_oktober
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_oktober
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_oktober
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_oktober
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_oktober
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_oktober
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_oktober
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_oktober
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_oktober
movc a,@a+dptr
mov menit_isya,a
ret
sholat_11:
cjne a,#11,sholat_12
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_november
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_november
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_november
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_november
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_november
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_november
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_november
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_november
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_november
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_november
movc a,@a+dptr
mov menit_isya,a
ret
sholat_12:
cjne a,#12,sholat_13
mov dptr,#day_month
call ambil_rtc_tanggal
mov a,tanggal
mov dptr,#jam_subuh_desember
movc a,@a+dptr
mov jam_subuh,a
mov a,tanggal
mov dptr,#menit_subuh_desember
movc a,@a+dptr
mov menit_subuh,a
mov a,tanggal
mov dptr,#jam_dzuhur_desember
movc a,@a+dptr
mov jam_dzuhur,a
mov a,tanggal
mov dptr,#menit_dzuhur_desember
movc a,@a+dptr
mov menit_dzuhur,a
mov a,tanggal
mov dptr,#jam_ashar_desember
movc a,@a+dptr
mov jam_ashar,a
mov a,tanggal
mov dptr,#menit_ashar_desember
movc a,@a+dptr
mov menit_ashar,a
mov a,tanggal
mov dptr,#jam_maghrib_desember
movc a,@a+dptr
mov jam_maghrib,a
mov a,tanggal
mov dptr,#menit_maghrib_desember
movc a,@a+dptr
mov menit_maghrib,a
mov a,tanggal
mov dptr,#jam_isya_desember
movc a,@a+dptr
mov jam_isya,a
mov a,tanggal
mov dptr,#menit_isya_desember
movc a,@a+dptr
mov menit_isya,a
sholat_13:
ret
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Display Setting
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
disp_set_jam:
mov r5,#5
Set_jam:
mov dptr,#hour
call ambil_rtc_jam
Set_jam_p:
mov a,jam_p
call ubah_ke_segmen
mov p2,#01111111B
call ulang_2
Set_jam_s:
mov a,jam_s
call ubah_ke_segmen
CLR P2.7
mov p2,#10111111B
call ulang_2
djnz r5,set_jam
ret
disp_set_menit:
mov r5,#5
Set_menit:
mov dptr,#minute
call ambil_rtc_menit
Set_menit_p:
mov a,menit_p
call ubah_ke_segmen
mov p2,#11011111B
call ulang_2
Set_menit_s:
mov a,menit_s
call ubah_ke_segmen
CLR P2.5
mov p2,#11101111B
call ulang_2
djnz r5,set_menit
ret
disp_set_hari:
mov r5,#5
Set_hari:
mov dptr,#Day_week
call ambil_rtc_hari
set_hari_p:
mov a,hari_p
call ubah_ke_segmen
clr en_multiplexer
Call Ch_8
call ulang
set_hari_s:
mov a,hari_s
call ubah_ke_segmen
clr en_multiplexer
Call Ch_9
call ulang
ret
disp_set_tanggal:
mov r5,#5
Set_tanggal:
mov dptr,#Day_month
call ambil_rtc_tanggal
set_tanggal_p:
mov a,tanggal_p
call ubah_ke_segmen
clr en_multiplexer
Call Ch_10
call ulang
set_tanggal_s:
mov a,tanggal_s
call ubah_ke_segmen
clr en_multiplexer
Call Ch_11
call ulang
ret
disp_set_bulan:
mov r5,#5
Set_bulan:
mov dptr,#month
call ambil_rtc_bulan
set_bulan_p:
mov a,bulan_p
call ubah_ke_segmen
clr en_multiplexer
Call Ch_4
call ulang
set_bulan_s:
mov a,bulan_s
call ubah_ke_segmen
clr en_multiplexer
Call Ch_5
call ulang
ret
disp_set_tahun:
mov r5,#5
Set_tahun:
mov dptr,#year
call ambil_rtc_tahun
set_tahun_p:
mov a,tahun_p
call ubah_ke_segmen
clr en_multiplexer
Call Ch_2
call ulang
set_tahun_s:
mov a,tahun_s
call ubah_ke_segmen
clr en_multiplexer
Call Ch_3
call ulang
ret
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Settingan tombol jam dan kalender
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Setting_1:
mov almcount,#0
mov dptr,#hour
mov tmp1,#50
bounce_1a:
jnb k_menu,$
djnz tmp1,bounce_1a
Setting_1a:
call disp_set_jam
cekset_1a:
jb k_next,cekset_2a
inc almcount
jnb k_next,$
call hapus_tampilan
jmp setting_2
cekset_2a:
jb k_up,cekset_3a
mov p1,#00h
call up_jam
jmp setting_1a
cekset_3a:
jb k_down,cekset_4a
mov p1,#00h
call down_jam
jmp setting_1a
cekset_4a:
mov tmp1,#0
bounce_1b:
jb k_next,setting_1a
djnz tmp1,bounce_1b
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Setting_2:
jnb k_next,$
mov dptr,#minute
Setting_2a:
call disp_set_menit
cekset_1b:
jb k_next,cekset_2b
inc almcount
jnb k_next,$
call hapus_tampilan
jmp setting_3
cekset_2b:
jb k_up,cekset_3b
mov p1,#00h
call up_menit
jmp setting_2a
cekset_3b:
jb k_down,setting_2a
mov p1,#00h
call down_menit
jmp setting_2a
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Setting_3:
jnb k_next,$
mov dptr,#day_week
Setting_3a:
call disp_set_hari
cekset_1c:
jb k_next,cekset_2c
inc almcount
jnb k_next,$
call hapus_tampilan
jmp setting_4
cekset_2c:
jb k_up,cekset_3c
mov p1,#00h
call up_day
jmp setting_3a
cekset_3c:
jb k_down,setting_3a
mov p1,#00h
call down_day
jmp setting_3a
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Setting_4:
jnb k_next,$
mov dptr,#day_month
Setting_4a:
call disp_set_tanggal
cekset_1d:
jb k_next,cekset_2d
inc almcount
jnb k_next,$
call hapus_tampilan
jmp setting_5
cekset_2d:
jb k_up,cekset_3d
mov p1,#00h
call up_day_month
jmp setting_4a
cekset_3d:
jb k_down,setting_4a
mov p1,#00h
call down_day_month
jmp setting_4a
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Setting_5:
jnb k_next,$
mov dptr,#month
Setting_5a:
call disp_set_bulan
cekset_1e:
jb k_next,cekset_2e
inc almcount
jnb k_next,$
call hapus_tampilan
jmp setting_6
cekset_2e:
jb k_up,cekset_3e
mov p1,#00h
call up_month
jmp setting_5a
cekset_3e:
jb k_down,setting_5a
mov p1,#00h
call down_month
jmp setting_5a
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Setting_6:
jnb k_next,$
mov dptr,#year
Setting_6a:
call disp_set_tahun
cekset_1f:
jb k_next,cekset_2f
inc almcount
jnb k_next,$
call hapus_tampilan
jmp dtk
cekset_2f:
jb k_up,cekset_3f
mov p1,#00h
call up_year
jmp setting_6a
cekset_3f:
jb k_down,setting_6a
mov p1,#00h
call down_year
jmp setting_6a
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; inisialisasi RTC
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Inisialisasi_rtc:
clr rtc_cs
; reg a = UIP DV2 DV1 DV0 RS3 RS2 RS1 RS0
; REG B = SET PIE AIE UIE SQWE DM 24/12 DSE
mov r0,#reg_a
mov a,#00101111b
movx @r0,a
inc r0
mov a,#00001110b
movx @r0,a
clr a
setb rtc_cs
ret
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Ambil data rtc dan tulis ke lcd
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Ambil_data_rtc:
clr rtc_cs
movx a,@dptr
setb rtc_cs
mov decl,a
call hextodec
mov tmp,a
swap a
anl a,#0fh
orl a,#30h
;call write_data
mov a,tmp
anl a,#0fh
orl a,#30h
;call write_data
ret
Ambil_rtc_desimal:
clr rtc_cs
movx a,@dptr
setb rtc_cs
mov decl,a
call hextodec
mov tmp,a
ret
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Baca rtc up rtc down dan tulis rtc
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Baca_rtc_up_jam:
mov r7,#25
Bounce_up_jam:
jb k_up,exit_jam
djnz r7,bounce_up_jam
baca_up_jam:
mov dptr,#hour
call baca_rtc_up
exit_jam:
ret
Baca_rtc_down_jam:
mov r7,#25
baca_down_jam:
jb k_down,exit_jam
djnz r7,baca_down_jam
mov dptr,#hour
call baca_rtc_down
ret
Baca_rtc_up_menit:
mov r7,#25
Bounce_up_menit:
jb k_up,exit_menit
djnz r7,bounce_up_menit
baca_up_menit:
mov dptr,#minute
call baca_rtc_up
exit_menit:
ret
Baca_rtc_down_menit:
mov r7,#25
baca_down_menit:
jb k_down,exit_menit
djnz r7,baca_down_menit
mov dptr,#minute
call baca_rtc_down
ret
Baca_rtc_up_hari:
mov r7,#25
Bounce_up_hari:
jb k_up,exit_hari
djnz r7,bounce_up_hari
baca_up_hari:
mov dptr,#day_week
call baca_rtc_up
exit_hari:
ret
Baca_rtc_down_hari:
mov r7,#25
baca_down_hari:
jb k_down,exit_hari
djnz r7,baca_down_hari
mov dptr,#day_week
call baca_rtc_down
ret
Baca_rtc_up_tanggal:
mov r7,#25
Bounce_up_tanggal:
jb k_up,exit_tanggal
djnz r7,bounce_up_tanggal
baca_up_tanggal:
mov dptr,#day_month
call baca_rtc_up
exit_tanggal:
ret
Baca_rtc_down_tanggal:
mov r7,#25
baca_down_tanggal:
jb k_down,exit_tanggal
djnz r7,baca_down_tanggal
mov dptr,#day_month
call baca_rtc_down
ret
Baca_rtc_up_bulan:
mov r7,#25
Bounce_up_bulan:
jb k_up,exit_bulan
djnz r7,bounce_up_bulan
baca_up_bulan:
mov dptr,#month
call baca_rtc_up
ret
Baca_rtc_down_bulan:
mov r7,#25
baca_down_bulan:
jb k_down,exit_bulan
djnz r7,baca_down_bulan
mov dptr,#month
call baca_rtc_down
exit_bulan:
ret
Baca_rtc_up_tahun:
mov r7,#25
Bounce_up_tahun:
jb k_up,exit_tahun
djnz r7,bounce_up_tahun
baca_up_tahun:
mov dptr,#year
clr rtc_cs
movx a,@dptr
setb rtc_cs
inc a
exit_tahun:
ret
Baca_rtc_down_tahun:
mov r7,#25
baca_down_tahun:
jb k_down,exit_tahun
djnz r7,baca_down_tahun
mov dptr,#year
call baca_rtc_down
ret
baca_rtc_up:
clr rtc_cs
movx a,@dptr
setb rtc_cs
inc a
ret
baca_rtc_down:
clr rtc_cs
movx a,@dptr
setb rtc_cs
dec a
ret
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; tulis rtc
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Tulis_rtcne_jam:
mov dptr,#hour
call tulis_rtc
jmp Tunggu_tombol_dilepas
Tulis_rtcne_menit:
mov dptr,#minute
call tulis_rtc
jmp Tunggu_tombol_dilepas
Tulis_rtcne_hari:
mov dptr,#day_week
call tulis_rtc
jmp Tunggu_tombol_dilepas
Tulis_rtcne_tanggal:
mov dptr,#day_month
call tulis_rtc
jmp Tunggu_tombol_dilepas
Tulis_rtcne_bulan:
mov dptr,#month
call tulis_rtc
jmp Tunggu_tombol_dilepas
Tulis_rtcne_tahun:
mov dptr,#year
call tulis_rtc
jmp Tunggu_tombol_dilepas
Tunggu_tombol_dilepas:
ca: mov r7,#25
cc: jnb k_up,ca
jnb k_down,ca
djnz r7,cc
exit: ret
tulis_rtc:
clr rtc_cs
movx @dptr,a
setb rtc_cs
ret
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Rutin tambah & kurangi menit
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Up_menit:
call baca_rtc_up_menit
cjne a,#59,cek_59
cek_59:
jc belum_59
clr a
belum_59:
jmp tulis_rtcne_menit
Down_menit:
call baca_rtc_down_menit
cjne a,#0ffh,m_255
mov a,#59
m_255:
jmp tulis_rtcne_menit
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Rutin tambah & kurangi jam
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Up_jam:
call baca_rtc_up_jam
cjne a,#24,cek_24
cek_24:
jc belum_24
clr a
belum_24:
jmp Tulis_rtcne_jam
Down_jam:
call baca_rtc_down_jam
cjne a,#0ffh,j_255
mov a,#23
j_255:
jmp Tulis_rtcne_jam
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Rutin tambah & kurangi hari dlm seminggu
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Up_day:
call baca_rtc_up_hari
cjne a,#8,cek_7
cek_7:
jc belum_7
clr a
inc a
belum_7:
jmp tulis_rtcne_hari
Down_day:
call baca_rtc_down_hari
jnz bukan_0_day
mov a,#7
bukan_0_day:
jmp tulis_rtcne_hari
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Rutin tambah & kurangi hari dlm sebulan
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Up_day_month:
call baca_rtc_up_tanggal
cjne a,#32,cek_31
cek_31:
jc belum_31
clr a
inc a
belum_31:
jmp tulis_rtcne_tanggal
Down_day_month:
call baca_rtc_down_tanggal
jnz bukan_0_daymonth
mov a,#31
bukan_0_daymonth:
jmp tulis_rtcne_tanggal
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Rutin tambah & kurangi bulan
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Up_month:
call baca_rtc_up_bulan
cjne a,#13,cek_12
cek_12:
jc belum_12
clr a
inc a
belum_12:
jmp tulis_rtcne_bulan
Down_month:
call baca_rtc_down_bulan
jnz bukan_0_month
mov a,#12
bukan_0_month:
jmp tulis_rtcne_bulan
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Rutin tambah & kurangi tahun
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Up_year:
call baca_rtc_up_tahun
cjne a,#100,cek_99
cek_99:
jc belum_99
clr a
belum_99:
jmp tulis_rtcne_tahun
Down_year:
call baca_rtc_down_tahun
cjne a,#0ffh,y_255
mov a,#99
y_255:
jmp tulis_rtcne_tahun
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; konversi heksa ke desimal
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
hextodec:
mov psw,#0
clr c
mov dech,#0
mov a,decl
swap a
anl a,#0fh ;00001111
mov tmp,a
jz sudah_ditambah
clr a
tambah_16:
add a,#16h ;22 d
da a
mov r2,a
clr a
addc a,dech
mov dech,a
mov a,r2
djnz tmp,tambah_16
sudah_ditambah:
mov tmp,a
mov a,decl
anl a,#0fh
da a
add a,tmp
da a
mov decl,a
; desimal hanya di bawah 100
ret
;**********************************************************
;Program BINER KE DESIMAL
;**********************************************************
ambil_rtc_detik:
call ambil
mov detik,a
call ambil_lagi
MOV detik_p,A
MOV detik_s,B
RET
ambil_rtc_menit:
call ambil
mov menit,a
call ambil_lagi
MOV menit_p,A
MOV menit_s,B
RET
ambil_rtc_jam:
call ambil
mov jam,a
call ambil_lagi
MOV jam_p,A
MOV jam_s,B
RET
ambil_rtc_hari:
call ambil
mov hari,a
call ambil_lagi
MOV hari_p,A
MOV hari_s,B
RET
ambil_rtc_tanggal:
call ambil
mov tanggal,a
call ambil_lagi
MOV tanggal_p,A
MOV tanggal_s,B
RET
ambil_rtc_bulan:
call ambil
mov bulan,a
call ambil_lagi
MOV bulan_p,A
MOV bulan_s,B
RET
ambil_rtcne_bulan:
call ambil
mov bulan,a
ret
ambil_rtc_tahun:
call ambil
mov tahun,a
call ambil_lagi
MOV tahun_p,A
MOV tahun_s,B
RET
ambil: clr rtc_cs
movx a,@dptr
setb rtc_cs
ret
ambil_lagi:
mov b,#100
div ab
mov a,b
mov b,#10
div ab
ret
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Channel Multiplexer
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Ch_0: clr en_multiplexer
mov P2,#11110000B
ret
Ch_1: clr en_multiplexer
mov P2,#11110001B
ret
Ch_2: clr en_multiplexer
mov P2,#11110010B
ret
Ch_3: clr en_multiplexer
mov P2,#11110011B
ret
Ch_4: clr en_multiplexer
mov P2,#11110100B
ret
Ch_5: clr en_multiplexer
mov P2,#11110101B
ret
Ch_6: clr en_multiplexer
mov P2,#11110110B
ret
Ch_7: clr en_multiplexer
mov P2,#11110111B
ret
Ch_8: clr en_multiplexer
mov P2,#11111000B
ret
Ch_9: clr en_multiplexer
mov P2,#11111001B
ret
Ch_10: clr en_multiplexer
mov P2,#11111010B
ret
Ch_11: clr en_multiplexer
mov P2,#11111011B
ret
Ch_12: clr en_multiplexer
mov P2,#11111100B
ret
Ch_13: clr en_multiplexer
mov P2,#11111101B
ret
Ch_14: clr en_multiplexer
mov P2,#11111110B
ret
Ch_15: clr en_multiplexer
mov P2,#11111111B
ret
hapus_tampilan:
mov p2,#0ffh
mov p1,#00h
setb en_multiplexer
call delay
ret
;**********************************************************
;Program WAKTU TUNDA
;**********************************************************
delay: mov R0,#100
delay1: mov R2,#5
djnz R2,$
djnz R0,delay1
ret
tunda1detik:
mov R7,#ratusan
lagi: mov TH0,#high cacah
mov TL0,#low cacah
setb TR0
jnb TF0,$
clr TF0
clr TR0
djnz R7,lagi
ret
;**********************************************************
;Data 7-segmen
;**********************************************************
data7segmen:
db 00111111b
db 00000110b
db 01011011b
db 01001111b
db 01100110b
db 01101101b
db 01111101b
db 00000111b
db 01111111b
db 01101111b
;**********************************************************
;Data Waktu Sholat Januari wis
;**********************************************************
Jam_subuh_januari:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04
Menit_subuh_januari:
db 00,09,10,10,11,11,11,12,13,14,14
db 15,15,15,17,17,18,18,19,20,20
db 21,21,22,22,23,23,23,24,25,25
db 26
Jam_dzuhur_januari:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11
Menit_dzuhur_januari:
db 00,42,43,43,44,44,44,45,46,46,46
db 47,47,47,48,48,49,49,49,50,50
db 50,51,51,51,51,52,52,52,52,52
db 52
Jam_ashar_januari:
db 00,15,15,15,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,15
db 15
Menit_ashar_januari:
db 00,09,10,10,10,10,11,11,11,12,12
db 12,12,12,13,13,13,13,13,13,13
db 13,13,13,13,13,13,13,13,12,12
db 12
Jam_maghrib_januari:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18
Menit_maghrib_januari:
db 00,00,00,00,01,01,01,02,02,02,03
db 03,03,03,04,04,04,05,05,05,05
db 05,05,05,06,06,06,06,06,06,06
db 06
Jam_isya_januari:
db 00,19,19,19,19,19,19,19,19,19,19
db 19,19,19,19,19,19,19,19,19,19
db 19,19,19,19,19,19,19,19,19,19
db 19
Menit_isya_januari:
db 00,11,12,12,12,12,13,13,14,14,14
db 14,14,14,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,15
db 15
;**********************************************************
;Data Waktu Sholat Februari wis
;**********************************************************
Jam_subuh_februari:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04
Menit_subuh_februari:
db 00,26,27,27,27,28,28,29,29,29,30
db 30,30,31,31,31,31,32,32,32,32
db 33,33,33,33,33,33,34,34
Jam_dzuhur_februari:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11
Menit_dzuhur_februari:
db 00,53,53,53,54,53,53,53,53,53,53
db 53,53,53,54,53,53,53,53,53,53
db 53,52,52,52,52,52,52,52
Jam_ashar_februari:
db 00,15,15,15,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,15
db 15,14,14,14,14,14,14,14
Menit_ashar_februari:
db 00,11,11,11,11,10,10,09,09,08,08
db 08,07,06,05,05,04,03,03,02,01
db 00,59,58,57,56,56,54,53
Jam_maghrib_februari:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,17
Menit_maghrib_februari:
db 00,06,06,06,06,05,05,05,05,05,05
db 05,04,04,04,04,03,03,03,03,02
db 02,02,01,01,01,01,00,59
Jam_isya_februari:
db 00,19,19,19,19,19,19,19,19,19,19
db 19,19,19,19,19,19,19,19,19,19
db 19,19,19,19,19,19,19,19
Menit_isya_februari:
db 00,15,14,14,14,14,14,13,13,13,13
db 13,12,12,11,11,11,10,10,10,09
db 09,08,08,07,07,07,06,05
;**********************************************************
;Data Waktu Sholat maret wis
;**********************************************************
Jam_subuh_maret:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04
Menit_subuh_maret:
db 00,34,34,34,34,34,34,34,34,34,34
db 34,34,34,34,34,34,34,34,34,34
db 34,34,34,34,34,33,33,33,33,33
db 33
Jam_dzuhur_maret:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11
Menit_dzuhur_maret:
db 00,51,51,51,51,51,50,50,50,50,49
db 49,49,49,48,48,48,48,47,47,47
db 46,46,46,45,45,45,45,45,44,44
db 43
Jam_ashar_maret:
db 00,14,14,14,14,14,14,14,14,14,14
db 14,14,14,14,14,14,14,14,14,14
db 15,15,15,15,15,15,15,15,15,15
db 15
Menit_ashar_maret:
db 00,54,54,55,55,55,56,56,57,57,57
db 58,58,58,58,59,59,59,59,59,59
db 00,00,00,00,00,00,00,00,00,00
db 00
Jam_maghrib_maret:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17
Menit_maghrib_maret:
db 00,59,59,58,58,58,57,56,56,55,55
db 54,54,54,53,53,52,52,51,50,50
db 49,49,48,48,47,47,47,46,45,45
db 44
Jam_isya_maret:
db 00,19,19,19,19,19,19,19,19,19,19
db 19,19,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18
Menit_isya_maret:
db 00,05,05,04,04,04,03,02,02,01,01
db 00,00,59,58,58,57,57,56,56,56
db 55,54,54,53,53,52,52,52,51,50
db 50
;**********************************************************
;Data Waktu Sholat april wis
;**********************************************************
Jam_subuh_april:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
Menit_subuh_april:
db 00,33,33,33,33,32,32,32,32,32,32
db 32,31,31,31,31,31,31,31,31,31
db 30,30,30,30,30,30,30,30,30,30
Jam_dzuhur_april:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
Menit_dzuhur_april:
db 00,43,43,43,42,42,42,41,41,41,40
db 40,40,40,39,39,39,39,39,38,38
db 38,38,37,37,37,37,37,37,36,36
Jam_ashar_april:
db 00,15,15,15,15,15,15,15,15,15,15
db 15,14,14,14,14,14,14,14,14,14
db 14,14,14,14,14,14,14,14,14,14
Menit_ashar_april:
db 00,00,00,00,00,00,00,00,00,00,00
db 00,59,59,59,59,59,59,59,59,59
db 59,58,58,58,58,58,58,58,58,58
Jam_maghrib_april:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
Menit_maghrib_april:
db 00,44,43,43,43,42,41,41,40,40,39
db 39,38,38,38,37,37,36,36,36,35
db 35,34,34,33,33,33,32,32,32,31
Jam_isya_april:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
Menit_isya_april:
db 00,49,49,49,48,47,47,46,46,46,45
db 45,44,44,44,43,43,42,42,42,41
db 41,41,40,40,40,40,39,39,39,39
;**********************************************************
;Data Waktu Sholat mei wis
;**********************************************************
Jam_subuh_mei:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04
Menit_subuh_mei:
db 00,30,30,30,30,30,30,30,30,30,30
db 30,30,30,30,30,30,30,30,30,30
db 30,30,30,30,30,31,31,31,31,31
db 31
Jam_dzuhur_mei:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11
Menit_dzuhur_mei:
db 00,36,36,36,36,36,36,36,36,35,35
db 35,35,35,35,35,35,35,35,35,36
db 36,36,36,36,36,36,36,36,36,37
db 37
Jam_ashar_mei:
db 00,14,14,14,14,14,14,14,14,14,14
db 14,14,14,14,14,14,14,14,14,14
db 14,14,14,14,14,14,14,14,14,14
db 14
Menit_ashar_mei:
db 00,58,57,57,57,57,57,57,57,57,57
db 57,57,57,57,57,57,57,57,57,57
db 57,57,57,57,57,57,57,57,57,58
db 58
Jam_maghrib_mei:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17
Menit_maghrib_mei:
db 00,31,31,31,30,30,30,30,29,29,29
db 29,29,28,28,28,28,28,28,28,28
db 28,28,28,28,28,28,28,28,28,28
db 28
Jam_isya_mei:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18
Menit_isya_mei:
db 00,38,38,38,38,38,38,37,37,37,37
db 37,37,37,37,37,37,37,37,37,37
db 37,37,37,37,37,37,37,37,37,38
db 38
;**********************************************************
;Data Waktu Sholat juni wis
;**********************************************************
Jam_subuh_juni:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
Menit_subuh_juni:
db 00,31,32,32,32,32,32,33,33,33,33
db 33,34,34,34,34,34,35,35,35,35
db 36,36,36,36,36,37,37,37,37,37
Jam_dzuhur_juni:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
Menit_dzuhur_juni:
db 00,37,37,37,37,37,38,38,38,38,38
db 39,39,39,39,39,39,40,40,40,41
db 41,41,41,41,42,42,42,42,42,43
Jam_ashar_juni:
db 00,14,14,14,14,14,14,14,14,14,14
db 14,15,15,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,15
Menit_ashar_juni:
db 00,58,58,58,58,58,58,59,59,59,59
db 59,00,00,00,00,00,01,01,01,01
db 01,02,02,02,02,02,03,03,03,03
Jam_maghrib_juni:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
Menit_maghrib_juni:
db 00,28,28,28,28,28,28,28,28,28,29
db 29,29,29,29,30,30,30,30,30,31
db 31,31,31,31,32,32,32,32,33,33
Jam_isya_juni:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
Menit_isya_juni:
db 00,38,38,38,38,38,39,39,39,39,39
db 39,40,40,40,40,40,41,41,41,41
db 42,42,42,42,42,43,43,43,43,43
;**********************************************************
;Data Waktu Sholat juli wis
;**********************************************************
Jam_subuh_juli:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04
Menit_subuh_juli:
db 00,37,38,38,38,38,39,39,39,39,39
db 39,39,39,40,40,40,40,40,40,40
db 40,40,40,40,40,40,40,40,40,40
db 40
Jam_dzuhur_juli:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
Menit_dzuhur_juli:
db 00,43,43,43,43,44,44,44,44,44,44
db 45,45,45,45,45,45,45,45,45,45
db 45,45,45,46,46,46,46,46,46,46
db 45
Jam_ashar_juli:
db 00,15,15,15,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,15
db 15
Menit_ashar_juli:
db 00,03,04,04,04,04,05,05,05,05,05
db 05,06,06,06,06,06,06,06,07,07
db 07,07,07,07,70,07,07,07,07,07
db 07
Jam_maghrib_juli:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17
Menit_maghrib_juli:
db 00,33,33,34,34,34,34,35,35,35,35
db 35,36,36,36,36,36,37,37,37,37
db 37,38,38,38,38,38,38,38,38,38
db 39
Jam_isya_juli:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18
Menit_isya_juli:
db 00,43,44,44,44,44,45,45,45,45,45
db 45,46,46,46,46,46,46,46,46,47
db 47,47,47,47,47,47,47,47,47,47
db 47
;**********************************************************
;Data Waktu Sholat agustus wis
;**********************************************************
Jam_subuh_agustus:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04
Menit_subuh_agustus:
db 00,40,39,39,39,39,39,39,38,38,38
db 38,38,37,37,37,37,36,36,36,35
db 35,35,34,34,33,33,33,32,32,31
db 31
Jam_dzuhur_agustus:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11
Menit_dzuhur_agustus:
db 00,45,45,45,45,45,45,45,45,45,44
db 44,44,44,44,44,43,43,43,43,43
db 43,42,42,42,41,41,41,40,40,40
db 39
Jam_ashar_agustus:
db 00,15,15,15,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,14
db 14
Menit_ashar_agustus:
db 00,07,07,07,07,07,07,06,06,06,06
db 06,05,05,05,05,05,04,04,04,03
db 03,03,02,02,02,01,01,00,00,59
db 59
Jam_maghrib_agustus:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17
Menit_maghrib_agustus:
db 00,39,39,39,39,39,39,39,39,39,39
db 39,39,39,39,39,39,39,39,39,39
db 39,39,39,39,39,39,38,38,38,38
db 38
Jam_isya_agustus:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18
Menit_isya_agustus:
db 00,47,47,47,47,47,47,47,47,47,47
db 47,47,46,46,46,46,46,46,46,46
db 46,46,45,45,45,45,45,45,45,44
db 44
;**********************************************************
;Data Waktu Sholat september wis
;**********************************************************
Jam_subuh_september:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
Menit_subuh_september:
db 00,30,30,29,29,29,28,28,27,26,26
db 25,25,25,24,23,23,22,22,21,21
db 20,19,19,18,18,17,17,16,15,15
Jam_dzuhur_september:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
Menit_dzuhur_september:
db 00,39,39,39,38,38,38,37,37,37,36
db 36,36,35,35,34,34,34,33,33,33
db 32,32,32,31,31,31,31,30,29,29
Jam_ashar_september:
db 00,14,14,14,14,14,14,14,14,14,14
db 14,14,14,14,14,14,14,14,14,14
db 14,14,14,14,14,14,14,14,14,14
Menit_ashar_september:
db 00,58,58,57,57,57,56,55,54,54,53
db 53,53,52,51,50,49,49,48,47,47
db 46,45,44,43,43,42,42,40,39,38
Jam_maghrib_september:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
Menit_maghrib_september:
db 00,38,38,38,38,38,37,37,37,37,37
db 37,37,36,36,36,36,36,36,35,35
db 35,35,35,35,35,34,34,34,34,34
Jam_isya_september:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
Menit_isya_september:
db 00,44,44,44,43,43,43,43,43,42,42
db 42,42,42,42,41,41,41,41,41,41
db 41,40,40,40,40,40,40,40,40,40
;**********************************************************
;Data Waktu Sholat oktober wis
;**********************************************************
Jam_subuh_oktober:
db 00,04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 03
Menit_subuh_oktober:
db 00,14,14,13,13,12,11,11,10,10,09
db 08,08,07,07,06,06,05,05,05,04
db 03,03,02,02,02,02,01,00,00,00
db 59
Jam_dzuhur_oktober:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11
Menit_dzuhur_oktober:
db 00,43,43,43,42,42,42,41,41,41,40
db 40,40,40,39,39,39,39,39,38,38
db 38,38,37,37,37,37,37,37,36,36
db 23
Jam_ashar_oktober:
db 00,14,14,14,14,14,14,14,14,14,14
db 15,14,14,14,14,14,14,14,14,14
db 14,14,14,14,14,14,14,14,14,14
db 14
Menit_ashar_oktober:
db 00,38,37,36,36,35,33,32,31,31,30
db 29,29,27,28,29,29,30,30,30,31
db 32,32,33,33,34,34,35,36,36,37
db 37
Jam_maghrib_oktober:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17
Menit_maghrib_oktober:
db 00,34,34,34,34,34,33,33,33,33,33
db 33,33,33,33,33,33,33,33,33,33
db 33,33,33,33,33,33,33,34,34,34
db 34
Jam_isya_oktober:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18
Menit_isya_oktober:
db 00,40,39,39,39,39,39,39,39,39,39
db 39,39,39,39,39,39,40,40,40,40
db 40,40,40,40,41,41,41,41,41,42
db 42
;**********************************************************
;Data Waktu Sholat november wis
;**********************************************************
Jam_subuh_november:
db 00,03,03,03,03,03,03,03,03,03,03
db 03,03,03,03,03,03,03,03,03,03
db 03,03,03,03,03,03,03,03,03,03
Menit_subuh_november:
db 00,59,58,58,58,58,57,57,57,57,57
db 56,56,56,56,55,55,55,55,55,55
db 55,55,55,55,55,55,55,55,56,56
Jam_dzuhur_november:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
Menit_dzuhur_november:
db 00,23,23,23,23,23,23,23,23,23,23
db 23,23,23,23,24,24,24,24,24,25
db 25,25,25,26,26,26,27,27,27,28
Jam_ashar_november:
db 00,14,14,14,14,14,14,14,14,14,14
db 15,14,14,14,14,14,14,14,14,14
db 14,14,14,14,14,14,14,14,14,14
Menit_ashar_november:
db 00,38,38,38,39,40,40,41,41,42,42
db 42,43,44,44,45,45,46,46,47,47
db 48,48,49,50,50,51,51,52,52,53
Jam_maghrib_november:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
Menit_maghrib_november:
db 00,34,34,34,35,35,35,35,36,36,36
db 36,37,37,37,38,38,38,38,39,39
db 40,40,41,41,41,42,42,43,43,44
Jam_isya_november:
db 00,18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
db 18,18,18,18,18,18,18,18,18,18
Menit_isya_november:
db 00,42,43,43,43,43,44,44,45,45,45
db 45,46,46,47,47,48,48,48,49,50
db 50,51,51,52,52,53,53,54,54,55
;**********************************************************
;Data Waktu Sholat desember wis Alhamdulillah
;**********************************************************
Jam_subuh_desember:
db 00,03,03,03,03,03,03,03,03,03,03
db 03,03,03,04,04,04,04,04,04,04
db 04,04,04,04,04,04,04,04,04,04
db 04
Menit_subuh_desember:
db 00,56,56,56,56,57,57,57,58,58,58
db 59,59,59,00,00,00,00,01,02,02
db 03,03,04,04,04,05,06,06,07,08
db 08
Jam_dzuhur_desember:
db 00,11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11,11,11,11,11,11,11,11,11,11
db 11
Menit_dzuhur_desember:
db 00,28,28,28,29,29,30,30,31,31,31
db 32,33,33,34,34,34,34,35,36,36
db 37,37,38,38,38,39,40,40,41,41
db 42
Jam_ashar_desember:
db 00,14,14,14,14,14,14,14,14,14,14
db 14,15,15,15,15,15,15,15,15,15
db 15,15,15,15,15,15,15,15,15,15
db 15
Menit_ashar_desember:
db 00,53,53,54,55,56,56,57,57,58,58
db 59,00,00,01,01,02,02,03,03,04
db 04,05,05,05,06,07,07,08,08,08
db 09
Jam_maghrib_desember:
db 00,17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17,17,17,17,17,17,17,17,17,17
db 17
Menit_maghrib_desember:
db 00,44,44,45,46,46,47,47,48,48,48
db 49,50,50,51,51,52,52,53,53,54
db 54,55,55,55,56,57,57,58,58,59
db 59
Jam_isya_desember:
db 00,18,18,18,18,18,18,18,18,19,19
db 19,19,19,19,19,19,19,19,19,19
db 19,19,19,19,19,19,19,19,19,19
db 19
Menit_isya_desember:
db 00,55,55,56,57,58,58,59,59,00,00
db 01,02,02,03,03,04,04,05,06,06
db 07,07,07,07,08,09,09,10,10,11
db 11
end

Serial

                org         0000h
                jmp        henky
                org         23h
                jmp        hao

henky:  mov       scon,#50h
                mov       tmod,#20h
                mov       th1 ,#0fdh
                mov       pcon,#00h

        setb               tr1
                setb       es
                setb       ea
                sjmp      $

               
hao:       mov       a,sbuf
                clr           ri

               
ling:        cjne       a,#30h,yi
                mov       p2,#11000000b
                clr           ri
                jmp        duo


yi:           cjne       a,#31h,er
                mov       p2,#11111001b
                clr           ri
                jmp        duo

               
er:          cjne       a,#31h,san
                mov       p2,#11111001b
                clr           ri
                jmp        duo

               
san:
       cjne                a,#30h,si
       mov                p2,#11000000b
       clr    ri
       jmp duo
si:
       cjne                                a,#39h,wu
       mov                p2,#10011000b
       clr    ri
       jmp duo

      
wu:
       cjne                                a,#34h,duo
       mov                p2,#10011001b
       clr    ri
       jmp duo




     
duo:
                mov       sbuf ,a
                jnb         TI, $
                clr           TI
                retI
                end
      
      


Monday, February 1, 2016

Papan Pergantian

org         0h
jmp        start

;subrotine delay time
delay:    mov       r4,#2     
delay1: mov       r5,#180
delay2: mov       r6,#225
delay3: djnz       r6,delay3
                djnz       r5,delay2
                djnz       r4,delay1
                ret

start:     mov       r0,#0
                mov       r1,#0

cek1:     jb            p1.0,cek2
                lcall         delay
                mov       a,r0       
                lcall         disp       
                mov       p0,a      
                lcall         delay

                inc          r0           
                mov       a,r0       
                cjne       a,#10,cek1         
                jmp        start      

cek2:     jb            p1.1,cek1
                lcall         delay
                mov       a,r1       
                lcall         disp       
                mov       p2,a      
                lcall         delay

                inc          r1           
                mov       a,r1       
                mov       r0,#0     
                cjne       a,#10,cek2         
                lcall         delay
                jmp        start      



;subroutine ini digunakan untuk menmpilkan digit
disp:      inc          a
                movc     a,@a+pc
                ret
;=================================
;Data 7segment common anode
db           0C0h      ;digit 0
db           0F9h      ;digit 1
db           0A4h      ;digit 2
db           0B0h      ;digit 3
db           99h         ;digit 4
db           92h         ;digit 5
db           83h         ;digit 6
db           0F8h      ;digit 7 
db           80h         ;digit 8
db           98h         ;digit 9
;=================================

end ;program berakhir