crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use assembly for v:inc-by and v:dec-by (saves 14 cells)

Browse source 
FossilOrigin-Name: d28869bd6a6d78f2885fb02d23643b18a423762996c58cc0b2ca72c337e740a4
This commit is contained in:
crc 2023-12-15 13:12:44 +00:00
parent 426ae1ade8
commit a0d39d511d
3 changed files with 981 additions and 982 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
image/retro.forth
View file

@ -716,8 +716,8 @@ handling of variables. With this, the above can become simply:
&foo v:inc
~~~
:v:inc-by (na-) [ \fead.... ] sip store ;
:v:dec-by (na-) [ \feswsu.. ] sip store ;
:v:inc-by (na-) \dupufead \postre.. ;
:v:dec-by (na-) \dupufesw \supostre ;
:v:inc (n-n) #1 swap v:inc-by ;
:v:dec (n-n) #1 swap v:dec-by ;
:v:limit (alu-) \pupudufe \popo.... n:limit \swst.... ;

BIN
ngaImage
View file

Binary file not shown.

1959
vm/nga-c/image.c
View file

File diff suppressed because it is too large Load diff