home *** CD-ROM | disk | FTP | other *** search
- ;
- ; decrement word hl^, advance hl by 1 (to hi byte of m)
- ; z flag for zero after decrementing
- ; a,f,h,l
- .dcxm:: dcr m
- mov a,m
- inx h
- inr a
- rnz
- ora m
- rz; zero result, no wrap
- dcr m
- ora a; reset any zero flag
- ret
- 3