;///////////////////////////////////////////
;本程序源代碼由單片機培訓網提供.
;單片機培訓網,讓更多人學習單片機更容易.
;第一網址----www.mcuedu.com
;第二網址----http://51_train.nease.net
;創辦人------劉永忠
;熱線電話----(0755)27529998
;email-------aa815@163.com
;編寫計算下式的程序，設乘積和平方結果均小于255。A、B值分別存放在3001H和3002H單元中，結果存于片外3000H單元
;中。
;     25，   A=B
;Y=  A*B，   A〈B
;    A/B，   A〉B
;程序難易等級--------稍難
;///////////////////////////////////////////


	org 0000h
	ljmp main
	org 0030h
main:
	mov dptr,#3001h
	mov a,#17
	movx @dptr,a
	mov dptr,#3002h
	mov a,#08
	movx @dptr,a
	mov dptr,#3001h
	movx a,@dptr
	mov r1,a
	mov 30h,r1
	mov dptr,#3002h
	movx a,@dptr
	mov b,a
	mov a,b
	cjne a,30h,tt1
	mov a,25
	mov dptr,#3000h
	movx @dptr,a
	sjmp $
tt1:
	jc tt2
	mov b,a
	mov a,30h
	mul  ab
	mov dptr,#3000h
	movx @dptr,a
	sjmp $
tt2:
	mov b,a
	mov a,30h
	div ab
	mov dptr,#3000h
	movx @dptr,a
	sjmp $
	end