/*** peek/poke header  12/5/88  by the  Little Green Man
		These are for convience sake you need to be
		in supervisor mode to use these.
*****************************************************/



/*>>>>  PEEKS SECTION  <<<<*/

/*	int peekb(bp) char *bp;    (peek at a byte)  */
#define peekb(cp)   (*((char *)cp))
/*-----------------------------------------------*/

/*	long peekl(lp) long *lp;    (peek at a long,  4 bytes)	*/
#define peekl(lp)  (*((long *)lp))
/*----------------------------------------------------------*/

/*	int peekw(wp)  int *wp;     (peek at a word,  2 bytes)  */
#define peekw(wp)   (*((int *)wp))
/*----------------------------------------------------------*/



/*>>>>  POKES SECTION  <<<<*/


/*  int pokeb(bp,b)  char *bp;  int b;		*/
#define pokeb(cp,c)  (*((char *)cp) = c)
/*----------------------------------------------------------*/


/* long pokel(lp,l)  long *lp, l;		 */
#define pokel(lp,l)  (*((long *)lp) = l)
/*----------------------------------------------------------*/


/*  int pokew(wp,w)  int *wp, w;		*/
#define pokew(wp,w)  (*((int *)wp) = w)
/*-----------------------------------------------------------*/