fix the mess

2024-06-25 21:29:43 +00:00 · 2019-07-04 19:03:14 -07:00 · 2019-07-04 19:03:14 -07:00 · ebd442c223
commit ebd442c223
parent 1d23da8f7d
1 changed files with 11 additions and 7 deletions
--- a/src/textrank.a
+++ b/src/textrank.a
@ -73,9 +73,9 @@ TextRankCallback
         +STAY zpword
         ldy   #0
         lda   (zpstring),y
-         sta   gamelength
         cmp   InputLength
-         bcc   @no
+         bcc   ++
+         sta   gamelength
         lda   #0
         sta   runningscore
         sta   runningscore+1
@ -93,7 +93,7 @@ TextRankCallback
         cpy   gamelength
         iny
         bcc   --
-@no      rts                         ; no match :(
++       rts                         ; no match :(
 +
         ldx   #80
         cpy   startat
@ -113,15 +113,19 @@ TextRankCallback
         sta   runningscore
         bcc   +
         inc   runningscore+1
-+        cpy   gamelength
-         beq   +
-         inc   startat
+        tya
         ldy   i
         cpy   InputLength
+         bcs   +
         iny
+         sta   startat
+         inc   startat
+         cmp   gamelength
         bcc   -
+         rts                         ; no match :(

-+        lda   runningscore
+
+         lda   runningscore
         ldx   runningscore+1
         ldy   gamelength
         jsr   @div