setjmp.s

来自「这是一个同样来自贝尔实验室的和UNIX有着渊源的操作系统, 其简洁的设计和实现易」· S 代码 · 共 27 行

TEXT	setjmp(SB), 1, $0
	MOVL	b+0(FP), A0
	MOVL	A7, (A0)+
	MOVL	(A7), (A0)
	CLRL	R0
	RTS

TEXT	sigsetjmp(SB), 1, $0
	MOVL	b+0(FP), A0
	MOVW	savemask+4(FP), R1
	MOVW	R1, (A0)+
	MOVW	$_psigblocked(SB), R1
	MOVW	R1, (A0)+
	MOVL	A7, (A0)+
	MOVL	(A7), (A0)
	CLRL	R0
	RTS

TEXT	longjmp(SB), 1, $0
	MOVL	b+0(FP), A0
	MOVL	r+4(FP), R0
	BNE	ok		/* ansi: "longjmp(0) => longjmp(1)" */
	MOVL	$1, R0		/* bless their pointed heads */
ok:	MOVL	(A0)+, A7
	MOVL	(A0), (A7)
	RTS