home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / TDZSF.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  384 b   |  20 lines
  1.     extrn    .dten, .blks, .tdzs
  2. ;
  3. ; Write hl (dec) in minimum (a) char. field, right justified.
  4. ; (If the field is too small more columns are used). Max field 128
  5. ; a,f
  6. .tdzsf::
  7.     push    b
  8.     push    h
  9.     mov    b,a
  10. tdzsf1:    dcr    b
  11.     call    .dten
  12.     mov    a,h
  13.     ora    l
  14.     jnz    tdzsf1;        count digits. 0..9 leaves count-1
  15.     ora    b
  16.     cp    .blks;        0 or more
  17.     pop    h
  18.     pop    b
  19.     jmp    .tdzs
  20. ƒ_