diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-04-13 19:31:59 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-04-13 19:31:59 -0700 |
| commit | 48de43f9ed9622e93a23b3636135e64d47eb7ecf (patch) | |
| tree | c1182fb5f86ef98f473478ca4b6b117a3167021c /describe-data.sed | |
| parent | cc4756494a7f799219433124a57d06687a4c0091 (diff) | |
implement all the remaining Forth words that need flatassembler versions
wow!!!!! the next step is implementing the Forth lexer. wow! Force-Push: yes Change-Id: If847c1d7b3949f7d449279e0783021484f96e6a8
Diffstat (limited to 'describe-data.sed')
| -rw-r--r-- | describe-data.sed | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/describe-data.sed b/describe-data.sed index 712860f..77f3d8e 100644 --- a/describe-data.sed +++ b/describe-data.sed @@ -13,7 +13,8 @@ s/\<roll3\>/3roll/g s/\<unroll3\>/3unroll/g s/\<dup2\>/2dup/g s/\<drop2\>/2drop/g -s/\<zbranch\>/0branch/g +s/^zbranch\>/0branch/g +s/\([^"]\)\<zbranch\>/\10branch/g s/\<eq\>/=/g s/\<ne\>/!=/g s/\<gt\>/>/g @@ -39,6 +40,8 @@ s/\<fetch-value-stack\>/value@/g s/\<store-value-stack\>/value!/g s/\<fetch-control-stack\>/control@/g s/\<store-control-stack\>/control!/g +s/\<fetch-entry-flags\>/entry-flags@/g +s/\<store-entry-flags\>/entry-flags!/g s/\<fetch\>/@/g s/\<store\>/!/g |