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
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
BCC Page20 ; CTRL up, then branch
BPL Page20 ; SHIFT up, then branch
......@@ -2969,21 +2968,16 @@ PageTest
BL ClearLines ; CTRL+SHIFT down, so clear lines
BL PostWrchCursor ; we may be some time, so enable cursor
CSWaitLoop
SEC ; set leds
BL CtrlShiftTest
BCC Page18
BLMI Page_ProcessCallbacksIdle
BMI CSWaitLoop ; and wait for change (NB C=1 now)
Page18
[ {FALSE}
BL LEDsOff ; put LEDs back to normal
]
BL PreWrchCursor ; get rid of cursor again
; CTRL and SHIFT are not both down
Page20
CLC ; don't set leds first time
BL CtrlShiftTest
BCC Page40 ; [CTRL not down]
......@@ -2993,7 +2987,6 @@ Page20
LDROSB R1, KeyRepRate
STROSB R1, CentiCounter, R0
CLC
Page30
BL CtrlShiftTest
BCC Page35 ; CTRL no longer down
......@@ -3031,7 +3024,7 @@ IncLinesExit
]
Pull PC
Page50 ; NB C=0 on entry from above
Page50
BL CtrlShiftTest
BMI Page55
......@@ -3039,7 +3032,6 @@ Page50 ; NB C=0 on entry from above
BL PostWrchCursor ; put cursor back on for now
PageWaitLoop
SEC
BL CtrlShiftTest
BLPL Page_ProcessCallbacksIdle
BPL PageWaitLoop
......@@ -3069,13 +3061,7 @@ BotRowCheck
MOV PC, R14
CtrlShiftTest ROUT
BCC %FT05
[ {FALSE}
Push R14
BL LEDsOn
Pull R14
]
05 LDR R0, =ZeroPage
LDR R0, =ZeroPage
LDRB R0, [R0, #ESC_Status]
TST R0, #&40 ; escape condition ?
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