Research V6 development

[unix-history] / usr / source / s2 / time.s

/ time -- prints out system times

times = 43.

       cmp     (sp),$1
       bgt     1f
       sys     exit
1:
       sys     time
       mov     r1,ltbuf
       jsr     pc,execarg
       sys     time
       sub     ltbuf,r1
       sys     times; ltbuf
       mov     r1,r0
       mul     $60.,r0
       mov     r0,ltbuf
       mov     r1,ltbuf+2
       jsr     r5,mesg; <\nreal\0>; .even
       mov     $ltbuf,r2
       jsr     r5,ptime
       jsr     r5,mesg; <user\0>; .even
       jsr     r5,ptime
       jsr     r5,mesg; <sys \0>; .even
       jsr     r5,ptime
       sys     exit

execarg:
       sys     fork
               br newproc
       bec     2f
       jsr     r5,mesg; <Try again.\n\0>; .even
       sys     exit
2:
       mov     r0,r2
       sys     signal; 2; 1
2:
       sys     wait
       cmp     r0,r2
       bne     2b
       bit     $377,r1
       beq     1f
       jsr     r5,mesg; <Command terminated abnormally.\n\0>; .even
       clr     r0
       sys     seek; 0; 2
1:
       rts     pc

newproc:
       tst     (sp)+
       mov     (sp)+,r0
       tst     (sp)+
       mov     $ibuf,r1
       mov     $end,r2
1:
       mov     (sp)+,r3
       mov     r2,(r1)+
2:
       movb    (r3)+,(r2)+
       bne     2b
       dec     r0
       cmp     r0,$1
       bgt     1b
       clr     (r1)+
       mov     $end,r1
       sys     exec; end; ibuf
       cmp     $8,r0
       beq     rcom
       mov     $end-10.,r0
       mov     $"x/,(r0)+
       mov     $"us,(r0)+
       mov     $"r/,(r0)+
       mov     $"bi,(r0)+
       mov     $"n/,(r0)+
       mov     $end-5,r1
       sys     exec; end-5; ibuf
       cmp     $8,r0
       beq     rcom
       mov     $end-9,r1
       sys     exec; end-9.; ibuf
       cmp     $8,r0
       bne     1f
rcom:
       mov     r1,ibuf
       mov     $shname+5,ibuf-2
       sys     exec ; shname ; ibuf-2
1:
       jsr     r5,mesg; <Command not found.\n\0>; .even
       clr     r0
       sys     seek; 0; 2
       sys     exit

printd:
       mov     $tbuf+4,r4
       jsr     r5,tdiv; 10.
       jsr     r5,tdiv; 10.
       jsr     r5,tdiv; 10.
       jsr     r5,tdiv; 10.
1:
       cmpb    (r4),$'0
       bne     1f
       movb    $' ,(r4)+
       cmp     r4,$tbuf+3
       bne     1b
1:
       mov     $2,r0
       sys     write; tbuf; 4
       rts     pc

ptime:
       mov     (r2)+,r0
       mov     (r2)+,r1
       div     $3600.,r0
       mov     r0,-(sp)
       clr     r0
       div     $60.,r0
       mov     r1,clicks
       mov     $tbuf+9.,r4
       jsr     r5,tdiv; 10.
       jsr     r5,tdiv; 6.
       movb    $':,-(r4)
       mov     (sp)+,r0
       jsr     r5,tdiv; 10.
       jsr     r5,tdiv; 6.
       movb    $':,-(r4)
       jsr     r5,tdiv; 10.
       jsr     r5,tdiv; 10.
       jsr     r5,tdiv; 10.
1:
       cmpb    (r4),$'0
       beq     2f
       cmpb    (r4),$':
       bne     1f
2:
       movb    $' ,(r4)+
       cmp     r4,$tbuf+8.
       bne     1b
1:
       mov     $2,r0
       sys     write; tbuf; 9.
       jsr     r5,mesg; <.\0>; .even
       mov     clicks,r1
       clr     r0
       div     $6,r0
       add     $'0,r0
       mov     r0,ch
       mov     $2,r0
       sys     write; ch; 1
       jsr     r5,mesg; <\n\0>; .even
       rts     r5

tdiv:
       mov     r1,-(sp)
       mov     r0,r1
       clr     r0
       div     (r5)+,r0
       add     $'0,r1
       movb    r1,-(r4)
       mov     (sp)+,r1
       rts     r5

mesg:
       movb    (r5)+,ch
       beq     2f
       mov     $2,r0
       sys     write; ch; 1
       br      mesg
2:
       inc     r5
       bic     $1,r5
       rts     r5

ch:     .=.+1
.even
.bss

clicks: .=.+2
       .=.+2
ibuf:   .=.+50.
tbuf:   .=.+10.
ltbuf:  .=.+16.
end:    .=.+1000.

.data
shname: </bin/sh\0>
.even