.ref-Research-V6/usr/source/mdec/rk.s

/ rk05 disk driver

rkda = 177412
        mov     dska,r1
        clr     r0
        div     $12.,r0
        ash     $4.,r0
        bis     r1,r0
        mov     $rkda,r1
        mov     r0,(r1)
        mov     ba,-(r1)
        mov     wc,-(r1)
        mov     $iocom,-(r1)
1:
        tstb    (r1)
        bpl     1b
        rts     pc