#include <REG1210.H>                    /* special function register 1210       */
signed long unipolar()
{
#pragma ASM
	mov	r4,#0
	mov	r5,adresh
	mov	r6,adresm
	mov	r7,adresl
	ret
#pragma ENDASM 
       return unipolar;
}