time.s

来自「unix v7是最后一个广泛发布的研究型UNIX版本」· S 代码 · 共 38 行

/ C library -- time

/ tvec = time(tvec);
/
/ tvec[0], tvec[1] contain the time

.globl	_time
.time = 13.


_time:
	mov	r5,-(sp)
	mov	sp,r5
	sys	.time
	mov	r2,-(sp)
	mov	4(r5),r2
	beq	1f
	mov	r0,(r2)+
	mov	r1,(r2)+
1:
	mov	(sp)+,r2
	mov	(sp)+,r5
	rts	pc

.globl	_ftime
.ftime	= 35.

_ftime:
	mov	r5,-(sp)
	mov	sp,r5
	mov	4(r5),0f
	sys	0; 9f
	.data
9:	sys	.ftime; 0:..
	.text
	mov	(sp)+,r5
	rts	pc