2.9BSD - /usr/src/ucb/pascal/px/24pxp.s

   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

Defined functions