home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s5 / mcount.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  222 b   |  21 lines
  1. / count subroutine calls during profiling
  2.  
  3. .globl    mcount
  4. .comm    countbase,2
  5.  
  6. mcount:
  7.     mov    (r0),r1
  8.     bne    1f
  9.     mov    countbase,r1
  10.     beq    2f
  11.     add    $6,countbase
  12.     mov    (sp),(r1)+
  13.     mov    r1,(r0)
  14. 1:
  15.     inc    2(r1)
  16.     bne    2f
  17.     inc    (r1)
  18. 2:
  19.     rts    pc
  20.  
  21.