ack/mach/vax4/libbsd4_1a/fork.s

.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define	_fork
fork = 2

.align	1
_fork:
	.data2	0x0000
	chmk	$fork
	bcc	1f
	jmp	errmon
1:
	jlbc	r1,1f
	clrl	r0
1:
	ret
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`.sect .text; .sect .rom; .sect .data; .sect .bss`
			`.sect .text`
			`.define _fork`
			`fork = 2`
Initial revision 1986-12-12 12:49:50 +00:00
			`.align 1`
			`_fork:`
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`.data2 0x0000`
Initial revision 1986-12-12 12:49:50 +00:00			`chmk $fork`
			`bcc 1f`
			`jmp errmon`
			`1:`
			`jlbc r1,1f`
			`clrl r0`
			`1:`
			`ret`