phawfauxlogo.png - 2426 bytes
RISC OS RO4.4x Preview
HomeFAQsAsk a questionAnswer questions 
A9.com Web Search
Support
How do I test for an A9home computer?
SYS "OS_ReadSysInfo",8 TO r0%,r1%,r2%
CASE r0% OF
WHEN 0 : r0$="unknown"
WHEN 1 : r0$="Risc PC"
WHEN 2 : r0$="A7000"
WHEN 3 : r0$="A7000+"
WHEN 4 : r0$="reserved"
WHEN 5 : r0$="HAL"
WHEN 6 : r0$="undefined"
WHEN 7 : r0$="A9home"
OTHERWISE : r0$="Unknown"
ENDCASE
PRINT "Platform class: ";r0$

The above code is an example of how to test for the A9home.
Indeed the above can be use to test for any modern RISC OS based computer.

WHEN 3 : r0$="A7000+" is also shared between all 7500FE based computers i.e. A7000+/RiscStation/A75.


The code below in example of how NOT to test: -

Set RISCOS$Ver 5
RMEnsure UtilityModule 5.00 Set RISCOS$Ver 44
RMEnsure UtilityModule 4.40 Set RISCOS$Ver 35
RMEnsure UtilityModule 3.50 Set RISCOS$Ver 3
RMEnsure UtilityModule 3.10 Set RISCOS$Ver 2
| Versions above 4.39 must use 32 bit (?)
|
Set Which$RunFile RunImage26
IF RiscOS$Ver = 44 THEN Set Which$RunFile RunImage32A9
IF RiscOS$Ver = 5 THEN Set Which$RunFile RunImage32Iy

This sort of messing about really should be avoided, the idea that you should generate multiple versions of things (and based on unsafe assumptions) is one of the problems we're all suffering from at the moment (e.g. "Is it an Iyonix? -> No -> Run the 26 bit version" shows both an assumption that the Iyonix is the only 32 bit machine, and the idea that 2 different programs are needed).
Application: Versions: 
Systems: A9homeOS Versions: 4.40
Logged: 20/05/2006 15:14:41Last Update: 20/05/2006 19:56:11

Wakefield Acorn & Risc OS Computer Show 2010

This site is independent and not in any way connected with Advantage 6 Ltd