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

New @scmp

This commit is contained in:
Devine Lu Linvega 2024-01-09 08:22:32 -08:00
parent f77ee15559
commit 8516126477
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cli/stdlib/stdlib.tal
View File

@ -109,6 +109,23 @@
POP2 JMP2r POP2 JMP2r
@scmp ( a* b* -- f ) @scmp ( a* b* -- f )
STH2
&l ( -- )
LDAk ?{
&d LDA LDAr STHr EQU JMP2r }
LDAk LDAkr STHr NEQ ?&d
INC2 INC2r !&l
@scmp-fast ( a* b* -- f )
STH2
&l ( -- )
LDAk ?{
&d LDA LDAr STHr EQU JMP2r }
LDA2k LDA2kr STH2r NEQ2 ?{
INC2 INC2 INC2r INC2r !&l }
LDA2 LDA2r STH2r EQU2 JMP2r
@scmp-old ( a* b* -- f )
STH2 STH2
&l ( -- ) &l ( -- )
LDAk LDAkr STHr ANDk #00 EQU ?&e LDAk LDAkr STHr ANDk #00 EQU ?&e