mirror of
https://github.com/DualBrain/QB64.git
synced 2023-11-19 13:10:13 +00:00
90 lines
2.2 KiB
Markdown
90 lines
2.2 KiB
Markdown
This header allows you to peek and poke bytes, words, and dwords in QB64. The functions seem to work okay when used with signed variables also. For example, I am able to assign the return of peekw~% to an [INTEGER](INTEGER) without problem. Regards, Michael Calkins
|
|
|
|
Create *PeekPoke.h* text file in the QB64 folder:
|
|
|
|
```text
|
|
|
|
/*
|
|
peek and poke for bytes, words, and dwords in qb64
|
|
public domain, sept 2011, michael calkins
|
|
http://www.network54.com/Forum/648955/message/1315950606/
|
|
<nowiki>*/
|
|
|
|
unsigned char peekb(void * p)
|
|
{return *(unsigned char *)p;}
|
|
|
|
unsigned short int peekw(void * p)
|
|
{return *(unsigned short int *)p;}
|
|
|
|
unsigned long int peekd(void * p)
|
|
{return *(unsigned long int *)p;}
|
|
|
|
void pokeb(void * p, unsigned char n)
|
|
{*(unsigned char *)p = n;}
|
|
|
|
void pokew(void * p, unsigned short int n)
|
|
{*(unsigned short int *)p = n;}
|
|
|
|
void poked(void * p, unsigned long int n)
|
|
{*(unsigned long int *)p = n;}</nowiki>
|
|
|
|
```
|
|
|
|
<sub>Public domain, Sept 2011, Michael Calkins</sub>
|
|
|
|
*PeekPoke.BAS*
|
|
|
|
```vb
|
|
|
|
' peek and poke for bytes, words, and dwords in qb64
|
|
' requires peekpoke.h
|
|
' public domain, sept 2011, michael calkins
|
|
|
|
DECLARE CUSTOMTYPE LIBRARY "peekpoke"
|
|
FUNCTION peekb~%% (BYVAL p AS _UNSIGNED _OFFSET) 'Byte
|
|
FUNCTION peekw~% (BYVAL p AS _UNSIGNED _OFFSET) 'Integer(Word)
|
|
FUNCTION peekd~& (BYVAL p AS _UNSIGNED _OFFSET) 'Long(Dword)
|
|
SUB pokeb (BYVAL p AS _UNSIGNED _OFFSET, BYVAL n AS _UNSIGNED _BYTE)
|
|
SUB pokew (BYVAL p AS _UNSIGNED _OFFSET, BYVAL n AS _UNSIGNED INTEGER)
|
|
SUB poked (BYVAL p AS _UNSIGNED _OFFSET, BYVAL n AS _UNSIGNED LONG)
|
|
END DECLARE
|
|
|
|
' examples:
|
|
|
|
DIM buffer AS STRING * 16
|
|
DIM ptr AS _UNSIGNED _OFFSET
|
|
|
|
buffer = "abcd---- i-ptrs"
|
|
ptr = _OFFSET(buffer)
|
|
|
|
PRINT buffer
|
|
|
|
pokeb ptr + &HA, &H3
|
|
PRINT buffer
|
|
|
|
pokew ptr + 5, &H3FA8
|
|
PRINT buffer
|
|
|
|
poked ptr + 4, &HDBB2B1B0
|
|
PRINT buffer
|
|
|
|
poked ptr, CVL("QB64")
|
|
poked ptr + 4, &H2020011A
|
|
PRINT buffer
|
|
|
|
PRINT "0x" + HEX$(peekb~%%(ptr + 1))
|
|
PRINT "0x" + HEX$(peekw~%(ptr + 2))
|
|
PRINT "0x" + HEX$(peekd~&(ptr + 9))
|
|
|
|
END
|
|
|
|
```
|
|
|
|
**Note: These functions and statements use a variable name reference pointer in memory instead of [DEF SEG](DEF-SEG).**
|
|
|
|
## See Also
|
|
|
|
* [DECLARE LIBRARY](DECLARE-LIBRARY)
|
|
* [PEEK](PEEK), [POKE](POKE)
|
|
* [Libraries](Libraries)
|