home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / px / 24pxp.s < prev    next >
Text File  |  1980-02-17  |  419b  |  38 lines
  1. /
  2. / PXP stuff
  3. /
  4. _PXPBUF:
  5.     mov    (lc),r0
  6.     mov    r0,r2
  7.     add    $3,r0
  8.     add    r0,r0
  9.     add    r0,r0
  10.     mov    r0,-(sp)
  11.     mov    r0,_pxpsize
  12.     jsr    pc,_alloc
  13.     mov    r0,_pxpbuf
  14.     mov    r0,r2
  15.     mov    $426,(r2)+
  16.     clr    (r2)+
  17.     sys    time
  18.     mov    r0,(r2)+
  19.     mov    r1,(r2)+
  20.     mov    (lc)+,(r2)+
  21.     tst    (lc)+
  22.     mov    (lc)+,(r2)+
  23.     return
  24. _TRACNT:
  25.     mov    4(lc),r3
  26.     add    (lc),lc
  27.     br    1f
  28. _COUNT:
  29.     bne    1f
  30.     mov    (lc)+,r3
  31. 1:
  32.     add    r3,r3
  33.     add    r3,r3
  34.     add    _pxpbuf,r3
  35.     add    $1,2(r3)
  36.     adc    (r3)
  37.     return
  38.