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

FIND returns same address as ' (tick)

Browse Source
This commit is contained in:
David Schmenk 2024-01-06 09:43:06 -08:00
parent 64ef4cca70
commit 2e36d0f52f
2 changed files with 5 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.

12
src/toolsrc/plforth.pla
View File

@ -106,9 +106,9 @@ predef _begin_#0, _again_#0, _until_#0, _while_#0, _repeat_#0
predef _case_#0, _of_#0, _endof_#0, _endcase_#0, _literal_(a)#0
predef _dodo_(a,b)#0, _do_#0, _doloop_#0, _doplusloop_(a)#0, _plusloop_#0, _loop_#0, _leave_#0, _j_#1
predef _create_#0, _itcdoes_(a)#0, _does_#0, _compoff_#0, _compon_#0
predef compword(dentry)#0, _forcecomp_#0, pfillw(a)#0, pfillb(a)#0, _colon_#0, _semi_#0
predef _forcecomp_#0, pfillw(a)#0, pfillb(a)#0, _colon_#0, _semi_#0
predef _immediate_#0, _exit_#0, _pad_#1, _trailing_(a,b)#2
predef _tors_(a)#0, _fromrs_#1, _toprs_#1, _execute_(a)#0, _lookup_#1
predef _tors_(a)#0, _fromrs_#1, _toprs_#1, _lookup_#1
predef _move_(a,b,c)#0, _fill_(a,b,c)#0, _plasma_(a)#0
predef _var_(a)#0, _const_(a)#0, _lit_#1, _slit_#1, _find_(a)#2, _tick_#1
predef _forget_#0, _terminal_#1, _prat_(a)#0, _prhexat_(a)#0
@ -121,6 +121,7 @@ predef _brk_#0, _brkon_#0, _brkoff_#0, _word_(a)#1, _count_(a)#2
predef _space_#0, _spaces_(a)#0, _show_#0, _showstack_#0, _showrstack_#0
predef _showhash_#0, _cont_#0, _restart_#0, _bye_#0, _quit_#0
predef _abort_(a)#0, _doabortstr_(a,b)#0, _abortstr_#0
predef compword(dentry)#0, execword(dentry)#0
// DROP
char d_drop = "DROP"
byte = inline_flag
@ -279,8 +280,8 @@ byte = inline_flag
word = @d_cget, 0, @_wget_, $62
// EXECUTE
char d_execute = "EXECUTE"
byte = inline_flag
word = @d_wget, 0, @_execute_, $56 // ICAL
byte = 0
word = @d_wget, 0, @execword
// TO RSTACK
char d_torstk = ">R"
byte = 0
@ -1176,9 +1177,6 @@ end
def _wget_(a)#1
return *a
end
def _execute_(a)#0
a()#0
end
def _ffa_(dentry)#1
return dentry + ^dentry + 1
end