From 851612647725d9a69e5f4bae0360dac9e5feae32 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 9 Jan 2024 08:22:32 -0800
Subject: [PATCH] New @scmp

---
 cli/stdlib/stdlib.tal | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/cli/stdlib/stdlib.tal b/cli/stdlib/stdlib.tal
index a50248a..3abd5c3 100644
--- a/cli/stdlib/stdlib.tal
+++ b/cli/stdlib/stdlib.tal
@@ -109,6 +109,23 @@
 	POP2 JMP2r
 
 @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
 	&l ( -- )
 		LDAk LDAkr STHr ANDk #00 EQU ?&e