home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / DCXM.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  256 b   |  15 lines
  1. ;
  2. ; decrement word hl^, advance hl by 1 (to hi byte of m)
  3. ; z flag for zero after decrementing
  4. ; a,f,h,l
  5. .dcxm::    dcr    m
  6.     mov    a,m
  7.     inx    h
  8.     inr    a
  9.     rnz
  10.     ora    m
  11.     rz;            zero result, no wrap
  12.     dcr    m
  13.     ora    a;        reset any zero flag
  14.     ret
  15. 3