26 lines
		
	
	
	
		
			322 B
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			26 lines
		
	
	
	
		
			322 B
		
	
	
	
		
			C
		
	
	
	
	
	
/* $Header$ */
 | 
						|
 | 
						|
int peek(addr)
 | 
						|
int addr;
 | 
						|
{
 | 
						|
	/* this can not work properly for machines in which the 
 | 
						|
	   POINTERSIZE differs from the integer size
 | 
						|
	*/
 | 
						|
	char	*p;
 | 
						|
	int i;
 | 
						|
 | 
						|
	p= (char *)addr;
 | 
						|
	i= *p;
 | 
						|
#ifdef DEBUG
 | 
						|
	printf("peek %d = %d\n",addr,i);
 | 
						|
#endif
 | 
						|
	return(i);
 | 
						|
}
 | 
						|
 | 
						|
_poke(i,j)
 | 
						|
int i,j;
 | 
						|
{
 | 
						|
	char *p;
 | 
						|
	p= (char *) i;
 | 
						|
	*p=j;
 | 
						|
}
 |