2.11BSD#431 - /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:         clr     -(sp)
  18:         jsr     pc,_time
  19:         tst     (sp)+
  20:         mov     r0,(r2)+
  21:         mov     r1,(r2)+
  22:         mov     (lc)+,(r2)+
  23:         tst     (lc)+
  24:         mov     (lc)+,(r2)+
  25:         return
  26: _TRACNT:
  27:         mov     4(lc),r3
  28:         add     (lc),lc
  29:         br      1f
  30: _COUNT:
  31:         bne     1f
  32:         mov     (lc)+,r3
  33: 1:
  34:         add     r3,r3
  35:         add     r3,r3
  36:         add     _pxpbuf,r3
  37:         add     $1,2(r3)
  38:         adc     (r3)
  39:         return

Defined functions