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

   1: / format RK03/05 disk packs
   2: 
   3: rkda = 177412
   4: 
   5:         jsr     pc,4(r5)
   6:                 <ready drive 0 and type y\n\0>; .even
   7:         jsr     pc,2(r5)
   8:         mov     r0,-(sp)
   9:         mov     $'\n,r0
  10:         jsr     pc,(r5)
  11:         cmp     (sp)+,$'y
  12:         beq     1f
  13:         rts     pc
  14: 1:
  15:         mov     $203.*2,r4
  16:         clr     r3
  17: 1:
  18:         mov     $rkda+2,r0
  19:         mov     r3,-(r0)
  20:         mov     $buf,-(r0)
  21:         mov     $-12.*256.,-(r0)
  22:         mov     $6003,-(r0)
  23: 2:
  24:         tstb    (r0)
  25:         bge     2b
  26:         tst     (r0)
  27:         blt     1f
  28:         add     $20,r3
  29:         dec     r4
  30:         bne     1b
  31:         rts     pc
  32: 1:
  33:         jsr     pc,4(r5)
  34:                 <rkf: error\n\0>; .even
  35:         rts     pc
  36: 
  37: buf:    .=.+2

Defined functions