.define _fork
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
.extern _fork
_fork:		trap #0
.data2 0x2
		bra 3f
		rts
3:
		bcc 2f
		jmp cerror
2:
		clr.l d0
		rts