Flash cursor on 2e based on VBL

2024-07-22 11:29:18 +00:00 · 2023-03-19 16:28:41 -07:00 · 2023-03-19 16:28:41 -07:00 · 094ddd31e8
commit 094ddd31e8
parent 6fc53c4c21
1 changed files with 10 additions and 2 deletions
--- a/src/toolsrc/ed.pla
+++ b/src/toolsrc/ed.pla
@ -993,9 +993,17 @@ def keyin3
    return key | $80
 end
 def keyin2e
-    byte key
+    byte key, vbl
    repeat
-        cursflash
+        vbl = ^$C019
+        if flags & showcurs
+            if flash == 0
+                ^cursptr = curschr
+            elsif flash == 128
+                ^cursptr = underchr
+            fin
+            if vbl ^ ^$C019; flash = flash + 8; fin
+        fin
        key = ^keyboard
    until key >= 128
    ^keystrobe