1 files changed, 4 insertions(+), 5 deletions(-)

M src/drifblim.tal

@@ 325,12 325,11 @@ JMP2r
 
 JMP2r
 
-@scmp3 ( a[3]* b[3]* -- flag )
+@scmp3 ( a* b* -- flag )
 
-	LDA2k STH2 INC2 INC2 SWP2
-	LDA2k STH2 INC2 INC2 EQU2r
-	LDA STH LDA STH EQUr
-	ANDr STHr
+	LDA2k ROT2 LDA2k ROT2 EQU2 STH
+	INC2 LDA2 SWP2 INC2 LDA2 EQU2 STHr
+	AND
 
 JMP2r