TheComet, I will be trying it later. Thank you.
But what is wrong with my Direct Memory Access?
WRITTING application
sync on
cls
sync
sync
bb as dword
bb2 as dword
`mem as dword
mem as byte
`dat as dword
dat as byte
bb=make memory(1024)
bb2=bb
ink RGB(255,255,0),0
Print "This program places a byte to a direct"
print "memory."
ink RGB(255,255,255),0
do
bb=bb2
print "bb: ";bb
mem=*bb
print "mem(*bb) (empty): "; mem
write to registry "SOFTWARE\DBPprov","ptr",bb
print "REGISTRY: "; get registry("SOFTWARE\DBPprov","ptr")
*bb=dat
mem=*bb
ink RGB(255,0,0),0
print "mem(*bb) WRITTING: "; mem
ink RGB(255,255,255),0
print "Press a key..."
print
sync
wait key
dat=dat+12
if dat=252 then exit
loop
delete memory bb2
end
READING application
Sync on
cls
sync
sync
a as dword
`mem as dword
mem as byte
ink RGB(255,255,0),0
print "This program reads a byte from a direct"
print "memory."
ink RGB(255,255,255),0
do
a=get registry("SOFTWARE\DBPprov","ptr")
print "REGISTRY: "; a
sync
wait 1000
mem=*a
ink RGB(255,0,0),0
print "mem(*a) READING: "; mem
ink RGB(255,255,255),0
print "Press a key..."
print
sync
wait key
loop