Commit d8f6c0c1 authored by bp's avatar bp

Fixed division


git-svn-id: https://www.forth-ev.de/repos/b16@222 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 02ca84eb
......@@ -82,7 +82,7 @@ Vocabulary b16-sim also b16-sim definitions also Forth
1 and $10 lshift A @ or dup 1 and c ! 2/ A ! ;
: /- pop dup T + 1+ dup $10 rshift c @ or dup >r
IF nip ELSE drop THEN $10 lshift A @ or
dup $1F rshift c ! 2* r> or dup $FFFF A ! $10 rshift push ;
dup $1F rshift c ! 2* r> or dup $FFFF and A ! $10 rshift push ;
\ Memory
......@@ -145,7 +145,7 @@ Create i0
: .inst cr P @ .v Inst @ 3 slot @ - 5 * rshift $1F and
i0 slot @ 0 ?DO count + LOOP 1+ swap 2* 2* + 4 type space
pop pop dup push over push swap .v .v ;
T .v N .v A @ .v ;
' .inst IS <inst>
previous previous
......
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