20 lines
		
	
	
	
		
			248 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			20 lines
		
	
	
	
		
			248 B
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
| .sect .text; .sect .rom; .sect .data; .sect .bss
 | |
| .define _fork, _par_uid
 | |
| .sect .bss
 | |
| .comm	_par_uid, 2
 | |
| .sect .text
 | |
| _fork:
 | |
| 	mov	ax,2
 | |
| 	call	syscal
 | |
| 	jb	1f
 | |
| 	and	bx,bx
 | |
| 	je	2f
 | |
| 	ret
 | |
| 1:
 | |
| 	mov	(_errno),ax
 | |
| 	mov	ax,-1
 | |
| 	ret
 | |
| 2:
 | |
| 	mov	(_par_uid),ax
 | |
| 	xor	ax,ax
 | |
| 	ret
 |