$NOMOD51
$include (reg1210.inc)
PUBLIC	bipolar , summer		;,unipolar
adc_sub 	SEGMENT  CODE
	RSEG  adc_sub
;;;;;;;;;;;;;;;;;;;;;
; unsigned long unipolar(void)
; return the 3 byte adres to R4567 (MSB~LSB)
; unsigned long int with R4=0
;unipolar:
;	mov	a,AIE
;	jnb	acc.5,unipolar
;	mov	r4,#0
;	mov	r5,adresh
;	mov	r6,adresm
;	mov	r7,adresl
;	ret
;;;;;;;;;;;;;;;;;;;;;
; signed long bipolar(void)
; return the 3 byte adres to R4567 (MSB~LSB)
; return signed long int with sign extendsion on R4
bipolar:
	mov	a,AIE
	jnb	acc.5,bipolar
	mov	r4,#0
	mov	a,adresh
	mov	r5,a
	mov	r6,adresm
	mov	r7,adresl
	jnb	acc.7,positive
	mov	r4,#0ffh
positive:
	ret
;;;;;;;;;;;;;;;;;;;;;
; signed long summer(void);
; return the 4 byte summation registers to R4567 (MSB~LSB)
summer:
	mov	a,AIE
	jnb	acc.6,summer
	mov	r4,sumr3
	mov	r5,sumr2
	mov	r6,sumr1
	mov	r7,sumr0
	ret
	end