izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2025-03-31 12:58:40 +11:00
Code Issues Releases Wiki Activity

Add words 1+ 2+ 1- 2- and consts 0 1 -1

Browse Source 
Saves quite a few bytes in the final binary.
This commit is contained in:
Virgil Dupras 2020-04-15 21:29:39 -04:00
parent e1e634c815
commit 5d4155aa32
12 changed files with 88 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
blk/054
View File

@ -10,3 +10,5 @@ MOD a b -- c a % b -> c
AND a b -- c a & b -> c
OR a b -- c a | b -> c
XOR a b -- c a ^ b -> c
Shortcuts: 1+ 2+ 1- 2-

BIN
emul/forth/z80c.bin
View File

Binary file not shown.

1
forth/z80a.fs
View File

@ -390,4 +390,3 @@
;
: FWR BSET 0 A, ;
: FSET @ THEN, ;

45
forth/z80c.fs
View File

@ -381,3 +381,48 @@ CODE (im1)
IM1,
EI,
;CODE
CODE 0
HL 0 LDddnn,
HL PUSHqq,
;CODE
CODE 1
HL 1 LDddnn,
HL PUSHqq,
;CODE
CODE -1
HL -1 LDddnn,
HL PUSHqq,
;CODE
CODE 1+
HL POPqq,
chkPS,
HL INCss,
HL PUSHqq,
;CODE
CODE 1-
HL POPqq,
chkPS,
HL DECss,
HL PUSHqq,
;CODE
CODE 2+
HL POPqq,
chkPS,
HL INCss,
HL INCss,
HL PUSHqq,
;CODE
CODE 2-
HL POPqq,
chkPS,
HL DECss,
HL DECss,
HL PUSHqq,
;CODE