.DATA
	Org 60H

HIDROGEN	DS	1
ETHANOL		DS	1

;RAM Internal yang digunakan DST-52
;30H - 38H digunakan oleh Program Monitor DDT-52 namun tetap dapat digunakan
;pada program aplikasi anda. 
;39H digunakan oleh variabel delay, bebas digunakan bila rutin2 delay tidak 
;dipanggil
;3AH dan 3BH digunakan oleh variabel Serial EEPROM, bebas digunakan bila rutin2
;Serial EEPROM tidak dipanggil
;3CH - 4CH digunakan oleh Program Monitor DDT-52 namun tetap bebas anda gunakan
;selama proses trace dan breakpoint tidak dilakukan
;4DH - 4EH digunakan oleh LCD Grafik, namun bebas digunakan selama rutin-rutin
;LCD Grafik tidak dipanggil
;50H - 5FH digunakan oleh Program Monitor DDT-52 namun tetap dapat digunakan
;pada program aplikasi anda

 	.CODE
Hex_ASCII2   EQU 002EH             
;Konversi Hexa ke 2 byte ASCII
;- Akumulator diisi bilangan hexa yang akan dikonversi
;Hasil:
;- Akumulator menyimpan nibble atas
;- Register B menyimpan nibble bawah

Hex_ASCII1   EQU 003AH             
;Konversi Hexa ke 1 byte ASCII
;- Akumulator diisi bilangan hexa yang akan dikonversi
;Hasil:
;- Akumulator  menyimpan nibble bawah

ASCII_HEX   EQU 0047H             
;Konversi 2 byte ASCII ke hexa
;- Akumulator diisi nibble atas
;- Register B diisi nibble bawah
;Hasil:
;- Akumulator menyimpan hasil konversi

Dec_DPTR   EQU 0064H             
;Mengurangi isi dari Register DPTR

Capitalize   EQU 0070H             
;Mengubah semua jenis huruf kecil menjadi huruf besar

SPACE_CODE   EQU 0082H             
;Mengirim kode spasi ke port serial

Writeext_Memory   EQU 008BH             
;Menulis data ke memori EEPROM
;- Akumulator berisi data yang akan ditulis
;- DPTR berisi alamat dari data yang akan ditulis

Delay_1detik   EQU 0090H             
;Menunda waktu selama 1 detik (timer 0 digunakan)

Delay_500mS   EQU 0099H             
;Menunda waktu selama 500 mS (timer 0 digunakan)

Delay_100mS   EQU 00A2H             
;Menunda waktu selama 100 mS (timer 0 digunakan)

Delay_75mS   EQU 00ABH             
;Menunda waktu selama 75 mS (timer 0 digunakan)

Delay_5mS   EQU 00B4H             
;Menunda waktu selama 5 mS (timer 0 digunakan)

ASCII_Out   EQU 00CBH             
;Mengirim data ke port serial dalam 2 byte ASCII
;- Akumulator diisi dengan data yang akan dikirim

Out_DPTR   EQU 00D4H             
;Mengirim nilai DPTR dalam bentuk 4 byte ASCII ke port serial

Enter_Code   EQU 00DFH             
;Mengirim kode <CR> ke port serial

Init_Serial   EQU 00ECH             
;Inisialisasi Port Serial 9600 bps

Serial_Out   EQU 00FCH             
;Kirim nilai akumulator ke port serial

Serial_In   EQU 0104H             
;Ambil data dari port serial dan simpan di akumulator

KirimPesan_Serial  EQU 010CH             
;Kirim data di alamat yang ditunjuk oleh DPTR hingga data 0F
;- DPTR diisi dengan alamat dari data yang akan dikirim
;- Memori yang diakses adalah memori CODE/PROGRAM

Filter    EQU 0118H             
;Menentukan besaran data apakah berada di dalam atau di luar nilai setpoint
;- R7 diisi nilai max
;- R6 diisi nilai min
;- besaran data di akumulator
;Hasil:
;- Carry flag akan set bila besaran berada di luar nilai setpoint

;===================
; SERIAL EEPROM
;===================
Tulis_SEE16b   EQU 01A0H              
;Menulis data ke Serial EEPROM 16 bit
;- R7 diisi Device Address
;- Register B diisi Word Address 1 
;- R6 diisi Word Address 2
;- Variabel DataSEE diisi data yang akan ditulis

