home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / mdec / rp.s < prev    next >
Encoding:
Text File  |  1975-06-26  |  249 b   |  22 lines
  1. / rp03 disk driver
  2.  
  3. rpda = 176724
  4.     mov    dska,r1
  5.     clr    r0
  6.     div    $10.,r0
  7.     mov    r1,-(sp)
  8.     mov    r0,r1
  9.     clr    r0
  10.     div    $20.,r0
  11.     bisb    r1,1(sp)
  12.     mov    $rpda,r1
  13.     mov    (sp)+,(r1)
  14.     mov    r0,-(r1)
  15.     mov    ba,-(r1)
  16.     mov    wc,-(r1)
  17.     mov    $iocom,-(r1)
  18. 1:
  19.     tstb    (r1)
  20.     bpl    1b
  21.     rts    pc
  22.