home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / salloc / bword.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  370 b   |  32 lines

  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
  32.