******************************************************************
* Program menggerakkan stepper dengan SC-51
* - Input Keypad 4x3
* - Display LCD M1632

ROM			EQU	000H
	Org	ROM			;Reset Vector
	Ajmp	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_LCD		;Reset LCD
	Mov	DPTR,#PesanJumlahStep	;Tampilkan pesan "Jumlah Step"
	Lcall	KirimPesan_LCD		;
	Lcall	Ambil3DigitKeypad	;Ambil data keypad sebanyak 3 digit
	Mov	B,#4			;Putar sebanyak jumlah step /4
	Div	AB			;
	Jz	Start			;
	Mov	R6,A			;
	Mov	DPTR,#Tabel_Kanan	;Atur arah stepper ke kanan
	Acall	GerakanStepper		;
	Ajmp	Start			;

PesanJumlahStep:
	DB	'Jumlah Step :',0FH

	include	stepper.asm
	include	hd44780.asm
	include	ambkypd.asm
	include	keypad.asm
	include	tabkey2.asm