Verified Commit 425f4c80 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

map finding process updated

parent 0d4e7d78

net2o.fs

+1 −2
Original line number Diff line number Diff line
@@ -517,8 +517,7 @@ in net2o : new-map ( -- addr ) 
    BEGIN

	mapstart @ 1 mapstart +! reverse

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

	64dup >dest-map 2@ d0=

    UNTIL ;

	64dup >dest-map 2@ d0<> WHILE  2drop  REPEAT ;

in net2o : new-data ( addrs addrd u -- )

    dup max-data# u> !!mapsize!! min-size swap lshift

    { 64: addrs 64: addrd u -- }