blinking seppuku

textproc.asm

@@ -1374,8 +1374,8 @@ EndOfTypeLine4x4
     mwa Xdraw xk
     mva Ydraw yc
 
-    mva #15 fs  ; temp, how many times blink the billboard
-@
+    mva #20 fs  ; temp, how many times blink the billboard
+seppuku_loop
       lda fs
       and #$01
       sta plot4x4color
@@ -1401,11 +1401,9 @@ EndOfTypeLine4x4
       mva ResultY LineYdraw
       jsr TypeLine4x4
 
-      dec fs
-    bne @-
-   
     ;clean seppuku
-    mva #3 fs
+    
+    mva #3 dx
     mva #4 ResultY
 @
       mva #1 plot4x4color
@@ -1415,9 +1413,12 @@ EndOfTypeLine4x4
       jsr TypeLine4x4
       adb ResultY  #4 ;next line
   
-      dec fs
+      dec dx
       bne @-
 
+     dec fs
+    jne seppuku_loop
+
     ;restore vars
     mva yc Ydraw
     mwa xk Xdraw