[ro-oslib-commits] OSLib/!OsLib/Source/Core/oslib OSReadSysInfo.swi,1.1,1.2

[<th...@us...>]

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
+    )  )