home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / INITFCB.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  256 b   |  19 lines
  1.     extrn    .fillc
  2. ;    
  3. ; initialize fcb hl^ to blanks and nulls
  4. ; a,f
  5. .initfcb::
  6.     push    h
  7.     push    b
  8.     mvi    m,0
  9.     inx    h
  10.     mvi    a,' '
  11.     mvi    b,11
  12.     call    .fillc
  13.     xra    a
  14.     mvi    b,24
  15.     call    .fillc
  16.     pop    b
  17.     pop    h
  18.     ret
  19. }?