Commit 0620c8cd authored by Neil Turton's avatar Neil Turton
Browse files

NCOS 1.06 version taken

parent 04138fae
......@@ -4,8 +4,8 @@
GBLS VString
GBLS Date
Version SETA 015
VString SETS "0.15"
Date SETS "28 Oct 1994"
Version SETA 016
VString SETS "0.16"
Date SETS "16 Aug 1995"
END
......@@ -39,7 +39,7 @@
; (CD2-015, CD2-053, ROM space reduction)
; Generate a file index (speed enhancement)
; 12-Mar-92 0.14 JSR Misc bugs from failure to initialise workspace. G-RO-5512.
; 16-Aug-95 0.15 RWB Allow booting from ResourceFS, provides *Run !Boot as default and only option
;
Module_BaseAddr
......@@ -73,6 +73,7 @@ Module_BaseAddr
GBLL debugdie
GBLL debugquickindex
GBLL hostvdu
GBLL allowbooting ; Added by Rich, 16-Aug-95, allows a !Boot to be registered and booted
debug SETL false
debugrg SETL true :LAND: debug
......@@ -81,6 +82,7 @@ debugxx SETL false :LAND: debug
debuginit SETL true :LAND: debug
debugdie SETL true :LAND: debug
debugquickindex SETL true :LAND: debug
allowbooting SETL true
hostvdu SETL false
......@@ -92,7 +94,6 @@ FF * 12
CR * 13
; File format
^ 0
ROMFile_Offset # 4 ; offset from here to next file
; 0 => terminator node (not a file)
......@@ -113,7 +114,6 @@ ROMFSFileData # 4 ; points to list of link_ items
message_file_block # 16 ; File handle for MessageTrans
message_file_open # 4 ; Opened message file flag
UpperCaseTable # 4 ; Upper casing table
ROMFS_WorkspaceSize * :INDEX: @
^ 0
......@@ -939,7 +939,10 @@ ROMFS_FSFunc ENTRY
TEQ R0, #fsfunc_ReadDiscName
BEQ %FT30
[ allowbooting ; Added by Rich, 16/8/95
TEQ R0, #fsfunc_Bootup ; Need to perform a boot option
BEQ %25
]
TEQ R0, #fsfunc_ReadDirEntries
TEQNE R0, #fsfunc_ReadDirEntriesInfo
BEQ romfs_fsfunc_readdirentries
......@@ -950,13 +953,13 @@ ROMFS_FSFunc ENTRY
TEQNE R0,#fsfunc_LCat
TEQNE R0,#fsfunc_LEx
TEQNE R0,#fsfunc_Info
TEQNE R0,#fsfunc_Opt
TEQNE R0,#fsfunc_ReadCSDName
TEQNE R0,#fsfunc_ReadLIBName
TEQNE R0,#fsfunc_PrintBanner
TEQNE R0,#fsfunc_SetContexts
TEQNE R0,#fsfunc_CatalogObjects
TEQNE R0,#fsfunc_FileInfo
TEQNE R0,#fsfunc_Opt
BEQ NotSupportedError
TEQ R0,#fsfunc_Rename
......@@ -966,10 +969,23 @@ ROMFS_FSFunc ENTRY
EXIT ; ignore any other reason codes (unknown)
; ShutDown and Bootup are also ignored
[ allowbooting ; Added by Rich, 16/8/95
25
ADR R0, runboot
SWI XOS_CLI
EXIT
runboot = "*Run &.!Boot", 0 ; OPT 4 2
]
30
; No disc name, no boot option
MOV r0, #0
STRB r0, [r2]
[ allowbooting ; Added by Rich, 16/8/95
MOV r0, #2 ; Only allow *Run, (OPT 4 2)
]
STRB r0, [r2, #1]
EXIT
......
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