20 lines
		
	
	
	
		
			217 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			20 lines
		
	
	
	
		
			217 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
.define	.putchar
 | 
						|
.sect .text
 | 
						|
.sect .rom
 | 
						|
.sect .data
 | 
						|
.sect .bss
 | 
						|
.sect .text
 | 
						|
 | 
						|
	.sect .text
 | 
						|
 | 
						|
! putchar, for a unix
 | 
						|
 | 
						|
.putchar:
 | 
						|
	enter [],0
 | 
						|
	movqd	1,tos
 | 
						|
	addr	8(fp),tos
 | 
						|
	movqd	1,tos
 | 
						|
	bsr	_write
 | 
						|
	adjspb	-12
 | 
						|
	exit	[]
 | 
						|
	ret	0
 |