Tulis_SEE8b   EQU 01B7H             
;Menulis data ke Serial EEPROM 8 bit
;- R7 diisi Device Address
;- Register B diisi Word Address 1 
;- Variabel DataSEE diisi data yang akan ditulis

Baca_SEE16b   EQU 01CEH             
;Membaca data ke Serial EEPROM 16 bit
;- R7 diisi Device Address
;- Register B diisi Word Address 1 
;- Akumulator berisi data yang telah dibaca

Baca_SEE8b   EQU 01E5H             
;Membaca data ke Serial EEPROM 8 bit
;- R7 diisi Device Address
;- Register B diisi Word Address 1 
;- Akumulator berisi data yang telah dibaca

DPTRSEE8bit   EQU 02E3H
;Membaca data dari Serial EEPROM 8 bit
;- DPTR sebagai pointer
;- Akumulator berisi data yang telah dibaca

DPTRSEE16bit   EQU 02E8H
;Membaca data dari Serial EEPROM 16 bit
;- DPTR sebagai pointer
;- Akumulator berisi data yang telah dibaca

PageSEE8bWrite   EQU 027CH             
;Menulis data ke Serial EEPROM 8 bit secara page mode (Flag F0 digunakan)
;- R7 diisi Device Address
;- Register B diisi Word Address 1 
;- Akumulator diisi data yang akan ditulis

PageSEE16bWrite   EQU 0285H             
;Menulis data ke Serial EEPROM 16 bit secara page mode (Flag F0 digunakan)
;- R7 diisi Device Address
;- Register B diisi Word Address 1 
;- Akumulator diisi data yang akan ditulis

TulisDPTRSEE8b   EQU 02F2H             
;Menulis data ke Serial EEPROM dengan menggunakan DPTR sebagai pointer
;- DPTR diisi alamat yang akan ditulis
;- Variabel DataSEE diisi data yang akan ditulis

TulisDPTRSEE16b   EQU 02F7H             
;Menulis data ke Serial EEPROM dengan menggunakan DPTR sebagai pointer
;- DPTR diisi alamat yang akan ditulis
;- Variabel DataSEE diisi data yang akan ditulis

DataSEE  EQU 3AH

Perbandingan16bit  EQU 0396H             
;Membandingkan data 16 bit
; DPTR = PTR, A = 0
; DPTR < PTR, C = 1
; DPTR > PTR, C = 0
;Untuk Built In Routine
; PTR+1 = 3EH
; PTR = 3FH 

;=============
;HD44780
;=============
GeserDisplay_Kanan  EQU 05BDH             
;Menggeser tampilan LCD HD44780 ke kanan

GeserDisplay_Kiri  EQU 05C4H             
;Menggeser tampilan LCD HD44780 ke kiri

Posisi_Awal   EQU 05CBH             
;Mengatur posisi cursor LCD ke posisi awal

GeserCursor_Kiri  EQU 05D2H             
;Menggeser Cursor LCD ke kiri

GeserCursor_Kanan  EQU 05D9H             
;Menggeser Cursor LCD ke kanan

KirimPesan_LCD   EQU 05E0H             
;Mengirim data di alamat yang ditunjuk oleh DPTR ke LCD hingga data 0F
;- DPTR diisi dengan alamat awal data yang dikirim
;- Akhir data adalah 0FH

Init_LCD   EQU 05ECH             
;Inisialisasi LCD

Kirim_Perintah   EQU 062BH             
;Mengirim data ke register perintah LCD
;- Data diisi di akumulator

Kirim_Karakter   EQU 064AH             
;Mengirim data ke register data LCD
;- Data diisi di akumulator

Baris2    EQU 0654H             
;Memindah posisi cursor ke baris 2

;========== LCD GRAFIK =========
InitLCDGRP   EQU 0678H             
;Inisialisasi LCD Grafik

SetTextHome   EQU 06B7H             
;Mengatur posisi awal teks
;- Akumulator diisi nibble tinggi alamat memori text
;- Register B diisi nibble rendah alamat memori text

