Commit 49e91ea5 authored by Neil Turton's avatar Neil Turton
Browse files

Import from SrcFiler

parent 4a444dda
No preview for this file type
......@@ -4,8 +4,8 @@
GBLS VString
GBLS Date
Version SETA 250
VString SETS "2.50"
Date SETS "07 Feb 1995"
Version SETA 252
VString SETS "2.52"
Date SETS "15 May 1995"
END
......@@ -46,6 +46,8 @@
; 12-Jul-93 BCockburn Removed GET of Hdr:Compress
; 26-Jul-93 JRoach If OS_GBPB on Resources:$.Apps gives trouble then stop pumping
; ROM apps rather than giving an error
; 26-Jan-95 JRH Quick hack to stop filer_booting files in Resources:$.Apps
; 15-May-95 RWB Make welcome banner not appear
Module_BaseAddr
......@@ -55,6 +57,7 @@ Module_BaseAddr
; GET Hdr:EnvNumbers
GET Hdr:ModHand
GET Hdr:Services
GET Hdr:Machine.<Machine>
GET Hdr:CMOS
GET Hdr:Proc
GET Hdr:FSNumbers
......@@ -84,7 +87,7 @@ DesktopAllAtOnce SETL {TRUE}
GBLL debugtm
GBLL hostvdu
debug SETL false
debug SETL {FALSE}
debugxx SETL true :LAND: debug
debugwe SETL true :LAND: debug
debugcr SETL true :LAND: debug
......@@ -226,9 +229,14 @@ execcommand = "EXEC", 0
MyMessagesFile DCB "Resources:$.Resources.Desktop.Messages",0
[ STB
filerboot DCB "|"
|
filerboot DCB "Filer_Boot "
]
appsdir DCB "Resources:$.Apps", 0
plingstar DCB "!*", 0
[ :LNOT: STB ; RWB - Remove welcome screen
WelcomeString1 DCB "RO3",0
WelcomeString2 DCB "CopyRt",0
WelcomeString3 DCB "Init",0
......@@ -251,7 +259,7 @@ Welcome_AcornPath
DCD &11C00, &3E00, &1D200, &5, &0
DCD 0
]
ALIGN
;------------------------------------------------
......@@ -488,12 +496,13 @@ NoBootError
SWI XOS_ServiceCall
BVS NoWelcome
TEQ R1,#0 ; Was it claimed ?
[ :LNOT: STB ; RWB - Remove welcome screen
BEQ NoWelcome
Debug we,"Service not claimed"
BL DisplayWelcomeScreen
]
NoWelcome
ADR r0, StartPumpModuleApps
STR r0, NextPump
......@@ -721,7 +730,6 @@ PumpOneBootROMApp ALTENTRY
ADR r0, StartPumpStartROMApps
STR r0, NextPump
EXIT
; -----------------------------------------------------------------------------
;
; PumpStartROMApps
......@@ -923,6 +931,7 @@ PumpOneDesktopCommand ALTENTRY
;
; DisplayWelcomeScreen
;
[ :LNOT: STB ; RWB - Remove welcome screen
^ 0,sp
Welcome_font # 4
Welcome_font1 # 4
......@@ -1291,7 +1300,7 @@ WelcomeError_OneFont
WelcomeError_NoFont
EXITS
]
[ debug
InsertNDRDebugRoutines
]
......
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