6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-05 03:37:43 +00:00
Code Issues Projects Releases Wiki Activity

COMPLEMENT, not COMPLIMENT :-)

Browse Source
This commit is contained in:
David Schmenk 2024-01-06 07:04:44 -08:00
parent 1c3505a196
commit a067c3e804
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/toolsrc/plforth.pla
View File

@ -95,7 +95,7 @@ const hidden_flag = $80
predef _drop_(a)#0, _swap_(a,b)#2, _dup_(a)#2, _dashdup_(a)#1, _over_(a,b,c)#4, _rot_(a,b,c)#3
predef _add_(a,b)#1, _inc_(a)#1, _inc2_(a)#1, _dec_(a)#1, _dec2_(a)#1
predef _sub_(a,b)#1, _mul_(a,b)#1, _div_(a,b)#1
predef _neg_(a)#1, _and_(a,b)#1, _or_(a,b)#1, _xor_(a,b)#1, _compliment_(a)#1, _not_(a)#1
predef _neg_(a)#1, _and_(a,b)#1, _or_(a,b)#1, _xor_(a,b)#1, _complement_(a)#1, _not_(a)#1
predef _mod_(a,b)#1, _abs_(a)#1, _max_(a,b)#1, _min_(a,b)#1
predef _lshift_(a,b)#1, _rshift_(a,b)#1
predef _cset_(a,b)#0, _cget_(a)#1, _wset_(a,b)#0, _wplusset_(a,b)#0, _wget_(a)#1
@ -200,14 +200,14 @@ word = @d_and, 0, @_or_, $96
char d_xor = "XOR"
byte = inline_flag
word = @d_or, 0, @_xor_, $98
// COMPLIMENT
char d_compliment = "COMPLIMENT"
// COMPLEMENT
char d_complement = "COMPLEMENT"
byte = inline_flag
word = @d_xor, 0, @_compliment_, $92
word = @d_xor, 0, @_complement_, $92
// NOT
char d_not = "NOT"
byte = inline_flag
word = @d_compliment, 0, @_not_, $80
word = @d_complement, 0, @_not_, $80
// LEFT SHIFT
char d_lshift = "LSHIFT"
byte = inline_flag
@ -1122,7 +1122,7 @@ end
def _xor_(a,b)#1
return a ^ b
end
def _compliment_(a)#1
def _complement_(a)#1
return ~a
end
def _not_(a)#1