SetGrafikHome   EQU 06BDH             
;Mengatur posisi awal tampilan grafik
;- Akumulator diisi nibble tinggi alamat memori grafik
;- Register B diisi nibble rendah alamat memori grafik

SetGrafikArea   EQU 06C3H             
;Mengatur area tampilan Grafik
;- Akumulator diisi baris dari LCD grafik
;- Register B diisi kolom dari LCD Grafik

SetTextArea   EQU 06C9H             
;Mengatur area tampilan Text
;- Akumulator diisi jumlah baris text
;- Register B diisi jumlah kolom text

TextON    EQU 06DBH             
;Mengaktifkan tampilan teks

GrafikON   EQU 06E4H             
;Mengaktifkan tampilan grafik

CursorONBlinkON   EQU 06EDH             
;Mengaktifkan Cursor dan blinking

CursorONBlinkOFF  EQU 0710H             
;Mengaktifkan cursor dan no blink

TextOFF    EQU 071AH             
;Menonaktifkan teks

GrafikOFF   EQU 0724H             
;Menonaktifkan grafik

TulisDataLCD   EQU 072EH             
;Menulis data ke memori LCD grafik
;- Register B diisi nibble tinggi dari alamat memori LCD
;- Akumulator diisi nibble rendah dari alamat memori LCD
;- Panggil subroutine SetPointerAlamat
;- R7 diisi data yang akan ditulis

BacaDataLCD   EQU 0742H             
;Membaca data dari memori LCD Grafik
;- Register B diisi nibble tinggi dari alamat memori LCD
;- Akumulator diisi nibble rendah dari alamat memori LCD
;- Panggil subroutine SetPointerAlamat

KirimPerintah   EQU 0752H             
;Mengirim data ke register perintah dari LCD Grafik
;==== DATA-DATA PERINTAH ======
TXHOME          EQU   40H
TXAREA          EQU   41H
GRHOME          EQU   42H
GRAREA          EQU   43H
SETCURSOR       EQU   21H
OFFSET          EQU   22H
ADPSET          EQU   24H
AWRON           EQU   0B0H
AWROFF          EQU   0B2H
ARON            EQU   0B1H
AROFF           EQU   AWROFF


TungguStatus1   EQU 077AH             
;Menunggu status penulisan data ke LCD grafik selesai

TungguStatusAWR   EQU 0790H             
;Menunggu status penulisan data secara otomatis ke LCD Grafik selesai

TungguStatusAR   EQU 07A6H             
;Menunggu status membaca data secara otomatis ke LCD Grafik selesai

SetPolaCursor   EQU 07BCH             
;Mengatur pola cursor LCD
Cursor1Line     EQU   0A0H
Cursor2Line     EQU   0A1H
Cursor3Line     EQU   0A2H
Cursor4Line     EQU   0A3H
Cursor5Line     EQU   0A5H
Cursor6Line     EQU   0A6H
Cursor7Line     EQU   0A7H

SetPosisiCursor   EQU 07C6H             
;Mengatur posisi cursor LCD
;- Register B diisi baris
;- Akumulator diisi kolom

SetPointerAlamat  EQU 07CFH             
;- Register B diisi alamat nibble tinggi
;- Akumulator diisi alamat nibble rendah

HapusMemori   EQU 07D8H       
;Menghapus memori teks dan memori grafik

CommandKarakter   EQU 41H
; Konstanta Command Karakter di RAM Internal alamat 4FH

KirimKarakterLCD  EQU 80AH             
;Mengirim karakter ke LCD Grafik
;- R7 diisi data karakter
;- Akumulator diisi alamat nibble tinggi
;- Register B diisi alamat nibble rendah
;- Panggil subroutine set pointer alamat
;- Tulis CommandKarakter dengan data

TulisADPplus    EQU   0C0H
BacaADPplus     EQU   0C1H
TulisADPminus   EQU   0C2H
BacaADPminus    EQU   0C3H
TulisADP        EQU   0C4H
BacaADP         EQU   0C5H

