( DmWrite )

: Dm! ( n MemPtr offset -- )
	sp@ >abs 8 +
	4 DmWrite throw drop ;
: DmW! ( n MemPtr offset -- )
	sp@ >abs 10 +
	2 DmWrite throw drop ;
: DmC! ( c MemPtr offset -- )
	sp@ >abs 11 +
	1 DmWrite throw drop ;

\eof

s" dump" included
0 value h	0 value m
api: MemHandleNew
api: MemHandleFree
:noname
8 MemHandleNew to h
h MemHandleLock to m
\ 0 ShowDFNumber
m >rel 8 dump
\ -1 ShowDFNumber
0x12345678 m 2 Dm!
\ 1 ShowDFNumber
m >rel 8 dump
0xabcd m 4 DmW!
\ 2 ShowDFNumber
m >rel 8 dump
0xef m 3 DmC!
\ 3 ShowDFNumber
m >rel 8 dump
h MemHandleUnlock throw
h MemHandleFree throw ;
execute