/* transmission*/

void serial_putchar(int caractere)
{	while (!(peek(0x102e) & 0x80)) ; /*tdre empty?*/
 	poke (0x102f , caractere );
}



/* reception*/

void disable_pcode_serial()
{	poke (0x3c , 1 ) ;
}

void reenable_pcode_serial()
{	poke (0x3c , 0 );
}

int serial_getchar( int caractere )
{	while (!(peek(0x102e) & 0x20)); /*rdrf full?*/
	return peek(0x102f) ;
}