ack/lang/basic/lib/peek.c
2018-06-24 00:35:51 +02:00

25 lines
328 B
C

#include "lib.h"
int peek(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);
}
void _poke(int i, int j)
{
char* p;
p = (char*)i;
*p = j;
}