6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-09 13:33:26 +00:00
Code Issues Projects Releases Wiki Activity

Can't believe I got OVER wrong

Browse Source
This commit is contained in:
David Schmenk 2024-01-09 12:37:07 -08:00
parent 1548a63a9f
commit 8985011207
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLFORTH.PO
View File

Binary file not shown.

14
src/toolsrc/plforth.pla
View File

@ -94,7 +94,7 @@ const interponly_flag = $80
//
// Predefine instrinsics
//
predef _swap_(a,b)#2, _dashdup_(a)#1, _over_(a,b,c)#4, _rot_(a,b,c)#3
predef _swap_(a,b)#2, _dashdup_(a)#1, _over_(a,b)#3, _rot_(a,b,c)#3
predef _abs_(a)#1, _max_(a,b)#1, _min_(a,b)#1, _wplusset_(a,b)#0
predef _ffa_(a)#1, _lfa_(a)#1, _hfa_(a)#1, _cfa_(a)#1, _pfa_(a)#1, _allot_(a)#0
predef _branch_#0, _0branch_(a)#0, _if_#0, _else_#0, _then_#0
@ -307,15 +307,15 @@ byte = interponly_flag
word = @d_var, 0, @_const_
// CMOVE
char d_cmove = "CMOVE"
byte = 0
byte = showcr_flag
word = @d_const, 0, @_cmove_
// MOVE
char d_move = "MOVE"
byte = 0
byte = showcr_flag
word = @d_cmove, 0, @_move_
// FILL
char d_fill = "FILL"
byte = 0
byte = showcr_flag
word = @d_cmove, 0, @_fill_
// HERE
char d_here = "HERE"
@ -327,7 +327,7 @@ byte = 0
word = @d_here, 0, @_pad_
// ALLOT
char d_allot = "ALLOT"
byte = 0
byte = showcr_flag
word = @d_pad, 0, @_allot_
// BRANCH ( not in vocabulary )
char d_branch = "(BRANCH)"
@ -1071,8 +1071,8 @@ def _dashdup_(a)#1
if a; (@push)(a)#0; fin
return a
end
def _over_(a,b,c)#4
return a,b,c,a
def _over_(a,b)#3
return a,b,a
end
def _rot_(a,b,c)#3
return b,c,a