home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s2 / rew.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  451 b   |  48 lines
  1. / rew -- rewind dec/mag tape
  2.  
  3.     cmp    (sp)+,$2
  4.     blt    1f
  5.     tst    (sp)+
  6.     mov    (sp)+,r0
  7.     movb    (r0)+,r1
  8.     cmp    r1,$'m
  9.     beq    rewm
  10.     movb    r1,tapx+8
  11.     tstb    (r0)
  12.     bne    error
  13. 1:
  14.     sys    open; tapx; 0
  15.     br    rew
  16.  
  17. rewm:
  18.     movb    (r0)+,r1
  19.     beq    1f
  20.     movb    r1,mtx+7
  21.     tstb    (r0)
  22.     bne    error
  23. 1:
  24.     sys    open; mtx; 0
  25.  
  26. rew:
  27.     bes    error
  28.     sys    read; word; 2
  29.     bes    error
  30.     sys    exit
  31.  
  32. error:
  33.     mov    $1,r0
  34.     sys    write; 0f; 2
  35.     sys    exit
  36. 0:
  37.     <?\n>
  38.  
  39. tapx:
  40.     </dev/tap0\0>
  41. mtx:
  42.     </dev/mt0\0>
  43.     .even
  44.  
  45. .bss
  46. word:    .=.+2
  47.  
  48.