home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / mdec / rk.s < prev    next >
Encoding:
Text File  |  1975-06-26  |  194 b   |  18 lines
  1. / rk05 disk driver
  2.  
  3. rkda = 177412
  4.     mov    dska,r1
  5.     clr    r0
  6.     div    $12.,r0
  7.     ash    $4.,r0
  8.     bis    r1,r0
  9.     mov    $rkda,r1
  10.     mov    r0,(r1)
  11.     mov    ba,-(r1)
  12.     mov    wc,-(r1)
  13.     mov    $iocom,-(r1)
  14. 1:
  15.     tstb    (r1)
  16.     bpl    1b
  17.     rts    pc
  18.