;----ACC=DIVISOR, ACCB(|.|<|ACC|)=DIVIDEND ,RESULT(1.15) IN LOW ACC-
	;--ACCB/ACC------------
INTDIV
	LDP #ACCBUF
	SACL ACCBUF
	EXAR
	SACL ACCBUF+1
	LACC ACCBUF+1,15		;ACCB<<15/ACC
	EXAR
	XORB
	SACH SIGNFLAG		;if (acc*accb<0) signflag<0
	LACC ACCBUF
	ABS
	SACL ACCBUF
	LACB
	ABS
	RPT #15
	  SUBC ACCBUF
	BIT SIGNFLAG,0		;test if signflag(bit 15)<0
	BCND INTDIV_1,NTC
	 NEG
INTDIV_1
	SACL ACCBUF		;in order to sign extend high acc
	LACC ACCBUF
	RET