Commit 4bfadee7 authored by Kevin Bracey's avatar Kevin Bracey
Browse files

Lots of Tungsten work.

Version 5.35, 4.79.2.48. Tagged as 'Kernel-5_35-4_79_2_48'
parent 4ecea6cc
...@@ -154,6 +154,21 @@ UpdateLEDs ROUT ...@@ -154,6 +154,21 @@ UpdateLEDs ROUT
TST r0, #KBStat_ScrollLock TST r0, #KBStat_ScrollLock
ORRNE r1, r1, #4 ORRNE r1, r1, #4
; fall through
ASSERT . = SetLEDs
; *****************************************************************************
;
; SetLEDs - Set the LED(s) to a specific value
;
; in: R1 = desired LED state (bit 0 = caps lock, 1 = num lock, 2 = scroll lock)
; R11 -> keyboard workspace
; R12 -> IOC
;
; out: R0, R1 corrupted
;
SetLEDs
LDRB r0, LastLED ; Only update if different. LDRB r0, LastLED ; Only update if different.
TEQ r0, r1 TEQ r0, r1
MOVEQ pc,lr MOVEQ pc,lr
...@@ -181,6 +196,31 @@ UpdateLEDs ROUT ...@@ -181,6 +196,31 @@ UpdateLEDs ROUT
] ]
] ]
; *****************************************************************************
;
; LEDsOn - Turn on all the LEDs
;
; out: all registers preserved
;
LEDsOn Push "r0,r1,r11,lr"
MOV r1, #7
MOV r11, #KeyWorkSpace
BL SetLEDs
Pull "r0,r1,r11,pc"
; *****************************************************************************
;
; LEDsOff - Restore the LEDs to keyboard status
;
; out: all registers preserved
;
LEDsOff Push "r0,r1,r11,lr"
MOV r11, #KeyWorkSpace
BL UpdateLEDs
Pull "r0,r1,r11,pc"
; ***************************************************************************** ; *****************************************************************************
; ;
; Handle new keyboard id. ; Handle new keyboard id.
...@@ -640,11 +680,7 @@ PerformReset ...@@ -640,11 +680,7 @@ PerformReset
; Ensure any CMOS operation aborted ; Ensure any CMOS operation aborted
MOV R1,#16 ; Two bytes in case RTC transmitting BL IICAbort
20 BL Start ; Start/clock edge
BL Stop
SUBS R1,R1,#1
BNE %BT20
MOV R1, #Service_PreReset MOV R1, #Service_PreReset
IssueService IssueService
......
This diff is collapsed.
This diff is collapsed.
...@@ -204,6 +204,10 @@ System_Swi_Names ...@@ -204,6 +204,10 @@ System_Swi_Names
AddSwiNameToDecodeTab DeviceDriver AddSwiNameToDecodeTab DeviceDriver
AddSwiNameToDecodeTab Hardware AddSwiNameToDecodeTab Hardware
AddSwiNameToDecodeTab IICOp AddSwiNameToDecodeTab IICOp
AddSwiNameToDecodeTab LeaveOS
AddSwiNameToDecodeTab ReadLine32
AddSwiNameToDecodeTab SubstituteArgs32
AddSwiNameToDecodeTab HeapSort32
= 0 = 0
[ SwisInSystemTable+1 <> MaxSwi [ SwisInSystemTable+1 <> MaxSwi
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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