Remove flag constants in asma.

This commit is contained in:
Andrew Alderwick 2021-11-22 07:05:07 +00:00
parent d7059eccd4
commit cb30ac7c11
1 changed files with 6 additions and 7 deletions

View File

@ -188,6 +188,9 @@
) )
@asma-init-first-pass ( -- ) @asma-init-first-pass ( -- )
LIT2 POP2 POP EOR ;asma-parse-opcode/short-flag STA
LIT2 POPr POP EOR ;asma-parse-opcode/return-flag STA
LIT2 POPk POP EOR ;asma-parse-opcode/keep-flag STA
#ff ;asma/pass STA #ff ;asma/pass STA
#0000 DUP2k #0000 DUP2k
;asma/error STA2 ;asma/error STA2
@ -401,10 +404,6 @@
#00 #00
JMP2r JMP2r
%asma-SHORT-FLAG { #20 }
%asma-RETURN-FLAG { #40 }
%asma-KEEP-FLAG { #80 }
~projects/library/string.tal ~projects/library/string.tal
@asma-traverse-tree ( incoming-ptr* -- binary-ptr* 00 if key found @asma-traverse-tree ( incoming-ptr* -- binary-ptr* 00 if key found
@ -441,15 +440,15 @@
&not-end &not-end
DUP LIT '2 NEQ ,&not-two JCN DUP LIT '2 NEQ ,&not-two JCN
POP asma-SHORT-FLAG ORA ,&loop JMP POP LIT &short-flag $1 ORA ,&loop JMP
&not-two &not-two
DUP LIT 'r NEQ ,&not-return JCN DUP LIT 'r NEQ ,&not-return JCN
POP asma-RETURN-FLAG ORA ,&loop JMP POP LIT &return-flag $1 ORA ,&loop JMP
&not-return &not-return
LIT 'k NEQ ,&not-keep JCN LIT 'k NEQ ,&not-keep JCN
&set-keep asma-KEEP-FLAG ORA ,&loop JMP &set-keep LIT &keep-flag $1 ORA ,&loop JMP
&not-keep ( 00 byte / end* ) &not-keep ( 00 byte / end* )
&not-found ( incoming-ptr* / end* ) &not-found ( incoming-ptr* / end* )