Skip to content

B
b16
Commit d8f6c0c1 authored by bp's avatar bp
Browse files
Options

Fixed division 


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