.title "eqhis"
	.mmregs
	.def _c_int00
	
	.data
div							.word	4096   ;圖像的總點數	
I_IMAGE_SIZE				.set	4096   ;圖像大小
I_HISTAB_SIZE               .set    256	   ;灰度變換查找表大小

STACK						.usect	"stack",0
imagedata					.usect	"image_vars",I_IMAGE_SIZE   ;圖像存儲空間
histab						.usect	"image_vars",I_HISTAB_SIZE  ;灰度查找表存儲空間




	.text
	
_c_int00:
	RSBX	FRCT    
	SSBX	SXM
	NOP
	
	STM		#imagedata,AR2
	STM		#histab,AR3
	
	LD		#0,A           ;給灰度查找表清零
	RPT		#255
	STL		A,*AR3+
	
	STM		#histab,AR3
	ST		#4095,BRC      ;統計每個灰度級的點數
	RPTB	endloop1-1
	
	LDM		AR3,A
	ADD		*AR2+,A
	STLM	A,AR4
	ADDM	#1,*AR4
endloop1:
	
	STM		#div,AR5
	STM		#255,T
	LD		#0,A
	ST		#255,BRC       ;計算變換的灰度查找表
	RPTB	endloop2-1
	
	MAC		*AR3,A
	LD		A,B
	RPT		#15
	SUBC	*AR5,B
	STL		B,*AR3+	
endloop2:
	
	STM		#imagedata,AR2
	STM		#histab,AR3
	ST		#4095,BRC       ;對原圖像中的每個點進行查表變換
	RPTB	endloop3-1
	
	LDM		AR3,A
	ADD		*AR2,A      
	STLM	A,AR4
	MVDD	*AR4,*AR2+	
endloop3:		
end:
	B		end