home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / mdec / hp.s < prev    next >
Encoding:
Text File  |  1975-06-26  |  485 b   |  39 lines
  1. / rp04 disk driver
  2.  
  3. hpcs1 = 176700
  4. hpda  = 176706
  5. hpcs2 = 176710
  6. hpof  = 176732
  7. hpca  = 176734
  8.  
  9. fmt22 = 010000
  10. preset = 021
  11. clear = 040
  12.  
  13. first = .+2    / dirty, but i need the space
  14.     tst    $0
  15.     bne    1f
  16.     mov    $clear,*$hpcs2
  17.     mov    $preset,*$hpcs1
  18.     mov    $fmt22,*$hpof
  19.     inc    first
  20. 1:
  21.     mov    dska,r1
  22.     clr    r0
  23.     div    $22.,r0
  24.     mov    r1,-(sp)
  25.     mov    r0,r1
  26.     clr    r0
  27.     div    $19.,r0
  28.     bisb    r1,1(sp)
  29.     mov    r0,*$hpca
  30.     mov    $hpda,r1
  31.     mov    (sp)+,(r1)
  32.     mov    ba,-(r1)
  33.     mov    wc,-(r1)
  34.     mov    $iocom,-(r1)
  35. 1:
  36.     tstb    (r1)
  37.     bpl    1b
  38.     rts    pc
  39.