UNIX 6th Ed. - /usr/source/s2/rew.s

   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

Defined functions

Defined variables