******************************************************************************
*		PROGRAM PENAMPIL JAM DENGAN RTC 1287			     
*		- Menampilkan jam setiap detik ke serial port DST-51	     
* Disain oleh:
*	Paulus Andi Nalwan, ST
*	electronic@sby.centrin.net.id
*
*	DELTA ELECTRONIC
*	Kompleks Ruko Manyar Megah Indah Plaza D-22
*	Ngagel Jaya Selatan
*	Surabaya 60284
*	Phone/fax: 62-31-5020210
*	http://www.centrin.net.id/delta.com
******************************************************************************

;RTC-1287 Routines
;Alamat RTC harus diset pada DPTR terlebih dahulu
;Interrupt harus diaktifkan apabila ingin alarm interrupt

Kalender_Display	EQU	0441H
Display_Waktu		EQU	04A5H


Alamat_RTC	EQU	8000H
RegA		EQU	0AH
RegB		EQU	0BH
RegC		EQU	0CH
RegD		EQU	0DH

	Org	2000H			;Reset Vector
	Ajmp	Start			;
	Org	2003H			;External Interrupt 0 Vector
	Reti				;
	Org	200BH			;Timer 0 Interrupt Vector
	Reti				;
	Org	2013H			;External Interrupt 1 Vector
	Reti				;
	Org	201BH			;Timer 1 Interrupt Vector
	Reti				;
	Org	2023H			;Serial Interrupt Vector
	Reti				;

Start:
	Mov	DPTR,#Alamat_RTC+RegA	;Aktifkan osilator
	Mov	A,#20H			;
	Movx	@DPTR,A			;
	Inc	DPTR			;Update Interrupt aktif, Mode 24 Jam
	Mov	A,#12H			;Output BCD Data
	Movx	@DPTR,A			;

Loop:
	Mov	DPTR,#Alamat_RTC+RegC	;Periksa Flag IRQ
	Movx	A,@DPTR			;
	ANL	A,#080H			;
	Jnb	A.7,Loop		;Tidak ada flag, loop
	Clr	A.7			;Ada Flag, Clear Flag
	Movx	@DPTR,A			;
	Mov	DPTR,#Alamat_RTC	;Displaykan waktu
	Lcall	Display_Waktu		;
	Ajmp	Loop