Remove pointless double test of Ctrl and Shift

02943d44 · Timothy E Baldwin · ROOL · e1c04167 · 02943d44
Commit 02943d44 authored 4 years ago by Timothy E Baldwin Committed by ROOL 4 years ago
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

s/vdu/vduwrch s/vdu/vduwrch +2 -2

No files found.
--- a/s/vdu/vduwrch
+++ b/s/vdu/vduwrch
@@ -2960,7 +2960,7 @@ PageTest
        BL      Page_ProcessCallbacks   ; give callbacks at least one chance per line

        BL      CtrlShiftTest           ; on exit, C=CTRL, N=SHIFT
-        BCC     Page20                  ; CTRL up, then branch
+        BCC     Page40                  ; CTRL up, then branch
        BPL     Page20                  ; SHIFT up, then branch

 ; CTRL and SHIFT are down
@@ -2977,10 +2977,10 @@ Page18

 ; CTRL and SHIFT are not both down

-Page20
        BL      CtrlShiftTest
        BCC     Page40                  ; [CTRL not down]

+Page20
 ; CTRL down, so wait for auto repeat delay time before continuing

        BL      PostWrchCursor          ; we may be some time, so enable cursor