Research V6 development

[unix-history] / usr / source / s5 / stime.s

.globl  _stime, cerror

_stime:
       mov     r5,-(sp)
       mov     sp,r5
       mov     4(sp),r1
       mov     (r1)+,r0
       mov     (r1),r1
       sys     stime
       bec     1f
       jmp     cerror
1:
       clr     r0
       mov     (sp)+,r5
       rts     pc