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