|
From: <th...@us...> - 2002-11-20 00:00:29
|
Update of /cvsroot/ro-oslib/OSLib/!OsLib/Source/Core/oslib
In directory sc8-pr-cvs1:/tmp/cvs-serv29702/Source/Core/oslib
Modified Files:
OSReadSysInfo.swi
Log Message:
Added OSReadSysInfo_ROMInformation now that RISC OS Ltd have detailed
it publically on the Select mailing list.
Index: OSReadSysInfo.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Core/oslib/OSReadSysInfo.swi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** OSReadSysInfo.swi 9 Mar 2002 10:58:38 -0000 1.1
--- OSReadSysInfo.swi 20 Nov 2002 00:00:26 -0000 1.2
***************
*** 37,40 ****
--- 37,55 ----
OSReadSysInfo_LCDControlType1 = OSReadSysInfo_Flags2: 1;
+ TYPE OSReadSysInfo_ROMInformationCode = .Int;
+ CONST
+ OSReadSysInfo_OSName = OSReadSysInfo_ROMInformationCode: 0
+ "OS name in form <OS name> <version> <comments>",
+ OSReadSysInfo_PartNumber = OSReadSysInfo_ROMInformationCode: 1
+ "Part number in form <part>[-<comments>]",
+ OSReadSysInfo_BuildTime = OSReadSysInfo_ROMInformationCode: 2
+ "Build time, eg Tue,18 Jan 2000.10:36:40",
+ OSReadSysInfo_DealerName = OSReadSysInfo_ROMInformationCode: 3
+ "Dealer name - this is the supplier of the ROMs",
+ OSReadSysInfo_UserName = OSReadSysInfo_ROMInformationCode: 4
+ "User name - this is the name of the owner of the ROMs",
+ OSReadSysInfo_UserAddress = OSReadSysInfo_ROMInformationCode: 5
+ "User address - this is the address of the owner of the ROMs";
+
SWI OS_ReadSysInfo = (NUMBER 0x58 "Reads system information -
see individual reason codes", ABSENT);
***************
*** 126,129 ****
R2 = .Ref .Data: abort_psr,
R3! = .Ref .Data: fault_address
! ) )
--- 141,153 ----
R2 = .Ref .Data: abort_psr,
R3! = .Ref .Data: fault_address
! ) ),
+ OSReadSysInfo_ROMInformation =
+ ( NUMBER 0x68,
+ ENTRY
+ ( R0 # 9 "Read information about the currently installed ROM - RISC O S 4+",
+ R1 = OSReadSysInfo_ROMInformationCode: code
+ ),
+ EXIT
+ ( R0! -> .String: information
+ ) )
|