UNIX 6th Ed. - /usr/source/mdec/rp.s

   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

Defined functions