home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / mdec / rkf.s < prev    next >
Encoding:
Text File  |  1975-06-26  |  437 b   |  38 lines
  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
  38.