d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added keep mode parsing to asma

This commit is contained in:
Andrew Alderwick 2021-05-12 23:51:34 +01:00
parent be9ae6ea1b
commit 3109ca3bdd
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
projects/software/asma.usm
View File

@ -20,7 +20,7 @@
&filename &filename
( "test.usm 00 ) ( "test.usm 00 )
"projects/software/noodle.usm 00 "projects/demos/piano.usm 00
@asma-print-error ( -- ) @asma-print-error ( -- )
;asma/error LDA2 .Console/string DEO2 ;asma/error LDA2 .Console/string DEO2
@ -207,6 +207,7 @@
%asma-SHORT-FLAG { #20 } %asma-SHORT-FLAG { #20 }
%asma-RETURN-FLAG { #40 } %asma-RETURN-FLAG { #40 }
%asma-KEEP-FLAG { #80 }
@asma-parse-opcode ( -- byte 00 if valid opcode @asma-parse-opcode ( -- byte 00 if valid opcode
OR 01 otherwise ) OR 01 otherwise )
@ -237,10 +238,14 @@
POP asma-SHORT-FLAG ORA ,&loop JMP POP asma-SHORT-FLAG ORA ,&loop JMP
&not-two &not-two
LIT 'r NEQ ,&not-return JCN DUP LIT 'r NEQ ,&not-return JCN
asma-RETURN-FLAG ORA ,&loop JMP POP asma-RETURN-FLAG ORA ,&loop JMP
&not-return ( 00 byte / end* ) &not-return
LIT 'k NEQ ,&not-keep JCN
asma-KEEP-FLAG ORA ,&loop JMP
&not-keep ( 00 byte / end* )
&not-found ( incoming-ptr* / end* ) &not-found ( incoming-ptr* / end* )
POP2r POP2r
&too-short ( token* / ) &too-short ( token* / )