23 lines
		
	
	
	
		
			297 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			23 lines
		
	
	
	
		
			297 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
 | 
						|
.sect .text
 | 
						|
.define setfloat~,setint~
 | 
						|
.extern unknown~
 | 
						|
! $Header$
 | 
						|
 | 
						|
setfloat~:
 | 
						|
	cmp	r0,$8.
 | 
						|
	bne	1f
 | 
						|
	rts	pc
 | 
						|
1:	cmp	r0,$04
 | 
						|
	bne	3f
 | 
						|
	setf
 | 
						|
2:	rts	pc
 | 
						|
3:	jmp	unknown~
 | 
						|
setint~:
 | 
						|
	cmp	r0,$04
 | 
						|
	bne	4f
 | 
						|
	setl
 | 
						|
	rts	pc
 | 
						|
4:	cmp	r0,$02
 | 
						|
	bne	3b
 | 
						|
5:	rts	pc
 |