CMDP            EQU   8200H
DP              EQU   8000H
KirimPesanLCD   EQU 0817H             
;Mengirim data di alamat yang ditunjuk oleh DPTR ke LCD hingga data 0F
;- DPTR diisi dengan alamat awal data yang dikirim
;- Akhir data adalah 0FH
;- Data di memori data (sinyal RD)
BacaMemoriLCD   EQU 0831H             
;Membaca data dari memori LCD dengan DPTR sebagai pointer
;- DPTR sebagai pointer alamat
;- Data yang dibaca disimpan di akumulator
TulisMemoriLCD   EQU 084BH             
;Menulis data dari memori LCD dengan DPTR sebagai pointer
;- DPTR sebagai pointer alamat
;- Akumulator sebagai data yang akan ditulis

SWIINT          EQU 	0F41H
ROM     	EQU 	2000H


	ORG	ROM 	        ;Reset Vector
	LJMP	START	        ;
	ORG	ROM+3H          ;External Interrupt 0 Vector
	RETI	                ;
	ORG	ROM+0BH         ;Timer 0 Interrupt Vector
    	RETI	                ;
    	ORG	ROM+13H         ;External Interrupt 1 Vector
    	RETI	                ;
    	ORG	ROM+1BH         ;Timer 1 Interrupt Vector
    	RETI	                ;
	ORG	ROM+23H         ;Serial Interrupt Vector
	RETI	                ;


START:
	LCALL	INIT_SERIAL
	LCALL	INIT_LCD

LOOP:
	ACALL	ADC
	PUSH	A
	ACALL	HITUNG_H
	POP	A
	ACALL	HITUNG_ET
	ACALL	TAMPILKAN_HASIL
	LCALL	DELAY_1DETIK
	MOV	A,#' '
	LCALL	SERIAL_OUT
	SJMP	LOOP

ADC:
	MOV	DPTR,#0800H
	MOV	A,#00H
	MOVX	@DPTR,A
	JB	INT0,*
	ACALL	DELAY
	MOV	A,#00H
	MOVX	A,@DPTR
	RET

HITUNG_H:
H_100PPM:					
	CJNE	A,#5EH,H_100PPM_BESAR
H_100PPM_BESAR:
	JC	H_90PPM
	MOV	A,#99
	LJMP	HITUNG_H_SELESAI	
H_90PPM:					
	CJNE	A,#5DH,H_90PPM_BESAR
H_90PPM_BESAR:
	JC	H_80PPM
	MOV	A,#90
	LJMP	HITUNG_H_SELESAI	
H_80PPM:					
	CJNE	A,#5BH,H_80PPM_BESAR
H_80PPM_BESAR:
	JC	H_70PPM
	MOV	A,#80
	LJMP	HITUNG_H_SELESAI	
H_70PPM:					
	CJNE	A,#59H,H_70PPM_BESAR
H_70PPM_BESAR:
	JC	H_60PPM
	MOV	A,#70
	LJMP	HITUNG_H_SELESAI	
H_60PPM:					
	CJNE	A,#58H,H_60PPM_BESAR
H_60PPM_BESAR:
	JC	H_50PPM
	MOV	A,#60
	LJMP	HITUNG_H_SELESAI	
H_50PPM:					
	CJNE	A,#56H,H_50PPM_BESAR
H_50PPM_BESAR:
	JC	H_40PPM
	MOV	A,#50
	SJMP	HITUNG_H_SELESAI	
H_40PPM:					
	CJNE	A,#53H,H_40PPM_BESAR
H_40PPM_BESAR:
	JC	H_30PPM
	MOV	A,#40
	SJMP	HITUNG_H_SELESAI	
H_30PPM:					
	CJNE	A,#50H,H_30PPM_BESAR
H_30PPM_BESAR:
	JC	H_20PPM
	MOV	A,#30
	SJMP	HITUNG_H_SELESAI	
H_20PPM:					
	CJNE	A,#4DH,H_20PPM_BESAR
H_20PPM_BESAR:
	JC	H_10PPM
	MOV	A,#20
	SJMP	HITUNG_H_SELESAI	
H_10PPM:					
	CJNE	A,#42H,H_10PPM_BESAR
H_10PPM_BESAR:
	JC	H_9PPM
	MOV	A,#10
	SJMP	HITUNG_H_SELESAI	
H_9PPM:					
	CJNE	A,#41H,H_9PPM_BESAR
H_9PPM_BESAR:
	JC	H_8PPM
	MOV	A,#9
	SJMP	HITUNG_H_SELESAI	
