Ї >32bittest Ї 3Ї Short example to go into 32 bit mode, set the (4Ї Z flag, and return to a conditional based upon 2Ї this. <Ї F9Ї Downloaded from http://www.heyrick.co.uk/assembler/ PЇ Z d;Ї We need to ensure the required hardware is present... nЛю Е ╚Щ "OS_PrettyPrint", "Sorry, you'll need a RiscPC or later, with a 32 bit capable processor in order to use this software." : ё : р x╚Щ "OS_Memory", 6 В Мю Е ё Ў$+" at "+├(Ю/10) : р Ц а▐ code% 1024 кё "Assembling code" ┤у l% = 0 ╕ 2 И 2 ╛ P% = code% ╚ [ OPT l% ╥6 в 1 ; Enable ExtBASICAsm ▄ ц3 \ Preserve our R14 and then enter SVC mode Ё STMFD R13!, {R14} · SWI "OS_EnterOS" ADR R0, entering SWI "OS_Write0" " SWI "OS_NewLine" , 6S \ Turn off all interrupts, because RISC OS won't be expecting 32 bit mode! @ SWI "OS_IntOff" J T \ User32 code ^ MOV R0, #%10011 hJ MSR CPSR_all, R0 ; Select CPSR mode, clear all the bits r MOV R0, R0 | Ж/ MRS R0, CPSR_all ; Read CPSR Р9 BIC R0, R0, #&F0000000 ; Clear the flag bits Ъ9 BIC R0, R0, #&1F ; Clear the mode bits д3 ДR R0, R0, #1<<30 ; Set the Z flag о3 ДR R0, R0, #%11 ; Set SVC26 mode ╕, MSR CPSR_all, R0 ; Do it! ┬ MOV R0, R0 ╠ ╓) \ Turn interrupts back on again. р SWI "OS_IntOn" ъ Ї ADR R0, exiting ■ SWI "OS_Write0" SWI "OS_NewLine" 3 \ If Z set, print Z set else print Z unset & ADR R0, zunset 0 ADREQ R0, zset : SWI "OS_Write0" D SWI "OS_NewLine" N X \ Return to ║ mode b BIC R14, PC, #3 l TEQP R14, #0 v MOV R0, R0 А К \ And get out of here. Ф LDMFD R13!, {PC} Ю и .zunset ▓: EQUS " Z flag is not set (this ain't right!)" ╝ EQUB 0 ╞ ALIGN ╨ ┌ .zset ф1 EQUS " Z flag is set (as expected!)" ю EQUB 0 ° ALIGN .entering D EQUS " About to enter 32 bit mode, cross your fingers!" EQUB 0 * ALIGN 4 > .exiting H3 EQUS " Returned to 26 bit mode. Phew!" R EQUB 0 \ ALIGN f ] pэ z Дё "Executing code" О╓ code% Шё "Finished" в мр