version 1.40, 1999/11/08 22:01:10
|
version 1.41, 1999/11/14 10:22:27
|
Line 348 const Create ??? 0 , 3 c, char ? c, cha
|
Line 348 const Create ??? 0 , 3 c, char ? c, cha
|
\ iteration, we may get an xt, on the second a code address (or |
\ iteration, we may get an xt, on the second a code address (or |
\ some code), which is typically not in the dictionary. |
\ some code), which is typically not in the dictionary. |
2 0 do |
2 0 do |
|
dup dup aligned <> if \ protect @ against unaligned accesses |
|
drop false unloop exit |
|
then |
dup @ dup |
dup @ dup |
if ( addr addr1 ) |
if ( addr addr1 ) |
dup rot forthstart within |
dup rot forthstart within |