Commit e1c04167 authored by Timothy E Baldwin's avatar Timothy E Baldwin Committed by ROOL
Browse files

Remove remains of led setting from PageTest

This was introduced on 2002-10-07 in Kernel-5_35-4_79_2_48
the removed on 2002-11-30 in Kernel-5_35-4_79_2_51 as it
was "liable to crash".
parent 26244ae8
...@@ -2959,7 +2959,6 @@ PageTest ...@@ -2959,7 +2959,6 @@ PageTest
BL Page_ProcessCallbacks ; give callbacks at least one chance per line BL Page_ProcessCallbacks ; give callbacks at least one chance per line
CLC ; don't set leds first time
BL CtrlShiftTest ; on exit, C=CTRL, N=SHIFT BL CtrlShiftTest ; on exit, C=CTRL, N=SHIFT
BCC Page20 ; CTRL up, then branch BCC Page20 ; CTRL up, then branch
BPL Page20 ; SHIFT up, then branch BPL Page20 ; SHIFT up, then branch
...@@ -2969,21 +2968,16 @@ PageTest ...@@ -2969,21 +2968,16 @@ PageTest
BL ClearLines ; CTRL+SHIFT down, so clear lines BL ClearLines ; CTRL+SHIFT down, so clear lines
BL PostWrchCursor ; we may be some time, so enable cursor BL PostWrchCursor ; we may be some time, so enable cursor
CSWaitLoop CSWaitLoop
SEC ; set leds
BL CtrlShiftTest BL CtrlShiftTest
BCC Page18 BCC Page18
BLMI Page_ProcessCallbacksIdle BLMI Page_ProcessCallbacksIdle
BMI CSWaitLoop ; and wait for change (NB C=1 now) BMI CSWaitLoop ; and wait for change (NB C=1 now)
Page18 Page18
[ {FALSE}
BL LEDsOff ; put LEDs back to normal
]
BL PreWrchCursor ; get rid of cursor again BL PreWrchCursor ; get rid of cursor again
; CTRL and SHIFT are not both down ; CTRL and SHIFT are not both down
Page20 Page20
CLC ; don't set leds first time
BL CtrlShiftTest BL CtrlShiftTest
BCC Page40 ; [CTRL not down] BCC Page40 ; [CTRL not down]
...@@ -2993,7 +2987,6 @@ Page20 ...@@ -2993,7 +2987,6 @@ Page20
LDROSB R1, KeyRepRate LDROSB R1, KeyRepRate
STROSB R1, CentiCounter, R0 STROSB R1, CentiCounter, R0
CLC
Page30 Page30
BL CtrlShiftTest BL CtrlShiftTest
BCC Page35 ; CTRL no longer down BCC Page35 ; CTRL no longer down
...@@ -3031,7 +3024,7 @@ IncLinesExit ...@@ -3031,7 +3024,7 @@ IncLinesExit
] ]
Pull PC Pull PC
Page50 ; NB C=0 on entry from above Page50
BL CtrlShiftTest BL CtrlShiftTest
BMI Page55 BMI Page55
...@@ -3039,7 +3032,6 @@ Page50 ; NB C=0 on entry from above ...@@ -3039,7 +3032,6 @@ Page50 ; NB C=0 on entry from above
BL PostWrchCursor ; put cursor back on for now BL PostWrchCursor ; put cursor back on for now
PageWaitLoop PageWaitLoop
SEC
BL CtrlShiftTest BL CtrlShiftTest
BLPL Page_ProcessCallbacksIdle BLPL Page_ProcessCallbacksIdle
BPL PageWaitLoop BPL PageWaitLoop
...@@ -3069,13 +3061,7 @@ BotRowCheck ...@@ -3069,13 +3061,7 @@ BotRowCheck
MOV PC, R14 MOV PC, R14
CtrlShiftTest ROUT CtrlShiftTest ROUT
BCC %FT05 LDR R0, =ZeroPage
[ {FALSE}
Push R14
BL LEDsOn
Pull R14
]
05 LDR R0, =ZeroPage
LDRB R0, [R0, #ESC_Status] LDRB R0, [R0, #ESC_Status]
TST R0, #&40 ; escape condition ? TST R0, #&40 ; escape condition ?
LDROSB R0, KeyBdStatus ; (preserves PSR) LDROSB R0, KeyBdStatus ; (preserves PSR)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment