6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-03-23 20:31:58 +00:00
Code Issues Projects Releases Wiki Activity

Fix lshift and rshift shims and add shims up to but excluding postpone

Browse Source
This commit is contained in:
Philip Zembrod 2020-06-16 23:26:58 +02:00
parent 2a1951700f
commit 5eb24b6105
1 changed files with 10 additions and 2 deletions

12
6502/C64/tests/ans-shim.fth

@ -7,8 +7,16 @@
: invert not ;
: lshift 0 DO 2* LOOP ;
: lshift 0 ?DO 2* LOOP ;
: rshift 0 DO 2/ 32767 and LOOP ;
: rshift 0 ?DO 2/ 32767 and LOOP ;
: 2over 3 pick 3 pick ;
: s>d extend ;
: fm/mod m/mod ;
: sm/rem dup >r 2dup xor >r m/mod
over IF r> 0< IF 1+ swap r> - swap ELSE rdrop THEN
ELSE rdrop rdrop THEN ;