UNIX 6th Ed. - /usr/source/salloc/bword.s

   1: .globl  backword
   2: .globl  lookchar
   3: .globl  w, r, a, l
   4: /
   5: /
   6: /	routine to get words backwards from string
   7: /
   8: /	mov	...,r1
   9: /	jsr	pc,backword
  10: /	mov	r0,...
  11: /
  12: backword:
  13:         cmp     a(r1),r(r1)
  14:         bhis    nochw
  15:         dec     r(r1)
  16:         jsr     pc,lookchar
  17:         movb    r0,nchar+1
  18:         cmp     a(r1),r(r1)
  19:         bhis    nochw
  20:         dec     r(r1)
  21:         jsr     pc,lookchar
  22:         movb    r0,nchar
  23:         mov     nchar,r0
  24:         rts     pc
  25: /
  26: nochw:
  27:         clr     r0
  28:         sec
  29:         rts     pc
  30: /
  31: nchar:  .=.+2

Defined functions