main9p.s

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

#define NPRIVATES	16

TEXT	_mainp(SB), 1, $(16 + NPRIVATES*4)
	MOVL	$a6base(SB), A6
	MOVL	R0, _tos(SB)		/* return value of sys exec!! */
	LEA	p-64(SP),A0
	MOVL	A0,_privates+0(SB)
	MOVL	$16,R0
	MOVL	R0,_nprivates+0(SB)
	BSR	_profmain(SB)
	MOVL	__prof+4(SB), __prof+0(SB)
	PEA	inargv+0(FP)
	MOVL	inargc-4(FP), TOS
	BSR	main(SB)

loop:
	PEA	_exits<>+0(SB)
	BSR	exits(SB)
	LEA	_profin(SB), A0		/* force loading of profile */
	BRA	loop

TEXT	_savearg(SB), 1, $0
	RTS

TEXT	_callpc(SB), 1, $0
	MOVL	argp+0(FP), A0
	MOVL	4(A0), R0
	RTS

DATA	_exits<>+0(SB)/4, $"main"
GLOBL	_exits<>+0(SB), $5