home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / salloc / rewind.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  468 b   |  37 lines
  1. .globl    rewind
  2. .globl    create
  3. .globl    fsfile
  4. .globl    w, r, a, l
  5. /
  6. /
  7. /    routine to rewind read pointer of string
  8. /    pointed to by r1
  9. /
  10. /    mov    ...,r1
  11. /    jsr    pc,rewind
  12. /
  13. rewind:
  14.     mov    a(r1),r(r1)
  15.     rts    pc
  16. /
  17. /    routine to rewind write pointer of string
  18. /    pointed to by r1
  19. /
  20. /    mov    ...,r1
  21. /    jsr    pc,create
  22. /
  23. create:
  24.     mov    a(r1),w(r1)
  25.     mov    a(r1),r(r1)
  26.     rts    pc
  27. /
  28. /
  29. /    routine to copy read pointer of string to end of string
  30. /
  31. /    mov    ...,r1
  32. /    jsr    pc,fsfile
  33. /
  34. fsfile:
  35.     mov    w(r1),r(r1)
  36.     rts    pc
  37.