home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / NILCHK.MAC < prev    next >
Encoding:
Text File  |  1987-01-15  |  256 b   |  14 lines
  1. ;
  2. ; Check hl for the value 0, preserve a.  Carry if zero
  3. ; a,f
  4. .nilchk::
  5.     push    b
  6.     mov    b,a
  7.     mov    a,h
  8.     ora    l
  9.     mov    a,b
  10.     pop    b
  11.     rnz;            non-nil pointer
  12.     stc;            nil pointer
  13.     ret
  14. Y\