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

   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

Defined functions