home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / GRAPHICS / WNDWBOSS.ZIP / PEEK.C < prev    next >
Encoding:
Text File  |  1986-05-08  |  571 b   |  37 lines
  1. /*
  2. ** Peek/Poke for Microsoft C
  3. **
  4. ** MSC /Ze peek
  5. **
  6. ** Copyright (c) 1986 - Philip A. Mongelluzzo
  7. ** All rights reserved.
  8. **
  9. ** Placed in public domain 5/8/86 by P.A. Mongelluzzo
  10. **
  11. */
  12.  
  13. unsigned peek(ioff,iseg)
  14. unsigned iseg,ioff;
  15. {
  16. int far *adr;
  17. unsigned long seg,off;
  18.   seg=iseg;
  19.   off=ioff;
  20.   adr = (seg << 16) | off;
  21.   return (unsigned)(*adr);
  22. }
  23.  
  24. void poke(ioff,iseg,val)
  25. unsigned iseg,ioff;
  26. unsigned char val;
  27. {
  28. int far *adr;
  29. unsigned long seg,off;
  30.   seg=iseg;
  31.   off=ioff;
  32.   adr = (seg << 16) | off;
  33.   *adr = val;
  34. }
  35.  
  36. /* End */
  37.