Commit 4e46226b authored by Richard Leggett's avatar Richard Leggett
Browse files

Included ScreenBlanker_Control SWI Reason code 5 (Read Timeout2) for non-LCD builds.

parent 35562021
***************************************************************************
* *
* Project: Ursula *
* *
* Module: ScrBlank *
* *
* Created: Wed 22-Apr-98 By: Richard Leggett *
* *
* First version: 2.27 *
* *
* Copyright: (C) 1998, Acorn Computers Ltd., Cambridge, England. *
* *
***************************************************************************
---------------------------------------------------------------------------
Version: 2.27 (Richard Leggett)
Wed 15-Apr-98
- Added Ursula service call table.
Checked into CVS.
Wed 22-Apr-98
- Included ScreenBlanker_Control SWI Reason code 5 (Read Timeout2) for
non-LCD builds.
...@@ -11,7 +11,7 @@ ...@@ -11,7 +11,7 @@
GBLS Date GBLS Date
Version SETA 226 Version SETA 226
VString SETS "2.26" VString SETS "2.27"
Date SETS "10 Jun 1997" Date SETS "22 Apr 1998"
END END
...@@ -67,7 +67,7 @@ ...@@ -67,7 +67,7 @@
WorkRoundCallEveryBug SETL True ; CallEvery seems to add 1 to the specified timeout WorkRoundCallEveryBug SETL True ; CallEvery seems to add 1 to the specified timeout
GBLL LCDSupport GBLL LCDSupport
LCDSupport SETL True LCDSupport SETL False
GBLL Stork GBLL Stork
Stork SETL LCDSupport Stork SETL LCDSupport
...@@ -209,7 +209,7 @@ SWIDecode ...@@ -209,7 +209,7 @@ SWIDecode
B Go_SetDimTime B Go_SetDimTime
B Go_ReadDimTime B Go_ReadDimTime
| |
B badreason B Go_ReadTimeout2
B badreason B badreason
B badreason B badreason
] ]
...@@ -283,14 +283,14 @@ ConvertTicksToSecs ENTRY "R0,R2" ...@@ -283,14 +283,14 @@ ConvertTicksToSecs ENTRY "R0,R2"
DivRem R1, R0, R2, LR DivRem R1, R0, R2, LR
EXIT EXIT
[ Stork ; [ Stork
; R0 is time in ticks. Leaves time in centi-seconds in R1. ; R0 is time in ticks. Leaves time in centi-seconds in R1.
ConvertTicksToCS ENTRY "R0,R2" ConvertTicksToCS ENTRY "R0,R2"
MOV R2, #TickDelta ;centi-seconds per tick MOV R2, #TickDelta ;centi-seconds per tick
MUL R1, R0, R2 MUL R1, R0, R2
EXIT EXIT
] ; ]
; R1 is unblanked time in centiseconds ; R1 is unblanked time in centiseconds
; R2 is blanked time in centiseconds ; R2 is blanked time in centiseconds
...@@ -344,13 +344,13 @@ Go_ReadTimeout ...@@ -344,13 +344,13 @@ Go_ReadTimeout
CLRV CLRV
Pull "PC" Pull "PC"
[ Stork
Go_ReadTimeout2 Go_ReadTimeout2
LDR R0, NormOnTime LDR R0, NormOnTime
BL ConvertTicksToCS BL ConvertTicksToCS
CLRV CLRV
Pull "PC" Pull "PC"
[ Stork
; R1 holds dimmer time in centiseconds (or 0 for "never") ; R1 holds dimmer time in centiseconds (or 0 for "never")
; Input registers corrupted ; Input registers corrupted
......
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