H_8PPM:					
	CJNE	A,#40H,H_8PPM_BESAR
H_8PPM_BESAR:
	JC	H_7PPM
	MOV	A,#8
	SJMP	HITUNG_H_SELESAI	
H_7PPM:					
	CJNE	A,#3CH,H_7PPM_BESAR
H_7PPM_BESAR:
	JC	H_6PPM
	MOV	A,#7
	SJMP	HITUNG_H_SELESAI	
H_6PPM:					
	CJNE	A,#38H,H_6PPM_BESAR
H_6PPM_BESAR:
	JC	H_5PPM
	MOV	A,#6
	SJMP	HITUNG_H_SELESAI	
H_5PPM:					
	CJNE	A,#36H,H_5PPM_BESAR
H_5PPM_BESAR:
	JC	H_4PPM
	MOV	A,#5
	SJMP	HITUNG_H_SELESAI	
H_4PPM:					
	CJNE	A,#30H,H_4PPM_BESAR
H_4PPM_BESAR:
	JC	H_3PPM
	MOV	A,#4
	SJMP	HITUNG_H_SELESAI	
H_3PPM:					
	CJNE	A,#2BH,H_3PPM_BESAR
H_3PPM_BESAR:
	JC	H_2PPM
	MOV	A,#3
	SJMP	HITUNG_H_SELESAI	
H_2PPM:					
	CJNE	A,#29H,H_2PPM_BESAR
H_2PPM_BESAR:
	JC	H_1PPM
	MOV	A,#2
	SJMP	HITUNG_H_SELESAI	
H_1PPM:					
	CJNE	A,#1FH,H_1PPM_BESAR
H_1PPM_BESAR:
	JC	H_0PPM
	MOV	A,#1
	SJMP	HITUNG_H_SELESAI	
H_0PPM:					
	MOV	A,#0
	SJMP	HITUNG_H_SELESAI	
HITUNG_H_SELESAI:
	MOV	HIDROGEN,A
	RET

HITUNG_ET:
ET_100PPM:					
	CJNE	A,#51H,ET_100PPM_BESAR
ET_100PPM_BESAR:
	JC	ET_90PPM
	MOV	A,#99
	LJMP	HITUNG_ET_SELESAI	
ET_90PPM:					
	CJNE	A,#50H,ET_90PPM_BESAR
ET_90PPM_BESAR:
	JC	ET_80PPM
	MOV	A,#90
	LJMP	HITUNG_ET_SELESAI	
ET_80PPM:					
	CJNE	A,#4EH,ET_80PPM_BESAR
ET_80PPM_BESAR:
	JC	ET_70PPM
	MOV	A,#80
	LJMP	HITUNG_ET_SELESAI	
ET_70PPM:					
	CJNE	A,#4DH,ET_70PPM_BESAR
ET_70PPM_BESAR:
	JC	ET_60PPM
	MOV	A,#70
	LJMP	HITUNG_ET_SELESAI	
ET_60PPM:					
	CJNE	A,#4BH,ET_60PPM_BESAR
ET_60PPM_BESAR:
	JC	ET_50PPM
	MOV	A,#60
	LJMP	HITUNG_ET_SELESAI	
ET_50PPM:					
	CJNE	A,#48H,ET_50PPM_BESAR
ET_50PPM_BESAR:
	JC	ET_40PPM
	MOV	A,#50
	SJMP	HITUNG_ET_SELESAI	
ET_40PPM:					
	CJNE	A,#44H,ET_40PPM_BESAR
ET_40PPM_BESAR:
	JC	ET_30PPM
	MOV	A,#40
	SJMP	HITUNG_ET_SELESAI	
ET_30PPM:					
	CJNE	A,#40H,ET_30PPM_BESAR
ET_30PPM_BESAR:
	JC	ET_20PPM
	MOV	A,#30
	SJMP	HITUNG_ET_SELESAI	
ET_20PPM:					
	CJNE	A,#3BH,ET_20PPM_BESAR
ET_20PPM_BESAR:
	JC	ET_10PPM
	MOV	A,#20
	SJMP	HITUNG_ET_SELESAI	
ET_10PPM:					
	CJNE	A,#2FH,ET_10PPM_BESAR
