Verified Commit 0d4e7d78 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

map finding process updated

parent 2e4c1433

net2o.fs

+5 −2
Original line number Diff line number Diff line
@@ -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 )

    BEGIN

	mapstart @ 1 mapstart +! reverse

    [ cell 4 = ] [IF]  0 swap  [ELSE] $FFFFFFFF00000000 and [THEN] ;

	[ 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 -- }