rk.s

   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

Defined functions

rkda defined in line 3; used 1 times

in line 9

Last modified: 1975-06-27
Generated: 2016-12-26

Generated by src2html V0.67
page hit count: 402