ET_10PPM_BESAR:
	JC	ET_9PPM
	MOV	A,#10
	SJMP	HITUNG_ET_SELESAI	
ET_9PPM:					
	CJNE	A,#2AH,ET_9PPM_BESAR
ET_9PPM_BESAR:
	JC	ET_8PPM
	MOV	A,#9
	SJMP	HITUNG_ET_SELESAI	
ET_8PPM:					
	CJNE	A,#29H,ET_8PPM_BESAR
ET_8PPM_BESAR:
	JC	ET_7PPM
	MOV	A,#8
	SJMP	HITUNG_ET_SELESAI	
ET_7PPM:					
	CJNE	A,#27H,ET_7PPM_BESAR
ET_7PPM_BESAR:
	JC	ET_6PPM
	MOV	A,#7
	SJMP	HITUNG_ET_SELESAI	
ET_6PPM:					
	CJNE	A,#25H,ET_6PPM_BESAR
ET_6PPM_BESAR:
	JC	ET_5PPM
	MOV	A,#6
	SJMP	HITUNG_ET_SELESAI	
ET_5PPM:					
	CJNE	A,#21H,ET_5PPM_BESAR
ET_5PPM_BESAR:
	JC	ET_4PPM
	MOV	A,#5
	SJMP	HITUNG_ET_SELESAI	
ET_4PPM:					
	CJNE	A,#1FH,ET_4PPM_BESAR
ET_4PPM_BESAR:
	JC	ET_3PPM
	MOV	A,#4
	SJMP	HITUNG_ET_SELESAI	
ET_3PPM:					
	CJNE	A,#1AH,ET_3PPM_BESAR
ET_3PPM_BESAR:
	JC	ET_2PPM
	MOV	A,#3
	SJMP	HITUNG_ET_SELESAI	
ET_2PPM:					
	CJNE	A,#16H,ET_2PPM_BESAR
ET_2PPM_BESAR:
	JC	ET_1PPM
	MOV	A,#2
	SJMP	HITUNG_ET_SELESAI	
ET_1PPM:					
	CJNE	A,#0EH,ET_1PPM_BESAR
ET_1PPM_BESAR:
	JC	ET_0PPM
	MOV	A,#1
	SJMP	HITUNG_ET_SELESAI	
ET_0PPM:					
	MOV	A,#0
	SJMP	HITUNG_ET_SELESAI	
HITUNG_ET_SELESAI:
	MOV	ETHANOL,A
	RET

HEX2DEC:
	MOV	B,#10
	DIV	AB
	SWAP	A
	ANL	A,#0F0H
	ORL	A,B
	RET

TAMPILKAN_HASIL:
	LCALL	POSISI_AWAL
	MOV	DPTR,#TAMPILAN_H
	LCALL	KIRIMPESAN_LCD
	MOV	A,HIDROGEN
	ACALL	HEX2DEC
	PUSH	A
	LCALL	ASCII_OUT
	POP	A	
	PUSH	A
	ANL	A,#0F0H
	SWAP	A
	ADD	A,#30H
	LCALL	KIRIM_KARAKTER
	POP	A
	ANL	A,#0FH
	ADD	A,#30H
	LCALL	KIRIM_KARAKTER
	MOV	DPTR,#TAMPILAN_PPM
	LCALL	KIRIMPESAN_LCD

	LCALL	BARIS2
	MOV	DPTR,#TAMPILAN_ET
	LCALL	KIRIMPESAN_LCD
	MOV	A,ETHANOL
	LCALL	HEX2DEC
	PUSH	A
	LCALL	ASCII_OUT
	POP	A
	PUSH	A
	ANL	A,#0F0H
	SWAP	A
	ADD	A,#30H
	LCALL	KIRIM_KARAKTER
	POP	A
	ANL	A,#0FH
	ADD	A,#30H
	LCALL	KIRIM_KARAKTER
	MOV	DPTR,#TAMPILAN_PPM
	LCALL	KIRIMPESAN_LCD
	RET

DELAY:
	PUSH	B
	MOV	B,#0FFH
	DJNZ	B,*
	POP	B
	RET

TAMPILAN_H:
	DB	'Hydrogen:',0FH

TAMPILAN_ET:
	DB	'Ethanol :',0FH
TAMPILAN_PPM
	DB	'ppm',0FH