
OS_WriteC		EQU	&0
	

	AREA |omicron$$code|, CODE, READONLY

	EXPORT set_mode
			
set_mode
	mov r1,r0
	mov r0,#22
	swi OS_WriteC
	mov r0,r1
	swi OS_WriteC
	movs pc,lr
	
	END
