Commit 0d4e7d78 authored by Bernd Paysan's avatar Bernd Paysan

map finding process updated

parent 2e4c1433
......@@ -514,8 +514,11 @@ Variable mapstart $1 mapstart !
new-data-size ! new-data-d 64! new-data-s 64! newdata-val validated or! ;
in net2o : new-map ( -- addr )
mapstart @ 1 mapstart +! reverse
[ cell 4 = ] [IF] 0 swap [ELSE] $FFFFFFFF00000000 and [THEN] ;
BEGIN
mapstart @ 1 mapstart +! reverse
[ cell 4 = ] [IF] 0 swap [ELSE] $FFFFFFFF00000000 and [THEN]
64dup >dest-map 2@ d0=
UNTIL ;
in net2o : new-data ( addrs addrd u -- )
dup max-data# u> !!mapsize!! min-size swap lshift
{ 64: addrs 64: addrd u -- }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment